Mercurial > hg > index.cgi

comparison lwcc/strpool.c @ 304:d85d173ba120 ccdev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checkpoint lwcc development - preprocessor is runnable but nonfunctional The preprocessor is currently runnable but doesn't actually do anything useful. This is just a checkpoint.
author William Astle <lost@l-w.ca>
date Tue, 17 Sep 2013 19:33:41 -0600
parents
children
comparison
equal deleted inserted replaced
303:659e0e4ce50c 304:d85d173ba120
1 /*
2 lwcc/strpool.c
3
4 Copyright © 2013 William Astle
5
6 This file is part of LWTOOLS.
7
8 LWTOOLS is free software: you can redistribute it and/or modify it under the
9 terms of the GNU General Public License as published by the Free Software
10 Foundation, either version 3 of the License, or (at your option) any later
11 version.
12
13 This program is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 more details.
17
18 You should have received a copy of the GNU General Public License along with
19 this program. If not, see <http://www.gnu.org/licenses/>.
20 */
21
22 #include <stdlib.h>
23 #include <string.h>
24
25 #include <lw_alloc.h>
26 #include <lw_string.h>
27
28 #include "strpool.h"
29
30 struct strpool *strpool_create(void)
31 {
32 struct strpool *sp;
33
34 sp = lw_alloc(sizeof(struct strpool));
35 sp -> nstrs = 0;
36 sp -> strs = NULL;
37 return sp;
38 }
39
40 extern void strpool_free(struct strpool *sp)
41 {
42 int i;
43
44 for (i = 0; i < sp -> nstrs; i++)
45 lw_free(sp -> strs[i]);
46 lw_free(sp -> strs);
47 lw_free(sp);
48 }
49
50 char *strpool_strdup(struct strpool *sp, const char *s)
51 {
52 int i;
53
54 if (!s)
55 return NULL;
56
57 /* first do a fast scan for a pointer match */
58 for (i = 0; i < sp -> nstrs; i++)
59 if (sp -> strs[i] == s)
60 return sp -> strs[i];
61
62 /* no match - do a slow scan for a string match */
63 for (i = 0; i < sp -> nstrs; i++)
64 if (strcmp(sp -> strs[i], s) == 0)
65 return sp -> strs[i];
66
67 /* no match - create a new string entry */
68 sp -> strs = lw_realloc(sp -> strs, sizeof(char *) * (sp -> nstrs + 1));
69 sp -> strs[sp -> nstrs] = lw_strdup(s);
70 sp -> nstrs++;
71 return sp -> strs[sp -> nstrs - 1];
72 }