aboutsummaryrefslogtreecommitdiff
path: root/luxc/src
diff options
context:
space:
mode:
authorEduardo Julian2017-02-20 18:51:39 -0400
committerEduardo Julian2017-02-20 18:51:39 -0400
commitc15092022b484eaf52a34bd3ac1bec2ecf15efd9 (patch)
tree53353a7214b596a3df517e1dfb469b0beb47be89 /luxc/src
parent58f274ae34835d27cd17add767f6fbef13aef7c5 (diff)
- Some minor refactoring.
Diffstat (limited to 'luxc/src')
-rw-r--r--luxc/src/lux/compiler/js/base.clj6
-rw-r--r--luxc/src/lux/compiler/js/lux.clj14
-rw-r--r--luxc/src/lux/compiler/jvm/cache.clj2
3 files changed, 10 insertions, 12 deletions
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