1*20990Slibs /* 2*20990Slibs char id_rdfe[] = "@(#)rdfe.c 1.1"; 3*20990Slibs * 4*20990Slibs * read direct formatted external i/o 5*20990Slibs */ 6*20990Slibs 7*20990Slibs #include "fio.h" 8*20990Slibs 9*20990Slibs extern int rd_ed(),rd_ned(); 10*20990Slibs int y_getc(),y_rnew(),y_tab(); 11*20990Slibs 12*20990Slibs LOCAL char rdfe[] = "read dfe"; 13*20990Slibs 14*20990Slibs s_rdfe(a) cilist *a; 15*20990Slibs { 16*20990Slibs int n; 17*20990Slibs reading = YES; 18*20990Slibs if(n=c_dfe(a,READ,rdfe)) return(n); 19*20990Slibs if(curunit->uwrt && ! nowreading(curunit)) err(errflag, errno, rdfe) 20*20990Slibs getn = y_getc; 21*20990Slibs doed = rd_ed; 22*20990Slibs doned = rd_ned; 23*20990Slibs dotab = y_tab; 24*20990Slibs dorevert = doend = donewrec = y_rnew; 25*20990Slibs if(pars_f()) err(errflag,F_ERFMT,rdfe) 26*20990Slibs fmt_bg(); 27*20990Slibs return(OK); 28*20990Slibs } 29*20990Slibs 30*20990Slibs e_rdfe() 31*20990Slibs { 32*20990Slibs en_fio(); 33*20990Slibs return(OK); 34*20990Slibs } 35*20990Slibs 36*20990Slibs LOCAL 37*20990Slibs y_getc() 38*20990Slibs { 39*20990Slibs int ch; 40*20990Slibs if(curunit->uend) return(EOF); 41*20990Slibs if(curunit->url==1 || recpos++ < curunit->url) 42*20990Slibs { 43*20990Slibs if((ch=getc(cf))!=EOF) 44*20990Slibs { 45*20990Slibs return(ch); 46*20990Slibs } 47*20990Slibs if(feof(cf)) 48*20990Slibs { 49*20990Slibs curunit->uend = YES; 50*20990Slibs return(EOF); 51*20990Slibs } 52*20990Slibs err(errflag,errno,rdfe); 53*20990Slibs } 54*20990Slibs else return(' '); 55*20990Slibs } 56*20990Slibs 57*20990Slibs /* 58*20990Slibs /*y_rev() 59*20990Slibs /*{ /*what about work done?*/ 60*20990Slibs /* if(curunit->url==1) return(0); 61*20990Slibs /* while(recpos<curunit->url) (*putn)(' '); 62*20990Slibs /* recpos=0; 63*20990Slibs /* return(0); 64*20990Slibs /*} 65*20990Slibs /* 66*20990Slibs /*y_err() 67*20990Slibs /*{ 68*20990Slibs /* err(errflag, F_EREREC, rdfe+5); 69*20990Slibs /*} 70*20990Slibs */ 71*20990Slibs 72*20990Slibs LOCAL 73*20990Slibs y_rnew() 74*20990Slibs { if(curunit->url != 1) 75*20990Slibs { fseek(cf,(long)curunit->url*(++recnum),0); 76*20990Slibs recpos = reclen = cursor = 0; 77*20990Slibs } 78*20990Slibs return(OK); 79*20990Slibs } 80