texlive[67589] Build/source/texk/web2c: [CWEB] Don't create
commits+ascherer at tug.org
commits+ascherer at tug.org
Sun Jul 9 16:25:43 CEST 2023
Revision: 67589
http://tug.org/svn/texlive?view=revision&revision=67589
Author: ascherer
Date: 2023-07-09 16:25:42 +0200 (Sun, 09 Jul 2023)
Log Message:
-----------
[CWEB] Don't create index/section file names.
Make section 79 more symmetric with respect to 'dot_pos==NULL'. In any
case no index/section file names are created if option '-x' is used.
Modified Paths:
--------------
trunk/Build/source/texk/web2c/ChangeLog
trunk/Build/source/texk/web2c/cwebboot.cin
trunk/Build/source/texk/web2c/cwebdir/ChangeLog
trunk/Build/source/texk/web2c/cwebdir/comm-ql.ch
trunk/Build/source/texk/web2c/cwebdir/common.c
trunk/Build/source/texk/web2c/cwebdir/common.w
Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog 2023-07-09 05:55:34 UTC (rev 67588)
+++ trunk/Build/source/texk/web2c/ChangeLog 2023-07-09 14:25:42 UTC (rev 67589)
@@ -1,3 +1,7 @@
+2023-07-09 Andreas Scherer <https://ascherer.github.io>
+
+ * cwebboot.cin: Regenerate boot source.
+
2023-06-20 Andreas Scherer <https://ascherer.github.io>
* ctangleboot.cin,
Modified: trunk/Build/source/texk/web2c/cwebboot.cin
===================================================================
--- trunk/Build/source/texk/web2c/cwebboot.cin 2023-07-09 05:55:34 UTC (rev 67588)
+++ trunk/Build/source/texk/web2c/cwebboot.cin 2023-07-09 14:25:42 UTC (rev 67589)
@@ -388,7 +388,7 @@
boolean flags[128];
/*:73*//*83:*/
-#line 1269 "cwebdir/common.w"
+#line 1267 "cwebdir/common.w"
FILE*C_file;
FILE*tex_file;
@@ -397,7 +397,7 @@
#line 578 "cwebdir/comm-w2c.ch"
FILE*active_file;
FILE*check_file;
-#line 1275 "cwebdir/common.w"
+#line 1273 "cwebdir/common.w"
#line 595 "cwebdir/comm-w2c.ch"
/*:83*//*86:*/
@@ -608,7 +608,7 @@
else if((tex_file= fopen(tex_file_name,"wb"))==NULL)
fatal(_("! Cannot open output file "),tex_file_name);
}
-#line 1287 "cwebdir/common.w"
+#line 1285 "cwebdir/common.w"
#line 613 "cwebdir/comm-w2c.ch"
/*:84*/
@@ -1432,7 +1432,7 @@
#line 1168 "cwebdir/common.w"
while(--argc> 0){
if((**(++argv)=='-'||**argv=='+')&&*(*argv+1))/*80:*/
-#line 1247 "cwebdir/common.w"
+#line 1245 "cwebdir/common.w"
#line 521 "cwebdir/comm-w2c.ch"
{
@@ -1477,7 +1477,7 @@
cb_usage(program==ctangle?"ctangle":program==cweave?"cweave":"ctwill");
-#line 1262 "cwebdir/common.w"
+#line 1260 "cwebdir/common.w"
#line 572 "cwebdir/comm-w2c.ch"
/*:81*/
@@ -1492,7 +1492,7 @@
break;
}
}
-#line 1250 "cwebdir/common.w"
+#line 1248 "cwebdir/common.w"
#line 564 "cwebdir/comm-w2c.ch"
/*:80*/
@@ -1516,7 +1516,7 @@
/*82:*/
#line 572 "cwebdir/comm-w2c.ch"
fatal(_("! Filename too long\n"),*argv);
-#line 1264 "cwebdir/common.w"
+#line 1262 "cwebdir/common.w"
/*:82*/
@@ -1548,7 +1548,7 @@
/*82:*/
#line 572 "cwebdir/comm-w2c.ch"
fatal(_("! Filename too long\n"),*argv);
-#line 1264 "cwebdir/common.w"
+#line 1262 "cwebdir/common.w"
/*:82*/
@@ -1572,7 +1572,7 @@
/*82:*/
#line 572 "cwebdir/comm-w2c.ch"
fatal(_("! Filename too long\n"),*argv);
-#line 1264 "cwebdir/common.w"
+#line 1262 "cwebdir/common.w"
/*:82*/
@@ -1580,18 +1580,16 @@
if(dot_pos==NULL){
sprintf(tex_file_name,"%s.tex",*argv);
-sprintf(idx_file_name,"%s.idx",*argv);
-sprintf(scn_file_name,"%s.scn",*argv);
sprintf(C_file_name,"%s.c",*argv);
}else{
strcpy(tex_file_name,*argv);
strcpy(C_file_name,*argv);
+*dot_pos= '\0';
+}
if(make_xrefs){
-*dot_pos= '\0';
sprintf(idx_file_name,"%s.idx",*argv);
sprintf(scn_file_name,"%s.scn",*argv);
}
-}
found_out= true;
}
@@ -1603,7 +1601,7 @@
cb_usage(program==ctangle?"ctangle":program==cweave?"cweave":"ctwill");
-#line 1262 "cwebdir/common.w"
+#line 1260 "cwebdir/common.w"
#line 572 "cwebdir/comm-w2c.ch"
/*:81*/
@@ -1616,7 +1614,7 @@
cb_usage(program==ctangle?"ctangle":program==cweave?"cweave":"ctwill");
-#line 1262 "cwebdir/common.w"
+#line 1260 "cwebdir/common.w"
#line 572 "cwebdir/comm-w2c.ch"
/*:81*/
Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2023-07-09 05:55:34 UTC (rev 67588)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2023-07-09 14:25:42 UTC (rev 67589)
@@ -1,3 +1,9 @@
+2023-07-09 Andreas Scherer <https://ascherer.github.io>
+
+ * comm-ql.ch,
+ * common.c,
+ * common.w: Don't create index/section file names.
+
2023-07-08 Andreas Scherer <https://ascherer.github.io>
* ctwill-w2c.ch,
Modified: trunk/Build/source/texk/web2c/cwebdir/comm-ql.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/comm-ql.ch 2023-07-09 05:55:34 UTC (rev 67588)
+++ trunk/Build/source/texk/web2c/cwebdir/comm-ql.ch 2023-07-09 14:25:42 UTC (rev 67589)
@@ -212,18 +212,16 @@
@<Complain about argument length@>@;
if (dot_pos==NULL) {
sprintf(tex_file_name,"%s.tex",*argv);
- sprintf(idx_file_name,"%s.idx",*argv);
- sprintf(scn_file_name,"%s.scn",*argv);
sprintf(C_file_name,"%s.c",*argv);
} else {
strcpy(tex_file_name,*argv);
strcpy(C_file_name,*argv);
- if (make_xrefs) { /* indexes will be generated */
- *dot_pos='\0';
- sprintf(idx_file_name,"%s.idx",*argv);
- sprintf(scn_file_name,"%s.scn",*argv);
- }
+ *dot_pos='\0'; /* string now ends where the dot was */
}
+ if (make_xrefs) { /* indexes will be generated */
+ sprintf(idx_file_name,"%s.idx",*argv);
+ sprintf(scn_file_name,"%s.scn",*argv);
+ }
found_out=true;
}
@y
@@ -233,18 +231,16 @@
@<Complain about argument length@>;
if (dot_pos==NULL) {
sprintf(tex_file_name,"%s_tex",*argv);
- sprintf(idx_file_name,"%s_idx",*argv);
- sprintf(scn_file_name,"%s_scn",*argv);
sprintf(C_file_name,"%s_c",*argv);
} else {
strcpy(tex_file_name,*argv);
strcpy(C_file_name,*argv);
- if (make_xrefs) { /* indexes will be generated */
- *dot_pos='\0';
- sprintf(idx_file_name,"%s_idx",*argv);
- sprintf(scn_file_name,"%s_scn",*argv);
- }
+ *dot_pos='\0'; /* string now ends where the dot was */
}
+ if (make_xrefs) { /* indexes will be generated */
+ sprintf(idx_file_name,"%s_idx",*argv);
+ sprintf(scn_file_name,"%s_scn",*argv);
+ }
found_out=true;
}
@z
Modified: trunk/Build/source/texk/web2c/cwebdir/common.c
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/common.c 2023-07-09 05:55:34 UTC (rev 67588)
+++ trunk/Build/source/texk/web2c/cwebdir/common.c 2023-07-09 14:25:42 UTC (rev 67589)
@@ -322,7 +322,7 @@
boolean flags[128];
/*:73*//*83:*/
-#line 1269 "common.w"
+#line 1267 "common.w"
FILE*C_file;
FILE*tex_file;
@@ -429,7 +429,7 @@
#line 100 "common.w"
/*84:*/
-#line 1276 "common.w"
+#line 1274 "common.w"
scan_args();
if(program==ctangle){
@@ -1176,7 +1176,7 @@
strcpy(change_file_name,"/dev/null");
while(--argc> 0){
if((**(++argv)=='-'||**argv=='+')&&*(*argv+1))/*80:*/
-#line 1247 "common.w"
+#line 1245 "common.w"
for(dot_pos= *argv+1;*dot_pos> '\0';dot_pos++)
flags[(eight_bits)*dot_pos]= flag_change;
@@ -1196,7 +1196,7 @@
{
if(s-*argv> max_file_name_length-5)
/*82:*/
-#line 1263 "common.w"
+#line 1261 "common.w"
fatal("! Filename too long\n",*argv);
@@ -1227,7 +1227,7 @@
if(strcmp(*argv,"-")!=0){
if(s-*argv> max_file_name_length-4)
/*82:*/
-#line 1263 "common.w"
+#line 1261 "common.w"
fatal("! Filename too long\n",*argv);
@@ -1250,7 +1250,7 @@
{
if(s-*argv> max_file_name_length-5)
/*82:*/
-#line 1263 "common.w"
+#line 1261 "common.w"
fatal("! Filename too long\n",*argv);
@@ -1259,18 +1259,16 @@
if(dot_pos==NULL){
sprintf(tex_file_name,"%s.tex",*argv);
-sprintf(idx_file_name,"%s.idx",*argv);
-sprintf(scn_file_name,"%s.scn",*argv);
sprintf(C_file_name,"%s.c",*argv);
}else{
strcpy(tex_file_name,*argv);
strcpy(C_file_name,*argv);
+*dot_pos= '\0';
+}
if(make_xrefs){
-*dot_pos= '\0';
sprintf(idx_file_name,"%s.idx",*argv);
sprintf(scn_file_name,"%s.scn",*argv);
}
-}
found_out= true;
}
@@ -1278,7 +1276,7 @@
#line 1179 "common.w"
else/*81:*/
-#line 1251 "common.w"
+#line 1249 "common.w"
{
if(program==ctangle)
@@ -1297,7 +1295,7 @@
}
}
if(!found_web)/*81:*/
-#line 1251 "common.w"
+#line 1249 "common.w"
{
if(program==ctangle)
Modified: trunk/Build/source/texk/web2c/cwebdir/common.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/common.w 2023-07-09 05:55:34 UTC (rev 67588)
+++ trunk/Build/source/texk/web2c/cwebdir/common.w 2023-07-09 14:25:42 UTC (rev 67589)
@@ -1228,18 +1228,16 @@
@<Complain about argument length@>@;
if (dot_pos==NULL) {
sprintf(tex_file_name,"%s.tex",*argv);
- sprintf(idx_file_name,"%s.idx",*argv);
- sprintf(scn_file_name,"%s.scn",*argv);
sprintf(C_file_name,"%s.c",*argv);
} else {
strcpy(tex_file_name,*argv);
strcpy(C_file_name,*argv);
- if (make_xrefs) { /* indexes will be generated */
- *dot_pos='\0';
- sprintf(idx_file_name,"%s.idx",*argv);
- sprintf(scn_file_name,"%s.scn",*argv);
- }
+ *dot_pos='\0'; /* string now ends where the dot was */
}
+ if (make_xrefs) { /* indexes will be generated */
+ sprintf(idx_file_name,"%s.idx",*argv);
+ sprintf(scn_file_name,"%s.scn",*argv);
+ }
found_out=true;
}
More information about the tex-live-commits
mailing list.