(ns pixie.repl
  (:require [pixie.stacklets :as st]
            [pixie.io :as io]
            [pixie.ffi-infer :as f]))

(f/with-config {:library "edit"
                :includes ["editline/readline.h"]}
  (f/defcfn readline))


(defn repl []
  (let [rdr (reader-fn (fn []
                         (let [prompt (if (= 0 pixie.stdlib/*reading-form*)
                                        (str (name pixie.stdlib/*ns*) " => ")
                                        "")
                               line (st/apply-blocking readline prompt)]
                           (if line
                             (str line "\n")
                             ""))))]
    (loop []
      (try (let [form (read rdr false)]
             (if (= form eof)
               (exit 0)
               (let [x (eval form)]
                 (pixie.stdlib/-push-history x)
                 (prn x))))
           (catch ex
             (pixie.stdlib/-set-*e ex)
             (println "ERROR: \n" ex)))
      (recur))))