aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/host/jvm/def.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/host/jvm/def.lux')
-rw-r--r--new-luxc/source/luxc/lang/host/jvm/def.lux26
1 files changed, 14 insertions, 12 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index 4d1b99da0..138098929 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -4,9 +4,11 @@
[control
["." function]]
[data
- ["." text
- format]
["." product]
+ [number
+ ["i" int]]
+ ["." text
+ ["%" format (#+ format)]]
[collection
["." array (#+ Array)]
["." list ("#/." functor)]]]
@@ -126,12 +128,12 @@
(def: (class-flags config)
(-> //.Class-Config Int)
- ($_ i/+
+ ($_ i.+
(if (get@ #//.finalC config) (Opcodes::ACC_FINAL) +0)))
(def: (method-flags config)
(-> //.Method-Config Int)
- ($_ i/+
+ ($_ i.+
(if (get@ #//.staticM config) (Opcodes::ACC_STATIC) +0)
(if (get@ #//.finalM config) (Opcodes::ACC_FINAL) +0)
(if (get@ #//.synchronizedM config) (Opcodes::ACC_SYNCHRONIZED) +0)
@@ -139,7 +141,7 @@
(def: (field-flags config)
(-> //.Field-Config Int)
- ($_ i/+
+ ($_ i.+
(if (get@ #//.staticF config) (Opcodes::ACC_STATIC) +0)
(if (get@ #//.finalF config) (Opcodes::ACC_FINAL) +0)
(if (get@ #//.transientF config) (Opcodes::ACC_TRANSIENT) +0)
@@ -179,7 +181,7 @@
(def: class-computes
Int
- ($_ i/+
+ ($_ i.+
(ClassWriter::COMPUTE_MAXS)
## (ClassWriter::COMPUTE_FRAMES)
))
@@ -191,7 +193,7 @@
(host.type [byte]))
(let [writer (|> (do-to (ClassWriter::new class-computes)
(ClassWriter::visit (version-flag version)
- ($_ i/+
+ ($_ i.+
(Opcodes::ACC_SUPER)
<flag>
(visibility-flag visibility)
@@ -218,7 +220,7 @@
(host.type [byte]))
(let [writer (|> (do-to (ClassWriter::new class-computes)
(ClassWriter::visit (version-flag version)
- ($_ i/+
+ ($_ i.+
(Opcodes::ACC_SUPER)
(Opcodes::ACC_INTERFACE)
(visibility-flag visibility)
@@ -237,7 +239,7 @@
(-> //.Visibility //.Method-Config Text Method //.Inst
//.Def)
(function (_ writer)
- (let [=method (ClassWriter::visitMethod ($_ i/+
+ (let [=method (ClassWriter::visitMethod ($_ i.+
(visibility-flag visibility)
(method-flags config))
($t.binary-name name)
@@ -255,7 +257,7 @@
(-> //.Visibility //.Method-Config Text Method
//.Def)
(function (_ writer)
- (let [=method (ClassWriter::visitMethod ($_ i/+
+ (let [=method (ClassWriter::visitMethod ($_ i.+
(visibility-flag visibility)
(method-flags config)
(Opcodes::ACC_ABSTRACT))
@@ -270,7 +272,7 @@
(def: #export (field visibility config name type)
(-> //.Visibility //.Field-Config Text Type //.Def)
(function (_ writer)
- (let [=field (do-to (ClassWriter::visitField ($_ i/+
+ (let [=field (do-to (ClassWriter::visitField ($_ i.+
(visibility-flag visibility)
(field-flags config))
($t.binary-name name)
@@ -285,7 +287,7 @@
[(def: #export (<name> visibility config name value)
(-> //.Visibility //.Field-Config Text <lux-type> //.Def)
(function (_ writer)
- (let [=field (do-to (ClassWriter::visitField ($_ i/+
+ (let [=field (do-to (ClassWriter::visitField ($_ i.+
(visibility-flag visibility)
(field-flags config))
($t.binary-name name)