January 2005 - climacs-cvs@common-lisp.net

[climacs-cvs] CVS update: climacs/base.lisp climacs/gui.lisp climacs/packages.lisp
by mvilleneuve＠common-lisp.net 16 Jan '05

16 Jan '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv17711 Modified Files: base.lisp gui.lisp packages.lisp Log Message: Added delete-indentation Date: Sun Jan 16 21:05:00 2005 Author: mvilleneuve Index: climacs/base.lisp diff -u climacs/base.lisp:1.17 climacs/base.lisp:1.18 --- climacs/base.lisp:1.17 Sat Jan 15 18:39:23 2005 +++ climacs/base.lisp Sun Jan 16 21:04:59 2005 @@ -348,6 +348,21 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; +;;; Delete indentation + +(defun delete-indentation (mark) + (beginning-of-line mark) + (unless (beginning-of-buffer-p mark) + (loop until (end-of-buffer-p mark) + until (constituentp (object-after mark)) + do (delete-range mark 1)) + (loop until (beginning-of-buffer-p mark) + until (constituentp (object-before mark)) + do (delete-range mark -1)) + (insert-object mark #\Space))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; ;;; Named objects (defgeneric name (obj)) Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.71 climacs/gui.lisp:1.72 --- climacs/gui.lisp:1.71 Sat Jan 15 22:35:53 2005 +++ climacs/gui.lisp Sun Jan 16 21:04:59 2005 @@ -407,6 +407,9 @@ (multiple-value-bind (start end) (region-limits pane) (untabify-region start end (tab-space-count (stream-default-view pane)))))) +(define-named-command com-delete-indentation () + (delete-indentation (point (win *application-frame*)))) + (define-named-command com-toggle-layout () (setf (frame-current-layout *application-frame*) (if (eq (frame-current-layout *application-frame*) 'default) Index: climacs/packages.lisp diff -u climacs/packages.lisp:1.33 climacs/packages.lisp:1.34 --- climacs/packages.lisp:1.33 Sat Jan 15 22:35:53 2005 +++ climacs/packages.lisp Sun Jan 16 21:04:59 2005 @@ -56,6 +56,7 @@ #:upcase-region #:downcase-region #:capitalize-region #:upcase-word #:downcase-word #:capitalize-word #:tabify-region #:untabify-region + #:delete-indentation #:input-from-stream #:output-to-stream #:name-mixin #:name #:buffer-lookin-at #:looking-at

1 0

[climacs-cvs] CVS update: climacs/testing/rt.lisp
by abakic＠common-lisp.net 16 Jan '05

16 Jan '05

Update of /project/climacs/cvsroot/climacs/testing In directory common-lisp.net:/tmp/cvs-serv10884/testing Modified Files: rt.lisp Log Message: One more patch... Sorry for the inconvenience. If testing proves worthwhile, :rtest and :climacs-testing defpackages may be moved to packages.lisp. Date: Sun Jan 16 18:58:14 2005 Author: abakic Index: climacs/testing/rt.lisp diff -u climacs/testing/rt.lisp:1.1 climacs/testing/rt.lisp:1.2 --- climacs/testing/rt.lisp:1.1 Sun Jan 16 00:23:47 2005 +++ climacs/testing/rt.lisp Sun Jan 16 18:58:14 2005 @@ -19,7 +19,7 @@ | SOFTWARE. | |----------------------------------------------------------------------------|# -(defpackage #:regression-test +(cl:defpackage #:regression-test (:nicknames #:rtest #-lispworks #:rt) (:use #:cl) (:export #:*do-tests-when-defined* #:*test* #:continue-testing

1 0

[climacs-cvs] CVS update: climacs/buffer-test.lisp
by abakic＠common-lisp.net 16 Jan '05

