nsz Git - libfirm/blob - ir/ident/ident.c

   1 /* Ident --- unique handles for identifiers
   2    Copyright (C) 1995, 1996 Markus Armbruster
   3    All rights reserved. */
   4
   5 /* $Id$ */
   6
   7 #ifdef HAVE_CONFIG_H
   8 # include <config.h>
   9 #endif
  10
  11 #include <assert.h>
  12 #include <ctype.h>
  13 #include <string.h>
  14 #include "array.h"
  15 #include "tune.h"
  16 #include "ident_t.h"
  17 #include "xprintf.h"
  18
  19 #define XX_USER(name) ident *id_##name;
  20 #define XX_INTERNAL(name, str) XX_USER(name)
  21 #undef XX_USER
  22 #undef XX_INTERNAL
  23
  24 set *id_set;
  25
  26
  27 ident *
  28 new_id_derived (const char *pfx, ident *id)
  29 {
  30   int pfx_len = strlen (pfx);
  31   int len = pfx_len + ID_TO_STRLEN (id);
  32   char *str = alloca (len);
  33
  34   memcpy (str, pfx, pfx_len);
  35   memcpy (str+pfx_len, ID_TO_STR (id), ID_TO_STRLEN (id));
  36   return ID_FROM_STR (str, pfx_len + ID_TO_STRLEN (id));
  37 }
  38
  39
  40 ident *
  41 new_id_internal (void)
  42 {
  43   static char str[] = "_0000000";
  44   int i;
  45
  46   i = sizeof (str) - 2;
  47   while (++str[i] == '9'+1) {
  48     str[i--] = '0';
  49     /* if following assertion fails, we get called far too often ;-) */
  50     assert (i >= 0);
  51   }
  52   assert (('0' <= str[i]) && (str[i] <= '9'));
  53
  54   return ID_FROM_STR (str, sizeof (str) - 1);
  55 }
  56
  57
  58 bool
  59 id_is_internal (ident *id)
  60 {
  61   assert (ID_TO_STRLEN (id));
  62   return !!ispunct (ID_TO_STR(id)[0]);
  63 }
  64
  65
  66 #ifndef NDEBUG
  67
  68 void
  69 ids_vrfy (ident **id)
  70 {
  71   int i;
  72
  73   for (i = 0;  i < ARR_LEN (id);  ++i) {
  74     ID_VRFY (id[i]);
  75   }
  76 }
  77
  78 #endif
  79
  80 int
  81 ident_print (XP_PAR1, const xprintf_info *info ATTRIBUTE((unused)), XP_PARN)
  82 {
  83   ident *id = XP_GETARG (ident *, 0);
  84   return XPMR (ID_TO_STR (id), ID_TO_STRLEN (id));
  85 }
  86
  87
  88 void
  89 id_init (void)
  90 {
  91   id_set = new_set (memcmp, TUNE_NIDENTS);
  92
  93 #define XX_USER(name) id_##name = ID_FROM_STR(#name, sizeof(#name)- 1);
  94 #define XX_INTERNAL(name, str) id_##name = ID_FROM_STR((str), sizeof((str))-1);
  95 #undef XX_USER
  96 #undef XX_INTERNAL
  97 }
  98
  99
 100 #if 1
 101 INLINE ident *id_from_str (const char *str, int len) {
 102   assert (len > 0);
 103   return  (const set_entry *) set_hinsert (id_set,
 104                                            (str),
 105                                            (len),
 106                                            ID_HASH ((str), (len)));
 107 }
 108
 109 INLINE const char *id_to_str   (ident *id) {
 110   return ((const char *)&(id)->dptr[0]);
 111 }
 112
 113 INLINE int id_to_strlen(ident *id) {
 114   return ((id)->size);
 115 }
 116 #endif
 117
 118 int id_is_prefix (ident *prefix, ident *id) {
 119   if (id_to_strlen(prefix) > id_to_strlen(id)) return 0;
 120   if (0 == memcmp(&(prefix->dptr[0]), &(id->dptr[0]), id_to_strlen(prefix)))
 121     return 1;
 122   return 0;
 123 }
 124
 125 int id_is_suffix (ident *suffix, ident *id) {
 126   int suflen = id_to_strlen(suffix);
 127   int idlen = id_to_strlen(id);
 128   char *part;
 129   if (suflen > idlen) return 0;
 130
 131   part = (char *) &id->dptr[0];
 132   part = part + (idlen - suflen);
 133   if (0 == memcmp(&(suffix->dptr[0]), part, suflen))
 134     return 1;
 135   return 0;
 136 }
 137
 138 int print_id (ident *id) {
 139   xprintf("%I", id);
 140 }
 141
 142 int fprint_id (FILE *F, ident *id) {
 143   xfprintf(F, "%I", id);
 144 }