2 * Copyright 1993-2002 Christopher Seiwald and Perforce Software, Inc.
4 * This file is part of Jam - see jam.c for Copyright information.
7 * variable.c - handle jam multi-element variables
11 * var_defines() - load a bunch of variable=value settings
12 * var_string() - expand a string with variables in it
13 * var_get() - get value of a user defined symbol
14 * var_set() - set a variable in jam's user defined symbol table
15 * var_swap() - swap a variable's value with the given one
16 * var_done() - free variable tables
20 * var_enter() - make new var symbol table entry, returning var ptr
21 * var_dump() - dump a variable to stdout
23 * 04/13/94 (seiwald) - added shorthand L0 for null list pointer
24 * 08/23/94 (seiwald) - Support for '+=' (append to variable)
25 * 01/22/95 (seiwald) - split environment variables at blanks or :'s
26 * 05/10/95 (seiwald) - split path variables at SPLITPATH (not :)
27 * 09/11/00 (seiwald) - defunct var_list() removed
28 * 10/22/02 (seiwald) - list_new() now does its own newstr()/copystr()
29 * 11/04/02 (seiwald) - const-ing for string literals
38 #include "matchglob.h"
41 static struct hash
*varhash
= NULL
;
45 * VARIABLE - a user defined multi-value variable
48 typedef struct _variable VARIABLE
;
56 * var_dump() - dump a variable to stdout
58 static void var_dump (const char *symbol
, LIST
*value
, const char *what
) {
59 printf("%s %s = ", what
, symbol
);
66 * var_enter() - make new var symbol table entry, returning var ptr
68 static VARIABLE
*var_enter (const char *symbol
) {
69 VARIABLE var
, *v
= &var
;
71 if (!varhash
) varhash
= hashinit(sizeof(VARIABLE
), "variables");
74 if (hashenter(varhash
, (HASHDATA
**)&v
)) v
->symbol
= newstr(symbol
); /* never freed */
79 /* case-insensitive */
80 static inline int globhit (const char *list
[], const char *str
) {
81 for (; *list
; ++list
) {
82 //fprintf(stderr, "[%s]:[%s]:%d\n", *list, str, matchglobex(*list, str, 0));
83 if (matchglobex(*list
, str
, 0) == 0) return 1;
92 void var_defines (const char **e
, int dontignore
) {
93 static const char *pathsplits
[] = {
99 static const char *varignores
[] = {
102 "LS_*", /* various options for ls */
109 //fprintf(stderr, "---\n");
112 //fprintf(stderr, "[%s]\n", *e);
113 /* just say "no": windows defines this in the env, but we don't want it to override our notion of OS */
114 if (!strcmp(*e
, "OS=Windows_NT")) continue;
115 /* Just say "no": on Unix, variables can contain function
116 * definitions. their value begins with "()"
118 if ((val
= strchr(*e
, '=')) && val
[1] == '(' && val
[2] == ')') continue;
119 if ((val
= strchr(*e
, '='))) {
125 strncpy(buf
, *e
, val
-*e
);
127 if (!dontignore
&& globhit(varignores
, buf
)) {
129 //fprintf(stderr, "IGN: [%s]\n", buf);
132 /* split *PATH at :'s, not spaces */
134 if (globhit(pathsplits
, buf
)) {
135 //fprintf(stderr, "PATH: [%s]\n", buf);
137 (buf
[0]=='l'||buf
[0]=='L')&&(buf
[1]=='u'||buf
[1]=='U') ? ';' /* special for LUA_XXX */
142 for (pp
= val
+1; (p
= strchr(pp
, split
)); pp
= p
+1) {
145 if (len
>= sizeof(buf
)) len
= sizeof(buf
)-1;
146 if (len
< 1) continue; /* ignore empty elements */
147 strncpy(buf
, pp
, len
);
149 //fprintf(stderr, " [%s]\n", buf);
150 l
= list_new(l
, buf
, 0);
153 strncpy(buf
, *e
, val
-*e
);
155 l
= list_new(l
, pp
, 0);
156 var_set(buf
, l
, VAR_SET
);
165 int var_string (const char *in
, tKString
*out
, LOL
*lol
, char separator
) {
166 int osz
= kStringLen(out
), lwpos
;
172 /* copy white space */
174 while (isspace(*in
)) ++in
;
175 kStringAppendRange(out
, st
, in
);
177 lwpos
= kStringLen(out
);
178 /* copy non-white space, watching for variables */
180 while (*in
&& !isspace(*in
)) {
181 if (in
[0] == '$' && in
[1] == '(') ++dollar
;
184 kStringAppendRange(out
, st
, in
);
185 /* if a variable encountered, expand it and and embed the space-separated members of the list in the output */
187 LIST
*l
= var_expand(L0
, kStringCStr(out
)+lwpos
, kStringCStr(out
)+kStringLen(out
), lol
, 0), *hd
= l
;
188 kStringTruncate(out
, lwpos
);
190 kStringAppendCStr(out
, l
->string
);
191 /* separate with space */
192 if ((l
= list_next(l
)) != NULL
) kStringPushBack(out
, separator
);
197 return kStringLen(out
)-osz
;
204 LIST
*var_get (const char *symbol
) {
205 VARIABLE var
, *v
= &var
;
208 if (varhash
&& hashcheck(varhash
, (HASHDATA
**)&v
)) {
209 if (DEBUG_VARGET
) var_dump(v
->symbol
, v
->value
, "get");
219 void var_set (const char *symbol
, LIST
*value
, int flag
) {
220 VARIABLE
*v
= var_enter(symbol
);
222 if (DEBUG_VARSET
) var_dump(symbol
, value
, "set");
231 v
->value
= list_append(v
->value
, value
);
234 /* Remove all values */
235 v
->value
= list_removeall(v
->value
, value
);
239 /* Set only if unset */
240 if (!v
->value
) v
->value
= value
; else list_free(value
);
249 LIST
*var_swap (const char *symbol
, LIST
*value
) {
250 VARIABLE
*v
= var_enter(symbol
);
251 LIST
*oldvalue
= v
->value
;
253 if (DEBUG_VARSET
) var_dump(symbol
, value
, "set");
262 void var_done (void) {