Return to iio.c CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/iio.c, revision 1.1.1.1

1.1       root        1: #include "f2c.h"
                      2: #include "fio.h"
                      3: #include "fmt.h"
                      4: extern char *f__icptr;
                      5: char *f__icend;
                      6: extern icilist *f__svic;
                      7: int f__icnum;
                      8: extern int f__hiwater;
                      9: z_getc(Void)
                     10: {
                     11:        if(f__recpos++ < f__svic->icirlen) {
                     12:                if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"endfile");
                     13:                return(*f__icptr++);
                     14:                }
                     15:        err(f__svic->icierr,110,"recend");
                     16: #ifdef __cplusplus
                     17:        return 0;
                     18: #endif
                     19: }
                     20: #ifdef KR_headers
                     21: z_putc(c)
                     22: #else
                     23: z_putc(int c)
                     24: #endif
                     25: {
                     26:        if(f__icptr >= f__icend) err(f__svic->icierr,110,"inwrite");
                     27:        if(f__recpos++ < f__svic->icirlen)
                     28:                *f__icptr++ = c;
                     29:        else    err(f__svic->icierr,110,"recend");
                     30:        return 0;
                     31: }
                     32: z_rnew(Void)
                     33: {
                     34:        f__icptr = f__svic->iciunit + (++f__icnum)*f__svic->icirlen;
                     35:        f__recpos = 0;
                     36:        f__cursor = 0;
                     37:        f__hiwater = 0;
                     38:        return 1;
                     39: }
                     40: 
                     41:  static int
                     42: z_endp(Void)
                     43: {
                     44:        (*f__donewrec)();
                     45:        return 0;
                     46:        }
                     47: 
                     48: #ifdef KR_headers
                     49: c_si(a) icilist *a;
                     50: #else
                     51: c_si(icilist *a)
                     52: #endif
                     53: {
                     54:        f__elist = (cilist *)a;
                     55:        f__fmtbuf=a->icifmt;
                     56:        if(pars_f(f__fmtbuf)<0)
                     57:                err(a->icierr,100,"startint");
                     58:        fmt_bg();
                     59:        f__sequential=f__formatted=1;
                     60:        f__external=0;
                     61:        f__cblank=f__cplus=f__scale=0;
                     62:        f__svic=a;
                     63:        f__icnum=f__recpos=0;
                     64:        f__cursor = 0;
                     65:        f__hiwater = 0;
                     66:        f__icptr = a->iciunit;
                     67:        f__icend = f__icptr + a->icirlen*a->icirnum;
                     68:        f__curunit = 0;
                     69:        f__cf = 0;
                     70:        return(0);
                     71: }
                     72: 
                     73: y_ierr(Void)
                     74: {
                     75:        err(f__elist->cierr, 110, "iio");
                     76: #ifdef __cplusplus
                     77:        return 0;
                     78: #endif
                     79: }
                     80: 
                     81:  int
                     82: iw_rev(Void)
                     83: {
                     84:        if(f__workdone)
                     85:                z_endp();
                     86:        f__hiwater = f__recpos = f__cursor = 0;
                     87:        return(f__workdone=0);
                     88:        }
                     89: 
                     90: #ifdef KR_headers
                     91: integer s_rsfi(a) icilist *a;
                     92: #else
                     93: integer s_rsfi(icilist *a)
                     94: #endif
                     95: {      int n;
                     96:        if(n=c_si(a)) return(n);
                     97:        f__reading=1;
                     98:        f__doed=rd_ed;
                     99:        f__doned=rd_ned;
                    100:        f__getn=z_getc;
                    101:        f__dorevert = y_ierr;
                    102:        f__donewrec = z_rnew;
                    103:        f__doend = z_endp;
                    104:        return(0);
                    105: }
                    106: 
                    107: z_wnew(Void)
                    108: {
                    109:        while(f__recpos++ < f__svic->icirlen)
                    110:                *f__icptr++ = ' ';
                    111:        f__recpos = 0;
                    112:        f__cursor = 0;
                    113:        f__hiwater = 0;
                    114:        f__icnum++;
                    115:        return 1;
                    116: }
                    117: #ifdef KR_headers
                    118: integer s_wsfi(a) icilist *a;
                    119: #else
                    120: integer s_wsfi(icilist *a)
                    121: #endif
                    122: {      int n;
                    123:        if(n=c_si(a)) return(n);
                    124:        f__reading=0;
                    125:        f__doed=w_ed;
                    126:        f__doned=w_ned;
                    127:        f__putn=z_putc;
                    128:        f__dorevert = iw_rev;
                    129:        f__donewrec = z_wnew;
                    130:        f__doend = z_endp;
                    131:        return(0);
                    132: }
                    133: integer e_rsfi(Void)
                    134: {      int n;
                    135:        n = en_fio();
                    136:        f__fmtbuf = NULL;
                    137:        return(n);
                    138: }
                    139: integer e_wsfi(Void)
                    140: {
                    141:        int n;
                    142:        n = en_fio();
                    143:        f__fmtbuf = NULL;
                    144:        if(f__icnum >= f__svic->icirnum)
                    145:                return(n);
                    146:        while(f__recpos++ < f__svic->icirlen)
                    147:                *f__icptr++ = ' ';
                    148:        return(n);
                    149: }

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