diff options
author | Norbert Preining <norbert@preining.info> | 2023-08-20 03:01:12 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-08-20 03:01:12 +0000 |
commit | 53b22757814343c6071be2e64dc0639f7afc5468 (patch) | |
tree | 17c8c7a1bd1da7c2f985ce7bfeffb21cc8e1cf3f /web/c_cpp/cweb/comm-ql.ch | |
parent | a953fdb33424be714f17f4d46f05712637bd0c3a (diff) |
CTAN sync 202308200301
Diffstat (limited to 'web/c_cpp/cweb/comm-ql.ch')
-rw-r--r-- | web/c_cpp/cweb/comm-ql.ch | 32 |
1 files changed, 14 insertions, 18 deletions
diff --git a/web/c_cpp/cweb/comm-ql.ch b/web/c_cpp/cweb/comm-ql.ch index 52c4834bed..592c7e04a1 100644 --- a/web/c_cpp/cweb/comm-ql.ch +++ b/web/c_cpp/cweb/comm-ql.ch @@ -10,24 +10,24 @@ ex <dev_>cc;'-v -h -c -=500000 -DCWEBINPUTS=flp2_ common_c' @x \def\v{\char'174} % vertical (|) in typewriter font -\def\title{Common code for CTANGLE and CWEAVE (Version 4.8)} +\def\title{Common code for CTANGLE and CWEAVE (Version 4.10)} \def\topofcontents{\null\vfill \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and {\ttitlefont CWEAVE}} \vskip 15pt - \centerline{(Version 4.8)} + \centerline{(Version 4.10)} \vfill} \def\botofcontents{\vfill \noindent @y \def\v{\char'174} % vertical (|) in typewriter font -\def\title{Common code for CTANGLE and CWEAVE (QL Version 4.8)} +\def\title{Common code for CTANGLE and CWEAVE (QL Version 4.10)} \def\topofcontents{\null\vfill \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and {\ttitlefont CWEAVE}} \vskip 15pt - \centerline{(Version 4.8)} + \centerline{(Version 4.10)} \vfill} \def\botofcontents{\vfill \noindent @@ -212,17 +212,15 @@ the routine as if it would work. @<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; } @@ -233,17 +231,15 @@ the routine as if it would work. @<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; } |