![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to parser2.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / window|
Return to parser2.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / window |
1.1 root 1: /*
2: * Copyright (c) 1983 Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted
6: * provided that the above copyright notice and this paragraph are
7: * duplicated in all such forms and that any documentation,
8: * advertising materials, and other materials related to such
9: * distribution and use acknowledge that the software was developed
10: * by the University of California, Berkeley. The name of the
11: * University may not be used to endorse or promote products derived
12: * from this software without specific prior written permission.
13: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15: * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16: */
17:
18: #ifndef lint
19: static char sccsid[] = "@(#)parser2.c 3.12 (Berkeley) 6/29/88";
20: #endif /* not lint */
21:
22: #include "parser.h"
23: #include "var.h"
24: #include "lcmd.h"
25: #include "alias.h"
26:
27: /*
28: * name == 0 means we don't have a function name but
29: * want to parse the arguments anyway. flag == 0 in this case.
30: */
31: p_function(name, v, flag)
32: char *name;
33: register struct value *v;
34: {
35: struct value t;
36: register struct lcmd_tab *c = 0;
37: register struct alias *a = 0;
38: register struct lcmd_arg *ap; /* this arg */
39: struct lcmd_arg *lp = 0; /* list arg */
40: register i;
41: struct value av[LCMD_NARG + 1];
42: register struct value *vp;
43:
44: if (name != 0)
45: if (c = lcmd_lookup(name))
46: name = c->lc_name;
47: else if (a = alias_lookup(name))
48: name = a->a_name;
49: else {
50: p_error("%s: No such command or alias.", name);
51: flag = 0;
52: }
53:
54: for (vp = av; vp < &av[LCMD_NARG + 1]; vp++)
55: vp->v_type = V_ERR;
56:
57: if (token == T_LP)
58: (void) s_gettok();
59: i = 0;
60: for (;;) {
61: ap = 0;
62: vp = 0;
63: if (token == T_COMMA) /* null argument */
64: t.v_type = V_ERR;
65: else {
66: if (p_expr0(&t, flag) < 0)
67: break;
68: if (t.v_type == V_ERR)
69: flag = 0;
70: }
71: if (token != T_ASSIGN) {
72: if (i >= LCMD_NARG ||
73: c != 0 && (ap = lp) == 0 &&
74: (ap = c->lc_arg + i)->arg_name == 0) {
75: p_error("%s: Too many arguments.", name);
76: flag = 0;
77: } else
78: vp = &av[i++];
79: } else {
80: char *tmp;
81: if (p_convstr(&t) < 0)
82: goto abort;
83: tmp = t.v_type == V_STR ? t.v_str : 0;
84: (void) s_gettok();
85: if (p_expr(&t, flag) < 0) {
86: if (tmp)
87: str_free(tmp);
88: p_synerror();
89: goto abort;
90: }
91: if (t.v_type == V_ERR)
92: flag = 0;
93: if (tmp) {
94: if (c == 0) {
95: /* an aliase */
96: p_error("%s: Bad alias syntax.", name);
97: flag = 0;
98: } else {
99: for (ap = c->lc_arg, vp = av;
100: ap != 0 && ap->arg_name != 0 &&
101: (*ap->arg_name == '\0' ||
102: !str_match(tmp, ap->arg_name,
103: ap->arg_minlen));
104: ap++, vp++)
105: ;
106: if (ap == 0 || ap->arg_name == 0) {
107: p_error("%s: Unknown argument \"%s\".",
108: name, tmp);
109: flag = 0;
110: ap = 0;
111: vp = 0;
112: }
113: }
114: str_free(tmp);
115: }
116: }
117: if (ap != 0) {
118: if (ap->arg_flags & ARG_LIST) {
119: i = vp - av + 1;
120: lp = ap;
121: }
122: if (vp->v_type != V_ERR) {
123: if (*ap->arg_name)
124: p_error("%s: Argument %d (%s) duplicated.",
125: name, vp - av + 1,
126: ap->arg_name);
127: else
128: p_error("%s: Argument %d duplicated.",
129: name, vp - av + 1);
130: flag = 0;
131: vp = 0;
132: } else if (t.v_type == V_ERR) {
133: /* do nothing */
134: } else if ((ap->arg_flags&ARG_TYPE) == ARG_NUM &&
135: t.v_type != V_NUM ||
136: (ap->arg_flags&ARG_TYPE) == ARG_STR &&
137: t.v_type != V_STR) {
138: if (*ap->arg_name)
139: p_error("%s: Argument %d (%s) type mismatch.",
140: name, vp - av + 1,
141: ap->arg_name);
142: else
143: p_error("%s: Argument %d type mismatch.",
144: name, vp - av + 1);
145: flag = 0;
146: vp = 0;
147: }
148: }
149: if (vp != 0)
150: *vp = t;
151: else
152: val_free(t);
153: if (token == T_COMMA)
154: (void) s_gettok();
155: }
156:
157: if (p_erred())
158: flag = 0;
159: if (token == T_RP)
160: (void) s_gettok();
161: else if (token != T_EOL && token != T_EOF)
162: flag = 0; /* look for legal follow set */
163: v->v_type = V_ERR;
164: if (flag)
165: if (c != 0)
166: (*c->lc_func)(v, av);
167: else
168: if (a->a_flags & A_INUSE)
169: p_error("%s: Recursive alias.", a->a_name);
170: else {
171: a->a_flags |= A_INUSE;
172: if (dolongcmd(a->a_buf, av, i) < 0)
173: p_memerror();
174: a->a_flags &= ~A_INUSE;
175: }
176: if (p_abort()) {
177: val_free(*v);
178: v->v_type = V_ERR;
179: goto abort;
180: }
181: for (vp = av; vp < &av[LCMD_NARG]; vp++)
182: val_free(*vp);
183: return 0;
184: abort:
185: for (vp = av; vp < &av[LCMD_NARG]; vp++)
186: val_free(*vp);
187: return -1;
188: }
189:
190: p_assign(name, v, flag)
191: char *name;
192: struct value *v;
193: char flag;
194: {
195: (void) s_gettok();
196:
197: if (p_expr(v, flag) < 0) {
198: p_synerror();
199: return -1;
200: }
201: switch (v->v_type) {
202: case V_STR:
203: case V_NUM:
204: if (flag && var_set(name, v) == 0) {
205: p_memerror();
206: val_free(*v);
207: return -1;
208: }
209: break;
210: }
211: return 0;
212: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.