window(1): Remove __RCSID & friends.
[dragonfly.git] / usr.bin / window / parser3.c
CommitLineData
2c872e05 1/* @(#)parser3.c 8.1 (Berkeley) 6/6/93 */
abecab39
SW
2/* $NetBSD: parser3.c,v 1.6 2003/08/07 11:17:28 agc 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
39/*
40 * =
41 * ? :
42 * ||
43 * &&
44 * |
45 * ^
46 * &
47 * == !=
48 * <= >=
49 * << >>
50 * + -
51 * * / %
52 * unary - + ~ !
53 */
abecab39
SW
54int
55p_expr(struct value *v, char flag)
984263bc
MD
56{
57 struct value t;
58 int ret;
59
60 if (p_expr0(&t, flag) < 0)
61 return -1;
62
63 if (token != T_ASSIGN) {
64 *v = t;
65 return 0;
66 }
67 switch (t.v_type) {
68 case V_NUM:
69 p_error("%d: Not a variable.", t.v_num);
70 case V_ERR:
71 t.v_str = 0;
72 break;
73 }
74 ret = p_assign(t.v_str, v, flag);
75 if (t.v_str != 0)
76 str_free(t.v_str);
77 return ret;
78}
79
80/*
81 * ? :
82 */
abecab39
SW
83int
84p_expr0(struct value *v, char flag)
984263bc
MD
85{
86 struct value t;
abecab39 87 char true = 0;
984263bc
MD
88
89 if (p_expr1(v, flag) < 0)
90 return -1;
91 if (token != T_QUEST)
92 return 0;
93 switch (v->v_type) {
94 case V_NUM:
95 true = v->v_num != 0;
96 break;
97 case V_STR:
98 p_error("?: Numeric left operand required.");
99 str_free(v->v_str);
100 v->v_type = V_ERR;
101 case V_ERR:
102 flag = 0;
103 break;
104 }
105 (void) s_gettok();
106 v->v_type = V_ERR;
107 if ((flag && true ? p_expr1(v, 1) : p_expr1(&t, 0)) < 0)
108 return -1;
109 if (token != T_COLON) {
110 val_free(*v);
111 p_synerror();
112 return -1;
113 }
114 (void) s_gettok();
115 return flag && !true ? p_expr1(v, 1) : p_expr1(&t, 0);
116}
117
118/*
119 * ||
120 */
abecab39
SW
121int
122p_expr1(struct value *v, char flag)
984263bc
MD
123{
124 char true = 0;
125
126 if (p_expr2(v, flag) < 0)
127 return -1;
128 if (token != T_OROR)
129 return 0;
130 for (;;) {
131 switch (v->v_type) {
132 case V_NUM:
133 v->v_num = true = true || v->v_num != 0;
134 break;
135 case V_STR:
136 p_error("||: Numeric operands required.");
137 str_free(v->v_str);
138 v->v_type = V_ERR;
139 case V_ERR:
140 flag = 0;
141 break;
142 }
143 if (token != T_OROR)
144 return 0;
145 (void) s_gettok();
146 if (p_expr2(v, flag && !true) < 0)
147 return -1;
148 }
149}
150
151/*
152 * &&
153 */
abecab39
SW
154int
155p_expr2(struct value *v, char flag)
984263bc
MD
156{
157 char true = 1;
158
159 if (p_expr3_10(3, v, flag) < 0)
160 return -1;
161 if (token != T_ANDAND)
162 return 0;
163 for (;;) {
164 switch (v->v_type) {
165 case V_NUM:
166 v->v_num = true = true && v->v_num != 0;
167 break;
168 case V_STR:
169 p_error("&&: Numeric operands required.");
170 str_free(v->v_str);
171 v->v_type = V_ERR;
172 case V_ERR:
173 flag = 0;
174 break;
175 }
176 if (token != T_ANDAND)
177 return 0;
178 (void) s_gettok();
179 if (p_expr3_10(3, v, flag && true) < 0)
180 return -1;
181 }
182 /*NOTREACHED*/
183}