Mercurial > hg > amuse

diff implementations/midi/classes.lisp @ 220:de60993404c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move midifile-identifier class definition into classes.lisp Ignore-this: 735724c00ddb97fc6b2d90398fae5b6d darcs-hash:20090728190704-16a00-9787f577e9444e9a15e48a0f80098f28607c3c67.gz committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents 619194befdd4
children bba5e8571b92
line wrap: on
line diff
--- a/implementations/midi/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/midi/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -3,6 +3,13 @@
 (defclass midi-object (amuse-object) ()
   (:documentation "MIDI base class"))
 
+(defclass midifile-identifier (composition-identifier midi-object)
+  ((pathname :initarg :path
+	     :reader midifile-identifier-pathname
+	     :initform 'nil))
+  (:documentation "Identifier for MIDI files, containing pathname
+  information"))
+
 (defclass midi-composition (standard-composition midi-object)
   ((time-signatures :initarg :time-signatures
 		    :initform 'nil