summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/xetexdir/xetex.ch
diff options
context:
space:
mode:
authorJonathan Kew <jfkthame@googlemail.com>2008-05-29 11:57:32 +0000
committerJonathan Kew <jfkthame@googlemail.com>2008-05-29 11:57:32 +0000
commitce649ba58fb8f5504020ca648b9c7dd7a74c9d3d (patch)
tree34208ab116e6bdbab1843f28c3d8415b6f1b187a /Build/source/texk/web2c/xetexdir/xetex.ch
parent91023971d5357e16279b558392c4aaf89d6b1071 (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.ch33
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