diff options
Diffstat (limited to 'lib/libI77/rsfe.c')
-rw-r--r-- | lib/libI77/rsfe.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/lib/libI77/rsfe.c b/lib/libI77/rsfe.c index 24ecafc..41ff257 100644 --- a/lib/libI77/rsfe.c +++ b/lib/libI77/rsfe.c @@ -3,7 +3,6 @@ #include "fio.h" #include "fmt.h" -int xrd_SL(Void) { int ch; if(!f__curunit->uend) @@ -15,8 +14,6 @@ xrd_SL(Void) f__cursor=f__recpos=0; return(1); } - -int x_getc(Void) { int ch; if(f__curunit->uend) return(EOF); @@ -36,15 +33,11 @@ x_getc(Void) } return(-1); } - -int x_endp(Void) { - (void) xrd_SL(); - return(0); + xrd_SL(); + return f__curunit->uend == 1 ? EOF : 0; } - -int x_rev(Void) { (void) xrd_SL(); @@ -57,7 +50,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; |