summaryrefslogtreecommitdiff
path: root/Build/source/texk/gregorio/gregorio-src/contrib/gprocess
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/gregorio/gregorio-src/contrib/gprocess
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/gregorio/gregorio-src/contrib/gprocess')
-rw-r--r--Build/source/texk/gregorio/gregorio-src/contrib/gprocess183
1 files changed, 0 insertions, 183 deletions
diff --git a/Build/source/texk/gregorio/gregorio-src/contrib/gprocess b/Build/source/texk/gregorio/gregorio-src/contrib/gprocess
deleted file mode 100644
index 205acd7540e..00000000000
--- a/Build/source/texk/gregorio/gregorio-src/contrib/gprocess
+++ /dev/null
@@ -1,183 +0,0 @@
-#!/usr/bin/perl
-
-# gprocess
-# a script for 'compiling' gregorio gabc music files
-# v0.2
-# Copyright (c) 2010 Richard Chonak <chonak@yahoo.com>
-# Changes in v0.2:
-# -- change list of PDF viewers
-# -- invoke LuaLateX instead of lamed/dvipdfm
-# -- drop use of pdftk (it's not available for my system)
-# -- use latin1 character set instead of utf8
-# -- update macro and variable names (with "gre" prefix) as needed
-# -- add 'redlines'
-# --
-#
-# v0.1
-# Copyright (C) 2008-2019 Richard Chonak <chonak@yahoo.com>
-#
-
-# 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
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-
-use strict;
-
-## USER-MODIFIABLE COMMAND PATHS
-
-my $TEXCOMPILER = "lualatex --shell-escape";
-
-## END OF USER-MODIFIABLE COMMAND PATHS
-
-
-# print usage string if no command-line arg specified
-
-if ($#ARGV < 0) {
- die "usage: $0 <gabc-file-name>\n";
-}
-
-
-my $GABCFILE = $ARGV[0];
-my $GABCNAME = $GABCFILE;
-$GABCNAME =~ s/.gabc//;
-my $SCORENAME;
-my $ANNOTATION;
-my $REFERENCE;
-my $OFFICEPART;
-my $NAMEFOUND = 0;
-my $KEEPSEARCHING = 1;
-my $INLINE = "";
-
-
-my $SCOREWRAPTEX = $GABCFILE;
-$SCOREWRAPTEX =~ s/.gabc$/-main.tex/;
-
-#### GET THE SCORE TITLE FROM THE GABC FILE ####
-
-if ($GABCFILE =~ m#/#) {
- die "File spec must not contain slashes: $GABCFILE\n";
-};
-
-
-open (GABC,"<".$GABCFILE) or die "No such file: $GABCFILE\n";
-while ($KEEPSEARCHING == 1 && ($INLINE = <GABC>)) {
- if ($INLINE =~ /^name/) {
- $SCORENAME = $INLINE;
- $SCORENAME =~ s/^.*:\s*//;
- $SCORENAME =~ s/\s*;\s*$//;
- };
- if ($INLINE =~ /^anotation/) {
- $ANNOTATION = $INLINE;
- $ANNOTATION =~ s/^.*:\s*//;
- $ANNOTATION =~ s/\s*;\s*$//;
- };
- if ($INLINE =~ /^reference/) {
- $REFERENCE = $INLINE;
- $REFERENCE =~ s/^.*:\s*//;
- $REFERENCE =~ s/\s*;\s*$//;
- };
- if ($INLINE =~ /^office-part/) {
- $OFFICEPART = $INLINE;
- $OFFICEPART =~ s/^.*:\s*//;
- $OFFICEPART =~ s/\s*;\s*$//;
- };
- if ($INLINE =~ /^%%/) { $KEEPSEARCHING = 0; }
-}
-
-close (GABC);
-
-
-
-#### READ IN THE TEMPLATE ####
-
-my @TEMPLATELINES;
-
-
-@TEMPLATELINES = <DATA>;
-
-
-
-#### MAKE SUBSTITUTIONS ####
-
-&do_subst ("XXXX-SCORENAME-XXXX", $SCORENAME);
-&do_subst ("XXXX-GABCFILE-XXXX", $GABCNAME);
-&do_subst ("XXXX-ANNOTATION-XXXX", $ANNOTATION);
-&do_subst ("XXXX-OFFICEPART-XXXX", $OFFICEPART);
-&do_subst ("XXXX-REFERENCE-XXXX", $REFERENCE);
-
-foreach (@TEMPLATELINES){
- s/^.*XXXX.*$//;
-};
-
-#### WRITE TEX WRAPPER FILE ####
-
-open (TEXWRAP,">".$SCOREWRAPTEX) or die "Cannot write file $SCOREWRAPTEX\n";
-print TEXWRAP @TEMPLATELINES;
-close (TEXWRAP);
-
-#### RUN LATEX ####
-my $PDFFILE = $SCOREWRAPTEX;
-$PDFFILE =~ s/tex$/pdf/;
-my $AUXFILE = $SCOREWRAPTEX;
-$AUXFILE =~ s/tex$/aux/;
-my $GAUXFILE = $SCOREWRAPTEX;
-$GAUXFILE =~ s/tex$/gaux/;
-
-# remove product files so that we don't accidentally view results
-# from a prior run
-unlink $PDFFILE;
-
-do_cmd("$TEXCOMPILER $SCOREWRAPTEX");
-# Run twice to calculate line heights.
-do_cmd("$TEXCOMPILER $SCOREWRAPTEX");
-unlink $AUXFILE;
-unlink $GAUXFILE;
-
-print "\n\nOutput is in $PDFFILE .\n";
-
-exit;
-
-sub do_subst {
- my $TAG = $_[0];
- my $VAL = $_[1];
-
- foreach (@TEMPLATELINES) {
- s/$TAG/$VAL/g;
- }
-};
-
-sub do_cmd {
- my $CMD = $_[0];
-#debugging print "Doing command: \n $CMD\n\n";
- system ($CMD) == 0
- or die "\n\nSystem command failed: $CMD : $?\n";
-};
-
-
-# THE LINES AFTER THIS "END" TAG ARE A TEMPLATE FOR THE TEX FILE TO BE GENERATED
-__END__
-
-\documentclass[12pt, letterpaper]{article}
-\usepackage{fullpage}
-\usepackage[T1]{fontenc}
-\usepackage{palatino}
-\usepackage[autocompile,allowdeprecated=false]{gregoriotex}
-\pagestyle{empty}
-\begin{document}
-
-\begin{center}\begin{huge}\textsc{XXXX-SCORENAME-XXXX}\end{huge}\end{center}
-
-\gregorioscore{XXXX-GABCFILE-XXXX}
-
-\end{document}
-