1 #ifndef lint 2 static char sccsid[] = "@(#)format.c 4.4 06/30/87"; 3 #endif 4 /* 5 * 6 * UNIX debugger 7 * 8 */ 9 10 #include "defs.h" 11 12 MSG BADMOD; 13 MSG NOFORK; 14 MSG ADWRAP; 15 16 INT mkfault; 17 CHAR *lp; 18 L_INT maxoff; 19 ADDR sigint; 20 ADDR sigqit; 21 STRING errflg; 22 CHAR lastc,peekc; 23 L_INT dot; 24 INT dotinc; 25 L_INT expv; 26 L_INT var[]; 27 28 29 STRING fphack; 30 rdfp() 31 { 32 return(lastc= *fphack++); 33 } 34 35 scanform(icount,ifp,itype,ptype) 36 L_INT icount; 37 STRING ifp; 38 { 39 STRING fp; 40 CHAR modifier; 41 INT fcount, init=1; 42 L_INT savdot; 43 BOOL exact; 44 BOOL doit = 1; 45 46 WHILE icount 47 DO fp=ifp; 48 savdot=dot; init=0; 49 50 IF init==0 ANDF (exact=(findsym(dot,ptype)==0)) ANDF maxoff 51 THEN printf("\n%s:%16t",cursym->n_un.n_name); 52 FI 53 54 /*now loop over format*/ 55 WHILE *fp ANDF errflg==0 56 DO IF digit(modifier = *fp) 57 THEN fcount = 0; 58 WHILE digit(modifier = *fp++) 59 DO fcount *= 10; 60 fcount += modifier-'0'; 61 OD 62 fp--; 63 IF fcount==0 THEN fcount = 1; FI 64 ELSE fcount = 1; 65 FI 66 67 IF *fp==0 THEN break; FI 68 fp=exform(fcount,fp,itype,ptype); 69 OD 70 dotinc=dot-savdot; 71 dot=savdot; 72 73 IF errflg 74 THEN IF icount<0 75 THEN errflg=0; break; 76 ELSE error(errflg); 77 FI 78 FI 79 IF --icount 80 THEN dot=inkdot(dotinc); 81 FI 82 IF mkfault THEN error(0); FI 83 OD 84 } 85 86 STRING 87 exform(fcount,ifp,itype,ptype) 88 INT fcount; 89 STRING ifp; 90 { 91 /* execute single format item `fcount' times 92 * sets `dotinc' and moves `dot' 93 * returns address of next format item 94 */ 95 POS w; 96 L_INT savdot, wx; 97 STRING fp; 98 CHAR c, modifier, longpr; 99 L_REAL fw; 100 struct{ 101 L_INT sa; 102 INT sb,sc; 103 }; 104 105 WHILE fcount>0 106 DO fp = ifp; c = *fp; 107 longpr=(c>='A')&(c<='Z')|(c=='f')|(c=='4')|(c=='p'); 108 IF itype==NSP ORF *fp=='a' 109 THEN wx=dot; w=dot; 110 ELSE w=get(dot,itype); 111 IF longpr 112 THEN wx=itol(get(inkdot(2),itype),w); 113 ELSE wx=w; 114 FI 115 FI 116 IF c=='F' 117 THEN fw.sb=get(inkdot(4),itype); 118 fw.sc=get(inkdot(6),itype); 119 FI 120 IF errflg THEN return(fp); FI 121 IF mkfault THEN error(0); FI 122 var[0]=wx; 123 modifier = *fp++; 124 dotinc=(longpr?4:2);; 125 126 IF charpos()==0 ANDF modifier!='a' THEN printf("%16m"); FI 127 128 switch(modifier) { 129 130 case SP: case TB: 131 break; 132 133 case 't': case 'T': 134 printf("%T",fcount); return(fp); 135 136 case 'r': case 'R': 137 printf("%M",fcount); return(fp); 138 139 case 'a': 140 psymoff(dot,ptype,":%16t"); dotinc=0; break; 141 142 case 'p': 143 psymoff(var[0],ptype,"%16t"); break; 144 145 case 'u': 146 printf("%-8u",w); break; 147 148 case 'U': 149 printf("%-16U",wx); break; 150 151 case 'c': case 'C': 152 IF modifier=='C' 153 THEN printesc(w&LOBYTE); 154 ELSE printc(w&LOBYTE); 155 FI 156 dotinc=1; break; 157 158 case 'b': case 'B': 159 printf("%-8o", w&LOBYTE); dotinc=1; break; 160 161 case '1': 162 printf("%-8r", w&LOBYTE); dotinc=1; break; 163 164 case '2': 165 case 'w': 166 printf("%-8r", w); break; 167 168 case '4': 169 case 'W': 170 printf("%-16R", wx); break; 171 172 case 's': case 'S': 173 savdot=dot; dotinc=1; 174 WHILE (c=get(dot,itype)&LOBYTE) ANDF errflg==0 175 DO dot=inkdot(1); 176 IF modifier == 'S' 177 THEN printesc(c); 178 ELSE printc(c); 179 FI 180 endline(); 181 OD 182 dotinc=dot-savdot+1; dot=savdot; break; 183 184 case 'x': 185 printf("%-8x",w); break; 186 187 case 'X': 188 printf("%-16X", wx); break; 189 190 case 'Y': 191 printf("%-24Y", wx); break; 192 193 case 'q': 194 printf("%-8q", w); break; 195 196 case 'Q': 197 printf("%-16Q", wx); break; 198 199 case 'o': 200 printf("%-8o", w); break; 201 202 case 'O': 203 printf("%-16O", wx); break; 204 205 case 'i': 206 printins(0,itype,w); printc(EOR); break; 207 208 case 'd': 209 printf("%-8d", w); break; 210 211 case 'D': 212 printf("%-16D", wx); break; 213 214 case 'f': 215 fw = 0; 216 fw.sa = wx; 217 IF (wx & ~0xFFFF00FF) == 0x8000 218 THEN printf("(reserved oprnd)"); 219 ELSE printf("%-16.9f", fw); 220 FI 221 dotinc=4; break; 222 223 case 'F': 224 fw.sa = wx; 225 IF (wx & ~0xFFFF00FF) == 0x8000 226 THEN printf("%-32s", "(reserved oprnd)"); 227 ELSE printf("%-32.18F", fw); 228 FI 229 dotinc=8; break; 230 231 case 'n': case 'N': 232 printc('\n'); dotinc=0; break; 233 234 case '"': 235 dotinc=0; 236 WHILE *fp != '"' ANDF *fp 237 DO printc(*fp++); OD 238 IF *fp THEN fp++; FI 239 break; 240 241 case '^': 242 dot=inkdot(-dotinc*fcount); return(fp); 243 244 case '+': 245 dot=inkdot(fcount); return(fp); 246 247 case '-': 248 dot=inkdot(-fcount); return(fp); 249 250 default: error(BADMOD); 251 } 252 IF itype!=NSP 253 THEN dot=inkdot(dotinc); 254 FI 255 fcount--; endline(); 256 OD 257 258 return(fp); 259 } 260 261 shell() 262 { 263 #ifndef EDDT 264 INT rc, status, unixpid; 265 STRING argp = lp; 266 STRING getenv(), shell = getenv("SHELL"); 267 #ifdef VFORK 268 char oldstlp; 269 #endif 270 271 if (shell == 0) 272 shell = "/bin/sh"; 273 WHILE lastc!=EOR DO rdc(); OD 274 #ifndef VFORK 275 IF (unixpid=fork())==0 276 #else 277 oldstlp = *lp; 278 IF (unixpid=vfork())==0 279 #endif 280 THEN signal(SIGINT,sigint); signal(SIGQUIT,sigqit); 281 *lp=0; execl(shell, "sh", "-c", argp, 0); 282 _exit(16); 283 #ifndef VFORK 284 ELIF unixpid == -1 285 #else 286 ELIF *lp = oldstlp, unixpid == -1 287 #endif 288 THEN error(NOFORK); 289 ELSE signal(SIGINT,1); 290 WHILE (rc = wait(&status)) != unixpid ANDF rc != -1 DONE 291 signal(SIGINT,sigint); 292 prints("!"); lp--; 293 FI 294 #endif 295 } 296 297 298 printesc(c) 299 { 300 c &= STRIP; 301 IF c==0177 THEN printf("^?"); 302 ELIF c<SP 303 THEN printf("^%c", c + '@'); 304 ELSE printc(c); 305 FI 306 } 307 308 L_INT inkdot(incr) 309 { 310 L_INT newdot; 311 312 newdot=dot+incr; 313 IF (dot NEQ newdot) >> 24 THEN error(ADWRAP); FI 314 return(newdot); 315 } 316 317 digit(c) 318 { 319 return c >= '0' && c <= '9'; 320 } 321