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

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

+(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."))