aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/program.lux
diff options
context:
space:
mode:
authorEduardo Julian2020-12-29 00:38:21 -0400
committerEduardo Julian2020-12-29 00:38:21 -0400
commit832a9361b632331e82a64c07baa560487ca8abde (patch)
tree5fec882399315def4d789ecef1746d90e761df93 /lux-jvm/source/program.lux
parent92dca9f487c625d27f6c291784ef709b0cc13a72 (diff)
Moved "lux/data/number" to "lux/math/number".
Diffstat (limited to 'lux-jvm/source/program.lux')
-rw-r--r--lux-jvm/source/program.lux56
1 files changed, 28 insertions, 28 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index c07ecd3e3..a7e2f395c 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -78,39 +78,39 @@
["#::."
(getClass [] (java/lang/Class java/lang/Object))])
-(def: _object-class
+(def: _object_class
(java/lang/Class java/lang/Object)
- (host.class-for java/lang/Object))
+ (host.class_for java/lang/Object))
-(def: _apply2-args
+(def: _apply2_args
(Array (java/lang/Class java/lang/Object))
(|> (host.array (java/lang/Class java/lang/Object) 2)
- (host.array-write 0 _object-class)
- (host.array-write 1 _object-class)))
+ (host.array_write 0 _object_class)
+ (host.array_write 1 _object_class)))
-(def: _apply5-args
+(def: _apply5_args
(Array (java/lang/Class java/lang/Object))
(|> (host.array (java/lang/Class java/lang/Object) 5)
- (host.array-write 0 _object-class)
- (host.array-write 1 _object-class)
- (host.array-write 2 _object-class)
- (host.array-write 3 _object-class)
- (host.array-write 4 _object-class)))
+ (host.array_write 0 _object_class)
+ (host.array_write 1 _object_class)
+ (host.array_write 2 _object_class)
+ (host.array_write 3 _object_class)
+ (host.array_write 4 _object_class)))
(def: #export (expander macro inputs lux)
Expander
(do try.monad
- [apply-method (|> macro
+ [apply_method (|> macro
(:coerce java/lang/Object)
(java/lang/Object::getClass)
- (java/lang/Class::getMethod "apply" _apply2-args))]
+ (java/lang/Class::getMethod "apply" _apply2_args))]
(:coerce (Try (Try [Lux (List Code)]))
(java/lang/reflect/Method::invoke
(:coerce java/lang/Object macro)
(|> (host.array java/lang/Object 2)
- (host.array-write 0 (:coerce java/lang/Object inputs))
- (host.array-write 1 (:coerce java/lang/Object lux)))
- apply-method))))
+ (host.array_write 0 (:coerce java/lang/Object inputs))
+ (host.array_write 1 (:coerce java/lang/Object lux)))
+ apply_method))))
(def: #export platform
## (IO (Platform Anchor (Bytecode Any) Definition))
@@ -118,7 +118,7 @@
(do io.monad
[## host jvm/host.host
host jvm.host]
- (wrap {#platform.&file-system (file.async file.default)
+ (wrap {#platform.&file_system (file.async file.default)
#platform.host host
## #platform.phase jvm.generate
#platform.phase expression.translate
@@ -144,38 +144,38 @@
[method (|> handler
(:coerce java/lang/Object)
(java/lang/Object::getClass)
- (java/lang/Class::getMethod "apply" _apply5-args))]
+ (java/lang/Class::getMethod "apply" _apply5_args))]
(java/lang/reflect/Method::invoke
(:coerce java/lang/Object handler)
(|> (host.array java/lang/Object 5)
- (host.array-write 0 (:coerce java/lang/Object name))
- (host.array-write 1 (:coerce java/lang/Object phase))
- (host.array-write 2 (:coerce java/lang/Object archive))
- (host.array-write 3 (:coerce java/lang/Object parameters))
- (host.array-write 4 (:coerce java/lang/Object state)))
+ (host.array_write 0 (:coerce java/lang/Object name))
+ (host.array_write 1 (:coerce java/lang/Object phase))
+ (host.array_write 2 (:coerce java/lang/Object archive))
+ (host.array_write 3 (:coerce java/lang/Object parameters))
+ (host.array_write 4 (:coerce java/lang/Object state)))
method))))
-(def: (declare-success! _)
+(def: (declare_success! _)
(-> Any (Promise Any))
(promise.future (\ world/program.default exit +0)))
(program: [{service /cli.service}]
(exec (do promise.monad
[_ (/.compiler {#/static.host @.jvm
- #/static.host-module-extension ".jvm"
+ #/static.host_module_extension ".jvm"
#/static.target (/cli.target service)
- #/static.artifact-extension ".class"}
+ #/static.artifact_extension ".class"}
..expander
analysis.bundle
..platform
## generation.bundle
translation.bundle
(directive.bundle ..extender)
- (jvm/program.program jvm/runtime.class-name)
+ (jvm/program.program jvm/runtime.class_name)
[_.Anchor _.Inst _.Definition]
..extender
service
[packager.package
(format (/cli.target service) (\ file.default separator) "program.jar")])]
- (..declare-success! []))
+ (..declare_success! []))
(io.io [])))