From f008fc632f906448b4bdbc5cd96ab7d98e68b0b9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 8 Jul 2021 03:00:51 +0000 Subject: CTAN sync 202107080300 --- .../latex/contrib/tudscr/source/tudscr-fonts.dtx | 53 ++++++++++------------ 1 file changed, 24 insertions(+), 29 deletions(-) (limited to 'macros/latex/contrib/tudscr/source/tudscr-fonts.dtx') diff --git a/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx b/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx index 69ada7f5c2..507b9d0fd4 100644 --- a/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx +++ b/macros/latex/contrib/tudscr/source/tudscr-fonts.dtx @@ -1,4 +1,4 @@ -% \CheckSum{3183} +% \CheckSum{3161} % \iffalse meta-comment % % TUD-Script -- Corporate Design of Technische Universität Dresden @@ -52,7 +52,7 @@ \ifx\ProvidesFile\undefined\def\ProvidesFile#1[#2]{}\fi % \fi % -\ProvidesFile{tudscr-fonts.dtx}[2020/09/29 v2.06j TUD-Script\space% +\ProvidesFile{tudscr-fonts.dtx}[2021/07/06 v2.06m TUD-Script\space% % % \iffalse % @@ -483,7 +483,7 @@ \@tud@res@swatrue% \def\tud@res@a##1##2{% \@tud@res@swafalse% - \tud@cdfont@missing[##1]{##2}{\tud@cdmath@wrn}% + \tud@cdfont@missing[{##1}]{##2}{\tud@cdmath@wrn}% }% \def\tud@res@b##1##2{% \tud@if@fdfileexists{##1}{##2}{}{% @@ -1153,7 +1153,7 @@ % \begin{macrocode} \begingroup% \edef\tud@res@a{% - \noexpand\defaultfontfeatures[#1]{% + \noexpand\defaultfontfeatures[{#1}]{% NFSSFamily=#1,% Ligatures=TeX,% BoldFont={},% @@ -2635,16 +2635,16 @@ \tud@math@loop@greeks@lc{#1}% } \newcommand*\tud@math@loop@greeks@uc[1]{% - \@for\@tempa:={% + \forcsvlist#1{% Gamma,Delta,Theta,Lambda,Xi,Pi,Sigma,Upsilon,Phi,Psi,Omega% - }\do{\expandafter#1\expandafter{\@tempa}}% + }% } \newcommand*\tud@math@loop@greeks@lc[1]{% - \@for\@tempa:={% + \forcsvlist#1{% alpha,beta,gamma,delta,epsilon,zeta,eta,theta,iota,kappa,lambda,% mu,nu,xi,pi,rho,sigma,tau,upsilon,phi,chi,psi,omega,% varepsilon,vartheta,varpi,varrho,varsigma,varphi% - }\do{\expandafter#1\expandafter{\@tempa}}% + }% } % \end{macrocode} % \end{macro}^^A \tud@math@loop@greeks@lc @@ -2823,15 +2823,11 @@ \newcommand*\tud@math@map@@greeks[1]{% \ifcsundef{it#1}{% \@for\tud@res@a:={#1sl,sl#1,#1it}\do{% - \ifcsundef{\tud@res@a}{}{\csedef{it#1}{\csname\tud@res@a\endcsname}}% + \ifcsundef{\tud@res@a}{}{\csletcs{it#1}{\tud@res@a}}% }% }{}% - \ifcsundef{up#1}{% - \ifcsundef{#1up}{}{\csedef{up#1}{\csname#1up\endcsname}}% - }{}% - \ifcsundef{other#1}{% - \ifcsundef{#1other}{}{\csedef{other#1}{\csname#1other\endcsname}}% - }{}% + \ifcsundef{up#1}{\ifcsundef{#1up}{}{\csletcs{up#1}{#1up}}}{}% + \ifcsundef{other#1}{\ifcsundef{#1other}{}{\csletcs{other#1}{#1other}}}{}% } % \end{macrocode} % Einige Pakete stellen für griechische Majuskeln die Befehle \cs{var\dots} @@ -2840,13 +2836,11 @@ % ebenfalls ausgewertet und ggf. auf die \TUDScript-Nomenklatur abgebildet. % \begin{macrocode} \newcommand*\tud@math@map@@@greeks[1]{% - \ifcsundef{it#1}{% - \ifcsundef{var#1}{}{\csedef{it#1}{\csname var#1\endcsname}}% - }{}% + \ifcsundef{it#1}{\ifcsundef{var#1}{}{\csletcs{it#1}{var#1}}}{}% \ifcsundef{up#1}{% \tud@lowerstring\tud@res@a{#1}% \edef\tud@res@a{Up\tud@res@a}% - \ifcsundef{\tud@res@a}{}{\csedef{up#1}{\csname\tud@res@a\endcsname}}% + \ifcsundef{\tud@res@a}{}{\csletcs{up#1}{\tud@res@a}}% }{}% } % \end{macrocode} @@ -3589,6 +3583,7 @@ % \changes{v2.06}{2019/06/19}{neu}^^A % \begin{macro}{\tud@cdmath@declare@alias} % \changes{v2.06}{2019/06/19}{neu}^^A +% \changes{v2.06m}{2021/07/06}{\cs{csedef} durch \cs{csletcs} ersetzt}^^A % \begin{macro}{\tud@cdmath@symb@list} % \changes{v2.06}{2019/06/19}{neu}^^A % \begin{macro}{\tud@cdmath@declare@char} @@ -3614,9 +3609,9 @@ % \begin{macrocode} \newcommand*\tud@cdmath@declare@alias[2]{% \listeadd\tud@cdmath@symb@list{#1}% - \ifcsdef{tud@cdmath@symbol@#2}{% - \csedef{tud@cdmath@symbol@#1}{\csname tud@cdmath@symbol@#2\endcsname}% - }{}% + \ifcsundef{tud@cdmath@symbol@#2}{}{% + \csletcs{tud@cdmath@symbol@#1}{tud@cdmath@symbol@#2}% + }% } \newcommand*\tud@cdmath@char@list{} \newcommand*\tud@cdmath@declare@char[4]{% @@ -3635,7 +3630,7 @@ \endgroup% \noexpand\DeclareMathSymbol% {\csname tud@cdmath@symbol@#1\endcsname}% - {\etex@unexpanded{#2}}{#3}{#4}% + {\unexpanded{#2}}{#3}{#4}% }% \tud@res@a% } @@ -3689,20 +3684,20 @@ % gesichert und später wiederhergestellt. Andernfalls wird er wieder undefinert % gesetzt. % \begin{macrocode} - \ifcsdef{#1}{% + \ifcsundef{#1}{% + \addto@hook\tud@cdmath@symbols@toks{\csundef{#1}}% + }{% \tud@cs@store{#1}% \addto@hook\tud@cdmath@symbols@toks{\tud@cs@restore{#1}}% - }{% - \addto@hook\tud@cdmath@symbols@toks{\csundef{#1}}% }% % \end{macrocode} % Nur wenn ein gewünschtes Symbol auch existiert, wird es gesetzt. Damit können % Symbole für \opt{cdmath=true} auch gezielt undefiniert gesetzt werden. % \begin{macrocode} - \ifcsdef{tud@cdmath@symbol@#1}{% - \tud@cs@letltx{#1}{tud@cdmath@symbol@#1}% - }{% + \ifcsundef{tud@cdmath@symbol@#1}{% \csundef{#1}% + }{% + \tud@cs@letltx{#1}{tud@cdmath@symbol@#1}% }% } % \end{macrocode} -- cgit v1.2.3