UNIX 7th Ed. - /usr/src/libI77/dfe.c

   1: #include "fio.h"
   2: #include "fmt.h"
   3: extern int rd_ed(),rd_ned(),y_getc(),y_putc(),y_err();
   4: extern int y_rev();
   5: extern int w_ed(),w_ned();
   6: s_rdfe(a) cilist *a;
   7: {
   8:     int n;
   9:     if(!init) f_init();
  10:     if(n=c_dfe(a,READ))return(n);
  11:     reading=1;
  12:     if(curunit->uwrt) nowreading(curunit);
  13:     getn = y_getc;
  14:     doed = rd_ed;
  15:     doned = rd_ned;
  16:     dorevert = donewrec = y_err;
  17:     doend = y_rev;
  18:     if(pars_f(fmtbuf)<0)
  19:         err(a->cierr,100,"startio");
  20:     fmt_bg();
  21:     return(0);
  22: }
  23: s_wdfe(a) cilist *a;
  24: {
  25:     int n;
  26:     if(!init) f_init();
  27:     if(n=c_dfe(a,WRITE)) return(n);
  28:     reading=0;
  29:     if(!curunit->uwrt) nowwriting(curunit);
  30:     putn = y_putc;
  31:     doed = w_ed;
  32:     doned= w_ned;
  33:     dorevert = donewrec = y_err;
  34:     doend = y_rev;
  35:     if(pars_f(fmtbuf)<0)
  36:         err(a->cierr,100,"startwrt");
  37:     fmt_bg();
  38:     return(0);
  39: }
  40: e_rdfe()
  41: {
  42:     en_fio();
  43:     return(0);
  44: }
  45: e_wdfe()
  46: {
  47:     en_fio();
  48:     return(0);
  49: }
  50: c_dfe(a,flag) cilist *a;
  51: {
  52:     sequential=0;
  53:     formatted=external=1;
  54:     elist=a;
  55:     cursor=scale=recpos=0;
  56:     if(a->ciunit>MXUNIT || a->ciunit<0)
  57:         err(a->cierr,101,"startchk");
  58:     curunit = &units[a->ciunit];
  59:     if(curunit->ufd==NULL && fk_open(flag,DIR,FMT,a->ciunit))
  60:         err(a->cierr,104,"dfe");
  61:     cf=curunit->ufd;
  62:     if(!curunit->ufmt) err(a->cierr,102,"dfe")
  63:     if(!curunit->useek) err(a->cierr,104,"dfe")
  64:     fmtbuf=a->cifmt;
  65:     fseek(cf,(long)curunit->url * (a->cirec-1),0);
  66:     curunit->uend = 0;
  67:     return(0);
  68: }
  69: y_getc()
  70: {
  71:     int ch;
  72:     if(curunit->uend) return(-1);
  73:     if((ch=getc(cf))!=EOF)
  74:     {
  75:         recpos++;
  76:         if(curunit->url>=recpos ||
  77:             curunit->url==1)
  78:             return(ch);
  79:         else    return(' ');
  80:     }
  81:     if(feof(cf))
  82:     {
  83:         curunit->uend=1;
  84:         errno=0;
  85:         return(-1);
  86:     }
  87:     err(elist->cierr,errno,"readingd");
  88: }
  89: y_putc(c)
  90: {
  91:     recpos++;
  92:     if(recpos <= curunit->url || curunit->url==1)
  93:         putc(c,cf);
  94:     else
  95:         err(elist->cierr,110,"dout");
  96:     return(0);
  97: }
  98: y_rev()
  99: {   /*what about work done?*/
 100:     if(curunit->url==1 || recpos==curunit->url)
 101:         return(0);
 102:     while(recpos<curunit->url)
 103:         (*putn)(' ');
 104:     recpos=0;
 105:     return(0);
 106: }
 107: y_err()
 108: {
 109:     err(elist->cierr, 110, "dfe");
 110: }

Defined functions