mirror of https://git.sr.ht/~rabbits/left
102 lines
2.2 KiB
Plaintext
102 lines
2.2 KiB
Plaintext
( Example file )
|
|
|
|
a very long line that doesn't quite display on a single screen to test the scroll-x behaviour.
|
|
|
|
@delete ( -- )
|
|
[ LIT2 &name $2 ]
|
|
[ LIT &field -default ]
|
|
has-length ?&block [ LIT "@ ]
|
|
get-from INC2k get-eof NEQ2 ?&single
|
|
POP2 JMP2r
|
|
&block ( a -- b )
|
|
erase-selection !select-reset
|
|
&single ( from* -- )
|
|
DUP2 cut-char !<select-a>
|
|
&undefined-method &what
|
|
"& ( invalid )
|
|
|
|
@a-long-truncated-label-too-long
|
|
@b-label ( with a definition that is too long )
|
|
@c-label &with-a-field-that-is-way-too-long ( definition )
|
|
@d-label &field ( with a definition that is too long )
|
|
|
|
@Une-Étiquette ( definition )
|
|
|
|
@direct $10
|
|
@enum &field-a $2 &field-b $2 &field-c $2 &field-d $2
|
|
|
|
@another
|
|
|
|
<a href='something_else.html'>hey</a>
|
|
|
|
~include
|
|
_raw-rel
|
|
,lit-rel
|
|
-raw-zep
|
|
.lit-zep
|
|
=raw-abs
|
|
;lit-abs
|
|
?jci
|
|
!jmi
|
|
|
|
!"#$%&'()*+,-./
|
|
0123456789:;<=>?
|
|
@ABCDEFGHIJKLMNO
|
|
PQRSTUVWXYZ[\]^_
|
|
`abcdefghijklmno
|
|
pqrstuvwxyz{|}~
|
|
|
|
𐑐𐑑𐑒𐑓𐑔𐑕𐑖𐑗𐑘𐑙𐑚𐑛𐑜𐑝𐑞𐑟
|
|
𐑠𐑡𐑢𐑣𐑤𐑥𐑦𐑧𐑨𐑩𐑪𐑫𐑬𐑭𐑮𐑯
|
|
𐑰𐑱𐑲𐑳𐑴𐑵𐑶𐑷𐑸𐑹𐑺𐑻𐑼𐑽𐑾𐑿
|
|
|
|
ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏ
|
|
ÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß
|
|
àáâãäåæçèéêëìíîï
|
|
ðñòóôõö÷øùúûüýþÿ
|
|
|
|
·
|
|
|
|
@transform-join ( -- )
|
|
get-to get-from
|
|
&l ( -- )
|
|
LDAk #20 GTH ?{
|
|
STH2k #20 STH2r STA }
|
|
INC2 GTH2k ?&l
|
|
POP2 POP2 update-nav !reqdraw-textarea
|
|
|
|
@transform-clip ( -- )
|
|
[ LITr 00 ] get-to get-from
|
|
&l ( -- )
|
|
LDAk #20 NEQ ?&>no-ws
|
|
INC2k wlen NIP STHkr ADD #50 LTH ?&>no-ws
|
|
STH2k #0a STH2r STA
|
|
POPr LITr 00 &>no-ws
|
|
INC2 INC2r GTH2k ?&l
|
|
POP2 POP2 POPr update-nav !reqdraw-textarea
|
|
|
|
𐑑 ·𐑖𐑻𐑤𐑪𐑒 𐑣𐑴𐑥𐑟 𐑖𐑰 𐑦𐑟 𐑷𐑤𐑢𐑱𐑟 𐑞 𐑢𐑫𐑥𐑩𐑯.
|
|
𐑲 𐑣𐑨𐑝 𐑕𐑧𐑤𐑛𐑩𐑥 𐑣𐑻𐑛 𐑣𐑦𐑥 𐑥𐑧𐑯𐑖𐑩𐑯 𐑣𐑻 𐑳𐑯𐑛𐑼 𐑧𐑯𐑦 𐑳𐑞𐑼 𐑯𐑱𐑥.
|
|
|
|
(LETREC main
|
|
(main λ (INPUT)
|
|
(print-line (fib INPUT))
|
|
)
|
|
(fib λ (N)
|
|
(IF (EQ N (QUOTE 0)) (QUOTE 0)
|
|
(IF (EQ N (QUOTE 1)) (QUOTE 1)
|
|
(ADD
|
|
(fib (SUB N (QUOTE 1)))
|
|
(fib (SUB N (QUOTE 2))))))
|
|
)
|
|
(print-line λ (text)
|
|
(WRITE
|
|
(CONS (QUOTE :cli)
|
|
(CONS text
|
|
(CONS (QUOTE #\Newline)
|
|
(QUOTE NIL))))
|
|
)
|
|
)
|
|
)
|
|
|
|
LAST LINE |