From f4304ad1f80aab94e5657360f8c1348366c9d1b9 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 10 Jun 2017 21:36:05 +0000 Subject: songs (10jun17) git-svn-id: svn://tug.org/texlive/trunk@44553 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/songs/songs.sty | 801 +++++++++++++++------------- 1 file changed, 441 insertions(+), 360 deletions(-) (limited to 'Master/texmf-dist/tex/latex/songs') diff --git a/Master/texmf-dist/tex/latex/songs/songs.sty b/Master/texmf-dist/tex/latex/songs/songs.sty index 24992416b08..5cf5af58711 100644 --- a/Master/texmf-dist/tex/latex/songs/songs.sty +++ b/Master/texmf-dist/tex/latex/songs/songs.sty @@ -8,7 +8,7 @@ %% %% This is a generated file. %% -%% Copyright (C) 2012 by Kevin W. Hamlen +%% Copyright (C) 2017 by Kevin W. Hamlen %% %% This file may be distributed and/or modified under the conditions of %% the LaTeX Project Public License, either version 1.3a of this license @@ -22,12 +22,14 @@ %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{songs} - [2012/03/17 v2.14 Songs package] + [2017/06/05 v3.0 Songs package] \newif\ifSB@etex \ifx\eTeXversion\undefined\else \ifx\eTeXversion\relax\else \SB@etextrue - \IfFileExists{etex.sty}{\RequirePackage{etex}}{} + \ifx\e@alloc\@undefined + \IfFileExists{etex.sty}{\RequirePackage{etex}}{} + \fi \fi \fi \newif\ifSB@pdf\SB@pdffalse @@ -41,30 +43,44 @@ \newif\ifSB@preamble \SB@preambletrue \newif\ifSB@test +\newif\ifSB@testii \newcommand\SB@temp{} \newcommand\SB@tempii{} \newcommand\SB@tempiii{} \newcommand\SB@tempiv{} \newcommand\SB@tempv{} -\newdimen\SB@dimen -\newdimen\SB@dimenii -\newdimen\SB@dimeniii -\newdimen\SB@dimeniv -\newbox\SB@box -\newbox\SB@boxii -\newbox\SB@boxiii -\newtoks\SB@toks -\newcount\SB@cnt -\newcount\SB@cntii -\newskip\SB@skip +\newcommand\SB@newcount[1]{\@ifdefinable#1{\newcount#1}} +\newcommand\SB@newdimen[1]{\@ifdefinable#1{\newdimen#1}} +\newcommand\SB@newbox[1]{\@ifdefinable#1{\newbox#1}} +\newcommand\SB@newtoks[1]{\@ifdefinable#1{\newtoks#1}} +\newcommand\SB@newwrite[1]{\@ifdefinable#1{\newwrite#1}} +\SB@newdimen\SB@dimen +\SB@newdimen\SB@dimenii +\SB@newdimen\SB@dimeniii +\SB@newdimen\SB@dimeniv +\SB@newbox\SB@box +\SB@newbox\SB@boxii +\SB@newbox\SB@boxiii +\SB@newtoks\SB@toks +\SB@newcount\SB@cnt +\SB@newcount\SB@cntii +\newlength\SB@skip +\SB@newbox\SB@envbox \RequirePackage{keyval} +\newcommand\SB@app[3]{% + \expandafter#1\expandafter#2\expandafter{#2#3}% +} \newcommand\lyricfont{\normalfont\normalsize} \newcommand\stitlefont{% - \ifslides\sffamily\Huge\else\sffamily\slshape\Large\fi% + \sffamily\ifslides\Huge\else\slshape\Large\fi% } \newcommand\versefont{} \newcommand\chorusfont{} \newcommand\notefont{} +\newcommand\meterfont{\tiny\sffamily\upshape} +\newcommand\echofont{% + \ifdim\fontdimen\@ne\font>\z@\upshape\else\slshape\fi% +} \newcommand\scripturefont{% \usefont{OT1}{pzc}{mb}{it}% \shiftdblquotes{-1.1\p@}\z@{-2\p@}\z@% @@ -102,13 +118,13 @@ \newcommand\everychorus{} \newcommand\printchord[1]{\sffamily\slshape\large#1} \newcommand\chordlocals{} -\newskip\versesep +\newlength\versesep \versesep123456789sp\relax -\newskip\afterpreludeskip +\newlength\afterpreludeskip \afterpreludeskip=2\p@\@plus4\p@ -\newskip\beforepostludeskip +\newlength\beforepostludeskip \beforepostludeskip=2\p@\@plus4\p@ -\newskip\baselineadj +\newlength\baselineadj \baselineadj\z@skip \newcommand\clineparams{% \baselineskip\f@size\p@% @@ -128,12 +144,12 @@ \newlength\sbarheight \setlength\sbarheight\p@ \interlinepenalty\@m -\newcount\vvpenalty\vvpenalty200 -\newcount\ccpenalty\ccpenalty200 -\newcount\vcpenalty\vcpenalty200 -\newcount\cvpenalty\cvpenalty200 -\newcount\brkpenalty\brkpenalty200 -\newcount\spenalty\spenalty100 +\SB@newcount\vvpenalty\vvpenalty200 +\SB@newcount\ccpenalty\ccpenalty200 +\SB@newcount\vcpenalty\vcpenalty200 +\SB@newcount\cvpenalty\cvpenalty200 +\SB@newcount\brkpenalty\brkpenalty200 +\SB@newcount\spenalty\spenalty100 \newcommand\songmark{} \newcommand\versemark{} \newcommand\chorusmark{} @@ -151,8 +167,8 @@ \let\colbotglue\z@skip \newcommand\lastcolglue{} \let\lastcolglue\@flushglue -\newcount\minfrets\minfrets4 -\newdimen\SB@colwidth +\SB@newcount\minfrets\minfrets4 +\SB@newdimen\SB@colwidth \DeclareOption{slides}{\slides} \newcommand\slides{% \slidestrue% @@ -186,11 +202,14 @@ \newcommand\SB@outer{\outer} \DeclareOption{unouter}{\let\SB@outer\relax} \DeclareOption{rawtext}{\rawtexttrue\indexesoff} -\DeclareOption{nopdfindex}{\pdfindexfalse} \DeclareOption{noshading}{\SB@colorboxesfalse} \DeclareOption{noindexes}{\indexesoff} \newcommand\indexeson{\songindexestrue} \newcommand\indexesoff{\songindexesfalse} +\DeclareOption{nopdfindex}{% + \let\songtarget\@gobbletwo% + \let\songlink\@secondoftwo% +} \newif\ifSB@measurespec \newif\ifSB@chordedspec \DeclareOption{chorded}{\chordson} @@ -310,41 +329,40 @@ \songcolumns\SB@numcols \SB@preamblefalse } -\newbox\SB@songbox -\newcount\SB@numcols\SB@numcols\tw@ -\newcount\SB@colnum -\newbox\SB@colbox -\newbox\SB@pgbox -\newbox\SB@mrkbox +\SB@newbox\SB@songbox +\SB@newcount\SB@numcols\SB@numcols\tw@ +\SB@newcount\SB@colnum +\SB@newbox\SB@colbox +\SB@newbox\SB@pgbox +\SB@newbox\SB@mrkbox \newcommand\SB@maxmin[3]{\ifdim#1#2#3#1#3\fi} -\newcommand\SB@mkpage[3]{% - \begingroup% +\newcommand\SB@mkpage[4]{% + \ifvoid#2\else\begingroup% + \edef\SB@temp{\ifnum#2=\SB@box\SB@boxii\else\SB@box\fi}% + \edef\SB@tempii{\ifnum#2=\SB@boxiii\SB@boxii\else\SB@boxiii\fi}% \splitmaxdepth\maxdepth\splittopskip\z@skip% - \global\setbox#1\vbox{% - \unvbox#1% - \nointerlineskip% - \null% - \vfil% - }% - \loop\ifnum#2<\SB@numcols% - \setbox\SB@box\vsplit#1to#3\relax% - \ifvoid#1% - #2\SB@numcols% + \ifnum#1=\z@\global\setbox#2\vbox{\unvbox#2\vfil}\fi% + \loop\ifnum#3<\SB@numcols% + \ifnum#1=\z@\setbox\SB@tempii\copy#2\fi% + \setbox\SB@temp\vsplit#2to#4\relax% + \ifvoid#2% + \ifnum#1=\z@% + \global\setbox#2\box\SB@tempii% + \else% + \SB@updatepage% + \global\advance#3\@ne% + \fi% + #3\SB@numcols% \else% \SB@updatepage% - \global\advance#2\@ne% + \global\advance#3\@ne% \ifrepchorus\ifvoid\SB@chorusbox\else% - \SB@insertchorus#1% + \SB@insertchorus#2% \fi\fi% \fi% \repeat% - \global\setbox#1\vbox{% - \unvbox\SB@box% - \unvbox#1% - \unskip% - \setbox\SB@box\lastbox% - }% - \endgroup% + \ifnum#1=\z@\global\setbox#2\vbox{\unvbox#2\unskip}\fi% + \endgroup\fi% } \newcommand\SB@migrate[1]{% \SB@toks\expandafter{#1}% @@ -364,23 +382,29 @@ \advance\SB@dimen-\wd\SB@pgbox% \unhbox\SB@pgbox% \ifdim\SB@dimen=\z@\else\hskip\SB@dimen\relax\fi% - \box\SB@box% + \box\SB@temp% }% } -\newcommand\SB@droppage{\setbox\SB@box\box\voidb@x} -\newcommand\SB@output{% +\newcommand\SB@droppage{\setbox\SB@temp\box\voidb@x} +\newcommand\SB@output[1]{% \ifnum\SB@numcols>\z@\begingroup% \loop% \SB@dimen\textheight% \ifinner\else\advance\SB@dimen-\pagetotal\fi% - \SB@mkpage\SB@colbox\SB@colnum\SB@dimen% - \ifnum\SB@colnum<\SB@numcols\else% + \SB@mkpage#1\SB@colbox\SB@colnum\SB@dimen% + \SB@testfalse\SB@testiitrue% + \ifnum#1>\@ne\ifvoid\SB@colbox\ifnum\SB@colnum>\z@% + \SB@testtrue\SB@testiifalse% + \fi\fi\fi% + \ifnum\SB@colnum<\SB@numcols\SB@testiifalse\else\SB@testtrue\fi% + \ifSB@test% \unvbox\SB@mrkbox% \ifinner\else\kern\z@\fi% \box\SB@pgbox% \ifinner\else\vfil\break\vskip\vsize\relax\fi% \global\SB@colnum\z@% - \repeat% + \fi% + \ifSB@testii\repeat% \endgroup\else% \unvbox\SB@colbox\unskip% \fi% @@ -417,7 +441,7 @@ \advance\SB@cnt\m@ne% \repeat% }% - \SB@output% + \SB@output1% \else% \ifnum\lastpenalty=-\@M\null\fi% \break% @@ -434,7 +458,7 @@ \ifinner\else\advance\SB@dimen-\pagetotal\fi% \setbox\SB@boxii\vbox{\SB@putboxes\unvcopy}% \SB@cntii\SB@colnum% - \SB@mkpage\SB@boxii\SB@cntii\SB@dimen% + \SB@mkpage0\SB@boxii\SB@cntii\SB@dimen% \SB@spos% \global\SB@cnt\SB@cnt% \endgroup% @@ -443,17 +467,17 @@ \newcommand\SB@spbegnew{% \setbox\SB@boxiii\copy\SB@songbox% \SB@cntii\z@% - \SB@mkpage\SB@boxiii\SB@cntii\textheight% + \SB@mkpage0\SB@boxiii\SB@cntii\textheight% } \newcommand\SB@spextold{% \ifodd\c@page\else% \SB@cntii\z@% - \SB@mkpage\SB@boxii\SB@cntii\textheight% + \SB@mkpage0\SB@boxii\SB@cntii\textheight% \fi% } \newcommand\SB@spextnew{% \SB@cntii\z@% - \SB@mkpage\SB@boxiii\SB@cntii\textheight% + \SB@mkpage0\SB@boxiii\SB@cntii\textheight% } \newcommand\SB@spdblpg{% \ifnum\SB@cntii<\SB@numcols% @@ -499,7 +523,7 @@ \advance\SB@cnt\@ne% \ifnum\SB@cnt<\SB@numcols% \setbox\SB@boxiii\copy\SB@songbox% - \SB@mkpage\SB@boxiii\SB@cnt\SB@dimen% + \SB@mkpage0\SB@boxiii\SB@cnt\SB@dimen% \advance\SB@cnt\m@ne% \fi% \ifnum\SB@cnt>\SB@colnum% @@ -531,17 +555,23 @@ \songpos\thr@@ \newcommand\SB@clearpage{% \SB@testtrue% - \ifvoid\SB@pgbox\ifvoid\SB@colbox\SB@testfalse\fi\fi% + \ifvoid\SB@pgbox% + \ifdim\ht\SB@colbox=\z@\ifdim\dp\SB@colbox=\z@% + \SB@testfalse% + \fi\fi% + \fi% \ifSB@test% \SB@cnt\SB@numcols% \advance\SB@cnt-\SB@colnum% \SB@nextcol\SB@cnt\lastcolglue% + \SB@output2% \fi% } \newcommand\SB@cleardpage{% \SB@clearpage% \if@twoside\ifodd\c@page% \SB@nextcol\SB@numcols\@flushglue% + \SB@output2% \fi\fi% } \newcommand\SB@stype{\SB@stypcol} @@ -549,7 +579,7 @@ \ifnum\SB@numcols>\z@% \SB@selectcol% \global\setbox\SB@colbox\vbox{\SB@putboxes\unvbox}% - \SB@output% + \SB@output0% \else% \unvbox\voidb@x% \SB@breakpoint\spenalty% @@ -563,31 +593,36 @@ \ifnum\SB@numcols>\z@% \SB@clearpage% \unvbox\SB@songbox% - \null\nointerlineskip% + \nointerlineskip\null% \else% \unvbox\SB@songbox% \fi% + \nointerlineskip% } \newcommand\SB@sgroup{} \let\SB@sgroup\@empty -\newcount\SB@groupcnt +\SB@newcount\SB@groupcnt +\newcommand\SB@clearpboxes{} +\newcommand\SB@partbox[1]{% + \SB@newbox#1% + \SB@app\gdef\SB@clearpboxes{\setbox#1\box\voidb@x}% + \global\setbox#1\box% +} \newcommand\SB@submitpart{% \ifx\SB@sgroup\@empty\else% - \@for\SB@temp:=\songlist\do{% - \ifx\SB@temp\SB@sgroup% - \edef\SB@tempii{\SB@sgroup @\the\SB@groupcnt}% - \expandafter\newbox\csname songbox@\SB@tempii\endcsname% - \global\expandafter\setbox - \csname songbox@\SB@tempii\endcsname\box\SB@songbox% - \global\expandafter\let% - \csname stype@\SB@tempii\endcsname\SB@stype% - \ifrepchorus\ifvoid\SB@chorusbox\else% - \expandafter\newbox\csname chbox@\SB@tempii\endcsname% - \global\expandafter\setbox% - \csname chbox@\SB@tempii\endcsname\box\SB@chorusbox% - \fi\fi% - \fi% - }% + \SB@testfalse + \@for\SB@temp:=\songlist\do{\ifx\SB@temp\SB@sgroup\SB@testtrue\fi}% + \ifSB@test% + \edef\SB@tempii{\SB@sgroup @\the\SB@groupcnt}% + \expandafter\SB@partbox + \csname songbox@\SB@tempii\endcsname\SB@songbox% + \global\expandafter\let% + \csname stype@\SB@tempii\endcsname\SB@stype% + \ifrepchorus\ifvoid\SB@chorusbox\else% + \expandafter\SB@partbox + \csname chbox@\SB@tempii\endcsname\SB@chorusbox% + \fi\fi% + \fi% \global\advance\SB@groupcnt% \ifnum\SB@groupcnt<\z@\m@ne\else\@ne\fi% \fi% @@ -597,6 +632,12 @@ \newcommand\SB@submitsong{% \ifpartiallist\SB@submitpart\else\SB@stype\fi% } +\newcommand\SB@submitenv{% + \begingroup% + \let\SB@songbox\SB@envbox% + \SB@styppage% + \endgroup% +} \newcommand\SB@songlistbrk{} \def\SB@songlistbrk{brk} \newcommand\SB@songlistnc{} @@ -631,6 +672,7 @@ \fi\fi\fi\fi% }% \fi% + \SB@clearpboxes% \fi% \SB@clearpage% } @@ -638,13 +680,13 @@ \loop\edef\SB@tempii{\SB@temp @\the\SB@groupcnt}% \expandafter\ifx% \csname songbox@\SB@tempii\endcsname\relax\else% - \setbox\SB@songbox\expandafter\box% + \setbox\SB@songbox\expandafter\copy% \csname songbox@\SB@tempii\endcsname% \expandafter\ifx\csname chbox@\SB@tempii\endcsname\relax% \repchorusfalse% \else% \repchorustrue% - \setbox\SB@chorusbox\expandafter\box% + \setbox\SB@chorusbox\expandafter\copy% \csname chbox@\SB@tempii\endcsname% \fi% \csname stype@\SB@tempii\endcsname% @@ -724,8 +766,8 @@ \edef\SB@temp{\the#1}% \ifx\SB@temp\SB@emptylist#2\else#3\fi% } -\newtoks\SB@titlelist -\newtoks\SB@titletail +\SB@newtoks\SB@titlelist +\SB@newtoks\SB@titletail \newcommand\songtitle{} \newcommand\resettitles{% \global\SB@titletail\SB@titlelist% @@ -758,8 +800,7 @@ \newcommand\setlicense{\gdef\songlicense} \newcommand\SB@clearbskeys{} \newcommand\newsongkey[2]{% - \expandafter\gdef\expandafter\SB@clearbskeys\expandafter% - {\SB@clearbskeys#2}% + \SB@app\gdef\SB@clearbskeys{#2}% \define@key{beginsong}{#1}% } \newsongkey{sr}{\def\SB@rawrefs{}\gdef\songrefs{}} @@ -811,7 +852,7 @@ \nexttitle% \foreachtitle{\expandafter\SB@addtotitles\expandafter{\songtitle}}% \resettitles% - \lyricfont% + \lyricfont\relax% \SB@setbaselineskip% } \newcommand\SB@endsong{% @@ -826,42 +867,47 @@ \fi\fi% \fi\fi% \endgroup\egroup% - \setbox\SB@songbox\vbox{% - \songmark% - \unvbox\SB@songwrites% - \ifnum\SB@numcols>\z@\hsize\SB@colwidth\fi% + \begingroup% + \ifnum\SB@numcols>\z@% + \hsize\ifpagepreludes\textwidth\else\SB@colwidth\fi% + \fi% \leftskip\z@skip\rightskip\z@skip% \parfillskip\@flushglue\parskip\z@skip\parindent\z@% - \ifdim\sbarheight>\z@% - \hrule\@height\sbarheight\@width\hsize% - \nobreak\vskip5\p@% - \fi% - \ifpdfindex\begingroup% - \ifx\pdfbookmark\undefined\else% - \ifx\pdfbookmark\relax\else% - \resettitles% - \pdfbookmark[\ifnum\c@section=\z@1\else2\fi]% - {\thesongnum. \songtitle}% - {song\theSB@songsnum-\thesongnum}% + \global\setbox\SB@envbox\vbox{% + \songmark% + \unvbox\SB@songwrites% + \ifpagepreludes\else\ifdim\sbarheight>\z@% + \hrule\@height\sbarheight\@width\hsize% + \nobreak\vskip5\p@\relax% \fi\fi% - \endgroup\fi% - \vbox{\makeprelude}% - \nobreak\vskip\SB@skip% - \vskip\afterpreludeskip\relax% - \unvbox\SB@songbox% - \nobreak\vskip\SB@skip% - \vskip\beforepostludeskip\relax% - \nointerlineskip% - \vbox{\makepostlude}% - \ifdim\sbarheight>\z@% - \nobreak\vskip2\p@\@plus\p@% + \resettitles% + \begingroup% + \songtarget{\ifnum\c@section=\z@1\else2\fi}% + {song\theSB@songsnum-\thesongnum}% + \endgroup% + \vbox{\makeprelude}% + \nobreak\vskip\SB@skip% + \vskip\afterpreludeskip\relax% + }% + \ifnum\SB@numcols>\z@\hsize\SB@colwidth\fi% + \global\setbox\SB@songbox\vbox{% + \ifpagepreludes\else\unvbox\SB@envbox\fi% + \unvbox\SB@songbox% + \nobreak\vskip\SB@skip% + \vskip\beforepostludeskip\relax% \nointerlineskip% - \hbox{\vrule\@height\sbarheight\@width\hsize}% - \fi% - }% + \vbox{\makepostlude}% + \ifdim\sbarheight>\z@% + \nobreak\vskip2\p@\@plus\p@% + \nointerlineskip% + \hbox{\vrule\@height\sbarheight\@width\hsize}% + \fi% + }% + \endgroup% \SB@insongfalse% \edef\SB@sgroup{\thesongnum}% \global\SB@groupcnt\z@% + \ifpagepreludes\SB@submitenv\fi% \SB@submitsong% \ifnum\SB@grouplvl=\z@\let\SB@sgroup\@empty\fi% \stepcounter{songnum}% @@ -892,7 +938,7 @@ \edef\SB@tempii{\the\versesep}% \ifx\SB@temp\SB@tempii% \begingroup% - \lyricfont% + \lyricfont\relax% \SB@dimen\f@size\p@% \ifchorded% \setbox\SB@box\hbox{{\printchord{ABCDEFG\shrp\flt/j7}}}% @@ -911,9 +957,7 @@ \newcommand\makeprelude{% \resettitles% \ifslides% - \hbox to\hsize{{% - \hfil\stitlefont\songtitle\hfil% - }}% + \hbox to\hsize{{\hfil\stitlefont\relax\songtitle\hfil}}% \vskip5\p@% \hbox to\hsize{% \hfil% @@ -932,13 +976,15 @@ }}}% \fi% \setbox\SB@box\vbox{% - \ifnum\SB@numcols>\z@\hsize\SB@colwidth\fi% \ifdim\songnumwidth>\z@% - \advance\hsize-\wd\SB@boxii% - \advance\hsize-3\p@% + \SB@dimen\wd\SB@boxii% + \advance\SB@dimen3\p@% + \ifpagepreludes\multiply\SB@dimen\tw@\fi% + \advance\hsize-\SB@dimen% \fi% - \SB@raggedright\offinterlineskip\lineskip\p@% - {\stitlefont% + \ifpagepreludes\centering\else\SB@raggedright\fi% + \offinterlineskip\lineskip\p@% + {\stitlefont\relax% \songtitle\par% \nexttitle% \foreachtitle{(\songtitle)\par}}% @@ -990,69 +1036,50 @@ \global\SB@titlelist{\\}% \SB@toks{}% \let\\\SB@titlesep% - \let\SB@dothis\SB@pthead% - \SB@ptstart#1\SB@endparse% + \SB@pthead#1\SB@endparse% \endgroup% } -\newcommand\SB@ptstart{\futurelet\SB@next\SB@dothis} -\newcommand\SB@pthead{% - \ifcat\noexpand\SB@next\noexpand\@sptoken% - \expandafter\SB@ptsp% +\newcommand\SB@pthead{\futurelet\SB@next\SB@@pthead} +\newcommand\SB@@pthead{% + \ifcat\noexpand\SB@next\@sptoken% + \expandafter\SB@@@pthead% \else% - \SB@toks{}% - \let\SB@dothis\SB@ptmain% \expandafter\SB@ptmain% \fi% } +\newcommand\SB@@@pthead{% + \afterassignment\SB@pthead% + \let\SB@next= } +\newcommand\SB@ptloop{\futurelet\SB@next\SB@ptmain} \newcommand\SB@ptmain{% - \ifcat\noexpand\SB@next\noexpand\@sptoken% + \ifcat\noexpand\SB@next\@sptoken% \let\SB@donext\SB@ptsp% - \else\ifcat\noexpand\SB@next\noexpand\bgroup% + \else\ifcat\noexpand\SB@next\bgroup% \let\SB@donext\SB@ptbg% \else\ifx\SB@next\SB@endparse% \global\SB@titlelist\expandafter{\the\SB@titlelist\\}% \let\SB@donext\@gobble% + \else\ifx\SB@next\\% + \SB@toks{}% + \def\SB@donext{\SB@ptstep\SB@pthead}% \else% - \ifx\SB@next\\% - \SB@toks{}% - \let\SB@dothis\SB@pthead% - \fi% - \let\SB@donext\SB@ptstep% - \fi\fi\fi% - \SB@donext% -} -\newcommand\SB@ptstep[1]{% + \def\SB@donext{\SB@ptstep\SB@ptloop}% + \fi\fi\fi\fi% + \SB@donext} +\newcommand\SB@ptstep[2]{% \global\SB@titlelist\expandafter\expandafter\expandafter{% - \expandafter\the\expandafter\SB@titlelist\the\SB@toks#1}% + \expandafter\the\expandafter\SB@titlelist\the\SB@toks#2}% \SB@toks{}% - \SB@ptstart% -} -\newcommand\SB@ptbg[1]{\SB@ptstep{{#1}}} + #1} +\newcommand\SB@ptbg[1]{\SB@ptstep\SB@ptloop{{#1}}} \newcommand\SB@ptsp{ \SB@appendsp\SB@toks% - \afterassignment\SB@ptstart% + \afterassignment\SB@ptloop% \let\SB@next= } \newcommand\SB@titlesep{SB@titlesep} \newcommand\SB@endparse{% \SB@Error{Title parsing failed}{This error should not occur.}% } -\newcommand\SB@testdigit[1]{% - \SB@testfalse% - \ifcat1\noexpand#1\SB@@testdigit#1\fi% -} -\newcommand\SB@@testdigit[1]{% - \ifx0#1\SB@testtrue\else% - \ifx1#1\SB@testtrue\else% - \ifx2#1\SB@testtrue\else% - \ifx3#1\SB@testtrue\else% - \ifx4#1\SB@testtrue\else% - \ifx5#1\SB@testtrue\else% - \ifx6#1\SB@testtrue\else% - \ifx7#1\SB@testtrue\else% - \ifx8#1\SB@testtrue\else% - \ifx9#1\SB@testtrue% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -} \newcommand\SB@parsesrefs[1]{% \begingroup% \SB@toks{\begingroup\SB@sractives}% @@ -1069,13 +1096,13 @@ \fi% } \newcommand\SB@@prstep{% - \ifcat\noexpand\SB@next\noexpand\@sptoken% + \ifcat\noexpand\SB@next\@sptoken% \let\SB@donext\SB@prspace% \else\ifx\SB@next-% \let\SB@donext\SB@prhyphen% \else\ifx\SB@next,% \let\SB@donext\SB@prcomma% - \else\ifx\SB@next\SB@endparse + \else\ifx\SB@next\SB@endparse% \let\SB@donext\@gobble% \else\ifcat\noexpand\SB@next\bgroup% \let\SB@donext\SB@prgr% @@ -1186,7 +1213,7 @@ \begingroup% \SB@dimen\dp#2% #1#2% - \setbox\SB@box\hbox{{\lyricfont p}}% + \setbox\SB@box\hbox{{\lyricfont\relax p}}% \ifdim\SB@dimen<\dp\SB@box% \advance\SB@dimen-\dp\SB@box% \vskip-\SB@dimen% @@ -1218,7 +1245,7 @@ \fi% } \newcommand\SB@@par{\let\par\SB@par\par} -\newdimen\SB@parindent +\SB@newdimen\SB@parindent \newcommand\SB@everypar{} \newcommand\SB@raggedright{% \SB@parindent\parindent% @@ -1273,15 +1300,13 @@ \ifvnumbered% \protected@edef\@currentlabel{\p@versenum\theversenum}% \def\SB@everypar{% - \setbox\SB@box\hbox{{% - \printversenum{\theversenum}% - }}% + \setbox\SB@box\hbox{{\printversenum{\theversenum}}}% \ifdim\wd\SB@box<\versenumwidth% \setbox\SB@box% \hbox to\versenumwidth{\unhbox\SB@box\hfil}% \fi% \ifchorded\vrule\@height\baselineskip\@width\z@\@depth\z@\fi% - {\placeversenum\SB@box}% + \placeversenum\SB@box% \gdef\SB@everypar{}% }% \else% @@ -1291,7 +1316,7 @@ }% \fi% \everypar{\SB@everypar\everypar{}}% - \versefont\versejustify% + \versefont\relax\SB@setbaselineskip\versejustify% \SB@loadactives% \SB@obeylines% \penalty12345 % @@ -1314,7 +1339,7 @@ \fi% } \newif\ifSB@chorustop -\newbox\SB@chorusbox +\SB@newbox\SB@chorusbox \newif\ifSB@gotchorus \ifSB@etex \@ifundefined{newmarks}{ @@ -1374,7 +1399,7 @@ }% \everypar{\SB@everypar\everypar{}}% \fi% - \chorusfont\chorusjustify% + \chorusfont\relax\SB@setbaselineskip\chorusjustify% \SB@loadactives% \SB@obeylines% \penalty12345 % @@ -1484,7 +1509,7 @@ \fi% } \newcommand\SB@boxup[1]{% - \setbox\SB@box\hbox{{\notefont#1}}% + \setbox\SB@box\hbox{{\notefont\relax#1}}% \SB@dimen\wd\SB@box% \advance\SB@dimen6\p@% \advance\SB@dimen\leftskip% @@ -1533,7 +1558,7 @@ \newcommand\SB@echo[1]{% \endgroup% \begingroup% - \ifdim\fontdimen\@ne\font>\z@\upshape\else\slshape\fi% + \echofont\relax% \endlinechar\m@ne% \scantokens{(#1)}% \endgroup% @@ -1541,7 +1566,7 @@ \else \newcommand\echo{% \begingroup% - \ifdim\fontdimen\@ne\font>\z@\upshape\else\slshape\fi% + \echofont\relax% \afterassignment\SB@echo% \setbox\SB@box\hbox% } @@ -1563,7 +1588,7 @@ \advance\SB@grouplvl\m@ne% \ifnum\SB@grouplvl=\z@\let\SB@sgroup\@empty\fi% } -\newcount\SB@grouplvl +\SB@newcount\SB@grouplvl \newenvironment{intersong}{% \ifSB@insong\SB@errbro\SB@closeall\fi% \ifSB@intersong\SB@errbrr\SB@closeall\fi% @@ -1617,18 +1642,17 @@ \ifSB@insong\SB@errero\SB@closeall\else\SB@errert\fi% \fi% } -\newbox\SB@srbox \newenvironment{scripture}{\beginscripture}{\SB@endscripture} \newcommand\beginscripture[1]{% \begin{intersong}% \SB@parsesrefs{#1}% - \setbox\SB@srbox\hbox{{\printscrcite\songrefs}}% + \setbox\SB@envbox\hbox{{\printscrcite\songrefs}}% \def\SB@closeall{\endscripture}% \nobreak\vskip5\p@% \SB@parindent\parindent\parindent\z@% \parskip\z@skip\parfillskip\@flushglue% \leftskip\SB@parindent\rightskip\SB@parindent\relax% - \scripturefont% + \scripturefont\relax% \baselineskip\f@size\p@\@plus\p@\relax% \advance\baselineskip\p@\relax% \emergencystretch.3em% @@ -1643,14 +1667,14 @@ } \newcommand\scitehere{% \ifSB@intersong% - \ifvoid\SB@srbox\else% + \ifvoid\SB@envbox\else% \ifvmode% \setbox\SB@box\lastbox% \nointerlineskip\noindent\hskip-\leftskip% \unhbox\SB@box\unskip% \fi% \unskip\nobreak\hfil\penalty50\hskip.8em\null\nobreak\hfil% - \box\SB@srbox\kern-\SB@parindent% + \box\SB@envbox\kern-\SB@parindent% {\parfillskip\z@\finalhyphendemerits2000\par}% \fi% \else% @@ -1738,7 +1762,7 @@ \vadjust{}% } } -\newcount\SB@transposefactor +\SB@newcount\SB@transposefactor \newif\ifSB@convertnotes \newcommand\notenameA{} \newcommand\notenameB{} @@ -1836,7 +1860,7 @@ \else\ifx\SB@next\egroup% \SB@toks\expandafter{\the\SB@toks\egroup}% \let\SB@donext\SB@trskip% - \else\ifcat\noexpand\SB@next\noexpand\@sptoken% + \else\ifcat\noexpand\SB@next\@sptoken% \SB@appendsp\SB@toks% \let\SB@donext\SB@trskip% \else% @@ -1887,7 +1911,7 @@ } \newcommand\SB@trnotestep[1]{% \ifnum\uccode`#1=`#1% - \expandafter\def\expandafter\SB@temp\expandafter{\SB@temp#1}% + \SB@app\def\SB@temp{#1}% \expandafter\SB@trscan% \else% \SB@cnt\z@% @@ -1997,22 +2021,22 @@ \fi% \fi% \ifvmode\leavevmode\fi% - \setbox\SB@box\hbox{\tiny\sffamily{#1}}% - \setbox\SB@boxii\hbox{\tiny\sffamily{#2}}% - \ifdim\wd\SB@box>\wd\SB@boxii% - \SB@dimen\wd\SB@box\relax% - \else% - \SB@dimen\wd\SB@boxii\relax% - \fi% - \ifdim\SB@dimen<.5\p@% - \SB@dimen.5\p@% - \fi% + \setbox\SB@box\hbox{{\meterfont\relax#1}}% + \setbox\SB@boxii\hbox{{\meterfont\relax#2}}% + \SB@dimen\wd\ifdim\wd\SB@box>\wd\SB@boxii\SB@box\else\SB@boxii\fi% \SB@dimenii\baselineskip% \advance\SB@dimenii-2\p@% \advance\SB@dimenii-\ht\SB@box% \advance\SB@dimenii-\dp\SB@box% \advance\SB@dimenii-\ht\SB@boxii% \advance\SB@dimenii-\dp\SB@boxii% + \let\SB@temp\relax% + \ifdim\SB@dimen>\z@% + \advance\SB@dimenii-.75\p@% + \def\SB@temp{\kern.75\p@}% + \fi% + \SB@maxmin\SB@dimen<{.5\p@}% + \SB@maxmin\SB@dimenii<\z@% \vbox{% \mark{\SB@measuremark}% \hbox to\SB@dimen{% @@ -2026,6 +2050,7 @@ \box\SB@boxii% \hfil% }% + \SB@temp% \nointerlineskip% \hbox to\SB@dimen{% \hfil% @@ -2033,11 +2058,11 @@ \hfil% }% }% + \meter{}{}% } \newcommand\mbar{\SB@mbar} \newcommand\measurebar{% \mbar\SB@metertop\SB@meterbot% - \meter{}{}% } \newcommand\SB@repcolon{{% \usefont{OT1}{cmss}{m}{n}\selectfont% @@ -2066,27 +2091,24 @@ } \newif\ifSB@wordends \newif\ifSB@brokenword -\newtoks\SB@lyric -\newcount\SB@numhyps -\newtoks\SB@lyricnohyp -\newbox\SB@lyricbox -\newbox\SB@chordbox +\SB@newtoks\SB@lyric +\SB@newcount\SB@numhyps +\SB@newtoks\SB@lyricnohyp +\SB@newbox\SB@lyricbox +\SB@newbox\SB@chordbox \newcommand\SB@chbstok{} \newcommand\SB@setchord{} { \catcode`^\active - \catcode`!7 \gdef\SB@setchord#1{% \SB@gettabindtrue\SB@nohattrue% \setbox\SB@chordbox\hbox{% \unhbox\SB@chordbox% \begingroup% \ifSB@trackch% - \def\SB@activehat{\ifmmode!\else\global\SB@nohatfalse\fi}% + \let\SB@activehat\SB@hat@tr% \else% - \def\SB@activehat{% - \ifmmode!\else\SB@lop\SB@ctail\SB@toks\the\SB@toks\fi% - }% + \let\SB@activehat\SB@hat@notr% \fi% \let^\SB@activehat% \printchord{% @@ -2104,100 +2126,97 @@ \let\SB@noreplay\@firstofone% } } -\newcommand\SB@outertest{} -\edef\SB@outertest#1{% - \noexpand\SB@@outertest#1% - \string\outer% - \noexpand\SB@@outertest% +\newcommand\SB@outertest{% + \expandafter\SB@otesta\meaning\SB@next:\SB@otesta% } -\newcommand\SB@@outertest{} -\expandafter\def\expandafter\SB@@outertest% -\expandafter#\expandafter1\string\outer#2\SB@@outertest{% +\newcommand\SB@otesta{} +\edef\SB@otesta#1:#2\SB@otesta{% + \noexpand\SB@otestb% + #1\string\outer% + \noexpand\SB@otestb% +} +\newcommand\SB@otestb{} +\expandafter\def\expandafter\SB@otestb% +\expandafter#\expandafter1\string\outer#2\SB@otestb{% \def\SB@temp{#2}% - \ifx\SB@temp\@empty\else\SB@testtrue\fi% + \ifx\SB@temp\@empty\SB@testfalse\else\SB@testtrue\fi% } \newcommand\SB@UTFtest{} \edef\SB@UTFtest#1{% - \noexpand\SB@UTFtester#1% + \noexpand\expandafter% + \noexpand\SB@@UTFtest% + \noexpand\meaning#1% \string\UTFviii@zero@octets% - \noexpand\SB@UTFtester% -} -\begingroup - \escapechar\m@ne - \xdef\SB@two{\string\two} - \xdef\SB@three{\string\three} - \xdef\SB@four{\string\four} - \xdef\SB@temp{\string\@octets} -\endgroup -\edef\SB@temp{##1\string\UTFviii@##2\SB@temp##3} -\expandafter\def\expandafter\SB@UTFtester\SB@temp\SB@UTFtester{% - \def\SB@temp{#2}% - \ifx\SB@temp\SB@two% - \SB@cnt\tw@% - \else\ifx\SB@temp\SB@three% - \SB@cnt\thr@@% - \else\ifx\SB@temp\SB@four% - \SB@cnt4 % - \else% - \SB@cnt\z@% - \fi\fi\fi% + \noexpand\SB@@UTFtest% +} +\newcommand\SB@U@two{\global\SB@cnt\tw@} +\newcommand\SB@U@three{\global\SB@cnt\thr@@} +\newcommand\SB@U@four{\global\SB@cnt4\relax} +\newcommand\SB@@UTFtest{} +{\escapechar\m@ne + \xdef\SB@temp{\string\@octets}} +\edef\SB@temp{##1\string\UTFviii@##2\SB@temp} +\expandafter\def\expandafter\SB@@UTFtest\SB@temp#3\SB@@UTFtest{% + \SB@cnt\z@% + {\csname SB@U@#2\endcsname}% } \newcommand\SB@declare[3]{% \afterassignment\iffalse\let\SB@next= #3\relax\fi% - \expandafter\SB@UTFtest\expandafter{\meaning\SB@next}% + \SB@UTFtest\SB@next% \ifcase\SB@cnt% \ifcat\noexpand#3\relax% \SB@addNtest\SB@macrotests#1#2#3% \else\ifcat\noexpand#3.% - \SB@addDtest\SB@othertests#1#2#3% + \SB@addDtest\SB@othertests#1#2% \else\ifcat\noexpand#3A% - \SB@addDtest\SB@lettertests#1#2#3% + \SB@addDtest\SB@lettertests#1#2% \else% - \SB@addDtest\relax0#2#3% + \SB@addDtest\relax0#2% \fi\fi\fi% \or% \SB@addNtest\SB@macrotests#1#2#3% \else% - \SB@addMtest\SB@multitests#1#2{#3}% + \SB@addMtest\SB@multitests#1#2#3\relax\relax\relax% \fi% } \newcommand\DeclareLyricChar{\SB@declare\SB@testtrue0} -\newcommand\DeclareNonLyric{% - \SB@declare\SB@testfalse\SB@testfalse% -} -\newcommand\DeclareNoHyphen{% - \SB@declare\SB@testfalse\SB@testtrue% -} +\newcommand\DeclareNonLyric{\SB@declare\SB@testfalse\SB@testfalse} +\newcommand\DeclareNoHyphen{\SB@declare\SB@testfalse\SB@testtrue} \newcommand\SB@lettertests{} \newcommand\SB@macrotests{} \newcommand\SB@multitests{} \newcommand\SB@othertests{} -\newcommand\SB@hyphtests{} -\newcommand\SB@addtest[2]{% - \expandafter\gdef\expandafter#1\expandafter{#1#2}% -} -\newcommand\SB@addDtest[4]{% - \ifx0#2\else\SB@addtest#1{\ifx\SB@next#4#2\fi}\fi% - \ifx0#3\else\SB@addtest\SB@hyphtests{\ifx\SB@next#4#3\fi}\fi% +\newcommand\SB@addDtest[3]{% + \ifx0#2\else% + \def#1{{\csname SB@!\meaning\SB@next\endcsname}}% + \expandafter\def\csname SB@!\meaning\SB@next\endcsname{\global#2}% + \fi% + \ifx0#3\else% + \expandafter\def\csname SB@HT@\meaning\SB@next\endcsname{\global#3}% + \fi% } \newcommand\SB@addNtest[4]{% \ifx0#2\else% - \SB@addtest#1{% - \edef\SB@temp{\string#4}\ifx\SB@temp\SB@nextname#2\fi% - }% + \def#1{{\csname SB@!\SB@nextname\endcsname}}% + \expandafter\def\csname SB@!\string#4\endcsname{\global#2}% \fi% \ifx0#3\else% - \SB@addtest\SB@hyphtests{% - \edef\SB@temp{\string#4}\ifx\SB@temp\SB@nextname#3\fi% - }% + \expandafter\def\csname SB@HT@\string#4\endcsname{\global#3}% \fi% } -\newcommand\SB@addMtest[4]{% +\newcommand\SB@addMtest[7]{% + \edef\SB@temp{% + \string#4% + \ifx\relax#5\else\string#5\fi% + \ifx\relax#6\else\string#6\fi% + \ifx\relax#7\else\string#7\fi% + }% \ifx0#2\else% - \SB@addtest#1{\def\SB@temp{#4}\ifx\SB@next\SB@temp#2\fi}% + \def#1{{\csname SB@!\SB@nextname\endcsname}}% + \expandafter\def\csname SB@!\SB@temp\endcsname{\global#2}% \fi% - \ifx0#3\else\SB@addtest\SB@hyphtests{% - \def\SB@temp{#4}\ifx\SB@next\SB@temp#3\fi}% + \ifx0#3\else% + \expandafter\def\csname SB@HT@\SB@temp\endcsname{\global#3}% \fi% } \DeclareLyricChar\` @@ -2241,7 +2260,7 @@ \catcode`:12\relax% \catcode`\^^M\active\SB@outer\def^^M{}% \SB@outer\def\[{}% - \chordlocals% + \chordlocals\relax% } } \newcommand\SB@endcname{} @@ -2269,8 +2288,8 @@ \newcommand\MultiwordChords{% \def\SB@spcinit{% \let\SB@chdone\SB@chlyrdone% - \def\SB@chimpspace{\let\SB@donext\SB@chdone}% - \def\SB@chexpspace{\let\SB@donext\SB@chdone}% + \let\SB@chimpspace\SB@chnxtdone% + \let\SB@chexpspace\SB@chnxtdone% \let\SB@chespace\SB@chendspace% }% } @@ -2279,21 +2298,17 @@ \futurelet\SB@next\SB@chmain% } \newcommand\SB@chmain{\SB@dothis\SB@donext} +\newcommand\SB@chnxtrelax{\let\SB@donext\relax} +\newcommand\SB@chnxtstep{\let\SB@donext\SB@chstep} +\newcommand\SB@chnxtdone{\let\SB@donext\SB@chdone} \newcommand\SB@chstart{% - \ifx\SB@next\[% - \let\SB@donext\relax% - \else\ifx\SB@next\SB@activehat% - \let\SB@donext\relax% - \else\ifx\SB@next\ch% - \let\SB@donext\relax% - \else\ifx\SB@next\mch% - \let\SB@donext\relax% - \else\ifx\SB@next`% - \let\SB@donext\SB@chstep% - \else\ifx\SB@next'% - \let\SB@donext\SB@chstep% - \else\ifx\SB@next"% - \let\SB@donext\SB@chstep% + \ifx\SB@next\[\SB@chnxtrelax% + \else\ifx\SB@next\SB@activehat\SB@chnxtrelax% + \else\ifx\SB@next\ch\SB@chnxtrelax% + \else\ifx\SB@next\mch\SB@chnxtrelax% + \else\ifx\SB@next`\SB@chnxtstep% + \else\ifx\SB@next'\SB@chnxtstep% + \else\ifx\SB@next"\SB@chnxtstep% \else% \the\SB@lyric% \SB@lyric{}% @@ -2306,9 +2321,9 @@ \ifcat\noexpand\SB@next A% \SB@testtrue\SB@lettertests% \ifSB@test% - \SB@chespace\let\SB@donext\SB@chstep% + \SB@chespace\SB@chnxtstep% \else% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \fi% \else% \SB@chtrymacro% @@ -2322,33 +2337,32 @@ \fi% } \newcommand\SB@chother{% - \ifcat\noexpand\SB@next\noexpand\@sptoken% + \ifcat\noexpand\SB@next\@sptoken% \SB@chexpspace% - \else\ifcat\noexpand\SB@next\noexpand\bgroup% + \else\ifcat\noexpand\SB@next\bgroup% \SB@chespace\let\SB@donext\SB@chbgroup% - \else\ifcat\noexpand\SB@next\noexpand\egroup% + \else\ifcat\noexpand\SB@next\egroup% \SB@chespace\let\SB@donext\SB@chegroup% \else\ifx\SB@next-% \SB@numhyps\@ne\relax% \SB@lyricnohyp\expandafter{\the\SB@lyric}% \let\SB@dothis\SB@chhyph% - \SB@chespace\let\SB@donext\SB@chstep% + \SB@chespace\SB@chnxtstep% \else\ifcat\noexpand\SB@next.% \SB@testtrue\SB@othertests% \ifSB@test% - \SB@chespace\let\SB@donext\SB@chstep% + \SB@chespace\SB@chnxtstep% \else% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \fi% \else% - \SB@chespace\let\SB@donext\SB@chstep% + \SB@chespace\SB@chnxtstep% \fi\fi\fi\fi\fi% } \newcommand\SB@chmacro{% - \SB@testfalse% - \expandafter\SB@outertest\expandafter{\meaning\SB@next}% + \SB@outertest% \ifSB@test% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \else% \let\SB@donext\SB@chgetname% \fi% @@ -2359,9 +2373,9 @@ } \newcommand\SB@@chmacro{% \ifx\SB@next\SB@activehat% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \else\ifx\SB@next\SB@par% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \else\ifx\SB@next\measurebar% \SB@chmbar% \else\ifx\SB@next\mbar% @@ -2375,7 +2389,7 @@ \else\ifx\SB@next\SB@nbsp% \SB@chimpspace% \else% - \expandafter\SB@UTFtest\expandafter{\meaning\SB@next}% + \SB@UTFtest\SB@next% \ifcase\SB@cnt\SB@chothermac% \or\or\SB@chespace\let\SB@donext\SB@chsteptwo% \or\SB@chespace\let\SB@donext\SB@chstepthree% @@ -2389,21 +2403,25 @@ \ifnum\the\catcode\SB@cnt=\z@\else\SB@testtrue\fi% \SB@macrotests% \ifSB@test% - \SB@chespace\let\SB@donext\SB@chstep% + \SB@chespace\SB@chnxtstep% \else% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \fi% } \newcommand\SB@chstep[1]{% \SB@lyric\expandafter{\the\SB@lyric#1}% \SB@chscan% } -\newcommand\SB@chsteptwo[2]{\SB@chmulti{#1#2}} -\newcommand\SB@chstepthree[3]{\SB@chmulti{#1#2#3}} -\newcommand\SB@chstepfour[4]{\SB@chmulti{#1#2#3#4}} -\newcommand\SB@chmulti[1]{% +\newcommand\SB@chsteptwo[2]{\SB@chmulti{#1#2}{\string#1\string#2}} +\newcommand\SB@chstepthree[3]{% + \SB@chmulti{#1#2#3}{\string#1\string#2\string#3}% +} +\newcommand\SB@chstepfour[4]{% + \SB@chmulti{#1#2#3#4}{\string#1\string#2\string#3\string#4}% +} +\newcommand\SB@chmulti[2]{% \def\SB@next{#1}% - \let\SB@nextname\relax% + \edef\SB@nextname{#2}% \SB@testtrue\SB@multitests% \ifSB@test% \SB@lyric\expandafter{\the\SB@lyric#1}% @@ -2416,13 +2434,15 @@ \newcommand\SB@chhyph{% \ifx\SB@next-% \advance\SB@numhyps\@ne\relax% - \let\SB@donext\SB@chstep% + \SB@chnxtstep% \else% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \fi% } -\newcommand\SB@chimpspace{\let\SB@donext\SB@chdone} -\newcommand\SB@chexpspace{\let\SB@donext\SB@chdone} +\newcommand\SB@chimpspace{} +\let\SB@chimpspace\SB@chnxtdone +\newcommand\SB@chexpspace{} +\let\SB@chexpspace\SB@chnxtdone \newcommand\SB@chespace{} \newcommand\SB@chendspace{% \let\SB@chdone\SB@chlyrdone% @@ -2439,12 +2459,12 @@ \ifdim\wd\SB@lyricbox<\wd\SB@chordbox% \let\SB@chbstok= \SB@next% \def\SB@chexpspace{\let\SB@donext\SB@chgetspace}% - \def\SB@chimpspace{\let\SB@donext\SB@chstep}% + \let\SB@chimpspace\SB@chnxtstep% \let\SB@chespace\SB@chendspace% \let\SB@chdone\SB@chspcdone% \else% - \def\SB@chimpspace{\let\SB@donext\SB@chdone}% - \def\SB@chexpspace{\let\SB@donext\SB@chdone}% + \let\SB@chimpspace\SB@chnxtdone% + \let\SB@chexpspace\SB@chnxtdone% \fi% } \newcommand\SB@chgetspace{% @@ -2454,9 +2474,9 @@ \let\SB@next= } \newcommand\SB@chmbar{% \ifmeasures% - \let\SB@donext\SB@chdone% + \SB@chnxtdone% \else% - \SB@chespace\let\SB@donext\SB@chstep% + \SB@chespace\SB@chnxtstep% \fi% } \newcommand\SB@chbgroup[1]{% @@ -2478,8 +2498,7 @@ \fi% } \newcommand\SB@chegrpouter{% - \SB@testfalse% - \expandafter\SB@outertest\expandafter{\meaning\SB@next}% + \SB@outertest% \ifSB@test% \expandafter\SB@chegrpdone% \else% @@ -2494,7 +2513,9 @@ \newcommand\SB@chlig[5]{% \gdef\SB@ligpre{{#3}}% \gdef\SB@ligpost{\[#2]{#4}}% - \gdef\SB@ligfull{\[\SB@noreplay{\hphantom{{\lyricfont#3}}}#2]{#5}}% + \gdef\SB@ligfull{% + \[\SB@noreplay{\hphantom{{\lyricfont\relax#3}}}#2]{#5}% + }% \SB@chdone% } \newcommand\SB@mchlig[5]{% @@ -2534,12 +2555,14 @@ \newcommand\SB@emitchord{% \ifSB@inverse\else\ifSB@inchorus\else\SB@errchord\fi\fi% \SB@testfalse% - \ifcat\noexpand\SB@next\noexpand\@sptoken\SB@testtrue\fi% + \ifcat\noexpand\SB@next\@sptoken\SB@testtrue\fi% \ifcat\noexpand\SB@next.\SB@testtrue\fi% \ifx\SB@next\SB@par\SB@testtrue\fi% \ifx\SB@next\egroup\SB@testtrue\fi% \ifx\SB@next\endgroup\SB@testtrue\fi% - \SB@hyphtests% + {\csname% + SB@HT@\ifx\SB@nextname\relax\meaning\SB@next\else\SB@nextname\fi% + \endcsname}% \ifSB@test\SB@wordendstrue\else\SB@wordendsfalse\fi% \SB@dimen\wd\SB@chordbox% \ifvmode\leavevmode\fi% @@ -2575,7 +2598,8 @@ \advance\SB@dimen.5em% \hbox to\SB@dimen{\unhbox\SB@chordbox\hfil}% \hbox to\SB@dimen{% - \unhcopy\SB@lyricbox\hfil\char\hyphenchar\font\hfil% + \unhcopy\SB@lyricbox\hfil + \ifnum\hyphenchar\font>\m@ne\char\hyphenchar\font\hfil\fi% }% \global\SB@cnt\@m% \gdef\SB@temp{\expandafter\SB@clearlig\SB@ligpost}% @@ -2651,6 +2675,15 @@ \newcommand\SB@activehat{% \ifmmode^\else\expandafter\SB@rechord\fi% } +\newcommand\SB@hat@tr{% + \ifmmode^\else\global\SB@nohatfalse\fi% +} +\newcommand\SB@hat@notr{% + \ifmmode^\else% + \SB@lop\SB@ctail\SB@toks% + \expandafter\transposehere\expandafter{\the\SB@toks}% + \fi% +} \newcommand\SB@loadactives{} { \catcode`&\active @@ -2668,12 +2701,12 @@ } } \newif\ifSB@trackch -\newtoks\SB@cr@ -\newtoks\SB@ctail +\SB@newtoks\SB@cr@ +\SB@newtoks\SB@ctail \newcommand\SB@creg{} \newcommand\newchords[1]{% \@ifundefined{SB@cr@#1}{% - \expandafter\newtoks\csname SB@cr@#1\endcsname% + \expandafter\SB@newtoks\csname SB@cr@#1\endcsname% \global\csname SB@cr@#1\endcsname{\\}% }{\SB@errdup{#1}}% } @@ -2772,7 +2805,7 @@ \SB@atopfret{\sffamily\fontsize\@vipt\@vipt\selectfont#1}% } \newif\ifSB@gettabind\SB@gettabindfalse -\newdimen\SB@tabindent +\SB@newdimen\SB@tabindent \newcommand\SB@targfret{} \newcommand\SB@targstr{} \newcommand\SB@targfing{} @@ -2946,6 +2979,23 @@ \SB@songsenvfalse% } \newcounter{SB@songsnum} +\newcommand\songtarget[2]{% + \ifnum\@ne=0\ifSB@pdf\ifx\pdfbookmark\undefined\else% + \ifx\pdfbookmark\relax\else1\fi\fi\fi\relax% + \pdfbookmark[#1]{\thesongnum. \songtitle}{#2}% + \else\ifx\hypertarget\undefined% + \else\ifx\hypertarget\relax\else% + \hypertarget{#2}{\relax}% + \fi\fi\fi% +} +\newcommand\songlink{% + \ifnum\@ne=0\ifx\hyperlink\undefined\else% + \ifx\hyperlink\relax\else1\fi\fi\relax% + \expandafter\hyperlink% + \else% + \expandafter\@gobble% + \fi% +} \newcommand\SB@indexlist{} \newcommand\SB@allindexes{} \let\SB@allindexes\@empty @@ -2960,7 +3010,7 @@ }% \if@filesw% \ifx\SB@out\relax% - \newwrite\SB@out% + \SB@newwrite\SB@out% \immediate\openout\SB@out=\jobname.sxc\relax% \fi% \immediate\write\SB@out{\noexpand\SB@iwrite{#3}{#2}}% @@ -2974,8 +3024,31 @@ \@onlypreamble\newauthorindex \newcommand\SB@cwrite[2]{% \ifx\SB@out\relax\else% - \protected@write\SB@out{}{\protect\SB@iwrite{#1}{#2}}% - \fi% + \protected@write\SB@out\SB@keepactive{\protect\SB@iwrite{#1}{#2}}% + \fi% +} +\newcommand\SB@keepactive{} +{\catcode`\~\active + \catcode`\.12 + \def\\#1#2{% + \endgroup + \SB@app\gdef\SB@keepactive{\def#1{#2}}% + } + \def\SB@temp#1#2{% + \SB@cnt#1\relax + \loop + \begingroup + \uccode`\~\SB@cnt + \uccode`\.\SB@cnt + \uppercase{\\~.} + \ifnum\SB@cnt<#2\relax + \advance\SB@cnt\@ne + \repeat + } + \SB@temp{1}{8} + \SB@temp{11}{11} + \SB@temp{14}{91} + \SB@temp{93}{255} } \newcommand\SB@iwrite[2]{% \def\SB@tempii{#1}% @@ -2999,7 +3072,7 @@ \fi% } \AtEndDocument{\SB@uncombine} -\newbox\SB@songwrites +\SB@newbox\SB@songwrites \newcommand\SB@addtoindex[2]{% \protected@edef\SB@tempii{#2}% \ifx\SB@tempii\@empty\else% @@ -3056,12 +3129,14 @@ {\expandafter\renewcommand\csname SB@idxref@#1\endcsname}% } \newcommand\SB@idxcmd[3]{% - \ifx\SB@out\relax\else% + \ifx\SB@allindexes\@empty% + \SB@warnnoidx% + \else\ifx\SB@out\relax\else% \@for\SB@temp:=\SB@allindexes\do{% \csname SB@idxsel@\SB@temp\endcsname% {\SB@@idxcmd{#1}}{\SB@@idxcmd{#2}}{\SB@@idxcmd{#3}}% }% - \fi% + \fi\fi% } \newcommand\SB@@idxcmd[1]{% \def\SB@tempii{#1}% @@ -3076,15 +3151,14 @@ \newcommand\authignoreword[1]{} \newcommand\titleprefixword[1]{} {\catcode`\%=12 - \gdef\authsepword#1{\SB@idxcmd{}{%sep #1}{}} - \gdef\authbyword#1{\SB@idxcmd{}{%after #1}{}} - \gdef\authignoreword#1{\SB@idxcmd{}{%ignore #1}{}} + \gdef\authsepword#1{\SB@idxcmd{}{}{%sep #1}} + \gdef\authbyword#1{\SB@idxcmd{}{}{%after #1}} + \gdef\authignoreword#1{\SB@idxcmd{}{}{%ignore #1}} \gdef\titleprefixword#1{\SB@idxcmd{%prefix #1}{}{}}} \@onlypreamble\authsepword \@onlypreamble\authbyword \@onlypreamble\authignoreword \@onlypreamble\titleprefixword -\newbox\SB@idxtitlebox \newcommand\SB@idxlineskip[1]{% \vskip#1\p@\@plus#1\p@\@minus#1\p@% } @@ -3207,7 +3281,7 @@ \advance\SB@colwidth-#1\columnsep% \advance\SB@colwidth\columnsep% \divide\SB@colwidth#1% - \setbox\SB@idxtitlebox\vbox{% + \setbox\SB@envbox\vbox{% \let\SB@temp\songsection% \ifx\chapter\undefined\else% \ifx\chapter\relax\else% @@ -3217,13 +3291,11 @@ \SB@temp{#2}% }% \IfFileExists{\csname SB@idxfilename@#3\endcsname.sbx}{% - \ifx\hyperlink\undefined\let\hyperlink\@secondoftwo\fi% - \ifx\hyperlink\relax\let\hyperlink\@secondoftwo\fi% \ifsepindexes% \global\setbox\SB@box\vbox{% \null% \vfil% - \unvcopy\SB@idxtitlebox% + \unvcopy\SB@envbox% \vskip.5in\@minus.3in\relax% \hbox to\hsize{% \hfil% @@ -3254,13 +3326,13 @@ \ifsepindexes% \vbox to\textheight{% \vfil% - \unvbox\SB@idxtitlebox% + \unvbox\SB@envbox% \vskip1em\relax% \hbox to\hsize{\hfil[Index not yet generated.]\hfil}% \vskip\z@\@plus2fil\relax% }% \else% - \unvbox\SB@idxtitlebox% + \unvbox\SB@envbox% \hbox to\hsize{\hfil[Index not yet generated.]\hfil}% \fi% }% @@ -3284,7 +3356,7 @@ \advance\SB@cnt\m@ne% \repeat% \edef\SB@oneidxpage{\the\SB@toks}% - \unvbox\SB@idxtitlebox% + \unvbox\SB@envbox% \vskip.2in\relax% \nointerlineskip% \null% @@ -3327,12 +3399,16 @@ }% } \newcommand\SB@maketitleindex{% - \renewenvironment{SB@lgidx}[1]{ - \hbox{\SB@colorbox\idxbgcolor{\vbox{% - \hbox to\idxheadwidth{{\idxheadfont\relax##1}\hfil}% - }}}% - \nobreak\vskip3\p@\@plus2\p@\@minus2\p@\nointerlineskip% - }{\penalty-50\vskip5\p@\@plus5\p@\@minus4\p@}% + \ifnum\idxheadwidth>\z@% + \renewenvironment{SB@lgidx}[1]{ + \hbox{\SB@colorbox\idxbgcolor{\vbox{% + \hbox to\idxheadwidth{{\idxheadfont\relax##1}\hfil}% + }}}% + \nobreak\vskip3\p@\@plus2\p@\@minus2\p@\nointerlineskip% + }{\penalty-50\vskip5\p@\@plus5\p@\@minus4\p@}% + \else% + \renewenvironment{SB@lgidx}[1]{}{}% + \fi% \renewenvironment{SB@smidx}[1]{}{}% \renewcommand\idxentry[2]{% \SB@ellipspread{\idxtitlefont\relax\ignorespaces##1\unskip}% @@ -3415,6 +3491,10 @@ \SB@Warn{The \protect\repchoruses\space feature will not wor% k when the number of columns is set to zero}% } +\newcommand\SB@warnnoidx{% + \SB@Warn{Index command has no effect since no indexes are ye% + t declared}% +} \newcommand\SB@errboo{% \SB@Error{Encountered \protect\beginsong\space without seein% g an \protect\endsong\space for the previous song}% @@ -3614,16 +3694,17 @@ \newif\iftranscapos \newif\ifnolyrics \newif\ifrawtext -\newif\ifpdfindex\pdfindextrue \newif\ifsongindexes\songindexestrue \newif\ifsepindexes\sepindexestrue -\newif\ifSB@colorboxes\SB@colorboxestrue +\newif\ifpagepreludes +\newif\ifSB@colorboxes +\IfFileExists{color.sty}\SB@colorboxestrue\SB@colorboxesfalse \newif\ifSB@omitscrip \newcommand\nolyrics{} \let\nolyrics\nolyricstrue +\newcommand\pagepreludes{\pagepreludestrue\songpos0} \SB@chordson \ProcessOptions\relax -\ifSB@pdf\else\pdfindexfalse\fi \ifSB@colorboxes \RequirePackage{color} \definecolor{SongbookShade}{gray}{.80} @@ -3646,7 +3727,7 @@ }} \fi \ifrawtext - \newwrite\SB@txtout + \SB@newwrite\SB@txtout \immediate\openout\SB@txtout=\jobname.txt \newif\ifSB@doEOL {\catcode`\^^M12 % -- cgit v1.2.3