Return to sing.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/sing.c, revision 1.1

1.1     ! root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             2: 
        !             3:  *     ***********************************
        !             4:  *     ***********************************
        !             5:  *     ***** SINGLE STEP CONTROLLER ******
        !             6:  *     *** R. B. Drake WH 8C-005 X4163 ***
        !             7:  *     **** Sun Aug 26 11:35:49 1979 *****
        !             8:  *     ***********************************
        !             9:  *     ***********************************
        !            10: 
        !            11: */
        !            12: /*   "@(#) sing.c:  V 1.1  12/21/80" */
        !            13: 
        !            14: /* single step monitor */
        !            15: #include "bas.h"
        !            16: extern char _string[];
        !            17: extern int stpflg;
        !            18: int singst = 32767;
        !            19: int singflg;
        !            20: extern char *ptr;
        !            21: int stopl(),quit();
        !            22: sing()
        !            23: {
        !            24:        char *ch;
        !            25:        ch = expr;
        !            26:        singflg = -1; /* control from sing but not single stepping */
        !            27:        expunge();
        !            28:        restore();
        !            29:        signal(2,stopl);
        !            30:        if(fetch(0,&ptr) < 0)
        !            31:        {
        !            32:                error(0,5);
        !            33:                singflg = 0;
        !            34:                signal(2,quit);
        !            35:                return(-1);
        !            36:        }
        !            37:        if(ch[0] != '\0')
        !            38:                singst = atoi(ch);
        !            39:        else
        !            40:                singst = inst.thing.linno;
        !            41:        while(singex() == 0 && stpflg == 0)
        !            42:                if(fetch(-1,&ptr) < 0)
        !            43:                {
        !            44:                        singflg = 0; /* done single stepping */
        !            45:                        signal(SIGINT, quit);
        !            46:                         return(0);
        !            47:                }
        !            48:        singflg=stpflg=0;
        !            49:        signal(SIGINT, quit);
        !            50:        return(0);
        !            51: }
        !            52: extern int subog;
        !            53: singex()
        !            54: {
        !            55:        char *save;
        !            56:        int hold;
        !            57:        if(inst.thing.linno == singst)
        !            58:                singflg = 1;
        !            59:        if(singflg == 1)
        !            60:        {
        !            61:        save = expr;
        !            62:        prin();
        !            63:        expr = save;
        !            64:        hold = inst.thing.opcode.lobyte;
        !            65:        }
        !            66:        if(bascall(inst.thing.opcode.lobyte) != 0)
        !            67:                error(inst.thing.opcode.lobyte,15); /* execution error */
        !            68:        if(singflg == -1)
        !            69:                return(0);
        !            70:        if(hold == subog)
        !            71:                return(0);
        !            72:        return(singwt());
        !            73: }
        !            74: singwt()
        !            75: {
        !            76:        char *save;
        !            77:        if(singflg == 0) return(-1);
        !            78:        while(1)
        !            79:        {
        !            80:                printf("%c",'^');
        !            81:                if(fgets(_string,LINMAX,stdin) == 0) return(-1); /* ctl d */
        !            82:                if(_string[0] == '\n') return(0);
        !            83:                save = ptr;
        !            84:                bed((FILE *)0);
        !            85:                ptr = save;
        !            86:                if(singflg == -1) break;
        !            87:        }
        !            88:        return(0);
        !            89: }
        !            90: con()
        !            91: {
        !            92:        if(expr[0] != 0)
        !            93:                singst = atoi(expr);
        !            94:        else
        !            95:                singst = 32767;
        !            96:        singflg = -1;
        !            97: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.