texlive[57870] Build/source/texk/web2c: [CWEB] Fine print for single
commits+ascherer at tug.org
commits+ascherer at tug.org
Wed Feb 24 14:49:18 CET 2021
Revision: 57870
http://tug.org/svn/texlive?view=revision&revision=57870
Author: ascherer
Date: 2021-02-24 14:49:18 +0100 (Wed, 24 Feb 2021)
Log Message:
-----------
[CWEB] Fine print for single '@' characters in TeX text.
Modified Paths:
--------------
trunk/Build/source/texk/web2c/cwebboot.cin
trunk/Build/source/texk/web2c/cwebdir/ChangeLog
trunk/Build/source/texk/web2c/cwebdir/common.w
trunk/Build/source/texk/web2c/cwebdir/ctangle.w
trunk/Build/source/texk/web2c/cwebdir/cweave.w
Modified: trunk/Build/source/texk/web2c/cwebboot.cin
===================================================================
--- trunk/Build/source/texk/web2c/cwebboot.cin 2021-02-24 09:02:48 UTC (rev 57869)
+++ trunk/Build/source/texk/web2c/cwebboot.cin 2021-02-24 13:49:18 UTC (rev 57870)
@@ -23,7 +23,7 @@
#include <string.h>
/*:3*//*89:*/
-#line 710 "cwebdir/comm-w2c.ch"
+#line 709 "cwebdir/comm-w2c.ch"
#if HAVE_GETTEXT
#include <locale.h>
@@ -34,7 +34,7 @@
#endif
/*:89*//*91:*/
-#line 757 "cwebdir/comm-w2c.ch"
+#line 756 "cwebdir/comm-w2c.ch"
typedef bool boolean;
#define HAVE_BOOLEAN
@@ -44,7 +44,7 @@
#include <lib/lib.h>
/*:91*//*94:*/
-#line 796 "cwebdir/comm-w2c.ch"
+#line 795 "cwebdir/comm-w2c.ch"
#define CWEB
#include "help.h"
@@ -482,7 +482,7 @@
static void scan_args(void);
/*:75*//*96:*/
-#line 809 "cwebdir/comm-w2c.ch"
+#line 808 "cwebdir/comm-w2c.ch"
static void cb_usage(const_string str);
static void cb_usagehelp(const_string*message,const_string bug_email);
@@ -515,7 +515,7 @@
#line 78 "cwebdir/comm-w2c.ch"
/*92:*/
-#line 771 "cwebdir/comm-w2c.ch"
+#line 770 "cwebdir/comm-w2c.ch"
kpse_set_program_name(argv[0],"cweb");
@@ -524,7 +524,7 @@
#line 85 "cwebdir/comm-w2c.ch"
/*90:*/
-#line 719 "cwebdir/comm-w2c.ch"
+#line 718 "cwebdir/comm-w2c.ch"
setlocale(LC_MESSAGES,setlocale(LC_CTYPE,""));
texmf_locale= kpse_var_expand("${TEXMFLOCALEDIR}");
@@ -1427,7 +1427,7 @@
if(strcmp("-help",*argv)==0||strcmp("--help",*argv)==0)
/*95:*/
-#line 800 "cwebdir/comm-w2c.ch"
+#line 799 "cwebdir/comm-w2c.ch"
cb_usagehelp(program==ctangle?CTANGLEHELP:
program==cweave?CWEAVEHELP:CTWILLHELP,NULL);
@@ -1439,7 +1439,7 @@
if(strcmp("-version",*argv)==0||strcmp("--version",*argv)==0)
/*98:*/
-#line 847 "cwebdir/comm-w2c.ch"
+#line 846 "cwebdir/comm-w2c.ch"
printversionandexit(cb_banner,
program==ctwill?"Donald E. Knuth":"Silvio Levy and Donald E. Knuth",
@@ -1618,7 +1618,7 @@
#line 496 "cwebdir/comm-w2c.ch"
/*:76*//*97:*/
-#line 813 "cwebdir/comm-w2c.ch"
+#line 812 "cwebdir/comm-w2c.ch"
static void cb_usage(const_string str)
{
@@ -1651,7 +1651,7 @@
}
/*:97*//*99:*/
-#line 855 "cwebdir/comm-w2c.ch"
+#line 854 "cwebdir/comm-w2c.ch"
void cb_show_banner(void)
{
Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2021-02-24 09:02:48 UTC (rev 57869)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2021-02-24 13:49:18 UTC (rev 57870)
@@ -1,5 +1,11 @@
2021-02-24 Andreas Scherer <https://ascherer.github.io>
+ * common.w,
+ * ctangle.w,
+ * cweave.w: Fine print for single '@' characters in TeX text.
+
+2021-02-24 Andreas Scherer <https://ascherer.github.io>
+
* cweave.w: Fix output format when 'tracing @2'.
2021-02-23 Andreas Scherer <https://ascherer.github.io>
Modified: trunk/Build/source/texk/web2c/cwebdir/common.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/common.w 2021-02-24 09:02:48 UTC (rev 57869)
+++ trunk/Build/source/texk/web2c/cwebdir/common.w 2021-02-24 13:49:18 UTC (rev 57870)
@@ -289,7 +289,7 @@
When a match is found, the current section is marked as changed unless
the first line after the \.{@@x} and after the \.{@@y} both start with
-either |'@@*'| or |'@@ '| (possibly preceded by whitespace).
+either `\.{@@*}' or `\.{@@\ }' (possibly preceded by whitespace).
This procedure is called only when |buffer<limit|, i.e., when the
current line is nonempty.
Modified: trunk/Build/source/texk/web2c/cwebdir/ctangle.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctangle.w 2021-02-24 09:02:48 UTC (rev 57869)
+++ trunk/Build/source/texk/web2c/cwebdir/ctangle.w 2021-02-24 13:49:18 UTC (rev 57870)
@@ -1236,7 +1236,7 @@
app_repl(a % 0400); break;
case section_name: if (t!=section_name) goto done;
else {
- @<Was an `@@' missed here?@>@;
+ @<Was an `\.{@@}' missed here?@>@;
a=cur_section_name-name_dir;
app_repl((a / 0400)+0250);
app_repl(a % 0400);
@@ -1263,7 +1263,7 @@
}
case new_section: goto done;
-@ @<Was an `@@'...@>= {
+@ @<Was an `\.{@@}'...@>= {
char *try_loc=loc;
while (*try_loc==' ' && try_loc<limit) try_loc++;
if (*try_loc=='+' && try_loc<limit) try_loc++;
Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w 2021-02-24 09:02:48 UTC (rev 57869)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w 2021-02-24 13:49:18 UTC (rev 57870)
@@ -598,7 +598,7 @@
while(true) {
if (loc>limit && get_line()==false) return;
*(limit+1)='@@';
- while (*loc!='@@') loc++; /* look for '@@', then skip two chars */
+ while (*loc!='@@') loc++; /* look for `\.{@@}', then skip two chars */
if (loc++ <=limit) { int c=ccode[(eight_bits)*loc++];
if (c==new_section) return;
if (c==noop) skip_restricted();
More information about the tex-live-commits
mailing list.