diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/cwebdir/ctang-w2c.ch | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (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.ch | 481 |
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 - |