From ef97cf16e47cc88dcac58ec487b6a74ed673e19c Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Thu, 26 May 2022 18:59:28 -0400 Subject: [PATCH] Baby repl stub --- src/ludus/core.clj | 7 +++---- src/ludus/repl.clj | 11 +++++++++++ 2 files changed, 14 insertions(+), 4 deletions(-) create mode 100644 src/ludus/repl.clj diff --git a/src/ludus/core.clj b/src/ludus/core.clj index f74dc43..8384a0c 100644 --- a/src/ludus/core.clj +++ b/src/ludus/core.clj @@ -6,7 +6,8 @@ [ludus.interpreter :as interpreter] [ludus.show :as show] [clojure.pprint :as pp] - [ludus.loader :as loader]) + [ludus.loader :as loader] + [ludus.repl :as repl]) (:gen-class)) (defn- run [file source] @@ -33,6 +34,4 @@ source (loader/load-import file)] (run file source)) - :else (do - (println "Usage: ludus [script]") - (System/exit 64)))) \ No newline at end of file + :else (repl/launch))) \ No newline at end of file diff --git a/src/ludus/repl.clj b/src/ludus/repl.clj new file mode 100644 index 0000000..40203c9 --- /dev/null +++ b/src/ludus/repl.clj @@ -0,0 +1,11 @@ +(ns ludus.repl + (:require + [ludus.scanner :as scanner] + [ludus.parser :as parser] + [ludus.interpreter :as interpreter] + [ludus.show :as show])) + +(defn launch [] + (println "Welcome to Ludus (v. 0.1.0-alpha)") + (println "ludus=>") + (System/exit 0)) \ No newline at end of file