summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir/comm-ql.ch
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/cwebdir/comm-ql.ch
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/comm-ql.ch')
-rw-r--r--Build/source/texk/web2c/cwebdir/comm-ql.ch277
1 files changed, 0 insertions, 277 deletions
diff --git a/Build/source/texk/web2c/cwebdir/comm-ql.ch b/Build/source/texk/web2c/cwebdir/comm-ql.ch
deleted file mode 100644
index c03b9185cb9..00000000000
--- a/Build/source/texk/web2c/cwebdir/comm-ql.ch
+++ /dev/null
@@ -1,277 +0,0 @@
-This is the change file for CWEB's COMMON under QSOD/SMSQ
-(Contributed by Robert H. Klein, September 1994)
-
-This change file is intended for use with C68 v4.13 (or later).
-compile with
-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.2)}
-\def\topofcontents{\null\vfill
- \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and
- {\ttitlefont CWEAVE}}
- \vskip 15pt
- \centerline{(Version 4.2)}
- \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.2)}
-\def\topofcontents{\null\vfill
- \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and
- {\ttitlefont CWEAVE}}
- \vskip 15pt
- \centerline{(Version 4.2)}
- \vfill}
-\def\botofcontents{\vfill
-\noindent
-@z
-
-
-For use on QDOS/SMSQ systems the variable |max_file_name_length| is shortened
-to 42 characters, i.e. 5 characters for the device name, 36 characters
-for the file name plus one character as string terminator. (Note that
-(current) QDOS/SMSQ file systems have a limitation of 36 characters as
-maximum length for a file name.
-@x
-@d max_file_name_length 1024
-@y
-@d max_file_name_length 42
-@z
-
-
-@x
- cur_file_name[l]='/'; /* \UNIX/ pathname separator */
-@y
- cur_file_name[l]='_'; /* QDOS/SMSQ pathname separator */
-@z
-
-
-@x
-@ We now must look at the command line arguments and set the file names
-accordingly. At least one file name must be present: the \.{CWEB}
-file. It may have an extension, or it may omit the extension to get |".w"| or
-|".web"| added. The \TEX/ output file name is formed by replacing the \.{CWEB}
-file name extension by |".tex"|, and the \CEE/ file name by replacing
-the extension by |".c"|, after removing the directory name (if any).
-
-If there is a second file name present among the arguments, it is the
-change file, again either with an extension or without one to get |".ch"|.
-An omitted change file argument means that |"/dev/null"| should be used,
-when no changes are desired.
-@^system dependencies@>
-
-If there's a third file name, it will be the output file.
-@y
-@ We now must look at the command line arguments and set the file names
-accordingly. At least one file name must be present: the \.{CWEB}
-file. It may have an extension, or it may omit the extension to get |"_w"| or
-|"_web"| added. The \TEX/ output file name is formed by replacing the \.{CWEB}
-file name extension by |"_tex"|, and the \CEE/ file name by replacing
-the extension by |"_c"|, after removing the directory name (if any).
-
-If there is a second file name present among the arguments, it is the
-change file, again either with an extension or without one to get |"_ch"|.
-An omitted change file argument means that |"NUL"| should be used,
-when no changes are desired.
-@^system dependencies@>
-
-If there's a third file name, it will be the output file.
-
-Because |"_"| is a directory {\em and} extension separator, \.{CWEB} will
-always use the {\em full} name (i.e. with full path). Fortunately the
-routine has been written to search for the last ``dot'', so the altered
-version will search for the last |"_"| (including directory separators),
-so we have what we want.
-@z
-
-
-@x
- char *dot_pos; /* position of |'.'| in the argument */
-@y
- char *dot_pos; /* position of |'_'| in the argument */
-@z
-
-
-@x
- strcpy(change_file_name,"/dev/null");
-@y
- strcpy(change_file_name,"NUL");
-@z
-
-
-@x
- if (*s=='.') dot_pos=s++;
- else if (*s=='/') dot_pos=NULL,name_pos=++s;
- else s++;
-@y
- if (*s=='_') dot_pos=s++;
- else if (*s=='_') dot_pos=NULL,name_pos=++s;
- else s++;
-@z
-
-
-@x
-@ We use all of |*argv| for the |web_file_name| if there is a |'.'| in it,
-otherwise we add |".w"|. If this file can't be opened, we prepare an
-|alt_web_file_name| by adding |"web"| after the dot.
-The other file names come from adding other things
-after the dot. We must check that there is enough room in
-|web_file_name| and the other arrays for the argument.
-@y
-@ We use all of |*argv| for the |web_file_name| if there is a |'_'| in it,
-otherwise we add |"_w"|. If this file can't be opened, we prepare an
-|alt_web_file_name| by adding |"web"| after the dot.
-The other file names come from adding other things
-after the dot. We must check that there is enough room in
-|web_file_name| and the other arrays for the argument.
-
-If you've read the section before carefully you'll have noticed, that
-QDOS/SMSQ file names contain almost a |"_"|, so this routine will not work,
-i.e. you'll {\em have} to add the |"_w"| always. Nevertheless I adapted
-the routine as if it would work.
-@z
-
-
-@x
-@<Make |web_file_name|...@>=
-{
- if (s-*argv > max_file_name_length-5)
- @<Complain about argument length@>@;
- if (dot_pos==NULL)
- sprintf(web_file_name,"%s.w",*argv);
- else {
- strcpy(web_file_name,*argv);
- *dot_pos=0; /* string now ends where the dot was */
- }
- sprintf(alt_web_file_name,"%s.web",*argv);
- sprintf(tex_file_name,"%s.tex",name_pos); /* strip off directory name */
- sprintf(idx_file_name,"%s.idx",name_pos);
- sprintf(scn_file_name,"%s.scn",name_pos);
- sprintf(C_file_name,"%s.c",name_pos);
- found_web=true;
-}
-@y
-@<Make |web_file_name|...@>=
-{
- if (s-*argv > max_file_name_length-5)
- @<Complain about argument length@>;
- if (dot_pos==NULL)
- sprintf(web_file_name,"%s_w",*argv);
- else {
- strcpy(web_file_name,*argv);
- *dot_pos=0; /* string now ends where the dot was */
- }
- sprintf(alt_web_file_name,"%s_web",*argv);
- sprintf(tex_file_name,"%s_tex",name_pos); /* strip off directory name */
- sprintf(idx_file_name,"%s_idx",name_pos);
- sprintf(scn_file_name,"%s_scn",name_pos);
- sprintf(C_file_name,"%s_c",name_pos);
- found_web=true;
-}
-@z
-
-
-@x
-@ @<Make |change_file_name|...@>=
-{
- if (strcmp(*argv,"-")!=0) {
- if (s-*argv > max_file_name_length-4)
- @<Complain about argument length@>@;
- if (dot_pos==NULL)
- sprintf(change_file_name,"%s.ch",*argv);
- else strcpy(change_file_name,*argv);
- }
- found_change=true;
-}
-@y
-@ @<Make |change_file_name|...@>=
-{
- if (strcmp(*argv,"-")!=0) {
- if (s-*argv > max_file_name_length-4)
- @<Complain about argument length@>;
- if (dot_pos==NULL)
- sprintf(change_file_name,"%s_ch",*argv);
- else strcpy(change_file_name,*argv);
- found_change=true;
- }
-}
-@z
-
-
-@x
-@ @<Override...@>=
-{
- if (s-*argv > max_file_name_length-5)
- @<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);
- }
- }
- found_out=true;
-}
-@y
-@ @<Override...@>=
-{
- if (s-*argv > max_file_name_length-5)
- @<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);
- }
- }
- found_out=true;
-}
-@z
-
-
-@x
-@ @<Print usage error message and quit@>=
-{
-if (program==ctangle)
- fatal(
-"! Usage: ctangle [options] webfile[.w] [{changefile[.ch]|-} [outfile[.c]]]\n"
- ,"");
-@.Usage:@>
-else fatal(
-"! Usage: cweave [options] webfile[.w] [{changefile[.ch]|-} [outfile[.tex]]]\n"
- ,"");
-}
-@y
-@ @<Print usage error message and quit@>=
-{
-if (program==ctangle)
- fatal(
-"! Usage: ctangle [options] webfile[_w] [{changefile[_ch]|-} [outfile[_c]]]\n"
- ,"");
-@.Usage:@>
-else fatal(
-"! Usage: cweave [options] webfile[_w] [{changefile[_ch]|-} [outfile[_tex]]]\n"
- ,"");
-}
-@z