From mantoniotti at common-lisp.net Wed Mar 9 18:18:05 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Wed, 9 Mar 2005 19:18:05 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: Module imported: enumerations Message-ID: <20050309181805.82BC788665@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv12188 Log Message: Initial import. Status: Vendor Tag: CL-ENUMERATIONS Release Tags: start N enumerations/enumerations-pkg.lisp N enumerations/enumerations.lisp N enumerations/enumerations.system N enumerations/foreach.lisp N enumerations/array-enumerations.lisp N enumerations/hash-table-enumerations.lisp N enumerations/list-enumerations.lisp N enumerations/number-enumerations.lisp N enumerations/string-enumerations.lisp N enumerations/vector-enumerations.lisp N enumerations/sequence-enumeration.lisp N enumerations/docs/html/concepts.html N enumerations/docs/html/downloads.html N enumerations/docs/html/enumerate-function.html N enumerations/docs/html/enumerations-dictionary.html N enumerations/docs/html/enumerations-hierarchy.bmp N enumerations/docs/html/enumerations-hierarchy.eps N enumerations/docs/html/enumerations-hierarchy.GIF N enumerations/docs/html/enumerations-hierarchy.jpg N enumerations/docs/html/enumerations-hierarchy.sxd N enumerations/docs/html/enumerations-package.html N enumerations/docs/html/foreach-macro.html N enumerations/docs/html/has-next-function.html N enumerations/docs/html/has-previous-function.html N enumerations/docs/html/index.html N enumerations/docs/html/main.css N enumerations/docs/html/next-function.html N enumerations/docs/html/previous-function.html N enumerations/docs/html/range-function.html No conflicts created by this import Date: Wed Mar 9 19:18:03 2005 Author: mantoniotti New module enumerations added From mantoniotti at common-lisp.net Wed Mar 9 18:29:43 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Wed, 9 Mar 2005 19:29:43 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/index.html Message-ID: <20050309182943.733B888665@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv12308 Modified Files: index.html Log Message: Removed uninformative part about the structure of the documentation. Date: Wed Mar 9 19:29:42 2005 Author: mantoniotti Index: enumerations/docs/html/index.html diff -u enumerations/docs/html/index.html:1.1.1.1 enumerations/docs/html/index.html:1.2 --- enumerations/docs/html/index.html:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/docs/html/index.html Wed Mar 9 19:29:42 2005 @@ -71,12 +71,6 @@ special-case, re-implementations of some of the package elements.

-

The specification is roughly organized in two parts. The first - part consists of the definition of a dictionary of classes, - functions and variables as in the CLHS; an operational semantics of - these items and of their interoperability. The second part contains - a set of simple examples about how to use and/or implement the - ENUMERATIONS protocol for some simple cases.

Relation with SERIES package.

From mantoniotti at common-lisp.net Wed Mar 9 18:32:03 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Wed, 9 Mar 2005 19:32:03 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/downloads.html Message-ID: <20050309183203.A93E188665@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv13112 Modified Files: downloads.html Log Message: Fixed reference to CVS repository. Date: Wed Mar 9 19:32:02 2005 Author: mantoniotti Index: enumerations/docs/html/downloads.html diff -u enumerations/docs/html/downloads.html:1.1.1.1 enumerations/docs/html/downloads.html:1.2 --- enumerations/docs/html/downloads.html:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/docs/html/downloads.html Wed Mar 9 19:32:02 2005 @@ -55,7 +55,7 @@

Download and CVS Repository

-

The CVS repository is here. You can download a tarball directly from there.

+

The CVS repository is here. You can download a tarball directly from there.

From mantoniotti at common-lisp.net Wed Mar 9 18:33:06 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Wed, 9 Mar 2005 19:33:06 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/downloads.html Message-ID: <20050309183306.7A74D88665@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv13134 Modified Files: downloads.html Log Message: More fixes to CVS repository address. Date: Wed Mar 9 19:33:05 2005 Author: mantoniotti Index: enumerations/docs/html/downloads.html diff -u enumerations/docs/html/downloads.html:1.2 enumerations/docs/html/downloads.html:1.3 --- enumerations/docs/html/downloads.html:1.2 Wed Mar 9 19:32:02 2005 +++ enumerations/docs/html/downloads.html Wed Mar 9 19:33:05 2005 @@ -55,7 +55,7 @@

Download and CVS Repository

-

The CVS repository is here. You can download a tarball directly from there.

+

The CVS repository is here. You can download a tarball directly from there.

