Annotation of src/usr.bin/window/var.c, Revision 1.5
1.5 ! millert 1: /* $OpenBSD: var.c,v 1.4 2001/11/19 19:02:18 mpech Exp $ */
1.1 deraadt 2: /* $NetBSD: var.c,v 1.4 1995/09/28 10:35:01 tls Exp $ */
3:
4: /*
5: * Copyright (c) 1983, 1993
6: * The Regents of the University of California. All rights reserved.
7: *
8: * This code is derived from software contributed to Berkeley by
9: * Edward Wang at The University of California, Berkeley.
10: *
11: * Redistribution and use in source and binary forms, with or without
12: * modification, are permitted provided that the following conditions
13: * are met:
14: * 1. Redistributions of source code must retain the above copyright
15: * notice, this list of conditions and the following disclaimer.
16: * 2. Redistributions in binary form must reproduce the above copyright
17: * notice, this list of conditions and the following disclaimer in the
18: * documentation and/or other materials provided with the distribution.
1.5 ! millert 19: * 3. Neither the name of the University nor the names of its contributors
1.1 deraadt 20: * may be used to endorse or promote products derived from this software
21: * without specific prior written permission.
22: *
23: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33: * SUCH DAMAGE.
34: */
35:
36: #ifndef lint
37: #if 0
38: static char sccsid[] = "@(#)var.c 8.1 (Berkeley) 6/6/93";
39: #else
1.5 ! millert 40: static char rcsid[] = "$OpenBSD: var.c,v 1.4 2001/11/19 19:02:18 mpech Exp $";
1.1 deraadt 41: #endif
42: #endif /* not lint */
43:
44: #include "value.h"
45: #include "var.h"
46: #include "string.h"
47: #include <stdlib.h>
48:
49: struct var *
50: var_set1(head, name, v)
51: struct var **head;
52: char *name;
53: struct value *v;
54: {
1.4 mpech 55: struct var **p;
56: struct var *r;
1.1 deraadt 57: struct value val;
58:
59: /* do this first, easier to recover */
60: val = *v;
61: if (val.v_type == V_STR && val.v_str != 0 &&
62: (val.v_str = str_cpy(val.v_str)) == 0)
63: return 0;
64: if (*(p = var_lookup1(head, name)) == 0) {
65: r = (struct var *) malloc(sizeof (struct var));
66: if (r == 0) {
67: val_free(val);
68: return 0;
69: }
70: if ((r->r_name = str_cpy(name)) == 0) {
71: val_free(val);
72: free((char *) r);
73: return 0;
74: }
75: r->r_left = r->r_right = 0;
76: *p = r;
77: } else {
78: r = *p;
79: val_free(r->r_val);
80: }
81: r->r_val = val;
82: return r;
83: }
84:
85: struct var *
86: var_setstr1(head, name, str)
87: struct var **head;
88: char *name;
89: char *str;
90: {
91: struct value v;
92:
93: v.v_type = V_STR;
94: v.v_str = str;
95: return var_set1(head, name, &v);
96: }
97:
98: struct var *
99: var_setnum1(head, name, num)
100: struct var **head;
101: char *name;
102: int num;
103: {
104: struct value v;
105:
106: v.v_type = V_NUM;
107: v.v_num = num;
108: return var_set1(head, name, &v);
109: }
110:
111: var_unset1(head, name)
112: struct var **head;
113: char *name;
114: {
1.4 mpech 115: struct var **p;
116: struct var *r;
1.1 deraadt 117:
118: if (*(p = var_lookup1(head, name)) == 0)
119: return -1;
120: r = *p;
121: *p = r->r_left;
122: while (*p != 0)
123: p = &(*p)->r_right;
124: *p = r->r_right;
125: val_free(r->r_val);
126: str_free(r->r_name);
127: free((char *) r);
128: return 0;
129: }
130:
131: struct var **
132: var_lookup1(p, name)
1.4 mpech 133: struct var **p;
134: char *name;
1.1 deraadt 135: {
1.4 mpech 136: int cmp;
1.1 deraadt 137:
138: while (*p != 0) {
139: if ((cmp = strcmp(name, (*p)->r_name)) < 0)
140: p = &(*p)->r_left;
141: else if (cmp > 0)
142: p = &(*p)->r_right;
143: else
144: break;
145: }
146: return p;
147: }
148:
149: var_walk1(r, func, a)
1.4 mpech 150: struct var *r;
1.1 deraadt 151: int (*func)();
152: long a;
153: {
154: if (r == 0)
155: return 0;
156: if (var_walk1(r->r_left, func, a) < 0 || (*func)(a, r) < 0
157: || var_walk1(r->r_right, func, a) < 0)
158: return -1;
159: return 0;
160: }