diff options
author | Jonathan Kew <jfkthame@googlemail.com> | 2008-05-29 11:57:32 +0000 |
---|---|---|
committer | Jonathan Kew <jfkthame@googlemail.com> | 2008-05-29 11:57:32 +0000 |
commit | ce649ba58fb8f5504020ca648b9c7dd7a74c9d3d (patch) | |
tree | 34208ab116e6bdbab1843f28c3d8415b6f1b187a /Build/source/texk/web2c/xetexdir/xetex.ch | |
parent | 91023971d5357e16279b558392c4aaf89d6b1071 (diff) |
merged \XeTeXtracingfonts update from xetex svn
git-svn-id: svn://tug.org/texlive/trunk@8405 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/xetexdir/xetex.ch')
-rw-r--r-- | Build/source/texk/web2c/xetexdir/xetex.ch | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch index 029b025333d..030a4828f3f 100644 --- a/Build/source/texk/web2c/xetexdir/xetex.ch +++ b/Build/source/texk/web2c/xetexdir/xetex.ch @@ -3350,6 +3350,21 @@ if translate_filename then begin @y file_opened:=false; pack_file_name(nom,aire,cur_ext); +if XeTeX_tracing_fonts_state>0 then begin + begin_diagnostic; + print_nl("Requested font """); + print_c_string(name_of_file+1); + print('"'); + if s < 0 then begin + print(" scaled "); + print_int(-s); + end else begin + print(" at "); + print_scaled(s); + print("pt"); + end; + end_diagnostic(false); +end; if quoted_filename then begin { quoted name, so try for a native font } g:=load_native_font(u,nom,aire,s); @@ -3376,6 +3391,24 @@ if suppress_fontnotfound_error=0 then begin @z @x +done: if file_opened then b_close(tfm_file); +@y +done: if file_opened then b_close(tfm_file); +if XeTeX_tracing_fonts_state>0 then begin + if g=null_font then begin + begin_diagnostic; + print_nl(" -> font not found, using ""nullfont"""); + end_diagnostic(false); + end else if file_opened then begin + begin_diagnostic; + print_nl(" -> "); + print_c_string(name_of_file+1); + end_diagnostic(false); + end; +end; +@z + +@x @d start_font_error_message==print_err("Font "); sprint_cs(u); print_char("="); print_file_name(nom,aire,""); @y |