(ns closh.test-util.spawn-helper
  (:require [clojure.string]
            [closh.zero.parser]
            [closh.zero.compiler]
            [closh.zero.builtin]
            [closh.zero.env]
            #?(:clj [closh.zero.reader :as reader])
            #?(:clj [closh.zero.platform.eval :as eval])
            #?(:cljs [closh.zero.platform.eval :refer [execute-command-text]])
            #?(:cljs [closh.zero.core])
            [closh.zero.platform.process :as process]))

(defn -main [cmd]
  #?(:cljs (closh.zero.platform.eval/execute-text
            (str (pr-str closh.zero.env/*closh-environment-requires*)))
     :clj (eval/eval-closh-requires))
  (let [result #?(:cljs (execute-command-text cmd)
                  :clj (eval/eval (reader/read-sh (reader/string-reader cmd))))]
    (cond
      (process/process? result)
      (process/exit (process/exit-code result))

      (and (seq? result)
           (every? #(process/process? %) result))
      (process/exit (process/exit-code (last result)))

      :else
      (print (str result)))))