d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

femto update

This commit is contained in:
~d6 2024-10-26 00:36:26 -04:00
parent 12b6a5c3e6
commit f36254f7bc
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
femto.tal
View File

@ -1221,7 +1221,7 @@
!abs-line !abs-line
@draw-regex-matches ( -> ) @draw-regex-matches ( -> )
emit-color-reverse-bold ( ) emit-color-reverse ( )
screen-limit .buffer/offset LDZ2 ( limit pos ) screen-limit .buffer/offset LDZ2 ( limit pos )
&loop ( limit pos ) &loop ( limit pos )
GTH2k #00 EQU ( limit pos limit>pos=0? ) GTH2k #00 EQU ( limit pos limit>pos=0? )
@ -1245,7 +1245,7 @@
( return if not searching ) ( return if not searching )
.searching/active LDZ #00 EQU ?&return ( ) .searching/active LDZ #00 EQU ?&return ( )
.searching/regex LDZ2 ORA ?draw-regex-matches .searching/regex LDZ2 ORA ?draw-regex-matches
emit-color-reverse-bold emit-color-reverse
lmargin ,&x STR2 #0000 ,&y STR2 ( x <- 0, y <- 0 ) lmargin ,&x STR2 #0000 ,&y STR2 ( x <- 0, y <- 0 )
.buffer/offset LDZ2 DUP2 .buffer/offset LDZ2 DUP2
screen-limit SUB2 STH2 ( offset [-count] ) screen-limit SUB2 STH2 ( offset [-count] )

7
regex.tal
View File

@ -80,10 +80,7 @@
( 4. we also need to store "last started subgroup" on the stack ) ( 4. we also need to store "last started subgroup" on the stack )
( 5. when backtracking we must rewind to "last started" subgroup ) ( 5. when backtracking we must rewind to "last started" subgroup )
%debug { #ff #0e DEO }
%emit! { #18 DEO } %emit! { #18 DEO }
%space { #20 emit! }
%newline { #0a emit! }
( now that uxnasm throws errors about writing into the zero page ) ( now that uxnasm throws errors about writing into the zero page )
( we have to do something like this to be able to compile library ) ( we have to do something like this to be able to compile library )
@ -98,10 +95,10 @@
( using error! will print the given message before causing ) ( using error! will print the given message before causing )
( the interpreter to halt. ) ( the interpreter to halt. )
@errorm ( msg* -> ) @errorm ( msg* -> )
LIT "! emit! space LIT "! emit! #20 emit!
&loop LDAk #00 EQU ?&done &loop LDAk #00 EQU ?&done
LDAk emit! INC2 !&loop LDAk emit! INC2 !&loop
&done POP2 newline #ff0e DEO #010f DEO BRK &done POP2 #0a emit! #ff0e DEO #010f DEO BRK
( error messages ) ( error messages )
@unknown-node-type "unknown 20 "node 20 "type 00 @unknown-node-type "unknown 20 "node 20 "type 00