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

improving fileselector

Browse Source
This commit is contained in:
Irmen de Jong
2024-12-29 23:19:34 +01:00
parent c84cc8f8c9
commit 10b9162dc5
17 changed files with 288 additions and 272 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/build.gradle.kts
View File

@@ -21,7 +21,7 @@ dependencies {
// implementation("org.jetbrains.kotlin:kotlin-stdlib-jdk8")
// implementation("org.jetbrains.kotlin:kotlin-reflect")
implementation("org.jetbrains.kotlinx:kotlinx-cli:0.3.6")
implementation("com.michael-bull.kotlin-result:kotlin-result-jvm:2.0.0")
implementation("com.michael-bull.kotlin-result:kotlin-result-jvm:2.0.1")
testImplementation(project(":codeCore"))
testImplementation(project(":intermediate"))
@@ -94,4 +94,4 @@ tasks.compileKotlin {
tasks.compileJava {
dependsOn(tasks.createVersionFile)
}
}

3
compiler/res/prog8lib/cx16/diskio.p8
View File

@@ -162,6 +162,9 @@ io_error:
; After the last filename one additional 0 byte is placed to indicate the end of the list.
; Returns number of files (it skips 'dir' entries i.e. subdirectories).
; Also sets carry on exit: Carry clear = all files returned, Carry set = directory has more files that didn't fit in the buffer.
; Note that no list of pointers of some form is returned, the names are just squashed together.
; If you really need a list of pointers to the names, that is pretty straightforward to construct by iterating over the names
; and registering when the next one starts after the 0-byte separator.
uword buffer_start = filenames_buffer
ubyte files_found = 0
filenames_buffer[0]=0

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

@@ -140,7 +140,10 @@ io_error:
; After the last filename one additional 0 byte is placed to indicate the end of the list.
; Returns number of files (it skips 'dir' entries i.e. subdirectories).
; Also sets carry on exit: Carry clear = all files returned, Carry set = directory has more files that didn't fit in the buffer.
uword buffer_start = filenames_buffer
; Note that no list of pointers of some form is returned, the names are just squashed together.
; If you really need a list of pointers to the names, that is pretty straightforward to construct by iterating over the names
; and registering when the next one starts after the 0-byte separator.
uword buffer_start = filenames_buffer
ubyte files_found = 0
if lf_start_list(pattern_ptr) {
while lf_next_entry() {

3
compiler/res/prog8lib/virtual/diskio.p8
View File

@@ -24,6 +24,9 @@ diskio {
; After the last filename one additional 0 byte is placed to indicate the end of the list.
; Returns number of files (it skips 'dir' entries i.e. subdirectories).
; Also sets carry on exit: Carry clear = all files returned, Carry set = directory has more files that didn't fit in the buffer.
; Note that no list of pointers of some form is returned, the names are just squashed together.
; If you really need a list of pointers to the names, that is pretty straightforward to construct by iterating over the names
; and registering when the next one starts after the 0-byte separator.
txt.print("@TODO: list_filenames\n")
sys.clear_carry()
return 0