summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir/common.c
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2023-07-09 14:25:42 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2023-07-09 14:25:42 +0000
commitcdaff020cb2884f02082ba4cae541d8b63d7a1cc (patch)
tree1ff928d95d0b56d2bf1236caa8f3456ea79f5236 /Build/source/texk/web2c/cwebdir/common.c
parent64c0c3d43bcf088861112ebe4b40323cc7416a2b (diff)
[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. git-svn-id: svn://tug.org/texlive/trunk@67589 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/common.c')
-rw-r--r--Build/source/texk/web2c/cwebdir/common.c22
1 files changed, 10 insertions, 12 deletions
diff --git a/Build/source/texk/web2c/cwebdir/common.c b/Build/source/texk/web2c/cwebdir/common.c
index 635c4dfaf9b..324cd0ee4b4 100644
--- a/Build/source/texk/web2c/cwebdir/common.c
+++ b/Build/source/texk/web2c/cwebdir/common.c
@@ -322,7 +322,7 @@ char scn_file_name[max_file_name_length];
boolean flags[128];
/*:73*//*83:*/
-#line 1269 "common.w"
+#line 1267 "common.w"
FILE*C_file;
FILE*tex_file;
@@ -429,7 +429,7 @@ show_banner= show_happiness= show_progress= make_xrefs= true;
#line 100 "common.w"
/*84:*/
-#line 1276 "common.w"
+#line 1274 "common.w"
scan_args();
if(program==ctangle){
@@ -1176,7 +1176,7 @@ boolean found_web= false,found_change= false,found_out= false;
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(!found_web)/*77:*/
{
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 @@ else if(!found_change)/*78:*/
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 @@ else if(!found_out)/*79:*/
{
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 @@ fatal("! Filename too long\n",*argv);
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){
*dot_pos= '\0';
+}
+if(make_xrefs){
sprintf(idx_file_name,"%s.idx",*argv);
sprintf(scn_file_name,"%s.scn",*argv);
}
-}
found_out= true;
}
@@ -1278,7 +1276,7 @@ found_out= true;
#line 1179 "common.w"
else/*81:*/
-#line 1251 "common.w"
+#line 1249 "common.w"
{
if(program==ctangle)
@@ -1297,7 +1295,7 @@ else fatal(
}
}
if(!found_web)/*81:*/
-#line 1251 "common.w"
+#line 1249 "common.w"
{
if(program==ctangle)