Return to on.c CVS log

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

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

1.1     ! root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             2: 
        !             3:  *     ***********************************
        !             4:  *     ***********************************
        !             5:  *     ********** ON GOTO/GOSUB **********
        !             6:  *     *** R. B. Drake WH 8C-005 X4163 ***
        !             7:  *     **** Sun Aug 26 11:02:16 1979 *****
        !             8:  *     ***********************************
        !             9:  *     ***********************************
        !            10: 
        !            11: */
        !            12: /*   "@(#) on.c:  V 1.1  12/21/80" */
        !            13: 
        !            14: /* routine to handle on goto */
        !            15: #include "bas.h"
        !            16: extern int stpflg;
        !            17: double evalx();
        !            18: char *prncpy();
        !            19: extern char *expr,*eoexpr;
        !            20: on()
        !            21: {
        !            22:        int i,j;
        !            23:        char txtbuf[80];
        !            24:        char c;
        !            25:        if((j = evalx(expr)) <= 0)
        !            26:        {
        !            27:                error(inst.thing.linno,38);
        !            28:                return(-1);
        !            29:        }
        !            30:        if(stpflg == 1)
        !            31:                return(-1);
        !            32:        if((c= *eoexpr++) > '\003' && c != '\016')
        !            33:        {
        !            34:                error(inst.thing.linno,8); /* expression syntax */
        !            35:                return(-1);
        !            36:        }
        !            37:        for(i=0;i<j;i++)
        !            38:        {
        !            39:                eoexpr = prncpy(txtbuf,eoexpr);
        !            40:                if(*eoexpr++ == '\0' && i != (j-1))
        !            41:                {
        !            42:                        error(inst.thing.linno,38); /* not enough references*/
        !            43:                        return(-1);
        !            44:                }
        !            45:        }
        !            46:        expr = txtbuf;
        !            47:        if(c != '\016')
        !            48:        {
        !            49:        if(__goto() < 0)
        !            50:                return(-1);
        !            51:        return(0);
        !            52:        }
        !            53:        if(gosub() < 0)
        !            54:                return(-1);
        !            55:        return(0);
        !            56: }

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