From 697707d8560a5735be38fd9b1ff91a02c289d48f Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Tue, 16 Apr 2019 20:53:41 -0400 Subject: Made some new-luxc modules "old". --- .../luxc/lang/translation/jvm/expression.jvm.lux | 70 ---------------------- 1 file changed, 70 deletions(-) delete mode 100644 new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux (limited to 'new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux') diff --git a/new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux deleted file mode 100644 index c6b77e549..000000000 --- a/new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux +++ /dev/null @@ -1,70 +0,0 @@ -(.module: - [lux #* - [tool - [compiler - ["." synthesis] - [phase - ["." extension]]]]] - [luxc - [lang - [host - [jvm (#+ Phase)]]]] - [// - ["." common] - ["." primitive] - ["." structure] - ["." reference] - ["." case] - ["." loop] - ["." function]]) - -(def: #export (translate synthesis) - Phase - (case synthesis - (^ (synthesis.bit value)) - (primitive.bit value) - - (^ (synthesis.i64 value)) - (primitive.i64 value) - - (^ (synthesis.f64 value)) - (primitive.f64 value) - - (^ (synthesis.text value)) - (primitive.text value) - - (^ (synthesis.variant [lefts right? value])) - (structure.variant translate lefts right? value) - - (^ (synthesis.tuple members)) - (structure.tuple translate members) - - (^ (synthesis.variable variable)) - (reference.variable variable) - - (^ (synthesis.constant constant)) - (reference.constant constant) - - (^ (synthesis.branch/let [input register expr])) - (case.let translate input register expr) - - (^ (synthesis.branch/if [test then else])) - (case.if translate test then else) - - (^ (synthesis.branch/case [input path])) - (case.case translate input path) - - (^ (synthesis.loop/recur data)) - (loop.recur translate data) - - (^ (synthesis.loop/scope data)) - (loop.scope translate data) - - (^ (synthesis.function/apply apply)) - (function.call translate apply) - - (^ (synthesis.function/abstraction abstraction)) - (function.function translate abstraction) - - (#synthesis.Extension extension) - (extension.apply translate extension))) -- cgit v1.2.3