Return to put.c CVS log

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

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

1.1     ! root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             2: 
        !             3:  *     *********************************************
        !             4:  *     *********************************************
        !             5:  *     *** INSERT A LINE INTO THE PROGRAM BUFFER ***
        !             6:  *     ******** R. B. Drake WH 8C-005 X4163 ********
        !             7:  *     ********* Sun Aug 26 11:16:53 1979 **********
        !             8:  *     *********************************************
        !             9:  *     *********************************************
        !            10: 
        !            11: */
        !            12: /*   "@(#) put.c:  V 1.1  12/21/80" */
        !            13: 
        !            14: /* Called by "bed" */
        !            15: /* in the case of line insertion or replacement, the task of writting
        !            16:  * the new line into the program txtbuf is the same and can be handled
        !            17:  * by a common routine "put" */
        !            18: #include "bas.h"
        !            19: put()
        !            20: {
        !            21: int i;
        !            22:                for(i=0;i<4;i++)
        !            23:                        *curptr++=local.byte[i];
        !            24:                expr = curptr;
        !            25:                for(i=0;linbuf[i] !=0;i++)
        !            26:                        *curptr++=linbuf[i];
        !            27:                *curptr++='\0';
        !            28: }

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