16 Jan '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv10884 Modified Files: buffer-test.lisp Log Message: One more patch... Sorry for the inconvenience. If testing proves worthwhile, :rtest and :climacs-testing defpackages may be moved to packages.lisp. Date: Sun Jan 16 18:58:13 2005 Author: abakic Index: climacs/buffer-test.lisp diff -u climacs/buffer-test.lisp:1.4 climacs/buffer-test.lisp:1.5 --- climacs/buffer-test.lisp:1.4 Sun Jan 16 15:42:23 2005 +++ climacs/buffer-test.lisp Sun Jan 16 18:58:13 2005 @@ -4,7 +4,7 @@ ;;; (cl:defpackage :climacs-tests - (:use :rtest :climacs-buffer)) + (:use :rtest :climacs-buffer #+cmu :cl)) (in-package :climacs-tests) @@ -19,7 +19,7 @@ (eq (buffer high) buffer))) t) -(deftest standard-buffer-mark-make-instance.test-2 +(deftest standard-buffer-mark-make-instance.test-1 (handler-case (let ((buffer (make-instance 'standard-buffer))) (make-instance 'standard-left-sticky-mark :buffer buffer :offset 1)) @@ -27,7 +27,7 @@ (= (climacs-buffer::condition-offset c) 1))) t) -(deftest standard-buffer-mark-make-instance.test-3 +(deftest standard-buffer-mark-make-instance.test-2 (handler-case (let ((buffer (make-instance 'standard-buffer))) (make-instance 'standard-right-sticky-mark :buffer buffer :offset 1)) @@ -39,11 +39,7 @@ (flet ((%all-eq (&optional x y) (cond ((null x) nil) - (t (when (eq x y) y)))) - (%all-= (&optional x y) - (cond - ((null x) nil) - (t (when (= x y) y))))) + (t (when (eq x y) y))))) (let* ((buffer (make-instance 'standard-buffer)) (low (slot-value buffer 'low-mark)) (high (slot-value buffer 'high-mark))

1 0

[climacs-cvs] CVS update: climacs/buffer-test.lisp
by rstrandh＠common-lisp.net 16 Jan '05

16 Jan '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv758 Modified Files: buffer-test.lisp Log Message: Put the buffer test in its own package to prevent symbol collisions. Thanks to Rudi Schlatte. Date: Sun Jan 16 15:42:24 2005 Author: rstrandh Index: climacs/buffer-test.lisp diff -u climacs/buffer-test.lisp:1.3 climacs/buffer-test.lisp:1.4 --- climacs/buffer-test.lisp:1.3 Sun Jan 16 07:03:35 2005 +++ climacs/buffer-test.lisp Sun Jan 16 15:42:23 2005 @@ -3,10 +3,10 @@ ;;; (c) copyright 2005 by Aleksandar Bakic (a_bakic(a)yahoo.com) ;;; -(in-package :cl-user) -(eval-when (:compile-toplevel :load-toplevel) - (use-package :rtest) - (use-package :climacs-buffer)) +(cl:defpackage :climacs-tests + (:use :rtest :climacs-buffer)) + +(in-package :climacs-tests) (deftest standard-buffer-make-instance.test-1 (let* ((buffer (make-instance 'standard-buffer))

1 0

[climacs-cvs] CVS update: climacs/buffer-test.lisp
by rstrandh＠common-lisp.net 16 Jan '05

16 Jan '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv7449 Modified Files: buffer-test.lisp Log Message: Added eval-when around use-package to avoid symbol conflicts during loading. Date: Sun Jan 16 07:03:36 2005 Author: rstrandh Index: climacs/buffer-test.lisp diff -u climacs/buffer-test.lisp:1.2 climacs/buffer-test.lisp:1.3 --- climacs/buffer-test.lisp:1.2 Sun Jan 16 01:41:44 2005 +++ climacs/buffer-test.lisp Sun Jan 16 07:03:35 2005 @@ -4,8 +4,9 @@ ;;; (in-package :cl-user) -(use-package :rtest) -(use-package :climacs-buffer) +(eval-when (:compile-toplevel :load-toplevel) + (use-package :rtest) + (use-package :climacs-buffer)) (deftest standard-buffer-make-instance.test-1 (let* ((buffer (make-instance 'standard-buffer))

1 0

[climacs-cvs] CVS update: climacs/buffer-test.lisp
by abakic＠common-lisp.net 16 Jan '05

