diff options
author | Karl Berry <karl@freefriends.org> | 2011-04-04 23:18:40 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-04-04 23:18:40 +0000 |
commit | aeb22f958bf3b465bb5e3f085176c7fe0f2ef562 (patch) | |
tree | 4dee3112e9e255fa7b728cbe0eef0d95d1f8538d /Master/texmf-dist | |
parent | dd1adc2e34fba508c5c5a67dfb689ba955dbc814 (diff) |
mathastext 1.14c (4apr11)
git-svn-id: svn://tug.org/texlive/trunk@21967 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r-- | Master/texmf-dist/doc/latex/mathastext/README | 26 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/mathastext/mathastext.pdf | bin | 151237 -> 156079 bytes | |||
-rw-r--r-- | Master/texmf-dist/source/latex/mathastext/mathastext.dtx | 1361 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/mathastext/mathastext.ins | 4 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/mathastext/mathastext.sty | 684 |
5 files changed, 1095 insertions, 980 deletions
diff --git a/Master/texmf-dist/doc/latex/mathastext/README b/Master/texmf-dist/doc/latex/mathastext/README index 0fb71272301..6ffff33a154 100644 --- a/Master/texmf-dist/doc/latex/mathastext/README +++ b/Master/texmf-dist/doc/latex/mathastext/README @@ -2,7 +2,7 @@ + mathastext + + + + `Use the text font in simple mathematics' + - + v1.14 2011/03/22 + + + v1.14c 2011/04/04 + + jfbu (at) free.fr + +-------------------------------------------+ @@ -65,6 +65,30 @@ Examples available at http://jf.burnol.free.fr/mathsastext.html CHANGE LOG +1.14c + + * A bug is fixed: the \Mathastext macro reinitializes + the fonts in the normal and bold math versions, but it + also erroneously redeclared the math alphabet changing + commands which could have been set up in previously + defined math versions (via earlier calls to + \Mathastext[version_name]). + +1.14b + + * there was a bug with \$, \#, \&, \% in math mode which + showed up when ten or more math families had been + declared. This bug affected also the minus sign under + the same circumstances, when Unicode engines were + used. Fixed. + + * the options LGRgreek and selfGreek act now a bit + differently, and new options LGRgreeks and selfGreeks + have been defined. + + + I also cleaned up a bit the code, for a more + structured namespace. + 1.14 * mathastext now modifies also the math alphabets \mathit, diff --git a/Master/texmf-dist/doc/latex/mathastext/mathastext.pdf b/Master/texmf-dist/doc/latex/mathastext/mathastext.pdf Binary files differindex 8c96b67d360..4c023e3c780 100644 --- a/Master/texmf-dist/doc/latex/mathastext/mathastext.pdf +++ b/Master/texmf-dist/doc/latex/mathastext/mathastext.pdf diff --git a/Master/texmf-dist/source/latex/mathastext/mathastext.dtx b/Master/texmf-dist/source/latex/mathastext/mathastext.dtx index 32c0874a4e9..eb5af16591d 100644 --- a/Master/texmf-dist/source/latex/mathastext/mathastext.dtx +++ b/Master/texmf-dist/source/latex/mathastext/mathastext.dtx @@ -1,7 +1,9 @@ +% \iffalse +%<*dtx> +\ProvidesFile{mathastext.dtx}[2011/04/04 v1.14c ] +%</dtx> +% \fi % \iffalse meta-comment -% Time-stamp: <22-03-2011 15:45:34 CET burnol> -% File `mathastext.dtx' -% % Copyright (C) 2011 by Jean-Francois Burnol % % This file may be distributed and/or modified under the @@ -19,13 +21,9 @@ % % \fi % \iffalse -%<*dtx> -\ProvidesFile{mathastext.dtx} - [2011/03/22 v1.14 Use the text font in simple mathematics] -%</dtx> -% %<*driver> -\documentclass[a4paper]{ltxdoc} +\documentclass[a4paper]{ltxdoc} % suppress the a4paper option if you print on + % US letter ! \usepackage[hscale=0.6]{geometry} \usepackage[colorlinks=true,% linkcolor={blue},% @@ -113,124 +111,12 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} \DeclareMathSymbol{\Re}{\mathord}{mtpsymbol}{"C2} \DeclareMathSymbol{\Im}{\mathord}{mtpsymbol}{"C1} \DeclareMathSymbol{\DotTriangle}{\mathord}{mtpsymbol}{92} -%\RecordChanges %\OnlyDescription \begin{document} \DocInput{mathastext.dtx} \end{document} %</driver> % \fi -% \changes{1.14}{2011/03/22}{ -% * \cs{mathit}, \cs{mathsf} and \cs{mathtt} are now -% modified to make use of the text fonts (previous -% versions only modified \cs{mathnormal}, \cs{mathrm} and -% \cs{mathbf}) -% } -% -% \changes{1.13b}{2011/03/15}{ -% * I modify the way the \cs{prod} and \cs{sum} are defined when the option -% symbolmisc is used. So now, in display math we revert to the default -% large symbols. -% } -% -% \changes{1.13}{2011/03/11}{ -% * option LGRgreek: for fonts also available in LGR-encoding -% * internal changes: systematic use of `if' conditionals -% for better readability of the code and easier error-checking -% (done a bit late for that aspect, though... ) -% } -% -% \changes{1.12b}{2011/02/09}{ -% * a completely stupid bug regarding uppercase Greek is -% corrected -% * I take this opportunity to add LY1 as one of the supported -% encoding for math accents -% * and I correct an orthographical mistake in the README -% } -% -% \changes{1.12}{2011/02/07}{ -% * annoying silly bug in 1.11 about using \cs{MessageBreak} in -% the \cs{typeout} things -% * there was in 1.11 an even sillier bug which made the -% option nominus provoke an error. -% * I have improved the way |mathastext| deals with the -% encoding-dependent things, especially with respect to -% the handling of unicode engines. -% } -% -% \changes{1.11}{2011/02/06}{ -% * bugs from version 1.1 have been fixed. -% * Among them the non correct behavior when -% eulergreek and one of the symbol options were used -% at the same time. -% * Also the macro \cs{Mathastext} did not -% contrarily to what was said in the docs pick up -% the font defaults at the time of it being used in -% the preamble. -% * the endash option provoked an error when used -% with XeTeX or LuaTeX. -% * for brevity sake long macro names starting with -% \cs{Mathastext\cdots} now exist in the form -% \cs{MT\cdots} -% * the |endash| option is made default, as well as the -% |alldelims| option. A new |symboldelimiters| option -% specifies to use the Symbol font for characters others -% then letters and digits. -% * the \cs{fouriervec} command must be explicitely -% requested by the |fouriervec| option -% * the command \cs{Mathastext} now accepts an optional -% argument which, if present, makes \cs{Mathastext} acts -% as \cs{MathastextDeclareVersion} with the current font -% defaults, the optional argument giving the name of the -% version. This mechanism allows to use |mathastext| with -% unicode fonts (XeTeX or LuaTeX with |fontspec|) -% * |mathastext| is more clever for the dotless i and j -% and the hbar with respect to encoding problems; and it -% knows also their Unicode locations. -% } -% -% \changes{1.1}{2011/02/01}{ -% * option |italic|: this is the main change for the user. Internally we now -% have two distinct fonts, however they differ only in shape. -% * the mechanism of math versions is extended to accomodate this: the -% macros \cs{MathastextWillUse} and \cs{MathastextDeclareVersion} now -% accept an optional argument for specifying the letters' shape -% * |frenchmath| sets the uppercase Latin letters nevertheless in the -% digits font -% * \cs{mathnormal}, \cs{mathrm}, \cs{mathbf} work in the same way as in -% standard \LaTeX{}, but with the |mathastext| font. But I do nothing -% with the other default alphabet changing commands. -% * the minus sign can be represented as an en-dash. This seems to be clever -% enough to accomodate all 8bit encodings, not limited to OT1 or T1. -% * the |noplusnominus| option is split into two -% * I change the way the encoding is chosen for the math accents: I use the -% default encoding at the time of loading. So there is nothing more in the -% code at AtBeginDocument for this. I do not know an automatic way to go -% from the encoding to the accent slots, and I did not want to manually -% incorporate here all possible or at least many encodings, so basically -% only OT1 and T1 are ok. Default to OT1. Of course in case on more than one -% math versions, they should have the same encoding for everything to work -% everywhere. -% * same change for \cs{imath}: but defaults to T1. -% * some attention devoted to |hbar|. Works ok, or at least reasonably with -% the fonts I tested. Adjusts to whether or not the |italic| option was used. -% * |defaultvec| deprecated, rather we now have \cs{fouriervec} command to -% access the vec accent from the Fourier font. -% * new alphabet commands \cs{mathnormalbold}, \cs{MathEulerBold}, and -% \cs{MathEuler} and \cs{MathPSymbol} have new names. -% * names for the capital Greek letters which look like their Latin versions. -% * bug fixed: the character slot for \cs{Xi} in the Symbol font was wrong. -% **** limitations: -% * the \cs{pmvec} accent will not change its size when -% used in subscripts or exponents -% * now that internally we have two fonts for letters and -% digits they could be entirely unrelated, it is just a -% question of providing the user macros to pass the info to -% the package, and to duplicate some variables. As this -% goes really against the initial design goals, and adds -% complications, I did not do it.} -% -% \changes{1.0}{2011/01/25}{Initial version.} % % \GetFileInfo{mathastext.dtx} % @@ -348,16 +234,18 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % their kind remarks (chronological order).} on how to % have the letters be in italic shape. % -% Starting with version |1.1| the default is still, as in -% version |1.0|, for everything to be in upright shape, -% but it suffices to pass to the package the option -% |italic| to have italic Latin letters in math -% mode. There is also an option |frenchmath|\footnote{in -% versions of the package prior to |1.13|, it was -% necessary to also pass the option |italic| to enable -% |frenchmath|. This is now superfluous.} to make the uppercase letters -% nevertheless upright, because this is the way of -% traditional French mathematical typography. +% Starting with version |1.1| the default is still, as in version |1.0|, +% for everything to be in upright shape, but it suffices to pass to the +% package the option |italic| to have italic Latin letters in math +% mode.\footnote{more precisely stated, the value of \cs{itdefault} is +% used.} There is also an option |frenchmath|\footnote{in versions of the +% package prior to |1.13|, it was necessary to also pass the option +% |italic| to enable |frenchmath|. This is now superfluous.} to make the +% uppercase letters nevertheless upright, because this is the way of +% traditional French mathematical typography.\footnote{more precisely +% stated, the shape will be the one used for digits and operator names, +% thus by +% default \cs{shapedefault}.} % % \subsection{Greek letters} % @@ -377,9 +265,7 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % encoding.\footnote{among examples known to the author are % the Comfortaa and the Droid (serif and sans) fonts, % and of course the Greek Font Society fonts such as -% GFS Didot.} The letters (but see below) will be in -% the same shape as the Latin letters, or upright in -% case of the option |frenchmath|. +% GFS Didot.} % \item[eulergreek:] the Greek letters will be taken from % the Euler font which is included in all \LaTeX{} % distributions (although no package loading is @@ -392,10 +278,13 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % from the (Adobe) Symbol font. A command is provided % so that the user can scale the Symbol font to let it % better mix with the text font. The letters are upright. -% \item[selfGreek:] this option has limited use; it is -% for OT1-encoded text fonts which do provide the -% glyphs for the capital Greek letters. It does nothing -% for the lowercase Greek letters. +% \item[selfGreek:] this option is in case the text font is available in +% OT1-encoding and does contain the glyphs for the eleven capital Greek +% letters of default \TeX{}. It does nothing for the lowercase Greek +% letters. The encoding used in the document does not have to be +% OT1.\footnote{contrarily to the previous versions of the package, +% |v1.14c| will not assume that the encoding is OT1-compatible, it will +% directly load the OT1-encoded version of the font.} % \end{description} % % \subsubsection{Shape of Greek letters} @@ -406,64 +295,61 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % ISO standard is to use italic shape for both lowercase % and uppercase. % -% The Euler and Symbol font are not available in italic -% shape, so this raises issues only in the case of the -% options |LGRgreek| and |selfGreek|. The |mathastext| -% default is to let the Greek letters have the same shape -% as the Latin letters (and be upright in the case of -% option |frenchmath|.) +% The Euler and Symbol font not being available in other than their default +% upright shape, this question of shapes for Greek letters raises issues +% only in the case of the options |LGRgreek| and |selfGreek|. +% +% The options |frenchmath|, |itgreek|, |upgreek|, |itGreek| and |upGreek| +% modify the Greek letter shapes according to the following rules, listed +% from the lowest to the highest priority: +% \begin{description} +% \item[default:] the lowercase Greek letters are in the same shape as +% Latin letters, and the uppercase in the same shape as applied to digits +% and operator names, +% \item[frenchmath:] both lowercase and uppercase are in the same shape as +% the digits and operator names (most of the time this means ``upright +% shape'', but it can be otherwise), +% \item[itgreek,upgreek:] both lowercase and uppercase are in the +% \cs{itdefault}, respectively the \cs{updefault} shape (at the time of +% loading the package or at the time of a subsequent call to +% \cs{Mathastext} or \cs{MathastextWillUse}), +% \item[itGreek,upGreek:] same as above, but only for the uppercase +% letters. +% \end{description} +% +% So, the default gives the classic \TeX{} behavior when option |italic| +% was passed. Each call to \cs{Mathastext} (or \cs{MathastextWillUse}) +% macros (described in a later section) reinitializes the computation of +% the shapes. +% +% As described in the next section the package allows to define various +% ``math versions''. The fonts used for the Greek letters, and their +% shapes, are the same accross all math versions, except when options +% |LGRgreeks| or |selfGreeks| are passed to the package (Note the +% additional ``s''). It is then expected that all math versions will use +% fonts available in LGR encoding (or, OT1 encoding for the capital Greek +% letters), and the shapes will then also be local to the math version. % -% A finer control is provided by options |upgreek|, -% |itgreek|, |upGreek|, |itGreek|: the former first two -% control both lower- and uppercase, the latter control -% only the uppercase shape. So classic \TeX{} is -% |itgreek|+|upGreek|, ISO is |itgreek|, and French is -% |upgreek|. -% -% Note that, as mentioned before, the options |italic| -% and |frenchmath| act on both Latin and Greek letters, -% so |italic| gives ISO behavior, and |frenchmath| gives -% French behavior,\footnote{In fact, |frenchmath| confers -% to the Greek letters and uppercase Latin letters the -% same shape as to the operator-names and digits, so -% generally speaking this will be the \cs{shapedefault} -% at the time of loading the package. If this shape is -% not the upright one and one still wants upright Greek, -% then it is thus necessary to use |upgreek|.} without -% need to use the \DeleteShortVerb{|}\MakeShortVerb{*} -% *[up|it][g|G]reek*\DeleteShortVerb{*}\MakeShortVerb{|} -% options. -% -% Again, all of this applies only in case of option -% |LGRgreek| and to a lesser extent, |selfGreek|. And to -% recapitulate, people wanting the classic \TeX{} -% behavior will use |italic|+|upGreek|, or -% |itgreek|+|upGreek| in the absence of |italic|. % % % % \subsection{Advanced use: math versions} % % -% It is not infrequent to use two different text fonts in -% the same document. In the context of the |mathastext| -% design goals it was thus necessary to find a way to let -% changes of the text font also propagate to math -% mode. For this the package extends the \LaTeX{} -% mechanism of math versions. However this is only for -% Latin letters, digits, and the other characters -% mentioned above, but not for Greek letters: the choice -% of a Greek-related option (or none) at the time of -% loading the package will affect all math versions. This -% does mean though that in the case of the |LGRgreek| -% option changing the text font will also change the font -% for the Greek letters. But it is not possible (in the -% current version of the package) to have one part of the -% document use the Euler font for Greek letters and -% another part use the Symbol font (it is possible to -% use both fonts simultaneously but Symbol will then be -% employed for various mathematical symbols, not for -% Greek, see option |symbolmax|). +% It is not infrequent to use two different text fonts in the same +% document. In the context of the |mathastext| design goals it was thus +% necessary to find a way to let changes of the text font also propagate to +% math mode. For this the package extends the \LaTeX{} mechanism of math +% versions. However this is only for Latin letters, digits, and the other +% characters mentioned above, but not for Greek letters: the fonts for the +% Greek letters will be the same accross all math +% versions.\footnote{except +% for the |LGRgreeks| and |selfGreeks| options.} It is not possible (in +% the current version of the package) to have one part of the document use +% the Euler font for Greek letters and another part use the Symbol font (it +% is possible to use both fonts simultaneously but Symbol will then be +% employed for various mathematical symbols, not for Greek, see option +% |symbolmax|). % % Let us now see a small document using four math versions: % \begin{verbatim} @@ -806,7 +692,10 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % designate the corresponding math version. Without % optional argument \cs{Mathastext} redefines the default % normal and bold versions. This argument, being -% optional, must be enclosed within square brackets. +% optional, must be enclosed within square brackets.\footnote{The allowed +% version names are as for the \LaTeX{} \cs{DeclareMathVersion} macro. Do +% not use ``normal'' or ``bold''; this is already taken care of by a call +% to \cs{Mathastext} without optional argument.} % \end{itemize} % \item % |\MTWillUse|\oarg{ltsh}\marg{enc}\marg{fam}\marg{ser}\marg{sh}: @@ -964,8 +853,8 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % \item |frenchmath|: |italic|, but uppercase Latin letters % in the same font as for digits and operator names. In % general this means that they will be upright. In case of -% the |LGRgreek| option, this generally upright shape will -% be applied also to Greek letters. +% the |LGRgreek| option, |frenchmath| influences also the shape of the +% Greek letters. % \item |endash|, |emdash|: use the text font en-dash (\textendash) or even % the em-dash (\textemdash, but this seems crazy) for the minus sign % rather than {}-{}. |endash| option is default for the package. @@ -1004,13 +893,20 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % \item |symbolmax|: combines |symbol| and |symboldelimiters|. % \item |eulergreek|, |eulerdigits|: to let Greek letters (digits) use the % Euler font. -% \item |LGRgreek|: this is for a font which is also available in LGR-encoding. -% \item |selfGreek|: this is for a font which has the capital Greek -% letters at the OT1 slot positions. +% \item |LGRgreek|: this is for a font which is also available in +% LGR-encoding. +% \item |LGRgreeks|: each declared math version will be supposed to be with a +% font which is also available in LGR-encoding. +% \item |selfGreek|: this is for a font which is also available in +% OT1-encoding and contains the glyphs for the default eleven capital Greek +% letters. +% \item |selfGreeks|: each declared math version will be supposed to be with +% a font with the eleven capital Greek letters in its OT1-encoded +% version. % \item |upgreek|, |itgreek|, |upGreek|, |itGreek|: -% optional specification of the shapes of the Greek -% letters, or only of the uppercase Greek letters. Only operant -% in the case of the |LGRgreek| and |selfGreek| options. +% options to tell to use \cs{itdefault} or \cs{updefault} for the lowercase +% and uppercase (or only the uppercase) Greek letters. Only operant +% in the case of the |LGRgreek(s)| and |selfGreek(s)| options. % \item |mathaccents|: use the text font also for the math % accents. As in vanilla \LaTeX{}, they are taken from the font % for the digits and \cs{log}-like names. Obey the alphabet @@ -1032,13 +928,12 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} % % \StopEventually{} % -% \section{Commented source code} -% +% \section{Implementation} % % \begin{macrocode} \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{mathastext} - [2011/03/22 v1.14 Use the text font in simple mathematics] + [2011/04/04 v1.14c Use the text font in simple mathematics] % \end{macrocode} % I copied these macros from the |iftex| package of Vafa~\textsc{Khalighi}. % Perhaps I should rather require the package? @@ -1070,20 +965,20 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} \let\@font@warning\m@stext@warning} \mt@font@info@off % \end{macrocode} -% \begin{macro}{\m@stextenc} -% \begin{macro}{\m@stextfam} -% \begin{macro}{\m@stextser} -% \begin{macro}{\m@stextsh} -% \begin{macro}{\m@stextbold} -% \begin{macro}{\m@stextshletter} -% Internal variables. Will be redefined with \cs{def} later. -% \begin{macrocode} - \edef\m@stextenc{\encodingdefault} - \edef\m@stextfam{\familydefault} - \edef\m@stextser{\seriesdefault} - \edef\m@stextsh{\shapedefault} - \edef\m@stextbold{\bfdefault} - \edef\m@stextshletter{\shapedefault} +% \begin{macro}{\m@t@enc} +% \begin{macro}{\m@t@fam} +% \begin{macro}{\m@t@ser} +% \begin{macro}{\m@t@opsh} +% \begin{macro}{\m@t@bold} +% \begin{macro}{\m@t@ltsh} +% Internal variables. +% \begin{macrocode} + \def\m@t@enc{\encodingdefault} + \def\m@t@fam{\familydefault} + \def\m@t@ser{\seriesdefault} + \def\m@t@opsh{\shapedefault} %% will be default shape for operator names + \def\m@t@bold{\bfdefault} + \def\m@t@ltsh{\shapedefault} %% will be default shape for letters \newif\ifmt@proceed \newif\ifmt@failed % \end{macrocode} @@ -1104,88 +999,103 @@ pdfstartview=FitH,pdfpagemode=UseNone]{hyperref} \def\mt@lyi{LY1} % \end{macrocode} % \begin{macro}{Package options} +% Almost each option has an associated if... conditional % \begin{macrocode} -\newif\ifmt@italic\DeclareOption{italic}{\mt@italictrue - \edef\m@stextshletter{\itdefault}} +\newif\ifmt@italic + \DeclareOption{italic}{\mt@italictrue\def\m@t@ltsh{\itdefault}} \newif\ifmt@frenchmath -\DeclareOption{frenchmath}{\mt@frenchmathtrue - \ExecuteOptions{italic}} + \DeclareOption{frenchmath}{\mt@frenchmathtrue\ExecuteOptions{italic}} %% \newif\ifmt@endash\mt@endashtrue -\DeclareOption{endash}{\mt@endashtrue} -\DeclareOption{noendash}{\mt@endashfalse} -\newif\ifmt@emdash\DeclareOption{emdash}{\mt@emdashtrue\mt@endashfalse} + \DeclareOption{endash}{\mt@endashtrue} + \DeclareOption{noendash}{\mt@endashfalse} +\newif\ifmt@emdash + \DeclareOption{emdash}{\mt@emdashtrue\mt@endashfalse} %% \newif\ifmt@alldelims -\DeclareOption{alldelims}{\mt@alldelimstrue} -\ifx\mt@oti\m@stextenc\else\mt@alldelimstrue\fi -\DeclareOption{nolessnomore}{\mt@alldelimsfalse} + \DeclareOption{alldelims}{\mt@alldelimstrue} +\edef\mt@tmp{\encodingdefault}\ifx\mt@oti\mt@tmp\else\mt@alldelimstrue\fi + \DeclareOption{nolessnomore}{\mt@alldelimsfalse} %% -\newif\ifmt@noplus\DeclareOption{noplus}{\mt@noplustrue} -\newif\ifmt@nominus\DeclareOption{nominus}{\mt@nominustrue} +\newif\ifmt@noplus + \DeclareOption{noplus}{\mt@noplustrue} +\newif\ifmt@nominus + \DeclareOption{nominus}{\mt@nominustrue} \DeclareOption{noplusnominus}{\ExecuteOptions{noplus,nominus}} %% -\newif\ifmt@noparen\DeclareOption{noparenthesis}{\mt@noparentrue} -\newif\ifmt@nopunct\DeclareOption{nopunctuation}{\mt@nopuncttrue} -\newif\ifmt@noequal\DeclareOption{noequal}{\mt@noequaltrue} -\newif\ifmt@noexclam\DeclareOption{noexclam}{\mt@noexclamtrue} -\newif\ifmt@noast\DeclareOption{noasterisk}{\mt@noasttrue} -\newif\ifmt@nospecials\DeclareOption{nospecials}{\mt@nospecialstrue} +\newif\ifmt@noparen + \DeclareOption{noparenthesis}{\mt@noparentrue} +\newif\ifmt@nopunct + \DeclareOption{nopunctuation}{\mt@nopuncttrue} +\newif\ifmt@noequal + \DeclareOption{noequal}{\mt@noequaltrue} +\newif\ifmt@noexclam + \DeclareOption{noexclam}{\mt@noexclamtrue} +\newif\ifmt@noast + \DeclareOption{noasterisk}{\mt@noasttrue} +\newif\ifmt@nospecials + \DeclareOption{nospecials}{\mt@nospecialstrue} \DeclareOption{basic}{\ExecuteOptions{noparenthesis,nopunctuation,% noplusnominus,noequal,noexclam,noasterisk,nospecials,nolessnomore}} %% -\newif\ifmt@nohbar\DeclareOption{nohbar}{\mt@nohbartrue} -\newif\ifmt@nodigits\DeclareOption{nodigits}{\mt@nodigitstrue} -\newif\ifmt@defaultimath\DeclareOption{defaultimath}{\mt@defaultimathtrue} -\newif\ifmt@mathaccents\DeclareOption{mathaccents}{\mt@mathaccentstrue} -%% -\newif\ifmt@selfGreek - \DeclareOption{selfGreek}{\mt@selfGreektrue} - \DeclareOption{selfgreek}{\mt@selfGreektrue} -\newif\ifmt@LGRgreek\DeclareOption{LGRgreek}{\mt@LGRgreektrue} +\newif\ifmt@nohbar + \DeclareOption{nohbar}{\mt@nohbartrue} +\newif\ifmt@nodigits + \DeclareOption{nodigits}{\mt@nodigitstrue} +\newif\ifmt@defaultimath + \DeclareOption{defaultimath}{\mt@defaultimathtrue} +\newif\ifmt@mathaccents + \DeclareOption{mathaccents}{\mt@mathaccentstrue} %% \newif\ifmt@needsymbol \newif\ifmt@symboldelimiters -\DeclareOption{symboldelimiters}{\mt@needsymboltrue\mt@symboldelimiterstrue} + \DeclareOption{symboldelimiters}{\mt@needsymboltrue\mt@symboldelimiterstrue} \newif\ifmt@symboldigits -\DeclareOption{symboldigits}{\mt@needsymboltrue\mt@symboldigitstrue} + \DeclareOption{symboldigits}{\mt@needsymboltrue\mt@symboldigitstrue} \newif\ifmt@symbolgreek -\DeclareOption{symbolgreek}{\mt@needsymboltrue\mt@symbolgreektrue} + \DeclareOption{symbolgreek}{\mt@needsymboltrue\mt@symbolgreektrue} \newif\ifmt@symbolre -\DeclareOption{symbolre}{\mt@needsymboltrue\mt@symbolretrue} + \DeclareOption{symbolre}{\mt@needsymboltrue\mt@symbolretrue} \newif\ifmt@symbolmisc -\DeclareOption{symbolmisc}{\mt@needsymboltrue\mt@symbolmisctrue} + \DeclareOption{symbolmisc}{\mt@needsymboltrue\mt@symbolmisctrue} \DeclareOption{symbol}{\ExecuteOptions{symbolgreek,symbolmisc,symbolre}} \DeclareOption{symbolmax}{\ExecuteOptions{symbol,symboldelimiters}} %% \newif\ifmt@needeuler \newif\ifmt@eulerdigits -\DeclareOption{eulerdigits}{\mt@needeulertrue\mt@eulerdigitstrue} + \DeclareOption{eulerdigits}{\mt@needeulertrue\mt@eulerdigitstrue} \newif\ifmt@eulergreek -\DeclareOption{eulergreek}{\mt@needeulertrue\mt@eulergreektrue} + \DeclareOption{eulergreek}{\mt@needeulertrue\mt@eulergreektrue} %% -\newif\ifmt@twoshapesforgreek -\newif\ifmt@upgreek +\newif\ifmt@selfGreek + \DeclareOption{selfGreek}{\mt@selfGreektrue} +\newif\ifmt@selfGreeks + \DeclareOption{selfGreeks}{\mt@selfGreekstrue\mt@selfGreektrue} +\newif\ifmt@LGRgreek + \DeclareOption{LGRgreek}{\mt@LGRgreektrue} +\newif\ifmt@LGRgreeks + \DeclareOption{LGRgreeks}{\mt@LGRgreekstrue\mt@LGRgreektrue} +%% +\def\mt@greek@select{0} \newif\ifmt@itgreek -\newif\ifmt@upGreek -\newif\ifmt@itGreek -\DeclareOption{upgreek}{\mt@upgreektrue} -\DeclareOption{itgreek}{\mt@itgreektrue} -\DeclareOption{upGreek}{\mt@twoshapesforgreektrue\mt@upGreektrue} -\DeclareOption{itGreek}{\mt@twoshapesforgreektrue\mt@itGreektrue} +\newif\ifmt@upgreek + \DeclareOption{itgreek}{\mt@itgreektrue} + \DeclareOption{upgreek}{\mt@upgreektrue} + \DeclareOption{itGreek}{\def\mt@greek@select{1}} + \DeclareOption{upGreek}{\def\mt@greek@select{2}} %% \newif\ifmt@defaultnormal -\DeclareOption{defaultnormal}{\mt@defaultnormaltrue} + \DeclareOption{defaultnormal}{\mt@defaultnormaltrue} \newif\ifmt@defaultrm -\DeclareOption{defaultrm}{\mt@defaultrmtrue} + \DeclareOption{defaultrm}{\mt@defaultrmtrue} \newif\ifmt@defaultbf -\DeclareOption{defaultbf}{\mt@defaultbftrue} + \DeclareOption{defaultbf}{\mt@defaultbftrue} \newif\ifmt@defaultit -\DeclareOption{defaultit}{\mt@defaultittrue} + \DeclareOption{defaultit}{\mt@defaultittrue} \newif\ifmt@defaultsf -\DeclareOption{defaultsf}{\mt@defaultsftrue} + \DeclareOption{defaultsf}{\mt@defaultsftrue} \newif\ifmt@defaulttt -\DeclareOption{defaulttt}{\mt@defaulttttrue} + \DeclareOption{defaulttt}{\mt@defaulttttrue} \DeclareOption{defaultalphabets}{\ExecuteOptions{defaultnormal,defaultrm,% defaultbf,defaultit,defaultsf,defaulttt}} % \end{macrocode} @@ -1193,9 +1103,12 @@ defaultbf,defaultit,defaultsf,defaulttt}} % declare a \cs{HUGE} size and modify the \cs{Huge} one at 12pt (taken from % the |moresize| package). So we have an option to maintain default situation. % \begin{macrocode} -\newif\ifmt@defaultsizes\DeclareOption{defaultmathsizes}{\mt@defaultsizestrue} -\newif\ifmt@twelve\DeclareOption{12pt}{\mt@twelvetrue} -\newif\ifmt@fouriervec\DeclareOption{fouriervec}{\mt@fouriervectrue} +\newif\ifmt@defaultsizes + \DeclareOption{defaultmathsizes}{\mt@defaultsizestrue} +\newif\ifmt@twelve + \DeclareOption{12pt}{\mt@twelvetrue} +\newif\ifmt@fouriervec + \DeclareOption{fouriervec}{\mt@fouriervectrue} \DeclareOption*{\PackageWarning{mathastext}{Unknown option `\CurrentOption'}} %% \ProcessOptions\relax @@ -1211,7 +1124,7 @@ defaultbf,defaultit,defaultsf,defaulttt}} % also employ \cs{SetSymbolFont} later. % \begin{macrocode} \DeclareSymbolFont{mtoperatorfont} - {\m@stextenc}{\m@stextfam}{\m@stextser}{\m@stextsh} + {\m@t@enc}{\m@t@fam}{\m@t@ser}{\m@t@opsh} % \end{macrocode} % \end{macro} % \begin{macro}{mtletterfont} @@ -1221,90 +1134,106 @@ defaultbf,defaultit,defaultsf,defaulttt}} % Kevin~\textsc{Klement} who asked for such a feature. % \begin{macrocode} \DeclareSymbolFont{mtletterfont} - {\m@stextenc}{\m@stextfam}{\m@stextser}{\m@stextshletter} + {\m@t@enc}{\m@t@fam}{\m@t@ser}{\m@t@ltsh} +% \end{macrocode} +% \end{macro} +% \begin{macro}{Math alphabets} +% We follow the standard \LaTeX{} behavior for \cs{mathbf}, which is to pick up +% the bold series of the roman font (digits and operator names). +% \begin{macrocode} \DeclareSymbolFontAlphabet{\Mathnormal}{mtletterfont} \DeclareSymbolFontAlphabet{\Mathrm}{mtoperatorfont} % \end{macrocode} +% Prior to version 1.14c the following declarations were inside the +% \cs{Mathastext} macro, but this was a bug because if the user placed a call +% to the macro after having defined math versions (using +% \cs{Mathastext[versionname]}) the math alphabets were reinitialized in all +% previously declared math versions. +% \begin{macrocode} + \DeclareMathAlphabet{\Mathbf}{\m@t@enc}{\m@t@fam}{\m@t@bold}{\m@t@opsh} + \DeclareMathAlphabet{\Mathit}{\m@t@enc}{\m@t@fam}{\m@t@ser}{\itdefault} + \DeclareMathAlphabet{\Mathsf}{\m@t@enc}{\sfdefault}{\m@t@ser}{\m@t@opsh} + \DeclareMathAlphabet{\Mathtt}{\m@t@enc}{\ttdefault}{\m@t@ser}{\m@t@opsh} +% \end{macrocode} +% \begin{macro}{\mathnormalbold} +% We add a new Alphabet changing macro to standard \LaTeX{} +% \begin{macrocode} + \DeclareMathAlphabet{\mathnormalbold} + {\m@t@enc}{\m@t@fam}{\m@t@bold}{\m@t@ltsh} +% \end{macrocode} +% \end{macro} % \end{macro} % \begin{macro}{LGRgreek} -% \begin{macro}{mtlgrfont} +% \begin{macro}{selfGreek} % \begin{macro}{mtlgrfontupper} -% The LGRgreek option necessitates to define at least one -% additional symbol font |mtlgrfont|, and possibly a further -% one |mtlgrfontupper| for uppercase Greek. -% \begin{macrocode} +% \begin{macro}{mtlgrfontlower} +% \begin{macro}{mtselfGreekfont} +% v1.14b: We can not move the \cs{DeclareSymbolFont} to the \cs{Mathastext} +% macro because it resets the font family in *all* math versions, and some +% could have been defined by the user with previous calls to +% \cs{Mathastext}. So we have to have them here. The problem is that at this +% stage it is impossible to know if we really need (in the case of LGRgreek) +% two separate shapes for upper and lowercase, and (in the case of +% selfGreek) a shape distinct from the one used in |mtoperatorfont|. So I +% opted in the end for declaring possibly one too many font. To achieve more +% economy the only way would be to keep cumulative track of all previously +% declared math versions and to redeclare appropriately the LGR or self +% greek fonts at each call to \cs{Mathastext} (with no optional argument): a +% bit painful, and as I am possibly the sole user in the world of this +% possibility of multiple math versions with this package, perhaps not that +% useful. Also the advantage to systematically allocate a font for the +% selfGreek option is that we can force the use of the OT1 encoding. +% +% First we establish the cumulative effect of the greek related options. +% \begin{macrocode} + \def\m@t@greek@lsh{\m@t@ltsh} %% default behavior + \def\m@t@greek@ush{\m@t@opsh} + \ifmt@itgreek\def\m@t@greek@lsh{\itdefault} + \def\m@t@greek@ush{\itdefault}\fi + \ifmt@upgreek\def\m@t@greek@lsh{\updefault} + \def\m@t@greek@ush{\updefault}\fi + \ifmt@frenchmath + \ifmt@itgreek\else + \ifmt@upgreek\else + \def\m@t@greek@lsh{\m@t@opsh} + \def\m@t@greek@ush{\m@t@opsh} + \fi\fi + \fi + \ifcase\mt@greek@select + \or\def\m@t@greek@ush{\itdefault} + \or\def\m@t@greek@ush{\updefault} + \fi \ifmt@LGRgreek \DeclareFontEncoding{LGR}{}{} - \DeclareSymbolFont{mtlgrfont}{LGR} - {\m@stextfam}{\m@stextser}{\m@stextshletter} - \def\mtlgrfontupper{mtlgrfont} - \ifmt@twoshapesforgreek - \ifmt@upGreek - \DeclareSymbolFont{mtlgrfontupper}{LGR}{\m@stextfam}{\m@stextser}{n} - \else - \DeclareSymbolFont{mtlgrfontupper}{LGR}{\m@stextfam}{\m@stextser}{it} - \fi - \def\mtlgrfontupper{mtlgrfontupper} - \fi + \DeclareSymbolFont{mtlgrfontlower}{LGR} + {\m@t@fam}{\m@t@ser}{\m@t@greek@lsh} + \DeclareSymbolFont{mtlgrfontupper}{LGR} + {\m@t@fam}{\m@t@ser}{\m@t@greek@ush} \else +\ifmt@selfGreek + \DeclareSymbolFont{mtselfGreekfont}{OT1} + {\m@t@fam}{\m@t@ser}{\m@t@greek@ush} +\fi\fi % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} -% \begin{macro}{selfGreek} -% \begin{macro}{mtselffontupper} -% \begin{macro}{\mt@uppergreekfont} -% We must also make provisions for a possible additional -% font for uppercase Greek, in the case of the option -% selfGreek, when the shape is not necessarily -% \cs{m@stextsh} (that is \cs{shapedefault}). -% \begin{macrocode} -\ifmt@selfGreek\mt@proceedfalse - \ifmt@upGreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@upgreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@itGreek\def\mt@tmp{it}\mt@proceedtrue\else - \ifmt@itgreek\def\mt@tmp{it}\mt@proceedtrue - \fi\fi\fi\fi - \ifmt@proceed - \def\mt@uppergreekfont{mtselffontupper} - \DeclareSymbolFont{mtselffontupper}{\m@stextenc} % should be OT1! - {\m@stextfam}{\m@stextser}{\mt@tmp} - \else - \ifmt@frenchmath - \def\mt@uppergreekfont{mtoperatorfont} - \else - \def\mt@uppergreekfont{mtletterfont} - \fi -% \end{macrocode} -% Used to be mtoperatorfont in versions prior to 1.13, so typically -% upright. Not the case anymore (in the case of option italic for -% example), to comply to ISO standard. Use upGreek if necessary. -% \begin{macrocode} - \fi -\fi\fi -% \end{macrocode} -% \end{macro} % \end{macro} % \end{macro} % \begin{macro}{mteulervm} % \begin{macro}{\MathEuler} +% \begin{macro}{\MathEulerBold} % In case we need the Euler font, we declare it here. It will use % |uzeur.fd| from the |eulervm| package of Walter~\textsc{Schmidt} % \begin{macrocode} \ifmt@needeuler \DeclareSymbolFont{mteulervm}{U}{zeur}{m}{n} \DeclareSymbolFontAlphabet{\MathEuler}{mteulervm} +\DeclareMathAlphabet{\MathEulerBold}{U}{zeur}{\m@t@bold}{n} \fi \newcommand\MTEulerScale[1]{\edef\zeu@Scale{#1}} \let\MathastextEulerScale\MTEulerScale % \end{macrocode} -% \end{macro} -% \end{macro} -% In the end, I moved the bold stuff to \cs{Mathastext} as -% the user may want his choice of |boldvariant| to have -% effect on the Euler font (it is possible to use -% \cs{Mathastextboldvariant}|{m}|). -% % \LaTeXe{} has a strange initial configuration where the % capital Greek letters are of type |mathalpha|, but the % lower Greek letters of type |mathord|, so that \cs{mathbf} @@ -1338,10 +1267,13 @@ defaultbf,defaultit,defaultsf,defaulttt}} % would not try to implement it here. I prefer to respect % the default things. % -% I follow the simpler idea of the |eulervm| package and -% define \cs{MathEuler} and \cs{MathEulerBold} alphabet +% I followed the simpler idea of the |eulervm| package and +% defineed \cs{MathEuler} and \cs{MathEulerBold} alphabet % commands (the |eulervm| package does this only for the % bold font). +% \end{macro} +% \end{macro} +% \end{macro} % \begin{macro}{mtpsymbol} % \begin{macro}{\MathPSymbol} % In case we need the Symbol font, we declare it here. The macro @@ -1395,13 +1327,13 @@ defaultbf,defaultit,defaultsf,defaulttt}} % we could as well have two really unrelated fonts but % this is really not the spirit of the package. % \begin{macrocode} -\DeclareRobustCommand\MTencoding[1]{\def\m@stextenc{#1}} -\DeclareRobustCommand\MTfamily[1]{\def\m@stextfam{#1}} -\DeclareRobustCommand\MTseries[1]{\def\m@stextser{#1}} -\DeclareRobustCommand\MTshape[1]{\def\m@stextsh{#1} - \ifmt@italic\else\def\m@stextshletter{#1}\fi} -\DeclareRobustCommand\MTboldvariant[1]{\def\m@stextbold{#1}} -\DeclareRobustCommand\MTlettershape[1]{\def\m@stextshletter{#1}} +\DeclareRobustCommand\MTencoding[1]{\def\m@t@enc{#1}} +\DeclareRobustCommand\MTfamily[1]{\def\m@t@fam{#1}} +\DeclareRobustCommand\MTseries[1]{\def\m@t@ser{#1}} +\DeclareRobustCommand\MTshape[1]{\def\m@t@opsh{#1} + \ifmt@italic\else\def\m@t@ltsh{#1}\fi} +\DeclareRobustCommand\MTboldvariant[1]{\def\m@t@bold{#1}} +\DeclareRobustCommand\MTlettershape[1]{\def\m@t@ltsh{#1}} \let\Mathastextencoding\MTencoding \let\Mathastextfamily\MTfamily \let\Mathastextseries\MTseries @@ -1424,11 +1356,12 @@ defaultbf,defaultit,defaultsf,defaulttt}} \MTfamily{#3} \MTseries{#4} \MTshape{#5} + \ifmt@italic\MTlettershape{\itdefault}\fi % was missing in v 1.14 and prior \ifx\@empty#1 \else %% we check if optional argument was [], this does not detect [ ] \def\mt@empty{}\def\mt@tmp{#1} - \ifx\mt@empty\mt@tmp\else\MTlettershape{#1}\fi + \ifx\mt@empty\mt@tmp \else \MTlettershape{#1}\fi \fi \Mathastext} \let\MathastextWillUse\MTWillUse @@ -1452,21 +1385,21 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareRobustCommand\Mathastext[1][\@empty]{ \mt@font@info@off \ifx\@empty#1 % no optional argument - \edef\mt@encoding@normal{\m@stextenc} - \edef\mt@family@normal{\m@stextfam} - \edef\mt@series@normal{\m@stextser} - \edef\mt@shape@normal{\m@stextsh} - \edef\mt@ltshape@normal{\m@stextshletter} + \edef\mt@encoding@normal{\m@t@enc} + \edef\mt@family@normal{\m@t@fam} + \edef\mt@series@normal{\m@t@ser} + \edef\mt@shape@normal{\m@t@opsh} + \edef\mt@ltshape@normal{\m@t@ltsh} \edef\mt@itdefault@normal{\itdefault} \edef\mt@sfdefault@normal{\sfdefault} \edef\mt@ttdefault@normal{\ttdefault} - \edef\mt@boldvariant@normal{\m@stextbold} - \edef\mt@encoding@bold{\m@stextenc} - \edef\mt@family@bold{\m@stextfam} - \edef\mt@series@bold{\m@stextbold} - \edef\mt@shape@bold{\m@stextsh} - \edef\mt@ltshape@bold{\m@stextshletter} - \edef\mt@boldvariant@bold{\m@stextbold} + \edef\mt@boldvariant@normal{\m@t@bold} + \edef\mt@encoding@bold{\m@t@enc} + \edef\mt@family@bold{\m@t@fam} + \edef\mt@series@bold{\m@t@bold} + \edef\mt@shape@bold{\m@t@opsh} + \edef\mt@ltshape@bold{\m@t@ltsh} + \edef\mt@boldvariant@bold{\m@t@bold} \edef\mt@itdefault@bold{\itdefault} \edef\mt@sfdefault@bold{\sfdefault} \edef\mt@ttdefault@bold{\ttdefault} @@ -1487,57 +1420,59 @@ defaultbf,defaultit,defaultsf,defaulttt}} {\mt@family@bold} {\mt@series@bold} {\mt@shape@bold} -% \end{macrocode} -% \begin{macro}{\Mathbf} -% We follow the standard \LaTeX{} behavior for \cs{mathbf}, which is to pick up -% the bold series of the roman font (digits and operator names). -% \begin{macrocode} - \DeclareMathAlphabet{\Mathbf} {\mt@encoding@bold} - {\mt@family@bold} + \SetMathAlphabet{\Mathbf}{normal}{\mt@encoding@normal} + {\mt@family@normal} {\mt@series@bold} - {\mt@shape@bold} - \DeclareMathAlphabet{\Mathit} {\mt@encoding@normal} + {\mt@shape@normal} + \SetMathAlphabet{\Mathit}{normal}{\mt@encoding@normal} {\mt@family@normal} {\mt@series@normal} {\mt@itdefault@normal} - \DeclareMathAlphabet{\Mathsf} {\mt@encoding@normal} + \SetMathAlphabet{\Mathsf}{normal}{\mt@encoding@normal} {\mt@sfdefault@normal} {\mt@series@normal} {\mt@shape@normal} - \DeclareMathAlphabet{\Mathtt} {\mt@encoding@normal} + \SetMathAlphabet{\Mathtt}{normal}{\mt@encoding@normal} {\mt@ttdefault@normal} {\mt@series@normal} {\mt@shape@normal} - \SetMathAlphabet{\Mathit}{bold}{\mt@encoding@normal} - {\mt@family@normal} + \SetMathAlphabet{\Mathbf}{bold}{\mt@encoding@bold} + {\mt@family@bold} + {\mt@series@bold} + {\mt@shape@bold} + \SetMathAlphabet{\Mathit}{bold}{\mt@encoding@bold} + {\mt@family@bold} {\mt@series@bold} {\mt@itdefault@bold} - \SetMathAlphabet{\Mathsf}{bold}{\mt@encoding@normal} + \SetMathAlphabet{\Mathsf}{bold}{\mt@encoding@bold} {\mt@sfdefault@bold} {\mt@series@bold} - {\mt@shape@normal} - \SetMathAlphabet{\Mathtt}{bold}{\mt@encoding@normal} + {\mt@shape@bold} + \SetMathAlphabet{\Mathtt}{bold}{\mt@encoding@bold} {\mt@ttdefault@bold} {\mt@series@bold} - {\mt@shape@normal} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\mathnormalbold} -% We add a new Alphabet changing macro to standard \LaTeX{} -% \begin{macrocode} - \DeclareMathAlphabet{\mathnormalbold} {\mt@encoding@bold} + {\mt@shape@bold} + \SetMathAlphabet{\mathnormalbold}{normal}{\mt@encoding@normal} + {\mt@family@normal} + {\mt@boldvariant@normal} + {\mt@ltshape@normal} + \SetMathAlphabet{\mathnormalbold}{bold}{\mt@encoding@bold} {\mt@family@bold} - {\mt@series@bold} + {\mt@boldvariant@bold} {\mt@ltshape@bold} % \end{macrocode} -% \end{macro} % \begin{macro}{\MathEulerBold} -% We define it here as we leave open the possibility for the -% user to type \cs{Mathastextboldvariant}|{m}|. +% v1.14c: We reset |mteulervm| and \cs{MathEulerBold} here as the variant +% for bold may have been changed by the user via +% \cs{Mathastextboldvariant}|{m}|; and we should keep this local to math +% versions. % \begin{macrocode} \ifmt@needeuler \SetSymbolFont{mteulervm}{bold}{U}{zeur}{\mt@boldvariant@normal}{n} - \DeclareMathAlphabet{\MathEulerBold}{U}{zeur}{\mt@boldvariant@normal}{n} + \SetMathAlphabet{\MathEulerBold}{normal} + {U}{zeur}{\mt@boldvariant@normal}{n} + \SetMathAlphabet{\MathEulerBold}{bold} + {U}{zeur}{\mt@boldvariant@normal}{n} \fi % \end{macrocode} % \end{macro} @@ -1546,48 +1481,29 @@ defaultbf,defaultit,defaultsf,defaulttt}} {U}{psy}{\mt@boldvariant@normal}{n} \fi % \end{macrocode} -% \begin{macro}{LGRgreek} -% LGRgreek option. -% \begin{macrocode} - \ifmt@LGRgreek - \ifmt@upgreek\def\mt@tmp{n} - \else\ifmt@itgreek\def\mt@tmp{it} - \else\ifmt@frenchmath\def\mt@tmp{\mt@shape@normal} - \else\def\mt@tmp{\mt@ltshape@normal} - \fi\fi\fi - \SetSymbolFont{mtlgrfont}{normal}{LGR} - {\mt@family@normal}{\mt@series@normal}{\mt@tmp} - \SetSymbolFont{mtlgrfont}{bold}{LGR} - {\mt@family@bold}{\mt@boldvariant@normal}{\mt@tmp} - \ifmt@twoshapesforgreek - \ifmt@upGreek\def\mt@tmp{n}\else\def\mt@tmp{it}\fi - \SetSymbolFont{mtlgrfontupper}{normal}{LGR} - {\mt@family@normal}{\mt@series@normal}{\mt@tmp} - \SetSymbolFont{mtlgrfontupper}{bold}{LGR} - {\mt@family@bold}{\mt@boldvariant@bold}{\mt@tmp} - \fi -% \end{macrocode} -% \end{macro} -% \begin{macro}{selfGreek} -% selfGreek option. +% \begin{macro}{LGRgreek*} +% \begin{macro}{selfGreek*} +% LGRgreek, LGRgreeks, selfGreek, and selfGreeks options. % \begin{macrocode} +\ifmt@LGRgreek + \SetSymbolFont{mtlgrfontlower}{normal}{LGR} + {\mt@family@normal}{\mt@series@normal}{\m@t@greek@lsh} + \SetSymbolFont{mtlgrfontlower}{bold}{LGR} + {\mt@family@bold}{\mt@boldvariant@normal}{\m@t@greek@lsh} + \SetSymbolFont{mtlgrfontupper}{normal}{LGR} + {\mt@family@normal}{\mt@series@normal}{\m@t@greek@ush} + \SetSymbolFont{mtlgrfontupper}{bold}{LGR} + {\mt@family@bold}{\mt@boldvariant@bold}{\m@t@greek@ush} \else - \ifmt@selfGreek - \mt@proceedfalse - \ifmt@upGreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@upgreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@itGreek\def\mt@tmp{it}\mt@proceedtrue\else - \ifmt@itgreek\def\mt@tmp{it}\mt@proceedtrue - \fi\fi\fi\fi - \ifmt@proceed - \SetSymbolFont{mtselffontupper}{normal}{\mt@encoding@normal} - {\mt@family@normal}{\mt@series@normal}{\mt@tmp} - \SetSymbolFont{mtselffontupper}{bold}{\mt@encoding@bold} - {\mt@family@bold}{\mt@boldvariant@bold}{\mt@tmp} - \fi +\ifmt@selfGreek + \SetSymbolFont{mtselfGreekfont}{normal}{OT1} + {\mt@family@normal}{\mt@series@normal}{\m@t@greek@ush} + \SetSymbolFont{mtselfGreekfont}{bold}{OT1} + {\mt@family@bold}{\mt@boldvariant@bold}{\m@t@greek@ush} \fi\fi % \end{macrocode} % \end{macro} +% \end{macro} % \begin{macrocode} \typeout{** Latin letters in math versions normal (resp. bold) are now^^J% ** set up to use the fonts @@ -1603,8 +1519,8 @@ defaultbf,defaultit,defaultsf,defaulttt}} \ifx\mt@tmp\mt@empty \Mathastext % no infinite loop! \else - \MTDeclareVersion[\m@stextshletter]{#1} - {\m@stextenc}{\m@stextfam}{\m@stextser}{\m@stextsh} + \MTDeclareVersion[\m@t@ltsh]{#1} + {\m@t@enc}{\m@t@fam}{\m@t@ser}{\m@t@opsh} \fi \fi \mt@font@info@on @@ -1623,9 +1539,7 @@ defaultbf,defaultit,defaultsf,defaulttt}} % wants to have a math version with bold Euler characters. % % For version 1.1 we add an optional parameter specifying the shape to be used -% for letters: most users will want `it' (thus going contrary to the -% philosophy which motivated me writing this package!). If the package option -% `italic' was passed, `it' is the default. +% for letters. % \begin{macrocode} \DeclareRobustCommand\MTDeclareVersion[6][\@empty]{ \mt@font@info@off @@ -1635,28 +1549,28 @@ defaultbf,defaultit,defaultsf,defaulttt}} \expandafter\edef\csname mt@family@\mt@version\endcsname{#4} \expandafter\edef\csname mt@series@\mt@version\endcsname{#5} \expandafter\edef\csname mt@shape@\mt@version\endcsname{#6} - \expandafter\edef\csname mt@boldvariant@\mt@version\endcsname{\m@stextbold} + \expandafter\edef\csname mt@boldvariant@\mt@version\endcsname{\m@t@bold} \expandafter\edef\csname mt@itdefault@\mt@version\endcsname{\itdefault} \expandafter\edef\csname mt@sfdefault@\mt@version\endcsname{\sfdefault} \expandafter\edef\csname mt@ttdefault@\mt@version\endcsname{\ttdefault} \newif\ifmt@reallynoopt\mt@reallynoopttrue \ifx\@empty#1 \else % we check nevertheless for [] situation, will not work with [ ] - \def\mt@@tmp{#1}\def\mt@empty{} - \ifx\mt@@tmp\mt@empty\else\mt@reallynooptfalse\fi + \def\m@t@@tmp{#1}\def\mt@empty{} + \ifx\m@t@@tmp\mt@empty\else\mt@reallynooptfalse\fi \fi \ifmt@reallynoopt \ifmt@italic - \SetSymbolFont{mtletterfont}{#2}{#3}{#4}{#5}{\m@stextshletter} + \SetSymbolFont{mtletterfont}{#2}{#3}{#4}{#5}{\m@t@ltsh} \typeout{** Latin letters in math version `#2' will use the font - #3/#4/#5/\m@stextshletter^^J% + #3/#4/#5/\m@t@ltsh^^J% ** Other characters (digits, ...) and \protect\log-like names will be in `#6' shape.} - \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{\m@stextshletter} + \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{\m@t@ltsh} \else \SetSymbolFont{mtletterfont}{#2}{#3}{#4}{#5}{#6} \typeout{** Latin letters in math version `#2' will use the fonts - #3/#4/#5(\m@stextbold)/#6} + #3/#4/#5(\m@t@bold)/#6} \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{#6} \fi \else @@ -1667,77 +1581,64 @@ defaultbf,defaultit,defaultsf,defaulttt}} names will be in `#6' shape.} \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{#1} \fi - \SetMathAlphabet{\Mathbf}{#2}{#3}{#4}{\m@stextbold}{#6} + \SetMathAlphabet{\Mathbf}{#2}{#3}{#4}{\m@t@bold}{#6} \SetMathAlphabet{\Mathit}{#2}{#3}{#4}{#5}{\itdefault} \SetMathAlphabet{\Mathsf}{#2}{#3}{\sfdefault}{#5}{#6} \SetMathAlphabet{\Mathtt}{#2}{#3}{\ttdefault}{#5}{#6} - \SetSymbolFont{mtoperatorfont}{#2}{#3}{#4}{#5}{#6} + \SetMathAlphabet{\mathnormalbold}{#2}{#3}{#4}{\m@t@bold} + {\csname mt@ltshape@\mt@version\endcsname} + \SetSymbolFont{mtoperatorfont}{#2}{#3}{#4}{#5}{#6} \ifmt@needeuler - \SetMathAlphabet{\MathEulerBold}{#2}{U}{zeur}{\m@stextbold}{n} + \SetMathAlphabet{\MathEulerBold}{#2}{U}{zeur}{\m@t@bold}{n} \fi % \end{macrocode} -% \begin{macro}{mtlgrfont} -% In the case of option LGRgreek, it is expected that the -% fonts used in each math versions exist in LGR encoding. -% \begin{macrocode} - \ifmt@LGRgreek - \ifmt@upgreek\def\mt@tmp{n} - \else\ifmt@itgreek\def\mt@tmp{it} - \else\ifmt@frenchmath\def\mt@tmp{\csname mt@shape@\mt@version\endcsname} - \else\def\mt@tmp{\csname mt@ltshape@\mt@version\endcsname} - \fi\fi\fi - \SetSymbolFont{mtlgrfont}{#2}{LGR}{#4}{#5}{\mt@tmp} -%% \typeout{** Greek letters in math version `#2' will use the font -%% LGR/#4/#5/\mt@tmp} - \ifmt@twoshapesforgreek - \ifmt@upGreek\def\mt@tmp{n}\else\def\mt@tmp{it}\fi - \SetSymbolFont{mtlgrfontupper}{#2}{LGR}{#4}{#5}{\mt@tmp} -%% \typeout{** Uppercase Greek letters in math version `#2' will use the font -%% LGR/#4/#5/\mt@tmp} - \fi -% \end{macrocode} -% \end{macro} -% \begin{macro}{mtlgrfont} -% selfGreek -% \begin{macrocode} -\else - \ifmt@selfGreek - \mt@proceedfalse - \ifmt@upGreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@upgreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@itGreek\def\mt@tmp{it}\mt@proceedtrue\else - \ifmt@itgreek\def\mt@tmp{it}\mt@proceedtrue - \fi\fi\fi\fi - \ifmt@proceed - \SetSymbolFont{mtselffontupper}{#2}{#3}{#4}{#5}{\mt@tmp} +% \begin{macro}{LGRgreeks} +% \begin{macro}{selfGreeks} +% In the case of option LGRgreeks (selfGreeks), it is expected that the +% fonts used in each math versions exist in LGR (OT1) encoding. We must +% first of all recalculate the shapes for lowercase and uppercase Greek +% letters depending on the frenchmath and [it/up][g/G]reek options as well +% as on the local to this version shapes for letters and digits. +% \begin{macrocode} + \def\m@t@greek@lsh@loc{\csname mt@ltshape@\mt@version\endcsname} + \def\m@t@greek@ush@loc{\csname mt@shape@\mt@version\endcsname} + \ifmt@itgreek\def\m@t@greek@lsh@loc{\itdefault} + \def\m@t@greek@ush@loc{\itdefault}\fi + \ifmt@upgreek\def\m@t@greek@lsh@loc{\updefault} + \def\m@t@greek@ush@loc{\updefault}\fi + \ifmt@frenchmath + \ifmt@itgreek\else + \ifmt@upgreek\else + \def\m@t@greek@lsh@loc{\csname mt@shape@\mt@version\endcsname} + \def\m@t@greek@ush@loc{\csname mt@shape@\mt@version\endcsname} + \fi\fi \fi -\fi\fi + \ifcase\mt@greek@select + \or\def\m@t@greek@ush@loc{\itdefault} + \or\def\m@t@greek@ush@loc{\updefault} + \fi + \ifmt@LGRgreeks + \SetSymbolFont{mtlgrfontlower}{#2}{LGR}{#4}{#5}{\m@t@greek@lsh@loc} + \SetSymbolFont{mtlgrfontupper}{#2}{LGR}{#4}{#5}{\m@t@greek@ush@loc} + \else + \ifmt@selfGreeks + \SetSymbolFont{mtselfGreekfont}{#2}{OT1}{#4}{#5}{\m@t@greek@ush@loc} + \fi\fi % \end{macrocode} % \end{macro} +% \end{macro} % \begin{macrocode} \mt@font@info@on } \let\MathastextDeclareVersion\MTDeclareVersion % \end{macrocode} % \end{macro} -% We redefine our internal variables without expansion -% so that they get a chance to be also (indirectly or -% directly) modified by user later choices regarding -% \cs{encodingdefault}, etc\dots, previous to a user call to -% \cs{Mathastext} or \cs{Mathastextwilluse}. -% \begin{macrocode} - \def\m@stextenc{\encodingdefault} - \def\m@stextfam{\familydefault} - \def\m@stextser{\seriesdefault} - \def\m@stextsh{\shapedefault} - \def\m@stextbold{\bfdefault} - \def\m@stextshletter{\shapedefault} - \ifmt@italic\def\m@stextshletter{\itdefault}\fi -% \end{macrocode} +% \begin{macro}{\Mathastext} % Initialization call: % \begin{macrocode} \Mathastext % \end{macrocode} +% \end{macro} % \begin{macro}{\operator@font} % We modify this \LaTeX{} internal variable in order for the % predefined \cs{cos}, \cs{sin}, etc\dots to be typeset with the @@ -1755,10 +1656,10 @@ defaultbf,defaultit,defaultsf,defaulttt}} % \begin{macro}{\mathnormal} % \begin{macro}{\mathrm} % \begin{macro}{\mathbf} -% We redefine the normal, rm and bf alphabets. In version 1.1 we -% follow the standard: normal gives the font for letters, rm gives -% the font for digits and log-like names, bf for the bold series -% of the font for digits and log-like names. +% \begin{macro}{\mathit} +% \begin{macro}{\mathsf} +% \begin{macro}{\mathtt} +% We redefine the default normal, rm, bf, it, sf, and tt alphabets. % % We will access by default (if no option is passed for % Greek) the \cs{omicron} via \cs{mathnormal}. So we save it @@ -1780,17 +1681,11 @@ defaultbf,defaultit,defaultsf,defaulttt}} % \end{macro} % \end{macro} % \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} % We write appropriate messages to the terminal and the log. % \begin{macrocode} -%% \ifmt@LGRgreek -%% \typeout{** Greek letters will use the font -%% LGR/\mt@family@normal/\mt@series@normal/\mt@ltshape@normal} -%% \else -\ifmt@selfGreek - \typeout{** Capital Greek letters will be taken from the fonts - declared for latin letters:^^J% -** only for OT1 or compatible encodings; glyphs may be unavailable.} -\else \ifmt@eulergreek \typeout{** Greek letters will use the Euler font. Use^^J% ** \protect\MathastextEulerScale{<factor>} to scale the font.} @@ -1798,8 +1693,7 @@ defaultbf,defaultit,defaultsf,defaulttt}} \ifmt@symbolgreek \typeout{** Greek letters will use the PostScript Symbol font. Use^^J% ** \protect\MathastextSymbolScale{<factor>} to scale the font.} -\fi\fi\fi -%%\fi +\fi\fi % \end{macrocode} % \begin{macro}{\MTVersion} % This is a wrapper around \LaTeX{}'s \cs{mathversion}: here we have an @@ -1810,8 +1704,8 @@ defaultbf,defaultit,defaultsf,defaulttt}} \ifx\@empty#1% no optional argument \edef\mt@tmp{#2} \else% we check nevertheless for [] situation, will not work with [ ] - \def\mt@@tmp{#1}\def\mt@empty{}% - \ifx\mt@@tmp\mt@empty\edef\mt@tmp{#2}% + \def\m@t@@tmp{#1}\def\mt@empty{}% + \ifx\m@t@@tmp\mt@empty\edef\mt@tmp{#2}% \else\edef\mt@tmp{#1}% \fi% \fi% @@ -1819,22 +1713,23 @@ defaultbf,defaultit,defaultsf,defaulttt}} {\csname mt@family@\mt@tmp\endcsname}% {\csname mt@series@\mt@tmp\endcsname}% {\csname mt@shape@\mt@tmp\endcsname}% - \edef\mt@@encoding{\csname mt@encoding@\mt@tmp\endcsname}% -\renewcommand{\encodingdefault}{\mt@@encoding}% - \edef\mt@@family{\csname mt@family@\mt@tmp\endcsname}% -\renewcommand{\rmdefault}{\mt@@family}% - \edef\mt@@series{\csname mt@series@\mt@tmp\endcsname}% -\renewcommand{\mddefault}{\mt@@series}% - \edef\mt@@shape{\csname mt@shape@\mt@tmp\endcsname}% -\renewcommand{\updefault}{\mt@@shape}% - \edef\mt@@boldvariant{\csname mt@boldvariant@\mt@tmp\endcsname}% -\renewcommand{\bfdefault}{\mt@@boldvariant}% - \edef\mt@@itdefault{\csname mt@itdefault@\mt@tmp\endcsname}% -\renewcommand{\itdefault}{\mt@@itdefault}% - \edef\mt@@sfdefault{\csname mt@sfdefault@\mt@tmp\endcsname}% -\renewcommand{\sfdefault}{\mt@@sfdefault}% - \edef\mt@@ttdefault{\csname mt@ttdefault@\mt@tmp\endcsname}% -\renewcommand{\ttdefault}{\mt@@ttdefault}}% + \edef\m@t@@encoding{\csname mt@encoding@\mt@tmp\endcsname}% + \renewcommand{\encodingdefault}{\m@t@@encoding}% + \edef\m@t@@family{\csname mt@family@\mt@tmp\endcsname}% + \renewcommand{\rmdefault}{\m@t@@family}% + \edef\m@t@@series{\csname mt@series@\mt@tmp\endcsname}% + \renewcommand{\mddefault}{\m@t@@series}% + \edef\m@t@@shape{\csname mt@shape@\mt@tmp\endcsname}% + \renewcommand{\shapedefault}{\m@t@@shape}% + \edef\m@t@@boldvariant{\csname mt@boldvariant@\mt@tmp\endcsname}% + \renewcommand{\bfdefault}{\m@t@@boldvariant}% + \edef\m@t@@itdefault{\csname mt@itdefault@\mt@tmp\endcsname}% + \renewcommand{\itdefault}{\m@t@@itdefault}% + \edef\m@t@@sfdefault{\csname mt@sfdefault@\mt@tmp\endcsname}% + \renewcommand{\sfdefault}{\m@t@@sfdefault}% + \edef\m@t@@ttdefault{\csname mt@ttdefault@\mt@tmp\endcsname}% + \renewcommand{\ttdefault}{\m@t@@ttdefault}% +} \let\MathastextVersion\MTVersion \let\Mathastextversion\MTVersion \let\MTversion\MTVersion @@ -1951,7 +1846,7 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareMathSymbol{.}{\mathord}{\mt@font@tbu}{"2E} \DeclareMathSymbol{:}{\mathrel}{\mt@font@tbu}{"3A} % relation spacing \@ifpackageloaded{amsmath} - {} %\colon defined in amsmath.sty (enlarged punctuation spacing) + {} % \colon defined in amsmath.sty (enlarged punctuation spacing) {\let\colon\undefined % no amsmath, use punctuation spacing \DeclareMathSymbol{\colon}{\mathpunct}{\mt@font@tbu}{"3A}} \DeclareMathSymbol{;}{\mathpunct}{\mt@font@tbu}{"3B} @@ -1980,50 +1875,55 @@ defaultbf,defaultit,defaultsf,defaulttt}} % some LaTeX internal info from ltoutenc.dtx. However this % will only work in the math versions having the same % encoding as defined by default. +% % 2011/02/05, v1.11. Compatibility with Unicode (via % fontspec encodings EU1 and EU2) +% % 2011/02/07, v1.12. Improved dealing of unicode engines. +% +% 2011/04/02, v1.14b. Same bug as for \$ etc in math mode (see below +% redefinitions of \$, \#, \%, \&), when 10 or more math groups had been +% allocated (bug was only in the part dealing with EU1/EU2 encoding) % \begin{macrocode} -\def\do@the@endashstuff{\edef\mt@enc{\m@stextenc} -\ifx\mt@enc\mt@eui % xetex+fontspec - \XeTeXmathcode`\-="2 "\the\symmtoperatorfont "2013 \relax +\def\do@the@endashstuff{\edef\mt@tmp@enc{\encodingdefault} +\ifx\mt@tmp@enc\mt@eui % xetex+fontspec + \XeTeXmathcode`\-="2 \symmtoperatorfont "2013 \relax \else -\ifx\mt@enc\mt@euii % luatex+fontspec - \luatexUmathcode`\-="2 "\the\symmtoperatorfont "2013 \relax +\ifx\mt@tmp@enc\mt@euii % luatex+fontspec + \luatexUmathcode`\-="2 \symmtoperatorfont "2013 \relax \else -\ifx\mt@enc\mt@ti % T1 +\ifx\mt@tmp@enc\mt@ti % T1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{21} \else -\ifx\mt@enc\mt@oti % OT1 +\ifx\mt@tmp@enc\mt@oti % OT1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{123} \else -\ifx\mt@enc\mt@lyi % LY1 +\ifx\mt@tmp@enc\mt@lyi % LY1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{150} \else % make sure we have neither xetex nor luatex \ifXeTeX\mt@failedtrue\else\ifLuaTeX\mt@failedtrue\else \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont} -{\expandafter\the\expandafter\csname\mt@enc\string\textendash\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\textendash\endcsname} \fi\fi \fi\fi\fi\fi\fi} -\def\do@the@emdashstuff{\edef\mt@enc{\m@stextenc} -\ifx\mt@enc\mt@eui % xetex+fontspec - \XeTeXmathcode`\-="2 "\the\symmtoperatorfont "2014 \relax +\def\do@the@emdashstuff{\edef\mt@tmp@enc{\encodingdefault} +\ifx\mt@tmp@enc\mt@eui % xetex+fontspec + \XeTeXmathcode`\-="2 \symmtoperatorfont "2014 \relax \else -\ifx\mt@enc\mt@euii % luatex+fontspec - \luatexUmathcode`\-="2 "\the\symmtoperatorfont "2014 \relax -\else -\ifx\mt@enc\mt@ti % T1 +\ifx\mt@tmp@enc\mt@euii % luatex+fontspec + \luatexUmathcode`\-="2 \symmtoperatorfont "2014 \relax +\ifx\mt@tmp@enc\mt@ti % T1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{22} \else -\ifx\mt@enc\mt@oti % OT1 +\ifx\mt@tmp@enc\mt@oti % OT1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{124} \else -\ifx\mt@enc\mt@lyi % LY1 +\ifx\mt@tmp@enc\mt@lyi % LY1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{151} \else % make sure we have neither xetex nor luatex \ifXeTeX\mt@failedtrue\else\ifLuaTeX\mt@failedtrue\else \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont} -{\expandafter\the\expandafter\csname\mt@enc\string\textemdash\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\textemdash\endcsname} \fi\fi \fi\fi\fi\fi\fi} \ifmt@nominus\else @@ -2054,17 +1954,22 @@ defaultbf,defaultit,defaultsf,defaulttt}} % |rlap| adapted to math mode, and this is provided by code from % Alexander~R.~\textsc{Perlis} in his TugBoat article 22 (2001), 350--352, % which I found by googling |rlap|. +% (as an aside, I am only now (04/02) aware that the package |mathtools| +% provides the |mathrlap| etc... ) +% +% v1.14b (2011/04/02): again this bug in the EU1/EU2 encoding part, as in the +% code redefining \$ etc in math mode (see below). Fixed. % \begin{macrocode} \def\mathrlap{\mathpalette\mathrlapinternal} \def\mathrlapinternal#1#2{\rlap{$\mathsurround=0pt#1{#2}$}} -\def\do@the@hbarstuff{\edef\mt@enc{\m@stextenc} -\ifx\mt@enc\mt@eui % xetex and unicode font - \XeTeXmathchardef\hbar="7 "\the\symmtoperatorfont "0127 \relax +\def\do@the@hbarstuff{\edef\mt@tmp@enc{\encodingdefault} +\ifx\mt@tmp@enc\mt@eui % xetex and unicode font + \XeTeXmathchardef\hbar="7 \symmtletterfont "0127 \relax \else -\ifx\mt@enc\mt@euii % luatex and unicode font - \luatexUmathchardef\hbar="7 "\the\symmtoperatorfont "0127 \relax %% or 210F? +\ifx\mt@tmp@enc\mt@euii % luatex and unicode font + \luatexUmathchardef\hbar="7 \symmtletterfont "0127 \relax %% or 210F? \else % I must leave open the T1, OT1 possibility also for XeTeX or LuaTeX - \ifx\mt@ti\mt@enc + \ifx\mt@ti\mt@tmp@enc \DeclareMathAccent{\mt@ltbar}{\mathalpha}{mtletterfont}{9} \else %% assume OT1. Bad idea? Should not provoke an error anyhow \DeclareMathAccent{\mt@ltbar}{\mathalpha}{mtletterfont}{22} @@ -2112,12 +2017,6 @@ defaultbf,defaultit,defaultsf,defaulttt}} % \begin{macro}{alldelims} % \begin{macrocode} \ifmt@alldelims -%% \ifmt@symboldelimiters\else -%% \ifx\mt@ti\mt@enc\else -%% \typeout{** mathastext: `alldelims'. Characters <,>,{,},| will be assumed -%% to^^J% -%% ** be located as in ascii. True for T1 fonts or OT1 fixed-width fonts.} -%% \fi\fi \DeclareMathDelimiter{<}{\mathopen}{\mt@font@tbu}{"3C}{largesymbols}{"0A} \DeclareMathDelimiter{>}{\mathclose}{\mt@font@tbu}{"3E}{largesymbols}{"0B} \DeclareMathSymbol{<}{\mathrel}{\mt@font@tbu}{"3C} @@ -2148,16 +2047,39 @@ defaultbf,defaultit,defaultsf,defaulttt}} % \begin{macro}{specials} % We never take the specials from the Symbol (Adobe) font, as they are not all % available there. +% +% 1.14b (2011/04/02): the redefinitions of \#, \$, \% and \& were buggy (this +% showed up when 10 or more mathgroups had been allocated). Fixed. % \begin{macrocode} \ifmt@nospecials\else -\renewcommand{\#}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont23}% -\mathchar\expandafter"\ms@tmp\relax\else\char"23\relax\fi} -\renewcommand{\$}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont24}% -\mathchar\expandafter"\ms@tmp\relax\else\char"24\relax\fi} -\renewcommand{\%}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont25}% -\mathchar\expandafter"\ms@tmp\relax\else\char"25\relax\fi} -\renewcommand{\&}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont26}% -\mathchar\expandafter"\ms@tmp\relax\else\char"26\relax\fi} +\ifXeTeX % more than 16 math families possible + \XeTeXmathchardef\mt@mmode@hash=7 \symmtoperatorfont "0023 \relax + \XeTeXmathchardef\mt@mmode@dollar=7 \symmtoperatorfont "0024 \relax + \XeTeXmathchardef\mt@mmode@percent=7 \symmtoperatorfont "0025 \relax + \XeTeXmathchardef\mt@mmode@ampersand=7 \symmtoperatorfont "0026 \relax +\else +\ifLuaTeX % I think no more than 16 math families are possible but this way I +%% can check the stuff (as I can't install xetex on my system) + \luatexUmathchardef\mt@mmode@hash=7 \symmtoperatorfont "0023 \relax + \luatexUmathchardef\mt@mmode@dollar=7 \symmtoperatorfont "0024 \relax + \luatexUmathchardef\mt@mmode@percent=7 \symmtoperatorfont "0025 \relax + \luatexUmathchardef\mt@mmode@ampersand=7 \symmtoperatorfont "0026 \relax +\else % hope that there are no more than 16 math families! +\count255=\symmtoperatorfont +\multiply\count255 by 256 +\advance\count255 by 28707 % "7023 + \mathchardef\mt@mmode@hash\count255 +\advance\count255 by 1 + \mathchardef\mt@mmode@dollar\count255 +\advance\count255 by 1 + \mathchardef\mt@mmode@percent\count255 +\advance\count255 by 1 + \mathchardef\mt@mmode@ampersand\count255 +\fi\fi +\renewcommand{\#}{\ifmmode\mt@mmode@hash\else\char35\relax\fi} +\renewcommand{\$}{\ifmmode\mt@mmode@dollar\else\char36\relax\fi} +\renewcommand{\%}{\ifmmode\mt@mmode@percent\else\char37\relax\fi} +\renewcommand{\&}{\ifmmode\mt@mmode@ampersand\else\char38\relax\fi} \fi % \end{macrocode} % \end{macro} @@ -2287,16 +2209,18 @@ defaultbf,defaultit,defaultsf,defaulttt}} % things such as \cs{Alpha} but also \cs{Phi} etc\dots % % v1.13 * Option LGRgreek. +% % * Also, a behavior has been changed: it regards the selfGreek case, % the default shape is now the one for letters, not for operator-names % and digits. This complies to the ISO standard. +% % * version 1.12b did not define the \cs{omicron} in the case when no % Greek-related option was passed to the package. This was a bug. % \begin{macrocode} \let\mt@mathord\mathalpha \mt@proceedtrue \ifmt@selfGreek - \def\mt@font@tbu{\mt@uppergreekfont} + \def\mt@font@tbu{mtselfGreekfont} \else \ifmt@eulergreek \def\mt@font@tbu{mteulervm} @@ -2459,58 +2383,58 @@ defaultbf,defaultit,defaultsf,defaulttt}} \fi\fi\fi %% \ifmt@LGRgreek -\DeclareMathSymbol{\Alpha}{\mathalpha}{\mtlgrfontupper}{65} -\DeclareMathSymbol{\Beta}{\mathalpha}{\mtlgrfontupper}{66} -\DeclareMathSymbol{\Gamma}{\mathalpha}{\mtlgrfontupper}{71} -\DeclareMathSymbol{\Delta}{\mathalpha}{\mtlgrfontupper}{68} -\DeclareMathSymbol{\Epsilon}{\mathalpha}{\mtlgrfontupper}{69} -\DeclareMathSymbol{\Zeta}{\mathalpha}{\mtlgrfontupper}{90} -\DeclareMathSymbol{\Eta}{\mathalpha}{\mtlgrfontupper}{72} -\DeclareMathSymbol{\Theta}{\mathalpha}{\mtlgrfontupper}{74} -\DeclareMathSymbol{\Iota}{\mathalpha}{\mtlgrfontupper}{73} -\DeclareMathSymbol{\Kappa}{\mathalpha}{\mtlgrfontupper}{75} -\DeclareMathSymbol{\Lambda}{\mathalpha}{\mtlgrfontupper}{76} -\DeclareMathSymbol{\Mu}{\mathalpha}{\mtlgrfontupper}{77} -\DeclareMathSymbol{\Nu}{\mathalpha}{\mtlgrfontupper}{78} -\DeclareMathSymbol{\Xi}{\mathalpha}{\mtlgrfontupper}{88} -\DeclareMathSymbol{\Omicron}{\mathalpha}{\mtlgrfontupper}{79} -\DeclareMathSymbol{\Pi}{\mathalpha}{\mtlgrfontupper}{80} -\DeclareMathSymbol{\Rho}{\mathalpha}{\mtlgrfontupper}{82} -\DeclareMathSymbol{\Sigma}{\mathalpha}{\mtlgrfontupper}{83} -\DeclareMathSymbol{\Tau}{\mathalpha}{\mtlgrfontupper}{84} -\DeclareMathSymbol{\Upsilon}{\mathalpha}{\mtlgrfontupper}{85} -\DeclareMathSymbol{\Phi}{\mathalpha}{\mtlgrfontupper}{70} -\DeclareMathSymbol{\Chi}{\mathalpha}{\mtlgrfontupper}{81} -\DeclareMathSymbol{\Psi}{\mathalpha}{\mtlgrfontupper}{89} -\DeclareMathSymbol{\Omega}{\mathalpha}{\mtlgrfontupper}{87} -% -\DeclareMathSymbol{\alpha}{\mathalpha}{mtlgrfont}{97} -\DeclareMathSymbol{\beta}{\mathalpha}{mtlgrfont}{98} -\DeclareMathSymbol{\gamma}{\mathalpha}{mtlgrfont}{103} -\DeclareMathSymbol{\delta}{\mathalpha}{mtlgrfont}{100} -\DeclareMathSymbol{\epsilon}{\mathalpha}{mtlgrfont}{101} -\DeclareMathSymbol{\zeta}{\mathalpha}{mtlgrfont}{122} -\DeclareMathSymbol{\eta}{\mathalpha}{mtlgrfont}{104} -\DeclareMathSymbol{\theta}{\mathalpha}{mtlgrfont}{106} -\DeclareMathSymbol{\iota}{\mathalpha}{mtlgrfont}{105} -\DeclareMathSymbol{\kappa}{\mathalpha}{mtlgrfont}{107} -\DeclareMathSymbol{\lambda}{\mathalpha}{mtlgrfont}{108} -\DeclareMathSymbol{\mu}{\mathalpha}{mtlgrfont}{109} -\DeclareMathSymbol{\nu}{\mathalpha}{mtlgrfont}{110} -\DeclareMathSymbol{\xi}{\mathalpha}{mtlgrfont}{120} -\DeclareMathSymbol{\omicron}{\mathalpha}{mtlgrfont}{111} -\DeclareMathSymbol{\pi}{\mathalpha}{mtlgrfont}{112} -\DeclareMathSymbol{\rho}{\mathalpha}{mtlgrfont}{114} -\DeclareMathSymbol{\varsigma}{\mathalpha}{mtlgrfont}{99} -\DeclareMathSymbol{\sigma}{\mathalpha}{mtlgrfont}{115} -\DeclareMathSymbol{\tau}{\mathalpha}{mtlgrfont}{116} -\DeclareMathSymbol{\upsilon}{\mathalpha}{mtlgrfont}{117} -\DeclareMathSymbol{\phi}{\mathalpha}{mtlgrfont}{102} -\DeclareMathSymbol{\chi}{\mathalpha}{mtlgrfont}{113} -\DeclareMathSymbol{\psi}{\mathalpha}{mtlgrfont}{121} -\DeclareMathSymbol{\omega}{\mathalpha}{mtlgrfont}{119} -\DeclareMathSymbol{\digamma}{\mathalpha}{mtlgrfont}{147} -\DeclareMathSymbol{\Digamma}{\mathalpha}{mtlgrfont}{195} +\DeclareMathSymbol{\Alpha}{\mathalpha}{mtlgrfontupper}{65} +\DeclareMathSymbol{\Beta}{\mathalpha}{mtlgrfontupper}{66} +\DeclareMathSymbol{\Gamma}{\mathalpha}{mtlgrfontupper}{71} +\DeclareMathSymbol{\Delta}{\mathalpha}{mtlgrfontupper}{68} +\DeclareMathSymbol{\Epsilon}{\mathalpha}{mtlgrfontupper}{69} +\DeclareMathSymbol{\Zeta}{\mathalpha}{mtlgrfontupper}{90} +\DeclareMathSymbol{\Eta}{\mathalpha}{mtlgrfontupper}{72} +\DeclareMathSymbol{\Theta}{\mathalpha}{mtlgrfontupper}{74} +\DeclareMathSymbol{\Iota}{\mathalpha}{mtlgrfontupper}{73} +\DeclareMathSymbol{\Kappa}{\mathalpha}{mtlgrfontupper}{75} +\DeclareMathSymbol{\Lambda}{\mathalpha}{mtlgrfontupper}{76} +\DeclareMathSymbol{\Mu}{\mathalpha}{mtlgrfontupper}{77} +\DeclareMathSymbol{\Nu}{\mathalpha}{mtlgrfontupper}{78} +\DeclareMathSymbol{\Xi}{\mathalpha}{mtlgrfontupper}{88} +\DeclareMathSymbol{\Omicron}{\mathalpha}{mtlgrfontupper}{79} +\DeclareMathSymbol{\Pi}{\mathalpha}{mtlgrfontupper}{80} +\DeclareMathSymbol{\Rho}{\mathalpha}{mtlgrfontupper}{82} +\DeclareMathSymbol{\Sigma}{\mathalpha}{mtlgrfontupper}{83} +\DeclareMathSymbol{\Tau}{\mathalpha}{mtlgrfontupper}{84} +\DeclareMathSymbol{\Upsilon}{\mathalpha}{mtlgrfontupper}{85} +\DeclareMathSymbol{\Phi}{\mathalpha}{mtlgrfontupper}{70} +\DeclareMathSymbol{\Chi}{\mathalpha}{mtlgrfontupper}{81} +\DeclareMathSymbol{\Psi}{\mathalpha}{mtlgrfontupper}{89} +\DeclareMathSymbol{\Omega}{\mathalpha}{mtlgrfontupper}{87} +% +\DeclareMathSymbol{\alpha}{\mathalpha}{mtlgrfontlower}{97} +\DeclareMathSymbol{\beta}{\mathalpha}{mtlgrfontlower}{98} +\DeclareMathSymbol{\gamma}{\mathalpha}{mtlgrfontlower}{103} +\DeclareMathSymbol{\delta}{\mathalpha}{mtlgrfontlower}{100} +\DeclareMathSymbol{\epsilon}{\mathalpha}{mtlgrfontlower}{101} +\DeclareMathSymbol{\zeta}{\mathalpha}{mtlgrfontlower}{122} +\DeclareMathSymbol{\eta}{\mathalpha}{mtlgrfontlower}{104} +\DeclareMathSymbol{\theta}{\mathalpha}{mtlgrfontlower}{106} +\DeclareMathSymbol{\iota}{\mathalpha}{mtlgrfontlower}{105} +\DeclareMathSymbol{\kappa}{\mathalpha}{mtlgrfontlower}{107} +\DeclareMathSymbol{\lambda}{\mathalpha}{mtlgrfontlower}{108} +\DeclareMathSymbol{\mu}{\mathalpha}{mtlgrfontlower}{109} +\DeclareMathSymbol{\nu}{\mathalpha}{mtlgrfontlower}{110} +\DeclareMathSymbol{\xi}{\mathalpha}{mtlgrfontlower}{120} +\DeclareMathSymbol{\omicron}{\mathalpha}{mtlgrfontlower}{111} +\DeclareMathSymbol{\pi}{\mathalpha}{mtlgrfontlower}{112} +\DeclareMathSymbol{\rho}{\mathalpha}{mtlgrfontlower}{114} +\DeclareMathSymbol{\varsigma}{\mathalpha}{mtlgrfontlower}{99} +\DeclareMathSymbol{\sigma}{\mathalpha}{mtlgrfontlower}{115} +\DeclareMathSymbol{\tau}{\mathalpha}{mtlgrfontlower}{116} +\DeclareMathSymbol{\upsilon}{\mathalpha}{mtlgrfontlower}{117} +\DeclareMathSymbol{\phi}{\mathalpha}{mtlgrfontlower}{102} +\DeclareMathSymbol{\chi}{\mathalpha}{mtlgrfontlower}{113} +\DeclareMathSymbol{\psi}{\mathalpha}{mtlgrfontlower}{121} +\DeclareMathSymbol{\omega}{\mathalpha}{mtlgrfontlower}{119} +\DeclareMathSymbol{\digamma}{\mathalpha}{mtlgrfontlower}{147} +\DeclareMathSymbol{\Digamma}{\mathalpha}{mtlgrfontlower}{195} % cf http://milde.users.sourceforge.net/LGR/lgrxenc.def.html % et greek.ldf du package babel \fi @@ -2521,34 +2445,36 @@ defaultbf,defaultit,defaultsf,defaulttt}} % In v1.0, I had them of type |mathord|, here I choose |mathalpha|. If I % used \cs{i} and \cs{j} from the text font the problem would be with the % fontsize, if in scriptstyle. The amsmath \cs{text} would do the trick. +% v1.14b (2011/04/02): again this bug in the EU1/EU2 encoding part, as in the +% code redefining \$ etc in math mode (see above). Fixed. % \begin{macrocode} -\edef\mt@enc{\m@stextenc} +\edef\mt@tmp@enc{\encodingdefault} \mt@proceedtrue -\ifx\mt@enc\mt@eui % xetex and unicode font - \XeTeXmathchardef\inodot="7 "\the\symmtletterfont "0131 \relax - \XeTeXmathchardef\jnodot="7 "\the\symmtletterfont "0237 \relax +\ifx\mt@tmp@enc\mt@eui % xetex and unicode font + \XeTeXmathchardef\inodot="7 \symmtletterfont "0131 \relax + \XeTeXmathchardef\jnodot="7 \symmtletterfont "0237 \relax \else -\ifx\mt@enc\mt@euii % luatex and unicode font - \luatexUmathchardef\inodot="7 "\the\symmtletterfont "0131 \relax - \luatexUmathchardef\jnodot="7 "\the\symmtletterfont "0237 \relax +\ifx\mt@tmp@enc\mt@euii % luatex and unicode font + \luatexUmathchardef\inodot="7 \symmtletterfont "0131 \relax + \luatexUmathchardef\jnodot="7 \symmtletterfont "0237 \relax \else -\ifx\mt@enc\mt@ti % T1 +\ifx\mt@tmp@enc\mt@ti % T1 \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont}{25} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont}{26} \else -\ifx\mt@enc\mt@oti % OT1 +\ifx\mt@tmp@enc\mt@oti % OT1 \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont}{16} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont}{17} \else -\ifx\mt@enc\mt@lyi % LY1 +\ifx\mt@tmp@enc\mt@lyi % LY1 \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont}{16} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont}{17} \else \ifXeTeX\mt@proceedfalse\else\ifLuaTeX\mt@proceedfalse\else \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont} -{\expandafter\the\expandafter\csname\mt@enc\string\i\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\i\endcsname} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont} -{\expandafter\the\expandafter\csname\mt@enc\string\j\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\j\endcsname} \fi\fi \fi\fi\fi\fi\fi \ifmt@defaultimath\else @@ -2575,9 +2501,9 @@ defaultbf,defaultit,defaultsf,defaulttt}} % package, else OT1. % v1.12b: I add LY1 which is quasi like OT1 % \begin{macrocode} -\edef\mt@enc{\m@stextenc} %% rather one too many than sorry +\edef\mt@tmp@enc{\encodingdefault} %% rather one too many than sorry \ifmt@mathaccents -\ifx\mt@ti\mt@enc +\ifx\mt@ti\mt@tmp@enc \DeclareMathAccent{\acute}{\mathalpha}{mtoperatorfont}{1} \DeclareMathAccent{\grave}{\mathalpha}{mtoperatorfont}{0} \DeclareMathAccent{\ddot}{\mathalpha}{mtoperatorfont}{4} @@ -2599,10 +2525,10 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareMathAccent{\hat}{\mathalpha}{mtoperatorfont}{94} \DeclareMathAccent{\dot}{\mathalpha}{mtoperatorfont}{95} \DeclareMathAccent{\mathring}{\mathalpha}{mtoperatorfont}{23} - \ifx\mt@lyi\mt@enc % LY1 encoding + \ifx\mt@lyi\mt@tmp@enc % LY1 encoding \DeclareMathAccent{\dot}{\mathalpha}{mtoperatorfont}{5} \else - \ifx\mt@oti\mt@enc\else + \ifx\mt@oti\mt@tmp@enc\else \typeout{** mathastext: math accents have been assumed to be^^J% ** as in OT1 encoding.} \fi @@ -2659,31 +2585,184 @@ defaultbf,defaultit,defaultsf,defaulttt}} \mt@font@info@on \endinput % \end{macrocode} -% \iffalse -%</code> -%<*dtx> -% \fi +%\iffalse +% +%-------------------- CHANGE LOG ---------------------------------------- +% {1.0}{2011/01/25} +% {Initial version.} +% +% {1.1}{2011/02/01}{ +% + option |italic|: this is the main change for the +% user. Internally we now have two distinct fonts, however they differ only in +% shape. +% + the mechanism of math versions is +% extended to accomodate this: the macros \cs{MathastextWillUse} and +% \cs{MathastextDeclareVersion} now accept an optional argument for specifying +% the letters' shape +% + |frenchmath| sets the +% uppercase Latin letters nevertheless in the digits font +% + \cs{mathnormal}, \cs{mathrm}, \cs{mathbf} work in +% the same way as in standard \LaTeX{}, but with the |mathastext| font. But I +% do nothing with the other default alphabet changing commands. +% + the minus sign can be represented as an +% en-dash. This seems to be clever enough to accomodate all 8bit encodings, +% not limited to OT1 or T1. +% + the |noplusnominus| option is split into two +% + I change the way the +% encoding is chosen for the math accents: I use the default encoding at the +% time of loading. So there is nothing more in the code at AtBeginDocument for +% this. I do not know an automatic way to go from the encoding to the accent +% slots, and I did not want to manually incorporate here all possible or at +% least many encodings, so basically only OT1 and T1 are ok. Default to +% OT1. Of course in case on more than one math versions, they should have the +% same encoding for everything to work everywhere. +% + same change for \cs{imath}: but defaults to T1. +% + some attention devoted to |hbar|. Works ok, or at +% least reasonably with the fonts I tested. Adjusts to whether or not the +% |italic| option was used. +% + |defaultvec| +% deprecated, rather we now have \cs{fouriervec} command to access the vec +% accent from the Fourier font. +% + new alphabet +% commands \cs{mathnormalbold}, \cs{MathEulerBold}, and \cs{MathEuler} and +% \cs{MathPSymbol} have new names. +% + names for the +% capital Greek letters which look like their Latin versions. +% + bug fixed: the character slot for \cs{Xi} in the +% Symbol font was wrong. +% + limitations: +% ++ the \cs{pmvec} accent will not change its size when +% used in subscripts or exponents +% ++ now that internally we have two fonts for letters and +% digits they could be entirely unrelated, it is just a +% question of providing the user macros to pass the info to +% the package, and to duplicate some variables. As this +% goes really against the initial design goals, and adds +% complications, I did not do it. +% } % -% \CharacterTable -% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z -% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z -% Digits \0\1\2\3\4\5\6\7\8\9 -% Exclamation \! Double quote \" Hash (number) \# -% Dollar \$ Percent \% Ampersand \& -% Acute accent \' Left paren \( Right paren \) -% Asterisk \* Plus \+ Comma \, -% Minus \- Point \. Solidus \/ -% Colon \: Semicolon \; Less than \< -% Equals \= Greater than \> Question mark \? -% Commercial at \@ Left bracket \[ Backslash \\ -% Right bracket \] Circumflex \^ Underscore \_ -% Grave accent \` Left brace \{ Vertical bar \| -% Right brace \} Tilde \~} +% {1.11}{2011/02/06} +% { +% + bugs from version 1.1 have been fixed. +% + Among them the non correct behavior when +% eulergreek and one of the symbol options were used +% at the same time. +% + Also the macro \cs{Mathastext} did not +% contrarily to what was said in the docs pick up +% the font defaults at the time of it being used in +% the preamble. +% + the endash option provoked an error when used +% with XeTeX or LuaTeX. +% + for brevity sake long macro names starting with +% \cs{Mathastext\cdots} now exist in the form +% \cs{MT\cdots} +% + the |endash| option is made default, as well as the +% |alldelims| option. A new |symboldelimiters| option +% specifies to use the Symbol font for characters others +% then letters and digits. +% + the \cs{fouriervec} command must be explicitely +% requested by the |fouriervec| option +% + the command \cs{Mathastext} now accepts an optional +% argument which, if present, makes \cs{Mathastext} acts +% as \cs{MathastextDeclareVersion} with the current font +% defaults, the optional argument giving the name of the +% version. This mechanism allows to use |mathastext| with +% unicode fonts (XeTeX or LuaTeX with |fontspec|) +% + |mathastext| is more clever for the dotless i and j +% and the hbar with respect to encoding problems; and it +% knows also their Unicode locations. +% } % -% \iffalse -%</dtx> -% \fi +% {1.12}{2011/02/07} +% { +% + annoying silly bug in 1.11 about using \cs{MessageBreak} in +% the \cs{typeout} things +% + there was in 1.11 an even sillier bug which made the +% option nominus provoke an error. +% + I have improved the way |mathastext| deals with the +% encoding-dependent things, especially with respect to +% the handling of unicode engines. +% } % -% \CheckSum{2914} +% {1.12b}{2011/02/09} +% { +% + a completely stupid bug regarding uppercase Greek is +% corrected +% + I take this opportunity to add LY1 as one of the supported +% encoding for math accents +% + and I correct an orthographical mistake in the README +% } +% +% {1.13}{2011/03/11} +% { +% + option LGRgreek: for fonts also available in LGR-encoding +% + internal changes: systematic use of `if' conditionals +% for better readability of the code and easier error-checking +% (done a bit late for that aspect, though... ) +% } +% +% {1.13b}{2011/03/15} +% { +% + I modify the way the \cs{prod} and \cs{sum} are defined when the option +% symbolmisc is used. So now, in display math we revert to the default +% large symbols. +% } +% +% {1.14}{2011/03/22} +% { +% + \cs{mathit}, \cs{mathsf} and \cs{mathtt} are now +% modified to make use of the text fonts (previous +% versions only modified \cs{mathnormal}, \cs{mathrm} and +% \cs{mathbf}) +% } +% +% {1.14b}{2011/04/03} +% { +% + a bug with \texttt{\char92\char35}, \texttt{\char92\char36}, +% \texttt{\char92\char37} and \texttt{\char92\char38} in math mode, +% showing up when ten or more math groups have been assigned, is fixed. +% + the same bug affected \cs{hbar}, \cs{inodot}, \cs{jnodot} and the +% minus sign in math mode under the same condition plus EU1/EU2 encoding. +% + I modifify the behavior of the LGRgreek and selfGreek options, adding +% the new LGRgreeks and selfGreeks options. +% + many changes in the internal macro names, to have some better +% structured namespace +% + also the dtx file was a bit strangely done, so I tried to improve +% this +% } +% +% {1.14c}{2011/04/04} +% { +% + A bug is fixed: the \Mathastext macro reinitializes +% the fonts in the normal and bold math versions, but it +% also erroneously redeclared the math alphabet changing +% commands which could have been set up in previously +% defined math versions (via earlier calls to +% \Mathastext[version_name]). +% } +% +% \fi +% \CheckSum{2870} % \Finale -\endinput
\ No newline at end of file +%\iffalse +%<*dtx> +%\fi +\CharacterTable + {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z + Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z + Digits \0\1\2\3\4\5\6\7\8\9 + Exclamation \! Double quote \" Hash (number) \# + Dollar \$ Percent \% Ampersand \& + Acute accent \' Left paren \( Right paren \) + Asterisk \* Plus \+ Comma \, + Minus \- Point \. Solidus \/ + Colon \: Semicolon \; Less than \< + Equals \= Greater than \> Question mark \? + Commercial at \@ Left bracket \[ Backslash \\ + Right bracket \] Circumflex \^ Underscore \_ + Grave accent \` Left brace \{ Vertical bar \| + Right brace \} Tilde \~} +%\iffalse +%</dtx> +%\fi +\endinput diff --git a/Master/texmf-dist/source/latex/mathastext/mathastext.ins b/Master/texmf-dist/source/latex/mathastext/mathastext.ins index 2620d7cdaf5..93d6bf22219 100644 --- a/Master/texmf-dist/source/latex/mathastext/mathastext.ins +++ b/Master/texmf-dist/source/latex/mathastext/mathastext.ins @@ -19,7 +19,7 @@ %% %% --------------- start of docstrip commands ------------------ %% -\def\filedate{2011/03/22} +\def\filedate{2011/04/02} \def\batchfile{mathastext.ins} \input docstrip.tex @@ -73,7 +73,7 @@ This is a generated file. \askforoverwritefalse -\generate{\file{mathastext.sty}{\from{mathastext.dtx}{code}} +\generate{\file{mathastext.sty}{\from{mathastext.dtx}{package}} } \ifToplevel{ diff --git a/Master/texmf-dist/tex/latex/mathastext/mathastext.sty b/Master/texmf-dist/tex/latex/mathastext/mathastext.sty index 95f3899b514..8192a9d8e3a 100644 --- a/Master/texmf-dist/tex/latex/mathastext/mathastext.sty +++ b/Master/texmf-dist/tex/latex/mathastext/mathastext.sty @@ -4,7 +4,7 @@ %% %% The original source files were: %% -%% mathastext.dtx (with options: `code') +%% mathastext.dtx (with options: `package') %% This is a generated file. %% %% Copyright (C) 2011 by Jean-Francois Burnol @@ -31,7 +31,7 @@ %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{mathastext} - [2011/03/22 v1.14 Use the text font in simple mathematics] + [2011/04/04 v1.14c Use the text font in simple mathematics] \newif\ifXeTeX \begingroup\expandafter\expandafter\expandafter\endgroup \expandafter\ifx\csname XeTeXinterchartoks\endcsname\relax @@ -55,147 +55,167 @@ \let\@font@info\m@stext@info \let\@font@warning\m@stext@warning} \mt@font@info@off - \edef\m@stextenc{\encodingdefault} - \edef\m@stextfam{\familydefault} - \edef\m@stextser{\seriesdefault} - \edef\m@stextsh{\shapedefault} - \edef\m@stextbold{\bfdefault} - \edef\m@stextshletter{\shapedefault} + \def\m@t@enc{\encodingdefault} + \def\m@t@fam{\familydefault} + \def\m@t@ser{\seriesdefault} + \def\m@t@opsh{\shapedefault} %% will be default shape for operator names + \def\m@t@bold{\bfdefault} + \def\m@t@ltsh{\shapedefault} %% will be default shape for letters \newif\ifmt@proceed \newif\ifmt@failed \def\mt@oti{OT1}\def\mt@ti{T1} \def\mt@eui{EU1}\def\mt@euii{EU2} \def\mt@lyi{LY1} -\newif\ifmt@italic\DeclareOption{italic}{\mt@italictrue - \edef\m@stextshletter{\itdefault}} +\newif\ifmt@italic + \DeclareOption{italic}{\mt@italictrue\def\m@t@ltsh{\itdefault}} \newif\ifmt@frenchmath -\DeclareOption{frenchmath}{\mt@frenchmathtrue - \ExecuteOptions{italic}} + \DeclareOption{frenchmath}{\mt@frenchmathtrue\ExecuteOptions{italic}} %% \newif\ifmt@endash\mt@endashtrue -\DeclareOption{endash}{\mt@endashtrue} -\DeclareOption{noendash}{\mt@endashfalse} -\newif\ifmt@emdash\DeclareOption{emdash}{\mt@emdashtrue\mt@endashfalse} + \DeclareOption{endash}{\mt@endashtrue} + \DeclareOption{noendash}{\mt@endashfalse} +\newif\ifmt@emdash + \DeclareOption{emdash}{\mt@emdashtrue\mt@endashfalse} %% \newif\ifmt@alldelims -\DeclareOption{alldelims}{\mt@alldelimstrue} -\ifx\mt@oti\m@stextenc\else\mt@alldelimstrue\fi -\DeclareOption{nolessnomore}{\mt@alldelimsfalse} + \DeclareOption{alldelims}{\mt@alldelimstrue} +\edef\mt@tmp{\encodingdefault}\ifx\mt@oti\mt@tmp\else\mt@alldelimstrue\fi + \DeclareOption{nolessnomore}{\mt@alldelimsfalse} %% -\newif\ifmt@noplus\DeclareOption{noplus}{\mt@noplustrue} -\newif\ifmt@nominus\DeclareOption{nominus}{\mt@nominustrue} +\newif\ifmt@noplus + \DeclareOption{noplus}{\mt@noplustrue} +\newif\ifmt@nominus + \DeclareOption{nominus}{\mt@nominustrue} \DeclareOption{noplusnominus}{\ExecuteOptions{noplus,nominus}} %% -\newif\ifmt@noparen\DeclareOption{noparenthesis}{\mt@noparentrue} -\newif\ifmt@nopunct\DeclareOption{nopunctuation}{\mt@nopuncttrue} -\newif\ifmt@noequal\DeclareOption{noequal}{\mt@noequaltrue} -\newif\ifmt@noexclam\DeclareOption{noexclam}{\mt@noexclamtrue} -\newif\ifmt@noast\DeclareOption{noasterisk}{\mt@noasttrue} -\newif\ifmt@nospecials\DeclareOption{nospecials}{\mt@nospecialstrue} +\newif\ifmt@noparen + \DeclareOption{noparenthesis}{\mt@noparentrue} +\newif\ifmt@nopunct + \DeclareOption{nopunctuation}{\mt@nopuncttrue} +\newif\ifmt@noequal + \DeclareOption{noequal}{\mt@noequaltrue} +\newif\ifmt@noexclam + \DeclareOption{noexclam}{\mt@noexclamtrue} +\newif\ifmt@noast + \DeclareOption{noasterisk}{\mt@noasttrue} +\newif\ifmt@nospecials + \DeclareOption{nospecials}{\mt@nospecialstrue} \DeclareOption{basic}{\ExecuteOptions{noparenthesis,nopunctuation,% noplusnominus,noequal,noexclam,noasterisk,nospecials,nolessnomore}} %% -\newif\ifmt@nohbar\DeclareOption{nohbar}{\mt@nohbartrue} -\newif\ifmt@nodigits\DeclareOption{nodigits}{\mt@nodigitstrue} -\newif\ifmt@defaultimath\DeclareOption{defaultimath}{\mt@defaultimathtrue} -\newif\ifmt@mathaccents\DeclareOption{mathaccents}{\mt@mathaccentstrue} -%% -\newif\ifmt@selfGreek - \DeclareOption{selfGreek}{\mt@selfGreektrue} - \DeclareOption{selfgreek}{\mt@selfGreektrue} -\newif\ifmt@LGRgreek\DeclareOption{LGRgreek}{\mt@LGRgreektrue} +\newif\ifmt@nohbar + \DeclareOption{nohbar}{\mt@nohbartrue} +\newif\ifmt@nodigits + \DeclareOption{nodigits}{\mt@nodigitstrue} +\newif\ifmt@defaultimath + \DeclareOption{defaultimath}{\mt@defaultimathtrue} +\newif\ifmt@mathaccents + \DeclareOption{mathaccents}{\mt@mathaccentstrue} %% \newif\ifmt@needsymbol \newif\ifmt@symboldelimiters -\DeclareOption{symboldelimiters}{\mt@needsymboltrue\mt@symboldelimiterstrue} + \DeclareOption{symboldelimiters}{\mt@needsymboltrue\mt@symboldelimiterstrue} \newif\ifmt@symboldigits -\DeclareOption{symboldigits}{\mt@needsymboltrue\mt@symboldigitstrue} + \DeclareOption{symboldigits}{\mt@needsymboltrue\mt@symboldigitstrue} \newif\ifmt@symbolgreek -\DeclareOption{symbolgreek}{\mt@needsymboltrue\mt@symbolgreektrue} + \DeclareOption{symbolgreek}{\mt@needsymboltrue\mt@symbolgreektrue} \newif\ifmt@symbolre -\DeclareOption{symbolre}{\mt@needsymboltrue\mt@symbolretrue} + \DeclareOption{symbolre}{\mt@needsymboltrue\mt@symbolretrue} \newif\ifmt@symbolmisc -\DeclareOption{symbolmisc}{\mt@needsymboltrue\mt@symbolmisctrue} + \DeclareOption{symbolmisc}{\mt@needsymboltrue\mt@symbolmisctrue} \DeclareOption{symbol}{\ExecuteOptions{symbolgreek,symbolmisc,symbolre}} \DeclareOption{symbolmax}{\ExecuteOptions{symbol,symboldelimiters}} %% \newif\ifmt@needeuler \newif\ifmt@eulerdigits -\DeclareOption{eulerdigits}{\mt@needeulertrue\mt@eulerdigitstrue} + \DeclareOption{eulerdigits}{\mt@needeulertrue\mt@eulerdigitstrue} \newif\ifmt@eulergreek -\DeclareOption{eulergreek}{\mt@needeulertrue\mt@eulergreektrue} + \DeclareOption{eulergreek}{\mt@needeulertrue\mt@eulergreektrue} %% -\newif\ifmt@twoshapesforgreek -\newif\ifmt@upgreek +\newif\ifmt@selfGreek + \DeclareOption{selfGreek}{\mt@selfGreektrue} +\newif\ifmt@selfGreeks + \DeclareOption{selfGreeks}{\mt@selfGreekstrue\mt@selfGreektrue} +\newif\ifmt@LGRgreek + \DeclareOption{LGRgreek}{\mt@LGRgreektrue} +\newif\ifmt@LGRgreeks + \DeclareOption{LGRgreeks}{\mt@LGRgreekstrue\mt@LGRgreektrue} +%% +\def\mt@greek@select{0} \newif\ifmt@itgreek -\newif\ifmt@upGreek -\newif\ifmt@itGreek -\DeclareOption{upgreek}{\mt@upgreektrue} -\DeclareOption{itgreek}{\mt@itgreektrue} -\DeclareOption{upGreek}{\mt@twoshapesforgreektrue\mt@upGreektrue} -\DeclareOption{itGreek}{\mt@twoshapesforgreektrue\mt@itGreektrue} +\newif\ifmt@upgreek + \DeclareOption{itgreek}{\mt@itgreektrue} + \DeclareOption{upgreek}{\mt@upgreektrue} + \DeclareOption{itGreek}{\def\mt@greek@select{1}} + \DeclareOption{upGreek}{\def\mt@greek@select{2}} %% \newif\ifmt@defaultnormal -\DeclareOption{defaultnormal}{\mt@defaultnormaltrue} + \DeclareOption{defaultnormal}{\mt@defaultnormaltrue} \newif\ifmt@defaultrm -\DeclareOption{defaultrm}{\mt@defaultrmtrue} + \DeclareOption{defaultrm}{\mt@defaultrmtrue} \newif\ifmt@defaultbf -\DeclareOption{defaultbf}{\mt@defaultbftrue} + \DeclareOption{defaultbf}{\mt@defaultbftrue} \newif\ifmt@defaultit -\DeclareOption{defaultit}{\mt@defaultittrue} + \DeclareOption{defaultit}{\mt@defaultittrue} \newif\ifmt@defaultsf -\DeclareOption{defaultsf}{\mt@defaultsftrue} + \DeclareOption{defaultsf}{\mt@defaultsftrue} \newif\ifmt@defaulttt -\DeclareOption{defaulttt}{\mt@defaulttttrue} + \DeclareOption{defaulttt}{\mt@defaulttttrue} \DeclareOption{defaultalphabets}{\ExecuteOptions{defaultnormal,defaultrm,% defaultbf,defaultit,defaultsf,defaulttt}} -\newif\ifmt@defaultsizes\DeclareOption{defaultmathsizes}{\mt@defaultsizestrue} -\newif\ifmt@twelve\DeclareOption{12pt}{\mt@twelvetrue} -\newif\ifmt@fouriervec\DeclareOption{fouriervec}{\mt@fouriervectrue} +\newif\ifmt@defaultsizes + \DeclareOption{defaultmathsizes}{\mt@defaultsizestrue} +\newif\ifmt@twelve + \DeclareOption{12pt}{\mt@twelvetrue} +\newif\ifmt@fouriervec + \DeclareOption{fouriervec}{\mt@fouriervectrue} \DeclareOption*{\PackageWarning{mathastext}{Unknown option `\CurrentOption'}} %% \ProcessOptions\relax \DeclareSymbolFont{mtoperatorfont} - {\m@stextenc}{\m@stextfam}{\m@stextser}{\m@stextsh} + {\m@t@enc}{\m@t@fam}{\m@t@ser}{\m@t@opsh} \DeclareSymbolFont{mtletterfont} - {\m@stextenc}{\m@stextfam}{\m@stextser}{\m@stextshletter} + {\m@t@enc}{\m@t@fam}{\m@t@ser}{\m@t@ltsh} \DeclareSymbolFontAlphabet{\Mathnormal}{mtletterfont} \DeclareSymbolFontAlphabet{\Mathrm}{mtoperatorfont} + \DeclareMathAlphabet{\Mathbf}{\m@t@enc}{\m@t@fam}{\m@t@bold}{\m@t@opsh} + \DeclareMathAlphabet{\Mathit}{\m@t@enc}{\m@t@fam}{\m@t@ser}{\itdefault} + \DeclareMathAlphabet{\Mathsf}{\m@t@enc}{\sfdefault}{\m@t@ser}{\m@t@opsh} + \DeclareMathAlphabet{\Mathtt}{\m@t@enc}{\ttdefault}{\m@t@ser}{\m@t@opsh} + \DeclareMathAlphabet{\mathnormalbold} + {\m@t@enc}{\m@t@fam}{\m@t@bold}{\m@t@ltsh} + \def\m@t@greek@lsh{\m@t@ltsh} %% default behavior + \def\m@t@greek@ush{\m@t@opsh} + \ifmt@itgreek\def\m@t@greek@lsh{\itdefault} + \def\m@t@greek@ush{\itdefault}\fi + \ifmt@upgreek\def\m@t@greek@lsh{\updefault} + \def\m@t@greek@ush{\updefault}\fi + \ifmt@frenchmath + \ifmt@itgreek\else + \ifmt@upgreek\else + \def\m@t@greek@lsh{\m@t@opsh} + \def\m@t@greek@ush{\m@t@opsh} + \fi\fi + \fi + \ifcase\mt@greek@select + \or\def\m@t@greek@ush{\itdefault} + \or\def\m@t@greek@ush{\updefault} + \fi \ifmt@LGRgreek \DeclareFontEncoding{LGR}{}{} - \DeclareSymbolFont{mtlgrfont}{LGR} - {\m@stextfam}{\m@stextser}{\m@stextshletter} - \def\mtlgrfontupper{mtlgrfont} - \ifmt@twoshapesforgreek - \ifmt@upGreek - \DeclareSymbolFont{mtlgrfontupper}{LGR}{\m@stextfam}{\m@stextser}{n} - \else - \DeclareSymbolFont{mtlgrfontupper}{LGR}{\m@stextfam}{\m@stextser}{it} - \fi - \def\mtlgrfontupper{mtlgrfontupper} - \fi + \DeclareSymbolFont{mtlgrfontlower}{LGR} + {\m@t@fam}{\m@t@ser}{\m@t@greek@lsh} + \DeclareSymbolFont{mtlgrfontupper}{LGR} + {\m@t@fam}{\m@t@ser}{\m@t@greek@ush} \else -\ifmt@selfGreek\mt@proceedfalse - \ifmt@upGreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@upgreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@itGreek\def\mt@tmp{it}\mt@proceedtrue\else - \ifmt@itgreek\def\mt@tmp{it}\mt@proceedtrue - \fi\fi\fi\fi - \ifmt@proceed - \def\mt@uppergreekfont{mtselffontupper} - \DeclareSymbolFont{mtselffontupper}{\m@stextenc} % should be OT1! - {\m@stextfam}{\m@stextser}{\mt@tmp} - \else - \ifmt@frenchmath - \def\mt@uppergreekfont{mtoperatorfont} - \else - \def\mt@uppergreekfont{mtletterfont} - \fi - \fi +\ifmt@selfGreek + \DeclareSymbolFont{mtselfGreekfont}{OT1} + {\m@t@fam}{\m@t@ser}{\m@t@greek@ush} \fi\fi \ifmt@needeuler \DeclareSymbolFont{mteulervm}{U}{zeur}{m}{n} \DeclareSymbolFontAlphabet{\MathEuler}{mteulervm} +\DeclareMathAlphabet{\MathEulerBold}{U}{zeur}{\m@t@bold}{n} \fi \newcommand\MTEulerScale[1]{\edef\zeu@Scale{#1}} \let\MathastextEulerScale\MTEulerScale @@ -215,13 +235,13 @@ defaultbf,defaultit,defaultsf,defaulttt}} \SetSymbolFont{mtfourierpourvec}{bold}{FML}{futm}{b}{it} \DeclareMathAccent{\fouriervec}{\mathord}{mtfourierpourvec}{"7E} \fi -\DeclareRobustCommand\MTencoding[1]{\def\m@stextenc{#1}} -\DeclareRobustCommand\MTfamily[1]{\def\m@stextfam{#1}} -\DeclareRobustCommand\MTseries[1]{\def\m@stextser{#1}} -\DeclareRobustCommand\MTshape[1]{\def\m@stextsh{#1} - \ifmt@italic\else\def\m@stextshletter{#1}\fi} -\DeclareRobustCommand\MTboldvariant[1]{\def\m@stextbold{#1}} -\DeclareRobustCommand\MTlettershape[1]{\def\m@stextshletter{#1}} +\DeclareRobustCommand\MTencoding[1]{\def\m@t@enc{#1}} +\DeclareRobustCommand\MTfamily[1]{\def\m@t@fam{#1}} +\DeclareRobustCommand\MTseries[1]{\def\m@t@ser{#1}} +\DeclareRobustCommand\MTshape[1]{\def\m@t@opsh{#1} + \ifmt@italic\else\def\m@t@ltsh{#1}\fi} +\DeclareRobustCommand\MTboldvariant[1]{\def\m@t@bold{#1}} +\DeclareRobustCommand\MTlettershape[1]{\def\m@t@ltsh{#1}} \let\Mathastextencoding\MTencoding \let\Mathastextfamily\MTfamily \let\Mathastextseries\MTseries @@ -233,11 +253,12 @@ defaultbf,defaultit,defaultsf,defaulttt}} \MTfamily{#3} \MTseries{#4} \MTshape{#5} + \ifmt@italic\MTlettershape{\itdefault}\fi % was missing in v 1.14 and prior \ifx\@empty#1 \else %% we check if optional argument was [], this does not detect [ ] \def\mt@empty{}\def\mt@tmp{#1} - \ifx\mt@empty\mt@tmp\else\MTlettershape{#1}\fi + \ifx\mt@empty\mt@tmp \else \MTlettershape{#1}\fi \fi \Mathastext} \let\MathastextWillUse\MTWillUse @@ -245,21 +266,21 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareRobustCommand\Mathastext[1][\@empty]{ \mt@font@info@off \ifx\@empty#1 % no optional argument - \edef\mt@encoding@normal{\m@stextenc} - \edef\mt@family@normal{\m@stextfam} - \edef\mt@series@normal{\m@stextser} - \edef\mt@shape@normal{\m@stextsh} - \edef\mt@ltshape@normal{\m@stextshletter} + \edef\mt@encoding@normal{\m@t@enc} + \edef\mt@family@normal{\m@t@fam} + \edef\mt@series@normal{\m@t@ser} + \edef\mt@shape@normal{\m@t@opsh} + \edef\mt@ltshape@normal{\m@t@ltsh} \edef\mt@itdefault@normal{\itdefault} \edef\mt@sfdefault@normal{\sfdefault} \edef\mt@ttdefault@normal{\ttdefault} - \edef\mt@boldvariant@normal{\m@stextbold} - \edef\mt@encoding@bold{\m@stextenc} - \edef\mt@family@bold{\m@stextfam} - \edef\mt@series@bold{\m@stextbold} - \edef\mt@shape@bold{\m@stextsh} - \edef\mt@ltshape@bold{\m@stextshletter} - \edef\mt@boldvariant@bold{\m@stextbold} + \edef\mt@boldvariant@normal{\m@t@bold} + \edef\mt@encoding@bold{\m@t@enc} + \edef\mt@family@bold{\m@t@fam} + \edef\mt@series@bold{\m@t@bold} + \edef\mt@shape@bold{\m@t@opsh} + \edef\mt@ltshape@bold{\m@t@ltsh} + \edef\mt@boldvariant@bold{\m@t@bold} \edef\mt@itdefault@bold{\itdefault} \edef\mt@sfdefault@bold{\sfdefault} \edef\mt@ttdefault@bold{\ttdefault} @@ -280,76 +301,71 @@ defaultbf,defaultit,defaultsf,defaulttt}} {\mt@family@bold} {\mt@series@bold} {\mt@shape@bold} - \DeclareMathAlphabet{\Mathbf} {\mt@encoding@bold} - {\mt@family@bold} + \SetMathAlphabet{\Mathbf}{normal}{\mt@encoding@normal} + {\mt@family@normal} {\mt@series@bold} - {\mt@shape@bold} - \DeclareMathAlphabet{\Mathit} {\mt@encoding@normal} + {\mt@shape@normal} + \SetMathAlphabet{\Mathit}{normal}{\mt@encoding@normal} {\mt@family@normal} {\mt@series@normal} {\mt@itdefault@normal} - \DeclareMathAlphabet{\Mathsf} {\mt@encoding@normal} + \SetMathAlphabet{\Mathsf}{normal}{\mt@encoding@normal} {\mt@sfdefault@normal} {\mt@series@normal} {\mt@shape@normal} - \DeclareMathAlphabet{\Mathtt} {\mt@encoding@normal} + \SetMathAlphabet{\Mathtt}{normal}{\mt@encoding@normal} {\mt@ttdefault@normal} {\mt@series@normal} {\mt@shape@normal} - \SetMathAlphabet{\Mathit}{bold}{\mt@encoding@normal} - {\mt@family@normal} + \SetMathAlphabet{\Mathbf}{bold}{\mt@encoding@bold} + {\mt@family@bold} + {\mt@series@bold} + {\mt@shape@bold} + \SetMathAlphabet{\Mathit}{bold}{\mt@encoding@bold} + {\mt@family@bold} {\mt@series@bold} {\mt@itdefault@bold} - \SetMathAlphabet{\Mathsf}{bold}{\mt@encoding@normal} + \SetMathAlphabet{\Mathsf}{bold}{\mt@encoding@bold} {\mt@sfdefault@bold} {\mt@series@bold} - {\mt@shape@normal} - \SetMathAlphabet{\Mathtt}{bold}{\mt@encoding@normal} + {\mt@shape@bold} + \SetMathAlphabet{\Mathtt}{bold}{\mt@encoding@bold} {\mt@ttdefault@bold} {\mt@series@bold} - {\mt@shape@normal} - \DeclareMathAlphabet{\mathnormalbold} {\mt@encoding@bold} + {\mt@shape@bold} + \SetMathAlphabet{\mathnormalbold}{normal}{\mt@encoding@normal} + {\mt@family@normal} + {\mt@boldvariant@normal} + {\mt@ltshape@normal} + \SetMathAlphabet{\mathnormalbold}{bold}{\mt@encoding@bold} {\mt@family@bold} - {\mt@series@bold} + {\mt@boldvariant@bold} {\mt@ltshape@bold} \ifmt@needeuler \SetSymbolFont{mteulervm}{bold}{U}{zeur}{\mt@boldvariant@normal}{n} - \DeclareMathAlphabet{\MathEulerBold}{U}{zeur}{\mt@boldvariant@normal}{n} + \SetMathAlphabet{\MathEulerBold}{normal} + {U}{zeur}{\mt@boldvariant@normal}{n} + \SetMathAlphabet{\MathEulerBold}{bold} + {U}{zeur}{\mt@boldvariant@normal}{n} \fi \ifmt@needsymbol\SetSymbolFont{mtpsymbol}{bold} {U}{psy}{\mt@boldvariant@normal}{n} \fi - \ifmt@LGRgreek - \ifmt@upgreek\def\mt@tmp{n} - \else\ifmt@itgreek\def\mt@tmp{it} - \else\ifmt@frenchmath\def\mt@tmp{\mt@shape@normal} - \else\def\mt@tmp{\mt@ltshape@normal} - \fi\fi\fi - \SetSymbolFont{mtlgrfont}{normal}{LGR} - {\mt@family@normal}{\mt@series@normal}{\mt@tmp} - \SetSymbolFont{mtlgrfont}{bold}{LGR} - {\mt@family@bold}{\mt@boldvariant@normal}{\mt@tmp} - \ifmt@twoshapesforgreek - \ifmt@upGreek\def\mt@tmp{n}\else\def\mt@tmp{it}\fi - \SetSymbolFont{mtlgrfontupper}{normal}{LGR} - {\mt@family@normal}{\mt@series@normal}{\mt@tmp} - \SetSymbolFont{mtlgrfontupper}{bold}{LGR} - {\mt@family@bold}{\mt@boldvariant@bold}{\mt@tmp} - \fi +\ifmt@LGRgreek + \SetSymbolFont{mtlgrfontlower}{normal}{LGR} + {\mt@family@normal}{\mt@series@normal}{\m@t@greek@lsh} + \SetSymbolFont{mtlgrfontlower}{bold}{LGR} + {\mt@family@bold}{\mt@boldvariant@normal}{\m@t@greek@lsh} + \SetSymbolFont{mtlgrfontupper}{normal}{LGR} + {\mt@family@normal}{\mt@series@normal}{\m@t@greek@ush} + \SetSymbolFont{mtlgrfontupper}{bold}{LGR} + {\mt@family@bold}{\mt@boldvariant@bold}{\m@t@greek@ush} \else - \ifmt@selfGreek - \mt@proceedfalse - \ifmt@upGreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@upgreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@itGreek\def\mt@tmp{it}\mt@proceedtrue\else - \ifmt@itgreek\def\mt@tmp{it}\mt@proceedtrue - \fi\fi\fi\fi - \ifmt@proceed - \SetSymbolFont{mtselffontupper}{normal}{\mt@encoding@normal} - {\mt@family@normal}{\mt@series@normal}{\mt@tmp} - \SetSymbolFont{mtselffontupper}{bold}{\mt@encoding@bold} - {\mt@family@bold}{\mt@boldvariant@bold}{\mt@tmp} - \fi +\ifmt@selfGreek + \SetSymbolFont{mtselfGreekfont}{normal}{OT1} + {\mt@family@normal}{\mt@series@normal}{\m@t@greek@ush} + \SetSymbolFont{mtselfGreekfont}{bold}{OT1} + {\mt@family@bold}{\mt@boldvariant@bold}{\m@t@greek@ush} \fi\fi \typeout{** Latin letters in math versions normal (resp. bold) are now^^J% ** set up to use the fonts @@ -365,8 +381,8 @@ defaultbf,defaultit,defaultsf,defaulttt}} \ifx\mt@tmp\mt@empty \Mathastext % no infinite loop! \else - \MTDeclareVersion[\m@stextshletter]{#1} - {\m@stextenc}{\m@stextfam}{\m@stextser}{\m@stextsh} + \MTDeclareVersion[\m@t@ltsh]{#1} + {\m@t@enc}{\m@t@fam}{\m@t@ser}{\m@t@opsh} \fi \fi \mt@font@info@on @@ -379,28 +395,28 @@ defaultbf,defaultit,defaultsf,defaulttt}} \expandafter\edef\csname mt@family@\mt@version\endcsname{#4} \expandafter\edef\csname mt@series@\mt@version\endcsname{#5} \expandafter\edef\csname mt@shape@\mt@version\endcsname{#6} - \expandafter\edef\csname mt@boldvariant@\mt@version\endcsname{\m@stextbold} + \expandafter\edef\csname mt@boldvariant@\mt@version\endcsname{\m@t@bold} \expandafter\edef\csname mt@itdefault@\mt@version\endcsname{\itdefault} \expandafter\edef\csname mt@sfdefault@\mt@version\endcsname{\sfdefault} \expandafter\edef\csname mt@ttdefault@\mt@version\endcsname{\ttdefault} \newif\ifmt@reallynoopt\mt@reallynoopttrue \ifx\@empty#1 \else % we check nevertheless for [] situation, will not work with [ ] - \def\mt@@tmp{#1}\def\mt@empty{} - \ifx\mt@@tmp\mt@empty\else\mt@reallynooptfalse\fi + \def\m@t@@tmp{#1}\def\mt@empty{} + \ifx\m@t@@tmp\mt@empty\else\mt@reallynooptfalse\fi \fi \ifmt@reallynoopt \ifmt@italic - \SetSymbolFont{mtletterfont}{#2}{#3}{#4}{#5}{\m@stextshletter} + \SetSymbolFont{mtletterfont}{#2}{#3}{#4}{#5}{\m@t@ltsh} \typeout{** Latin letters in math version `#2' will use the font - #3/#4/#5/\m@stextshletter^^J% + #3/#4/#5/\m@t@ltsh^^J% ** Other characters (digits, ...) and \protect\log-like names will be in `#6' shape.} - \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{\m@stextshletter} + \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{\m@t@ltsh} \else \SetSymbolFont{mtletterfont}{#2}{#3}{#4}{#5}{#6} \typeout{** Latin letters in math version `#2' will use the fonts - #3/#4/#5(\m@stextbold)/#6} + #3/#4/#5(\m@t@bold)/#6} \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{#6} \fi \else @@ -411,51 +427,43 @@ defaultbf,defaultit,defaultsf,defaulttt}} names will be in `#6' shape.} \expandafter\edef\csname mt@ltshape@\mt@version\endcsname{#1} \fi - \SetMathAlphabet{\Mathbf}{#2}{#3}{#4}{\m@stextbold}{#6} + \SetMathAlphabet{\Mathbf}{#2}{#3}{#4}{\m@t@bold}{#6} \SetMathAlphabet{\Mathit}{#2}{#3}{#4}{#5}{\itdefault} \SetMathAlphabet{\Mathsf}{#2}{#3}{\sfdefault}{#5}{#6} \SetMathAlphabet{\Mathtt}{#2}{#3}{\ttdefault}{#5}{#6} - \SetSymbolFont{mtoperatorfont}{#2}{#3}{#4}{#5}{#6} + \SetMathAlphabet{\mathnormalbold}{#2}{#3}{#4}{\m@t@bold} + {\csname mt@ltshape@\mt@version\endcsname} + \SetSymbolFont{mtoperatorfont}{#2}{#3}{#4}{#5}{#6} \ifmt@needeuler - \SetMathAlphabet{\MathEulerBold}{#2}{U}{zeur}{\m@stextbold}{n} + \SetMathAlphabet{\MathEulerBold}{#2}{U}{zeur}{\m@t@bold}{n} \fi - \ifmt@LGRgreek - \ifmt@upgreek\def\mt@tmp{n} - \else\ifmt@itgreek\def\mt@tmp{it} - \else\ifmt@frenchmath\def\mt@tmp{\csname mt@shape@\mt@version\endcsname} - \else\def\mt@tmp{\csname mt@ltshape@\mt@version\endcsname} - \fi\fi\fi - \SetSymbolFont{mtlgrfont}{#2}{LGR}{#4}{#5}{\mt@tmp} -%% \typeout{** Greek letters in math version `#2' will use the font -%% LGR/#4/#5/\mt@tmp} - \ifmt@twoshapesforgreek - \ifmt@upGreek\def\mt@tmp{n}\else\def\mt@tmp{it}\fi - \SetSymbolFont{mtlgrfontupper}{#2}{LGR}{#4}{#5}{\mt@tmp} -%% \typeout{** Uppercase Greek letters in math version `#2' will use the font -%% LGR/#4/#5/\mt@tmp} - \fi -\else - \ifmt@selfGreek - \mt@proceedfalse - \ifmt@upGreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@upgreek\def\mt@tmp{n}\mt@proceedtrue\else - \ifmt@itGreek\def\mt@tmp{it}\mt@proceedtrue\else - \ifmt@itgreek\def\mt@tmp{it}\mt@proceedtrue - \fi\fi\fi\fi - \ifmt@proceed - \SetSymbolFont{mtselffontupper}{#2}{#3}{#4}{#5}{\mt@tmp} + \def\m@t@greek@lsh@loc{\csname mt@ltshape@\mt@version\endcsname} + \def\m@t@greek@ush@loc{\csname mt@shape@\mt@version\endcsname} + \ifmt@itgreek\def\m@t@greek@lsh@loc{\itdefault} + \def\m@t@greek@ush@loc{\itdefault}\fi + \ifmt@upgreek\def\m@t@greek@lsh@loc{\updefault} + \def\m@t@greek@ush@loc{\updefault}\fi + \ifmt@frenchmath + \ifmt@itgreek\else + \ifmt@upgreek\else + \def\m@t@greek@lsh@loc{\csname mt@shape@\mt@version\endcsname} + \def\m@t@greek@ush@loc{\csname mt@shape@\mt@version\endcsname} + \fi\fi \fi -\fi\fi + \ifcase\mt@greek@select + \or\def\m@t@greek@ush@loc{\itdefault} + \or\def\m@t@greek@ush@loc{\updefault} + \fi + \ifmt@LGRgreeks + \SetSymbolFont{mtlgrfontlower}{#2}{LGR}{#4}{#5}{\m@t@greek@lsh@loc} + \SetSymbolFont{mtlgrfontupper}{#2}{LGR}{#4}{#5}{\m@t@greek@ush@loc} + \else + \ifmt@selfGreeks + \SetSymbolFont{mtselfGreekfont}{#2}{OT1}{#4}{#5}{\m@t@greek@ush@loc} + \fi\fi \mt@font@info@on } \let\MathastextDeclareVersion\MTDeclareVersion - \def\m@stextenc{\encodingdefault} - \def\m@stextfam{\familydefault} - \def\m@stextser{\seriesdefault} - \def\m@stextsh{\shapedefault} - \def\m@stextbold{\bfdefault} - \def\m@stextshletter{\shapedefault} - \ifmt@italic\def\m@stextshletter{\itdefault}\fi \Mathastext \def\operator@font{\mathgroup\symmtoperatorfont} \let\mt@saved@mathnormal\mathnormal @@ -466,15 +474,6 @@ defaultbf,defaultit,defaultsf,defaulttt}} \ifmt@defaultit\else\renewcommand{\mathit}{\Mathit}\fi \ifmt@defaultsf\else\renewcommand{\mathsf}{\Mathsf}\fi \ifmt@defaulttt\else\renewcommand{\mathtt}{\Mathtt}\fi -%% \ifmt@LGRgreek -%% \typeout{** Greek letters will use the font -%% LGR/\mt@family@normal/\mt@series@normal/\mt@ltshape@normal} -%% \else -\ifmt@selfGreek - \typeout{** Capital Greek letters will be taken from the fonts - declared for latin letters:^^J% -** only for OT1 or compatible encodings; glyphs may be unavailable.} -\else \ifmt@eulergreek \typeout{** Greek letters will use the Euler font. Use^^J% ** \protect\MathastextEulerScale{<factor>} to scale the font.} @@ -482,15 +481,14 @@ defaultbf,defaultit,defaultsf,defaulttt}} \ifmt@symbolgreek \typeout{** Greek letters will use the PostScript Symbol font. Use^^J% ** \protect\MathastextSymbolScale{<factor>} to scale the font.} -\fi\fi\fi -%%\fi +\fi\fi \DeclareRobustCommand\MTVersion[2][\@empty]{% \mathversion{#2}% \ifx\@empty#1% no optional argument \edef\mt@tmp{#2} \else% we check nevertheless for [] situation, will not work with [ ] - \def\mt@@tmp{#1}\def\mt@empty{}% - \ifx\mt@@tmp\mt@empty\edef\mt@tmp{#2}% + \def\m@t@@tmp{#1}\def\mt@empty{}% + \ifx\m@t@@tmp\mt@empty\edef\mt@tmp{#2}% \else\edef\mt@tmp{#1}% \fi% \fi% @@ -498,22 +496,23 @@ defaultbf,defaultit,defaultsf,defaulttt}} {\csname mt@family@\mt@tmp\endcsname}% {\csname mt@series@\mt@tmp\endcsname}% {\csname mt@shape@\mt@tmp\endcsname}% - \edef\mt@@encoding{\csname mt@encoding@\mt@tmp\endcsname}% -\renewcommand{\encodingdefault}{\mt@@encoding}% - \edef\mt@@family{\csname mt@family@\mt@tmp\endcsname}% -\renewcommand{\rmdefault}{\mt@@family}% - \edef\mt@@series{\csname mt@series@\mt@tmp\endcsname}% -\renewcommand{\mddefault}{\mt@@series}% - \edef\mt@@shape{\csname mt@shape@\mt@tmp\endcsname}% -\renewcommand{\updefault}{\mt@@shape}% - \edef\mt@@boldvariant{\csname mt@boldvariant@\mt@tmp\endcsname}% -\renewcommand{\bfdefault}{\mt@@boldvariant}% - \edef\mt@@itdefault{\csname mt@itdefault@\mt@tmp\endcsname}% -\renewcommand{\itdefault}{\mt@@itdefault}% - \edef\mt@@sfdefault{\csname mt@sfdefault@\mt@tmp\endcsname}% -\renewcommand{\sfdefault}{\mt@@sfdefault}% - \edef\mt@@ttdefault{\csname mt@ttdefault@\mt@tmp\endcsname}% -\renewcommand{\ttdefault}{\mt@@ttdefault}}% + \edef\m@t@@encoding{\csname mt@encoding@\mt@tmp\endcsname}% + \renewcommand{\encodingdefault}{\m@t@@encoding}% + \edef\m@t@@family{\csname mt@family@\mt@tmp\endcsname}% + \renewcommand{\rmdefault}{\m@t@@family}% + \edef\m@t@@series{\csname mt@series@\mt@tmp\endcsname}% + \renewcommand{\mddefault}{\m@t@@series}% + \edef\m@t@@shape{\csname mt@shape@\mt@tmp\endcsname}% + \renewcommand{\shapedefault}{\m@t@@shape}% + \edef\m@t@@boldvariant{\csname mt@boldvariant@\mt@tmp\endcsname}% + \renewcommand{\bfdefault}{\m@t@@boldvariant}% + \edef\m@t@@itdefault{\csname mt@itdefault@\mt@tmp\endcsname}% + \renewcommand{\itdefault}{\m@t@@itdefault}% + \edef\m@t@@sfdefault{\csname mt@sfdefault@\mt@tmp\endcsname}% + \renewcommand{\sfdefault}{\m@t@@sfdefault}% + \edef\m@t@@ttdefault{\csname mt@ttdefault@\mt@tmp\endcsname}% + \renewcommand{\ttdefault}{\m@t@@ttdefault}% +} \let\MathastextVersion\MTVersion \let\Mathastextversion\MTVersion \let\MTversion\MTVersion @@ -608,7 +607,7 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareMathSymbol{.}{\mathord}{\mt@font@tbu}{"2E} \DeclareMathSymbol{:}{\mathrel}{\mt@font@tbu}{"3A} % relation spacing \@ifpackageloaded{amsmath} - {} %\colon defined in amsmath.sty (enlarged punctuation spacing) + {} % \colon defined in amsmath.sty (enlarged punctuation spacing) {\let\colon\undefined % no amsmath, use punctuation spacing \DeclareMathSymbol{\colon}{\mathpunct}{\mt@font@tbu}{"3A}} \DeclareMathSymbol{;}{\mathpunct}{\mt@font@tbu}{"3B} @@ -623,46 +622,45 @@ defaultbf,defaultit,defaultsf,defaulttt}} \cleaders\hbox{$\mkern-2mu\mt@minus@sign\mkern-2mu$}\hfill \mkern-7mu\smash\mt@minus@sign$} \fi -\def\do@the@endashstuff{\edef\mt@enc{\m@stextenc} -\ifx\mt@enc\mt@eui % xetex+fontspec - \XeTeXmathcode`\-="2 "\the\symmtoperatorfont "2013 \relax +\def\do@the@endashstuff{\edef\mt@tmp@enc{\encodingdefault} +\ifx\mt@tmp@enc\mt@eui % xetex+fontspec + \XeTeXmathcode`\-="2 \symmtoperatorfont "2013 \relax \else -\ifx\mt@enc\mt@euii % luatex+fontspec - \luatexUmathcode`\-="2 "\the\symmtoperatorfont "2013 \relax +\ifx\mt@tmp@enc\mt@euii % luatex+fontspec + \luatexUmathcode`\-="2 \symmtoperatorfont "2013 \relax \else -\ifx\mt@enc\mt@ti % T1 +\ifx\mt@tmp@enc\mt@ti % T1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{21} \else -\ifx\mt@enc\mt@oti % OT1 +\ifx\mt@tmp@enc\mt@oti % OT1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{123} \else -\ifx\mt@enc\mt@lyi % LY1 +\ifx\mt@tmp@enc\mt@lyi % LY1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{150} \else % make sure we have neither xetex nor luatex \ifXeTeX\mt@failedtrue\else\ifLuaTeX\mt@failedtrue\else \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont} -{\expandafter\the\expandafter\csname\mt@enc\string\textendash\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\textendash\endcsname} \fi\fi \fi\fi\fi\fi\fi} -\def\do@the@emdashstuff{\edef\mt@enc{\m@stextenc} -\ifx\mt@enc\mt@eui % xetex+fontspec - \XeTeXmathcode`\-="2 "\the\symmtoperatorfont "2014 \relax -\else -\ifx\mt@enc\mt@euii % luatex+fontspec - \luatexUmathcode`\-="2 "\the\symmtoperatorfont "2014 \relax +\def\do@the@emdashstuff{\edef\mt@tmp@enc{\encodingdefault} +\ifx\mt@tmp@enc\mt@eui % xetex+fontspec + \XeTeXmathcode`\-="2 \symmtoperatorfont "2014 \relax \else -\ifx\mt@enc\mt@ti % T1 +\ifx\mt@tmp@enc\mt@euii % luatex+fontspec + \luatexUmathcode`\-="2 \symmtoperatorfont "2014 \relax +\ifx\mt@tmp@enc\mt@ti % T1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{22} \else -\ifx\mt@enc\mt@oti % OT1 +\ifx\mt@tmp@enc\mt@oti % OT1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{124} \else -\ifx\mt@enc\mt@lyi % LY1 +\ifx\mt@tmp@enc\mt@lyi % LY1 \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont}{151} \else % make sure we have neither xetex nor luatex \ifXeTeX\mt@failedtrue\else\ifLuaTeX\mt@failedtrue\else \DeclareMathSymbol{-}{\mathbin}{mtoperatorfont} -{\expandafter\the\expandafter\csname\mt@enc\string\textemdash\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\textemdash\endcsname} \fi\fi \fi\fi\fi\fi\fi} \ifmt@nominus\else @@ -677,14 +675,14 @@ defaultbf,defaultit,defaultsf,defaulttt}} %% (original definition from latex.ltx) \def\mathrlap{\mathpalette\mathrlapinternal} \def\mathrlapinternal#1#2{\rlap{$\mathsurround=0pt#1{#2}$}} -\def\do@the@hbarstuff{\edef\mt@enc{\m@stextenc} -\ifx\mt@enc\mt@eui % xetex and unicode font - \XeTeXmathchardef\hbar="7 "\the\symmtoperatorfont "0127 \relax +\def\do@the@hbarstuff{\edef\mt@tmp@enc{\encodingdefault} +\ifx\mt@tmp@enc\mt@eui % xetex and unicode font + \XeTeXmathchardef\hbar="7 \symmtletterfont "0127 \relax \else -\ifx\mt@enc\mt@euii % luatex and unicode font - \luatexUmathchardef\hbar="7 "\the\symmtoperatorfont "0127 \relax %% or 210F? +\ifx\mt@tmp@enc\mt@euii % luatex and unicode font + \luatexUmathchardef\hbar="7 \symmtletterfont "0127 \relax %% or 210F? \else % I must leave open the T1, OT1 possibility also for XeTeX or LuaTeX - \ifx\mt@ti\mt@enc + \ifx\mt@ti\mt@tmp@enc \DeclareMathAccent{\mt@ltbar}{\mathalpha}{mtletterfont}{9} \else %% assume OT1. Bad idea? Should not provoke an error anyhow \DeclareMathAccent{\mt@ltbar}{\mathalpha}{mtletterfont}{22} @@ -709,12 +707,6 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareMathSymbol{/}{\mathord}{\mt@font@tbu}{"2F} \fi \ifmt@alldelims -%% \ifmt@symboldelimiters\else -%% \ifx\mt@ti\mt@enc\else -%% \typeout{** mathastext: `alldelims'. Characters <,>,{,},| will be assumed -%% to^^J% -%% ** be located as in ascii. True for T1 fonts or OT1 fixed-width fonts.} -%% \fi\fi \DeclareMathDelimiter{<}{\mathopen}{\mt@font@tbu}{"3C}{largesymbols}{"0A} \DeclareMathDelimiter{>}{\mathclose}{\mt@font@tbu}{"3E}{largesymbols}{"0B} \DeclareMathSymbol{<}{\mathrel}{\mt@font@tbu}{"3C} @@ -735,14 +727,34 @@ defaultbf,defaultit,defaultsf,defaulttt}} {\mathclose}{\mt@font@tbu}{"7D}{largesymbols}{"09} \fi \ifmt@nospecials\else -\renewcommand{\#}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont23}% -\mathchar\expandafter"\ms@tmp\relax\else\char"23\relax\fi} -\renewcommand{\$}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont24}% -\mathchar\expandafter"\ms@tmp\relax\else\char"24\relax\fi} -\renewcommand{\%}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont25}% -\mathchar\expandafter"\ms@tmp\relax\else\char"25\relax\fi} -\renewcommand{\&}{\ifmmode\edef\ms@tmp{7\the\symmtoperatorfont26}% -\mathchar\expandafter"\ms@tmp\relax\else\char"26\relax\fi} +\ifXeTeX % more than 16 math families possible + \XeTeXmathchardef\mt@mmode@hash=7 \symmtoperatorfont "0023 \relax + \XeTeXmathchardef\mt@mmode@dollar=7 \symmtoperatorfont "0024 \relax + \XeTeXmathchardef\mt@mmode@percent=7 \symmtoperatorfont "0025 \relax + \XeTeXmathchardef\mt@mmode@ampersand=7 \symmtoperatorfont "0026 \relax +\else +\ifLuaTeX % I think no more than 16 math families are possible but this way I +%% can check the stuff (as I can't install xetex on my system) + \luatexUmathchardef\mt@mmode@hash=7 \symmtoperatorfont "0023 \relax + \luatexUmathchardef\mt@mmode@dollar=7 \symmtoperatorfont "0024 \relax + \luatexUmathchardef\mt@mmode@percent=7 \symmtoperatorfont "0025 \relax + \luatexUmathchardef\mt@mmode@ampersand=7 \symmtoperatorfont "0026 \relax +\else % hope that there are no more than 16 math families! +\count255=\symmtoperatorfont +\multiply\count255 by 256 +\advance\count255 by 28707 % "7023 + \mathchardef\mt@mmode@hash\count255 +\advance\count255 by 1 + \mathchardef\mt@mmode@dollar\count255 +\advance\count255 by 1 + \mathchardef\mt@mmode@percent\count255 +\advance\count255 by 1 + \mathchardef\mt@mmode@ampersand\count255 +\fi\fi +\renewcommand{\#}{\ifmmode\mt@mmode@hash\else\char35\relax\fi} +\renewcommand{\$}{\ifmmode\mt@mmode@dollar\else\char36\relax\fi} +\renewcommand{\%}{\ifmmode\mt@mmode@percent\else\char37\relax\fi} +\renewcommand{\&}{\ifmmode\mt@mmode@ampersand\else\char38\relax\fi} \fi \ifmt@symbolmisc \let\mst@prod\prod @@ -825,7 +837,7 @@ defaultbf,defaultit,defaultsf,defaulttt}} \let\mt@mathord\mathalpha \mt@proceedtrue \ifmt@selfGreek - \def\mt@font@tbu{\mt@uppergreekfont} + \def\mt@font@tbu{mtselfGreekfont} \else \ifmt@eulergreek \def\mt@font@tbu{mteulervm} @@ -962,85 +974,85 @@ defaultbf,defaultit,defaultsf,defaulttt}} \fi\fi\fi %% \ifmt@LGRgreek -\DeclareMathSymbol{\Alpha}{\mathalpha}{\mtlgrfontupper}{65} -\DeclareMathSymbol{\Beta}{\mathalpha}{\mtlgrfontupper}{66} -\DeclareMathSymbol{\Gamma}{\mathalpha}{\mtlgrfontupper}{71} -\DeclareMathSymbol{\Delta}{\mathalpha}{\mtlgrfontupper}{68} -\DeclareMathSymbol{\Epsilon}{\mathalpha}{\mtlgrfontupper}{69} -\DeclareMathSymbol{\Zeta}{\mathalpha}{\mtlgrfontupper}{90} -\DeclareMathSymbol{\Eta}{\mathalpha}{\mtlgrfontupper}{72} -\DeclareMathSymbol{\Theta}{\mathalpha}{\mtlgrfontupper}{74} -\DeclareMathSymbol{\Iota}{\mathalpha}{\mtlgrfontupper}{73} -\DeclareMathSymbol{\Kappa}{\mathalpha}{\mtlgrfontupper}{75} -\DeclareMathSymbol{\Lambda}{\mathalpha}{\mtlgrfontupper}{76} -\DeclareMathSymbol{\Mu}{\mathalpha}{\mtlgrfontupper}{77} -\DeclareMathSymbol{\Nu}{\mathalpha}{\mtlgrfontupper}{78} -\DeclareMathSymbol{\Xi}{\mathalpha}{\mtlgrfontupper}{88} -\DeclareMathSymbol{\Omicron}{\mathalpha}{\mtlgrfontupper}{79} -\DeclareMathSymbol{\Pi}{\mathalpha}{\mtlgrfontupper}{80} -\DeclareMathSymbol{\Rho}{\mathalpha}{\mtlgrfontupper}{82} -\DeclareMathSymbol{\Sigma}{\mathalpha}{\mtlgrfontupper}{83} -\DeclareMathSymbol{\Tau}{\mathalpha}{\mtlgrfontupper}{84} -\DeclareMathSymbol{\Upsilon}{\mathalpha}{\mtlgrfontupper}{85} -\DeclareMathSymbol{\Phi}{\mathalpha}{\mtlgrfontupper}{70} -\DeclareMathSymbol{\Chi}{\mathalpha}{\mtlgrfontupper}{81} -\DeclareMathSymbol{\Psi}{\mathalpha}{\mtlgrfontupper}{89} -\DeclareMathSymbol{\Omega}{\mathalpha}{\mtlgrfontupper}{87} -\DeclareMathSymbol{\alpha}{\mathalpha}{mtlgrfont}{97} -\DeclareMathSymbol{\beta}{\mathalpha}{mtlgrfont}{98} -\DeclareMathSymbol{\gamma}{\mathalpha}{mtlgrfont}{103} -\DeclareMathSymbol{\delta}{\mathalpha}{mtlgrfont}{100} -\DeclareMathSymbol{\epsilon}{\mathalpha}{mtlgrfont}{101} -\DeclareMathSymbol{\zeta}{\mathalpha}{mtlgrfont}{122} -\DeclareMathSymbol{\eta}{\mathalpha}{mtlgrfont}{104} -\DeclareMathSymbol{\theta}{\mathalpha}{mtlgrfont}{106} -\DeclareMathSymbol{\iota}{\mathalpha}{mtlgrfont}{105} -\DeclareMathSymbol{\kappa}{\mathalpha}{mtlgrfont}{107} -\DeclareMathSymbol{\lambda}{\mathalpha}{mtlgrfont}{108} -\DeclareMathSymbol{\mu}{\mathalpha}{mtlgrfont}{109} -\DeclareMathSymbol{\nu}{\mathalpha}{mtlgrfont}{110} -\DeclareMathSymbol{\xi}{\mathalpha}{mtlgrfont}{120} -\DeclareMathSymbol{\omicron}{\mathalpha}{mtlgrfont}{111} -\DeclareMathSymbol{\pi}{\mathalpha}{mtlgrfont}{112} -\DeclareMathSymbol{\rho}{\mathalpha}{mtlgrfont}{114} -\DeclareMathSymbol{\varsigma}{\mathalpha}{mtlgrfont}{99} -\DeclareMathSymbol{\sigma}{\mathalpha}{mtlgrfont}{115} -\DeclareMathSymbol{\tau}{\mathalpha}{mtlgrfont}{116} -\DeclareMathSymbol{\upsilon}{\mathalpha}{mtlgrfont}{117} -\DeclareMathSymbol{\phi}{\mathalpha}{mtlgrfont}{102} -\DeclareMathSymbol{\chi}{\mathalpha}{mtlgrfont}{113} -\DeclareMathSymbol{\psi}{\mathalpha}{mtlgrfont}{121} -\DeclareMathSymbol{\omega}{\mathalpha}{mtlgrfont}{119} -\DeclareMathSymbol{\digamma}{\mathalpha}{mtlgrfont}{147} -\DeclareMathSymbol{\Digamma}{\mathalpha}{mtlgrfont}{195} +\DeclareMathSymbol{\Alpha}{\mathalpha}{mtlgrfontupper}{65} +\DeclareMathSymbol{\Beta}{\mathalpha}{mtlgrfontupper}{66} +\DeclareMathSymbol{\Gamma}{\mathalpha}{mtlgrfontupper}{71} +\DeclareMathSymbol{\Delta}{\mathalpha}{mtlgrfontupper}{68} +\DeclareMathSymbol{\Epsilon}{\mathalpha}{mtlgrfontupper}{69} +\DeclareMathSymbol{\Zeta}{\mathalpha}{mtlgrfontupper}{90} +\DeclareMathSymbol{\Eta}{\mathalpha}{mtlgrfontupper}{72} +\DeclareMathSymbol{\Theta}{\mathalpha}{mtlgrfontupper}{74} +\DeclareMathSymbol{\Iota}{\mathalpha}{mtlgrfontupper}{73} +\DeclareMathSymbol{\Kappa}{\mathalpha}{mtlgrfontupper}{75} +\DeclareMathSymbol{\Lambda}{\mathalpha}{mtlgrfontupper}{76} +\DeclareMathSymbol{\Mu}{\mathalpha}{mtlgrfontupper}{77} +\DeclareMathSymbol{\Nu}{\mathalpha}{mtlgrfontupper}{78} +\DeclareMathSymbol{\Xi}{\mathalpha}{mtlgrfontupper}{88} +\DeclareMathSymbol{\Omicron}{\mathalpha}{mtlgrfontupper}{79} +\DeclareMathSymbol{\Pi}{\mathalpha}{mtlgrfontupper}{80} +\DeclareMathSymbol{\Rho}{\mathalpha}{mtlgrfontupper}{82} +\DeclareMathSymbol{\Sigma}{\mathalpha}{mtlgrfontupper}{83} +\DeclareMathSymbol{\Tau}{\mathalpha}{mtlgrfontupper}{84} +\DeclareMathSymbol{\Upsilon}{\mathalpha}{mtlgrfontupper}{85} +\DeclareMathSymbol{\Phi}{\mathalpha}{mtlgrfontupper}{70} +\DeclareMathSymbol{\Chi}{\mathalpha}{mtlgrfontupper}{81} +\DeclareMathSymbol{\Psi}{\mathalpha}{mtlgrfontupper}{89} +\DeclareMathSymbol{\Omega}{\mathalpha}{mtlgrfontupper}{87} +\DeclareMathSymbol{\alpha}{\mathalpha}{mtlgrfontlower}{97} +\DeclareMathSymbol{\beta}{\mathalpha}{mtlgrfontlower}{98} +\DeclareMathSymbol{\gamma}{\mathalpha}{mtlgrfontlower}{103} +\DeclareMathSymbol{\delta}{\mathalpha}{mtlgrfontlower}{100} +\DeclareMathSymbol{\epsilon}{\mathalpha}{mtlgrfontlower}{101} +\DeclareMathSymbol{\zeta}{\mathalpha}{mtlgrfontlower}{122} +\DeclareMathSymbol{\eta}{\mathalpha}{mtlgrfontlower}{104} +\DeclareMathSymbol{\theta}{\mathalpha}{mtlgrfontlower}{106} +\DeclareMathSymbol{\iota}{\mathalpha}{mtlgrfontlower}{105} +\DeclareMathSymbol{\kappa}{\mathalpha}{mtlgrfontlower}{107} +\DeclareMathSymbol{\lambda}{\mathalpha}{mtlgrfontlower}{108} +\DeclareMathSymbol{\mu}{\mathalpha}{mtlgrfontlower}{109} +\DeclareMathSymbol{\nu}{\mathalpha}{mtlgrfontlower}{110} +\DeclareMathSymbol{\xi}{\mathalpha}{mtlgrfontlower}{120} +\DeclareMathSymbol{\omicron}{\mathalpha}{mtlgrfontlower}{111} +\DeclareMathSymbol{\pi}{\mathalpha}{mtlgrfontlower}{112} +\DeclareMathSymbol{\rho}{\mathalpha}{mtlgrfontlower}{114} +\DeclareMathSymbol{\varsigma}{\mathalpha}{mtlgrfontlower}{99} +\DeclareMathSymbol{\sigma}{\mathalpha}{mtlgrfontlower}{115} +\DeclareMathSymbol{\tau}{\mathalpha}{mtlgrfontlower}{116} +\DeclareMathSymbol{\upsilon}{\mathalpha}{mtlgrfontlower}{117} +\DeclareMathSymbol{\phi}{\mathalpha}{mtlgrfontlower}{102} +\DeclareMathSymbol{\chi}{\mathalpha}{mtlgrfontlower}{113} +\DeclareMathSymbol{\psi}{\mathalpha}{mtlgrfontlower}{121} +\DeclareMathSymbol{\omega}{\mathalpha}{mtlgrfontlower}{119} +\DeclareMathSymbol{\digamma}{\mathalpha}{mtlgrfontlower}{147} +\DeclareMathSymbol{\Digamma}{\mathalpha}{mtlgrfontlower}{195} \fi -\edef\mt@enc{\m@stextenc} +\edef\mt@tmp@enc{\encodingdefault} \mt@proceedtrue -\ifx\mt@enc\mt@eui % xetex and unicode font - \XeTeXmathchardef\inodot="7 "\the\symmtletterfont "0131 \relax - \XeTeXmathchardef\jnodot="7 "\the\symmtletterfont "0237 \relax +\ifx\mt@tmp@enc\mt@eui % xetex and unicode font + \XeTeXmathchardef\inodot="7 \symmtletterfont "0131 \relax + \XeTeXmathchardef\jnodot="7 \symmtletterfont "0237 \relax \else -\ifx\mt@enc\mt@euii % luatex and unicode font - \luatexUmathchardef\inodot="7 "\the\symmtletterfont "0131 \relax - \luatexUmathchardef\jnodot="7 "\the\symmtletterfont "0237 \relax +\ifx\mt@tmp@enc\mt@euii % luatex and unicode font + \luatexUmathchardef\inodot="7 \symmtletterfont "0131 \relax + \luatexUmathchardef\jnodot="7 \symmtletterfont "0237 \relax \else -\ifx\mt@enc\mt@ti % T1 +\ifx\mt@tmp@enc\mt@ti % T1 \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont}{25} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont}{26} \else -\ifx\mt@enc\mt@oti % OT1 +\ifx\mt@tmp@enc\mt@oti % OT1 \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont}{16} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont}{17} \else -\ifx\mt@enc\mt@lyi % LY1 +\ifx\mt@tmp@enc\mt@lyi % LY1 \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont}{16} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont}{17} \else \ifXeTeX\mt@proceedfalse\else\ifLuaTeX\mt@proceedfalse\else \DeclareMathSymbol{\inodot}{\mathalpha}{mtletterfont} -{\expandafter\the\expandafter\csname\mt@enc\string\i\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\i\endcsname} \DeclareMathSymbol{\jnodot}{\mathalpha}{mtletterfont} -{\expandafter\the\expandafter\csname\mt@enc\string\j\endcsname} +{\expandafter\the\expandafter\csname\mt@tmp@enc\string\j\endcsname} \fi\fi \fi\fi\fi\fi\fi \ifmt@defaultimath\else @@ -1052,9 +1064,9 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareRobustCommand{\j}{\ifmmode\jnodot\else\mt@oldj\fi} \fi \fi -\edef\mt@enc{\m@stextenc} %% rather one too many than sorry +\edef\mt@tmp@enc{\encodingdefault} %% rather one too many than sorry \ifmt@mathaccents -\ifx\mt@ti\mt@enc +\ifx\mt@ti\mt@tmp@enc \DeclareMathAccent{\acute}{\mathalpha}{mtoperatorfont}{1} \DeclareMathAccent{\grave}{\mathalpha}{mtoperatorfont}{0} \DeclareMathAccent{\ddot}{\mathalpha}{mtoperatorfont}{4} @@ -1076,10 +1088,10 @@ defaultbf,defaultit,defaultsf,defaulttt}} \DeclareMathAccent{\hat}{\mathalpha}{mtoperatorfont}{94} \DeclareMathAccent{\dot}{\mathalpha}{mtoperatorfont}{95} \DeclareMathAccent{\mathring}{\mathalpha}{mtoperatorfont}{23} - \ifx\mt@lyi\mt@enc % LY1 encoding + \ifx\mt@lyi\mt@tmp@enc % LY1 encoding \DeclareMathAccent{\dot}{\mathalpha}{mtoperatorfont}{5} \else - \ifx\mt@oti\mt@enc\else + \ifx\mt@oti\mt@tmp@enc\else \typeout{** mathastext: math accents have been assumed to be^^J% ** as in OT1 encoding.} \fi |