From eb60a204c1b325838b740ecb623922c30b558d60 Mon Sep 17 00:00:00 2001
From: John van Groningen
Date: Fri, 25 Jun 2004 10:41:35 +0000
Subject: implement file_error for stdio

---
 ufileIO2.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'ufileIO2.c')

diff --git a/ufileIO2.c b/ufileIO2.c
index f079f70..f718b3b 100644
--- a/ufileIO2.c
+++ b/ufileIO2.c
@@ -940,8 +940,12 @@ int file_error (long fn)
 {
 	if (fn<FIRST_REAL_FILE){
 		switch (fn){
-			case 0:
 			case 1:
+				if (ferror (stdin) || ferror (stdout))
+					return -1;
+				else
+					return 0;
+			case 0:
 				return 0;
 			default:
 				return -1;
-- 
cgit v1.2.3