minnie.tuhs.org/unixen.tar/unixen/PDP-11/Trees/V7/usr/src/cmd/adb/command.c

C/C++ Source or Header | 1979-01-10 | 3.8 KB | 218 lines

#
/*
 *
 *    UNIX debugger
 *
 */

#include "defs.h"


MSG        BADEQ;
MSG        NOMATCH;
MSG        BADVAR;
MSG        BADCOM;

MAP        txtmap;
MAP        datmap;
INT        executing;
CHAR        *lp;
INT        fcor;
INT        fsym;
INT        mkfault;
STRING        errflg;

CHAR        lastc;
CHAR        eqformat[128] "o";
CHAR        stformat[128] "o\"= \"^i";
POS        *endhdr;

L_INT        dot;
L_INT        ditto;
INT        dotinc;
INT        lastcom '=';
L_INT        var[];
L_INT        locval;
L_INT        locmsk;
INT        pid;
L_INT        expv;
L_INT        adrval;
INT        adrflg;
L_INT        cntval;
INT        cntflg;




/* command decoding */

command(buf,defcom)
STRING        buf;
CHAR        defcom;
{
    INT        itype, ptype, modifier, regptr;
    BOOL        longpr, eqcom;
    CHAR        wformat[1];
    CHAR        savc;
    L_INT        w, savdot;
    STRING        savlp=lp;
    IF buf
    THEN IF *buf==EOR
         THEN return(FALSE);
         ELSE lp=buf;
         FI
    FI

    REP
    IF adrflg=expr(0)
    THEN dot=expv; ditto=dot;
    FI
    adrval=dot;
    IF rdc()==',' ANDF expr(0)
    THEN cntflg=TRUE; cntval=expv;
    ELSE cntflg=FALSE; cntval=1; lp--;
    FI

    IF !eol(rdc())
    THEN lastcom=lastc;
    ELSE IF adrflg==0 THEN dot=inkdot(dotinc); FI
         lp--; lastcom=defcom;
    FI

    switch(lastcom&STRIP) {

        case '/':
        itype=DSP; ptype=DSYM;
        goto trystar;

        case '=':
        itype=NSP; ptype=ASYM;
        goto trypr;

        case '?':
        itype=ISP; ptype=ISYM;
        goto trystar;

        trystar:
        IF rdc()=='*' THEN lastcom |= QUOTE; ELSE lp--; FI
        IF lastcom"E
        THEN itype |= STAR; ptype = (DSYM+ISYM)-ptype;
        FI

        trypr:
        longpr=FALSE; eqcom=lastcom=='=';
        switch (rdc()) {

            case 'm':
                {/*reset map data*/
                INT        fcount;
                MAP        *smap;
                UNION{MAP *m; L_INT *mp;}amap;

                IF eqcom THEN error(BADEQ); FI
                smap=(itype&DSP?&datmap:&txtmap);
                amap.m=smap; fcount=3;
                IF itype&STAR
                THEN amap.mp += 3;
                FI
                WHILE fcount-- ANDF expr(0)
                DO *(amap.mp)++ = expv; OD
                IF rdc()=='?' THEN smap->ufd=fsym;
                ELIF lastc == '/' THEN smap->ufd=fcor;
                ELSE lp--;
                FI
                }
                break;

            case 'L':
                longpr=TRUE;
            case 'l':
                /*search for exp*/
                IF eqcom THEN error(BADEQ); FI
                dotinc=2; savdot=dot;
                expr(1); locval=expv;
                IF expr(0) THEN locmsk=expv; ELSE locmsk = -1L; FI
                LOOP w=leng(get(dot,itype));
                 IF longpr
                 THEN w=itol(w,get(inkdot(2),itype));
                 FI
                 IF errflg ORF mkfault ORF (w&locmsk)==locval THEN break; FI
                 dot=inkdot(dotinc);
                POOL
                IF errflg
                THEN dot=savdot; errflg=NOMATCH;
                FI
                psymoff(dot,ptype,"");
                break;

            case 'W':
                longpr=TRUE;
            case 'w':
                IF eqcom THEN error(BADEQ); FI
                wformat[0]=lastc; expr(1);
                REP  savdot=dot; psymoff(dot,ptype,":%16t"); exform(1,wformat,itype,ptype);
                 errflg=0; dot=savdot;
                 IF longpr
                 THEN put(dot,itype,expv);
                 FI
                 put((longpr?inkdot(2):dot),itype,shorten(expv));
                 savdot=dot;
                 printf("=%8t"); exform(1,wformat,itype,ptype);
                 newline();
                PER  expr(0) ANDF errflg==0 DONE
                dot=savdot;
                chkerr();
                break;

            default:
                lp--;
                getformat(eqcom ? eqformat : stformat);
                IF !eqcom
                THEN psymoff(dot,ptype,":%16t");
                FI
                scanform(cntval,(eqcom?eqformat:stformat),itype,ptype);
        }
        break;

        case '>':
        lastcom=0; savc=rdc();
        IF regptr=getreg(savc)
        THEN endhdr[regptr]=shorten(dot);
             ptrace(WUREGS,pid,2*(512+regptr),endhdr[regptr]);
        ELIF (modifier=varchk(savc)) != -1
        THEN    var[modifier]=dot;
        ELSE    error(BADVAR);
        FI
        break;

        case '!':
        lastcom=0;
        unox(); break;

        case '$':
        lastcom=0;
        printtrace(nextchar()); break;

        case ':':
        IF !executing
        THEN executing=TRUE;
             subpcs(nextchar());
             executing=FALSE;
             lastcom=0;
        FI
        break;

        case 0:
        prints(DBNAME);
        break;

        default: error(BADCOM);
    }

    flushbuf();
    PER rdc()==';' DONE
    IF buf THEN lp=savlp; ELSE lp--; FI
    return(adrflg ANDF dot!=0);
}