4.3BSD/usr/src/bin/adb/output.c
#ifndef lint
static char sccsid[] = "@(#)output.c 4.4 4/26/85";
#endif
/*
*
* UNIX debugger
*
*/
#include "defs.h"
#include <stdio.h>
INT mkfault;
INT infile;
INT outfile = 1;
L_INT maxpos;
L_INT maxoff;
INT radix = 16;
CHAR printbuf[MAXLIN];
CHAR *printptr = printbuf;
CHAR *digitptr;
MSG TOODEEP;
eqstr(s1, s2)
REG STRING s1, s2;
{
REG STRING es1;
WHILE *s1++ == *s2
DO IF *s2++ == 0
THEN return(1);
FI
OD
return(0);
}
length(s)
REG STRING s;
{
INT n = 0;
WHILE *s++ DO n++; OD
return(n);
}
printc(c)
CHAR c;
{
CHAR d;
STRING q;
INT posn, tabs, p;
IF mkfault
THEN return;
ELIF (*printptr=c)==EOR
THEN tabs=0; posn=0; q=printbuf;
FOR p=0; p<printptr-printbuf; p++
DO d=printbuf[p];
IF (p&7)==0 ANDF posn
THEN tabs++; posn=0;
FI
IF d==SP
THEN posn++;
ELSE WHILE tabs>0 DO *q++=TB; tabs--; OD
WHILE posn>0 DO *q++=SP; posn--; OD
*q++=d;
FI
OD
*q++=EOR;
#ifdef EDDT
printptr=printbuf; do putchar(*printptr++); while (printptr<q);
#else
write(outfile,printbuf,q-printbuf);
#endif
printptr=printbuf;
ELIF c==TB
THEN *printptr++=SP;
WHILE (printptr-printbuf)&7 DO *printptr++=SP; OD
ELIF c
THEN printptr++;
FI
IF printptr >= &printbuf[MAXLIN-9] THEN
write(outfile, printbuf, printptr - printbuf);
printptr = printbuf;
FI
}
charpos()
{ return(printptr-printbuf);
}
flushbuf()
{ IF printptr!=printbuf
THEN printc(EOR);
FI
}
printf(fmat,a1)
STRING fmat;
STRING *a1;
{
STRING fptr, s;
INT *vptr;
L_INT *dptr;
L_REAL *rptr;
INT width, prec;
CHAR c, adj;
INT x, decpt, n;
L_INT lx;
CHAR digits[64];
fptr = fmat; dptr = vptr = &a1;
WHILE c = *fptr++
DO IF c!='%'
THEN printc(c);
ELSE IF *fptr=='-' THEN adj='l'; fptr++; ELSE adj='r'; FI
width=convert(&fptr);
IF *fptr=='.' THEN fptr++; prec=convert(&fptr); ELSE prec = -1; FI
digitptr=digits;
#ifndef vax
dptr=rptr=vptr; lx = *dptr; x = *vptr++;
#else
rptr=dptr; x = shorten(lx = *dptr++);
#endif
s=0;
switch (c = *fptr++) {
case 'd':
case 'u':
printnum(x,c,10); break;
case 'o':
#ifndef vax
printoct(0,x,0); break;
#else
printoct(itol(0,x),0); break;
#endif
case 'q':
lx=x; printoct(lx,-1); break;
case 'x':
#ifndef vax
printdbl(0,x,c,16); break;
#else
printdbl(itol(0,x),c,16); break;
#endif
case 'r':
printdbl(lx=x,c,radix); break;
case 'R':
printdbl(lx,c,radix); vptr++; break;
case 'Y':
printdate(lx); vptr++; break;
case 'D':
case 'U':
printdbl(lx,c,10); vptr++; break;
case 'O':
printoct(lx,0); vptr++; break;
case 'Q':
printoct(lx,-1); vptr++; break;
case 'X':
printdbl(lx,'x',16); vptr++; break;
case 'c':
printc(x); break;
case 's':
#ifndef vax
s=x; break;
#else
s=lx; break;
#endif
#ifndef EDDT
case 'f':
case 'F':
#ifdef vax
dptr++;
sprintf(s=digits,"%+.16e",*rptr,*(rptr+4)); prec= -1; break;
#else
vptr += 7;
s=ecvt(*rptr, prec, &decpt, &n);
*digitptr++=(n?'-':'+');
*digitptr++ = (decpt<=0 ? '0' : *s++);
IF decpt>0 THEN decpt--; FI
*digitptr++ = '.';
WHILE *s ANDF prec-- DO *digitptr++ = *s++; OD
WHILE *--digitptr=='0' DONE
digitptr += (digitptr-digits>=3 ? 1 : 2);
IF decpt
THEN *digitptr++ = 'e'; printnum(decpt,'d',10);
FI
s=0; prec = -1; break;
#endif
#endif
case 'm':
vptr--; break;
case 'M':
width=x; break;
case 'T':
case 't':
IF c=='T'
THEN width=x;
#ifndef vax
ELSE vptr--;
#else
ELSE dptr--;
#endif
FI
IF width
THEN width -= charpos()%width;
FI
break;
default:
#ifndef vax
printc(c); vptr--;
#else
printc(c); dptr--;
#endif
}
IF s==0
THEN *digitptr=0; s=digits;
FI
n=length(s);
n=(prec<n ANDF prec>=0 ? prec : n);
width -= n;
IF adj=='r'
THEN WHILE width-- > 0
DO printc(SP); OD
FI
WHILE n-- DO printc(*s++); OD
WHILE width-- > 0 DO printc(SP); OD
digitptr=digits;
FI
OD
}
printdate(tvec)
L_INT tvec;
{
REG INT i;
REG STRING timeptr;
#ifndef EDDT
timeptr = ctime(&tvec);
#else
timeptr="????????????????????????";
#endif
FOR i=20; i<24; i++ DO *digitptr++ = *(timeptr+i); OD
FOR i=3; i<19; i++ DO *digitptr++ = *(timeptr+i); OD
} /*printdate*/
prints(s)
char *s;
{ printf("%s",s);
}
newline()
{
printc(EOR);
}
convert(cp)
REG STRING *cp;
{
REG CHAR c;
INT n;
n=0;
WHILE ((c = *(*cp)++)>='0') ANDF (c<='9') DO n=n*10+c-'0'; OD
(*cp)--;
return(n);
}
printnum(n,fmat,base)
REG INT n;
{
REG CHAR k;
REG INT *dptr;
INT digs[15];
dptr=digs;
IF n<0 ANDF fmat=='d' THEN n = -n; *digitptr++ = '-'; FI
n &= 0xffff;
WHILE n
DO *dptr++ = ((POS)(n&0xffff))%base;
n=((POS)(n&0xffff))/base;
OD
IF dptr==digs THEN *dptr++=0; FI
WHILE dptr!=digs
DO k = *--dptr;
*digitptr++ = (k+(k<=9 ? '0' : 'a'-10));
OD
}
printoct(o,s)
L_INT o;
INT s;
{
INT i;
L_INT po = o;
CHAR digs[12];
IF s
THEN IF po<0
THEN po = -po; *digitptr++='-';
ELSE IF s>0 THEN *digitptr++='+'; FI
FI
FI
FOR i=0;i<=11;i++
DO digs[i] = po&7; po >>= 3; OD
digs[10] &= 03; digs[11]=0;
FOR i=11;i>=0;i--
DO IF digs[i] THEN break; FI OD
FOR i++;i>=0;i--
DO *digitptr++=digs[i]+'0'; OD
}
#ifndef vax
printdbl(lx,ly,fmat,base)
INT lx, ly; char fmat; int base;
#else
printdbl(lxy,fmat,base)
L_INT lxy; char fmat; int base;
#endif
{ int digs[20]; int *dptr; char k;
#ifndef MULD2
register char *cp1;
cp1=digs; if ((lxy&0xFFFF0000L)==0xFFFF0000L) {*cp1++='-'; lxy= -lxy;}
sprintf(cp1,base==16 ? "%x" : "%D",lxy);
cp1=digs; while (*digitptr++= *cp1++); --digitptr;
#else
L_REAL f ,g; long q;
#ifdef vax
INT lx,ly;
ly=lxy; lx=(lxy>>16)&0xFFFF;
#endif
dptr=digs;
IF fmat=='D' ORF fmat=='r'
THEN f=itol(lx,ly);
IF f<0 THEN *digitptr++='-'; f = -f; FI
ELSE
IF lx==-1
THEN *digitptr++='-'; f=leng(-ly);
ELSE f=leng(lx); f *= itol(1,0); f += leng(ly);
FI
IF fmat=='x' THEN *digitptr++='#'; FI
FI
WHILE f
DO q=f/base; g=q;
*dptr++ = f-g*base;
f=q;
OD
IF dptr==digs ORF dptr[-1]>9 THEN *dptr++=0; FI
WHILE dptr!=digs
DO k = *--dptr;
*digitptr++ = (k+(k<=9 ? '0' : 'a'-10));
OD
#endif
}
#define MAXIFD 5
struct {
int fd;
int r9;
} istack[MAXIFD];
int ifiledepth;
iclose(stack, err)
{
IF err
THEN IF infile
THEN close(infile); infile=0;
FI
WHILE --ifiledepth >= 0
DO IF istack[ifiledepth].fd
THEN close(istack[ifiledepth].fd);
FI
OD
ifiledepth = 0;
ELIF stack == 0
THEN IF infile
THEN close(infile); infile=0;
FI
ELIF stack > 0
THEN IF ifiledepth >= MAXIFD
THEN error(TOODEEP);
FI
istack[ifiledepth].fd = infile;
istack[ifiledepth].r9 = var[9];
ifiledepth++;
infile = 0;
ELSE IF infile
THEN close(infile); infile=0;
FI
IF ifiledepth > 0
THEN infile = istack[--ifiledepth].fd;
var[9] = istack[ifiledepth].r9;
FI
FI
}
oclose()
{
IF outfile!=1
THEN flushbuf(); close(outfile); outfile=1;
FI
}
endline()
{
if (maxpos <= charpos())
printf("\n");
}