Return to delete.c CVS log

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

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

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     ***********************************
                      4:  *     ***********************************
                      5:  *     ********** DELETE LINES ***********
                      6:  *     *** R. B. Drake WH 8C-005 X4163 ***
                      7:  *     **** Fri Aug 24 17:14:56 1979 *****
                      8:  *     ***********************************
                      9:  *     ***********************************
                     10:  * This routine is
                     11:  * called by "bed" to delete lines either singly or in large batches
                     12:  *   on a single line delete, a copy of the line is saved in the array
                     13:  *   "temp" for possible restoration by the "undo" routine.
                     14: 
                     15: */
                     16: /*   "@(#) delete.c:  V 1.1  12/21/80" */
                     17: #include "bas.h"
                     18: extern char temp[];
                     19: extern int start,finish;
                     20: extern int line;
                     21: delete()
                     22: {
                     23:        char *save;
                     24:        if(expr[0] == '\0')
                     25:        {
                     26:                fetch(local.thing.linno,&lbdptr);
                     27:                if(local.thing.linno != inst.thing.linno)
                     28:                {
                     29:                        error(local.thing.linno,0);
                     30:                        return(-1);
                     31:                }
                     32:        /* save line for possible undo */
                     33:        expand();
                     34:        sprintf(temp,"%d %s %s\n\0",inst.thing.linno,decode(inst.thing.opcode.lobyte),linbuf);
                     35:        line = inst.thing.linno;
                     36:        save=curptr;
                     37:        cover(lbdptr,curptr);
                     38:        lbdptr=curptr=save;
                     39:        return(0);
                     40:        }
                     41:        lnpars(); 
                     42:        if(finish == 0)
                     43:        {
                     44:                local.thing.linno = start;
                     45:                expr[0] = '\0';
                     46:                delete();
                     47:                return(0);
                     48:        }
                     49:        if(fetch(start,&lbdptr) == -1) return(-1);
                     50:        save = curptr;
                     51:        fetch(finish,&lbdptr);
                     52:        cover(lbdptr,save);
                     53:        return(0);
                     54: }

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