Return to more.c CVS log

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

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

1.1     ! root        1: 
        !             2: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             3: 
        !             4:  *     /////////////////////////////////////
        !             5:  *     /////////////////////////////////////
        !             6:  *     /////////////// more ////////////////
        !             7:  *     /// J. P. Hawkins WH X4610 8C-001 ///
        !             8:  *     ///// Sat Feb 21 08:56:12 1981 //////
        !             9:  *     /////////////////////////////////////
        !            10:  *     /////////////////////////////////////
        !            11:  *     @(#) more.c: V1.2 9/9/81
        !            12: 
        !            13: */
        !            14: #include "bas.h"
        !            15: 
        !            16: int    moreflag[8];
        !            17: char   morebuf[8][132];
        !            18: extern struct FILTBL filtbl[];
        !            19: 
        !            20: more(fnum)
        !            21: int    fnum;           /* BASIC file designator (table position) */
        !            22: {
        !            23:        int fd;
        !            24:        fd = filtbl[fnum].fildes;       /* get real filedes */
        !            25:        moreflag[fnum] = 1;             /* set data pre-read */
        !            26:        return(getmore(fd,&morebuf[fnum][0]));
        !            27: }
        !            28: 
        !            29: /*
        !            30:  *
        !            31:  * //// GET LINE FROM FILE ////
        !            32:  */
        !            33: fgetlin(tmpbuf,fnum)
        !            34: char   tmpbuf[];
        !            35: int    fnum;                   /* file designator for BASIC */
        !            36: {
        !            37:        int fd;
        !            38: 
        !            39:        fd = filtbl[fnum].fildes; /* convert to system file descriptor */
        !            40:        if(moreflag[fnum])      /* if buffer was read by "if more" */
        !            41:        {
        !            42:                strcpy(tmpbuf,&morebuf[fnum][0]); /* just copy data already read */
        !            43:                moreflag[fnum] = 0;
        !            44:        }
        !            45:        else
        !            46:        {
        !            47:                getmore(fd,tmpbuf);     /* else do the read now */
        !            48:        }
        !            49: }
        !            50: 
        !            51: getmore(fd,tmpbuf)
        !            52: int    fd;
        !            53: char   tmpbuf[];
        !            54: {
        !            55:        register i;
        !            56: 
        !            57:        i = 0;
        !            58:        while(read(fd,&tmpbuf[i],1) > 0)
        !            59:        {
        !            60:                if(tmpbuf[i] == '\n')
        !            61:                {
        !            62:                        tmpbuf[i] = '\0';
        !            63:                        return(i);
        !            64:                }
        !            65:                i++;
        !            66:        }
        !            67:        if(i == 0)  /* make sure buffer looks empty if nothing read */
        !            68:                tmpbuf[0] = '\0';
        !            69:        return(i);
        !            70: }

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