diff options
| author | Karl Berry <karl@freefriends.org> | 2012-12-21 17:18:31 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-12-21 17:18:31 +0000 |
| commit | 1b512e2a067c98afcd3edcbdfe2743953ddd337d (patch) | |
| tree | 581c5b6baf825a2d9789259d2a857c38cafb7224 /Master | |
| parent | 55f452fc0f663684549d2d2d603fb5ac7320f45a (diff) | |
csplain (20dec12)
git-svn-id: svn://tug.org/texlive/trunk@28597 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
46 files changed, 4910 insertions, 983 deletions
diff --git a/Master/texmf-dist/tex/csplain/base/cavantga.tex b/Master/texmf-dist/tex/csplain/base/cavantga.tex deleted file mode 100644 index d74dcf89f00..00000000000 --- a/Master/texmf-dist/tex/csplain/base/cavantga.tex +++ /dev/null @@ -1,41 +0,0 @@ -% The file cavantga.tex (C) Petr Olsak, 1996, 1999 -% Use "\input cavantga" to set the AvantGarde fonts family in text mode. -% The "\rm", "\it", "\tt" and "\bf" will work with the new fonts. -% Use "\setsimplemath" command to set AvantGarde fonts family in very -% simple math formulas (without greek letters). - -\font\tenrm=pagk8z at 10pt -\font\tenbf=pagd8z at 10pt -\font\tenit=pagko8z at 10pt -\font\tentt=pcrr8u at 10pt -\let\tensl=\tenit -\tenrm -\def\setsimplemath{% - \font\sevenrm pagk8z at7pt - \font\fiverm pagk8z at5pt - \font\sevenit pagko8z at7pt - \font\fiveit pagko8z at5pt - \font\sevenbf pagd8z at7pt - \font\fivebf pagd8z at5pt - \message{\string\setsimplemath\space WARNING: - Greek symbols may be loss, see Missing char in .log!} - \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm - \textfont1=\tenit \scriptfont1=\sevenit \scriptscriptfont1=\fiveit - \textfont\itfam=\tenit \scriptfont\itfam=\sevenit - \scriptscriptfont\itfam=\fiveit - \textfont\slfam=\tensl - \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \textfont\ttfam=\tentt } - -% The \setsimplemath command sets the new family of fonts for math -% formulas. Cf. the usage of "2" (digit in text mode is in a new font) -% but $-2$ is in Computer Modern if \setsimplemath is not used. -% WARNING: The \setsimplemath is usable for very siple math -% formulas only! It may crash some more complicated formulas because -% math symbols are still used from Computer Modern and all greek -% symbols are missing in new fonts. - - - - diff --git a/Master/texmf-dist/tex/csplain/base/cbookman.tex b/Master/texmf-dist/tex/csplain/base/cbookman.tex deleted file mode 100644 index 08b34af5df9..00000000000 --- a/Master/texmf-dist/tex/csplain/base/cbookman.tex +++ /dev/null @@ -1,39 +0,0 @@ -% The file cbookman.tex (C) Petr Olsak, 1996, 1999 -% Use "\input cbookman" to set the Bookman fonts family in text mode -% The "\rm", "\it", "\tt" and "\bf" will work with the new fonts. -% Use "\setsimplemath" command to set Bookman fonts family in very -% simple math formulas (without greek letters). - -\font\tenrm=pbkl8z at 10pt -\font\tenbf=pbkd8z at 10pt -\font\tenit=pbkli8z at 10pt -\font\tentt=pcrr8u at 10pt -\let\tensl=\tenit -\tenrm -\def\setsimplemath{% - \font\sevenrm pbkl8z at7pt - \font\fiverm pbkl8z at5pt - \font\sevenit pbkli8z at7pt - \font\fiveit pbkli8z at5pt - \font\sevenbf pbkd8z at7pt - \font\fivebf pbkd8z at5pt - \message{\string\setsimplemath\space WARNING: - Greek symbols may be loss, see Missing char in .log!} - \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm - \textfont1=\tenit \scriptfont1=\sevenit \scriptscriptfont1=\fiveit - \textfont\itfam=\tenit \scriptfont\itfam=\sevenit - \scriptscriptfont\itfam=\fiveit - \textfont\slfam=\tensl - \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \textfont\ttfam=\tentt } - -% The \setsimplemath command sets the new family of fonts for math -% formulas. Cf. the usage of "2" (digit in text mode is in a new font) -% but $-2$ is in Computer Modern if \setsimplemath is not used. -% WARNING: The \setsimplemath is usable for very siple math -% formulas only! It may crash some more complicated formulas because -% math symbols are still used from Computer Modern and all greek -% symbols are missing in new fonts. - - diff --git a/Master/texmf-dist/tex/csplain/base/chelvet.tex b/Master/texmf-dist/tex/csplain/base/chelvet.tex deleted file mode 100644 index 43aeaba70d1..00000000000 --- a/Master/texmf-dist/tex/csplain/base/chelvet.tex +++ /dev/null @@ -1,39 +0,0 @@ -% The file chelvet.tex (C) Petr Olsak, 1996, 1999 -% Use "\input chelvet" to set the Helvetica fonts family in text mode -% The "\rm", "\it", "\tt" and "\bf" will work with the new fonts. -% Use "\setsimplemath" command to set Helvetica fonts family in very -% simple math formulas (without greek letters). - -\font\tenrm=phvr8z at 10pt -\font\tenbf=phvb8z at 10pt -\font\tenit=phvro8z at 10pt -\font\tentt=pcrr8u at 10pt -\let\tensl=\tenit -\tenrm -\def\setsimplemath{% - \font\sevenrm phvr8z at7pt - \font\fiverm phvr8z at5pt - \font\sevenit phvro8z at7pt - \font\fiveit phvro8z at5pt - \font\sevenbf phvb8z at7pt - \font\fivebf phvb8z at5pt - \message{\string\setsimplemath\space WARNING: - Greek symbols may be loss, see Missing char in .log!} - \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm - \textfont1=\tenit \scriptfont1=\sevenit \scriptscriptfont1=\fiveit - \textfont\itfam=\tenit \scriptfont\itfam=\sevenit - \scriptscriptfont\itfam=\fiveit - \textfont\slfam=\tensl - \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \textfont\ttfam=\tentt } - -% The \setsimplemath command sets the new family of fonts for math -% formulas. Cf. the usage of "2" (digit in text mode is in a new font) -% but $-2$ is in Computer Modern if \setsimplemath is not used. -% WARNING: The \setsimplemath is usable for very siple math -% formulas only! It may crash some more complicated formulas because -% math symbols are still used from Computer Modern and all greek -% symbols are missing in new fonts. - - diff --git a/Master/texmf-dist/tex/csplain/base/cncent.tex b/Master/texmf-dist/tex/csplain/base/cncent.tex deleted file mode 100644 index ded5b013d2f..00000000000 --- a/Master/texmf-dist/tex/csplain/base/cncent.tex +++ /dev/null @@ -1,38 +0,0 @@ -% The file cncent.tex (C) Petr Olsak, 1996, 1999 -% Use "\input cncent" to set the NewCentury fonts family in text mode -% The "\rm", "\it", "\tt" and "\bf" will work with the new fonts. -% Use "\setsimplemath" command to set NewCentury fonts family in very -% simple math formulas (without greek letters). - -\font\tenrm=pncr8z at 10pt -\font\tenbf=pncb8z at 10pt -\font\tenit=pncri8z at 10pt -\font\tentt=pcrr8u at 10pt -\let\tensl=\tenit -\tenrm -\def\setsimplemath{% - \font\sevenrm pncr8z at7pt - \font\fiverm pncr8z at5pt - \font\sevenit pncri8z at7pt - \font\fiveit pncri8z at5pt - \font\sevenbf pncb8z at7pt - \font\fivebf pncb8z at5pt - \message{\string\setsimplemath\space WARNING: - Greek symbols may be loss, see Missing char in .log!} - \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm - \textfont1=\tenit \scriptfont1=\sevenit \scriptscriptfont1=\fiveit - \textfont\itfam=\tenit \scriptfont\itfam=\sevenit - \scriptscriptfont\itfam=\fiveit - \textfont\slfam=\tensl - \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \textfont\ttfam=\tentt } - -% The \setsimplemath command sets the new family of fonts for math -% formulas. Cf. the usage of "2" (digit in text mode is in a new font) -% but $-2$ is in Computer Modern if \setsimplemath is not used. -% WARNING: The \setsimplemath is usable for very siple math -% formulas only! It may crash some more complicated formulas because -% math symbols are still used from Computer Modern and all greek -% symbols are missing in new fonts. - diff --git a/Master/texmf-dist/tex/csplain/base/cpalatin.tex b/Master/texmf-dist/tex/csplain/base/cpalatin.tex deleted file mode 100644 index 4818b51749d..00000000000 --- a/Master/texmf-dist/tex/csplain/base/cpalatin.tex +++ /dev/null @@ -1,37 +0,0 @@ -% The file cpalatin.tex (C) Petr Olsak, 1996, 1999 -% Use "\input cpalatin" to set the Palatino fonts family in text mode -% The "\rm", "\it", "\tt" and "\bf" will work with the new fonts. -% Use "\setsimplemath" command to set Palatino fonts family in very -% simple math formulas (without greek letters). - -\font\tenrm=pplr8z at 10pt -\font\tenbf=pplb8z at 10pt -\font\tenit=pplri8z at 10pt -\font\tentt=pcrr8u at 10pt -\let\tensl=\tenit -\tenrm -\def\setsimplemath{% - \font\sevenrm pplr8z at7pt - \font\fiverm pplr8z at5pt - \font\sevenit pplri8z at7pt - \font\fiveit pplri8z at5pt - \font\sevenbf pplb8z at7pt - \font\fivebf pplb8z at5pt - \message{\string\setsimplemath\space WARNING: - Greek symbols may be loss, see Missing char in .log!} - \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm - \textfont1=\tenit \scriptfont1=\sevenit \scriptscriptfont1=\fiveit - \textfont\itfam=\tenit \scriptfont\itfam=\sevenit - \scriptscriptfont\itfam=\fiveit - \textfont\slfam=\tensl - \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \textfont\ttfam=\tentt } - -% The \setsimplemath command sets the new family of fonts for math -% formulas. Cf. the usage of "2" (digit in text mode is in a new font) -% but $-2$ is in Computer Modern if \setsimplemath is not used. -% WARNING: The \setsimplemath is usable for very siple math -% formulas only! It may crash some more complicated formulas because -% math symbols are still used from Computer Modern and all greek -% symbols are missing in new fonts. diff --git a/Master/texmf-dist/tex/csplain/base/csenc-u.tex b/Master/texmf-dist/tex/csplain/base/csenc-u.tex index da8b8d58139..0a6794d0091 100644 --- a/Master/texmf-dist/tex/csplain/base/csenc-u.tex +++ b/Master/texmf-dist/tex/csplain/base/csenc-u.tex @@ -5,10 +5,8 @@ %%% example: tex -ini -enc \let\enc=u \input csplain.ini % This is very simple setting of Czech and Slovak alphabet only. -% No special characters (such as dash, quotes etc.) used in UTF8 are -% declared here. No "UTF8 unknown code checking" is implemented here. -% The force is in the simplicity. The \mubyteout is set to 1 only. % User can reset this value and add his own declaration. +% For more information see cstexman.pdf. \ifx\mubyte\undefined \errhelp={You has specified \let\enc=u but this works only with encTeX @@ -62,10 +60,56 @@ \mubyte ^^c0 ^^c5^^94\endmubyte % \' R \mubyte ^^e0 ^^c5^^95\endmubyte % \' r +\def\setcsucode #1 #2 #3 #4 #5{} % to skip the data form utf8lat1.tex + % and utf8lata.tex + +% There exist some character-like control sequences defined in plainTeX. +% It seems to be usable to interpret their corresponding UTF-8 codes: + +\mubyte \S ^^c2^^a7\endmubyte % section sign +\mubyte \P ^^c2^^b6\endmubyte % paragraph (pilcrow) sign +\mubyte \ss ^^c3^^9f\endmubyte % german sharp s +\mubyte \l ^^c5^^82\endmubyte % l slashed +\mubyte \L ^^c5^^81\endmubyte % L slashed +\mubyte \ae ^^c3^^a6\endmubyte % ae ligature +\mubyte \oe ^^c5^^93\endmubyte % oe ligature +\mubyte \o ^^c3^^b8\endmubyte % o slash +\mubyte \AE ^^c3^^86\endmubyte % AE ligature +\mubyte \OE ^^c5^^92\endmubyte % OE ligature +\mubyte \O ^^c3^^98\endmubyte % O slash +\mubyte \i ^^c4^^b1\endmubyte % dotless i +\mubyte \j ^^c8^^b7\endmubyte % dotless j +\mubyte \aa ^^c3^^a5\endmubyte % a with ring +\mubyte \AA ^^c3^^85\endmubyte % A with ring +\mubyte \copyright ^^c2^^a9\endmubyte % copyright +\mubyte \dots ^^e2^^80^^a6\endmubyte % ellipsis +\mubyte \dag ^^e2^^80^^a0\endmubyte % single dagger +\mubyte \ddag ^^e2^^80^^a1\endmubyte % double dagger + +% The character-like control sequences defined in csplain: + +\mubyte \clqq ^^e2^^80^^9e\endmubyte % czech left double quote +\mubyte \crqq ^^e2^^80^^9c\endmubyte % czech right double quote +\mubyte \flqq ^^c2^^ab\endmubyte % french left (czech right) double guillquote +\mubyte \frqq ^^c2^^bb\endmubyte % french right (czech left) double quillquote +\mubyte \promile ^^e2^^80^^b0\endmubyte % per mille sign + +% everyjob message: + +\ifx\baseutfencoding\undefined \else \expandafter\endinput\fi + +\let\baseutfencoding\relax + \global\everyjob=\expandafter{\the\everyjob - \message{The UTF8->ISO-8859-2 re-encoding of Czech+Slovak alphabet activated by encTeX}} + \message{The utf8->iso8859-2 re-encoding of Czech+Slovak alphabet activated by encTeX}} + +% Warnings about UTF-8 unknown codes are set by default: + +\input utf8unkn + +% UTF-8 input / output is active by default: -\mubytein=1 \mubyteout=1 \mubytelog=1 +\mubytein=1 \mubyteout=3 \mubytelog=1 \xprncodes=0 \endinput diff --git a/Master/texmf-dist/tex/csplain/base/csfontsm.tex b/Master/texmf-dist/tex/csplain/base/csfontsm.tex new file mode 100644 index 00000000000..fcbc5e40108 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/base/csfontsm.tex @@ -0,0 +1,67 @@ + +% csfontsm.tex, October 2012, Petr Olsak (Ol\v s\'ak) +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% This file is a part of csplain used during format generation. +% +% Usage: \def\sizespec{at14pt}\resizefont\tenrm +% after this, the \tenrm font selector switches to csr10 at14pt +% +% The \resizefont macro takes the font selector declared by \font, uses the +% same font but re-sets this selector to (probably) new font size declared +% in the \sizespec macro. You can \def\sizespec{at<dimen>} or +% \def\sizespec{magstep<number>}. The \resizefont's setting is done +% locally, it means that you can do (for instance): +% +% {\def\sizespec{scaled\magstep3}\resizefont\tenbf \tenbf Title text} +% +% The \resizeall macro resizes the \tentt, \tenrm, \tenit, \tenbf, \tenbi +% font selectors by currently defined \sizespec. +% The \regfont adds a new `registered' font-selector to the \resizeall macro +% The font-loading macros can register their fonts by \regfont. + +\def\sizespec{} % by default: fonts are loaded in their implicit sizes + +\def\resizefont #1{\expandafter + \font\expandafter#1\expandafter\resizefontskipat\fontname#1 \relax} +\def\resizefontskipat#1 #2\relax{#1 \sizespec\relax} + +\font\tenbi=csbxti10 % it may be usable to have + % the quartet \rm \it \bf \bi preloaded +\def\bi{\tenbi} % math \fam\bifam is not preloaded now + +\def\regfont#1{\expandafter\def\expandafter\resizeall\expandafter{% + \resizeall \resizefont#1}} + +\def\resizeall{} + +\regfont\tenrm \regfont\tenit \regfont\tenbf \regfont\tenbi +\regfont\tentt + + +\endinput %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +The notice about resizing the current font. + +You can't use \expandafer \resizefont \the\font because \the\font expands to +the token with internal meaning: ``current font'' and with external +representation \fontselector where \fontselector is the control sequence +used by primitive \font as a parameter. The internal meaning has a +precedence and the token \the\font is inaccesible. You can make an accesible +control sequence by re-packing it by \csname...\endcsname. Thus the macro +\currsize{<size>} which sets the typesetting of the current font to the +desired <size> may be: + +\def\currsize#1{% + {\escapechar=-1\xdef\tmp{\csname\expandafter\string\the\font\endcsname}}% + \def\sizespec{at#1}\expandafter\resizefont\tmp \tmp} + +or: + +\def\currsize#1{% + \expandafter\let \expandafter\tmp \the\font + \def\sizespec{at#1}\resizefont\tmp \tmp} + + +% end of csfontsm.tex + diff --git a/Master/texmf-dist/tex/csplain/base/csplain.ini b/Master/texmf-dist/tex/csplain/base/csplain.ini index 2acab859a48..2472a530617 100644 --- a/Master/texmf-dist/tex/csplain/base/csplain.ini +++ b/Master/texmf-dist/tex/csplain/base/csplain.ini @@ -1,18 +1,22 @@ \input csfonts % re-defines primitive \font \input plain % format Plain \restorefont % original meaning of primitive \font +\input csfontsm % macros: \sizespec, \resizefont, \resizeall, \tenbi, \bi \input il2code % extra codes for czech / slovak letters in ISO-8859-2 encoding \input hyphen.lan % czech / slovak hyphenation pattern (may be others too) \input plaina4 % \hsize and \vsize for A4 \everyjob=\expandafter{\the\everyjob - \message{The format: csplain <Sep. 2005>.} + \message{The format: csplain <Nov. 2012>.} \message{The cs-fonts are preloaded and A4 size implicitly defined.}} -\ifx\enc\undefined \else \input csenc-\enc.tex \fi % re-encoding using encTeX \ifx\xprncode\undefined \else %% The encTeX is detected \count255=128 % All codes > 128 are printable: \loop \xprncode\count255=1 \advance\count255 by 1 \ifnum \count255<256 \repeat \fi +\ifx\enc\undefined \else \input csenc-\enc.tex \fi % re-encoding using encTeX + +\ifx\directlua\undefined \else\input luatexiniconfig.tex \fi % LuaTeX specific +\ifx\XeTeXuseglyphmetrics\undefined \else\XeTeXuseglyphmetrics=1 \fi % XeTeX specific \ifx\pdfoutput\undefined \else % added in Feb. 2005 \def\tmpa{\pdfcsplain} @@ -98,13 +102,31 @@ file extcode.tex renamed to il2code.tex (suggested by Jan Kasprzak) * I didn't do any changes in macro code. Thus the \message still says: The format: csplain <Sep. 2005>. +** 8 ** <Oct. 2012> +* File csfontsm.tex included: (\sizespec, \resizefont, \resizeall, + \tenbi, \bi). This file is read during format generation. +* Little changes of the files ctimes.tex, cavantga.tex etc. +* More changes in t1code.tex file. +* New files tx-math.tex, ttimes.tex, tavanga.tex, etc. +* UTF-8 input encoded by encTeX is recommended. +* The page http://petr.olsak.net/csplain.html introduced. + +** 9 ** <Nov. 2012> +* The \regfont macro added in csfontsm.tex. +* In plaina4.tex: \pdfpagewidth (etc.) = 210 *true* mm added +* ucode.tex introduced (for unicode setting). +* hyphen.lan totally rewritten for possibility of loading + hyphen-patterns based on http://tug.org/tex-hyphen/. +* \ifx\directlua\undefined\else \input ... \fi added +* \ifx\XeTeXuseglyphmetrics ... added + COPYRIGHT ========= -This macro package (csplain.ini, il2code.tex, csfonts.tex, hyphen.lan, -plaina4.tex) is free software; you can use it without any restriction. -You can redistribute it under the following condition: +This macro package (csplain.ini, il2code.tex, csfonts.tex, csfontm.tex, +hyphen.lan, plaina4.tex) is free software; you can use it without any +restriction. You can redistribute it under the following condition: You can do any changes in this software for your own usage. However, you cannot distribute the changed software under the same name diff --git a/Master/texmf-dist/tex/csplain/base/ctimes.tex b/Master/texmf-dist/tex/csplain/base/ctimes.tex deleted file mode 100644 index 8411f7703c8..00000000000 --- a/Master/texmf-dist/tex/csplain/base/ctimes.tex +++ /dev/null @@ -1,38 +0,0 @@ -% The file ctimes.tex (C) Petr Olsak, 1996, 1999 -% Use "\input ctimes" to set the Times fonts family in text mode -% The "\rm", "\it", "\tt" and "\bf" will work with the new fonts. -% Use "\setsimplemath" command to set Times fonts family in very -% simple math formulas (without greek letters). - -\font\tenrm=ptmr8z at 10pt -\font\tenbf=ptmb8z at 10pt -\font\tenit=ptmri8z at 10pt -\font\tentt=pcrr8u at 10pt -\let\tensl=\tenit -\tenrm -\def\setsimplemath{% - \font\sevenrm ptmr8z at7pt - \font\fiverm ptmr8z at5pt - \font\sevenit ptmri8z at7pt - \font\fiveit ptmri8z at5pt - \font\sevenbf ptmb8z at7pt - \font\fivebf ptmb8z at5pt - \message{\string\setsimplemath\space WARNING: - Greek symbols may be loss, see Missing char in .log!} - \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm - \textfont1=\tenit \scriptfont1=\sevenit \scriptscriptfont1=\fiveit - \textfont\itfam=\tenit \scriptfont\itfam=\sevenit - \scriptscriptfont\itfam=\fiveit - \textfont\slfam=\tensl - \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \textfont\ttfam=\tentt } - -% The \setsimplemath command sets the new family of fonts for math -% formulas. Cf. the usage of "2" (digit in text mode is in a new font) -% but $-2$ is in Computer Modern if \setsimplemath is not used. -% WARNING: The \setsimplemath is usable for very siple math -% formulas only! It may crash some more complicated formulas because -% math symbols are still used from Computer Modern and all greek -% symbols are missing in new fonts. - diff --git a/Master/texmf-dist/tex/csplain/base/czech.sty b/Master/texmf-dist/tex/csplain/base/czech.sty deleted file mode 100644 index 48736608f5a..00000000000 --- a/Master/texmf-dist/tex/csplain/base/czech.sty +++ /dev/null @@ -1,259 +0,0 @@ -%% -%% This is file `czech.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% cslatex.dtx (with options: `czech') -%% -%% Tento soubor je soucasti baliku CsLaTeX a je vygenerovan z -%% distribucniho souboru cslatex.dtx. -%% -%% Copyright (c) 1994--98, 2002 -%% Jaroslav Snajdr, Zdenek Wagner, Jiri Zlatuska a The LaTeX3 Project -%% -%% Tento soubor NENI soucasti systemu LaTeX2e -%% ------------------------------------------ -%% -%% Dalsi informace naleznete na www.cstug.cz/cslatex. -%% -\ifx\dateczech\undefined\else\endinput\fi -\ifx\addlanguage\undefined\else - \ifx\LdfInit\@undefined - \def\LdfInit{% - \chardef\atcatcode=\catcode`\@ - \catcode`\@=11\relax - \input babel.def\relax - \catcode`\@=\atcatcode \let\atcatcode\relax - \LdfInit} - \fi -\input czech.ldf -\endinput\fi -\newif\iflte -\ifx\documentclass\undefined\else\ltetrue\fi -\iflte - \NeedsTeXFormat{LaTeX2e} - \ProvidesPackage{czech}[2002/07/19 v2.4 CSTeX czech style] -\else - \message{Document Style Option `czech' ver. 2.4 <July 2002>.} - \edef\origcatcodeat{\the\catcode`\@}\catcode`\@=11 - \let\providecommand=\def - \let\protect=\relax -\fi -\iflte - \def\defaultcsoption{IL2} - \DeclareOption{IL2}{\def\encodingdefault{IL2}} - \DeclareOption {T1}{\def\encodingdefault {T1}} - \DeclareOption{OT1}{\def\encodingdefault{OT1}} - \DeclareOption{nosplit}{\standardhyphens} - \DeclareOption{split}{\splithyphens} - \DeclareOption{nocaptions}{\let\cap@unchgd=\relax} - \DeclareOption{olduv}{\let\cs@olduv=\relax} - \DeclareOption{cstex}{\relax} % Removed, lasts for compatibility - \ExecuteOptions{IL2} - \ProcessOptions - \def\dms#1#2{\DeclareMathSymbol{#1}{\mathalpha}{letters}{#2}} - \ifx\encodingdefault\defaultcsoption - \let\cs@warn=\@font@warning \let\@font@warning=\@gobble - \let\cs@info=\@font@info \let\@font@info=\@gobble - \SetSymbolFont{operators}{normal}{IL2}{cmr}{m}{n} - \SetSymbolFont{operators}{bold}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathbf{normal}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathit{normal}{IL2}{cmr}{m}{it} - \SetMathAlphabet\mathrm{normal}{IL2}{cmr}{m}{n} - \SetMathAlphabet\mathsf{normal}{IL2}{cmss}{m}{n} - \SetMathAlphabet\mathtt{normal}{IL2}{cmtt}{m}{n} - \SetMathAlphabet\mathbf{bold}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathit{bold}{IL2}{cmr}{bx}{it} - \SetMathAlphabet\mathrm{bold}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathsf{bold}{IL2}{cmss}{bx}{n} - \SetMathAlphabet\mathtt{bold}{IL2}{cmtt}{m}{n} - \let\@font@warning=\cs@warn \let\cs@warn=\undefined - \let\@font@info=\cs@info \let\cs@info=\undefined - \dms{^^e1}{"E1}\dms{^^c1}{"C1}\dms{^^e8}{"E8}\dms{^^c8}{"C8} - \dms{^^ef}{"EF}\dms{^^cf}{"CF}\dms{^^e9}{"E9}\dms{^^c9}{"C9} - \dms{^^ec}{"EC}\dms{^^cc}{"CC}\dms{^^ed}{"ED}\dms{^^cd}{"CD} - \dms{^^b5}{"B5}\dms{^^a5}{"A5}\dms{^^f2}{"F2}\dms{^^d2}{"D2} - \dms{^^f3}{"F3}\dms{^^d3}{"D3}\dms{^^f8}{"F8}\dms{^^d8}{"D8} - \dms{^^b9}{"B9}\dms{^^a9}{"A9}\dms{^^bb}{"BB}\dms{^^ab}{"AB} - \dms{^^fa}{"FA}\dms{^^da}{"DA}\dms{^^f9}{"F9}\dms{^^d9}{"D9} - \dms{^^fd}{"FD}\dms{^^dd}{"DD}\dms{^^be}{"BE}\dms{^^ae}{"AE} - \fi -\else - \def\gobble#1{} - \def\DeclareRobustCommand#1#2{\expandafter\def - \csname @\expandafter\gobble\string#1\endcsname{#2} - \edef#1{\noexpand\protect\expandafter\noexpand - \csname @\expandafter\gobble\string#1\endcsname}} - \ifx\ou\undefined \def\ou{\accent23u} \fi - \def\temp#1#2#3:{#1#2} - \edef\tempa{\string c\string s} - \edef\tempb{\expandafter\temp\fontname\tenrm:} - \ifx\tempa\tempb - \chardef\clqq=254 \sfcode254=0 \lccode254=0 - \chardef\crqq=255 \sfcode255=0 \lccode255=0 - \chardef\flqq=158 \sfcode158=0 \lccode158=0 - \chardef\frqq=159 \sfcode159=0 \lccode159=0 - \def\ogonek #1{\setbox0\hbox{#1}\ifdim\ht0=1ex\accent157 #1% - \else{\ooalign{\unhbox0\crcr\hss\char157}}\fi} - \chardef\promile=141 - \def\DeclareTextCommandDefault#1#2{} - \else - \let\DeclareTextCommandDefault=\DeclareRobustCommand - \fi -\fi -\def\captionsczech{% - \def\abstractname{Abstrakt}% - \def\appendixname{P\v{r}\'{\i}loha}% - \def\bibname{Literatura}% - \def\ccname{Na v\v{e}dom\'{\i}} - \def\chaptername{Kapitola}% - \def\contentsname{Obsah}% - \def\enclname{P\v{r}\'{\i}loha}% - \def\figurename{Obr\'azek}% - \def\headpagename{Strana}% - \def\headtoname{Komu}% - \def\indexname{Rejst\v{r}\'{\i}k}% - \def\listfigurename{Seznam obr\'azk\r{u}}% - \def\listtablename{Seznam tabulek}% - \def\partname{\v{C}\'ast}% - \def\prefacename{P\v{r}edmluva}% - \def\proofname{D\r{u}kaz}% - \def\seename{viz}% - \def\alsoseename{viz tak\'e}% - \def\refname{Reference}% - \def\tablename{Tabulka}} -\providecommand\captionsenglish{% - \def\prefacename{Preface}% - \def\refname{References}% - \def\abstractname{Abstract}% - \def\bibname{Bibliography}% - \def\chaptername{Chapter}% - \def\appendixname{Appendix}% - \def\contentsname{Contents}% - \def\listfigurename{List of Figures}% - \def\listtablename{List of Tables}% - \def\indexname{Index}% - \def\figurename{Figure}% - \def\tablename{Table}% - \def\partname{Part}% - \def\enclname{encl}% - \def\ccname{cc}% - \def\headtoname{To}% - \def\pagename{Page}% - \def\headpagename{Page}% - \def\prefacename{Preface}% - \def\seename{see}% - \def\alsoname{see also}} -\def\dateczech{% - \def\today{\number\day. \ifcase\month\or ledna\or \'unora\or - b\v{r}ezna\or dubna\or kv\v{e}tna\or \v{c}ervna\or \v{c}ervence\or - srpna\or z\'a\v{r}\'\i\or \v{r}\'{\i}jna\or listopadu\or - prosince\fi \space\number\year}} -\iflte\ifx\cap@unchgd\undefined\captionsczech\dateczech\fi\fi -\providecommand\dateUSenglish{\def\today{\ifcase\month\or - January\or February\or March\or April\or May\or June\or July\or - August\or September\or October\or November\or December\fi - \space\number\day, \number\year}} -\providecommand\dateenglish{\def\today{\ifcase\day\or 1st\or 2nd\or - 3rd\or 4th\or 5th\or 6th\or 7th\or 8th\or 9th\or 10th\or 11th\or - 12th\or 13th\or 14th\or 15th\or 16th\or 17th\or 18th\or 19th\or - 20th\or 21st\or 22nd\or 23rd\or 24th\or 25th\or 26th\or 27th\or - 28th\or 29th\or 30th\or 31st\fi ~\ifcase\month\or January\or - February\or March\or April\or May\or June\or July\or August\or - September\or October\or November\or December\fi \space - \number\year}} -\DeclareTextCommandDefault\clqq{\leavevmode - \set@low@box{''}% - \setbox1=\hbox{l\/}\dimen1=\wd1 - \setbox1=\hbox{l}\advance\dimen1 by -\wd1 - \ifdim\dimen1>0pt\kern-.1em\box0\kern.1em - \else\kern.1em\box0\kern-.1em\fi\nobreak\hskip0pt} -\DeclareTextCommandDefault\crqq{\edef\@SF{\spacefactor\the\spacefactor}% - \nobreak\kern-.07em\hbox{``}\kern.07em\@SF\relax} -\def\set@low@box#1{\setbox2=\hbox{,}\setbox0=\hbox{#1}% - \dimen0=\ht0 \advance\dimen0 by -\ht2 - \setbox0=\hbox{\lower\dimen0 \box0}\ht0=\ht2\dp0=\dp2} -\DeclareRobustCommand\clq{\leavevmode\set@low@box{\char'047 }% - \box0 \kern.04em\nobreak\hskip0pt\relax} -\DeclareRobustCommand\crq{{\edef\@SF{\spacefactor\the\spacefactor}% - \nobreak\char'140 \kern.17em\@SF\relax}} -\iflte - \DeclareTextCommand{\clqq}{T1}{\leavevmode\kern.1em - \char18 \kern-.0158em\nobreak\hskip0pt} - \DeclareTextCommand{\crqq}{T1} - {{\edef\@SF{\spacefactor\the\spacefactor}% - \nobreak\kern.06em \char16 \kern.024em \@SF\relax}} -\fi -\iflte\else\let\if@compatibility=\iffalse{\let\fi=\fi}\fi -\ifx\cs@olduv\undefined - \iflte - \if@compatibility - \DeclareRobustCommand\uv{\bgroup\aftergroup\closequotes - \leavevmode\clqq\let\next=} - \else - \DeclareRobustCommand\uv[1]{{\leavevmode\clqq#1\crqq}} - \fi - \else - \ifx\uv\undefined - \def\uv{\bgroup\aftergroup\closequotes - \leavevmode\clqq\let\next=} - \fi - \fi -\else - \DeclareRobustCommand\uv{\bgroup\aftergroup\closequotes - \leavevmode\clqq\let\next=} -\fi -\def\closequotes{\unskip\crqq\relax} -\def\prim@s{\prime\futurelet\next\pr@m@s} -{\catcode`\'=\active -\gdef\csprimeson{\catcode96=\active \catcode39=\active - \def\pr@m@s{\ifx'\next\let\nxt\pr@@@s \else\ifx^\next\let\nxt\pr@@@t - \else\let\nxt\egroup\fi\fi \nxt}}} -\def\csprimesoff{\catcode96=12 \catcode39=12 - \def\pr@m@s{\ifx'\next\let\nxt\pr@@@s \else\ifx^\next\let\nxt\pr@@@t - \else\let\nxt\egroup\fi\fi \nxt}} -{\csprimeson - \gdef'{\ifmmode\let\n@xt=\mathprim@\else\let\n@xt=\textprim@\fi\n@xt}% - \gdef\mathprim@{^\bgroup\prim@s}% - \gdef\textprim@{\futurelet\nxt\rightprim@}% - \gdef\rightprim@{\ifx'\nxt\let\next=\douvr@ - \else\let\next\crq\fi\next}% - \gdef`{\futurelet\nxt\leftprim@}% - \gdef\leftprim@{\ifx`\nxt\let\next=\douvl@ - \else\let\next=\clq\fi\next}} -\def\douvr@{\crqq\let\next= }% -\def\douvl@{\clqq\let\next= }% -\csprimesoff -\def\cstieon{\def~{\ifmmode\else\penalty\@M\ \fi}} -\def\cstieoff{\def~{\penalty\@M \ }} -\iflte -\AtBeginDocument{\czech} - \frenchspacing -\else - \def\setthisl@nguage#1#2#3#4{% - \ifx#2\undefined \immediate\write\sixt@@n - {Warning: I do not speak #1, (the style is not inputted)} - \else - \ifx#4\undefined \immediate\write\sixt@@n - {Warning: I do not speak #1, - (the hyphenation patterns are not included)} - \else#2#3#4\fi\fi} -\def\selectlanguage#1{\language #1\relax - \ifcase #1\relax \dateUSenglish\captionsenglish\ehyph\or - \setthisl@nguage{german} \dategerman \captionsgerman \ghyph\or - \setthisl@nguage{austrian}\dateaustrian \captionsgerman \ahyph\or - \setthisl@nguage{french} \datefrench \captionsfrench \fhyph\or - \setthisl@nguage{english} \dateenglish \captionsenglish\ehyph\or - \setthisl@nguage{czech} \dateczech \captionsczech \chyph\or - \setthisl@nguage{slovak} \dateslovak \captionsslovak \shyph\fi} -\def\originalTeX{\selectlanguage{\USenglish} - \csname cmaccents\endcsname} -\def\czechTeX{\selectlanguage{\czech}\csname csaccents\endcsname} -\def\slovakTeX{\selectlanguage{\slovak}\csname csaccents\endcsname} -\catcode`\@=\origcatcodeat -\czechTeX -\fi -\endinput -%% -%% End of file `czech.sty'. diff --git a/Master/texmf-dist/tex/csplain/base/hyphen.lan b/Master/texmf-dist/tex/csplain/base/hyphen.lan index 8565bf4546e..c8749b90a23 100644 --- a/Master/texmf-dist/tex/csplain/base/hyphen.lan +++ b/Master/texmf-dist/tex/csplain/base/hyphen.lan @@ -1,143 +1,524 @@ -% File HYPHEN.LAN does: -% (1) defines new languages -% (2) incorporates their hyphenation tables (except of US english) -% during the \csaccents is active (see il2code.tex file). -% (3) incorporates their exceptions of hyphenation rules. +% File hyphen.lan % % Created by Oldrich Ulrych, January 5, 1993 -% Some changes by Petr Olsak April 1995, February 2000 +% General changes by Petr Olsak November 2012 % -% The TeX version >= 3.0 is required. +% See the end of this file for more inforamtion + +\def\loadpatterns #1#2 #3 #4#5#6#7#8#9{\ifx#1\undefined \else \chardef#1=#2 + \begingroup \language=#2 \def\doaccents{\def\csaccentsmessage{}\csaccents} + \let\global=\relax + \message{Loading #4 encoding, \string#1=#2 (#3).} #5 + \endgroup + \expandafter \def \csname lan:#2\endcsname {#3} + \expandafter \def \csname #3lang\endcsname {% + \language=#9\relax \initlanguage{#3}\frenchspacing + \lefthyphenmin=#6\righthyphenmin=#7% + \message{#3 hyphenation used (\string\language=\the\language). + \string\frenchspacing\space is set on.}} + \ifx#8\relax \else + \expandafter\def\expandafter#8\expandafter{#8\let#9#1}\fi + \edef\pattlist{\pattlist #1=#2 } + \fi +} +\def\pattlist{} \def\initlanguage#1{} + +\def\robustpatterns{\let\oripatterns=\patterns \def\patterns##1{\scanpatterns##1{}{##1}}} +\def\scanpatterns#1{\if$#1$\expandafter\oripatterns\else + \ifnum`#1<128 \else \lccode`#1=`#1 \fi \expandafter\scanpatterns\fi} + +\def\tmp#1#2\relax{\def\tmp{#2}}\tmp ^^^^abcd\relax % 16bit TeX engine? +\ifx\allpatterns\undefined \catcode`\:=14 \else \catcode`\:=9 \fi % comment or ignored + +\def\iltwolangs{} \def\corklangs{} \def\unicodelangs{} + +%% \corklangs (etc.) cummulates the commands +%% \let\czPatt=\czCork \let\skPatt=\skCork (etc.) +%% You can run \corklangs before \language=\czPatt or \language=\skPatt +%% if you want to work in T1 encoding. + +%% You can remove the colon character if you want to use +%% the language mentioned below. Or you can say: +%% pdftex -ini "\let\deCork=\patterns \input csplain.ini" +%% or +%% pdftex -ini "\let\allpaterns=y \input csplain.ini" + +%% ASCII (these patterns work independently on choosen encoding): + +\let\USenglish=\patterns % Default plainTeX US English +:\let\enusPatt=\patterns % US English extended +:\let\engbPatt=\patterns % UK English +:\let\itPatt=\patterns % Italian +:\let\iaPatt=\patterns % Interlingua +:\let\idPatt=\patterns % Indonesian + +%% ISO-8859-2 (default patterns in csplain): + +\let\czILtwo=\patterns +\let\skILtwo=\patterns + +%% You can say +%% pdftex -ini "\let\Cork=\relax \input csplain.ini" +%% if you want to suppress the Cork (alias T1) encoded hyphenation patterns. + +\ifx\Cork\undefined + +\let\czCork=\patterns % Czech +\let\skCork=\patterns % Slovak + +\ifx\tmp\empty\else + +:\let\deCork=\patterns % German +:\let\frCork=\patterns % French +:\let\plCork=\patterns % Polish +:\let\cyCork=\patterns % Welsh +:\let\daCork=\patterns % Danish +:\let\esCork=\patterns % Spanish +:\let\slCork=\patterns % Slovenian +:\let\svCork=\patterns % Swedish +:\let\fiCork=\patterns % Finnish +:\let\huCork=\patterns % Hungarian +:\let\trCork=\patterns % Turkish +:\let\etCork=\patterns % Estonian +:\let\euCork=\patterns % Basque +:\let\gaCork=\patterns % Irish +:\let\nbCork=\patterns % Norwegian Bokmal +:\let\nnCork=\patterns % Norwegian Nynorsk +:\let\nlCork=\patterns % Dutch +:\let\huCork=\patterns % Hungarian +:\let\ptCork=\patterns % Portuguese +:\let\roCork=\patterns % Romanian +:\let\hrCork=\patterns % Croatian +:\let\zhCork=\patterns % Unaccented Pinyin Syllables +:\let\isCork=\patterns % Icelandic +:\let\hsbCork=\patterns % EC Upper Sorbian +:\let\afCork=\patterns % Afrikaans +:\let\glCork=\patterns % Galician +:\let\kmrCork=\patterns % Kurmanji +:\let\tkCork=\patterns % Turkmen +:\let\laCork=\patterns % Latin + +\fi\fi + +%% test of Unicoded TeX engine + +\ifx\tmp\empty + +\let\czUnicode=\patterns % Czech +\let\skUnicode=\patterns % Slovak +:\let\deUnicode=\patterns % German +:\let\frUnicode=\patterns % French +:\let\plUnicode=\patterns % Polish +:\let\cyUnicode=\patterns % Welsh +:\let\daUnicode=\patterns % Danish +:\let\esUnicode=\patterns % Spanish +:\let\eoUnicode=\patterns % Esperanto +:\let\slUnicode=\patterns % Slovenian +:\let\svUnicode=\patterns % Swedish +:\let\fiUnicode=\patterns % Finnish +:\let\huUnicode=\patterns % Hungarian +:\let\trUnicode=\patterns % Turkish +:\let\etUnicode=\patterns % Estonian +:\let\euUnicode=\patterns % Basque +:\let\gaUnicode=\patterns % Irish +:\let\nbUnicode=\patterns % Norwegian Bokmal +:\let\nnUnicode=\patterns % Norwegian Nynorsk +:\let\nlUnicode=\patterns % Dutch +:\let\huUnicode=\patterns % Hungarian +:\let\ptUnicode=\patterns % Portuguese +:\let\roUnicode=\patterns % Romanian +:\let\hrUnicode=\patterns % Croatian +:\let\zhUnicode=\patterns % Unaccented Pinyin Syllables +:\let\isUnicode=\patterns % Icelandic +:\let\hsbUnicode=\patterns % EC Upper Sorbian +:\let\afUnicode=\patterns % Afrikaans +:\let\glUnicode=\patterns % Galician +:\let\kmrUnicode=\patterns % Kurmanji +:\let\tkUnicode=\patterns % Turkmen +:\let\laUnicode=\patterns % Latin +:\let\elmUnicode=\patterns % Modern Monotonic Greek +:\let\elpUnicode=\patterns % Modern Polytonic Greek +:\let\grcUnicode=\patterns % Ancient Greek +:\let\caUnicode=\patterns % Catalan +:\let\copUnicode=\patterns % Coptic +:\let\mnUnicode=\patterns % Mongolian +:\let\saUnicode=\patterns % Sanskrit +:\let\ruUnicode=\patterns % Russian +:\let\ukUnicode=\patterns % Ukrainian +:\let\hyUnicode=\patterns % Armenian +:\let\asUnicode=\patterns % Assamese +:\let\hiUnicode=\patterns % Hindi +:\let\knUnicode=\patterns % Kannada +:\let\loUnicode=\patterns % Lao +:\let\lvUnicode=\patterns % Latvian +:\let\ltUnicode=\patterns % Lithuanian +:\let\mlUnicode=\patterns % Malayalam +:\let\mrUnicode=\patterns % Marathi +:\let\orUnicode=\patterns % Oriya +:\let\paUnicode=\patterns % Panjabi +:\let\taUnicode=\patterns % Tamil +:\let\teUnicode=\patterns % Telugu + +\fi + +\catcode58=12 % colon has normal meaning now +\def\patt{hyphenation patterns } + +\loadpatterns \USenglish 0 us {US English \patt in ASCII} + {\input hyphen.ex }23 \relax \USenglish + +\loadpatterns \enusPatt 100 enus {US English extended \patt in ASCII} + {\input hyph-en-us }23 \relax \enusPatt + +\loadpatterns \engbPatt 101 engb {UK English \patt in ASCII} + {\input hyph-en-gb }23 \relax \engbPatt + +\loadpatterns \itPatt 102 it {Italian \patt in ASCII} + {\lccode`\'=`\' \input hyph-it }22 \relax \itPatt + +\loadpatterns \iaPatt 103 ia {Interlingua \patt in ASCII} + {\input hyph-ia }22 \relax \iaPatt + +\loadpatterns \idPatt 104 id {Indonesian \patt in ASCII} + {\input hyph-id }23 \relax \idPatt + +\loadpatterns \czILtwo 5 cz {Czech \patt in ISO-8859-2} + {\doaccents \input czhyphen.tex \input czhyphen.ex }23 \iltwolangs \czPatt + +\loadpatterns \skILtwo 6 sk {Slovak \patt in ISO-8859-2} + {\doaccents \input skhyphen.tex \input skhyphen.ex }23 \iltwolangs \skPatt + +\loadpatterns \czCork 15 cz {Czech \patt in Cork} + {\input t1code \doaccents \input czhyphen.tex \input czhyphen.ex }23 + \corklangs \czPatt + +\loadpatterns \skCork 16 sk {Slovak \patt in Cork} + {\input t1code \doaccents \input skhyphen.tex \input skhyphen.ex }23 + \corklangs \skPatt + +\loadpatterns \deCork 21 de {German \patt in Cork} + {\input conv-utf8-ec \input hyph-de-1996 }22 \corklangs \dePatt + +\loadpatterns \frCork 22 fr {French \patt in Cork} + {\lccode`\'=`\' \input conv-utf8-ec \input hyph-fr }23 \corklangs \frPatt + +\loadpatterns \plCork 23 pl {Polish \patt in Cork} + {\input conv-utf8-ec \input hyph-pl }22 \corklangs \plPatt + +\loadpatterns \cyCork 24 cy {Welsh \patt in Cork} + {\input conv-utf8-ec \input hyph-cy }23 \corklangs \cyPatt + +\loadpatterns \daCork 25 da {Danish \patt in Cork} + {\input conv-utf8-ec \input hyph-da }22 \corklangs \daPatt -% ======== Pattern Input / English, Czech, Slovakian (French, German) ====== +\loadpatterns \esCork 26 es {Spanish \patt in Cork} + {\input conv-utf8-ec \input hyph-es }22 \corklangs \esPatt -% USenglish hyphenation patterns and hyphenation exceptions +\loadpatterns \slCork 28 sl {Slovenian \patt in Cork} + {\input conv-utf8-ec \input hyph-sl }22 \corklangs \slPatt -\newcount\USenglish \USenglish=0 +\loadpatterns \fiCork 29 fi {Finnish \patt in Cork} + {\input conv-utf8-ec \input hyph-fi }22 \corklangs \fiPatt -\begingroup \language=\USenglish -%\input hyphen.tex \relax % read by plain.tex -\input hyphen.ex \relax -\endgroup +\loadpatterns \huCork 30 hu {Hungarian \patt in Cork} + {\input conv-utf8-ec \input hyph-hu }22 \corklangs \huPatt -% german hyphenation patterns and hyphenation exceptions +\loadpatterns \trCork 31 tr {Turkish \patt in Cork} + {\input conv-utf8-ec \input hyph-tr }22 \corklangs \trPatt -\newcount\german \german=1 +\loadpatterns \etCork 32 et {Estonian \patt in Cork} + {\input conv-utf8-ec \input hyph-et }23 \corklangs \etPatt -% \begingroup \language=\german -% \input gehyphen.tex \relax -% \input gehyphen.ex \relax -% \endgroup +\loadpatterns \euCork 33 eu {Basque \patt in Cork} + {\input conv-utf8-ec \input hyph-eu }22 \corklangs \euPatt -% austrian hyphenation patterns and hyphenation exceptions +\loadpatterns \gaCork 34 ga {Irish \patt in Cork} + {\input conv-utf8-ec \input hyph-ga }23 \corklangs \gaPatt -\newcount\austrian \austrian=2 +\loadpatterns \nbCork 35 nb {Norwegian Bokmal \patt in Cork} + {\input conv-utf8-ec \input hyph-nb }22 \corklangs \nbPatt -% \begingroup \language=\german -% \input auhyphen.tex \relax -% \input auhyphen.ex \relax -% \endgroup +\loadpatterns \nnCork 36 nn {Norwegian Nynorsk \patt in Cork} + {\input conv-utf8-ec \input hyph-nn }22 \corklangs \nnPatt -\newcount\french \french=3 +\loadpatterns \nlCork 37 nl {Dutch \patt in Cork} + {\input conv-utf8-ec \input hyph-nl }22 \corklangs \nlPatt -%% french hyphenation patterns -% \begingroup \language=\french -% \input frhyphen.tex \relax -% \input frhyphen.ex \relax -% \endgroup +\loadpatterns \ptCork 38 pt {Portugesse \patt in Cork} + {\lccode`\-=`\- \input conv-utf8-ec \input hyph-pt }23 \corklangs \ptPatt -% USenglish hyphenation patterns and hyphenation exceptions +\loadpatterns \roCork 39 ro {Romanian \patt in Cork} + {\input conv-utf8-ec \input hyph-ro }22 \corklangs \roPatt -\newcount\english \english=4 +\loadpatterns \hrCork 40 hr {Croatian \patt in Cork} + {\input conv-utf8-ec \input hyph-hr }22 \corklangs \hrPatt -%\begingroup \language=\english -%\input enhyphen.tex \relax -%\input enhyphen.ex \relax -%\endgroup +\loadpatterns \zhCork 41 zh {Unaccented Pinyin Syllables \patt in Cork} + {\lccode`\'=`\' \input hyph-zh-latn-pinyin.ec }11 \corklangs \zhPatt -% Czech hyphenation patterns and hyphenation exceptions in ISO-8859-2 +\loadpatterns \isCork 42 is {Icelandic \patt in Cork} + {\input conv-utf8-ec \input hyph-is }22 \corklangs \isPatt -\chardef\iltwoczech=5 -\newcount\czech \czech=\iltwoczech +\loadpatterns \hsbCork 43 hsb {EC Upper Sorbian \patt in Cork} + {\input conv-utf8-ec \input hyph-hsb }22 \corklangs \hsbPatt -\begingroup \language=\czech -\csaccents -\message{Loading Czech patterns in ISO-8859-2 encoding, - \string\language=\the\language.} -\let\global=\relax -\input czhyphen.tex \relax -\input czhyphen.ex \relax -\endgroup +\loadpatterns \afCork 44 af {Afrikaans \patt in Cork} + {\lccode`\-=`\- \lccode`\'=`\' + \input conv-utf8-ec \input hyph-af }22 \corklangs \afPatt -% Slovak hyphenation patterns and hyphenation exceptions in ISO-8859-2 +\loadpatterns \glCork 45 gl {Galician \patt in Cork} + {\input conv-utf8-ec \input hyph-gl }22 \corklangs \glPatt -\chardef\iltwoslovak=6 -\newcount\slovak \slovak=\iltwoslovak +\loadpatterns \kmrCork 46 kmr {Kurmanji \patt in Cork} + {\input conv-utf8-ec \input hyph-kmr }22 \corklangs \kmrPatt -\begingroup \language=\slovak -\csaccents -\message{Loading Slovak patterns in ISO-8859-2 encoding, - \string\language=\the\language.} -\let\global=\relax -\input skhyphen.tex \relax -\input skhyphen.ex \relax -\endgroup +\loadpatterns \tkCork 47 tk {Turkmen \patt in Cork} + {\lccode`\-=`\- \input conv-utf8-ec \input hyph-tk }22 \corklangs \tkPatt -\ifx\Cork\undefined % You can suppress the T1 encoded hyphen patterns by: - % tex -ini \let\Cork=\relax \input csplain.ini +\loadpatterns \laCork 48 la {Latin \patt in Cork} + {\lccode`\'=`\' \input conv-utf8-ec \input hyph-la }22 \corklangs \laPatt -\chardef\toneczech=15 -\chardef\toneslovak=16 +\loadpatterns \czUnicode 115 cz {Czech \patt in Unicode} + {\input ucode \doaccents \input czhyphen.tex \input czhyphen.ex }23 + \unicodelangs \czPatt -% Czech hyphenation patterns and hyphenation exceptions in Cork +\loadpatterns \skUnicode 116 sk {Slovak \patt in Unicode} + {\input ucode \doaccents \input skhyphen.tex \input skhyphen.ex }23 + \unicodelangs \skPatt -\begingroup -\input t1code \language=\toneczech -\csaccents -\message{Loading Czech patterns in Cork encoding, - \string\language=\the\language.} -\let\global=\relax -\input czhyphen.tex \relax -\input czhyphen.ex \relax -\endgroup +\loadpatterns \deUnicode 121 de {German \patt in Unicode} + {\robustpatterns \input hyph-de-1996 }22 \unicodelangs \dePatt -% Slovak hyphenation patterns and hyphenation exceptions in Cork +\loadpatterns \frUnicode 122 fr {French \patt in Unicode} + {\robustpatterns \lccode`\'=`\' \input hyph-fr }23 \unicodelangs \frPatt -\begingroup -\input t1code \language=\toneslovak -\csaccents -\message{Loading Slovak patterns in Cork encoding, - \string\language=\the\language.} -\let\global=\relax -\input skhyphen.tex \relax -\input skhyphen.ex \relax -\endgroup +\loadpatterns \plUnicode 123 pl {Polish \patt in Unicode} + {\robustpatterns \input hyph-pl }22 \unicodelangs \plPatt -\fi %% of \ifx\Cork\undefined +\loadpatterns \cyUnicode 124 cy {Welsh \patt in Unicode} + {\robustpatterns \input hyph-cy }23 \unicodelangs \cyPatt -% ======= definitions for fast hyphenations ===== +\loadpatterns \daUnicode 125 da {Danish \patt in Unicode} + {\robustpatterns \input hyph-da }22 \unicodelangs \daPatt -\def\ehyph{\language=\USenglish \lccode`\'=0 \nonfrenchspacing - \lefthyphenmin=2 \righthyphenmin=3 - \message{English hyphenation used (\string\language=\the\language). - \string\nonfrenchspacing\space is set on.}} -%\def\ahyph{\language=\german \lccode`\'=`\' \frenchspacing -% \lefthyphenmin=2 \righthyphenmin=2 } -%\def\ghyph{\language=\german \lccode`\'=`\' \frenchspacing -% \lefthyphenmin=2 \righthyphenmin=2 } -%\def\fhyph{\language=\french \lccode`\'=`\' \frenchspacing -% \lefthyphenmin=2 \righthyphenmin=2 } - -\def\chyph{\language=\czech \lccode`\'=`\' \frenchspacing - \lefthyphenmin=2 \righthyphenmin=3 - \message{Czech hyphenation used (\string\language=\the\language). - \string\frenchspacing\space is set on.}} -\def\shyph{\language=\slovak \lccode`\'=`\' \frenchspacing - \lefthyphenmin=2 \righthyphenmin=3 - \message{Slovakian hyphenation used (\string\language=\the\language). - \string\frenchspacing\space is set on.}} +\loadpatterns \esUnicode 126 es {Spanish \patt in Unicode} + {\robustpatterns \input hyph-es }22 \unicodelangs \esPatt + +\loadpatterns \slUnicode 128 sl {Slovenian \patt in Unicode} + {\robustpatterns \input hyph-sl }22 \unicodelangs \slPatt + +\loadpatterns \fiUnicode 129 fi {Finnish \patt in Unicode} + {\robustpatterns \input hyph-fi }22 \unicodelangs \fiPatt + +\loadpatterns \huUnicode 130 hu {Hungarian \patt in Unicode} + {\robustpatterns input hyph-hu }22 \unicodelangs \huPatt + +\loadpatterns \trUnicode 131 tr {Turkish \patt in Unicode} + {\robustpatterns \input hyph-tr }22 \unicodelangs \trPatt + +\loadpatterns \etUnicode 132 et {Estonian \patt in Unicode} + {\robustpatterns \input hyph-et }23 \unicodelangs \etPatt + +\loadpatterns \euUnicode 133 eu {Basque \patt in Unicode} + {\robustpatterns \input hyph-eu }22 \unicodelangs \euPatt + +\loadpatterns \gaUnicode 134 ga {Irish \patt in Unicode} + {\robustpatterns \input hyph-ga }23 \unicodelangs \gaPatt + +\loadpatterns \nbUnicode 135 nb {Norwegian Bokmal \patt in Unicode} + {\robustpatterns \input hyph-nb }22 \unicodelangs \nbPatt + +\loadpatterns \nnUnicode 136 nn {Norwegian Nynorsk \patt in Unicode} + {\robustpatterns \input hyph-nn }22 \unicodelangs \nnPatt + +\loadpatterns \nlUnicode 137 nl {Dutch \patt in Unicode} + {\robustpatterns \input hyph-nl }22 \unicodelangs \nlPatt + +\loadpatterns \ptUnicode 138 pt {Portugesse \patt in Unicode} + {\robustpatterns \lccode`\-=`\- \input hyph-pt }23 \unicodelangs \ptPatt + +\loadpatterns \roUnicode 139 ro {Romanian \patt in Unicode} + {\robustpatterns \input hyph-ro }22 \unicodelangs \roPatt + +\loadpatterns \hrUnicode 140 hr {Croatian \patt in Unicode} + {\robustpatterns \input hyph-hr }22 \unicodelangs \hrPatt + +\loadpatterns \zhUnicode 141 zh {Unaccented Pinyin Syllables \patt in Unicode} + {\robustpatterns \lccode`\'=`\' \input hyph-zh-latn-pinyin }11 \unicodelangs \zhPatt + +\loadpatterns \isUnicode 142 is {Icelandic \patt in Unicode} + {\robustpatterns \input hyph-is }22 \unicodelangs \isPatt + +\loadpatterns \hsbUnicode 143 hsb {EC Upper Sorbian \patt in Unicode} + {\robustpatterns \input hyph-hsb }22 \unicodelangs \hsbPatt + +\loadpatterns \afUnicode 144 af {Afrikaans \patt in Unicode} + {\robustpatterns \lccode`\-=`\- \lccode`\'=`\' + \input hyph-af }22 \corklangs \afPatt + +\loadpatterns \glUnicode 145 gl {Galician \patt in Unicode} + {\robustpatterns \input hyph-gl }22 \corklangs \glPatt + +\loadpatterns \kmrUnicode 146 kmr {Kurmanji \patt in Unicode} + {\robustpatterns \input hyph-kmr }22 \corklangs \kmrPatt + +\loadpatterns \tkUnicode 147 tk {Turkmen \patt in Unicode} + {\robustpatterns \lccode`\-=`\- \input hyph-tk }22 \corklangs \tkPatt + +\loadpatterns \laUnicode 148 la {Latin \patt in Unicode} + {\robustpatterns \lccode`\'=`\' \input hyph-la }22 \unicodelangs \laPatt + +\loadpatterns \elmUnicode 201 elm {Modern Monotonic Greek \patt in Unicode} + {\lccode`\'=`\' \lccode"2019="2019 \lccode"02BC="02BC \lccode"1FBF="1FBF + \robustpatterns \input hyph-el-monoton }11 \unicodelangs \elmPatt + +\loadpatterns \elpUnicode 202 elp {Modern Polytonic Greek \patt in Unicode} + {\lccode`\'=`\' \lccode"2019="2019 \lccode"02BC="02BC \lccode"1FBF="1FBF + \robustpatterns \input hyph-el-polyton }11 \unicodelangs \elpPatt + +\loadpatterns \grcUnicode 203 grc {Ancient Greek \patt in Unicode} + {\lccode`\'=`\' \lccode"2019="2019 \lccode"02BC="02BC \lccode"1FBF="1FBF + \robustpatterns \input hyph-grc }11 \unicodelangs \grcPatt + +\loadpatterns \caUnicode 204 ca {Catalan \patt in Unicode} + {\robustpatterns \lccode`\'=`\' \input hyph-ca }22 \unicodelangs \caPatt + +\loadpatterns \copUnicode 205 cop {Coptic \patt in Unicode} + {\robustpatterns \lccode`\'=`\' \input hyph-cop }11 \unicodelangs \copPatt + +\loadpatterns \mnUnicode 206 mn {Mongolian \patt in Unicode} + {\robustpatterns \lccode`\'=`\' \input hyph-mn-cyrl }22 \unicodelangs \mnPatt + +\loadpatterns \saUnicode 207 sa {Sanskrit \patt in Unicode} + {\robustpatterns \lccode"200C="200C \lccode"200D="200D + \input hyph-sa }15 \unicodelangs \saPatt + +\loadpatterns \ruUnicode 208 ru {Russian \patt in Unicode} + {\robustpatterns \lccode`\-=`\- \input hyph-ru }22 \unicodelangs \ruPatt + +\loadpatterns \ukUnicode 209 uk {Ukrainian \patt in Unicode} + {\robustpatterns \lccode`\'=`\' \lccode`\-=`\- + \input hyph-uk }22 \unicodelangs \ukPatt +\loadpatterns \hyUnicode 210 hy {Armenian \patt in Unicode} + {\robustpatterns \input hyph-hy }12 \unicodelangs \hyPatt + +\loadpatterns \asUnicode 211 as {Assamesse \patt in Unicode} + {\robustpatterns \input hyph-as }11 \unicodelangs \asPatt + +\loadpatterns \hiUnicode 212 hi {Hindi \patt in Unicode} + {\robustpatterns \input hyph-hi }11 \unicodelangs \hiPatt + +\loadpatterns \knUnicode 213 kn {Kannada \patt in Unicode} + {\robustpatterns \input hyph-kn }11 \unicodelangs \knPatt + +\loadpatterns \loUnicode 214 lo {Lao \patt in Unicode} + {\robustpatterns \input hyph-lo }11 \unicodelangs \loPatt + +\loadpatterns \lvUnicode 215 lv {Latvian \patt in Unicode} + {\robustpatterns \input hyph-lv }22 \unicodelangs \lvPatt + +\loadpatterns \ltUnicode 216 lt {Lithuanian \patt in Unicode} + {\robustpatterns \input hyph-lt }22 \unicodelangs \ltPatt + +\loadpatterns \mlUnicode 217 ml {Malayalam \patt in Unicode} + {\robustpatterns \input hyph-ml }11 \unicodelangs \mlPatt + +\loadpatterns \mrUnicode 218 mr {Marathi \patt in Unicode} + {\robustpatterns \input hyph-mr }11 \unicodelangs \mrPatt + +\loadpatterns \orUnicode 219 or {Oriya \patt in Unicode} + {\robustpatterns \input hyph-or }11 \unicodelangs \orPatt + +\loadpatterns \paUnicode 220 pa {Panjabi \patt in Unicode} + {\robustpatterns \input hyph-pa }11 \unicodelangs \paPatt + +\loadpatterns \taUnicode 221 ta {Tamil \patt in Unicode} + {\robustpatterns \input hyph-ta }11 \unicodelangs \taPatt + +\loadpatterns \teUnicode 222 te {Telgu \patt in Unicode} + {\robustpatterns \input hyph-te }11 \unicodelangs \tePatt + + +\message{Patterns: \pattlist} \message{Defaults: \string\language=\the\language, \string\cmaccents, \string\nofrenchspacing, ISO-8859-2 font encoding} +% ========= for backward compatibility ======== + +\newcount\czech \newcount\slovak + +\let\iltwoczech=\czILtwo \let\iltwoslovak=\skILtwo +\let\toneczech=\czCork \let\toneslovak=\skCork + +\expandafter \def\expandafter\iltwolangs \expandafter {\iltwolangs + \czech\czILtwo \slovak\skILtwo} + +\ifx\czCork\undefined \else +\expandafter \def\expandafter\corklangs \expandafter {\corklangs + \czech\czCork \slovak\skCork} +\fi + +\ifx\czUnicode\undefined \else +\expandafter \def\expandafter\unicodelangs \expandafter {\unicodelangs + \czech\czUnicode \slovak\skUnicode} +\fi + +\def\uslang{\language=\USenglish \initlanguage{us}\nonfrenchspacing + \lefthyphenmin=2 \righthyphenmin=3 + \message{English hyphenation used (\string\language=\the\language). + \string\nonfrenchspacing\space is set on.}} + +\let\ehyph=\uslang \let\chyph=\czlang \let\shyph=\sklang + +\iltwolangs % csplain default is ISO-8859-2 encoding + +\endinput + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +If \<lang>Code (for example \czUnicode, \deCork) is undefined, the patterns +are not loaded. If user sets \<lang>Code=\patterns before this file is +loaded, then the patterns are loaded. + +You can remove colons in this file at lines 48-160 or you can say, for +example: + + pdftex -ini "\let\plCork=\patterns \input csplain.ini" +or + pdftex -ini "\let\allpatterns=y \input csplain.ini" + +in order to load the additional patterns. + +By default, only \USenglish=0 \czILtwo=5, \skILtwo=6, \czCork=15, \skCork=16 +are loaded in 8bit TeX. The additional \czUnicode=115, \skUnicode=116 are +loaded in 16bit TeX. + +The macro \loadpatterns \langCode <num> <lang> {note} + {action}<lhm><rhm> \codelist \switch +does following: +- If \langCode is undefined, does nothing. +- Declares \chadref\langCode=<num>. +- Loads new pattern with the number <num> by {action} in the group, +- Defines \"<lang>lang" macro (for example \czlang), which sets + \language=\switch \lefthyphenmin=<lhm> \righthypgenmin=<rhm> + and runs \initlanguage{<lang>}. The \initlanguage is dumy by default + but macro programmer can define it. +- Adds \let\switch=\langCode" to \codelist. The codelist includes + such commands dependent on the encoding. If user switches to + another encoding, the \codelist have to be run and then + the command \language=\switch works properly. +- Defines \csname lan:<num>\endcsname as <lang>. This may be usable + for macro programes. +- Adds info \langCode=<num> to \pattlist. User can expand this + macro in order to see which languages are preloaded. + +The \robustpatterns macro performs two steps of \patterns reading: +Fisrt step: \lccodes of all characters in the patterns are set to code. +Second step: the \patterns are read. + + +% ======= end of hyphen.lan + + diff --git a/Master/texmf-dist/tex/csplain/base/il2code.tex b/Master/texmf-dist/tex/csplain/base/il2code.tex index e2df224e440..9a655d1d6ee 100644 --- a/Master/texmf-dist/tex/csplain/base/il2code.tex +++ b/Master/texmf-dist/tex/csplain/base/il2code.tex @@ -11,9 +11,7 @@ \message{Font encoding set to ISO-8859-2.} %% (0) \czech, \slovak. You can use \chyph, \shyph after this file is loaded. -\ifx\iltwoczech\undefined \else - \czech=\iltwoczech \slovak=\iltwoslovak -\fi +\csname iltwolangs\endcsname %% (1) \catcode, \lccode, \uccode. \catcode225=11 \lccode225=225 \uccode225=193 % a-acute diff --git a/Master/texmf-dist/tex/csplain/base/plaina4.tex b/Master/texmf-dist/tex/csplain/base/plaina4.tex index 39262806975..de7966476da 100644 --- a/Master/texmf-dist/tex/csplain/base/plaina4.tex +++ b/Master/texmf-dist/tex/csplain/base/plaina4.tex @@ -12,6 +12,13 @@ {\catcode64=11 % \catcode`\@=11 \gdef\m@g{\mag\count@ - \hsize=159.2truemm \vsize=239.2truemm \dimen\footins8truein} + \hsize=159.2truemm \vsize=239.2truemm \dimen\footins8truein + \ifx\pdfpagewidth\undefined\else % added by P. O. Nov 2012 + \pdfpagewidth=210truemm + \pdfpageheight=297truemm + \pdfhorigin=1truein + \pdfvorigin=1truein + \fi +} } diff --git a/Master/texmf-dist/tex/csplain/base/slovak.sty b/Master/texmf-dist/tex/csplain/base/slovak.sty deleted file mode 100644 index a8fc6db3d40..00000000000 --- a/Master/texmf-dist/tex/csplain/base/slovak.sty +++ /dev/null @@ -1,258 +0,0 @@ -%% -%% This is file `slovak.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% cslatex.dtx (with options: `slovak') -%% -%% Tento soubor je soucasti baliku CsLaTeX a je vygenerovan z -%% distribucniho souboru cslatex.dtx. -%% -%% Copyright (c) 1994--98, 2002 -%% Jaroslav Snajdr, Zdenek Wagner, Jiri Zlatuska a The LaTeX3 Project -%% -%% Tento soubor NENI soucasti systemu LaTeX2e -%% ------------------------------------------ -%% -%% Dalsi informace naleznete na www.cstug.cz/cslatex. -%% -\ifx\dateslovak\undefined\else\endinput\fi -\ifx\addlanguage\undefined\else - \ifx\LdfInit\@undefined - \def\LdfInit{% - \chardef\atcatcode=\catcode`\@ - \catcode`\@=11\relax - \input babel.def\relax - \catcode`\@=\atcatcode \let\atcatcode\relax - \LdfInit} - \fi -\input slovak.ldf -\endinput\fi -\newif\iflte -\ifx\documentclass\undefined\else\ltetrue\fi -\iflte - \NeedsTeXFormat{LaTeX2e} - \ProvidesPackage{slovak}[2002/07/19 v2.4 CSTeX slovak style] -\else - \message{Document Style Option `slovak' ver. 2.4 <July 2002>.} - \edef\origcatcodeat{\the\catcode`\@}\catcode`\@=11 - \let\providecommand=\def - \let\protect=\relax -\fi -\iflte - \def\defaultcsoption{IL2} - \DeclareOption{IL2}{\def\encodingdefault{IL2}} - \DeclareOption {T1}{\def\encodingdefault {T1}} - \DeclareOption{OT1}{\def\encodingdefault{OT1}} - \DeclareOption{nosplit}{\standardhyphens} - \DeclareOption{split}{\splithyphens} - \DeclareOption{nocaptions}{\let\cap@unchgd=\relax} - \DeclareOption{olduv}{\let\cs@olduv=\relax} - \DeclareOption{cstex}{\relax} % Removed, lasts for compatibility - \ExecuteOptions{IL2} - \ProcessOptions - \def\dms#1#2{\DeclareMathSymbol{#1}{\mathalpha}{letters}{#2}} - \ifx\encodingdefault\defaultcsoption - \let\cs@warn=\@font@warning \let\@font@warning=\@gobble - \let\cs@info=\@font@info \let\@font@info=\@gobble - \SetSymbolFont{operators}{normal}{IL2}{cmr}{m}{n} - \SetSymbolFont{operators}{bold}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathbf{normal}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathit{normal}{IL2}{cmr}{m}{it} - \SetMathAlphabet\mathrm{normal}{IL2}{cmr}{m}{n} - \SetMathAlphabet\mathsf{normal}{IL2}{cmss}{m}{n} - \SetMathAlphabet\mathtt{normal}{IL2}{cmtt}{m}{n} - \SetMathAlphabet\mathbf{bold}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathit{bold}{IL2}{cmr}{bx}{it} - \SetMathAlphabet\mathrm{bold}{IL2}{cmr}{bx}{n} - \SetMathAlphabet\mathsf{bold}{IL2}{cmss}{bx}{n} - \SetMathAlphabet\mathtt{bold}{IL2}{cmtt}{m}{n} - \let\@font@warning=\cs@warn \let\cs@warn=\undefined - \let\@font@info=\cs@info \let\cs@info=\undefined - \dms{^^e1}{"E1}\dms{^^c1}{"C1}\dms{^^e8}{"E8}\dms{^^c8}{"C8} - \dms{^^ef}{"EF}\dms{^^cf}{"CF}\dms{^^e9}{"E9}\dms{^^c9}{"C9} - \dms{^^ec}{"EC}\dms{^^cc}{"CC}\dms{^^ed}{"ED}\dms{^^cd}{"CD} - \dms{^^b5}{"B5}\dms{^^a5}{"A5}\dms{^^f2}{"F2}\dms{^^d2}{"D2} - \dms{^^f3}{"F3}\dms{^^d3}{"D3}\dms{^^f8}{"F8}\dms{^^d8}{"D8} - \dms{^^b9}{"B9}\dms{^^a9}{"A9}\dms{^^bb}{"BB}\dms{^^ab}{"AB} - \dms{^^fa}{"FA}\dms{^^da}{"DA}\dms{^^f9}{"F9}\dms{^^d9}{"D9} - \dms{^^fd}{"FD}\dms{^^dd}{"DD}\dms{^^be}{"BE}\dms{^^ae}{"AE} - \fi -\else - \def\gobble#1{} - \def\DeclareRobustCommand#1#2{\expandafter\def - \csname @\expandafter\gobble\string#1\endcsname{#2} - \edef#1{\noexpand\protect\expandafter\noexpand - \csname @\expandafter\gobble\string#1\endcsname}} - \ifx\ou\undefined \def\ou{\accent23u} \fi - \def\temp#1#2#3:{#1#2} - \edef\tempa{\string c\string s} - \edef\tempb{\expandafter\temp\fontname\tenrm:} - \ifx\tempa\tempb - \chardef\clqq=254 \sfcode254=0 \lccode254=0 - \chardef\crqq=255 \sfcode255=0 \lccode255=0 - \chardef\flqq=158 \sfcode158=0 \lccode158=0 - \chardef\frqq=159 \sfcode159=0 \lccode159=0 - \def\ogonek #1{\setbox0\hbox{#1}\ifdim\ht0=1ex\accent157 #1% - \else{\ooalign{\unhbox0\crcr\hss\char157}}\fi} - \chardef\promile=141 - \def\DeclareTextCommandDefault#1#2{} - \else - \let\DeclareTextCommandDefault=\DeclareRobustCommand - \fi -\fi -\def\captionsslovak{% -\def\prefacename{Predhovor}% -\def\refname{Literat\'ura}% -\def\appendixname{Dodatok}% -\def\listfigurename{Zoznam obr\'azkov}% -\def\listtablename {Zoznam tabuliek}% -\def\indexname{Register}% -\def\tablename{Tabu\v{l}ka}% -\def\partname{\v{C}as\v{t}}% -\def\enclname{Pr\'{\i}loha}% -\def\headtoname{Pre}% -\def\alsoname{vi\v{d} tie\v{z}}% -\def\abstractname{Abstrakt}% -\let\bibname\refname -\def\chaptername{Kapitola}% -\def\contentsname{Obsah}% -\def\figurename{Obr.}% -\def\ccname{cc.}% -\def\pagename{Str.}% -\def\seename{vi\v{d}}} -\providecommand\captionsenglish{% - \def\prefacename{Preface}% - \def\refname{References}% - \def\abstractname{Abstract}% - \def\bibname{Bibliography}% - \def\chaptername{Chapter}% - \def\appendixname{Appendix}% - \def\contentsname{Contents}% - \def\listfigurename{List of Figures}% - \def\listtablename{List of Tables}% - \def\indexname{Index}% - \def\figurename{Figure}% - \def\tablename{Table}% - \def\partname{Part}% - \def\enclname{encl}% - \def\ccname{cc}% - \def\headtoname{To}% - \def\pagename{Page}% - \def\headpagename{Page}% - \def\prefacename{Preface}% - \def\seename{see}% - \def\alsoname{see also}} -\def\dateslovak{\def\today{\number\day.~\ifcase\month\or - janu\'ara\or febru\'ara\or marca\or apr\'{\i}la\or m\'aja\or j\'una\or - j\'ula\or augusta\or septembra\or okt\'obra\or - novembra\or decembra\fi - \space\number\year}} -\iflte\ifx\cap@unchgd\undefined\captionsslovak\dateslovak\fi\fi -\providecommand\dateUSenglish{\def\today{\ifcase\month\or - January\or February\or March\or April\or May\or June\or July\or - August\or September\or October\or November\or December\fi - \space\number\day, \number\year}} -\providecommand\dateenglish{\def\today{\ifcase\day\or 1st\or 2nd\or - 3rd\or 4th\or 5th\or 6th\or 7th\or 8th\or 9th\or 10th\or 11th\or - 12th\or 13th\or 14th\or 15th\or 16th\or 17th\or 18th\or 19th\or - 20th\or 21st\or 22nd\or 23rd\or 24th\or 25th\or 26th\or 27th\or - 28th\or 29th\or 30th\or 31st\fi ~\ifcase\month\or January\or - February\or March\or April\or May\or June\or July\or August\or - September\or October\or November\or December\fi \space - \number\year}} -\DeclareTextCommandDefault\clqq{\leavevmode - \set@low@box{''}% - \setbox1=\hbox{l\/}\dimen1=\wd1 - \setbox1=\hbox{l}\advance\dimen1 by -\wd1 - \ifdim\dimen1>0pt\kern-.1em\box0\kern.1em - \else\kern.1em\box0\kern-.1em\fi\nobreak\hskip0pt} -\DeclareTextCommandDefault\crqq{\edef\@SF{\spacefactor\the\spacefactor}% - \nobreak\kern-.07em\hbox{``}\kern.07em\@SF\relax} -\def\set@low@box#1{\setbox2=\hbox{,}\setbox0=\hbox{#1}% - \dimen0=\ht0 \advance\dimen0 by -\ht2 - \setbox0=\hbox{\lower\dimen0 \box0}\ht0=\ht2\dp0=\dp2} -\DeclareRobustCommand\clq{\leavevmode\set@low@box{\char'047 }% - \box0 \kern.04em\nobreak\hskip0pt\relax} -\DeclareRobustCommand\crq{{\edef\@SF{\spacefactor\the\spacefactor}% - \nobreak\char'140 \kern.17em\@SF\relax}} -\iflte - \DeclareTextCommand{\clqq}{T1}{\leavevmode\kern.1em - \char18 \kern-.0158em\nobreak\hskip0pt} - \DeclareTextCommand{\crqq}{T1} - {{\edef\@SF{\spacefactor\the\spacefactor}% - \nobreak\kern.06em \char16 \kern.024em \@SF\relax}} -\fi -\iflte\else\let\if@compatibility=\iffalse{\let\fi=\fi}\fi -\ifx\cs@olduv\undefined - \iflte - \if@compatibility - \DeclareRobustCommand\uv{\bgroup\aftergroup\closequotes - \leavevmode\clqq\let\next=} - \else - \DeclareRobustCommand\uv[1]{{\leavevmode\clqq#1\crqq}} - \fi - \else - \ifx\uv\undefined - \def\uv{\bgroup\aftergroup\closequotes - \leavevmode\clqq\let\next=} - \fi - \fi -\else - \DeclareRobustCommand\uv{\bgroup\aftergroup\closequotes - \leavevmode\clqq\let\next=} -\fi -\def\closequotes{\unskip\crqq\relax} -\def\prim@s{\prime\futurelet\next\pr@m@s} -{\catcode`\'=\active -\gdef\csprimeson{\catcode96=\active \catcode39=\active - \def\pr@m@s{\ifx'\next\let\nxt\pr@@@s \else\ifx^\next\let\nxt\pr@@@t - \else\let\nxt\egroup\fi\fi \nxt}}} -\def\csprimesoff{\catcode96=12 \catcode39=12 - \def\pr@m@s{\ifx'\next\let\nxt\pr@@@s \else\ifx^\next\let\nxt\pr@@@t - \else\let\nxt\egroup\fi\fi \nxt}} -{\csprimeson - \gdef'{\ifmmode\let\n@xt=\mathprim@\else\let\n@xt=\textprim@\fi\n@xt}% - \gdef\mathprim@{^\bgroup\prim@s}% - \gdef\textprim@{\futurelet\nxt\rightprim@}% - \gdef\rightprim@{\ifx'\nxt\let\next=\douvr@ - \else\let\next\crq\fi\next}% - \gdef`{\futurelet\nxt\leftprim@}% - \gdef\leftprim@{\ifx`\nxt\let\next=\douvl@ - \else\let\next=\clq\fi\next}} -\def\douvr@{\crqq\let\next= }% -\def\douvl@{\clqq\let\next= }% -\csprimesoff -\def\cstieon{\def~{\ifmmode\else\penalty\@M\ \fi}} -\def\cstieoff{\def~{\penalty\@M \ }} -\iflte -\AtBeginDocument{\slovak} - \frenchspacing -\else - \def\setthisl@nguage#1#2#3#4{% - \ifx#2\undefined \immediate\write\sixt@@n - {Warning: I do not speak #1, (the style is not inputted)} - \else - \ifx#4\undefined \immediate\write\sixt@@n - {Warning: I do not speak #1, - (the hyphenation patterns are not included)} - \else#2#3#4\fi\fi} -\def\selectlanguage#1{\language #1\relax - \ifcase #1\relax \dateUSenglish\captionsenglish\ehyph\or - \setthisl@nguage{german} \dategerman \captionsgerman \ghyph\or - \setthisl@nguage{austrian}\dateaustrian \captionsgerman \ahyph\or - \setthisl@nguage{french} \datefrench \captionsfrench \fhyph\or - \setthisl@nguage{english} \dateenglish \captionsenglish\ehyph\or - \setthisl@nguage{czech} \dateczech \captionsczech \chyph\or - \setthisl@nguage{slovak} \dateslovak \captionsslovak \shyph\fi} -\def\originalTeX{\selectlanguage{\USenglish} - \csname cmaccents\endcsname} -\def\czechTeX{\selectlanguage{\czech}\csname csaccents\endcsname} -\def\slovakTeX{\selectlanguage{\slovak}\csname csaccents\endcsname} -\catcode`\@=\origcatcodeat -\slovakTeX -\fi -\endinput -%% -%% End of file `slovak.sty'. diff --git a/Master/texmf-dist/tex/csplain/base/t1code.tex b/Master/texmf-dist/tex/csplain/base/t1code.tex index eb3d02ecb04..896c5a4d8fc 100644 --- a/Master/texmf-dist/tex/csplain/base/t1code.tex +++ b/Master/texmf-dist/tex/csplain/base/t1code.tex @@ -3,15 +3,20 @@ % (1) sets \catcode, \l/uccode for characters (code by Cork), % (2) defines \csaccents for new behavior of \v, \', etc (code by Cork), % (3) defines some \sequences for special cs-fonts characters. +% (4) redefines character-like macros from plainTeX as \chardef +% (5) if encTeX with \mubytein>0 is activated reads t1enc-u.tex file % % Created by Petr Olsak <olsak@math.feld.cvut.cz>, February 2000 % Inspired by Jan Kasprzak % February 2005: bug in \uccodes removed, thanks to Marek Pomp +% October 2012: new \lc/\uccode declaration, new parts (4) (5) \message{Font encoding set to Cork.} +\let\corkencoded\font % macros can do \ifx\font\corkencoded ...\else...\fi + %% (0) \czech, \slovak. You can use \chyph, \shyph after this file is loaded. -\ifx\toneczech\undefined +\ifx\czCork\undefined {\newlinechar=`^^J \errhelp={The hyphen patterns are not loaded in Cork encoding in csplain.^^J Hyphen patterns are supported only in ISO-8859-2.^^J @@ -23,69 +28,105 @@ {The Cork encoding is not supported in this format} % Press h for more help. } \else - \czech=\toneczech \slovak=\toneslovak + \csname corklangs\endcsname \fi -%% (1) \catcode, \lccode, \uccode. -\catcode225=11 \lccode225=225 \uccode225=193 % a-acute -\catcode193=11 \lccode193=225 \uccode193=193 % A-acute -\catcode228=11 \lccode228=228 \uccode228=196 % a-diaeresis -\catcode196=11 \lccode196=228 \uccode196=196 % A-diaeresis -\catcode163=11 \lccode163=163 \uccode163=131 % c-caron -\catcode131=11 \lccode131=163 \uccode131=131 % C-caron -\catcode164=11 \lccode164=164 \uccode164=132 % d-caron -\catcode132=11 \lccode132=164 \uccode132=132 % D-caron -\catcode233=11 \lccode233=233 \uccode233=201 % e-acute -\catcode201=11 \lccode201=233 \uccode201=201 % E-acute -\catcode165=11 \lccode165=165 \uccode165=133 % e-caron -\catcode133=11 \lccode133=165 \uccode133=133 % E-caron -\catcode237=11 \lccode237=237 \uccode237=205 % i-acute -\catcode205=11 \lccode205=237 \uccode205=205 % I-acute -\catcode168=11 \lccode168=168 \uccode168=136 % l-acute -\catcode136=11 \lccode136=168 \uccode136=136 % L-acute -\catcode169=11 \lccode169=169 \uccode169=137 % l-caron -\catcode137=11 \lccode137=169 \uccode137=137 % L-caron -\catcode172=11 \lccode172=172 \uccode172=140 % n-caron -\catcode140=11 \lccode140=172 \uccode140=140 % N-caron -\catcode243=11 \lccode243=243 \uccode243=211 % o-acute -\catcode211=11 \lccode211=243 \uccode211=211 % O-acute -\catcode244=11 \lccode244=244 \uccode244=212 % o-circumflex -\catcode212=11 \lccode212=244 \uccode212=212 % O-circumflex -\catcode246=11 \lccode246=246 \uccode246=214 % o-diaeresis -\catcode214=11 \lccode214=246 \uccode214=214 % O-diaeresis -\catcode175=11 \lccode175=175 \uccode175=143 % r-acute -\catcode143=11 \lccode143=175 \uccode143=143 % R-acute -\catcode176=11 \lccode176=176 \uccode176=144 % r-caron -\catcode144=11 \lccode144=176 \uccode144=144 % R-caron -\catcode178=11 \lccode178=178 \uccode178=146 % s-caron -\catcode146=11 \lccode146=178 \uccode146=146 % S-caron -\catcode180=11 \lccode180=180 \uccode180=148 % t-caron -\catcode148=11 \lccode148=180 \uccode148=148 % T-caron -\catcode250=11 \lccode250=250 \uccode250=218 % u-acute -\catcode218=11 \lccode218=250 \uccode218=218 % U-acute -\catcode183=11 \lccode183=183 \uccode183=151 % u-ring -\catcode151=11 \lccode151=183 \uccode151=151 % U-ring -\catcode252=11 \lccode252=252 \uccode252=220 % u-diaeresis -\catcode220=11 \lccode220=252 \uccode220=220 % U-diaeresis -\catcode253=11 \lccode253=253 \uccode253=221 % y-acute -\catcode221=11 \lccode221=253 \uccode221=221 % Y-acute -\catcode186=11 \lccode186=186 \uccode186=154 % z-caron -\catcode154=11 \lccode154=186 \uccode154=154 % Z-caron - +%% (1a) \catcodes: +\catcode225=11 % a-acute +\catcode193=11 % A-acute +\catcode228=11 % a-diaeresis +\catcode196=11 % A-diaeresis +\catcode163=11 % c-caron +\catcode131=11 % C-caron +\catcode164=11 % d-caron +\catcode132=11 % D-caron +\catcode233=11 % e-acute +\catcode201=11 % E-acute +\catcode165=11 % e-caron +\catcode133=11 % E-caron +\catcode237=11 % i-acute +\catcode205=11 % I-acute +\catcode168=11 % l-acute +\catcode136=11 % L-acute +\catcode169=11 % l-caron +\catcode137=11 % L-caron +\catcode172=11 % n-caron +\catcode140=11 % N-caron +\catcode243=11 % o-acute +\catcode211=11 % O-acute +\catcode244=11 % o-circumflex +\catcode212=11 % O-circumflex +\catcode246=11 % o-diaeresis +\catcode214=11 % O-diaeresis +\catcode175=11 % r-acute +\catcode143=11 % R-acute +\catcode176=11 % r-caron +\catcode144=11 % R-caron +\catcode178=11 % s-caron +\catcode146=11 % S-caron +\catcode180=11 % t-caron +\catcode148=11 % T-caron +\catcode250=11 % u-acute +\catcode218=11 % U-acute +\catcode183=11 % u-ring +\catcode151=11 % U-ring +\catcode252=11 % u-diaeresis +\catcode220=11 % U-diaeresis +\catcode253=11 % y-acute +\catcode221=11 % Y-acute +\catcode186=11 % z-caron +\catcode154=11 % Z-caron + +%% (1b) \lccodes, \uccodes: +\def\tmp #1 {\loop + \lccode\count100=\count200 \uccode\count100=\count100 + \lccode\count200=\count200 \uccode\count200=\count100 + \ifnum\count100<#1 \advance\count100 by1 \advance\count200 by1 + \repeat} +\count100=128 \count200=160 \tmp 156 +\count100=192 \count200=224 \tmp 223 +\lccode 157=105 \uccode 157=157 % dotted I +\lccode 25=25 \uccode 25=73 % dotless i +\lccode 26=26 \uccode 26=74 % dotless j +\lccode 158=158 \uccode 158=158 +\lccode 159=159 \uccode 159=159 +\lccode 189=189 \uccode 189=189 +\lccode 190=190 \uccode 189=190 +\lccode 191=191 \uccode 189=191 + %% (2) \csaccents, \cmaccents -\def\accentscommands{\string\^, \string\`, \string\', \string\v, - \string\" and \string\r} +\def\accentscommands{\string\^,\string\`,\string\',\string\v,\string\",% + \string\r,\string\c,\string\~,\string\H,\string\u,% + \string\. and \string\k} \def\csaccentsmessage{% - \message{The \accentscommands\space expands to characters by Cork.}} -\def\cmaccentsmessage{% - \message{The \accentscommands\space have original plainTeX meaning.}} + \message{The \accentscommands\space expands to characters by Cork.}} +\ifx\cmaccentsmessage\undefined + \def\cmaccentsmessage{% + \message{The \accentscommands\space are defined similar as plainTeX.}} +\fi \def\csaccents{\csaccentsmessage \def\^##1{\ifx o##1^^f4\else \ifx O##1^^d4\else - {\accent94 ##1}\fi\fi}\let\^^D=\^% - \def\`##1{\ifx a##1^^b8\else - \ifx A##1^^98\else - {\accent18 ##1}\fi\fi}% + \ifx a##1^^e2\else + \ifx A##1^^c2\else + \ifx e##1^^ea\else + \ifx E##1^^ca\else + \ifx i##1^^ee\else + \ifx I##1^^ce\else + \ifx u##1^^fb\else + \ifx U##1^^db\else + {\accent94 ##1}\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}\let\^^D=\^% + \def\`##1{\ifx a##1^^e0\else + \ifx A##1^^c0\else + \ifx e##1^^e8\else + \ifx E##1^^c8\else + \ifx i##1^^ec\else + \ifx I##1^^cc\else + \ifx o##1^^f2\else + \ifx O##1^^d2\else + \ifx u##1^^f9\else + \ifx U##1^^d9\else + {\accent18 ##1}\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% \def\'##1{\ifx a##1^^e1\else \ifx e##1^^e9\else \ifx\i##1^^ed\else @@ -103,8 +144,17 @@ \ifx Y##1^^dd\else \ifx R##1^^8f\else \ifx L##1^^88\else - {\accent19 ##1}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% + \ifx C##1^^82\else + \ifx N##1^^8b\else + \ifx S##1^^91\else + \ifx Z##1^^99\else + \ifx c##1^^a2\else + \ifx n##1^^ab\else + \ifx s##1^^b1\else + \ifx z##1^^b9\else + {\accent19 ##1}% + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% \def\v##1{\ifx e##1^^a5\else \ifx s##1^^b2\else \ifx c##1^^a3\else @@ -124,17 +174,62 @@ \ifx L##1^^89\else \ifx N##1^^8c\else {\accent20 ##1}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}\let\^^_=\v% + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi\fi}\let\^^_=\v% \def\"##1{\ifx a##1^^e4\else \ifx o##1^^f6\else \ifx u##1^^fc\else \ifx A##1^^c4\else \ifx O##1^^d6\else \ifx U##1^^dc\else - {\accent"7F ##1}\fi\fi\fi\fi\fi\fi}% + \ifx Y##1^^98\else + \ifx E##1^^cb\else + \ifx I##1^^cf\else + \ifx y##1^^b8\else + \ifx e##1^^eb\else + \ifx i##1^^ef\else + {\accent"7F ##1}\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% \def\r##1{\ifx u##1^^b7\else \ifx U##1^^97\else - {\accent23 ##1}\fi\fi}% + \ifx A##1^^c5\else + \ifx a##1^^e5\else + {\accent23 ##1}\fi\fi\fi\fi}% + \def\c##1{\ifx C##1^^c7\else + \ifx c##1^^e7\else + \ifx S##1^^93\else + \ifx s##1^^b3\else + \ifx T##1^^95\else + \ifx t##1^^b5\else + {\char11 ##1}\fi\fi\fi\fi\fi\fi}% + \def\~##1{\ifx A##1^^c3\else + \ifx N##1^^d1\else + \ifx O##1^^d5\else + \ifx a##1^^e3\else + \ifx n##1^^f1\else + \ifx o##1^^f5\else + {\accent3 ##1}\fi\fi\fi\fi\fi\fi}% + \def\H##1{\ifx O##1^^8e\else + \ifx U##1^^96\else + \ifx o##1^^ae\else + \ifx u##1^^b6\else + {\accent5 ##1}\fi\fi\fi\fi}% + \def\u##1{\ifx A##1^^80\else + \ifx G##1^^87\else + \ifx a##1^^a0\else + \ifx g##1^^a7\else + {\accent8 ##1}\fi\fi\fi\fi}% + \def\=##1{\ifx d##1^^9e\else + {\accent9 ##1}\fi}% + \def\.##1{\ifx i##1^^69\else + \ifx z##1^^bb\else + \ifx I##1^^9d\else + \ifx Z##1^^9b\else + {\accent10 ##1}\fi\fi\fi\fi}% + \def\k##1{\ifx A##1^^81\else + \ifx E##1^^86\else + \ifx a##1^^a1\else + \ifx e##1^^a6\else + {\char12 ##1}\fi\fi\fi\fi}% %% for backward compatibility: \def\softd{\v{d}}\def\softt{\v{t}}\def\ou{\r{u}}% \def\softl{\v{l}}\def\softL{\v{L}}} @@ -146,13 +241,15 @@ \def\"##1{{\accent"7F ##1}}% \let\r=\undefined\def\ou{{\accent6u}}} +\ifx\r\undefined \else \csaccents \fi %% re-set \csaccents + %% (3) special \sequences for T1 encoded fonts. %% Czech left a right double qoutes \chardef\clqq=18 \sfcode18=0 \chardef\crqq=16 \sfcode16=0 %% French double quotes -\chardef\flqq=14 \sfcode14=0 -\chardef\frqq=13 \sfcode13=0 +\chardef\flqq=19 \sfcode19=0 +\chardef\frqq=20 \sfcode20=0 %% Other characters \def\ogonek #1{\setbox0\hbox{#1}\ifdim\ht0=1ex\accent12 #1% \else{\ooalign{\unhbox0\crcr\hss\char12}}\fi} @@ -165,7 +262,48 @@ \afterassignment\clqq\let\next=} \def\closequotes{\unskip\crqq\relax} -\chardef\i=25 +%% (4) re-definition character-like macros from plainTeX: + +\chardef \S 159 +\chardef \P 182 +\chardef \ss 255 +\chardef \L 138 +\chardef \l 170 +\chardef \ae 230 +\chardef \oe 247 +\chardef \o 248 +\chardef \AE 198 +\chardef \OE 215 +\chardef \O 216 +\chardef \i 25 +\chardef \j 26 +\chardef \aa 229 +\chardef \AA 197 + +% new characters in T1 encoding: + +\chardef \Eth 208 +\chardef \NG 141 +\chardef \Thorn 222 +\chardef \eth 240 +\chardef \ng 173 +\chardef \thorn 254 +\chardef \flq 14 +\chardef \frq 15 +\chardef \clq 13 +\chardef \crq 60 +\chardef \elqq 16 +\chardef \erqq 17 +\chardef \sterling 191 +\let\pound=\sterling + +%% (5) reading UTF-8 input encoding from t1enc-u.tex file + +\ifx\mubytein\undefined \expandafter \endinput \fi +\ifnum\mubytein=0 \expandafter \endinput \fi + +\input t1enc-u + \endinput diff --git a/Master/texmf-dist/tex/csplain/base/t1enc-u.tex b/Master/texmf-dist/tex/csplain/base/t1enc-u.tex new file mode 100644 index 00000000000..a827ab3b83f --- /dev/null +++ b/Master/texmf-dist/tex/csplain/base/t1enc-u.tex @@ -0,0 +1,130 @@ +%%% The re-encoding table for Czech/Slovak alphabet using encTeX, +%%% v.Sep.2005 (C) Petr Ol\v s\'ak +%%% input: UTF8, internal TeX: T1Encoding +%%% Oct.2012 added plainTeX csnames mapping and \setucode definition. + +% This is very simple setting of Czech and Slovak alphabet only. +% User can reset this value and add his own declaration. +% For more information see cstexman.pdf. + +\ifx\mubyte\undefined + \errhelp={You has specified \let\enc=u but this works only with encTeX + extension of TeX binary. See ftp://math.feld.cvut.cz/pub/olsak/enctex.} + \errmessage{The encTeX Feb2003 or later is not detected -- re-encoding is impossible} + \endinput \fi + +%% TeX input +\mubyte ^^c1 ^^c3^^81\endmubyte % \'A +\mubyte ^^e1 ^^c3^^a1\endmubyte % \'a +\mubyte ^^c9 ^^c3^^89\endmubyte % \'E +\mubyte ^^e9 ^^c3^^a9\endmubyte % \'e +\mubyte ^^cd ^^c3^^8d\endmubyte % \'I +\mubyte ^^ed ^^c3^^ad\endmubyte % \'i +\mubyte ^^d3 ^^c3^^93\endmubyte % \'O +\mubyte ^^f3 ^^c3^^b3\endmubyte % \'o +\mubyte ^^da ^^c3^^9a\endmubyte % \'U +\mubyte ^^fa ^^c3^^ba\endmubyte % \'u +\mubyte ^^dd ^^c3^^9d\endmubyte % \'Y +\mubyte ^^fd ^^c3^^bd\endmubyte % \'y +\mubyte ^^d4 ^^c3^^94\endmubyte % \^O +\mubyte ^^f4 ^^c3^^b4\endmubyte % \^o +\mubyte ^^c4 ^^c3^^84\endmubyte % \"A +\mubyte ^^e4 ^^c3^^a4\endmubyte % \"a +\mubyte ^^d6 ^^c3^^96\endmubyte % \"O +\mubyte ^^f6 ^^c3^^b6\endmubyte % \"o +\mubyte ^^dc ^^c3^^9c\endmubyte % \"U +\mubyte ^^fc ^^c3^^bc\endmubyte % \"u +\mubyte ^^83 ^^c4^^8c\endmubyte % \v C +\mubyte ^^a3 ^^c4^^8d\endmubyte % \v c +\mubyte ^^84 ^^c4^^8e\endmubyte % \v D +\mubyte ^^a4 ^^c4^^8f\endmubyte % \v d +\mubyte ^^85 ^^c4^^9a\endmubyte % \v E +\mubyte ^^a5 ^^c4^^9b\endmubyte % \v e +\mubyte ^^88 ^^c4^^b9\endmubyte % \' L +\mubyte ^^a8 ^^c4^^ba\endmubyte % \' l +\mubyte ^^89 ^^c4^^bd\endmubyte % \v L +\mubyte ^^a9 ^^c4^^be\endmubyte % \v l +\mubyte ^^8c ^^c5^^87\endmubyte % \v N +\mubyte ^^ac ^^c5^^88\endmubyte % \v n +\mubyte ^^90 ^^c5^^98\endmubyte % \v R +\mubyte ^^b0 ^^c5^^99\endmubyte % \v r +\mubyte ^^92 ^^c5^^a0\endmubyte % \v S +\mubyte ^^b2 ^^c5^^a1\endmubyte % \v s +\mubyte ^^94 ^^c5^^a4\endmubyte % \v T +\mubyte ^^b4 ^^c5^^a5\endmubyte % \v t +\mubyte ^^97 ^^c5^^ae\endmubyte % \r U +\mubyte ^^b7 ^^c5^^af\endmubyte % \r u +\mubyte ^^9a ^^c5^^bd\endmubyte % \v Z +\mubyte ^^ba ^^c5^^be\endmubyte % \v z +\mubyte ^^8f ^^c5^^94\endmubyte % \' R +\mubyte ^^af ^^c5^^95\endmubyte % \' r + +\def\setcsucode #1 #2 #3 #4 #5{} % to skip the data from utf8lat1.tex + % and utf8lata.tex + +% \setucode re-definition on order to map all T1 slots rawly during \input +% utf8lat1.tex or utf8lata.tex. This is usable if the text occurres in +% \upercase and \lowercase arguments. + +\def\setucode #1 #2 #3 #4 #5{% + \ifx*#4% The character is not provided by T1 encoding, we need to use csname: + \expandafter \mubyte \csname#1\endcsname #3\endmubyte + \expandafter \ifx \csname#1\endcsname \relax + \expandafter \def\csname#1\endcsname{#5}% + \fi + \else % raw UTF-8 to T1 mapping is possible: + \mubyte #4 #3\endmubyte + \fi +} + +% There exist some character-like control sequences defined in plainTeX. +% It seems to be usable to interpret their corresponding UTF-8 codes: + +\mubyte \S ^^c2^^a7\endmubyte % section sign +\mubyte \P ^^c2^^b6\endmubyte % paragraph (pilcrow) sign +\mubyte \ss ^^c3^^9f\endmubyte % german sharp s +\mubyte \l ^^c5^^82\endmubyte % l slashed +\mubyte \L ^^c5^^81\endmubyte % L slashed +\mubyte \ae ^^c3^^a6\endmubyte % ae ligature +\mubyte \oe ^^c5^^93\endmubyte % oe ligature +\mubyte \o ^^c3^^b8\endmubyte % o slash +\mubyte \AE ^^c3^^86\endmubyte % AE ligature +\mubyte \OE ^^c5^^92\endmubyte % OE ligature +\mubyte \O ^^c3^^98\endmubyte % O slash +\mubyte \i ^^c4^^b1\endmubyte % dotless i +\mubyte \j ^^c8^^b7\endmubyte % dotless j +\mubyte \aa ^^c3^^a5\endmubyte % a with ring +\mubyte \AA ^^c3^^85\endmubyte % A with ring +\mubyte \copyright ^^c2^^a9\endmubyte % copyright +\mubyte \dots ^^e2^^80^^a6\endmubyte % ellipsis +\mubyte \dag ^^e2^^80^^a0\endmubyte % single dagger +\mubyte \ddag ^^e2^^80^^a1\endmubyte % double dagger + +% The character-like control sequences defined in csplain: + +\mubyte \clqq ^^e2^^80^^9e\endmubyte % czech left double quote +\mubyte \crqq ^^e2^^80^^9c\endmubyte % czech right double quote +\mubyte \flqq ^^c2^^ab\endmubyte % french left (czech right) double guillquote +\mubyte \frqq ^^c2^^bb\endmubyte % french right (czech left) double quillquote +\mubyte \promile ^^e2^^80^^b0\endmubyte % per mille sign + +\ifx\baseutfencoding\undefined \else \expandafter\endinput\fi + +% if the csplain is used, we cannot process this part of the file. May be +% somebody used it from iniTeX... + +\let\baseutfencoding\relax + +\global\everyjob=\expandafter{\the\everyjob + \message{The utf8->T1 re-encoding of Czech+Slovak alphabet activated by encTeX}} + +% Warnings about UTF-8 unknown codes are set by default: + +\input utf8unkn + +% UTF-8 input / output is active by default: + +\mubytein=1 \mubyteout=3 \mubytelog=1 + +\endinput + diff --git a/Master/texmf-dist/tex/csplain/base/ttimes.tex b/Master/texmf-dist/tex/csplain/base/ttimes.tex deleted file mode 100644 index 009b80f792c..00000000000 --- a/Master/texmf-dist/tex/csplain/base/ttimes.tex +++ /dev/null @@ -1,50 +0,0 @@ -% The file ttimes.tex (C) Petr Olsak, 2000 -% This file allows to use the Times fonts family in T1 encoding (*8t). -% Use (for example): %&csplain -translate-file=il2-t1 -% \input ttimes -% \chyph -% at first three lines in your document. - -% Warning1: This works only in web2c implementations of TeX and derivatives. -% Warning2: Use this file fonts only for experimental or special reason. The -% "\input ctimes" is more natural for csplain. -% Warning3: The \v t and \v d letters are horrible implemented in 8t metrics! - -% The "\rm", "\it", "\tt" and "\bf" will work with the new fonts. -% Use "\setsimplemath" command to set Times fonts family in very -% simple math formulas (without greek letters). - -\input t1code - -\font\tenrm=ptmr8t at 10pt -\font\tenbf=ptmb8t at 10pt -\font\tenit=ptmri8t at 10pt -\font\tentt=pcrr8t at 10pt -\let\tensl=\tenit -\tenrm -\def\setsimplemath{% - \font\sevenrm ptmr8t at7pt - \font\fiverm ptmr8t at5pt - \font\sevenit ptmri8t at7pt - \font\fiveit ptmri8t at5pt - \font\sevenbf ptmb8t at7pt - \font\fivebf ptmb8t at5pt - \message{\string\setsimplemath\space WARNING: - Greek symbols may be loss, see Missing char in .log!} - \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm - \textfont1=\tenit \scriptfont1=\sevenit \scriptscriptfont1=\fiveit - \textfont\itfam=\tenit \scriptfont\itfam=\sevenit - \scriptscriptfont\itfam=\fiveit - \textfont\slfam=\tensl - \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \textfont\ttfam=\tentt } - -% The \setsimplemath command sets the new family of fonts for math -% formulas. Cf. the usage of "2" (digit in text mode is in a new font) -% but $-2$ is in Computer Modern if \setsimplemath is not used. -% WARNING: The \setsimplemath is usable for very siple math -% formulas only! It may crash some more complicated formulas because -% math symbols are still used from Computer Modern and all greek -% symbols are missing in new fonts. - diff --git a/Master/texmf-dist/tex/csplain/base/ucode.tex b/Master/texmf-dist/tex/csplain/base/ucode.tex new file mode 100644 index 00000000000..c252230528b --- /dev/null +++ b/Master/texmf-dist/tex/csplain/base/ucode.tex @@ -0,0 +1,314 @@ +% File ucode.tex: +% (0) sets \czech, \slovak to Cork encoded hyphen-pattern numbers, +% (1) sets \catcode, \l/uccode for characters (code by Cork), +% (2) defines \csaccents for new behavior of \v, \', etc (code by Cork), +% (3) defines some \sequences for special cs-fonts characters. +% (4) redefines character-like macros from plainTeX as \chardef +% (5) if encTeX with \mubytein>0 is activated reads t1enc-u.tex file +% +% Created by Petr Olsak <olsak@math.feld.cvut.cz>, November 2012 + +\def\tmp#1#2\relax{\def\tmp{#2}}\tmp ^^^^abcd\relax +\ifx\tmp\empty \else + \errhelp={The ucode.tex file expects the TeX engine which work in Unicode + internally.} + \errmessage{Sorry, the Unicoded TeX engine (like luatex, xetex) is not detected} + \endinput \fi + +\message{Font encoding set to Unicode.} + +\let\unicoded\font % macros can do \ifx\font\unicoded ...\else...\fi + +%% (0) \czech, \slovak. You can use \chyph, \shyph after this file is loaded. +\ifx\czUnicode\undefined + \message{WARNING: czech+slovak hyphenation patterns are not loaded in Unicode.} +\else + \csname unicodelangs\endcsname +\fi + +%% (1a) \catcodes: +\catcode225=11 % a-acute +\catcode193=11 % A-acute +\catcode228=11 % a-diaeresis +\catcode196=11 % A-diaeresis +\catcode269=11 % c-caron +\catcode268=11 % C-caron +\catcode271=11 % d-caron +\catcode270=11 % D-caron +\catcode233=11 % e-acute +\catcode201=11 % E-acute +\catcode283=11 % e-caron +\catcode282=11 % E-caron +\catcode237=11 % i-acute +\catcode205=11 % I-acute +\catcode314=11 % l-acute +\catcode313=11 % L-acute +\catcode318=11 % l-caron +\catcode317=11 % L-caron +\catcode328=11 % n-caron +\catcode327=11 % N-caron +\catcode243=11 % o-acute +\catcode211=11 % O-acute +\catcode244=11 % o-circumflex +\catcode212=11 % O-circumflex +\catcode246=11 % o-diaeresis +\catcode214=11 % O-diaeresis +\catcode341=11 % r-acute +\catcode340=11 % R-acute +\catcode345=11 % r-caron +\catcode344=11 % R-caron +\catcode353=11 % s-caron +\catcode352=11 % S-caron +\catcode357=11 % t-caron +\catcode356=11 % T-caron +\catcode250=11 % u-acute +\catcode218=11 % U-acute +\catcode367=11 % u-ring +\catcode366=11 % U-ring +\catcode252=11 % u-diaeresis +\catcode220=11 % U-diaeresis +\catcode253=11 % y-acute +\catcode221=11 % Y-acute +\catcode382=11 % z-caron +\catcode381=11 % Z-caron + +%% (1b) \lccodes, \uccodes +\def\tmp #1 #2 {\lccode#1=#1 \lccode#2=#1 \uccode#1=#2 \uccode#2=#2 } +\tmp 225 193 +\tmp 228 196 +\tmp 269 268 +\tmp 271 270 +\tmp 233 201 +\tmp 283 282 +\tmp 237 205 +\tmp 314 313 +\tmp 318 317 +\tmp 328 327 +\tmp 243 211 +\tmp 244 212 +\tmp 246 214 +\tmp 341 340 +\tmp 345 344 +\tmp 353 352 +\tmp 357 356 +\tmp 250 218 +\tmp 367 366 +\tmp 252 220 +\tmp 253 221 +\tmp 382 381 + + +%% (2) \csaccents, \cmaccents +\def\accentscommands{\string\^,\string\`,\string\',\string\v,\string\",% + \string\r,\string\c,\string\~,\string\H,\string\u,% + \string\. and \string\k} +\def\csaccentsmessage{% + \message{The \accentscommands\space expands to characters by Unicode.}} +\ifx\cmaccentsmessage\undefined + \def\cmaccentsmessage{% + \message{The \accentscommands\space are defined similar as plainTeX.}} +\fi +\def\csaccents{\csaccentsmessage + \def\^##1{\ifx o##1^^f4\else + \ifx O##1^^d4\else + \ifx a##1^^e2\else + \ifx A##1^^c2\else + \ifx e##1^^ea\else + \ifx E##1^^ca\else + \ifx i##1^^ee\else + \ifx I##1^^ce\else + \ifx u##1^^fb\else + \ifx U##1^^db\else + {\accent"005E ##1}\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}\let\^^D=\^% + \def\`##1{\ifx a##1^^e0\else + \ifx A##1^^c0\else + \ifx e##1^^e8\else + \ifx E##1^^c8\else + \ifx i##1^^ec\else + \ifx I##1^^cc\else + \ifx o##1^^f2\else + \ifx O##1^^d2\else + \ifx u##1^^f9\else + \ifx U##1^^d9\else + {\accent"0060 ##1}\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% + \def\'##1{\ifx a##1^^e1\else + \ifx e##1^^e9\else + \ifx\i##1^^ed\else + \ifx i##1^^ed\else + \ifx o##1^^f3\else + \ifx u##1^^fa\else + \ifx y##1^^fd\else + \ifx r##1^^^^0155\else + \ifx l##1^^^^013a\else + \ifx A##1^^c1\else + \ifx E##1^^c9\else + \ifx I##1^^cd\else + \ifx O##1^^d3\else + \ifx U##1^^da\else + \ifx Y##1^^dd\else + \ifx R##1^^^^0154\else + \ifx L##1^^^^0139\else + \ifx C##1^^^^0106\else + \ifx N##1^^^^0143\else + \ifx S##1^^^^015a\else + \ifx Z##1^^^^0179\else + \ifx c##1^^^^0107\else + \ifx n##1^^^^0144\else + \ifx s##1^^^^015b\else + \ifx z##1^^^^017a\else + {\accent"00B4 ##1}% + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% + \def\v##1{\ifx e##1^^^^011b\else + \ifx s##1^^^^0161\else + \ifx c##1^^^^010d\else + \ifx r##1^^^^0159\else + \ifx z##1^^^^017e\else + \ifx d##1^^^^010f\else + \ifx t##1^^^^0165\else + \ifx l##1^^^^013e\else + \ifx n##1^^^^0148\else + \ifx E##1^^^^011a\else + \ifx S##1^^^^0160\else + \ifx C##1^^^^010c\else + \ifx R##1^^^^0158\else + \ifx Z##1^^^^017d\else + \ifx D##1^^^^010e\else + \ifx T##1^^^^0164\else + \ifx L##1^^^^013d\else + \ifx N##1^^^^0147\else + {\accent"02C7 ##1}% + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi\fi}\let\^^_=\v% + \def\"##1{\ifx a##1^^e4\else + \ifx o##1^^f6\else + \ifx u##1^^fc\else + \ifx A##1^^c4\else + \ifx O##1^^d6\else + \ifx U##1^^dc\else + \ifx Y##1^^^^0178\else + \ifx E##1^^cb\else + \ifx I##1^^cf\else + \ifx y##1^^b8\else + \ifx e##1^^eb\else + \ifx i##1^^ef\else + {\accent"00A8 ##1}\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% + \def\r##1{\ifx u##1^^^^016f\else + \ifx U##1^^^^016e\else + \ifx A##1^^c5\else + \ifx a##1^^e5\else + {\accent"00B0 ##1}\fi\fi\fi\fi}% + \def\c##1{\ifx C##1^^c7\else + \ifx c##1^^e7\else + \ifx S##1^^^^015e\else + \ifx s##1^^^^015f\else + \ifx T##1^^^^0162\else + \ifx t##1^^^^0163\else + {\char"00B8 ##1}\fi\fi\fi\fi\fi\fi}% + \def\~##1{\ifx A##1^^c3\else + \ifx N##1^^d1\else + \ifx O##1^^d5\else + \ifx a##1^^e3\else + \ifx n##1^^f1\else + \ifx o##1^^f5\else + {\accent"007E ##1}\fi\fi\fi\fi\fi\fi}% + \def\H##1{\ifx O##1^^^^0150\else + \ifx U##1^^^^0170\else + \ifx o##1^^^^0151\else + \ifx u##1^^^^0171\else + {\accent"02DD ##1}\fi\fi\fi\fi}% + \def\u##1{\ifx A##1^^^^0102\else + \ifx G##1^^^^011e\else + \ifx a##1^^^^0103\else + \ifx g##1^^^^011f\else + {\accent"02D8 ##1}\fi\fi\fi\fi}% + \def\=##1{\ifx d##1^^^^0111\else + {\accent"00AF ##1}\fi}% + \def\.##1{\ifx i##1^^69\else + \ifx z##1^^^^017c\else + \ifx I##1^^^^0130\else + \ifx Z##1^^^^017b\else + {\accent"02D9 ##1}\fi\fi\fi\fi}% + \def\k##1{\ifx A##1^^^^0104\else + \ifx E##1^^^^0118\else + \ifx a##1^^^^0105\else + \ifx e##1^^^^0119\else + {\char"02DB ##1}\fi\fi\fi\fi}% + %% for backward compatibility: + \def\softd{\v{d}}\def\softt{\v{t}}\def\ou{\r{u}}% + \def\softl{\v{l}}\def\softL{\v{L}}} +\def\cmaccents{\cmaccentsmessage + \def\^##1{{\accent94 ##1}}\let\^^D=\^% + \def\`##1{{\accent18 ##1}}% + \def\'##1{{\accent19 ##1}}% + \def\v##1{{\accent20 ##1}}\let\^^_=\v% + \def\"##1{{\accent"7F ##1}}% + \let\r=\undefined\def\ou{{\accent6u}}} + +\ifx\r\undefined \else \csaccents \fi %% re-set \csaccents + +%% (3) special \sequences for UNICODEd fonts. + %% Czech left a right double qoutes +\chardef\clqq="201E \sfcode"201E=0 +\chardef\crqq="201C \sfcode"201C=0 + %% French double quotes +\chardef\flqq="00AB \sfcode"00AB=0 +\chardef\frqq="00BB \sfcode"00BB=0 + %% Other characters +\def\ogonek #1{\setbox0\hbox{#1}\ifdim\ht0=1ex\accent"02DB #1% + \else{\ooalign{\unhbox0\crcr\hss\char"02DB}}\fi} +\chardef\promile="2030 + %% Alternative \hyphenchar ("je-li" is no "je\hyphenchar li"). +\let\extrahyphenchar=\undefined +\let\extrahyphens=\undefined + %% The czech quotes: +\def\uv{\bgroup\aftergroup\closequotes\leavevmode + \afterassignment\clqq\let\next=} +\def\closequotes{\unskip\crqq\relax} + +%% (4) re-definition character-like macros from plainTeX: + +\chardef \S 167 +\chardef \P 182 +\chardef \ss 223 +\chardef \L 321 +\chardef \l 322 +\chardef \ae 230 +\chardef \oe 339 +\chardef \o 248 +\chardef \AE 198 +\chardef \OE 338 +\chardef \O 216 +\chardef \i 305 +\chardef \j 567 +\chardef \aa 229 +\chardef \AA 197 + +% new characters in T1 encoding: + +\chardef \Eth 272 +\chardef \NG 330 +\chardef \Thorn 222 +\chardef \eth 273 +\chardef \ng 331 +\chardef \thorn 254 +\chardef \flq 8249 +\chardef \frq 8250 +\chardef \clq 8218 +\chardef \crq 8219 +\chardef \elqq 8220 +\chardef \erqq 8221 +\chardef \sterling 163 +\let\pound=\sterling + +%% (5) reading UTF-8 input encoding from t1enc-u.tex file + +\ifx\mubytein\undefined \expandafter \endinput \fi +\ifnum\mubytein=0 \expandafter \endinput \fi + +\input t1enc-u + + +\endinput + + diff --git a/Master/texmf-dist/tex/csplain/fonts/ams-math.tex b/Master/texmf-dist/tex/csplain/fonts/ams-math.tex new file mode 100644 index 00000000000..9f204220f8d --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/ams-math.tex @@ -0,0 +1,509 @@ +% This file loads AMS math fonts by plainTeX macros +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +% todo: find bold AMS symbols + +\message{FONT: AMS math fonts - + \string\mathchardef's prepared, 12 math families preloaded.} + +% After \input ams-math +% +% you can use hundreds characters from AMS math fonts +% (see \mathchardefs below). +% By default: - the fonts are loaded at 10/7/5 sizes. +% - variables are typeset by \mit (fam1) +% - digits and \sin, \cos, etc. are typeset by fam0 +% +% You can use the following alphabets: +% \mit ... mathematical variables +% \rm, \it .. text fonts in math +% \bf, \bi .. bold sans fonts (may be different than text fonts) +% \cal ... normal calligraphics +% \script ... script +% \frak ... fraktur +% \bbchar ... double stroked letters +% +% You can reload all math family fonts in two shapes: +% \normalmath ... normal shape +% \boldmath ... bold shape at implicit sizes or sizes set by +% Before reloading the fonts by previous comand you can set the sizes: +% \setmathsizes[text/script/scriptscript] +% Example \setmathsizes[12/8.4/6]\normalmath ... loads fonts at given sizes +% +% You can set typesetting of math variables from current text font +% by the command: \itvariavles. The \mitvariables reverts to the +% default. + +\def\normalmath{% + \loadmathfamily 0 cmr % CM Roman + \loadmathfamily 1 cmmi % CM Math Italic + \loadmathfamily 2 cmsy % CM Standard symbols + \loadmathfamily 3 cmex % CM extra symbols + \loadmathfamily 4 msam % AMS symbols A + \loadmathfamily 5 msbm % AMS symbols B + \loadmathfamily 6 rsfs % script + \loadmathfamily 7 eufm % fractur + \loadmathfamily 8 bfsans % sans serif bold + \loadmathfamily 9 bisans % sans serif bold slanted (for vectors) + \chardef\rmfam 10 \setmathfamily \rmfam \tenrm + \chardef\itfam 11 \setmathfamily \itfam \tenit + \setmathdimens +} +\def\boldmath{% + \loadmathfamily 0 cmbx % CM Roman Bold Extended + \loadmathfamily 1 cmmib % CM Math Italic Bold + \loadmathfamily 2 cmbsy % CM Standard symbols Bold + \loadmathfamily 3 cmexb % CM extra symbols Bold + \loadmathfamily 4 msam % AMS symbols A (bold not available?) + \loadmathfamily 5 msbm % AMS symbols B (bold not available?) + \loadmathfamily 6 rsfs % script (bold not available?) + \loadmathfamily 7 eufb % fractur bold + \loadmathfamily 8 bbfsans % sans serif extra bold + \loadmathfamily 9 bbisans % sans serif extra bold slanted (for vectors) + \chardef\rmfam 10 \setmathfamily \rmfam \tenrm + \chardef\itfam 11 \setmathfamily \itfam \tenit + \setmathdimens +} +\count18=11 % families declared by \newfam are 12, 13, ... + +\let\normalAMSmath=\normalmath \let\boldAMSmath=\boldmath + +\def\bi{\tenbi \fam\bifam} % in csplain is done \def\bi{\tenbi} only +\def\bbchar{\fam5 } % double stroked letters +\def\frak{\fam7 } % fraktur +\def\script{\fam6 } % more extensive script than \cal +\chardef\bffam 8 % sans serif bold +\chardef\bifam 9 % sans serif bold slanted +\chardef\slfam 10 % similar to slanted font from plainTeX +\chardef\ttfam 11 % \tt in math is unusable + +% \regtfm formal-name 0 tfm[1] p[1] tfm[2] p[2] ... tfm[n] * +% +% Imagine the interval [0,\infty) represented here by [0,*) with internal +% points p[i]. Between each two points (measured in pt), there is the name +% of a real tfm metric. The tfm[i] is the result of the expansion-only macro +% \whichtfm{formal-name} iff \dgsize is in the interval [p[i-1], p[i]). +% Example of the usage: \font\foo=\whichtfm{cmr} at\dgsize + +\def\regtfm #1 0 #2 *{\expandafter + \def\csname#1:reg\endcsname{#2 16380 \relax}% + \def\tmpa{#1}\reversetfm #2 * % +} +\def\reversetfm #1 #2 {% we need this data for \setmathfamily + \expandafter\let\csname#1:reg\expandafter\endcsname + \csname\tmpa:reg\endcsname + \if*#2\else \expandafter\reversetfm \fi +} + +\ifx\font\lmfonts \else % lmfonts setting has a precedence + +% CM text fonts which have the CSfont alternative: +\regtfm cmr 0 csr5 5.5 csr6 6.5 csr7 7.5 csr8 8.5 csr9 9.5 + csr10 11.1 csr12 15 csr17 * +\regtfm cmbx 0 csbx5 5.5 csbx6 6.5 csbx7 7.5 csbx8 8.5 csbx9 9.5 + csbx10 11.1 csbx12 * +\regtfm cmsl 0 cssl8 8.5 cssl9 9.5 cssl10 11.1 cssl12 * +\regtfm cmtt 0 cstt8 8.5 cstt9 9.5 cstt10 11.1 cstt12 * +\regtfm cmss 0 csss8 8.5 csss9 9.5 csss10 11.1 csss12 15 csss17 * +\regtfm cmssi 0 csssi8 8.5 csssi9 9.5 csssi10 11.1 csssi12 15 csssi17 * +\regtfm cmti 0 csti7 7.5 csti8 8.5 csti9 9.5 csti10 11.1 csti12 * +\regtfm cmbxti 0 csbxti10 * +% CM math fonts +\regtfm cmmi 0 cmmi5 5.5 cmmi6 6.5 cmmi7 7.5 cmmi8 8.5 cmmi9 9.5 + cmmi10 11.1 cmmi12 * +\regtfm cmmib 0 cmmib5 5.5 cmmib6 6.5 cmmib7 7.5 cmmib8 8.5 cmmib9 + 9.5 cmmib10 * +\regtfm cmtex 0 cstex8 8.5 cstex9 9.5 cstex10 * +\regtfm cmsy 0 cmsy5 5.5 cmsy6 6.5 cmsy7 7.5 cmsy8 8.5 cmsy9 9.5 + cmsy10 * +\regtfm cmbsy 0 cmbsy5 5.5 cmbsy6 6.5 cmbsy7 7.5 cmbsy8 8.5 cmbsy9 9.5 + cmbsy10 * +\regtfm cmex 0 cmex7 7.5 cmex8 8.5 cmex9 9.5 cmex10 * +\regtfm cmexb 0 cmexb10 * +% AMS fonts +\regtfm msam 0 msam5 5.5 msam6 6.5 msam7 7.5 msam8 8.5 msam9 + 9.5 msam10 * +\regtfm msbm 0 msbm5 5.5 msbm6 6.5 msbm7 7.5 msbm8 8.5 msbm9 + 9.5 msbm10 * +\regtfm eufm 0 eufm5 5.5 eufm6 6.5 eufm7 7.5 eufm8 8.5 eufm9 + 9.5 eufm10 * +\regtfm eufb 0 eufb5 5.5 eufb6 6.5 eufb7 7.5 eufb8 8.5 eufb9 + 9.5 eufb10 * +% other fonts +\regtfm rsfs 0 rsfs5 6 rsfs7 8.5 rsfs10 * +\regtfm bfsans 0 ecsx0500 5.5 ecsx0600 6.5 ecsx0700 7.5 ecsx0800 + 8.5 ecsx0900 9.5 ecsx1000 11.1 ecsx1200 * +\regtfm bisans 0 ecso0500 5.5 ecso0600 6.5 ecso0700 7.5 ecso0800 + 8.5 ecso0900 9.5 ecso1000 11.1 ecso1200 * +\regtfm bbfsans 0 ecsx0500 5.5 ecsx0600 6.5 ecsx0700 7.5 ecsx0800 + 8.5 ecsx0900 9.5 ecsx1000 11.1 ecsx1200 * +\regtfm bbisans 0 ecso0500 5.5 ecso0600 6.5 ecso0700 7.5 ecso0800 + 8.5 ecso0900 9.5 ecso1000 11.1 ecso1200 * + +\fi + +% User can re-register these tfm's mentioned above after \input ams-math.tex +% if he/she want to load other fonts than these defaults. + +% The new size of font produced by csplain \resizefont macro would be +% derived using \regtmf data. In order to do this you can re-define this +% csplain macro (see csfontsm.tex file): +% \def\resizefontskipat#1 #2\relax{\whichtfm{#1} \sizespec\relax} +% but now there is a different usage of the \resizefont: +% \def\dgsize{17pt}\def\sizespec{at\dgsize}\resizefont\tenrm + +\ifx\corrmsizes\undefined \def\corrmsizes#1{}\fi % see tx-math for the + % example of \corrmsizes + +%% macros: + +\def\itvariables{\def\rm{\fam\rmfam \tenrm}% + \mathcodechanges A:0-9\mathcodechanges B:A-Z\mathcodechanges B:a-z} +\def\mitvariables{\def\rm{\fam0\tenrm}% + \mathcodechanges 0:0-9\mathcodechanges 1:A-Z\mathcodechanges 1:a-z} + +\def\loadmathfamily #1 #2 {\corrmsizes{#1}% + \let\dgsize=\sizemtext + \font\tmp=\whichtfm{#2} at\dgsize \textfont#1=\tmp + \let\dgsize=\sizemscript + \font\tmp=\whichtfm{#2} at \dgsize \scriptfont#1=\tmp + \let\dgsize=\sizemsscript + \font\tmp=\whichtfm{#2} at\dgsize \scriptscriptfont#1=\tmp + \ptmunit=1pt +} +\def\setmathfamily #1#2{\corrmsizes{#1}% + \let\dgsize=\sizemtext + \font\tmp = \specfontname #2 at\sizemtext \textfont#1=\tmp + \let\dgsize=\sizemscript + \font\tmp = \specfontname #2 at\sizemscript \scriptfont#1=\tmp + \let\dgsize=\sizemsscript + \font\tmp = \specfontname #2 at\sizemsscript \scriptscriptfont#1=\tmp + \ptmunit=1pt +} +\def\specfontname #1{\expandafter \ignoreatpt \fontname #1 \relax} +\def\ignoreatpt #1 #2\relax{\whichtfm{#1}} +\def\mathcodechanges#1:#2-#3{\chardef\tmp=\count0 \chardef\tmpa=\count1 + \count0=`#2 \count1=\count0 \advance\count1 by"7#100 + \loop \mathcode\count0=\count1 + \ifnum\count0<`#3 \advance\count0 by1 \advance\count1 by1 \repeat + \count0=\tmp \count1=\tmpa +} +\def\whichtfm #1{\expandafter \ifx\csname#1:reg\endcsname\relax + #1% + \else + \expandafter\expandafter\expandafter \dowhichtfm + \csname #1:reg\expandafter\endcsname + \fi +} +\def\dowhichtfm #1 #2 {% + \ifdim\dgsize<#2pt #1\expandafter\ignoretfm\else \expandafter\dowhichtfm +\fi +} +\def\ignoretfm #1\relax{} + +\def\setmathdimens{% PlainTeX sets these dimens for 10pt size only: + \delimitershortfall=0.5\fontdimen6\textfont3 + \nulldelimiterspace=0.12\fontdimen6\textfont3 + \scriptspace=0.05\fontdimen6\textfont3 + \skewchar\textfont1=127 \skewchar\scriptfont1=127 + \skewchar\scriptscriptfont1=127 + \skewchar\textfont2=48 \skewchar\scriptfont2=48 + \skewchar\scriptscriptfont2=48 +} + +% \setmathsizes: + +\def\setmathsizes[#1/#2/#3]{% + \def\sizemtext{#1\ptmunit}\def\sizemscript{#2\ptmunit}% + \def\sizemsscript{#3\ptmunit}% +} +\newdimen\ptmunit \ptmunit=1pt % used in \corrmsizes + +\setmathsizes[10/7/5] + +\ifx\tenbi\undefined \font\tenbi=ptmbi8z \relax \fi +\normalmath % load families, normal shape +\mitvariables % \rm in \fam0 and avriables in math by \mit + +%% \mathchardef declarations + +\def\amsafam{4} \def\amsbfam{5} + +%% AMSA + +\mathchardef \boxdot "2\amsafam 00 +\mathchardef \boxplus "2\amsafam 01 +\mathchardef \boxtimes "2\amsafam 02 +\mathchardef \square "0\amsafam 03 +\mathchardef \blacksquare "0\amsafam 04 +\mathchardef \centerdot "2\amsafam 05 +\mathchardef \lozenge "0\amsafam 06 +\mathchardef \blacklozenge "0\amsafam 07 +\mathchardef \circlearrowright "3\amsafam 08 +\mathchardef \circlearrowleft "3\amsafam 09 +\mathchardef \rightleftharpoons "3\amsafam 0A +\mathchardef \leftrightharpoons "3\amsafam 0B +\mathchardef \boxminus "2\amsafam 0C +\mathchardef \Vdash "3\amsafam 0D +\mathchardef \Vvdash "3\amsafam 0E +\mathchardef \vDash "3\amsafam 0F +\mathchardef \twoheadrightarrow "3\amsafam 10 +\mathchardef \twoheadleftarrow "3\amsafam 11 +\mathchardef \leftleftarrows "3\amsafam 12 +\mathchardef \rightrightarrows "3\amsafam 13 +\mathchardef \upuparrows "3\amsafam 14 +\mathchardef \downdownarrows "3\amsafam 15 +\mathchardef \upharpoonright "3\amsafam 16 +\mathchardef \downharpoonright "3\amsafam 17 +\mathchardef \upharpoonleft "3\amsafam 18 +\mathchardef \downharpoonleft "3\amsafam 19 +\mathchardef \rightarrowtail "3\amsafam 1A +\mathchardef \leftarrowtail "3\amsafam 1B +\mathchardef \leftrightarrows "3\amsafam 1C +\mathchardef \rightleftarrows "3\amsafam 1D +\mathchardef \Lsh "3\amsafam 1E +\mathchardef \Rsh "3\amsafam 1F +\mathchardef \rightsquigarrow "3\amsafam 20 +\mathchardef \leftrightsquigarrow "3\amsafam 21 +\mathchardef \looparrowleft "3\amsafam 22 +\mathchardef \looparrowright "3\amsafam 23 +\mathchardef \circeq "3\amsafam 24 +\mathchardef \succsim "3\amsafam 25 +\mathchardef \gtrsim "3\amsafam 26 +\mathchardef \gtrapprox "3\amsafam 27 +\mathchardef \multimap "3\amsafam 28 +\mathchardef \therefore "3\amsafam 29 +\mathchardef \because "3\amsafam 2A +\mathchardef \doteqdot "3\amsafam 2B +\mathchardef \triangleq "3\amsafam 2C +\mathchardef \precsim "3\amsafam 2D +\mathchardef \lesssim "3\amsafam 2E +\mathchardef \lessapprox "3\amsafam 2F +\mathchardef \eqslantless "3\amsafam 30 +\mathchardef \eqslantgtr "3\amsafam 31 +\mathchardef \curlyeqprec "3\amsafam 32 +\mathchardef \curlyeqsucc "3\amsafam 33 +\mathchardef \preccurlyeq "3\amsafam 34 +\mathchardef \leqq "3\amsafam 35 +\mathchardef \leqslant "3\amsafam 36 +\mathchardef \lessgtr "3\amsafam 37 +\mathchardef \backprime "0\amsafam 38 +\mathchardef \risingdotseq "3\amsafam 3A +\mathchardef \fallingdotseq "3\amsafam 3B +\mathchardef \succcurlyeq "3\amsafam 3C +\mathchardef \geqq "3\amsafam 3D +\mathchardef \geqslant "3\amsafam 3E +\mathchardef \gtrless "3\amsafam 3F +\mathchardef \sqsubset "3\amsafam 40 +\mathchardef \sqsupset "3\amsafam 41 +\mathchardef \vartriangleright "3\amsafam 42 +\mathchardef \vartriangleleft "3\amsafam 43 +\mathchardef \trianglerighteq "3\amsafam 44 +\mathchardef \trianglelefteq "3\amsafam 45 +\mathchardef \bigstar "0\amsafam 46 +\mathchardef \between "3\amsafam 47 +\mathchardef \blacktriangledown "0\amsafam 48 +\mathchardef \blacktriangleright "3\amsafam 49 +\mathchardef \blacktriangleleft "3\amsafam 4A +\mathchardef \vartriangle "3\amsafam 4D +\mathchardef \blacktriangle "0\amsafam 4E +\mathchardef \triangledown "0\amsafam 4F +\mathchardef \eqcirc "3\amsafam 50 +\mathchardef \lesseqgtr "3\amsafam 51 +\mathchardef \gtreqless "3\amsafam 52 +\mathchardef \lesseqqgtr "3\amsafam 53 +\mathchardef \gtreqqless "3\amsafam 54 +\mathchardef \Rrightarrow "3\amsafam 56 +\mathchardef \Lleftarrow "3\amsafam 57 +\mathchardef \veebar "2\amsafam 59 +\mathchardef \barwedge "2\amsafam 5A +\mathchardef \doublebarwedge "2\amsafam 5B +\mathchardef \angle "0\amsafam 5C +\mathchardef \measuredangle "0\amsafam 5D +\mathchardef \sphericalangle "0\amsafam 5E +\mathchardef \varpropto "3\amsafam 5F +\mathchardef \smallsmile "3\amsafam 60 +\mathchardef \smallfrown "3\amsafam 61 +\mathchardef \Subset "3\amsafam 62 +\mathchardef \Supset "3\amsafam 63 +\mathchardef \Cup "2\amsafam 64 +\mathchardef \Cap "2\amsafam 65 +\mathchardef \curlywedge "2\amsafam 66 +\mathchardef \curlyvee "2\amsafam 67 +\mathchardef \leftthreetimes "2\amsafam 68 +\mathchardef \rightthreetimes "2\amsafam 69 +\mathchardef \subseteqq "3\amsafam 6A +\mathchardef \supseteqq "3\amsafam 6B +\mathchardef \bumpeq "3\amsafam 6C +\mathchardef \Bumpeq "3\amsafam 6D +\mathchardef \lll "3\amsafam 6E +\mathchardef \ggg "3\amsafam 6F +\def \ulcorner {\delimiter"4\amsafam 70\amsafam 70 } +\def \urcorner {\delimiter"5\amsafam 71\amsafam 71 } +\mathchardef \circledS "0\amsafam 73 +\mathchardef \pitchfork "3\amsafam 74 +\mathchardef \dotplus "2\amsafam 75 +\mathchardef \backsim "3\amsafam 76 +\mathchardef \backsimeq "3\amsafam 77 +\def \llcorner {\delimiter"4\amsafam 78\amsafam 78 } +\def \lrcorner {\delimiter"5\amsafam 79\amsafam 79 } +\mathchardef \complement "0\amsafam 7B +\mathchardef \intercal "2\amsafam 7C +\mathchardef \circledcirc "2\amsafam 7D +\mathchardef \circledast "2\amsafam 7E +\mathchardef \circleddash "2\amsafam 7F +\mathchardef \rhd "2\amsafam 42 +\mathchardef \lhd "2\amsafam 43 +\mathchardef \unrhd "2\amsafam 44 +\mathchardef \unlhd "2\amsafam 45 + + \let\restriction\upharpoonright + \let\Doteq\doteqdot + \let\doublecup\Cup + \let\doublecap\Cap + \let\llless\lll + \let\gggtr\ggg + \let\Box=\square % LaTeX symbol + \let\Box=\square % LaTeX symbol + +%% AMSB + +\mathchardef \lvertneqq "3\amsbfam 00 +\mathchardef \gvertneqq "3\amsbfam 01 +\mathchardef \nleq "3\amsbfam 02 +\mathchardef \ngeq "3\amsbfam 03 +\mathchardef \nless "3\amsbfam 04 +\mathchardef \ngtr "3\amsbfam 05 +\mathchardef \nprec "3\amsbfam 06 +\mathchardef \nsucc "3\amsbfam 07 +\mathchardef \lneqq "3\amsbfam 08 +\mathchardef \gneqq "3\amsbfam 09 +\mathchardef \nleqslant "3\amsbfam 0A +\mathchardef \ngeqslant "3\amsbfam 0B +\mathchardef \lneq "3\amsbfam 0C +\mathchardef \gneq "3\amsbfam 0D +\mathchardef \npreceq "3\amsbfam 0E +\mathchardef \nsucceq "3\amsbfam 0F +\mathchardef \precnsim "3\amsbfam 10 +\mathchardef \succnsim "3\amsbfam 11 +\mathchardef \lnsim "3\amsbfam 12 +\mathchardef \gnsim "3\amsbfam 13 +\mathchardef \nleqq "3\amsbfam 14 +\mathchardef \ngeqq "3\amsbfam 15 +\mathchardef \precneqq "3\amsbfam 16 +\mathchardef \succneqq "3\amsbfam 17 +\mathchardef \precnapprox "3\amsbfam 18 +\mathchardef \succnapprox "3\amsbfam 19 +\mathchardef \lnapprox "3\amsbfam 1A +\mathchardef \gnapprox "3\amsbfam 1B +\mathchardef \nsim "3\amsbfam 1C +\mathchardef \ncong "3\amsbfam 1D +\mathchardef \diagup "0\amsbfam 1E +\mathchardef \diagdown "0\amsbfam 1F +\mathchardef \varsubsetneq "3\amsbfam 20 +\mathchardef \varsupsetneq "3\amsbfam 21 +\mathchardef \nsubseteqq "3\amsbfam 22 +\mathchardef \nsupseteqq "3\amsbfam 23 +\mathchardef \subsetneqq "3\amsbfam 24 +\mathchardef \supsetneqq "3\amsbfam 25 +\mathchardef \varsubsetneqq "3\amsbfam 26 +\mathchardef \varsupsetneqq "3\amsbfam 27 +\mathchardef \subsetneq "3\amsbfam 28 +\mathchardef \supsetneq "3\amsbfam 29 +\mathchardef \nsubseteq "3\amsbfam 2A +\mathchardef \nsupseteq "3\amsbfam 2B +\mathchardef \nparallel "3\amsbfam 2C +\mathchardef \nmid "3\amsbfam 2D +\mathchardef \nshortmid "3\amsbfam 2E +\mathchardef \nshortparallel "3\amsbfam 2F +\mathchardef \nvdash "3\amsbfam 30 +\mathchardef \nVdash "3\amsbfam 31 +\mathchardef \nvDash "3\amsbfam 32 +\mathchardef \nVDash "3\amsbfam 33 +\mathchardef \ntrianglerighteq "3\amsbfam 34 +\mathchardef \ntrianglelefteq "3\amsbfam 35 +\mathchardef \ntriangleleft "3\amsbfam 36 +\mathchardef \ntriangleright "3\amsbfam 37 +\mathchardef \nleftarrow "3\amsbfam 38 +\mathchardef \nrightarrow "3\amsbfam 39 +\mathchardef \nLeftarrow "3\amsbfam 3A +\mathchardef \nRightarrow "3\amsbfam 3B +\mathchardef \nLeftrightarrow "3\amsbfam 3C +\mathchardef \nleftrightarrow "3\amsbfam 3D +\mathchardef \divideontimes "2\amsbfam 3E +\mathchardef \varnothing "0\amsbfam 3F +\mathchardef \nexists "0\amsbfam 40 +\mathchardef \Finv "0\amsbfam 60 +\mathchardef \Game "0\amsbfam 61 +\mathchardef \mho "0\amsbfam 66 +\mathchardef \eth "0\amsbfam 67 +\mathchardef \eqsim "3\amsbfam 68 +\mathchardef \beth "0\amsbfam 69 +\mathchardef \gimel "0\amsbfam 6A +\mathchardef \daleth "0\amsbfam 6B +\mathchardef \lessdot "2\amsbfam 6C +\mathchardef \gtrdot "2\amsbfam 6D +\mathchardef \ltimes "2\amsbfam 6E +\mathchardef \rtimes "2\amsbfam 6F +\mathchardef \shortmid "3\amsbfam 70 +\mathchardef \shortparallel "3\amsbfam 71 +\mathchardef \smallsetminus "2\amsbfam 72 +\mathchardef \thicksim "3\amsbfam 73 +\mathchardef \thickapprox "3\amsbfam 74 +\mathchardef \approxeq "3\amsbfam 75 +\mathchardef \precapprox "3\amsbfam 76 +\mathchardef \succapprox "3\amsbfam 77 +\mathchardef \curvearrowleft "3\amsbfam 78 +\mathchardef \curvearrowright "3\amsbfam 79 +\mathchardef \digamma "0\amsbfam 7A +\mathchardef \varkappa "0\amsbfam 7B +\mathchardef \Bbbk "0\amsbfam 7C +\mathchardef \hslash "0\amsbfam 7D +\mathchardef \hbar "0\amsbfam 7E +\mathchardef \backepsilon "3\amsbfam 7F + +%%% macros + +\def\joinrel{\mathrel{\mkern-2.5mu}} %-3mu in plain TeX + +\let\circledplus\oplus +\let\circledminus\ominus +\let\circledtimes\otimes +\let\circledslash\oslash +\let\circleddot\odot + +%%% \big, \bigg, etc: + +\def\scalebig#1#2{{\left#1\vbox to#2\fontdimen6\textfont3{}% + \kern-\nulldelimiterspace\right.}} +\def\big#1{\scalebig{#1}{.85}} +\def\Big#1{\scalebig{#1}{1.15}} +\def\bigg#1{\scalebig{#1}{1.45}} +\def\Bigg#1{\scalebig{#1}{1.75}} + +%%% \not redefined: +%%% \not< becomes \nless +%%% \not> becomes \ngtr +%%% if \notXXX is defined, \not\XXX becomes \notXXX; +%%% if \nXXX is defined, \not\XXX becomes \nXXX; +%%% otherwise, \not\XXX is done in the usual way. + +\mathchardef \notchar "3236 + +\def\not#1{% + \ifx\TeX\relax \noexpand\not \else % \let\TeX=\relax in \output routine + \ifx #1<\nless \else + \ifx #1>\ngtr \else + \bgroup\escapechar=-1\xdef\tmpn{\string#1}\egroup + \expandafter\ifx \csname not\tmpn\endcsname \relax + \expandafter\ifx \csname n\tmpn\endcsname \relax + \mathrel{\mathord{\notchar}\mathord{#1}}% + \else \csname n\tmpn\endcsname \fi + \else \csname not\tmpn\endcsname \fi + \fi\fi\fi} + +\endinput + +% end of ams-math.tex file + diff --git a/Master/texmf-dist/tex/csplain/fonts/cavantga.tex b/Master/texmf-dist/tex/csplain/fonts/cavantga.tex new file mode 100644 index 00000000000..8742df30e6f --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cavantga.tex @@ -0,0 +1,34 @@ +% The file cavantga.tex (C) Petr Olsak, 1996, 1999, 2012 +% Use "\input cavantga" to set the AvantGarde fonts family in text mode. + +\message{FONT: AvantGarde - + \string\rm, \string\it, \string\bf, \string\bi, \string\tt.} + + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded + \def\tmp{8t \sizespec}\def\tmpa{8t \sizespec} +\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec} +\fi + +\font\tenrm=pagk\tmp +\font\tenbf=pagd\tmp +\font\tenit=pagko\tmp +\font\tenbi=pagdo\tmp +\font\tentt=pcrr\tmpa +\let\tensl=\tenit + +\tenrm + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\let\setsimplemath=\relax % this command is obsolete + +% The \TeX logo corrected by Ivo Jancik for AvantGarde fonts family +\def\agTeX{T\kern-.08em\lower.3333ex\hbox{E}\kern-0.09emX} +\ifx\origTeX\undefined \let\origTeX=\TeX \fi +\let\TeX=\agTeX + +% end of cavantga.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cbookman.tex b/Master/texmf-dist/tex/csplain/fonts/cbookman.tex new file mode 100644 index 00000000000..d033df87182 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cbookman.tex @@ -0,0 +1,33 @@ +% The file cbookman.tex (C) Petr Olsak, 1996, 1999, 2012 +% Use "\input cbookman" to set the Bookman fonts family in text mode + +\message{FONT: Bookman - + \string\rm, \string\it, \string\bf, \string\bi, \string\tt.} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded + \def\tmp{8t \sizespec}\def\tmpa{8t \sizespec} +\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec} +\fi + +\font\tenrm=pbkl\tmp +\font\tenbf=pbkd\tmp +\font\tenit=pbkli\tmp +\font\tenbi=pbkdi\tmp +\font\tentt=pcrr\tmpa +\let\tensl=\tenit + +\tenrm + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\let\setsimplemath=\relax % this command is obsolete + +% The \TeX logo corrected by Ivo Jancik for Bookman fonts family +\def\bmTeX{T\kern-.14em\lower.4ex\hbox{E}\kern-.125emX} +\ifx\origTeX\undefined \let\origTeX=\TeX \fi +\let\TeX=\bmTeX + +% end of cbookman.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/chars-8z.tex b/Master/texmf-dist/tex/csplain/fonts/chars-8z.tex new file mode 100644 index 00000000000..f774361d72a --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/chars-8z.tex @@ -0,0 +1,69 @@ +% chars-8z.tex file +% Petr Olsak, Oct 2012 + +% The simple declarations of more characters from 8z encoded fonts. + +\chardef\ellipsis 128 +\chardef\dag 129 % plain macro redefined +\chardef\ddag 130 % plain macro redefined +\chardef\texbullet 131 +\chardef\sterling 132 +\chardef\paragraphsign 133 +\chardef\euro 134 +\chardef\trademark 136 +\chardef\copyright 137 % plain macro redefined +\chardef\registered 138 +\chardef\Lslash 163 % plain macro redefined +\chardef\lslash 179 % plain macro redefined +\chardef\currency 164 +\chardef\section 167 +\chardef\clq 154 % czech single left quote +\chardef\crq 155 % czech single right quote +\chardef\flq 142 % french single left quote +\chardef\frq 143 % french single right quote + +\let\P=\paragraphsign % plain macro redefined +\let\S=\section % plain macro redefined +\let\pound=\sterling +\let\L=\Lslash % plain macro redefined +\let\l=\lslash % plain macro redefined +% \let\dots=\ellipsis, don't do it: \dots works in mathmode too. + +\chardef\Aogonek 161 +\chardef\aogonek 177 + +\let\oriogonek=\ogonek % defined in csplain +\def\ogonek#1{\ifx A#1\Aogonek\else\ifx a#1\aogonek\else \oriogonek{#1}\fi\fi} + +\chardef\Ccedilla 199 +\chardef\ccedilla 231 + +\let\oricedilla=\c % defined in plain +\def\c#1{\ifx C#1\Ccedilla\else\ifx c#1\ccedilla\else \oricedilla{#1}\fi\fi} + +\chardef\Edieresis 203 +\chardef\edieresis 235 + +\let\oridieresis=\" % defined in plain (or csplain after \csaccents) +\def\"#1{\ifx E#1\Edieresis\else\ifx e#1\edieresis\else \oridieresis{#1}\fi\fi} + +\chardef\Ihat 206 +\chardef\ihat 238 + +\let\oritexthat=\^ % defined in plain (or csplain after \csaccents) +\def\^#1{\ifx I#1\Ihat\else\ifx i#1\ihat\else \oritexthat{#1}\fi\fi} + +\ifx\mubyte\undefined \expandafter \endinput \fi + +% It seems to be usable to interpret these characterss as UTF-8 codes: +% The characters defined PlainTeX and csplain are set already. + +\mubyte \ellipsis ^^e2^^80^^a6\endmubyte +\mubyte \textbullet ^^e2^^80^^a2\endmubyte +\mubyte \sterling ^^c2^^a3\endmubyte +\mubyte \euro ^^e2^^82^^ac\endmubyte +\mubyte \trademark ^^e2^^84^^a2\endmubyte +\mubyte \registered ^^c2^^ae\endmubyte +\mubyte \currency ^^c2^^a4\endmubyte + +% end of file diff --git a/Master/texmf-dist/tex/csplain/fonts/chelvet.tex b/Master/texmf-dist/tex/csplain/fonts/chelvet.tex new file mode 100644 index 00000000000..38b9988dc1f --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/chelvet.tex @@ -0,0 +1,60 @@ +% The file chelvet.tex (C) Petr Olsak, 1996, 1999, 2012 +% Use "\input chelvet" to set the Helvetica fonts family in text mode + +\message{FONT: Helvetica - + \string\rm, \string\it, \string\bf, \string\bi, \string\tt, + \string\cond\string\rm, ..., \string\cond\string\bi, \string\narrow.} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded + \def\tmp{8t \sizespec}\def\tmpa{8t \sizespec} +\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec} +\fi + +\font\tenrm=phvr\tmp +\font\tenbf=phvb\tmp +\font\tenit=phvro\tmp +\font\tenbi=phvbo\tmp +\font\tentt=pcrr\tmpa +\let\tensl=\tenit + +\tenrm + +\ifx\font\corkencoded % Narrow variants + \font\tenrmn=phvr8tn + \font\tenbfn=phvb8tn + \font\tenitn=phvro8tn + \font\tenbin=phvbo8tn +\else + \font\tenrmn=phvrn8z + \font\tenbfn=phvbn8z + \font\tenitn=phvron8z + \font\tenbin=phvbon8z +\fi + +\ifx\regfont\undefined \else + \regfont\tenrmn \regfont\tenitn + \regfont\tenbfn \regfont\tenbin +\fi + +\def\narrow{% Switches to Narrow variants + \let\tenrm=\tenrmn \let\tenbf=\tenbfn + \let\tenit=\tenitn \let\tenbi=\tenbin \tenrm} + +\def\cond#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1n\endcsname} +\def\tenonlytext{ten} + + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\let\setsimplemath=\relax % this command is obsolete + +% The \TeX logo corrected by Ivo Jancik for Helvetica fonts family +\def\hvTeX{T\kern-.12em\lower.4ex\hbox{E}\kern-0.09emX} +\ifx\origTeX\undefined \let\origTeX=\TeX \fi +\let\TeX=\hvTeX + +% end of chelvet.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cncent.tex b/Master/texmf-dist/tex/csplain/fonts/cncent.tex new file mode 100644 index 00000000000..7ff72a57173 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cncent.tex @@ -0,0 +1,33 @@ +% The file cncent.tex (C) Petr Olsak, 1996, 1999, 2012 +% Use "\input cncent" to set the NewCentury fonts family in text mode + +\message{FONT: NewCentury - + \string\rm, \string\it, \string\bf, \string\bi, \string\tt.} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded + \def\tmp{8t \sizespec}\def\tmpa{8t \sizespec} +\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec} +\fi + +\font\tenrm=pncr\tmp +\font\tenbf=pncb\tmp +\font\tenit=pncri\tmp +\font\tenbi=pncbi\tmp +\font\tentt=pcrr\tmpa +\let\tensl=\tenit + +\tenrm + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\let\setsimplemath=\relax % this command is obsolete + +% The \TeX logo corrected by Ivo Jancik for NewCentury fonts family +\def\ncTeX{T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX} +\ifx\origTeX\undefined \let\origTeX=\TeX \fi +\let\TeX=\ncTeX + +% end of cncent.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cpalatin.tex b/Master/texmf-dist/tex/csplain/fonts/cpalatin.tex new file mode 100644 index 00000000000..c8299d91c4c --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cpalatin.tex @@ -0,0 +1,33 @@ +% The file cpalatin.tex (C) Petr Olsak, 1996, 1999, 2012 +% Use "\input cpalatin" to set the Palatino fonts family in text mode + +\message{FONT: Palatino - + \string\rm, \string\it, \string\bf, \string\bi, \string\tt.} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded + \def\tmp{8t \sizespec}\def\tmpa{8t \sizespec} +\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec} +\fi + +\font\tenrm=pplr\tmp +\font\tenbf=pplb\tmp +\font\tenit=pplri\tmp +\font\tenbi=pplbi\tmp +\font\tentt=pcrr\tmpa +\let\tensl=\tenit + +\tenrm + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\let\setsimplemath=\relax % this command is obsolete + +% The \TeX logo corrected by Ivo Jancik for Palatino fonts family +\def\palTeX{T\kern-.1667em\lower.3333ex\hbox{E}\kern-.125emX} +\ifx\origTeX\undefined \let\origTeX=\TeX \fi +\let\TeX=\palTeX + +% end of cpalatin.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-adventor.tex b/Master/texmf-dist/tex/csplain/fonts/cs-adventor.tex new file mode 100644 index 00000000000..ed0d9b7ac4b --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-adventor.tex @@ -0,0 +1,36 @@ +% The file cs-adventor.tex (C) Petr Olsak, 2012 +% Use "\input cs-adventor" to set the Termes fonts family in text mode + +\message{FONT: Adventor - + \string\rm, \string\it, \string\bf, \string\bi, \string\caps\string\rm...} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\ifx\font\unicoded \def\famname{texgyreadventor} \input unifam +\else + +\font\tenrm=\tmp-qagr \sizespec +\font\tenbf=\tmp-qagb \sizespec +\font\tenit=\tmp-qagri \sizespec +\font\tenbi=\tmp-qagbi \sizespec + +\font\tenrmc=\tmp-qagr-sc \sizespec +\font\tenbfc=\tmp-qagb-sc \sizespec +\font\tenitc=\tmp-qagri-sc \sizespec +\font\tenbic=\tmp-qagbi-sc \sizespec + +\fi + +\tenrm + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-adventor.tex + diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-all.tex b/Master/texmf-dist/tex/csplain/fonts/cs-all.tex new file mode 100644 index 00000000000..b30ade6c19c --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-all.tex @@ -0,0 +1,35 @@ +% cs-all.tex : reports about font-macro-files only +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +% If you make your new font-macro-file, add the information about it here, +% please + +\newtoks\ttoks +\def\w#1#2#3{\ttoks{#3}\immediate\write16{#1 : \space== #2 ==} + \immediate\write16{\space\space\space\the\ttoks}} + +\immediate\write16{----------- Font packages from csplain available -----------} +\w{ctimes}{Times}{\rm, \it, \bf, \bi, \tt} +\w{cavant}{AvantGarde}{\rm, \it, \bf, \bi, \tt} +\w{cbookman}{Bookman}{\rm, \it, \bf, \bi, \tt} +\w{chelvet}{Helvetica}{\rm, \it, \bf, \bi, \tt, \cond\rm, ..., \cond\bi} +\w{cncent}{NewCentury}{\rm, \it, \bf, \bi, \tt} +\w{cpalatin}{Palatino}{\rm, \it, \bf, \bi, \tt.} +\w{cs-bera}{Bera}{\rm, \it, \bf, \bi, \rms, ..., \bis, \tt, \ttit, \ttbf, \ttbi} +\w{cs-arev}{ArevSans}{\rm, \it, \bf, \bi} +\w{cs-charter}{Charter}{\rm, \it, \bf, \bi} +\w{cs-antt}{Antykwa Torunska}{\rm, \it, \bf, \bi, \lr, \li, \mr, \mi, \caps\rm...} +\w{cs-polta}{Antykwa Poltawskiego}{\rm,\it,\bf,\bi,\lr,\li,\mr,\mi,\caps\rm...} +\w{cs-termes}{TeX Gyre Termes}{\rm, \it, \bf, \bi, \caps\rm, ...} +\w{cs-adventor}{TeX Gyre Adventor}{\rm, \it, \bf, \bi, \caps\rm, ...} +\w{cs-bonum}{TeX Gyre Bonum}{\rm, \it, \bf, \bi, \caps\rm, ...} +\w{cs-heros}{TeX Grye Heros}{\rm, \it, \bf, \bi, \caps\rm, ..., \narrow} +\w{cs-pagella}{TeX Gyre Pagella}{\rm, \it, \bf, \bi, \caps\rm, ...} +\w{cs-schola}{TeX Gyre Schola}{\rm, \it, \bf, \bi, \caps\rm, ...} +\w{cs-cursor}{TeX Gyre Cursor}{\rm, \it, \bf, \bi, \caps\rm, ...} +\w{lmfonts}{Latin Modern}{\rm, \it, \bf, \bi + math} +\w{tx-math}{TX math fonts}{14 families, \mathchardef's prepared. Loaded automatically.} +\w{ams-math}{AMS math fonts}{12 families, \mathchardef's prepared. You can load it.} + +\endinput
\ No newline at end of file diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-antt.tex b/Master/texmf-dist/tex/csplain/fonts/cs-antt.tex new file mode 100644 index 00000000000..3304fa32fba --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-antt.tex @@ -0,0 +1,56 @@ +% cs-antt.tex: fonts loading file of Antykwa Torunska +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\message{FONT: Antykwa Torunska - + \string\rm, \string\it, \string\bf, \string\bi, + \string\lr, \string\li, \string\mr, \string\mi, + \string\caps\string\rm...} + +\font\tenrm=\tmp-anttr \sizespec +\font\tenbf=\tmp-anttb \sizespec +\font\tenit=\tmp-anttri \sizespec +\font\tenbi=\tmp-anttbi \sizespec + +\font\tenlr=\tmp-anttl \sizespec \def\lr{\tenlr} +\font\tenli=\tmp-anttli \sizespec \def\li{\tenli} +\font\tenmr=\tmp-anttm \sizespec \def\mr{\tenmr} +\font\tenmi=\tmp-anttmi \sizespec \def\mi{\tenmi} + +\font\tenrmc=\tmp-anttrcap \sizespec +\font\tenbfc=\tmp-anttbcap \sizespec +\font\tenitc=\tmp-anttricap \sizespec +\font\tenbic=\tmp-anttbicap \sizespec + +\font\tenlrc=\tmp-anttlcap \sizespec +\font\tenlic=\tmp-anttlicap \sizespec +\font\tenmrc=\tmp-anttmcap \sizespec +\font\tenmic=\tmp-anttmicap \sizespec + +\tenrm + +% You can use \cap\rm, \cap\bf, \cap\li + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\regfont\undefined \else + \regfont\tenlr \regfont\tenli + \regfont\tenmr \regfont\tenmi + \regfont\tenrmc \regfont\tenitc + \regfont\tenbfc \regfont\tenbic + \regfont\tenlrc \regfont\tenlic + \regfont\tenmrc \regfont\tenmic +\fi + +\def\txr{cs-anttr} \def\txmi{mi-anttri} +\def\txb{cs-anttb} \def\txbi{mi-anttbi} +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\ifx\font\corkencoded \else \input chars-8z \fi + +% end of cs-antt.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-arev.tex b/Master/texmf-dist/tex/csplain/fonts/cs-arev.tex new file mode 100644 index 00000000000..d0b1cf6fae9 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-arev.tex @@ -0,0 +1,21 @@ +% cs-arev.tex: fonts loading file of ArevSans +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{8t \sizespec}\else + \errmessage{ArevSans is unavailable at CS-encoding. use \noexpand\input t1code.} +\fi + +\message{FONT: ArevSans - + \string\rm, \string\it, \string\bf, \string\bi\space and math loaded.} + +\font\tenrm=favr\tmp +\font\tenbf=favb\tmp +\font\tenit=favri\tmp +\font\tenbi=favbi\tmp + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + + +% end of cs-arev.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-bera.tex b/Master/texmf-dist/tex/csplain/fonts/cs-bera.tex new file mode 100644 index 00000000000..623795823fb --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-bera.tex @@ -0,0 +1,42 @@ +% cs-bera.tex: fonts loading file of Bera fonts +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{8t \sizespec}\else + \errhelp{If you like this font you can try to generate the 8z metrics.} + \errmessage{Bera is unavailable at CS-encoding. use \noexpand\input t1code} +\fi + +\message{FONT: Bera + \string\rm, \string\it, \string\bf, \string\bi, + \string\rms, \string\its, \string\bfs, \string\bis, + \string\tt, \string\ttit, \string\ttbf, \string\ttbi.} + +\font\tenrm=fver\tmp +\font\tenbf=fveb\tmp +\font\tenit=fvero\tmp +\font\tenbi=fvebo\tmp + +\font\tenrms=fvsr\tmp \def\rms{\tenrms} +\font\tenbfs=fvsb\tmp \def\bfs{\tenbfs} +\font\tenits=fvsro\tmp \def\its{\tenits} +\font\tenbis=fvsbo\tmp \def\bis{\tenbis} + +\font\tentt=fvsr\tmp +\font\tenttbf=fvsb\tmp \def\ttbf{\tenttbf} +\font\tenttit=fvsro\tmp \def\ttit{\tenttit} +\font\tenttbi=fvsbo\tmp \def\ttbi{\tenttbi} + +\ifx\regfont\undefined \else + \regfont\tenrm \regfont\tenit + \regfont\tenbf \regfont\tenbi + \regfont\tenrms \regfont\tenits + \regfont\tenbfs \regfont\tenbis + \regfont\tentt \regfont\tenttit + \regfont\tenttbf \regfont\tenttbi +\fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-bera.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-bonum.tex b/Master/texmf-dist/tex/csplain/fonts/cs-bonum.tex new file mode 100644 index 00000000000..c563c5917fd --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-bonum.tex @@ -0,0 +1,36 @@ +% The file cs-bonum.tex (C) Petr Olsak, 2012 +% Use "\input cs-bonum" to set the Termes fonts family in text mode + +\message{FONT: Bonum - + \string\rm, \string\it, \string\bf, \string\bi, \string\caps\string\rm...} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\ifx\font\unicoded \def\famname{texgyrebonum} \input unifam +\else + +\font\tenrm=\tmp-qbkr \sizespec +\font\tenbf=\tmp-qbkb \sizespec +\font\tenit=\tmp-qbkri \sizespec +\font\tenbi=\tmp-qbkbi \sizespec + +\font\tenrmc=\tmp-qbkr-sc \sizespec +\font\tenbfc=\tmp-qbkb-sc \sizespec +\font\tenitc=\tmp-qbkri-sc \sizespec +\font\tenbic=\tmp-qbkbi-sc \sizespec + +\fi + +\tenrm + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-bonum.tex + diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-charter.tex b/Master/texmf-dist/tex/csplain/fonts/cs-charter.tex new file mode 100644 index 00000000000..30a283c3033 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-charter.tex @@ -0,0 +1,20 @@ +% cs-charter.tex: fonts loading file of Charter fonts +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{8t \sizespec}\else \def\tmp{8z \sizespec}\fi + +\message{FONT: Charter - + \string\rm, \string\it, \string\bf, \string\bi} + +\font\tenrm=bchr\tmp +\font\tenbf=bchb\tmp +\font\tenit=bchri\tmp +\font\tenbi=bchbi\tmp + +\tenrm + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-charter.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-cursor.tex b/Master/texmf-dist/tex/csplain/fonts/cs-cursor.tex new file mode 100644 index 00000000000..d0fb9382978 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-cursor.tex @@ -0,0 +1,31 @@ +% The file cs-cursor.tex (C) Petr Olsak, 2012 +% Use "\input cs-cursor" to set the Termes fonts family in text mode + +\message{FONT: Termes - + \string\rm, \string\it, \string\bf, \string\bi, \string\caps\string\rm...} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\font\tenrm=\tmp-qcrr \sizespec +\font\tenbf=\tmp-qcrb \sizespec +\font\tenit=\tmp-qcrri \sizespec +\font\tenbi=\tmp-qcrbi \sizespec + +\font\tenrmc=\tmp-qcrr-sc \sizespec +\font\tenbfc=\tmp-qcrb-sc \sizespec +\font\tenitc=\tmp-qcrri-sc \sizespec +\font\tenbic=\tmp-qcrbi-sc \sizespec + +\tenrm + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-cursor.tex + diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-heros.tex b/Master/texmf-dist/tex/csplain/fonts/cs-heros.tex new file mode 100644 index 00000000000..9db72673eae --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-heros.tex @@ -0,0 +1,57 @@ +% The file cs-heros.tex (C) Petr Olsak, 2012 +% Use "\input cs-heros" to set the Termes fonts family in text mode + +\message{FONT: Heros - + \string\rm, \string\it, \string\bf, \string\bi, + \string\caps\string\rm..., \string\narrow} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\ifx\font\unicoded + \def\famname{texgyreheroscn} \input unifam + \let\tenrmn=\tenrm \let\tenbfn=\tenbf \let\tenitn=\tenit \let\tenbin=\tenbi + \let\tenrmnc=\tenrmc \let\tenbfnc=\tenbfc \let\tenitnc=\tenitc \let\tenbinc=\tenbic + \def\famname{texgyreheros} \input unifam +\else + +\font\tenrm=\tmp-qhvr \sizespec +\font\tenbf=\tmp-qhvb \sizespec +\font\tenit=\tmp-qhvri \sizespec +\font\tenbi=\tmp-qhvbi \sizespec + +\font\tenrmc=\tmp-qhvr-sc \sizespec +\font\tenbfc=\tmp-qhvb-sc \sizespec +\font\tenitc=\tmp-qhvri-sc \sizespec +\font\tenbic=\tmp-qhvbi-sc \sizespec + +\fi + +\tenrm + +\font\tenrmn=\tmp-qhvcr \sizespec +\font\tenbfn=\tmp-qhvcb \sizespec +\font\tenitn=\tmp-qhvcri \sizespec +\font\tenbin=\tmp-qhvcbi \sizespec + +\font\tenrmnc=\tmp-qhvcr-sc \sizespec +\font\tenbfnc=\tmp-qhvcb-sc \sizespec +\font\tenitnc=\tmp-qhvcri-sc \sizespec +\font\tenbinc=\tmp-qhvcbi-sc \sizespec + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\def\narrow{% Switches to Narrow variants + \let\tenrm=\tenrmn \let\tenbf=\tenbfn + \let\tenit=\tenitn \let\tenbi=\tenbin + \let\tenrmc=\tenrmnc \let\tenbfc=\tenbfnc + \let\tenitc=\tenitnc \let\tenbic=\tenbinc \tenrm} + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-heros.tex + diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-pagella.tex b/Master/texmf-dist/tex/csplain/fonts/cs-pagella.tex new file mode 100644 index 00000000000..dde3b41c317 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-pagella.tex @@ -0,0 +1,36 @@ +% The file cs-pagella.tex (C) Petr Olsak, 2012 +% Use "\input cs-pagella" to set the Termes fonts family in text mode + +\message{FONT: Pagella - + \string\rm, \string\it, \string\bf, \string\bi, \string\caps\string\rm...} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\ifx\font\unicoded \def\famname{texgyrepagella} \input unifam +\else + +\font\tenrm=\tmp-qplr \sizespec +\font\tenbf=\tmp-qplb \sizespec +\font\tenit=\tmp-qplri \sizespec +\font\tenbi=\tmp-qplbi \sizespec + +\font\tenrmc=\tmp-qplr-sc \sizespec +\font\tenbfc=\tmp-qplb-sc \sizespec +\font\tenitc=\tmp-qplri-sc \sizespec +\font\tenbic=\tmp-qplbi-sc \sizespec + +\fi + +\tenrm + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-pagella.tex + diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-polta.tex b/Master/texmf-dist/tex/csplain/fonts/cs-polta.tex new file mode 100644 index 00000000000..01d38d03de0 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-polta.tex @@ -0,0 +1,58 @@ +% cs-polta.tex: fonts loading file of Antykwa Poltawskiego +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\message{FONT: Antykwa Poltawskiego - + \string\rm,\string\it,\string\bf,\string\bi,% + \string\lr,\string\li,\string\mr,\string\mi,% + \string\caps\string\rm...} + +\ifx\dgsize\undefined \def\dgsize{10}\fi + +\font\tenrm=\tmp-antpr\dgsize \space\sizespec +\font\tenbf=\tmp-antpb\dgsize \space\sizespec +\font\tenit=\tmp-antpri\dgsize \space\sizespec +\font\tenbi=\tmp-antpbi\dgsize \space\sizespec + +\font\tenlr=\tmp-antpl\dgsize \space\sizespec \def\lr{\tenlr} +\font\tenli=\tmp-antpli\dgsize \space\sizespec \def\li{\tenli} +\font\tenmr=\tmp-antpm\dgsize \space\sizespec \def\mr{\tenmr} +\font\tenmi=\tmp-antpmi\dgsize \space\sizespec \def\mi{\tenmi} + +\font\tenrmc=\tmp-antpr\dgsize-sc \sizespec +\font\tenbfc=\tmp-antpb\dgsize-sc \sizespec +\font\tenitc=\tmp-antpri\dgsize-sc \sizespec +\font\tenbic=\tmp-antpbi\dgsize-sc \sizespec + +\font\tenlrc=\tmp-antpl\dgsize-sc \sizespec +\font\tenlic=\tmp-antpli\dgsize-sc \sizespec +\font\tenmrc=\tmp-antpm\dgsize-sc \sizespec +\font\tenmic=\tmp-antpmi\dgsize-sc \sizespec + +\tenrm + +% You can use \cap\rm, \cap\bf, \cap\li + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\regfont\undefined \else + \regfont\tenrm \regfont\tenit + \regfont\tenbf \regfont\tenbi + \regfont\tenlr \regfont\tenli + \regfont\tenmr \regfont\tenmi + \regfont\tenrmc \regfont\tenitc + \regfont\tenbfc \regfont\tenbic + \regfont\tenlrc \regfont\tenlic + \regfont\tenmrc \regfont\tenmic +\fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\ifx\font\corkencoded \else \input chars-8z \fi + +% end of cs-polta.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-schola.tex b/Master/texmf-dist/tex/csplain/fonts/cs-schola.tex new file mode 100644 index 00000000000..8c5504a56e4 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-schola.tex @@ -0,0 +1,36 @@ +% The file cs-schola.tex (C) Petr Olsak, 2012 +% Use "\input cs-schola" to set the Termes fonts family in text mode + +\message{FONT: Schola - + \string\rm, \string\it, \string\bf, \string\bi, \string\caps\string\rm...} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\ifx\font\unicoded \def\famname{texgyreschola} \input unifam +\else + +\font\tenrm=\tmp-qcsr \sizespec +\font\tenbf=\tmp-qcsb \sizespec +\font\tenit=\tmp-qcsri \sizespec +\font\tenbi=\tmp-qcsbi \sizespec + +\font\tenrmc=\tmp-qcsr-sc \sizespec +\font\tenbfc=\tmp-qcsb-sc \sizespec +\font\tenitc=\tmp-qcsri-sc \sizespec +\font\tenbic=\tmp-qcsbi-sc \sizespec + +\fi + +\tenrm + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-schola.tex + diff --git a/Master/texmf-dist/tex/csplain/fonts/cs-termes.tex b/Master/texmf-dist/tex/csplain/fonts/cs-termes.tex new file mode 100644 index 00000000000..eb2a6e83e86 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/cs-termes.tex @@ -0,0 +1,36 @@ +% The file cs-termes.tex (C) Petr Olsak, 2012 +% Use "\input cs-termes" to set the Termes fonts family in text mode + +\message{FONT: Termes - + \string\rm, \string\it, \string\bf, \string\bi, \string\caps\string\rm...} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\ifx\font\unicoded \def\famname{texgyretermes} \input unifam +\else + +\font\tenrm=\tmp-qtmr \sizespec +\font\tenbf=\tmp-qtmb \sizespec +\font\tenit=\tmp-qtmri \sizespec +\font\tenbi=\tmp-qtmbi \sizespec + +\font\tenrmc=\tmp-qtmr-sc \sizespec +\font\tenbfc=\tmp-qtmb-sc \sizespec +\font\tenitc=\tmp-qtmri-sc \sizespec +\font\tenbic=\tmp-qtmbi-sc \sizespec + +\fi + +\tenrm + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +% end of cs-termes.tex + diff --git a/Master/texmf-dist/tex/csplain/fonts/ctimes.tex b/Master/texmf-dist/tex/csplain/fonts/ctimes.tex new file mode 100644 index 00000000000..f9a85683fcb --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/ctimes.tex @@ -0,0 +1,34 @@ +% The file ctimes.tex (C) Petr Olsak, 1996, 1999, 2012 +% Use "\input ctimes" to set the Times fonts family in text mode + +\message{FONT: Times - + \string\rm, \string\it, \string\bf, \string\bi, \string\tt.} + +\ifx\sizespec\undefined \def\sizespec{}\fi +\ifx\font\corkencoded + \def\tmp{8t \sizespec}\def\tmpa{8t \sizespec} +\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec} +\fi + +\font\tenrm=ptmr\tmp +\font\tenbf=ptmb\tmp +\font\tenit=ptmri\tmp +\font\tenbi=ptmbi\tmp +\font\tentt=pcrr\tmpa +\let\tensl=\tenit + +\tenrm + +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\normalTXmath\undefined \input tx-math \else\normalTXmath \fi + +\let\setsimplemath=\relax % this command is obsolete + +% The \TeX logo corrected by Ivo Jancik for Times fonts family +\def\tmTeX{T\kern-.1667em\lower.3333ex\hbox{E}\kern-.125emX} +\ifx\origTeX\undefined \let\origTeX=\TeX \fi +\let\TeX=\tmTeX + +% end of ctimes.tex + diff --git a/Master/texmf-dist/tex/csplain/base/dcfonts.tex b/Master/texmf-dist/tex/csplain/fonts/dcfonts.tex index 55a3c9288cc..55a3c9288cc 100644 --- a/Master/texmf-dist/tex/csplain/base/dcfonts.tex +++ b/Master/texmf-dist/tex/csplain/fonts/dcfonts.tex diff --git a/Master/texmf-dist/tex/csplain/base/ecfonts.tex b/Master/texmf-dist/tex/csplain/fonts/ecfonts.tex index 4e784ca4bff..4e784ca4bff 100644 --- a/Master/texmf-dist/tex/csplain/base/ecfonts.tex +++ b/Master/texmf-dist/tex/csplain/fonts/ecfonts.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/lmfonts.tex b/Master/texmf-dist/tex/csplain/fonts/lmfonts.tex new file mode 100644 index 00000000000..36f8b69662b --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/lmfonts.tex @@ -0,0 +1,70 @@ +% lmfonts.tex: loads Latin Modern fonts by plainTeX macros +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +\message{FONT: Latin Modern fonts - + \string\rm, \string\it, \string\bf, \string\bi, \string\caps\string\rm,... + math.} + +\ifx\sizespec\undefined \def\sizespec{}\fi + +\ifx\regtfm\undefined \input ams-math \fi +\ifx\font\corkencoded \else \input chars-8z \fi + +\ifx\font\corkencoded \def\tmp{ec}\else \def\tmp{cs}\fi + +\ifx\font\unicoded \def\famname{lmroman10} \input unifam + \font\tentt="[lmmono10-regular]" \sizespec +\else + \font\tenrm=\tmp-lmr10 \sizespec + \font\tenbf=\tmp-lmbx10 \sizespec + \font\tenit=\tmp-lmri10 \sizespec + \font\tenbi=\tmp-lmbxi10 \sizespec + \ifx\font\corkencoded + \font\tentt=\tmp-lmtt10 \sizespec + \else + \font\tentt=cstt10 \sizespec % there is no right-encoded LMfont + \fi + \font\tenrmc=\tmp-lmcsc10 \sizespec + \font\tenitc=\tmp-lmcsco10 \sizespec +\fi + +\tenrm + +\def\caps#1{{\escapechar=-1 \expandafter}% + \expandafter\csname\expandafter\tenonlytext\string#1c\endcsname} +\def\tenonlytext{ten} + +\def\exregtfm #1*{\edef\tmpa{#1*}\expandafter\regtfm\tmpa} + +\exregtfm cmr 0 \tmp-lmr5 5.5 \tmp-lmr6 6.5 \tmp-lmr7 7.5 \tmp-lmr8 8.5 + \tmp-lmr9 9.5 \tmp-lmr10 11.1 \tmp-lmr12 15 \tmp-lmr17 * +\exregtfm cmbx 0 \tmp-lmbx5 5.5 \tmp-lmbx6 6.5 \tmp-lmbx7 7.5 \tmp-lmbx8 8.5 + \tmp-lmbx9 9.5 \tmp-lmbx10 11.1 \tmp-lmbx12 * +\exregtfm cmsl 0 \tmp-lmro8 8.5 \tmp-lmro9 9.5 \tmp-lmro10 11.1 + \tmp-lmro12 15 \tmp-lmro17 * +\exregtfm cmtt 0 \tmp-lmtt8 8.5 \tmp-lmtt9 9.5 \tmp-lmtt10 11.1 \tmp-lmtt12 * +\exregtfm cmss 0 \tmp-lmss8 8.5 \tmp-lmss9 9.5 \tmp-lmss10 11.1 \tmp-lmss12 15 + \tmp-lmss17 * +\exregtfm cmssi 0 \tmp-lmsso8 8.5 \tmp-lmsso9 9.5 \tmp-lmsso10 11.1 + \tmp-lmsso12 15 \tmp-lmsso17 * +\exregtfm cmti 0 \tmp-lmri7 7.5 \tmp-lmri8 8.5 \tmp-lmri9 9.5 + \tmp-lmri10 11.1 \tmp-lmri12 * +\exregtfm cmbxti 0 \tmp-lmbxi10 * +% CM math fonts +\regtfm cmmi 0 lmmi5 5.5 lmmi6 6.5 lmmi7 7.5 lmmi8 8.5 lmmi9 9.5 + lmmi10 11.1 lmmi12 * +\regtfm cmmib 0 lmmib5 6 lmmib7 8.5 lmmib10 * +\regtfm cmsy 0 lmsy5 5.5 lmsy6 6.5 lmsy7 7.5 lmsy8 8.5 lmsy9 9.5 + lmsy10 * +\regtfm cmbsy 0 lmbsy5 6 lmbsy7 8.5 lmbsy10 * +\regtfm cmex 0 lmex10 * +\regtfm cmexb 0 lmex10 * +% Fonts Other +\exregtfm bfsans 0 \tmp-lmssbx10 * +\exregtfm bisans 0 \tmp-lmssbo10 * +\exregtfm bbfsans 0 \tmp-lmssbx10 * +\exregtfm bbisans 0 \tmp-lmssbo10 * + +\let\lmfonts=\font % macros can do test: \ifx\font\lmfonts ... + +% end of lmfonts.tex diff --git a/Master/texmf-dist/tex/csplain/fonts/luafonts.tex b/Master/texmf-dist/tex/csplain/fonts/luafonts.tex new file mode 100644 index 00000000000..cc157a5b1e0 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/luafonts.tex @@ -0,0 +1,27 @@ +% I don't understand this. This is a result of my reverse engeneering of the +% fontspec package. +% LuaTeX needs these \directlua in order to \font primitive works like in XeTeX. +% Petr Olsak Nov. 2012 + +%\iffalse +\message{processing luaotfload.lua } +\directlua{luatexbase = luatexbase or {} + luatexbase.luatexversion = \the\luatexversion\space + luatexbase.luatexrevision = \luatexrevision\space + require('luatexbase.attr') + require('luatexbase.cctb') + require('luatexbase.modutils') + oriwrite = texio.write_nl % I don't need to see unusual info + function texio.write_nl(...) end + require('luatexbase.mcb') + luatexbase.require_module('lualibs') + luatexbase.require_module('luaotfload') + texio.write_nl = oriwrite % return to original meaning +} +%\fi +%\directlua { +% dofile(kpse.find_file("luatex-fonts.lua","tex")) +%} +\global\let\luafonts=\relax + +\endinput diff --git a/Master/texmf-dist/tex/csplain/fonts/tx-math.tex b/Master/texmf-dist/tex/csplain/fonts/tx-math.tex new file mode 100644 index 00000000000..e02a1bc3796 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/tx-math.tex @@ -0,0 +1,710 @@ +% This file loads TX math fonts by plainTeX macros +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +\message{FONT: TX math fonts - \string\mathchardef's prepared, 14 math families preloaded.} + +% After \input tx-math +% +% you can use hundreds characters from TX math fonts +% (see TX Fonts manual or \mathchardefs below). +% By default: - the fonts are loaded at 10/7/5 sizes. +% - variables are typeset by current text italic, +% - digits and \sin, \cos, etc. are typeset by current text rm +% +% You can use the following alphabets: +% \mit ...... mathematical variables +% \rm, \it .. text roman font, text italic +% \bf, \bi .. bold sans fonts (may be different than text fonts) +% \cal ... normal calligraphics +% \script ... script +% \frak ... fraktur +% \bbchar ... double stroked letters +% +% You can reload all families of math fonts in two shapes: +% \normalmath ... normal shape +% \boldmath ... bold shape at implicit sizes or sizes set by +% Before reloading the fonts by previous comand you can set the sizes: +% \setmathsizes[text/script/scriptscript] +% Example \setmathsizes[12/8.4/6]\normalmath ... load fonts at given sizes +% +% You can set typesetting of math variables from TX font, not from current +% text font, by the command: \mitvariables. The \itvariables reverts to the +% default. + +\def\normalmath{% + \loadmathfamily 0 {\txr} % TX Roman + \loadmathfamily 1 {\txmi} % TX Math Italic + \loadmathfamily 2 txsy % TX Standard symbols + \loadmathfamily 3 txex % TX extra symbols + \loadmathfamily 4 txsya % TX symbols from AMSTeX + \loadmathfamily 5 txsyb % TX symbols from AMSTeX + \loadmathfamily 6 txsyc % symbols from TX fonts + \loadmathfamily 7 txexa % TX new extra symbols + \loadmathfamily 8 txmia % fraktur, upright greek + \loadmathfamily 9 rsfs10 % script + \loadmathfamily 10 {\bfsans} % sans serif bold + \loadmathfamily 11 {\bisans} % sans serif bold slanted (for vectors) + \chardef\rmfam 12 \setmathfamily \rmfam \tenrm + \chardef\itfam 13 \setmathfamily \itfam \tenit + \setmathdimens +} +\def\boldmath{% + \loadmathfamily 0 {\txb} % TX Roman + \loadmathfamily 1 {\txbmi} % TX Math Italic + \loadmathfamily 2 txbsy % TX Standard symbols + \loadmathfamily 3 txbex % TX extra symbols + \loadmathfamily 4 txbsya % TX symbols from AMSTeX + \loadmathfamily 5 txbsyb % TX symbols from AMSTeX + \loadmathfamily 6 txbsyc % symbols from TX fonts + \loadmathfamily 7 txbexa % TX new extra symbols + \loadmathfamily 8 txbmia % fraktur, upright greek + \loadmathfamily 9 rsfs10 % \bf script is unavailable + \loadmathfamily 10 {\bbfsans} % sans serif bold + \loadmathfamily 11 {\bbisans} % sans serif bold slanted (for vectors) + \chardef\rmfam 12 \setmathfamily \rmfam \tenbf + \chardef\itfam 13 \setmathfamily \itfam \tenbi + \setmathdimens +} +\count18=13 % families declared by \newfam are 14, 15 only + +\let\normalTXmath=\normalmath \let\boldTXmath=\boldmath + +\chardef\bffam 10 % sans serif bold +\chardef\bifam 11 % sans serif bold slanted +\def\bi{\tenbi \fam\bifam} % in csplain is done \def\bi{\tenbi} only +\def\bbchar{\fam5 } % double stroked letters +\def\frak{\fam8 } % fraktur +\def\script{\fam9 } % more extensive script than \cal +\chardef\slfam 10 % similar to slanted font from plainTeX +\chardef\ttfam 13 % \tt in math is unusable + +% Macro engineer can define the \fam0, \fam1, \bffam and \bifam fonts +% by his opinion. For example: \def\txr{cs-anttr} \def\txmi{mi-anttri} +% in cs-antt.tex file. The following vaules are only defaults: + +\def\txxdef#1#2{\ifx#1\undefined\def#1{#2}\fi} + +\txxdef\txr{txr}\txxdef\txmi{txmi} % \fam0, \fam1 normal +\txxdef\txb{txb}\txxdef\txbmi{txbmi} % \fam0, \fam1 bold +\txxdef\bfsans{phvb8z}\txxdef\bisans{phvbo8z} % \bffam, \bifam normal +\txxdef\bbfsans{phvb8z}\txxdef\bbisans{phvbo8z} % \bffam, \bifam bold +\ifx\corrmsizes\undefined % wee need to correct + \def\corrmsizes#1{\ifnum#1=10 \ptmunit=.83pt \fi % the sizes o phvb8t and + \ifnum#1=11 \ptmunit=.83pt \fi} % phvbo8t fonts +\fi + +% macros: + +\def\itvariables{\def\rm{\fam\rmfam \tenrm}% + \mathcodechanges C:0-9\mathcodechanges D:A-Z\mathcodechanges D:a-z} +\def\mitvariables{\def\rm{\fam0\tenrm}% + \mathcodechanges 0:0-9\mathcodechanges 1:A-Z\mathcodechanges 1:a-z} + +\def\loadmathfamily #1 #2 {\corrmsizes{#1}% + \font\tmp = #2 at\sizemtext \textfont#1=\tmp + \font\tmp = #2 at\sizemscript \scriptfont#1=\tmp + \font\tmp = #2 at\sizemsscript \scriptscriptfont#1=\tmp + \ptmunit=1pt +} +\def\setmathfamily #1#2{% + \font\tmp = \specfontname #2 at\sizemtext \textfont#1=\tmp + \font\tmp = \specfontname #2 at\sizemscript \scriptfont#1=\tmp + \font\tmp = \specfontname #2 at\sizemsscript \scriptscriptfont#1=\tmp +} +\def\specfontname #1{\expandafter \ignoreatpt \fontname #1 \relax} +\def\ignoreatpt #1 #2\relax{#1} +\def\mathcodechanges#1:#2-#3{\chardef\tmp=\count0 \chardef\tmpa=\count1 + \count0=`#2 \count1=\count0 \advance\count1 by"7#100 + \loop \mathcode\count0=\count1 + \ifnum\count0<`#3 \advance\count0 by1 \advance\count1 by1 \repeat + \count0=\tmp \count1=\tmpa +} +\def\setmathdimens{% PlainTeX sets these dimens for 10pt size only: + \delimitershortfall=0.5\fontdimen6\textfont3 + \nulldelimiterspace=0.12\fontdimen6\textfont3 + \scriptspace=0.05\fontdimen6\textfont3 + \skewchar\textfont1=127 \skewchar\scriptfont1=127 + \skewchar\scriptscriptfont1=127 + \skewchar\textfont2=48 \skewchar\scriptfont2=48 + \skewchar\scriptscriptfont2=48 +} + +\def\setmathsizes[#1/#2/#3]{% + \def\sizemtext{#1\ptmunit}\def\sizemscript{#2\ptmunit}% + \def\sizemsscript{#3\ptmunit}% +} +\newdimen\ptmunit \ptmunit=1pt +\setmathsizes[10/7/5] + +\ifx\tenbi\undefined \font\tenbi=ptmbi8z \relax \fi +\normalmath % load families, normal shape +\itvariables % \rm in math and avriables in math by current text font + +%% \mathchardef declarations + +\def\amsafam{4} \def\amsbfam{5} \def\txsycfam{6} +\def\txexafam{7} \def\txmiafam{8} + +%% AMSA + +\mathchardef \boxdot "2\amsafam 00 +\mathchardef \boxplus "2\amsafam 01 +\mathchardef \boxtimes "2\amsafam 02 +\mathchardef \square "0\amsafam 03 +\mathchardef \blacksquare "0\amsafam 04 +\mathchardef \centerdot "2\amsafam 05 +\mathchardef \lozenge "0\amsafam 06 +\mathchardef \blacklozenge "0\amsafam 07 +\mathchardef \circlearrowright "3\amsafam 08 +\mathchardef \circlearrowleft "3\amsafam 09 +\mathchardef \rightleftharpoons "3\amsafam 0A +\mathchardef \leftrightharpoons "3\amsafam 0B +\mathchardef \boxminus "2\amsafam 0C +\mathchardef \Vdash "3\amsafam 0D +\mathchardef \Vvdash "3\amsafam 0E +\mathchardef \vDash "3\amsafam 0F +\mathchardef \twoheadrightarrow "3\amsafam 10 +\mathchardef \twoheadleftarrow "3\amsafam 11 +\mathchardef \leftleftarrows "3\amsafam 12 +\mathchardef \rightrightarrows "3\amsafam 13 +\mathchardef \upuparrows "3\amsafam 14 +\mathchardef \downdownarrows "3\amsafam 15 +\mathchardef \upharpoonright "3\amsafam 16 +\mathchardef \downharpoonright "3\amsafam 17 +\mathchardef \upharpoonleft "3\amsafam 18 +\mathchardef \downharpoonleft "3\amsafam 19 +\mathchardef \rightarrowtail "3\amsafam 1A +\mathchardef \leftarrowtail "3\amsafam 1B +\mathchardef \leftrightarrows "3\amsafam 1C +\mathchardef \rightleftarrows "3\amsafam 1D +\mathchardef \Lsh "3\amsafam 1E +\mathchardef \Rsh "3\amsafam 1F +\mathchardef \rightsquigarrow "3\amsafam 20 +\mathchardef \leftrightsquigarrow "3\amsafam 21 +\mathchardef \looparrowleft "3\amsafam 22 +\mathchardef \looparrowright "3\amsafam 23 +\mathchardef \circeq "3\amsafam 24 +\mathchardef \succsim "3\amsafam 25 +\mathchardef \gtrsim "3\amsafam 26 +\mathchardef \gtrapprox "3\amsafam 27 +\mathchardef \multimap "3\amsafam 28 +\mathchardef \therefore "3\amsafam 29 +\mathchardef \because "3\amsafam 2A +\mathchardef \doteqdot "3\amsafam 2B +\mathchardef \triangleq "3\amsafam 2C +\mathchardef \precsim "3\amsafam 2D +\mathchardef \lesssim "3\amsafam 2E +\mathchardef \lessapprox "3\amsafam 2F +\mathchardef \eqslantless "3\amsafam 30 +\mathchardef \eqslantgtr "3\amsafam 31 +\mathchardef \curlyeqprec "3\amsafam 32 +\mathchardef \curlyeqsucc "3\amsafam 33 +\mathchardef \preccurlyeq "3\amsafam 34 +\mathchardef \leqq "3\amsafam 35 +\mathchardef \leqslant "3\amsafam 36 +\mathchardef \lessgtr "3\amsafam 37 +\mathchardef \backprime "0\amsafam 38 +\mathchardef \risingdotseq "3\amsafam 3A +\mathchardef \fallingdotseq "3\amsafam 3B +\mathchardef \succcurlyeq "3\amsafam 3C +\mathchardef \geqq "3\amsafam 3D +\mathchardef \geqslant "3\amsafam 3E +\mathchardef \gtrless "3\amsafam 3F +\mathchardef \sqsubset "3\amsafam 40 +\mathchardef \sqsupset "3\amsafam 41 +\mathchardef \vartriangleright "3\amsafam 42 +\mathchardef \vartriangleleft "3\amsafam 43 +\mathchardef \trianglerighteq "3\amsafam 44 +\mathchardef \trianglelefteq "3\amsafam 45 +\mathchardef \bigstar "0\amsafam 46 +\mathchardef \between "3\amsafam 47 +\mathchardef \blacktriangledown "0\amsafam 48 +\mathchardef \blacktriangleright "3\amsafam 49 +\mathchardef \blacktriangleleft "3\amsafam 4A +\mathchardef \vartriangle "3\amsafam 4D +\mathchardef \blacktriangle "0\amsafam 4E +\mathchardef \triangledown "0\amsafam 4F +\mathchardef \eqcirc "3\amsafam 50 +\mathchardef \lesseqgtr "3\amsafam 51 +\mathchardef \gtreqless "3\amsafam 52 +\mathchardef \lesseqqgtr "3\amsafam 53 +\mathchardef \gtreqqless "3\amsafam 54 +\mathchardef \Rrightarrow "3\amsafam 56 +\mathchardef \Lleftarrow "3\amsafam 57 +\mathchardef \veebar "2\amsafam 59 +\mathchardef \barwedge "2\amsafam 5A +\mathchardef \doublebarwedge "2\amsafam 5B +\mathchardef \angle "0\amsafam 5C +\mathchardef \measuredangle "0\amsafam 5D +\mathchardef \sphericalangle "0\amsafam 5E +\mathchardef \varpropto "3\amsafam 5F +\mathchardef \smallsmile "3\amsafam 60 +\mathchardef \smallfrown "3\amsafam 61 +\mathchardef \Subset "3\amsafam 62 +\mathchardef \Supset "3\amsafam 63 +\mathchardef \Cup "2\amsafam 64 +\mathchardef \Cap "2\amsafam 65 +\mathchardef \curlywedge "2\amsafam 66 +\mathchardef \curlyvee "2\amsafam 67 +\mathchardef \leftthreetimes "2\amsafam 68 +\mathchardef \rightthreetimes "2\amsafam 69 +\mathchardef \subseteqq "3\amsafam 6A +\mathchardef \supseteqq "3\amsafam 6B +\mathchardef \bumpeq "3\amsafam 6C +\mathchardef \Bumpeq "3\amsafam 6D +\mathchardef \lll "3\amsafam 6E +\mathchardef \ggg "3\amsafam 6F +\def \ulcorner {\delimiter"4\amsafam 70\amsafam 70 } +\def \urcorner {\delimiter"5\amsafam 71\amsafam 71 } +\mathchardef \circledS "0\amsafam 73 +\mathchardef \pitchfork "3\amsafam 74 +\mathchardef \dotplus "2\amsafam 75 +\mathchardef \backsim "3\amsafam 76 +\mathchardef \backsimeq "3\amsafam 77 +\def \llcorner {\delimiter"4\amsafam 78\amsafam 78 } +\def \lrcorner {\delimiter"5\amsafam 79\amsafam 79 } +\mathchardef \complement "0\amsafam 7B +\mathchardef \intercal "2\amsafam 7C +\mathchardef \circledcirc "2\amsafam 7D +\mathchardef \circledast "2\amsafam 7E +\mathchardef \circleddash "2\amsafam 7F +\mathchardef \rhd "2\amsafam 42 +\mathchardef \lhd "2\amsafam 43 +\mathchardef \unrhd "2\amsafam 44 +\mathchardef \unlhd "2\amsafam 45 + + \let\restriction\upharpoonright + \let\Doteq\doteqdot + \let\doublecup\Cup + \let\doublecap\Cap + \let\llless\lll + \let\gggtr\ggg + \let\Box=\square % LaTeX symbol + \let\Box=\square % LaTeX symbol + +%% AMSB + +\mathchardef \lvertneqq "3\amsbfam 00 +\mathchardef \gvertneqq "3\amsbfam 01 +\mathchardef \nleq "3\amsbfam 02 +\mathchardef \ngeq "3\amsbfam 03 +\mathchardef \nless "3\amsbfam 04 +\mathchardef \ngtr "3\amsbfam 05 +\mathchardef \nprec "3\amsbfam 06 +\mathchardef \nsucc "3\amsbfam 07 +\mathchardef \lneqq "3\amsbfam 08 +\mathchardef \gneqq "3\amsbfam 09 +\mathchardef \nleqslant "3\amsbfam 0A +\mathchardef \ngeqslant "3\amsbfam 0B +\mathchardef \lneq "3\amsbfam 0C +\mathchardef \gneq "3\amsbfam 0D +\mathchardef \npreceq "3\amsbfam 0E +\mathchardef \nsucceq "3\amsbfam 0F +\mathchardef \precnsim "3\amsbfam 10 +\mathchardef \succnsim "3\amsbfam 11 +\mathchardef \lnsim "3\amsbfam 12 +\mathchardef \gnsim "3\amsbfam 13 +\mathchardef \nleqq "3\amsbfam 14 +\mathchardef \ngeqq "3\amsbfam 15 +\mathchardef \precneqq "3\amsbfam 16 +\mathchardef \succneqq "3\amsbfam 17 +\mathchardef \precnapprox "3\amsbfam 18 +\mathchardef \succnapprox "3\amsbfam 19 +\mathchardef \lnapprox "3\amsbfam 1A +\mathchardef \gnapprox "3\amsbfam 1B +\mathchardef \nsim "3\amsbfam 1C +\mathchardef \ncong "3\amsbfam 1D +\mathchardef \diagup "0\amsbfam 1E +\mathchardef \diagdown "0\amsbfam 1F +\mathchardef \varsubsetneq "3\amsbfam 20 +\mathchardef \varsupsetneq "3\amsbfam 21 +\mathchardef \nsubseteqq "3\amsbfam 22 +\mathchardef \nsupseteqq "3\amsbfam 23 +\mathchardef \subsetneqq "3\amsbfam 24 +\mathchardef \supsetneqq "3\amsbfam 25 +\mathchardef \varsubsetneqq "3\amsbfam 26 +\mathchardef \varsupsetneqq "3\amsbfam 27 +\mathchardef \subsetneq "3\amsbfam 28 +\mathchardef \supsetneq "3\amsbfam 29 +\mathchardef \nsubseteq "3\amsbfam 2A +\mathchardef \nsupseteq "3\amsbfam 2B +\mathchardef \nparallel "3\amsbfam 2C +\mathchardef \nmid "3\amsbfam 2D +\mathchardef \nshortmid "3\amsbfam 2E +\mathchardef \nshortparallel "3\amsbfam 2F +\mathchardef \nvdash "3\amsbfam 30 +\mathchardef \nVdash "3\amsbfam 31 +\mathchardef \nvDash "3\amsbfam 32 +\mathchardef \nVDash "3\amsbfam 33 +\mathchardef \ntrianglerighteq "3\amsbfam 34 +\mathchardef \ntrianglelefteq "3\amsbfam 35 +\mathchardef \ntriangleleft "3\amsbfam 36 +\mathchardef \ntriangleright "3\amsbfam 37 +\mathchardef \nleftarrow "3\amsbfam 38 +\mathchardef \nrightarrow "3\amsbfam 39 +\mathchardef \nLeftarrow "3\amsbfam 3A +\mathchardef \nRightarrow "3\amsbfam 3B +\mathchardef \nLeftrightarrow "3\amsbfam 3C +\mathchardef \nleftrightarrow "3\amsbfam 3D +\mathchardef \divideontimes "2\amsbfam 3E +\mathchardef \varnothing "0\amsbfam 3F +\mathchardef \nexists "0\amsbfam 40 +\mathchardef \Finv "0\amsbfam 60 +\mathchardef \Game "0\amsbfam 61 +\mathchardef \mho "0\amsbfam 66 +\mathchardef \eth "0\amsbfam 67 +\mathchardef \eqsim "3\amsbfam 68 +\mathchardef \beth "0\amsbfam 69 +\mathchardef \gimel "0\amsbfam 6A +\mathchardef \daleth "0\amsbfam 6B +\mathchardef \lessdot "2\amsbfam 6C +\mathchardef \gtrdot "2\amsbfam 6D +\mathchardef \ltimes "2\amsbfam 6E +\mathchardef \rtimes "2\amsbfam 6F +\mathchardef \shortmid "3\amsbfam 70 +\mathchardef \shortparallel "3\amsbfam 71 +\mathchardef \smallsetminus "2\amsbfam 72 +\mathchardef \thicksim "3\amsbfam 73 +\mathchardef \thickapprox "3\amsbfam 74 +\mathchardef \approxeq "3\amsbfam 75 +\mathchardef \precapprox "3\amsbfam 76 +\mathchardef \succapprox "3\amsbfam 77 +\mathchardef \curvearrowleft "3\amsbfam 78 +\mathchardef \curvearrowright "3\amsbfam 79 +\mathchardef \digamma "0\amsbfam 7A +\mathchardef \varkappa "0\amsbfam 7B +\mathchardef \Bbbk "0\amsbfam 7C +\mathchardef \hslash "0\amsbfam 7D +\mathchardef \hbar "0\amsbfam 7E +\mathchardef \backepsilon "3\amsbfam 7F + +%% TXC + +\mathchardef \mappedfromchar "3\txsycfam 00 +\mathchardef \Mapstochar "3\txsycfam 01 +\mathchardef \Mappedfromchar "3\txsycfam 02 +\mathchardef \mmapstochar "3\txsycfam 03 +\mathchardef \mmappedfromchar "3\txsycfam 04 +\mathchardef \Mmapstochar "3\txsycfam 05 +\mathchardef \Mmappedfromchar "3\txsycfam 06 +\mathchardef \medcirc "2\txsycfam 07 +\mathchardef \medbullet "2\txsycfam 08 +\mathchardef \varparallel "3\txsycfam 09 +\mathchardef \varparallelinv "3\txsycfam 0A +\mathchardef \nvarparallel "3\txsycfam 0B +\mathchardef \nvarparallelinv "3\txsycfam 0C +\mathchardef \colonapprox "3\txsycfam 0D +\mathchardef \colonsim "3\txsycfam 0E +\mathchardef \Colonapprox "3\txsycfam 0F +\mathchardef \Colonsim "3\txsycfam 10 +\mathchardef \doteq "3\txsycfam 11 +\mathchardef \multimapinv "3\txsycfam 12 +\mathchardef \multimapboth "3\txsycfam 13 +\mathchardef \multimapdot "3\txsycfam 14 +\mathchardef \multimapdotinv "3\txsycfam 15 +\mathchardef \multimapdotboth "3\txsycfam 16 +\mathchardef \multimapdotbothA "3\txsycfam 17 +\mathchardef \multimapdotbothB "3\txsycfam 18 +\mathchardef \VDash "3\txsycfam 19 +\mathchardef \VvDash "3\txsycfam 1A +\mathchardef \cong "3\txsycfam 1B +\mathchardef \preceqq "3\txsycfam 1C +\mathchardef \succeqq "3\txsycfam 1D +\mathchardef \nprecsim "3\txsycfam 1E +\mathchardef \nsuccsim "3\txsycfam 1F +\mathchardef \nlesssim "3\txsycfam 20 +\mathchardef \ngtrsim "3\txsycfam 21 +\mathchardef \nlessapprox "3\txsycfam 22 +\mathchardef \ngtrapprox "3\txsycfam 23 +\mathchardef \npreccurlyeq "3\txsycfam 24 +\mathchardef \nsucccurlyeq "3\txsycfam 25 +\mathchardef \ngtrless "3\txsycfam 26 +\mathchardef \nlessgtr "3\txsycfam 27 +\mathchardef \nbumpeq "3\txsycfam 28 +\mathchardef \nBumpeq "3\txsycfam 29 +\mathchardef \nbacksim "3\txsycfam 2A +\mathchardef \nbacksimeq "3\txsycfam 2B +\mathchardef \neq "3\txsycfam 2C +\mathchardef \nasymp "3\txsycfam 2D +\mathchardef \nequiv "3\txsycfam 2E +\mathchardef \nsim "3\txsycfam 2F +\mathchardef \napprox "3\txsycfam 30 +\mathchardef \nsubset "3\txsycfam 31 +\mathchardef \nsupset "3\txsycfam 32 +\mathchardef \nll "3\txsycfam 33 +\mathchardef \ngg "3\txsycfam 34 +\mathchardef \nthickapprox "3\txsycfam 35 +\mathchardef \napproxeq "3\txsycfam 36 +\mathchardef \nprecapprox "3\txsycfam 37 +\mathchardef \nsuccapprox "3\txsycfam 38 +\mathchardef \npreceqq "3\txsycfam 39 +\mathchardef \nsucceqq "3\txsycfam 3A +\mathchardef \nsimeq "3\txsycfam 3B +\mathchardef \notin "3\txsycfam 3C +\mathchardef \notni "3\txsycfam 3D +\mathchardef \nSubset "3\txsycfam 3E +\mathchardef \nSupset "3\txsycfam 3F +\mathchardef \nsqsubseteq "3\txsycfam 40 +\mathchardef \nsqsupseteq "3\txsycfam 41 +\mathchardef \coloneqq "3\txsycfam 42 +\mathchardef \eqqcolon "3\txsycfam 43 +\mathchardef \coloneq "3\txsycfam 44 +\mathchardef \eqcolon "3\txsycfam 45 +\mathchardef \Coloneqq "3\txsycfam 46 +\mathchardef \Eqqcolon "3\txsycfam 47 +\mathchardef \Coloneq "3\txsycfam 48 +\mathchardef \Eqcolon "3\txsycfam 49 +\mathchardef \strictif "3\txsycfam 4A +\mathchardef \strictfi "3\txsycfam 4B +\mathchardef \strictiff "3\txsycfam 4C +\mathchardef \invamp "2\txsycfam 4D +\def \lbag {\delimiter"4\txsycfam 4E\txexafam 30 } +\def \rbag {\delimiter"5\txsycfam 4F\txexafam 31 } +\mathchardef \Lbag "4\txsycfam 50 +\mathchardef \Rbag "5\txsycfam 51 +\mathchardef \circledless "3\txsycfam 52 +\mathchardef \circledgtr "3\txsycfam 53 +\mathchardef \circledwedge "2\txsycfam 54 +\mathchardef \circledvee "2\txsycfam 55 +\mathchardef \circledbar "2\txsycfam 56 +\mathchardef \circledbslash "2\txsycfam 57 +\mathchardef \lJoin "3\txsycfam 58 +\mathchardef \rJoin "3\txsycfam 59 +\mathchardef \Join "3\txsycfam 5A +\mathchardef \openJoin "3\txsycfam 5B +\mathchardef \lrtimes "3\txsycfam 5C +\mathchardef \opentimes "3\txsycfam 5D +\mathchardef \Diamond "0\txsycfam 5E +\mathchardef \Diamondblack "0\txsycfam 5F +\mathchardef \nplus "2\txsycfam 60 +\mathchardef \nsqsubset "3\txsycfam 61 +\mathchardef \nsqsupset "3\txsycfam 62 +\mathchardef \dashleftarrow "3\txsycfam 63 +\mathchardef \dashrightarrow "3\txsycfam 64 +\mathchardef \dashleftrightarrow "3\txsycfam 65 +\mathchardef \leftsquigarrow "3\txsycfam 66 +\mathchardef \ntwoheadrightarrow "3\txsycfam 67 +\mathchardef \ntwoheadleftarrow "3\txsycfam 68 +\mathchardef \boxast "2\txsycfam 69 +\mathchardef \boxbslash "2\txsycfam 6A +\mathchardef \boxbar "2\txsycfam 6B +\mathchardef \boxslash "2\txsycfam 6C +\mathchardef \Wr "2\txsycfam 6D +\mathchardef \lambdaslash "0\txsycfam 6E +\mathchardef \lambdabar "0\txsycfam 6F +\mathchardef \varclubsuit "0\txsycfam 70 +\mathchardef \vardiamondsuit "0\txsycfam 71 +\mathchardef \varheartsuit "0\txsycfam 72 +\mathchardef \varspadesuit "0\txsycfam 73 +\mathchardef \Nearrow "3\txsycfam 74 +\mathchardef \Searrow "3\txsycfam 75 +\mathchardef \Nwarrow "3\txsycfam 76 +\mathchardef \Swarrow "3\txsycfam 77 +\mathchardef \Top "0\txsycfam 78 +\mathchardef \Bot "0\txsycfam 79 +\mathchardef \Perp "3\txsycfam 79 +\mathchardef \leadstoext "3\txsycfam 7A +\mathchardef \leadsto "3\txsycfam 7B +\mathchardef \sqcupplus "2\txsycfam 7C +\mathchardef \sqcapplus "2\txsycfam 7D +\def \llbracket {\delimiter"4\txsycfam 7E\txexafam 12 } +\def \rrbracket {\delimiter"5\txsycfam 7F\txexafam 13 } +\mathchardef \boxright "3\txsycfam 80 +\mathchardef \boxleft "3\txsycfam 81 +\mathchardef \boxdotright "3\txsycfam 82 +\mathchardef \boxdotleft "3\txsycfam 83 +\mathchardef \Diamondright "3\txsycfam 84 +\mathchardef \Diamondleft "3\txsycfam 85 +\mathchardef \Diamonddotright "3\txsycfam 86 +\mathchardef \Diamonddotleft "3\txsycfam 87 +\mathchardef \boxRight "3\txsycfam 88 +\mathchardef \boxLeft "3\txsycfam 89 +\mathchardef \boxdotRight "3\txsycfam 8A +\mathchardef \boxdotLeft "3\txsycfam 8B +\mathchardef \DiamondRight "3\txsycfam 8C +\mathchardef \DiamondLeft "3\txsycfam 8D +\mathchardef \DiamonddotRight "3\txsycfam 8E +\mathchardef \DiamonddotLeft "3\txsycfam 8F +\mathchardef \Diamonddot "0\txsycfam 90 +\mathchardef \circleright "3\txsycfam 91 +\mathchardef \circleleft "3\txsycfam 92 +\mathchardef \circleddotright "3\txsycfam 93 +\mathchardef \circleddotleft "3\txsycfam 94 +\mathchardef \multimapbothvert "3\txsycfam 95 +\mathchardef \multimapdotbothvert "3\txsycfam 96 +\mathchardef \multimapdotbothBvert "3\txsycfam 97 +\mathchardef \multimapdotbothAvert "3\txsycfam 98 + + \def\mappedfrom{\leftarrow\mappedfromchar} + \def\longmappedfrom{\longleftarrow\mappedfromchar} + \def\Mapsto{\Mapstochar\Rightarrow} + \def\Longmapsto{\Mapstochar\Longrightarrow} + \def\Mappedfrom{\Leftarrow\Mappedfromchar} + \def\Longmappedfrom{\Longleftarrow\Mappedfromchar} + \def\mmapsto{\mmapstochar\rightarrow} + \def\longmmapsto{\mmapstochar\longrightarrow} + \def\mmappedfrom{\leftarrow\mmappedfromchar} + \def\longmmappedfrom{\longleftarrow\mmappedfromchar} + \def\Mmapsto{\Mmapstochar\Rightarrow} + \def\Longmmapsto{\Mmapstochar\Longrightarrow} + \def\Mmappedfrom{\Leftarrow\Mmappedfromchar} + \def\Longmmappedfrom{\Longleftarrow\Mmappedfromchar} + \let\ne=\neq + \let\notowns=\notni + \let\lrJoin=\Join + % \let\bowtie\lrtimes + \let\dasharrow\dashrightarrow + \let\circledotright\circleddotright + \let\circledotleft\circleddotleft + + +%% TXexa large symbols + +\mathchardef \bignplus "1\txexafam 00 +\mathchardef \bigsqcupplus "1\txexafam 02 +\mathchardef \bigsqcapplus "1\txexafam 04 +\mathchardef \bigsqcap "1\txexafam 06 +\mathchardef \oiintop "1\txexafam 08 +\mathchardef \ointctrclockwiseop "1\txexafam 0A +\mathchardef \ointclockwiseop "1\txexafam 0C +\mathchardef \sqintop "1\txexafam 0E +\mathchardef \varprod "1\txexafam 10 +\mathchardef \braacext "0\txexafam 20 +\mathchardef \iintop "1\txexafam 21 +\mathchardef \iiintop "1\txexafam 23 +\mathchardef \iiiintop "1\txexafam 25 +\mathchardef \idotsintop "1\txexafam 27 +\mathchardef \oiiintop "1\txexafam 29 +\mathchardef \varointctrclockwiseop "1\txexafam 2B +\mathchardef \varointclockwiseop "1\txexafam 2D +\mathchardef \fintop "1\txexafam 3E +\mathchardef \oiintctrclockwiseop "1\txexafam 40 +\mathchardef \varoiintclockwiseop "1\txexafam 42 +\mathchardef \oiintclockwiseop "1\txexafam 48 +\mathchardef \varoiintctrclockwiseop "1\txexafam 4A +\mathchardef \oiiintctrclockwiseop "1\txexafam 44 +\mathchardef \varoiiintclockwiseop "1\txexafam 46 +\mathchardef \oiiintclockwiseop "1\txexafam 4C +\mathchardef \varoiiintctrclockwiseop "1\txexafam 4E +\mathchardef \sqiintop "1\txexafam 50 +\mathchardef \sqiiintop "1\txexafam 52 + + \def\oiint{\oiintop\nolimits} + \def\ointctrclockwise{\ointctrclockwiseop\nolimits} + \def\ointclockwise{\ointclockwiseop\nolimits} + \def\iint{\iintop\nolimits} + \def\iiint{\iiintop\nolimits} + \def\sqint{\sqintop\nolimits} + \def\iiiint{\iiiintop\nolimits} + \def\oiiint{\oiiintop\nolimits} + \def\idotsint{\idotsintop\nolimits} + \def\varointctrclockwise{\varointctrclockwiseop\nolimits} + \def\varointclockwise{\varointclockwiseop\nolimits} + \def\fint{\fintop\nolimits} + \def\oiintctrclockwise{\oiintctrclockwiseop\nolimits} + \def\varoiintclockwise{\varoiintclockwiseop\nolimits} + \def\oiintclockwise{\oiintclockwiseop\nolimits} + \def\varoiintctrclockwise{\varoiintctrclockwiseop\nolimits} + \def\oiiintctrclockwise{\oiiintctrclockwiseop\nolimits} + \def\varoiiintclockwise{\varoiiintclockwiseop\nolimits} + \def\oiiintclockwise{\oiiintclockwiseop\nolimits} + \def\varoiiintctrclockwise{\varoiiintctrclockwiseop\nolimits} + \def\sqiint{\sqiintop\nolimits} + \def\sqiiint{\sqiiintop\nolimits} + +%% TXMIA + +\mathchardef \upalpha "0\txmiafam 0B +\mathchardef \upbeta "0\txmiafam 0C +\mathchardef \upgamma "0\txmiafam 0D +\mathchardef \updelta "0\txmiafam 0E +\mathchardef \upepsilon "0\txmiafam 0F +\mathchardef \upzeta "0\txmiafam 10 +\mathchardef \upeta "0\txmiafam 11 +\mathchardef \uptheta "0\txmiafam 12 +\mathchardef \upiota "0\txmiafam 13 +\mathchardef \upkappa "0\txmiafam 14 +\mathchardef \uplambda "0\txmiafam 15 +\mathchardef \upmu "0\txmiafam 16 +\mathchardef \upnu "0\txmiafam 17 +\mathchardef \upxi "0\txmiafam 18 +\mathchardef \uppi "0\txmiafam 19 +\mathchardef \uprho "0\txmiafam 1A +\mathchardef \upsigma "0\txmiafam 1B +\mathchardef \uptau "0\txmiafam 1C +\mathchardef \upupsilon "0\txmiafam 1D +\mathchardef \upphi "0\txmiafam 1E +\mathchardef \upchi "0\txmiafam 1F +\mathchardef \uppsi "0\txmiafam 20 +\mathchardef \upomega "0\txmiafam 21 +\mathchardef \upvarepsilon "0\txmiafam 22 +\mathchardef \upvartheta "0\txmiafam 23 +\mathchardef \upvarpi "0\txmiafam 24 +\mathchardef \upvarrho "0\txmiafam 25 +\mathchardef \upvarsigma "0\txmiafam 26 +\mathchardef \upvarphi "0\txmiafam 27 + +%%% macros + +\def\joinrel{\mathrel{\mkern-2.5mu}} %-3mu in plain TeX + +\let\circledplus\oplus +\let\circledminus\ominus +\let\circledtimes\otimes +\let\circledslash\oslash +\let\circleddot\odot + +%%% For \underbrace and \overbrace: +%%% use brace extenstion bar (in "20 of txexa) instead of vrule + +\def\downbracefill{$\mathsurround0pt + \braceld\mkern-1mu + \cleaders\hbox{$\mkern-.5mu\braacext\mkern-.5mu$}\hfill + \mkern-1mu\braceru\bracelu\mkern-1mu + \cleaders\hbox{$\mkern-.5mu\braacext\mkern-.5mu$}\hfill + \mkern-1mu\bracerd$} + +\def\upbracefill{$\mathsurround0pt + \bracelu\mkern-1mu + \cleaders\hbox{$\mkern-.5mu\braacext\mkern-.5mu$}\hfill + \mkern-1mu\bracerd\braceld\mkern-1mu + \cleaders\hbox{$\mkern-.5mu\braacext\mkern-.5mu$}\hfill + \mkern-1mu\braceru$} + +%%% \big, \bigg, etc. + +\def\scalebig#1#2{{\left#1\vbox to#2\fontdimen6\textfont3{}% + \kern-\nulldelimiterspace\right.}} +\def\big#1{\scalebig{#1}{.85}} +\def\Big#1{\scalebig{#1}{1.15}} +\def\bigg#1{\scalebig{#1}{1.45}} +\def\Bigg#1{\scalebig{#1}{1.75}} + +%%% \not redefined: +%%% \not= becomes \ne +%%% \not< becomes \nless +%%% \not> becomes \ngtr +%%% if \notXXX is defined, \not\XXX becomes \notXXX; +%%% if \nXXX is defined, \not\XXX becomes \nXXX; +%%% otherwise, \not\XXX is done in the usual way. + +\mathchardef \notchar "3236 + +\def\not#1{% + \ifx\TeX\relax \noexpand\not \else % \let\TeX=\relax in \output routine + \ifx #1=\ne \else + \ifx #1<\nless \else + \ifx #1>\ngtr \else + \bgroup\escapechar=-1\xdef\tmpn{\string#1}\egroup + \expandafter\ifx \csname not\tmpn\endcsname \relax + \expandafter\ifx \csname n\tmpn\endcsname \relax + \mathrel{\mathord{\notchar}\mathord{#1}}% + \else \csname n\tmpn\endcsname \fi + \else \csname not\tmpn\endcsname \fi + \fi\fi\fi\fi} + +\endinput + +% end of tx-math.tex file + diff --git a/Master/texmf-dist/tex/csplain/fonts/unifam.tex b/Master/texmf-dist/tex/csplain/fonts/unifam.tex new file mode 100644 index 00000000000..6438b1bf86a --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/unifam.tex @@ -0,0 +1,27 @@ +% unifam.tex: loads standard 4-fonts family in UNICODE as .otf files +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2012 + +% \famname includes the family name +% \fontfeatures can include font features. If not, default font features are used. + +\ifx\directlua\undefined \else \ifx\luafonts\undefined \input luafonts +\fi\fi % lua code to re-define \font primitive + +\ifx\fontfeatures\undefined + \def\fontfeatures{mapping=tex-text;script=latn;+tlig} +\fi + +\font\tenrm="[\famname-regular]:\fontfeatures" \sizespec +\font\tenbf="[\famname-bold]:\fontfeatures" \sizespec +\font\tenit="[\famname-italic]:\fontfeatures" \sizespec +\font\tenbi="[\famname-bolditalic]:\fontfeatures" \sizespec + +\font\tentt="[texgyrecursor-regular]" \sizespec + +\font\tenrmc="[\famname-regular]:+smcp;\fontfeatures" \sizespec +\font\tenbfc="[\famname-bold]:+smcp;\fontfeatures" \sizespec +\font\tenitc="[\famname-italic]:+smcp;\fontfeatures" \sizespec +\font\tenbic="[\famname-bolditalic]:+smcp;\fontfeatures" \sizespec + +\endinput diff --git a/Master/texmf-dist/tex/csplain/opmac/opmac.tex b/Master/texmf-dist/tex/csplain/opmac/opmac.tex new file mode 100644 index 00000000000..d2594a3c2e9 --- /dev/null +++ b/Master/texmf-dist/tex/csplain/opmac/opmac.tex @@ -0,0 +1,1486 @@ +% OPmac +%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Petr Olsak, 2012 + +%% The history of versions is at the end of this file, after \endpinput + +\ifx\OPmacversion\undefined \else \endinput \fi +\def\OPmacversion{Dec. 2012} + +\immediate\write16{This is OPmac (Olsak's Plain macros), version <\OPmacversion>} + +%%%%%%%%%%%%%% Basic macros, sec. 3.1 in opmac-d.pdf + +\newcount\tmpnum % auxiliary count +\newdimen\tmpdim % auxiliary dimen + +\def\opwarning#1{\immediate\write16{l.\the\inputlineno\space OPmac WARNING: #1.}} + +\def\addto#1#2{\expandafter\def\expandafter#1\expandafter{#1#2}} + +\def\protectlist{} +\def\addprotect#1{\addto\protectlist{\doprotect#1}} +\addprotect~ + +\newif\ifpdftex \pdftextrue +\ifx\pdfoutput\undefined \pdftexfalse +\else \ifnum\pdfoutput=0 \pdftexfalse \fi \fi + +\def\sdef#1{\expandafter\def\csname#1\endcsname} +\def\sxdef#1{\expandafter\xdef\csname#1\endcsname} + +\def\adef#1{\lccode`\~=`#1\catcode`#1=13 + \afterassignment\lccodetiezero + \lowercase{\def~}% +} +\def\lccodetiezero{\lccode`\~=0 } + +\def\isdefined #1#2{\expandafter\ifx \csname#1\endcsname \relax + \csname iffalse\expandafter\endcsname + \else + \csname iftrue\expandafter\endcsname + \fi +} +\def\isinlist#1#2#3{\def\tmp##1#2##2\end{\def\tmp{##2}% + \ifx\tmp\empty \csname iffalse\expandafter\endcsname \else + \csname iftrue\expandafter\endcsname \fi}% + \expandafter\tmp#1#2\end +} +\def\isnextchar#1#2#3{\def\tmpa{#2}\def\tmpb{#3}% + \let\tmp=#1\futurelet\next\isnextcharA +} +\def\isnextcharA{\ifx\tmp\next\expandafter\tmpa\else\expandafter\tmpb\fi} + +\def\uv#1{\clqq#1\crqq} +\let\\=\undefined +{\lccode`\?=`\% \lowercase{\gdef\percent{?}}} +\def\,{\ifmmode \mskip\thinmuskip \else \kern.166em \fi} + + +%%%%%%%%%%%%%% Global parameters, sec. 3.2 in opmac-d.pdf + +\widowpenalty=10000 +\clubpenalty=10000 +\showboxdepth=7 +\showboxbreadth=30 + +\newdimen\iindent \iindent=\parindent + % indentation of items, TOC, captions, list of bib. references +\newdimen\ttindent \ttindent=\parindent + % indentation in \begtt...\endtt and \verbinput + +\def\ttskip{\medskip} % space above and below \begtt, \verbinput +\mathchardef\ttpenalty=100 % penalty between lines in \begtt, \verbinput +\def\tthook{} % hook in \begtt, \verbinput +\def\intthook{} % hook in in-text verbatim + +\def\iiskip{\medskip} % space above and below \begitems...\enditems +\def\bibskip{\smallskip} % space between bibitems + +\def\tabstrut{\strut} % strut in the \table +\def\tabiteml{\enspace} % left material before each \table item +\def\tabitemr{\enspace} % right material after each \table item +\def\vvkern{1pt} % space between vertical lines +\def\hhkern{1pt} % space between horizontal lines + +\def\multiskip{\medskip} % space above and below \begmulti...\endmulti +\newdimen\colsep \colsep=2em % space between columns + +\newdimen\mnoteindent \mnoteindent=10pt % ditance between mnote and text +\newdimen\mnotesize \mnotesize=20mm % the width of the mnote paragraph + +\def\picdir{} % the directory with picture files +\def\bibtexhook{} % hook in \usebibtex and \usebbl macros +\def\chaphook{} % hook in \chap +\def\sechook{} % hook in \sec +\def\secchook{} % hook in \secc +\def\cnvhook{} % hook before conversion of outlines +\def\pghook{} % hook in \output rutine + + +%%%%%%%%%%%%%% OPmac, CSplain and LaTeX logos, sec. 3.3 in opmac-d.pdf + +\def\OPmac{\leavevmode + \lower.2ex\hbox{\thefontscale[1400]O}\kern-.86em P{\em mac}} +\def\CS{$\cal C$\kern-.1667em\lower.5ex\hbox{$\cal S$}} +\def\csplain{\CS plain} + +\def\LaTeX{\tmpdim=.42ex L\kern-.36em \kern\slantcorr % slant correction + \raise\tmpdim\hbox{\thefontscale[710]A}% + \kern-.15em \kern-\slantcorr \TeX} +\def\slantcorr{\expandafter\ignorept\the\fontdimen1\the\font\tmpdim} + +\addprotect\TeX \addprotect\OPmac \addprotect\CS \addprotect\LaTeX + + +%%%%%%%%%%%%%% Sizes of fonts and \baselineskip, sec. 3.4 in opmac-d.pdf + +\ifx\regfont\undefined + \opwarning{csplain version <Nov. 2012> or later is recommended} + % macros from csplain, file csfontsm.tex: + \font\tenbi=csbxti10 \def\bi{\tenbi} + \def\sizespec{} + \def\resizefont #1{\expandafter + \font\expandafter#1\expandafter\resizefontskipat\fontname#1 \relax} + \def\regfont#1{\expandafter\def\expandafter\resizeall\expandafter{% + \resizeall \resizefont#1}} + \def\resizeall{} + \regfont\tenrm \regfont\tenit \regfont\tenbf \regfont\tenbi \regfont\tentt +\fi + +\input ams-math % ams-math.tex is in csplain package Nov. 2012 or later + +\def\resizefontskipat#1 #2\relax{\whichtfm{#1} \sizespec\relax} + +\newdimen\ptunit \ptunit=1pt +\newdimen\fontdim \fontdim=10pt + +{\lccode`\?=`\p \lccode`\!=`\t \lowercase{\gdef\ignorept#1?!{#1}}} + +\def\typosize[#1/#2]{\fontsizex[#1]\setbaselineskip[#2]\ignorespaces} +\def\typoscale[#1/#2]{\fontscalex[#1]\scalebaselineskip[#2]\ignorespaces} + +\def\fontsizex[#1]{\if$#1$\else + \textfontsize[#1]% + \tmpdim=0.7\fontdim \edef\tmpa{\expandafter\ignorept\the\tmpdim}% + \tmpdim=0.5\fontdim \edef\tmpb{\expandafter\ignorept\the\tmpdim}% + \edef\tmp{\noexpand\setmathsizes[\expandafter\ignorept\the\fontdim/\tmpa/\tmpb]}% + \tmp \normalmath + \fi +} +\def\textfontsize[#1]{\if$#1$\else + \fontdim=#1\ptunit + \let\dgsize=\fontdim + \edef\sizespec{at\the\fontdim}% + \resizeall \rm + \fi +} +\def\setbaselineskip[#1]{\if$#1$\else + \tmpdim=#1\ptunit + \baselineskip=\tmpdim \relax + \bigskipamount=\tmpdim plus.33333\tmpdim minus.33333\tmpdim + \medskipamount=.5\tmpdim plus.16666\tmpdim minus.16666\tmpdim + \smallskipamount=.25\tmpdim plus.08333\tmpdim minus.08333\tmpdim + \normalbaselineskip=\tmpdim + \jot=.25\tmpdim + \maxdepth=.33333\tmpdim + \setbox\strutbox=\hbox{\vrule height.709\tmpdim depth.291\tmpdim width0pt}% + \fi +} +\def\withoutunit#1#2{\expandafter#1\expandafter[\expandafter\ignorept\the#2]} + +\def\fontscalex[#1]{\if$#1$\else + \tmpdim=#1pt \divide\tmpdim by1000 + \tmpdim=\expandafter\ignorept\the\tmpdim \fontdim + \withoutunit\fontsizex\tmpdim + \fi +} +\def\textfontscale[#1]{\if$#1$\else + \tmpdim=#1pt \divide\tmpdim by1000 + \tmpdim=\expandafter\ignorept\the\tmpdim \fontdim + \withoutunit\textfontsize\tmpdim + \fi +} +\def\scalebaselineskip[#1]{\if$#1$\else + \tmpdim=#1pt \divide\tmpdim by1000 + \tmpdim=\expandafter\ignorept\the\tmpdim \baselineskip + \withoutunit\setbaselineskip\tmpdim + \fi +} +\def\thefontsize[#1]{% + \expandafter\let \expandafter\thefont \the\font + \def\sizespec{at#1\ptunit}\def\dgsize{#1\ptunit}\resizefont\thefont + \thefont \ignorespaces +} +\def\thefontscale[#1]{% + \tmpdim=#1pt \divide\tmpdim by1000 + \tmpdim=\expandafter\ignorept\the\tmpdim \fontdim + \withoutunit\thefontsize\tmpdim +} +\def\magstep#1{\ifcase#1 1000\or1200\or1440\or1728\or2074\or2488\fi\space} + +\def\em {\expandafter\ifx \the\font \tenit \additcorr \rm \else + \expandafter\ifx \the\font \tenbf \bi\aftergroup\/\else + \expandafter\ifx \the\font \tenbi \additcorr \bf \else + \it \aftergroup\/\fi\fi\fi} +\def\additcorr{\ifdim\lastskip>0pt \skip0=\lastskip \unskip\/\hskip\skip0 \else\/\fi} + +\addprotect\thefontsize \addprotect\thefontscale +\addprotect\typosize \addprotect\typoscale +\addprotect\textfontsize \addprotect\textfontscale +\addprotect\em + + +%%%%%%%%%%%%%% Multilingual support, sec. 3.5 in opmac-d.pdf + +\def\mtext#1{\csname mt:#1:\csname lan:\the\language\endcsname\endcsname} + +\sdef{mt:chap:en}{Chapter} \sdef{mt:chap:cz}{Kapitola} \sdef{mt:chap:sk}{Kapitola} +\sdef{mt:t:en}{Table} \sdef{mt:t:cz}{Tabulka} \sdef{mt:t:sk}{Tabu\v lka} +\sdef{mt:f:en}{Figure} \sdef{mt:f:cz}{Obr\'azek} \sdef{mt:f:sk}{Obr\'azok} + +\ifx\r\undefined \csname csaccents\endcsname \fi + +\sdef{lan:0}{en} \sdef{lan:100}{en} \sdef{lan:101}{en} +\sdef{lan:5}{cz} \sdef{lan:15}{cz} \sdef{lan:115}{cz} +\sdef{lan:6}{sk} \sdef{lan:16}{sk} \sdef{lan:116}{sk} + +%%%%%%%%%%%%%% REF file, sec 3.6 in opmac-d.pdf + +\newwrite\reffile +\newread\testin + +\def\wrefrelax#1#2{} +\let\wref=\wrefrelax + +\def\inputref{ + \openin\testin=\jobname.ref + \ifeof\testin \else + \closein\testin + \input \jobname.ref + \fnotenum=0 \mnotenum=0 + \immediate\openout\reffile=\jobname.ref + \def\wref##1##2{\write\reffile{\string##1##2}} + \immediate\write\reffile {\percent\percent\space OPmac - REF file} + \fi +} +\def\openref{% + \ifx\wref\wrefrelax + \immediate\openout\reffile=\jobname.ref + \gdef\wref##1##2{\write\reffile{\string##1##2}}% + \immediate\write\reffile + {\percent\percent\space OPmac - REF file (\string\openref)}% + \fi + \gdef\openref{}% +} + +%%%%%%%%%%%%%% \label, \ref, \pgref, sec. 3.7 in opmac-d.pdf + +\def\label[#1]{\xdef\lastlabel{#1}\ignorespaces} + +\def\wlabel#1{% + \ifx\lastlabel\undefined \else + \dest[ref:\lastlabel]{2.1em}% + \edef\tmp{\wref\Xlabel{{\lastlabel}{#1}}}\tmp + \isdefined{lab:\lastlabel}\iftrue \else + \sxdef{lab:\lastlabel}{#1}% + \fi + \global\let\lastlabel=\undefined + \fi +} +\def\ref[#1]{\isdefined{lab:#1}% + \iftrue \reflink[#1]{\csname lab:#1\endcsname}% + \else ??\opwarning{label [#1] unknown. Try to TeX me again}\openref + \fi +} +\def\pgref[#1]{\isdefined{pgref:#1}% + \iftrue \pglink{\csname pgref:#1\endcsname}% + \else ??\opwarning{pg-label [#1] unknown. Try to TeX me again}\openref + \fi +} +\def\Xlabel#1#2{\sxdef{lab:#1}{#2}\sxdef{pgref:#1}{\the\lastpage}} + + +%%%%%%%%%%%%%% Chapters, sections, subsections -- sec. 3.8 in opmac-d.pdf + +\def\titfont{\typoscale[\magstep4/\magstep4]\bf} +\def\chapfont{\typoscale[\magstep3/\magstep3]\bfshape} +\def\secfont{\typoscale[\magstep2/\magstep2]\bfshape} +\def\seccfont{\typoscale[\magstep1/\magstep2]\bfshape} +\def\bfshape{\let\tenit=\tenbi \boldmath \bf} + +\newcount\chapnum \newcount\secnum \newcount\seccnum + +\def\tit#1\par{\vglue4em + {\leftskip=0pt plus1fill \rightskip=\leftskip + \titfont \noindent #1\unskip\par}% + \nobreak\bigskip +} +\def\chap#1\par{\advance\chapnum by1 + \chaphook \secnum=0 \seccnum=0 \relax + \edef\thechapnum{\the\chapnum.}% + \printchap{#1\unskip}% + \wlabel\thechapnum \wcontents\Xchap\thechapnum{#1}\nobreak +} +\def\sec#1\par{\par\advance\secnum by1 + \sechook \seccnum=0 \tnum=0 \fnum=0 \dnum=0 \relax + \edef\thesecnum{\othe\chapnum.\the\secnum}% + \printsec{#1\unskip}% + \insertmark\thesecnum{#1\unskip}% + \wlabel\thesecnum \wcontents\Xsec\thesecnum{#1}\nobreak +} +\def\secc#1\par{\advance\seccnum by1 + \secchook \relax + \edef\theseccnum{\othe\chapnum.\othe\secnum.\the\seccnum}% + \printsecc{#1\unskip}% + \wlabel\theseccnum \wcontents\Xsecc\theseccnum{#1}\nobreak +} +\def\wcontents#1#2#3{% + \expandafter\wref\expandafter#1\expandafter + {\expandafter{#2}{#3}{\the\pageno}}% +} +\def\othe#1.{\ifnum#1>0 \the#1.\fi} +\def\thechapnum{} \def\thesecnum{} \def\theseccnum{} + +\def\insertmark#1#2{\toks0={#2}\mark{{#1} {\the\toks0}}} + +\def\printchap#1{\vfil\break + {\chapfont \noindent \dest[toc:\thechapnum]{1.3em}% + \mtext{chap} \thechapnum\par\nobreak\smallskip\noindent #1\nbpar}% + \nobreak\bigskip + \firstnoindent +} +\def\printsec#1{\removelastskip \goodbreak \bigskip + {\secfont \noindent \dest[toc:\thesecnum]{1.3em}\thesecnum\quad #1\nbpar}% + \nobreak\medskip + \firstnoindent +} +\def\printsecc#1{\removelastskip \goodbreak \medskip + {\seccfont \noindent + \dest[toc:\theseccnum]{1.3em}\theseccnum\quad #1\nbpar}% + \nobreak\medskip + \firstnoindent +} +\def\afternoindent{\global\everypar={\wipeepar\setbox0=\lastbox}} +\def\wipeepar{\global\everypar={}} +\let\firstnoindent=\afternoindent +\def\nbpar{{\interlinepenalty=10000\par}} +\def\nl{\hfil\break} + + +%%%%%%%%%%%%%% Captions, equations -- sec. 3.9 in opmac-d.pdf + +\newcount\tnum \newcount\fnum \newcount\dnum + +\def\thetnum{\thesecnum.\the\tnum} +\def\thefnum{\thesecnum.\the\fnum} +\def\thednum{(\the\dnum)} + +\def\caption/#1 {\isdefined{#1num}% + \iftrue \advance \csname #1num\endcsname by1 + \else \opwarning{Unknown caption /#1}% + \fi + \bgroup + \leftskip=\iindent plus1fil + \rightskip=\iindent plus-1fil + \parfillskip=\iindent plus2fil + \def\par{\endgraf\egroup}% + \noindent \wlabel{\csname the#1num\endcsname}% + {\bf \mtext{#1} \csname the#1num\endcsname}\enspace +} +\def\eqmark{\global\advance\dnum by1 + \ifinner\else\eqno \fi \wlabel\thednum \thednum +} + +%%%%%%%%%%%%%% Items -- sec. 3.10 in opmac-d.pdf + +\newcount\itemnum \itemnum=0 + +\def\begitems{\iiskip\bgroup + \itemnum=0 \adef*{\startitem} + \advance\leftskip by\iindent + \let\printitem=\normalitem +} +\def\enditems{\par\egroup\iiskip} + +\def\startitem{\par \advance\itemnum by1 + \noindent\llap{\printitem}\ignorespaces} +\def\normalitem{$\bullet$\enspace} + +\def\style#1{\expandafter\let\expandafter\printitem\csname item:#1\endcsname + \ifx\printitem\relax \let\printitem=\normalitem \fi +} +\sdef{item:o}{\raise.4ex\hbox{$\scriptscriptstyle\bullet$} } +\sdef{item:-}{- } +\sdef{item:n}{\the\itemnum. } +\sdef{item:N}{\the\itemnum) } +\sdef{item:i}{(\romannumeral\itemnum) } +\sdef{item:I}{\uppercase\expandafter{\romannumeral\itemnum}\kern.5em} +\sdef{item:a}{\athe\itemnum) } +\sdef{item:A}{\uppercase\expandafter{\athe\itemnum}) } +\sdef{item:x}{\raise.3ex\fullrectangle{.6ex} } +\sdef{item:X}{\raise.2ex\fullrectangle{1ex}\kern.5em} + +\def\fullrectangle#1{\hbox{\vrule height#1 width#1}} + +\def\athe#1{\ifcase#1?\or a\or b\or c\or d\or e\or f\or g\or h\or i\or j\or k\or l\or + m\or n\or o\or p\or q\or r\or s\or t\or u\or v\or w\or x\or y\or z\else ?\fi +} + +%%%%%%%%%%%%%% TOC -- sec. 3.11 in opmac-d.pdf + +\def\toclist{} \newif\ifischap \ischapfalse + +\def\Xchap#1#2#3{\ischaptrue\addto\toclist{\tocline{0}{\bf}{#1}{#2}{#3}}} +\def\Xsec#1#2#3{\addto\toclist{\tocline{1}{\rm}{#1}{#2}{#3}}} +\def\Xsecc#1#2#3{\addto\toclist{\tocline{2}{\rm}{#1}{#2}{#3}}} + +\def\tocline#1#2#3#4#5{{\leftskip=#1\iindent \rightskip=2\iindent + \ifischap\advance\leftskip by\iindent\fi + \ifnum#1>1 \advance\leftskip by\iindent\fi + \noindent\llap{#2\toclink{#3}\enspace}% + {#2#4\unskip}\tocdotfill\pglink{#5}\hskip-2\iindent\null\par}} +\def\tocdotfill{\leaders\hbox to.8em{\hss.\hss}\hfill} + +\def\maketoc{\par \ifx\toclist\empty + \opwarning{\noexpand\maketoc -- data unavailable, TeX me again}\openref + \else \toclist \fi} + + +%%%%%%%%%%%%%% Index -- sec. 3.12 on opmac-d.pdf + +\def\iindex#1{\openref\wref\Xindex{{#1}{\the\pageno}}} + +\def\ii #1 {\leavevmode\def\tmp{#1}\iiA #1,,} + +\def\iiA #1,{\if$#1$\else\def\tmpa{#1}% + \ifx\tmpa\iiatsign \expandafter\iiB\tmp,,% + \else\iindex{#1}\fi + \expandafter\iiA\fi} +\def\iiatsign{@} + +\def\iiB #1,{\if$#1$\else + \iiC#1/\relax + \expandafter\iiB\fi +} +\def\iiC #1/#2\relax{\if$#2$\else\iindex{#2#1}\fi} + +\def\iid #1 {\leavevmode\iindex{#1}#1\futurelet\tmp\iiD} +\def\iiD{\ifx\tmp,\else\ifx\tmp.\else\space\fi\fi} + +\def\Xindex#1#2{\bgroup \def~{ }% + \isdefined{,#1}\iftrue + \expandafter\firstdata \csname,#1\endcsname \XindexA + \ifnum#2=\tmpa % \ii on the same page + \else + \tmpnum=#2 \advance\tmpnum by-1 + \expandafter\seconddata \csname,#1\endcsname \XindexB + \if\tmpb+% state: the pagelist ends by a pagenumber + \ifnum\tmpnum=\tmpa % the consecutive page + \sxdef{,#1}{{#2/-}{\tmp\iiendash}} + \else % the pages drop + \sxdef{,#1}{{#2/+}{\tmp, #2}} + \fi + \else % state: the pagelist ends by -- + \ifnum\tmpnum=\tmpa % the consecutive page + \sxdef{,#1}{{#2/-}{\tmp}} + \else % the pages drop + \sxdef{,#1}{{#2/+}{\tmp\tmpa, #2}} + \fi + \fi + \fi + \else % first occurrence of the index item #1 + \sxdef{,#1}{{#2/+}{#2}} + \global \expandafter\addto \expandafter\iilist \csname,#1\endcsname + \fi + \egroup +} +\def\iilist{} \def\iiendash{--} + +\def\firstdata#1#2{\expandafter\expandafter\expandafter #2\expandafter\firstdataA#1} +\def\firstdataA#1#2{#1&} +\def\seconddata#1#2{\expandafter\expandafter\expandafter #2\expandafter\seconddataA#1} +\def\seconddataA#1#2{#2&} + +\def\XindexA#1/#2&{\def\tmpa{#1}\let\tmpb=#2} +\def\XindexB#1&{\def\tmp{#1}} + +\def\makeindex{\par + \ifx\iilist\empty \opwarning{index data-buffer is empty. TeX me again} + \else + \bgroup + \setprimarysorting + \def\act##1{\ifx##1\relax \else + \firstdata##1\XindexA \seconddata##1\XindexB + \if\tmpb+% + \preparesorting##1% converted item by sorting data in \tmpb + \xdef##1{{\tmpb}{\tmp}} + \else + \preparesorting##1% converted item by sorting data in \tmpb + \xdef##1{{\tmpb}{\tmp\tmpa}} + \fi + \expandafter\act\fi} + \expandafter \act \iilist \relax + \egroup + \dosorting % sorting is in progress + \iiparparams + \gdef\act##1{\ifx##1\relax \else \prepii##1% + \seconddata##1\printiipages \expandafter\act \fi} + \expandafter \act \iilist \relax + \orippx \global\let\act=\undefined \global\let\orippx=\undefined + \fi +} +\def\printiipages#1&{#1\par} + +\def\prepii #1{\isinlist \iispeclist #1\iftrue + \expandafter\expandafter\expandafter \printii \csname\string#1\endcsname& + \else \expandafter\prepiiA\string #1& + \fi +} +\def\prepiiA #1#2#3&{\printii#3&} + +\def\iis #1 #2{\bgroup \def~{ }% + \global\expandafter\addto\expandafter\iispeclist\csname,#1\endcsname + \global\sdef{\expandafter\string\csname,#1\endcsname}{#2}% + \egroup +} +\def\iispeclist{} + +\def\printii #1&{\gdef\currii{#1}\noindent\everyii + \hskip-\iindent \ignorespaces\printiiA#1//} +\def\printiiA #1/{\if$#1$\expandafter\printiiB\else + \expandafter\scanprevii\previi/&\gdef\tmpb{#1}% + \ifx\tmpa\tmpb \iiemdash \else#1 \gdef\previi{}\fi + \expandafter\printiiA\fi +} +\def\printiiB{\let\previi=\currii} +\def\iiemdash{\kern.1em---\space} +\def\everyii{} + +\def\iiparparams{% + \xdef\orippx{\global\rightskip=\the\rightskip + \global\leftskip=\the\leftskip + \global\exhyphenpenalty=\the\exhyphenpenalty} + \global\rightskip=0pt plus1fil + \global\exhyphenpenalty=10000 + \global\leftskip=\iindent +} + +\def\scanprevii#1/#2&{\def\previi{#2}\def\tmpa{#1}} +\def\previi{} % previous index item + + +%%%%%%%%%%%%%% Sorting -- sec. 3.13 in opmac-d.pdf + +\def\sortingdata{% + /,{ },-,&,@,% + aA\"a\"A\'a\'A,% + bB,% + cC,% + \v c\v C,% + dD\v d\v D,% + eE\'e\'E\v e\v E,% + fF,% + gG,% + h^^HH,% + ^^T^^U^^V,% + iI\'i\'I,% + jJ,% + kK,% + lL\'l\'L\v l\v L,% + mM,% + nN\v n\v N,% + oO\"o\"O\'o\'O\^o\^O,% + pP,% + qQ,% + rR\'r\'R,% + \v r\v R,% + sS,% + \v s\v S,% + tT\v t\v T,% + uU\"u\"U\'u\'U\r u\r U,% + vV,% + wW,% + xX,% + yY,\'y\'Y,% + zZ,% + \v z\v Z,% + 0,1,2,3,4,5,6,7,8,9,'.% +} +\def\setprimarysorting {\csname sort:\csname lan:\the\language\endcsname \endcsname + \def\act##1{\ifx##1.\else + \ifx##1,\advance\tmpnum by1 + \else \lccode`##1=\tmpnum \fi + \expandafter \act \fi}% + \ifx\r\undefined + \opwarning{\noexpand\csaccents is unused, falling back to ASCII sorting}% + \gdef\sortingdata{.}\global\let\chsorting=n% + \else + \xdef\sortingdata{\sortingdata}% expand sorting data now + \fi + \tmpnum=133 \expandafter \act\sortingdata \setignoredchars +} +\sdef{sort:en}{\global\let\chsorting=n} % skipping ch processing in English language + +\def\setsecondarysorting {\def\act##1{\ifx##1.\else + \ifx##1,\else \advance\tmpnum by1 \lccode`##1=\tmpnum \fi + \expandafter \act \fi}% + \tmpnum=133 \expandafter \act\sortingdata \setignoredchars +} +\bgroup +\lccode`4=`c \lccode`5=`h \lccode`6=`C \lccode`7=`H +\lowercase{ +\gdef\iiscanch #145#2\relax{#1\if$#2$\else^^T\iiscanch #2\relax\fi} +\gdef\iiscanCh #165#2\relax{#1\if$#2$\else^^U\iiscanCh #2\relax\fi} +\gdef\iiscanCH #167#2\relax{#1\if$#2$\else^^V\iiscanCH #2\relax\fi} +\gdef\preparesorting#1{\expandafter\preparesortingA\string#1&} +\gdef\preparesortingA#1#2#3&{\xdef\tmpb{#3}% + \ifx\chsorting\undefined + \xdef\tmpb{\expandafter\iiscanch\tmpb 45\relax}% + \xdef\tmpb{\expandafter\iiscanCh\tmpb 65\relax}% + \xdef\tmpb{\expandafter\iiscanCH\tmpb 67\relax}\fi + \lowercase\expandafter{\expandafter\gdef\expandafter\tmpb\expandafter{\tmpb}}% + \xdef\tmpb{\expandafter\removedot\tmpb.\relax}% +}} +\egroup + +\def\removedot #1.#2\relax{#1\if$#2$\else\removedot #2\relax\fi} +\def\setignoredchars{\setlccodes ,.;.?.!.:.'.".|.(.).[.].<.>.=.+.{}{}} + +\newif \ifAleB + +\def\isAleB #1#2{% + \edef\tmp{\firstdata#1\empty\relax\firstdata#2\empty\relax% + \noexpand#1\noexpand#2}% + \expandafter \testAleB \tmp +} +\def\testAleB #1#2\relax #3#4\relax #5#6{% + \if #1#3\if #1&\testAleBsecondary #5#6% + \else \testAleB #2\relax #4\relax #5#6% + \fi + \else \ifnum `#1<`#3 \AleBtrue \else \AleBfalse \fi + \fi +} +\def\testAleBsecondary#1#2{% + \bgroup + \setsecondarysorting + \preparesorting#1\let\tmpa=\tmpb \preparesorting#2% + \edef\tmp{\tmpa0\relax\tmpb1\relax}% + \expandafter\testAleBsecondaryX \tmp + \egroup +} +\def\testAleBsecondaryX #1#2\relax #3#4\relax {% + \if #1#3\testAleBsecondaryX #2\relax #4\relax + \else \ifnum `#1<`#3 \global\AleBtrue \else \global \AleBfalse \fi + \fi +} +\def\dosorting{% + \message{Opmac: Sorting index...} + \def\act##1{\ifx##1\relax\else \global\addto\iilist{##1,}% + \expandafter\act\fi} + \expandafter\removeiilist \expandafter\act \iilist\relax + \expandafter\removeiilist \expandafter\mergesort \iilist \end,\end +} +\def\removeiilist{\gdef\iilist{}} + +\def\mergesort #1#2,#3{% by Miroslav Olsak + \ifx,#1 % prazdna-skupina,neco, (#2=neco #3=pokracovani) + \addto\iilist{#2,} % dvojice skupin vyresena + \return{\fif\mergesort#3}% % \mergesort pokracovani + \fi + \ifx,#3 % neco,prazna-skupina, (#1#2=neco #3=,) + \addto\iilist{#1#2,}% % dvojice skupin vyresena + \return{\fif\mergesort}% % \mergesort dalsi + \fi + \ifx\end#3 % neco,konec (#1#2=neco) + \ifx\empty\iilist % neco=kompletni setrideny seznam + \def\iilist{#1#2}% + \return{\fif\fif\gobbletoend}% % koncim + \else % neco=posledni skupina nebo \end + \return{\fif\fif \expandafter\removeiilist % spojim \indexbuffer+necoa cele znova + \expandafter\mergesort\iilist#1#2,#3}% + \fi\fi % zatriduji: p1+neco1,p2+neco2, (#1#2=p1+neco1 #3=p2) + \isAleB #1#3\ifAleB % p1<p2 + \addto\iilist{#1}% % p1 do bufferu + \return{\fif\mergesort#2,#3}% % \mergesort neco1,p2+neco2, + \else % p1>p2 + \addto\iilist{#3}% % p2 do bufferu + \return{\fif\mergesort#1#2,}% % \mergesort p1+neco1,neco2, + \fi + \relax % zarazka, na ktere se zastavi \return +} +\def\return#1#2\fi\relax{#1} \def\fif{\fi} +\def\gobbletoend #1\end{} + + +%%%%%%%%%%%%%% \begmulti ... \endmulti TBN p. 244, 245 -- sec. 3.14 in opmac-d.pdf + +\def\corrsize #1{%% #1 := #1 + \splittopskip - \topskip + \advance #1 by \splittopskip \advance #1 by-\topskip} + +\def\begmulti #1 {\par\wipeepar\multiskip\penalty0 \def\Ncols{#1} + \splittopskip=\baselineskip + \setbox6=\vbox\bgroup\penalty0 + %% \hsize := Sirka sloupce = (\hsize+\colsep) / n - \colsep + \advance\hsize by\colsep + \divide\hsize by\Ncols \advance\hsize by-\colsep + \dimen0=0pt + \def\par{\endgraf\advance\dimen0 by\the\prevgraf\baselineskip + \ifdim\dimen0>.9\maxdimen \message{flushcolumns:}% + \global\let\balancecolumns=\flushcolumns \expandafter \endmulti + \fi}% +} +\def\endmulti{\vskip-\prevdepth\vfil\egroup \setbox1=\vsplit6 to0pt + %% \dimen1 := the free space on the page + \ifdim\pagegoal=\maxdimen \dimen1=\vsize \corrsize{\dimen1} + \else \dimen1=\pagegoal \advance\dimen1 by-\pagetotal \fi + \ifdim \dimen1<2\baselineskip + \vfil\break \dimen1=\vsize \corrsize{\dimen1} \fi + \dimen0=\ht6 \divide\dimen0 by\Ncols \relax + %% split the material to more pages? + \ifdim \dimen0>\dimen1 \splitpart + \else \balancecolumns \fi % only balancing + \multiskip\relax} +\def\makecolumns{\bgroup % full page, destination height: \dimen1 + \vbadness=20000 \setbox1=\hbox{}\tmpnum=0 + \loop \ifnum\Ncols>\tmpnum + \advance\tmpnum by1 + \setbox1=\hbox{\unhbox1 \vsplit6 to\dimen1 \hss} + \repeat + \hbox{}\nobreak\vskip-\splittopskip \nointerlineskip + \line{\unhbox1\unskip} + \egroup} +\def\splitpart{% + \makecolumns % full page + \vskip 0pt plus 1fil minus\baselineskip \break + \dimen0=\ht6 \divide\dimen0 by\Ncols \relax + \dimen1=\vsize \corrsize{\dimen1}\dimen2=\dimen1 + \advance\dimen2 by-\Ncols\baselineskip + %% split the material to more pages? + \ifvoid6 \else + \ifdim \dimen0>\dimen2 \expandafter\expandafter\expandafter \splitpart + \else \balancecolumns % last balancing + \fi \fi +} + +\def\balancecolumns{\bgroup \setbox7=\copy6 % destination height: \dimen0 + \ifdim\dimen0>\baselineskip \else \dimen0=\baselineskip \fi + \vbadness=20000 + \def\tmp{% + \setbox1=\hbox{}\tmpnum=0 + \loop \ifnum\Ncols>\tmpnum + \advance\tmpnum by1 + \setbox1=\hbox{\unhbox1 + \ifvoid6 \hbox to\wd6{\hss}\else \vsplit6 to\dimen0 \fi\hss} + \repeat + \ifvoid6 \else + \advance \dimen0 by.2\baselineskip + \setbox6=\copy7 + \expandafter \tmp \fi}\tmp + \hbox{}\nobreak\vskip-\splittopskip \nointerlineskip + \hbox to\hsize{\unhbox1\unskip}% + \egroup +} +\def\flushcolumns#1\relax{\fi\fi\fi + \setbox6=\vbox\bgroup\penalty0 + \global\let\balancecolumns=\ibalancecolumns + \dimen0=\ht6 \unvbox6 \unskip\unskip + \advance\hsize by\colsep + \divide\hsize by\Ncols \advance\hsize by-\colsep + \def\par{\endgraf\advance\dimen0 by\the\prevgraf\baselineskip + \ifdim\dimen0>.9\maxdimen \message{flush-columns:}% + \global\let\balancecolumns=\flushcolumns \expandafter \endmulti + \fi}% +} +\let\ibalancecolumns=\balancecolumns + +%%%%%%%%%%%%%% Colors -- sec. 3.15 in opmac-d.pdf + +\newif\ifpgcolor \pgcolorfalse +\newcount\lastpage \lastpage=0 % the last page of the document + +\def\Blue{\setcmykcolor{1.0 1.0 0.0 0}} +\def\Red{\setcmykcolor{0.0 1.0 1.0 0}} +\def\Brown{\setcmykcolor{0 0.67 0.67 0.5}} +\def\Green{\setcmykcolor{1.0 0.0 1.0 0.0}} +\def\Yellow{\setcmykcolor{0.0 0.0 1 0}} +\def\Cyan{\setcmykcolor{1.0 0.0 0 0}} +\def\Magenta{\setcmykcolor{0.0 1.0 0 0}} +\def\White{\setcmykcolor{0 0 0 0}} +\def\Grey{\setcmykcolor{0 0 0 0.5}} +\def\LightGrey{\setcmykcolor{0 0 0 0.2}} +\def\Black{\setcmykcolor{0 0 0 1}\global\pgcolorfalse} + +\ifpdftex + \def\setcmykcolor#1{\special{PDF:#1 \pdfK}% + \ifpgcolor\else + \openref\expandafter\wref\expandafter\Xpdfcolor\expandafter{\pdfK{#1}}% + \fi + } +\else + \def\setcmykcolor#1{} +\fi + +\def\linecolor#1{{\def\pdfK{K}#1}} +\def\pdfK{k} +\def\locpgcolor{\global\pgcolortrue} + +\def\Xpdfcolork#1{\def\pdflastcolork{#1}} +\def\XpdfcolorK#1{\def\pdflastcolorK{#1}} +\def\pdfblackcolor{0 0 0 1} +\let\pdflastcolork=\pdfblackcolor \let\pdflastcolorK=\pdfblackcolor + +\def\Xpage#1{\lastpage=#1 \fnotenumlocal=0 + \ifx\pdflastcolork\pdfblackcolor\else + \isdefined{pg:#1}\iftrue \else \sxdef{pg:#1}{}\fi + {\let\setpgcolor=\relax \sxdef{pg:#1}% + {\csname pg:#1\endcsname\setpgcolor k{\pdflastcolork}}}\fi + \ifx\pdflastcolorK\pdfblackcolor\else + \isdefined{pg:#1}\iftrue \else \sxdef{pg:#1}{}\fi + {\let\setpgcolor=\relax \sxdef{pg:#1}% + {\csname pg:#1\endcsname\setpgcolor K{\pdflastcolorK}}}\fi +} +\def\setpgcolor#1#2{\special{PDF:#2 #1}} + +\def\draft{\edef\tmp{\headline={\noexpand\draftbox{\tenbf DRAFT}\the\headline}} + \ifpdftex \tmp \else + \opwarning{\string\draft: Grey color is possible in pdfTeX only}\fi} + +\def\draftbox#1{\vbox to0pt{\setbox0=\hbox{\typosize[10/]#1}% + \kern.5\vsize \kern4\wd0 \hbox to0pt{\kern.5\hsize \kern-2.5\wd0 + \pdfsave \pdfrotate{55}\pdfscale{10}{10}% + \hbox to0pt{\locpgcolor\LightGrey \box0\hss\Black}% + \pdfrestore +\hss}\vss}\hss} + + +%%%%%%%%%%%%%% Hyperrefs -- sec. 3.16 in opmac-d.pdf + +\def\destactive[#1:#2]#3{\if$#2$\else\ifvmode + \tmpdim=\prevdepth \prevdepth=-1000pt + \destbox[#1:#2]{#3}\prevdepth=\tmpdim + \else \destbox[#1:#2]{#3}% + \fi\fi +} +\def\destbox[#1]#2{\vbox to0pt{\kern-#2 \pdfdest name{#1} xyz\vss}} +\def\dest[#1]#2{} + +\def\link[#1:#2]#3#4{\leavevmode\pdfstartlink height.9em depth.3em + \pdfborder{#1} goto name{#1:#2}\relax + \ifx\Black#3#4\else#3#4\Black\fi \pdfendlink +} +\def\urllink[#1:#2]#3{{\leavevmode\pdfstartlink height.9em depth.3em + \pdfborder{#1}user{/Subtype/Link/A << /Type/Action/S/URI/URI(#2)>>}\relax + \urlcolor{#3}\Black\pdfendlink}% +} +\def\url{\leavevmode\bgroup \adef{/}{\\}% + \catcode`\_=12 \catcode`\#=12 \catcode`\~=12 \dourl} +\def\dourl#1{\def\\{/}\ulink[url:#1]{\tt\def\\{\discretionary{/}{}{/}}#1}\egroup} + +\def\toclink#1{#1} +\def\pglink#1{#1} +\def\citelink#1{#1} +\def\reflink[#1]#2{#2} +\def\ulink[#1]#2{#2} + +\def\hyperlinks#1#2{% + \let\dest=\destactive + \def\toclink##1{\locpgcolor\link[toc:##1]{#1}{##1}}% + \def\pglink##1{\locpgcolor\link[pg:##1]{#1}{##1}}% + \def\citelink##1{\locpgcolor\link[cite:##1]{#1}{##1}}% + \def\reflink[##1]##2{\locpgcolor\link[ref:##1]{#1}{##2}}% + \def\ulink[##1]##2{\urllink[##1]{##2}}% + \def\urlcolor{#2}% +} + +\def\pdfborder#1{\if$#1$\else \isdefined{#1border}\iftrue + \if$\csname#1border\endcsname$\else + attr{/C[\csname#1border\endcsname] /Border[0 0 1]}% + \fi\fi\fi +} + +\ifpdftex \else + \def\dest[#1]#2{} + \def\link[#1]#2#3{#3} + \def\urllink[#1]#2{#2} + \def\hyperlinks#1#2{} +\fi + + +%%%%%%%%%%%%%% Outlines -- sec. 3.17 in opmac-d.pdf + +\def\outlines#1{\openref\ifx\toclist\empty + \opwarning{\noexpand\outlines -- data unavailable. TeX me again}% + \else + {\let\tocline=\outlinesA + \count0=0 \count1=0 \toclist % calculate numbers o childs + \def\outlinelevel{#1}\let\tocline=\outlinesB + \count0=0 \count1=0 \toclist}% create outlines + \fi +} +\def\outlinesA#1#2#3#4#5{% + \advance\count#1 by1 + \ifcase#1\or + \addoneol{ol:\the\count0}\or + \addoneol{ol:\the\count0:\the\count1}\fi +} +\def\addoneol#1{\isdefined{#1}% + \iftrue \tmpnum=\csname#1\endcsname\relax + \advance\tmpnum by1 \sxdef{#1}{\the\tmpnum}% + \else \sxdef{#1}{1}% + \fi +} +\def\outlinesB#1#2#3#4#5{% + \advance\count#1 by1 + \ifcase#1\tmpnum=\isdefined{ol:\the\count0}% + \iftrue\csname ol:\the\count0\endcsname\else0\fi \or + \tmpnum=\isdefined{ol:\the\count0:\the\count1}% + \iftrue\csname ol:\the\count0:\the\count1\endcsname\else0\fi \or + \tmpnum = 0 \fi + \protectlist \def~{ }\setcnvcodesA + \expandafter \setlccodes \toasciidata{}{}% + \cnvhook \lowercase{\gdef\tmp{#4}}% + \pdfoutline goto name{toc:#3} count + \ifnum#1<\outlinelevel\space\else-\fi\tmpnum {\tmp}\relax +} +\def\setcnvcodesA{\global\let\setcnvcodesA=\relax % I am working only once + \ifx\r\undefined + \gdef\toasciidata{} + \opwarning{\noexpand\csaccents unused, CZ/SK outline-conversion is off}% + \else + \xdef\toasciidata{\toasciidata}% + \fi +} +\def\toasciidata{% Removes Czech+Slovak accents + AA\'AA\"AA\'aa\" aaBBCC\v CC\v ccDD\v DD\v ddEE\'EE\v EE\'ee\v ee% + FFGGHHII\'II\'iiJJKKLL\'LL\v LL\'ll\v llMMNN\v NN\v nnOO\'OO\"OO\^OO% + \'oo\"oo\^ooPPQQRR\v RR\v rrSS\v SS\v ssTT\v TT\v ttUU\'UU\"UU\r UU% + \'uu\"uu\r uuVVWWXXYY\'YY\'yyZZ\v ZZ\v zz% +} +\def\setlccodes#1#2{\if\relax#2\relax \else \lccode`#1=`#2 \expandafter \setlccodes \fi} + +\def\insertoutline#1{\pdfdest name{oul:#1} xyz\relax + \pdfoutline goto name{oul:#1} count0 {#1}\relax +} + +\ifpdftex \else + \def\outlines#1{\opwarning{DVI output has no outlines}\gdef\outlines##1{}} + \let\insertoutline=\outlines +\fi + + +%%%%%%%%%%%%%% Verbatim, \begtt, \endtt -- sec. 3.18 in opmac-d.pdf + +\newcount\ttline \ttline=-1 +\newcount\viline +\newread\vifile + +\def\setverb{\def\do##1{\catcode`##1=12}\dospecials \catcode`\*=12 } +\def\begtt{\ttskip\bgroup \wipeepar + \setverb \adef{ }{ }% + \ifx\savedttchar\undefined \else \catcode\savedttchar=12 \fi + \parindent=\ttindent + \tthook\relax + \ifnum\ttline<0 \else + \tenrm \thefontscale[700]\let\sevenrm=\thefont + \everypar={\global\advance\ttline by1 + \llap{\sevenrm\the\ttline\kern.9em}}\fi + \def\par##1{\endgraf\ifx##1\egroup\else\penalty\ttpenalty\leavevmode\fi ##1} + \obeylines \startverb} +{\catcode`\|=0 \catcode`\\=12 +|gdef|startverb#1\endtt{|tt#1|egroup|ttskip|testparA}} +\def\testparA{\afterassignment\testparB\let\tmpa= } +\def\testparB{\futurelet\tmpa\testparC} +\def\testparC{\ifx\tmpa\par\else\afternoindent\fi} + +\def\activettchar#1{% + \ifx\savedttchar\undefined\else \catcode\savedttchar=\savedttcharc \fi + \chardef\savedttchar=`#1% + \chardef\savedttcharc=\catcode`#1% + \lccode`\~=`#1 + \lowercase {\def~}{\leavevmode\hbox\bgroup\setverb\adef{ }{ }% + \intthook\tt\readverb}% + \lowercase{\def\readverb ##1~}{##1\egroup}% + \lccode`\~=0 \catcode\savedttchar=13 +} + +\def\verbinput (#1) #2 {\par \def\tmpa{#2}% + \ifx\vifilename\tmpa \else + \openin\vifile=#2 + \global\viline=0 \global\let\vifilename=\tmpa + \ifeof\vifile + \opwarning{\noexpand\verbinput - file "#2" is unable to reading} + \expandafter\expandafter\expandafter\skiptorelax + \fi + \fi + \viscanparameter #1+\relax +} +\def\skiptorelax#1\relax{} + +\def \viscanparameter #1+#2\relax{% + \if$#2$\viscanminus(#1)\else \viscanplus(#1+#2)\fi +} +\def\viscanplus(#1+#2+){% + \if$#1$\tmpnum=\viline + \else \ifnum#1<0 \tmpnum=\viline \advance\tmpnum by-#1 + \else \tmpnum=#1 + \advance\tmpnum by-1 + \ifnum\tmpnum<0 \tmpnum=0 \fi % (0+13) = (1+13) + \fi \fi + \edef\vinolines{\the\tmpnum}% + \if$#2$\def\vidolines{0}\else\edef\vidolines{#2}\fi + \doverbinput +} +\def\viscanminus(#1-#2){% + \if$#1$\tmpnum=0 + \else \tmpnum=#1 \advance\tmpnum by-1 \fi + \ifnum\tmpnum<0 \tmpnum=0 \fi % (0-13) = (1-13) + \edef\vinolines{\the\tmpnum}% + \if$#2$\tmpnum=0 + \else \tmpnum=#2 \advance\tmpnum by-\vinolines \fi + \edef\vidolines{\the\tmpnum}% + \doverbinput +} +\def\doverbinput{% + \tmpnum=\vinolines + \advance\tmpnum by-\viline + \ifnum\tmpnum<0 + \openin\vifile=\vifilename\space + \global\viline=0 + \else + \edef\vinolines{\the\tmpnum}% + \fi + \ttskip\bgroup \wipeepar + \setverb \adef{ }{ }% + \ifx\savedttchar\undefined \else \catcode\savedttchar=12 \fi + \parindent=\ttindent + \tthook\relax + \ifnum\ttline<-1 \else + \tenrm \thefontscale[700]\let\sevenrm=\thefont \fi + \tmpnum=0 \tt + \loop \ifeof\vifile \tmpnum=\vinolines\space \fi + \ifnum\tmpnum<\vinolines\space + \vireadline \advance\tmpnum by1 \repeat %% skip line + \tmpnum=0 \ifnum\vidolines=0 \tmpnum=-1 \fi + \loop \ifeof\vifile \tmpnum=\vidolines\space \fi + \ifnum\tmpnum<\vidolines\space + \vireadline \penalty\ttpenalty \viprintline %% print line + \ifnum\vidolines=0 \else\advance\tmpnum by1 \fi \repeat + \egroup\ttskip\testparB +} +\def\vireadline{\read\vifile to \tmp \global\advance\viline by1 } +\def\viprintline{\indent + \ifnum \ttline<-1 \else + \llap{\sevenrm\ifnum\ttline<0 \the\viline \else + \global\advance\ttline by1 \the\ttline \fi \kern.9em}% + \fi + \tmp\par % print the line from \tmp +} + + +%%%%%%%%%%%%%% \table -- sec. 3.19 in opmac-d.pdf + +\newtoks\tabdata +\def\tabstrutA{\tabstrut} +\newcount\colnum \colnum=0 +\def\ddlinedata{} +\def\vvleft{} + +\def\table#1#2{\vbox{\offinterlineskip + \def\tmpa{}\scantabdata#1\relax + \halign\expandafter{\the\tabdata\tabstrutA\cr#2\crcr}}} + +\def\scantabdata#1{% + \ifx#1\relax\let\scantabdata=\relax + \else\if#1|\addtabvrule + \else\expandafter\ifx\csname tabdeclare#1\endcsname \relax + \opwarning{tab-declare letter #1 unknown, ignored}% + \else\expandafter \addtabitem\expandafter{\csname tabdeclare#1\endcsname}% + \fi\fi\fi \scantabdata +} +\def\tabdeclarec{\tabiteml\hfil##\unsskip\hfil\tabitemr} +\def\tabdeclarel{\tabiteml##\unsskip\hfil\tabitemr} +\def\tabdeclarer{\tabiteml\hfil##\unsskip\tabitemr} + +\def\unsskip{\ifdim\lastskip>0pt \unskip\fi} +\def\addtabitem#1{\ifnum\colnum>0 \addtabdata{&}\addto\ddlinedata{&\dditem}\fi + \advance\colnum by1 \let\tmpa=\relax \expandafter\addtabdata\expandafter{#1}} +\def\addtabdata#1{\expandafter\tabdata\expandafter{\the\tabdata#1}} +\def\addtabvrule{\ifx\tmpa\vrule \addtabdata{\kern\vvkern}% + \ifnum\colnum=0\def\vvleft{\vvitem}\else\addto\ddlinedata{\vvitem}\fi\fi + \let\tmpa=\vrule \addtabdata{\vrule}} + +\def\crl{\cr\noalign{\hrule}} +\def\crll{\cr\noalign{\hrule\kern\hhkern\hrule}} + +\def\crli{\cr \omit \gdef\dditem{\omit\tablinefil}\gdef\vvitem{\tabvvline}% + \vvleft\tablinefil\ddlinedata\cr} +\def\crlli{\crli\noalign{\kern\hhkern}\crli} +\def\tablinefil{\leaders\hrule\hfil} +\def\tabvvline{\vrule\kern\vvkern\vrule} + +\def\tskip{\afterassignment\tskipA \tmpdim} +\def\tskipA{\gdef\dditem{}\gdef\vvitem{}\gdef\tabstrutA{}% + \vrule height\tmpdim width0pt \ddlinedata\cr + \gdef\tabstrutA{\tabstrut}} + +\let\orihrule=\hrule \let\orivrule=\vrule +\def\rulewidth{\afterassignment\rulewidthA \tmpdim} +\def\rulewidthA{\edef\hrule{\orihrule height\the\tmpdim}% + \edef\vrule{\orivrule width\the\tmpdim}} + +\def\frame#1{\setbox0=\hbox{#1}\setbox1=\vbox{\hrule}% + \tmpdim=\dp0 \advance\tmpdim by\ht1 \advance\tmpdim by\hhkern + \vbox{\hrule\hbox{\vrule\kern\vvkern + \vbox{\kern\hhkern\box0\kern\hhkern}\kern\vvkern\vrule}% + \hrule\kern-\tmpdim\hbox{\vrule depth\tmpdim width0pt}}} + + +%%%%%%%%%%%%%% \inspic -- sec. 3.20 in opmac-d.pdf + +\newdimen\picw \picw=0pt + +\ifpdftex + \def\inspic #1 {\ifdim\picw=0pt + \opwarning{\noexpand\inspic -- the width \noexpand\picw is not set}% + \else + \hbox{\pdfximage width\picw {\picdir#1}\pdfrefximage\pdflastximage}% + \fi + } +\else + \def\inspic #1 {\opwarning + {The \noexpand\inspic is supported for PDF output only}} +\fi + +%%%%%%%%%%%%%%% transformation matrix -- sec. 3.21 in opmac-d.pdf + +\def\pdfscale#1#2{\pdfsetmatrix{#1 0 0 #2}} + +\def\pdfrotate#1{\tmpdim=#1pt + \ifdim\tmpdim=0pt + \else \ifdim\tmpdim=90pt \pdfsetmatrix{0 1 -1 0}% + \else \edef\tmp{#1}\expandafter\pdfrotateA\tmp..\relax + \fi \fi +} +\def\pdfrotateA #1.#2.#3\relax{% + \def\tmp##1.##2\relax {##1}% + \tmpnum=\expandafter \tmp \the\tmpdim \relax % round + \ifdim\tmpdim>0pt \def\tmpa{}\else\def\tmpa{-}\fi % save - + \loop \ifnum\tmpnum<0 \advance\tmpnum by360 \repeat + \loop \ifnum\tmpnum>360 \advance\tmpnum by-360 \repeat + \loop \ifnum\tmpnum>90 \pdfrotate{90}\advance\tmpnum by-90 \repeat + \ifnum\tmpnum=90 \pdfrotate{90}\else + \ifnum\tmpnum>44 \pdfsetmatrix{.7071 .7071 -.7071 .7071}% + \advance\tmpnum by-45 \fi + \ifnum\tmpnum>22 \pdfsetmatrix{.9272 .3746 -.3746 .9272}% + \advance\tmpnum by-22 \fi + \ifnum\tmpnum>0 + \pdfsetmatrix{\smallcos \smallsin -\smallsin \smallcos}% + \fi\fi + \if$#2$\else % fraction part + \tmpdim=.01745329pt % \pi/180 + \tmpdim=.#2\tmpdim % + \edef\tmp{\expandafter\ignorept\the\tmpdim\space}% + \ifx\tmpa\empty \pdfsetmatrix{1 \tmp -\tmp 1}% + \else \pdfsetmatrix{1 -\tmp \tmp 1}% + \fi\fi +} +\def\smallcos{.\ifcase\tmpnum \or9998\or9994\or9986\or9976\or9962\or9945\or + 9925\or9903\or9877\or9848\or9816\or9781\or9744\or9703\or9659\or9613\or + 9563\or9511\or9455\or9397\or9336\or9272\fi\space} +\def\smallsin{.\ifcase\tmpnum 0\or0175\or0359\or0523\or0698\or0872\or1045\or + 1219\or1391\or1564\or1736\or1908\or2079\or2250\or2419\or2588\or2756\or + 2924\or309\or3256\or342\or3584\or3746\fi\space} + +\ifpdftex \else + \def\pdfsetmatrix#1{} \def\pdfsave{} \def\pdfrestore{} +\fi + + +%%%%%%%%%%%%%% \fnote, \mnote -- sec 3.22 in opmac-d.pdf + +\newcount\fnotenum \fnotenum=0 +\newcount\fnotenumlocal + +\def\fnote#1{\global\advance \fnotenum by1 + \leavevmode\openref\wref\Xfnote{}% + \isdefined{fn:\the\fnotenum}\iftrue + \else\opwarning{unknown \noexpand\fnote mark. TeX me again}\fi + \fnmarkx{\typoscale[800/800]\vfootnote\fnmarkx{#1}}% +} +\def\fnotemark#1{{\advance\fnotenum by#1\relax + \isdefined{fn:\the\fnotenum}\iftrue\thefnote + \else$^?$\opwarning{unknown \string\fnotemark. TeX me again}\fi}% +} +\def\fnotetext#1{\global\advance \fnotenum by1 \openref\wref\Xfnote{}% + {\typoscale[800/800]\vfootnote\fnmarkx{#1}} +} +\def\fnmarkx{\isdefined{fn:\the\fnotenum}\iftrue\thefnote\else$^?$\fi} +\def\thefnote{$^{\locfnum}$)} +\def\locfnum{\csname fn:\the\fnotenum\endcsname} + +\def\Xfnote{\advance\fnotenumlocal by1 \advance\fnotenum by1 + \sxdef{fn:\the\fnotenum}{\the\fnotenumlocal}} + +\newcount\mnotenum \mnotenum=0 % global counter of mnotes + +\def\mnote#1{\ifvmode \mnoteA{#1}\nobreak\vskip-\baselineskip + \else \strut\vadjust{\kern-\dp\strutbox \mnoteA{#1}\kern\dp\strutbox}% + \fi +} +\def\mnoteA#1{\global\advance \mnotenum by1 + \isdefined{mn:\the\mnotenum}\iftrue + \else\opwarning{unknown \noexpand\mnote side. TeX me again}\fi + \edef\tmp{\csname mn:\the\mnotenum\endcsname}% + \openref\wref\Xmnote{}% + \expandafter\ifx\tmp \left + \hbox to0pt{\kern-\mnotesize \kern-\mnoteindent + \vbox to0pt{\vss \setbox0=\vtop{% + \hsize=\mnotesize \leftskip=0pt plus 1fill\noindent#1}% + \dp0=0pt \box0}\hss}% + \else + \hbox to0pt{\kern\hsize \kern\mnoteindent + \vbox to0pt{\vss \setbox0=\vtop{% + \hsize=\mnotesize \rightskip=0pt plus 1fil\noindent#1}% + \dp0=0pt \box0}\hss}% + \fi +} +\def\Xmnote{\advance\mnotenum by1 + \sxdef{mn:\the\mnotenum}{\ifodd\lastpage \right \else \left \fi}} + +\def\fixmnotes#1{\tmpnum=0 + \loop \advance\tmpnum by1 + \isdefined{mn:\the\tmpnum}\iftrue \sxdef{mn:\the\tmpnum}{#1}\repeat} + +%%%%%%%%%%%%%% \cite, \bib, \usebibtex, \usebbl -- sec. 3.23 in opmac-d.pdf + +\newwrite\auxfile % AUX file for BibTeX +\newcount\bibnum % the bibitem counter +\newcount\lastcitenum \lastcitenum=0 % for \shortcitations + +\def\cite[#1]{{[\chardef\tmpb=0 \citeA #1,,,% + \ifnum\tmpb>0 \printdashcite{\the\tmpb}\fi]}} +\def\nocite[#1]{{\def\docite##1{}\citeA #1,,,}} +\def\citeA #1#2,{\if#1,\else \rcite{#1#2}\expandafter\citeA\fi} +\def\citesep{} + +\def\rcite#1{% + \if *#1\addcitelist{*}\expandafter \skiptorelax \fi + \expandafter \ifx \csname bib:#1\endcsname \relax + \addcitelist{#1}% + \opwarning{The cite [#1] unknown. Try to TeX me again}% + \docite{}\openref + \expandafter\gdef\csname bib:#1\endcsname {}% + \expandafter \skiptorelax \fi + \expandafter \ifx \csname bib:#1\endcsname \empty + \docite{}% + \expandafter \skiptorelax \fi + \def\bibnn##1{}% + \if &\csname bib:#1\endcsname + \addcitelist{#1}% + \def\bibnn##1##2{##1}% + \sxdef{bib:#1}{\csname bib:#1\endcsname}% + \fi + \docite{\csname bib:#1\endcsname}% + \relax +} +\def\printcite#1{\citesep\citelink{#1}\def\citesep{,\hskip.2em\relax}} +\def\printdashcite#1{\hbox{--}\citelink{#1}} + +\def\docite#1{\if$#1$??% + \else + \ifnum\lastcitenum=0 % only comma separated list + \printcite{#1}% + \else + \ifx\citesep\empty % first cite item + \lastcitenum=#1\relax + \printcite{#1}% + \else % next cite item + \advance\lastcitenum by1 + \ifnum\lastcitenum=#1\relax % cosecutive cite item + \mathchardef\tmpb=\lastcitenum + \else % there is a gap between cite items + \lastcitenum=#1\relax + \ifnum\tmpb=0 % previous items were printed + \printcite{#1}% + \else + \printdashcite{\the\tmpb}\printcite{#1}\chardef\tmpb=0 + \fi\fi\fi\fi\fi +} +\def\shortcitations{\lastcitenum=1 } + +\def\bib[#1]{\par \ifnum\bibnum>0 \bibskip \fi + \advance\bibnum by1 + \wbib{#1}{\the\bibnum}% + \hangindent=\iindent \hangafter=1 + \noindent \dest[cite:\the\bibnum]{1.2em}% + \hskip\iindent \llap{[\the\bibnum] }\ignorespaces +} +\def\wbib#1#2{\edef\tmp{\wref\Xbib{{#1}{#2}}}% + \ifx\tmp\empty\else \immediate\tmp \fi +} +\def\Xbib#1#2{\sdef{bib:#1}{\bibnn{#2}&}} + +\def\addcitelist#1{\global\addto\citelist{\lcite[#1]}} +\def\writeaux#1{\immediate\write\auxfile{\string\citation{#1}}} +\def\writeXcite#1{\openref\immediate\wref\Xcite{{#1}}} +\def\citelist{} \def\citelistB{} + +\def\usebibtex#1#2{% + \openref \openauxfile{#1}{#2}% + \def\lcite[##1]{\writeaux{##1}}\citelist + \global\let\addcitelist=\writeaux + \bgroup \readbblfile{\jobname}\egroup +} +\def\openauxfile#1#2{% + \immediate\openout\auxfile=\jobname.aux + \immediate\write\auxfile + {\percent\percent\space Opmac: AUX file reserved for bibtex only}% + \immediate\write\auxfile{\string\bibdata{#1}}% + \immediate\write\auxfile{\string\bibstyle{#2}}% +} +\def\readbblfile #1{% + \openin\testin=#1.bbl + \ifeof\testin + \opwarning{.bbl file doesn't exist. + Use the ``bibtex #1'' command}% + \else + \closein\testin + \bibnum=0 + \def\begin##1##2{}\def\end##1{}% LaTeX environment + \def\newcommand##1 {}% + \def\httpAddr##1{\url{http:##1}}\def\\{\hfill\break}% + \def\newblock{\hskip .11em plus.33em minus.07em}% + \def\mbox{\leavevmode\hbox}\let\em=\it + \leftskip=\iindent + \bibtexhook\relax + \input #1.bbl + \par + \fi +} +\def\bibitem{\isnextchar[{\bibitemB}{\def\tmpa{}\bibitemC}} +\def\bibitemB[#1]{\def\tmpa{#1}\bibitemC} +\def\bibitemC#1{\bibitemD{#1}} +\def\bibitemD#1{\ifnum\bibnum>0 \bibskip \fi + \advance\bibnum by1 + \noindent \dest[cite:\if$\tmpa$\the\bibnum\else\tmpa\fi]{1.2em}% + \if$\tmpa$\llap{[\the\bibnum] }\wbib{#1}{\the\bibnum}\else + \hskip-\iindent [\tmpa]\wbib{#1}{\tmpa}\enskip + \fi + \ignorespaces +} +\def\genbbl#1#2{\openauxfile{#1}{#2}% + \immediate\write\auxfile{\string\citation{*}}% + \bgroup + \iindent=4em + \def\bibitemC##1{\ifnum\bibnum>0 \bibskip \fi + \advance\bibnum by1 + \noindent \llap{[##1]\enspace}\ignorespaces + }% + \readbblfile{\jobname}% + \egroup +} +\def\usebbl/#1 #2 {\isdefined{bbl:#1}% + \iftrue \csname bbl:#1\endcsname {#2}\else + \opwarning{\string\usebbl/#1 #2 ... the `#1' type undefined}% + \fi +} +\sdef{bbl:a}#1{\bgroup \readbblfile{#1}\egroup} + +\sdef{bbl:b}#1{\bgroup + \let\lcite=\relax \xdef\citelist{\citelist\citelistB}% + \def\bibitemC##1 ##2\par{% + \isinlist\citelist{[##1]}\iftrue \bibitemD{##1}##2\par\fi}% + \readbblfile{#1}% + \global\let\addcitelist=\writeXcite + \egroup +} +\sdef{bbl:c}#1{\bgroup + \let\lcite=\relax \xdef\citelist{\citelist\citelistB}% + \def\bibitemC##1 ##2\par{% + \isinlist\citelist{[##1]}\iftrue + \ifx\tmpa\empty \sdef{bb:##1}{\bibitemD{##1}##2\par}% + \else \toks0={##2\par}% + \edef\tmpa{\noexpand\sdef{bb:##1}{% \tmpa have to expand + \noexpand\bibitemB[\tmpa]{##1}\the\toks0}}\tmpa + \fi\fi}% + \readbblfile{#1}% + \def\bibitemC##1{\bibitemD{##1}}% + \def\lcite[##1]{\csname bb:##1\endcsname}\citelist + \global\let\addcitelist=\writeXcite + \egroup +} +\def\Xcite#1{\addto\citelistB{\lcite[#1]}} + + +%%%%%%%%%%%%%% output -- sec. 3.24 in opmac-d.pdf + +\output={\opmacoutput} + +\def\opmacoutput{\def\nl{ }% + \setbox0=\vbox{\makeheadline\prepage\pagebody\makefootline}% + \pghook \protectlist + \shipout\box0 \advancepageno + \ifnum\outputpenalty>-20000 \else\dosupereject\fi +} +\def\doprotect#1{\let#1=\relax} + +\def\prepage{\wref\Xpage{{\the\pageno}}% + \dest[pg:\the\pageno]{25pt}% + \csname pg:\the\pageno\endcsname +} + +\footline={\locpgcolor\Black \hss\tenrm\thefontsize[10]\the\pageno\hss} + + +%%%%%%%%%%%%%% margins -- sec. 3.25 in opmac-d.pdf + +\newdimen\pgwidth \newdimen\pgheight \pgwidth=0pt +\newdimen\shiftoffset + +\def\margins/#1 #2 (#3,#4,#5,#6)#7 {\def\tmp{#7}% + \ifx\tmp\empty + \opwarning{\string\margins: missing unit, mm inserted}\def\tmp{mm}\fi + \addto\tmp{\relax}% + \setpagedimens #2 % setting \pgwidth, \pgheight + \ifdim\pgwidth=0pt \else + \hoffset=-1\trueunit in \voffset=-1\trueunit in + \if$#3$\if$#4$\tmpdim=\pgwidth \advance\tmpdim -\hsize + \divide\tmpdim by2 \advance\hoffset \tmpdim % left=right + \else \rbmargin\hoffset\hsize{#4\tmp}% only right margin + \fi + \else \if$#4$\advance\hoffset #3\tmp % only left margin + \else \hsize=\pgwidth % left+right margin + \advance\hsize -#3\tmp \advance\hsize -#4\tmp + \advance\hoffset #3\tmp + \fi\fi + \if$#5$\if$#6$\tmpdim=\pgheight \advance\tmpdim -\vsize + \divide\tmpdim by2 \advance\voffset \tmpdim % top=bottom + \else \rbmargin\voffset\vsize{#6\tmp}% only bottom margin + \fi + \else \if$#6$\advance\voffset #5\tmp % only top margin + \else \vsize=\pgheight % top+bottom margin + \advance\vsize -#5\tmp \advance\vsize -#6\tmp + \advance\voffset #5\tmp + \fi\fi + \if 1#1\else \if 2#1% double-page layout + \shiftoffset=\pgwidth \advance\shiftoffset -\hsize + \advance\shiftoffset -2\hoffset \advance\shiftoffset -2in + \addto\pghook{\ifodd\pageno \else \advance\hoffset \shiftoffset \fi} + \else \opwarning{use \string\margins/1 or \string\margins/2}% + \fi\fi\fi +} +\def\rbmargin#1#2#3{\advance#1\pgwidth \advance#1-#2 \advance#1-#3} + +\def\setpagedimens#1 {\isdefined{pgs:#1}\iftrue + \expandafter\expandafter\expandafter \setpagedimensA \csname pgs:#1\endcsname&% + \else \opwarning{page specification "#1" is undefined}\fi} +\def\setpagedimensA (#1,#2)#3&{\pgwidth=#1\trueunit#3 \pgheight=#2\trueunit#3\relax + \ifx\pdfpagewidth\undefined \else + \pdfpagewidth=\pgwidth \pdfpageheight=\pgheight \fi} + +\sdef{pgs:a3}{(297,420)mm} \sdef{pgs:a4}{(210,297)mm} \sdef{pgs:a5}{(148,210)mm} +\sdef{pgs:a3l}{(420,297)mm} \sdef{pgs:a4l}{(297,210)mm} \sdef{pgs:a5l}{(210,148)mm} +\sdef{pgs:b5}{(176,250)mm} \sdef{pgs:letter}{(8.5,11)in} + +\def\trueunit{} +\def\magscale[#1]{\mag=#1\def\trueunit{true}% + \ifdim\pgwidth=0pt \else \truedimen\pgwidth \truedimen\pgheight \fi + \ifx\pdfpagewidth\undefined \else + \truedimen\pdfpagewidth \truedimen\pdfpageheight + \pdfhorigin=1truein \pdfvorigin=1truein % Origin is independent off \mag + \fi} +\def\truedimen#1{#1=\expandafter\ignorept\the#1truept } + +%%%%%%%%%%%%%% REF file is read now -- sec 3.26 in opmac-d.pdf + +\inputref +\endinput + +%%%%%%%%%%%%%% History of versions: + +beta (a) Nov. 2012 ... first released version. +Dec. 2012 ... first stable version + +%%%%%%%%%%%%%% End of opmac.tex + |