neauoire
/
drifblim
mirror of https://git.sr.ht/~rabbits/drifblim
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Parse comments during runic

This commit is contained in:
neauoire 2023-12-07 11:06:02 -08:00
parent fa30caee56
commit be864917ad
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/drifblim.tal
View File

@ -85,8 +85,6 @@
@|tokenizer ) @|tokenizer )
@parse-token ( t* -- ) @parse-token ( t* -- )
LDAk [ LIT 28 ] EQU ?parse-comment
( | runic )
LDAk ,&rune STR LDAk ,&rune STR
;runes/end ;runes ;runes/end ;runes
&l ( -- ) &l ( -- )
@ -321,7 +319,6 @@
@|helpers ) @|helpers )
@get-hex ( str* -- value* ) @get-hex ( str* -- value* )
is-hex ?{ ;err/number !<set-error> }
[ LIT2r 0000 ] [ LIT2r 0000 ]
&w ( -- ) &w ( -- )
( acc ) [ LITr 40 ] SFT2r ( acc ) [ LITr 40 ] SFT2r
@ -505,14 +502,15 @@
@runes [ @runes [
"| =lib/padabs "$ =lib/padrel "| =lib/padabs "$ =lib/padrel
"} =lib/lambda "( =parse-comment
"@ =lib/toplab "& =lib/sublab "@ =lib/toplab "& =lib/sublab
", =lib/litrel "_ =lib/rawrel ", =lib/litrel "_ =lib/rawrel
". =lib/litzep "- =lib/rawzep ". =lib/litzep "- =lib/rawzep
"; =lib/litabs "= =lib/rawabs "; =lib/litabs "= =lib/rawabs
"? =lib/litjci "! =lib/litjmi "? =lib/litjci "! =lib/litjmi
5b =lib/ignore 5d =lib/ignore 5b =lib/ignore 5d =lib/ignore
"} =lib/lambda "# =lib/lithex "# =lib/lithex "" =lib/rawstr
"" =lib/rawstr "~ =lib/inc ] "~ =lib/inc ]
&end &end
( (
@|memory ) @|memory )