Add -d option to janet-netrepl.

1 files changed, 9 insertions, 1 deletions

diff --git a/bin/janet-netrepl b/bin/janet-netrepl
index dc8af48..aa21e8e 100644
--- a/bin/janet-netrepl
+++ b/bin/janet-netrepl
@@ -41,6 +41,11 @@
      :kind :accumulate
      :help "Load libraries in the repl as with the janet -l flag"}
 
+    "dofile"
+    {:short "d"
+     :kind :option
+     :help "Pass in a file to evaluate with dofile for each new environment table"}
+
     "single-env"
     {:short "s"
      :kind :flag
@@ -50,6 +55,7 @@
   (unless ap (break))
   (def host (ap "host"))
   (def port (ap "port"))
+  (def dof (ap "dofile"))
   (def files (get ap :default []))
   (def libraries (get ap "library" []))
   (defn env-make
@@ -57,7 +63,9 @@
     (let [e (make-env)]
       (each l libraries (merge-module e (require l)))
       (each f files (merge-module e (dofile f)))
-      (put e :pretty-format "%.20Q")))
+      (put e :pretty-format "%.20Q")
+      (when dof (dofile dof :env e))
+      e))
   (if (ap "client")
     (netrepl/client host port (ap "client-name"))
     (if (ap "single-env")