Mercurial > hg > amuse
changeset 294:61dfbaea3c0b
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 | 908a98b6336e |
| children | ced696bd9871 |
| files | implementations/midi/classes.lisp implementations/midi/midifile-import.lisp |
| diffstat | 2 files changed, 7 insertions(+), 7 deletions(-) [+] |
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
--- a/implementations/midi/midifile-import.lisp Thu Jul 23 11:31:19 2009 +0100 +++ b/implementations/midi/midifile-import.lisp Tue Jul 28 20:07:04 2009 +0100 @@ -1,12 +1,5 @@ (cl:in-package #:amuse-midi) -(defclass midifile-identifier (composition-identifier midi-object) - ((pathname :initarg :path - :reader midifile-identifier-pathname - :initform 'nil)) - (:documentation "Identifier for MIDI files, containing pathname - information")) - (defun midifile-id (pathname) "Creates an identifier for MIDI files, based on a pathname" (make-instance 'midifile-identifier :path pathname))