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/eptexdir/char-warning-eptex.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/eptexdir/char-warning-eptex.ch')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/char-warning-eptex.ch | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch b/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch deleted file mode 100644 index f6593ad1e9d..00000000000 --- a/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch +++ /dev/null @@ -1,63 +0,0 @@ -% $Id$ -% Public domain. See ../pdftexdir/char-warning-pdftex.ch for info. - -@x [30] If \tracinglostchars > 2, then promote full errors. -@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits); -var @!l:0..255; {small indices or counters} -old_setting: integer; {saved value of |tracing_online|} -begin if tracing_lost_chars>0 then - begin old_setting:=tracing_online; - if eTeX_ex and(tracing_lost_chars>1) then tracing_online:=1; - begin begin_diagnostic; - print_nl("Missing character: There is no "); -@.Missing character@> - if (c<" ")or(c>"~") then - begin print_char("^"); print_char("^"); - if c<64 then print_char(c+64) - else if c<128 then print_char(c-64) - else begin print_lc_hex(c div 16); print_lc_hex(c mod 16); end - end - else print_ASCII(c); - print(" in font "); - slow_print(font_name[f]); print_char("!"); end_diagnostic(false); - end; - tracing_online:=old_setting; - end; -end; -@y -@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits); -var @!l:0..255; {small indices or counters} -old_setting: integer; {saved value of |tracing_online|} -begin if tracing_lost_chars>0 then - begin old_setting:=tracing_online; - if eTeX_ex and(tracing_lost_chars>1) then tracing_online:=1; - if tracing_lost_chars > 2 then - print_err("Missing character: There is no ") - else begin - begin_diagnostic; - print_nl("Missing character: There is no ") - end; -@.Missing character@> - if (c<" ")or(c>"~") then begin - print_char("^"); print_char("^"); - if c<64 then print_char(c+64) - else if c<128 then print_char(c-64) - else begin print_lc_hex(c div 16); print_lc_hex(c mod 16); end - end - else print_ASCII(c); - if tracing_lost_chars > 2 then begin - print(" ("); - print_hex(c); - print(")"); - end; - print(" in font "); - slow_print(font_name[f]); - if tracing_lost_chars < 3 then print_char("!"); - tracing_online:=old_setting; - if tracing_lost_chars > 2 then begin - help0; - error; - end else end_diagnostic(false); - end; {of |tracing_lost_chars>0|} -end; {of procedure} -@z |