diff options
author | Eduardo Julian | 2017-11-01 00:51:45 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-11-01 00:51:45 -0400 |
commit | 012f6bd41e527479dddbccbdab10daa78fd9a0fd (patch) | |
tree | 621f344a09acd52736f343d94582b3f1a2f0c5f9 /new-luxc/source/luxc/generator/statement.jvm.lux | |
parent | 71d7a4c7206155e09f3e1e1d8699561ea6967382 (diff) |
- Re-organized code-generation, and re-named it "translation".
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/statement.jvm.lux (renamed from new-luxc/source/luxc/generator/statement.jvm.lux) | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/new-luxc/source/luxc/generator/statement.jvm.lux b/new-luxc/source/luxc/lang/translation/statement.jvm.lux index e91e99fc9..0234d738c 100644 --- a/new-luxc/source/luxc/generator/statement.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/statement.jvm.lux @@ -17,8 +17,8 @@ (jvm ["$t" type] ["$d" def] ["$i" inst])) - (generator ["&;" eval] - ["&;" common]))) + (lang (translation [";T" eval] + [";T" common])))) (exception: #export Invalid-Definition-Value) @@ -44,16 +44,16 @@ bytecode-name (list) ["java.lang.Object" (list)] (list) - (|>. ($d;field #$;Public ($;++F $;finalF $;staticF) &common;value-field &common;$Object) + (|>. ($d;field #$;Public ($;++F $;finalF $;staticF) commonT;value-field commonT;$Object) ($d;method #$;Public $;staticM "<clinit>" ($t;method (list) #;None (list)) (|>. valueI - ($i;PUTSTATIC bytecode-name &common;value-field &common;$Object) + ($i;PUTSTATIC bytecode-name commonT;value-field commonT;$Object) $i;RETURN))))] - _ (&common;store-class class-name bytecode) - class (&common;load-class class-name) + _ (commonT;store-class class-name bytecode) + class (commonT;load-class class-name) valueV (: (Meta Top) (case (do e;Monad<Error> - [field (Class.getField [&common;value-field] class)] + [field (Class.getField [commonT;value-field] class)] (Field.get [#;None] field)) (#e;Success #;None) (&;throw Invalid-Definition-Value (format current-module ";" def-name)) @@ -73,7 +73,7 @@ (&module;declare-tags tags (meta;export? metaV) (:! Type valueV))) (wrap [])) #let [_ (log! (format "DEF " current-module ";" def-name))]] - (&common;record-artifact bytecode-name bytecode))) + (commonT;record-artifact bytecode-name bytecode))) (def: #export (generate-program program-args programI) (-> Text $;Inst (Meta Unit)) |