Mercurial Hosting > luan
annotate src/luan/impl/LuanCompiler.java @ 1333:25746915a241
merge Luan and LuanState
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Tue, 12 Feb 2019 22:33:40 -0700 |
parents | f41919741100 |
children | e0cf0d108a77 |
rev | line source |
---|---|
166
4eaee12f6c65
move luan/interp to impl
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
165
diff
changeset
|
1 package luan.impl; |
48
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
2 |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
3 import java.lang.ref.WeakReference; |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
4 import java.lang.reflect.InvocationTargetException; |
667
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
5 import java.util.Map; |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
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:
diff
changeset
|
7 import luan.LuanFunction; |
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
8 import luan.LuanException; |
86
6db8f286fa6c
_ENV is per module, not global
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
80
diff
changeset
|
9 import luan.LuanTable; |
1330 | 10 import luan.LuanClosure; |
321
7f7708e8fdd4
remove import statement
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
320
diff
changeset
|
11 import luan.modules.JavaLuan; |
7f7708e8fdd4
remove import statement
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
320
diff
changeset
|
12 import luan.modules.PackageLuan; |
48
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
13 |
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
14 |
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
15 public final class LuanCompiler { |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
16 private static final Map<String,WeakReference<Class>> map = new HashMap<String,WeakReference<Class>>(); |
48
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
17 |
694
b620b8e1010f
remove Luan.load() allow_expression param and add Luan.eval()
Franklin Schmidt <fschmidt@gmail.com>
parents:
691
diff
changeset
|
18 public static LuanFunction compile(String sourceText,String sourceName,LuanTable env) throws LuanException { |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
19 Class fnClass = env==null ? getClass(sourceText,sourceName) : getClass(sourceText,sourceName,env); |
1330 | 20 boolean javaOk = false; |
21 if( env != null && env.closure != null ) | |
22 javaOk = env.closure.javaOk; | |
23 LuanClosure closure; | |
667
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
24 try { |
1330 | 25 closure = (LuanClosure)fnClass.getConstructor(Boolean.TYPE,String.class).newInstance(javaOk,sourceName); |
667
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
26 } catch(NoSuchMethodException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
27 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
28 } catch(InstantiationException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
29 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
30 } catch(IllegalAccessException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
31 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
32 } catch(InvocationTargetException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
33 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
34 } |
672
d3e5414bdf4c
better java permission handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
670
diff
changeset
|
35 closure.upValues[0].o = JavaLuan.javaFn; |
d3e5414bdf4c
better java permission handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
670
diff
changeset
|
36 closure.upValues[1].o = PackageLuan.requireFn; |
1330 | 37 if( env != null ) { |
38 closure.upValues[2].o = env; | |
39 env.closure = closure; | |
40 } | |
670
58ebfec6178b
all luan now compiles
Franklin Schmidt <fschmidt@gmail.com>
parents:
667
diff
changeset
|
41 return closure; |
128
f0a4abe58593
minor
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
111
diff
changeset
|
42 } |
f0a4abe58593
minor
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
111
diff
changeset
|
43 |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
44 private static synchronized Class getClass(String sourceText,String sourceName) throws LuanException { |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
45 String key = sourceName + "~~~" + sourceText; |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
46 WeakReference<Class> ref = map.get(key); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
47 if( ref != null ) { |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
48 Class cls = ref.get(); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
49 if( cls != null ) |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
50 return cls; |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
51 } |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
52 Class cls = getClass(sourceText,sourceName,null); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
53 map.put(key,new WeakReference<Class>(cls)); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
54 return cls; |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
55 } |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
56 |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
57 private static Class getClass(String sourceText,String sourceName,LuanTable env) throws LuanException { |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
58 LuanParser parser = new LuanParser(sourceText,sourceName); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
59 parser.addVar( "java" ); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
60 parser.addVar( "require" ); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
61 if( env != null ) parser.addVar( "_ENV" ); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
62 try { |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
63 return parser.RequiredModule(); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
64 } catch(ParseException e) { |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
65 //e.printStackTrace(); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
66 throw new LuanException( e.getFancyMessage() ); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
67 } |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
68 } |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
69 |
708
77e0c859c8a3
fix luan_to_java and fix line numbers
Franklin Schmidt <fschmidt@gmail.com>
parents:
703
diff
changeset
|
70 public static String toJava(String sourceText,String sourceName) throws LuanException { |
77e0c859c8a3
fix luan_to_java and fix line numbers
Franklin Schmidt <fschmidt@gmail.com>
parents:
703
diff
changeset
|
71 LuanParser parser = new LuanParser(sourceText,sourceName); |
678 | 72 parser.addVar( "java" ); |
73 parser.addVar( "require" ); | |
74 try { | |
75 return parser.RequiredModuleSource(); | |
76 } catch(ParseException e) { | |
77 throw new LuanException( e.getFancyMessage() ); | |
78 } | |
79 } | |
80 | |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
81 private LuanCompiler() {} // never |
48
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
82 } |