summaryrefslogtreecommitdiffstats
path: root/lib/libI77/rsfe.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib/libI77/rsfe.c')
-rw-r--r--lib/libI77/rsfe.c13
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;
OpenPOWER on IntegriCloud