16 Jan '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv23248 Modified Files: buffer-test.lisp Log Message: A bug fix in a test. Date: Sun Jan 16 01:41:44 2005 Author: abakic Index: climacs/buffer-test.lisp diff -u climacs/buffer-test.lisp:1.1 climacs/buffer-test.lisp:1.2 --- climacs/buffer-test.lisp:1.1 Sun Jan 16 00:23:45 2005 +++ climacs/buffer-test.lisp Sun Jan 16 01:41:44 2005 @@ -37,11 +37,11 @@ (deftest standard-buffer-clone-mark.test-1 (flet ((%all-eq (&optional x y) (cond - ((or (null x) (null y) t)) + ((null x) nil) (t (when (eq x y) y)))) (%all-= (&optional x y) (cond - ((or (null x) (null y) t)) + ((null x) nil) (t (when (= x y) y))))) (let* ((buffer (make-instance 'standard-buffer)) (low (slot-value buffer 'low-mark)) @@ -50,13 +50,12 @@ (high2 (clone-mark high)) (low3 (clone-mark high 'standard-left-sticky-mark)) (high3 (clone-mark low 'standard-right-sticky-mark))) - (and (every #'%all-eq + (and (reduce #'%all-eq (list (class-of low) (class-of low2) (class-of low3))) - (every #'%all-eq + (reduce #'%all-eq (list (class-of high) (class-of high2) (class-of high3))) - (every #'%all-= - (list (offset low) (offset low2) (offset low3) - (offset high) (offset high2) (offset high3) 0))))) + (= (offset low) (offset low2) (offset low3) + (offset high) (offset high2) (offset high3) 0)))) t) ;;; NOTE: the current implementation uses vectors wherever sequences are

1 0

[climacs-cvs] CVS update: climacs/testing/rt-doc.txt climacs/testing/rt-original.lisp climacs/testing/rt-test.lisp climacs/testing/rt.lisp
by abakic＠common-lisp.net 15 Jan '05

15 Jan '05

Update of /project/climacs/cvsroot/climacs/testing In directory common-lisp.net:/tmp/cvs-serv19214/testing Added Files: rt-doc.txt rt-original.lisp rt-test.lisp rt.lisp Log Message: Added a regression testing infrastructure and initial tests for code in buffer.lisp. Date: Sun Jan 16 00:23:48 2005 Author: abakic

1 0

[climacs-cvs] CVS update: climacs/buffer-test.lisp climacs/climacs.asd
by abakic＠common-lisp.net 15 Jan '05

15 Jan '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv19214 Modified Files: climacs.asd Added Files: buffer-test.lisp Log Message: Added a regression testing infrastructure and initial tests for code in buffer.lisp. Date: Sun Jan 16 00:23:46 2005 Author: abakic Index: climacs/climacs.asd diff -u climacs/climacs.asd:1.11 climacs/climacs.asd:1.12 --- climacs/climacs.asd:1.11 Sat Jan 15 20:50:43 2005 +++ climacs/climacs.asd Sun Jan 16 00:23:45 2005 @@ -59,7 +59,10 @@ "text-syntax" "kill-ring" "pane" - "gui") + "gui" + ;;---- optional ---- + "testing/rt" + "buffer-test") #+asdf (defmethod asdf:perform :around ((o asdf:compile-op)

1 0

[climacs-cvs] CVS update: Directory change: climacs/testing
by abakic＠common-lisp.net 15 Jan '05

15 Jan '05

Update of /project/climacs/cvsroot/climacs/testing In directory common-lisp.net:/tmp/cvs-serv19164/testing Log Message: Directory /project/climacs/cvsroot/climacs/testing added to the repository Date: Sun Jan 16 00:20:22 2005 Author: abakic New directory climacs/testing added

1 0

[climacs-cvs] CVS update: climacs/buffer.lisp
by abakic＠common-lisp.net 15 Jan '05

15 Jan '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv18415 Modified Files: buffer.lisp Log Message: Minor bug fixes. Date: Sun Jan 16 00:13:48 2005 Author: abakic Index: climacs/buffer.lisp diff -u climacs/buffer.lisp:1.20 climacs/buffer.lisp:1.21 --- climacs/buffer.lisp:1.20 Sat Jan 15 18:39:24 2005 +++ climacs/buffer.lisp Sun Jan 16 00:13:46 2005 @@ -95,6 +95,8 @@ (defmethod initialize-instance :after ((mark left-sticky-mark) &rest args &key (offset 0)) "Associates a created mark with the buffer it was created for." (declare (ignore args)) + (assert (<= 0 offset (size (buffer mark))) () + (make-condition 'no-such-offset :offset offset)) (setf (slot-value mark 'cursor) (make-instance 'left-sticky-flexicursor :chain (slot-value (buffer mark) 'contents) @@ -103,6 +105,8 @@ (defmethod initialize-instance :after ((mark right-sticky-mark) &rest args &key (offset 0)) "Associates a created mark with the buffer it was created for." (declare (ignore args)) + (assert (<= 0 offset (size (buffer mark))) () + (make-condition 'no-such-offset :offset offset)) (setf (slot-value mark 'cursor) (make-instance 'right-sticky-flexicursor :chain (slot-value (buffer mark) 'contents) @@ -398,7 +402,7 @@ (defmethod delete-region ((mark1 mark-mixin) (mark2 mark-mixin)) (assert (eq (buffer mark1) (buffer mark2))) - (when (> (offset mark1) (offset mark2)) + (when (> (offset mark2) (offset mark1)) (delete-buffer-range (buffer mark1) (offset mark1) (- (offset mark2) (offset mark1)))))

1 0