- cl-enumeration-cvs@lists.common-lisp.net

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv2281 Modified Files: iterate-enumeration.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2010/12/08 15:51:12 1.1 +++ /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2010/12/30 13:25:38 1.2 @@ -2,6 +2,10 @@ ;;;; iterate-enumeration.lisp -- ;;;; ITERATE extension for ENUMERATIONs. +;;;; +;;;; See file COPYING for copyright and licensing information. + +(require :iterate) (in-package "ITERATE")

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv2113 Modified Files: hash-table-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/hash-table-enumerations.lisp 2005/06/30 17:48:05 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/hash-table-enumerations.lisp 2010/12/30 13:24:23 1.3 @@ -1,10 +1,14 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; hash-table-enumerations.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") -;;;--------------------------------------------------------------------------- -;;; Hash Table Enumerations. + +;;;;=========================================================================== +;;;; Hash Table Enumerations. (defclass hash-table-enumeration (enumeration) ((keysp :reader keysp :initarg :keys) @@ -88,4 +92,4 @@ (reset (underlying-enumeration x))) -;;; end of file -- hash-table-enumerations.lisp -- +;;;; end of file -- hash-table-enumerations.lisp --

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv1974 Modified Files: foreach.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/foreach.lisp 2005/03/09 18:18:02 1.1.1.1 +++ /project/cl-enumeration/cvsroot/enumerations/foreach.lisp 2010/12/30 13:22:52 1.2 @@ -1,10 +1,15 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- + +;;;; foreach.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. + (in-package "ENUM") -;;; foreach -- -;;; Of course it'd be better to do a DEFINE-LOOP-PATH or whatever. But this ain't standard. -;;; Note also that declarations are not properly handled. +;;;; foreach -- +;;;; Of course it'd be better to do a DEFINE-LOOP-PATH or whatever. But this ain't standard. +;;;; Note also that declarations are not properly handled. (defmacro foreach ((var object &rest keys) &body forms-and-clauses) "Simplified iteration construct over an `enumerable' object. @@ -51,4 +56,4 @@ ,@forms-only ; This trick allows us to reuse the full LOOP forms. ))))) -;;; end of file -- foreach.lisp -- +;;;; end of file -- foreach.lisp --

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv1829 Modified Files: enumerations.system Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.system 2005/06/30 17:48:48 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.system 2010/12/30 13:21:46 1.3 @@ -1,4 +1,8 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- + +;;;; enumerations.system -- +;;;; +;;;; See file COPYING for copyright and licensing information. (mk:defsystem "ENUMERATIONS" :components ("enumerations-pkg"

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv1706 Modified Files: enumerations.asd Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/12 21:58:14 1.4 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/30 13:20:48 1.5 @@ -1,6 +1,8 @@ ;;; -*- Mode: Lisp -*- -;;; enumerations.asd -- +;;;; enumerations.asd -- +;;;; +;;;; See file COPYING for copyright and licensing information. (use-package "ASDF")

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv31624 Modified Files: array-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/array-enumerations.lisp 2005/03/09 18:18:02 1.1.1.1 +++ /project/cl-enumeration/cvsroot/enumerations/array-enumerations.lisp 2010/12/30 13:19:56 1.2 @@ -1,11 +1,16 @@ ;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; array-enumerations.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. -;;;--------------------------------------------------------------------------- -;;; Array Table Enumeration. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") -(defclass array-table-enumeration (bounded-enumeration bi-directional-enumeration) +;;;;=========================================================================== +;;;; Array Table Enumeration. + +(defclass array-table-enumeration (bounded-enumeration + bi-directional-enumeration) () (:documentation "The Array Table Enumeration Class.")) @@ -78,4 +83,4 @@ (setf (enumeration-cursor x) (enumeration-start x))) -;;; end of file -- enumerations.lisp -- +;;;; end of file -- array-enumerations.lisp --

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv29551 Modified Files: README Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/README 2005/03/10 22:08:13 1.1 +++ /project/cl-enumeration/cvsroot/enumerations/README 2010/12/30 13:13:07 1.2 @@ -1,6 +1,6 @@ CL-ENUMERATION -Marco Antoniotti 2004-2005 +Marco Antoniotti (c) 2004-2011 The directory containing this file you are reading should contain the code and the documentation of the CL-ENUMERATION package.

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv794 Modified Files: enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2010/12/17 15:34:41 1.4 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2010/12/30 12:02:38 1.5 @@ -1,6 +1,14 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; enumerations.lisp -- +;;;; The main definitions for the CL Enumerations API. +;;;; +;;;; See the file COPYING for copyright and licensing information. + +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") + +;;;;=========================================================================== +;;;; Main definitions. (define-condition no-such-element (error) ((enum :reader no-such-element-enumeration :initarg :enumeration)) @@ -32,8 +40,8 @@ ))) -;;;--------------------------------------------------------------------------- -;;; Protocol. +;;;;=========================================================================== +;;;; Protocol. (defgeneric enumerate (enumerable-item &key start end @@ -83,9 +91,9 @@ "Returns the type of the elements in the underlying data structure.")) -;;;--------------------------------------------------------------------------- -;;; Implementation. -;;; Bare bone general implementation of some methods. +;;;;=========================================================================== +;;;; Implementation. +;;;; Bare bone general implementation of some methods. (defmethod next ((x enumeration) &optional default) @@ -112,8 +120,8 @@ x) -;;;=========================================================================== -;;; Bi-directional enumerations. +;;;;--------------------------------------------------------------------------- +;;;; Bi-directional enumerations. (defclass bi-directional-enumeration (enumeration) () @@ -126,8 +134,8 @@ (:method ((e bi-directional-enumeration)) t)) -;;;--------------------------------------------------------------------------- -;;; Protocol for bi-directional enumerations. +;;;;--------------------------------------------------------------------------- +;;;; Protocol for bi-directional enumerations. (defgeneric previous (x &optional default) (:method ((x enumeration) &optional default) @@ -148,8 +156,8 @@ (t (error 'no-such-element :enumeration x)))) -;;;=========================================================================== -;;; Bounded Enumerations. +;;;;=========================================================================== +;;;; Bounded Enumerations. (defclass bounded-enumeration (enumeration) ((start :accessor enumeration-start :initarg :start) @@ -163,10 +171,10 @@ (:method ((x bounded-enumeration)) nil)) -;;;=========================================================================== -;;; Functional Enumerations. -;;; I.e. enumerations that depend on an "implicit" data structure, -;;; e.g. numbers. +;;;;=========================================================================== +;;;; Functional Enumerations. +;;;; I.e. enumerations that depend on an "implicit" data structure, +;;;; e.g. numbers. (defclass functional-enumeration (enumeration) () @@ -178,4 +186,4 @@ (:method ((x functional-enumeration)) t)) -;;; end of file -- enumerations.lisp -- +;;;; end of file -- enumerations.lisp --

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv28416 Modified Files: list-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/list-enumerations.lisp 2005/03/10 22:40:57 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/list-enumerations.lisp 2010/12/30 11:58:20 1.3 @@ -1,9 +1,14 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; list-enumerations.lisp -- +;;;; Eunmerations for lists. +;;;; +;;;; See file COPYING for copyright and licensing information. -;;;--------------------------------------------------------------------------- -;;; List Enumeration. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") + +;;;;=========================================================================== +;;;; List Enumeration. (defclass list-enumeration (sequence-enumeration) ((end-cons :accessor end-cons)) @@ -62,4 +67,4 @@ default) (t (first (enumeration-cursor x))))) -;;; end of file -- list-enumerations.lisp -- +;;;; end of file -- list-enumerations.lisp --

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv28223 Modified Files: enumerations-pkg.lisp Log Message: Package definition updated alongside the copyright notice. --- /project/cl-enumeration/cvsroot/enumerations/enumerations-pkg.lisp 2005/03/10 17:40:58 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations-pkg.lisp 2010/12/30 11:56:01 1.3 @@ -1,12 +1,24 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(defpackage "ORG.NTUNIOTT.COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" (:use "COMMON-LISP") +;;;; enumeration-pkg.lisp -- +;;;; The ENUMERATIONS package. +;;;; +;;;; See file COPYING for copyright and licensing information. + +(defpackage "IT.UNIMIB.DISCO.MA.COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" + (:use "COMMON-LISP") (:nicknames "ENUM" "enum" "CL.EXTENSIONS.ENUMERATIONS" "CL.EXT.ENUMERATIONS" + "CL.EXTENSIONS.DAC.ENUMERATIONS" + "CL.EXT.DAC.ENUMERATIONS" "COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS") + (:documentation "The CL Extensions Enemeration Package. + +The package containing the API for a generic enumeration protocol in +Common Lisp." (:export #:enumeration #:enumerationp

1 0