mgabc_version_LU_prep_hyper.perl

#!/usr/bin/perl


##TODO: integrate this with grocess, replace s/<sc>// with regular expression with <sc\b[^>]*>(.*?)</sc>
##	ensure newline between each entry in main file
##	then start typesetting Psalms :)

use strict;
use IO::File;

my $GABCFILE = $ARGV[0];
my $GABCOUT = $GABCFILE;
my $GABCNAME = $GABCFILE;
$GABCNAME =~ s/.gabc$//;
my $GABCSCORES = $GABCFILE;
$GABCSCORES =~ s/.gabc/scores.txt/;
my $TEXT;
my $FLFILE;
my $FLFILE2;
my $FLTEX;
my $FL1;
my $FL2;
my $CODE;
my $INIT;
my $INIT1;
my $INIT2;
my $INIT3;
my $KEEPSEARCHING = 1;
my $KEEPSEARCHINGFL = 1;
my $INLINE = "";
my $SCCOUNT = 0;
my $TXCOUNT = 0;

my $SCORENAME;

my $ANNOTATION;
my $MODE;
my $REFERENCE;
my $OFFICEPART;
my $NAMEFOUND = 0;


my $GABCFILES = $GABCFILE;
$GABCFILES =~ s/.gabc/-full.tex/;

my $OUTDIR = "/iomega/CP/gabc/LU";
my $OUTDIRDAY = "/iomega/CP/day/LU";
my $OUTDIRTEX = "/iomega/CP/tex/LU";
my $OUTDIRPDF = "/iomega/CP/pdf/LU";

#Fancy first initial character
my $FF = 1;

##


##


## Remove previous temp file
system ("rm ./temp.tex");

## Create new temp file
my $TEMPFILE = "./temp.tex";

## insert headers to temp
open (OUTPUTTEMP,">>".$TEMPFILE);

## Read in the template
my @TEMPLATELINES;

@TEMPLATELINES = <DATA>;

## Name of the Score
open (GABC,"<".$GABCFILE) or die "No such file: $GABCFILE\n";
$INLINE = <GABC>;
if ($INLINE =~ /^name/) {
    $SCORENAME = $INLINE;
    $SCORENAME =~ s/^.*:\s*//;
    $SCORENAME =~ s/\s*;\s*$//;
}



&do_subst ("XXXX-GABCFILES-XXXX", $GABCFILES);
&do_subst ("XXXX-SCORENAME-XXXX", $SCORENAME);

## Create main wrapper
my $WRAPPER = $GABCFILE;
$WRAPPER =~ s/.gabc$/-main.tex/;

my $PDFOUTPUT = $WRAPPER;
$PDFOUTPUT =~ s/tex$/pdf/;
my $PDFSHORT = $PDFOUTPUT;
$PDFSHORT =~ s/-main.pdf/pdf/;

open (TEXWRAP,">".$WRAPPER) or die "Cannot write file $WRAPPER\n";
print TEXWRAP @TEMPLATELINES;
close (TEXWRAP);


## Split original gabc, add references in temp
open (GABC,"<".$GABCFILE) or die "No such file: $GABCFILE\n";
open (SCORES,">>".$GABCSCORES);
while ($KEEPSEARCHING == 1 && ($INLINE = <GABC>)) {
# if inline = tx or sc
  if ($INLINE =~ m/<sc>(.*?)<\/sc>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<sc>//;
  $TEXT =~ s/<\/sc>//;
  $SCCOUNT = $SCCOUNT + 1;
  $GABCOUT =~ s/.gabc$/$SCCOUNT.gabc/;
  print "$GABCOUT\n";
  print "$INLINE";
  print "$INLINE";
#  print "$SCCOUNT\n";
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (OUTPUT,">".$GABCOUT);
  print OUTPUT "name:;\n";
#  print OUTPUT "centering-scheme:english;\n";
  print OUTPUT "%%\n";
  print OUTPUT "$TEXT";
  print SCORES "$SCCOUNT: $TEXT";
  system ("gregorio $GABCOUT");
  print "The scorename is $GABCOUT\n";
#  system ("/home/ahinkley/gprocess_eps_quiet $GABCNAME$SCCOUNT 4.5");
  $GABCOUT =~ s/.gabc$/.tex/;
  print OUTPUTTEMP "\\includescore\{$GABCOUT\}\n";
  $INLINE =~ s/<sc>(.*?)<\/sc>//;
  close (OUTPUT);
  close (OUTPUTTEMP);

  $GABCOUT = $GABCFILE;

  }

#g3 gabc with {init1}{init2}{commentary}
  if ($INLINE =~ m/<g3>(.*?)<\/g3>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<g3>//;
  $TEXT =~ s/<\/g3>.*//;
  $INIT = $INLINE;
  $INIT =~ s/.*<\/g3>//;
  $INIT =~ s/[^}]*$//;
  $INIT1 = $INIT;
  $INIT1 =~ s/^{//;
  $INIT1 =~ s/}.*//;
  $INIT2 = $INIT;
  $INIT2 =~ s/^[^}]*}{//;
  $INIT2 =~ s/}{[^}]*}$//;
  $INIT3 = $INIT;
  $INIT3 =~ s/.*}{//;
  $INIT3 =~ s/}$//;
  $SCCOUNT = $SCCOUNT + 1;
  $GABCOUT =~ s/.gabc$/$SCCOUNT.gabc/;
  print "$GABCOUT\n";
  print "$INLINE";
