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

regex appears to be working

This commit is contained in:
~d6 2022-01-29 23:13:19 -05:00
parent 6d0d309a1c
commit 72509dc43b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
regex.tal
View File

@ -233,13 +233,13 @@
;c-char JMP2 ;c-char JMP2
@c-star ( c^ -> regex* ) @c-star ( c^ -> regex* )
LIT '* emit print ( LIT '* emit print )
POP print POP print
;pop4 JSR2 SWP2 STH2 STH2k ( x1 [x0 x1] ) ;pop4 JSR2 SWP2 STH2 STH2k ( x1 [x0 x1] )
LIT '! emit space print ( LIT '! emit space print )
;alloc-star JSR2 ( r ) ;alloc-star JSR2 ( r )
STH2r STH2kr ( r x1 x0 [x0] ) STH2r STH2kr ( r x1 x0 [x0] )
LIT '0 emit newline ( LIT '0 emit newline )
;emit-arena JSR2 ;emit-arena JSR2
;remove-from JSR2 ( r [x0] ) ;remove-from JSR2 ( r [x0] )
LIT '1 emit newline LIT '1 emit newline