aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/generator
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/generator')
-rw-r--r--new-luxc/source/luxc/generator/common.jvm.lux10
-rw-r--r--new-luxc/source/luxc/generator/eval.jvm.lux18
-rw-r--r--new-luxc/source/luxc/generator/host/jvm.lux8
-rw-r--r--new-luxc/source/luxc/generator/host/jvm/def.lux14
-rw-r--r--new-luxc/source/luxc/generator/host/jvm/inst.lux14
-rw-r--r--new-luxc/source/luxc/generator/procedure/common.jvm.lux6
-rw-r--r--new-luxc/source/luxc/generator/runtime.jvm.lux14
-rw-r--r--new-luxc/source/luxc/generator/structure.jvm.lux2
8 files changed, 43 insertions, 43 deletions
diff --git a/new-luxc/source/luxc/generator/common.jvm.lux b/new-luxc/source/luxc/generator/common.jvm.lux
index c5fe8fc0a..095f41945 100644
--- a/new-luxc/source/luxc/generator/common.jvm.lux
+++ b/new-luxc/source/luxc/generator/common.jvm.lux
@@ -5,21 +5,21 @@
(data ["R" result]
(coll ["d" dict])
text/format)
- [host #+ jvm-import])
+ [host])
(luxc (generator (host ["$" jvm]
(jvm ["$t" type]
["$d" def]
["$i" inst])))))
## [Host]
-(jvm-import org.objectweb.asm.Opcodes
+(host;import org.objectweb.asm.Opcodes
(#static V1_6 int))
-(jvm-import java.lang.Object)
+(host;import java.lang.Object)
-(jvm-import (java.lang.Class a))
+(host;import (java.lang.Class a))
-(jvm-import java.lang.ClassLoader
+(host;import java.lang.ClassLoader
(loadClass [String] (Class Object)))
## [Types]
diff --git a/new-luxc/source/luxc/generator/eval.jvm.lux b/new-luxc/source/luxc/generator/eval.jvm.lux
index e7567f1fa..e6650953f 100644
--- a/new-luxc/source/luxc/generator/eval.jvm.lux
+++ b/new-luxc/source/luxc/generator/eval.jvm.lux
@@ -4,7 +4,7 @@
(data ["R" result]
text/format)
[macro #+ Monad<Lux> "Lux/" Monad<Lux>]
- [host #+ jvm-import do-to])
+ [host #+ do-to])
(luxc ["&" base]
(lang ["la" analysis]
["ls" synthesis])
@@ -17,16 +17,16 @@
["$i" inst])))
))
-(jvm-import java.lang.Object)
-(jvm-import java.lang.String)
+(host;import java.lang.Object)
+(host;import java.lang.String)
-(jvm-import java.lang.reflect.Field
+(host;import java.lang.reflect.Field
(get [Object] Object))
-(jvm-import (java.lang.Class a)
+(host;import (java.lang.Class a)
(getField [String] Field))
-(jvm-import org.objectweb.asm.Opcodes
+(host;import org.objectweb.asm.Opcodes
(#static ACC_PUBLIC int)
(#static ACC_SUPER int)
(#static ACC_FINAL int)
@@ -36,7 +36,7 @@
(#static V1_6 int)
)
-(jvm-import org.objectweb.asm.MethodVisitor
+(host;import org.objectweb.asm.MethodVisitor
(visitCode [] void)
(visitEnd [] void)
(visitLdcInsn [Object] void)
@@ -44,10 +44,10 @@
(visitInsn [int] void)
(visitMaxs [int int] void))
-(jvm-import org.objectweb.asm.FieldVisitor
+(host;import org.objectweb.asm.FieldVisitor
(visitEnd [] void))
-(jvm-import org.objectweb.asm.ClassWriter
+(host;import org.objectweb.asm.ClassWriter
(#static COMPUTE_MAXS int)
(new [int])
(visit [int int String String String (Array String)] void)
diff --git a/new-luxc/source/luxc/generator/host/jvm.lux b/new-luxc/source/luxc/generator/host/jvm.lux
index d67b6ef91..4b4b1d38e 100644
--- a/new-luxc/source/luxc/generator/host/jvm.lux
+++ b/new-luxc/source/luxc/generator/host/jvm.lux
@@ -6,14 +6,14 @@
[macro]
(macro [code]
["s" syntax #+ syntax:])
- [host #+ jvm-import]))
+ [host]))
## [Host]
-(jvm-import org.objectweb.asm.MethodVisitor)
+(host;import org.objectweb.asm.MethodVisitor)
-(jvm-import org.objectweb.asm.ClassWriter)
+(host;import org.objectweb.asm.ClassWriter)
-(jvm-import #long org.objectweb.asm.Label
+(host;import #long org.objectweb.asm.Label
(new []))
## [Type]
diff --git a/new-luxc/source/luxc/generator/host/jvm/def.lux b/new-luxc/source/luxc/generator/host/jvm/def.lux
index 8b961b29a..bb1d2cd94 100644
--- a/new-luxc/source/luxc/generator/host/jvm/def.lux
+++ b/new-luxc/source/luxc/generator/host/jvm/def.lux
@@ -5,15 +5,15 @@
[product]
(coll ["a" array]
[list "L/" Functor<List>]))
- [host #+ jvm-import do-to])
+ [host #+ do-to])
["$" ..]
(.. ["$t" type]))
## [Host]
-(jvm-import #long java.lang.Object)
-(jvm-import #long java.lang.String)
+(host;import #long java.lang.Object)
+(host;import #long java.lang.String)
-(jvm-import org.objectweb.asm.Opcodes
+(host;import org.objectweb.asm.Opcodes
(#static ACC_PUBLIC int)
(#static ACC_PROTECTED int)
(#static ACC_PRIVATE int)
@@ -40,15 +40,15 @@
(#static V1_8 int)
)
-(jvm-import org.objectweb.asm.FieldVisitor
+(host;import org.objectweb.asm.FieldVisitor
(visitEnd [] void))
-(jvm-import org.objectweb.asm.MethodVisitor
+(host;import org.objectweb.asm.MethodVisitor
(visitCode [] void)
(visitMaxs [int int] void)
(visitEnd [] void))
-(jvm-import org.objectweb.asm.ClassWriter
+(host;import org.objectweb.asm.ClassWriter
(#static COMPUTE_MAXS int)
(new [int])
(visit [int int String String String (Array String)] void)
diff --git a/new-luxc/source/luxc/generator/host/jvm/inst.lux b/new-luxc/source/luxc/generator/host/jvm/inst.lux
index af5f6f6d8..6085ff72b 100644
--- a/new-luxc/source/luxc/generator/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/generator/host/jvm/inst.lux
@@ -4,7 +4,7 @@
["p" parser])
(data text/format
(coll [list "L/" Functor<List>]))
- [host #+ jvm-import do-to]
+ [host #+ do-to]
[macro]
(macro [code]
["s" syntax #+ syntax:]))
@@ -12,8 +12,8 @@
(.. ["$t" type]))
## [Host]
-(jvm-import #long java.lang.Object)
-(jvm-import #long java.lang.String)
+(host;import #long java.lang.Object)
+(host;import #long java.lang.String)
(syntax: (declare [codes (p;many s;local-symbol)])
(|> codes
@@ -34,7 +34,7 @@
LADD LSUB LMUL LDIV LREM LCMP
DADD DSUB DMUL DDIV DREM DCMPG)
<return> (declare RETURN IRETURN LRETURN DRETURN ARETURN)]
- (jvm-import org.objectweb.asm.Opcodes
+ (host;import org.objectweb.asm.Opcodes
<primitive>
(#static CHECKCAST int)
@@ -82,13 +82,13 @@
<return>
))
-(jvm-import org.objectweb.asm.FieldVisitor
+(host;import org.objectweb.asm.FieldVisitor
(visitEnd [] void))
-(jvm-import org.objectweb.asm.Label
+(host;import org.objectweb.asm.Label
(new []))
-(jvm-import org.objectweb.asm.MethodVisitor
+(host;import org.objectweb.asm.MethodVisitor
(visitCode [] void)
(visitMaxs [int int] void)
(visitEnd [] void)
diff --git a/new-luxc/source/luxc/generator/procedure/common.jvm.lux b/new-luxc/source/luxc/generator/procedure/common.jvm.lux
index 106b6a0f5..d04a91141 100644
--- a/new-luxc/source/luxc/generator/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/generator/procedure/common.jvm.lux
@@ -8,7 +8,7 @@
[macro #+ Monad<Lux> with-gensyms]
(macro [code]
["s" syntax #+ syntax:])
- [host #+ jvm-import])
+ [host])
(luxc ["&" base]
(lang ["la" analysis]
["ls" synthesis])
@@ -22,11 +22,11 @@
["$d" def]
["$i" inst])))))
-(jvm-import java.lang.Long
+(host;import java.lang.Long
(#static MIN_VALUE Long)
(#static MAX_VALUE Long))
-(jvm-import java.lang.Double
+(host;import java.lang.Double
(#static MIN_VALUE Double)
(#static MAX_VALUE Double)
(#static NaN Double)
diff --git a/new-luxc/source/luxc/generator/runtime.jvm.lux b/new-luxc/source/luxc/generator/runtime.jvm.lux
index fe7a4b2cb..e094334c0 100644
--- a/new-luxc/source/luxc/generator/runtime.jvm.lux
+++ b/new-luxc/source/luxc/generator/runtime.jvm.lux
@@ -5,7 +5,7 @@
text/format)
[math]
[macro #+ Monad<Lux> "Lux/" Monad<Lux>]
- [host #+ jvm-import do-to])
+ [host #+ do-to])
(luxc ["&" base]
(lang ["la" analysis]
["ls" synthesis])
@@ -17,23 +17,23 @@
["$d" def]
["$i" inst])))))
-(jvm-import java.lang.Object)
-(jvm-import java.lang.String)
+(host;import java.lang.Object)
+(host;import java.lang.String)
-(jvm-import java.lang.reflect.Field
+(host;import java.lang.reflect.Field
(get [Object] #try Object))
-(jvm-import (java.lang.Class a)
+(host;import (java.lang.Class a)
(getField [String] Field))
-(jvm-import org.objectweb.asm.Opcodes
+(host;import org.objectweb.asm.Opcodes
(#static ACC_PUBLIC int)
(#static ACC_SUPER int)
(#static ACC_FINAL int)
(#static ACC_STATIC int)
(#static V1_6 int))
-(jvm-import org.objectweb.asm.ClassWriter
+(host;import org.objectweb.asm.ClassWriter
(#static COMPUTE_MAXS int)
(new [int])
(visit [int int String String String (Array String)] void)
diff --git a/new-luxc/source/luxc/generator/structure.jvm.lux b/new-luxc/source/luxc/generator/structure.jvm.lux
index 8662aaa8d..64848546f 100644
--- a/new-luxc/source/luxc/generator/structure.jvm.lux
+++ b/new-luxc/source/luxc/generator/structure.jvm.lux
@@ -5,7 +5,7 @@
(data text/format
(coll [list]))
[macro #+ Monad<Lux> "Lux/" Monad<Lux>]
- [host #+ jvm-import do-to])
+ [host #+ do-to])
(luxc ["&" base]
(lang ["la" analysis]
["ls" synthesis])
generated by cgit v1.2.3 (git 2.25.1) at 2024-08-30 00:56:10 +0000