diff --git a/contrib/gprocess b/contrib/gprocess index dc6d3ae87..9136c66bc 100755 --- a/contrib/gprocess +++ b/contrib/gprocess @@ -11,11 +11,11 @@ # -- use latin1 character set instead of utf8 # -- update macro and variable names (with "gre" prefix) as needed # -- add 'redlines' -# -- +# -- # # v0.1 # Copyright (C) 2008 Richard Chonak -# +# # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -50,7 +50,7 @@ if ($#ARGV < 0) { my $GABCFILE = $ARGV[0]; my $GABCNAME = $GABCFILE; $GABCNAME =~ s/.gabc//; -my $SCORENAME; +my $SCORENAME; my $ANNOTATION; my $REFERENCE; my $OFFICEPART; @@ -122,10 +122,10 @@ foreach (@TEMPLATELINES){ #### WRITE TEX WRAPPER FILE #### open (TEXWRAP,">".$SCOREWRAPTEX) or die "Cannot write file $SCOREWRAPTEX\n"; -print TEXWRAP @TEMPLATELINES; +print TEXWRAP @TEMPLATELINES; close (TEXWRAP); -#### RUN GREGORIO, LATEX, AND KPDF #### +#### RUN LATEX #### my $PDFFILE = $SCOREWRAPTEX; $PDFFILE =~ s/tex$/pdf/; my $AUXFILE = $SCOREWRAPTEX; @@ -137,6 +137,8 @@ $GAUXFILE =~ s/tex$/gaux/; # from a prior run unlink $PDFFILE; +do_cmd("$TEXCOMPILER $SCOREWRAPTEX"); +# Run twice to calculate line heights. do_cmd("$TEXCOMPILER $SCOREWRAPTEX"); unlink $AUXFILE; unlink $GAUXFILE; @@ -157,7 +159,7 @@ sub do_subst { sub do_cmd { my $CMD = $_[0]; #debugging print "Doing command: \n $CMD\n\n"; - system ($CMD) == 0 + system ($CMD) == 0 or die "\n\nSystem command failed: $CMD : $?\n"; }; @@ -168,7 +170,6 @@ __END__ \documentclass[12pt, letterpaper]{article} \usepackage{fullpage} \usepackage[T1]{fontenc} -\usepackage[utf8]{luainputenc} \usepackage{palatino} \usepackage[autocompile,allowdeprecated=false]{gregoriotex} \pagestyle{empty} @@ -180,4 +181,3 @@ __END__ \end{document} -