From rkreuter at common-lisp.net Fri Mar 3 00:45:22 2006 From: rkreuter at common-lisp.net (Richard Kreuter) Date: Thu, 2 Mar 2006 19:45:22 -0500 (EST) Subject: [flexichain-cvs] CVS update: Module imported: public_html Message-ID: <20060303004522.C12D44D019@common-lisp.net> Update of /home/rkreuter/flexichain/cvsroot/public_html In directory clnet:/home/rkreuter Log Message: Imported stubs Status: Vendor Tag: www Release Tags: start N public_html/.alias N public_html/.bash_history N public_html/.bash_profile N public_html/.bashrc N public_html/.cshrc N public_html/.cvspass N public_html/.forward N public_html/.viminfo N public_html/pubkey.asc N public_html/.ssh/authorized_keys2 N public_html/public_html/index.shtml N public_html/public_html/project-name N public_html/public_html/style.css N public_html/tmp/flexichain_1.0.tgz N public_html/tmp/flexichain_1.0/flexichain-package.lisp N public_html/tmp/flexichain_1.0/flexichain.asd N public_html/tmp/flexichain_1.0/flexichain.lisp N public_html/tmp/flexichain_1.0/flexicursor.lisp N public_html/tmp/flexichain_1.0/flexirank.lisp N public_html/tmp/flexichain_1.0/rtester.lisp N public_html/tmp/flexichain_1.0/skiplist-package.lisp N public_html/tmp/flexichain_1.0/skiplist.lisp N public_html/tmp/flexichain_1.0/stupid.lisp N public_html/tmp/flexichain_1.0/tester-package.lisp N public_html/tmp/flexichain_1.0/tester.lisp N public_html/tmp/flexichain_1.0/utilities.lisp N public_html/tmp/flexichain_1.0/Doc/Makefile N public_html/tmp/flexichain_1.0/Doc/circular.fig N public_html/tmp/flexichain_1.0/Doc/flexichain.cb N public_html/tmp/flexichain_1.0/Doc/flexichain.tex N public_html/tmp/flexichain_1.0/Doc/gap1.fig N public_html/tmp/flexichain_1.0/Doc/gap2.fig N public_html/tmp/flexichain_1.0/Doc/gap3.fig N public_html/tmp/flexichain_1.0/Doc/spec-macros.tex N public_html/tmp/flexichain_1.0/Doc/strip-dependence N public_html/tmp/flexichain_1.0/Doc/tex-dependencies I public_html/tmp/yyy/CVSROOT/CVS N public_html/tmp/yyy/CVSROOT/modules I public_html/tmp/yyy/flexichain/CVS N public_html/tmp/yyy/flexichain/flexichain-package.lisp N public_html/tmp/yyy/flexichain/flexichain.asd N public_html/tmp/yyy/flexichain/flexichain.lisp N public_html/tmp/yyy/flexichain/flexicursor.lisp N public_html/tmp/yyy/flexichain/flexirank.lisp N public_html/tmp/yyy/flexichain/rtester.lisp N public_html/tmp/yyy/flexichain/skiplist-package.lisp N public_html/tmp/yyy/flexichain/skiplist.lisp N public_html/tmp/yyy/flexichain/stupid.lisp N public_html/tmp/yyy/flexichain/tester-package.lisp N public_html/tmp/yyy/flexichain/tester.lisp N public_html/tmp/yyy/flexichain/utilities.lisp I public_html/tmp/yyy/flexichain/Doc/CVS N public_html/tmp/yyy/flexichain/Doc/Makefile N public_html/tmp/yyy/flexichain/Doc/circular.fig N public_html/tmp/yyy/flexichain/Doc/flexichain.cb N public_html/tmp/yyy/flexichain/Doc/flexichain.tex N public_html/tmp/yyy/flexichain/Doc/gap1.fig N public_html/tmp/yyy/flexichain/Doc/gap2.fig N public_html/tmp/yyy/flexichain/Doc/gap3.fig N public_html/tmp/yyy/flexichain/Doc/spec-macros.tex N public_html/tmp/yyy/flexichain/Doc/strip-dependence N public_html/tmp/yyy/flexichain/Doc/tex-dependencies N public_html/tmp/zzz/flexichain/flexichain-package.lisp N public_html/tmp/zzz/flexichain/flexichain.asd N public_html/tmp/zzz/flexichain/flexichain.lisp N public_html/tmp/zzz/flexichain/flexicursor.lisp N public_html/tmp/zzz/flexichain/flexirank.lisp N public_html/tmp/zzz/flexichain/rtester.lisp N public_html/tmp/zzz/flexichain/skiplist-package.lisp N public_html/tmp/zzz/flexichain/skiplist.lisp N public_html/tmp/zzz/flexichain/stupid.lisp N public_html/tmp/zzz/flexichain/tester-package.lisp N public_html/tmp/zzz/flexichain/tester.lisp N public_html/tmp/zzz/flexichain/utilities.lisp N public_html/tmp/zzz/flexichain/Doc/Makefile N public_html/tmp/zzz/flexichain/Doc/circular.fig N public_html/tmp/zzz/flexichain/Doc/flexichain.cb N public_html/tmp/zzz/flexichain/Doc/flexichain.tex N public_html/tmp/zzz/flexichain/Doc/gap1.fig N public_html/tmp/zzz/flexichain/Doc/gap2.fig N public_html/tmp/zzz/flexichain/Doc/gap3.fig N public_html/tmp/zzz/flexichain/Doc/spec-macros.tex N public_html/tmp/zzz/flexichain/Doc/strip-dependence N public_html/tmp/zzz/flexichain/Doc/tex-dependencies No conflicts created by this import Date: Thu Mar 2 19:45:22 2006 Author: rkreuter New module public_html added From rkreuter at common-lisp.net Fri Mar 3 00:48:25 2006 From: rkreuter at common-lisp.net (Richard Kreuter) Date: Thu, 2 Mar 2006 19:48:25 -0500 (EST) Subject: [flexichain-cvs] CVS update: Module imported: public_html Message-ID: <20060303004825.0AC214D019@common-lisp.net> Update of /home/rkreuter/flexichain/cvsroot/public_html In directory clnet:/home/rkreuter/tmp/zzzz Log Message: Imported stubs Status: Vendor Tag: www Release Tags: start N public_html/public_html/index.shtml N public_html/public_html/project-name N public_html/public_html/style.css No conflicts created by this import Date: Thu Mar 2 19:48:24 2006 Author: rkreuter New module public_html added From rkreuter at common-lisp.net Fri Mar 3 00:52:26 2006 From: rkreuter at common-lisp.net (Richard Kreuter) Date: Thu, 2 Mar 2006 19:52:26 -0500 (EST) Subject: [flexichain-cvs] CVS update: Module imported: www Message-ID: <20060303005226.262294E010@common-lisp.net> Update of /home/rkreuter/flexichain/cvsroot/www In directory clnet:/home/rkreuter/tmp/zzzz/public_html Log Message: Initial import of stubs. Status: Vendor Tag: init Release Tags: start N www/index.shtml N www/project-name N www/style.css No conflicts created by this import Date: Thu Mar 2 19:52:26 2006 Author: rkreuter New module www added From rkreuter at common-lisp.net Fri Mar 3 01:36:49 2006 From: rkreuter at common-lisp.net (Richard Kreuter) Date: Thu, 2 Mar 2006 20:36:49 -0500 (EST) Subject: [flexichain-cvs] CVS update: www/index.shtml Message-ID: <20060303013649.1CB226F248@common-lisp.net> Update of /home/rkreuter/flexichain/cvsroot/www In directory clnet:/project/flexichain/www Modified Files: index.shtml Log Message: Finally added some content to the page. Date: Thu Mar 2 20:36:48 2006 Author: rkreuter Index: www/index.shtml diff -u www/index.shtml:1.1.1.1 www/index.shtml:1.2 --- www/index.shtml:1.1.1.1 Thu Mar 2 19:52:26 2006 +++ www/index.shtml Thu Mar 2 20:36:48 2006 @@ -13,13 +13,91 @@

