cc65/libsrc/common/fmisc.s

;
; Ullrich von Bassewitz, 31.05.1998
;
; Several small file stream functions
;

	.export		_clearerr, _feof, _ferror, _fileno, _fflush
	.import	 	return0
	.importzp 	ptr1

        .include        "_file.inc"
        .include        "errno.inc"

;
; Get the FILE* parameter, check if the file is open. Returns zero in A
; and zero flag set in case of an error.

.proc   getf
        sta    	ptr1
	stx    	ptr1+1
	ldy    	#_FILE::f_flags
	lda    	(ptr1),y      	; get f->f_flags
	and    	#_FOPEN         ; file open?
	rts
.endproc

;
; void clearerr (FILE* f);
;

.proc   _clearerr
       	jsr	getf
       	beq     err
       	lda	(ptr1),y
       	and	#<~(_FEOF | _FERROR)
       	sta	(ptr1),y
err:	rts
.endproc

;
; int feof (FILE* f);
;

.proc   _feof
 	jsr  	getf
        beq     @L1             ; Return 0 on error
 	lda  	(ptr1),y
 	and  	#_FEOF
@L1:    ldx  	#0
 	rts
.endproc

;
; int ferror (FILE* f);
;

.proc   _ferror
 	jsr    	getf
        beq     @L1             ; Return 0 on error
 	lda	(ptr1),y
 	and	#_FERROR
@L1:    ldx	#0
 	rts
.endproc

;
; int fileno (FILE* f);
;

.proc   _fileno
 	jsr    	getf
        beq     error
	ldy	#_FILE::f_fd
 	lda	(ptr1),y
 	ldx	#0
 	rts

; If the file is not valid, fileno must set errno and return -1

error:  lda     #<EBADF
        jsr     __seterrno
        lda     #$FF
        tax
        rts
.endproc

;
; int __fastcall__ fflush (FILE* f);
;

_fflush	= return0