comparison implementations/gsharp/methods.lisp @ 163:83023a2668d2

Add constructors for gsharp identifiers

darcs-hash:20071218120203-40ec0-dc2bf7d840f4459d4277b11a70b4b9895d0eaf7d.gz

                  (gsharp-mxml::musicxml-document
                   (%gsharp-identifier-pathname id)))))
     (gsharp::recompute-measures buffer)
     (segment-composition (car (gsharp::segments buffer)))))
 
+;; These may want another file
+(defun gsh-id (pathname)
+  "Creates an identifier for gsh files, based on a pathname"
+  (make-instance 'gsharp-gsh-identifier :path pathname))
+
+(defun mxml-id (pathname)
+  "Creates an identifier for MusicXML files, based on a pathname"
+  (make-instance 'gsharp-mxml-identifier :path pathname))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; These versions may not be useful, but create and return a gsharp
 ;; application frame as well as a composition