blob: f5784319a56d923cc7a7f0eacaac5e085f068d76 (
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
|
(;module:
lux
(lux (control monad)
[io #- run]
(concurrency ["A" atom])
(data ["E" error]
[text]
text/format)
host)
(luxc ["&" base]))
(jvm-import java.lang.Class)
(jvm-import java.lang.ClassLoader)
(jvm-import org.objectweb.asm.MethodVisitor)
(type: Blob Byte-Array)
(type: JVM-State
{#visitor (Maybe MethodVisitor)
#loader ClassLoader
#store (A;Atom (D;Dict Text Blob))
})
(def: host-state
JVM-State
(let [store (A;new (D;new text;Hash<Text>))]
{#visitor #;None
#loader (memory-class-loader store)
#store store
}))
|
