Close all open files on exit

git-svn-id: svn://svn.cc65.org/cc65/trunk@1707 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/common/_file.s

@@ -3,11 +3,49 @@
 ;
 ; Data for the stdio file stream.
 ;
+; Be sure to keep the value priority of closeallstreams lower than that of
+; closeallfiles (which is the low level POSIX counterpart and must be
+; called after closeallstreams).
 
-	.export		__filetab, _stdin, _stdout, _stderr
+	.export	 	__filetab, _stdin, _stdout, _stderr
+        .destructor     closeallstreams, 16
+        .import         _close
 
+        .include        "fcntl.inc"
         .include        "_file.inc"
 
+;----------------------------------------------------------------------------
+; Close all files on exit
+
+.proc   closeallstreams
+
+       	ldy	#((FOPEN_MAX - 1) * _FILE_size)
+loop:  	sty     index                           ; Save the index
+        lda     __filetab + _FILE_f_flags,y     ; Load file flags
+        and     #_FOPEN                         ; Is it open?
+       	beq    	next                            ; jump if closed
+
+; Close this file
+
+        lda     __filetab + _FILE_f_fd,y
+        ldx     #0
+        jsr     _close
+
+; Next file
+
+next:   lda     index
+        sec
+        sbc     #_FILE_size
+        tay
+        bcs     loop
+
+        rts
+
+.endproc
+
+;----------------------------------------------------------------------------
+; File data
+
 .data
 
 __filetab:
@@ -22,10 +60,17 @@ __filetab:
 ; Standard file descriptors
 
 _stdin:
-	.word	__filetab + (0 * _FILE_size)
+	.word	__filetab + (STDIN_FILENO * _FILE_size)
 
 _stdout:
-	.word	__filetab + (1 * _FILE_size)
+	.word	__filetab + (STDOUT_FILENO * _FILE_size)
 
 _stderr:
-	.word	__filetab + (2 * _FILE_size)
+	.word	__filetab + (STDERR_FILENO * _FILE_size)
+
+
+; Temp storage for closeallstreams
+
+.bss
+index:  .res    1
+