yann64/Yab2Cpp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add an option to close all files

Browse Source
This commit is contained in:
Jim Saxton 2017-07-07 13:37:44 -07:00
parent 8bf19814bc
commit 20854fc3b0
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/io.c
View File

@ -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);

14
yab-IDE/data/Help_En.dat
View File

@ -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