diff base/datasets/datasets-file/classes.lisp @ 251:6a3adca16910

Refactor dataset stuff out of amuse-database-admin, and add midifile-dataset.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/base/datasets/datasets-file/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -0,0 +1,24 @@
+(cl:in-package #:amuse-datasets)
+
+(defclass file-dataset-identifier (dataset-identifier) ()
+  (:documentation "Abstract class for file-based dataset
+  identifiers."))
+
+(defclass midifile-dataset-identifier (file-dataset-identifier)
+  ((dataset-path :reader dataset-path
+	     :initarg :dataset-path)
+   (implementation-package :reader implementation-package
+	    :initarg :implementation-package))
+  (:documentation "Identifier for dataset of midifiles stored in a
+  directory."))
+
+(defclass file-dataset (dataset) ()
+  (:documentation "Abstract class for file-based datasets."))
+
+(defclass midifile-dataset (file-dataset)
+  ((identifier :initarg :identifier
+	       :reader identifier)
+   (description :initarg :description
+		:initform nil
+		:reader description))
+  (:documentation "A dataset of midifiles stored in a directory."))