annotate base/datasets/datasets-file/classes.lisp @ 259:c4e9a7bb9897
change move-to-first-bar to return a constituent, not a list of events
| author |
Jamie Forth <j.forth@gold.ac.uk> |
| date |
Sat, 19 Mar 2011 18:50:24 +0000 |
| parents |
6a3adca16910 |
| children |
|
| rev |
line source |
|
j@251
|
1 (cl:in-package #:amuse-datasets)
|
|
j@251
|
2
|
|
j@251
|
3 (defclass file-dataset-identifier (dataset-identifier) ()
|
|
j@251
|
4 (:documentation "Abstract class for file-based dataset
|
|
j@251
|
5 identifiers."))
|
|
j@251
|
6
|
|
j@251
|
7 (defclass midifile-dataset-identifier (file-dataset-identifier)
|
|
j@251
|
8 ((dataset-path :reader dataset-path
|
|
j@251
|
9 :initarg :dataset-path)
|
|
j@251
|
10 (implementation-package :reader implementation-package
|
|
j@251
|
11 :initarg :implementation-package))
|
|
j@251
|
12 (:documentation "Identifier for dataset of midifiles stored in a
|
|
j@251
|
13 directory."))
|
|
j@251
|
14
|
|
j@251
|
15 (defclass file-dataset (dataset) ()
|
|
j@251
|
16 (:documentation "Abstract class for file-based datasets."))
|
|
j@251
|
17
|
|
j@251
|
18 (defclass midifile-dataset (file-dataset)
|
|
j@251
|
19 ((identifier :initarg :identifier
|
|
j@251
|
20 :reader identifier)
|
|
j@251
|
21 (description :initarg :description
|
|
j@251
|
22 :initform nil
|
|
j@251
|
23 :reader description))
|
|
j@251
|
24 (:documentation "A dataset of midifiles stored in a directory."))
|
