texlive[71886] Build/source/texk/web2c/cwebdir: [CWEB] Recollect all

commits+ascherer at tug.org commits+ascherer at tug.org
Wed Jul 24 11:06:51 CEST 2024 

Revision: 71886
          https://tug.org/svn/texlive?view=revision&revision=71886
Author:   ascherer
Date:     2024-07-24 11:06:51 +0200 (Wed, 24 Jul 2024)
Log Message:
-----------
[CWEB] Recollect all '\font' declarations.

Maybe someone wants to use a different set of fonts in future.
'\eightrm' is already loaded in 'cwebmac.tex'.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ChangeLog
    trunk/Build/source/texk/web2c/cwebdir/cwebmac.tex
    trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch
    trunk/Build/source/texk/web2c/cwebdir/cwebman.tex

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2024-07-24 05:22:51 UTC (rev 71885)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2024-07-24 09:06:51 UTC (rev 71886)
@@ -1,3 +1,9 @@
+2024-07-24  Andreas Scherer  <https://ascherer.github.io>
+
+	* cwebmac.tex,
+	* cwebman-w2c.ch,
+	* cwebman.tex: Recollect '\font' declarations.
+
 2024-07-23  Andreas Scherer  <https://ascherer.github.io>
 
 	* cwebman-w2c.ch,

Modified: trunk/Build/source/texk/web2c/cwebdir/cwebmac.tex
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cwebmac.tex	2024-07-24 05:22:51 UTC (rev 71885)
+++ trunk/Build/source/texk/web2c/cwebdir/cwebmac.tex	2024-07-24 09:06:51 UTC (rev 71886)
@@ -12,15 +12,6 @@
 
 \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\Cpp{\CPLUSPLUS/} % for backward compatibility
-\def\9#1{}
- % with this definition of \9 you can say @:sort key}{TeX code@>
- % to alphabetize an index entry by the sort key but format with the TeX code
 \font\eightrm=cmr8
 \let\sc=\eightrm % for smallish caps (NOT a caps-and-small-caps font)
 \let\mainfont=\tenrm
@@ -31,6 +22,16 @@
 \font\tentex=cmtex10 % TeX extended character set (used in strings)
 \fontdimen7\tentex=0pt % no double space after sentences
 
+\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\Cpp{\CPLUSPLUS/} % for backward compatibility
+\def\9#1{}
+ % with this definition of \9 you can say @:sort key}{TeX code@>
+ % to alphabetize an index entry by the sort key but format with the TeX code
+
 \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\&#1{\leavevmode\hbox{\bf

Modified: trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch	2024-07-24 05:22:51 UTC (rev 71885)
+++ trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch	2024-07-24 09:06:51 UTC (rev 71886)
@@ -33,7 +33,7 @@
   \advance\footnotecount by 1\relax}
 @z
 
- at x l.29
+ at x l.28
 \outer\def\section #1.{\penalty-500\bigskip
         \centerline{\sectionfont\def\.##1{{\twelvett##1}} #1}\nobreak\vskip 6pt
         \everypar{\hskip-\parindent\everypar{}}}
@@ -93,7 +93,7 @@
   \fi}
 @z
 
- at x l.35
+ at x l.34
 \def\runninghead{{\ninett CWEB} USER MANUAL (VERSION 4.11)}
 @y
 \def\Kpathsea/{{\mc KPATHSEA\spacefactor1000}}
@@ -100,7 +100,7 @@
 \def\runninghead{{\ninett CWEB} USER MANUAL (Version 4.11 [\TeX~Live])}
 @z
 
- at x l.49
+ at x l.48
 \vskip 18pt\centerline{(Version 4.11 --- December 2023)}
 @y
 \vskip 18pt\centerline{(Version 4.11 --- December 2023)%
@@ -107,7 +107,7 @@
 \footnote*{This document describes the extended \.{CWEB} (Version 4.11 [\TeX~Live]).}}
 @z
 
