diff options
| author | Eduardo Julian | 2017-06-12 21:14:55 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-06-12 21:14:55 -0400 |
| commit | 9cd2927a4f6175784e081d6b512d3e900c8069e7 (patch) | |
| tree | d1fe512bc84ea1e3a50ad86eeb3265771edd23c6 /new-luxc/source/luxc/compiler/base.jvm.lux | |
| parent | c50667a431a5ca67328a230f0c59956dc6ff43fa (diff) | |
- Renamed the "compilation" phase as the "generation" phase.
- Implemented compilation of primitives.
- Implemented compilation of structures.
Diffstat (limited to 'new-luxc/source/luxc/compiler/base.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/compiler/base.jvm.lux | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/new-luxc/source/luxc/compiler/base.jvm.lux b/new-luxc/source/luxc/compiler/base.jvm.lux deleted file mode 100644 index 01a97aec4..000000000 --- a/new-luxc/source/luxc/compiler/base.jvm.lux +++ /dev/null @@ -1,29 +0,0 @@ -(;module: - lux - (lux (control monad) - [io #- run] - (concurrency ["A" atom]) - (data [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 - })) |