#  print "$SCCOUNT\n";
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (OUTPUT,">".$GABCOUT);
  print OUTPUT "name:;\n";
  print OUTPUT "annotation:$INIT1;\n";
  print OUTPUT "mode:$INIT2;\n";
  print OUTPUT "commentary:$INIT3;\n";
  print OUTPUT "%%\n";
  print OUTPUT "$TEXT";
  print SCORES "$SCCOUNT: $TEXT";
#  system ("gregorio $GABCOUT");
#  system ("/home/ahinkley/gprocess_eps_quiet $GABCNAME$SCCOUNT 4.5");
  $GABCOUT =~ s/.gabc$/.tex/;
  print OUTPUTTEMP "\\ginit$INIT\n";
#  print OUTPUTTEMP "\\ginit1\{$INIT1\}\n";
#  print OUTPUTTEMP "\\ginit2\{$INIT2\}\n";
#  print OUTPUTTEMP "\\scrf\{$INIT3\}\n";
  print OUTPUTTEMP "\\ginit{$INIT1}{$INIT2}{$INIT3}\n";
  print OUTPUTTEMP "\\includescore\{$GABCOUT\}\n";
  $INLINE =~ s/<g3>(.*?)<\/g3>//;
  close (OUTPUT);
  close (OUTPUTTEMP);

  $GABCOUT = $GABCFILE;

  }
#g3e gabc with {init1}{init2}{commentary} and English spacing
  if ($INLINE =~ m/<g3e>(.*?)<\/g3e>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<g3e>//;
  $TEXT =~ s/<\/g3e>.*//;
  $INIT = $INLINE;
  $INIT =~ s/.*<\/g3e>//;
  $INIT =~ s/[^}]*$//;
  $INIT1 = $INIT;
  $INIT1 =~ s/^{//;
  $INIT1 =~ s/}.*//;
  $INIT2 = $INIT;
  $INIT2 =~ s/^[^}]*}{//;
  $INIT2 =~ s/}{[^}]*}$//;
  $INIT3 = $INIT;
  $INIT3 =~ s/.*}{//;
  $INIT3 =~ s/}$//;
  $SCCOUNT = $SCCOUNT + 1;
  $GABCOUT =~ s/.gabc$/$SCCOUNT.gabc/;
  print "$GABCOUT\n";
  print "$INLINE";
#  print "$SCCOUNT\n";
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (OUTPUT,">".$GABCOUT);
  print OUTPUT "name:;\n";
  print OUTPUT "centering-scheme english;\n";
  print OUTPUT "%%\n";
  print OUTPUT "$TEXT";
  print SCORES "$SCCOUNT: $TEXT";
#  system ("gregorio $GABCOUT");
#  system ("/home/ahinkley/gprocess_eps_quiet $GABCNAME$SCCOUNT 4.5");
  $GABCOUT =~ s/.gabc$/.tex/;
  print OUTPUTTEMP "\\ginit{$INIT1}{$INIT2}{$INIT3}\n";
#  print OUTPUTTEMP "\\gresetfirstlineaboveinitial{\\small \\textsc{\\textbf{$INIT1}}}{\\small \\textsc{\\textbf{$INIT1}}}\n";
#  print OUTPUTTEMP "\\setsecondannotation{\\small \\textsc{\\textbf{$INIT2}}}\n";
#  print OUTPUTTEMP "\\commentary\{$INIT3\}\n";
  print OUTPUTTEMP "\\includescore\{$GABCOUT\}\n";
  $INLINE =~ s/<g3e>(.*?)<\/g3e>//;
  close (OUTPUT);
  close (OUTPUTTEMP);

  $GABCOUT = $GABCFILE;

  }


