db_expr.c revision 4
1235633Sdim/* 2218885Sdim * Mach Operating System 3218885Sdim * Copyright (c) 1991,1990 Carnegie Mellon University 4218885Sdim * All Rights Reserved. 5218885Sdim * 6218885Sdim * Permission to use, copy, modify and distribute this software and its 7218885Sdim * documentation is hereby granted, provided that both the copyright 8218885Sdim * notice and this permission notice appear in all copies of the 9218885Sdim * software, derivative works or modified versions, and any portions 10218885Sdim * thereof, and that both notices appear in supporting documentation. 11218885Sdim * 12218885Sdim * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS 13218885Sdim * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR 14218885Sdim * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. 15218885Sdim * 16218885Sdim * Carnegie Mellon requests users of this software to return to 17218885Sdim * 18218885Sdim * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU 19218885Sdim * School of Computer Science 20218885Sdim * Carnegie Mellon University 21218885Sdim * Pittsburgh PA 15213-3890 22218885Sdim * 23218885Sdim * any improvements or extensions that they make and grant Carnegie the 24218885Sdim * rights to redistribute these changes. 25252723Sdim */ 26218885Sdim/* 27252723Sdim * HISTORY 28252723Sdim * $Log: db_expr.c,v $ 29252723Sdim * Revision 1.1 1992/03/25 21:45:09 pace 30252723Sdim * Initial revision 31218885Sdim * 32218885Sdim * Revision 2.3 91/02/05 17:06:25 mrt 33218885Sdim * Changed to new Mach copyright 34218885Sdim * [91/01/31 16:17:46 mrt] 35218885Sdim * 36218885Sdim * Revision 2.2 90/08/27 21:50:57 dbg 37252723Sdim * Use '..' instead of '$$' for db_prev. 38252723Sdim * Use '+' for db_next. 39252723Sdim * [90/08/22 dbg] 40252723Sdim * 41263509Sdim * Allow repeated unary operators. 42263509Sdim * [90/08/20 dbg] 43263509Sdim * 44263509Sdim * Reflected back rename of db_symbol_value->db_value_of_name 45263509Sdim * [90/08/20 af] 46263509Sdim * Reduce lint. 47263509Sdim * [90/08/07 dbg] 48263509Sdim * Created. 49263509Sdim * [90/07/25 dbg] 50263509Sdim * 51263509Sdim */ 52263509Sdim/* 53263509Sdim * Author: David B. Golub, Carnegie Mellon University 54263509Sdim * Date: 7/90 55263509Sdim */ 56263509Sdim#include "param.h" 57263509Sdim#include "proc.h" 58263509Sdim#include <machine/db_machdep.h> 59263509Sdim#include <ddb/db_lex.h> 60218885Sdim#include <ddb/db_access.h> 61218885Sdim#include <ddb/db_command.h> 62218885Sdim 63218885Sdimboolean_t 64218885Sdimdb_term(valuep) 65 db_expr_t *valuep; 66{ 67 int t; 68 69 t = db_read_token(); 70 if (t == tIDENT) { 71 if (!db_value_of_name(db_tok_string, valuep)) { 72 db_error("Symbol not found\n"); 73 /*NOTREACHED*/ 74 } 75 return (TRUE); 76 } 77 if (t == tNUMBER) { 78 *valuep = (db_expr_t)db_tok_number; 79 return (TRUE); 80 } 81 if (t == tDOT) { 82 *valuep = (db_expr_t)db_dot; 83 return (TRUE); 84 } 85 if (t == tDOTDOT) { 86 *valuep = (db_expr_t)db_prev; 87 return (TRUE); 88 } 89 if (t == tPLUS) { 90 *valuep = (db_expr_t) db_next; 91 return (TRUE); 92 } 93 if (t == tDITTO) { 94 *valuep = (db_expr_t)db_last_addr; 95 return (TRUE); 96 } 97 if (t == tDOLLAR) { 98 if (!db_get_variable(valuep)) 99 return (FALSE); 100 return (TRUE); 101 } 102 if (t == tLPAREN) { 103 if (!db_expression(valuep)) { 104 db_error("Syntax error\n"); 105 /*NOTREACHED*/ 106 } 107 t = db_read_token(); 108 if (t != tRPAREN) { 109 db_error("Syntax error\n"); 110 /*NOTREACHED*/ 111 } 112 return (TRUE); 113 } 114 db_unread_token(t); 115 return (FALSE); 116} 117 118boolean_t 119db_unary(valuep) 120 db_expr_t *valuep; 121{ 122 int t; 123 124 t = db_read_token(); 125 if (t == tMINUS) { 126 if (!db_unary(valuep)) { 127 db_error("Syntax error\n"); 128 /*NOTREACHED*/ 129 } 130 *valuep = -*valuep; 131 return (TRUE); 132 } 133 if (t == tSTAR) { 134 /* indirection */ 135 if (!db_unary(valuep)) { 136 db_error("Syntax error\n"); 137 /*NOTREACHED*/ 138 } 139 *valuep = db_get_value((db_addr_t)*valuep, sizeof(int), FALSE); 140 return (TRUE); 141 } 142 db_unread_token(t); 143 return (db_term(valuep)); 144} 145 146boolean_t 147db_mult_expr(valuep) 148 db_expr_t *valuep; 149{ 150 db_expr_t lhs, rhs; 151 int t; 152 153 if (!db_unary(&lhs)) 154 return (FALSE); 155 156 t = db_read_token(); 157 while (t == tSTAR || t == tSLASH || t == tPCT || t == tHASH) { 158 if (!db_term(&rhs)) { 159 db_error("Syntax error\n"); 160 /*NOTREACHED*/ 161 } 162 if (t == tSTAR) 163 lhs *= rhs; 164 else { 165 if (rhs == 0) { 166 db_error("Divide by 0\n"); 167 /*NOTREACHED*/ 168 } 169 if (t == tSLASH) 170 lhs /= rhs; 171 else if (t == tPCT) 172 lhs %= rhs; 173 else 174 lhs = ((lhs+rhs-1)/rhs)*rhs; 175 } 176 t = db_read_token(); 177 } 178 db_unread_token(t); 179 *valuep = lhs; 180 return (TRUE); 181} 182 183boolean_t 184db_add_expr(valuep) 185 db_expr_t *valuep; 186{ 187 db_expr_t lhs, rhs; 188 int t; 189 190 if (!db_mult_expr(&lhs)) 191 return (FALSE); 192 193 t = db_read_token(); 194 while (t == tPLUS || t == tMINUS) { 195 if (!db_mult_expr(&rhs)) { 196 db_error("Syntax error\n"); 197 /*NOTREACHED*/ 198 } 199 if (t == tPLUS) 200 lhs += rhs; 201 else 202 lhs -= rhs; 203 t = db_read_token(); 204 } 205 db_unread_token(t); 206 *valuep = lhs; 207 return (TRUE); 208} 209 210boolean_t 211db_shift_expr(valuep) 212 db_expr_t *valuep; 213{ 214 db_expr_t lhs, rhs; 215 int t; 216 217 if (!db_add_expr(&lhs)) 218 return (FALSE); 219 220 t = db_read_token(); 221 while (t == tSHIFT_L || t == tSHIFT_R) { 222 if (!db_add_expr(&rhs)) { 223 db_error("Syntax error\n"); 224 /*NOTREACHED*/ 225 } 226 if (rhs < 0) { 227 db_error("Negative shift amount\n"); 228 /*NOTREACHED*/ 229 } 230 if (t == tSHIFT_L) 231 lhs <<= rhs; 232 else { 233 /* Shift right is unsigned */ 234 lhs = (unsigned) lhs >> rhs; 235 } 236 t = db_read_token(); 237 } 238 db_unread_token(t); 239 *valuep = lhs; 240 return (TRUE); 241} 242 243int 244db_expression(valuep) 245 db_expr_t *valuep; 246{ 247 return (db_shift_expr(valuep)); 248} 249