texlive[67968] Build/source/texk/web2c: [CWEB] Update section/line
commits+ascherer at tug.org
commits+ascherer at tug.org
Fri Aug 18 17:11:05 CEST 2023
Revision: 67968
http://tug.org/svn/texlive?view=revision&revision=67968
Author: ascherer
Date: 2023-08-18 17:11:05 +0200 (Fri, 18 Aug 2023)
Log Message:
-----------
[CWEB] Update section/line references in change files.
Hopefully, after almost 100 commits since May 2023, the next step will
be the new 4.10 version number and a possible release.
Modified Paths:
--------------
trunk/Build/source/texk/web2c/cwebboot.cin
trunk/Build/source/texk/web2c/cwebdir/ChangeLog
trunk/Build/source/texk/web2c/cwebdir/comm-bs.ch
trunk/Build/source/texk/web2c/cwebdir/comm-mac.ch
trunk/Build/source/texk/web2c/cwebdir/comm-mini.ch
trunk/Build/source/texk/web2c/cwebdir/comm-w2c.ch
trunk/Build/source/texk/web2c/cwebdir/comm-w32.ch
trunk/Build/source/texk/web2c/cwebdir/ctang-bs.ch
trunk/Build/source/texk/web2c/cwebdir/ctang-vms.ch
trunk/Build/source/texk/web2c/cwebdir/ctang-w32.ch
trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
trunk/Build/source/texk/web2c/cwebdir/cweav-bs.ch
Modified: trunk/Build/source/texk/web2c/cwebboot.cin
===================================================================
--- trunk/Build/source/texk/web2c/cwebboot.cin 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebboot.cin 2023-08-18 15:11:05 UTC (rev 67968)
@@ -26,20 +26,20 @@
#line 75 "cwebdir/comm-w2c.h"
/*:4*//*91:*/
-#line 739 "cwebdir/comm-w2c.ch"
+#line 737 "cwebdir/comm-w2c.ch"
#if HAVE_GETTEXT
#include <locale.h>
#else
-#line 743 "cwebdir/comm-w2c.ch"
+#line 741 "cwebdir/comm-w2c.ch"
#define setlocale(a,b) ""
#define bindtextdomain(a,b) ""
#define textdomain(a) ""
#endif
-#line 747 "cwebdir/comm-w2c.ch"
+#line 745 "cwebdir/comm-w2c.ch"
/*:91*//*93:*/
-#line 786 "cwebdir/comm-w2c.ch"
+#line 784 "cwebdir/comm-w2c.ch"
#include <kpathsea/kpathsea.h>
@@ -47,7 +47,7 @@
#include <lib/lib.h>
/*:93*//*96:*/
-#line 823 "cwebdir/comm-w2c.ch"
+#line 821 "cwebdir/comm-w2c.ch"
#define CWEB
#include "help.h"
@@ -395,20 +395,20 @@
FILE*tex_file;
FILE*idx_file;
FILE*scn_file;
-#line 584 "cwebdir/comm-w2c.ch"
+#line 582 "cwebdir/comm-w2c.ch"
FILE*active_file;
FILE*check_file;
#line 1272 "cwebdir/common.w"
-#line 601 "cwebdir/comm-w2c.ch"
+#line 599 "cwebdir/comm-w2c.ch"
/*:83*//*86:*/
-#line 629 "cwebdir/comm-w2c.ch"
+#line 627 "cwebdir/comm-w2c.ch"
const char*use_language= "";
/*:86*//*87:*/
-#line 642 "cwebdir/comm-w2c.ch"
+#line 640 "cwebdir/comm-w2c.ch"
char cb_banner[max_banner];
string texmf_locale;
@@ -415,7 +415,7 @@
#ifndef SEPARATORS
#define SEPARATORS "://"
#endif
-#line 648 "cwebdir/comm-w2c.ch"
+#line 646 "cwebdir/comm-w2c.ch"
char separators[]= SEPARATORS;
/*:87*/
@@ -486,9 +486,9 @@
#line 1185 "cwebdir/common.w"
static void scan_args(void);
-#line 514 "cwebdir/comm-w2c.ch"
+#line 512 "cwebdir/comm-w2c.ch"
/*:76*//*98:*/
-#line 836 "cwebdir/comm-w2c.ch"
+#line 834 "cwebdir/comm-w2c.ch"
static void cb_usage(const_string str);
static void cb_usagehelp(const_string*message);
@@ -521,7 +521,7 @@
#line 78 "cwebdir/comm-w2c.ch"
/*94:*/
-#line 798 "cwebdir/comm-w2c.ch"
+#line 796 "cwebdir/comm-w2c.ch"
kpse_set_program_name(argv[0],"cweb");
@@ -530,7 +530,7 @@
#line 85 "cwebdir/comm-w2c.ch"
/*92:*/
-#line 748 "cwebdir/comm-w2c.ch"
+#line 746 "cwebdir/comm-w2c.ch"
setlocale(LC_MESSAGES,setlocale(LC_CTYPE,""));
texmf_locale= kpse_var_expand("${TEXMFLOCALEDIR}");
@@ -560,12 +560,12 @@
#line 101 "cwebdir/common.w"
/*84:*/
-#line 601 "cwebdir/comm-w2c.ch"
+#line 599 "cwebdir/comm-w2c.ch"
scan_args();
if(program==ctangle){
if(check_for_change)/*88:*/
-#line 659 "cwebdir/comm-w2c.ch"
+#line 657 "cwebdir/comm-w2c.ch"
{
if((C_file= fopen(C_file_name,"a"))==NULL)
fatal(_("! Cannot open output file "),C_file_name);
@@ -582,7 +582,7 @@
}
/*:88*/
-#line 604 "cwebdir/comm-w2c.ch"
+#line 602 "cwebdir/comm-w2c.ch"
else if((C_file= fopen(C_file_name,"wb"))==NULL)
fatal(_("! Cannot open output file "),C_file_name);
@@ -590,7 +590,7 @@
}
else{
if(check_for_change)/*89:*/
-#line 674 "cwebdir/comm-w2c.ch"
+#line 672 "cwebdir/comm-w2c.ch"
{
if((tex_file= fopen(tex_file_name,"a"))==NULL)
fatal(_("! Cannot open output file "),tex_file_name);
@@ -607,7 +607,7 @@
}
/*:89*/
-#line 610 "cwebdir/comm-w2c.ch"
+#line 608 "cwebdir/comm-w2c.ch"
else if((tex_file= fopen(tex_file_name,"wb"))==NULL)
fatal(_("! Cannot open output file "),tex_file_name);
@@ -614,7 +614,7 @@
}
#line 1284 "cwebdir/common.w"
-#line 619 "cwebdir/comm-w2c.ch"
+#line 617 "cwebdir/comm-w2c.ch"
/*:84*/
#line 101 "cwebdir/common.w"
@@ -1367,7 +1367,7 @@
#line 401 "cwebdir/comm-w2c.ch"
/*90:*/
-#line 692 "cwebdir/comm-w2c.ch"
+#line 690 "cwebdir/comm-w2c.ch"
if(C_file)fclose(C_file);
if(tex_file)fclose(tex_file);
@@ -1440,12 +1440,12 @@
if((**(++argv)=='-'||**argv=='+')&&*(*argv+1))/*80:*/
#line 1244 "cwebdir/common.w"
-#line 527 "cwebdir/comm-w2c.ch"
+#line 525 "cwebdir/comm-w2c.ch"
{
if(strcmp("-help",*argv)==0||strcmp("--help",*argv)==0)
/*97:*/
-#line 827 "cwebdir/comm-w2c.ch"
+#line 825 "cwebdir/comm-w2c.ch"
cb_usagehelp(program==ctangle?CTANGLEHELP:
program==cweave?CWEAVEHELP:CTWILLHELP);
@@ -1452,12 +1452,12 @@
/*:97*/
-#line 530 "cwebdir/comm-w2c.ch"
+#line 528 "cwebdir/comm-w2c.ch"
if(strcmp("-version",*argv)==0||strcmp("--version",*argv)==0)
/*100:*/
-#line 873 "cwebdir/comm-w2c.ch"
+#line 871 "cwebdir/comm-w2c.ch"
printversionandexit(cb_banner,
program==ctwill?"Donald E. Knuth":"Silvio Levy and Donald E. Knuth",
@@ -1465,7 +1465,7 @@
/*:100*/
-#line 533 "cwebdir/comm-w2c.ch"
+#line 531 "cwebdir/comm-w2c.ch"
if(strcmp("-verbose",*argv)==0||strcmp("--verbose",*argv)==0)
@@ -1479,15 +1479,15 @@
case'q':show_banner= show_progress= show_happiness= false;continue;
case'd':
if(sscanf(++dot_pos,"%u",&kpathsea_debug)!=1)/*81:*/
-#line 570 "cwebdir/comm-w2c.ch"
+#line 568 "cwebdir/comm-w2c.ch"
cb_usage(program==ctangle?"ctangle":program==cweave?"cweave":"ctwill");
#line 1259 "cwebdir/common.w"
-#line 578 "cwebdir/comm-w2c.ch"
+#line 576 "cwebdir/comm-w2c.ch"
/*:81*/
-#line 545 "cwebdir/comm-w2c.ch"
+#line 543 "cwebdir/comm-w2c.ch"
while(isdigit(*dot_pos))dot_pos++;
dot_pos--;
@@ -1500,14 +1500,14 @@
}
#line 1247 "cwebdir/common.w"
-#line 570 "cwebdir/comm-w2c.ch"
+#line 568 "cwebdir/comm-w2c.ch"
/*:80*/
#line 1168 "cwebdir/common.w"
else{
s= name_pos= *argv;dot_pos= NULL;
-#line 501 "cwebdir/comm-w2c.ch"
while(*s)
+#line 500 "cwebdir/comm-w2c.ch"
if(*s=='.')dot_pos= s++;
else if(*s==DIR_SEPARATOR||*s==DEVICE_SEPARATOR||*s=='/')
dot_pos= NULL,name_pos= ++s;
@@ -1520,7 +1520,7 @@
{
if(s-*argv> max_file_name_length-5)
/*82:*/
-#line 578 "cwebdir/comm-w2c.ch"
+#line 576 "cwebdir/comm-w2c.ch"
fatal(_("! Filename too long\n"),*argv);
#line 1261 "cwebdir/common.w"
@@ -1552,7 +1552,7 @@
if(strcmp(*argv,"-")!=0){
if(s-*argv> max_file_name_length-4)
/*82:*/
-#line 578 "cwebdir/comm-w2c.ch"
+#line 576 "cwebdir/comm-w2c.ch"
fatal(_("! Filename too long\n"),*argv);
#line 1261 "cwebdir/common.w"
@@ -1576,7 +1576,7 @@
{
if(s-*argv> max_file_name_length-5)
/*82:*/
-#line 578 "cwebdir/comm-w2c.ch"
+#line 576 "cwebdir/comm-w2c.ch"
fatal(_("! Filename too long\n"),*argv);
#line 1261 "cwebdir/common.w"
@@ -1603,13 +1603,13 @@
#line 1178 "cwebdir/common.w"
else/*81:*/
-#line 570 "cwebdir/comm-w2c.ch"
+#line 568 "cwebdir/comm-w2c.ch"
cb_usage(program==ctangle?"ctangle":program==cweave?"cweave":"ctwill");
#line 1259 "cwebdir/common.w"
-#line 578 "cwebdir/comm-w2c.ch"
+#line 576 "cwebdir/comm-w2c.ch"
/*:81*/
#line 1179 "cwebdir/common.w"
@@ -1616,13 +1616,13 @@
}
}
if(!found_web)/*81:*/
-#line 570 "cwebdir/comm-w2c.ch"
+#line 568 "cwebdir/comm-w2c.ch"
cb_usage(program==ctangle?"ctangle":program==cweave?"cweave":"ctwill");
#line 1259 "cwebdir/common.w"
-#line 578 "cwebdir/comm-w2c.ch"
+#line 576 "cwebdir/comm-w2c.ch"
/*:81*/
#line 1182 "cwebdir/common.w"
@@ -1629,7 +1629,7 @@
}
/*:75*//*99:*/
-#line 840 "cwebdir/comm-w2c.ch"
+#line 838 "cwebdir/comm-w2c.ch"
static void cb_usage(const_string str)
{
@@ -1661,7 +1661,7 @@
}
/*:99*//*101:*/
-#line 881 "cwebdir/comm-w2c.ch"
+#line 879 "cwebdir/comm-w2c.ch"
void cb_show_banner(void)
{
Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2023-08-18 15:11:05 UTC (rev 67968)
@@ -1,3 +1,17 @@
+2023-08-18 Andreas Scherer <https://ascherer.github.io>
+
+ * comm-bs.ch,
+ * comm-mac.ch,
+ * comm-mini.ch,
+ * comm-w2c.ch,
+ * comm-w32.ch,
+ * ctang-bs.ch,
+ * ctang-vms.ch,
+ * ctang-w32.ch,
+ * ctwill-hint.ch,
+ * ctwill-mini.ch,
+ * cweav-bs.ch: Update section/line references.
+
2023-08-16 Andreas Scherer <https://ascherer.github.io>
* comm-w2c.ch,
Modified: trunk/Build/source/texk/web2c/cwebdir/comm-bs.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/comm-bs.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/comm-bs.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -15,7 +15,7 @@
(Update attempt by Andreas Scherer, 31 Jan 2021. Good luck!)
- at x Section 9.
+ at x Section 10.
@d ilk dummy.Ilk /* used by \.{CWEAVE} only */
@<Common code...@>=
@@ -59,7 +59,7 @@
@z
- at x Section 39.
+ at x Section 36.
cur_file_name[l]='/'; /* \UNIX/ pathname separator */
@y
cur_file_name[l]='/'; /* A valid {\mc MSDOS} pathname separator */
Modified: trunk/Build/source/texk/web2c/cwebdir/comm-mac.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/comm-mac.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/comm-mac.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -81,7 +81,7 @@
@<Skip over comment lines in the change file; |return| if end of file@>@;
@z
- at x section 39, declare colon as Mac's path separator
+ at x section 36, declare colon as Mac's path separator
(Colon-separated paths are not supported.)
The remainder of the \.{@@i} line after the file name is ignored.
@@ -94,7 +94,7 @@
@d PATH_SEP ':' /* MacOS pathname separator */
@^system dependencies@>
@z
- at x section 39, use the path separator constant
+ at x section 36, use the path separator constant
cur_file_name[l]='/'; /* \UNIX/ pathname separator */
@y
cur_file_name[l]=PATH_SEP; /* pathname separator */
Modified: trunk/Build/source/texk/web2c/cwebdir/comm-mini.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/comm-mini.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/comm-mini.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -132,7 +132,7 @@
@d first_chunk(p) ((p)->byte_start+2)
@z
-Section 54.
+Section 53.
@x
*dest='\0';
@@ -280,6 +280,8 @@
@-CWEB@>
@z
+Section 85/102.
+
@x
@** Index.
@y
Modified: trunk/Build/source/texk/web2c/cwebdir/comm-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/comm-w2c.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/comm-w2c.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -493,12 +493,10 @@
@z
@x
- while (*s)
if (*s=='.') dot_pos=s++;
else if (*s=='/') dot_pos=NULL,name_pos=++s;
else s++;
@y
- while (*s)
if (*s=='.') dot_pos=s++;
else if (*s==DIR_SEPARATOR || *s==DEVICE_SEPARATOR || *s=='/')
dot_pos=NULL,name_pos=++s;
Modified: trunk/Build/source/texk/web2c/cwebdir/comm-w32.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/comm-w32.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/comm-w32.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -34,7 +34,7 @@
Admittedly, this is not vital for cweb, except that I build the whole texlive
set of programs using the __fastcall convention.
- at x
+ at x section 11
extern boolean names_match(name_pointer,const char *,size_t,eight_bits);
@y
extern boolean __cdecl names_match(name_pointer,const char *,size_t,eight_bits);
Modified: trunk/Build/source/texk/web2c/cwebdir/ctang-bs.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctang-bs.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/ctang-bs.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -26,7 +26,7 @@
@z
- at x Section 10.
+ at x Section 11.
@d ilk dummy.Ilk /* used by \.{CWEAVE} only */
@<Common code...@>=
Modified: trunk/Build/source/texk/web2c/cwebdir/ctang-vms.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctang-vms.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/ctang-vms.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -15,7 +15,7 @@
@d banner "This is CTANGLE (VAX/VMS Version 4.9)"
@z
- at x section 4 (01-FEB-1992 ST)
+ at x section 5 (01-FEB-1992 ST)
#include <ctype.h> /* definition of |@!isalpha|, |@!isdigit| and so on */
#include <stdbool.h> /* definition of |@!bool|, |@!true| and |@!false| */
#include <stddef.h> /* definition of |@!ptrdiff_t| */
Modified: trunk/Build/source/texk/web2c/cwebdir/ctang-w32.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctang-w32.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/ctang-w32.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -9,7 +9,7 @@
@d banner "This is CTANGLE (Version 4.9win32)"
@z
- at x
+ at x section 24
boolean names_match(
name_pointer p, /* points to the proposed match */
const char *first, /* position of first character of string */
@@ -23,7 +23,7 @@
eight_bits t) /* not used by \.{CTANGLE} */
@z
- at x
+ at x section 25
void
init_node(
name_pointer node)
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -955,7 +955,7 @@
Section 310.
- at x l.116 of CTWILL-TEXLIVE.CH
+ at x l.102 of CTWILL-TEXLIVE.CH
@d kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true)
@y
@d kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true)
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -284,7 +284,7 @@
CTWILL hickups on comment and produces unmatched '$' in mini-index.
- at x l.646
+ at x
skip_TeX(void) /* skip past pure \TEX/ code */
@y
skip_TeX(void)
@@ -685,7 +685,7 @@
\yskip\halign{\quad#\hfil&\quad#\hfil&\quad\hfil#\hfil\cr
@z
- at x l.2137
+ at x
\.{\\hbox\{}\thinspace stuff\/\thinspace\.\} to the following scrap.
@y
\.{\\hbox\{}\thinspace stuff\/\thinspace\.\} to the following scrap.
@@ -1044,7 +1044,7 @@
Section 130.
- at x l.2221
+ at x
@c
@y
@c
@@ -1366,7 +1366,7 @@
Section 178.
- at x l.3017
+ at x
app(opt); app('9'); reduce(pp,4,langle,0,153);
}
else reduce(pp,4,cast,-1,154);
@@ -1378,7 +1378,7 @@
Section 179.
- at x l.3028
+ at x
big_app1_insert(pp,' '); reduce(pp,2,struct_like,0,155);
}
else reduce(pp,0,raw_int,0,91);
@@ -2222,7 +2222,7 @@
Section 328.
- at x l.116 of CTWILL-TEXLIVE.CH
+ at x l.102 of CTWILL-TEXLIVE.CH
@d kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true)
@y
@d kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true)
Modified: trunk/Build/source/texk/web2c/cwebdir/cweav-bs.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweav-bs.ch 2023-08-18 12:56:08 UTC (rev 67967)
+++ trunk/Build/source/texk/web2c/cwebdir/cweav-bs.ch 2023-08-18 15:11:05 UTC (rev 67968)
@@ -194,7 +194,7 @@
@z
- at x Section 218.
+ at x Section 217.
char *p; /* index into |byte_mem| */
@y
char huge *p; /* index into |byte_mem| */
@@ -201,7 +201,7 @@
@z
- at x Section 253.
+ at x Section 252.
if (cur_name->xref!=(void *)xmem) {
@y
if (cur_name->xref!=(void huge*)xmem) {
@@ -208,7 +208,7 @@
@z
- at x Section 255.
+ at x Section 254.
static char *cur_byte; /* index into |byte_mem| */
@y
static char huge* cur_byte; /* index into |byte_mem| */
@@ -215,7 +215,7 @@
@z
- at x Section 264.
+ at x Section 263.
switch (cur_name->ilk) {@+char *p; /* index into |byte_mem| */@+ at t}\6{\4@>
@y
switch (cur_name->ilk) {@+char huge* p; /* index into |byte_mem| */@+ at t}\6{\4@>
More information about the tex-live-commits
mailing list.