(ns lang
  (:require (lang [lexer :as &lexer]
                  [parser :as &parser]
                  [compiler :as &compiler])
            :reload))

(defn write-file [file data]
  (with-open [stream (java.io.BufferedOutputStream. (java.io.FileOutputStream. file))]
    (.write stream data)))

(def ^:private +state+
  {:globals {}
   :stack {}
   :forms '()})

(comment
  (let [source-code (slurp "test2.lang")
        tokens (&lexer/lex source-code)
        _ (prn 'tokens tokens)
        syntax (&parser/parse tokens)
        _ (prn 'syntax syntax)
        class-data (&compiler/compile (update-in +state+ [:forms] concat syntax))]
    (write-file "output.class" class-data))

  
  )