Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-11-03 04:17:16 +00:00
Code Issues Projects Releases Wiki Activity

diskio: added several diskio routines to list only the files or dir entries on the disk

Browse Source 
uses CBM DOS filtering $:*=c and $:*=p
This commit is contained in:
Irmen de Jong
2025-02-02 02:44:23 +01:00
parent 0864b0a1b7
commit a96defab86
4 changed files with 49 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/res/prog8lib/shared_cbm_diskio.p8
View File

@@ -27,6 +27,7 @@ diskio {
; -- Prints the directory contents to the screen. Returns success.
cbm.SETNAM(1, "$")
internal_dir:
cbm.SETLFS(READ_IO_CHANNEL, drivenumber, 0)
ubyte status = 1
void cbm.OPEN() ; open 12,8,0,"$"
@@ -81,6 +82,19 @@ io_error:
return true
}
sub directory_dirs() -> bool {
; -- Prints all entries on the disk to the screen, but only directories. Returns success.
cbm.SETNAM(5, "$:*=c") ; on C64 (1581 diskdrive) the type for directories is CBM
goto diskio.directory.internal_dir
}
sub directory_files() -> bool {
; -- Prints all entries on the disk to the screen, but only actual files. Returns success.
cbm.SETNAM(5, "$:*=p")
goto diskio.directory.internal_dir
}
sub diskname() -> uword {
; -- Returns pointer to disk name string or 0 if failure.
@@ -170,12 +184,14 @@ io_error:
sub lf_start_list(uword pattern_ptr) -> bool {
; -- start an iterative file listing with optional pattern matching.
; note: only a single iteration loop can be active at a time!
cbm.SETNAM(1, "$")
start_list_internal:
lf_end_list()
list_pattern = pattern_ptr
list_skip_disk_name = true
iteration_in_progress = true
cbm.SETNAM(1, "$")
cbm.SETLFS(READ_IO_CHANNEL, drivenumber, 0)
void cbm.OPEN() ; open 12,8,0,"$"
if_cs
@@ -195,6 +211,22 @@ io_error:
return false
}
sub lf_start_list_dirs(uword pattern_ptr) -> bool {
; -- start an iterative directory contents listing with optional pattern matching.
; this version it only returns directory entries!
; note: only a single iteration loop can be active at a time!
cbm.SETNAM(5, "$:*=c") ; on C64 (1581 diskdrive) the type for directories is CBM
goto diskio.lf_start_list.start_list_internal
}
sub lf_start_list_files(uword pattern_ptr) -> bool {
; -- start an iterative directory contents listing with optional pattern matching.
; this version only returns actual file entries!
; note: only a single iteration loop can be active at a time!
cbm.SETNAM(5, "$:*=p")
goto diskio.lf_start_list.start_list_internal
}
sub lf_next_entry() -> bool {
; -- retrieve the next entry from an iterative file listing session.
; results will be found in list_blocks, list_filename, and list_filetype.