68 lines
1.4 KiB
C
68 lines
1.4 KiB
C
|
#include "f2c.h"
|
||
|
|
#include "fio.h"
|
||
|
|
extern int reclen;
|
||
|
|
long recloc;
|
||
|
|
|
||
|
|
integer s_rsue(a) cilist *a;
|
||
|
|
{
|
||
|
|
int n;
|
||
|
|
if(!init) f_init();
|
||
|
|
reading=1;
|
||
|
|
if(n=c_sue(a)) return(n);
|
||
|
|
recpos=0;
|
||
|
|
if(curunit->uwrt && nowreading(curunit))
|
||
|
|
err(a->cierr, errno, "read start");
|
||
|
|
if(fread((char *)&reclen,sizeof(int),1,cf)
|
||
|
|
!= 1)
|
||
|
|
{ if(feof(cf))
|
||
|
|
{ curunit->uend = 1;
|
||
|
|
err(a->ciend, EOF, "start");
|
||
|
|
}
|
||
|
|
clearerr(cf);
|
||
|
|
err(a->cierr, errno, "start");
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
integer s_wsue(a) cilist *a;
|
||
|
|
{
|
||
|
|
int n;
|
||
|
|
if(!init) f_init();
|
||
|
|
if(n=c_sue(a)) return(n);
|
||
|
|
reading=0;
|
||
|
|
reclen=0;
|
||
|
|
if(curunit->uwrt != 1 && nowwriting(curunit))
|
||
|
|
err(a->cierr, errno, "write start");
|
||
|
|
recloc=ftell(cf);
|
||
|
|
(void) fseek(cf,(long)sizeof(int),SEEK_CUR);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
c_sue(a) cilist *a;
|
||
|
|
{
|
||
|
|
if(a->ciunit >= MXUNIT || a->ciunit < 0)
|
||
|
|
err(a->cierr,101,"startio");
|
||
|
|
external=sequential=1;
|
||
|
|
formatted=0;
|
||
|
|
curunit = &units[a->ciunit];
|
||
|
|
elist=a;
|
||
|
|
if(curunit->ufd==NULL && fk_open(SEQ,UNF,a->ciunit))
|
||
|
|
err(a->cierr,114,"sue");
|
||
|
|
cf=curunit->ufd;
|
||
|
|
if(curunit->ufmt) err(a->cierr,103,"sue")
|
||
|
|
if(!curunit->useek) err(a->cierr,103,"sue")
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
integer e_wsue()
|
||
|
|
{ long loc;
|
||
|
|
(void) fwrite((char *)&reclen,sizeof(int),1,cf);
|
||
|
|
loc=ftell(cf);
|
||
|
|
(void) fseek(cf,recloc,SEEK_SET);
|
||
|
|
(void) fwrite((char *)&reclen,sizeof(int),1,cf);
|
||
|
|
(void) fseek(cf,loc,SEEK_SET);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
integer e_rsue()
|
||
|
|
{
|
||
|
|
(void) fseek(cf,(long)(reclen-recpos+sizeof(int)),SEEK_CUR);
|
||
|
|
return(0);
|
||
|
|
}
|