##sl - Score with Latin spacing, empty gabc headers.
open (GABC,"<".$GABCFILE) or die "No such file: $GABCFILE\n";
open (SCORES,">>".$GABCSCORES);
while ($KEEPSEARCHING == 1 && ($INLINE = <GABC>)) {
# if inline = tx or sc
  if ($INLINE =~ m/<sl>(.*?)<\/sl>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<sl>//;
  $TEXT =~ s/<\/sl>//;
  $SCCOUNT = $SCCOUNT + 1;
  $GABCOUT =~ s/.gabc$/$SCCOUNT.gabc/;
  print "$GABCOUT\n";
  print "$INLINE";
#  print "$SCCOUNT\n";
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (OUTPUT,">".$GABCOUT);
  print OUTPUT "name:;\n";
  print OUTPUT "annotation:;\n";
  print OUTPUT "mode:;\n";
  print OUTPUT "commentary:;\n";
  print OUTPUT "%%\n";
  print OUTPUT "$TEXT";
  print SCORES "$SCCOUNT: $TEXT";
  system ("gregorio $GABCOUT");
#  system ("/home/ahinkley/gprocess_eps_quiet $GABCNAME$SCCOUNT 4.5");
  $GABCOUT =~ s/.gabc$/.tex/;
#  print OUTPUTTEMP "\\ginit{}{}{}\n";
  print OUTPUTTEMP "\\gnoinit\n";
  print OUTPUTTEMP "\\includescore\{$GABCOUT\}";
  $INLINE =~ s/<sl>(.*?)<\/sl>//;
  close (OUTPUT);
  close (OUTPUTTEMP);

  $GABCOUT = $GABCFILE;

  }


#ft tag:	Include tex file
if ($INLINE =~ m/<ft>(.*?)<\/ft>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<ft>//;
  $TEXT =~ s/<\/ft>//;
# Not quite sure why I had to add this. Maybe a fault with gpr2?
  $TEXT =~ s/\n//;
#If there is an output directory:
#  system("cp $GABCOUT $OUTDIR");
#  system("echo XXXX $CODE\_-\_");
#  system("echo XXXX $TEXT $CODE\_-\_$TEXT");
#  system("echo XXXX $OUTDIR/$CODE\_-\_");
#  system("echo XXXX $CODE\_-\_$TEXT $OUTDIR");
#  system("echo XXXX $OUTDIR/$CODE\_-\_$TEXT");
#  system("echo XXXX cp $TEXT $OUTDIR/$CODE\_-\_$TEXT");
#  system("cp $TEXT $CODE\_-\_$TEXT");
#  system("ls -l $TEXT $CODE\_-\_$TEXT");
#  system("echo ");
#  system("cp $TEXT $OUTDIR/$CODE\_-\_$TEXT");
  system("cp $TEXT $OUTDIR");
  $TEXT =~ s/.tex$//;
  open (OUTPUTTEMP,">>".$TEMPFILE);
  print OUTPUTTEMP "\\input{$TEXT}\n";
  $INLINE =~ s/<ft>(.*?)<\/ft>//;
  close (OUTPUTTEMP);
  }

#fi tag:	Introits, Kyrie
#		Use fancy initial

if ($INLINE =~ m/<fi>(.*?)<\/fi>/) {
  $FF = 1;
  $TEXT = $INLINE;
  $TEXT =~ s/<fi>//;
  $TEXT =~ s/<\/fi>//;
  $TEXT =~ s/\n//;
  $KEEPSEARCHINGFL = 1;
  $FLFILE = $TEXT;
  $FLTEX = $FLFILE;
  $FLTEX =~ s/.gabc$/.tex/;
  #system("gregorio $TEXT");
  
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (GABCFL,"<".$TEXT) or die "No such file: $TEXT\n";
  while ($KEEPSEARCHINGFL == 1 && ($INLINE = <GABCFL>)) {
    if ($INLINE =~ /^name/) {
      $SCORENAME = $INLINE;
      $SCORENAME =~ s/^.*:\s*//;
      $SCORENAME =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^annotation/) {
      $ANNOTATION = $INLINE;
      $ANNOTATION =~ s/^.*:\s*//;
      $ANNOTATION =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^mode/) {
      $MODE = $INLINE;
      $MODE =~ s/^.*:\s*//;
      $MODE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^commentary/) {
      $REFERENCE = $INLINE;
      $REFERENCE =~ s/^.*:\s*//;
      $REFERENCE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^office-part/) {
      $OFFICEPART = $INLINE;
      $OFFICEPART =~ s/^.*:\s*//;
      $OFFICEPART =~ s/\s*;\s*$//;
    };
  if ($INLINE =~ /^%%/) { $KEEPSEARCHINGFL = 0; }

  }
  close (GABCFL);

  print OUTPUTTEMP "\\renewcommand*\\initfamily{\\usefont{U}{Acorn}{xl}{n}}\n";
  print OUTPUTTEMP "\\gresetfirstlineaboveinitial{\\small \\textsc{\\textbf{$ANNOTATION}}}{\\small \\textsc{\\textbf{$ANNOTATION}}}\n";
  print OUTPUTTEMP "\\setsecondannotation{\\small \\textsc{\\textbf{$MODE}}}\n";
  print OUTPUTTEMP "\\nopagebreak\n";
  print OUTPUTTEMP "\\commentary{{\\small \\red{\\emph{$REFERENCE}}}}\\nopagebreak\n";
  print OUTPUTTEMP "\\includescore{$FLTEX}\n";
  if ($FF == 1) {
#    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\pgothfamily}\n";
    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\normalfont}\n";
    $FF = 0;
  }

  close (OUTPUTTEMP);
  print "The scorename is $SCORENAME\n";
  print "The scorename is $TEXT\n";
#  print "The code is $CODE\n";
#  print ("cp $TEXT $CODE\_-\_$TEXT");
#If there is an output directory:
#  system("cp $TEXT $OUTDIR/$CODE\_-\_$TEXT");
  system("cp $TEXT $OUTDIR");
#  system("echo ");
#  system("echo $TEXT $OUTDIR/$CODE\_-\_$TEXT\n");
#  system("echo ");
  $ANNOTATION = "";
  $MODE = "";
  $REFERENCE = "";
}








