Bell 32V development

Work on file usr/src/libI77/sue.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v

diff --git a/usr/src/libI77/sue.c b/usr/src/libI77/sue.c
new file mode 100644 (file)
index 0000000..16b217a
--- /dev/null
+++ b/usr/src/libI77/sue.c
@@ -0,0 +1,63 @@
+#include "fio.h"
+extern int reclen;
+long recloc;
+s_rsue(a) cilist *a;
+{
+       int n;
+       if(!init) f_init();
+       if(n=c_sue(a,READ)) return(n);
+       reading=1;
+       recpos=0;
+       if(curunit->uwrt) nowreading(curunit);
+       if(fread(&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);
+}
+s_wsue(a) cilist *a;
+{
+       int n;
+       if(!init) f_init();
+       if(n=c_sue(a,WRITE)) return(n);
+       reading=0;
+       reclen=0;
+       if(!curunit->uwrt) nowwriting(curunit);
+       recloc=ftell(cf);
+       fseek(cf,(long)sizeof(int),1);
+       return(0);
+}
+c_sue(a,flag) 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(flag,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);
+}
+e_wsue()
+{      long loc;
+       fwrite(&reclen,sizeof(int),1,cf);
+       loc=ftell(cf);
+       fseek(cf,recloc,0);
+       fwrite(&reclen,sizeof(int),1,cf);
+       fseek(cf,loc,0);
+       return(0);
+}
+e_rsue()
+{
+       fseek(cf,(long)(reclen-recpos+sizeof(int)),1);
+       return(0);
+}