From mantoniotti at common-lisp.net Thu Mar 10 16:48:51 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 17:48:51 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/downloads.html Message-ID: <20050310164851.1CFF488663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv21845 Modified Files: downloads.html Log Message: Hopefully fixed the link to CVS download. Date: Thu Mar 10 17:48:50 2005 Author: mantoniotti Index: enumerations/docs/html/downloads.html diff -u enumerations/docs/html/downloads.html:1.3 enumerations/docs/html/downloads.html:1.4 --- enumerations/docs/html/downloads.html:1.3 Wed Mar 9 19:33:05 2005 +++ enumerations/docs/html/downloads.html Thu Mar 10 17:48:50 2005 @@ -55,7 +55,7 @@

Download and CVS Repository

-

The CVS repository is here. You can download a tarball directly from there.

+

The CVS repository is here. You can download a tarball directly from there.

From mantoniotti at common-lisp.net Thu Mar 10 16:51:02 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 17:51:02 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/downloads.html Message-ID: <20050310165102.4195F88663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv21914 Modified Files: downloads.html Log Message: Now it should be finally finally fixed. Date: Thu Mar 10 17:50:58 2005 Author: mantoniotti Index: enumerations/docs/html/downloads.html diff -u enumerations/docs/html/downloads.html:1.4 enumerations/docs/html/downloads.html:1.5 --- enumerations/docs/html/downloads.html:1.4 Thu Mar 10 17:48:50 2005 +++ enumerations/docs/html/downloads.html Thu Mar 10 17:50:58 2005 @@ -55,7 +55,7 @@

Download and CVS Repository

-

The CVS repository is here. You can download a tarball directly from there.

+

The CVS repository is here. You can download a tarball directly from there.