- at x l.80
+ at x l.79
 Internet page \.{http://www-cs-faculty.stanford.edu/\char`\~knuth/cweb.html}
 @y
 Internet page
@@ -115,7 +115,7 @@
           {http://www-cs-faculty.stanford.edu/\TILDE/knuth/cweb.html}
 @z
 
- at x l.85
+ at x l.84
 \.{https://github.com/ascherer/cweb} with the really current news.
 @y
 \pdfURL{\.{https://github.com/ascherer/cweb}}%
@@ -123,7 +123,7 @@
 with the really current news.
 @z
 
- at x l.103
+ at x l.102
 should be sent to the \TeX-related mailing list \.{tex-k at tug.org}.
 @y
 should be sent to the \TeX-related mailing list
@@ -131,7 +131,7 @@
    {mailto:tex-k at tug.org}.
 @z
 
- at x l.105
+ at x l.104
 Readers who are familiar with Knuth's memo ``The \.{WEB} System of Structured
 Documentation'' will be able
 @y
@@ -139,7 +139,7 @@
 Structured Documentation}{../web/webman.pdf}'' will be able
 @z
 
- at x l.524
+ at x l.523
 email address in a \.{CWEB} file (e.g., \.{tex-k@@tug.org}).
 @y
 email address in a \.{CWEB} file (e.g.,
@@ -147,7 +147,7 @@
    {mailto:tex-k at tug.org}).
 @z
 
- at x l.919
+ at x l.918
 it cannot find them in the current directory.
 @y
 it cannot find them in the current directory.%
@@ -160,7 +160,7 @@
 (This is true for any other input or change file lookup.)}
 @z
 
- at x l.1026
+ at x l.1025
 except for error messages.
 @y
 except for error messages.%
@@ -168,7 +168,7 @@
 options `\.{b}', `\.{h}', and `\.{p}' are `off' by default.}
 @z
 
- at x l.1032
+ at x l.1031
 options are currently implemented:
 
 \yskip
@@ -202,7 +202,7 @@
 \yskip
 @z
 
- at x l.1068
+ at x l.1067
 \option x Include indexes and a table of contents in the \TEX/ file
 output by \.{CWEAVE}. (On by default.) (Has no effect on \.{CTANGLE}.)
 @y
@@ -212,7 +212,7 @@
 \vfill\eject
 @z
 
- at x l.1124
+ at x l.1123
 Sometimes things don't work as smoothly, and you get a bunch of
 @y
 \pdffalse\acrohintfalse
@@ -219,7 +219,7 @@
 Sometimes things don't work as smoothly, and you get a bunch of
 @z
 
- at x l.1132
+ at x l.1131
 `$\\{main}(\\{argc},\39\\{argv}{}$)'.
 @y
 `$\\{main}(\\{argc},\39\\{argv}{}$)'.
@@ -228,7 +228,7 @@
 \ifpdf\acrohinttrue\fi \ifhint\acrohinttrue\fi
 @z
 
- at x l.1142
+ at x l.1141
 the `\.{@\#}' will put extra space after `$\langle\,$Other locals$\,\rangle$'.
 @y
 the `\.{@\#}' will put extra space after `$\langle\,$Other locals$\,\rangle$'.%
@@ -236,7 +236,7 @@
 to suppress the extra space globally.}
 @z
 
- at x l.1144
+ at x l.1143
 \section Hypertext and hyperdocumentation.
 @y
 \vfill\eject
@@ -243,7 +243,7 @@
 \section Hypertext and hyperdocumentation.
 @z
 
- at x l.1168
+ at x l.1167
 from \.{https://hint.userweb.mwn.de/hint/hintview.html}.
 @y
 from
@@ -251,7 +251,7 @@
           {https://hint.userweb.mwn.de/hint/hintview.html}.%
 @z
 
- at x l.1177
+ at x l.1176
 the program sources at \.{ftp://ftp.cs.stanford.edu/pub/ctwill}.
 @y
 the program sources at
@@ -261,13 +261,13 @@
 \.{ctwill} executable -- and its associated helpers -- out of the box.}
 @z
 
- at x l.1181
+ at x l.1180
 As an example of a real program written in \.{CWEB}, Appendix~A
 @y
 As an example of a real program written in \.{CWEB}, \Appendix A
 @z
 
- at x l.1186
+ at x l.1185
 Appendix B displays the files that set \TEX/ up to accept
 the output of \.{CWEAVE}, and Appendix~C discusses how to use some of those
 @y
@@ -275,7 +275,7 @@
 the output of \.{CWEAVE}, and \Appendix C discusses how to use some of those
 @z
 
- at x l.1192
+ at x l.1191
 appendices D, E, and~F, which exhibit the complete source code for
 \.{CTANGLE} and \.{CWEAVE}.
 
@@ -291,7 +291,7 @@
 \vfill\eject\titletrue
 @z
 
- at x l.1198
+ at x l.1197
 \section Appendix A: Excerpts from a \.{CWEB} Program.
 @y
 \def\subsections{4}
@@ -299,7 +299,7 @@
 \subsection CWEB file format.
 @z
 
- at x l.1202
+ at x l.1201
 generated sections 27--31 of the file \.{common.w}, which contains
 @y
 generated sections 27--31 of the file
@@ -306,7 +306,7 @@
 \pdfURL{\.{common.w}}{common.pdf}, which contains
 @z
 
- at x l.1273
+ at x l.1272
 \def\runninghead{APPENDIX A --- TRANSLATION BY {\ninett CTANGLE}}
 @y
 \def\runninghead{APPENDIX A --- TRANSLATION BY {\ninett CTANGLE}}
@@ -313,7 +313,7 @@
 \subsection Translation by CTANGLE.
 @z
 
- at x l.1341
+ at x l.1340
 \def\runninghead{APPENDIX A --- TRANSLATION BY {\ninett CWEAVE}}
 @y
 \def\runninghead{APPENDIX A --- TRANSLATION BY {\ninett CWEAVE}}
@@ -320,7 +320,7 @@
 \subsection Translation by CWEAVE.
 @z
 
- at x l.1430
+ at x l.1429
 \def\runninghead{APPENDIX A --- FINAL DOCUMENT}
 
 And here's what the same excerpt looks like when typeset.
@@ -337,7 +337,7 @@
 \def\C#1{\5\5\quad$\triangleright\,${\cmntfont#1}$\,\triangleleft$}
 @z
 
- at x l.1512
+ at x l.1511
 \vfil\eject\titletrue
 @y
 \vfill\eject\titletrue
@@ -346,13 +346,13 @@
 \ifacro\acrohinttrue\fi \ifhint\acrohinttrue\fi
 @z
 
- at x l.1614
+ at x l.1613
   \.{ { }\\vskip 15pt \\centerline\{(Version 4.11)\}{ }\\vfill\}}\cr}$$
 @y
   \.{ { }\\vskip 15pt \\centerline\{(Version 4.11)\}{ }\\vfill\}}\cr}$$
 @z
 
- at x l.1729
+ at x l.1728
 if you have a duplex printer. Appendices D, E, and F of the complete
 version of this manual are printed using a commented-out option that
 substitutes `$\gets$' for `$=$' in the program listings. Looking at those
@@ -366,7 +366,7 @@
 Looking at those
 @z
 
- at x l.1781
+ at x l.1780
 \point 20. Furthermore, group titles can be converted to an arbitrary
 @y
 \vfill\eject
@@ -373,7 +373,7 @@
 \point 20. Furthermore, group titles can be converted to an arbitrary
 @z
 
- at x l.1792
+ at x l.1791
 \bye
 @y
 \point 21. With modern \TeX\ engines like `\.{luatex}', `\.{pdftex}', and

Modified: trunk/Build/source/texk/web2c/cwebdir/cwebman.tex
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cwebman.tex	2024-07-24 05:22:51 UTC (rev 71885)
+++ trunk/Build/source/texk/web2c/cwebdir/cwebman.tex	2024-07-24 09:06:51 UTC (rev 71886)
@@ -7,7 +7,6 @@
 \parskip 0pt plus 1pt
 \def\RA{\char'31 } % right arrow
 \def\hang{\hangindent 4em\ignorespaces}
-\font\eightrm=cmr8
 \font\eighttt=cmtt8
 \font\ninett=cmtt9
 \font\twelvett=cmtt12

More information about the tex-live-commits mailing list.