This commit is contained in:
Josia Pietsch 2022-03-27 12:09:14 +02:00
parent c1d3b34851
commit 200080fe9d
241 changed files with 62140 additions and 10 deletions

Binary file not shown.

226
abc/abc.sty Normal file
View file

@ -0,0 +1,226 @@
%%
%% This is file `abc.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% abc.dtx (with options: `package')
%%
%% Copyright 2006-2016 Enrico Gregorio
%%
%% This program is provided under the terms of the
%% LaTeX Project Public License distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt.
%%
%% Author: Enrico Gregorio
%% Enrico dot Gregorio at univr dot it
%%
%% This work has the LPPL maintenance status "author-maintained".
%%
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesPackage{abc}
[2016/05/15 v2.0b Enrico Gregorio]
\RequirePackage{ifluatex}
\newif\ifabc@shellescape
\newif\ifabc@generate
\newif\ifabc@warning
\newif\ifabc@saveall
\newif\ifabc@mup
\DeclareOption{mup}{\abc@muptrue}
\DeclareOption{noshellescape}{\abc@shellescapefalse\abc@warningtrue
\abc@savealltrue}
\DeclareOption{shellescape}{\abc@shellescapetrue}
\DeclareOption{nogenerate}{\abc@generatefalse}
\DeclareOption{generate}{\abc@generatetrue}
\DeclareOption{nosaveall}{\abc@saveallfalse}
\DeclareOption{saveall}{\abc@savealltrue}
\def\abc@epsext{eps}
\DeclareOption{ps2eps}{\def\abc@pscmd{ps2eps -f}}
\DeclareOption{ps2epsi}{\def\abc@pscmd{ps2epsi}\def\abc@epsext{epsi}}
\DeclareOption{ps2epsidos}{\def\abc@pscmd{ps2epsi}\def\abc@epsext{epi}}
\ExecuteOptions{generate,shellescape,nosaveall,ps2eps}
\ifluatex
\ExecuteOptions{saveall}
\fi
\ProcessOptions\relax
\RequirePackage{verbatim}
\RequirePackage{keyval}
\RequirePackage{graphicx}
\RequirePackage{ifpdf}
\newif\ifabc@unprocessedfiles
\newcounter{abc@count}
\ifabc@mup
\newcommand{\abc@cmd}{mup} % virtually no choice
\newcommand{\abc@parm}{-F} % -F MUST stay
\newcommand{\abc@epstopdfcmd}{epstopdf}
\newcommand{\abc@pdfext}{pdf}
\def\normalabcoutputfile{out-mup}
\def\normalmupoutputfile{\normalabcoutputfile}
\def\mup{\abc}
\def\endmup{\endabc}
\def\mupinput{\abcinput}
\def\abc@ext{.mup}
\def\abc@packagename{mup}
\else
\newcommand{\abc@cmd}{abcm2ps} % virtually no choice
\newcommand{\abc@parm}{-O= -c} % -O= MUST stay
\newcommand{\abc@epstopdfcmd}{epstopdf}
\newcommand{\abc@pdfext}{pdf}
\def\normalabcoutputfile{out-abc}
\def\abc@ext{.abc}
\def\abc@packagename{abc}
\fi
\def\abc@tempfile{\normalabcoutputfile}
\def\abc@opt{}
\let\abc@postopt\@empty
\ifpdf
\let\abc@finalext\abc@pdfext
\else
\let\abc@finalext\abc@epsext
\fi
\newif\ifabc@center
\abc@centertrue
\newcommand{\abcwidth}{\linewidth} % only fractions of \linewidth
\let\mupwidth\abcwidth
\newwrite\abc@out
\def\abc@startgen{%
\@bsphack
\immediate\openout\abc@out\abc@tempfile\abc@ext
\let\do\@makeother\dospecials
\catcode`\^^M\active \catcode`\^^I=12
\def\verbatim@processline{%
\immediate\write\abc@out
{\the\verbatim@line}}%
\verbatim@start}
\def\abc@finishgen{%
\immediate\closeout\abc@out
\@esphack
\abc@process
}
\ifluatex
\IfFileExists{shellesc.sty}
{\RequirePackage{shellesc}\let\abc@shell\ShellEscape}
{\def\abc@shell{\immediate\write18}}
\else
\def\abc@shell{\immediate\write18}
\fi
\def\abc@doshellcommand{%
\abc@shell{%
\ifabc@mup
\abc@cmd\space
\abc@opt\space
\abc@parm\space
\abc@tempfile\abc@ext\space
\else
\abc@cmd\space
\abc@parm\space
\abc@opt\space
\abc@tempfile\abc@ext\space
\fi
\ifx\abc@postopt\@empty
\else\space\abc@postopt\fi
}%
\abc@shell{%
\abc@pscmd\space\abc@tempfile.ps
}%
\ifpdf
\abc@shell{%
\abc@epstopdfcmd\space\abc@tempfile.\abc@epsext
}%
\fi
}
\def\abc@nodoshellcommand{%
\immediate\write\abc@outsh{%
\abc@cmd\space
\abc@parm\space
\abc@opt\space
\abc@tempfile\abc@ext\space
\ifx\abc@postopt\@empty
\else\space\abc@postopt\fi}%
\immediate\write\abc@outsh{%
\abc@pscmd\space\abc@tempfile.ps}%
\ifpdf
\immediate\write\abc@outsh{%
\abc@epstopdfcmd\space\abc@tempfile.\abc@epsext}%
\fi
}
\AtEndDocument{%
\ifabc@warning\ifabc@unprocessedfiles
\PackageWarningNoLine{\abc@packagename}{%
\ifabc@shellescape
You have set the `shellescape' option, but you ran%
\MessageBreak
(pdf)latex without the `-shell-escape' command line%
\MessageBreak
option. Fix it either with the `noshellescape' option%
\MessageBreak
in your document or the correct call of (pdf)latex%
\else
Remember to generate the [eps,pdf] files before compiling%
\MessageBreak
again. Use the file \abc@tempfile.sh for a list or as a script%
\fi}%
\fi\fi}
\ifabc@shellescape
\let\abc@process\abc@doshellcommand
\else
\newwrite\abc@outsh
\immediate\openout\abc@outsh\abc@tempfile.sh
\AtEndDocument{\closeout\abc@outsh}
\let\abc@process\abc@nodoshellcommand
\fi
\ifabc@generate
\let\abc@start\abc@startgen
\let\abc@finish\abc@finishgen
\else
\let\abc@start\comment
\let\abc@finish\endcomment
\fi
\def\abc{\@makeother\%\@ifnextchar[\abc@grab{\abc@grab[]}}
\define@key{abc}{name}[]{%
\if!#1!\stepcounter{abc@count}%
\edef\abc@tempfile{\normalabcoutputfile-\@arabic\c@abc@count}%
\else
\def\abc@tempfile{#1}%
\fi
}
\define@key{abc}{options}{\def\abc@opt{#1}}
\define@key{abc}{postoptions}{\def\abc@postopt{#1}}
\define@key{abc}{program}{\def\abc@cmd{#1}\let\abc@parm\@empty}
\define@key{abc}{width}{\def\abc@width{#1}}
\define@key{abc}{center}[true]{\csname abc@center#1\endcsname}
\define@key{abc}{extension}{\def\abc@ext{.#1}}
\def\abc@grab[#1]{\let\abc@width=\abcwidth
\ifabc@saveall
\setkeys{abc}{name,#1}%
\else
\setkeys{abc}{#1}%
\fi\abc@start}
\def\endabc{%
\abc@finish
\trivlist\item[]\ifabc@center\centering\fi
\IfFileExists{\abc@tempfile.\abc@finalext}
{\includegraphics[width=\abc@width]{\abc@tempfile.\abc@finalext}}%
{\global\abc@warningtrue\fbox{\abc@tempfile}%
\global\abc@unprocessedfilestrue}%
\endtrivlist
}
\def\abcinput{\@ifnextchar[\abc@grabinput{\abc@grabinput[]}}
\def\abc@grabinput[#1]#2{\let\abc@width=\abcwidth\setkeys{abc}{#1}%
\begingroup\def\abc@tempfile{#2}%
\IfFileExists{\abc@tempfile\abc@ext}
{%
\abc@process
\begin{center}
\IfFileExists{\abc@tempfile.\abc@finalext}
{\includegraphics[width=\abc@width]{\abc@tempfile.\abc@finalext}}%
{\fbox{\abc@tempfile}}%
\end{center}%
\endgroup
}
{\PackageWarning{\abc@packagename}{No file \abc@tempfile\abc@ext\space found}}%
}
\endinput
%%
%% End of file `abc.sty'.

81
abc/example.tex Normal file
View file

@ -0,0 +1,81 @@
%%
%% This is file `example.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% abc.dtx (with options: `example')
%%
%% Copyright 2006-2016 Enrico Gregorio
%%
%% This program is provided under the terms of the
%% LaTeX Project Public License distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt.
%%
%% Author: Enrico Gregorio
%% Enrico dot Gregorio at univr dot it
%%
%% This work has the LPPL maintenance status "author-maintained".
%%
\documentclass[a4paper,12pt]{article}
\usepackage[generate,ps2eps]{abc}
\usepackage{mathptmx}
\begin{document}
\title{Example of ABC Plus in \LaTeX{}}
\author{Guido Gonzato}
\date{}
\maketitle
This is a short piece.
\medskip
\begin{abc}
X:4
T:Cronin's Hornpipe
R:hornpipe
S:Keenan and Glackin
E:7
M:C|
L:1/8
K:G
BA|GABc dBde|gage dega|bage dBGB|cABG A2BA|!
GABc dBde|gage dega|bage dBAB|G2G2 G2:|!
fg|afd^c d2ga|bged e2ga|(3bag (3agf gedB|(3cBA AG AcBA|!
GABc dBde|~g3e dega|bage dBAB|G2G2 G2:|!
\end{abc}
\medskip
This is another short piece, but we would like to keep the
ABC source in our directory.
\begin{abc}[name=jacky]
X:9
T:Jacky Tar
R:hornpipe
M:4/4
L:1/8
K:Edor
(Bd) | "Em" e2 ed efge | "G" d2 B2 B2 (dB) | "D" ABde faef | d2 A2 A2 (Bd) |
"Em" e2 ef g2 fe | "G" dB GB d2 (cB) | "D" AGFE DEFA | "Em" G2 E2 E2 :|
(GA) | "Em" BGEG BGEG | BAGF E2 (FG) | "D" BGEG BGEG | AGFE D2 (EF) |
"G" GFGB g2 (fe) | dBGB d2 (cB) | "D" AGFE DEFA | "Em" G2 E2 E2 :|
\end{abc}
\clearpage
And, finally, we want to set also the last piece; its ABC code
is already in our directory.
\medskip
\abcinput{poll}
\end{document}
\endinput
%%
%% End of file `example.tex'.

27
abc/mup.sty Normal file
View file

@ -0,0 +1,27 @@
%%
%% This is file `mup.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% abc.dtx (with options: `package-mup')
%%
%% Copyright 2006-2016 Enrico Gregorio
%%
%% This program is provided under the terms of the
%% LaTeX Project Public License distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt.
%%
%% Author: Enrico Gregorio
%% Enrico dot Gregorio at univr dot it
%%
%% This work has the LPPL maintenance status "author-maintained".
%%
\ProvidesPackage{mup}
\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{abc}}
\ProcessOptions\relax
\RequirePackage[mup]{abc}
\endinput
%%
%% End of file `mup.sty'.

76
abc/mupexa.tex Normal file
View file

@ -0,0 +1,76 @@
%%
%% This is file `mupexa.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% abc.dtx (with options: `example-mup')
%%
%% Copyright 2006-2016 Enrico Gregorio
%%
%% This program is provided under the terms of the
%% LaTeX Project Public License distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt.
%%
%% Author: Enrico Gregorio
%% Enrico dot Gregorio at univr dot it
%%
%% This work has the LPPL maintenance status "author-maintained".
%%
\documentclass[a4paper,12pt]{article}
\usepackage[generate,ps2eps]{mup}
\usepackage{mathptmx}
\begin{document}
\title{Example of MUP in \LaTeX{}}
\author{Martin Tarenskeen}
\date{}
\maketitle
This is a short piece.
\medskip
\begin{mup}
1: a-;b-;c;d;
bar
1: e;f;g;a;
endbar
\end{mup}
\medskip
This is another short piece, but we would like to keep the
MUP source in our directory.
\begin{mup}[name=mymup]
score
staffs=2
time=6/8
beamstyle=4.,4.
staff 2
clef=bass
music
1: 8c;d;e;f;g;a;
2: 4.ceg;cfa;
repeatend
\end{mup}
\clearpage
And finally, we want to set also the last piece; its MUP code
is already in our directory.
\medskip
\mupinput{simple}
\end{document}
\endinput
%%
%% End of file `mupexa.tex'.

16
abc/poll.abc Normal file
View file

@ -0,0 +1,16 @@
X:12
T:Poll Ha'penny
T:Garra\'i na bhF\'eile\'og
R:hornpipe
H:The Irish title means "The Garden of Honeysuckles"
D:Mary Bergin: Feadoga Stain
D:Noel Hill agus Tony McMahon: I gCnoc na Grai
Z:id:hn-hornpipe-26
M:C|
L:1/8
K:Amix
(3GAB | =cAAG A2 (3AB=c | (3d=cB (3AGF G2 (3B^cd | ed^cA d^cAG | ~A3 G A2 de |
~f3 d ~e3 c | d2 (3Bcd efge | aged (3=cBA GB | ~A3 G A2:|
|: ef | ~g3 f gfef | g2 ga gedg | eaag a3 g | eaag a2 ag |
~f3 d ~e3 c | d2 (3Bcd efge | aged (3=cBA GB | ~A3 G A2 :|

13
abc/simple.mup Normal file
View file

@ -0,0 +1,13 @@
score
staffs=2
time=6/8
beamstyle=4.,4.
staff 2
clef=bass
music
1: 8c;d;e;f;g;a;
2: 4.ceg;cfa;
repeatend