usr.bin/xlint/common/tyname.c

   1 /*      $NetBSD: tyname.c,v 1.9 2008/09/26 22:52:24 matt Exp $  */
   2
   3 /*-
   4  * Copyright (c) 2005 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Christos Zoulas.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 #if HAVE_NBTOOL_CONFIG_H
  33 #include "nbtool_config.h"
  34 #endif
  35
  36 #include <sys/cdefs.h>
  37 #if defined(__RCSID) && !defined(lint)
  38 __RCSID("$NetBSD: tyname.c,v 1.9 2008/09/26 22:52:24 matt Exp $");
  39 #endif
  40
  41 #include <limits.h>
  42 #include <string.h>
  43 #include <stdlib.h>
  44 #include <err.h>
  45
  46 #include PASS
  47
  48 #ifndef LERROR
  49 #define LERROR(fmt, args...)    do { \
  50     (void)warnx("%s, %d: " fmt, __FILE__, __LINE__, ##args); \
  51     abort(); \
  52 } while (/*CONSTCOND*/0)
  53 #endif
  54
  55 const char *
  56 basictyname(tspec_t t)
  57 {
  58         switch (t) {
  59         case BOOL:      return "_Bool";
  60         case CHAR:      return "char";
  61         case UCHAR:     return "unsigned char";
  62         case SCHAR:     return "signed char";
  63         case SHORT:     return "short";
  64         case USHORT:    return "unsigned short";
  65         case INT:       return "int";
  66         case UINT:      return "unsigned int";
  67         case LONG:      return "long";
  68         case ULONG:     return "unsigned long";
  69         case QUAD:      return "long long";
  70         case UQUAD:     return "unsigned long long";
  71         case FLOAT:     return "float";
  72         case DOUBLE:    return "double";
  73         case LDOUBLE:   return "long double";
  74         case VOID:      return "void";
  75         case PTR:       return "pointer";
  76         case ENUM:      return "enum";
  77         case STRUCT:    return "struct";
  78         case UNION:     return "union";
  79         case FUNC:      return "function";
  80         case ARRAY:     return "array";
  81         case FCOMPLEX:  return "float _Complex";
  82         case DCOMPLEX:  return "double _Complex";
  83         case LCOMPLEX:  return "long double _Complex";
  84         case COMPLEX:   return "_Complex";
  85         default:
  86                 LERROR("basictyname(%d)", t);
  87                 return NULL;
  88         }
  89 }
  90
  91 const char *
  92 tyname(char *buf, size_t bufsiz, type_t *tp)
  93 {
  94         tspec_t t;
  95         const   char *s;
  96         char lbuf[64];
  97         char cv[20];
  98
  99         if ((t = tp->t_tspec) == INT && tp->t_isenum)
 100                 t = ENUM;
 101
 102         s = basictyname(t);
 103
 104         cv[0] = '\0';
 105         if (tp->t_const)
 106                 (void)strcat(cv, "const ");
 107         if (tp->t_volatile)
 108                 (void)strcat(cv, "volatile ");
 109
 110         switch (t) {
 111         case BOOL:
 112         case CHAR:
 113         case UCHAR:
 114         case SCHAR:
 115         case SHORT:
 116         case USHORT:
 117         case INT:
 118         case UINT:
 119         case LONG:
 120         case ULONG:
 121         case QUAD:
 122         case UQUAD:
 123         case FLOAT:
 124         case DOUBLE:
 125         case LDOUBLE:
 126         case VOID:
 127         case FUNC:
 128         case COMPLEX:
 129         case FCOMPLEX:
 130         case DCOMPLEX:
 131         case LCOMPLEX:
 132                 (void)snprintf(buf, bufsiz, "%s%s", cv, s);
 133                 break;
 134         case PTR:
 135                 (void)snprintf(buf, bufsiz, "%s%s to %s", cv, s,
 136                     tyname(lbuf, sizeof(lbuf), tp->t_subt));
 137                 break;
 138         case ENUM:
 139                 (void)snprintf(buf, bufsiz, "%s%s %s", cv, s,
 140 #ifdef t_enum
 141                     tp->t_enum->etag->s_name
 142 #else
 143                     tp->t_isuniqpos ? "*anonymous*" : tp->t_tag->h_name
 144 #endif
 145                     );
 146                 break;
 147         case STRUCT:
 148         case UNION:
 149                 (void)snprintf(buf, bufsiz, "%s%s %s", cv, s,
 150 #ifdef t_str
 151                     tp->t_str->stag->s_name
 152 #else
 153                     tp->t_isuniqpos ? "*anonymous*" : tp->t_tag->h_name
 154 #endif
 155                     );
 156                 break;
 157         case ARRAY:
 158                 (void)snprintf(buf, bufsiz, "%s%s of %s[%d]", cv, s,
 159                     tyname(lbuf, sizeof(lbuf), tp->t_subt), tp->t_dim);
 160                 break;
 161         default:
 162                 LERROR("tyname(%d)", t);
 163         }
 164         return (buf);
 165 }