[NTG-pdftex] [ pdftex-Bugs-772 ] Option -recorder does not work for Type1 or PK files

[Akira Kakuto]

Hi Heiko,

> Bugs item #772, was opened at 2007-04-13 04:54

> pdfTeX 1.40.3 supports the Web2C feature,enabled by option -recorder.
> However, it does not record all files,.pfb (Type1) or .pk files are missing.
> Yours sincerely  Heiko <oberdiek at uni-freiburg.de>
> PS: texmf.cnf isn't recorded either.

I think texmf.cnf is not read by using open_input also
in the case of the other TeX programs.

Best regards,
Akira


--- writet1.c.orig	Wed Dec 27 08:37:36 2006
+++ writet1.c	Sun Apr 15 11:00:09 2007
@@ -921,10 +921,18 @@
 static boolean t1_open_fontfile(const char *open_name_prefix)
 {
     ff_entry *ff;
-    ff = check_ff_exist(fd_cur->fm->ff_name, is_truetype(fd_cur->fm));
-    if (ff->ff_path != NULL)
-        t1_file = xfopen(cur_file_name = ff->ff_path, FOPEN_RBIN_MODE);
-    else {
+    boolean is_tt = is_truetype (fd_cur->fm);
+    ff = check_ff_exist(fd_cur->fm->ff_name, is_tt);
+    if (ff->ff_path != NULL) {
+        cur_file_name = ff->ff_path;
+        if (nameoffile) free (nameoffile);
+        nameoffile = (char *)malloc (strlen (cur_file_name) + 2);
+        (void)strcpy (nameoffile + 1, cur_file_name);
+        if (is_tt)
+            open_input (&t1_file, kpse_truetype_format, FOPEN_RBIN_MODE);
+        else
+            open_input (&t1_file, kpse_type1_format, FOPEN_RBIN_MODE);
+    } else {
         set_cur_file_name(fd_cur->fm->ff_name);
         pdftex_warn("cannot open Type 1 font file for reading");
         return false;
--- writet3.c.orig	Wed Dec 27 08:37:36 2006
+++ writet3.c	Sun Apr 15 11:02:10 2007
@@ -197,7 +197,13 @@
         cur_file_name = NULL;
         return false;
     }
-    t3_file = xfopen(name, FOPEN_RBIN_MODE);
+    if (nameoffile) free (nameoffile);
+    nameoffile = (char *)malloc (strlen (name) + 2);
+    strcpy (nameoffile + 1, name);
+    if (!open_input (&t3_file, kpse_pk_format, FOPEN_RBIN_MODE)) {
+        pdftex_warn ("missing pk font %s.", name);
+        return false;
+    }
     t3_image_used = true;
     is_pk_font = true;
     tex_printf(" <%s", (char *) name);