Return to rsli.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / old1

Annotation of researchv10dc/libI77/old1/rsli.c, revision 1.1.1.1

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

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