(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))))