summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir/ctang-w2c.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/ctang-w2c.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/ctang-w2c.ch')
-rw-r--r--Build/source/texk/web2c/cwebdir/ctang-w2c.ch481
1 files changed, 0 insertions, 481 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctang-w2c.ch b/Build/source/texk/web2c/cwebdir/ctang-w2c.ch
deleted file mode 100644
index 4fcbe7b1607..00000000000
--- a/Build/source/texk/web2c/cwebdir/ctang-w2c.ch
+++ /dev/null
@@ -1,481 +0,0 @@
-@q Changes for CWEB in TeX Live from numerous contributors. @>
-@q This file is in the Public Domain. @>
-
-@q Most of the original Kpathsea changes by Wlodek Bzyl and Olaf Weber @>
-@q were merged with the set of change files of the CWEBbin project; @>
-@q see https://github.com/ascherer/cwebbin for the original parts. @>
-
-@q This stripped change file {comm,ctang,cweav,ctwill,cwebman}-w2c.ch @>
-@q has been created from the elaborate set of change files @>
-@q {comm,ctang,cweav,cwebman}-patch.ch, @>
-@q {comm,cweav,cwebman}-extensions.ch, {comm,ctang,cweav}-output.ch, @>
-@q {comm,ctang,cweav}-i18n.ch, and cweav-twill.ch for CTWILL, and @>
-@q {comm,ctang,cweav,ctwill,cwebman}-texlive.ch with the 'tie' processor @>
-@q and is used as a monolithic changefile for {common,ctangle,cweave}.w @>
-@q and cwebman.tex in TeX Live. @>
-
-@q Please send comments, suggestions, etc. to tex-k@@tug.org. @>
-
-@x
-\def\title{CTANGLE (Version 4.2)}
-@y
-\def\title{CTANGLE (Version 4.2 [\TeX~Live])}
-@z
-
-@x
- \centerline{(Version 4.2)}
-@y
- \centerline{(Version 4.2 [\TeX~Live])}
-@z
-
-@x
-\def\botofcontents{\vfill
-@y
-\def\covernote{\vbox{%
-@z
-
-@x
-}
-@y
-}}\datecontentspage
-@z
-
-@x
-@d banner "This is CTANGLE (Version 4.2)"
-@y
-@d banner "This is CTANGLE, Version 4.2"
- /* will be extended by the \TeX~Live |versionstring| */
-@z
-
-@x
- if (show_banner) puts(banner); /* print a ``banner line'' */
-@y
- if (show_banner) cb_show_banner(); /* print a ``banner line'' */
-@z
-
-@x
-@i common.h
-@y
-@i comm-w2c.h
-@z
-
-@x
- if (tok_ptr+2>tok_mem_end) overflow("token");
-@y
- if (tok_ptr+2>tok_mem_end) overflow(_("token"));
-@z
-
-@x
- if (stack_ptr==stack_end) overflow("stack");
-@y
- if (stack_ptr==stack_end) overflow(_("stack"));
-@z
-
-@x
- fputs("\n! Not present: <",stdout);
-@y
- fputs(_("\n! Not present: <"),stdout);
-@z
-
-@x
- overflow("output files");
-@y
- overflow(_("output files"));
-@z
-
-@x
- fputs("\n! No program text was specified.",stdout); mark_harmless;
-@y
- fputs(_("\n! No program text was specified."),stdout); mark_harmless;
-@z
-
-@x
- printf("\nWriting the output file (%s):",C_file_name);
-@y
- printf(_("\nWriting the output file (%s):"),C_file_name);
-@z
-
-@x
- fputs("\nWriting the output files:",stdout);
-@y
- fputs(_("\nWriting the output files:"),stdout);
-@z
-
-@x
- fputs("Done.",stdout);
-@y
- fputs(_("Done."),stdout);
-@z
-
-@x
-@<Write all the named output files@>=
-for (an_output_file=end_output_files; an_output_file>cur_out_file;) {
- an_output_file--;
- sprint_section_name(output_file_name,*an_output_file);
- fclose(C_file);
- C_file=fopen(output_file_name,"wb");
- if (C_file ==0) fatal("! Cannot open output file ",output_file_name);
-@.Cannot open output file@>
- if (show_progress) { printf("\n(%s)",output_file_name); update_terminal; }
- cur_line=1;
- stack_ptr=stack+1;
- cur_name= (*an_output_file);
- cur_repl= (text_pointer)cur_name->equiv;
- cur_byte=cur_repl->tok_start;
- cur_end=(cur_repl+1)->tok_start;
- while (stack_ptr > stack) get_output();
- flush_buffer();
-}
-@y
-@<Write all the named output files@>=
-fclose(C_file); C_file=NULL;
-@<Update the primary result when it has changed@>@;
-for (an_output_file=end_output_files; an_output_file>cur_out_file;) {
- an_output_file--;
- sprint_section_name(output_file_name,*an_output_file);
- if ((C_file=fopen(output_file_name,"a"))==NULL)
- fatal(_("! Cannot open output file "),output_file_name);
-@.Cannot open output file@>
- else fclose(C_file); /* Test accessability */
- if((C_file=fopen(check_file_name,"wb"))==NULL)
- fatal(_("! Cannot open output file "),check_file_name);
- if (show_progress) { printf("\n(%s)",output_file_name); update_terminal; }
- cur_line=1;
- stack_ptr=stack+1;
- cur_name= (*an_output_file);
- cur_repl= (text_pointer)cur_name->equiv;
- cur_byte=cur_repl->tok_start;
- cur_end=(cur_repl+1)->tok_start;
- while (stack_ptr > stack) get_output();
- flush_buffer(); fclose(C_file); C_file=NULL;
- @<Update the secondary results when they have changed@>@;
-}
-strcpy(check_file_name,""); /* We want to get rid of the temporary file */
-@z
-
-@x
- else if (a<050000) { confusion("macro defs have strange char");}
-@y
- else if (a<050000) { confusion(_("macro defs have strange char"));}
-@z
-
-@x
- err_print("! Input ended in mid-comment");
-@y
- err_print(_("! Input ended in mid-comment"));
-@z
-
-@x
- err_print("! Section name ended in mid-comment"); loc--;
-@y
- err_print(_("! Section name ended in mid-comment")); loc--;
-@z
-
-@x
- err_print("! String didn't end"); loc=limit; break;
-@y
- err_print(_("! String didn't end")); loc=limit; break;
-@z
-
-@x
- err_print("! Input ended in middle of string"); loc=buffer; break;
-@y
- err_print(_("! Input ended in middle of string")); loc=buffer; break;
-@z
-
-@x
- fputs("\n! String too long: ",stdout);
-@y
- fputs(_("\n! String too long: "),stdout);
-@z
-
-@x
- case translit_code: err_print("! Use @@l in limbo only"); continue;
-@y
- case translit_code: err_print(_("! Use @@l in limbo only")); continue;
-@z
-
-@x
- err_print("! Double @@ should be used in control text");
-@y
- err_print(_("! Double @@ should be used in control text"));
-@z
-
-@x
- err_print("! Double @@ should be used in ASCII constant");
-@y
- err_print(_("! Double @@ should be used in ASCII constant"));
-@z
-
-@x
- err_print("! String didn't end"); loc=limit-1; break;
-@y
- err_print(_("! String didn't end")); loc=limit-1; break;
-@z
-
-@x
- err_print("! Input ended in section name");
-@y
- err_print(_("! Input ended in section name"));
-@z
-
-@x
- fputs("\n! Section name too long: ",stdout);
-@y
- fputs(_("\n! Section name too long: "),stdout);
-@z
-
-@x
- err_print("! Section name didn't end"); break;
-@y
- err_print(_("! Section name didn't end")); break;
-@z
-
-@x
- err_print("! Nesting of section names not allowed"); break;
-@y
- err_print(_("! Nesting of section names not allowed")); break;
-@z
-
-@x
- if (loc>=limit) err_print("! Verbatim string didn't end");
-@y
- if (loc>=limit) err_print(_("! Verbatim string didn't end"));
-@z
-
-@x
-@d app_repl(c) {if (tok_ptr==tok_mem_end) overflow("token"); *tok_ptr++=c;}
-@y
-@d app_repl(c) {if (tok_ptr==tok_mem_end) overflow(_("token")); *tok_ptr++=c;}
-@z
-
-@x
- if (text_ptr>text_info_end) overflow("text");
-@y
- if (text_ptr>text_info_end) overflow(_("text"));
-@z
-
-@x
-case output_defs_code: if (t!=section_name) err_print("! Misplaced @@h");
-@y
-case output_defs_code: if (t!=section_name) err_print(_("! Misplaced @@h"));
-@z
-
-@x
- err_print("! @@d, @@f and @@c are ignored in C text"); continue;
-@y
- err_print(_("! @@d, @@f and @@c are ignored in C text")); continue;
-@z
-
-@x
- if (*try_loc=='=') err_print ("! Missing `@@ ' before a named section");
-@y
- if (*try_loc=='=') err_print (_("! Missing `@@ ' before a named section"));
-@z
-
-@x
- else err_print("! Double @@ should be used in string");
-@y
- else err_print(_("! Double @@ should be used in string"));
-@z
-
-@x
- default: err_print("! Unrecognized escape sequence");
-@y
- default: err_print(_("! Unrecognized escape sequence"));
-@z
-
-@x
- err_print("! Definition flushed, must start with identifier");
-@y
- err_print(_("! Definition flushed, must start with identifier"));
-@z
-
-@x
- err_print("! Double @@ should be used in control text");
-@y
- err_print(_("! Double @@ should be used in control text"));
-@z
-
-@x
- default: err_print("! Double @@ should be used in limbo");
-@y
- default: err_print(_("! Double @@ should be used in limbo"));
-@z
-
-@x
- err_print("! Improper hex number following @@l");
-@y
- err_print(_("! Improper hex number following @@l"));
-@z
-
-@x
- err_print("! Replacement string in @@l too long");
-@y
- err_print(_("! Replacement string in @@l too long"));
-@z
-
-@x
- puts("\nMemory usage statistics:");
- printf("%ld names (out of %ld)\n",
- (ptrdiff_t)(name_ptr-name_dir),(long)max_names);
- printf("%ld replacement texts (out of %ld)\n",
- (ptrdiff_t)(text_ptr-text_info),(long)max_texts);
- printf("%ld bytes (out of %ld)\n",
- (ptrdiff_t)(byte_ptr-byte_mem),(long)max_bytes);
- printf("%ld tokens (out of %ld)\n",
-@y
- puts(_("\nMemory usage statistics:"));
- printf(_("%ld names (out of %ld)\n"),
- (ptrdiff_t)(name_ptr-name_dir),(long)max_names);
- printf(_("%ld replacement texts (out of %ld)\n"),
- (ptrdiff_t)(text_ptr-text_info),(long)max_texts);
- printf(_("%ld bytes (out of %ld)\n"),
- (ptrdiff_t)(byte_ptr-byte_mem),(long)max_bytes);
- printf(_("%ld tokens (out of %ld)\n"),
-@z
-
-@x
-@** Index.
-@y
-@** Extensions to \.{CWEB}. The following sections introduce new or improved
-features that have been created by numerous contributors over the course of a
-quarter century.
-
-Care has been taken to keep the original section numbering intact, so this new
-material should nicely integrate with the original ``\&{104.~Index}.''
-
-@* Output file update. Most \CEE/ projects are controlled by a
-\.{Makefile} that automatically takes care of the temporal dependecies
-between the different source modules. It is suitable that \.{CWEB} doesn't
-create new output for all existing files, when there are only changes to
-some of them. Thus the \.{make} process will only recompile those modules
-where necessary. The idea and basic implementation of this mechanism can
-be found in the program \.{NUWEB} by Preston Briggs, to whom credit is due.
-
-@<Update the primary result...@>=
-if((C_file=fopen(C_file_name,"r"))!=NULL) {
- @<Set up the comparison of temporary output@>@;
- @<Create the primary output depending on the comparison@>@;
-} else
- rename(check_file_name,C_file_name); /* This was the first run */
-
-@ @<Set up the comparison of temporary output@>=
- char x[BUFSIZ],y[BUFSIZ];
- int x_size,y_size,comparison=false;
-
- if((check_file=fopen(check_file_name,"r"))==NULL)
- fatal(_("! Cannot open output file "),check_file_name);
-@.Cannot open output file@>
-
- if (temporary_output) @<Compare the temporary output...@>@;
-
- fclose(C_file); C_file=NULL;
- fclose(check_file); check_file=NULL;
-
-@ We hope that this runs fast on most systems.
-
-@<Compare the temporary output to the previous output@>=
-do {
- x_size = fread(x,1,BUFSIZ,C_file);
- y_size = fread(y,1,BUFSIZ,check_file);
- comparison = (x_size == y_size); /* Do not merge these statements! */
- if(comparison) comparison = !memcmp(x,y,x_size);
-} while(comparison && !feof(C_file) && !feof(check_file));
-
-@ Note the superfluous call to |remove| before |rename|. We're using it to
-get around a bug in some implementations of |rename|.
-
-@<Create the primary output...@>=
-if(comparison)
- remove(check_file_name); /* The output remains untouched */
-else {
- remove(C_file_name);
- rename(check_file_name,C_file_name);
-}
-
-@ The author of a \.{CWEB} program may want to write the \\{secondary} output
-instead of to a file (in \.{@@(...@@>}) to \.{/dev/null} or \.{/dev/stdout} or
-\.{/dev/stderr}. We must take care of the \\{temporary} output already written
-to a file and finally get rid of that file.
-
-@<Update the secondary results...@>=
-if(0==strcmp("/dev/stdout",output_file_name))
- @<Redirect temporary output to \.{/dev/stdout}@>@;
-else if(0==strcmp("/dev/stderr",output_file_name))
- @<Redirect temporary output to \.{/dev/stderr}@>@;
-else if(0==strcmp("/dev/null",output_file_name))
- @<Redirect temporary output to \.{/dev/null}@>@;
-else { /* Hopefully a \\{regular} output file */
- if((C_file=fopen(output_file_name,"r"))!=NULL) {
- @<Set up the comparison of temporary output@>@;
- @<Create the secondary output depending on the comparison@>@;
- } else
- rename(check_file_name,output_file_name); /* This was the first run */
-}
-
-@ Again, we use a call to |remove| before |rename|.
-
-@<Create the secondary output...@>=
-if(comparison)
- remove(check_file_name); /* The output remains untouched */
-else {
- remove(output_file_name);
- rename(check_file_name,output_file_name);
-}
-
-@ Copy secondary output to |stdout|.
-
-@<Redirect temporary output to \.{/dev/stdout}@>={
- @<Setup system redirection@>@;
- do {
- in_size = fread(in_buf,1,BUFSIZ,check_file);
- in_buf[in_size]='\0';
- fprintf(stdout,"%s",in_buf);
- } while(!feof(check_file));@/
- fclose(check_file); check_file=NULL;
- @<Create the secondary output...@>@;
-}
-
-@ Copy secondary output to |stderr|.
-
-@<Redirect temporary output to \.{/dev/stderr}@>={
- @<Setup system redirection@>@;
- do {
- in_size = fread(in_buf,1,BUFSIZ,check_file);
- in_buf[in_size]='\0';
- fprintf(stderr,"%s",in_buf);
- } while(!feof(check_file));@/
- fclose(check_file); check_file=NULL;
- @<Create the secondary output...@>@;
-}
-
-@ No copying necessary, just remove the temporary output file.
-
-@<Redirect temporary output to \.{/dev/null}@>={
- int comparison=true;
- @<Create the secondary output...@>@;
-}
-
-@ @<Setup system redirection@>=
-char in_buf[BUFSIZ+1];
-int in_size,comparison=true;
-if((check_file=fopen(check_file_name,"r"))==NULL)
- fatal(_("! Cannot open output file "),check_file_name);
-@.Cannot open output file@>
-
-@* Put ``version'' information in a single spot.
-Don't do this at home, kids! Push our local macro to the variable in \.{COMMON}
-for printing the |banner| and the |versionstring| from there.
-
-@d max_banner 50
-
-@<Common code...@>=
-extern char cb_banner[];
-
-@ @<Set init...@>=
- strncpy(cb_banner,banner,max_banner-1);
-
-@** Index.
-@z
-