From f27f97536f6e584c284b898ad4abd732c424684e Mon Sep 17 00:00:00 2001
From: Shawn Hoover <shawn@bighugh.com>
Date: Wed, 24 Mar 2010 11:43:34 -0400
Subject: [PATCH] Start swank if the environment variable is set. Added a swank
 script for Windows.

---
 script/repl.bat  | 6 +++++-
 script/run.clj   | 9 ++++++++-
 script/swank.bat | 4 ++++
 3 files changed, 17 insertions(+), 2 deletions(-)
 create mode 100644 script/swank.bat

diff --git a/script/repl.bat b/script/repl.bat
index f9b1354..511be4c 100644
--- a/script/repl.bat
+++ b/script/repl.bat
@@ -7,4 +7,8 @@ for /R ./lib %%a in (*.jar) do (
 set CLASSPATH=!CLASSPATH!"
 set CLASSPATH=%CLASSPATH%;src;test;config;data
 echo CLASSPATH=%CLASSPATH%
-java -Xmx1G -cp %CLASSPATH% jline.ConsoleRunner clojure.main -i script/run.clj -r
+
+@rem jline breaks inferior-lisp.
+if not defined LABREPL_SWANK set JLINE=jline.ConsoleRunner
+
+java -Xmx1G -cp %CLASSPATH% %JLINE% clojure.main -i script/run.clj -r
diff --git a/script/run.clj b/script/run.clj
index 1f654a4..7959fa9 100644
--- a/script/run.clj
+++ b/script/run.clj
@@ -1,3 +1,10 @@
+(when-let [run-swank (System/getenv "LABREPL_SWANK")]
+  (println "Starting swank...")
+  ;; Drop the enclosing double quotes from the environment variable and eval it.
+  (load-string (if (re-find #"^\".*\"$" run-swank)
+                 (->> run-swank (drop 1) (butlast) (apply str))
+                 run-swank)))
+
 (require 'labrepl)
 (set! *print-length* 100)
-(labrepl/-main)
\ No newline at end of file
+(labrepl/-main)
diff --git a/script/swank.bat b/script/swank.bat
new file mode 100644
index 0000000..d128be0
--- /dev/null
+++ b/script/swank.bat
@@ -0,0 +1,4 @@
+@echo off
+setlocal
+set LABREPL_SWANK="(require 'swank.swank) (swank.swank/start-repl 4005)"
+call %~dp0repl.bat