summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/xetex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-11-22 21:44:39 +0000
committerKarl Berry <karl@freefriends.org>2022-11-22 21:44:39 +0000
commit383ade8f42bfc4c156b9739d28ae96d370178753 (patch)
tree44cdf51226c160ef32332542b3777c8f2cde4b40 /Master/texmf-dist/tex/xetex
parentcebc6e65cc9a429afbc4ae53d5a8b67d18d72351 (diff)
unimath-plain-xetex (22nov22)
git-svn-id: svn://tug.org/texlive/trunk@65085 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/xetex')
-rw-r--r--Master/texmf-dist/tex/xetex/unimath-plain-xetex/unimath-plain-xetex.tex36
1 files changed, 28 insertions, 8 deletions
diff --git a/Master/texmf-dist/tex/xetex/unimath-plain-xetex/unimath-plain-xetex.tex b/Master/texmf-dist/tex/xetex/unimath-plain-xetex/unimath-plain-xetex.tex
index 37118739d8a..5346a349632 100644
--- a/Master/texmf-dist/tex/xetex/unimath-plain-xetex/unimath-plain-xetex.tex
+++ b/Master/texmf-dist/tex/xetex/unimath-plain-xetex/unimath-plain-xetex.tex
@@ -14,7 +14,6 @@
\newdimen\@tempdimd
% text font
-%\gdef\mainfontname{Latin Modern Roman}
\ifdefined\mainfontname\else
\gdef\mainfontname{Latin Modern Roman}
\fi
@@ -32,7 +31,7 @@
\def\textfontopt{mapping=tex-text}
\fi
\else
- \errmessage{umath-plain-xetex Error: Needs XeTeX!}
+ \errmessage{unimath-plain-xetex Error: Needs XeTeX!}
\fi
\font\tenrm = "\mainfontname/R:\textfontopt" at 10pt
@@ -52,7 +51,7 @@
\gdef\tt@innerratio{\numexpr\dimexpr256\@tempdima/\@tempdimc\relax}
\let\tensf@test\relax \let\tentt@test\relax
-\def\@sizeat#1{\@tempdimd#1\relax%
+\def\@sizeat#1{\@tempdimd#1\relax
\sf@size=\dimexpr\sf@innerratio\@tempdimd/256\relax
\tt@size=\dimexpr\tt@innerratio\@tempdimd/256\relax
}
@@ -130,6 +129,9 @@
\def\mathbotaccent{bA}
\def\mathbotaccentwide{bAw}
+\def\sqrt{sqrt} \def\cuberoot{cuberoot}
+\def\fourthroot{fourthroot} \def\longdivision{longdivision}
+
\begingroup%
\catcode`\^^@=13
\protected\gdef\@activedef#1#2{\begingroup% #1: char code; #2: definition
@@ -141,6 +143,7 @@
\ifx#3\mathord
\Umathchardef #2 = 0 \unimathfam #1
\Umathcode #1 = 0 \unimathfam #1
+ % In the future, this module will use another \fam.
%\else\ifx#3\mathalpha
% \Umathchardef #2 = 0 \unimathfam #1
% \Umathcode #1 = 0 \unimathfam #1 % a \fi in the end
@@ -168,13 +171,13 @@
\Umathcode #1 = 4 \unimathfam #1
\Udelcode #1 = \unimathfam #1
\gdef#2{\Udelimiter 4 \unimathfam #1 }
- \ifx#2\sqrt
+ \ifx#2\sqrt%="221A%
\gdef#2{\Uradical \unimathfam #1 }
- \fi\ifx#2\cuberoot
+ \fi\ifx#2\cuberoot%="221B
\gdef#2{\Uradical \unimathfam #1 }
- \fi\ifx#2\fourthroot
+ \fi\ifx#2\fourthroot%="221C
\gdef#2{\Uradical \unimathfam #1 }
- \fi\ifx#2\longdivision
+ \fi\ifx#2\longdivision%="27CC
\gdef#2{\Uradical \unimathfam #1 }
\fi
\else\ifx#3\mathclose
@@ -406,7 +409,7 @@
\chardef\AE="00C6
\chardef\OE="0152
\chardef\O="00D8
-\chardef\i="0131 \chardef\j="237 % dotless letters
+\chardef\i="0131 \chardef\j="0237 % dotless letters
\chardef\aa="00E5
\chardef\l="0142
\chardef\L="0141
@@ -417,6 +420,23 @@
\chardef\P"00B6
\chardef\copyright="00A9
+% Primes. Patch on plain.tex, line 735--739
+\newcount\c@primes% \c@primes=0
+% If the quantity of primes were more than 4, use \nonUprim@s instead.
+\newmuskip\betweenprimeskip
+\betweenprimeskip=-2.7mu\relax
+\def\after@prim@s{\ifcase\c@primes\or\prime\or\dprime\or\trprime\or\qprime%
+ \else\nonUprim@s\fi}
+\def\nonUprim@s{\prime\loop\ifnum\c@primes>1 \advance\c@primes by -1%
+ \mskip\betweenprimeskip\prime\repeat}
+\def\prim@s{\advance\c@primes by 1\futurelet\next\pr@m@s}
+\def\pr@m@s{\ifx'\next\let\nxt\pr@@@s \else\ifx^\next\let\nxt\pr@@@t
+ \else\let\nxt\pr@@@f\fi\fi \nxt}
+\def\pr@@@t#1#2{\after@prim@s#2\egroup}
+\def\pr@@@f{\after@prim@s\egroup}
+% The following command aims to avoid to use \dprime, \trprime, etc.
+\def\unicodeprimesoff{\def\after@prim@s{\nonUprim@s}}
+
\catcode`\@=12
\tenrm
\endinput \ No newline at end of file