#fj tag:	Use Gothic initial

if ($INLINE =~ m/<fj>(.*?)<\/fj>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<fj>//;
  $TEXT =~ s/<\/fj>//;
  $TEXT =~ s/\n//;
  $KEEPSEARCHINGFL = 1;
  $FLFILE = $TEXT;
  $FLTEX = $FLFILE;
  $FLTEX =~ s/.gabc$/.tex/;
  #system("gregorio $TEXT");
  
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (GABCFL,"<".$TEXT) or die "No such file: $TEXT\n";
  while ($KEEPSEARCHINGFL == 1 && ($INLINE = <GABCFL>)) {
    if ($INLINE =~ /^name/) {
      $SCORENAME = $INLINE;
      $SCORENAME =~ s/^.*:\s*//;
      $SCORENAME =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^annotation/) {
      $ANNOTATION = $INLINE;
      $ANNOTATION =~ s/^.*:\s*//;
      $ANNOTATION =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^mode/) {
      $MODE = $INLINE;
      $MODE =~ s/^.*:\s*//;
      $MODE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^commentary/) {
      $REFERENCE = $INLINE;
      $REFERENCE =~ s/^.*:\s*//;
      $REFERENCE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^office-part/) {
      $OFFICEPART = $INLINE;
      $OFFICEPART =~ s/^.*:\s*//;
      $OFFICEPART =~ s/\s*;\s*$//;
    };
  if ($INLINE =~ /^%%/) { $KEEPSEARCHINGFL = 0; }

  }
  close (GABCFL);

  print OUTPUTTEMP "\\renewcommand*\\initfamily{\\pgothfamily}\n";
  print OUTPUTTEMP "\\gresetfirstlineaboveinitial{\\small \\textsc{\\textbf{$ANNOTATION}}}{\\small \\textsc{\\textbf{$ANNOTATION}}}\n";
  print OUTPUTTEMP "\\setsecondannotation{\\small \\textsc{\\textbf{$MODE}}}\n";
  print OUTPUTTEMP "\\nopagebreak\n";
  print OUTPUTTEMP "\\commentary{{\\small \\red{\\emph{$REFERENCE}}}}\\nopagebreak\n";
  print OUTPUTTEMP "\\includescore{$FLTEX}\n";
#  if ($FF == 1) {
#    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\pgothfamily}\n";
#    $FF = 0;

  close (OUTPUTTEMP);
  print "The scorename is $SCORENAME\n";
#  print "The code is $CODE\n";
#  print ("cp $TEXT $CODE\_-\_$TEXT");
#If there is an output directory:
#  system("cp $TEXT $OUTDIR/$CODE\_-\_$TEXT");
  system("cp $TEXT $OUTDIR");
#  system("echo ");
#  system("echo $TEXT $OUTDIR/$CODE\_-\_$TEXT\n");
#  system("echo ");
  $ANNOTATION = "";
  $MODE = "";
  $REFERENCE = "";
}







#ff tag:	Include file

