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

(m291) Catch S and R messages

This commit is contained in:
Devine Lu Linvega 2024-08-26 16:52:19 -07:00
parent ac4acbcab8
commit 000f103533
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,10 +139,11 @@
;&buf LDAk [ LIT "@ ] EQU ?{ POP2 JMP2r } ;&buf LDAk [ LIT "@ ] EQU ?{ POP2 JMP2r }
INC2 LDAk INC2 LDAk
( | route ) ( | route )
DUP [ LIT "S ] EQU ?handle-status
DUP [ LIT "F ] EQU ?handle-frame DUP [ LIT "F ] EQU ?handle-frame
DUP [ LIT "S ] EQU ?handle-status
DUP [ LIT "I ] EQU ?handle-id3 DUP [ LIT "I ] EQU ?handle-id3
DUP [ LIT "P ] EQU ?handle-pause DUP [ LIT "P ] EQU ?handle-pause
DUP [ LIT "R ] EQU ?handle-revision
POP POP
( | not-handled ) ( | not-handled )
<perr> <perr>
@ -163,10 +164,9 @@
@<skip-prev> ( -- ) @<skip-prev> ( -- )
.lines/tracks LDZ ?{ JMP2r } .lines/tracks LDZ ?{ JMP2r }
.selection/track LDZ #01 SUB DUP #ff NEQ ?{ .selection/track LDZ #01 SUB INCk ?{
POP .lines/tracks LDZ #01 SUB } POP .lines/tracks LDZ #01 SUB }
!<pick>/tracks !<pick>/tracks
JMP2r
@<skip-next> ( -- ) @<skip-next> ( -- )
.lines/tracks LDZ ?{ JMP2r } .lines/tracks LDZ ?{ JMP2r }
@ -180,12 +180,14 @@
( (
@|events ) @|events )
@handle-revision ( buf* char -- )
POP POP2 !message/<new>
@handle-status ( buf* char -- ) @handle-status ( buf* char -- )
[ LIT2 01 -playing ] STZ [ LIT2 01 -playing ] STZ
( | force redraws ) ( | force redraws )
fit-window POP <perr> <fit-window>
#0a19 DEO POP POP2 <redraw-player> !message/<new>
<redraw-player> !message/<new>
@handle-frame ( buf* char -- ) @handle-frame ( buf* char -- )
POP POP
@ -256,7 +258,7 @@
POP2 POP2
( >> ) ( >> )
@fit-window ( -- ) @<fit-window> ( -- )
#00 count-lines #00 count-lines
( empty ) DUP #00 EQU ADD #40 SFT2 ( empty ) DUP #00 EQU ADD #40 SFT2
( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 } ( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
@ -326,7 +328,7 @@
;dict/no-artist ;id3/artist <scpy> ;dict/no-artist ;id3/artist <scpy>
;dict/no-album ;id3/album <scpy> ;dict/no-album ;id3/album <scpy>
[ LIT2 01 -playing ] STZ [ LIT2 01 -playing ] STZ
fit-window <fit-window>
( | request ) ( | request )
;dict/load-cmd <pstr> ;dict/load-cmd <pstr>
;path <pstr> ;path <pstr>