From 20854fc3b05290fa4d89e52fb25f8b6156cb9a6f Mon Sep 17 00:00:00 2001
From: Jim Saxton <black.belt.jimmy@gmail.com>
Date: Fri, 7 Jul 2017 13:37:44 -0700
Subject: [PATCH] add an option to close all files

---
 src/io.c                 | 12 ++++++++++++
 yab-IDE/data/Help_En.dat | 14 +++++++++++---
 2 files changed, 23 insertions(+), 3 deletions(-)

diff --git a/src/io.c b/src/io.c
index 854d97a..93015d8 100644
--- a/src/io.c
+++ b/src/io.c
@@ -762,12 +762,24 @@ void myclose(void) /* close the specified stream */
 #endif
   
   s=(int)pop(stNUMBER)->value;
+  if (s == -2){
+  	for(s=1;s<FOPEN_MAX-4;s++) {
+  		if (stream_modes[s]!=smCLOSED) {
+  			streams[s]=NULL;
+  			stream_modes[s]=smCLOSED;
+      	}
+    }
+    return;
+  }
+  
   if (abs(s)==STDIO_STREAM || badstream(s,0)) return;
   if (stream_modes[s]==smCLOSED) {
     sprintf(string,"stream %d already closed",s);
     error(WARNING,string);
     return;
   }
+  
+	
   if (s==lprstream) {
 #ifdef UNIX
     pclose(lineprinter);
diff --git a/yab-IDE/data/Help_En.dat b/yab-IDE/data/Help_En.dat
index cbeb662..3b81b8f 100644
--- a/yab-IDE/data/Help_En.dat
+++ b/yab-IDE/data/Help_En.dat
@@ -3210,19 +3210,27 @@ close -- close a file, which has been opened before
 
 Synopsis: 
 close filenum 
-close # filenum 
+close # filenum
+close -2
+close #-2 
 
 Description:
+
 The close-command closes an open file. You should issue this command as soon as you are done with reading from or writing to a file.
 
+close -2 closes all open files. 
 Example:
+
+all = -2
 open "my.data" for reading as 1 
 input #1 a 
 print a 
-close 1 
+close all 
+
 Explanation:
 
-This program opens the file "my.data", reads a number from it, prints this number and closes the file again.
+This program opens the file "my.data", reads a number from it, prints this number and then closes all files.
+
 
 
 Related: open