Mercurial > hg > index.cgi

comparison lwlib/lw_dict.c @ 519:724bcc4508bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add SETSTR/INCLUDESTR for some basic code building It seemed useful to have the ability to build up a variable containing arbitrary text and then to be able to include that in the assembly process like an include file. So add, undocumented for now, the following: SETTSTR varname="string" INCLUDESTSR "string" "string" must be enclosed in double quotes and may contain most of the usual escape sequences (\t, \r, etc.) as well as %(varname) to interpolate a variable value. To use it to create assembleable source code, you need to make sure it creates lines (ended by either \r or \n) with appropriate whitespace in appropriate places.
author William Astle <lost@l-w.ca>
date Sun, 19 Dec 2021 17:01:42 -0700
parents
children
comparison
equal deleted inserted replaced
518:b530ff19f7c0 519:724bcc4508bc
1 /*
2 lw_dict.c
3
4 Copyright © 2021 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 #define ___lw_dict_c_seen___
26 #include "lw_dict.h"
27 #include "lw_string.h"
28 #include "lw_alloc.h"
29
30 lw_dict_t lw_dict_create(void)
31 {
32 lw_dict_t s;
33
34
35 s = lw_alloc(sizeof(struct lw_dict_priv));
36 s -> head = NULL;
37 return s;
38 }
39
40 void lw_dict_unset(lw_dict_t S, char *key)
41 {
42 struct lw_dict_ent *e1, *e2;
43
44 for (e2 = NULL, e1 = S -> head; e1; )
45 {
46 if (strcmp(key, e1 -> key) == 0)
47 break;
48 e2 = e1;
49 e1 = e1 -> next;
50 }
51 if (!e1)
52 return;
53 if (!e2)
54 S -> head = e1 -> next;
55 else
56 e2 -> next = e1 -> next;
57 lw_free(e1 -> key);
58 lw_free(e1 -> value);
59 lw_free(e1);
60 }
61
62 void lw_dict_destroy(lw_dict_t S)
63 {
64 if (S)
65 {
66 while (S -> head)
67 lw_dict_unset(S, S -> head -> key);
68 lw_free(S);
69 }
70 }
71
72 char *lw_dict_get(lw_dict_t S, char *key)
73 {
74 struct lw_dict_ent *e1;
75
76 for (e1 = S -> head; e1; e1 = e1 -> next)
77 if (strcmp(key, e1 -> key) == 0)
78 break;
79 if (e1)
80 return e1 -> value;
81 return "";
82 }
83
84 void lw_dict_set(lw_dict_t S, char *key, char *value)
85 {
86 struct lw_dict_ent *e1;
87
88 for (e1 = S -> head; e1; e1 = e1 -> next)
89 {
90 if (strcmp(key, e1 -> key) == 0)
91 {
92 lw_free(e1 -> value);
93 e1 -> value = lw_strdup(value);
94 return;
95 }
96 }
97
98 e1 = lw_alloc(sizeof(struct lw_dict_ent));
99 e1 -> next = S -> head;
100 S -> head = e1;
101 e1 -> key = lw_strdup(key);
102 e1 -> value = lw_strdup(value);
103 }
104
105 lw_dict_t lw_dict_copy(lw_dict_t S)
106 {
107 lw_dict_t R;
108 struct lw_dict_ent *e1;
109
110 R = lw_dict_create();
111 for (e1 = S -> head; e1; e1 = e1 -> next)
112 lw_dict_set(R, e1 -> key, e1 -> value);
113 return R;
114 }