if ($INLINE =~ m/<ff>(.*?)<\/ff>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<ff>//;
  $TEXT =~ s/<\/ff>//;
  $TEXT =~ s/\n//;
  $KEEPSEARCHINGFL = 1;
  $FLFILE = $TEXT;
  $FLFILE2 = $TEXT;
  $FLFILE2 =~ s/_/ /g;
  $FLTEX = $FLFILE;
  $FLTEX =~ s/.gabc$/.tex/;
  #system("gregorio $TEXT");
  print("$TEXT");
  
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (GABCFL,"<".$TEXT) or die "No such file: $TEXT\n";
  while ($KEEPSEARCHINGFL == 1 && ($INLINE = <GABCFL>)) {
    if ($INLINE =~ /^name/) {
      $SCORENAME = $INLINE;
      $SCORENAME =~ s/^.*:\s*//;
      $SCORENAME =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^annotation/) {
      $ANNOTATION = $INLINE;
      $ANNOTATION =~ s/^.*:\s*//;
      $ANNOTATION =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^mode/) {
      $MODE = $INLINE;
      $MODE =~ s/^.*:\s*//;
      $MODE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^commentary/) {
      $REFERENCE = $INLINE;
      $REFERENCE =~ s/^.*:\s*//;
      $REFERENCE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^office-part/) {
      $OFFICEPART = $INLINE;
      $OFFICEPART =~ s/^.*:\s*//;
      $OFFICEPART =~ s/\s*;\s*$//;
    };
  if ($INLINE =~ /^%%/) { $KEEPSEARCHINGFL = 0; }

  }
  close (GABCFL);

#  print OUTPUTTEMP "\\gresetfirstlineaboveinitial{\\small \\textsc{\\textbf{$ANNOTATION}}}{\\small \\textsc{\\textbf{$ANNOTATION}}}\n";
#  print OUTPUTTEMP "\\setsecondannotation{\\small \\textsc{\\textbf{$MODE}}}\n";
#  print OUTPUTTEMP "\\nopagebreak\n";
#  print OUTPUTTEMP "\\commentary{{\\small \\red{\\emph{$REFERENCE}}}}\\nopagebreak\n";
  print OUTPUTTEMP "\\ginit{$ANNOTATION}{$MODE}{$REFERENCE}\n";
  print OUTPUTTEMP "\\hypertarget{$FLFILE}{} \\label{$FLFILE2}\n";
  print OUTPUTTEMP "\\index{All}{$SCORENAME} \\label{$SCORENAME}\n";
  print OUTPUTTEMP "\\index{$OFFICEPART}{$SCORENAME}\n";
  print OUTPUTTEMP "\\includescore{$FLTEX}\n";
  if ($FF == 1) {
#    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\pgothfamily}\n";
    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\normalfont}\n";
    $FF = 0;
  }

  close (OUTPUTTEMP);
  print "\nThe scorename is $SCORENAME\n";
  print "The scorename is $TEXT\n";
#  print "The code is $CODE\n";
#  print ("cp $TEXT $CODE\_-\_$TEXT");
#If there is an output directory:
#  system("cp $TEXT $OUTDIR/$CODE\_-\_$TEXT");
  #system("cp $TEXT $OUTDIR");
#  system("echo ");
#  system("echo $TEXT $OUTDIR/$CODE\_-\_$TEXT\n");
#  system("echo ");
  $ANNOTATION = "";
  $MODE = "";
  $REFERENCE = "";
}

#fa tag:	Antiphon with additional annotation above Initial
if ($INLINE =~ m/<fa>(.*?)<\/fa>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<fa>//;
  $TEXT =~ s/<\/fa>.*//;
  $TEXT =~ s/\n//;
  $KEEPSEARCHINGFL = 1;
  $FLFILE = $TEXT;
  $FLTEX = $FLFILE;
  $FL1 = $INLINE;
  $FL1 =~ s/<fa>.*<\/fa>//;
  $FL1 =~ s/\n//;
  $FLTEX =~ s/.gabc$/.tex/;
  #system("gregorio $TEXT");
  
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (GABCFL,"<".$TEXT) or die "No such file: $TEXT\n";
  while ($KEEPSEARCHINGFL == 1 && ($INLINE = <GABCFL>)) {
    if ($INLINE =~ /^name/) {
      $SCORENAME = $INLINE;
      $SCORENAME =~ s/^.*:\s*//;
      $SCORENAME =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^annotation/) {
      $ANNOTATION = $INLINE;
      $ANNOTATION =~ s/^.*:\s*//;
      $ANNOTATION =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^mode/) {
      $MODE = $INLINE;
      $MODE =~ s/^.*:\s*//;
      $MODE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^commentary/) {
      $REFERENCE = $INLINE;
      $REFERENCE =~ s/^.*:\s*//;
      $REFERENCE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^office-part/) {
      $OFFICEPART = $INLINE;
      $OFFICEPART =~ s/^.*:\s*//;
      $OFFICEPART =~ s/\s*;\s*$//;
    };
  if ($INLINE =~ /^%%/) { $KEEPSEARCHINGFL = 0; }

  }
  close (GABCFL);

#  print OUTPUTTEMP "\\gresetfirstlineaboveinitial{\\small \\textsc{\\textbf{$FL1 $ANNOTATION}}}{\\small \\textsc{\\textbf{$ANNOTATION}}}\n";
#  print OUTPUTTEMP "\\setsecondannotation{\\small \\textsc{\\textbf{$MODE}}}\n";
#  print OUTPUTTEMP "\\commentary{{\\small \\red{\\emph{$REFERENCE}}}}\\nopagebreak\n";
  print OUTPUTTEMP "\\ginit{$FL1 $ANNOTATION}{$MODE}{$REFERENCE}\n";
  print OUTPUTTEMP "\\includescore{$FLTEX}\n";
  print OUTPUTTEMP "\\hypertarget{$FLFILE}{}\n";
  print OUTPUTTEMP "\\index{$SCORENAME}\n";
#  print OUTPUTTEMP "\\index[$OFFICEPART]{$SCORENAME}\n";
  if ($FF == 1) {
#    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\pgothfamily}\n";
    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\normalfont}\n";
    $FF = 0;
  }

  close (OUTPUTTEMP);
  print "The scorename is $SCORENAME\n";
