texlive[55874] Build/source/texk/web2c/xetexdir: \tracinglostchars>=3
commits+karl at tug.org
commits+karl at tug.org
Sun Jul 19 17:42:51 CEST 2020
Revision: 55874
http://tug.org/svn/texlive?view=revision&revision=55874
Author: karl
Date: 2020-07-19 17:42:51 +0200 (Sun, 19 Jul 2020)
Log Message:
-----------
\tracinglostchars>=3 now causes an error; missing character code always reported in hex
Modified Paths:
--------------
trunk/Build/source/texk/web2c/ChangeLog
trunk/Build/source/texk/web2c/Makefile.in
trunk/Build/source/texk/web2c/NEWS
trunk/Build/source/texk/web2c/eptexdir/ChangeLog
trunk/Build/source/texk/web2c/eptexdir/am/eptex.am
trunk/Build/source/texk/web2c/euptexdir/ChangeLog
trunk/Build/source/texk/web2c/euptexdir/am/euptex.am
trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
trunk/Build/source/texk/web2c/pdftexdir/am/pdftex.am
trunk/Build/source/texk/web2c/pdftexdir/change-files.txt
trunk/Build/source/texk/web2c/xetexdir/ChangeLog
trunk/Build/source/texk/web2c/xetexdir/am/xetex.am
Added Paths:
-----------
trunk/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch
trunk/Build/source/texk/web2c/pdftexdir/char-warning-pdftex.ch
trunk/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch
Property Changed:
----------------
trunk/Build/source/texk/web2c/eptexdir/am/eptex.am
trunk/Build/source/texk/web2c/euptexdir/am/euptex.am
trunk/Build/source/texk/web2c/pdftexdir/am/pdftex.am
trunk/Build/source/texk/web2c/pdftexdir/change-files.txt
Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/ChangeLog 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,3 +1,8 @@
+2020-07-19 Karl Berry <karl at freefriends.org>
+
+ * NEWS: mention new \tracinglostchars>=3 causing an error.
+ See pdftexdir/ChangeLog for details.
+
2020-07-17 Andreas Scherer <https://ascherer.github.io>
* Makefile.am,
Modified: trunk/Build/source/texk/web2c/Makefile.in
===================================================================
--- trunk/Build/source/texk/web2c/Makefile.in 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/Makefile.in 2020-07-19 15:42:51 UTC (rev 55874)
@@ -3322,9 +3322,9 @@
cnfline.log postV3.afm postV7.afm test-13.pdf test-13.xref \
test-15.pdf test-15.xref $(nodist_libluatex_sources) \
luaimage.* luajitimage.* $(nodist_xetex_SOURCES) xetex.web \
- xetex-final.ch xetex-web2c xetex.p xetex.pool xetex-tangle bug73.fmt \
- bug73.log bug73.out bug73.tex filedump.log filedump.out \
- filedump.tex $(omegaware_programs:=.c) \
+ xetex-final.ch xetex-web2c xetex.p xetex.pool xetex-tangle \
+ bug73.fmt bug73.log bug73.out bug73.tex filedump.log \
+ filedump.out filedump.tex $(omegaware_programs:=.c) \
$(omegaware_programs:=.h) $(omegaware_programs:=.p) \
$(omegaware_programs:=-web2c) ofm2opl.web opl2ofm.web \
ovf2ovp.web ovp2ovf.web omegaware/bad*.* \
@@ -3818,6 +3818,7 @@
$(eptex_ch_synctex) \
eptexdir/fam256.ch \
eptexdir/pdfutils.ch \
+ eptexdir/char-warning-eptex.ch \
tex-binpool.ch
@@ -3929,6 +3930,7 @@
euptexdir/pdfstrcmp-eup-pre.ch \
eptexdir/pdfutils.ch \
euptexdir/pdfstrcmp-eup-post.ch \
+ eptexdir/char-warning-eptex.ch \
tex-binpool.ch
@@ -3986,6 +3988,7 @@
enctex.ch \
$(pdftex_ch_synctex) \
pdftexdir/pdftex.ch \
+ pdftexdir/char-warning-pdftex.ch \
tex-binpool.ch
@@ -4673,6 +4676,7 @@
$(xetex_ch_synctex) \
xetexdir/xetex.ch \
$(xetex_post_ch_synctex) \
+ xetexdir/char-warning-xetex.ch \
tex-binpool.ch
libxetex_a_CPPFLAGS = $(xetex_cppflags)
@@ -18783,7 +18787,6 @@
$(AM_V_GEN)grep '^@d XeTeX_version_string==' $(srcdir)/xetexdir/xetex.web \
| sed "s/^.*'-/#define XETEX_VERSION \"/;s/'.*$$/\"/" >$@
-# Generate xetex-final.ch
xetex-final.ch: tie$(EXEEXT) $(xetex_ch_srcs)
$(tie_c) $(xetex_ch_srcs)
$(libxetex_a_OBJECTS): $(libxetex_prereq)
Modified: trunk/Build/source/texk/web2c/NEWS
===================================================================
--- trunk/Build/source/texk/web2c/NEWS 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/NEWS 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,5 +1,9 @@
This file records noteworthy changes. (Public domain.)
+* pdftex, xetex, e(u)ptex: if \tracinglostchars >= 3,
+make missing characters an error (not just a log message),
+and always report the character code in hex.
+
* obscure interaction sequences try to avoid crashing.
Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,3 +1,8 @@
+2020-07-19 Karl Berry <karl at freefriends.org>
+
+ * char-warning-eptex.ch: new file (see ../pdftexdir/ChangeLog).
+ * am/eptex.am (eptex_ch_srcs): add it.
+
2020-05-05 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
* pdfutils.ch: Sync with inhibit_glue_flag improvement.
Modified: trunk/Build/source/texk/web2c/eptexdir/am/eptex.am
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/am/eptex.am 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/eptexdir/am/eptex.am 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,6 +1,7 @@
+## $Id$
## texk/web2c/eptexdir/am/eptex.am: Makefile fragment for e-pTeX.
##
-## Copyright 2015-2019 Karl Berry <tex-live at tug.org>
+## Copyright 2015-2020 Karl Berry <tex-live at tug.org>
## Copyright 2011-2015 Peter Breitenlohner <tex-live at tug.org>
## You may freely use, modify and/or distribute this file.
@@ -68,6 +69,7 @@
$(eptex_ch_synctex) \
eptexdir/fam256.ch \
eptexdir/pdfutils.ch \
+ eptexdir/char-warning-eptex.ch \
tex-binpool.ch
EXTRA_DIST += $(eptex_web_srcs) $(eptex_ch_srcs) eptexdir/eptex.defines
Property changes on: trunk/Build/source/texk/web2c/eptexdir/am/eptex.am
___________________________________________________________________
Added: svn:keywords
## -0,0 +1 ##
+Date Author Id Revision
\ No newline at end of property
Added: trunk/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch (rev 0)
+++ trunk/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch 2020-07-19 15:42:51 UTC (rev 55874)
@@ -0,0 +1,63 @@
+% $Id$
+% Public domain. See ../pdftexdir/char-warning-pdftex.ch for info.
+
+ at x [30] If \tracinglostchars > 2, then promote full errors.
+ at 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 ");
+ at .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;
+ at y
+ at 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;
+ at .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}
+ at z
Property changes on: trunk/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:keywords
## -0,0 +1 ##
+Date Author Id Revision
\ No newline at end of property
Modified: trunk/Build/source/texk/web2c/euptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/ChangeLog 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/euptexdir/ChangeLog 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,3 +1,7 @@
+2020-07-19 Karl Berry <karl at freefriends.org>
+
+ * am/euptex.am (euptex_ch_srcs): add eptexdir/char-warning-eptex.ch.
+
2019-12-10 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
* am/euptex.am (euptex_CPPFLAGS): append $(ZLIB_INCLUDES).
Modified: trunk/Build/source/texk/web2c/euptexdir/am/euptex.am
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/am/euptex.am 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/euptexdir/am/euptex.am 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,6 +1,7 @@
+## $Id$
## texk/web2c/euptexdir/am/euptex.am: Makefile fragment for e-upTeX.
##
-## Copyright 2015-2019 Karl Berry <tex-live at tug.org>
+## Copyright 2015-2020 Karl Berry <tex-live at tug.org>
## Copyright 2011-2015 Peter Breitenlohner <tex-live at tug.org>
## You may freely use, modify and/or distribute this file.
@@ -68,6 +69,7 @@
euptexdir/pdfstrcmp-eup-pre.ch \
eptexdir/pdfutils.ch \
euptexdir/pdfstrcmp-eup-post.ch \
+ eptexdir/char-warning-eptex.ch \
tex-binpool.ch
EXTRA_DIST += $(euptex_web_srcs) $(euptex_ch_srcs) euptexdir/euptex.defines
Property changes on: trunk/Build/source/texk/web2c/euptexdir/am/euptex.am
___________________________________________________________________
Added: svn:keywords
## -0,0 +1 ##
+Date Author Id Revision
\ No newline at end of property
Modified: trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/ChangeLog 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/pdftexdir/ChangeLog 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,3 +1,12 @@
+2020-07-19 Karl Berry <karl at freefriends.org>
+
+ * char-warning-pdftex.ch: new file to implement new feature;
+ if \tracinglostchars>=3, missing characters cause an error and not
+ just a diagnostic message. Also, always report the hex code of the
+ missing character. From David Jones, tex-implements 30jun2020.
+ * am/pdftex.am (pdftex_ch_srcs): add it.
+ * change-files.txt: update.
+
2020-07-17 Andreas Scherer <https://ascherer.github.io>
* am/pdftex.am: Avoid changefile ambiguity.
Modified: trunk/Build/source/texk/web2c/pdftexdir/am/pdftex.am
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/am/pdftex.am 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/pdftexdir/am/pdftex.am 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,6 +1,7 @@
+## $Id$
## texk/web2c/pdftexdir/am/pdftex.am: Makefile fragment for pdfTeX.
##
-## Copyright 2016-2019 Karl Berry <tex-live at tug.org>
+## Copyright 2016-2020 Karl Berry <tex-live at tug.org>
## Copyright 2009-2015 Peter Breitenlohner <tex-live at tug.org>
## You may freely use, modify and/or distribute this file.
@@ -73,6 +74,7 @@
enctex.ch \
$(pdftex_ch_synctex) \
pdftexdir/pdftex.ch \
+ pdftexdir/char-warning-pdftex.ch \
tex-binpool.ch
# Convenience target for making the typeset output; not invoked automatically
Property changes on: trunk/Build/source/texk/web2c/pdftexdir/am/pdftex.am
___________________________________________________________________
Added: svn:keywords
## -0,0 +1 ##
+Date Author Id Revision
\ No newline at end of property
Modified: trunk/Build/source/texk/web2c/pdftexdir/change-files.txt
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/change-files.txt 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/pdftexdir/change-files.txt 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,8 +1,10 @@
+$Id$
+Public domain.
How change files are applied for pdftex/pdfetex?
============================= pdftex =============================
-2) pdftex.ch is generated from
+2) pdftex.ch is essentially generated from (see pdftexdir/am/pdftex.am)
./tie -c pdftex.ch pdftex.web \
$(srcdir)/pdftexdir/tex.ch0 \
$(srcdir)/tex.ch \
@@ -9,6 +11,10 @@
$(srcdir)/pdftexdir/tex.ch1 \
$(srcdir)/pdftexdir/tex.pch
+There are more feature-specific change files, for synctex, including the
+pool in the binary, etc., many of which are shared between engines. They
+don't alter the basic process described here.
+
Input:
pdftex.web:
pdftex without system-dependent changes
@@ -31,5 +37,5 @@
change the tex banner to pdftex banner (reverse tex.ch0)
Output:
- pdftex.ch (not pdftexdir/pdftex.ch):
+ pdftex.ch (in the build dir, not pdftexdir/pdftex.ch):
additional & system-dependent changes
Property changes on: trunk/Build/source/texk/web2c/pdftexdir/change-files.txt
___________________________________________________________________
Modified: svn:keywords
## -1 +1 ##
-Id Date Revision Author HeadUR
\ No newline at end of property
+Date Author Id Revision
\ No newline at end of property
Added: trunk/Build/source/texk/web2c/pdftexdir/char-warning-pdftex.ch
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/char-warning-pdftex.ch (rev 0)
+++ trunk/Build/source/texk/web2c/pdftexdir/char-warning-pdftex.ch 2020-07-19 15:42:51 UTC (rev 55874)
@@ -0,0 +1,62 @@
+% $Id$
+% Public domain (from David Jones, tex-implementors 30jun2020).
+% Unfortunately this cannot be in pdftex.ch since the ordering
+% of changes gets messed up.
+%
+% If \tracinglostchars >= 3, then making missing characters from a font
+% be an error, not just a log message, and always report the character
+% code in hex as well as a character.
+%
+% Simple example test:
+% pdftex -ini
+% \font\x=/usr/local/texlive/2020/texmf-dist/fonts/tfm/public/knuth-lib/logo10.tfm
+% \tracinglostchars=3 \x \char99\end
+% should get:
+% ! Missing character: There is no c ("63) in font logo10.
+
+ at x [30] If \tracinglostchars > 2, then promote full errors.
+ at p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
+var 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 ");
+ at .Missing character@>
+ print_ASCII(c); print(" in font ");
+ slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
+ end;
+ tracing_online:=old_setting;
+ end;
+end;
+ at y
+ at p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
+var 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;
+ at .Missing character@>
+ 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}
+ at z
+
Property changes on: trunk/Build/source/texk/web2c/pdftexdir/char-warning-pdftex.ch
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:keywords
## -0,0 +1 ##
+Date Author Id Revision
\ No newline at end of property
Modified: trunk/Build/source/texk/web2c/xetexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/ChangeLog 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/xetexdir/ChangeLog 2020-07-19 15:42:51 UTC (rev 55874)
@@ -1,3 +1,10 @@
+2020-07-19 Karl Berry <karl at freefriends.org>
+
+ * char-warning-xetex.ch: new file; see ../pdftexdir/ChangeLog.
+ Also define new procedure print_ucs_code to print U+nnnn
+ for system fonts.
+ * am/xetex.am: add it.
+
2020-07-17 Andreas Scherer <https://ascherer.github.io>
* am/xetex.am: Avoid changefile ambiguity.
Modified: trunk/Build/source/texk/web2c/xetexdir/am/xetex.am
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/am/xetex.am 2020-07-19 14:53:33 UTC (rev 55873)
+++ trunk/Build/source/texk/web2c/xetexdir/am/xetex.am 2020-07-19 15:42:51 UTC (rev 55874)
@@ -116,13 +116,14 @@
$(xetex_ch_synctex) \
xetexdir/xetex.ch \
$(xetex_post_ch_synctex) \
+ xetexdir/char-warning-xetex.ch \
tex-binpool.ch
##
EXTRA_DIST += $(xetex_web_srcs) $(xetex_ch_srcs) xetexdir/xetex.defines
-DISTCLEANFILES += $(nodist_xetex_SOURCES) xetex.web xetex-final.ch xetex-web2c \
- xetex.p xetex.pool xetex-tangle
+DISTCLEANFILES += $(nodist_xetex_SOURCES) xetex.web xetex-final.ch \
+ xetex-web2c xetex.p xetex.pool xetex-tangle
## libxetex
Added: trunk/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch (rev 0)
+++ trunk/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch 2020-07-19 15:42:51 UTC (rev 55874)
@@ -0,0 +1,84 @@
+% $Id$
+% Public domain. See ../pdftexdir/char-warning-pdftex.ch for basic info.
+% In addition to the basic change, we also define a new procedure
+% print_ucs_code to print in the format U+.... for system fonts.
+%
+% To test:
+% xetex -ini
+% \font\x=/usr/local/texlive/2020/texmf-dist/fonts/tfm/public/knuth-lib/logo10.tfm
+% \tracinglostchars=3 \x \char99\end
+% should get:
+% ! Missing character: There is no c ("63) in font logo10.
+% And:
+% \font\y="Nimbus Mono" \tracinglostchars=3 \y \char43981\end
+% should get:
+% ! Missing character: There is no ꯍ (U+ABCD) in font Nimbus Mono Regular!.
+% Assuming that font is findable as a system font, e.g., shown by
+% fc-list :scalable=true family
+
+ at x [30] If \tracinglostchars > 2, then promote full errors.
+procedure char_warning(@!f:internal_font_number;@!c:integer);
+var 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 ");
+ at .Missing character@>
+ if c < @"10000 then print_ASCII(c)
+ else print_char(c); {non-Plane 0 Unicodes can't be sent through |print_ASCII|}
+ print(" in font ");
+ slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
+ end;
+ tracing_online:=old_setting;
+ end;
+end;
+ at y
+procedure print_ucs_code(@!n: UnicodeScalar); { cf. print_hex }
+ var k: 0..22; {index to current digit; we assume that $0\L n<16^{22}$}
+ begin
+ k := 0;
+ print("U+"); { prefix with U+ instead of " }
+ repeat
+ dig[k] := n mod 16;
+ n := n div 16;
+ incr(k);
+ until n = 0;
+ { pad to at least 4 hex digits }
+ while k < 4 do
+ begin
+ dig[k] := 0;
+ incr(k);
+ end;
+ print_the_digs(k);
+end;
+
+procedure char_warning(@!f:internal_font_number;@!c:integer);
+var 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;
+ at .Missing character@>
+ if c < @"10000 then print_ASCII(c)
+ else print_char(c); {non-Plane 0 Unicodes can't be sent through |print_ASCII|}
+ print(" (");
+ if is_native_font(f) then print_ucs_code(c)
+ else print_hex(c);
+ print(")");
+ 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}
+ at z
Property changes on: trunk/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:keywords
## -0,0 +1 ##
+Date Author Id Revision
\ No newline at end of property
More information about the tex-live-commits
mailing list.