diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
commit | ad547a6b5986815fda458221149728d9d9ab1d87 (patch) | |
tree | 16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/web2c/cwebdir/texinputs | |
parent | 947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff) |
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/texinputs')
13 files changed, 2111 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/cwebdir/texinputs/Xcwebmac.tex b/Build/source/texk/web2c/cwebdir/texinputs/Xcwebmac.tex new file mode 100644 index 00000000000..c2a8b4115ad --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/Xcwebmac.tex @@ -0,0 +1,41 @@ +% standard macros for CWEB listings (in addition to plain.tex) +% Version 2.4 --- Don Knuth, June 1992 +% Version 2.4 [p5] --- Hans-Hermann Bode, July 1992 +% Version 2.7 --- Don Knuth, July 1992 +% Version 2.7 [p6] --- Hans-Hermann Bode, September 1992 +% Version 2.8 --- Don Knuth, September 1992 +% Version 2.8 [p7] --- Andreas Scherer, October 1993 +% Version 3.0 --- Don Knuth, June 1993 +% Version 3.0 [p8c] --- Hans-Hermann Bode, June 1993 +% Version 3.0 [p8d] --- Andreas Scherer, October 1993 +% Version 3.0 [p8e] --- Andreas Scherer, November 1993 +% Version 3.1 [p9b] --- Andreas Scherer, January 1994 +% Version 3.1 [p9c] --- Andreas Scherer, June 1994 +% Version 3.2 [p10] --- Andreas Scherer, September 1994 +% Version 3.3 [p11] --- Andreas Scherer, December 1994 +% Version 3.3 [p11a] --- Andreas Scherer, January 1995 +% Version 3.3 [p11b] --- Andreas Scherer, March 1995 +% Version 3.4 [p13] --- Andreas Scherer, May 1996 +% Version 3.4 [p14] --- Andreas Scherer, March 1997 +% Version 3.42 [p15] --- Andreas Scherer, August 1998 +% Version 3.43 [p16] --- Andreas Scherer, October 1998 +% Version 3.5 [p17] --- Andreas Scherer, December 1999 +% Version 3.61 [p18] --- Andreas Scherer, July 2000 +% Version 3.63 [p19] --- Andreas Scherer, January 2001 +% Version 3.64 [p20] --- Andreas Scherer, March 2002 +% Version 3.64 [p21] --- Andreas Scherer, Octobre 2005 +% Version 3.64 [2018] --- Andreas Scherer, Octobre 2018 +% Version 3.64 [2020] --- Andreas Scherer, May 2020 + +\ifx\undefined\botofcontents\input cwebmac.tex\fi + +\xdef\fmtversion{\fmtversion[2020]} + +\def\Cpp{\CPLUSPLUS/} % for backward compatibility + +\font\tenss=cmss10 \let\cmntfont\tenss % comment font + +\def\C#1{\5\5\quad$\triangleright\,${\cmntfont#1}$\,\triangleleft$} +\def\SHC#1{\5\5\quad$\diamond\,${\cmntfont#1}} + +\let\K=\leftarrow % "honest" alternative to standard assignment operator diff --git a/Build/source/texk/web2c/cwebdir/texinputs/cweb_ecma94.sty b/Build/source/texk/web2c/cwebdir/texinputs/cweb_ecma94.sty new file mode 100644 index 00000000000..1ab5bd927ab --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/cweb_ecma94.sty @@ -0,0 +1,206 @@ +% +% TEX/LATEX $VER: CWEB_ECMA94.STY 1.12 (13.01.2019) +% +% SYNOPSIS: +% Conversion of umlauts and special characters of the +% ECMA-94/ISO-Latin-1/ISO-8859-1 charset for plain TeX +% with the encoding of Computer Modern Font. ISO-8859-1 +% seems to be a standard charset for many conputers and +% printers (https://en.m.wikipedia.org/wiki/ISO/IEC_8859-1). +% Some (but not all) characters with codes higher than +% code 127 are replaced by their TeX equivalents. +% This encoding is *different* to the DC encoding, which +% is very popular in the international TeX community. +% +% DATE OF CREATION: +% 11.01.94: Derived from AMIGA.TEX by Georg He{\ss}mann (V1.0) +% +% AUTHOR: +% Andreas Scherer <https://ascherer.github.io/> +% +% Please send suggestions (pull requests) and bug reports (issues) +% to https://github.com/ascherer/cwebbin +% +% CHANGES: +% 12.01.1994: Portable encoding with ^^xx notation for all systems +% relying on ECMA-94/ISO-Latin-1. Intermediate systems +% won't destroy its usability. (V1.1) +% 14.01.1994: $^1$ added for ^^b9 (V1.2) +% 15.03.1994: `\Cstringchars' implemented for use with +% the CWEB macros (V1.3) +% 27.07.1994: Two `\lccode' and `\uccode' bugs fixed. (V1.4) +% 25.10.1994: Renamed for LaTeX package support. (V1.5) +% 24.12.1994: Some more characters added. (V1.6) +% 03.01.1995: Works with LaTeX again. Several modifications +% according to Alain Aubord's `codepage' package. (V1.7) +% 25.03.1996: New postal address. (V1.8) +% 13.08.1998: New e-mail address. (V1.9) +% 18.08.2011: New postal address. (V1.10) +% 10.07.2017: Complete overhaul. (V1.11) +% 13.01.2019: Non-generic names. (V1.12) +% +% COPYRIGHT: +% There is no restriction to the usage of this file. +% +% if not(TeX >= 3.0) do_nothing, else ... +\ifx\undefined\inputlineno \else +\ifnum\inputlineno=-1 \else + +\newif\ifTeX % plain TeX or LaTeX? +\ifx\undefined\documentclass\TeXtrue\else\TeXfalse\fi + +\message{ECMA94-to-TeX conversion} + +\lccode`^^a0=`^^a0 \uccode`^^a0=`^^a0 \catcode`^^a0=\active \def ^^a0{~} +\lccode`^^a1=`^^a1 \uccode`^^a1=`^^a1 \catcode`^^a1=\active \def ^^a1{{!`}} +% ^^a2 would be ¢ +\lccode`^^a3=`^^a3 \uccode`^^a3=`^^a3 \catcode`^^a3=\active + \def ^^a3{\ifTeX{\it\$}\else\pounds\fi} + +\lccode`^^a7=`^^a7 \uccode`^^a7=`^^a7 \catcode`^^a7=\active \def ^^a7{{\S}} +\lccode`^^a8=`^^a8 \uccode`^^a8=`^^a8 \catcode`^^a8=\active \def ^^a8{\"{}} +\lccode`^^a9=`^^a9 \uccode`^^a9=`^^a9 \catcode`^^a9=\active \def ^^a9{{\copyright}} +\lccode`^^aa=`^^aa \uccode`^^aa=`^^aa \catcode`^^aa=\active + \def ^^aa{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}$\fi} +% ^^ab would be closing guillemet («) +\lccode`^^ac=`^^ac \uccode`^^ac=`^^ac \catcode`^^ac=\active + \def ^^ac{\ifmmode\lnot\else$\lnot$\fi} +\lccode`^^ad=`^^ad \uccode`^^ad=`^^ad \catcode`^^ad=\active \def ^^ad{--} +% ^^ae would be 'registered trade mark' (circled R) +\lccode`^^af=`^^af \uccode`^^af=`^^af \catcode`^^af=\active \def ^^af{\={}} + +\lccode`^^b0=`^^b0 \uccode`^^b0=`^^b0 \catcode`^^b0=\active + \def ^^b0{\ifmmode^\circ\else$^\circ$\fi} +\lccode`^^b1=`^^b1 \uccode`^^b1=`^^b1 \catcode`^^b1=\active + \def ^^b1{\ifmmode\pm\else$\pm$\fi} +\lccode`^^b2=`^^b2 \uccode`^^b2=`^^b2 \catcode`^^b2=\active + \def ^^b2{\ifmmode{}^2\else$^2$\fi} +\lccode`^^b3=`^^b3 \uccode`^^b3=`^^b3 \catcode`^^b3=\active + \def ^^b3{\ifmmode{}^3\else$^3$\fi} +\lccode`^^b4=`^^b4 \uccode`^^b4=`^^b4 \catcode`^^b4=\active \def ^^b4{\'{}} +\lccode`^^b5=`^^b5 \uccode`^^b5=`^^b5 \catcode`^^b5=\active + \def ^^b5{\ifmmode\mu\else$\mu$\fi} +\lccode`^^b6=`^^b6 \uccode`^^b6=`^^b6 \catcode`^^b6=\active \def ^^b6{{\P}} +\lccode`^^b7=`^^b7 \uccode`^^b7=`^^b7 \catcode`^^b7=\active + \def ^^b7{\ifmmode\cdot\else$\cdot$\fi} +\lccode`^^b8=`^^b8 \uccode`^^b8=`^^b8 \catcode`^^b8=\active \def ^^b8{\c{}} +\lccode`^^b9=`^^b9 \uccode`^^b9=`^^b9 \catcode`^^b9=\active + \def ^^b9{\ifmmode{}^1\else$^1$\fi} +\lccode`^^ba=`^^ba \uccode`^^ba=`^^ba \catcode`^^ba=\active + \def ^^ba{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}$\fi} +% ^^bb would be opening guillemet (») + +\def\Fraction#1#2{\ifmmode\ifTeX{#1\over#2}\else\frac{#1}{#2}\fi\else + \ifTeX$#1\over#2$\else$\frac{#1}{#2}$\fi\fi} + +\lccode`^^bc=`^^bc \uccode`^^bc=`^^bc \catcode`^^bc=\active + \def ^^bc{\Fraction{1}{4}} +\lccode`^^bd=`^^bd \uccode`^^bd=`^^bd \catcode`^^bd=\active + \def ^^bd{\Fraction{1}{2}} +\lccode`^^be=`^^be \uccode`^^be=`^^be \catcode`^^be=\active + \def ^^be{\Fraction{3}{4}} +\lccode`^^bf=`^^bf \uccode`^^bf=`^^bf \catcode`^^bf=\active \def ^^bf{{?`}} + +\lccode`^^c0=`^^e0 \uccode`^^c0=`^^c0 \catcode`^^c0=\active \def ^^c0{\`A} +\lccode`^^c1=`^^e1 \uccode`^^c1=`^^c1 \catcode`^^c1=\active \def ^^c1{\'A} +\lccode`^^c2=`^^e2 \uccode`^^c2=`^^c2 \catcode`^^c2=\active \def ^^c2{\^A} +\lccode`^^c3=`^^e3 \uccode`^^c3=`^^c3 \catcode`^^c3=\active \def ^^c3{\~A} +\lccode`^^c4=`^^e4 \uccode`^^c4=`^^c4 \catcode`^^c4=\active \def ^^c4{\"A} +\lccode`^^c5=`^^e5 \uccode`^^c5=`^^c5 \catcode`^^c5=\active \def ^^c5{{\AA}} +\lccode`^^c6=`^^e6 \uccode`^^c6=`^^c6 \catcode`^^c6=\active \def ^^c6{{\AE}} +\lccode`^^c7=`^^e7 \uccode`^^c7=`^^c7 \catcode`^^c7=\active \def ^^c7{\c{C}} +\lccode`^^c8=`^^e8 \uccode`^^c8=`^^c8 \catcode`^^c8=\active \def ^^c8{\`E} +\lccode`^^c9=`^^e9 \uccode`^^c9=`^^c9 \catcode`^^c9=\active \def ^^c9{\'E} +\lccode`^^ca=`^^ea \uccode`^^ca=`^^ca \catcode`^^ca=\active \def ^^ca{\^E} +\lccode`^^cb=`^^eb \uccode`^^cb=`^^cb \catcode`^^cb=\active \def ^^cb{\"E} +\lccode`^^cc=`^^ec \uccode`^^cc=`^^cc \catcode`^^cc=\active \def ^^cc{\`I} +\lccode`^^cd=`^^ed \uccode`^^cd=`^^cd \catcode`^^cd=\active \def ^^cd{\'I} +\lccode`^^ce=`^^ee \uccode`^^ce=`^^ce \catcode`^^ce=\active \def ^^ce{\^I} +\lccode`^^cf=`^^ef \uccode`^^cf=`^^cf \catcode`^^cf=\active \def ^^cf{\"I} + +% ^^d0 would be capital 'eth' +\lccode`^^d1=`^^f1 \uccode`^^d1=`^^d1 \catcode`^^d1=\active \def ^^d1{\~N} +\lccode`^^d2=`^^f2 \uccode`^^d2=`^^d2 \catcode`^^d2=\active \def ^^d2{\`O} +\lccode`^^d3=`^^f3 \uccode`^^d3=`^^d3 \catcode`^^d3=\active \def ^^d3{\'O} +\lccode`^^d4=`^^f4 \uccode`^^d4=`^^d4 \catcode`^^d4=\active \def ^^d4{\^O} +\lccode`^^d5=`^^f5 \uccode`^^d5=`^^d5 \catcode`^^d5=\active \def ^^d5{\~O} +\lccode`^^d6=`^^f6 \uccode`^^d6=`^^d6 \catcode`^^d6=\active \def ^^d6{\"O} +\lccode`^^d7=`^^d7 \uccode`^^d7=`^^d7 \catcode`^^d7=\active + \def ^^d7{\ifmmode\times\else$\times$\fi} +\lccode`^^d8=`^^f8 \uccode`^^d8=`^^d8 \catcode`^^d8=\active \def ^^d8{{\O}} +\lccode`^^d9=`^^f9 \uccode`^^d9=`^^d9 \catcode`^^d9=\active \def ^^d9{\`U} +\lccode`^^da=`^^fa \uccode`^^da=`^^da \catcode`^^da=\active \def ^^da{\'U} +\lccode`^^db=`^^fb \uccode`^^db=`^^db \catcode`^^db=\active \def ^^db{\^U} +\lccode`^^dc=`^^fc \uccode`^^dc=`^^dc \catcode`^^dc=\active \def ^^dc{\"U} +\lccode`^^dd=`^^fd \uccode`^^dd=`^^dd \catcode`^^dd=\active \def ^^dd{\'Y} +% ^^de would be capital 'thorn' +\lccode`^^df=`^^df \uccode`^^df=`^^df \catcode`^^df=\active \def ^^df{{\ss}} + +\lccode`^^e0=`^^e0 \uccode`^^e0=`^^c0 \catcode`^^e0=\active \def ^^e0{\`a} +\lccode`^^e1=`^^e1 \uccode`^^e1=`^^c1 \catcode`^^e1=\active \def ^^e1{\'a} +\lccode`^^e2=`^^e2 \uccode`^^e2=`^^c2 \catcode`^^e2=\active \def ^^e2{\^a} +\lccode`^^e3=`^^e3 \uccode`^^e3=`^^c3 \catcode`^^e3=\active \def ^^e3{\~a} +\lccode`^^e4=`^^e4 \uccode`^^e4=`^^c4 \catcode`^^e4=\active \def ^^e4{\"a} +\lccode`^^e5=`^^e5 \uccode`^^e5=`^^c5 \catcode`^^e5=\active \def ^^e5{{\aa}} +\lccode`^^e6=`^^e6 \uccode`^^e6=`^^c6 \catcode`^^e6=\active \def ^^e6{{\ae}} +\lccode`^^e7=`^^e7 \uccode`^^e7=`^^c7 \catcode`^^e7=\active \def ^^e7{\c{c}} +\lccode`^^e8=`^^e8 \uccode`^^e8=`^^c8 \catcode`^^e8=\active \def ^^e8{\`e} +\lccode`^^e9=`^^e9 \uccode`^^e9=`^^c9 \catcode`^^e9=\active \def ^^e9{\'e} +\lccode`^^ea=`^^ea \uccode`^^ea=`^^ca \catcode`^^ea=\active \def ^^ea{\^e} +\lccode`^^eb=`^^eb \uccode`^^eb=`^^cb \catcode`^^eb=\active \def ^^eb{\"e} +\lccode`^^ec=`^^ec \uccode`^^ec=`^^cc \catcode`^^ec=\active \def ^^ec{{\`\i}} +\lccode`^^ed=`^^ed \uccode`^^ed=`^^cd \catcode`^^ed=\active \def ^^ed{{\'\i}} +\lccode`^^ee=`^^ee \uccode`^^ee=`^^ce \catcode`^^ee=\active \def ^^ee{{\^\i}} +\lccode`^^ef=`^^ef \uccode`^^ef=`^^cf \catcode`^^ef=\active \def ^^ef{{\"\i}} + +% ^^f0 would be miniscule 'eth' +\lccode`^^f1=`^^f1 \uccode`^^f1=`^^d1 \catcode`^^f1=\active \def ^^f1{\~n} +\lccode`^^f2=`^^f2 \uccode`^^f2=`^^d2 \catcode`^^f2=\active \def ^^f2{\`o} +\lccode`^^f3=`^^f3 \uccode`^^f3=`^^d3 \catcode`^^f3=\active \def ^^f3{\'o} +\lccode`^^f4=`^^f4 \uccode`^^f4=`^^d4 \catcode`^^f4=\active \def ^^f4{\^o} +\lccode`^^f5=`^^f5 \uccode`^^f5=`^^d5 \catcode`^^f5=\active \def ^^f5{\~o} +\lccode`^^f6=`^^f6 \uccode`^^f6=`^^d6 \catcode`^^f6=\active \def ^^f6{\"o} +\lccode`^^f7=`^^f7 \uccode`^^f7=`^^f7 \catcode`^^f7=\active + \def ^^f7{\ifmmode\div\else$\div$\fi} +\lccode`^^f8=`^^f8 \uccode`^^f8=`^^d8 \catcode`^^f8=\active \def ^^f8{{\o}} +\lccode`^^f9=`^^f9 \uccode`^^f9=`^^d9 \catcode`^^f9=\active \def ^^f9{\`u} +\lccode`^^fa=`^^fa \uccode`^^fa=`^^da \catcode`^^fa=\active \def ^^fa{\'u} +\lccode`^^fb=`^^fb \uccode`^^fb=`^^db \catcode`^^fb=\active \def ^^fb{\^u} +\lccode`^^fc=`^^fc \uccode`^^fc=`^^dc \catcode`^^fc=\active \def ^^fc{\"u} +\lccode`^^fd=`^^fd \uccode`^^fd=`^^dd \catcode`^^fd=\active \def ^^fd{\'y} +% ^^fe would be miniscule 'thorn' +\lccode`^^ff=`^^ff \uccode`^^ff=`^^ff \catcode`^^ff=\active \def ^^ff{\"y} + +% The following macro supports 8-bit characters in "strings". +% Not all definitions above are repeated, so you can't use +% all text characters in strings. + +\def\Cstringchars{% Avoid any whitespace! + \def ^^a1{{\tt !`}}\def ^^bf{{\tt ?`}}\def ^^c0{{\tt\`A}}% + \def ^^c1{{\tt\'A}}\def ^^c2{{\tt\^A}}\def ^^c3{{\tt\~A}}% + \def ^^c4{{\tt\"A}}\def ^^c5{{\tt\AA}}\def ^^c6{{\tt\AE}}% + \def ^^c7{{\tt\c{C}}}\def ^^c8{{\tt\`E}}\def ^^c9{{\tt\'E}}% + \def ^^ca{{\tt\^E}}\def ^^cb{{\tt\"E}}\def ^^cc{{\tt\`I}}% + \def ^^cd{{\tt\'I}}\def ^^ce{{\tt\^I}}\def ^^cf{{\tt\"I}}% + \def ^^d1{{\tt\~N}}\def ^^d2{{\tt\`O}}\def ^^d3{{\tt\'O}}% + \def ^^d4{{\tt\^O}}\def ^^d5{{\tt\~O}}\def ^^d6{{\tt\"O}}% + \def ^^d8{{\tt\O}}\def ^^d9{{\tt\`U}}\def ^^da{{\tt\'U}}% + \def ^^db{{\tt\^U}}\def ^^dc{{\tt\"U}}\def ^^dd{{\tt\'Y}}% + \def ^^df{{\tt\ss}}\def ^^e0{{\tt\`a}}\def ^^e1{{\tt\'a}}% + \def ^^e2{{\tt\^a}}\def ^^e3{{\tt\~a}}\def ^^e4{{\tt\"a}}% + \def ^^e5{{\tt\aa}}\def ^^e6{{\tt\ae}}\def ^^e7{{\tt\c{c}}}% + \def ^^e8{{\tt\`e}}\def ^^e9{{\tt\'e}}\def ^^ea{{\tt\^e}}% + \def ^^eb{{\tt\"e}}\def ^^ec{{\tt\`\i}}\def ^^ed{{\tt\'\i}}% + \def ^^ee{{\tt\^\i}}\def ^^ef{{\tt\"\i}}\def ^^f1{{\tt\~n}}% + \def ^^f2{{\tt\`o}}\def ^^f3{{\tt\'o}}\def ^^f4{{\tt\^o}}% + \def ^^f5{{\tt\~o}}\def ^^f6{{\tt\"o}}\def ^^f8{{\tt\o}}% + \def ^^f9{{\tt\`u}}\def^^fa{{\tt\'u}}\def ^^fb{{\tt\^u}}% + \def ^^fc{{\tt\"u}}\def ^^fd{{\tt\'y}}\def ^^ff{{\tt\"y}}}% + +\fi\fi + +\endinput diff --git a/Build/source/texk/web2c/cwebdir/texinputs/cweb_hp8.sty b/Build/source/texk/web2c/cwebdir/texinputs/cweb_hp8.sty new file mode 100644 index 00000000000..08bac73eb63 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/cweb_hp8.sty @@ -0,0 +1,184 @@ +% +% TEX/LATEX $VER: CWEB_HP8.STY 1.9 (13.01.2019) +% +% SYNOPSIS: +% Conversion of umlauts and special characters of the +% HP Roman8 charset for plain TeX with the encoding of +% Computer Modern Font. HP Roman8 seems to be a standard +% charset for some conputers and printers. +% Some (but not all) characters with codes higher than +% code 127 are replaced by their TeX equivalents. +% This encoding is *different* to the DC encoding, which +% is very popular in the international TeX community. +% +% DATE OF CREATION: +% 14.01.94: Derived from ECMA94.TEX by manual encoding. (V1.0) +% +% AUTHOR: Andreas Scherer +% +% CHANGES: +% 15.03.1994: `\Cstringchars' implemented for use with +% the CWEB macros (V1.1) +% 27.07.1994: Two `\lccode' and `\uccode' bugs fixed. (V1.2) +% 25.10.1994: Renamed for LaTeX package support. (V1.3) +% 24.12.1994: Some more characters added. (V1.4) +% 03.01.1995: Works with LaTeX again. Several modifications +% accoding to Alain Aubord's `codepage' package. (V1.5) +% 25.03.1996: New postal address. (V1.6) +% 13.08.1998: New e-mail address. (V1.7) +% 18.08.2011: New postal address. (V1.8) +% 13.01.2019: Non-generic names. (V1.9) +% +% COPYRIGHT: +% There is no restriction to the usage of this file. +% +% if not(TeX >= 3.0) do_nothing, else ... +\ifx\undefined\inputlineno \else +\ifnum\inputlineno=-1 \else + +\newif\ifTeX % plain TeX or LaTeX? +\ifx\undefined\documentclass\TeXtrue\else\TeXfalse\fi + +\message{HP8-to-TeX conversion} + +\lccode`^^a0=`^^a0 \uccode`^^a0=`^^a0 \catcode`^^a0=\active \def ^^a0{~} +\lccode`^^a1=`^^c8 \uccode`^^a1=`^^a1 \catcode`^^a1=\active \def ^^a1{\`A} +\lccode`^^a2=`^^c0 \uccode`^^a2=`^^a2 \catcode`^^a2=\active \def ^^a2{\^A} +\lccode`^^a3=`^^c9 \uccode`^^a3=`^^a3 \catcode`^^a3=\active \def ^^a3{\`E} +\lccode`^^a4=`^^c1 \uccode`^^a4=`^^a4 \catcode`^^a4=\active \def ^^a4{\^E} +\lccode`^^a5=`^^cd \uccode`^^a5=`^^a5 \catcode`^^a5=\active \def ^^a5{\"E} +\lccode`^^a6=`^^d1 \uccode`^^a6=`^^a6 \catcode`^^a6=\active \def ^^a6{\^I} +\lccode`^^a7=`^^dd \uccode`^^a7=`^^a7 \catcode`^^a7=\active \def ^^a7{\"I} +\lccode`^^a8=`^^a8 \uccode`^^a8=`^^a8 \catcode`^^a8=\active \def ^^a8{\'{}} +\lccode`^^a9=`^^a9 \uccode`^^a9=`^^a9 \catcode`^^a9=\active \def ^^a9{\`{}} +\lccode`^^aa=`^^aa \uccode`^^aa=`^^aa \catcode`^^aa=\active \def ^^aa{\^{}} +\lccode`^^ab=`^^ab \uccode`^^ab=`^^ab \catcode`^^ab=\active \def ^^ab{\"{}} +\lccode`^^ac=`^^ac \uccode`^^ac=`^^ac \catcode`^^ac=\active \def ^^ac{\~{}} +\lccode`^^ad=`^^cb \uccode`^^ad=`^^ad \catcode`^^ad=\active \def ^^ad{\`U} +\lccode`^^ae=`^^c3 \uccode`^^ae=`^^ae \catcode`^^ae=\active \def ^^ae{\^U} +\lccode`^^af=`^^af \uccode`^^af=`^^af \catcode`^^af=\active + \def ^^af{\ifTeX{\it\$}\else\pounds\fi} + +\lccode`^^b0=`^^b0 \uccode`^^b0=`^^b0 \catcode`^^b0=\active \def ^^b0{\={}} +\lccode`^^b1=`^^b2 \uccode`^^b1=`^^b1 \catcode`^^b1=\active \def ^^b1{\'Y} +\lccode`^^b2=`^^b2 \uccode`^^b2=`^^b1 \catcode`^^b2=\active \def ^^b2{\'y} +\lccode`^^b3=`^^b3 \uccode`^^b3=`^^b3 \catcode`^^b3=\active + \def ^^b3{\ifmmode^\circ\else$^\circ$\fi} +\lccode`^^b4=`^^b5 \uccode`^^b4=`^^b4 \catcode`^^b4=\active \def ^^b4{\c{C}} +\lccode`^^b5=`^^b5 \uccode`^^b5=`^^b4 \catcode`^^b5=\active \def ^^b5{\c{c}} +\lccode`^^b6=`^^b7 \uccode`^^b6=`^^b6 \catcode`^^b6=\active \def ^^b6{\~N} +\lccode`^^b7=`^^b7 \uccode`^^b7=`^^b6 \catcode`^^b7=\active \def ^^b7{\~n} +\lccode`^^b8=`^^b8 \uccode`^^b8=`^^b8 \catcode`^^b8=\active \def ^^b8{{!`}} +\lccode`^^b9=`^^b9 \uccode`^^b9=`^^b9 \catcode`^^b9=\active \def ^^b9{{?`}} + +\lccode`^^bb=`^^bb \uccode`^^bb=`^^bb \catcode`^^bb=\active + \def ^^bb{\ifTeX{\it\$}\else\pounds\fi} + +\lccode`^^bd=`^^bd \uccode`^^bd=`^^bd \catcode`^^bd=\active \def ^^bd{{\S}} +\lccode`^^be=`^^be \uccode`^^be=`^^be \catcode`^^be=\active \def ^^be{{\it f\/}} + +\lccode`^^c0=`^^c0 \uccode`^^c0=`^^a2 \catcode`^^c0=\active \def ^^c0{\^a} +\lccode`^^c1=`^^c1 \uccode`^^c1=`^^a4 \catcode`^^c1=\active \def ^^c1{\^e} +\lccode`^^c2=`^^c2 \uccode`^^c2=`^^df \catcode`^^c2=\active \def ^^c2{\^o} +\lccode`^^c3=`^^c3 \uccode`^^c3=`^^ae \catcode`^^c3=\active \def ^^c3{\^u} +\lccode`^^c4=`^^c4 \uccode`^^c4=`^^e0 \catcode`^^c4=\active \def ^^c4{\'a} +\lccode`^^c5=`^^c5 \uccode`^^c5=`^^dc \catcode`^^c5=\active \def ^^c5{\'e} +\lccode`^^c6=`^^c6 \uccode`^^c6=`^^e7 \catcode`^^c6=\active \def ^^c6{\'o} +\lccode`^^c7=`^^c7 \uccode`^^c7=`^^ed \catcode`^^c7=\active \def ^^c7{\'u} +\lccode`^^c8=`^^c8 \uccode`^^c8=`^^a1 \catcode`^^c8=\active \def ^^c8{\`a} +\lccode`^^c9=`^^c9 \uccode`^^c9=`^^a3 \catcode`^^c9=\active \def ^^c9{\`e} +\lccode`^^ca=`^^ca \uccode`^^ca=`^^e8 \catcode`^^ca=\active \def ^^ca{\`o} +\lccode`^^cb=`^^cb \uccode`^^cb=`^^ad \catcode`^^cb=\active \def ^^cb{\`u} +\lccode`^^cc=`^^cc \uccode`^^cc=`^^d8 \catcode`^^cc=\active \def ^^cc{\"a} +\lccode`^^cd=`^^cd \uccode`^^cd=`^^a5 \catcode`^^cd=\active \def ^^cd{\"e} +\lccode`^^ce=`^^ce \uccode`^^ce=`^^da \catcode`^^ce=\active \def ^^ce{\"o} +\lccode`^^cf=`^^cf \uccode`^^cf=`^^db \catcode`^^cf=\active \def ^^cf{\"u} + +\lccode`^^d0=`^^d4 \uccode`^^d0=`^^d0 \catcode`^^d0=\active \def ^^d0{{\AA}} +\lccode`^^d1=`^^d1 \uccode`^^d1=`^^a6 \catcode`^^d1=\active \def ^^d1{{\^\i}} +\lccode`^^d2=`^^d6 \uccode`^^d2=`^^d2 \catcode`^^d2=\active \def ^^d2{{\O}} +\lccode`^^d3=`^^d7 \uccode`^^d3=`^^d3 \catcode`^^d3=\active \def ^^d3{{\AE}} +\lccode`^^d4=`^^d4 \uccode`^^d4=`^^d0 \catcode`^^d4=\active \def ^^d4{{\aa}} +\lccode`^^d5=`^^d5 \uccode`^^d5=`^^e5 \catcode`^^d5=\active \def ^^d5{{\'\i}} +\lccode`^^d6=`^^d6 \uccode`^^d6=`^^d2 \catcode`^^d6=\active \def ^^d6{{\o}} +\lccode`^^d7=`^^d7 \uccode`^^d7=`^^d3 \catcode`^^d7=\active \def ^^d7{{\ae}} +\lccode`^^d8=`^^cc \uccode`^^d8=`^^d8 \catcode`^^d8=\active \def ^^d8{\"A} +\lccode`^^d9=`^^d9 \uccode`^^d9=`^^e6 \catcode`^^d9=\active \def ^^d9{{\`\i}} +\lccode`^^da=`^^ce \uccode`^^da=`^^da \catcode`^^da=\active \def ^^da{\"O} +\lccode`^^db=`^^cf \uccode`^^db=`^^db \catcode`^^db=\active \def ^^db{\"U} +\lccode`^^dc=`^^c5 \uccode`^^dc=`^^dc \catcode`^^dc=\active \def ^^dc{\'E} +\lccode`^^dd=`^^dd \uccode`^^dd=`^^a7 \catcode`^^dd=\active \def ^^dd{{\"\i}} +\lccode`^^de=`^^de \uccode`^^de=`^^de \catcode`^^de=\active \def ^^de{{\ss}} +\lccode`^^df=`^^c2 \uccode`^^df=`^^df \catcode`^^df=\active \def ^^df{\^O} + +\lccode`^^e0=`^^c4 \uccode`^^e0=`^^e0 \catcode`^^e0=\active \def ^^e0{\'A} +\lccode`^^e1=`^^e2 \uccode`^^e1=`^^e1 \catcode`^^e1=\active \def ^^e1{\~A} +\lccode`^^e2=`^^e2 \uccode`^^e2=`^^e1 \catcode`^^e2=\active \def ^^e2{\~a} + +\lccode`^^e5=`^^d5 \uccode`^^e5=`^^e5 \catcode`^^e5=\active \def ^^e5{\'I} +\lccode`^^e6=`^^d9 \uccode`^^e6=`^^e6 \catcode`^^e6=\active \def ^^e6{\`I} +\lccode`^^e7=`^^c6 \uccode`^^e7=`^^e7 \catcode`^^e7=\active \def ^^e7{\'O} +\lccode`^^e8=`^^ca \uccode`^^e8=`^^e8 \catcode`^^e8=\active \def ^^e8{\`O} +\lccode`^^e9=`^^ea \uccode`^^e9=`^^e9 \catcode`^^e9=\active \def ^^e9{\~O} +\lccode`^^ea=`^^ea \uccode`^^ea=`^^e9 \catcode`^^ea=\active \def ^^ea{\~o} +\lccode`^^eb=`^^ec \uccode`^^eb=`^^eb \catcode`^^eb=\active \def ^^eb{\v{S}} +\lccode`^^ec=`^^ec \uccode`^^ec=`^^ec \catcode`^^ec=\active \def ^^ec{\v{s}} +\lccode`^^ed=`^^c7 \uccode`^^ed=`^^ed \catcode`^^ed=\active \def ^^ed{\'U} +\lccode`^^ee=`^^ef \uccode`^^ee=`^^ee \catcode`^^ee=\active \def ^^ee{\"Y} +\lccode`^^ef=`^^ef \uccode`^^ef=`^^ee \catcode`^^ef=\active \def ^^ef{\"y} + +\lccode`^^f2=`^^f2 \uccode`^^f2=`^^f2 \catcode`^^f2=\active + \def ^^f2{\ifmmode\cdot\else$\cdot$\fi} +\lccode`^^f3=`^^f3 \uccode`^^f3=`^^f3 \catcode`^^f3=\active + \def ^^f3{\ifmmode\mu\else$\mu$\fi} +\lccode`^^f4=`^^f4 \uccode`^^f4=`^^f4 \catcode`^^f4=\active \def ^^f4{{\P}} + +\def\Fraction#1#2{\ifmmode\ifTeX{#1\over#2}\else\frac{#1}{#2}\fi\else + \ifTeX$#1\over#2$\else$\frac{#1}{#2}$\fi\fi} + +\lccode`^^f5=`^^f5 \uccode`^^f5=`^^f5 \catcode`^^f5=\active + \def ^^f5{\Fraction{3}{4}} +\lccode`^^f6=`^^f6 \uccode`^^f6=`^^f6 \catcode`^^f6=\active \def ^^f6{---} +\lccode`^^f7=`^^f7 \uccode`^^f7=`^^f7 \catcode`^^f7=\active + \def ^^f7{\Fraction{1}{4}} +\lccode`^^f8=`^^f8 \uccode`^^f8=`^^f8 \catcode`^^f8=\active + \def ^^f8{\Fraction{1}{2}} +\lccode`^^f9=`^^f9 \uccode`^^f9=`^^f9 \catcode`^^f9=\active + \def ^^f9{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}$\fi} +\lccode`^^fa=`^^fa \uccode`^^fa=`^^fa \catcode`^^fa=\active + \def ^^fa{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}$\fi} + +\lccode`^^fe=`^^fe \uccode`^^fe=`^^fe \catcode`^^fe=\active + \def ^^fe{\ifmmode\pm\else$\pm$\fi} +\lccode`^^ff=`^^ff \uccode`^^ff=`^^ff \catcode`^^ff=\active \def ^^ff{~} + +\def\Cstringchars{% Avoid any whitespace! + \def ^^a1{{\tt\`A}}\def ^^a2{{\tt\^A}}\def ^^a3{{\tt\`E}}% + \def ^^a4{{\tt\^E}}\def ^^a5{{\tt\"E}}\def ^^a6{{\tt\^I}}% + \def ^^a7{{\tt\"I}}\def ^^ad{{\tt\`U}}\def ^^ae{{\tt\^U}}% + \def ^^b1{{\tt\'Y}}\def ^^b2{{\tt\'y}}\def ^^b4{{\tt\c{C}}}% + \def ^^b5{{\tt\c{c}}}\def ^^b6{{\tt\~N}}\def ^^b7{{\tt\~n}}% + \def ^^b8{{\tt!`}}\def ^^b9{{\tt?`}}\def ^^c0{{\tt\^a}}% + \def ^^c1{{\tt\^e}}\def ^^c2{{\tt\^o}}\def ^^c3{{\tt\^u}}% + \def ^^c4{{\tt\'a}}\def ^^c5{{\tt\'e}}\def ^^c6{{\tt\'o}}% + \def ^^c7{{\tt\'u}}\def ^^c8{{\tt\`a}}\def ^^c9{{\tt\`e}}% + \def ^^ca{{\tt\`o}}\def ^^cb{{\tt\`u}}\def ^^cc{{\tt\"a}}% + \def ^^cd{{\tt\"e}}\def ^^ce{{\tt\"o}}\def ^^cf{{\tt\"u}}% + \def ^^d0{{\tt\AA}}\def ^^d1{{\tt\^\i}}\def ^^d2{{\tt\O}}% + \def ^^d3{{\tt\AE}}\def ^^d4{{\tt\aa}}\def ^^d5{{\tt\'\i}}% + \def ^^d6{{\tt\o}}\def ^^d7{{\tt\ae}}\def ^^d8{{\tt\"A}}% + \def ^^d9{{\tt\`\i}}\def ^^da{{\tt\"O}}\def ^^db{{\tt\"U}}% + \def ^^dc{{\tt\'E}}\def ^^dd{{\tt\"\i}}\def ^^de{{\tt\ss}}% + \def ^^df{{\tt\^O}}\def ^^e0{{\tt\'A}}\def ^^e1{{\tt\~A}}% + \def ^^e2{{\tt\~a}}\def ^^e5{{\tt\'I}}\def ^^e6{{\tt\`I}}% + \def ^^e7{{\tt\'O}}\def^^e8{{\tt\`O}}\def ^^e9{{\tt\~O}}% + \def ^^ea{{\tt\~o}}\def ^^ed{{\tt\'U}}\def ^^ee{{\tt\"Y}}% + \def ^^ef{{\tt\"y}}}% + +\fi\fi + +\endinput diff --git a/Build/source/texk/web2c/cwebdir/texinputs/cweb_mac8.sty b/Build/source/texk/web2c/cwebdir/texinputs/cweb_mac8.sty new file mode 100644 index 00000000000..8c2402a5586 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/cweb_mac8.sty @@ -0,0 +1,232 @@ +% +% TEX/LATEX $VER: CWEB_MAC8.STY 1.7 (13.01.2019) +% +% SYNOPSIS: +% Conversion of umlauts and special characters of the +% Macintosh 8-bit charset for plain TeX with the encoding +% of Computer Modern Font. Some (but not all) characters +% with codes higher than code 127 are replaced by their +% TeX equivalents. This encoding is *different* to the +% DC encoding, which is very popular in the international +% TeX community. +% +% DATE OF CREATION: +% 23.06.94: Derived from ECMA94.TEX by manual encoding according +% to the font table presented by Yannis Haralambous in +% his article ``A typewriter font for the Macintosh +% 8-bit font table'', TUGboat 13/4 (1992). (V1.0) +% +% AUTHOR: Andreas Scherer +% +% CHANGES: +% 27.07.1994: Two `\lccode' and `\uccode' bugs fixed. (V1.1) +% 25.10.1994: Renamed for LaTeX package support. (V1.2) +% 25.12.1994: Some more characters added. (V1.3) +% 03.01.1995: Works with LaTeX again. Several modifications +% according to Alain Aubord's `codepage' package. (V1.4) +% 13.08.1998: New e-mail address. (V1.5) +% 18.08.2011: New postal address. (V1.6) +% 13.01.2019: Non-generic names. (V1.7) +% +% COPYRIGHT: There is no restriction to the usage of this file. +% +% if not(TeX >= 3.0) do_nothing, else ... +\ifx\undefined\inputlineno \else +\ifnum\inputlineno=-1 \else + +\newif\ifTeX % plain TeX or LaTeX? +\ifx\undefined\documentclass\TeXtrue\else\TeXfalse\fi + +\message{MAC8-to-TeX conversion} + +\lccode`^^80=`^^8a \uccode`^^80=`^^80 \catcode`^^80=\active \def ^^80{\"A} +\lccode`^^81=`^^8c \uccode`^^81=`^^81 \catcode`^^81=\active \def ^^81{{\AA}} +\lccode`^^82=`^^8d \uccode`^^82=`^^82 \catcode`^^82=\active \def ^^82{\c{C}} +\lccode`^^83=`^^8e \uccode`^^83=`^^83 \catcode`^^83=\active \def ^^83{\'E} +\lccode`^^84=`^^96 \uccode`^^84=`^^84 \catcode`^^84=\active \def ^^84{\~N} +\lccode`^^85=`^^9a \uccode`^^85=`^^85 \catcode`^^85=\active \def ^^85{\"O} +\lccode`^^86=`^^9f \uccode`^^86=`^^86 \catcode`^^86=\active \def ^^86{\"U} +\lccode`^^87=`^^87 \uccode`^^87=`^^e7 \catcode`^^87=\active \def ^^87{\'a} +\lccode`^^88=`^^88 \uccode`^^88=`^^cb \catcode`^^88=\active \def ^^88{\`a} +\lccode`^^89=`^^89 \uccode`^^89=`^^e5 \catcode`^^89=\active \def ^^89{\^a} +\lccode`^^8a=`^^8a \uccode`^^8a=`^^80 \catcode`^^8a=\active \def ^^8a{\"a} +\lccode`^^8b=`^^8b \uccode`^^8b=`^^cc \catcode`^^8b=\active \def ^^8b{\~a} +\lccode`^^8c=`^^8c \uccode`^^8c=`^^81 \catcode`^^8c=\active \def ^^8c{{\aa}} +\lccode`^^8d=`^^8d \uccode`^^8d=`^^82 \catcode`^^8d=\active \def ^^8d{\c{c}} +\lccode`^^8e=`^^8e \uccode`^^8e=`^^83 \catcode`^^8e=\active \def ^^8e{\'e} +\lccode`^^8f=`^^8f \uccode`^^8f=`^^e9 \catcode`^^8f=\active \def ^^8f{\`e} + +\lccode`^^90=`^^90 \uccode`^^90=`^^e6 \catcode`^^90=\active \def ^^90{\^e} +\lccode`^^91=`^^91 \uccode`^^91=`^^e8 \catcode`^^91=\active \def ^^91{\"e} +\lccode`^^92=`^^92 \uccode`^^92=`^^ea \catcode`^^92=\active \def ^^92{{\'\i}} +\lccode`^^93=`^^93 \uccode`^^93=`^^ed \catcode`^^93=\active \def ^^93{{\`\i}} +\lccode`^^94=`^^94 \uccode`^^94=`^^eb \catcode`^^94=\active \def ^^94{{\^\i}} +\lccode`^^95=`^^95 \uccode`^^95=`^^ec \catcode`^^95=\active \def ^^95{{\"\i}} +\lccode`^^96=`^^96 \uccode`^^96=`^^84 \catcode`^^96=\active \def ^^96{\~n} +\lccode`^^97=`^^97 \uccode`^^97=`^^ee \catcode`^^97=\active \def ^^97{\'o} +\lccode`^^98=`^^98 \uccode`^^98=`^^f1 \catcode`^^98=\active \def ^^98{\`o} +\lccode`^^99=`^^99 \uccode`^^99=`^^ef \catcode`^^99=\active \def ^^99{\^o} +\lccode`^^9a=`^^9a \uccode`^^9a=`^^85 \catcode`^^9a=\active \def ^^9a{\"o} +\lccode`^^9b=`^^9b \uccode`^^9b=`^^cd \catcode`^^9b=\active \def ^^9b{\~o} +\lccode`^^9c=`^^9c \uccode`^^9c=`^^f2 \catcode`^^9c=\active \def ^^9c{\'u} +\lccode`^^9d=`^^9d \uccode`^^9d=`^^f4 \catcode`^^9d=\active \def ^^9d{\`u} +\lccode`^^9e=`^^9e \uccode`^^9e=`^^f3 \catcode`^^9e=\active \def ^^9e{\^u} +\lccode`^^9f=`^^9f \uccode`^^9f=`^^86 \catcode`^^9f=\active \def ^^9f{\"u} + +\lccode`^^a0=`^^a0 \uccode`^^a0=`^^a0 \catcode`^^a0=\active \def ^^a0{{\dag}} +\lccode`^^a1=`^^a1 \uccode`^^a1=`^^a1 \catcode`^^a1=\active + \def ^^a1{\ifmmode{}^\circ\else$^\circ$\fi} + +\lccode`^^a3=`^^a3 \uccode`^^a3=`^^a3 \catcode`^^a3=\active + \def ^^a3{\ifTeX{\it\$}\else\pounds\fi} +\lccode`^^a4=`^^a4 \uccode`^^a4=`^^a4 \catcode`^^a4=\active \def ^^a4{{\S}} +\lccode`^^a5=`^^a5 \uccode`^^a5=`^^a5 \catcode`^^a5=\active + \def ^^a5{\ifmmode\bullet\else$\bullet$\fi} +\lccode`^^a6=`^^a6 \uccode`^^a6=`^^a6 \catcode`^^a6=\active \def ^^a6{{\P}} +\lccode`^^a7=`^^a7 \uccode`^^a7=`^^a7 \catcode`^^a7=\active \def ^^a7{{\ss}} + +\lccode`^^a9=`^^a9 \uccode`^^a9=`^^a9 \catcode`^^a9=\active \def ^^a9{{\copyright}} + +\lccode`^^ac=`^^ac \uccode`^^ac=`^^ac \catcode`^^ac=\active \def ^^ac{\'{}} +\lccode`^^ad=`^^ad \uccode`^^ad=`^^ad \catcode`^^ad=\active \def ^^ad{\"{}} +\lccode`^^ae=`^^be \uccode`^^ae=`^^ae \catcode`^^ae=\active \def ^^ae{{\AE}} +\lccode`^^af=`^^bf \uccode`^^af=`^^af \catcode`^^af=\active \def ^^af{{\O}} + +\lccode`^^b0=`^^b0 \uccode`^^b0=`^^b0 \catcode`^^b0=\active + \def ^^b0{\ifmmode\infty\else$\infty$\fi} +\lccode`^^b1=`^^b1 \uccode`^^b1=`^^b1 \catcode`^^b1=\active + \def ^^b1{\ifmmode\pm\else$\pm$\fi} +\lccode`^^b2=`^^b2 \uccode`^^b2=`^^b2 \catcode`^^b2=\active + \def ^^b2{\ifmmode\leq\else$\leq$\fi} +\lccode`^^b3=`^^b3 \uccode`^^b3=`^^b3 \catcode`^^b3=\active + \def ^^b3{\ifmmode\geq\else$\geq$\fi} + +\lccode`^^b5=`^^b5 \uccode`^^b5=`^^b5 \catcode`^^b5=\active + \def ^^b5{\ifmmode\mu\else$\mu$\fi} +\lccode`^^b6=`^^b6 \uccode`^^b6=`^^b6 \catcode`^^b6=\active + \def ^^b6{\ifmmode\partial\else$\partial$\fi} +\lccode`^^b7=`^^b7 \uccode`^^b7=`^^b7 \catcode`^^b7=\active + \def ^^b7{\ifmmode\Sigma\else$\Sigma$\fi} +\lccode`^^b8=`^^b9 \uccode`^^b8=`^^b8 \catcode`^^b8=\active + \def ^^b8{\ifmmode\Pi\else$\Pi$\fi} +\lccode`^^b9=`^^b9 \uccode`^^b9=`^^b8 \catcode`^^b9=\active + \def ^^b9{\ifmmode\pi\else$\pi$\fi} +\lccode`^^ba=`^^ba \uccode`^^ba=`^^ba \catcode`^^ba=\active + \def ^^ba{\ifmmode\int\else$\int$\fi} +\lccode`^^bb=`^^bb \uccode`^^bb=`^^bb \catcode`^^bb=\active + \def ^^bb{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}$\fi} +\lccode`^^bc=`^^bc \uccode`^^bc=`^^bc \catcode`^^bc=\active + \def ^^bc{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}$\fi} +\lccode`^^bd=`^^bd \uccode`^^bd=`^^bd \catcode`^^bd=\active + \def ^^bd{\ifmmode\Omega\else$\Omega$\fi} +\lccode`^^be=`^^be \uccode`^^be=`^^ae \catcode`^^be=\active \def ^^be{{\ae}} +\lccode`^^bf=`^^bf \uccode`^^bf=`^^af \catcode`^^bf=\active \def ^^bf{{\o}} + +\lccode`^^c0=`^^c0 \uccode`^^c0=`^^c0 \catcode`^^c0=\active \def ^^c0{{?`}} +\lccode`^^c1=`^^c1 \uccode`^^c1=`^^c1 \catcode`^^c1=\active \def ^^c1{{!`}} +\lccode`^^c2=`^^c2 \uccode`^^c2=`^^c2 \catcode`^^c2=\active + \def ^^c2{\ifmmode\lnot\else$\lnot$\fi} +\lccode`^^c3=`^^c3 \uccode`^^c3=`^^c3 \catcode`^^c3=\active + \def ^^c3{\ifmmode\sqrt{}\else$\sqrt{}$\fi} +\lccode`^^c4=`^^c4 \uccode`^^c4=`^^c4 \catcode`^^c4=\active \def ^^c4{{\it f\/}} +\lccode`^^c5=`^^c5 \uccode`^^c5=`^^c5 \catcode`^^c5=\active + \def ^^c5{\ifmmode\approx\else$\approx$\fi} +\lccode`^^c6=`^^c6 \uccode`^^c6=`^^c6 \catcode`^^c6=\active + \def ^^c6{\ifmmode\Delta\else$\Delta$\fi} + +\lccode`^^c9=`^^c9 \uccode`^^c9=`^^c9 \catcode`^^c9=\active + \def ^^c9{\ifmmode\ldots\else$\ldots$\fi} +\lccode`^^ca=`^^ca \uccode`^^ca=`^^ca \catcode`^^ca=\active \def ^^ca{~} +\lccode`^^cb=`^^88 \uccode`^^cb=`^^cb \catcode`^^cb=\active \def ^^cb{\`A} +\lccode`^^cc=`^^8b \uccode`^^cc=`^^cc \catcode`^^cc=\active \def ^^cc{\~A} +\lccode`^^cd=`^^9b \uccode`^^cd=`^^cd \catcode`^^cd=\active \def ^^cd{\~O} +\lccode`^^ce=`^^cf \uccode`^^ce=`^^ce \catcode`^^ce=\active \def ^^ce{{\OE}} +\lccode`^^cf=`^^cf \uccode`^^cf=`^^ce \catcode`^^cf=\active \def ^^cf{{\oe}} + +\lccode`^^d0=`^^d0 \uccode`^^d0=`^^d0 \catcode`^^d0=\active \def ^^d0{--} +\lccode`^^d1=`^^d1 \uccode`^^d1=`^^d1 \catcode`^^d1=\active \def ^^d1{---} +\lccode`^^d2=`^^d2 \uccode`^^d2=`^^d2 \catcode`^^d2=\active \def ^^d2{``} +\lccode`^^d3=`^^d3 \uccode`^^d3=`^^d3 \catcode`^^d3=\active \def ^^d3{''} +\lccode`^^d4=`^^d4 \uccode`^^d4=`^^d4 \catcode`^^d4=\active \def ^^d4{`} +\lccode`^^d5=`^^d5 \uccode`^^d5=`^^d5 \catcode`^^d5=\active \def ^^d5{'} +\lccode`^^d6=`^^d6 \uccode`^^d6=`^^d6 \catcode`^^d6=\active + \def ^^d6{\ifmmode\div\else$\div$\fi} +\lccode`^^d7=`^^d7 \uccode`^^d7=`^^d7 \catcode`^^d7=\active + \def ^^d7{\ifmmode\diamond\else$\diamond$\fi} +\lccode`^^d8=`^^d8 \uccode`^^d8=`^^d9 \catcode`^^d8=\active \def ^^d8{\"y} +\lccode`^^d9=`^^d8 \uccode`^^d9=`^^d9 \catcode`^^d9=\active \def ^^d9{\"Y} +\lccode`^^da=`^^da \uccode`^^da=`^^da \catcode`^^da=\active + \def ^^da{\ifmmode/\else$/$\fi} + +\lccode`^^dc=`^^dc \uccode`^^dc=`^^dc \catcode`^^dc=\active + \def ^^dc{\ifmmode<\else$<$\fi} +\lccode`^^dd=`^^dd \uccode`^^dd=`^^dd \catcode`^^dd=\active + \def ^^dd{\ifmmode>\else$>$\fi} +\lccode`^^de=`^^de \uccode`^^de=`^^de \catcode`^^de=\active \def ^^de{fi} +\lccode`^^df=`^^df \uccode`^^df=`^^df \catcode`^^df=\active \def ^^df{fl} + +\lccode`^^e0=`^^e0 \uccode`^^e0=`^^e0 \catcode`^^e0=\active \def ^^e0{\ddag} +\lccode`^^e1=`^^e1 \uccode`^^e1=`^^e1 \catcode`^^e1=\active + \def ^^e1{\ifmmode\cdot\else$\cdot$\fi} +\lccode`^^e2=`^^e2 \uccode`^^e2=`^^e2 \catcode`^^e2=\active \def ^^e2{,} +\lccode`^^e3=`^^e3 \uccode`^^e3=`^^e3 \catcode`^^e3=\active \def ^^e3{,\kern-.1em,\/} + +\lccode`^^e5=`^^89 \uccode`^^e5=`^^e5 \catcode`^^e5=\active \def ^^e5{\^A} +\lccode`^^e6=`^^90 \uccode`^^e6=`^^e6 \catcode`^^e6=\active \def ^^e6{\^E} +\lccode`^^e7=`^^87 \uccode`^^e7=`^^e7 \catcode`^^e7=\active \def ^^e7{\'A} +\lccode`^^e8=`^^91 \uccode`^^e8=`^^e8 \catcode`^^e8=\active \def ^^e8{\"E} +\lccode`^^e9=`^^8f \uccode`^^e9=`^^e9 \catcode`^^e9=\active \def ^^e9{\`E} +\lccode`^^ea=`^^92 \uccode`^^ea=`^^ea \catcode`^^ea=\active \def ^^ea{\'I} +\lccode`^^eb=`^^94 \uccode`^^eb=`^^eb \catcode`^^eb=\active \def ^^eb{\^I} +\lccode`^^ec=`^^95 \uccode`^^ec=`^^ec \catcode`^^ec=\active \def ^^ec{\"I} +\lccode`^^ed=`^^93 \uccode`^^ed=`^^ed \catcode`^^ed=\active \def ^^ed{\`I} +\lccode`^^ee=`^^97 \uccode`^^ee=`^^ee \catcode`^^ee=\active \def ^^ee{\'O} +\lccode`^^ef=`^^99 \uccode`^^ef=`^^ef \catcode`^^ef=\active \def ^^ef{\^O} + +\lccode`^^f1=`^^98 \uccode`^^f1=`^^f1 \catcode`^^f1=\active \def ^^f1{\`O} +\lccode`^^f2=`^^9c \uccode`^^f2=`^^f2 \catcode`^^f2=\active \def ^^f2{\'U} +\lccode`^^f3=`^^9e \uccode`^^f3=`^^f3 \catcode`^^f3=\active \def ^^f3{\^U} +\lccode`^^f4=`^^9d \uccode`^^f4=`^^f4 \catcode`^^f4=\active \def ^^f4{\`U} +\lccode`^^f5=`^^f5 \uccode`^^f5=`^^f5 \catcode`^^f5=\active \def ^^f5{{\i}} +\lccode`^^f6=`^^f6 \uccode`^^f6=`^^f6 \catcode`^^f6=\active \def ^^f6{\^{}} +\lccode`^^f7=`^^f7 \uccode`^^f7=`^^f7 \catcode`^^f7=\active \def ^^f7{\~{}} +\lccode`^^f8=`^^f8 \uccode`^^f8=`^^f8 \catcode`^^f8=\active \def ^^f8{\={}} +\lccode`^^f9=`^^f9 \uccode`^^f9=`^^f9 \catcode`^^f9=\active \def ^^f9{\u{}} +\lccode`^^fa=`^^fa \uccode`^^fa=`^^fa \catcode`^^fa=\active \def ^^fa{% + \ifx\datecontentspage\undefined\.{}\else\:{}\fi} +\lccode`^^fb=`^^fb \uccode`^^fb=`^^fb \catcode`^^fb=\active \def ^^fb{% + \ifx\datecontentspage\undefined\.{}\else\:{}\fi} +\lccode`^^fc=`^^fc \uccode`^^fc=`^^fc \catcode`^^fc=\active \def ^^fc{\c{}} +\lccode`^^fd=`^^fd \uccode`^^fd=`^^fd \catcode`^^fd=\active \def ^^fd{\H{}} +\lccode`^^fe=`^^fe \uccode`^^fe=`^^fe \catcode`^^fe=\active \def ^^fe{\c{}} +\lccode`^^ff=`^^ff \uccode`^^ff=`^^ff \catcode`^^ff=\active \def ^^ff{\v{}} + +\def\Cstringchars{% Avoid any whitespace! + \def ^^80{{\tt\"A}}\def ^^81{{\tt\AA}}\def ^^82{{\tt\c{C}}}% + \def ^^83{{\tt\'E}}\def ^^84{{\tt\~N}}\def ^^85{{\tt\"O}}% + \def ^^86{{\tt\"U}}\def ^^87{{\tt\'a}}\def ^^88{{\tt\`a}}% + \def ^^89{{\tt\^a}}\def ^^8a{{\tt\"a}}\def ^^8b{{\tt\~a}}% + \def ^^8c{{\tt\aa}}\def ^^8d{{\tt\c{c}}}\def ^^8e{{\tt\'e}}% + \def ^^8f{{\tt\`e}}\def ^^90{{\tt\^e}}\def ^^91{{\tt\"e}}% + \def ^^92{{\tt\'\i}}\def ^^93{{\tt\`\i}}\def ^^94{{\tt\^\i}}% + \def ^^95{{\tt\"\i}}\def ^^96{{\tt\~n}}\def ^^97{{\tt\'o}}% + \def ^^98{{\tt\`o}}\def ^^99{{\tt\^o}}\def ^^9a{{\tt\"o}}% + \def ^^9b{{\tt\~o}}\def ^^9c{{\tt\'u}}\def ^^9d{{\tt\`u}}% + \def ^^9e{{\tt\^u}}\def ^^9f{{\tt\"u}}\def ^^a7{{\tt\ss}}% + \def ^^ae{{\tt\AE}}\def ^^af{{\tt\O}}\def ^^be{{\tt\ae}}% + \def ^^bf{{\tt\o}}\def ^^c0{{\tt?`}}\def ^^c1{{\tt!`}}% + \def ^^cb{{\tt\`A}}\def ^^cc{{\tt\~A}}\def ^^cd{{\tt\~O}}% + \def ^^d8{{\tt\"y}}\def ^^d9{{\tt\"Y}}\def ^^e5{{\tt\^A}}% + \def ^^e6{{\tt\^E}}\def ^^e7{{\tt\'A}}\def ^^e8{{\tt\"E}}% + \def ^^e9{{\tt\`E}}\def ^^ea{{\tt\'I}}\def ^^eb{{\tt\^I}}% + \def ^^ec{{\tt\"I}}\def ^^ed{{\tt\`I}}\def ^^ee{{\tt\'O}}% + \def ^^ef{{\tt\^O}}\def ^^f1{{\tt\`O}}\def ^^f2{{\tt\'U}}% + \def ^^f3{{\tt\^U}}\def ^^f4{{\tt\`U}}} + +\fi\fi + +\endinput diff --git a/Build/source/texk/web2c/cwebdir/texinputs/cweb_pc850.sty b/Build/source/texk/web2c/cwebdir/texinputs/cweb_pc850.sty new file mode 100644 index 00000000000..338795f5619 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/cweb_pc850.sty @@ -0,0 +1,194 @@ +% +% TEX/LATEX $VER: CWEB_PC850.STY 1.10 (13.01.2019) +% +% SYNOPSIS: +% Conversion of umlauts and special characters of the +% PC-850 charset for plain TeX with the encoding of +% Computer Modern Font. PC-850 seems to be a standard +% charset for some conputers and printers. Some (but +% not all) characters with codes higher than code 127 +% are replaced by their TeX equivalents. PC-850 should +% be almost identical to CodePage 437 used for DOS. +% This encoding is *different* to the DC encoding, which +% is very popular in the international TeX community. +% +% DATE OF CREATION: +% 14.01.94: Derived from ECMA94.TEX by manual encoding. (V1.0) +% +% AUTHOR: Andreas Scherer +% +% COPYRIGHT: +% There is no restriction to the usage of this file. +% +% CHANGES: +% 15.03.1994: `\Cstringchars' implemented for use with +% the CWEB macros (V1.1) +% 13.07.1994: Exchange character positions O374 and 0375. (V1.2) +% 27.07.1994: Two `\lccode' and `\uccode' bugs fixed. (V1.3) +% 25.10.1994: Renamed for LaTeX package support. (V1.4) +% 24.12.1994: Some more characters added. (V1.5) +% 03.01.1995: Works with LaTeX again. Several modifications +% according to Alain Aubord's `codepage' package. (V1.6) +% 25.03.1996: New postal address. (V1.7) +% 13.08.1998: New e-mail address. (V1.8) +% 18.08.2011: New postal address. (V1.9) +% 13.01.2019: Non-generic names. (V1.10) +% +% if not(TeX >= 3.0) do_nothing, else ... +\ifx\undefined\inputlineno \else +\ifnum\inputlineno=-1 \else + +\newif\ifTeX % plain TeX or LaTeX? +\ifx\undefined\documentclass\TeXtrue\else\TeXfalse\fi + +\message{PC850-to-TeX conversion} + +\lccode`^^80=`^^87 \uccode`^^80=`^^80 \catcode`^^80=\active \def ^^80{\c{C}} +\lccode`^^81=`^^81 \uccode`^^81=`^^9a \catcode`^^81=\active \def ^^81{\"u} +\lccode`^^82=`^^82 \uccode`^^82=`^^90 \catcode`^^82=\active \def ^^82{\'e} +\lccode`^^83=`^^83 \uccode`^^83=`^^b6 \catcode`^^83=\active \def ^^83{\^a} +\lccode`^^84=`^^84 \uccode`^^84=`^^8e \catcode`^^84=\active \def ^^84{\"a} +\lccode`^^85=`^^85 \uccode`^^85=`^^b7 \catcode`^^85=\active \def ^^85{\`a} +\lccode`^^86=`^^86 \uccode`^^86=`^^8f \catcode`^^86=\active \def ^^86{{\aa}} +\lccode`^^87=`^^87 \uccode`^^87=`^^80 \catcode`^^87=\active \def ^^87{\c{c}} +\lccode`^^88=`^^88 \uccode`^^88=`^^d2 \catcode`^^88=\active \def ^^88{\^e} +\lccode`^^89=`^^89 \uccode`^^89=`^^d3 \catcode`^^89=\active \def ^^89{\"e} +\lccode`^^8a=`^^8a \uccode`^^8a=`^^d4 \catcode`^^8a=\active \def ^^8a{\`e} +\lccode`^^8b=`^^8b \uccode`^^8b=`^^d8 \catcode`^^8b=\active \def ^^8b{{\"\i}} +\lccode`^^8c=`^^8c \uccode`^^8c=`^^d7 \catcode`^^8c=\active \def ^^8c{{\^\i}} +\lccode`^^8d=`^^8d \uccode`^^8d=`^^de \catcode`^^8d=\active \def ^^8d{{\`\i}} +\lccode`^^8e=`^^84 \uccode`^^8e=`^^8e \catcode`^^8e=\active \def ^^8e{\"A} +\lccode`^^8f=`^^86 \uccode`^^8f=`^^8f \catcode`^^8f=\active \def ^^8f{{\AA}} + +\lccode`^^90=`^^82 \uccode`^^90=`^^90 \catcode`^^90=\active \def ^^90{\'E} +\lccode`^^91=`^^91 \uccode`^^91=`^^92 \catcode`^^91=\active \def ^^91{{\ae}} +\lccode`^^92=`^^91 \uccode`^^92=`^^92 \catcode`^^92=\active \def ^^92{{\AE}} +\lccode`^^93=`^^93 \uccode`^^93=`^^e2 \catcode`^^93=\active \def ^^93{\^o} +\lccode`^^94=`^^94 \uccode`^^94=`^^99 \catcode`^^94=\active \def ^^94{\"o} +\lccode`^^95=`^^95 \uccode`^^95=`^^e3 \catcode`^^95=\active \def ^^95{\`o} +\lccode`^^96=`^^96 \uccode`^^96=`^^ea \catcode`^^96=\active \def ^^96{\^u} +\lccode`^^97=`^^97 \uccode`^^97=`^^eb \catcode`^^97=\active \def ^^97{\`u} +\lccode`^^98=`^^98 \uccode`^^98=`^^98 \catcode`^^98=\active \def ^^98{\"y} +\lccode`^^99=`^^94 \uccode`^^99=`^^99 \catcode`^^99=\active \def ^^99{\"O} +\lccode`^^9a=`^^81 \uccode`^^9a=`^^9a \catcode`^^9a=\active \def ^^9a{\"U} +\lccode`^^9b=`^^9b \uccode`^^9b=`^^9d \catcode`^^9b=\active \def ^^9b{{\o}} +\lccode`^^9c=`^^9c \uccode`^^9c=`^^9c \catcode`^^9c=\active + \def ^^9c{\ifTeX{\it\$}\else\pounds\fi} +\lccode`^^9d=`^^9b \uccode`^^9d=`^^9d \catcode`^^9d=\active \def ^^9d{{\O}} +\lccode`^^9e=`^^9e \uccode`^^9e=`^^9e \catcode`^^9e=\active + \def ^^9e{\ifmmode\times\else$\times$\fi} +\lccode`^^9f=`^^9f \uccode`^^9f=`^^9f \catcode`^^9f=\active \def ^^9f{{\it f\/}} + +\lccode`^^a0=`^^a0 \uccode`^^a0=`^^b5 \catcode`^^a0=\active \def ^^a0{\'a} +\lccode`^^a1=`^^a1 \uccode`^^a1=`^^d6 \catcode`^^a1=\active \def ^^a1{{\'\i}} +\lccode`^^a2=`^^a2 \uccode`^^a2=`^^e0 \catcode`^^a2=\active \def ^^a2{\'o} +\lccode`^^a3=`^^a3 \uccode`^^a3=`^^e9 \catcode`^^a3=\active \def ^^a3{\'u} +\lccode`^^a4=`^^a4 \uccode`^^a4=`^^a5 \catcode`^^a4=\active \def ^^a4{\~n} +\lccode`^^a5=`^^a4 \uccode`^^a5=`^^a5 \catcode`^^a5=\active \def ^^a5{\~N} +\lccode`^^a6=`^^a6 \uccode`^^a6=`^^a6 \catcode`^^a6=\active + \def ^^a6{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{a}}}$\fi} +\lccode`^^a7=`^^a7 \uccode`^^a7=`^^a7 \catcode`^^a7=\active + \def ^^a7{\ifmmode + {}^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}\else + $^{\hbox{\ifTeX\sevenrm\else\small\fi\b{o}}}$\fi} +\lccode`^^a8=`^^a8 \uccode`^^a8=`^^a8 \catcode`^^a8=\active \def ^^a8{{?`}} + +\lccode`^^aa=`^^aa \uccode`^^aa=`^^aa \catcode`^^aa=\active + \def ^^aa{\ifmmode\lnot\else$\lnot$\fi} + +\def\Fraction#1#2{\ifmmode\ifTeX{#1\over#2}\else\frac{#1}{#2}\fi\else + \ifTeX$#1\over#2$\else$\frac{#1}{#2}$\fi\fi} + +\lccode`^^ab=`^^ab \uccode`^^ab=`^^ab \catcode`^^ab=\active + \def ^^ab{\Fraction{1}{2}} +\lccode`^^ac=`^^ac \uccode`^^ac=`^^ac \catcode`^^ac=\active + \def ^^ac{\Fraction{1}{4}} +\lccode`^^ad=`^^ad \uccode`^^ad=`^^ad \catcode`^^ad=\active \def ^^ad{{!`}} + +\lccode`^^b5=`^^a0 \uccode`^^b5=`^^b5 \catcode`^^b5=\active \def ^^b5{\'A} +\lccode`^^b6=`^^83 \uccode`^^b6=`^^b6 \catcode`^^b6=\active \def ^^b6{\^A} +\lccode`^^b7=`^^85 \uccode`^^b7=`^^b7 \catcode`^^b7=\active \def ^^b7{\`A} +\lccode`^^b8=`^^b8 \uccode`^^b8=`^^b8 \catcode`^^b8=\active \def ^^b8{{\copyright}} + +\lccode`^^c6=`^^c6 \uccode`^^c6=`^^c7 \catcode`^^c6=\active \def ^^c6{\~a} +\lccode`^^c7=`^^c6 \uccode`^^c7=`^^c7 \catcode`^^c7=\active \def ^^c7{\~A} + +\lccode`^^d2=`^^88 \uccode`^^d2=`^^d2 \catcode`^^d2=\active \def ^^d2{\^E} +\lccode`^^d3=`^^89 \uccode`^^d3=`^^d3 \catcode`^^d3=\active \def ^^d3{\"E} +\lccode`^^d4=`^^8a \uccode`^^d4=`^^d4 \catcode`^^d4=\active \def ^^d4{\`E} +\lccode`^^d5=`^^d5 \uccode`^^d5=`^^d5 \catcode`^^d5=\active \def ^^d5{{\i}} +\lccode`^^d6=`^^a1 \uccode`^^d6=`^^d6 \catcode`^^d6=\active \def ^^d6{\'I} +\lccode`^^d7=`^^8c \uccode`^^d7=`^^d7 \catcode`^^d7=\active \def ^^d7{\^I} +\lccode`^^d8=`^^8b \uccode`^^d8=`^^d8 \catcode`^^d8=\active \def ^^d8{\"I} + +\lccode`^^de=`^^8d \uccode`^^de=`^^de \catcode`^^de=\active \def ^^de{\`I} + +\lccode`^^e0=`^^a2 \uccode`^^e0=`^^e0 \catcode`^^e0=\active \def ^^e0{\'O} +\lccode`^^e1=`^^e1 \uccode`^^e1=`^^e1 \catcode`^^e1=\active \def ^^e1{{\ss}} +\lccode`^^e2=`^^93 \uccode`^^e2=`^^e2 \catcode`^^e2=\active \def ^^e2{\^O} +\lccode`^^e3=`^^95 \uccode`^^e3=`^^e3 \catcode`^^e3=\active \def ^^e3{\`O} +\lccode`^^e4=`^^e4 \uccode`^^e4=`^^e5 \catcode`^^e4=\active \def ^^e4{\~o} +\lccode`^^e5=`^^e4 \uccode`^^e5=`^^e5 \catcode`^^e5=\active \def ^^e5{\~O} +\lccode`^^e6=`^^e6 \uccode`^^e6=`^^e6 \catcode`^^e6=\active + \def ^^e6{\ifmmode\mu\else$\mu$\fi} + +\lccode`^^e9=`^^a3 \uccode`^^e9=`^^e9 \catcode`^^e9=\active \def ^^e9{\'U} +\lccode`^^ea=`^^96 \uccode`^^ea=`^^ea \catcode`^^ea=\active \def ^^ea{\^U} +\lccode`^^eb=`^^97 \uccode`^^eb=`^^eb \catcode`^^eb=\active \def ^^eb{\`U} +\lccode`^^ec=`^^ec \uccode`^^ec=`^^ed \catcode`^^ec=\active \def ^^ec{\'y} +\lccode`^^ed=`^^ec \uccode`^^ed=`^^ed \catcode`^^ed=\active \def ^^ed{\'Y} +\lccode`^^ee=`^^ee \uccode`^^ee=`^^ee \catcode`^^ee=\active \def ^^ee{\={}} +\lccode`^^ef=`^^ef \uccode`^^ef=`^^ef \catcode`^^ef=\active \def ^^ef{\'{}} + +\lccode`^^f0=`^^f0 \uccode`^^f0=`^^f0 \catcode`^^f0=\active \def ^^f0{--} +\lccode`^^f1=`^^f1 \uccode`^^f1=`^^f1 \catcode`^^f1=\active + \def ^^f1{\ifmmode\pm\else$\pm$\fi} + +\lccode`^^f3=`^^f3 \uccode`^^f3=`^^f3 \catcode`^^f3=\active + \def ^^f3{\Fraction{3}{4}} +\lccode`^^f4=`^^f4 \uccode`^^f4=`^^f4 \catcode`^^f4=\active \def ^^f4{{\P}} +\lccode`^^f5=`^^f5 \uccode`^^f5=`^^f5 \catcode`^^f5=\active \def ^^f5{{\S}} +\lccode`^^f6=`^^f6 \uccode`^^f6=`^^f6 \catcode`^^f6=\active + \def ^^f6{\ifmmode\div\else$\div$\fi} +\lccode`^^f7=`^^f7 \uccode`^^f7=`^^f7 \catcode`^^f7=\active \def ^^f7{\c{}} +\lccode`^^f8=`^^f8 \uccode`^^f8=`^^f8 \catcode`^^f8=\active + \def ^^f8{\ifmmode{}^\circ\else$^\circ$\fi} +\lccode`^^f9=`^^f9 \uccode`^^f9=`^^f9 \catcode`^^f9=\active \def ^^f9{\"{}} +\lccode`^^fa=`^^fa \uccode`^^fa=`^^fa \catcode`^^fa=\active + \def ^^fa{\ifmmode\cdot\else$\cdot$\fi} +\lccode`^^fb=`^^fb \uccode`^^fb=`^^fb \catcode`^^fb=\active + \def ^^fb{\ifmmode{}^1\else${}^1$\fi} +\lccode`^^fc=`^^fc \uccode`^^fc=`^^fc \catcode`^^fc=\active + \def ^^fc{\ifmmode{}^3\else${}^3$\fi} +\lccode`^^fd=`^^fd \uccode`^^fd=`^^fd \catcode`^^fd=\active + \def ^^fd{\ifmmode{}^2\else${}^2$\fi} + +\lccode`^^ff=`^^ff \uccode`^^ff=`^^ff \catcode`^^ff=\active \def ^^ff{~} + +\def\Cstringchars{% Avoid any whitespace! + \def ^^80{{\tt\c{C}}}\def ^^81{{\tt\"u}}\def ^^82{{\tt\'e}}% + \def ^^83{{\tt\^a}}\def ^^84{{\tt\"a}}\def ^^85{{\tt\`a}}% + \def ^^86{{\tt\aa}}\def ^^87{{\tt\c{c}}}\def ^^88{{\tt\^e}}% + \def ^^89{{\tt\"e}}\def ^^8a{{\tt\`e}}\def ^^8b{{\tt\"\i}}% + \def ^^8c{{\tt\^\i}}\def ^^8d{{\tt\`\i}}\def ^^8e{{\tt\"A}}% + \def ^^8f{{\tt\AA}}\def ^^90{{\tt\'E}}\def ^^91{{\tt\ae}}% + \def ^^92{{\tt\AE}}\def ^^93{{\tt\^o}}\def ^^94{{\tt\"o}}% + \def ^^95{{\tt\`o}}\def ^^96{{\tt\^u}}\def ^^97{{\tt\`u}}% + \def ^^98{{\tt\"y}}\def ^^99{{\tt\"O}}\def ^^9a{{\tt\"U}}% + \def ^^9b{{\tt\o}}\def ^^9d{{\tt\O}}\def ^^a0{{\tt\'a}}% + \def ^^a1{{\tt\'\i}}\def ^^a2{{\tt\'o}}\def ^^a3{{\tt\'u}}% + \def ^^a4{{\tt\~n}}\def ^^a5{{\tt\~N}}\def ^^a8{{\tt?`}}% + \def ^^ad{{\tt!`}}\def ^^b5{{\tt\'A}}\def ^^b6{{\tt\^A}}% + \def ^^b7{{\tt\`A}}\def ^^c6{{\tt\~a}}\def ^^c7{{\tt\~A}}% + \def ^^d2{{\tt\^E}}\def ^^d3{{\tt\"E}}\def ^^d4{{\tt\`E}}% + \def ^^d6{{\tt\'I}}\def ^^d7{{\tt\^I}}\def ^^d8{{\tt\"I}}% + \def ^^de{{\tt\`I}}\def ^^e0{{\tt\'O}}\def ^^e1{{\tt\ss}}% + \def ^^e2{{\tt\^O}}\def ^^e3{{\tt\`O}}\def ^^e4{{\tt\~o}}% + \def ^^e5{{\tt\~O}}\def^^e9{{\tt\'U}}\def ^^ea{{\tt\^U}}% + \def ^^eb{{\tt\`U}}\def ^^ec{{\tt\'y}}\def ^^ed{{\tt\'Y}}}% + +\fi\fi + +\endinput diff --git a/Build/source/texk/web2c/cwebdir/texinputs/dctproofmac.tex b/Build/source/texk/web2c/cwebdir/texinputs/dctproofmac.tex new file mode 100644 index 00000000000..09a8de346b6 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/dctproofmac.tex @@ -0,0 +1,28 @@ +\ifx\undefined\documentclass\input ctproofmac.tex +\else\endinput\fi % LaTeX will use other macros + +\let\acrofalse=\relax +\input dcwebstrings.tex + +\def\fin{\par\vfill\eject % this is done when we are ending the index + \ifpagesaved\null\vfill\eject\fi % output a null index column + \if L\lr\else\null\vfill\eject\fi % finish the current page + \parfillskip 0pt plus 1fil + \let\topsecno=\nullsec + \redeffin + \output={\normaloutput\page\lheader\rheader} + \setpage + \def\note##1##2.{\quad{\eightrm##1~##2.}} + \def\I{\par\hangindent 2em}\let\*=* + \readsections} +\def\con{\par\vfill\eject % finish the section names + \rightskip 0pt \hyphenpenalty 50 \tolerance 200 + \setpage \output={\normaloutput\page\lheader\rheader} + \titletrue % prepare to output the table of contents + \pageno=\contentspagenumber + \redefcon + \topofcontents + \line{\headerline} + \let\ZZ=\contentsline + \readcontents\relax % read the contents info + \botofcontents \end} % print the contents page(s) and terminate diff --git a/Build/source/texk/web2c/cwebdir/texinputs/dctwimac.tex b/Build/source/texk/web2c/cwebdir/texinputs/dctwimac.tex new file mode 100644 index 00000000000..aaba94d4ba2 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/dctwimac.tex @@ -0,0 +1,12 @@ +\ifx\undefined\documentclass\input ctwimac.tex +\else\endinput\fi % LaTeX will use other macros + +\let\acrofalse=\relax +\input dcwebstrings.tex + +\def\fin{\parfillskip 0pt plus 1fil + \let\topsecno=\nullsec + \redeffin + \def\note##1##2.{\quad{\eightrm##1~##2.}} + \def\I{\par\hangindent 2em}\let\*=* + \readsections} diff --git a/Build/source/texk/web2c/cwebdir/texinputs/dcwebmac.tex b/Build/source/texk/web2c/cwebdir/texinputs/dcwebmac.tex new file mode 100644 index 00000000000..d74e5bff025 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/dcwebmac.tex @@ -0,0 +1,105 @@ +% standard macros for CWEB listings (in addition to plain.tex) +% modified for use with "tex2pdf" --- March 1997 +% Version 2.0 --- Don Knuth, July 1990 +% Version 2.0 [german] --- Carsten Steger, October 1991 +% Version 2.0 [german] --- Andreas Scherer, February 1993 +% Version 2.7 --- Don Knuth, July 1992 +% Version 2.7 [p6c] --- Andreas Scherer, September 1993 +% Version 2.8 --- Don Knuth, September 1992 +% Version 2.8 [german] --- Carsten Steger, 1993 +% Version 2.8 [p7] --- Andreas Scherer, October 1993 +% Version 3.0 --- Don Knuth, June 1993 +% Version 3.0 [p8e] --- Andreas Scherer, November 1993 +% Version 3.1 [p9b] --- Andreas Scherer, January 1994 +% Version 3.1 [p9c] --- Andreas Scherer, March 1994 +% Version 3.1 [p9d] --- Andreas Scherer, July 1994 +% Version 3.2 [p10] --- Andreas Scherer, August 1994 +% Version 3.2 [p10b] --- Andreas Scherer, October 1994 +% Version 3.3 [p11a] --- Andreas Scherer, December 1994 +% Version 3.3 [p11b] --- Andreas Scherer, March 1995 +% Version 3.4 [p13] --- Andreas Scherer, August 1995 +% Version 3.4 [p14] --- Andreas Scherer, March 1997 +% Version 3.42 [p15] --- Andreas Scherer, August 1998 +% Version 3.43 [p16] --- Andreas Scherer, October 1998 +% Version 3.5 [p17] --- Andreas Scherer, December 1999 +% Version 3.61 [p18] --- Andreas Scherer, July 2000 +% Version 3.63 [p19] --- Andreas Scherer, January 2001 +% Version 3.64 [p20] --- Andreas Scherer, March 2002 +% Version 3.64 [p21] --- Andreas Scherer, Octobre 2005 +% Version 3.64 [p22] --- Andreas Scherer, March 2016 + +\ifx\undefined\botofcontents\input cwebmac.tex\fi + +\input dcwebstrings.tex % German translations for some tags and strings + +\def\.#1{\leavevmode\hbox{\tentex % typewriter type for strings + \ifx\Cstringchars\undefined\else\Cstringchars\fi % special string characters + \let\\=\BS % backslash in a string + \let\{=\LB % left brace in a string + \let\}=\RB % right brace in a string + \let\~=\TL % tilde in a string + \let\ =\SP % space in a string + \let\_=\UL % underline in a string + \let\&=\AM % ampersand in a string + \let\^=\CF % circumflex in a string + \ifx\originalTeX\undefined\else\originalTeX\fi#1\kern.05em}} + +\def\postATL#1 #2 {\bf Buchstabe \\{\uppercase{\char"#1}} + wird getangled als \tentex "#2"\egroup\par} + +\gtitle={\.{CWEB} Ausgabe} % this running head is reset by starred sections +\mark{\noexpand\nullsec0{\the\gtitle}} + +\def\fin{\par\vfill\eject % this is done when we are ending the index + \ifpagesaved\null\vfill\eject\fi % output a null index column + \if L\lr\else\null\vfill\eject\fi % finish the current page + \ifpdftex \makebookmarks \fi % added in Version 3.68 + \parfillskip 0pt plus 1fil + \let\topsecno=\nullsec + \redeffin + \output={\normaloutput\page\lheader\rheader} + \setpage + \def\note##1##2.{\quad{\eightrm##1~\ifacro{\pdfnote##2.}\else{##2}\fi.}} + \def\I{\par\hangindent 2em}\let\*=* + \ifacro \let\Xpdf\X + \ifpdftex \pdfdest name {NOS} fith + \pdfoutline goto name {NOS} count -\secno {\outsecname} + \def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \pdfoutline goto num \the\toksA \expandafter{\the\toksE}} + \else\ifpdf + \special{pdf: outline -1 << /Title (\outsecname) + /Dest [ @thispage /FitH @ypos ] >>} + \def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \special{pdf: outline 0 << /Title (\the\toksE) + /A << /S /GoTo /D (\romannumeral\the\toksA) >> >>}} + \fi\fi\fi + \readsections} +\def\con{\par\vfill\eject % finish the section names +% \ifodd\pageno\else\titletrue\null\vfill\eject\fi % for duplex printers + \rightskip 0pt \hyphenpenalty 50 \tolerance 200 + \setpage \output={\normaloutput\page\lheader\rheader} + \titletrue % prepare to output the table of contents + \pageno=\contentspagenumber + \redefcon + \topofcontents \startpdf + \line{\headerline} + \let\ZZ=\contentsline + \readcontents\relax % read the contents info + \botofcontents \end} % print the contents page(s) and terminate +\def\today{\number\day.~\ifcase\month\or + Januar\or Februar\or M\"arz\or April\or Mai\or Juni\or + Juli\or August\or September\or Oktober\or November\or Dezember\fi + \space\number\year} +\def\hours{\twodigits=\time \divide\twodigits by60 \printtwodigits + \null\space\sc Uhr\space % distinguish between time and year + \multiply\twodigits by-60 \advance\twodigits by\time \printtwodigits} +\def\datethis{\def\startsection{\leftline{\sc\today\ um \hours}\bigskip + \let\startsection=\stsec\stsec}} + % say `\datethis' in limbo, to get your listing timestamped before section 1 +\def\datecontentspage{% changed in version 3.66 + \def\botofcontents{\vfill + \centerline{\covernote} + \bigskip + \leftline{\sc\today\ um \hours}}} % timestamps the contents page diff --git a/Build/source/texk/web2c/cwebdir/texinputs/dcwebstrings.tex b/Build/source/texk/web2c/cwebdir/texinputs/dcwebstrings.tex new file mode 100644 index 00000000000..055f0ea45b8 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/dcwebstrings.tex @@ -0,0 +1,40 @@ +% In case `german.sty' has been loaded, we have to redefine the `\3' +% macro for an optional break within a statement. This should be the +% first command after `\input german.sty' in your CWEB source. +\def\originalthree{\def\3##1{\hfil\penalty##10\hfilneg}} + +\def\ATH{{\acrofalse\X\kern-.5em:Pr\"aprozessor Definitionen\X}} + +\def\A{\note{Siehe auch Abschnitt}} % xref for doubly defined section name +\def\As{\note{Siehe auch die Abschnitte}} + % xref for multiply defined section name + +\def\ET{ und~} % conjunction between two section numbers +\def\ETs{ und~} % conjunction between the last two of several section numbers + +\def\Q{\note{Dieser Programmteil wird zitiert in Abschnitt}} + % xref for mention of a section +\def\Qs{\note{Dieser Programmteil wird zitiert in den Abschnitten}} + % xref for mentions of a section + +\def\U{\note{Dieser Programmteil wird verwendet in Abschnitt}} + % xref for use of a section +\def\Us{\note{Dieser Programmteil wird verwendet in den Abschnitten}} + % xref for uses of a section + +\def\ch{\note{Die folgenden Abschnitte sind vom Change-File ver\"andert worden:} + \let\*=\relax} + +\def\redeffin{\message{Abschnittsnamen:} + \def\grouptitle{ABSCHNITTSNAMEN} + \def\outsecname{Abschnittsnamen} + \def\Q{\note{Zitiert in Abschnitt}} % crossref for mention of a section + \def\Qs{\note{Zitiert in den Abschnitten}} % crossref for mentions of a section + \def\U{\note{Verwendet in Abschnitt}} % crossref for use of a section + \def\Us{\note{Verwendet in den Abschnitten}} % crossref for uses of a section +} + +\def\redefcon{\message{Inhaltsverzeichnis:} + \def\grouptitle{INHALTSVERZEICHNIS:} + \def\headerline{\hfil Abschnitt\hbox to3em{\hss Seite}} +} diff --git a/Build/source/texk/web2c/cwebdir/texinputs/fcwebmac.tex b/Build/source/texk/web2c/cwebdir/texinputs/fcwebmac.tex new file mode 100644 index 00000000000..dde54141b16 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/fcwebmac.tex @@ -0,0 +1,135 @@ +% standard macros for CWEB listings (in addition to plain.tex) +% modified for use with "tex2pdf" --- March 1997 +% Version 2.0 --- Don Knuth, July 1990 +% Version 2.0 [german] --- Carsten Steger, October 1991 +% Version 2.0 [german] --- Andreas Scherer, February 1993 +% Version 2.7 --- Don Knuth, July 1992 +% Version 2.7 [p6c] --- Andreas Scherer, September 1993 +% Version 2.8 --- Don Knuth, September 1992 +% Version 2.8 [german] --- Carsten Steger, 1993 +% Version 2.8 [p7] --- Andreas Scherer, October 1993 +% Version 3.0 --- Don Knuth, June 1993 +% Version 3.0 [p8e] --- Andreas Scherer, November 1993 +% Version 3.1 [p9b] --- Andreas Scherer, January 1994 +% Version 3.1 [p9c] --- Andreas Scherer, March 1994 +% Version 3.1 [p9d] --- Andreas Scherer, July 1994 +% Version 3.2 [p10] --- Andreas Scherer, July 1994 +% Version 3.2 [p10a] --- Denis B. Roegel, September 1994 +% Version 3.3 [p10b] --- Andreas Scherer, October 1994 +% Version 3.3 [p11b] --- Andreas Scherer, March 1995 +% Version 3.4 [p13] --- Andreas Scherer, August 1995 +% Version 3.4 [p14] --- Andreas Scherer, March 1997 +% Version 3.42 [p15] --- Andreas Scherer, August 1998 +% Version 3.43 [p16] --- Andreas Scherer, October 1998 +% Version 3.5 [p17] --- Andreas Scherer, December 1999 +% Version 3.61 [p18] --- Andreas Scherer, July 2000 +% Version 3.63 [p19] --- Andreas Scherer, January 2001 +% Version 3.64 [p20] --- Andreas Scherer, March 2002 +% Version 3.64 [p21] --- Andreas Scherer, Octobre 2005 +% Version 3.64 [p22] --- Andreas Scherer, March 2016 + +% french translations --- Denis Roegel, 18 September 1994 + +\ifx\undefined\botofcontents\input cwebmac.tex\fi + +\def\.#1{\leavevmode\hbox{\tentex % typewriter type for strings + \ifx\Cstringchars\undefined\else\Cstringchars\fi % special string characters + \let\\=\BS % backslash in a string + \let\{=\LB % left brace in a string + \let\}=\RB % right brace in a string + \let\~=\TL % tilde in a string + \let\ =\SP % space in a string + \let\_=\UL % underline in a string + \let\&=\AM % ampersand in a string + \let\^=\CF % circumflex in a string + #1\kern.05em}} + +\def\postATL#1 #2 {\bf La lettre \\{\uppercase{\char"#1}} + est \string`\string`tanglee\string'\string' en \tentex "#2"\egroup\par} +\def\ATH{{\acrofalse\X\kern-.5em:D\'efinitions du pr\'eprocesseur\X}} + +\def\A{\note{Voir aussi la section}} % xref for doubly defined section name +\def\As{\note{Voir aussi les sections}} % xref for multiply defined section name + +\def\ET{ et~} % conjunction between two section numbers +\def\ETs{ et~} % conjunction between the last two of several section numbers + +\def\Q{\note{Cette partie du programme est cit\'ee dans la section}} + % xref for mention of a section +\def\Qs{\note{Cette partie du programme est cit\'ee dans les sections}} + % xref for mentions of a section + +\def\U{\note{Cette partie du programme est utilis\'ee dans la section}} + % xref for use of a section +\def\Us{\note{Cette partie du programme est utilis\'ee dans les sections}} + % xref for uses of a section + +\gtitle={Sortie \.{CWEB}} % this running head is reset by starred sections +\mark{\noexpand\nullsec0{\the\gtitle}} + +\def\ch{\note{Les sections suivantes ont \'et\'e modifi\'ees dans le + Change-File:}\let\*=\relax} + +\def\fin{\par\vfill\eject % this is done when we are ending the index + \ifpagesaved\null\vfill\eject\fi % output a null index column + \if L\lr\else\null\vfill\eject\fi % finish the current page + \ifpdftex \makebookmarks \fi % added in Version 3.68 + \parfillskip 0pt plus 1fil + \def\grouptitle{NOMS DES SECTIONS} + \let\topsecno=\nullsec + \message{Noms des sections:} + \output={\normaloutput\page\lheader\rheader} + \setpage + \def\note##1##2.{\quad{\eightrm##1~\ifacro{\pdfnote##2.}\else{##2}\fi.}} + \def\Q{\note{Cit\'e dans la section}} % crossref for mention of a section + \def\Qs{\note{Cit\'e dans les sections}} % crossref for mentions of a section + \def\U{\note{Utilis\'e dans la section}} % crossref for use of a section + \def\Us{\note{Utilis\'e dans les sections}} % crossref for uses of a section + \def\I{\par\hangindent 2em}\let\*=* + \ifacro \def\outsecname{Noms des sections} \let\Xpdf\X +% \ifpdftex \makebookmarks \pdfdest name {NOS} fitb % in versions < 3.68 + \ifpdftex \pdfdest name {NOS} fith % changed in version 3.69 + \pdfoutline goto name {NOS} count -\secno {\outsecname} + \def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \pdfoutline goto num \the\toksA \expandafter{\the\toksE}} + \else\ifpdf + \special{pdf: outline -1 << /Title (\outsecname) + /Dest [ @thispage /FitH @ypos ] >>} + \def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \special{pdf: outline 0 << /Title (\the\toksE) + /A << /S /GoTo /D (\romannumeral\the\toksA) >> >>}} + \fi\fi\fi + \readsections} +\def\con{\par\vfill\eject % finish the section names +% \ifodd\pageno\else\titletrue\null\vfill\eject\fi % for duplex printers + \rightskip 0pt \hyphenpenalty 50 \tolerance 200 + \setpage \output={\normaloutput\page\lheader\rheader} + \titletrue % prepare to output the table of contents + \pageno=\contentspagenumber + \def\grouptitle{SOMMAIRE:} + \message{Sommaire:} + \topofcontents \startpdf + \line{\hfil Section\hbox to3em{\hss Page}} + \let\ZZ=\contentsline + \readcontents\relax % read the contents info + \botofcontents \end} % print the contents page(s) and terminate +\def\today{\number\day.~\ifcase\month\or + Janvier\or F\'evrier\or Mars\or Avril\or Mai\or Juin\or + Juillet\or Ao\^ut\or Septembre\or Octobre\or Novembre\or D\'ecembre\fi + \space\number\year} +\def\hours{\twodigits=\time \divide\twodigits by60 \printtwodigits + \null\space\sc h\space % distinguish between time and year + \multiply\twodigits by-60 \advance\twodigits by\time \printtwodigits} +\def\datethis{\def\startsection{\leftline{\sc\today\ \`a \hours}\bigskip + \let\startsection=\stsec\stsec}} + % say `\datethis' in limbo, to get your listing timestamped before section 1 +%\def\datecontentspage{% versions up to 3.65 +% \def\topofcontents{\leftline{\sc\today\ \`a \hours}\bigskip +% \centerline{\titlefont\title}\vfill}} % timestamps the contents page +\def\datecontentspage{% changed in version 3.66 + \def\botofcontents{\vfill + \centerline{\covernote} + \bigskip + \leftline{\sc\today\ \`a \hours}}} % timestamps the contents page diff --git a/Build/source/texk/web2c/cwebdir/texinputs/icwebmac.tex b/Build/source/texk/web2c/cwebdir/texinputs/icwebmac.tex new file mode 100644 index 00000000000..6fcafb9e6d7 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/icwebmac.tex @@ -0,0 +1,156 @@ +% standard macros for CWEB listings (in addition to plain.tex) +% modified for use with "tex2pdf" --- March 1997 +% Version 2.0 --- Don Knuth, July 1990 +% Version 2.0 [german] --- Carsten Steger, October 1991 +% Version 2.0 [german] --- Andreas Scherer, February 1993 +% Version 2.7 --- Don Knuth, July 1992 +% Version 2.7 [p6c] --- Andreas Scherer, September 1993 +% Version 2.8 --- Don Knuth, September 1992 +% Version 2.8 [german] --- Carsten Steger, 1993 +% Version 2.8 [p7] --- Andreas Scherer, October 1993 +% Version 3.0 --- Don Knuth, June 1993 +% Version 3.0 [p8e] --- Andreas Scherer, November 1993 +% Version 3.1 [p9b] --- Andreas Scherer, January 1994 +% Version 3.1 [p9c] --- Andreas Scherer, March 1994 +% Version 3.1 [p9d] --- Andreas Scherer, July 1994 +% Version 3.2 [p10] --- Andreas Scherer, July 1994 +% Version 3.2 [p10a] --- Giuseppe Ghibò, September 1994 +% Version 3.2 [p10b] --- Andreas Scherer, October 1994 +% Version 3.3 [p11b] --- Andreas Scherer, March 1995 +% Version 3.4 [p13] --- Andreas Scherer, August 1995 +% Version 3.4 [p14] --- Andreas Scherer, March 1997 +% Version 3.42 [p15] --- Andreas Scherer, August 1998 +% Version 3.43 [p16] --- Andreas Scherer, October 1998 +% Version 3.5 [p17] --- Andreas Scherer, December 1999 +% Version 3.61 [p18] --- Andreas Scherer, July 2000 +% Version 3.63 [p19] --- Andreas Scherer, January 2001 +% Version 3.64 [p20] --- Andreas Scherer, March 2002 +% Version 3.64 [p21] --- Andreas Scherer, Octobre 2005 +% Version 3.64 [p22] --- Andreas Scherer, March 2016 + +\ifx\undefined\botofcontents\input cwebmac.tex\fi + +\def\.#1{\leavevmode\hbox{\tentex % typewriter type for strings + \ifx\Cstringchars\undefined\else\Cstringchars\fi % special string characters + \let\\=\BS % backslash in a string + \let\{=\LB % left brace in a string + \let\}=\RB % right brace in a string + \let\~=\TL % tilde in a string + \let\ =\SP % space in a string + \let\_=\UL % underline in a string + \let\&=\AM % ampersand in a string + \let\^=\CF % circumflex in a string + #1\kern.05em}} + +\def\postATL#1 #2 {\bf lettera \\{\uppercase{\char"#1}} + tangles as \tentex "#2"\egroup\par} +\def\ATH{{\acrofalse\X\kern-.5em:Definizioni preprocessore\X}} + +\def\A{\note{Vedi anche sezione}} % xref for doubly defined section name +\def\As{\note{Vedi anche sezioni}} % xref for multiply defined section name + +\def\ET{ e~} % conjunction between two section numbers +\def\ETs{ e~} % conjunction between the last two of several section numbers + +\def\Q{\note{Questo codice \`e citato nella sezione}} + % xref for mention of a section +\def\Qs{\note{Questo codice \`e citato nelle sezioni}} + % xref for mentions of a section + +\def\U{\note{Questo codice \`e usato nella sezione}} + % xref for use of a section +\def\Us{\note{Questo codice \`e usato nelle sezioni}} + % xref for uses of a section + +\gtitle={Output \.{CWEB}} % this running head is reset by starred sections +\mark{\noexpand\nullsec0{\the\gtitle}} + +\def\ch{\note{Le seguenti sezioni sono state modificate tramite il change-file:} + \let\*=\relax} + +\def\inx{\par\vskip6pt plus 1fil % we are beginning the index + \def\page{\box255 } \normalbottom + \write\cont{} % ensure that the contents file isn't empty + \write\cont{\catcode `\noexpand\@=12\relax} % \makeatother + \closeout\cont % the contents information has been fully gathered + \output{\ifpagesaved\normaloutput{\box\sbox}\lheader\rheader\fi + \global\setbox\sbox=\page \global\pagesavedtrue} + \pagesavedfalse \eject % eject the page-so-far and predecessors + \setbox\sbox\vbox{\unvbox\sbox} % take it out of its box + \vsize=\pageheight \advance\vsize by -\ht\sbox % the remaining height + \hsize=.5\pagewidth \advance\hsize by -10pt + % column width for the index (20pt between cols) + \parfillskip 0pt plus .6\hsize % try to avoid almost empty lines + \def\lr{L} % this tells whether the left or right column is next + \output{\if L\lr\global\setbox\lbox=\page \gdef\lr{R} + \else\normaloutput{\vbox to\pageheight{\box\sbox\vss + \hbox to\pagewidth{\box\lbox\hfil\page}}}\lheader\rheader + \global\vsize\pageheight\gdef\lr{L}\global\pagesavedfalse\fi} + \message{Indice Analitico:} + \parskip 0pt plus .5pt + \outer\def\I##1, ##2.{\par\hangindent2em\noindent##1:\kern1em + \ifacro\pdfnote##2.\else##2\fi.} % index entry + \def\[##1]{$\underline{##1}$} % underlined index item + \rm \rightskip0pt plus 2.5em \tolerance 10000 \let\*=\lapstar + \hyphenpenalty 10000 \parindent0pt + \readindex} +\def\fin{\par\vfill\eject % this is done when we are ending the index + \ifpagesaved\null\vfill\eject\fi % output a null index column + \if L\lr\else\null\vfill\eject\fi % finish the current page + \ifpdftex \makebookmarks \fi % added in Version 3.68 + \parfillskip 0pt plus 1fil + \def\grouptitle{NOMI DELLE SEZIONI} + \let\topsecno=\nullsec + \message{Nomi delle sezioni:} + \output={\normaloutput\page\lheader\rheader} + \setpage + \def\note##1##2.{\quad{\eightrm##1~\ifacro{\pdfnote##2.}\else{##2}\fi.}} + \def\Q{\note{Citato nella sezione}} % crossref for mention of a section + \def\Qs{\note{Citato nelle sezioni}} % crossref for mentions of a section + \def\U{\note{Usato nella sezione}} % crossref for use of a section + \def\Us{\note{Usato nelle sezioni}} % crossref for uses of a section + \def\I{\par\hangindent 2em}\let\*=* + \ifacro \def\outsecname{Nomi delle sezioni} \let\Xpdf\X +% \ifpdftex \makebookmarks \pdfdest name {NOS} fitb % in versions < 3.68 + \ifpdftex \pdfdest name {NOS} fith % changed in version 3.69 + \pdfoutline goto name {NOS} count -\secno {\outsecname} + \def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \pdfoutline goto num \the\toksA \expandafter{\the\toksE}} + \else\ifpdf + \special{pdf: outline -1 << /Title (\outsecname) + /Dest [ @thispage /FitH @ypos ] >>} + \def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \special{pdf: outline 0 << /Title (\the\toksE) + /A << /S /GoTo /D (\romannumeral\the\toksA) >> >>}} + \fi\fi\fi + \readsections} +\def\con{\par\vfill\eject % finish the section names +% \ifodd\pageno\else\titletrue\null\vfill\eject\fi % for duplex printers + \rightskip 0pt \hyphenpenalty 50 \tolerance 200 + \setpage \output={\normaloutput\page\lheader\rheader} + \titletrue % prepare to output the table of contents + \pageno=\contentspagenumber + \def\grouptitle{INDICE} + \message{Indice:} + \topofcontents \startpdf + \line{\hfil Sezione\hbox to3em{\hss Pag.}} + \let\ZZ=\contentsline + \readcontents\relax % read the contents info + \botofcontents \end} % print the contents page(s) and terminate +\def\today{\number\day\space\ifcase\month\or + gennaio\or febbraio\or marzo\or aprile\or maggio\or giugno\or + luglio\or agosto\or settembre\or ottobre\or novembre\or dicembre\fi + \space\number\year} +\def\datethis{\def\startsection{\leftline{\sc\today, ore \hours}\bigskip + \let\startsection=\stsec\stsec}} + % say `\datethis' in limbo, to get your listing timestamped before section 1 +%\def\datecontentspage{% versions up to 3.65 +% \def\topofcontents{\leftline{\sc\today, ore \hours}\bigskip +% \centerline{\titlefont\title}\vfill}} % timestamps the contents page +\def\datecontentspage{% changed in version 3.66 + \def\botofcontents{\vfill + \centerline{\covernote} + \bigskip + \leftline{\sc\today, ore \hours}}} % timestamps the contents page diff --git a/Build/source/texk/web2c/cwebdir/texinputs/pdfctwimac.tex b/Build/source/texk/web2c/cwebdir/texinputs/pdfctwimac.tex new file mode 100644 index 00000000000..346b24095d9 --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/pdfctwimac.tex @@ -0,0 +1,693 @@ +% standard macros for CWEB listings (in addition to plain.tex) +% Version 4.0 --- February 2021 +% modified for pages produced by CTWILL +% further modified for page size of the MMIXware book +% modified for PDF output with 'tex "\let\pdf+', 'pdftex', and 'xetex' +% This file is not copyrighted and can be used freely. +\ifx\renewenvironment\undefined\else\endinput\fi % LaTeX will use other macros +\xdef\fmtversion{\fmtversion+CTWILL4.0+LNCS+PDF} + +\newif\ifpdf +\ifx\pdf+\pdftrue\fi +% Uncomment the following line if you want PDF goodies to be the default +%\ifx\pdf-\else\pdftrue\fi +\def\pdflinkcolor{0 0 1} % the RGB values for hyperlink color +\ifx\undefined\XeTeXrevision\else\pdftrue\fi % XeTeX produces PDF output +\newif\ifpdftex +\ifx\pdfoutput\undefined \pdftexfalse \else\ifnum\pdfoutput=0 \pdftexfalse +\else \pdftextrue \pdfoutput=1 + \def\Black{\pdfliteral{0 g 0 G}} % use rgb colors for direct PDF output too + \def\PDFlinkcolor{\pdfliteral{\pdflinkcolor\space rg \pdflinkcolor\space RG}} +\fi\fi +\newif\ifacro \ifpdf\acrotrue\fi \ifpdftex\acrotrue\fi + +\let\:=\. % preserve a way to get the dot accent + % (all other accents will still work as usual) + +\newdimen\em \em=10pt % this "em" will not change with font size +\parskip 0pt plus .1pt % almost no stretch between paragraphs +\parindent 1\em % for paragraphs and for the first line of C text + +\newif\ifsorted +\newread\sreffile +\newwrite\reffile +\ifx\norefs\def\else + \openin\sreffile=\jobname.sref + \ifeof\sreffile \immediate\openout\reffile=\jobname.ref + \sortedfalse \message{This is the first pass!} + \else \sortedtrue \message{This is the second pass!} \fi +\fi + +\font\ninerm=cmr9 +\let\mc=\ninerm % medium caps +\def\CEE/{{\mc C\spacefactor1000}} +\def\UNIX/{{\mc U\kern-.05emNIX\spacefactor1000}} +\def\TEX/{\TeX} +\def\CPLUSPLUS/{{\mc C\PP\spacefactor1000}} +\def\Cee{\CEE/} % for backward compatibility +\def\9#1{} +\font\eightrm=cmr8 +\font\sixrm=cmr6 +\font\ninei=cmmi9 +\font\eighti=cmmi8 +\font\sixi=cmmi6 +\skewchar\ninei='177 \skewchar\eighti='177 \skewchar\sixi='177 +\font\ninesy=cmsy9 +\font\eightsy=cmsy8 +\font\sixsy=cmsy6 +\skewchar\ninesy='60 \skewchar\eightsy='60 \skewchar\sixsy='60 +\font\ninebf=cmbx9 +\font\eightbf=cmbx8 +\font\sixbf=cmbx6 +\font\ninett=cmtt9 +\font\eighttt=cmtt8 +\hyphenchar\ninett=-1 \hyphenchar\eighttt=-1 +\font\ninesl=cmsl9 +\font\eightsl=cmsl8 +\font\nineit=cmti9 +\font\eightit=cmti8 +\font\tentex=cmtex10 +\font\ninetex=cmtex9 % TeX extended character set (used in strings) +\font\eighttex=cmtex8 +\fontdimen7\tentex=0pt % no double space after sentences +\fontdimen7\ninetex=0pt +\fontdimen7\eighttex=0pt + +\newif\iftenpoint +\def\tenpoint{\tenpointtrue + \def\rm{\fam0\tenrm}% + \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm + \textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei + \textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy + \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex + \def\it{\fam\itfam\tenit}% + \textfont\itfam=\tenit + \def\sl{\fam\slfam\tensl}% + \textfont\slfam=\tensl + \def\bf{\fam\bffam\tenbf}% + \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf + \scriptscriptfont\bffam=\fivebf + \def\tt{\fam\ttfam\tentt}% + \textfont\ttfam=\tentt + \def\ttx{\tentex}% + \normalbaselineskip=12pt + \let\cmntfont=\tenrm + \let\mc=\ninerm + \let\sc=\eightrm + \let\big=\tenbig + \setbox\strutbox=\hbox{\vrule height8pt depth3pt width 0pt}% + \normalbaselines\rm} + +\def\ninepoint{\tenpointfalse + \def\rm{\fam0\ninerm}% + \textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm + \textfont1=\ninei \scriptfont1=\sixi \scriptscriptfont1=\fivei + \textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy + \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex + \def\it{\fam\itfam\nineit}% + \textfont\itfam=\nineit + \def\sl{\fam\slfam\ninesl}% + \textfont\slfam=\ninesl + \def\bf{\fam\bffam\ninebf}% + \textfont\bffam=\ninebf \scriptfont\bffam=\sixbf + \scriptscriptfont\bffam=\fivebf + \def\tt{\fam\ttfam\ninett}% + \textfont\ttfam=\ninett + \def\ttx{\ninetex}% + \normalbaselineskip=11pt + \let\cmntfont=\ninerm + \let\mc=\eightrm + \let\sc=\sevenrm + \let\big=\ninebig + \setbox\strutbox=\hbox{\vrule height8pt depth3pt width 0pt}% + \normalbaselines\rm} + +\def\eightpoint{% + \def\rm{\fam0\eightrm}% + \textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm + \textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei + \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy + \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex + \def\it{\fam\itfam\eightit}% + \textfont\itfam=\eightit + \def\sl{\fam\slfam\eightsl}% + \textfont\slfam=\eightsl + \def\bf{\fam\bffam\eightbf}% + \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf + \scriptscriptfont\bffam=\fivebf + \def\tt{\fam\ttfam\eighttt}% + \textfont\ttfam=\eighttt + \def\ttx{\eighttex}% + \normalbaselineskip=9pt + \let\cmntfont=\eightrm + \let\mc=\sevenrm + \let\sc=\sixrm + \let\big=\eightbig + \setbox\strutbox=\hbox{\vrule height7pt depth2pt width 0pt}% + \normalbaselines\rm} + +\tenpoint +\def\tenbig#1{{\hbox{$\left#1\vbox to8.5pt{}\right.\nulldelimiterspace=0pt$}}} +\def\ninebig#1{{\hbox{$\textfont0=\tenrm\textfont2=\tensy + \left#1\vbox to7.25pt{}\right.\nulldelimiterspace=0pt$}}} +\def\eightbig#1{{\hbox{$\textfont0=\ninerm\textfont2=\ninesy + \left#1\vbox to6.5pt{}\right.\nulldelimiterspace=0pt$}}} + +%\font\tenss=cmss10 \let\cmntfont\tenss % alternative comment font +\font\titlefont=cmr7 scaled\magstep4 % title on the contents page +\font\ttitlefont=cmtt10 scaled\magstep2 % typewriter type in title + +\def\\#1{\leavevmode\hbox{\it#1\/\kern.05em}} % italic type for identifiers +\def\|#1{\leavevmode\hbox{$#1$}} % one-letter identifiers look better this way +\def\{\leavevmode\hbox{\bf + \def\_{\kern.04em\vbox{\hrule width.3em height .6pt}\kern.08em}% + #1\/\kern.05em}} % boldface type for reserved words +\def\.#1{\leavevmode\hbox{\ttx % typewriter type for strings + \let\\=\BS % backslash in a string + \let\{=\LB % left brace in a string + \let\}=\RB % right brace in a string + \let\~=\TL % tilde in a string + \let\ =\SP % space in a string + \let\_=\UL % underline in a string + \let\&=\AM % ampersand in a string + \let\^=\CF % circumflex in a string + #1\kern.05em}} +\def\){{\tentex\kern-.05em}\discretionary{\hbox{\tentex\BS}}{}{}} +\def\AT{@} % at sign for control text (not needed in versions >= 2.9) +\def\ATL{\par\noindent\bgroup\catcode`\_=12 \postATL} % print @l in limbo +\def\postATL#1 #2 {\bf letter \\{\uppercase{\char"#1}} + tangles as \tentex "#2"\egroup\par} +\def\noATL#1 #2 {} +\def\noatl{\let\ATL=\noATL} % suppress output from @l +\def\ATH{{\acrofalse\X\kern-.5em:Preprocessor definitions\X}} +\let\PB=\relax % hook for program brackets |...| in TeX part or section name + +\chardef\AM=`\& % ampersand character in a string +\chardef\BS=`\\ % backslash in a string +\chardef\LB=`\{ % left brace in a string +\chardef\RB=`\} % right brace in a string +\def\SP{{\tt\char`\ }} % (visible) space in a string +\chardef\TL=`\~ % tilde in a string +\chardef\UL=`\_ % underline character in a string +\chardef\CF=`\^ % circumflex character in a string + +\newbox\PPbox % symbol for ++ +\setbox\PPbox=\hbox{\kern.5pt\raise1pt\hbox{\sevenrm+\kern-1pt+}\kern.5pt} +\def\PP{\copy\PPbox} +\newbox\MMbox \setbox\MMbox=\hbox{\kern.5pt\raise1pt\hbox{\sevensy\char0 + \kern-1pt\char0}\kern.5pt} +\def\MM{\copy\MMbox} +\newbox\MGbox % symbol for -> +\setbox\MGbox=\hbox{\kern-2pt\lower3pt\hbox{\teni\char'176}\kern1pt} +\def\MG{\copy\MGbox} +\def\MRL#1{\mathrel{\let\K==#1}} +\let\GG=\gg +\let\LL=\ll +\let\NULL=\Lambda +\mathchardef\AND="2026 % bitwise and; also \& (unary operator) +\let\OR=\mid % bitwise or +\let\XOR=\oplus % bitwise exclusive or +\def\CM{{\sim}} % bitwise complement +\newbox\MODbox \setbox\MODbox=\hbox{\eightrm\%} +\def\MOD{\mathbin{\copy\MODbox}} +\def\DC{\kern.1em{::}\kern.1em} % symbol for :: +\def\PA{\mathbin{.*}} % symbol for .* +\def\MGA{\mathbin{\MG*}} % symbol for ->* +\def\this{\&{this}} + +\newbox\bak \setbox\bak=\hbox to -1\em{} % backspace one em +\newbox\bakk\setbox\bakk=\hbox to -2\em{} % backspace two ems + +\newcount\ind % current indentation in ems +\def\1{\global\advance\ind by1\hangindent\ind\em} % indent one more notch +\def\2{\global\advance\ind by-1} % indent one less notch +\def\3#1{\hfil\penalty#10\hfilneg} % optional break within a statement +\def\4{\copy\bak} % backspace one notch +\def\5{\hfil\penalty-1\hfilneg\kern2.5\em\copy\bakk\ignorespaces}% optional break +\def\6{\ifmmode\else\par % forced break + \hangindent\ind\em\noindent\kern\ind\em\copy\bakk\ignorespaces\fi} +\def\7{\Y\6} % forced break and a little extra space +\def\8{\hskip-\ind\em\hskip 2\em} % no indentation + +\newcount\gdepth % depth of current major group, plus one +\newtoks\gtitle % title of current major group +\newskip\intersecskip \intersecskip=12pt minus 3pt % space between sections +\let\yskip=\smallskip +\def\?{\mathrel?} +\def\note#1#2.{\par\penalty5000 + \Y\noindent{\hangindent2\em\baselineskip10pt% + \eightrm#1~\ifacro{\pdfnote#2.}\else#2\fi.\par}} + +\newtoks\toksA \newtoks\toksB \newtoks\toksC \newtoks\toksD +\newtoks\toksE \newtoks\toksF \newtoks\usersanitizer +\newcount\countA \countA=0 \newcount\countB \countB=0 +\newcount\countC \countC=0 +\newif\iftokprocessed \newif\ifTnum \newif\ifinstr +{\def\\{\global\let\spacechar= }\\ } + +\ifacro % The following are pdf macros +\def\thewidth{\the\wd0 \space} +\def\theheight{\the\ht\strutbox\space} +\def\thedepth{\the\dp\strutbox\space} +\ifpdftex + \ifx\pdfannotlink\undefined\let\pdfannotlink\pdfstartlink\fi% for pdfTeX 0.14 + \def\pdflink#1#2{\hbox{\pdfannotlink height\ht\strutbox depth\dp\strutbox + attr{/Border [0 0 0]} goto num #1 \PDFlinkcolor #1\Black\pdfendlink}} +\else\def\pdflink#1#2{\setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{#1}% + \special{pdf: ec}}\special{pdf: ann width \thewidth height \theheight + depth \thedepth << /Type /Annot /Subtype /Link + /Border [0 0 0] /A << /S /GoTo /D (#2) >> >>}\box0\relax}\fi +\def\pdfnote#1.{\setbox0=\hbox{\toksA={#1.}\toksB={}\maketoks}\the\toksA} +\def\firstsecno#1.{\setbox0=\hbox{\toksA={#1.}\toksB={}% + \def\makenote{\addtokens\toksB{\the\toksC}\def\makenote{\toksD={} + \toksC={}\let\space\empty}\makenote}\maketoks}} +\def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks} +\def\poptoks#1#2|ENDTOKS|{\let\first=#1\toksD={#1}% + \ifcat\noexpand\first0\countB=`#1\else\countB=0\fi\toksA={#2}} +\def\maketoks{\expandafter\poptoks\the\toksA|ENDTOKS|% + \ifnum\countB>`9 \countB=0 \fi + \ifnum\countB<`0 + \ifnum0=\countC\else\makenote\fi + \ifx\first.\let\next=\maketoksdone\else + \let\next=\maketoks + \addtokens\toksB{\the\toksD} + \ifx\first,\addtokens\toksB{\space}\fi + \fi + \else \addtokens\toksC{\the\toksD}\global\countC=1\let\next=\maketoks + \fi + \next +} +\def\makenote{\addtokens\toksB + {\noexpand\pdflink{\the\toksC}{\romannumeral\the\toksC}}\toksC={}\global\countC=0} +\def\maketoksdone{\edef\st{\global\noexpand\toksA={\the\toksB}}\st} +\def\pdfURL#1#2{\ifpdftex\pdfannotlink height\ht\strutbox depth\dp\strutbox + attr {/Border [0 0 0]} user {/Type /Action /Subtype /Link /A + << /S /URI /URI (#2) >>}\PDFlinkcolor #1\Black \pdfendlink + \else\ifpdf{\setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{#1}% + \special{pdf: ec}}\special{pdf: ann width \thewidth\space height \theheight + \space depth \thedepth\space << /Border [0 0 0] + /Type /Action /Subtype /Link /A << /S /URI /URI (#2) >> >>}\box0\relax}% + \else #1 ({\tt#2})\fi\fi} +{\catcode`\~=12 \gdef\TILDE/{~}} % ~ in a URL +{\catcode`\_=12 \gdef\UNDER/{_}} % _ in a URL +\def\sanitizecommand#1#2{\addtokens\usersanitizer + {\noexpand\dosanitizecommand\noexpand#1{#2}}} +\def\dosanitizecommand#1#2{\ifx\nxt#1\addF{#2}\fi} + +\catcode`\[=1 \catcode`\]=2 \catcode`\{=12 \catcode`\}=12 + \def\lbchar[{] \def\rbchar[}] +\catcode`\[=12 \catcode`\]=12 \catcode`\{=1 \catcode`\}=2 +\catcode`\~=12 \def\tildechar{~} \catcode`\~=13 +\catcode`\|=0 |catcode`|\=12 |def|bschar{\} |catcode`|\=0 \catcode`\|=12 +\def\makeoutlinetoks{\Tnumfalse\afterassignment\makeolproctok\let\nxt= } +\def\makeolnexttok{\afterassignment\makeolproctok\let\nxt= } +\def\makeolgobbletok{\afterassignment\makeolnexttok\let\nxt= } +\def\addF#1{\addtokens\toksF{#1}\tokprocessedtrue} +% now comes a routine to "sanitize" section names, for pdf outlines +\def\makeolproctok{\tokprocessedfalse + \let\next\makeolnexttok % default + \ifx\nxt\outlinedone\let\next\outlinedone + \else\ifx{\nxt \else\ifx}\nxt \Tnumfalse \instrfalse % skip braces + \else\ifx$\nxt % or a $ sign + \else\ifx^\nxt \addF^\else\ifx_\nxt \addF_% sanitize ^ and _ + \else\ifx\nxt\spacechar \addF\space + \else\if\noexpand\nxt\relax % we have a control sequence; is it one we know? + \ifx\nxt~\addF\space + \else\ifx\nxt\onespace\addF\space + \else\the\usersanitizer + \iftokprocessed\else\makeolproctokctli + \iftokprocessed\else\makeolproctokctlii + \iftokprocessed\else\makeolproctokctliii % if not recognised, skip it + \fi\fi\fi\fi\fi + \else % we don't have a control sequence, it's an ordinary char + \ifx/\nxt \addF{\string\/}% quote chars special to PDF with backslash + \else\ifx(\nxt \addF{\string\(}\else\ifx)\nxt \addF{\string\)}% + \else\ifx[\nxt \addF{\string\[}\else\ifx]\nxt \addF{\string\]}% + \else\expandafter\makeolproctokchar\meaning\nxt + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \next +} +\def\makeolproctokchar#1 #2 #3{\addF{#3}} +\def\makeolproctokctli{% + \ifx\nxt\CEE\addF{C}\let\next\makeolgobbletok % \CEE/ + \else\ifx\nxt\UNIX\addF{UNIX}\let\next\makeolgobbletok % \UNIX/ + \else\ifx\nxt\TEX\addF{TeX}\let\next\makeolgobbletok % \TEX/ + \else\ifx\nxt\TeX\addF{TeX}\else\ifx\nxt\LaTeX\addF{LaTeX}% + \else\ifx\nxt\CPLUSPLUS\addF{C++}\let\next\makeolgobbletok % \CPLUSPLUS/ + \else\ifx\nxt\Cee\addF{C}% + \else\ifx\nxt\PB \let\next\makeolgobbletok \tokprocessedtrue % \PB{...} + \else\ifx\nxt\.\tokprocessedtrue\instrtrue % \.{...} + % skip \| + \else\ifx\nxt\\\ifinstr\addF{\bschar\bschar}\else\tokprocessedtrue\fi + \else\ifx\nxt\&\ifinstr\addF&\else\tokprocessedtrue\fi + \else\ifx\nxt\~\ifTnum\addF{0}\else\addF\tildechar\fi % 077->\T{\~77} + \else\ifx\nxt\_\ifTnum\addF{E}\else\addF_\fi % 0.1E5->\T{0.1\_5} + \else\ifx\nxt\^\ifTnum\addF{0x}\else\addF^\fi % 0x77 -> \T{\^77} + \else\ifx\nxt\$\ifTnum\tokprocessedtrue\else\addF$\fi %$% \T{77\$L} + \else\ifx\nxt\{\addF\lbchar \else\ifx\nxt\}\addF\rbchar + \else\ifx\nxt\ \addF\space \else\ifx\nxt\#\addF{\string\#}% + \else\ifx\nxt\PP\addF{++}\else\ifx\nxt\MM\addF{--}% + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi +} +\def\makeolproctokctlii{% + \ifx\nxt\MG\addF{->}\else\ifx\nxt\GG\addF{>>}% + \else\ifx\nxt\LL\addF{<<}\else\ifx\nxt\NULL\addF{NULL}% + \else\ifx\nxt\AND\addF&\else\ifx\nxt\OR\addF|% + \else\ifx\nxt\XOR\addF^\else\ifx\nxt\CM\addF\tildechar + \else\ifx\nxt\MOD\addF{\string\%}\else\ifx\nxt\DC\addF{::}% + \else\ifx\nxt\PA\addF{.*}\else\ifx\nxt\MGA\addF{->*}% + \else\ifx\nxt\this\addF{this}\else\ifx\nxt\?\addF?% + \else\ifx\nxt\E\addF{==}\else\ifx\nxt\G\addF{>=}% + \else\ifx\nxt\I\addF{!=}\else\ifx\nxt\K\addF{=}% + \else\ifx\nxt\l\addF{l}\else\ifx\nxt\L\addF{L}% + \else\ifx\nxt\o\addF{o}\else\ifx\nxt\O\addF{O}% + \else\ifx\nxt\R\addF!% + \else\ifx\nxt\T \Tnumtrue \let\next\makeolgobbletok + \tokprocessedtrue % \T{number} + \else\ifx\nxt\AM\addF&\else\ifx\nxt\%\addF{\string\%}% + \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\fi +} +\def\makeolproctokctliii{% + \ifx\nxt\V\addF{||}\else\ifx\nxt\W\addF{&&}\else\ifx\nxt\Z\addF{<=}% + \else\ifx\nxt\*\addF*\else\ifx\nxt\Xand\addF{\space and\space}% + \else\ifx\nxt\Xandxeq\addF{\space and_eq\space}% + \else\ifx\nxt\Xbitand\addF{\space bitand\space}% + \else\ifx\nxt\Xbitor\addF{\space bitor\space}% + \else\ifx\nxt\Xcompl\addF{\space compl\space}% + \else\ifx\nxt\Xnot\addF{\space not\space}% + \else\ifx\nxt\Xnotxeq\addF{\space not_eq\space}% + \else\ifx\nxt\Xor\addF{\space or\space}% + \else\ifx\nxt\Xorxeq\addF{\space or_eq\space}% + \else\ifx\nxt\Xxor\addF{\space xor\space}% + \else\ifx\nxt\Xxorxeq\addF{\space xor_eq\space}% + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi +} +\def\outlinedone{\edef\outlinest{\global\noexpand\toksE={\the\toksF}}% + \outlinest\let\outlinedone=\relax} +\fi % End of pdf macros + +\def\lapstar{\rlap{*}} +\def\stsec{\tenpoint\rightskip=0pt % get out of C mode (cf. \B) + \sfcode`;=1500 \pretolerance 200 \hyphenpenalty 50 \exhyphenpenalty 50 + \noindent\strut{\let\*=\lapstar\bf\secno.\quad}% + \ifacro \smash{\raise\baselineskip\hbox to0pt{\let\*=\empty + \ifpdftex \pdfdest num \secstar fith% + \else \special{pdf: dest (\romannumeral\secstar) + [ @thispage /FitH @ypos ]}\fi}}\fi} +\def\startsection{\titletrue + \line{\smash{\titlefont\title}\quad\hrulefill}\bigskip + \let\startsection=\stsec\stsec} +\def\defin#1{\global\advance\ind by 2 \1\&{#1 } } % begin `define' or `format' +\def\A{\note{See also section}} % xref for doubly defined section name +\def\As{\note{See also sections}} % xref for multiply defined section name +\def\B{\iftenpoint\ninepoint\fi + \font\niness=cmss9 \let\cmntfont\niness % alternative comment font + \rightskip=0pt plus 100pt minus 10pt % go into C mode + \sfcode`;=3000 + \pretolerance 10000 + \hyphenpenalty 9999 % so strings can be broken (discretionary \ is inserted) + \exhyphenpenalty 10000 + \global\ind=2 \1\ \unskip} +%\def\C#1{\5\5\quad$/\ast\,${\cmntfont #1}$\,\ast/$} +%\let\SHC\C % "// short comments" treated like "/* ordinary comments */" +\def\C#1{\5\5\quad$\triangleright\,${\cmntfont#1}$\,\triangleleft$} +\def\SHC#1{\5\5\quad$\diamond\,${\cmntfont#1}} +\def\D{\defin{\#define}} % macro definition +\let\E=\equiv % equivalence sign +\def\ET{ and~} % conjunction between two section numbers +\def\ETs{, and~} % conjunction between the last two of several section numbers +\def\F{\defin{format}} % format definition +\let\G=\ge % greater than or equal sign +% \H is long Hungarian umlaut accent +\let\I=\ne % unequal sign +\def\J{\.{@\&}} % TANGLE's join operation +%\let\K== % assignment operator +\let\K=\leftarrow % "honest" alternative to standard assignment operator +% \L is Polish letter suppressed-L +\outer\def\M#1{% + {\xdef\secstar{#1}\let\*=\empty\xdef\secno{#1}}% remove \* from section name + \vskip\intersecskip\startsection\ignorespaces} +\outer\def\N{\ifvoid\partialpage\lefttrue + \else\ifdim\ht\partialpage<\pageht \leftfalse\else\lefttrue\fi\fi\NNN} +\outer\def\NN{\ifvoid\partialpage\leftfalse + \else\ifdim\ht\partialpage<\pageht \lefttrue\else\leftfalse\fi\fi\NNN} +\outer\def\NNN#1#2#3.{% beginning of starred section + \ifacro{\toksF={}\makeoutlinetoks#3\outlinedone\outlinedone}\fi + \gdepth=#1\gtitle={#3}\def\secno{#2}\xdef\secstar{#2} + \ifleft \flushout + \gdef\rlhead{\let\i=I\uppercase{\ignorespaces#3}} % running left headline + \global\let\rrhead=\rlhead % running right headline + \else\global\setbox\partialpage=\vbox{ + \vbox to\pageht{\unvbox\partialpage\vfill}\break} + \gdef\rrhead{\let\i=I\uppercase{\ignorespaces#3}} + \fi + \message{*\secno} % progress report + \ifpdftex\def\stripprefix##1>{}\def\gtitletoks{#3}% + \edef\gtitletoks{\expandafter\stripprefix\meaning\gtitletoks}% + {\immediate\write\cont{\ZZ{\gtitletoks}{#1}{\secno}% write to contents file + {\noexpand\the\pageno}{\the\toksE}}} % \ZZ{title}{depth}{sec}{page}{ss} + \expandafter\xdef\csname curr#1\endcsname{\secno} + \ifnum#1>0\countB=#1 \advance\countB by-1 + \advancenumber{chunk\the\countB.\expnumber{curr\the\countB}}\fi + \else\ifpdf\special{pdf: outline #1 << /Title (\the\toksE) /Dest + [ @thispage /FitH @ypos ] >>}\fi\fi + \startsection{\bf\ignorespaces#3.\quad}\ignorespaces} +\def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0% + \else \csname#1\endcsname \fi} % Petr Olsak's macros from texinfo.tex +\def\advancenumber#1{\countA=\expnumber{#1}\relax \advance\countA by1 + \expandafter\xdef\csname#1\endcsname{\the\countA}} +% \O is Scandinavian letter O-with-slash +% \P is paragraph sign +\def\Q{\note{This code is cited in section}} % xref for mention of a section +\def\Qs{\note{This code is cited in sections}} % xref for mentions of a section +\let\R=\lnot % logical not +% \S is section sign +\def\T#1{\leavevmode % octal, hex or decimal constant + \hbox{$\def\?{\kern.2em}%$% + \def\$##1{\egroup_{\,\rm##1}\bgroup}% suffix to constant + \def\_{\cdot 10^{\aftergroup}}% power of ten (via dirty trick) + \let\~=\oct \let\^=\hex {#1}$}}%$% +\def\U{\note{This code is used in section}} % xref for use of a section +\def\Us{\note{This code is used in sections}} % xref for uses of a section +\let\V=\lor % logical or +\let\W=\land % logical and +\def\X#1:#2\X{\ifmmode\gdef\XX{\null$\null}\else\gdef\XX{}\fi %$% section name + \XX$\langle\,${\let\I=\ne#2\sevenrm\kern.5em + \ifacro{\pdfnote#1.}\else#1\fi}$\,\rangle$\XX} +\def\Y{\par\yskip} +\let\Z=\le +\let\ZZ=\let % now you can \write the control sequence \ZZ +\let\*=* + +%\def\oct{\hbox{\rm\char'23\kern-.2em\it\aftergroup\?\aftergroup}} % WEB style +%\def\hex{\hbox{\rm\char"7D\tt\aftergroup}} % WEB style +\def\oct{\hbox{$^\circ$\kern-.1em\it\aftergroup\?\aftergroup}}% CWEB style +\def\hex{\hbox{$^{\scriptscriptstyle\#}$\tt\aftergroup}} % CWEB style +\def\vb#1{\leavevmode\hbox{\kern2pt\vrule\vtop{\vbox{\hrule + \hbox{\strut\kern2pt\.{#1}\kern2pt}} + \hrule}\vrule\kern2pt}} % verbatim string + +\def\TeX{{\ifmmode\it\fi + \leavevmode\hbox{T\kern-.1667em\lower.424ex\hbox{E}\hskip-.125em X}}} +\def\,{\relax\ifmmode\mskip\thinmuskip\else\thinspace\fi} + +% now here's the mini-index formatting control +\newcount\nrefs % total number of references in partial page +\newcount\baseno % smallest section number in partial page +\toksdef\prefs=199 % references to previous sections in current program +\toksdef\frefs=220 % references to future sections in current program +\toksdef\erefs=221 % references to sections in another program +% \count and \toks registers 200--219 are also used to keep track of refs +\catcode`\@=11 +\newcount\@n \newcount\@m \newcount\@p +\newdimen\pageht \pageht=19cm +\newdimen\pagewd \pagewd=13cm +\newdimen\colwd \colwd=\pagewd + \advance\colwd by -2pc \divide\colwd by 3 % for three columns +\newdimen\fullpageht \fullpageht=\pageht \advance\fullpageht by 4pc +\newdimen\pagethresh \pagethresh=2\pageht +\newdimen\nsize \newdimen\msize +\newskip\intersecskip \intersecskip=8pt plus 2pt minus 3pt +\newbox\partialpage +\newbox\newsec +\newtoks\newrefs +\newtoks\ttoks +\newdimen\ninept \ninept=9pt +\newif\iftitle \newif\ifleft + +\def\flushout{\ifvoid\partialpage\else + \setbox0=\vsplit\partialpage to \pageht + \shipout\vbox{ + \vbox to 3pc{\leftheadline\vfill} + \nointerlineskip\box0} + \global\advance\pageno 1 + \global\let\[=\makeinref \global\let\]=\makeoutref + \ifsorted \let\readin=\readln \readrefs + \else \immediate\write\reffile{!\the\pageno}\let\readin=\readrefs \fi + \setbox0=\vbox{\eightpoint \hsize=\colwd + \rightskip=0pt plus 100pt minus 10pt + \pretolerance 10000 + \hyphenpenalty 10000 \exhyphenpenalty 10000 + \noindent\vbox to1pt{}\par % 1pt = \topskip - \ninept + \readin} + \shipout\vbox to\fullpageht{ + \vbox to 3pc{\rightheadline\vfill} + \unvbox\partialpage + \vfill + \ifdim\ht0>1pt \kern11pt\hrule \hbox{% + \nsize=\ht0 \advance\nsize-\topskip + \divide\nsize by 3 \divide\nsize by\ninept + \multiply\nsize by\ninept \advance\nsize\topskip + \vsplit0 to\nsize \kern1pc + \msize=\ht0 \advance\msize-\topskip + \divide\msize by 2 \divide\msize by\ninept + \multiply\msize by\ninept \advance\msize\topskip + \vbox to\nsize{\vsplit0 to\msize\vss}\kern1pc + \vbox to\nsize{\box0\vss}} \fi} + \global\advance\pageno 1 \global\let\rlhead=\rrhead\fi + {\globaldefs=1 + \@n=199 \loop \ifnum\@n<222 \toks\@n={} \count\@n=0 \advance\@n 1 \repeat + \nrefs=0 + \baseno=\secno}} +\def\leftheadline{\hbox to\pagewd{\vbox to10pt{}% + \iftitle\global\titlefalse\else\ninerm\title:\enspace \eightsl\rlhead\fi + \hfil\eightrm\folio}} +\def\rightheadline{\hbox to\pagewd{\vbox to10pt{}% + \eightrm\folio\hfil\ninerm\title:\enspace \eightsl\rrhead\/}} + +\def\mini{\begingroup \obeylines \globaldefs=1 \newrefs=\bgroup} +\def\FI{\@n=\secno \advance\@n-\baseno \advance\@n 200 + \advance\nrefs-\count\@n \@n=\nrefs + \let\[=\countnewref \let\]=\cn \the\newrefs \endgroup + \nobreak\null\nobreak\vskip-\baselineskip\penalty-500\vfil\eject} +\def\twillout{\setbox\newsec=\vbox{\unvbox255} + \ifnum\@n=0 \nsize=0pt + \else \nsize=3pt \multiply\nsize\@n \advance\nsize 1.25pc \fi + \ifvoid\partialpage\else\advance\nsize 5pt \advance\nsize\ht\partialpage\fi + \advance\nsize\ht\newsec + \message{\the\nsize} % show the page break decision amount + \ifbr \global\brfalse \flushout \message{/\secno}\fi + \ifdim\nsize>\pagethresh \flushout \message{\secno}\fi + \addtopartialpage} +\def\addtopartialpage{\globaldefs=1 + \let\[=\addnewref \let\]=\addneweref \the\newrefs + \setbox\partialpage=\ifvoid\partialpage \box\newsec + \else \vbox{\unvbox\partialpage \vfilneg + \vskip\intersecskip \unvbox\newsec}\fi} +\def\shortpage{\par\vskip-2\baselineskip + \null\vfill\penalty-5000\message{(shortpage)}} +\newif\ifbr +\def\forcebr{\global\brtrue} + +\def\countnewref #1 {\ifnum#1<\baseno \let\next\cn + \else\ifnum#1>\secno \let\next\cn \else\let\next\flushref\fi\fi\next#1 } +\def\cn #1 #2 {\begintest{#1 #2}\cnr\endtest} + +% here's a tricky way to present \cnr with a csname unexpanded inside: +\def\begintest#1{\def\TEST{#1}\expandafter\expandafter\expandafter} +\def\endtest{\csname\expandafter\gobb\meaning\TEST\endcsname} +\expandafter\def\expandafter\gobb\meaning\empty{} + +{\obeylines\gdef\cnr#1#2 + {\ifx#1\relax \advance\@n 1 \fi}} +{\obeylines\gdef\flushref#1 + {}} +\def\addnewref #1 {\ifnum#1<\baseno \let\next\an \@n=199 + \else\ifnum#1>\secno \let\next\an \@n=#1 \advance\@n-\baseno + \advance\@n200 \ifnum\@n>219 \@n=220 \fi + \else\let\next\flushref\fi\fi\next#1 } +\def\an#1 #2 {\begintest{#1 #2}\anr\endtest\[#1 #2 } +\def\addneweref#1 #2 {\@n=221 \begintest{#1 #2}\anr\endtest\]#1 #2 } +{\obeylines\gdef\anr#1#2 + {\ifx#1\relax \advance\nrefs1 \advance\count\@n 1 % + \def#1{#2 + }\toks\@n=\expandafter{\the\toks\@n\lmda#1}\fi}} +\ifsorted \def\lmda#1{\global\let#1\relax} +\else \def\lmda#1{#1\global\let#1\relax} \fi +{\obeylines\gdef\makeinref#1 #2 #3 + {\ifsorted\else\ttoks={\[#1 #2 #3}\immediate\write\reffile{+ \the\ttoks}\fi % + \hangindent=1em \noindent #2\miniform#3, %<== space! + \S\ifacro{\pdfnote#1.}\else{#1}\fi.\par}} +{\obeylines\gdef\makeoutref#1 #2 #3 + {\ifsorted\else\ttoks={\]#1 #2 #3}\immediate\write\reffile{+ \the\ttoks}\fi % + \hangindent=1em \noindent #2\miniform#3, \extref#1.\par}} +\def\miniform{\futurelet\next\miniforma} +\def\miniforma{\ifx\next\zip + \else\if=\noexpand\next \let\next\gobbleq + \else\let\next\colon\fi\fi\next} +\def\zip{} +\def\gobbleq={\,=\,} +\def\colon{: } +\def\extref{\futurelet\next\extrefa} +\def\extrefa{\if"\next\let\next\gobblest\else\let\next\cite\fi\next} +\def\gobblest"#1"{{\ttx#1}} +\def\cite#1#2.{{\sc#1}\,\S#2.} +\def\uninitialized{???} + +\def\readrefs{\the\prefs \@m=\secno \advance\@m-\baseno \advance\@m200 + {\def\lmda##1{\global\let##1\relax}\@p=200 + \loop\ifnum\@p<\@m \the\toks\@p \advance\@p 1 \repeat} + \loop\ifnum\@m<222 \the\toks\@m \advance\@m 1 \repeat} +\def\readln{\read\sreffile to\next \expandafter\next\newline \readin} +{\obeylines\gdef\newline{\unskip\noexpand + }} +\def\donewithpage#1 {\let\readin=\relax} +\catcode`\@=12 + +\hsize=\pagewd \vsize=\maxdimen \output={\twillout} + +\def\contentspagenumber{0} % default page number for table of contents +\def\contentsfile{\jobname.toc} % file that gets table of contents info +\def\readcontents{\input \contentsfile} +\def\readsections{\input \jobname.scn} + +\newwrite\cont +\ifpdftex + \immediate\openout\cont=\contentsfile + \immediate\write\cont{\catcode `\noexpand\@=11\relax} % \makeatletter +\fi + +\def\inx{\flushout % No full index at the end + \ifpdftex + \immediate\write\cont{\catcode `\noexpand\@=12\relax} % \makeatother + \immediate\closeout\cont % the contents information has been fully gathered + \fi} +\def\fin{\ifacro \message{Section names:} + \def\U##1.{} \def\Us##1.{} \let\I=\relax \let\*=* + \def\outsecname{Names of the sections} + \ifpdftex \makebookmarks + \pdfoutline goto num 1 count -\secno {\outsecname} + \def\X##1:##2\X{\firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \pdfoutline goto num \the\toksA \expandafter{\the\toksE}} + \else \output={\shipout\box255} + \special{pdf: outline -1 << /Title (\outsecname) >>}% + \def\X##1:##2\X{\firstsecno##1.% + {\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}% + \special{pdf: outline 0 << /Title (\the\toksE) + /A << /S /GoTo /D (\romannumeral\the\toksA) >> >>}} + \fi \readsections \fi} +\def\makebookmarks{\let\ZZ=\writebookmarkline \readcontents\relax} +\def\writebookmarkline#1#2#3#4#5{{% + \let\(=\let \let\)=\let \let\[=\let \let\]=\let \let\/=\let + \pdfoutline goto num #3 count -\expnumber{chunk#2.#3} {#5}}} +\let\con=\end % no table of contents +\def\datethis{} \def\datecontentspage{} + +% To produce only a subset of pages, put the page numbers on separate +% lines in a file called pages.tex +\let\Shipout=\shipout +\newread\pages \newcount\nextpage \openin\pages=pages +\def\getnextpage{\ifeof\pages\else + {\endlinechar=-1\read\pages to\next + \ifx\next\empty % in this case we should have eof now + \else\global\nextpage=\next\fi}\fi} +\ifeof\pages\else\message{OK, I'll ship only the requested pages!} + \getnextpage\fi +\def\shipout{\ifeof\pages\let\next=\Shipout + \else\ifnum\pageno=\nextpage\getnextpage\let\next=\Shipout + \else\let\next=\Tosspage\fi\fi \next} +\newbox\garbage \def\Tosspage{\deadcycles=0\setbox\garbage=} diff --git a/Build/source/texk/web2c/cwebdir/texinputs/pdfwebtocfront.tex b/Build/source/texk/web2c/cwebdir/texinputs/pdfwebtocfront.tex new file mode 100644 index 00000000000..3fc5f64de2f --- /dev/null +++ b/Build/source/texk/web2c/cwebdir/texinputs/pdfwebtocfront.tex @@ -0,0 +1,85 @@ +% pdfwebtofront.tex +% Code from knuth.drv in https://github.com/oberdiek/latex-tds +% 2020/06/20 v2.0 by Andreas Scherer. +% +% This file is part of project https://github.com/ascherer/cwebbin +% and may be distributed under the MIT License or the LaTeX Project +% Public License. +% +% Move table-of-contents page to the front in PDF output. +% Works with pdftex and xetex in connection with either 'webmac.tex' +% for Pascal/WEB programs or 'cwebmac.tex' for C/CWEB programs. +% +\ifx\detokenize\undefined\endinput\fi +\def\contentsfile{\jobname.toc} % file that gets table of contents info +\newif\iftexmf\texmffalse % special toc treatment for TeX, Metafont, etc. +\newread\testread +\openin\testread=\contentsfile\relax +\ifeof\testread % First run +\else % Second run + % Redefine '\con' to be invoked before the first '\N' (starred section). + \let\ORGcon\con + \def\con{% + % reduce size of PDF pages for more screen space + \pdfpagewidth=\pagewidth \advance\pdfpagewidth by 2cm + \pdfpageheight=\pageheight \advance\pdfpageheight by 3cm + \ifpdftex \pdfhorigin=1cm \pdfvorigin=1cm + \else \advance\pdfpageheight by 1cm \global\pageshift=-1.54cm + \global\hoffset=-1.54cm \global\voffset=-1.54cm \fi + \begingroup + \let\end\relax + \ORGcon + \endgroup + \let\con\end + }% + % Special variant for 'mf.web' and 'tex.web' (et al.). + % They all define a peculiar version of '\N' in their preamble. + % And they put their tables-of-contents on a sparse 'page 2' and + % start the main body on page '3'. + \edef\x{\jobname}% + \edef\y{\detokenize{tex}}% + \ifx\x\y \texmftrue\else + \edef\y{\detokenize{mf}}% + \ifx\x\y \texmftrue\else + \edef\y{\detokenize{pdftex}}% + \ifx\x\y \texmftrue\else + \edef\y{\detokenize{xetex}}% + \ifx\x\y \texmftrue\fi\fi\fi\fi + \iftexmf + \expandafter\let\csname ORGN\expandafter\endcsname + \csname N\endcsname + \expandafter\outer\expandafter\def\csname N\endcsname{% + \titletrue \con \pageno=2 + \expandafter\let\csname N\expandafter\endcsname + \csname ORGN\endcsname + \csname N\endcsname + }% + \else % Much more general approach for WEB and CWEB programs. + % In fact, '\con' will be invoked _inside_ the first '\N' right _after_ + % '\MN', but _before_ '\eject'. And '\topofcontents' gets in the twist + % as well. + \let\ORGtopofcontents\topofcontents \let\ORGrheader\rheader + \def\topofcontents{% + \def\:{\par\hangindent 2em} % Fix for 'bibtex.web'; from '\def\fin'. + \ORGtopofcontents + \let\topofcontents\relax + }% + % Squeeze '\con' between '\MN' and '\eject' in the very first '\N'. + \expandafter\let\csname ORGvfil\expandafter\endcsname + \csname vfil\endcsname + \expandafter\let\csname ORGeject\expandafter\endcsname + \csname eject\endcsname + \expandafter\outer\expandafter\def\csname vfil\endcsname{% + \let\eject\relax + \titletrue % prepare to output the table of contents + \topofcontents \con + \advance\pageno by -1\relax + \expandafter\let\csname vfil\expandafter\endcsname + \csname ORGvfil\endcsname + \expandafter\let\csname eject\expandafter\endcsname + \csname ORGeject\endcsname + \vfil\eject + \let\rheader\ORGrheader + }% + \fi +\fi |