#  print "The code is $CODE\n";
#  print ("cp $TEXT $CODE\_-\_$TEXT");
#If there is an output directory:
#  system("cp $TEXT $OUTDIR/$CODE\_-\_$TEXT");
  #system("cp $TEXT $OUTDIR");
  $ANNOTATION = "";
  $MODE = "";
  $REFERENCE = "";
}

####
# fb tag: Override both lines of annotation.
####
if ($INLINE =~ m/<fb>(.*?)<\/fb>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<fb>//;
  $TEXT =~ s/<\/fb>.*//;
  $TEXT =~ s/\n//;
  $KEEPSEARCHINGFL = 1;
  $FLFILE = $TEXT;
  $FLTEX = $FLFILE;
  $FL1 = $INLINE;
  $FL2 = $INLINE;
  $FL1 =~ s/<fb>.*<\/fb>//;
  $FL1 =~ s/\%.*//;
  $FL1 =~ s/\n//;
  $FL2 =~ s/.*\%//;
  $FL2 =~ s/\n//;


  $FLTEX =~ s/.gabc$/.tex/;
  #system("gregorio $TEXT");
  
  open (OUTPUTTEMP,">>".$TEMPFILE);
  open (GABCFL,"<".$TEXT) or die "No such file: $TEXT\n";
  while ($KEEPSEARCHINGFL == 1 && ($INLINE = <GABCFL>)) {
    if ($INLINE =~ /^name/) {
      $SCORENAME = $INLINE;
      $SCORENAME =~ s/^.*:\s*//;
      $SCORENAME =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^annotation/) {
      $ANNOTATION = $INLINE;
      $ANNOTATION =~ s/^.*:\s*//;
      $ANNOTATION =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^mode/) {
      $MODE = $INLINE;
      $MODE =~ s/^.*:\s*//;
      $MODE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^commentary/) {
      $REFERENCE = $INLINE;
      $REFERENCE =~ s/^.*:\s*//;
      $REFERENCE =~ s/\s*;\s*$//;
    };
    if ($INLINE =~ /^office-part/) {
      $OFFICEPART = $INLINE;
      $OFFICEPART =~ s/^.*:\s*//;
      $OFFICEPART =~ s/\s*;\s*$//;
    };
  if ($INLINE =~ /^%%/) { $KEEPSEARCHINGFL = 0; }

  }
  close (GABCFL);

#  print OUTPUTTEMP "\\gresetfirstlineaboveinitial{\\small \\textsc{\\textbf{$FL1 $ANNOTATION}}}{\\small \\textsc{\\textbf{$ANNOTATION}}}\n";
#  print OUTPUTTEMP "\\setsecondannotation{\\small \\textsc{\\textbf{$MODE}}}\n";
#  print OUTPUTTEMP "\\commentary{{\\small \\red{\\emph{$REFERENCE}}}}\\nopagebreak\n";
#  print OUTPUTTEMP "\\includescore{$FLTEX}\n";
#  print OUTPUTTEMP "\\hypertarget{$FLFILE}{}\n";
#  print OUTPUTTEMP "\\index{$SCORENAME}\n";
  print OUTPUTTEMP "\\ginit{$FL1}{$FL2}{$REFERENCE}\n";
  print OUTPUTTEMP "\\includescore{$FLTEX}\n";
  print OUTPUTTEMP "\\hypertarget{$FLFILE}{}\n";
  print OUTPUTTEMP "\\index{$SCORENAME}\n";
#  print OUTPUTTEMP "\\index[$OFFICEPART]{$SCORENAME}\n";
  if ($FF == 1) {
#    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\pgothfamily}\n";
    print OUTPUTTEMP "\\renewcommand*\\initfamily{\\normalfont}\n";
    $FF = 0;
  }

  close (OUTPUTTEMP);
  print "The scorename is $SCORENAME\n";
#  print "The code is $CODE\n";
#  print ("cp $TEXT $CODE\_-\_$TEXT");
#If there is an output directory:
#  system("cp $TEXT $OUTDIR/$CODE\_-\_$TEXT");
  #system("cp $TEXT $OUTDIR");
  $ANNOTATION = "";
  $MODE = "";
  $REFERENCE = "";
}

