new example from kiyoshi: forth style comments
FossilOrigin-Name: d2bdb59da9bb7ab85b5e662cde55f2f57f4fe9c4ead33785fa94331a4089c803
This commit is contained in:
parent
39018b6623
commit
a9fe2ff7e4
1 changed files with 24 additions and 0 deletions
24
example/forth-style-comments.retro
Normal file
24
example/forth-style-comments.retro
Normal file
|
@ -0,0 +1,24 @@
|
|||
# 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
|
||||
```
|
Loading…
Reference in a new issue