window(1): Remove __RCSID & friends.
[dragonfly.git] / usr.bin / window / parser5.c
CommitLineData
2c872e05 1/* @(#)parser5.c 8.1 (Berkeley) 6/6/93 */
abecab39
SW
2/* $NetBSD: parser5.c,v 1.7 2009/04/14 08:50:06 lukem Exp $ */
3
984263bc
MD
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.
abecab39 19 * 3. Neither the name of the University nor the names of its contributors
984263bc
MD
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
abecab39 36#include "defs.h"
984263bc
MD
37#include "parser.h"
38#include "var.h"
39
40/*
41 * unary $ $? + - ! ~
42 */
abecab39
SW
43int
44p_expr11(struct value *v, char flag)
984263bc
MD
45{
46 int op;
abecab39 47 const char *opname;
984263bc
MD
48
49 switch (token) {
50 case T_DOLLAR:
51 opname = "$";
52 break;
53 case T_DQ:
54 opname = "$?";
55 break;
56 case T_PLUS:
57 opname = "unary +";
58 break;
59 case T_MINUS:
60 opname = "unary -";
61 break;
62 case T_NOT:
63 opname = "!";
64 break;
65 case T_COMP:
66 opname = "~";
67 break;
68 default:
69 return p_expr12(v, flag);
70 }
71 op = token;
72 (void) s_gettok();
73 if (p_expr11(v, flag) < 0)
74 return -1;
75 switch (v->v_type) {
76 case V_NUM:
77 break;
78 case V_STR:
79 switch (op) {
80 case T_MINUS:
81 case T_NOT:
82 case T_COMP:
83 p_error("%s: Numeric operand required.", opname);
84 str_free(v->v_str);
85 v->v_type = V_ERR;
86 return 0;
87 }
88 break;
89 case V_ERR:
90 return 0;
91 }
92 switch (op) {
93 case T_DOLLAR:
94 case T_DQ:
95 if (v->v_type == V_NUM) {
96 int tmp = cx.x_type == X_BUF && cx.x_arg != 0 &&
97 v->v_num > 0 && v->v_num <= cx.x_narg;
98 if (op == T_DQ)
99 v->v_num = tmp;
100 else if (tmp)
101 *v = cx.x_arg[v->v_num - 1];
102 else {
103 p_error("%d: No such argument.", v->v_num);
104 v->v_type = V_ERR;
105 }
106 } else {
107 char *name = v->v_str;
108 struct var *r = var_lookup(name);
109 if (op == T_DQ) {
110 v->v_type = V_NUM;
111 v->v_num = r != 0;
112 } else if (r != 0)
113 *v = r->r_val;
114 else {
115 p_error("%s: Undefined variable.", name);
116 v->v_type = V_ERR;
117 }
118 str_free(name);
119 }
120 if (v->v_type == V_STR && (v->v_str = str_cpy(v->v_str)) == 0) {
121 p_memerror();
122 return -1;
123 }
124 break;
125 case T_MINUS:
126 v->v_num = - v->v_num;
127 break;
128 case T_NOT:
129 v->v_num = ! v->v_num;
130 break;
131 case T_COMP:
132 v->v_num = ~ v->v_num;
133 break;
134 }
135 return 0;
136}
137
138/*
139 * string, number, ( expr )
140 * Plus function calls.
141 *
142 * Always return v_type == V_ERR when flag == 0.
143 */
abecab39
SW
144int
145p_expr12(struct value *v, char flag)
984263bc
MD
146{
147 v->v_type = V_ERR;
148 switch (token) {
149 case T_NUM:
150 if (flag) {
151 v->v_type = V_NUM;
152 v->v_num = token_num;
153 }
154 (void) s_gettok();
155 break;
156 case T_STR:
157 if (flag) {
158 v->v_type = V_STR;
159 v->v_str = token_str;
160 } else
161 str_free(token_str);
162 (void) s_gettok();
163 break;
164 case T_LP:
165 (void) s_gettok();
166 if (p_expr(v, flag) < 0) {
167 p_synerror();
168 return -1;
169 }
170 if (token != T_RP) {
171 p_synerror();
172 val_free(*v);
173 return -1;
174 }
175 (void) s_gettok();
176 break;
177 default:
178 return -1;
179 }
180 while (token == T_LP) {
181 char *cmd;
182
183 if (p_convstr(v) < 0)
184 return -1;
185 cmd = v->v_type == V_STR ? v->v_str : 0;
186 if (p_function(cmd, v, flag) < 0) {
187 if (cmd)
188 str_free(cmd);
189 return -1;
190 }
191 if (cmd)
192 str_free(cmd);
193 }
194 return 0;
195}