From c15092022b484eaf52a34bd3ac1bec2ecf15efd9 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 20 Feb 2017 18:51:39 -0400 Subject: - Some minor refactoring. --- luxc/src/lux/compiler/js/base.clj | 6 ++++++ luxc/src/lux/compiler/js/lux.clj | 14 ++++---------- luxc/src/lux/compiler/jvm/cache.clj | 2 -- 3 files changed, 10 insertions(+), 12 deletions(-) (limited to 'luxc/src') diff --git a/luxc/src/lux/compiler/js/base.clj b/luxc/src/lux/compiler/js/base.clj index 044a4f099..fcf8a248c 100644 --- a/luxc/src/lux/compiler/js/base.clj +++ b/luxc/src/lux/compiler/js/base.clj @@ -195,3 +195,9 @@ (do (.mkdirs (File. module-dir)) (&&/write-file (str module-dir java.io.File/separator (&host/def-name name) ".js") (.getBytes script)))))]] (return nil))) + +(defn js-module [module] + (string/replace module "/" "$")) + +(defn js-var-name [module name] + (str (js-module module) "$" (&host/def-name name))) diff --git a/luxc/src/lux/compiler/js/lux.clj b/luxc/src/lux/compiler/js/lux.clj index 39f943dda..0f86d8a33 100644 --- a/luxc/src/lux/compiler/js/lux.clj +++ b/luxc/src/lux/compiler/js/lux.clj @@ -19,12 +19,6 @@ )) ;; [Utils] -(defn ^:private js-module [module] - (string/replace module "/" "$")) - -(defn ^:private js-var-name [module name] - (str (js-module module) "$" (&host/def-name name))) - (defn ^:private captured-name [register] (str "$" register)) @@ -84,7 +78,7 @@ (return (captured-name ?captured-id))) (defn compile-global [module name] - (return (js-var-name module name))) + (return (&&/js-var-name module name))) (defn compile-apply [compile ?fn ?args] (|do [=fn (compile ?fn) @@ -276,7 +270,7 @@ (defn compile-function [compile arity ?scope ?env ?body] (|do [:let [??scope (&/|reverse ?scope) - function-name (str (js-module (&/|head ??scope)) + function-name (str (&&/js-module (&/|head ??scope)) "$" (&host/location (&/|tail ??scope))) func-args (->> (&/|range* 0 (dec arity)) (&/|map (fn [register] (str "var " (register-name (inc register)) " = arguments[" register "];"))) @@ -325,7 +319,7 @@ (|case (&a-meta/meta-get &a-meta/alias-tag def-meta) (&/$Some (&/$IdentA [r-module r-name])) (if (= 1 (&/|length def-meta)) - (|do [def-value (&&/run-js! (js-var-name r-module r-name)) + (|do [def-value (&&/run-js! (&&/js-var-name r-module r-name)) def-type (&a-module/def-type r-module r-name) _ (&/without-repl-closure (&a-module/define module-name ?name def-type def-meta def-value))] @@ -336,7 +330,7 @@ (&/fail-with-loc "[Compilation Error] Invalid syntax for lux;alias meta-data. Must be an Ident.") _ - (|do [:let [var-name (js-var-name module-name ?name)] + (|do [:let [var-name (&&/js-var-name module-name ?name)] =body (compile ?body) :let [def-js (str "var " var-name " = " =body ";") is-type? (|case (&a-meta/meta-get &a-meta/type?-tag def-meta) diff --git a/luxc/src/lux/compiler/jvm/cache.clj b/luxc/src/lux/compiler/jvm/cache.clj index c6549a718..a42c7afdd 100644 --- a/luxc/src/lux/compiler/jvm/cache.clj +++ b/luxc/src/lux/compiler/jvm/cache.clj @@ -31,8 +31,6 @@ "(-> Text Class Object)" (-> class ^Field (.getField field-name) (.get nil))) -(def ^:private module-class-file (str &/module-class-name ".class")) - ;; [Resources] (defn load-def-value [module name] (|do [loader &/loader -- cgit v1.2.3