Line data Source code
1 : /* $OpenBSD: db_expr.c,v 1.14 2017/08/10 19:39:38 mpi Exp $ */
2 : /* $NetBSD: db_expr.c,v 1.5 1996/02/05 01:56:58 christos Exp $ */
3 :
4 : /*
5 : * Mach Operating System
6 : * Copyright (c) 1993,1992,1991,1990 Carnegie Mellon University
7 : * All Rights Reserved.
8 : *
9 : * Permission to use, copy, modify and distribute this software and its
10 : * documentation is hereby granted, provided that both the copyright
11 : * notice and this permission notice appear in all copies of the
12 : * software, derivative works or modified versions, and any portions
13 : * thereof, and that both notices appear in supporting documentation.
14 : *
15 : * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
16 : * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
17 : * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
18 : *
19 : * Carnegie Mellon requests users of this software to return to
20 : *
21 : * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
22 : * School of Computer Science
23 : * Carnegie Mellon University
24 : * Pittsburgh PA 15213-3890
25 : *
26 : * any improvements or extensions that they make and grant Carnegie Mellon
27 : * the rights to redistribute these changes.
28 : *
29 : * Author: David B. Golub, Carnegie Mellon University
30 : * Date: 7/90
31 : */
32 :
33 : #include <sys/param.h>
34 :
35 : #include <machine/db_machdep.h>
36 :
37 : #include <ddb/db_lex.h>
38 : #include <ddb/db_access.h>
39 : #include <ddb/db_command.h>
40 : #include <ddb/db_sym.h>
41 : #include <ddb/db_extern.h>
42 : #include <ddb/db_variables.h>
43 :
44 : boolean_t db_term(db_expr_t *);
45 : boolean_t db_unary(db_expr_t *);
46 : boolean_t db_mult_expr(db_expr_t *);
47 : boolean_t db_add_expr(db_expr_t *);
48 : boolean_t db_shift_expr(db_expr_t *);
49 :
50 : boolean_t
51 0 : db_term(db_expr_t *valuep)
52 : {
53 : int t;
54 :
55 0 : t = db_read_token();
56 0 : if (t == tIDENT) {
57 0 : if (db_symbol_by_name(db_tok_string, valuep) == NULL) {
58 0 : db_error("Symbol not found\n");
59 : /*NOTREACHED*/
60 0 : }
61 0 : return (TRUE);
62 : }
63 0 : if (t == tNUMBER) {
64 0 : *valuep = db_tok_number;
65 0 : return (TRUE);
66 : }
67 0 : if (t == tDOT) {
68 0 : *valuep = (db_expr_t)db_dot;
69 0 : return (TRUE);
70 : }
71 0 : if (t == tDOTDOT) {
72 0 : *valuep = (db_expr_t)db_prev;
73 0 : return (TRUE);
74 : }
75 0 : if (t == tPLUS) {
76 0 : *valuep = (db_expr_t) db_next;
77 0 : return (TRUE);
78 : }
79 0 : if (t == tDITTO) {
80 0 : *valuep = (db_expr_t)db_last_addr;
81 0 : return (TRUE);
82 : }
83 0 : if (t == tDOLLAR) {
84 0 : if (!db_get_variable(valuep))
85 0 : return (FALSE);
86 0 : return (TRUE);
87 : }
88 0 : if (t == tLPAREN) {
89 0 : if (!db_expression(valuep)) {
90 0 : db_error("Syntax error\n");
91 : /*NOTREACHED*/
92 0 : }
93 0 : t = db_read_token();
94 0 : if (t != tRPAREN) {
95 0 : db_error("Syntax error\n");
96 : /*NOTREACHED*/
97 0 : }
98 0 : return (TRUE);
99 : }
100 0 : db_unread_token(t);
101 0 : return (FALSE);
102 0 : }
103 :
104 : boolean_t
105 0 : db_unary(db_expr_t *valuep)
106 : {
107 : int t;
108 :
109 0 : t = db_read_token();
110 0 : if (t == tMINUS) {
111 0 : if (!db_unary(valuep)) {
112 0 : db_error("Syntax error\n");
113 : /*NOTREACHED*/
114 0 : }
115 0 : *valuep = -*valuep;
116 0 : return (TRUE);
117 : }
118 0 : if (t == tSTAR) {
119 : /* indirection */
120 0 : if (!db_unary(valuep)) {
121 0 : db_error("Syntax error\n");
122 : /*NOTREACHED*/
123 0 : }
124 0 : *valuep = db_get_value((db_addr_t)*valuep, sizeof(db_addr_t), FALSE);
125 0 : return (TRUE);
126 : }
127 0 : db_unread_token(t);
128 0 : return (db_term(valuep));
129 0 : }
130 :
131 : boolean_t
132 0 : db_mult_expr(db_expr_t *valuep)
133 : {
134 0 : db_expr_t lhs, rhs;
135 : int t;
136 :
137 0 : if (!db_unary(&lhs))
138 0 : return (FALSE);
139 :
140 0 : t = db_read_token();
141 0 : while (t == tSTAR || t == tSLASH || t == tPCT || t == tHASH) {
142 0 : if (!db_term(&rhs)) {
143 0 : db_error("Syntax error\n");
144 : /*NOTREACHED*/
145 0 : }
146 0 : if (t == tSTAR)
147 0 : lhs *= rhs;
148 : else {
149 0 : if (rhs == 0) {
150 0 : db_error("Divide by 0\n");
151 : /*NOTREACHED*/
152 0 : }
153 0 : if (t == tSLASH)
154 0 : lhs /= rhs;
155 0 : else if (t == tPCT)
156 0 : lhs %= rhs;
157 : else
158 0 : lhs = ((lhs+rhs-1)/rhs)*rhs;
159 : }
160 0 : t = db_read_token();
161 : }
162 0 : db_unread_token(t);
163 0 : *valuep = lhs;
164 0 : return (TRUE);
165 0 : }
166 :
167 : boolean_t
168 0 : db_add_expr(db_expr_t *valuep)
169 : {
170 0 : db_expr_t lhs, rhs;
171 : int t;
172 :
173 0 : if (!db_mult_expr(&lhs))
174 0 : return (FALSE);
175 :
176 0 : t = db_read_token();
177 0 : while (t == tPLUS || t == tMINUS) {
178 0 : if (!db_mult_expr(&rhs)) {
179 0 : db_error("Syntax error\n");
180 : /*NOTREACHED*/
181 0 : }
182 0 : if (t == tPLUS)
183 0 : lhs += rhs;
184 : else
185 0 : lhs -= rhs;
186 0 : t = db_read_token();
187 : }
188 0 : db_unread_token(t);
189 0 : *valuep = lhs;
190 0 : return (TRUE);
191 0 : }
192 :
193 : boolean_t
194 0 : db_shift_expr(db_expr_t *valuep)
195 : {
196 0 : db_expr_t lhs, rhs;
197 : int t;
198 :
199 0 : if (!db_add_expr(&lhs))
200 0 : return (FALSE);
201 :
202 0 : t = db_read_token();
203 0 : while (t == tSHIFT_L || t == tSHIFT_R) {
204 0 : if (!db_add_expr(&rhs)) {
205 0 : db_error("Syntax error\n");
206 : /*NOTREACHED*/
207 0 : }
208 0 : if (rhs < 0) {
209 0 : db_error("Negative shift amount\n");
210 : /*NOTREACHED*/
211 0 : }
212 0 : if (t == tSHIFT_L)
213 0 : lhs <<= rhs;
214 : else {
215 : /* Shift right is unsigned */
216 0 : lhs = (unsigned) lhs >> rhs;
217 : }
218 0 : t = db_read_token();
219 : }
220 0 : db_unread_token(t);
221 0 : *valuep = lhs;
222 0 : return (TRUE);
223 0 : }
224 :
225 : int
226 0 : db_expression(db_expr_t *valuep)
227 : {
228 0 : return (db_shift_expr(valuep));
229 : }
|
