a9fe2ff7e4
FossilOrigin-Name: d2bdb59da9bb7ab85b5e662cde55f2f57f4fe9c4ead33785fa94331a4089c803
24 lines
454 B
Text
24 lines
454 B
Text
# Forth-style comments
|
|
|
|
End-of-Comment `Eo(` is a char, `)` by default.
|
|
If inconvenient, use some other char like
|
|
|
|
$| !Eo( -( blah foo|
|
|
|
|
Then `Eo(` is reverted to `)` .
|
|
|
|
~~~
|
|
'Eo( var (end-of-comment_char
|
|
{{
|
|
:parse (-s) [ @Eo( eq? ] parse-until ;
|
|
:revert (-) $) !Eo( ;
|
|
revert
|
|
---reveal---
|
|
:-( (c-) parse drop revert ; immediate
|
|
:+( (c-) parse s:put nl revert ; immediate
|
|
}}
|
|
~~~
|
|
|
|
```
|
|
#0 -( #1 #2 ) $| !Eo( +( #3 #4 | #5 -( #6 #7 ) #8
|
|
```
|