Return to iio.c CVS log

Up to [Research Unix] / researchv8dc / libI77

Annotation of researchv8dc/libI77/iio.c, revision 1.1

1.1     ! root        1: /*     @(#)iio.c       1.2     */
        !             2: #include "fio.h"
        !             3: #include "fmt.h"
        !             4: extern char *icptr;
        !             5: char *icend;
        !             6: extern icilist *svic;
        !             7: extern int rd_ed(),rd_ned(),w_ed(),w_ned(),y_ierr();
        !             8: extern int z_wnew();
        !             9: int icnum;
        !            10: extern int hiwater;
        !            11: z_getc()
        !            12: {
        !            13:        if(icptr >= icend) err(svic->iciend,(EOF),"endfile");
        !            14:        if(recpos++ < svic->icirlen)
        !            15:                return(*icptr++);
        !            16:        else    err(svic->icierr,110,"recend");
        !            17: }
        !            18: z_putc(c)
        !            19: {
        !            20:        if(icptr >= icend) err(svic->icierr,110,"inwrite");
        !            21:        if(recpos++ < svic->icirlen)
        !            22:                *icptr++ = c;
        !            23:        else    err(svic->icierr,110,"recend");
        !            24:        return(0);
        !            25: }
        !            26: z_rnew()
        !            27: {
        !            28:        icptr = svic->iciunit + (++icnum)*svic->icirlen;
        !            29:        recpos = 0;
        !            30:        cursor = 0;
        !            31:        hiwater = 0;
        !            32: }
        !            33: s_rsfi(a) icilist *a;
        !            34: {      int n;
        !            35:        if(n=c_si(a)) return(n);
        !            36:        reading=1;
        !            37:        doed=rd_ed;
        !            38:        doned=rd_ned;
        !            39:        getn=z_getc;
        !            40:        dorevert = y_ierr;
        !            41:        donewrec = doend = z_rnew;
        !            42:        return(0);
        !            43: }
        !            44: s_wsfi(a) icilist *a;
        !            45: {      int n;
        !            46:        if(n=c_si(a)) return(n);
        !            47:        reading=0;
        !            48:        doed=w_ed;
        !            49:        doned=w_ned;
        !            50:        putn=z_putc;
        !            51:        dorevert = y_ierr;
        !            52:        donewrec = doend = z_wnew;
        !            53:        return(0);
        !            54: }
        !            55: c_si(a) icilist *a;
        !            56: {
        !            57:        fmtbuf=a->icifmt;
        !            58:        if(pars_f(fmtbuf)<0)
        !            59:                err(a->icierr,100,"startint");
        !            60:        fmt_bg();
        !            61:        sequential=formatted=1;
        !            62:        external=0;
        !            63:        cblank=cplus=scale=0;
        !            64:        svic=a;
        !            65:        icnum=recpos=0;
        !            66:        cursor = 0;
        !            67:        hiwater = 0;
        !            68:        icptr=svic->iciunit;
        !            69:        icend=icptr+svic->icirlen*svic->icirnum;
        !            70:        return(0);
        !            71: }
        !            72: z_wnew()
        !            73: {
        !            74:        while(recpos++ < svic->icirlen)
        !            75:                *icptr++ = ' ';
        !            76:        recpos = 0;
        !            77:        cursor = 0;
        !            78:        hiwater = 0;
        !            79:        icnum++;
        !            80: }
        !            81: e_rsfi()
        !            82: {      int n;
        !            83:        n = en_fio();
        !            84:        fmtbuf = NULL;
        !            85:        return(n);
        !            86: }
        !            87: e_wsfi()
        !            88: {
        !            89:        int n;
        !            90:        n = en_fio();
        !            91:        fmtbuf = NULL;
        !            92:        if(icnum >= svic->icirnum)
        !            93:                return(n);
        !            94:        while(recpos++ < svic->icirlen)
        !            95:                *icptr++ = ' ';
        !            96:        return(n);
        !            97: }
        !            98: y_ierr()
        !            99: {
        !           100:        err(elist->cierr, 110, "iio");
        !           101: }

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