diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-09 14:25:42 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-09 14:25:42 +0000 |
commit | cdaff020cb2884f02082ba4cae541d8b63d7a1cc (patch) | |
tree | 1ff928d95d0b56d2bf1236caa8f3456ea79f5236 /Build/source/texk/web2c/cwebdir/common.w | |
parent | 64c0c3d43bcf088861112ebe4b40323cc7416a2b (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.w')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/common.w | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/cwebdir/common.w b/Build/source/texk/web2c/cwebdir/common.w index 0a7b9616a05..c3d82f3c942 100644 --- a/Build/source/texk/web2c/cwebdir/common.w +++ b/Build/source/texk/web2c/cwebdir/common.w @@ -1228,17 +1228,15 @@ after the dot. We must check that there is enough room in @<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; } |