blob: c326895a2a311fa05980fbc257c8b512f36487b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(.module:
lux
(lux (control monad)
(data [text]
text/format)
[macro]
[host #+ do-to])
(luxc ["&" lang]
(lang (host ["$" jvm]
(jvm ["$t" type]
["$d" def]
["$i" inst]))
["la" analysis]
["ls" synthesis]))
(// [".T" common]))
(host.import java/lang/reflect/Field
(get [Object] Object))
(host.import (java/lang/Class a)
(getField [String] Field))
(def: #export (eval valueI)
(-> $.Inst (Meta Top))
(do macro.Monad<Meta>
[current-module macro.current-module-name
class-name (:: @ map %code (macro.gensym (format current-module "/eval")))
#let [store-name (text.replace-all "/" "." class-name)
bytecode ($d.class #$.V1_6
#$.Public $.noneC
class-name
(list) ["java.lang.Object" (list)]
(list)
(|>> ($d.field #$.Public ($_ $.++F $.finalF $.staticF)
commonT.value-field commonT.$Object)
($d.method #$.Public ($_ $.++M $.staticM $.strictM)
"<clinit>"
($t.method (list) #.None (list))
(|>> valueI
($i.PUTSTATIC store-name commonT.value-field commonT.$Object)
$i.RETURN))))]
_ (commonT.store-class store-name bytecode)
class (commonT.load-class store-name)]
(wrap (|> class
(Class::getField [commonT.value-field])
(Field::get (host.null))))))
|
