From nsiivola at common-lisp.net Mon Sep 1 15:52:58 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 11:52:58 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 11:52 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv10998 Modified Files: commands.lisp functions.lisp packages.lisp termios-glue.c termios.lisp Added Files: sbclrc.lisp Log Message: * Added TTY-P to detect if we have a usable TTY. * C-D now signals END-OF-FILE when pressed on empty line. * Improved the SBCL-repl replacement to take effect only if we have a TTY, and to quit on END-OF-FILE. From nsiivola at common-lisp.net Mon Sep 1 15:53:48 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 11:53:48 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 11:53 Author: nsiivola Update of /project/linedit/cvsroot/doc In directory common-lisp.net:/tmp/cvs-serv11988 Modified Files: README Log Message: * TTY-P * Moved userinit code to src/sbclrc.lisp. From nsiivola at common-lisp.net Mon Sep 1 15:54:38 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 11:54:38 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 11:54 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv12692 Modified Files: Makefile Log Message: Version 0.8.1 From nsiivola at common-lisp.net Mon Sep 1 18:10:50 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 14:10:50 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 14:10 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv19404 Modified Files: Makefile commands.lisp kill.lisp linedit.asd Log Message: * Merge'd paths from Andreas Fuchs implementing kill-line-to-bol and fixing garbled inpu-line when yank-cycling * Drop -fpic from termios-glue compilation and make certain we have gcc, since I don't think -shared is quite standard. * Version 0.8.2 (High Frequency Releases 'r us) From nsiivola at common-lisp.net Mon Sep 1 21:06:47 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 17:06:47 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 17:06 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv23311 Modified Files: Makefile commands.lisp functions.lisp kill.lisp linedit.asd packages.lisp termios-glue.c termios.lisp Log Message: * Add C-Z stop-lisp (thanks to Andreas Fuchs for prototype). * Version 0.8.3 From nsiivola at common-lisp.net Mon Sep 1 21:07:21 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 17:07:21 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 17:07 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv24780 Modified Files: linedit.asd Log Message: * Oops. From nsiivola at common-lisp.net Mon Sep 1 21:09:01 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 17:09:01 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 17:09 Author: nsiivola Update of /project/linedit/cvsroot/doc In directory common-lisp.net:/tmp/cvs-serv25563 Modified Files: README Log Message: * Added C-Z (stop-lisp) From nsiivola at common-lisp.net Mon Sep 1 22:59:54 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 18:59:54 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 18:59 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv5781 Modified Files: linedit.asd linedit.lisp packages.lisp Removed Files: sbclrc.lisp Log Message: * Rebind readtable in FORMEDIT to avoid multiple evaluation of #.forms. * Move SBCL repl stuff to repl.lisp and INSTALL-REPL function. From nsiivola at common-lisp.net Mon Sep 1 23:00:21 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 19:00:21 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 19:00 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv10350 Added Files: repl.lisp Log Message: From nsiivola at common-lisp.net Tue Sep 2 00:06:34 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 01 Sep 2003 20:06:34 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Monday September 1, 2003 @ 20:06 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv21009 Modified Files: functions.lisp Log Message: Allow escape from multipage displays with Q and Q. From nsiivola at common-lisp.net Thu Sep 4 20:33:02 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Thu, 04 Sep 2003 16:33:02 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Thursday September 4, 2003 @ 16:33 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv28804 Modified Files: Makefile functions.lisp Log Message: * Version 0.8.4 * Handle both internal and externals symbols in completion. From nsiivola at common-lisp.net Thu Sep 4 20:47:35 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Thu, 04 Sep 2003 16:47:35 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Thursday September 4, 2003 @ 16:47 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv7528 Modified Files: chords.lisp commands.lisp termios.lisp Log Message: * Fixed read-chord to handle C-Delete &co. From nsiivola at common-lisp.net Thu Sep 4 21:01:37 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Thu, 04 Sep 2003 17:01:37 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Thursday September 4, 2003 @ 17:01 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv17786 Modified Files: functions.lisp Log Message: * Robuster package handling in completion. From nsiivola at common-lisp.net Fri Sep 5 01:17:35 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Thu, 04 Sep 2003 21:17:35 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Thursday September 4, 2003 @ 21:17 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv22501 Modified Files: linedit.asd packages.lisp termios.lisp Added Files: terminfo.lisp Log Message: Beginnings of terminfo parsing for multiline handling. From nsiivola at common-lisp.net Sat Sep 6 16:43:55 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sat, 06 Sep 2003 12:43:55 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Saturday September 6, 2003 @ 12:43 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv29055 Modified Files: commands.lisp functions.lisp packages.lisp termios-glue.c termios.lisp Log Message: Add C-C as interrupt-lisp. From nsiivola at common-lisp.net Sat Sep 6 18:34:47 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sat, 06 Sep 2003 14:34:47 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Saturday September 6, 2003 @ 14:34 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv31215 Modified Files: linedit.lisp repl.lisp Log Message: Play nice with a patched version of sb-aclrepl. From nsiivola at common-lisp.net Sat Sep 6 19:22:16 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sat, 06 Sep 2003 15:22:16 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Saturday September 6, 2003 @ 15:22 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv19204 Modified Files: linedit.lisp repl.lisp Log Message: New interface for FORMEDIT, better repl-replacer. From nsiivola at common-lisp.net Sat Sep 6 19:28:02 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sat, 06 Sep 2003 15:28:02 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Saturday September 6, 2003 @ 15:28 Author: nsiivola Update of /project/linedit/cvsroot/doc In directory common-lisp.net:/tmp/cvs-serv21661 Modified Files: README Log Message: Doc update From nsiivola at common-lisp.net Sat Sep 6 19:28:32 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sat, 06 Sep 2003 15:28:32 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Saturday September 6, 2003 @ 15:28 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv21754 Modified Files: Makefile Log Message: Version 0.9 From nsiivola at common-lisp.net Sat Sep 6 19:38:47 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sat, 06 Sep 2003 15:38:47 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Saturday September 6, 2003 @ 15:38 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv26150 Modified Files: repl.lisp Log Message: Minor cleanup. From nsiivola at common-lisp.net Thu Sep 18 21:17:02 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Thu, 18 Sep 2003 17:17:02 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Thursday September 18, 2003 @ 17:17 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv3936 Modified Files: Makefile functions.lisp linedit.asd linedit.lisp packages.lisp repl.lisp Added Files: complete.lisp Log Message: Version 0.10 * Plays nice with #\/ reader-macros for pathnames. * Moved completetion functions to a separate package. * Doesn't depend on cl-ppcre. * Minor repl improvements. From nsiivola at common-lisp.net Sun Sep 21 14:32:28 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sun, 21 Sep 2003 10:32:28 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Sunday September 21, 2003 @ 10:32 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv29413 Modified Files: Makefile Log Message: Fixed FTP-update script From nsiivola at common-lisp.net Sun Sep 21 16:57:57 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sun, 21 Sep 2003 12:57:57 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Sunday September 21, 2003 @ 12:57 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv12807 Added Files: release.txt version.txt Log Message: From nsiivola at common-lisp.net Sun Sep 21 16:58:45 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sun, 21 Sep 2003 12:58:45 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Sunday September 21, 2003 @ 12:58 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv12981 Modified Files: .cvsignore Log Message: From nsiivola at common-lisp.net Sun Sep 21 16:59:11 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sun, 21 Sep 2003 12:59:11 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Sunday September 21, 2003 @ 12:59 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv14125 Modified Files: Makefile Log Message: A more generic version From nsiivola at common-lisp.net Tue Sep 23 04:35:40 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Tue, 23 Sep 2003 00:35:40 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Tuesday September 23, 2003 @ 0:35 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv13365 Modified Files: terminfo.lisp Log Message: Non-regex terminfo escape. From nsiivola at common-lisp.net Tue Sep 23 04:47:22 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Tue, 23 Sep 2003 00:47:22 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Tuesday September 23, 2003 @ 0:47 Author: nsiivola Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv19337 Modified Files: Tag: rewrite-1 buffer.lisp complete.lisp line.lisp linedit.asd packages.lisp Added Files: Tag: rewrite-1 command-functions.lisp command-keys.lisp dumb-terminal-translations.lisp dumb-terminal.lisp dumb_terminal.c editor.lisp generic-backend.lisp linedit.h main.lisp pool.lisp signals.c utility-functions.lisp utility-macros.lisp Removed Files: Tag: rewrite-1 chords.lisp commands.lisp functions.lisp history.lisp kill.lisp linedit.lisp repl.lisp terminfo.lisp termios-glue.c termios.lisp undo.lisp util.lisp Log Message: The first 80% of rewrite: separation of backend functionality, better organization of sources, use CLOS where appropriate. From root at common-lisp.net Thu Sep 25 18:45:15 2003 From: root at common-lisp.net (root) Date: Thu, 25 Sep 2003 14:45:15 -0400 Subject: [Linedit-cvs] CVS update: Message-ID: Date: Thursday September 25, 2003 @ 14:45 Author: root Update of /project/linedit/cvsroot/CVSROOT In directory common-lisp.net:/root/tmp/CVSROOT Modified Files: loginfo Log Message: new cvslog.py From nsiivola at common-lisp.net Sat Sep 27 09:18:56 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Sat, 27 Sep 2003 05:18:56 -0400 Subject: [Linedit-cvs] CVS update: src/command-functions.lisp src/editor.lisp src/generic-backend.lisp src/utility-macros.lisp Message-ID: Date: Sat Sep 27 05:18:56 2003 Author: nsiivola Index: src/command-functions.lisp diff -u src/command-functions.lisp:1.1.2.2 src/command-functions.lisp:1.1.2.3 --- src/command-functions.lisp:1.1.2.2 Fri Sep 26 06:58:30 2003 +++ src/command-functions.lisp Sat Sep 27 05:18:55 2003 @@ -105,23 +105,23 @@ ;;; KILLING & YANKING (defun %yank (editor) - (let ((yank (buffer-peek (editor-killring editor)))) - (if yank - (with-editor-point-and-string ((point string) editor) - (setf (editor-string editor) - (concat (subseq string 0 point) yank (subseq string point)) - (editor-point editor) (+ point (length yank)))) - (beep editor)))) + (aif (buffer-peek (editor-killring editor)) + (with-editor-point-and-string ((point string) editor) + (setf (editor-string editor) + (concat (subseq string 0 (editor-yank editor)) + it + (subseq string point)) + (editor-point editor) (+ (editor-yank editor) (length it)))) + (beep editor))) (defun yank (chord editor) (declare (ignore chord)) - (setf (editor-yank editor) (editor-point editor)) + (remember-yank editor) (%yank editor)) (defun yank-cycle (chord editor) (declare (ignore chord)) - (setf (editor-yank editor) (editor-last-yank editor)) - (if (editor-yank editor) + (if (try-yank editor) (progn (buffer-cycle (editor-killring editor)) (%yank editor)) @@ -159,7 +159,7 @@ (copy-region t editor) (setf (editor-string editor) (concat (subseq string 0 start) (subseq string end)) - (editot-point editor) start))))) + (editor-point editor) start))))) (defun set-mark (chord editor) (declare (ignore chord)) Index: src/editor.lisp diff -u src/editor.lisp:1.1.2.2 src/editor.lisp:1.1.2.3 --- src/editor.lisp:1.1.2.2 Fri Sep 26 06:58:30 2003 +++ src/editor.lisp Sat Sep 27 05:18:55 2003 @@ -42,6 +42,12 @@ (insert :reader editor-insert-mode :initform t :initarg :insert-mode) + (mark :accessor editor-mark + :initform nil) + (yank :accessor editor-yank + :initform nil) + (last-yank :accessor editor-last-yank + :initform nil) (prompt :reader editor-prompt :initform "" :initarg :prompt))) @@ -54,6 +60,7 @@ (insert (copy line) pool)))) (defun next-chord (editor) + (forget-yank editor) (let* ((chord (read-chord (editor-backend editor))) (command (gethash chord (editor-commands editor) (if (characterp chord) @@ -148,6 +155,16 @@ (defun editor-complete (editor) (funcall (editor-completer editor) (editor-word editor))) +(defun remember-yank (editor) + (setf (editor-yank editor) (editor-point editor))) + +(defun forget-yank (editor) + (shiftf (editor-last-yank editor) (editor-yank editor) nil)) + +(defun try-yank (editor) + (setf (editor-yank editor) (editor-last-yank editor)) + (editor-yank editor)) + (defun editor-replace-word (editor word) (with-editor-point-and-string ((point string) editor) (let ((start (editor-word-start editor)) @@ -159,3 +176,4 @@ (defmethod print-in-columns ((editor editor) list &key width) (print-in-columns (editor-backend editor) list :width width) (refresh editor)) + Index: src/generic-backend.lisp diff -u src/generic-backend.lisp:1.1.2.2 src/generic-backend.lisp:1.1.2.3 --- src/generic-backend.lisp:1.1.2.2 Fri Sep 26 06:58:30 2003 +++ src/generic-backend.lisp Sat Sep 27 05:18:55 2003 @@ -57,8 +57,9 @@ , at forms) (unless *backend-suspended* (awhen (backend-cached-action ,backend) - (setf (backend-cached-action ,backend) nil) - (funcall it))))) + (locally (declare (function it)) + (setf (backend-cached-action ,backend) nil) + (funcall it)))))) (defmethod display :around ((backend backend) prompt line) (if *backend-suspended* Index: src/utility-macros.lisp diff -u src/utility-macros.lisp:1.1.2.1 src/utility-macros.lisp:1.1.2.2 --- src/utility-macros.lisp:1.1.2.1 Tue Sep 23 00:47:21 2003 +++ src/utility-macros.lisp Sat Sep 27 05:18:55 2003 @@ -21,6 +21,12 @@ (in-package :linedit) +(defmacro aif (condition consequent &optional alternative) + `(let ((it ,condition)) + (if it + ,consequent + ,alternative))) + (defmacro acase (form &rest cases) `(let ((it ,form)) (case it @@ -35,9 +41,8 @@ , at body)) (defmacro awhen (condition &body body) - `(let ((it ,condition)) - (when it - , at body))) + `(aif ,condition + (progn , at body))) (defmacro do-internal-symbols ((var package) &body forms) (with-unique-names (state) Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv7679 Modified Files: Tag: rewrite-1 command-functions.lisp editor.lisp generic-backend.lisp utility-macros.lisp Log Message: Fixed yanking. From nsiivola at common-lisp.net Mon Sep 29 18:06:13 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 29 Sep 2003 14:06:13 -0400 Subject: [Linedit-cvs] CVS update: src/Makefile src/version.txt Message-ID: Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv22353 Modified Files: Makefile version.txt Log Message: Version 0.12. Date: Mon Sep 29 14:06:13 2003 Author: nsiivola Index: src/Makefile diff -u src/Makefile:1.14 src/Makefile:1.15 --- src/Makefile:1.14 Mon Sep 29 09:01:50 2003 +++ src/Makefile Mon Sep 29 14:06:13 2003 @@ -71,8 +71,8 @@ rm -rf $(NAME) ln -s $(NAME).tar.gz.asc $(LINK).asc ln -s $(NAME).tar.gz $(LINK) - mv $(NAME).tar.gz $(NAME).tar.gz.asc $(LINK) $(LINK).asc $(FTP) - $(RSYNC_FTP) && $(FTP_PERMS) + mv $(NAME).tar.gz $(NAME).tar.gz.asc $(LINK) $(LINK).asc $(HTML)/files/ +# $(RSYNC_FTP) && $(FTP_PERMS) public_html: $(RSYNC_HTML) && $(HTML_PERMS) Index: src/version.txt diff -u src/version.txt:1.2 src/version.txt:1.3 --- src/version.txt:1.2 Sun Sep 28 07:37:43 2003 +++ src/version.txt Mon Sep 29 14:06:13 2003 @@ -1 +1 @@ -0.11 +0.12 From nsiivola at common-lisp.net Mon Sep 29 18:20:40 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 29 Sep 2003 14:20:40 -0400 Subject: [Linedit-cvs] CVS update: src/main.lisp Message-ID: Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv31442 Modified Files: main.lisp Log Message: Date: Mon Sep 29 14:20:40 2003 Author: nsiivola Index: src/main.lisp diff -u src/main.lisp:1.3 src/main.lisp:1.4 --- src/main.lisp:1.3 Mon Sep 29 09:01:50 2003 +++ src/main.lisp Mon Sep 29 14:20:40 2003 @@ -21,7 +21,7 @@ (set-dispatch-macro-character #\# #\. (constantly (values)) table) (do ((str (apply #'linedit :prompt prompt1 args) (concat str - (string #\Newline) + (string #\newline) (apply #'linedit :prompt prompt2 args)))) ((let ((form (handler-case (let ((*readtable* table)) (read-from-string str)) From nsiivola at common-lisp.net Mon Sep 29 18:25:20 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 29 Sep 2003 14:25:20 -0400 Subject: [Linedit-cvs] CVS update: src/main.lisp Message-ID: Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv2057 Modified Files: main.lisp Log Message: Oops. Added missing license information. Date: Mon Sep 29 14:25:20 2003 Author: nsiivola Index: src/main.lisp diff -u src/main.lisp:1.4 src/main.lisp:1.5 --- src/main.lisp:1.4 Mon Sep 29 14:20:40 2003 +++ src/main.lisp Mon Sep 29 14:25:20 2003 @@ -1,3 +1,24 @@ +;; Copyright (c) 2003 Nikodemus Siivola +;; +;; Permission is hereby granted, free of charge, to any person obtaining +;; a copy of this software and associated documentation files (the +;; "Software"), to deal in the Software without restriction, including +;; without limitation the rights to use, copy, modify, merge, publish, +;; distribute, sublicense, and/or sell copies of the Software, and to +;; permit persons to whom the Software is furnished to do so, subject to +;; the following conditions: +;; +;; The above copyright notice and this permission notice shall be included +;; in all copies or substantial portions of the Software. +;; +;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + (in-package :linedit) (defun linedit (&rest keyword-args) From nsiivola at common-lisp.net Mon Sep 29 19:19:59 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 29 Sep 2003 15:19:59 -0400 Subject: [Linedit-cvs] CVS update: src/linedit.asd Message-ID: Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv3674 Modified Files: linedit.asd Log Message: Play better with ASDF. Date: Mon Sep 29 15:19:59 2003 Author: nsiivola Index: src/linedit.asd diff -u src/linedit.asd:1.13 src/linedit.asd:1.14 --- src/linedit.asd:1.13 Sun Sep 28 07:37:43 2003 +++ src/linedit.asd Mon Sep 29 15:19:59 2003 @@ -19,10 +19,6 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;;; The system-definition itself needs UFFI. Blech. -(unless (find-package :uffi) - (error "UFFI must be loaded before Linedit.")) - (declaim (optimize (debug 3) (safety 3))) (in-package :asdf) @@ -35,8 +31,10 @@ :defaults (component-pathname c)))) (defmethod perform ((o load-op) (c c-source-file)) - (dolist (f (input-files o c)) - (uffi:load-foreign-library f))) + (let ((loader (or (find-symbol "LOAD-FOREIGN-LIBRARY" :uffi) + (error "Could not find UFFI:LOAD-FOREIGN-LIBRARY.")))) + (dolist (f (input-files o c)) + (funcall loader f)))) (defmethod perform ((o compile-op) (c c-source-file)) (unless (zerop (run-shell-command "~A ~A -shared -fPIC -o ~A" From nsiivola at common-lisp.net Mon Sep 29 19:28:36 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 29 Sep 2003 15:28:36 -0400 Subject: [Linedit-cvs] CVS update: src/linedit.asd Message-ID: Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv7923 Modified Files: linedit.asd Log Message: Prettier interning. Date: Mon Sep 29 15:28:36 2003 Author: nsiivola Index: src/linedit.asd diff -u src/linedit.asd:1.14 src/linedit.asd:1.15 --- src/linedit.asd:1.14 Mon Sep 29 15:19:59 2003 +++ src/linedit.asd Mon Sep 29 15:28:36 2003 @@ -31,8 +31,7 @@ :defaults (component-pathname c)))) (defmethod perform ((o load-op) (c c-source-file)) - (let ((loader (or (find-symbol "LOAD-FOREIGN-LIBRARY" :uffi) - (error "Could not find UFFI:LOAD-FOREIGN-LIBRARY.")))) + (let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi))) (dolist (f (input-files o c)) (funcall loader f)))) From nsiivola at common-lisp.net Mon Sep 29 19:30:44 2003 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Mon, 29 Sep 2003 15:30:44 -0400 Subject: [Linedit-cvs] CVS update: src/version.txt Message-ID: Update of /project/linedit/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv9897 Modified Files: version.txt Log Message: Version 0.13 Date: Mon Sep 29 15:30:44 2003 Author: nsiivola Index: src/version.txt diff -u src/version.txt:1.3 src/version.txt:1.4 --- src/version.txt:1.3 Mon Sep 29 14:06:13 2003 +++ src/version.txt Mon Sep 29 15:30:44 2003 @@ -1 +1 @@ -0.12 +0.13