-

This is an automatically generated placeholder page: this project - has not yet created a website.

+ +

+ Flexichain is an API for editable sequences. Its primary use + is in end-user applications that edit sequences of objects such as + text editors (characters), word processors (characters, paragraphs, + sections, etc), score editors (notes, clusters, measures, etc), + though it can also be used as a stack and a double-ended queue. +

+ +

+ The flexichain library is used in the + Climacs and + Gsharp editors. + It was written by Robert Strandh, Matthieu Villeneuve, and Timothy + Moore. +

+ +

Last release: + + http://www.common-lisp.net/project/flexichain/download/flexichain_latest.tgz + - on 8 January 2006. Download there, or use + asdf-install +

+ +
+
Documentation
+
+ +
+
Cliki Page
+
+ + http://www.cliki.net/flexichain + +
+
CVS
+
+ +
+
Mailing lists
+
+ + flexichain-devel + +
+
+ + + +

Back to Common-lisp.net.

- Valid XHTML 1.0 Strict +

+ + Valid XHTML 1.0 Strict + +

+
From rstrandh at common-lisp.net Mon Mar 13 18:13:33 2006 From: rstrandh at common-lisp.net (Robert Strandh) Date: Mon, 13 Mar 2006 13:13:33 -0500 (EST) Subject: [flexichain-cvs] CVS update: flexichain/flexirank.lisp flexichain/utilities.lisp Message-ID: <20060313181333.D9DEC1F005@common-lisp.net> Update of /project/flexichain/cvsroot/flexichain In directory clnet:/tmp/cvs-serv18847 Modified Files: flexirank.lisp utilities.lisp Log Message: Improvements from Tim Moore with respect to weak pointers on Allegro. Date: Mon Mar 13 13:13:33 2006 Author: rstrandh Index: flexichain/flexirank.lisp diff -u flexichain/flexirank.lisp:1.1.1.1 flexichain/flexirank.lisp:1.2 --- flexichain/flexirank.lisp:1.1.1.1 Wed Feb 8 21:51:06 2006 +++ flexichain/flexirank.lisp Mon Mar 13 13:13:33 2006 @@ -75,5 +75,5 @@ (defmethod insert-vector* :after ((chain flexirank-mixin) position vector) (loop for elem across vector for pos from position - do (setf (index elem) (position-index pos) + do (setf (index elem) (position-index chain pos) (chain elem) chain))) Index: flexichain/utilities.lisp diff -u flexichain/utilities.lisp:1.1.1.1 flexichain/utilities.lisp:1.2 --- flexichain/utilities.lisp:1.1.1.1 Wed Feb 8 21:51:06 2006 +++ flexichain/utilities.lisp Mon Mar 13 13:13:33 2006 @@ -34,14 +34,17 @@ (values nil nil) (values (elt sequence position) t)))) -;;; CMUCL and SBCL have direct support for weak pointers. In OpenMCL weak -;;; references are only supported via weak hash tables. This class provides -;;; the means for other classes to manage their weak references. -;;; +;;; CMUCL and SBCL have direct support for weak pointers. In OpenMCL and +;;; Allegro weak references are only supported via weak hash tables. This class +;;; provides the means for other classes to manage their weak references. ;;; TODO: check other CL implementations behavior wrt. return values (defclass weak-pointer-container-mixin () - (#+openmcl - (weak-hash :initform (make-hash-table :test #'eq :weak :value))) + (#+(or openmcl allegro) + (weak-hash :initform (make-hash-table :test #'eql + ;; Get it together guys! + #+openmcl :weak #+openmcl :value + #+allegro :values #+allegro :weak)) + (key-counter :initform 0)) (:documentation "Support for weak references, if needed")) (defgeneric make-weak-pointer (object container)) @@ -52,9 +55,9 @@ #+cmu (extensions:make-weak-pointer object) #+sbcl (sb-ext:make-weak-pointer object)) -#+openmcl +#+(or openmcl allegro) (defmethod make-weak-pointer (object (container weak-pointer-container-mixin)) - (let ((key (cons nil nil))) + (let ((key (incf (slot-value container 'key-counter)))) (setf (gethash key (slot-value container 'weak-hash)) object) key)) @@ -66,15 +69,20 @@ #+cmu (extensions:weak-pointer-value weak-pointer) #+sbcl (sb-ext:weak-pointer-value weak-pointer)) -#+openmcl +#+(or openmcl allegro) (defmethod weak-pointer-value (weak-pointer (container weak-pointer-container-mixin)) - (gethash weak-pointer (slot-value container 'weak-hash) nil)) + (let* ((table (slot-value container 'weak-hash)) + (val (gethash weak-pointer table))) + #+allegro + (unless val + (remhash weak-pointer table)) + val)) #-(or sbcl cmu openmcl) (progn (eval-when (:evaluate :compile-toplevel :load-toplevel) - (warning "No support for weak pointers in this implementation. Things may + (warn "No support for weak pointers in this implementation. Things may get big and slow") ) (defmethod make-weak-pointer (object container) From rkreuter at common-lisp.net Sat Mar 25 17:07:07 2006 From: rkreuter at common-lisp.net (Richard Kreuter) Date: Sat, 25 Mar 2006 12:07:07 -0500 (EST) Subject: [flexichain-cvs] CVS update: flexichain/flexichain.asd Message-ID: <20060325170707.8D1ED77000@common-lisp.net> Update of /project/flexichain/cvsroot/flexichain In directory clnet:/home/rkreuter/tmp/flexichain Modified Files: flexichain.asd Log Message: Bumped the version number to 1.1 Date: Sat Mar 25 12:07:07 2006 Author: rkreuter Index: flexichain/flexichain.asd diff -u flexichain/flexichain.asd:1.1.1.1 flexichain/flexichain.asd:1.2 --- flexichain/flexichain.asd:1.1.1.1 Wed Feb 8 21:51:06 2006 +++ flexichain/flexichain.asd Sat Mar 25 12:07:07 2006 @@ -29,7 +29,7 @@ ;; for testing. (defsystem :flexichain :name "flexichain" - :version "1.0" + :version "1.1" :components ((:file "flexichain-package") (:file "utilities" :depends-on ("flexichain-package")) (:file "flexichain" :depends-on ("utilities" "flexichain-package")) From rkreuter at common-lisp.net Sat Mar 25 17:44:59 2006 From: rkreuter at common-lisp.net (Richard Kreuter) Date: Sat, 25 Mar 2006 12:44:59 -0500 (EST) Subject: [flexichain-cvs] CVS update: www/index.shtml Message-ID: <20060325174459.A2A881C001@common-lisp.net> Update of /project/flexichain/cvsroot/www In directory clnet:/home/rkreuter/tmp/www Modified Files: index.shtml Log Message: Updated the last release date. Date: Sat Mar 25 12:44:59 2006 Author: rkreuter Index: www/index.shtml diff -u www/index.shtml:1.2 www/index.shtml:1.3 --- www/index.shtml:1.2 Thu Mar 2 20:36:48 2006 +++ www/index.shtml Sat Mar 25 12:44:59 2006 @@ -34,7 +34,7 @@ http://www.common-lisp.net/project/flexichain/download/flexichain_latest.tgz - - on 8 January 2006. Download there, or use + - on 25 March 2006. Download there, or use asdf-install