Mercurial > hg > amuse

diff implementations/midi/classes.lisp @ 294:61dfbaea3c0b

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
author j.forth <j.forth@gold.ac.uk>
date Tue, 28 Jul 2009 20:07:04 +0100
parents 4a03a1478c02
children bba5e8571b92
line wrap: on
line diff
--- a/implementations/midi/classes.lisp	Thu Jul 23 11:31:19 2009 +0100
+++ b/implementations/midi/classes.lisp	Tue Jul 28 20:07:04 2009 +0100
@@ -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