[gsharp-cvs] CVS update: gsharp/Flexichain/flexirank.lisp gsharp/Flexichain/flexichain-package.lisp gsharp/Flexichain/flexichain.asd gsharp/Flexichain/flexichain.lisp

[Robert Strandh]

Update of /project/gsharp/cvsroot/gsharp/Flexichain
In directory common-lisp.net:/tmp/cvs-serv23816

Modified Files:
	flexichain-package.lisp flexichain.asd flexichain.lisp 
Added Files:
	flexirank.lisp 
Log Message:
The code in the new file flexirank.lisp makes it possible for
client code to define a `ranked flexichain' which is a flexichain
or a cursorchain in which the elements know their position.

Also removed a useless defgeneric from flexichain.lisp

Date: Wed Nov 16 04:06:59 2005
Author: rstrandh



Index: gsharp/Flexichain/flexichain-package.lisp
diff -u gsharp/Flexichain/flexichain-package.lisp:1.3 gsharp/Flexichain/flexichain-package.lisp:1.4
--- gsharp/Flexichain/flexichain-package.lisp:1.3	Wed Mar  2 05:19:27 2005
+++ gsharp/Flexichain/flexichain-package.lisp	Wed Nov 16 04:06:59 2005
@@ -36,4 +36,6 @@
 	   #:at-beginning-p #:at-end-p
 	   #:move> #:move<
 	   #:insert #:insert-sequence
-	   #:element< #:element> #:delete< #:delete>))
+	   #:element< #:element> #:delete< #:delete>
+	   #:flexirank-mixin #:element-rank-mixin #:rank))
+


Index: gsharp/Flexichain/flexichain.asd
diff -u gsharp/Flexichain/flexichain.asd:1.3 gsharp/Flexichain/flexichain.asd:1.4
--- gsharp/Flexichain/flexichain.asd:1.3	Wed Mar  2 05:19:27 2005
+++ gsharp/Flexichain/flexichain.asd	Wed Nov 16 04:06:59 2005
@@ -32,5 +32,6 @@
   :components ((:file "flexichain-package")
                (:file "utilities" :depends-on ("flexichain-package"))
                (:file "flexichain" :depends-on ("utilities"))
-               (:file "flexicursor" :depends-on ("flexichain"))))
+               (:file "flexicursor" :depends-on ("flexichain"))
+               (:file "flexirank" :depends-on ("flexichain"))))
 


Index: gsharp/Flexichain/flexichain.lisp
diff -u gsharp/Flexichain/flexichain.lisp:1.6 gsharp/Flexichain/flexichain.lisp:1.7
--- gsharp/Flexichain/flexichain.lisp:1.6	Tue Dec 28 07:57:00 2004
+++ gsharp/Flexichain/flexichain.lisp	Wed Nov 16 04:06:59 2005
@@ -199,9 +199,6 @@
 (defmethod flexi-empty-p ((chain standard-flexichain))
   (zerop (nb-elements chain)))
 
-(defgeneric insert-object (chain position object)
-  (:documentation "Inserts an object at gap-start of a chain."))
-  
 (defun position-index (chain position)
   "Returns the (0 indexed) index of the POSITION-th element
 of the CHAIN in the buffer."