Mercurial Hosting > luan

annotate core/src/luan/impl/LuanStateImpl.java @ 579:f22a09e98b04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
clean up LuanState
author Franklin Schmidt <fschmidt@gmail.com>
date Thu, 16 Jul 2015 15:14:31 -0600
parents 8e51d6071b67
children 859c0dedc8b6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
166
4eaee12f6c65 move luan/interp to impl
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 132
diff changeset
1 package luan.impl;
31
5cf15507d77e separate interpreter from interface
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 24
diff changeset
2
37
8a57ebfdfd78 add JavaLib
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 36
diff changeset
3 import java.util.List;
8a57ebfdfd78 add JavaLib
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 36
diff changeset
4 import java.util.ArrayList;
86
6db8f286fa6c _ENV is per module, not global
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 77
diff changeset
5 import java.util.Map;
6db8f286fa6c _ENV is per module, not global
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 77
diff changeset
6 import java.util.HashMap;
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
7 import luan.Luan;
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
8 import luan.LuanState;
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
9 import luan.LuanTable;
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
10 import luan.LuanFunction;
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
11 import luan.LuanException;
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
12 import luan.LuanElement;
301
a6bf8ff720f8 add java security
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 208
diff changeset
13 import luan.LuanSource;
77
4bf3d0c0b6b9 make LuanState cloneable
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 49
diff changeset
14 import luan.DeepCloner;
579
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
15 import luan.StackTraceElement;
3
7a2cdbc5767f add LuaState
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
16
7a2cdbc5767f add LuaState
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
17
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
18 final class LuanStateImpl extends LuanState {
3
7a2cdbc5767f add LuaState
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
19
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
20 private static class Frame {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
21 final Frame previousFrame;
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
22 final Closure closure;
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
23 final Object[] stack;
24
7ee247560db5 add VarArgs
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 22
diff changeset
24 final Object[] varArgs;
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
25 UpValue[] downValues = null;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
26
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
27 Frame( Frame previousFrame, Closure closure, int stackSize, Object[] varArgs) {
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
28 this.previousFrame = previousFrame;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
29 this.closure = closure;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
30 this.stack = new Object[stackSize];
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
31 this.varArgs = varArgs;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
32 }
17
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
33
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
34 void stackClear(int start,int end) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
35 if( downValues != null ) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
36 for( int i=start; i<end; i++ ) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
37 UpValue downValue = downValues[i];
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
38 if( downValue != null ) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
39 downValue.close();
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
40 downValues[i] = null;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
41 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
42 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
43 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
44 for( int i=start; i<end; i++ ) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
45 stack[i] = null;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
46 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
47 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
48
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
49 UpValue getUpValue(int index) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
50 if( downValues==null )
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
51 downValues = new UpValue[stack.length];
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
52 if( downValues[index] == null )
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
53 downValues[index] = new UpValue(stack,index);
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
54 return downValues[index];
17
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
55 }
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
56 }
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
57
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
58 private Frame frame = null;
131
15a8e6588f3c various fixes
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 126
diff changeset
59 Object returnValues;
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
60 Closure tailFn;
17
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
61
86
6db8f286fa6c _ENV is per module, not global
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 77
diff changeset
62 LuanStateImpl() {}
77
4bf3d0c0b6b9 make LuanState cloneable
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 49
diff changeset
63
200
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 195
diff changeset
64 private LuanStateImpl(LuanStateImpl luan) {
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 195
diff changeset
65 super(luan);
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 195
diff changeset
66 }
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 195
diff changeset
67
77
4bf3d0c0b6b9 make LuanState cloneable
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 49
diff changeset
68 @Override public LuanState shallowClone() {
126
0149bdf98fd8 add ThreadLib
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 123
diff changeset
69 // if( frame != null )
0149bdf98fd8 add ThreadLib
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 123
diff changeset
70 // throw new IllegalStateException("frame isn't null");
200
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 195
diff changeset
71 return new LuanStateImpl(this);
77
4bf3d0c0b6b9 make LuanState cloneable
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 49
diff changeset
72 }
4bf3d0c0b6b9 make LuanState cloneable
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 49
diff changeset
73
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
74 // returns stack
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
75 Object[] newFrame(Closure closure, int stackSize, Object[] varArgs) {
131
15a8e6588f3c various fixes
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 126
diff changeset
76 returnValues = LuanFunction.NOTHING;
132
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 131
diff changeset
77 tailFn = null;
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
78 frame = new Frame(frame,closure,stackSize,varArgs);
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
79 return frame.stack;
17
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
80 }
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
81
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
82 void popFrame() {
123
d7be9b3abf1a minor - rename LuanFunction.EMPTY to NOTHING
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 111
diff changeset
83 returnValues = LuanFunction.NOTHING;
22
1e37f22a34c8 proper tail calls
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 21
diff changeset
84 tailFn = null;
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
85 frame = frame.previousFrame;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
86 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
87
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
88 Object stackGet(int index) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
89 return frame.stack[index];
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
90 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
91
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
92 void stackSet(int index,Object value) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
93 frame.stack[index] = value;
17
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
94 }
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
95
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
96 void stackClear(int start,int end) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
97 frame.stackClear(start,end);
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
98 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
99
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
100 Object[] varArgs() {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
101 return frame.varArgs;
17
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
102 }
09d41f7490a8 add local variables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 3
diff changeset
103
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 44
diff changeset
104 Closure closure() {
32
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
105 return frame.closure;
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
106 }
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
107
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
108 UpValue getUpValue(int index) {
c3eab5a3ce3c implement closures
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
109 return frame.getUpValue(index);
24
7ee247560db5 add VarArgs
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 22
diff changeset
110 }
77
4bf3d0c0b6b9 make LuanState cloneable
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 49
diff changeset
111
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
112 @Override public boolean hasJava() {
86
6db8f286fa6c _ENV is per module, not global
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 77
diff changeset
113 if( frame==null )
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
114 return false;
533
8e51d6071b67 restore LuanTable.hasJava
Franklin Schmidt <fschmidt@gmail.com>
parents: 503
diff changeset
115 return ((LuanTable)frame.closure.upValues()[0].get()).hasJava;
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
116 }
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
117
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
118 @Override public void setJava() {
533
8e51d6071b67 restore LuanTable.hasJava
Franklin Schmidt <fschmidt@gmail.com>
parents: 503
diff changeset
119 ((LuanTable)frame.closure.upValues()[0].get()).hasJava = true;
86
6db8f286fa6c _ENV is per module, not global
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 77
diff changeset
120 }
6db8f286fa6c _ENV is per module, not global
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 77
diff changeset
121
301
a6bf8ff720f8 add java security
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 208
diff changeset
122 @Override public LuanSource currentSource(){
a6bf8ff720f8 add java security
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 208
diff changeset
123 if( frame==null )
a6bf8ff720f8 add java security
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 208
diff changeset
124 return null;
460
b48cfa14ba60 improve stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 301
diff changeset
125 return frame.closure.fnDef.el().source;
301
a6bf8ff720f8 add java security
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 208
diff changeset
126 }
a6bf8ff720f8 add java security
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 208
diff changeset
127
579
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
128
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
129
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
130 @Override public boolean isLessThan(Object o1,Object o2) throws LuanException {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
131 if( o1 instanceof Number && o2 instanceof Number ) {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
132 Number n1 = (Number)o1;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
133 Number n2 = (Number)o2;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
134 return n1.doubleValue() < n2.doubleValue();
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
135 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
136 if( o1 instanceof String && o2 instanceof String ) {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
137 String s1 = (String)o1;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
138 String s2 = (String)o2;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
139 return s1.compareTo(s2) < 0;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
140 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
141 LuanFunction fn = getBinHandler("__lt",o1,o2);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
142 if( fn != null )
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
143 return checkBoolean( Luan.first(fn.call(this,new Object[]{o1,o2})) );
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
144 throw new LuanException(this, "attempt to compare " + Luan.type(o1) + " with " + Luan.type(o2) );
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
145 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
146
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
147 LuanFunction getBinHandler(String op,Object o1,Object o2) throws LuanException {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
148 if( o1 instanceof LuanTable ) {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
149 LuanFunction f1 = getHandlerFunction(op,(LuanTable)o1);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
150 if( f1 != null )
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
151 return f1;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
152 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
153 return o2 instanceof LuanTable ? getHandlerFunction(op,(LuanTable)o2) : null;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
154 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
155
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
156 LuanFunction getHandlerFunction(String op,LuanTable t) throws LuanException {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
157 Object f = t.getHandler(op);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
158 if( f == null )
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
159 return null;
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
160 return checkFunction(f);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
161 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
162
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
163 Boolean checkBoolean(Object obj,LuanElement el) throws LuanException {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
164 push(el,null);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
165 try {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
166 return checkBoolean(obj);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
167 } finally {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
168 pop();
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
169 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
170 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
171
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
172 String toString(Object obj,LuanElement el) throws LuanException {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
173 push(el,null);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
174 try {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
175 return toString(obj);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
176 } finally {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
177 pop();
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
178 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
179 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
180
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
181 void push(LuanElement el,String fnName) {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
182 if( el == null ) throw new RuntimeException();
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
183 stackTrace.add( new StackTraceElement(el,fnName) );
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
184 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
185
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
186 void pop() {
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
187 stackTrace.remove(stackTrace.size()-1);
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
188 }
f22a09e98b04 clean up LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 533
diff changeset
189
3
7a2cdbc5767f add LuaState
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
190 }