From mantoniotti at common-lisp.net Thu Mar 10 17:41:06 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 18:41:06 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/enumerations-pkg.lisp Message-ID: <20050310174106.8B3E888663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv24809 Modified Files: enumerations-pkg.lisp Log Message: Fixed spelling in package name and nicknames. Date: Thu Mar 10 18:40:59 2005 Author: mantoniotti Index: enumerations/enumerations-pkg.lisp diff -u enumerations/enumerations-pkg.lisp:1.1.1.1 enumerations/enumerations-pkg.lisp:1.2 --- enumerations/enumerations-pkg.lisp:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/enumerations-pkg.lisp Thu Mar 10 18:40:58 2005 @@ -1,12 +1,12 @@ ;;; -*- Mode: Lisp -*- -(defpackage "ORG.NTUNIOTT.COMMON-LISP.EXTESIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" (:use "COMMON-LISP") +(defpackage "ORG.NTUNIOTT.COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" (:use "COMMON-LISP") (:nicknames "ENUM" "enum" "CL.EXTENSIONS.ENUMERATIONS" "CL.EXT.ENUMERATIONS" - "COMMON-LISP.EXTESIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS") + "COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS") (:export #:enumeration #:enumerationp From mantoniotti at common-lisp.net Thu Mar 10 17:57:33 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 18:57:33 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/current-function.html Message-ID: <20050310175733.1681288663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv25720 Added Files: current-function.html Log Message: Added file. Date: Thu Mar 10 18:57:32 2005 Author: mantoniotti From mantoniotti at common-lisp.net Thu Mar 10 18:07:06 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 19:07:06 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/enumerations.lisp Message-ID: <20050310180706.A567188663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv26545 Modified Files: enumerations.lisp Log Message: Added DEFGENERIC for RESET and some doc strings. Date: Thu Mar 10 19:07:05 2005 Author: mantoniotti Index: enumerations/enumerations.lisp diff -u enumerations/enumerations.lisp:1.1.1.1 enumerations/enumerations.lisp:1.2 --- enumerations/enumerations.lisp:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/enumerations.lisp Thu Mar 10 19:07:05 2005 @@ -45,11 +45,14 @@ (defgeneric has-more-elements-p (x) (:method ((x enumeration)) nil) - (:documentation "Checks whether the enumeration has more elements. Obsolete.")) + (:documentation + "Checks whether the enumeration has more elements. Obsolete.")) (defgeneric has-next-p (x) - (:method ((x enumeration)) nil)) + (:method ((x enumeration)) nil) + (:documentation + "Checks whether the enumeration has more elements. Obsolete.")) (defgeneric next (x &optional default)) @@ -60,7 +63,18 @@ (declare (ignore errorp)) (cerror "Do you want to return the default value specified ~S?" "No specific cursor defined for enumeration ~*~S." default x) - default)) + default) + (:documentation + "Returns the \"current\" element in the enumeration ENUM. +If ERRORP is non-NIL and no \"current\" element is available, then +CURRENT signals an error: either NO-SUCH-ELEMENT or a continuable +error. If ERRORP is NIL and no \"current\" element is available then +DEFAULT is returned.")) + + +(defgeneric reset (enum) + (:documentation + "Resets the enumeration ENUM to the \"initial\" element.")) (defgeneric element-type (x) From mantoniotti at common-lisp.net Thu Mar 10 18:08:50 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 19:08:50 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/enumerations.lisp Message-ID: <20050310180850.E9AC288663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv26578 Modified Files: enumerations.lisp Log Message: Removed dead code. Date: Thu Mar 10 19:08:50 2005 Author: mantoniotti Index: enumerations/enumerations.lisp diff -u enumerations/enumerations.lisp:1.2 enumerations/enumerations.lisp:1.3 --- enumerations/enumerations.lisp:1.2 Thu Mar 10 19:07:05 2005 +++ enumerations/enumerations.lisp Thu Mar 10 19:08:50 2005 @@ -85,17 +85,7 @@ ;;;--------------------------------------------------------------------------- ;;; Implementation. - -#| Wrong and useless -(defmacro next-element (enum - &key (of-type t type-supplied-p) - (default nil default-supplied-p)) - (if default-supplied-p - `(the ,(if type-supplied-p of-type (element-type enum)) - (next ,enum ,default)) - `(the ,(if type-supplied-p of-type (element-type enum)) - (next ,enum)))) -|# +;;; Bare bone general implementation of some methods. (defmethod next ((x enumeration) &optional default) From mantoniotti at common-lisp.net Thu Mar 10 22:08:22 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 23:08:22 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/README Message-ID: <20050310220822.E5A5288663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv7806 Added Files: README Log Message: Added README, COPYING and INSTALLATION files. Date: Thu Mar 10 23:08:14 2005 Author: mantoniotti From mantoniotti at common-lisp.net Thu Mar 10 22:11:42 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 23:11:42 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/INSTALLATION Message-ID: <20050310221142.44B9A8866C@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv7863 Added Files: INSTALLATION Log Message: Added README, COPYING and INSTALLATION files. Date: Thu Mar 10 23:11:41 2005 Author: mantoniotti From mantoniotti at common-lisp.net Thu Mar 10 22:12:01 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 23:12:01 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/COPYING Message-ID: <20050310221201.0A28D8866C@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv7884 Added Files: COPYING Log Message: Added README, COPYING and INSTALLATION files. Date: Thu Mar 10 23:12:00 2005 Author: mantoniotti From mantoniotti at common-lisp.net Thu Mar 10 22:35:04 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 23:35:04 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/reset-function.html Message-ID: <20050310223504.3E43C8866C@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv9663 Added Files: reset-function.html Log Message: Added documentation for RESET. Date: Thu Mar 10 23:35:03 2005 Author: mantoniotti From mantoniotti at common-lisp.net Thu Mar 10 22:40:58 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Thu, 10 Mar 2005 23:40:58 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/list-enumerations.lisp Message-ID: <20050310224058.99D7B88663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv9721 Modified Files: list-enumerations.lisp Log Message: Fixed behavior of RESET, which was incorrect in the presence of START different from 0. Date: Thu Mar 10 23:40:57 2005 Author: mantoniotti Index: enumerations/list-enumerations.lisp diff -u enumerations/list-enumerations.lisp:1.1.1.1 enumerations/list-enumerations.lisp:1.2 --- enumerations/list-enumerations.lisp:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/list-enumerations.lisp Thu Mar 10 23:40:57 2005 @@ -51,7 +51,8 @@ (setf cursor (rest cursor)))))) (defmethod reset ((x list-enumeration)) - (setf (enumeration-cursor x) (enumeration-object x))) + (setf (enumeration-cursor x) + (nthcdr (enumeration-start x) (enumeration-object x)))) (defmethod current ((x list-enumeration) &optional (errorp t) (default nil)) From mantoniotti at common-lisp.net Thu Mar 10 23:04:45 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Fri, 11 Mar 2005 00:04:45 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.eps Message-ID: <20050310230445.5B25788663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11573 Modified Files: enumerations-hierarchy.eps Log Message: Updated hierarchy image. Date: Fri Mar 11 00:04:42 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.eps From mantoniotti at common-lisp.net Thu Mar 10 23:04:59 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Fri, 11 Mar 2005 00:04:59 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.GIF Message-ID: <20050310230459.9C67188663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11639 Modified Files: enumerations-hierarchy.GIF Log Message: Updated hierarchy image. Date: Fri Mar 11 00:04:58 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.GIF From mantoniotti at common-lisp.net Thu Mar 10 23:05:36 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Fri, 11 Mar 2005 00:05:36 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.jpg Message-ID: <20050310230536.E2DEE88663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11738 Modified Files: enumerations-hierarchy.jpg Log Message: Updated hierarchy image. Date: Fri Mar 11 00:05:35 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.jpg From mantoniotti at common-lisp.net Thu Mar 10 23:05:55 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Fri, 11 Mar 2005 00:05:55 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.sxd Message-ID: <20050310230555.931D088663@common-lisp.net> Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11755 Modified Files: enumerations-hierarchy.sxd Log Message: Updated hierarchy image. Date: Fri Mar 11 00:05:54 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.sxd