blob: 17315f39cd64c29747edf668ad6f47ccaf435489 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
;; Copyright (c) Eduardo Julian. All rights reserved.
;; This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
;; If a copy of the MPL was not distributed with this file,
;; You can obtain one at http://mozilla.org/MPL/2.0/.
(ns leiningen.lux.utils
(:require [leiningen.core.classpath :as classpath])
(:import (java.io File
InputStreamReader
BufferedReader)))
(def ^:const ^String output-dir (str "target" java.io.File/separator "jvm"))
(def ^:const ^String output-package "program.jar")
(def ^:private unit-separator (str (char 31)))
(def ^:private vm-options
""
;; "-server -Xms2048m -Xmx2048m -XX:+OptimizeStringConcat"
)
(defn ^:private prepare-path [path]
(let [path (if (and (.startsWith path "/")
(= "\\" java.io.File/separator))
(.substring path 1)
path)
path (.replace path "/" java.io.File/separator)]
path))
(defn compile-path [project module source-paths]
(let [output-dir (get-in project [:lux :target] output-dir)
jar-paths (->> ^java.net.URLClassLoader (ClassLoader/getSystemClassLoader)
(.getURLs)
(map #(.getFile ^java.net.URL %))
(filter #(.endsWith ^String % ".jar")))
compiler-path (prepare-path (some (fn [^:private path]
(if (.contains path "com/github/luxlang/luxc-jvm")
path
nil))
jar-paths))
stdlib-path (prepare-path (some (fn [^:private path]
(if (.contains path "com/github/luxlang/stdlib")
path
nil))
jar-paths))
deps-paths (map prepare-path
(filter (fn [^:private path]
(or (.contains path "org/ow2/asm/asm-all")
(.contains path "org/clojure/core.match")
(.contains path "org/clojure/clojure")))
jar-paths))
sdk-path (get-in project [:lux :android :sdk])
android-path (str sdk-path java.io.File/separator "platforms" java.io.File/separator "android-" (get-in project [:lux :android :version]) java.io.File/separator "android.jar")
deps-paths (if (.exists (new File android-path))
(cons android-path deps-paths)
deps-paths)]
(let [class-path (->> (classpath/get-classpath project)
(filter #(.endsWith % ".jar"))
(concat deps-paths)
(list* stdlib-path)
(interpose java.io.File/pathSeparator)
(reduce str ""))
class-path (.replace class-path "/" java.io.File/separator)
java-cmd (get project :java-cmd "java")
jvm-opts (->> (get project :jvm-opts) (interpose " ") (reduce str ""))]
(str java-cmd " " jvm-opts " " vm-options " -cp " (str compiler-path java.io.File/pathSeparator class-path)
" lux release " module
" " (->> (get project :resource-paths (list)) (interpose unit-separator) (apply str))
" " (->> source-paths (interpose unit-separator) (apply str))
" " output-dir))))
(defn repl-path [project source-paths]
(let [output-dir (get-in project [:lux :target] output-dir)
jar-paths (->> ^java.net.URLClassLoader (ClassLoader/getSystemClassLoader)
(.getURLs)
(map #(.getFile ^java.net.URL %))
(filter #(.endsWith ^String % ".jar")))
compiler-path (prepare-path (some (fn [^:private path]
(if (.contains path "com/github/luxlang/luxc-jvm")
path
nil))
jar-paths))
stdlib-path (prepare-path (some (fn [^:private path]
(if (.contains path "com/github/luxlang/stdlib")
path
nil))
jar-paths))
deps-paths (map prepare-path
(filter (fn [^:private path]
(or (.contains path "org/ow2/asm/asm-all")
(.contains path "org/clojure/core.match")
(.contains path "org/clojure/clojure")))
jar-paths))]
(let [class-path (->> (classpath/get-classpath project)
(filter #(.endsWith % ".jar"))
(concat deps-paths)
(list* stdlib-path)
(interpose java.io.File/pathSeparator)
(reduce str ""))
java-cmd (get project :java-cmd "java")
jvm-opts (->> (get project :jvm-opts) (interpose " ") (reduce str ""))]
(str java-cmd " " jvm-opts " " vm-options " -cp " (str compiler-path java.io.File/pathSeparator class-path)
" lux repl "
(->> (get project :resource-paths (list)) (interpose unit-separator) (apply str))
" " (->> source-paths (interpose unit-separator) (apply str))
" " output-dir))))
(defn run-process [command working-directory pre post]
(let [process (.exec (Runtime/getRuntime) command nil working-directory)]
(with-open [std-out (->> process .getInputStream (new InputStreamReader) (new BufferedReader))
std-err (->> process .getErrorStream (new InputStreamReader) (new BufferedReader))]
(println pre)
(loop [line (.readLine std-out)]
(when line
(println line)
(recur (.readLine std-out))))
(let [first-error-line (.readLine std-err)]
(do (loop [line first-error-line]
(when line
(println line)
(recur (.readLine std-err))))
(println post)
(nil? first-error-line))))))
|
