Return to rsli.c CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/rsli.c, revision 1.1

1.1     ! root        1: #include "f2c.h"
        !             2: #include "fio.h"
        !             3: #include "lio.h"
        !             4: #include "fmt.h" /* for f__doend */
        !             5: 
        !             6: extern flag f__lquit;
        !             7: extern int f__lcount;
        !             8: extern char *f__icptr;
        !             9: extern char *f__icend;
        !            10: extern icilist *f__svic;
        !            11: extern int f__icnum, f__recpos;
        !            12: 
        !            13: static int i_getc(Void)
        !            14: {
        !            15:        if(f__recpos >= f__svic->icirlen) {
        !            16:                if (f__recpos++ == f__svic->icirlen)
        !            17:                        return '\n';
        !            18:                z_rnew();
        !            19:                }
        !            20:        f__recpos++;
        !            21:        if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"internal read");
        !            22:        return(*f__icptr++);
        !            23:        }
        !            24: 
        !            25:  static
        !            26: #ifdef KR_headers
        !            27: int i_ungetc(ch, f) int ch; FILE *f;
        !            28: #else
        !            29: int i_ungetc(int ch, FILE *f)
        !            30: #endif
        !            31: {
        !            32:        if (--f__recpos == f__svic->icirlen)
        !            33:                return '\n';
        !            34:        if (f__recpos < -1)
        !            35:                err(f__svic->icierr,110,"recend");
        !            36:        /* *--icptr == ch, and icptr may point to read-only memory */
        !            37:        return *--f__icptr /* = ch */;
        !            38:        }
        !            39: 
        !            40:  static void
        !            41: #ifdef KR_headers
        !            42: c_lir(a) icilist *a;
        !            43: #else
        !            44: c_lir(icilist *a)
        !            45: #endif
        !            46: {
        !            47:        extern int l_eof;
        !            48:        f__reading = 1;
        !            49:        f__external = 0;
        !            50:        f__formatted = 1;
        !            51:        f__svic = a;
        !            52:        L_len = a->icirlen;
        !            53:        f__recpos = -1;
        !            54:        f__icnum = f__recpos = 0;
        !            55:        f__cursor = 0;
        !            56:        l_getc = i_getc;
        !            57:        l_ungetc = i_ungetc;
        !            58:        l_eof = 0;
        !            59:        f__icptr = a->iciunit;
        !            60:        f__icend = f__icptr + a->icirlen*a->icirnum;
        !            61:        f__cf = 0;
        !            62:        f__curunit = 0;
        !            63:        f__elist = (cilist *)a;
        !            64:        }
        !            65: 
        !            66: 
        !            67: #ifdef KR_headers
        !            68: integer s_rsli(a) icilist *a;
        !            69: #else
        !            70: integer s_rsli(icilist *a)
        !            71: #endif
        !            72: {
        !            73:        f__lioproc = l_read;
        !            74:        f__lquit = 0;
        !            75:        f__lcount = 0;
        !            76:        c_lir(a);
        !            77:        f__doend = 0;
        !            78:        return(0);
        !            79:        }
        !            80: 
        !            81: integer e_rsli(Void)
        !            82: { return 0; }
        !            83: 
        !            84: #ifdef KR_headers
        !            85: integer s_rsni(a) icilist *a;
        !            86: #else
        !            87: extern int x_rsne(cilist*);
        !            88: 
        !            89: integer s_rsni(icilist *a)
        !            90: #endif
        !            91: {
        !            92:        cilist ca;
        !            93:        ca.ciend = a->iciend;
        !            94:        ca.cierr = a->icierr;
        !            95:        ca.cifmt = a->icifmt;
        !            96:        c_lir(a);
        !            97:        return x_rsne(&ca);
        !            98:        }

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