Return to lnpars.c CVS log

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

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

1.1     ! root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             2: 
        !             3:  *     ***********************************
        !             4:  *     ***********************************
        !             5:  *     ******* LINE NUMBER PARSER ********
        !             6:  *     *** R. B. Drake WH 8C-005 X4163 ***
        !             7:  *     **** Sun Aug 26 10:46:06 1979 *****
        !             8:  *     ***********************************
        !             9:  *     ***********************************
        !            10: 
        !            11: */
        !            12: /*   "@(#) lnpars.c:  V 1.1  12/21/80" */
        !            13: 
        !            14: /*mini parser to handle expressions of the form
        !            15:  * "line number" - "line number"
        !            16: */
        !            17: #include "bas.h"
        !            18: extern int start,finish;
        !            19: lnpars()
        !            20: {
        !            21:        char as[2][10];
        !            22:        int i,j,k;
        !            23:        char c;
        !            24:        /* zero the ascii txtbuf */
        !            25:        for(j=0;j<2;j++)
        !            26:                for(k=0;k<10;k++)
        !            27:                        as[j][k] = '\0';
        !            28:        /* separate the line into two parts */
        !            29: 
        !            30:        for(i=0,j=0,k=0;expr[i] != 0; i++,k++)
        !            31:        {
        !            32:                if((c = expr[i])== '-' || c==',' || c== ' ')
        !            33:                {
        !            34:                        j++;
        !            35:                        k= -1;
        !            36:                        continue;
        !            37:                }
        !            38:                if(j >1 || k > 9)
        !            39:                {
        !            40:                        error(inst.thing.linno,0);
        !            41:                        return(-1);
        !            42:                }
        !            43:                as[j][k]=expr[i];
        !            44:        }
        !            45:        /* convert ascii strings to int */
        !            46:        start=atoi(&as[0][0]);
        !            47:        finish=atoi(&as[1][0]);
        !            48:        if(j !=0 && finish == 0)
        !            49:                finish=32767;
        !            50:        return 0;
        !            51: }
        !            52: 
        !            53: 

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