[gsharp-cvs] CVS gsharp

[crhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv30948

Modified Files:
	gsharp.asd packages.lisp 
Log Message:
Add MusicXML support.  Initial work from Brian Gruber (funded by 
Google's Summer of Code); subsequent development by Christophe Rhodes.

It's far from perfect now, but it needs checking in so that people can 
play with it.  It adds dependencies (puri and cxml) to gsharp; if this 
is a problem, we could make gsharp-mxml a separate system.

Git logs (from git tree at 
<http://www-jcsu.jesus.cam.ac.uk/~csr21/git/gsharp-mxml/.git>) follow:

commit 994cd15ec9f480be41515e699f22e7de1687d0ca
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Mon Sep 24 13:19:41 2007 +0100

    Add a restart to the same-duration case.  It's not good enough, but it allows
    interactive fixing key signatures in the middle of the bar.

commit cdc2098fac5399303e9515bc81ea65020ec8f109
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Wed Sep 19 11:07:28 2007 +0100

    Only add durations from rhythmic elements.

commit acc6cb410cd55dfe59eb30fe608b101a62651ae9
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Wed Sep 19 10:45:12 2007 +0100

    Whoops.  Fix export of notes with no displayed accidentals (from 
overzealous    alteration of CASE -> ECASE

commit dd8d72cac434a8c5a1932aa46db6447e08d9b6ad
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Wed Sep 19 10:41:09 2007 +0100

    Support for longs in MusicXML (import and export)

commit eab440b56b086e766dbd405a3fea44d9976f1a1f
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Wed Sep 19 09:16:07 2007 +0100

    Long ("lunga") patch from HEAD

commit 8cb34a4879ebb4dce06d8b99da761dfa6ad24cf9
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Tue Sep 18 15:43:51 2007 +0100

    Support semi- and sesqui- accidentals

commit 6ba8208d1f8475552a95f35a5e896248110b0efd
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Tue Sep 18 15:25:16 2007 +0100

    Really support breves (and breve rests) -- on output too.

commit a9c36278de0145c12f34123a29815809030b97c2
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Tue Sep 18 15:17:09 2007 +0100

    Slightly batched commit (several changes).

    * support :breve noteheads
    * better stringcase macro (and use it)
    * temporarily hack in "full" = "breve" for Goldsmiths use
    * use ECASE in one or two places to remove compiler warnings.

commit 3a3b980576f0d09ddee4de12f6f7b260932a5552
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Tue Sep 18 15:14:54 2007 +0100

    Slightly friendlier (with friends like this...) Import and Export commands.
    Sets the filepath and name of the buffer on import; sensible export default
    pathname.

commit 7d72a2a4a28f9668271189ebaf862518ada34877
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Tue Sep 18 15:13:31 2007 +0100

    Whitespace

commit b497d6f5111f20f5e8ac9a059578d3caaab1b832
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Mon Sep 17 21:33:29 2007 +0100

    space requirements fix from HEAD

commit 65d173efbcfa78e5edaf1adb9bceb0f7d619002d
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Mon Sep 17 12:04:08 2007 +0100

    Update to Brian Gruber's version of 17th September

commit 91d98d9e2a8d69418edd264ab6293a2f1dbc5a9f
Author: Christophe Rhodes <csr21 at omega.localdomain>
Date:   Mon Sep 17 11:54:53 2007 +0100

    Brian Gruber's patch of August 20th


--- /project/gsharp/cvsroot/gsharp/gsharp.asd	2007/07/11 15:28:13	1.16
+++ /project/gsharp/cvsroot/gsharp/gsharp.asd	2007/10/18 15:02:47	1.17
@@ -20,7 +20,7 @@
 						     :defaults *gsharp-directory*))
 			     collect `(:file ,(pathname-name p) :pathname ,p))))))
 
-(gsharp-defsystem (:gsharp :depends-on (:mcclim :flexichain :midi))
+(gsharp-defsystem (:gsharp :depends-on (:mcclim :flexichain :midi :puri :cxml))
    "packages"
    "utilities"
    "mf"
@@ -38,4 +38,6 @@
    "modes"
    "play"
    "gui"
-   "fontview")
+   "fontview"
+   "Mxml/mxml"
+   "Mxml/commands")
--- /project/gsharp/cvsroot/gsharp/packages.lisp	2007/08/07 11:06:09	1.62
+++ /project/gsharp/cvsroot/gsharp/packages.lisp	2007/10/18 15:02:47	1.63
@@ -177,6 +177,10 @@
 	   #:play-segment
 	   #:play-buffer))
 
+(defpackage :gsharp-mxml
+  (:use :cl :gsharp-buffer :gsharp-measure)
+  (:shadowing-import-from :gsharp-buffer #:rest))
+
 (defpackage :gsharp
   (:use :clim :clim-lisp :gsharp-utilities :esa :esa-buffer :esa-io
 	:gsharp-buffer :gsharp-cursor :gsharp-drawing :gsharp-numbering