Mercurial Hosting > luan
annotate src/luan/impl/LuanCompiler.java @ 1353:8d95711f6615
replace java() with require "java"
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Wed, 20 Mar 2019 17:03:29 -0600 |
parents | e0cf0d108a77 |
children | 56fb5cd8228d |
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; |
1335 | 7 import luan.Luan; |
48
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
8 import luan.LuanFunction; |
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
9 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
|
10 import luan.LuanTable; |
1330 | 11 import luan.LuanClosure; |
321
7f7708e8fdd4
remove import statement
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
320
diff
changeset
|
12 import luan.modules.JavaLuan; |
7f7708e8fdd4
remove import statement
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
320
diff
changeset
|
13 import luan.modules.PackageLuan; |
48
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 |
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
16 public final class LuanCompiler { |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
17 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
|
18 |
1335 | 19 public static LuanFunction compile(Luan luan,String sourceText,String sourceName,LuanTable env) throws LuanException { |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
20 Class fnClass = env==null ? getClass(sourceText,sourceName) : getClass(sourceText,sourceName,env); |
1330 | 21 boolean javaOk = false; |
22 if( env != null && env.closure != null ) | |
23 javaOk = env.closure.javaOk; | |
24 LuanClosure closure; | |
667
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
25 try { |
1335 | 26 closure = (LuanClosure)fnClass.getConstructor(Luan.class,Boolean.TYPE,String.class).newInstance(luan,javaOk,sourceName); |
667
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
27 } catch(NoSuchMethodException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
28 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
29 } catch(InstantiationException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
30 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
31 } catch(IllegalAccessException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
32 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
33 } catch(InvocationTargetException e) { |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
34 throw new RuntimeException(e); |
08966099aa6d
implement Closure directly
Franklin Schmidt <fschmidt@gmail.com>
parents:
649
diff
changeset
|
35 } |
1353
8d95711f6615
replace java() with require "java"
Franklin Schmidt <fschmidt@gmail.com>
parents:
1335
diff
changeset
|
36 closure.upValues[0].o = PackageLuan.requireFn(luan); |
1330 | 37 if( env != null ) { |
1353
8d95711f6615
replace java() with require "java"
Franklin Schmidt <fschmidt@gmail.com>
parents:
1335
diff
changeset
|
38 closure.upValues[1].o = env; |
1330 | 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( "require" ); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
60 if( env != null ) parser.addVar( "_ENV" ); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
61 try { |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
62 return parser.RequiredModule(); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
63 } catch(ParseException e) { |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
64 //e.printStackTrace(); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
65 throw new LuanException( e.getFancyMessage() ); |
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
66 } |
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 |
708
77e0c859c8a3
fix luan_to_java and fix line numbers
Franklin Schmidt <fschmidt@gmail.com>
parents:
703
diff
changeset
|
69 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
|
70 LuanParser parser = new LuanParser(sourceText,sourceName); |
678 | 71 parser.addVar( "require" ); |
72 try { | |
73 return parser.RequiredModuleSource(); | |
74 } catch(ParseException e) { | |
75 throw new LuanException( e.getFancyMessage() ); | |
76 } | |
77 } | |
78 | |
703
6e6e9e73abaa
cache classes in compiler
Franklin Schmidt <fschmidt@gmail.com>
parents:
694
diff
changeset
|
79 private LuanCompiler() {} // never |
48
64ecb7a3aad7
rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff
changeset
|
80 } |