Skip to content

Commit

Permalink
debug
Browse files Browse the repository at this point in the history
  • Loading branch information
borkdude committed Dec 27, 2024
1 parent f5a4aca commit 6b794b6
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 0 deletions.
5 changes: 5 additions & 0 deletions src/main/clojure/clojure/tools/build/tasks/compile_clj.clj
Original file line number Diff line number Diff line change
Expand Up @@ -102,6 +102,8 @@
working-compile-dir (file/ensure-dir (jio/file working-dir "compile-clj"))
compile-script (jio/file working-dir "compile.clj")
_ (write-compile-script! compile-script working-compile-dir nses compile-opts bindings)
_ (println "compile script:\n\n")
_ (println (slurp compile-script))

;; java-command will run in context of *project-dir* - basis, classpaths, etc
;; should all be relative to that (or absolute like working-compile-dir)
Expand All @@ -111,6 +113,9 @@
:basis basis
:main 'clojure.main
:main-args [(.getCanonicalPath compile-script)]}))
_ (println "process args:")
_ (println process-args)
_ (prn process-args)
_ (spit (jio/file working-dir "compile.args") (str/join " " (:command-args process-args)))
exit (:exit (process/process process-args))]
(if (zero? exit)
Expand Down
3 changes: 3 additions & 0 deletions src/main/clojure/clojure/tools/build/tasks/process.clj
Original file line number Diff line number Diff line change
Expand Up @@ -46,6 +46,9 @@
:ignore - ignore the stream"
[{:keys [command-args dir env out err out-file err-file]
:or {dir ".", out :inherit, err :inherit} :as opts}]
(println "command args")
(println command-args)
(prn command-args)
(when (not (seq command-args))
(throw (ex-info "process missing required arg :command-args" opts)))
(let [pb (ProcessBuilder. ^List command-args)]
Expand Down

0 comments on commit 6b794b6

Please sign in to comment.