Return to run.c CVS log

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

Annotation of researchv10no/cmd/basic/bite/src/run.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     /////////////////////////////////////
                      4:  *     /////////////////////////////////////
                      5:  *     /////////////// run.c ///////////////
                      6:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      7:  *     ///// Fri Aug 24 17:29:21 1979 //////
                      8:  *     /////////////////////////////////////
                      9:  *     /////////////////////////////////////
                     10: 
                     11:  * RUN BASIC Program
                     12:  */
                     13: /*   "@(#) run.c:  V 1.1  12/21/80" */
                     14: 
                     15: #include       "bas.h"
                     16: #define getout(X)\
                     17:        signal(SIGINT, quit);\
                     18:        stpflg=0;\
                     19:        _comflg=0;\
                     20:        if(X < 0)\
                     21:                error(inst.thing.linno,15);\
                     22:        return(X)
                     23:        int runcnt = 0; /* nest count for run */
                     24:        char *ptr;
                     25: extern int stopl();
                     26: extern int singst;
                     27: extern int stpflg;
                     28: extern int endfcnt;    /* structured "if" nest count */
                     29: extern int forflg;     /* nested for count */
                     30: extern int bflag,cflag;        /* break count */
                     31: extern int quit();
                     32: extern int _comflg;    /* common flag */
                     33: run()
                     34: {
                     35:        singst = 32767;
                     36:        endfcnt = 0;    /* initialize "if" nest count */
                     37:        bflag = cflag = 0;
                     38:        forflg = 0;
                     39:        if(!(_comflg))  /* If "common" not issued between last &
                     40:                                this invocation of "run" */
                     41:                expunge();      /* de-allocate cariable stack and
                     42:                                    symbol tables to keep memory optimum */
                     43:                restore();
                     44:        runcnt += 1;    /* bump nest count */
                     45:        if(expr[0] != '\0')     /* if filename specified */
                     46:        {
                     47:                if(load() < 0)  /* load file before running */
                     48:                {
                     49:                        runcnt -= 1;    /* dec nest count */
                     50:                        getout(-1); /* return if load error */
                     51:                }
                     52:        } else {
                     53:                if(runcnt > 1)
                     54:                {
                     55:                        error(inst.thing.linno, 6);
                     56:                        runcnt -= 1; /* dec nest count */
                     57:                        getout(-1);
                     58:                }
                     59:        }
                     60:        if(fetch(0,&ptr) < 0)   /* any lines? */
                     61:        {
                     62:                error(inst.thing.linno, 5);
                     63:                runcnt -= 1;    /* dec nest count */
                     64:                getout(0);      /* nop, can't do anything */
                     65:        }
                     66:        signal(SIGINT, stopl);
                     67:        if(bascall(inst.thing.opcode.lobyte) == -1) /* execute first instruction */
                     68:        {
                     69:                runcnt -= 1;            /* dec nest count */
                     70:                getout(-1);             /*  and return if error */
                     71:        }
                     72: 
                     73:        /*
                     74:         * fetch each instruction sequentially and execute
                     75:         * until last line.
                     76:         * Fetch sets up the xxxxx
                     77:         */
                     78:        while((fetch(-1,&ptr) == 0) && (stpflg == 0))
                     79:                if(bascall(inst.thing.opcode.lobyte) == -1)
                     80:                {
                     81:                        runcnt -= 1; /* dec nest count */
                     82:                        getout(-1);
                     83:                }
                     84:        runcnt -= 1;    /* dec nest count */
                     85:        getout(0);
                     86: }

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