v2/chuck_symbol.cpp

   1 /*----------------------------------------------------------------------------
   2     ChucK Concurrent, On-the-fly Audio Programming Language
   3       Compiler and Virtual Machine
   4
   5     Copyright (c) 2004 Ge Wang and Perry R. Cook.  All rights reserved.
   6       http://chuck.cs.princeton.edu/
   7       http://soundlab.cs.princeton.edu/
   8
   9     This program is free software; you can redistribute it and/or modify
  10     it under the terms of the GNU General Public License as published by
  11     the Free Software Foundation; either version 2 of the License, or
  12     (at your option) any later version.
  13
  14     This program is distributed in the hope that it will be useful,
  15     but WITHOUT ANY WARRANTY; without even the implied warranty of
  16     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17     GNU General Public License for more details.
  18
  19     You should have received a copy of the GNU General Public License
  20     along with this program; if not, write to the Free Software
  21     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
  22     U.S.A.
  23 -----------------------------------------------------------------------------*/
  24
  25 //-----------------------------------------------------------------------------
  26 // file: chuck_symbol.cpp
  27 // desc: ...
  28 //
  29 // author:   Andrew Appel (appel@cs.princeton.edu)
  30 // modified: Ge Wang (gewang@cs.princeton.edu)
  31 //           Perry R. Cook (prc@cs.princeton.edu)
  32 // date: Autumn 2002
  33 //-----------------------------------------------------------------------------
  34 #include <stdio.h>
  35 #include <string.h>
  36 #include "chuck_utils.h"
  37 #include "chuck_symbol.h"
  38 #include "chuck_table.h"
  39
  40
  41 // S_Symbol
  42 struct S_Symbol_ { c_str name; S_Symbol next; };
  43
  44 static S_Symbol mksymbol( c_constr name, S_Symbol next )
  45 {
  46     S_Symbol s = (S_Symbol)checked_malloc(sizeof(*s));
  47     s->name = (c_str)checked_malloc(strlen(name)+1);
  48     strcpy(s->name, (c_str)name); s->next=next;
  49     return s;
  50 }
  51
  52 #define SIZE 65347  /* should be prime */
  53
  54 static S_Symbol hashtable[SIZE];
  55
  56 static unsigned int hash(const char *s0)
  57 {
  58     unsigned int h=0; const char *s;
  59     for(s=s0; *s; s++)
  60         h = h*65599 + *s;
  61     return h;
  62 }
  63
  64 static int streq(c_constr a, c_constr b)
  65 {
  66     return !strcmp((char*)a,(char*)b);
  67 }
  68
  69 S_Symbol insert_symbol(c_constr name)
  70 {
  71     S_Symbol syms = NULL, sym;
  72     int index= hash(name) % SIZE;
  73
  74     if( !name ) return NULL;
  75     syms = hashtable[index];
  76     for(sym=syms; sym; sym=sym->next)
  77         if (streq(sym->name,name)) return sym;
  78     sym = mksymbol(name,syms);
  79     hashtable[index]=sym;
  80
  81     return sym;
  82 }
  83
  84 c_str S_name( S_Symbol sym )
  85 {
  86     return sym->name;
  87 }
  88
  89 S_table S_empty( void )
  90 {
  91     return TAB_empty();
  92 }
  93
  94 S_table S_empty2( unsigned int size )
  95 {
  96     return TAB_empty2(size);
  97 }
  98
  99 void S_enter( S_table t, S_Symbol sym, void *value )
 100 {
 101     TAB_enter(t,sym,value);
 102 }
 103
 104 void S_enter2( S_table t, c_constr str, void * value )
 105 {
 106     TAB_enter(t,insert_symbol(str),value);
 107 }
 108
 109 void * S_look( S_table t, S_Symbol sym )
 110 {
 111     return TAB_look(t,sym);
 112 }
 113
 114 void * S_look2( S_table t, c_constr str )
 115 {
 116     return TAB_look(t,insert_symbol(str));
 117 }
 118
 119 static struct S_Symbol_ marksym = { "<mark>", 0 };
 120
 121 void S_beginScope( S_table t )
 122 {
 123     S_enter( t, &marksym, NULL );
 124 }
 125
 126 void S_endScope( S_table t )
 127 {
 128     S_Symbol s;
 129     do s = (S_Symbol)TAB_pop(t);
 130     while (s != &marksym);
 131 }
 132
 133 void S_pop( S_table t )
 134 {
 135     TAB_pop(t);
 136 }
 137
 138 void S_dump( S_table t, void (*show)(S_Symbol sym, void *binding) )
 139 {
 140     TAB_dump( t, (void (*)(void *, void *)) show );
 141 }
 142
 143 /* the str->whatever table */