Mercurial Hosting > luan
annotate src/luan/Luan.java @ 1578:c922446f53aa
immutable threading
| author | Franklin Schmidt <fschmidt@gmail.com> |
|---|---|
| date | Mon, 08 Feb 2021 14:16:19 -0700 |
| parents | 8fbcc4747091 |
| children | 2975c932864d |
| rev | line source |
|---|---|
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
1 package luan; |
|
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
2 |
| 1454 | 3 import java.lang.reflect.Array; |
| 1424 | 4 import java.io.IOException; |
|
318
4fe6c9fed486
add html processing
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
296
diff
changeset
|
5 import java.util.List; |
| 1113 | 6 import java.util.ArrayList; |
| 7 import java.util.Map; | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
8 import java.util.HashMap; |
| 1113 | 9 import java.util.LinkedHashMap; |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
10 import java.util.Iterator; |
| 1113 | 11 import java.util.Arrays; |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
12 import java.util.Set; |
| 1578 | 13 import java.util.Collection; |
|
1402
27efb1fcbcb5
move luan.lib to goodjava
Franklin Schmidt <fschmidt@gmail.com>
parents:
1401
diff
changeset
|
14 import goodjava.logging.Logger; |
|
27efb1fcbcb5
move luan.lib to goodjava
Franklin Schmidt <fschmidt@gmail.com>
parents:
1401
diff
changeset
|
15 import goodjava.logging.LoggerFactory; |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
16 import luan.modules.JavaLuan; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
17 import luan.modules.PackageLuan; |
| 1424 | 18 import luan.modules.IoLuan; |
| 1393 | 19 import luan.modules.logging.LuanLogger; |
|
694
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
20 import luan.impl.LuanCompiler; |
|
134
b585d0915621
remove CmdLine.java and move code to Luan.java
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
113
diff
changeset
|
21 |
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
22 |
| 1578 | 23 public final class Luan { |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
24 private static final Logger logger = LoggerFactory.getLogger(Luan.class); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
25 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
26 private final List<LuanClosure> stack = new ArrayList<LuanClosure>(); |
| 1578 | 27 private final Map registry; |
| 28 private final Map localOnly = new HashMap(); | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
29 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
30 public Luan() { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
31 registry = new HashMap(); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
32 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
33 |
| 1578 | 34 public Luan(Luan luan) { |
| 35 LuanMutable.makeImmutable(luan.registry); | |
| 36 this.registry = clone(luan.registry); | |
| 37 } | |
| 38 | |
| 39 private static Object[] clone(Object[] obj) { | |
| 40 if( obj.length == 0 ) | |
| 41 return obj; | |
| 42 Object[] rtn = obj.clone(); | |
| 43 for( int i=0; i<rtn.length; i++ ) { | |
| 44 rtn[i] = clone(rtn[i]); | |
| 45 } | |
| 46 return rtn; | |
| 47 } | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
48 |
| 1578 | 49 private static Map clone(Map obj) { |
| 50 Map rtn; | |
| 51 try { | |
| 52 rtn = obj.getClass().newInstance(); | |
| 53 } catch(InstantiationException e) { | |
| 54 throw new RuntimeException(e); | |
| 55 } catch(IllegalAccessException e) { | |
| 56 throw new RuntimeException(e); | |
| 57 } | |
| 58 for( Object stupid : obj.entrySet() ) { | |
| 59 Map.Entry entry = (Map.Entry)stupid; | |
| 60 rtn.put( clone(entry.getKey()), clone(entry.getValue()) ); | |
| 61 } | |
| 62 return rtn; | |
| 63 } | |
| 64 | |
| 65 private static Collection clone(Collection obj) { | |
| 66 Collection rtn; | |
| 67 try { | |
| 68 rtn = obj.getClass().newInstance(); | |
| 69 } catch(InstantiationException e) { | |
| 70 throw new RuntimeException(e); | |
| 71 } catch(IllegalAccessException e) { | |
| 72 throw new RuntimeException(e); | |
| 73 } | |
| 74 for( Object entry : (Collection)obj ) { | |
| 75 rtn.add( clone(entry) ); | |
| 76 } | |
| 77 return rtn; | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
78 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
79 |
| 1578 | 80 private static Object clone(Object obj) { |
| 81 if( obj instanceof Object[] ) | |
| 82 return clone((Object[])obj); | |
| 83 if( obj instanceof Map ) | |
| 84 return clone((Map)obj); | |
| 85 if( obj instanceof Collection ) | |
| 86 return clone((Collection)obj); | |
| 87 return obj; | |
| 88 } | |
| 89 | |
| 90 private Map clonedLocals(Object obj) { | |
| 91 Map locals = (Map)registry.get("Luan.local"); | |
| 92 if( locals==null ) { | |
| 93 locals = new HashMap(); | |
| 94 registry.put("Luan.local",locals); | |
| 95 } | |
| 96 Map local = (Map)locals.get(obj); | |
| 97 if( local==null ) { | |
| 98 local = new HashMap(); | |
| 99 locals.put(obj,local); | |
| 100 } | |
| 101 return local; | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
102 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
103 |
| 1578 | 104 public Object getLocalCloned(Object obj,Object key) { |
| 105 return clonedLocals(obj).get(key); | |
| 106 } | |
| 107 | |
| 108 public void setLocalCloned(Object obj,Object key,Object value) { | |
| 109 if( value==null ) | |
| 110 clonedLocals(obj).remove(key); | |
| 111 else | |
| 112 clonedLocals(obj).put(key,value); | |
| 113 } | |
| 114 | |
| 115 private Map onlyLocals(Object obj) { | |
| 116 Map local = (Map)localOnly.get(obj); | |
| 117 if( local==null ) { | |
| 118 local = new HashMap(); | |
| 119 localOnly.put(obj,local); | |
| 120 } | |
| 121 return local; | |
| 122 } | |
| 123 | |
| 124 public Object getLocalOnly(Object obj,Object key) { | |
| 125 return onlyLocals(obj).get(key); | |
| 126 } | |
| 127 | |
| 128 public void setLocalOnly(Object obj,Object key,Object value) { | |
| 129 if( value==null ) | |
| 130 onlyLocals(obj).remove(key); | |
| 131 else | |
| 132 onlyLocals(obj).put(key,value); | |
| 133 } | |
| 1561 | 134 |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
135 public LuanClosure peek() { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
136 return peek(1); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
137 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
138 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
139 public LuanClosure peek(int i) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
140 int n = stack.size(); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
141 return n < i ? null : stack.get(n-i); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
142 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
143 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
144 void push(LuanClosure closure) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
145 stack.add(closure); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
146 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
147 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
148 void pop() { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
149 stack.remove(stack.size()-1); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
150 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
151 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
152 public Map registry() { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
153 return registry; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
154 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
155 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
156 public Object eval(String cmd,Object... args) throws LuanException { |
|
1563
8fbcc4747091
remove LuanFunction.luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
1562
diff
changeset
|
157 return load(cmd,"eval",false).call(this,args); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
158 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
159 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
160 public Object require(String modName) throws LuanException { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
161 return PackageLuan.require(this,modName); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
162 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
163 |
|
1563
8fbcc4747091
remove LuanFunction.luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
1562
diff
changeset
|
164 public String luanToString(Object obj) throws LuanException { |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
165 if( obj instanceof LuanTable ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
166 LuanTable tbl = (LuanTable)obj; |
|
1563
8fbcc4747091
remove LuanFunction.luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
1562
diff
changeset
|
167 return tbl.toStringLuan(this); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
168 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
169 if( obj == null ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
170 return "nil"; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
171 if( obj instanceof Number ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
172 return Luan.toString((Number)obj); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
173 if( obj instanceof byte[] ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
174 return "binary: " + Integer.toHexString(obj.hashCode()); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
175 return obj.toString(); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
176 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
177 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
178 public Object index(Object obj,Object key) throws LuanException { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
179 if( obj instanceof LuanTable ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
180 LuanTable tbl = (LuanTable)obj; |
| 1562 | 181 return tbl.get(this,key); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
182 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
183 if( obj != null && peek().javaOk ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
184 return JavaLuan.__index(this,obj,key); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
185 throw new LuanException("attempt to index a " + Luan.type(obj) + " value" ); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
186 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
187 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
188 |
|
1563
8fbcc4747091
remove LuanFunction.luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
1562
diff
changeset
|
189 public boolean isLessThan(Object o1,Object o2) throws LuanException { |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
190 if( o1 instanceof Number && o2 instanceof Number ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
191 Number n1 = (Number)o1; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
192 Number n2 = (Number)o2; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
193 return n1.doubleValue() < n2.doubleValue(); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
194 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
195 if( o1 instanceof String && o2 instanceof String ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
196 String s1 = (String)o1; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
197 String s2 = (String)o2; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
198 return s1.compareTo(s2) < 0; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
199 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
200 LuanFunction fn = getBinHandler("__lt",o1,o2); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
201 if( fn != null ) |
|
1563
8fbcc4747091
remove LuanFunction.luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
1562
diff
changeset
|
202 return Luan.checkBoolean( Luan.first(fn.call(this,o1,o2)) ); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
203 throw new LuanException( "attempt to compare " + Luan.type(o1) + " with " + Luan.type(o2) ); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
204 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
205 |
| 1578 | 206 public LuanFunction getBinHandler(String op,Object o1,Object o2) throws LuanException { |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
207 if( o1 instanceof LuanTable ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
208 LuanFunction f1 = getHandlerFunction(op,(LuanTable)o1); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
209 if( f1 != null ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
210 return f1; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
211 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
212 return o2 instanceof LuanTable ? getHandlerFunction(op,(LuanTable)o2) : null; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
213 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
214 |
| 1578 | 215 public LuanFunction getHandlerFunction(String op,LuanTable t) throws LuanException { |
| 216 Object f = t.getHandler(this,op); | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
217 if( f == null ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
218 return null; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
219 return Luan.checkFunction(f); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
220 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
221 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
222 public LuanTable toTable(Object obj) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
223 if( obj == null ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
224 return null; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
225 if( obj instanceof LuanTable ) |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
226 return (LuanTable)obj; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
227 if( obj instanceof List ) { |
| 1562 | 228 return new LuanTable((List)obj); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
229 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
230 if( obj instanceof Map ) { |
| 1562 | 231 return new LuanTable((Map)obj); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
232 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
233 if( obj instanceof Set ) { |
| 1562 | 234 return new LuanTable((Set)obj); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
235 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
236 Class cls = obj.getClass(); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
237 if( cls.isArray() ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
238 if( cls.getComponentType().isPrimitive() ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
239 int len = Array.getLength(obj); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
240 List list = new ArrayList(); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
241 for( int i=0; i<len; i++ ) { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
242 list.add(Array.get(obj,i)); |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
243 } |
| 1562 | 244 return new LuanTable(list); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
245 } else { |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
246 Object[] a = (Object[])obj; |
| 1562 | 247 return new LuanTable(Arrays.asList(a)); |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
248 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
249 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
250 return null; |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
251 } |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
252 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
253 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
254 |
|
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
255 // static |
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
256 |
|
481
5d4a78c93383
luan errors are now tables
Franklin Schmidt <fschmidt@gmail.com>
parents:
446
diff
changeset
|
257 public static void main(String[] args) throws LuanException { |
| 1454 | 258 Luan luan = new Luan(); |
| 1424 | 259 LuanFunction fn = loadClasspath(luan,"luan/cmd_line.luan"); |
|
1563
8fbcc4747091
remove LuanFunction.luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
1562
diff
changeset
|
260 fn.call(luan,(Object[])args); |
|
134
b585d0915621
remove CmdLine.java and move code to Luan.java
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
113
diff
changeset
|
261 } |
| 1454 | 262 |
| 263 public static LuanFunction loadClasspath(Luan luan,String classpath) | |
| 264 throws LuanException | |
| 265 { | |
| 1424 | 266 try { |
| 1454 | 267 String src = IoLuan.classpath(luan,classpath).read_text(); |
| 268 return luan.load(src,"classpath:"+classpath,true); | |
| 269 } catch(IOException e) { | |
| 270 throw new RuntimeException(e); | |
| 1424 | 271 } |
| 272 } | |
| 1454 | 273 |
|
111
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
274 public static Object first(Object obj) { |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
275 if( !(obj instanceof Object[]) ) |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
276 return obj; |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
277 Object[] a = (Object[])obj; |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
278 return a.length==0 ? null : a[0]; |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
279 } |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
280 |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
281 public static Object[] array(Object obj) { |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
282 return obj instanceof Object[] ? (Object[])obj : new Object[]{obj}; |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
283 } |
|
2428ecfed375
change LuanFunction.call() from returning Object[] to returning Object, to reduce garbage collection
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
105
diff
changeset
|
284 |
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
285 public static String type(Object obj) { |
|
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
286 if( obj == null ) |
|
105
a9560839104d
minor - change type names to lower case like Lua
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
104
diff
changeset
|
287 return "nil"; |
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
288 if( obj instanceof String ) |
|
105
a9560839104d
minor - change type names to lower case like Lua
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
104
diff
changeset
|
289 return "string"; |
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
290 if( obj instanceof Boolean ) |
|
105
a9560839104d
minor - change type names to lower case like Lua
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
104
diff
changeset
|
291 return "boolean"; |
|
46
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
292 if( obj instanceof Number ) |
|
105
a9560839104d
minor - change type names to lower case like Lua
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
104
diff
changeset
|
293 return "number"; |
|
85
b2551f00bc51
fix type()
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
66
diff
changeset
|
294 if( obj instanceof LuanTable ) |
|
105
a9560839104d
minor - change type names to lower case like Lua
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
104
diff
changeset
|
295 return "table"; |
|
85
b2551f00bc51
fix type()
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
66
diff
changeset
|
296 if( obj instanceof LuanFunction ) |
|
105
a9560839104d
minor - change type names to lower case like Lua
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
104
diff
changeset
|
297 return "function"; |
|
113
8c706d6eb5dc
add binary type
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
111
diff
changeset
|
298 if( obj instanceof byte[] ) |
|
8c706d6eb5dc
add binary type
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
111
diff
changeset
|
299 return "binary"; |
|
513
0dfc01d8d42d
rename type "userdata" to "java"
Franklin Schmidt <fschmidt@gmail.com>
parents:
481
diff
changeset
|
300 return "java"; |
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
301 } |
|
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
302 |
|
46
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
303 public static String toString(Number n) { |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
304 if( n instanceof Integer ) |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
305 return n.toString(); |
|
255
e5ad26746c94
improve toString(Number)
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
226
diff
changeset
|
306 int i = n.intValue(); |
|
e5ad26746c94
improve toString(Number)
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
226
diff
changeset
|
307 if( i == n.doubleValue() ) |
|
e5ad26746c94
improve toString(Number)
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
226
diff
changeset
|
308 return Integer.toString(i); |
|
46
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
309 String s = n.toString(); |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
310 int iE = s.indexOf('E'); |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
311 String ending = null; |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
312 if( iE != -1 ) { |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
313 ending = s.substring(iE); |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
314 s = s.substring(0,iE); |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
315 } |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
316 if( s.endsWith(".0") ) |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
317 s = s.substring(0,s.length()-2); |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
318 if( ending != null ) |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
319 s += ending; |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
320 return s; |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
321 } |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
322 |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
323 public static Integer asInteger(Object obj) { |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
324 if( obj instanceof Integer ) |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
325 return (Integer)obj; |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
326 if( !(obj instanceof Number) ) |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
327 return null; |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
328 Number n = (Number)obj; |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
329 int i = n.intValue(); |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
330 return i==n.doubleValue() ? Integer.valueOf(i) : null; |
|
a443637829c1
remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
44
diff
changeset
|
331 } |
|
66
f7e17cfb35f9
minor toString() improvement
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
48
diff
changeset
|
332 |
| 1442 | 333 public static Long asLong(Object obj) { |
| 334 if( obj instanceof Long ) | |
| 335 return (Long)obj; | |
| 336 if( !(obj instanceof Number) ) | |
| 337 return null; | |
| 338 Number n = (Number)obj; | |
| 339 long i = n.longValue(); | |
| 340 return i==n.doubleValue() ? Long.valueOf(i) : null; | |
| 341 } | |
| 342 | |
| 343 public static Float asFloat(Object obj) { | |
| 344 if( obj instanceof Float ) | |
| 345 return (Float)obj; | |
| 346 if( !(obj instanceof Number) ) | |
| 347 return null; | |
| 348 Number n = (Number)obj; | |
| 349 float i = n.floatValue(); | |
| 350 return i==n.doubleValue() ? Float.valueOf(i) : null; | |
| 351 } | |
| 352 | |
| 353 public static Double asDouble(Object obj) { | |
| 354 if( obj instanceof Double ) | |
| 355 return (Double)obj; | |
| 356 if( !(obj instanceof Number) ) | |
| 357 return null; | |
| 358 Number n = (Number)obj; | |
| 359 double i = n.doubleValue(); | |
| 360 return Double.valueOf(i); | |
| 361 } | |
| 362 | |
|
88
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
363 public static String stringEncode(String s) { |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
364 s = s.replace("\\","\\\\"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
365 s = s.replace("\u0007","\\a"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
366 s = s.replace("\b","\\b"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
367 s = s.replace("\f","\\f"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
368 s = s.replace("\n","\\n"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
369 s = s.replace("\r","\\r"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
370 s = s.replace("\t","\\t"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
371 s = s.replace("\u000b","\\v"); |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
372 s = s.replace("\"","\\\""); |
| 420 | 373 s = s.replace("\'","\\'"); |
|
88
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
374 return s; |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
375 } |
|
6ca02b188dba
add LuanBit to clean up code;
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
85
diff
changeset
|
376 |
|
647
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
377 |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
378 public static Boolean checkBoolean(Object obj) throws LuanException { |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
379 if( obj instanceof Boolean ) |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
380 return (Boolean)obj; |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
381 throw new LuanException("attempt to use a " + Luan.type(obj) + " value as a boolean" ); |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
382 } |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
383 |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
384 public static String checkString(Object obj) throws LuanException { |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
385 if( obj instanceof String ) |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
386 return (String)obj; |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
387 throw new LuanException("attempt to use a " + Luan.type(obj) + " value as a string" ); |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
388 } |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
389 |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
390 public static LuanFunction checkFunction(Object obj) throws LuanException { |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
391 if( obj instanceof LuanFunction ) |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
392 return (LuanFunction)obj; |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
393 throw new LuanException("attempt to call a " + Luan.type(obj) + " value" ); |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
394 } |
|
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
395 |
|
1434
56fb5cd8228d
cache compiled code in temp files
Franklin Schmidt <fschmidt@gmail.com>
parents:
1432
diff
changeset
|
396 public LuanFunction load(String text,String sourceName,boolean persist,LuanTable env) |
|
694
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
397 throws LuanException |
|
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
398 { |
|
1434
56fb5cd8228d
cache compiled code in temp files
Franklin Schmidt <fschmidt@gmail.com>
parents:
1432
diff
changeset
|
399 return LuanCompiler.compile(this,text,sourceName,persist,env); |
|
694
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
400 } |
|
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
401 |
|
1434
56fb5cd8228d
cache compiled code in temp files
Franklin Schmidt <fschmidt@gmail.com>
parents:
1432
diff
changeset
|
402 public LuanFunction load(String text,String sourceName,boolean persist) |
|
694
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
403 throws LuanException |
|
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
404 { |
|
1434
56fb5cd8228d
cache compiled code in temp files
Franklin Schmidt <fschmidt@gmail.com>
parents:
1432
diff
changeset
|
405 return load(text,sourceName,persist,null); |
|
694
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
693
diff
changeset
|
406 } |
|
647
8e8c30b72e9b
move methods from LuanState to Luan
Franklin Schmidt <fschmidt@gmail.com>
parents:
574
diff
changeset
|
407 |
| 1113 | 408 public static Object toJava(Object obj) throws LuanException { |
| 409 if( !(obj instanceof LuanTable) ) | |
| 410 return obj; | |
| 411 LuanTable tbl = (LuanTable)obj; | |
| 1464 | 412 if( !tbl.isMap() ) { |
| 1113 | 413 List list = new ArrayList(); |
| 414 for( Object el : tbl.asList() ) { | |
| 415 list.add( toJava(el) ); | |
| 416 } | |
| 417 return list; | |
| 418 } else { | |
| 419 Map map = new LinkedHashMap(); | |
| 420 Iterator<Map.Entry> iter = tbl.rawIterator(); | |
| 421 while( iter.hasNext() ) { | |
| 422 Map.Entry entry = iter.next(); | |
| 423 map.put( toJava(entry.getKey()), toJava(entry.getValue()) ); | |
| 424 } | |
| 425 return map; | |
| 426 } | |
| 427 } | |
| 1330 | 428 |
| 429 | |
| 430 // security | |
| 431 | |
| 432 public interface Security { | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
433 public void check(Luan luan,LuanClosure closure,String op,Object... args) throws LuanException; |
| 1330 | 434 } |
| 435 | |
| 436 private static String SECURITY_KEY = "Luan.Security"; | |
| 437 | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
438 public static void checkSecurity(Luan luan,String op,Object... args) throws LuanException { |
| 1330 | 439 check(luan,1,op,args); |
| 440 } | |
| 441 | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
442 public static void checkCallerSecurity(Luan luan,String op,Object... args) throws LuanException { |
| 1330 | 443 check(luan,2,op,args); |
| 444 } | |
| 445 | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
446 private static void check(Luan luan,int i,String op,Object... args) throws LuanException { |
| 1330 | 447 Security s = (Security)luan.registry().get(SECURITY_KEY); |
| 448 if( s!=null ) | |
| 1432 | 449 s.check(luan,luan.peek(i),op,args); |
| 1330 | 450 } |
| 451 | |
|
1333
25746915a241
merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents:
1330
diff
changeset
|
452 public static Security setSecurity(Luan luan,Security s) { |
| 1330 | 453 return (Security)luan.registry().put(SECURITY_KEY,s); |
| 454 } | |
| 455 | |
|
1
2df768b926aa
start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
456 } |