###
###

if ($INLINE =~ m/<tx>(.*?)<\/tx>/) {
  $TEXT = $INLINE;
  $TEXT =~ s/<tx>//;
  $TEXT =~ s/<\/tx>//;
  open (OUTPUTTEMP,">>".$TEMPFILE);
  print OUTPUTTEMP "$TEXT\n";
  $INLINE =~ s/<tx>(.*?)<\/tx>//;
  close (OUTPUTTEMP);
  }
###No tag
if ($INLINE =~ m/[^<]/) {
  $TEXT = $INLINE;
  open (OUTPUTTEMP,">>".$TEMPFILE);
  print OUTPUTTEMP "$TEXT\n";
  $INLINE =~ s/(.*?)//;
  close (OUTPUTTEMP);
  }

#  if ($INLINE =~ /^%%/) { $KEEPSEARCHING = 0; }
}
#system ("gprocess_lua $GABCFILE");

close (GABC);

open (TEXWRAP,">".$WRAPPER) or die "Cannot write file $WRAPPER\n";
print TEXWRAP @TEMPLATELINES;
close (TEXWRAP);

##Rename temp file

system("mv $TEMPFILE $GABCFILES");
#system("lualatex $WRAPPER");
#system("mv $PDFOUTPUT $PDFSHORT");
#system("xpdf -g 900x250+0+475 -z 150 -cont $PDFSHORT");
#system("cp $PDFSHORT $OUTDIRPDF");
#system("cp $GABCFILE $OUTDIRDAY");

## Make substitution in template
sub do_subst {
  my $TAG = $_[0];
  my $VAL = $_[1];

  foreach (@TEMPLATELINES) {
     s/$TAG/$VAL/g;
  }
};
}


#  THE LINES AFTER THIS "END" TAG ARE A TEMPLATE FOR THE TEX FILE TO BE GENERATED
__END__

\documentclass[11pt,twoside]{book}
\usepackage{fullpage}
\usepackage{palatino}
\usepackage{pgothic}
\usepackage{venturisold}
%\usepackage{tgtermes}
\usepackage{color}
\usepackage[T1]{fontenc}
\usepackage[utf8]{luainputenc}
\usepackage{gregoriotex}
\usepackage{gregoriosyms}
\usepackage{longtable}
%\usepackage{fancyhdr}
%\usepackage{parskip}
%\usepackage{changemargin}
\usepackage{titlesec}
\usepackage{hyperref}
%\usepackage{showframe}

\usepackage{multind}
\makeindex{All}
\makeindex{occasion}
\makeindex{Introit}
\makeindex{Gradual}
\makeindex{Alleluia}
\makeindex{Sequence}
\makeindex{Tract}
\makeindex{Offertory}
\makeindex{Communion}
\makeindex{Antiphon}
\makeindex{Hymn}
\makeindex{Responsory}



%\usepackage[noautomatic,nonewpage]{imakeidx}
%\usepackage[indentunit=8pt,rule=.5pt,columns=2]{idxlayout}
%\makeindex{name=All,title=All,intoc}
%\makeindex{name=occasion,title=Feasts,intoc}
%\makeindex{name=Introit,title=Introitus.,intoc}
%%\indexsetup{level=\section,toclevel=section,noclearpage}
%\makeindex{name=Gradual,title=Gradualia.,intoc}
%\makeindex{name=Alleluia,title=Versus Alleluiatici,intoc}
%\makeindex{name=Sequence,title=Sequentiae.,intoc}
%\makeindex{name=Tract,title=Tractus.,intoc}
%\makeindex{name=Offertory,title=Offertoria.,intoc}
%\makeindex{name=Communion,title=Communiones.,intoc}
%\makeindex{name=Antiphon,title=Antiphonae.,intoc}
%\makeindex{name=Hymn,title=Hymni.,intoc}
%\makeindex{name=Responsory,title=Responsoria.,intoc}
%\makeindex[name=,title=Varia.,intoc}
%\makeindex[name= ,title= ,intoc}

%\pagestyle{empty}
%\usepackage[margin=0.75in, paperwidth=6in, paperheight=9in]{geometry}
%\setlength{\paperwidth}{6.0in} 
%\setlength{\paperheight}{9.0in}
%\setlength{\textwidth}{4.5in}

