mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
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
|
|
```
|