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 (char *str, int len) {
 102   assert (len > 0);
 103   return  (const set_entry *)set_hinsert (id_set, (str), (len), ID_HASH ((str), (len)));
 104 }
 105
 106 inline const char *id_to_str   (ident *id) {
 107   return ((const char *)&(id)->dptr[0]);
 108 }
 109
 110 inline int id_to_strlen(ident *id) {
 111   return ((id)->size);
 112 }
 113
 114 #endif