blob: 37857fe575a472369c0e54cf2f471ef9da377ed7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
import bind from grasp
(bind stmt) color: "Red"
a = 'b'
c = d
(a b) c d
import c from d
(a b) c d
(c d) a b
a, b = c, d
(d a) c
macro f = (func,arg)-> "(#{func}) #{arg}"
for i = 1, 10
a = ->
$f print, 1
a = f
$f print, 2
if cond
$f print, 3
::abc::
(print) 4
goto abc
(print) 5
macro lua = (code)-> {
:code
type: "lua"
}
do
print()
1 |> b |> (a)
print()
<- (fn)
do
print()
() <- async_fn()
print()
$lua[==[
--[[a comment to insert]]
(haha)()
]==]
nil
macro v = -> 'print 123'
do
global *
$v!
do
f
:v
tb = while f
:v
repeat
print v
until f
:v
with f
:v = tb
.x = 1
x = if f
:v
x = switch f
:v
when f
:v
nums = for num = 1, len
:num
objects = for item in *items
name: item
nil
|