hamusic 0.1.2 → 0.1.2.1

raw patch · 3 files changed

+4/−53 lines, 3 filesdep ~basedep ~musicxmlPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, musicxml

API changes (from Hackage documentation)

Files

• doc/Tutorial-hamusic.lt.pdf binary
• hamusic.cabal +4/−6
• script/haskellPP.pl +0/−47

binary file changed (502186 → absent bytes)

@@ -1,9 +1,9 @@ -------------------------------------------------------------------------------
 name:           hamusic
-version:        0.1.2
+version:        0.1.2.1
 author:         Samuel Silva <silva.samuel@alumni.uminho.pt>
 maintainer:     Samuel Silva <silva.samuel@alumni.uminho.pt>
-copyright:      Copyright (c) 2008 Samuel Silva
+copyright:      Copyright (c) 2008-2009 Samuel Silva
 stability:      experimental
 
 synopsis:       Library to handle abstract music
@@ -24,12 +24,10 @@     TODO
     src/Makefile
     src/Script.dtd
-    doc/Tutorial-hamusic.lt.pdf
-    script/haskellPP.pl
 
 library 
-    build-depends: base, containers, process, directory
-    build-depends: HaXml, musicxml
+    build-depends: base < 4, containers, process, directory
+    build-depends: HaXml, musicxml >= 0.1.2
     build-depends: haskore >= 0.0.3, non-negative
 
     extensions: TypeSynonymInstances, FlexibleInstances

@@ -1,47 +0,0 @@-#####################################################################
-# This scripts process Literate Haskell Script itself to be process 
-#   by lhs2TeX with haddock comments. 
-#
-
-use strict;
-use warnings;
-
-my @tag=();
-
-while (<>) {
-    if ($_ =~ /\\begin{(.*)}/) {push @tag => $1;}
-    
-    if ( elem("code",@tag) and /(.*)--(.*)/) {
-        print $1 => '--' => 
-#            "\\begin{verbatim}" => $2 => "\\end{verbatim}" => "\n";
-            process($2) => "\n";
-    }
-    elsif (elem("nocode",@tag)) {;}
-    else {
-        print;
-    }
-    if ($_ =~ /\\end{(.*)}/ and $1 eq $tag[@tag-1]) {pop @tag;}
-}
-
-#####################################################################
-
-#######################################
-sub process{
-    my ($input) = @_;
-    $input =~ s/\\/\$\\backslash\$/g;
-    $input =~ s/\|/\|\|/g;
-    $input =~ s/\@/\@\@/g;
-    $input =~ s/\^//g;
-    $input =~ s/\"/\'/g;
-    $input =~ s/_/\\_/g;
-    return $input;
-}
-
-#######################################
-sub elem {
-    my ($x,@xs) = @_;
-    my $res = 0;
-    for (@xs) {$res=1 if $x eq $_}
-    return $res;
-}
-