d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(m291) Sorting albums

This commit is contained in:
Devine Lu Linvega 2024-08-29 08:27:33 -07:00
parent e8a7bf8c84
commit 2118be4670
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gui/m291/src/m291.tal
View File

@ -335,7 +335,7 @@
&w ( -- ) &w ( -- )
DUP2 <parse-line> DUP2 <parse-line>
lcap/ INC2 LDAk ?&w lcap/ INC2 LDAk ?&w
POP2 POP2 sort-folders sort-tracks
( >> ) ( >> )
@<fit-window> ( -- ) @<fit-window> ( -- )
@ -355,7 +355,7 @@
#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden #0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
is-folder ?&folder is-folder ?&folder
is-mp3 ?&mp3 is-mp3 ?&mp3
POP2 !sort-tracks POP2 JMP2r
&folder ( line* -- ) &folder ( line* -- )
DUP2 llen #003f LTH2 ?{ POP2 JMP2r } DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
@ -387,10 +387,12 @@
POP2 INC2 INC2r !&>loop POP2 INC2 INC2r !&>loop
&done NIP2 LTH POP2r JMP2r &done NIP2 LTH POP2r JMP2r
@sort-folders ( -- )
;mem/folders DUP2 LIT2 [ 00 -lines/folders ] LDZ #01 SUB #70 SFT2 ADD2 !sort-tracks-0
@sort-tracks ( -- ) @sort-tracks ( -- )
;mem/tracks DUP2 LIT2 [ 00 -lines/tracks ] LDZ #01 SUB #70 SFT2 ADD2 ;mem/tracks DUP2 LIT2 [ 00 -lines/tracks ] LDZ #01 SUB #70 SFT2 ADD2
( >> ) ( | selection sort; walk forward creating a sorted prefix ) ( >> )
@sort-tracks-0 ( first* last* -- ) @sort-tracks-0 ( first* last* -- )
SWP2 &loop GTH2k ?&ok SWP2 &loop GTH2k ?&ok