Return to auto.c CVS log

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

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

1.1     ! root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             2: 
        !             3:  *     ************************************
        !             4:  *     ************************************
        !             5:  *     *** Initiate Auto Line Numbering ***
        !             6:  *     *** R. B. Drake WH 8C-005 X4163 ****
        !             7:  *     ***** Sat Sep 22 17:58:51 1979 *****
        !             8:  *     ************************************
        !             9:  *     ************************************
        !            10: 
        !            11: */
        !            12: /*   "@(#) auto.c:  V 1.1  12/21/80" */
        !            13: 
        !            14: int aut,inc,autflg;
        !            15: autnum()
        !            16: {
        !            17:        extern char *expr;
        !            18:        char *prncpy();
        !            19:        char txtbuf[80]; /* temporary buffer */
        !            20:        autflg = 1;
        !            21:        if(!inc) inc = 10; /*default values */
        !            22:        aut += inc;
        !            23:        if(*expr == '\0') return(0); /* no expression keep the defaults */
        !            24:        expr = prncpy(txtbuf,expr); /* copy to first comma if there is one */
        !            25:        if(txtbuf[0] != '\0') /* if a start num was specified */
        !            26:        aut = atoi(txtbuf);
        !            27:        if(*expr++ == ',') /* if an increment has been specified */
        !            28:        prncpy(txtbuf,expr);
        !            29:        inc = atoi(txtbuf);
        !            30:        return(0);
        !            31: }

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