March 2006 - flexichain-cvs@common-lisp.net

[flexichain-cvs] CVS update: www/index.shtml
by rkreuter＠common-lisp.net 25 Mar '06

25 Mar '06

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 @@ <a href="http://www.common-lisp.net/project/flexichain/download/flexichain_latest.tgz"> http://www.common-lisp.net/project/flexichain/download/flexichain_latest.tgz</a> - - on 8 January 2006. Download there, or use + - on 25 March 2006. Download there, or use asdf-install

1 0

[flexichain-cvs] CVS update: flexichain/flexichain.asd
by rkreuter＠common-lisp.net 25 Mar '06

25 Mar '06

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"))

1 0

[flexichain-cvs] CVS update: flexichain/flexirank.lisp flexichain/utilities.lisp
by rstrandh＠common-lisp.net 13 Mar '06

13 Mar '06

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)

1 0

[flexichain-cvs] CVS update: www/index.shtml
by rkreuter＠common-lisp.net 03 Mar '06

03 Mar '06

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 @@ <h1></h1> </div> - 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 + <a href="http://common-lisp.net/project/climacs/">Climacs</a> and + <a href="http://common-lisp.net/project/gsharp/">Gsharp</a> editors. + It was written by Robert Strandh, Matthieu Villeneuve, and Timothy + Moore. + + + Last release: + <a + href="http://www.common-lisp.net/project/flexichain/download/flexichain_latest.tgz"> + http://www.common-lisp.net/project/flexichain/download/flexichain_latest.tgz</a> + - on 8 January 2006. Download there, or use + asdf-install + + + <dl> + <dt>Documentation</dt> + <dd> + <ul> + <li> + <a href="http://www.common-lisp.net/project/flexichain/download/StrandhVilleneuveMoo…"> + Design Document + </a> (PDF) + </li> + <li> + <a href="http://www.common-lisp.net/project/flexichain/download/flexichain.pdf"> + API Documentation + </a> (PDF) + </li> + </ul> + </dd> + <dt>Cliki Page</dt> + <dd> + <a href="http://www.cliki.net/flexichain"> + http://www.cliki.net/flexichain + </a> + </dd> + <dt>CVS</dt> + <dd> + <ul> + <li> + <a href="http://common-lisp.net/faq.shtml#checkout">Here</a> + are instructions for anoncvs. The project name + is flexichain. + </li> + <li> + <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/flexichain/?root=flexichain"> + ViewCVS web interface</a> + </li> + </ul> + </dd> + <dt>Mailing lists</dt> + <dd> + <a href="http://common-lisp.net/mailman/listinfo/flexichain-devel"> + flexichain-devel + </a> + </dd> + </dl> + + + + Back to <a href="http://common-lisp.net/">Common-lisp.net</a>. <div class="check"> - <a href="http://validator.w3.org/check/referer">Valid XHTML 1.0 Strict</a> + + <a href="http://validator.w3.org/check?uri=referer"> + <img src="http://www.w3.org/Icons/valid-xhtml10" + alt="Valid XHTML 1.0 Strict" + height="31" + width="88" /> + </a> + + </div> </body> </html>

1 0

[flexichain-cvs] CVS update: Module imported: www
by rkreuter＠common-lisp.net 03 Mar '06

03 Mar '06

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

1 0

[flexichain-cvs] CVS update: Module imported: public_html
by rkreuter＠common-lisp.net 03 Mar '06

03 Mar '06

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

1 0

[flexichain-cvs] CVS update: Module imported: public_html
by rkreuter＠common-lisp.net 03 Mar '06

03 Mar '06

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

1 0