1 : /*
2 : Copyright (C) 2007, Bruce Ediger
3 :
4 : This file is part of cl.
5 :
6 : cl is free software; you can redistribute it and/or modify
7 : it under the terms of the GNU General Public License as published by
8 : the Free Software Foundation; either version 2 of the License, or
9 : (at your option) any later version.
10 :
11 : cl is distributed in the hope that it will be useful,
12 : but WITHOUT ANY WARRANTY; without even the implied warranty of
13 : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 : GNU General Public License for more details.
15 :
16 : You should have received a copy of the GNU General Public License
17 : along with cl; if not, write to the Free Software
18 : Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 :
20 : */
21 : #include <string.h>
22 : #include <hashtable.h>
23 : #include <atom.h>
24 :
25 : #ifndef _TCC_
26 : #ident "$Id: atom.c,v 1.11 2007/04/30 03:17:47 bediger Exp $"
27 : #endif
28 :
29 : static struct hashtable *atom_table = NULL;
30 :
31 : void
32 : setup_atom_table(struct hashtable *h)
33 56 : {
34 56 : atom_table = h;
35 56 : }
36 :
37 : const char *
38 : Atom_string(const char *str)
39 1398 : {
40 1398 : return add_string(atom_table, str);
41 : }
|