[crypticl-cvs] CVS update: obol/src/lobo.lisp

[Taale Skogan]

Update of /project/crypticl/cvsroot/obol/src
In directory common-lisp.net:/tmp/cvs-serv27905

Modified Files:
	lobo.lisp 
Log Message:
Added :help command to Obol repl. Needs more work though.

Date: Sun Oct  2 16:17:55 2005
Author: tskogan

Index: obol/src/lobo.lisp
diff -u obol/src/lobo.lisp:1.1.1.1 obol/src/lobo.lisp:1.2
--- obol/src/lobo.lisp:1.1.1.1	Tue Nov 23 22:43:39 2004
+++ obol/src/lobo.lisp	Sun Oct  2 16:17:55 2005
@@ -818,7 +818,7 @@
 ;;;  (rpc:start-rpc-server)
   ;;(lib-chat:start-lib-chat-telnet-server 3050)
 ;;;  (chat:start-chat-telnet-server 3050)
-  (start-telnet 23))
+  (start-telnet 9023))
  
 (defun init-obol-proc (f)
   "Define binding between obol primitive and interpreter handler"
@@ -1923,9 +1923,19 @@
   (case keyword
     (:reinit (init))
     (:exit :exit)
+    (:help (obol-help))
     (:in (call-inspect script-env))
     (:pe (print-env script-env local-env))
     (:sv (set-verbosity))))
+
+
+(defun obol-help ()
+  "Obol repl help menu
+:exit - exit the current obol REPL (the script continues to exist in the 
+runtime).
+:help - this help menu.
+:reinit - re-initialize the lobo runtime where this script is running.
+:in - inspect an object.")
 
 
 (defun call-inspect (script-env)