(ns runner.main
  (:require [wisp.compiler :refer [compile]]))

(def _wisp_runtime (require "../runtime.js"))
(def _wisp_sequence (require "../sequence.js"))
(def _wisp_string (require "../string.js"))

(defn fetch-source [src callback]
  (let [xhr (new XMLHttpRequest)]
    ;(.addEventListener xhr "timeout" (fn [ev] (console.log "Timeout loading" src)) false)
    (.open xhr "GET" src true)
    (.addEventListener xhr "load"
                       (fn [ev]
                         (if (and (>= xhr.status 200) (< xhr.status 300))
                           (callback xhr.responseText)
                           (console.error xhr.statusText))) false)
    ;(set! (.-timeout xhr) 30)
    (if xhr.overrideMimeType
      (xhr.overrideMimeType "text/plain"))
    (xhr.setRequestHeader "If-Modified-Since" "Fri, 01 Jan 1960 00:00:00 GMT")
    (.send xhr null)))

(defn run-wisp-code [code url]
  (let [result (compile code {:source-uri (or url "inline")})
        error (:error result)]
    (if error
      (console.error error)
      ((Function (eval (:code result)))))))

(defn fetch-and-run-wisp-code [url]
  (fetch-source url
                (fn [code]
                  (run-wisp-code code url))))

(defn __main__ [ev]
  ; hoist wisp builtins into the global window context
  (.forEach [_wisp_string _wisp_sequence _wisp_runtime]
            (fn [f]
              (.forEach (.keys Object f)
                        #(set! (get window %) (get f %)))))
  ;(console.log "running __main__")
  ; find all the script tags on the page
  (let [scripts (document.getElementsByTagName "script")]
    (loop [x 0]
      ; loop through every script tag
      (if (< x scripts.length)
        (let [script (get scripts x)
              source (.-src script)
              content (.-text script)
              content-type (.-type script)]
          ;(console.log "src:" (.-src script))
          ;(console.log "type:" (.-type script))
          ;(console.log "content:" (.-text script))
          ; if the script tag has application/wisp as the type then run it
          (if (== content-type "application/wisp")
            (do
              (if source
                (fetch-and-run-wisp-code source))
              (if content
                (run-wisp-code content source))))
          (recur (+ x 1)))))))

(.addEventListener window "load" __main__ false)