projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automated commit for debian release 1.99-1
[kmrcl.git]
/
repl.lisp
diff --git
a/repl.lisp
b/repl.lisp
index 2675426cf0322f1ab0e07ae167083d87209ad3d7..6848b47497f12f0af5d2cdf44a176b3e11272989 100644
(file)
--- a/
repl.lisp
+++ b/
repl.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id
: repl.lisp,v 1.1 2003/07/11 06:58:32 kevin Exp
$
+;;;; $Id$
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-22,13
+22,13
@@
(defclass repl ()
((listener :initarg :listener :accessor listener
(defclass repl ()
((listener :initarg :listener :accessor listener
- :initform nil)))
+
:initform nil)))
(defun make-repl (&key (port +default-repl-server-port+)
(defun make-repl (&key (port +default-repl-server-port+)
- announce user-checker remote-host-checker)
- (make-instance 'listener
+
announce user-checker remote-host-checker)
+ (make-instance 'listener
:port port
:port port
- :base-name "repl"
+ :base-name "repl"
:function 'repl-worker
:function-args (list user-checker announce)
:format :text
:function 'repl-worker
:function-args (list user-checker announce)
:format :text
@@
-53,9
+53,9
@@
(finish-output conn)
(setq password (read-socket-line conn))
(unless (funcall user-checker login password)
(finish-output conn)
(setq password (read-socket-line conn))
(unless (funcall user-checker login password)
- (format conn "Invalid login~%")
- (finish-output conn)
- (return-from repl-worker))))
+
(format conn "Invalid login~%")
+
(finish-output conn)
+
(return-from repl-worker))))
#+allegro
(tpl::start-interactive-top-level
conn
#+allegro
(tpl::start-interactive-top-level
conn
@@
-67,7
+67,7
@@
(defun read-socket-line (stream)
(string-right-trim-one-char #\return
(defun read-socket-line (stream)
(string-right-trim-one-char #\return
- (read-line stream nil nil)))
+
(read-line stream nil nil)))
(defun print-prompt (stream)
(format stream "~&~A> " (package-name *package*))
(defun print-prompt (stream)
(format stream "~&~A> " (package-name *package*))
@@
-75,15
+75,15
@@
(defun repl-on-stream (stream)
(let ((*standard-input* stream)
(defun repl-on-stream (stream)
(let ((*standard-input* stream)
- (*standard-output* stream)
- (*terminal-io* stream)
- (*debug-io* stream))
+
(*standard-output* stream)
+
(*terminal-io* stream)
+
(*debug-io* stream))
#|
#+sbcl
(if (and (find-package 'sb-aclrepl)
#|
#+sbcl
(if (and (find-package 'sb-aclrepl)
- (fboundp (intern "REPL-FUN" "SB-ACLREPL")))
- (sb-aclrepl::repl-fun)
- (%repl))
+
(fboundp (intern "REPL-FUN" "SB-ACLREPL")))
+
(sb-aclrepl::repl-fun)
+
(%repl))
#-sbcl
|#
(%repl)))
#-sbcl
|#
(%repl)))
@@
-93,4
+93,4
@@
(print-prompt *standard-output*)
(let ((form (read *standard-input*)))
(format *standard-output* "~&~S~%" (eval form)))))
(print-prompt *standard-output*)
(let ((form (read *standard-input*)))
(format *standard-output* "~&~S~%" (eval form)))))
-
+