diff options
Diffstat (limited to 'lib/libI77/rsfe.c')
-rw-r--r-- | lib/libI77/rsfe.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/libI77/rsfe.c b/lib/libI77/rsfe.c index 5ff0a33..24ecafc 100644 --- a/lib/libI77/rsfe.c +++ b/lib/libI77/rsfe.c @@ -3,6 +3,7 @@ #include "fio.h" #include "fmt.h" +int xrd_SL(Void) { int ch; if(!f__curunit->uend) @@ -14,6 +15,8 @@ xrd_SL(Void) f__cursor=f__recpos=0; return(1); } + +int x_getc(Void) { int ch; if(f__curunit->uend) return(EOF); @@ -33,11 +36,15 @@ x_getc(Void) } return(-1); } + +int x_endp(Void) { (void) xrd_SL(); return(0); } + +int x_rev(Void) { (void) xrd_SL(); @@ -50,7 +57,7 @@ integer s_rsfe(cilist *a) /* start */ #endif { int n; if(!f__init) f_init(); - if(n=c_sfe(a)) return(n); + if( (n=c_sfe(a)) ) return(n); f__reading=1; f__sequential=1; f__formatted=1; |