Return to minus.c CVS log

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

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

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     ***************************************************
                      4:  *     ***************************************************
                      5:  *     *** EQUIVALENT TO THE UNIX EDITOR'S '-' COMMAND ***
                      6:  *     *********** R. B. Drake WH 8C-005 X4163 ***********
                      7:  *     ************ Sun Aug 26 10:54:49 1979 *************
                      8:  *     ***************************************************
                      9:  *     ***************************************************
                     10:  * Find the beginning of the previous line and print it
                     11: 
                     12: */
                     13: /*   "@(#) minus.c:  V 1.1  12/21/80" */
                     14: 
                     15: #include "bas.h"
                     16: minus()
                     17: {
                     18:        int n,c;
                     19:        if(expr[0] != '\0')
                     20:                n=atoi(expr);
                     21:        else
                     22:                n=1;
                     23:        while(curptr != txtbuf && n--)
                     24:        {
                     25:                --curptr;
                     26:                while((c=((*--curptr)&0377)) != 0 && c < 0200) ;
                     27:                curptr -= 2; /* decriment to beginning of line */
                     28:        }
                     29:        lbdptr=curptr;
                     30:        if(fetch(-1,&lbdptr) < 0)
                     31:        {
                     32:                error(inst.thing.linno,0);
                     33:                return(-1);
                     34:        }
                     35:        prin();
                     36:        return(0);
                     37: }

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