A2osX/SHARED/X.FILEENUM.S.txt

647 lines
12 KiB
Plaintext
Raw Normal View History

NEW
2019-09-19 15:22:14 +00:00
AUTO 3,1
.LIST OFF
*--------------------------------------
X.MAX.RECURSE .EQ 8
*--------------------------------------
* Uses:
* (ZP)
* ZPPtr1 .BS 2
* ZPPtr2 .BS 2
* ZPFileName .BS 2
* ZPFileStat .BS 2
* (pData)
* Index .BS 1
* hDIRs .BS X.MAX.RECURSE+1
* hDIRENTs .BS X.MAX.RECURSE+1
* oDIRENTs .BS X.MAX.RECURSE*2
2021-06-27 13:48:04 +00:00
* STATBUF .BS S.STAT
* hSrcBasePath .BS 1
* hDstBasePath .BS 1 (optional)
* hInclude .BS 1
2020-02-29 14:06:28 +00:00
* hExclude .BS 1
*--------------------------------------
* Compare a ZPFileName against hInclude (e.g. '*test?.*')
2018-12-17 15:21:32 +00:00
* CC : match
* CS : no match
*--------------------------------------
X.IncludeMatch >LDA.G index
2019-04-30 16:08:47 +00:00
dec
bne X.FilterMatch.CLCRTS in a subdir, match everything
2019-11-26 21:59:48 +00:00
2020-02-29 14:06:28 +00:00
clc
.HS B0 BCS
X.IgnoreMatch sec
ldy #hInclude
bcc .11
iny
.11 lda (pData),y
beq X.FilterMatch.RTS No filter....exit with passed carry
2019-11-26 21:59:48 +00:00
2019-04-30 16:08:47 +00:00
>SYSCALL GetMemPtr
>STYA ZPPtr2
2019-10-12 14:20:09 +00:00
2019-11-27 22:04:55 +00:00
ldy #S.STAT.FSID
lda (ZPFileStat),y if 0, Regular ProDOS....
pha save FSID for comparing later
2019-11-29 15:36:54 +00:00
bne .10
2019-11-29 15:36:54 +00:00
>LDYA ZPPtr2 ... so CI compare
2020-03-03 16:44:52 +00:00
>SYSCALL StrUpr
.10 plx get back FSID
lda (ZPPtr2) Get first pattern byte
2021-03-11 21:40:55 +00:00
beq .8 Match always if empty
2018-12-17 15:21:32 +00:00
2019-10-12 14:20:09 +00:00
ldy #0
bra .2
2018-12-17 15:21:32 +00:00
.1 jsr X.FilterMatch.NextPtr2 get next pattern char
2018-12-17 15:21:32 +00:00
beq .41 end of pattern...
2019-10-12 14:20:09 +00:00
.2 cmp #'*'
2018-12-17 15:21:32 +00:00
beq .5
.3 lda (ZPFileName),y we must match ? or regular char, check if at end of string
beq .9 no char left, exit with error
lda (ZPPtr2) get back pattern char
cmp #'?'
beq .4 no need to compare, any char will match
jsr X.FilterMatch.CmpPtr2CharPtr1Y Regular Char, compare with string at Y
bne .9 no match, exit
.4 iny advance to next char to compare
bra .1 continue if remaining char in pattern
.41 lda (ZPFileName),y end of pattern, but end of string ?
beq .8 yes, string matched entirely
* no, remaining char in string, no match
.9 sec
rts
.5 jsr X.FilterMatch.NextPtr2 we have '*', last char of pattern ?
beq .8 yes, match everything, including empty string
cmp #'*' another '*' ?
beq .5 yes, '**' = '*', go next char
cmp #'?' '*?' ? we must match a least one char
beq .3
.7 lda (ZPFileName),y we need at least one remaining char in string, check if at end of string
beq .9 no chance to match ? or regular char
2018-12-17 15:21:32 +00:00
iny
jsr X.FilterMatch.CmpPtr2CharPtr1Y compare with char in string
bne .7 not equal to next non wildcard in pattern
iny
bra .1 go check remaining char in pattern...
.8
X.FilterMatch.CLCRTS
2020-02-29 14:06:28 +00:00
clc
X.FilterMatch.RTS
rts
2018-12-17 15:21:32 +00:00
*--------------------------------------
X.FilterMatch.CmpPtr2CharPtr1Y
lda (ZPFileName),y
2019-11-29 15:36:54 +00:00
phx
plx
bne .1 Foreign FS or ProDOS.FX : CS compare
2019-11-29 15:36:54 +00:00
jsr X.ToUpper
2019-11-29 15:36:54 +00:00
.1 cmp (ZPPtr2)
rts
*--------------------------------------
X.FilterMatch.NextPtr2
inc ZPPtr2 Make PTR2 advance to next char
bne .1
2019-10-12 14:20:09 +00:00
inc ZPPtr2+1
2019-10-12 14:20:09 +00:00
.1 lda (ZPPtr2)
rts
2019-10-12 14:20:09 +00:00
*--------------------------------------
X.InitSrcDirYA >STYA ZPPtr1
2019-10-12 14:20:09 +00:00
X.InitSrcDirPtr1
jsr X.InitGetBuf Get a 256 buffer to store BasePath
bcs .99
>STA.G hSrcBasePath
ldy #1
lda (ZPPtr2),y
beq .8 we have '/'
2018-12-20 07:33:10 +00:00
jsr X.Init.StatBuf
bcs .1 File/DIR does not exists, go extract pattern
2019-04-29 15:47:17 +00:00
.DO X.ENTER.SUBDIR=1
2021-06-27 13:48:04 +00:00
>LDA.G STATBUF+S.STAT.MODE+1
2021-02-17 16:15:43 +00:00
and #$F0
cmp /S.STAT.MODE.DIR
bne .4 TYPE not a DIR, extract....
2019-10-12 14:20:09 +00:00
bra .5 TYPE=DIR, do not extract pattern
2021-03-11 21:40:55 +00:00
.ELSE
2019-04-29 15:47:17 +00:00
bra .4
.FIN
2019-10-12 14:20:09 +00:00
2021-03-11 21:40:55 +00:00
.1 cmp #MLI.E.INVPATH
beq .11
sec
rts
.11 jsr X.GetPtr2Len TYPE is not DIR, check if wc
2019-10-12 14:20:09 +00:00
dey
2019-10-12 14:20:09 +00:00
ldx #0 Init Wildcard count
2019-10-12 14:20:09 +00:00
.2 lda (ZPPtr2),y search backward for a /
cmp #'/'
beq .3
2019-10-12 14:20:09 +00:00
cmp #'?' Test if some wildcard chars....
beq .21
2019-10-12 14:20:09 +00:00
cmp #'*'
bne .22
2019-10-12 14:20:09 +00:00
.21 inx inc wildcard count
.22 dey
bne .2
2019-10-12 14:20:09 +00:00
.3 txa
beq .98 no wc, file not found....
.4 jsr X.InitSplitBuf
bcs .99
2019-10-12 14:20:09 +00:00
>STA.G hInclude
2019-10-12 14:20:09 +00:00
.8 >LDYA ZPPtr2
2018-07-18 15:30:42 +00:00
>SYSCALL OpenDir
bcs .99
2019-10-12 14:20:09 +00:00
ldy #hDIRs
sta (pData),y set hDIRs[0] = Src Hdir
ldy #index
lda #1
sta (pData),y index=hDIRs[0]
2021-03-11 21:40:55 +00:00
* clc
2021-03-11 21:40:55 +00:00
rts
2021-07-25 14:03:41 +00:00
.98 lda #MLI.E.INVPATH
sec
.99 rts
*--------------------------------------
.DO X.RESETSRCDIR=1
X.ResetSrcDir jsr X.GethDIR
>SYSCALL CloseDir
>LDA.G hSrcBasePath
>SYSCALL GetMemPtr
>SYSCALL OpenDir
bcs .9
pha
>LDA.G index
clc
adc #hDIRs-1
tay
pla
sta (pData),y
* clc
.9 rts
.FIN
*--------------------------------------
.DO X.COPY.TO.DEST=1
X.InitDstDirYA >STYA ZPPtr1
X.InitDstDirPtr1
jsr X.InitGetBuf Get a 256 buffer to store BasePath
bcs .99
>STA.G hDstBasePath
jsr X.Init.StatBuf
bcs .1 File/DIR does not exists, go extract DstFileName
2019-10-12 14:20:09 +00:00
2021-06-27 13:48:04 +00:00
>LDA.G STATBUF+S.STAT.MODE+1
2021-02-17 16:15:43 +00:00
and #$F0
cmp /S.STAT.MODE.DIR
beq .8 Dst is a directory...no hDstFileName
.1 jsr X.InitSplitBuf
bcs .99
2019-10-12 14:20:09 +00:00
>STA.G hDstFileName
.8 jmp X.NormalizePtr2
2019-10-12 14:20:09 +00:00
.99 rts
2019-10-12 14:20:09 +00:00
.FIN
*--------------------------------------
X.InitGetBuf >LDYAI 256
>SYSCALL GetMem Get a 256 buffer to store BasePath
bcs .99
>STYA ZPPtr2
phx
>PUSHW ZPPtr1
>PUSHW ZPPtr2
>SYSCALL RealPath
bcs .98
pla hBuf
* clc
rts
.98 plx
pha
txa
>SYSCALL FreeMem
pla
sec
.99 rts
*--------------------------------------
X.Init.StatBuf >PUSHW ZPPtr2
>PUSHEA.G STATBUF
>SYSCALL Stat
rts
*--------------------------------------
X.InitSplitBuf jsr X.GetPtr2Len Search end of string.....
2019-10-12 14:20:09 +00:00
lda #'/'
2019-10-12 14:20:09 +00:00
.1 dey
cmp (ZPPtr2),y Search backward /
bne .1
2019-10-12 14:20:09 +00:00
tya
sec +1 to skip '/'
adc ZPPtr2
sta ZPPtr1
2019-10-12 14:20:09 +00:00
lda ZPPtr2+1
adc #0
sta ZPPtr1+1
lda (ZPPtr1)
beq .8 path is /dir/
>LDYA ZPPtr1
>SYSCALL StrDup
bcs .99
2019-10-12 14:20:09 +00:00
lda #0
sta (ZPPtr1)
txa
.8 clc
.99 rts
*--------------------------------------
X.GetNextEntry jsr X.GetEntry
bcs .9
jsr X.GetFilenameLen Save actual file len for setting up
2018-12-19 16:45:09 +00:00
pha new offset later
lda ZPFileStat
clc
adc #S.STAT
sta ZPFileName
lda ZPFileStat+1
adc /S.STAT
sta ZPFileName+1 Make nDIRENTs[i] point to next DIRENT
jsr X.GetFilenameLen are we at end of this buffer ?
beq .1 yes, go read next one ...
jsr X.SetFileStatPtr
jsr X.GetoDIRENT
pla Get back previous file len
sec
adc (pData),y
sta (pData),y
iny
lda #0
adc (pData),y
sta (pData),y
dey
lda #S.STAT
clc
adc (pData),y
sta (pData),y
iny
lda /S.STAT
adc (pData),y
sta (pData),y
clc
rts
.1 pla
jsr X.GetEntry.ReadDir
bcs .9
jsr X.GetFilenameLen
beq .99
2018-12-19 16:45:09 +00:00
jsr X.SetFileStatPtr
clc
.9 rts
.99 sec
rts
*--------------------------------------
X.GetEntry jsr X.GethDIRENT
bne .1 we have a buffer to scan
jsr X.GetEntry.ReadDir First run, get first block
bcs .9 ZPFileName = start of buffer
lda (ZPFileName) Empty !!!
bne .8
2018-12-19 16:45:09 +00:00
sec
rts
2018-07-18 15:30:42 +00:00
.1 >SYSCALL GetMemPtr
>STYA ZPFileName
jsr X.GetoDIRENT
lda ZPFileName
clc
adc (pData),y
sta ZPFileName
iny
lda ZPFileName+1
adc (pData),y
sta ZPFileName+1 ZPFileName=ZPFileName+oDIRENT
.8 jsr X.GetFilenameLen
jsr X.SetFileStatPtr
clc
.9 rts
*--------------------------------------
X.GetEntry.ReadDir
jsr X.GethDIRENT
beq .1
2018-11-21 13:08:11 +00:00
pha
lda #0
sta (pData),y reset hDIRENT
pla
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem discard previous hDIRENT
.1 jsr X.GethDIR
2018-07-18 15:30:42 +00:00
>SYSCALL ReadDir
bcs .9
2020-03-17 16:03:32 +00:00
>STYA ZPFileName
ldy #index
lda (pData),y
clc
adc #hDIRENTs-1
tay
txa get hDIRENT in A
sta (pData),y
jsr X.GetoDIRENT
2018-11-21 13:08:11 +00:00
lda #0 and reset offset for this buffer
sta (pData),y
iny
sta (pData),y
clc
.9 rts
*--------------------------------------
X.EnterSubDirYA >STYA ZPPtr1 save SUBDIR for StrCat
2019-04-29 15:47:17 +00:00
>LDA.G index
cmp #X.MAX.RECURSE
beq .9
ldy #hSrcBasePath
jsr X.EnterSubDirY
>LDYA ZPPtr2
2018-07-18 15:30:42 +00:00
>SYSCALL OpenDir
bcs .9
pha
2018-11-21 13:08:11 +00:00
>INC.G index
tax
* clc from BCS
adc #hDIRs-1
tay
pla
sta (pData),y
txa make sure hDIRENTs[i] is closed
adc #hDIRENTs-1
tay
lda #0
sta (pData),y
.DO X.COPY.TO.DEST=1
ldy #hDstBasePath
jsr X.EnterSubDirY
.FIN
clc
.9 rts
*--------------------------------------
X.EnterSubDirY lda (pData),y
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
>STYA ZPPtr2 save full path
2018-11-21 13:08:11 +00:00
>PUSHW ZPPtr2
>PUSHW ZPPtr1
>SYSCALL StrCat
X.NormalizePtr2 jsr X.GetPtr2Len
2019-10-12 14:20:09 +00:00
2018-11-21 13:08:11 +00:00
dey
lda #'/'
cmp (ZPPtr2),y
2018-11-21 13:08:11 +00:00
beq .8
2018-11-21 13:08:11 +00:00
iny
sta (ZPPtr2),y
iny
lda #0
sta (ZPPtr2),y
.8 clc
rts
*--------------------------------------
X.LeaveSubDir >LDA.G index
2021-07-25 14:03:41 +00:00
beq .7
jsr X.GethDIRENT.A
jsr X.LeaveSubDir.free
2018-12-20 07:33:10 +00:00
jsr X.GethDIR
2021-07-25 14:03:41 +00:00
beq .1
pha
lda #0
sta (pData),y
pla
2018-07-18 15:30:42 +00:00
>SYSCALL CloseDir
2021-07-25 14:03:41 +00:00
.1 >DEC.G index
bne .8
2021-07-25 14:03:41 +00:00
.7 >LDA.G hSrcBasePath
jsr X.LeaveSubDir.free
2018-12-20 07:33:10 +00:00
.DO X.COPY.TO.DEST=1
2021-07-25 14:03:41 +00:00
>LDA.G hDstBasePath
jsr X.LeaveSubDir.free
.FIN
2021-07-25 14:03:41 +00:00
sec
2016-10-30 18:19:43 +00:00
rts
.8 clc
rts
2021-07-25 14:03:41 +00:00
*--------------------------------------
X.LeaveSubDir.free
2021-07-25 14:03:41 +00:00
tax
beq .8
lda #0
sta (pData),y
txa
>SYSCALL FreeMem
.8 rts
2016-10-30 18:19:43 +00:00
*--------------------------------------
X.BasePath.. .DO X.COPY.TO.DEST=1
2017-10-04 15:12:03 +00:00
ldy #hDstBasePath
jsr X.BasePath..1
.FIN
ldy #hSrcBasePath
X.BasePath..1 lda (pData),y
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
>STYA ZPPtr2 save full path
2019-10-12 14:20:09 +00:00
jsr X.GetPtr2Len get len
2019-10-12 14:20:09 +00:00
2017-10-04 15:12:03 +00:00
dey discard ending /
.2 dey
lda (ZPPtr2),y
cmp #'/'
bne .2
2019-10-12 14:20:09 +00:00
iny
lda #0
sta (ZPPtr2),y cut DIR2/ from /dir1/DIR2/
rts
*--------------------------------------
X.ToUpper cmp #'a'
bcc .8
2019-10-12 14:20:09 +00:00
cmp #'z'+1
bcs .8
eor #$20
.8 rts
2019-10-12 14:20:09 +00:00
*--------------------------------------
X.GetPtr2Len ldy #$ff
2019-10-12 14:20:09 +00:00
.1 iny
lda (ZPPtr2),y get len
2019-10-12 14:20:09 +00:00
bne .1
rts
2019-10-12 14:20:09 +00:00
*--------------------------------------
X.GetFilenameLen
ldy #$ff
2018-12-19 16:45:09 +00:00
.1 iny
lda (ZPFileName),y
bne .1
2018-12-19 16:45:09 +00:00
tya
rts
*--------------------------------------
X.SetFileStatPtr
sec
2018-12-19 16:45:09 +00:00
adc ZPFileName
sta ZPFileStat
lda ZPFileName+1
adc #0
sta ZPFileStat+1
rts
*--------------------------------------
X.GethDIR >LDA.G index
2018-11-21 13:08:11 +00:00
clc
adc #hDIRs-1
tay
lda (pData),y
rts
2019-10-03 06:25:27 +00:00
*--------------------------------------
X.GethDIRENT >LDA.G index
X.GethDIRENT.A clc
2018-11-21 13:08:11 +00:00
adc #hDIRENTs-1
tay
lda (pData),y
rts
*--------------------------------------
X.GetoDIRENT >LDA.G index
2018-11-21 13:08:11 +00:00
asl
clc
adc #oDIRENTs-1
tay
rts
*--------------------------------------
MAN
2020-08-25 14:54:30 +00:00
SAVE usr/src/shared/x.fileenum.s
LOAD usr/src/bin/cp.s
2018-07-20 11:51:08 +00:00
ASM