From e82cf7c7109a93eff1be8738ef54958906c91f3a Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <mike@mikegerwitz.com>
Date: Sun, 2 Oct 2011 15:15:32 -0400
Subject: [PATCH] Added readline support through rlwrap

---
 util/scene-runner | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/util/scene-runner b/util/scene-runner
index 5d8ce4f..f199eb1 100755
--- a/util/scene-runner
+++ b/util/scene-runner
@@ -4,13 +4,20 @@ mypath="$( dirname $0 )"
 cmd="$mypath/showscene"
 getnext="$mypath/getval _scene"
 
+. "$mypath/common"
+
 scene="$( $getnext )"
 if [ ! "$scene" ]; then
     scene='start'
 fi
 
 while [ "$scene" ]; do
-    $cmd $scene
+    # if rlwrap is found on the system, use it to provide readline capabilities
+    # (which will hopefully prevent ragequits to due re-typing long, mistyped
+    # commands)
+    which rlwrap >/dev/null && {
+        rlwrap -H "$GSGP_PROFILE_PATH/.history" $cmd $scene
+    } || $cmd $scene
 
     # if the scene stated that we should end, then we should probably end
     if [ $? -eq 100 ]; then