Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-18 05:30:34 +00:00
Code Issues Projects Releases Wiki Activity

TODOs

Browse Source
This commit is contained in:
Irmen de Jong 2020-12-08 02:20:24 +01:00
parent df20467e03
commit e9aa6a0956
2 changed files with 9 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/res/prog8lib/diskio.p8
View File

@ -59,6 +59,8 @@ io_error:
} }
; TODO make a listfiles() call that accepts a callback routine to process the file entries. This avoids the need to allocate and pass all those buffers.
sub listfiles(ubyte drivenumber, uword pattern, ubyte suffixmatch, sub listfiles(ubyte drivenumber, uword pattern, ubyte suffixmatch,
uword namesarray, uword blocksarray, uword namesbuffer, ubyte maxnum) -> ubyte { uword namesarray, uword blocksarray, uword namesbuffer, ubyte maxnum) -> ubyte {
; -- returns a list of files in the directory matching the given prefix or suffix (optional) ; -- returns a list of files in the directory matching the given prefix or suffix (optional)

50
examples/test.p8
View File

@ -8,6 +8,12 @@
errors { errors {
sub tofix() { sub tofix() {
; TODO fix compiler crash: when passing the name of a subroutine instead of an array or string to an UWORD parameter
; TODO allow taking the address of a subroutine &routine
while c64.CHRIN() { while c64.CHRIN() {
; TODO: the loop condition isn't properly tested because a ldx is in the way before the beq ; TODO: the loop condition isn't properly tested because a ldx is in the way before the beq
} }
@ -40,48 +46,6 @@ errors {
main { main {
sub start() { sub start() {
txt.print("hello\n")
; ubyte result = diskio.directory(8)
; txt.print("result: ")
; txt.print_ub(result)
; txt.chrout('\n')
; test_stack.test()
;
; diskio.status(8)
; txt.chrout('\n')
; txt.chrout('\n')
; txt.chrout('\n')
; test_stack.test()
const ubyte max_files = 8
uword[max_files] blocks
uword[max_files] names
str filenamesbuffer = "?????????????????" * max_files
ubyte num_files=0
txt.print("files starting with 'cub':\n")
num_files = diskio.listfiles(8, "cub", false, names, blocks, filenamesbuffer, max_files)
print_listing()
txt.chrout('\n')
txt.print("files ending with 'gfx':\n")
num_files = diskio.listfiles(8, "gfx", true, names, blocks, filenamesbuffer, max_files)
print_listing()
;test_stack.test()
sub print_listing() {
if num_files==0
txt.print("no files found.")
else {
ubyte i
for i in 0 to num_files-1 {
txt.print_ub(i+1)
txt.print(": ")
txt.print(names[i])
txt.print(" = ")
txt.print_uw(blocks[i])
txt.print(" blocks\n")
}
}
}
} }
} }