6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-10 10:30:58 +00:00
Code Issues Projects Releases Wiki Activity

Fix some Apple /// differences

Browse Source
This commit is contained in:
Dave Schmenk 2020-01-10 13:55:05 -08:00
parent 6b1123a95b
commit 1f42523014
5 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/inc/fileio.plh
View File

@ -33,7 +33,7 @@ import fileio
byte entry_minver
byte entry_access
word entry_aux
word entry_mod
word entry_mod[2]
word entry_headptr
end
//

2
src/libsrc/apple/fileio.pla
View File

@ -298,7 +298,7 @@ def a3write(refnum, buff, len)
params:2 = buff
params:4 = len
perr = syscall($CB, @params)
return perr
return perr ?? 0 :: len
end
def a1create(path, type, aux)
return perr

4
src/utilsrc/apple/cat.pla
View File

@ -162,9 +162,9 @@ if not except(exit)
if ^arg
struprcpy(@path, arg)
//
// Check if cataloging a directory
// Check if cataloging a directory or volume
//
if fileio:getfileinfo(@path, @fileinfo) <> FILE_ERR_OK or fileinfo.file_type <> $0F
if fileio:getfileinfo(@path, @fileinfo) <> FILE_ERR_OK or (fileinfo.storage_type & $0D <> $0D)
filefrompath(@wildname, @path)
fin
path = path - wildname

2
src/utilsrc/apple/copy.pla
View File

@ -252,7 +252,7 @@ if not except(exit)
srcfileptr = srcfilelist
while srccnt
dstlen = dstpath
if fileio:getfileinfo(srcfileptr, @srcfileinfo) == FILE_ERR_OK and srcfileinfo.file_type == $0F
if fileio:getfileinfo(srcfileptr, @srcfileinfo) == FILE_ERR_OK and (srcfileinfo.storage_type & $0D == $0D)
if recurse
//
// Copy directory

2
src/utilsrc/apple/del.pla
View File

@ -152,7 +152,7 @@ if not except(exit)
//
// Delete files in list
//
if recurse and fileio:getfileinfo(fileptr, @fileinfo) == FILE_ERR_OK and fileinfo.file_type == $0F
if recurse and fileio:getfileinfo(fileptr, @fileinfo) == FILE_ERR_OK and (fileinfo.storage_type & $0D == $0D)
strcpy(@path,fileptr)
strcat(@path, "/")
delfiles(@path)