mirror of
https://github.com/cc65/cc65.git
synced 2024-12-22 12:30:41 +00:00
Add support for append mode
git-svn-id: svn://svn.cc65.org/cc65/trunk@1542 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
ca905a8705
commit
b2a06ab041
@ -85,13 +85,13 @@ namecheck:
|
||||
bpl namecheck
|
||||
tax
|
||||
lda __ctype,x
|
||||
and #(CT_LOWER|CT_DIGIT)
|
||||
and #CT_ALNUM
|
||||
beq invalidname
|
||||
|
||||
; Check the maximum length, store the character
|
||||
|
||||
nameok: ldx fnlen
|
||||
cpx #14 ; Maximum length reached?
|
||||
cpx #16 ; Maximum length reached?
|
||||
bcs invalidname
|
||||
lda (ptr1),y ; Reload char
|
||||
sta fnbuf,x ; Store into buffer
|
||||
@ -158,8 +158,8 @@ fnunit: .res 1
|
||||
fnlen: .res 1
|
||||
|
||||
.data
|
||||
fncmd: .byte 's' ; Use as scratch command
|
||||
fnbuf: .res 20
|
||||
fncmd: .byte 's' ; Use as scratch command
|
||||
fnbuf: .res 22 ; 0:0123456789012345,t,m
|
||||
|
||||
.rodata
|
||||
; Characters that are ok in filenames besides digits and letters
|
||||
|
@ -50,26 +50,15 @@ parmok: jsr popax ; Get flags
|
||||
bcs nofile
|
||||
stx tmp2
|
||||
|
||||
; Check the flags. We cannot have:
|
||||
;
|
||||
; - both, read and write flags set
|
||||
; - the append flag set
|
||||
;
|
||||
; Check the flags. We cannot have both, read and write flags set, and we cannot
|
||||
; open a file for writing without creating it.
|
||||
|
||||
lda tmp3
|
||||
and #O_RDWR
|
||||
beq invflags ; Neither read nor write
|
||||
cmp #O_RDWR
|
||||
beq invflags ; Jump if both set
|
||||
cmp #O_RDONLY
|
||||
beq doread
|
||||
|
||||
; Write bit is set. We cannot open a file for writing without creating it,
|
||||
; so check for the O_CREAT bit.
|
||||
|
||||
lda tmp3
|
||||
and #O_CREAT
|
||||
beq invflags
|
||||
and #(O_RDWR | O_CREAT)
|
||||
cmp #O_RDONLY ; Open for reading?
|
||||
beq doread ; Yes: Branch
|
||||
cmp #(O_WRONLY | O_CREAT) ; Open for writing?
|
||||
bne invflags ; No: Invalid open mode
|
||||
|
||||
; If O_TRUNC is set, scratch the file, but ignore any errors
|
||||
|
||||
@ -78,10 +67,15 @@ parmok: jsr popax ; Get flags
|
||||
beq notrunc
|
||||
jsr scratch
|
||||
|
||||
; Complete the the file name
|
||||
; Complete the the file name. Check for append mode here.
|
||||
|
||||
notrunc:
|
||||
lda #'w'
|
||||
lda tmp3 ; Get the mode again
|
||||
ldx #'a'
|
||||
and #O_APPEND ; Append mode?
|
||||
bne append ; Branch if yes
|
||||
ldx #'w'
|
||||
append: txa
|
||||
jsr fncomplete
|
||||
|
||||
; Setup the real open flags
|
||||
|
Loading…
Reference in New Issue
Block a user