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

Add constructors for gsharp identifiers

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

--- a/implementations/gsharp/methods.lisp	Tue Dec 18 10:44:32 2007 +0000
+++ b/implementations/gsharp/methods.lisp	Tue Dec 18 12:02:03 2007 +0000
@@ -24,6 +24,15 @@
     (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