%%Hattip: Br. Innocent Smith, OP.
%%Page Size (rev. 11/8/2011) 5x10 [cf. golden section] -- rev: August 18, 2012: bottom from .5 to .4 in an attempt to reduce the page numbers -- to save a few more pages, you could also revise the \newpage commands in the melody catalogue to account for the greater margins
\usepackage[inner=0.65in, outer=0.35in, top=0.5in, bottom=0.4in, papersize={6in,9in}, head=12pt, headheight=30pt, headsep=5pt]{geometry}

%%Hattip: Br. Innocent Smith, OP.
%%Header (rev. 4/11/2011)
\usepackage{fancyhdr}
 \pagestyle{fancy}
\renewcommand{\chaptermark}[1]{\markboth{#1}{}}
\renewcommand{\sectionmark}[1]{\markright{#1}{}}
 \fancyhf{}
\fancyhead[LE,RO]{\thepage}
\fancyhead[CE]{\leftmark}
\fancyhead[CO]{\rightmark}
 \fancypagestyle{plain}{ %
\fancyhf{} % remove everything
\renewcommand{\headrulewidth}{0pt} % remove lines as well
\renewcommand{\footrulewidth}{0pt}}






\titleformat{\section}{\color{red}\normalfont\huge\bfseries\filcenter}{\color{red}\thesection}{1em}{}
\titleformat{\subsection}{\color{red}\normalfont\Large\bfseries\center}{\color{red}\thesubsection}{1em}{}
\titleformat{\subsubsection}{\color{red}\normalfont\large\bfseries\center}{\color{red}\thesubsubsection}{1em}{}

%\makeindex

\widowpenalty=10000
%\clubpenalty=5000


\begin{document}
%\newcommand{\black}[1]{\textcolor{black}{#1}}
\newcommand{\cent}[1]{\begin{center}{#1}\end{center}}
\newcommand{\scrf}[1]{\commentary{{\small \red{\emph{#1}}}}}
\newcommand{\code}[1]{}
\newcommand{\bigline}{\line(1,0){450}}
%\newcommand{\redit}[1]{\red{\it #1}}
\newcommand*{\red}[1]{\textcolor{red}{#1}}
\newcommand*{\redit}[1]{\textcolor{red}{\it #1}}

%\newcommand{vts}[1]{\fontfamily{venturisold}\selectfont\textcolor{red} #1}

\newcommand{\ginit}[3]{\gresetfirstlineaboveinitial{\small \red{\textbf{#1}}}{\small \red{\textbf{#1}}} \setsecondannotation{\small \red{\textbf{#2}}}{\commentary{{\small \red{\emph{#3}}}}}}
\newcommand{\gnoinit}{\gresetfirstlineaboveinitial{}{} \setsecondannotation{} \commentary{}}
\newcommand{\occasion}[4]{\section*{\bf #3}%
\addcontentsline{toc}{section}{#4}%
\index{occasion}{#4}%
\hypertarget{#2}{}%
\nopagebreak%
\vspace{-10pt}%
\begin{center}\textcolor{red}{(#1)}\end{center}%
\vspace{-10pt}%
\nopagebreak%
}
%Need to distinquish here between parts - Temporum, Sanctorum, Votivae, Kyriale
% Add #5 later. #5 being index code
% TOC appears to be integrated into the Index.

\input Acorn.fd
\newcommand*\initfamily{\usefont{U}{Acorn}{xl}{n}}


\newcommand{\ginitnorm}{\renewcommand*\initfamily{\normalfont}}
\newcommand{\ginitgoth}{\renewcommand*\initfamily{\pgothfamily}}
\newcommand{\ginitsquare}{\renewcommand*\initfamily{\usefont{U}{Acorn}{xl}{n}}}

% Initial font
\def\greinitialformat#1{%
{\initfamily\fontsize{37}{37}\selectfont\textcolor{red} #1}%
}
\newcommand*{\redinit}{\def\greinitialformat##1{%
{\initfamily\fontsize{37}{37}\selectfont\textcolor{red} ##1}%
}}
\newcommand*{\blackinit}{\def\greinitialformat##1{%
{\initfamily\fontsize{37}{37}\selectfont ##1}%
}}


\setspacebeforeinitial{3.2mm plus 0em minus 0em}
\setspaceafterinitial{3.2mm plus 0em minus 0em}

%\fancyhead[L]{\textbf{\emph{XXXX-OCCASION-XXXX}}}
%\emph{}\\


\setgrefactor{17}
\grespaceabovelines=3mm

\begin{center}\begin{huge}\textsc{XXXX-SCORENAME-XXXX}\end{huge}\end{center}

\includescore{XXXX-GABCFILES-XXXX}


\end{document}