From nsiivola at common-lisp.net Sun Mar 18 01:26:02 2007 From: nsiivola at common-lisp.net (nsiivola) Date: Sat, 17 Mar 2007 20:26:02 -0500 (EST) Subject: [Linedit-cvs] CVS src Message-ID: <20070318012602.0F64F6D030@common-lisp.net> Update of /project/linedit/cvsroot/src In directory clnet:/tmp/cvs-serv32660 Modified Files: terminal.lisp version.lisp-expr Log Message: Patch by Lui Fungsin for divide-by-zero errors. --- /project/linedit/cvsroot/src/terminal.lisp 2004/03/05 18:21:36 1.7 +++ /project/linedit/cvsroot/src/terminal.lisp 2007/03/18 01:26:01 1.8 @@ -30,7 +30,10 @@ :returning :int) (defmethod backend-columns ((backend terminal)) - (c-terminal-columns *default-columns*)) + (let ((cols (c-terminal-columns *default-columns*))) + (if (> cols 0) + cols + *default-columns*))) (uffi:def-function ("linedit_terminal_lines" c-terminal-lines) ((default :int)) --- /project/linedit/cvsroot/src/version.lisp-expr 2004/04/25 12:25:47 1.15 +++ /project/linedit/cvsroot/src/version.lisp-expr 2007/03/18 01:26:01 1.16 @@ -1 +1 @@ -0.15.12 +0.15.13 From nsiivola at common-lisp.net Sun Mar 18 01:40:36 2007 From: nsiivola at common-lisp.net (nsiivola) Date: Sat, 17 Mar 2007 20:40:36 -0500 (EST) Subject: [Linedit-cvs] CVS src Message-ID: <20070318014036.1EBDE7633A@common-lisp.net> Update of /project/linedit/cvsroot/src In directory clnet:/tmp/cvs-serv2297 Modified Files: editor.lisp linedit.asd terminal.lisp version.lisp-expr Log Message: Lispworks patch #1 by Lui Fungsin --- /project/linedit/cvsroot/src/editor.lisp 2004/04/25 15:03:26 1.17 +++ /project/linedit/cvsroot/src/editor.lisp 2007/03/18 01:40:35 1.18 @@ -127,14 +127,16 @@ (uffi:def-function ("linedit_interrupt" c-interrupt) () - :returning :void) + :returning :void + :module "signals") (defun editor-interrupt (editor) (without-backend editor (c-interrupt))) (uffi:def-function ("linedit_stop" c-stop) () - :returning :void) + :returning :void + :module "signals") (defun editor-stop (editor) (without-backend editor (c-stop))) --- /project/linedit/cvsroot/src/linedit.asd 2004/04/25 12:25:47 1.31 +++ /project/linedit/cvsroot/src/linedit.asd 2007/03/18 01:40:35 1.32 @@ -43,7 +43,7 @@ (defmethod perform ((o load-op) (c uffi-c-source-file)) (let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi))) (dolist (f (asdf::input-files o c)) - (funcall loader f)))) + (funcall loader f :module (pathname-name f))))) (defmethod perform ((o compile-op) (c uffi-c-source-file)) (unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A" --- /project/linedit/cvsroot/src/terminal.lisp 2007/03/18 01:26:01 1.8 +++ /project/linedit/cvsroot/src/terminal.lisp 2007/03/18 01:40:35 1.9 @@ -27,7 +27,8 @@ (uffi:def-function ("linedit_terminal_columns" c-terminal-columns) ((default :int)) - :returning :int) + :returning :int + :module "terminal_glue") (defmethod backend-columns ((backend terminal)) (let ((cols (c-terminal-columns *default-columns*))) @@ -37,14 +38,16 @@ (uffi:def-function ("linedit_terminal_lines" c-terminal-lines) ((default :int)) - :returning :int) + :returning :int + :module "terminal_glue") (defmethod backend-lines ((backend terminal)) (c-terminal-lines *default-lines*)) (uffi:def-function ("linedit_terminal_init" c-terminal-init) () - :returning :int) + :returning :int + :module "terminal_glue") (defmethod backend-init ((backend terminal)) (invariant (not (backend-ready-p backend))) @@ -53,7 +56,8 @@ (uffi:def-function ("linedit_terminal_close" c-terminal-close) () - :returning :int) + :returning :int + :module "terminal_glue") (defmethod backend-close ((backend terminal)) (invariant (backend-ready-p backend)) --- /project/linedit/cvsroot/src/version.lisp-expr 2007/03/18 01:26:01 1.16 +++ /project/linedit/cvsroot/src/version.lisp-expr 2007/03/18 01:40:35 1.17 @@ -1 +1 @@ -0.15.13 +0.15.14 From nsiivola at common-lisp.net Sun Mar 18 01:47:37 2007 From: nsiivola at common-lisp.net (nsiivola) Date: Sat, 17 Mar 2007 20:47:37 -0500 (EST) Subject: [Linedit-cvs] CVS src Message-ID: <20070318014737.174881A0B5@common-lisp.net> Update of /project/linedit/cvsroot/src In directory clnet:/tmp/cvs-serv2571 Modified Files: smart-terminal.lisp terminfo.lisp version.lisp-expr Log Message: Lispworks patch #2 by Lui Fungsin --- /project/linedit/cvsroot/src/smart-terminal.lisp 2004/03/05 18:21:36 1.17 +++ /project/linedit/cvsroot/src/smart-terminal.lisp 2007/03/18 01:47:36 1.18 @@ -73,7 +73,11 @@ (ti:tputs ti:column-address col)) (defmethod display ((backend smart-terminal) &key prompt line point markup) - (let* ((*terminal-io* *standard-output*) + (let* (;; SBCL and CMUCL traditionally point *terminal-io* to /dev/tty, + ;; and we do output on it assuming it goes to STDOUT. Binding + ;; *terminal-io* is unportable, so do it only when needed. + #+(or sbcl cmu) + (*terminal-io* *standard-output*) (columns (backend-columns backend)) (old-markup (old-markup backend)) (old-point (old-point backend)) --- /project/linedit/cvsroot/src/terminfo.lisp 2004/03/01 13:27:42 1.8 +++ /project/linedit/cvsroot/src/terminfo.lisp 2007/03/18 01:47:36 1.9 @@ -22,7 +22,7 @@ ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH ;;; DAMAGE. -#+CMU (ext:file-comment "$Header: /project/linedit/cvsroot/src/terminfo.lisp,v 1.8 2004/03/01 13:27:42 nsiivola Exp $") +#+CMU (ext:file-comment "$Header: /project/linedit/cvsroot/src/terminfo.lisp,v 1.9 2007/03/18 01:47:36 nsiivola Exp $") (in-package "COMMON-LISP-USER") @@ -979,6 +979,8 @@ (sys:getenv "TERM") #+SBCL (sb-ext:posix-getenv "TERM") + #+Lispworks + (lispworks:environment-variable "TERM") #| if all else fails |# "dumb")))) --- /project/linedit/cvsroot/src/version.lisp-expr 2007/03/18 01:40:35 1.17 +++ /project/linedit/cvsroot/src/version.lisp-expr 2007/03/18 01:47:36 1.18 @@ -1 +1 @@ -0.15.14 +0.15.15