Ви не можете вибрати більше 25 тем
Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
261 рядки
7.5 KiB
261 рядки
7.5 KiB
nil 42 3.140000 string Symbol newline
|
|
Object => <Object>
|
|
Lambda => <Lambda>
|
|
Closure => <Closure>
|
|
o = Object.new() => <<Object>>
|
|
o = Object.new(foo:42, bar: 666) => <<Object>>
|
|
| bar: 666
|
|
| foo: 42
|
|
o.foo => 42
|
|
Point.new() => <<Point>>
|
|
Point.new(x: 3, y: 4) => <<Point>>
|
|
| x: 3
|
|
| y: 4
|
|
twice 21 is 42
|
|
double => <<Closure>>
|
|
| environment: nil
|
|
| function: <<Lambda>>
|
|
| | body: <<Object>>
|
|
| | | 0: <<Binop>>
|
|
| | | | operation: 13
|
|
| | | | 0: <<GetVar>>
|
|
| | | | | name: x
|
|
| | | | 1: <<GetVar>>
|
|
| | | | | name: x
|
|
| | parameters: <<Object>>
|
|
| | | 0: x
|
|
Point.new(x:3, y:4).magnitude() => 5.000000
|
|
<<?>>
|
|
| self: nil =>
|
|
| n: 39
|
|
| self: nil
|
|
| 0: 40
|
|
40
|
|
<<?>>
|
|
| self: nil =>
|
|
| n: 40
|
|
| self: nil
|
|
| 0: 40
|
|
41
|
|
<<?>>
|
|
| self: nil =>
|
|
| n: 41
|
|
| self: nil
|
|
| 0: 40
|
|
42
|
|
<<?>>
|
|
| self: nil =>
|
|
| n: 42
|
|
| self: nil
|
|
| 0: 40
|
|
43
|
|
<Object>
|
|
| __codeon__: <primitive Object.codeOn>
|
|
| __eval__: <primitive Object.__eval__>
|
|
| __name__: Object
|
|
| allKeys: <primitive Object.allKeys>
|
|
| findKey: <primitive Object.findKey>
|
|
| includes: <primitive Object.includes>
|
|
| keys: <primitive Object.keys>
|
|
| length: <primitive Object.length>
|
|
| new: <primitive Object.new>
|
|
| pop: <primitive Object.pop>
|
|
| push: <primitive Object.push>
|
|
| reversed: <primitive Object.reversed>
|
|
| sorted: <primitive Object.sorted>
|
|
nil no
|
|
1 yes
|
|
hello yes
|
|
15
|
|
1973
|
|
42 42 42 42
|
|
ok
|
|
ok
|
|
42
|
|
----
|
|
MyType.__eval__() invoked
|
|
42
|
|
<<Closure>>
|
|
====
|
|
42
|
|
hello
|
|
nil
|
|
<Undefined>
|
|
<Object>
|
|
nil
|
|
[KEY: __delegate__
|
|
KEY: x
|
|
KEY: y
|
|
]
|
|
Symbol
|
|
<Symbol>
|
|
<Object>
|
|
nil
|
|
POINT <Point>
|
|
P <<Object>>
|
|
P <<Point>>
|
|
Q <<Point>>
|
|
P.mag 13.000000
|
|
<<Object>>
|
|
| bar: 666
|
|
| foo: 42
|
|
| 0: 1
|
|
| 1: <<Object>>
|
|
| | 0: 2
|
|
| | 1: 3
|
|
| | 2: 42
|
|
[KEY: __delegate__
|
|
KEY: bar
|
|
KEY: foo
|
|
]
|
|
5
|
|
7
|
|
0
|
|
1
|
|
2
|
|
0
|
|
1
|
|
0: a
|
|
2
|
|
0: a
|
|
1: b
|
|
3
|
|
0: a
|
|
1: b
|
|
2: c
|
|
12
|
|
0: 104
|
|
1: 101
|
|
2: 108
|
|
3: 108
|
|
4: 111
|
|
5: 44
|
|
6: 32
|
|
7: 119
|
|
8: 111
|
|
9: 114
|
|
10: 108
|
|
11: 100
|
|
hello, world
|
|
hallo, world
|
|
hally, world
|
|
hally, wirld
|
|
READ = f() { print(__env__()) }
|
|
f();
|
|
0 30 t
|
|
<<Stream>>
|
|
f 102 ( 40 ) 41 32 { 123 32 p 112 r 114 i 105 n 110 t 116 ( 40 _ 95 _ 95 e 101 n 110 v 118 _ 95 _ 95 ( 40 ) 41 ) 41 32 } 125
|
|
10 f 102 ( 40 ) 41 ; 59
|
|
10
|
|
42
|
|
42
|
|
42
|
|
42
|
|
MACRO table <<Object>>
|
|
| assert: <<Closure>>
|
|
| | environment: nil
|
|
| | function: <<Lambda>>
|
|
| | | body: <<Object>>
|
|
| | | | 0: <<Unyop>>
|
|
| | | | | operation: 3
|
|
| | | | | 0: <<Block>>
|
|
| | | | | | body: <<Object>>
|
|
| | | | | | | 0: <<If>>
|
|
| | | | | | | | alternate: nil
|
|
| | | | | | | | condition: <<Unyop>>
|
|
| | | | | | | | | operation: 0
|
|
| | | | | | | | | 0: <<Call>>
|
|
| | | | | | | | | | arguments: <<Object>>
|
|
| | | | | | | | | | | 0: <<Unyop>>
|
|
| | | | | | | | | | | | operation: 4
|
|
| | | | | | | | | | | | 0: <<GetVar>>
|
|
| | | | | | | | | | | | | name: x
|
|
| | | | | | | | | | function: <<GetVar>>
|
|
| | | | | | | | | | | name: eval
|
|
| | | | | | | | consequent: <<Block>>
|
|
| | | | | | | | | body: <<Object>>
|
|
| | | | | | | | | | 0: <<Call>>
|
|
| | | | | | | | | | | arguments: <<Object>>
|
|
| | | | | | | | | | | | 0: "\nassertion failed: "
|
|
| | | | | | | | | | | | 1: <<Unyop>>
|
|
| | | | | | | | | | | | | operation: 4
|
|
| | | | | | | | | | | | | 0: <<Call>>
|
|
| | | | | | | | | | | | | | arguments: <<Object>>
|
|
| | | | | | | | | | | | | | | 0: <<GetVar>>
|
|
| | | | | | | | | | | | | | | | name: x
|
|
| | | | | | | | | | | | | | function: <<GetVar>>
|
|
| | | | | | | | | | | | | | | name: codeString
|
|
| | | | | | | | | | | | 2: "\n"
|
|
| | | | | | | | | | | function: <<GetVar>>
|
|
| | | | | | | | | | | | name: print
|
|
| | | | | | | | | | 1: <<Call>>
|
|
| | | | | | | | | | | arguments: <<Object>>
|
|
| | | | | | | | | | | | 0: 1
|
|
| | | | | | | | | | | function: <<GetVar>>
|
|
| | | | | | | | | | | | name: exit
|
|
| | | parameters: <<Object>>
|
|
| | | | 0: x
|
|
| test: <<Closure>>
|
|
| | environment: nil
|
|
| | function: <<Lambda>>
|
|
| | | body: <<Object>>
|
|
| | | | 0: <<Call>>
|
|
| | | | | arguments: <<Object>>
|
|
| | | | | | 0: "MACRO EVAL test with "
|
|
| | | | | | 1: <<GetVar>>
|
|
| | | | | | | name: x
|
|
| | | | | | 2: " and "
|
|
| | | | | | 3: <<GetVar>>
|
|
| | | | | | | name: y
|
|
| | | | | | 4: "\n"
|
|
| | | | | function: <<GetVar>>
|
|
| | | | | | name: print
|
|
| | | | 1: <<Unyop>>
|
|
| | | | | operation: 3
|
|
| | | | | 0: <<Block>>
|
|
| | | | | | body: <<Object>>
|
|
| | | | | | | 0: <<Call>>
|
|
| | | | | | | | arguments: <<Object>>
|
|
| | | | | | | | | 0: "REPLACEMENT "
|
|
| | | | | | | | | 1: <<Unyop>>
|
|
| | | | | | | | | | operation: 4
|
|
| | | | | | | | | | 0: <<GetVar>>
|
|
| | | | | | | | | | | name: x
|
|
| | | | | | | | | 2: "\n"
|
|
| | | | | | | | function: <<GetVar>>
|
|
| | | | | | | | | name: print
|
|
| | | | | | | 1: <<Unyop>>
|
|
| | | | | | | | operation: 4
|
|
| | | | | | | | 0: <<GetVar>>
|
|
| | | | | | | | | name: y
|
|
| | | parameters: <<Object>>
|
|
| | | | 0: x
|
|
| | | | 1: y
|
|
define testfun
|
|
MACRO EVAL test with 1 and 2
|
|
MACRO EVAL test with three and four
|
|
call testfun
|
|
REPLACEMENT 1
|
|
REPLACEMENT three
|
|
MakeSeven.__eval__ invoked
|
|
AST eval => 42
|
|
0 1 2 3 4 5 6 7 8 9 10
|
|
10 9 8 7 6 5 4 3 2 1 0
|
|
0 1 2 3 4 5 6 7 8 9
|
|
65 66 67 68 69
|
|
1 two 3 four
|
|
*: type error: illegal operand types: <Integer> and <Undefined>
|
|
13: n * factorial(n - 1)
|
|
12: if (n < 2) nil else n * factorial(n - 1)
|
|
11: factorial(n - 1)
|
|
10: n * factorial(n - 1)
|
|
9: if (n < 2) nil else n * factorial(n - 1)
|
|
8: factorial(n - 1)
|
|
7: n * factorial(n - 1)
|
|
6: if (n < 2) nil else n * factorial(n - 1)
|
|
5: factorial(n - 1)
|
|
4: n * factorial(n - 1)
|
|
3: if (n < 2) nil else n * factorial(n - 1)
|
|
2: factorial(5)
|
|
1: { factorial(5) }
|
|
0: try { factorial(5) } catch (e) { { if (!eval(e.__function__ == "*")) { print("\nassertion failed: ", "e.__function__ == \"*\"", "\n"); exit(1) } }; { if (!eval(e.__kind__ == "type error")) { print("\nassertion failed: ", "e.__kind__ == \"type error\"", "\n"); exit(1) } }; { if (!eval(e.__message__ == "illegal operand types")) { print("\nassertion failed: ", "e.__message__ == \"illegal operand types\"", "\n"); exit(1) } }; { if (!eval(e.operand1 == 2)) { print("\nassertion failed: ", "e.operand1 == 2", "\n"); exit(1) } }; { if (!eval(e.operand2 == nil)) { print("\nassertion failed: ", "e.operand2 == nil", "\n"); exit(1) } }; print(e.__function__, ": ", e.__kind__, ": ", e.__message__, ": ", typeName(e.operand1), " and ", typeName(e.operand2), "\n"); backtrace(e) }
|