From 387cf3625583fb046baf756f72f188924f35cfe2 Mon Sep 17 00:00:00 2001 From: Jonathan Kew Date: Fri, 29 Sep 2006 15:15:10 +0000 Subject: adding xdvipdfmx sources git-svn-id: svn://tug.org/texlive/trunk@2220 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/xdvipdfmx/src/Makefile.am | 45 + Build/source/texk/xdvipdfmx/src/Makefile.in | 1531 +++++ Build/source/texk/xdvipdfmx/src/agl.c | 848 +++ Build/source/texk/xdvipdfmx/src/agl.h | 68 + Build/source/texk/xdvipdfmx/src/agl_standard.c | 5895 ++++++++++++++++++++ Build/source/texk/xdvipdfmx/src/asl_charset.h | 364 ++ Build/source/texk/xdvipdfmx/src/bmpimage.c | 466 ++ Build/source/texk/xdvipdfmx/src/bmpimage.h | 39 + Build/source/texk/xdvipdfmx/src/cff.c | 1458 +++++ Build/source/texk/xdvipdfmx/src/cff.h | 155 + Build/source/texk/xdvipdfmx/src/cff_dict.c | 770 +++ Build/source/texk/xdvipdfmx/src/cff_dict.h | 48 + Build/source/texk/xdvipdfmx/src/cff_limits.h | 46 + Build/source/texk/xdvipdfmx/src/cff_stdstr.h | 109 + Build/source/texk/xdvipdfmx/src/cff_types.h | 142 + Build/source/texk/xdvipdfmx/src/cid.c | 826 +++ Build/source/texk/xdvipdfmx/src/cid.h | 94 + Build/source/texk/xdvipdfmx/src/cid_basefont.h | 463 ++ Build/source/texk/xdvipdfmx/src/cid_p.h | 73 + Build/source/texk/xdvipdfmx/src/cidtype0.c | 2073 +++++++ Build/source/texk/xdvipdfmx/src/cidtype0.h | 47 + Build/source/texk/xdvipdfmx/src/cidtype2.c | 1086 ++++ Build/source/texk/xdvipdfmx/src/cidtype2.h | 37 + Build/source/texk/xdvipdfmx/src/cmap.c | 995 ++++ Build/source/texk/xdvipdfmx/src/cmap.h | 118 + Build/source/texk/xdvipdfmx/src/cmap_p.h | 104 + Build/source/texk/xdvipdfmx/src/cmap_read.c | 605 ++ Build/source/texk/xdvipdfmx/src/cmap_read.h | 34 + Build/source/texk/xdvipdfmx/src/cmap_write.c | 601 ++ Build/source/texk/xdvipdfmx/src/cmap_write.h | 35 + Build/source/texk/xdvipdfmx/src/cs_type2.c | 807 +++ Build/source/texk/xdvipdfmx/src/cs_type2.h | 45 + Build/source/texk/xdvipdfmx/src/dpxconf.c | 110 + Build/source/texk/xdvipdfmx/src/dpxconf.h | 60 + Build/source/texk/xdvipdfmx/src/dpxcrypt.c | 366 ++ Build/source/texk/xdvipdfmx/src/dpxcrypt.h | 49 + Build/source/texk/xdvipdfmx/src/dpxfile.c | 930 +++ Build/source/texk/xdvipdfmx/src/dpxfile.h | 58 + Build/source/texk/xdvipdfmx/src/dpxutil.c | 643 +++ Build/source/texk/xdvipdfmx/src/dpxutil.h | 101 + Build/source/texk/xdvipdfmx/src/dvi.c | 2632 +++++++++ Build/source/texk/xdvipdfmx/src/dvi.h | 92 + Build/source/texk/xdvipdfmx/src/dvicodes.h | 131 + Build/source/texk/xdvipdfmx/src/dvipdfmx.c | 898 +++ Build/source/texk/xdvipdfmx/src/epdf.c | 523 ++ Build/source/texk/xdvipdfmx/src/epdf.h | 39 + Build/source/texk/xdvipdfmx/src/error.c | 94 + Build/source/texk/xdvipdfmx/src/error.h | 46 + Build/source/texk/xdvipdfmx/src/fontmap.c | 1527 +++++ Build/source/texk/xdvipdfmx/src/fontmap.h | 107 + Build/source/texk/xdvipdfmx/src/jpegimage.c | 749 +++ Build/source/texk/xdvipdfmx/src/jpegimage.h | 36 + Build/source/texk/xdvipdfmx/src/mem.c | 94 + Build/source/texk/xdvipdfmx/src/mem.h | 50 + Build/source/texk/xdvipdfmx/src/mfileio.c | 127 + Build/source/texk/xdvipdfmx/src/mfileio.h | 61 + .../source/texk/xdvipdfmx/src/mk_agl_standard_c.pl | 51 + Build/source/texk/xdvipdfmx/src/mpost.c | 1627 ++++++ Build/source/texk/xdvipdfmx/src/mpost.h | 47 + Build/source/texk/xdvipdfmx/src/numbers.c | 224 + Build/source/texk/xdvipdfmx/src/numbers.h | 82 + Build/source/texk/xdvipdfmx/src/otl_conf.c | 654 +++ Build/source/texk/xdvipdfmx/src/otl_conf.h | 39 + Build/source/texk/xdvipdfmx/src/otl_opt.c | 343 ++ Build/source/texk/xdvipdfmx/src/otl_opt.h | 37 + Build/source/texk/xdvipdfmx/src/pdfcolor.c | 1644 ++++++ Build/source/texk/xdvipdfmx/src/pdfcolor.h | 98 + Build/source/texk/xdvipdfmx/src/pdfdev.c | 1820 ++++++ Build/source/texk/xdvipdfmx/src/pdfdev.h | 220 + Build/source/texk/xdvipdfmx/src/pdfdoc.c | 2362 ++++++++ Build/source/texk/xdvipdfmx/src/pdfdoc.h | 138 + Build/source/texk/xdvipdfmx/src/pdfdraw.c | 1836 ++++++ Build/source/texk/xdvipdfmx/src/pdfdraw.h | 160 + Build/source/texk/xdvipdfmx/src/pdfencoding.c | 1178 ++++ Build/source/texk/xdvipdfmx/src/pdfencoding.h | 83 + Build/source/texk/xdvipdfmx/src/pdfencrypt.c | 536 ++ Build/source/texk/xdvipdfmx/src/pdfencrypt.h | 35 + Build/source/texk/xdvipdfmx/src/pdffont.c | 952 ++++ Build/source/texk/xdvipdfmx/src/pdffont.h | 102 + Build/source/texk/xdvipdfmx/src/pdflimits.h | 34 + Build/source/texk/xdvipdfmx/src/pdfnames.c | 486 ++ Build/source/texk/xdvipdfmx/src/pdfnames.h | 52 + Build/source/texk/xdvipdfmx/src/pdfobj.c | 2542 +++++++++ Build/source/texk/xdvipdfmx/src/pdfobj.h | 177 + Build/source/texk/xdvipdfmx/src/pdfparse.c | 1071 ++++ Build/source/texk/xdvipdfmx/src/pdfparse.h | 55 + Build/source/texk/xdvipdfmx/src/pdfresource.c | 373 ++ Build/source/texk/xdvipdfmx/src/pdfresource.h | 43 + Build/source/texk/xdvipdfmx/src/pdfximage.c | 807 +++ Build/source/texk/xdvipdfmx/src/pdfximage.h | 86 + Build/source/texk/xdvipdfmx/src/pkfont.c | 793 +++ Build/source/texk/xdvipdfmx/src/pkfont.h | 35 + Build/source/texk/xdvipdfmx/src/pngimage.c | 1006 ++++ Build/source/texk/xdvipdfmx/src/pngimage.h | 43 + Build/source/texk/xdvipdfmx/src/pst.c | 179 + Build/source/texk/xdvipdfmx/src/pst.h | 74 + Build/source/texk/xdvipdfmx/src/pst_obj.c | 996 ++++ Build/source/texk/xdvipdfmx/src/pst_obj.h | 39 + Build/source/texk/xdvipdfmx/src/sfnt.c | 594 ++ Build/source/texk/xdvipdfmx/src/sfnt.h | 155 + Build/source/texk/xdvipdfmx/src/spc_color.c | 220 + Build/source/texk/xdvipdfmx/src/spc_color.h | 37 + Build/source/texk/xdvipdfmx/src/spc_dvips.c | 395 ++ Build/source/texk/xdvipdfmx/src/spc_dvips.h | 39 + Build/source/texk/xdvipdfmx/src/spc_html.c | 940 ++++ Build/source/texk/xdvipdfmx/src/spc_html.h | 39 + Build/source/texk/xdvipdfmx/src/spc_misc.c | 233 + Build/source/texk/xdvipdfmx/src/spc_misc.h | 39 + Build/source/texk/xdvipdfmx/src/spc_pdfm.c | 2032 +++++++ Build/source/texk/xdvipdfmx/src/spc_pdfm.h | 39 + Build/source/texk/xdvipdfmx/src/spc_tpic.c | 1150 ++++ Build/source/texk/xdvipdfmx/src/spc_tpic.h | 41 + Build/source/texk/xdvipdfmx/src/spc_util.c | 731 +++ Build/source/texk/xdvipdfmx/src/spc_util.h | 44 + Build/source/texk/xdvipdfmx/src/spc_xtx.c | 377 ++ Build/source/texk/xdvipdfmx/src/spc_xtx.h | 42 + Build/source/texk/xdvipdfmx/src/specials.c | 605 ++ Build/source/texk/xdvipdfmx/src/specials.h | 78 + Build/source/texk/xdvipdfmx/src/subfont.c | 654 +++ Build/source/texk/xdvipdfmx/src/subfont.h | 33 + Build/source/texk/xdvipdfmx/src/system.h | 53 + Build/source/texk/xdvipdfmx/src/t1_char.c | 1590 ++++++ Build/source/texk/xdvipdfmx/src/t1_char.h | 26 + Build/source/texk/xdvipdfmx/src/t1_load.c | 1197 ++++ Build/source/texk/xdvipdfmx/src/t1_load.h | 11 + Build/source/texk/xdvipdfmx/src/tfm.c | 1203 ++++ Build/source/texk/xdvipdfmx/src/tfm.h | 57 + Build/source/texk/xdvipdfmx/src/truetype.c | 999 ++++ Build/source/texk/xdvipdfmx/src/truetype.h | 33 + Build/source/texk/xdvipdfmx/src/tt_aux.c | 297 + Build/source/texk/xdvipdfmx/src/tt_aux.h | 35 + Build/source/texk/xdvipdfmx/src/tt_cmap.c | 1906 +++++++ Build/source/texk/xdvipdfmx/src/tt_cmap.h | 80 + Build/source/texk/xdvipdfmx/src/tt_glyf.c | 670 +++ Build/source/texk/xdvipdfmx/src/tt_glyf.h | 60 + Build/source/texk/xdvipdfmx/src/tt_gsub.c | 1666 ++++++ Build/source/texk/xdvipdfmx/src/tt_gsub.h | 67 + Build/source/texk/xdvipdfmx/src/tt_post.c | 265 + Build/source/texk/xdvipdfmx/src/tt_post.h | 53 + Build/source/texk/xdvipdfmx/src/tt_table.c | 479 ++ Build/source/texk/xdvipdfmx/src/tt_table.h | 193 + Build/source/texk/xdvipdfmx/src/type0.c | 685 +++ Build/source/texk/xdvipdfmx/src/type0.h | 56 + Build/source/texk/xdvipdfmx/src/type1.c | 811 +++ Build/source/texk/xdvipdfmx/src/type1.h | 33 + Build/source/texk/xdvipdfmx/src/type1c.c | 741 +++ Build/source/texk/xdvipdfmx/src/type1c.h | 33 + Build/source/texk/xdvipdfmx/src/unicode.c | 113 + Build/source/texk/xdvipdfmx/src/unicode.h | 36 + Build/source/texk/xdvipdfmx/src/vf.c | 1045 ++++ Build/source/texk/xdvipdfmx/src/vf.h | 35 + 151 files changed, 75754 insertions(+) create mode 100644 Build/source/texk/xdvipdfmx/src/Makefile.am create mode 100644 Build/source/texk/xdvipdfmx/src/Makefile.in create mode 100644 Build/source/texk/xdvipdfmx/src/agl.c create mode 100644 Build/source/texk/xdvipdfmx/src/agl.h create mode 100644 Build/source/texk/xdvipdfmx/src/agl_standard.c create mode 100644 Build/source/texk/xdvipdfmx/src/asl_charset.h create mode 100644 Build/source/texk/xdvipdfmx/src/bmpimage.c create mode 100644 Build/source/texk/xdvipdfmx/src/bmpimage.h create mode 100644 Build/source/texk/xdvipdfmx/src/cff.c create mode 100644 Build/source/texk/xdvipdfmx/src/cff.h create mode 100644 Build/source/texk/xdvipdfmx/src/cff_dict.c create mode 100644 Build/source/texk/xdvipdfmx/src/cff_dict.h create mode 100644 Build/source/texk/xdvipdfmx/src/cff_limits.h create mode 100644 Build/source/texk/xdvipdfmx/src/cff_stdstr.h create mode 100644 Build/source/texk/xdvipdfmx/src/cff_types.h create mode 100644 Build/source/texk/xdvipdfmx/src/cid.c create mode 100644 Build/source/texk/xdvipdfmx/src/cid.h create mode 100644 Build/source/texk/xdvipdfmx/src/cid_basefont.h create mode 100644 Build/source/texk/xdvipdfmx/src/cid_p.h create mode 100644 Build/source/texk/xdvipdfmx/src/cidtype0.c create mode 100644 Build/source/texk/xdvipdfmx/src/cidtype0.h create mode 100644 Build/source/texk/xdvipdfmx/src/cidtype2.c create mode 100644 Build/source/texk/xdvipdfmx/src/cidtype2.h create mode 100644 Build/source/texk/xdvipdfmx/src/cmap.c create mode 100644 Build/source/texk/xdvipdfmx/src/cmap.h create mode 100644 Build/source/texk/xdvipdfmx/src/cmap_p.h create mode 100644 Build/source/texk/xdvipdfmx/src/cmap_read.c create mode 100644 Build/source/texk/xdvipdfmx/src/cmap_read.h create mode 100644 Build/source/texk/xdvipdfmx/src/cmap_write.c create mode 100644 Build/source/texk/xdvipdfmx/src/cmap_write.h create mode 100644 Build/source/texk/xdvipdfmx/src/cs_type2.c create mode 100644 Build/source/texk/xdvipdfmx/src/cs_type2.h create mode 100644 Build/source/texk/xdvipdfmx/src/dpxconf.c create mode 100644 Build/source/texk/xdvipdfmx/src/dpxconf.h create mode 100644 Build/source/texk/xdvipdfmx/src/dpxcrypt.c create mode 100644 Build/source/texk/xdvipdfmx/src/dpxcrypt.h create mode 100644 Build/source/texk/xdvipdfmx/src/dpxfile.c create mode 100644 Build/source/texk/xdvipdfmx/src/dpxfile.h create mode 100644 Build/source/texk/xdvipdfmx/src/dpxutil.c create mode 100644 Build/source/texk/xdvipdfmx/src/dpxutil.h create mode 100644 Build/source/texk/xdvipdfmx/src/dvi.c create mode 100644 Build/source/texk/xdvipdfmx/src/dvi.h create mode 100644 Build/source/texk/xdvipdfmx/src/dvicodes.h create mode 100644 Build/source/texk/xdvipdfmx/src/dvipdfmx.c create mode 100644 Build/source/texk/xdvipdfmx/src/epdf.c create mode 100644 Build/source/texk/xdvipdfmx/src/epdf.h create mode 100644 Build/source/texk/xdvipdfmx/src/error.c create mode 100644 Build/source/texk/xdvipdfmx/src/error.h create mode 100644 Build/source/texk/xdvipdfmx/src/fontmap.c create mode 100644 Build/source/texk/xdvipdfmx/src/fontmap.h create mode 100644 Build/source/texk/xdvipdfmx/src/jpegimage.c create mode 100644 Build/source/texk/xdvipdfmx/src/jpegimage.h create mode 100644 Build/source/texk/xdvipdfmx/src/mem.c create mode 100644 Build/source/texk/xdvipdfmx/src/mem.h create mode 100644 Build/source/texk/xdvipdfmx/src/mfileio.c create mode 100644 Build/source/texk/xdvipdfmx/src/mfileio.h create mode 100755 Build/source/texk/xdvipdfmx/src/mk_agl_standard_c.pl create mode 100644 Build/source/texk/xdvipdfmx/src/mpost.c create mode 100644 Build/source/texk/xdvipdfmx/src/mpost.h create mode 100644 Build/source/texk/xdvipdfmx/src/numbers.c create mode 100644 Build/source/texk/xdvipdfmx/src/numbers.h create mode 100644 Build/source/texk/xdvipdfmx/src/otl_conf.c create mode 100644 Build/source/texk/xdvipdfmx/src/otl_conf.h create mode 100644 Build/source/texk/xdvipdfmx/src/otl_opt.c create mode 100644 Build/source/texk/xdvipdfmx/src/otl_opt.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfcolor.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfcolor.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfdev.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfdev.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfdoc.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfdoc.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfdraw.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfdraw.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfencoding.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfencoding.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfencrypt.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfencrypt.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdffont.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdffont.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdflimits.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfnames.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfnames.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfobj.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfobj.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfparse.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfparse.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfresource.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfresource.h create mode 100644 Build/source/texk/xdvipdfmx/src/pdfximage.c create mode 100644 Build/source/texk/xdvipdfmx/src/pdfximage.h create mode 100644 Build/source/texk/xdvipdfmx/src/pkfont.c create mode 100644 Build/source/texk/xdvipdfmx/src/pkfont.h create mode 100644 Build/source/texk/xdvipdfmx/src/pngimage.c create mode 100644 Build/source/texk/xdvipdfmx/src/pngimage.h create mode 100644 Build/source/texk/xdvipdfmx/src/pst.c create mode 100644 Build/source/texk/xdvipdfmx/src/pst.h create mode 100644 Build/source/texk/xdvipdfmx/src/pst_obj.c create mode 100644 Build/source/texk/xdvipdfmx/src/pst_obj.h create mode 100644 Build/source/texk/xdvipdfmx/src/sfnt.c create mode 100644 Build/source/texk/xdvipdfmx/src/sfnt.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_color.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_color.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_dvips.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_dvips.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_html.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_html.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_misc.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_misc.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_pdfm.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_pdfm.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_tpic.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_tpic.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_util.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_util.h create mode 100644 Build/source/texk/xdvipdfmx/src/spc_xtx.c create mode 100644 Build/source/texk/xdvipdfmx/src/spc_xtx.h create mode 100644 Build/source/texk/xdvipdfmx/src/specials.c create mode 100644 Build/source/texk/xdvipdfmx/src/specials.h create mode 100644 Build/source/texk/xdvipdfmx/src/subfont.c create mode 100644 Build/source/texk/xdvipdfmx/src/subfont.h create mode 100644 Build/source/texk/xdvipdfmx/src/system.h create mode 100644 Build/source/texk/xdvipdfmx/src/t1_char.c create mode 100644 Build/source/texk/xdvipdfmx/src/t1_char.h create mode 100644 Build/source/texk/xdvipdfmx/src/t1_load.c create mode 100644 Build/source/texk/xdvipdfmx/src/t1_load.h create mode 100644 Build/source/texk/xdvipdfmx/src/tfm.c create mode 100644 Build/source/texk/xdvipdfmx/src/tfm.h create mode 100644 Build/source/texk/xdvipdfmx/src/truetype.c create mode 100644 Build/source/texk/xdvipdfmx/src/truetype.h create mode 100644 Build/source/texk/xdvipdfmx/src/tt_aux.c create mode 100644 Build/source/texk/xdvipdfmx/src/tt_aux.h create mode 100644 Build/source/texk/xdvipdfmx/src/tt_cmap.c create mode 100644 Build/source/texk/xdvipdfmx/src/tt_cmap.h create mode 100644 Build/source/texk/xdvipdfmx/src/tt_glyf.c create mode 100644 Build/source/texk/xdvipdfmx/src/tt_glyf.h create mode 100644 Build/source/texk/xdvipdfmx/src/tt_gsub.c create mode 100644 Build/source/texk/xdvipdfmx/src/tt_gsub.h create mode 100644 Build/source/texk/xdvipdfmx/src/tt_post.c create mode 100644 Build/source/texk/xdvipdfmx/src/tt_post.h create mode 100644 Build/source/texk/xdvipdfmx/src/tt_table.c create mode 100644 Build/source/texk/xdvipdfmx/src/tt_table.h create mode 100644 Build/source/texk/xdvipdfmx/src/type0.c create mode 100644 Build/source/texk/xdvipdfmx/src/type0.h create mode 100644 Build/source/texk/xdvipdfmx/src/type1.c create mode 100644 Build/source/texk/xdvipdfmx/src/type1.h create mode 100644 Build/source/texk/xdvipdfmx/src/type1c.c create mode 100644 Build/source/texk/xdvipdfmx/src/type1c.h create mode 100644 Build/source/texk/xdvipdfmx/src/unicode.c create mode 100644 Build/source/texk/xdvipdfmx/src/unicode.h create mode 100644 Build/source/texk/xdvipdfmx/src/vf.c create mode 100644 Build/source/texk/xdvipdfmx/src/vf.h (limited to 'Build/source/texk/xdvipdfmx/src') diff --git a/Build/source/texk/xdvipdfmx/src/Makefile.am b/Build/source/texk/xdvipdfmx/src/Makefile.am new file mode 100644 index 00000000000..7fa8533d8e0 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/Makefile.am @@ -0,0 +1,45 @@ +bin_PROGRAMS = xdvipdfmx +xdvipdfmx_SOURCES = agl.c agl_standard.c bmpimage.c cff.c cff_dict.c cid.c cidtype0.c cidtype2.c \ +cmap.c cmap_read.c cmap_write.c cs_type2.c \ +dpxconf.c dpxcrypt.c dpxfile.c dpxutil.c \ +dvi.c dvipdfmx.c epdf.c error.c fontmap.c jpegimage.c mem.c mfileio.c mpost.c \ +numbers.c otl_conf.c otl_opt.c pdfcolor.c pdfdev.c pdfdoc.c pdfdraw.c pdfencoding.c \ +pdfencrypt.c pdffont.c pdfnames.c pdfobj.c pdfparse.c pdfresource.c pdfximage.c \ +pkfont.c pngimage.c pst.c pst_obj.c sfnt.c \ +spc_color.c spc_dvips.c spc_html.c spc_misc.c spc_pdfm.c spc_tpic.c spc_util.c spc_xtx.c specials.c \ +subfont.c tfm.c \ +tt_aux.c tt_cmap.c tt_glyf.c tt_gsub.c tt_post.c tt_table.c truetype.c \ +type0.c t1_char.c t1_load.c type1.c type1c.c \ +unicode.c vf.c \ +agl.h bmpimage.h asl_charset.h cff.h cff_dict.h cff_limits.h cff_stdstr.h cff_types.h \ +cid.h cid_basefont.h cid_p.h cidtype0.h cidtype2.h cmap.h cmap_p.h cmap_read.h cmap_write.h \ +cs_type2.h dpxconf.h dpxcrypt.h dpxutil.h dpxfile.h dvi.h dvicodes.h epdf.h error.h fontmap.h \ +jpegimage.h mem.h mfileio.h mpost.h numbers.h otl_conf.h otl_opt.h pdfcolor.h pdfdev.h \ +pdfdoc.h pdfdraw.h pdfencoding.h pdfencrypt.h pdffont.h pdflimits.h pdfnames.h pdfobj.h \ +pdfparse.h pdfresource.h pdfximage.h pkfont.h pngimage.h pst.h pst_obj.h sfnt.h \ +spc_color.h spc_dvips.h spc_html.h spc_misc.h spc_pdfm.h spc_tpic.h spc_util.h spc_xtx.h specials.h \ +subfont.h system.h tfm.h \ +tt_aux.h tt_cmap.h tt_glyf.h tt_gsub.h tt_post.h tt_table.h truetype.h \ +type0.h t1_char.h t1_load.h type1.h type1c.h \ +unicode.h vf.h + + +LIBPNGDIR=$(top_builddir)/../../libs/libpng +LIBPNGSRCDIR=$(srcdir)/$(LIBPNGDIR) +LIBPNGDEP = @LIBPNGDEP@ +LDLIBPNG = @LDLIBPNG@ + +ZLIBDIR=$(top_builddir)/../../libs/zlib +ZLIBSRCDIR=$(srcdir)/$(ZLIBDIR) +ZLIBDEP = @ZLIBDEP@ +LDZLIB = @LDZLIB@ + +FREETYPE2DIR = $(top_builddir)/../../libs/freetype2 +FREETYPE2SRCDIR = $(srcdir)/$(FREETYPE2DIR) +LDFREETYPE2 = @LDFREETYPE2@ +FREETYPE2DEP = @FREETYPE2DEP@ + +xdvipdfmx_CPPFLAGS = @LIBPNGCPPFLAGS@ @ZLIBCPPFLAGS@ @FREETYPE2CPPFLAGS@ +xdvipdfmx_LDADD = $(LDADD) $(LDLIBPNG) $(LDZLIB) $(LDFREETYPE2) +xdvipdfmx_DEPENDENCIES = $(ZLIBDEP) $(LIBPNGDEP) $(FREETYPE2DEP) +xdvipdfmx_LDFLAGS = @xdvipdfmx_LDFLAGS@ diff --git a/Build/source/texk/xdvipdfmx/src/Makefile.in b/Build/source/texk/xdvipdfmx/src/Makefile.in new file mode 100644 index 00000000000..0fdafce447a --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/Makefile.in @@ -0,0 +1,1531 @@ +# Makefile.in generated by automake 1.9.6 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ +pkgdatadir = $(datadir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +top_builddir = .. +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +INSTALL = @INSTALL@ +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +bin_PROGRAMS = xdvipdfmx$(EXEEXT) +subdir = src +DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \ + $(top_srcdir)/../../libs/libpng/withenable.ac \ + $(top_srcdir)/../../libs/libpng/libpng.ac \ + $(top_srcdir)/../../libs/zlib/withenable.ac \ + $(top_srcdir)/../../libs/zlib/zlib.ac \ + $(top_srcdir)/../../libs/freetype2/withenable.ac \ + $(top_srcdir)/../../libs/freetype2/freetype2.ac \ + $(top_srcdir)/configure.in +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = +am__installdirs = "$(DESTDIR)$(bindir)" +binPROGRAMS_INSTALL = $(INSTALL_PROGRAM) +PROGRAMS = $(bin_PROGRAMS) +am_xdvipdfmx_OBJECTS = xdvipdfmx-agl.$(OBJEXT) \ + xdvipdfmx-agl_standard.$(OBJEXT) xdvipdfmx-bmpimage.$(OBJEXT) \ + xdvipdfmx-cff.$(OBJEXT) xdvipdfmx-cff_dict.$(OBJEXT) \ + xdvipdfmx-cid.$(OBJEXT) xdvipdfmx-cidtype0.$(OBJEXT) \ + xdvipdfmx-cidtype2.$(OBJEXT) xdvipdfmx-cmap.$(OBJEXT) \ + xdvipdfmx-cmap_read.$(OBJEXT) xdvipdfmx-cmap_write.$(OBJEXT) \ + xdvipdfmx-cs_type2.$(OBJEXT) xdvipdfmx-dpxconf.$(OBJEXT) \ + xdvipdfmx-dpxcrypt.$(OBJEXT) xdvipdfmx-dpxfile.$(OBJEXT) \ + xdvipdfmx-dpxutil.$(OBJEXT) xdvipdfmx-dvi.$(OBJEXT) \ + xdvipdfmx-dvipdfmx.$(OBJEXT) xdvipdfmx-epdf.$(OBJEXT) \ + xdvipdfmx-error.$(OBJEXT) xdvipdfmx-fontmap.$(OBJEXT) \ + xdvipdfmx-jpegimage.$(OBJEXT) xdvipdfmx-mem.$(OBJEXT) \ + xdvipdfmx-mfileio.$(OBJEXT) xdvipdfmx-mpost.$(OBJEXT) \ + xdvipdfmx-numbers.$(OBJEXT) xdvipdfmx-otl_conf.$(OBJEXT) \ + xdvipdfmx-otl_opt.$(OBJEXT) xdvipdfmx-pdfcolor.$(OBJEXT) \ + xdvipdfmx-pdfdev.$(OBJEXT) xdvipdfmx-pdfdoc.$(OBJEXT) \ + xdvipdfmx-pdfdraw.$(OBJEXT) xdvipdfmx-pdfencoding.$(OBJEXT) \ + xdvipdfmx-pdfencrypt.$(OBJEXT) xdvipdfmx-pdffont.$(OBJEXT) \ + xdvipdfmx-pdfnames.$(OBJEXT) xdvipdfmx-pdfobj.$(OBJEXT) \ + xdvipdfmx-pdfparse.$(OBJEXT) xdvipdfmx-pdfresource.$(OBJEXT) \ + xdvipdfmx-pdfximage.$(OBJEXT) xdvipdfmx-pkfont.$(OBJEXT) \ + xdvipdfmx-pngimage.$(OBJEXT) xdvipdfmx-pst.$(OBJEXT) \ + xdvipdfmx-pst_obj.$(OBJEXT) xdvipdfmx-sfnt.$(OBJEXT) \ + xdvipdfmx-spc_color.$(OBJEXT) xdvipdfmx-spc_dvips.$(OBJEXT) \ + xdvipdfmx-spc_html.$(OBJEXT) xdvipdfmx-spc_misc.$(OBJEXT) \ + xdvipdfmx-spc_pdfm.$(OBJEXT) xdvipdfmx-spc_tpic.$(OBJEXT) \ + xdvipdfmx-spc_util.$(OBJEXT) xdvipdfmx-spc_xtx.$(OBJEXT) \ + xdvipdfmx-specials.$(OBJEXT) xdvipdfmx-subfont.$(OBJEXT) \ + xdvipdfmx-tfm.$(OBJEXT) xdvipdfmx-tt_aux.$(OBJEXT) \ + xdvipdfmx-tt_cmap.$(OBJEXT) xdvipdfmx-tt_glyf.$(OBJEXT) \ + xdvipdfmx-tt_gsub.$(OBJEXT) xdvipdfmx-tt_post.$(OBJEXT) \ + xdvipdfmx-tt_table.$(OBJEXT) xdvipdfmx-truetype.$(OBJEXT) \ + xdvipdfmx-type0.$(OBJEXT) xdvipdfmx-t1_char.$(OBJEXT) \ + xdvipdfmx-t1_load.$(OBJEXT) xdvipdfmx-type1.$(OBJEXT) \ + xdvipdfmx-type1c.$(OBJEXT) xdvipdfmx-unicode.$(OBJEXT) \ + xdvipdfmx-vf.$(OBJEXT) +xdvipdfmx_OBJECTS = $(am_xdvipdfmx_OBJECTS) +am__DEPENDENCIES_1 = +DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir) +depcomp = $(SHELL) $(top_srcdir)/depcomp +am__depfiles_maybe = depfiles +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +CCLD = $(CC) +LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ +SOURCES = $(xdvipdfmx_SOURCES) +DIST_SOURCES = $(xdvipdfmx_SOURCES) +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMDEP_FALSE = @AMDEP_FALSE@ +AMDEP_TRUE = @AMDEP_TRUE@ +AMTAR = @AMTAR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +FREETYPE2CPPFLAGS = @FREETYPE2CPPFLAGS@ +FREETYPE2DEP = @FREETYPE2DEP@ +FT2CPPFLAGS = @FT2CPPFLAGS@ +FT2DEP = @FT2DEP@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LDFLAGS = @LDFLAGS@ +LDFREETYPE2 = @LDFREETYPE2@ +LDFT2 = @LDFT2@ +LDLIBPNG = @LDLIBPNG@ +LDZLIB = @LDZLIB@ +LIBOBJS = @LIBOBJS@ +LIBPNGCPPFLAGS = @LIBPNGCPPFLAGS@ +LIBPNGDEP = @LIBPNGDEP@ +LIBS = @LIBS@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +MAINT = @MAINT@ +MAINTAINER_MODE_FALSE = @MAINTAINER_MODE_FALSE@ +MAINTAINER_MODE_TRUE = @MAINTAINER_MODE_TRUE@ +MAKEINFO = @MAKEINFO@ +OBJEXT = @OBJEXT@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +TDS_VERSION_11_FALSE = @TDS_VERSION_11_FALSE@ +TDS_VERSION_11_TRUE = @TDS_VERSION_11_TRUE@ +VERSION = @VERSION@ +ZLIBCPPFLAGS = @ZLIBCPPFLAGS@ +ZLIBDEP = @ZLIBDEP@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_STRIP = @ac_ct_STRIP@ +am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ +am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build_alias = @build_alias@ +datadir = @datadir@ +dvipdfmx_LDFLAGS = @dvipdfmx_LDFLAGS@ +exec_prefix = @exec_prefix@ +host_alias = @host_alias@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +xdvipdfmx_LDFLAGS = @xdvipdfmx_LDFLAGS@ +xdvipdfmx_SOURCES = agl.c agl_standard.c bmpimage.c cff.c cff_dict.c cid.c cidtype0.c cidtype2.c \ +cmap.c cmap_read.c cmap_write.c cs_type2.c \ +dpxconf.c dpxcrypt.c dpxfile.c dpxutil.c \ +dvi.c dvipdfmx.c epdf.c error.c fontmap.c jpegimage.c mem.c mfileio.c mpost.c \ +numbers.c otl_conf.c otl_opt.c pdfcolor.c pdfdev.c pdfdoc.c pdfdraw.c pdfencoding.c \ +pdfencrypt.c pdffont.c pdfnames.c pdfobj.c pdfparse.c pdfresource.c pdfximage.c \ +pkfont.c pngimage.c pst.c pst_obj.c sfnt.c \ +spc_color.c spc_dvips.c spc_html.c spc_misc.c spc_pdfm.c spc_tpic.c spc_util.c spc_xtx.c specials.c \ +subfont.c tfm.c \ +tt_aux.c tt_cmap.c tt_glyf.c tt_gsub.c tt_post.c tt_table.c truetype.c \ +type0.c t1_char.c t1_load.c type1.c type1c.c \ +unicode.c vf.c \ +agl.h bmpimage.h asl_charset.h cff.h cff_dict.h cff_limits.h cff_stdstr.h cff_types.h \ +cid.h cid_basefont.h cid_p.h cidtype0.h cidtype2.h cmap.h cmap_p.h cmap_read.h cmap_write.h \ +cs_type2.h dpxconf.h dpxcrypt.h dpxutil.h dpxfile.h dvi.h dvicodes.h epdf.h error.h fontmap.h \ +jpegimage.h mem.h mfileio.h mpost.h numbers.h otl_conf.h otl_opt.h pdfcolor.h pdfdev.h \ +pdfdoc.h pdfdraw.h pdfencoding.h pdfencrypt.h pdffont.h pdflimits.h pdfnames.h pdfobj.h \ +pdfparse.h pdfresource.h pdfximage.h pkfont.h pngimage.h pst.h pst_obj.h sfnt.h \ +spc_color.h spc_dvips.h spc_html.h spc_misc.h spc_pdfm.h spc_tpic.h spc_util.h spc_xtx.h specials.h \ +subfont.h system.h tfm.h \ +tt_aux.h tt_cmap.h tt_glyf.h tt_gsub.h tt_post.h tt_table.h truetype.h \ +type0.h t1_char.h t1_load.h type1.h type1c.h \ +unicode.h vf.h + +LIBPNGDIR = $(top_builddir)/../../libs/libpng +LIBPNGSRCDIR = $(srcdir)/$(LIBPNGDIR) +ZLIBDIR = $(top_builddir)/../../libs/zlib +ZLIBSRCDIR = $(srcdir)/$(ZLIBDIR) +FREETYPE2DIR = $(top_builddir)/../../libs/freetype2 +FREETYPE2SRCDIR = $(srcdir)/$(FREETYPE2DIR) +xdvipdfmx_CPPFLAGS = @LIBPNGCPPFLAGS@ @ZLIBCPPFLAGS@ @FREETYPE2CPPFLAGS@ +xdvipdfmx_LDADD = $(LDADD) $(LDLIBPNG) $(LDZLIB) $(LDFREETYPE2) +xdvipdfmx_DEPENDENCIES = $(ZLIBDEP) $(LIBPNGDEP) $(FREETYPE2DEP) +all: all-am + +.SUFFIXES: +.SUFFIXES: .c .o .obj +$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \ + && exit 0; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu src/Makefile'; \ + cd $(top_srcdir) && \ + $(AUTOMAKE) --gnu src/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +install-binPROGRAMS: $(bin_PROGRAMS) + @$(NORMAL_INSTALL) + test -z "$(bindir)" || $(mkdir_p) "$(DESTDIR)$(bindir)" + @list='$(bin_PROGRAMS)'; for p in $$list; do \ + p1=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ + if test -f $$p \ + ; then \ + f=`echo "$$p1" | sed 's,^.*/,,;$(transform);s/$$/$(EXEEXT)/'`; \ + echo " $(INSTALL_PROGRAM_ENV) $(binPROGRAMS_INSTALL) '$$p' '$(DESTDIR)$(bindir)/$$f'"; \ + $(INSTALL_PROGRAM_ENV) $(binPROGRAMS_INSTALL) "$$p" "$(DESTDIR)$(bindir)/$$f" || exit 1; \ + else :; fi; \ + done + +uninstall-binPROGRAMS: + @$(NORMAL_UNINSTALL) + @list='$(bin_PROGRAMS)'; for p in $$list; do \ + f=`echo "$$p" | sed 's,^.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/'`; \ + echo " rm -f '$(DESTDIR)$(bindir)/$$f'"; \ + rm -f "$(DESTDIR)$(bindir)/$$f"; \ + done + +clean-binPROGRAMS: + -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) +xdvipdfmx$(EXEEXT): $(xdvipdfmx_OBJECTS) $(xdvipdfmx_DEPENDENCIES) + @rm -f xdvipdfmx$(EXEEXT) + $(LINK) $(xdvipdfmx_LDFLAGS) $(xdvipdfmx_OBJECTS) $(xdvipdfmx_LDADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-agl.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-agl_standard.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-bmpimage.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cff.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cff_dict.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cid.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cidtype0.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cidtype2.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cmap.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cmap_read.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cmap_write.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-cs_type2.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-dpxconf.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-dpxcrypt.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-dpxfile.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-dpxutil.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-dvi.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-dvipdfmx.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-epdf.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-error.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-fontmap.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-jpegimage.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-mem.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-mfileio.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-mpost.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-numbers.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-otl_conf.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-otl_opt.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfcolor.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfdev.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfdoc.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfdraw.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfencoding.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfencrypt.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdffont.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfnames.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfobj.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfparse.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfresource.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pdfximage.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pkfont.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pngimage.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pst.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-pst_obj.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-sfnt.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_color.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_dvips.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_html.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_misc.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_pdfm.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_tpic.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_util.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-spc_xtx.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-specials.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-subfont.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-t1_char.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-t1_load.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-tfm.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-truetype.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-tt_aux.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-tt_cmap.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-tt_glyf.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-tt_gsub.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-tt_post.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-tt_table.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-type0.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-type1.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-type1c.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-unicode.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xdvipdfmx-vf.Po@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c $< + +.c.obj: +@am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` + +xdvipdfmx-agl.o: agl.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-agl.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-agl.Tpo" -c -o xdvipdfmx-agl.o `test -f 'agl.c' || echo '$(srcdir)/'`agl.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-agl.Tpo" "$(DEPDIR)/xdvipdfmx-agl.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-agl.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='agl.c' object='xdvipdfmx-agl.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-agl.o `test -f 'agl.c' || echo '$(srcdir)/'`agl.c + +xdvipdfmx-agl.obj: agl.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-agl.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-agl.Tpo" -c -o xdvipdfmx-agl.obj `if test -f 'agl.c'; then $(CYGPATH_W) 'agl.c'; else $(CYGPATH_W) '$(srcdir)/agl.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-agl.Tpo" "$(DEPDIR)/xdvipdfmx-agl.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-agl.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='agl.c' object='xdvipdfmx-agl.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-agl.obj `if test -f 'agl.c'; then $(CYGPATH_W) 'agl.c'; else $(CYGPATH_W) '$(srcdir)/agl.c'; fi` + +xdvipdfmx-agl_standard.o: agl_standard.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-agl_standard.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-agl_standard.Tpo" -c -o xdvipdfmx-agl_standard.o `test -f 'agl_standard.c' || echo '$(srcdir)/'`agl_standard.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-agl_standard.Tpo" "$(DEPDIR)/xdvipdfmx-agl_standard.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-agl_standard.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='agl_standard.c' object='xdvipdfmx-agl_standard.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-agl_standard.o `test -f 'agl_standard.c' || echo '$(srcdir)/'`agl_standard.c + +xdvipdfmx-agl_standard.obj: agl_standard.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-agl_standard.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-agl_standard.Tpo" -c -o xdvipdfmx-agl_standard.obj `if test -f 'agl_standard.c'; then $(CYGPATH_W) 'agl_standard.c'; else $(CYGPATH_W) '$(srcdir)/agl_standard.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-agl_standard.Tpo" "$(DEPDIR)/xdvipdfmx-agl_standard.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-agl_standard.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='agl_standard.c' object='xdvipdfmx-agl_standard.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-agl_standard.obj `if test -f 'agl_standard.c'; then $(CYGPATH_W) 'agl_standard.c'; else $(CYGPATH_W) '$(srcdir)/agl_standard.c'; fi` + +xdvipdfmx-bmpimage.o: bmpimage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-bmpimage.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-bmpimage.Tpo" -c -o xdvipdfmx-bmpimage.o `test -f 'bmpimage.c' || echo '$(srcdir)/'`bmpimage.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-bmpimage.Tpo" "$(DEPDIR)/xdvipdfmx-bmpimage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-bmpimage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='bmpimage.c' object='xdvipdfmx-bmpimage.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-bmpimage.o `test -f 'bmpimage.c' || echo '$(srcdir)/'`bmpimage.c + +xdvipdfmx-bmpimage.obj: bmpimage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-bmpimage.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-bmpimage.Tpo" -c -o xdvipdfmx-bmpimage.obj `if test -f 'bmpimage.c'; then $(CYGPATH_W) 'bmpimage.c'; else $(CYGPATH_W) '$(srcdir)/bmpimage.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-bmpimage.Tpo" "$(DEPDIR)/xdvipdfmx-bmpimage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-bmpimage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='bmpimage.c' object='xdvipdfmx-bmpimage.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-bmpimage.obj `if test -f 'bmpimage.c'; then $(CYGPATH_W) 'bmpimage.c'; else $(CYGPATH_W) '$(srcdir)/bmpimage.c'; fi` + +xdvipdfmx-cff.o: cff.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cff.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cff.Tpo" -c -o xdvipdfmx-cff.o `test -f 'cff.c' || echo '$(srcdir)/'`cff.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cff.Tpo" "$(DEPDIR)/xdvipdfmx-cff.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cff.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cff.c' object='xdvipdfmx-cff.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cff.o `test -f 'cff.c' || echo '$(srcdir)/'`cff.c + +xdvipdfmx-cff.obj: cff.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cff.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cff.Tpo" -c -o xdvipdfmx-cff.obj `if test -f 'cff.c'; then $(CYGPATH_W) 'cff.c'; else $(CYGPATH_W) '$(srcdir)/cff.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cff.Tpo" "$(DEPDIR)/xdvipdfmx-cff.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cff.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cff.c' object='xdvipdfmx-cff.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cff.obj `if test -f 'cff.c'; then $(CYGPATH_W) 'cff.c'; else $(CYGPATH_W) '$(srcdir)/cff.c'; fi` + +xdvipdfmx-cff_dict.o: cff_dict.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cff_dict.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cff_dict.Tpo" -c -o xdvipdfmx-cff_dict.o `test -f 'cff_dict.c' || echo '$(srcdir)/'`cff_dict.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cff_dict.Tpo" "$(DEPDIR)/xdvipdfmx-cff_dict.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cff_dict.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cff_dict.c' object='xdvipdfmx-cff_dict.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cff_dict.o `test -f 'cff_dict.c' || echo '$(srcdir)/'`cff_dict.c + +xdvipdfmx-cff_dict.obj: cff_dict.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cff_dict.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cff_dict.Tpo" -c -o xdvipdfmx-cff_dict.obj `if test -f 'cff_dict.c'; then $(CYGPATH_W) 'cff_dict.c'; else $(CYGPATH_W) '$(srcdir)/cff_dict.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cff_dict.Tpo" "$(DEPDIR)/xdvipdfmx-cff_dict.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cff_dict.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cff_dict.c' object='xdvipdfmx-cff_dict.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cff_dict.obj `if test -f 'cff_dict.c'; then $(CYGPATH_W) 'cff_dict.c'; else $(CYGPATH_W) '$(srcdir)/cff_dict.c'; fi` + +xdvipdfmx-cid.o: cid.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cid.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cid.Tpo" -c -o xdvipdfmx-cid.o `test -f 'cid.c' || echo '$(srcdir)/'`cid.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cid.Tpo" "$(DEPDIR)/xdvipdfmx-cid.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cid.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cid.c' object='xdvipdfmx-cid.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cid.o `test -f 'cid.c' || echo '$(srcdir)/'`cid.c + +xdvipdfmx-cid.obj: cid.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cid.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cid.Tpo" -c -o xdvipdfmx-cid.obj `if test -f 'cid.c'; then $(CYGPATH_W) 'cid.c'; else $(CYGPATH_W) '$(srcdir)/cid.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cid.Tpo" "$(DEPDIR)/xdvipdfmx-cid.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cid.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cid.c' object='xdvipdfmx-cid.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cid.obj `if test -f 'cid.c'; then $(CYGPATH_W) 'cid.c'; else $(CYGPATH_W) '$(srcdir)/cid.c'; fi` + +xdvipdfmx-cidtype0.o: cidtype0.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cidtype0.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cidtype0.Tpo" -c -o xdvipdfmx-cidtype0.o `test -f 'cidtype0.c' || echo '$(srcdir)/'`cidtype0.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cidtype0.Tpo" "$(DEPDIR)/xdvipdfmx-cidtype0.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cidtype0.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cidtype0.c' object='xdvipdfmx-cidtype0.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cidtype0.o `test -f 'cidtype0.c' || echo '$(srcdir)/'`cidtype0.c + +xdvipdfmx-cidtype0.obj: cidtype0.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cidtype0.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cidtype0.Tpo" -c -o xdvipdfmx-cidtype0.obj `if test -f 'cidtype0.c'; then $(CYGPATH_W) 'cidtype0.c'; else $(CYGPATH_W) '$(srcdir)/cidtype0.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cidtype0.Tpo" "$(DEPDIR)/xdvipdfmx-cidtype0.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cidtype0.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cidtype0.c' object='xdvipdfmx-cidtype0.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cidtype0.obj `if test -f 'cidtype0.c'; then $(CYGPATH_W) 'cidtype0.c'; else $(CYGPATH_W) '$(srcdir)/cidtype0.c'; fi` + +xdvipdfmx-cidtype2.o: cidtype2.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cidtype2.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cidtype2.Tpo" -c -o xdvipdfmx-cidtype2.o `test -f 'cidtype2.c' || echo '$(srcdir)/'`cidtype2.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cidtype2.Tpo" "$(DEPDIR)/xdvipdfmx-cidtype2.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cidtype2.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cidtype2.c' object='xdvipdfmx-cidtype2.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cidtype2.o `test -f 'cidtype2.c' || echo '$(srcdir)/'`cidtype2.c + +xdvipdfmx-cidtype2.obj: cidtype2.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cidtype2.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cidtype2.Tpo" -c -o xdvipdfmx-cidtype2.obj `if test -f 'cidtype2.c'; then $(CYGPATH_W) 'cidtype2.c'; else $(CYGPATH_W) '$(srcdir)/cidtype2.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cidtype2.Tpo" "$(DEPDIR)/xdvipdfmx-cidtype2.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cidtype2.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cidtype2.c' object='xdvipdfmx-cidtype2.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cidtype2.obj `if test -f 'cidtype2.c'; then $(CYGPATH_W) 'cidtype2.c'; else $(CYGPATH_W) '$(srcdir)/cidtype2.c'; fi` + +xdvipdfmx-cmap.o: cmap.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cmap.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cmap.Tpo" -c -o xdvipdfmx-cmap.o `test -f 'cmap.c' || echo '$(srcdir)/'`cmap.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cmap.Tpo" "$(DEPDIR)/xdvipdfmx-cmap.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cmap.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cmap.c' object='xdvipdfmx-cmap.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cmap.o `test -f 'cmap.c' || echo '$(srcdir)/'`cmap.c + +xdvipdfmx-cmap.obj: cmap.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cmap.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cmap.Tpo" -c -o xdvipdfmx-cmap.obj `if test -f 'cmap.c'; then $(CYGPATH_W) 'cmap.c'; else $(CYGPATH_W) '$(srcdir)/cmap.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cmap.Tpo" "$(DEPDIR)/xdvipdfmx-cmap.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cmap.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cmap.c' object='xdvipdfmx-cmap.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cmap.obj `if test -f 'cmap.c'; then $(CYGPATH_W) 'cmap.c'; else $(CYGPATH_W) '$(srcdir)/cmap.c'; fi` + +xdvipdfmx-cmap_read.o: cmap_read.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cmap_read.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cmap_read.Tpo" -c -o xdvipdfmx-cmap_read.o `test -f 'cmap_read.c' || echo '$(srcdir)/'`cmap_read.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cmap_read.Tpo" "$(DEPDIR)/xdvipdfmx-cmap_read.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cmap_read.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cmap_read.c' object='xdvipdfmx-cmap_read.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cmap_read.o `test -f 'cmap_read.c' || echo '$(srcdir)/'`cmap_read.c + +xdvipdfmx-cmap_read.obj: cmap_read.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cmap_read.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cmap_read.Tpo" -c -o xdvipdfmx-cmap_read.obj `if test -f 'cmap_read.c'; then $(CYGPATH_W) 'cmap_read.c'; else $(CYGPATH_W) '$(srcdir)/cmap_read.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cmap_read.Tpo" "$(DEPDIR)/xdvipdfmx-cmap_read.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cmap_read.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cmap_read.c' object='xdvipdfmx-cmap_read.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cmap_read.obj `if test -f 'cmap_read.c'; then $(CYGPATH_W) 'cmap_read.c'; else $(CYGPATH_W) '$(srcdir)/cmap_read.c'; fi` + +xdvipdfmx-cmap_write.o: cmap_write.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cmap_write.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cmap_write.Tpo" -c -o xdvipdfmx-cmap_write.o `test -f 'cmap_write.c' || echo '$(srcdir)/'`cmap_write.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cmap_write.Tpo" "$(DEPDIR)/xdvipdfmx-cmap_write.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cmap_write.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cmap_write.c' object='xdvipdfmx-cmap_write.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cmap_write.o `test -f 'cmap_write.c' || echo '$(srcdir)/'`cmap_write.c + +xdvipdfmx-cmap_write.obj: cmap_write.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cmap_write.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cmap_write.Tpo" -c -o xdvipdfmx-cmap_write.obj `if test -f 'cmap_write.c'; then $(CYGPATH_W) 'cmap_write.c'; else $(CYGPATH_W) '$(srcdir)/cmap_write.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cmap_write.Tpo" "$(DEPDIR)/xdvipdfmx-cmap_write.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cmap_write.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cmap_write.c' object='xdvipdfmx-cmap_write.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cmap_write.obj `if test -f 'cmap_write.c'; then $(CYGPATH_W) 'cmap_write.c'; else $(CYGPATH_W) '$(srcdir)/cmap_write.c'; fi` + +xdvipdfmx-cs_type2.o: cs_type2.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cs_type2.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cs_type2.Tpo" -c -o xdvipdfmx-cs_type2.o `test -f 'cs_type2.c' || echo '$(srcdir)/'`cs_type2.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cs_type2.Tpo" "$(DEPDIR)/xdvipdfmx-cs_type2.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cs_type2.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cs_type2.c' object='xdvipdfmx-cs_type2.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cs_type2.o `test -f 'cs_type2.c' || echo '$(srcdir)/'`cs_type2.c + +xdvipdfmx-cs_type2.obj: cs_type2.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-cs_type2.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-cs_type2.Tpo" -c -o xdvipdfmx-cs_type2.obj `if test -f 'cs_type2.c'; then $(CYGPATH_W) 'cs_type2.c'; else $(CYGPATH_W) '$(srcdir)/cs_type2.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-cs_type2.Tpo" "$(DEPDIR)/xdvipdfmx-cs_type2.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-cs_type2.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cs_type2.c' object='xdvipdfmx-cs_type2.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-cs_type2.obj `if test -f 'cs_type2.c'; then $(CYGPATH_W) 'cs_type2.c'; else $(CYGPATH_W) '$(srcdir)/cs_type2.c'; fi` + +xdvipdfmx-dpxconf.o: dpxconf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxconf.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxconf.Tpo" -c -o xdvipdfmx-dpxconf.o `test -f 'dpxconf.c' || echo '$(srcdir)/'`dpxconf.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxconf.Tpo" "$(DEPDIR)/xdvipdfmx-dpxconf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxconf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxconf.c' object='xdvipdfmx-dpxconf.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxconf.o `test -f 'dpxconf.c' || echo '$(srcdir)/'`dpxconf.c + +xdvipdfmx-dpxconf.obj: dpxconf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxconf.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxconf.Tpo" -c -o xdvipdfmx-dpxconf.obj `if test -f 'dpxconf.c'; then $(CYGPATH_W) 'dpxconf.c'; else $(CYGPATH_W) '$(srcdir)/dpxconf.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxconf.Tpo" "$(DEPDIR)/xdvipdfmx-dpxconf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxconf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxconf.c' object='xdvipdfmx-dpxconf.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxconf.obj `if test -f 'dpxconf.c'; then $(CYGPATH_W) 'dpxconf.c'; else $(CYGPATH_W) '$(srcdir)/dpxconf.c'; fi` + +xdvipdfmx-dpxcrypt.o: dpxcrypt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxcrypt.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxcrypt.Tpo" -c -o xdvipdfmx-dpxcrypt.o `test -f 'dpxcrypt.c' || echo '$(srcdir)/'`dpxcrypt.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxcrypt.Tpo" "$(DEPDIR)/xdvipdfmx-dpxcrypt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxcrypt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxcrypt.c' object='xdvipdfmx-dpxcrypt.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxcrypt.o `test -f 'dpxcrypt.c' || echo '$(srcdir)/'`dpxcrypt.c + +xdvipdfmx-dpxcrypt.obj: dpxcrypt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxcrypt.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxcrypt.Tpo" -c -o xdvipdfmx-dpxcrypt.obj `if test -f 'dpxcrypt.c'; then $(CYGPATH_W) 'dpxcrypt.c'; else $(CYGPATH_W) '$(srcdir)/dpxcrypt.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxcrypt.Tpo" "$(DEPDIR)/xdvipdfmx-dpxcrypt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxcrypt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxcrypt.c' object='xdvipdfmx-dpxcrypt.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxcrypt.obj `if test -f 'dpxcrypt.c'; then $(CYGPATH_W) 'dpxcrypt.c'; else $(CYGPATH_W) '$(srcdir)/dpxcrypt.c'; fi` + +xdvipdfmx-dpxfile.o: dpxfile.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxfile.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxfile.Tpo" -c -o xdvipdfmx-dpxfile.o `test -f 'dpxfile.c' || echo '$(srcdir)/'`dpxfile.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxfile.Tpo" "$(DEPDIR)/xdvipdfmx-dpxfile.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxfile.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxfile.c' object='xdvipdfmx-dpxfile.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxfile.o `test -f 'dpxfile.c' || echo '$(srcdir)/'`dpxfile.c + +xdvipdfmx-dpxfile.obj: dpxfile.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxfile.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxfile.Tpo" -c -o xdvipdfmx-dpxfile.obj `if test -f 'dpxfile.c'; then $(CYGPATH_W) 'dpxfile.c'; else $(CYGPATH_W) '$(srcdir)/dpxfile.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxfile.Tpo" "$(DEPDIR)/xdvipdfmx-dpxfile.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxfile.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxfile.c' object='xdvipdfmx-dpxfile.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxfile.obj `if test -f 'dpxfile.c'; then $(CYGPATH_W) 'dpxfile.c'; else $(CYGPATH_W) '$(srcdir)/dpxfile.c'; fi` + +xdvipdfmx-dpxutil.o: dpxutil.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxutil.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxutil.Tpo" -c -o xdvipdfmx-dpxutil.o `test -f 'dpxutil.c' || echo '$(srcdir)/'`dpxutil.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxutil.Tpo" "$(DEPDIR)/xdvipdfmx-dpxutil.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxutil.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxutil.c' object='xdvipdfmx-dpxutil.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxutil.o `test -f 'dpxutil.c' || echo '$(srcdir)/'`dpxutil.c + +xdvipdfmx-dpxutil.obj: dpxutil.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dpxutil.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dpxutil.Tpo" -c -o xdvipdfmx-dpxutil.obj `if test -f 'dpxutil.c'; then $(CYGPATH_W) 'dpxutil.c'; else $(CYGPATH_W) '$(srcdir)/dpxutil.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dpxutil.Tpo" "$(DEPDIR)/xdvipdfmx-dpxutil.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dpxutil.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dpxutil.c' object='xdvipdfmx-dpxutil.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dpxutil.obj `if test -f 'dpxutil.c'; then $(CYGPATH_W) 'dpxutil.c'; else $(CYGPATH_W) '$(srcdir)/dpxutil.c'; fi` + +xdvipdfmx-dvi.o: dvi.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dvi.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dvi.Tpo" -c -o xdvipdfmx-dvi.o `test -f 'dvi.c' || echo '$(srcdir)/'`dvi.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dvi.Tpo" "$(DEPDIR)/xdvipdfmx-dvi.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dvi.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dvi.c' object='xdvipdfmx-dvi.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dvi.o `test -f 'dvi.c' || echo '$(srcdir)/'`dvi.c + +xdvipdfmx-dvi.obj: dvi.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dvi.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dvi.Tpo" -c -o xdvipdfmx-dvi.obj `if test -f 'dvi.c'; then $(CYGPATH_W) 'dvi.c'; else $(CYGPATH_W) '$(srcdir)/dvi.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dvi.Tpo" "$(DEPDIR)/xdvipdfmx-dvi.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dvi.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dvi.c' object='xdvipdfmx-dvi.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dvi.obj `if test -f 'dvi.c'; then $(CYGPATH_W) 'dvi.c'; else $(CYGPATH_W) '$(srcdir)/dvi.c'; fi` + +xdvipdfmx-dvipdfmx.o: dvipdfmx.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dvipdfmx.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dvipdfmx.Tpo" -c -o xdvipdfmx-dvipdfmx.o `test -f 'dvipdfmx.c' || echo '$(srcdir)/'`dvipdfmx.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dvipdfmx.Tpo" "$(DEPDIR)/xdvipdfmx-dvipdfmx.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dvipdfmx.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dvipdfmx.c' object='xdvipdfmx-dvipdfmx.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dvipdfmx.o `test -f 'dvipdfmx.c' || echo '$(srcdir)/'`dvipdfmx.c + +xdvipdfmx-dvipdfmx.obj: dvipdfmx.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-dvipdfmx.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-dvipdfmx.Tpo" -c -o xdvipdfmx-dvipdfmx.obj `if test -f 'dvipdfmx.c'; then $(CYGPATH_W) 'dvipdfmx.c'; else $(CYGPATH_W) '$(srcdir)/dvipdfmx.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-dvipdfmx.Tpo" "$(DEPDIR)/xdvipdfmx-dvipdfmx.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-dvipdfmx.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dvipdfmx.c' object='xdvipdfmx-dvipdfmx.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-dvipdfmx.obj `if test -f 'dvipdfmx.c'; then $(CYGPATH_W) 'dvipdfmx.c'; else $(CYGPATH_W) '$(srcdir)/dvipdfmx.c'; fi` + +xdvipdfmx-epdf.o: epdf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-epdf.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-epdf.Tpo" -c -o xdvipdfmx-epdf.o `test -f 'epdf.c' || echo '$(srcdir)/'`epdf.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-epdf.Tpo" "$(DEPDIR)/xdvipdfmx-epdf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-epdf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='epdf.c' object='xdvipdfmx-epdf.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-epdf.o `test -f 'epdf.c' || echo '$(srcdir)/'`epdf.c + +xdvipdfmx-epdf.obj: epdf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-epdf.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-epdf.Tpo" -c -o xdvipdfmx-epdf.obj `if test -f 'epdf.c'; then $(CYGPATH_W) 'epdf.c'; else $(CYGPATH_W) '$(srcdir)/epdf.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-epdf.Tpo" "$(DEPDIR)/xdvipdfmx-epdf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-epdf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='epdf.c' object='xdvipdfmx-epdf.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-epdf.obj `if test -f 'epdf.c'; then $(CYGPATH_W) 'epdf.c'; else $(CYGPATH_W) '$(srcdir)/epdf.c'; fi` + +xdvipdfmx-error.o: error.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-error.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-error.Tpo" -c -o xdvipdfmx-error.o `test -f 'error.c' || echo '$(srcdir)/'`error.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-error.Tpo" "$(DEPDIR)/xdvipdfmx-error.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-error.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='error.c' object='xdvipdfmx-error.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-error.o `test -f 'error.c' || echo '$(srcdir)/'`error.c + +xdvipdfmx-error.obj: error.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-error.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-error.Tpo" -c -o xdvipdfmx-error.obj `if test -f 'error.c'; then $(CYGPATH_W) 'error.c'; else $(CYGPATH_W) '$(srcdir)/error.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-error.Tpo" "$(DEPDIR)/xdvipdfmx-error.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-error.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='error.c' object='xdvipdfmx-error.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-error.obj `if test -f 'error.c'; then $(CYGPATH_W) 'error.c'; else $(CYGPATH_W) '$(srcdir)/error.c'; fi` + +xdvipdfmx-fontmap.o: fontmap.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-fontmap.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-fontmap.Tpo" -c -o xdvipdfmx-fontmap.o `test -f 'fontmap.c' || echo '$(srcdir)/'`fontmap.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-fontmap.Tpo" "$(DEPDIR)/xdvipdfmx-fontmap.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-fontmap.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='fontmap.c' object='xdvipdfmx-fontmap.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-fontmap.o `test -f 'fontmap.c' || echo '$(srcdir)/'`fontmap.c + +xdvipdfmx-fontmap.obj: fontmap.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-fontmap.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-fontmap.Tpo" -c -o xdvipdfmx-fontmap.obj `if test -f 'fontmap.c'; then $(CYGPATH_W) 'fontmap.c'; else $(CYGPATH_W) '$(srcdir)/fontmap.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-fontmap.Tpo" "$(DEPDIR)/xdvipdfmx-fontmap.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-fontmap.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='fontmap.c' object='xdvipdfmx-fontmap.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-fontmap.obj `if test -f 'fontmap.c'; then $(CYGPATH_W) 'fontmap.c'; else $(CYGPATH_W) '$(srcdir)/fontmap.c'; fi` + +xdvipdfmx-jpegimage.o: jpegimage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-jpegimage.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-jpegimage.Tpo" -c -o xdvipdfmx-jpegimage.o `test -f 'jpegimage.c' || echo '$(srcdir)/'`jpegimage.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-jpegimage.Tpo" "$(DEPDIR)/xdvipdfmx-jpegimage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-jpegimage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='jpegimage.c' object='xdvipdfmx-jpegimage.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-jpegimage.o `test -f 'jpegimage.c' || echo '$(srcdir)/'`jpegimage.c + +xdvipdfmx-jpegimage.obj: jpegimage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-jpegimage.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-jpegimage.Tpo" -c -o xdvipdfmx-jpegimage.obj `if test -f 'jpegimage.c'; then $(CYGPATH_W) 'jpegimage.c'; else $(CYGPATH_W) '$(srcdir)/jpegimage.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-jpegimage.Tpo" "$(DEPDIR)/xdvipdfmx-jpegimage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-jpegimage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='jpegimage.c' object='xdvipdfmx-jpegimage.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-jpegimage.obj `if test -f 'jpegimage.c'; then $(CYGPATH_W) 'jpegimage.c'; else $(CYGPATH_W) '$(srcdir)/jpegimage.c'; fi` + +xdvipdfmx-mem.o: mem.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-mem.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-mem.Tpo" -c -o xdvipdfmx-mem.o `test -f 'mem.c' || echo '$(srcdir)/'`mem.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-mem.Tpo" "$(DEPDIR)/xdvipdfmx-mem.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-mem.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mem.c' object='xdvipdfmx-mem.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-mem.o `test -f 'mem.c' || echo '$(srcdir)/'`mem.c + +xdvipdfmx-mem.obj: mem.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-mem.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-mem.Tpo" -c -o xdvipdfmx-mem.obj `if test -f 'mem.c'; then $(CYGPATH_W) 'mem.c'; else $(CYGPATH_W) '$(srcdir)/mem.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-mem.Tpo" "$(DEPDIR)/xdvipdfmx-mem.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-mem.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mem.c' object='xdvipdfmx-mem.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-mem.obj `if test -f 'mem.c'; then $(CYGPATH_W) 'mem.c'; else $(CYGPATH_W) '$(srcdir)/mem.c'; fi` + +xdvipdfmx-mfileio.o: mfileio.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-mfileio.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-mfileio.Tpo" -c -o xdvipdfmx-mfileio.o `test -f 'mfileio.c' || echo '$(srcdir)/'`mfileio.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-mfileio.Tpo" "$(DEPDIR)/xdvipdfmx-mfileio.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-mfileio.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mfileio.c' object='xdvipdfmx-mfileio.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-mfileio.o `test -f 'mfileio.c' || echo '$(srcdir)/'`mfileio.c + +xdvipdfmx-mfileio.obj: mfileio.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-mfileio.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-mfileio.Tpo" -c -o xdvipdfmx-mfileio.obj `if test -f 'mfileio.c'; then $(CYGPATH_W) 'mfileio.c'; else $(CYGPATH_W) '$(srcdir)/mfileio.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-mfileio.Tpo" "$(DEPDIR)/xdvipdfmx-mfileio.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-mfileio.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mfileio.c' object='xdvipdfmx-mfileio.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-mfileio.obj `if test -f 'mfileio.c'; then $(CYGPATH_W) 'mfileio.c'; else $(CYGPATH_W) '$(srcdir)/mfileio.c'; fi` + +xdvipdfmx-mpost.o: mpost.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-mpost.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-mpost.Tpo" -c -o xdvipdfmx-mpost.o `test -f 'mpost.c' || echo '$(srcdir)/'`mpost.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-mpost.Tpo" "$(DEPDIR)/xdvipdfmx-mpost.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-mpost.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpost.c' object='xdvipdfmx-mpost.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-mpost.o `test -f 'mpost.c' || echo '$(srcdir)/'`mpost.c + +xdvipdfmx-mpost.obj: mpost.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-mpost.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-mpost.Tpo" -c -o xdvipdfmx-mpost.obj `if test -f 'mpost.c'; then $(CYGPATH_W) 'mpost.c'; else $(CYGPATH_W) '$(srcdir)/mpost.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-mpost.Tpo" "$(DEPDIR)/xdvipdfmx-mpost.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-mpost.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpost.c' object='xdvipdfmx-mpost.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-mpost.obj `if test -f 'mpost.c'; then $(CYGPATH_W) 'mpost.c'; else $(CYGPATH_W) '$(srcdir)/mpost.c'; fi` + +xdvipdfmx-numbers.o: numbers.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-numbers.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-numbers.Tpo" -c -o xdvipdfmx-numbers.o `test -f 'numbers.c' || echo '$(srcdir)/'`numbers.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-numbers.Tpo" "$(DEPDIR)/xdvipdfmx-numbers.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-numbers.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='numbers.c' object='xdvipdfmx-numbers.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-numbers.o `test -f 'numbers.c' || echo '$(srcdir)/'`numbers.c + +xdvipdfmx-numbers.obj: numbers.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-numbers.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-numbers.Tpo" -c -o xdvipdfmx-numbers.obj `if test -f 'numbers.c'; then $(CYGPATH_W) 'numbers.c'; else $(CYGPATH_W) '$(srcdir)/numbers.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-numbers.Tpo" "$(DEPDIR)/xdvipdfmx-numbers.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-numbers.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='numbers.c' object='xdvipdfmx-numbers.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-numbers.obj `if test -f 'numbers.c'; then $(CYGPATH_W) 'numbers.c'; else $(CYGPATH_W) '$(srcdir)/numbers.c'; fi` + +xdvipdfmx-otl_conf.o: otl_conf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-otl_conf.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-otl_conf.Tpo" -c -o xdvipdfmx-otl_conf.o `test -f 'otl_conf.c' || echo '$(srcdir)/'`otl_conf.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-otl_conf.Tpo" "$(DEPDIR)/xdvipdfmx-otl_conf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-otl_conf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='otl_conf.c' object='xdvipdfmx-otl_conf.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-otl_conf.o `test -f 'otl_conf.c' || echo '$(srcdir)/'`otl_conf.c + +xdvipdfmx-otl_conf.obj: otl_conf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-otl_conf.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-otl_conf.Tpo" -c -o xdvipdfmx-otl_conf.obj `if test -f 'otl_conf.c'; then $(CYGPATH_W) 'otl_conf.c'; else $(CYGPATH_W) '$(srcdir)/otl_conf.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-otl_conf.Tpo" "$(DEPDIR)/xdvipdfmx-otl_conf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-otl_conf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='otl_conf.c' object='xdvipdfmx-otl_conf.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-otl_conf.obj `if test -f 'otl_conf.c'; then $(CYGPATH_W) 'otl_conf.c'; else $(CYGPATH_W) '$(srcdir)/otl_conf.c'; fi` + +xdvipdfmx-otl_opt.o: otl_opt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-otl_opt.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-otl_opt.Tpo" -c -o xdvipdfmx-otl_opt.o `test -f 'otl_opt.c' || echo '$(srcdir)/'`otl_opt.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-otl_opt.Tpo" "$(DEPDIR)/xdvipdfmx-otl_opt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-otl_opt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='otl_opt.c' object='xdvipdfmx-otl_opt.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-otl_opt.o `test -f 'otl_opt.c' || echo '$(srcdir)/'`otl_opt.c + +xdvipdfmx-otl_opt.obj: otl_opt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-otl_opt.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-otl_opt.Tpo" -c -o xdvipdfmx-otl_opt.obj `if test -f 'otl_opt.c'; then $(CYGPATH_W) 'otl_opt.c'; else $(CYGPATH_W) '$(srcdir)/otl_opt.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-otl_opt.Tpo" "$(DEPDIR)/xdvipdfmx-otl_opt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-otl_opt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='otl_opt.c' object='xdvipdfmx-otl_opt.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-otl_opt.obj `if test -f 'otl_opt.c'; then $(CYGPATH_W) 'otl_opt.c'; else $(CYGPATH_W) '$(srcdir)/otl_opt.c'; fi` + +xdvipdfmx-pdfcolor.o: pdfcolor.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfcolor.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfcolor.Tpo" -c -o xdvipdfmx-pdfcolor.o `test -f 'pdfcolor.c' || echo '$(srcdir)/'`pdfcolor.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfcolor.Tpo" "$(DEPDIR)/xdvipdfmx-pdfcolor.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfcolor.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfcolor.c' object='xdvipdfmx-pdfcolor.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfcolor.o `test -f 'pdfcolor.c' || echo '$(srcdir)/'`pdfcolor.c + +xdvipdfmx-pdfcolor.obj: pdfcolor.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfcolor.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfcolor.Tpo" -c -o xdvipdfmx-pdfcolor.obj `if test -f 'pdfcolor.c'; then $(CYGPATH_W) 'pdfcolor.c'; else $(CYGPATH_W) '$(srcdir)/pdfcolor.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfcolor.Tpo" "$(DEPDIR)/xdvipdfmx-pdfcolor.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfcolor.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfcolor.c' object='xdvipdfmx-pdfcolor.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfcolor.obj `if test -f 'pdfcolor.c'; then $(CYGPATH_W) 'pdfcolor.c'; else $(CYGPATH_W) '$(srcdir)/pdfcolor.c'; fi` + +xdvipdfmx-pdfdev.o: pdfdev.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfdev.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfdev.Tpo" -c -o xdvipdfmx-pdfdev.o `test -f 'pdfdev.c' || echo '$(srcdir)/'`pdfdev.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfdev.Tpo" "$(DEPDIR)/xdvipdfmx-pdfdev.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfdev.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfdev.c' object='xdvipdfmx-pdfdev.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfdev.o `test -f 'pdfdev.c' || echo '$(srcdir)/'`pdfdev.c + +xdvipdfmx-pdfdev.obj: pdfdev.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfdev.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfdev.Tpo" -c -o xdvipdfmx-pdfdev.obj `if test -f 'pdfdev.c'; then $(CYGPATH_W) 'pdfdev.c'; else $(CYGPATH_W) '$(srcdir)/pdfdev.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfdev.Tpo" "$(DEPDIR)/xdvipdfmx-pdfdev.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfdev.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfdev.c' object='xdvipdfmx-pdfdev.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfdev.obj `if test -f 'pdfdev.c'; then $(CYGPATH_W) 'pdfdev.c'; else $(CYGPATH_W) '$(srcdir)/pdfdev.c'; fi` + +xdvipdfmx-pdfdoc.o: pdfdoc.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfdoc.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfdoc.Tpo" -c -o xdvipdfmx-pdfdoc.o `test -f 'pdfdoc.c' || echo '$(srcdir)/'`pdfdoc.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfdoc.Tpo" "$(DEPDIR)/xdvipdfmx-pdfdoc.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfdoc.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfdoc.c' object='xdvipdfmx-pdfdoc.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfdoc.o `test -f 'pdfdoc.c' || echo '$(srcdir)/'`pdfdoc.c + +xdvipdfmx-pdfdoc.obj: pdfdoc.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfdoc.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfdoc.Tpo" -c -o xdvipdfmx-pdfdoc.obj `if test -f 'pdfdoc.c'; then $(CYGPATH_W) 'pdfdoc.c'; else $(CYGPATH_W) '$(srcdir)/pdfdoc.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfdoc.Tpo" "$(DEPDIR)/xdvipdfmx-pdfdoc.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfdoc.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfdoc.c' object='xdvipdfmx-pdfdoc.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfdoc.obj `if test -f 'pdfdoc.c'; then $(CYGPATH_W) 'pdfdoc.c'; else $(CYGPATH_W) '$(srcdir)/pdfdoc.c'; fi` + +xdvipdfmx-pdfdraw.o: pdfdraw.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfdraw.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfdraw.Tpo" -c -o xdvipdfmx-pdfdraw.o `test -f 'pdfdraw.c' || echo '$(srcdir)/'`pdfdraw.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfdraw.Tpo" "$(DEPDIR)/xdvipdfmx-pdfdraw.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfdraw.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfdraw.c' object='xdvipdfmx-pdfdraw.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfdraw.o `test -f 'pdfdraw.c' || echo '$(srcdir)/'`pdfdraw.c + +xdvipdfmx-pdfdraw.obj: pdfdraw.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfdraw.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfdraw.Tpo" -c -o xdvipdfmx-pdfdraw.obj `if test -f 'pdfdraw.c'; then $(CYGPATH_W) 'pdfdraw.c'; else $(CYGPATH_W) '$(srcdir)/pdfdraw.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfdraw.Tpo" "$(DEPDIR)/xdvipdfmx-pdfdraw.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfdraw.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfdraw.c' object='xdvipdfmx-pdfdraw.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfdraw.obj `if test -f 'pdfdraw.c'; then $(CYGPATH_W) 'pdfdraw.c'; else $(CYGPATH_W) '$(srcdir)/pdfdraw.c'; fi` + +xdvipdfmx-pdfencoding.o: pdfencoding.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfencoding.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfencoding.Tpo" -c -o xdvipdfmx-pdfencoding.o `test -f 'pdfencoding.c' || echo '$(srcdir)/'`pdfencoding.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfencoding.Tpo" "$(DEPDIR)/xdvipdfmx-pdfencoding.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfencoding.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfencoding.c' object='xdvipdfmx-pdfencoding.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfencoding.o `test -f 'pdfencoding.c' || echo '$(srcdir)/'`pdfencoding.c + +xdvipdfmx-pdfencoding.obj: pdfencoding.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfencoding.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfencoding.Tpo" -c -o xdvipdfmx-pdfencoding.obj `if test -f 'pdfencoding.c'; then $(CYGPATH_W) 'pdfencoding.c'; else $(CYGPATH_W) '$(srcdir)/pdfencoding.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfencoding.Tpo" "$(DEPDIR)/xdvipdfmx-pdfencoding.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfencoding.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfencoding.c' object='xdvipdfmx-pdfencoding.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfencoding.obj `if test -f 'pdfencoding.c'; then $(CYGPATH_W) 'pdfencoding.c'; else $(CYGPATH_W) '$(srcdir)/pdfencoding.c'; fi` + +xdvipdfmx-pdfencrypt.o: pdfencrypt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfencrypt.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfencrypt.Tpo" -c -o xdvipdfmx-pdfencrypt.o `test -f 'pdfencrypt.c' || echo '$(srcdir)/'`pdfencrypt.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfencrypt.Tpo" "$(DEPDIR)/xdvipdfmx-pdfencrypt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfencrypt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfencrypt.c' object='xdvipdfmx-pdfencrypt.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfencrypt.o `test -f 'pdfencrypt.c' || echo '$(srcdir)/'`pdfencrypt.c + +xdvipdfmx-pdfencrypt.obj: pdfencrypt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfencrypt.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfencrypt.Tpo" -c -o xdvipdfmx-pdfencrypt.obj `if test -f 'pdfencrypt.c'; then $(CYGPATH_W) 'pdfencrypt.c'; else $(CYGPATH_W) '$(srcdir)/pdfencrypt.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfencrypt.Tpo" "$(DEPDIR)/xdvipdfmx-pdfencrypt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfencrypt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfencrypt.c' object='xdvipdfmx-pdfencrypt.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfencrypt.obj `if test -f 'pdfencrypt.c'; then $(CYGPATH_W) 'pdfencrypt.c'; else $(CYGPATH_W) '$(srcdir)/pdfencrypt.c'; fi` + +xdvipdfmx-pdffont.o: pdffont.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdffont.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdffont.Tpo" -c -o xdvipdfmx-pdffont.o `test -f 'pdffont.c' || echo '$(srcdir)/'`pdffont.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdffont.Tpo" "$(DEPDIR)/xdvipdfmx-pdffont.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdffont.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdffont.c' object='xdvipdfmx-pdffont.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdffont.o `test -f 'pdffont.c' || echo '$(srcdir)/'`pdffont.c + +xdvipdfmx-pdffont.obj: pdffont.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdffont.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdffont.Tpo" -c -o xdvipdfmx-pdffont.obj `if test -f 'pdffont.c'; then $(CYGPATH_W) 'pdffont.c'; else $(CYGPATH_W) '$(srcdir)/pdffont.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdffont.Tpo" "$(DEPDIR)/xdvipdfmx-pdffont.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdffont.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdffont.c' object='xdvipdfmx-pdffont.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdffont.obj `if test -f 'pdffont.c'; then $(CYGPATH_W) 'pdffont.c'; else $(CYGPATH_W) '$(srcdir)/pdffont.c'; fi` + +xdvipdfmx-pdfnames.o: pdfnames.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfnames.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfnames.Tpo" -c -o xdvipdfmx-pdfnames.o `test -f 'pdfnames.c' || echo '$(srcdir)/'`pdfnames.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfnames.Tpo" "$(DEPDIR)/xdvipdfmx-pdfnames.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfnames.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfnames.c' object='xdvipdfmx-pdfnames.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfnames.o `test -f 'pdfnames.c' || echo '$(srcdir)/'`pdfnames.c + +xdvipdfmx-pdfnames.obj: pdfnames.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfnames.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfnames.Tpo" -c -o xdvipdfmx-pdfnames.obj `if test -f 'pdfnames.c'; then $(CYGPATH_W) 'pdfnames.c'; else $(CYGPATH_W) '$(srcdir)/pdfnames.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfnames.Tpo" "$(DEPDIR)/xdvipdfmx-pdfnames.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfnames.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfnames.c' object='xdvipdfmx-pdfnames.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfnames.obj `if test -f 'pdfnames.c'; then $(CYGPATH_W) 'pdfnames.c'; else $(CYGPATH_W) '$(srcdir)/pdfnames.c'; fi` + +xdvipdfmx-pdfobj.o: pdfobj.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfobj.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfobj.Tpo" -c -o xdvipdfmx-pdfobj.o `test -f 'pdfobj.c' || echo '$(srcdir)/'`pdfobj.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfobj.Tpo" "$(DEPDIR)/xdvipdfmx-pdfobj.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfobj.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfobj.c' object='xdvipdfmx-pdfobj.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfobj.o `test -f 'pdfobj.c' || echo '$(srcdir)/'`pdfobj.c + +xdvipdfmx-pdfobj.obj: pdfobj.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfobj.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfobj.Tpo" -c -o xdvipdfmx-pdfobj.obj `if test -f 'pdfobj.c'; then $(CYGPATH_W) 'pdfobj.c'; else $(CYGPATH_W) '$(srcdir)/pdfobj.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfobj.Tpo" "$(DEPDIR)/xdvipdfmx-pdfobj.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfobj.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfobj.c' object='xdvipdfmx-pdfobj.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfobj.obj `if test -f 'pdfobj.c'; then $(CYGPATH_W) 'pdfobj.c'; else $(CYGPATH_W) '$(srcdir)/pdfobj.c'; fi` + +xdvipdfmx-pdfparse.o: pdfparse.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfparse.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfparse.Tpo" -c -o xdvipdfmx-pdfparse.o `test -f 'pdfparse.c' || echo '$(srcdir)/'`pdfparse.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfparse.Tpo" "$(DEPDIR)/xdvipdfmx-pdfparse.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfparse.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfparse.c' object='xdvipdfmx-pdfparse.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfparse.o `test -f 'pdfparse.c' || echo '$(srcdir)/'`pdfparse.c + +xdvipdfmx-pdfparse.obj: pdfparse.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfparse.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfparse.Tpo" -c -o xdvipdfmx-pdfparse.obj `if test -f 'pdfparse.c'; then $(CYGPATH_W) 'pdfparse.c'; else $(CYGPATH_W) '$(srcdir)/pdfparse.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfparse.Tpo" "$(DEPDIR)/xdvipdfmx-pdfparse.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfparse.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfparse.c' object='xdvipdfmx-pdfparse.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfparse.obj `if test -f 'pdfparse.c'; then $(CYGPATH_W) 'pdfparse.c'; else $(CYGPATH_W) '$(srcdir)/pdfparse.c'; fi` + +xdvipdfmx-pdfresource.o: pdfresource.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfresource.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfresource.Tpo" -c -o xdvipdfmx-pdfresource.o `test -f 'pdfresource.c' || echo '$(srcdir)/'`pdfresource.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfresource.Tpo" "$(DEPDIR)/xdvipdfmx-pdfresource.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfresource.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfresource.c' object='xdvipdfmx-pdfresource.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfresource.o `test -f 'pdfresource.c' || echo '$(srcdir)/'`pdfresource.c + +xdvipdfmx-pdfresource.obj: pdfresource.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfresource.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfresource.Tpo" -c -o xdvipdfmx-pdfresource.obj `if test -f 'pdfresource.c'; then $(CYGPATH_W) 'pdfresource.c'; else $(CYGPATH_W) '$(srcdir)/pdfresource.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfresource.Tpo" "$(DEPDIR)/xdvipdfmx-pdfresource.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfresource.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfresource.c' object='xdvipdfmx-pdfresource.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfresource.obj `if test -f 'pdfresource.c'; then $(CYGPATH_W) 'pdfresource.c'; else $(CYGPATH_W) '$(srcdir)/pdfresource.c'; fi` + +xdvipdfmx-pdfximage.o: pdfximage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfximage.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfximage.Tpo" -c -o xdvipdfmx-pdfximage.o `test -f 'pdfximage.c' || echo '$(srcdir)/'`pdfximage.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfximage.Tpo" "$(DEPDIR)/xdvipdfmx-pdfximage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfximage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfximage.c' object='xdvipdfmx-pdfximage.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfximage.o `test -f 'pdfximage.c' || echo '$(srcdir)/'`pdfximage.c + +xdvipdfmx-pdfximage.obj: pdfximage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pdfximage.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pdfximage.Tpo" -c -o xdvipdfmx-pdfximage.obj `if test -f 'pdfximage.c'; then $(CYGPATH_W) 'pdfximage.c'; else $(CYGPATH_W) '$(srcdir)/pdfximage.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pdfximage.Tpo" "$(DEPDIR)/xdvipdfmx-pdfximage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pdfximage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pdfximage.c' object='xdvipdfmx-pdfximage.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pdfximage.obj `if test -f 'pdfximage.c'; then $(CYGPATH_W) 'pdfximage.c'; else $(CYGPATH_W) '$(srcdir)/pdfximage.c'; fi` + +xdvipdfmx-pkfont.o: pkfont.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pkfont.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pkfont.Tpo" -c -o xdvipdfmx-pkfont.o `test -f 'pkfont.c' || echo '$(srcdir)/'`pkfont.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pkfont.Tpo" "$(DEPDIR)/xdvipdfmx-pkfont.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pkfont.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pkfont.c' object='xdvipdfmx-pkfont.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pkfont.o `test -f 'pkfont.c' || echo '$(srcdir)/'`pkfont.c + +xdvipdfmx-pkfont.obj: pkfont.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pkfont.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pkfont.Tpo" -c -o xdvipdfmx-pkfont.obj `if test -f 'pkfont.c'; then $(CYGPATH_W) 'pkfont.c'; else $(CYGPATH_W) '$(srcdir)/pkfont.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pkfont.Tpo" "$(DEPDIR)/xdvipdfmx-pkfont.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pkfont.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pkfont.c' object='xdvipdfmx-pkfont.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pkfont.obj `if test -f 'pkfont.c'; then $(CYGPATH_W) 'pkfont.c'; else $(CYGPATH_W) '$(srcdir)/pkfont.c'; fi` + +xdvipdfmx-pngimage.o: pngimage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pngimage.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pngimage.Tpo" -c -o xdvipdfmx-pngimage.o `test -f 'pngimage.c' || echo '$(srcdir)/'`pngimage.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pngimage.Tpo" "$(DEPDIR)/xdvipdfmx-pngimage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pngimage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pngimage.c' object='xdvipdfmx-pngimage.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pngimage.o `test -f 'pngimage.c' || echo '$(srcdir)/'`pngimage.c + +xdvipdfmx-pngimage.obj: pngimage.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pngimage.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pngimage.Tpo" -c -o xdvipdfmx-pngimage.obj `if test -f 'pngimage.c'; then $(CYGPATH_W) 'pngimage.c'; else $(CYGPATH_W) '$(srcdir)/pngimage.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pngimage.Tpo" "$(DEPDIR)/xdvipdfmx-pngimage.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pngimage.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pngimage.c' object='xdvipdfmx-pngimage.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pngimage.obj `if test -f 'pngimage.c'; then $(CYGPATH_W) 'pngimage.c'; else $(CYGPATH_W) '$(srcdir)/pngimage.c'; fi` + +xdvipdfmx-pst.o: pst.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pst.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pst.Tpo" -c -o xdvipdfmx-pst.o `test -f 'pst.c' || echo '$(srcdir)/'`pst.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pst.Tpo" "$(DEPDIR)/xdvipdfmx-pst.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pst.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pst.c' object='xdvipdfmx-pst.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pst.o `test -f 'pst.c' || echo '$(srcdir)/'`pst.c + +xdvipdfmx-pst.obj: pst.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pst.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pst.Tpo" -c -o xdvipdfmx-pst.obj `if test -f 'pst.c'; then $(CYGPATH_W) 'pst.c'; else $(CYGPATH_W) '$(srcdir)/pst.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pst.Tpo" "$(DEPDIR)/xdvipdfmx-pst.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pst.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pst.c' object='xdvipdfmx-pst.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pst.obj `if test -f 'pst.c'; then $(CYGPATH_W) 'pst.c'; else $(CYGPATH_W) '$(srcdir)/pst.c'; fi` + +xdvipdfmx-pst_obj.o: pst_obj.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pst_obj.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pst_obj.Tpo" -c -o xdvipdfmx-pst_obj.o `test -f 'pst_obj.c' || echo '$(srcdir)/'`pst_obj.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pst_obj.Tpo" "$(DEPDIR)/xdvipdfmx-pst_obj.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pst_obj.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pst_obj.c' object='xdvipdfmx-pst_obj.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pst_obj.o `test -f 'pst_obj.c' || echo '$(srcdir)/'`pst_obj.c + +xdvipdfmx-pst_obj.obj: pst_obj.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-pst_obj.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-pst_obj.Tpo" -c -o xdvipdfmx-pst_obj.obj `if test -f 'pst_obj.c'; then $(CYGPATH_W) 'pst_obj.c'; else $(CYGPATH_W) '$(srcdir)/pst_obj.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-pst_obj.Tpo" "$(DEPDIR)/xdvipdfmx-pst_obj.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-pst_obj.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pst_obj.c' object='xdvipdfmx-pst_obj.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-pst_obj.obj `if test -f 'pst_obj.c'; then $(CYGPATH_W) 'pst_obj.c'; else $(CYGPATH_W) '$(srcdir)/pst_obj.c'; fi` + +xdvipdfmx-sfnt.o: sfnt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-sfnt.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-sfnt.Tpo" -c -o xdvipdfmx-sfnt.o `test -f 'sfnt.c' || echo '$(srcdir)/'`sfnt.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-sfnt.Tpo" "$(DEPDIR)/xdvipdfmx-sfnt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-sfnt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='sfnt.c' object='xdvipdfmx-sfnt.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-sfnt.o `test -f 'sfnt.c' || echo '$(srcdir)/'`sfnt.c + +xdvipdfmx-sfnt.obj: sfnt.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-sfnt.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-sfnt.Tpo" -c -o xdvipdfmx-sfnt.obj `if test -f 'sfnt.c'; then $(CYGPATH_W) 'sfnt.c'; else $(CYGPATH_W) '$(srcdir)/sfnt.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-sfnt.Tpo" "$(DEPDIR)/xdvipdfmx-sfnt.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-sfnt.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='sfnt.c' object='xdvipdfmx-sfnt.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-sfnt.obj `if test -f 'sfnt.c'; then $(CYGPATH_W) 'sfnt.c'; else $(CYGPATH_W) '$(srcdir)/sfnt.c'; fi` + +xdvipdfmx-spc_color.o: spc_color.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_color.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_color.Tpo" -c -o xdvipdfmx-spc_color.o `test -f 'spc_color.c' || echo '$(srcdir)/'`spc_color.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_color.Tpo" "$(DEPDIR)/xdvipdfmx-spc_color.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_color.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_color.c' object='xdvipdfmx-spc_color.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_color.o `test -f 'spc_color.c' || echo '$(srcdir)/'`spc_color.c + +xdvipdfmx-spc_color.obj: spc_color.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_color.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_color.Tpo" -c -o xdvipdfmx-spc_color.obj `if test -f 'spc_color.c'; then $(CYGPATH_W) 'spc_color.c'; else $(CYGPATH_W) '$(srcdir)/spc_color.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_color.Tpo" "$(DEPDIR)/xdvipdfmx-spc_color.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_color.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_color.c' object='xdvipdfmx-spc_color.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_color.obj `if test -f 'spc_color.c'; then $(CYGPATH_W) 'spc_color.c'; else $(CYGPATH_W) '$(srcdir)/spc_color.c'; fi` + +xdvipdfmx-spc_dvips.o: spc_dvips.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_dvips.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_dvips.Tpo" -c -o xdvipdfmx-spc_dvips.o `test -f 'spc_dvips.c' || echo '$(srcdir)/'`spc_dvips.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_dvips.Tpo" "$(DEPDIR)/xdvipdfmx-spc_dvips.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_dvips.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_dvips.c' object='xdvipdfmx-spc_dvips.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_dvips.o `test -f 'spc_dvips.c' || echo '$(srcdir)/'`spc_dvips.c + +xdvipdfmx-spc_dvips.obj: spc_dvips.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_dvips.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_dvips.Tpo" -c -o xdvipdfmx-spc_dvips.obj `if test -f 'spc_dvips.c'; then $(CYGPATH_W) 'spc_dvips.c'; else $(CYGPATH_W) '$(srcdir)/spc_dvips.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_dvips.Tpo" "$(DEPDIR)/xdvipdfmx-spc_dvips.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_dvips.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_dvips.c' object='xdvipdfmx-spc_dvips.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_dvips.obj `if test -f 'spc_dvips.c'; then $(CYGPATH_W) 'spc_dvips.c'; else $(CYGPATH_W) '$(srcdir)/spc_dvips.c'; fi` + +xdvipdfmx-spc_html.o: spc_html.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_html.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_html.Tpo" -c -o xdvipdfmx-spc_html.o `test -f 'spc_html.c' || echo '$(srcdir)/'`spc_html.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_html.Tpo" "$(DEPDIR)/xdvipdfmx-spc_html.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_html.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_html.c' object='xdvipdfmx-spc_html.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_html.o `test -f 'spc_html.c' || echo '$(srcdir)/'`spc_html.c + +xdvipdfmx-spc_html.obj: spc_html.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_html.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_html.Tpo" -c -o xdvipdfmx-spc_html.obj `if test -f 'spc_html.c'; then $(CYGPATH_W) 'spc_html.c'; else $(CYGPATH_W) '$(srcdir)/spc_html.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_html.Tpo" "$(DEPDIR)/xdvipdfmx-spc_html.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_html.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_html.c' object='xdvipdfmx-spc_html.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_html.obj `if test -f 'spc_html.c'; then $(CYGPATH_W) 'spc_html.c'; else $(CYGPATH_W) '$(srcdir)/spc_html.c'; fi` + +xdvipdfmx-spc_misc.o: spc_misc.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_misc.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_misc.Tpo" -c -o xdvipdfmx-spc_misc.o `test -f 'spc_misc.c' || echo '$(srcdir)/'`spc_misc.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_misc.Tpo" "$(DEPDIR)/xdvipdfmx-spc_misc.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_misc.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_misc.c' object='xdvipdfmx-spc_misc.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_misc.o `test -f 'spc_misc.c' || echo '$(srcdir)/'`spc_misc.c + +xdvipdfmx-spc_misc.obj: spc_misc.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_misc.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_misc.Tpo" -c -o xdvipdfmx-spc_misc.obj `if test -f 'spc_misc.c'; then $(CYGPATH_W) 'spc_misc.c'; else $(CYGPATH_W) '$(srcdir)/spc_misc.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_misc.Tpo" "$(DEPDIR)/xdvipdfmx-spc_misc.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_misc.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_misc.c' object='xdvipdfmx-spc_misc.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_misc.obj `if test -f 'spc_misc.c'; then $(CYGPATH_W) 'spc_misc.c'; else $(CYGPATH_W) '$(srcdir)/spc_misc.c'; fi` + +xdvipdfmx-spc_pdfm.o: spc_pdfm.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_pdfm.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_pdfm.Tpo" -c -o xdvipdfmx-spc_pdfm.o `test -f 'spc_pdfm.c' || echo '$(srcdir)/'`spc_pdfm.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_pdfm.Tpo" "$(DEPDIR)/xdvipdfmx-spc_pdfm.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_pdfm.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_pdfm.c' object='xdvipdfmx-spc_pdfm.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_pdfm.o `test -f 'spc_pdfm.c' || echo '$(srcdir)/'`spc_pdfm.c + +xdvipdfmx-spc_pdfm.obj: spc_pdfm.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_pdfm.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_pdfm.Tpo" -c -o xdvipdfmx-spc_pdfm.obj `if test -f 'spc_pdfm.c'; then $(CYGPATH_W) 'spc_pdfm.c'; else $(CYGPATH_W) '$(srcdir)/spc_pdfm.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_pdfm.Tpo" "$(DEPDIR)/xdvipdfmx-spc_pdfm.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_pdfm.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_pdfm.c' object='xdvipdfmx-spc_pdfm.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_pdfm.obj `if test -f 'spc_pdfm.c'; then $(CYGPATH_W) 'spc_pdfm.c'; else $(CYGPATH_W) '$(srcdir)/spc_pdfm.c'; fi` + +xdvipdfmx-spc_tpic.o: spc_tpic.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_tpic.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_tpic.Tpo" -c -o xdvipdfmx-spc_tpic.o `test -f 'spc_tpic.c' || echo '$(srcdir)/'`spc_tpic.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_tpic.Tpo" "$(DEPDIR)/xdvipdfmx-spc_tpic.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_tpic.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_tpic.c' object='xdvipdfmx-spc_tpic.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_tpic.o `test -f 'spc_tpic.c' || echo '$(srcdir)/'`spc_tpic.c + +xdvipdfmx-spc_tpic.obj: spc_tpic.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_tpic.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_tpic.Tpo" -c -o xdvipdfmx-spc_tpic.obj `if test -f 'spc_tpic.c'; then $(CYGPATH_W) 'spc_tpic.c'; else $(CYGPATH_W) '$(srcdir)/spc_tpic.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_tpic.Tpo" "$(DEPDIR)/xdvipdfmx-spc_tpic.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_tpic.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_tpic.c' object='xdvipdfmx-spc_tpic.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_tpic.obj `if test -f 'spc_tpic.c'; then $(CYGPATH_W) 'spc_tpic.c'; else $(CYGPATH_W) '$(srcdir)/spc_tpic.c'; fi` + +xdvipdfmx-spc_util.o: spc_util.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_util.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_util.Tpo" -c -o xdvipdfmx-spc_util.o `test -f 'spc_util.c' || echo '$(srcdir)/'`spc_util.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_util.Tpo" "$(DEPDIR)/xdvipdfmx-spc_util.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_util.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_util.c' object='xdvipdfmx-spc_util.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_util.o `test -f 'spc_util.c' || echo '$(srcdir)/'`spc_util.c + +xdvipdfmx-spc_util.obj: spc_util.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_util.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_util.Tpo" -c -o xdvipdfmx-spc_util.obj `if test -f 'spc_util.c'; then $(CYGPATH_W) 'spc_util.c'; else $(CYGPATH_W) '$(srcdir)/spc_util.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_util.Tpo" "$(DEPDIR)/xdvipdfmx-spc_util.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_util.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_util.c' object='xdvipdfmx-spc_util.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_util.obj `if test -f 'spc_util.c'; then $(CYGPATH_W) 'spc_util.c'; else $(CYGPATH_W) '$(srcdir)/spc_util.c'; fi` + +xdvipdfmx-spc_xtx.o: spc_xtx.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_xtx.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_xtx.Tpo" -c -o xdvipdfmx-spc_xtx.o `test -f 'spc_xtx.c' || echo '$(srcdir)/'`spc_xtx.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_xtx.Tpo" "$(DEPDIR)/xdvipdfmx-spc_xtx.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_xtx.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_xtx.c' object='xdvipdfmx-spc_xtx.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_xtx.o `test -f 'spc_xtx.c' || echo '$(srcdir)/'`spc_xtx.c + +xdvipdfmx-spc_xtx.obj: spc_xtx.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-spc_xtx.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-spc_xtx.Tpo" -c -o xdvipdfmx-spc_xtx.obj `if test -f 'spc_xtx.c'; then $(CYGPATH_W) 'spc_xtx.c'; else $(CYGPATH_W) '$(srcdir)/spc_xtx.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-spc_xtx.Tpo" "$(DEPDIR)/xdvipdfmx-spc_xtx.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-spc_xtx.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='spc_xtx.c' object='xdvipdfmx-spc_xtx.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-spc_xtx.obj `if test -f 'spc_xtx.c'; then $(CYGPATH_W) 'spc_xtx.c'; else $(CYGPATH_W) '$(srcdir)/spc_xtx.c'; fi` + +xdvipdfmx-specials.o: specials.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-specials.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-specials.Tpo" -c -o xdvipdfmx-specials.o `test -f 'specials.c' || echo '$(srcdir)/'`specials.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-specials.Tpo" "$(DEPDIR)/xdvipdfmx-specials.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-specials.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='specials.c' object='xdvipdfmx-specials.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-specials.o `test -f 'specials.c' || echo '$(srcdir)/'`specials.c + +xdvipdfmx-specials.obj: specials.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-specials.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-specials.Tpo" -c -o xdvipdfmx-specials.obj `if test -f 'specials.c'; then $(CYGPATH_W) 'specials.c'; else $(CYGPATH_W) '$(srcdir)/specials.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-specials.Tpo" "$(DEPDIR)/xdvipdfmx-specials.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-specials.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='specials.c' object='xdvipdfmx-specials.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-specials.obj `if test -f 'specials.c'; then $(CYGPATH_W) 'specials.c'; else $(CYGPATH_W) '$(srcdir)/specials.c'; fi` + +xdvipdfmx-subfont.o: subfont.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-subfont.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-subfont.Tpo" -c -o xdvipdfmx-subfont.o `test -f 'subfont.c' || echo '$(srcdir)/'`subfont.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-subfont.Tpo" "$(DEPDIR)/xdvipdfmx-subfont.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-subfont.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='subfont.c' object='xdvipdfmx-subfont.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-subfont.o `test -f 'subfont.c' || echo '$(srcdir)/'`subfont.c + +xdvipdfmx-subfont.obj: subfont.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-subfont.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-subfont.Tpo" -c -o xdvipdfmx-subfont.obj `if test -f 'subfont.c'; then $(CYGPATH_W) 'subfont.c'; else $(CYGPATH_W) '$(srcdir)/subfont.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-subfont.Tpo" "$(DEPDIR)/xdvipdfmx-subfont.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-subfont.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='subfont.c' object='xdvipdfmx-subfont.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-subfont.obj `if test -f 'subfont.c'; then $(CYGPATH_W) 'subfont.c'; else $(CYGPATH_W) '$(srcdir)/subfont.c'; fi` + +xdvipdfmx-tfm.o: tfm.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tfm.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tfm.Tpo" -c -o xdvipdfmx-tfm.o `test -f 'tfm.c' || echo '$(srcdir)/'`tfm.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tfm.Tpo" "$(DEPDIR)/xdvipdfmx-tfm.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tfm.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tfm.c' object='xdvipdfmx-tfm.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tfm.o `test -f 'tfm.c' || echo '$(srcdir)/'`tfm.c + +xdvipdfmx-tfm.obj: tfm.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tfm.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tfm.Tpo" -c -o xdvipdfmx-tfm.obj `if test -f 'tfm.c'; then $(CYGPATH_W) 'tfm.c'; else $(CYGPATH_W) '$(srcdir)/tfm.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tfm.Tpo" "$(DEPDIR)/xdvipdfmx-tfm.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tfm.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tfm.c' object='xdvipdfmx-tfm.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tfm.obj `if test -f 'tfm.c'; then $(CYGPATH_W) 'tfm.c'; else $(CYGPATH_W) '$(srcdir)/tfm.c'; fi` + +xdvipdfmx-tt_aux.o: tt_aux.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_aux.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_aux.Tpo" -c -o xdvipdfmx-tt_aux.o `test -f 'tt_aux.c' || echo '$(srcdir)/'`tt_aux.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_aux.Tpo" "$(DEPDIR)/xdvipdfmx-tt_aux.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_aux.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_aux.c' object='xdvipdfmx-tt_aux.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_aux.o `test -f 'tt_aux.c' || echo '$(srcdir)/'`tt_aux.c + +xdvipdfmx-tt_aux.obj: tt_aux.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_aux.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_aux.Tpo" -c -o xdvipdfmx-tt_aux.obj `if test -f 'tt_aux.c'; then $(CYGPATH_W) 'tt_aux.c'; else $(CYGPATH_W) '$(srcdir)/tt_aux.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_aux.Tpo" "$(DEPDIR)/xdvipdfmx-tt_aux.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_aux.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_aux.c' object='xdvipdfmx-tt_aux.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_aux.obj `if test -f 'tt_aux.c'; then $(CYGPATH_W) 'tt_aux.c'; else $(CYGPATH_W) '$(srcdir)/tt_aux.c'; fi` + +xdvipdfmx-tt_cmap.o: tt_cmap.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_cmap.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_cmap.Tpo" -c -o xdvipdfmx-tt_cmap.o `test -f 'tt_cmap.c' || echo '$(srcdir)/'`tt_cmap.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_cmap.Tpo" "$(DEPDIR)/xdvipdfmx-tt_cmap.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_cmap.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_cmap.c' object='xdvipdfmx-tt_cmap.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_cmap.o `test -f 'tt_cmap.c' || echo '$(srcdir)/'`tt_cmap.c + +xdvipdfmx-tt_cmap.obj: tt_cmap.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_cmap.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_cmap.Tpo" -c -o xdvipdfmx-tt_cmap.obj `if test -f 'tt_cmap.c'; then $(CYGPATH_W) 'tt_cmap.c'; else $(CYGPATH_W) '$(srcdir)/tt_cmap.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_cmap.Tpo" "$(DEPDIR)/xdvipdfmx-tt_cmap.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_cmap.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_cmap.c' object='xdvipdfmx-tt_cmap.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_cmap.obj `if test -f 'tt_cmap.c'; then $(CYGPATH_W) 'tt_cmap.c'; else $(CYGPATH_W) '$(srcdir)/tt_cmap.c'; fi` + +xdvipdfmx-tt_glyf.o: tt_glyf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_glyf.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_glyf.Tpo" -c -o xdvipdfmx-tt_glyf.o `test -f 'tt_glyf.c' || echo '$(srcdir)/'`tt_glyf.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_glyf.Tpo" "$(DEPDIR)/xdvipdfmx-tt_glyf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_glyf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_glyf.c' object='xdvipdfmx-tt_glyf.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_glyf.o `test -f 'tt_glyf.c' || echo '$(srcdir)/'`tt_glyf.c + +xdvipdfmx-tt_glyf.obj: tt_glyf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_glyf.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_glyf.Tpo" -c -o xdvipdfmx-tt_glyf.obj `if test -f 'tt_glyf.c'; then $(CYGPATH_W) 'tt_glyf.c'; else $(CYGPATH_W) '$(srcdir)/tt_glyf.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_glyf.Tpo" "$(DEPDIR)/xdvipdfmx-tt_glyf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_glyf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_glyf.c' object='xdvipdfmx-tt_glyf.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_glyf.obj `if test -f 'tt_glyf.c'; then $(CYGPATH_W) 'tt_glyf.c'; else $(CYGPATH_W) '$(srcdir)/tt_glyf.c'; fi` + +xdvipdfmx-tt_gsub.o: tt_gsub.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_gsub.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_gsub.Tpo" -c -o xdvipdfmx-tt_gsub.o `test -f 'tt_gsub.c' || echo '$(srcdir)/'`tt_gsub.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_gsub.Tpo" "$(DEPDIR)/xdvipdfmx-tt_gsub.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_gsub.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_gsub.c' object='xdvipdfmx-tt_gsub.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_gsub.o `test -f 'tt_gsub.c' || echo '$(srcdir)/'`tt_gsub.c + +xdvipdfmx-tt_gsub.obj: tt_gsub.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_gsub.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_gsub.Tpo" -c -o xdvipdfmx-tt_gsub.obj `if test -f 'tt_gsub.c'; then $(CYGPATH_W) 'tt_gsub.c'; else $(CYGPATH_W) '$(srcdir)/tt_gsub.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_gsub.Tpo" "$(DEPDIR)/xdvipdfmx-tt_gsub.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_gsub.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_gsub.c' object='xdvipdfmx-tt_gsub.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_gsub.obj `if test -f 'tt_gsub.c'; then $(CYGPATH_W) 'tt_gsub.c'; else $(CYGPATH_W) '$(srcdir)/tt_gsub.c'; fi` + +xdvipdfmx-tt_post.o: tt_post.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_post.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_post.Tpo" -c -o xdvipdfmx-tt_post.o `test -f 'tt_post.c' || echo '$(srcdir)/'`tt_post.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_post.Tpo" "$(DEPDIR)/xdvipdfmx-tt_post.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_post.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_post.c' object='xdvipdfmx-tt_post.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_post.o `test -f 'tt_post.c' || echo '$(srcdir)/'`tt_post.c + +xdvipdfmx-tt_post.obj: tt_post.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_post.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_post.Tpo" -c -o xdvipdfmx-tt_post.obj `if test -f 'tt_post.c'; then $(CYGPATH_W) 'tt_post.c'; else $(CYGPATH_W) '$(srcdir)/tt_post.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_post.Tpo" "$(DEPDIR)/xdvipdfmx-tt_post.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_post.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_post.c' object='xdvipdfmx-tt_post.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_post.obj `if test -f 'tt_post.c'; then $(CYGPATH_W) 'tt_post.c'; else $(CYGPATH_W) '$(srcdir)/tt_post.c'; fi` + +xdvipdfmx-tt_table.o: tt_table.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_table.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_table.Tpo" -c -o xdvipdfmx-tt_table.o `test -f 'tt_table.c' || echo '$(srcdir)/'`tt_table.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_table.Tpo" "$(DEPDIR)/xdvipdfmx-tt_table.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_table.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_table.c' object='xdvipdfmx-tt_table.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_table.o `test -f 'tt_table.c' || echo '$(srcdir)/'`tt_table.c + +xdvipdfmx-tt_table.obj: tt_table.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-tt_table.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-tt_table.Tpo" -c -o xdvipdfmx-tt_table.obj `if test -f 'tt_table.c'; then $(CYGPATH_W) 'tt_table.c'; else $(CYGPATH_W) '$(srcdir)/tt_table.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-tt_table.Tpo" "$(DEPDIR)/xdvipdfmx-tt_table.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-tt_table.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='tt_table.c' object='xdvipdfmx-tt_table.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-tt_table.obj `if test -f 'tt_table.c'; then $(CYGPATH_W) 'tt_table.c'; else $(CYGPATH_W) '$(srcdir)/tt_table.c'; fi` + +xdvipdfmx-truetype.o: truetype.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-truetype.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-truetype.Tpo" -c -o xdvipdfmx-truetype.o `test -f 'truetype.c' || echo '$(srcdir)/'`truetype.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-truetype.Tpo" "$(DEPDIR)/xdvipdfmx-truetype.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-truetype.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='truetype.c' object='xdvipdfmx-truetype.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-truetype.o `test -f 'truetype.c' || echo '$(srcdir)/'`truetype.c + +xdvipdfmx-truetype.obj: truetype.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-truetype.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-truetype.Tpo" -c -o xdvipdfmx-truetype.obj `if test -f 'truetype.c'; then $(CYGPATH_W) 'truetype.c'; else $(CYGPATH_W) '$(srcdir)/truetype.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-truetype.Tpo" "$(DEPDIR)/xdvipdfmx-truetype.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-truetype.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='truetype.c' object='xdvipdfmx-truetype.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-truetype.obj `if test -f 'truetype.c'; then $(CYGPATH_W) 'truetype.c'; else $(CYGPATH_W) '$(srcdir)/truetype.c'; fi` + +xdvipdfmx-type0.o: type0.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-type0.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-type0.Tpo" -c -o xdvipdfmx-type0.o `test -f 'type0.c' || echo '$(srcdir)/'`type0.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-type0.Tpo" "$(DEPDIR)/xdvipdfmx-type0.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-type0.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='type0.c' object='xdvipdfmx-type0.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-type0.o `test -f 'type0.c' || echo '$(srcdir)/'`type0.c + +xdvipdfmx-type0.obj: type0.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-type0.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-type0.Tpo" -c -o xdvipdfmx-type0.obj `if test -f 'type0.c'; then $(CYGPATH_W) 'type0.c'; else $(CYGPATH_W) '$(srcdir)/type0.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-type0.Tpo" "$(DEPDIR)/xdvipdfmx-type0.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-type0.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='type0.c' object='xdvipdfmx-type0.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-type0.obj `if test -f 'type0.c'; then $(CYGPATH_W) 'type0.c'; else $(CYGPATH_W) '$(srcdir)/type0.c'; fi` + +xdvipdfmx-t1_char.o: t1_char.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-t1_char.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-t1_char.Tpo" -c -o xdvipdfmx-t1_char.o `test -f 't1_char.c' || echo '$(srcdir)/'`t1_char.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-t1_char.Tpo" "$(DEPDIR)/xdvipdfmx-t1_char.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-t1_char.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='t1_char.c' object='xdvipdfmx-t1_char.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-t1_char.o `test -f 't1_char.c' || echo '$(srcdir)/'`t1_char.c + +xdvipdfmx-t1_char.obj: t1_char.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-t1_char.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-t1_char.Tpo" -c -o xdvipdfmx-t1_char.obj `if test -f 't1_char.c'; then $(CYGPATH_W) 't1_char.c'; else $(CYGPATH_W) '$(srcdir)/t1_char.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-t1_char.Tpo" "$(DEPDIR)/xdvipdfmx-t1_char.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-t1_char.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='t1_char.c' object='xdvipdfmx-t1_char.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-t1_char.obj `if test -f 't1_char.c'; then $(CYGPATH_W) 't1_char.c'; else $(CYGPATH_W) '$(srcdir)/t1_char.c'; fi` + +xdvipdfmx-t1_load.o: t1_load.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-t1_load.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-t1_load.Tpo" -c -o xdvipdfmx-t1_load.o `test -f 't1_load.c' || echo '$(srcdir)/'`t1_load.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-t1_load.Tpo" "$(DEPDIR)/xdvipdfmx-t1_load.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-t1_load.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='t1_load.c' object='xdvipdfmx-t1_load.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-t1_load.o `test -f 't1_load.c' || echo '$(srcdir)/'`t1_load.c + +xdvipdfmx-t1_load.obj: t1_load.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-t1_load.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-t1_load.Tpo" -c -o xdvipdfmx-t1_load.obj `if test -f 't1_load.c'; then $(CYGPATH_W) 't1_load.c'; else $(CYGPATH_W) '$(srcdir)/t1_load.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-t1_load.Tpo" "$(DEPDIR)/xdvipdfmx-t1_load.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-t1_load.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='t1_load.c' object='xdvipdfmx-t1_load.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-t1_load.obj `if test -f 't1_load.c'; then $(CYGPATH_W) 't1_load.c'; else $(CYGPATH_W) '$(srcdir)/t1_load.c'; fi` + +xdvipdfmx-type1.o: type1.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-type1.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-type1.Tpo" -c -o xdvipdfmx-type1.o `test -f 'type1.c' || echo '$(srcdir)/'`type1.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-type1.Tpo" "$(DEPDIR)/xdvipdfmx-type1.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-type1.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='type1.c' object='xdvipdfmx-type1.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-type1.o `test -f 'type1.c' || echo '$(srcdir)/'`type1.c + +xdvipdfmx-type1.obj: type1.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-type1.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-type1.Tpo" -c -o xdvipdfmx-type1.obj `if test -f 'type1.c'; then $(CYGPATH_W) 'type1.c'; else $(CYGPATH_W) '$(srcdir)/type1.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-type1.Tpo" "$(DEPDIR)/xdvipdfmx-type1.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-type1.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='type1.c' object='xdvipdfmx-type1.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-type1.obj `if test -f 'type1.c'; then $(CYGPATH_W) 'type1.c'; else $(CYGPATH_W) '$(srcdir)/type1.c'; fi` + +xdvipdfmx-type1c.o: type1c.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-type1c.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-type1c.Tpo" -c -o xdvipdfmx-type1c.o `test -f 'type1c.c' || echo '$(srcdir)/'`type1c.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-type1c.Tpo" "$(DEPDIR)/xdvipdfmx-type1c.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-type1c.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='type1c.c' object='xdvipdfmx-type1c.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-type1c.o `test -f 'type1c.c' || echo '$(srcdir)/'`type1c.c + +xdvipdfmx-type1c.obj: type1c.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-type1c.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-type1c.Tpo" -c -o xdvipdfmx-type1c.obj `if test -f 'type1c.c'; then $(CYGPATH_W) 'type1c.c'; else $(CYGPATH_W) '$(srcdir)/type1c.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-type1c.Tpo" "$(DEPDIR)/xdvipdfmx-type1c.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-type1c.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='type1c.c' object='xdvipdfmx-type1c.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-type1c.obj `if test -f 'type1c.c'; then $(CYGPATH_W) 'type1c.c'; else $(CYGPATH_W) '$(srcdir)/type1c.c'; fi` + +xdvipdfmx-unicode.o: unicode.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-unicode.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-unicode.Tpo" -c -o xdvipdfmx-unicode.o `test -f 'unicode.c' || echo '$(srcdir)/'`unicode.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-unicode.Tpo" "$(DEPDIR)/xdvipdfmx-unicode.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-unicode.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='unicode.c' object='xdvipdfmx-unicode.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-unicode.o `test -f 'unicode.c' || echo '$(srcdir)/'`unicode.c + +xdvipdfmx-unicode.obj: unicode.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-unicode.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-unicode.Tpo" -c -o xdvipdfmx-unicode.obj `if test -f 'unicode.c'; then $(CYGPATH_W) 'unicode.c'; else $(CYGPATH_W) '$(srcdir)/unicode.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-unicode.Tpo" "$(DEPDIR)/xdvipdfmx-unicode.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-unicode.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='unicode.c' object='xdvipdfmx-unicode.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-unicode.obj `if test -f 'unicode.c'; then $(CYGPATH_W) 'unicode.c'; else $(CYGPATH_W) '$(srcdir)/unicode.c'; fi` + +xdvipdfmx-vf.o: vf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-vf.o -MD -MP -MF "$(DEPDIR)/xdvipdfmx-vf.Tpo" -c -o xdvipdfmx-vf.o `test -f 'vf.c' || echo '$(srcdir)/'`vf.c; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-vf.Tpo" "$(DEPDIR)/xdvipdfmx-vf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-vf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='vf.c' object='xdvipdfmx-vf.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-vf.o `test -f 'vf.c' || echo '$(srcdir)/'`vf.c + +xdvipdfmx-vf.obj: vf.c +@am__fastdepCC_TRUE@ if $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT xdvipdfmx-vf.obj -MD -MP -MF "$(DEPDIR)/xdvipdfmx-vf.Tpo" -c -o xdvipdfmx-vf.obj `if test -f 'vf.c'; then $(CYGPATH_W) 'vf.c'; else $(CYGPATH_W) '$(srcdir)/vf.c'; fi`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/xdvipdfmx-vf.Tpo" "$(DEPDIR)/xdvipdfmx-vf.Po"; else rm -f "$(DEPDIR)/xdvipdfmx-vf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='vf.c' object='xdvipdfmx-vf.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(xdvipdfmx_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o xdvipdfmx-vf.obj `if test -f 'vf.c'; then $(CYGPATH_W) 'vf.c'; else $(CYGPATH_W) '$(srcdir)/vf.c'; fi` +uninstall-info-am: + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$tags $$unique; \ + fi +ctags: CTAGS +CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + test -z "$(CTAGS_ARGS)$$tags$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$tags $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && cd $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) $$here + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ + list='$(DISTFILES)'; for file in $$list; do \ + case $$file in \ + $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ + $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ + esac; \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test "$$dir" != "$$file" && test "$$dir" != "."; then \ + dir="/$$dir"; \ + $(mkdir_p) "$(distdir)$$dir"; \ + else \ + dir=''; \ + fi; \ + if test -d $$d/$$file; then \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ + fi; \ + cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ + else \ + test -f $(distdir)/$$file \ + || cp -p $$d/$$file $(distdir)/$$file \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(PROGRAMS) +installdirs: + for dir in "$(DESTDIR)$(bindir)"; do \ + test -z "$$dir" || $(mkdir_p) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-binPROGRAMS clean-generic mostlyclean-am + +distclean: distclean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +info: info-am + +info-am: + +install-data-am: + +install-exec-am: install-binPROGRAMS + +install-info: install-info-am + +install-man: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-binPROGRAMS uninstall-info-am + +.PHONY: CTAGS GTAGS all all-am check check-am clean clean-binPROGRAMS \ + clean-generic ctags distclean distclean-compile \ + distclean-generic distclean-tags distdir dvi dvi-am html \ + html-am info info-am install install-am install-binPROGRAMS \ + install-data install-data-am install-exec install-exec-am \ + install-info install-info-am install-man install-strip \ + installcheck installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic pdf pdf-am ps ps-am tags uninstall \ + uninstall-am uninstall-binPROGRAMS uninstall-info-am + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/Build/source/texk/xdvipdfmx/src/agl.c b/Build/source/texk/xdvipdfmx/src/agl.c new file mode 100644 index 00000000000..e7987a5fc3e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/agl.c @@ -0,0 +1,848 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/agl.c,v 1.32 2005/07/20 10:41:54 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * References: + * + * Unicode and Glyph Names, ver. 2.3., Adobe Solution Network + * http://partners.adobe.com/asn/tech/type/unicodegn.jsp + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "mfileio.h" +#include "pdfparse.h" + +/* Hash */ +#include "dpxutil.h" + +#include "dpxfile.h" + +#include "unicode.h" + +#include "agl.h" + +static int verbose = 0; + +void +agl_set_verbose (void) +{ + verbose++; +} + +static agl_name * +agl_new_name (void) +{ + agl_name *agln; + + agln = NEW(1, agl_name); + agln->name = NULL; + agln->suffix = NULL; + agln->n_components = 0; + agln->alternate = NULL; + + return agln; +} + +static void +agl_release_name (agl_name *agln) +{ + agl_name *next; + + while (agln) { + next = agln->alternate; + if (agln->name) + RELEASE(agln->name); + if (agln->suffix) + RELEASE(agln->suffix); + agln->name = NULL; + RELEASE(agln); + agln = next; + } +} + +char * +agl_chop_suffix (const char *glyphname, char **suffix) +{ + char *name, *p; + int len; + + ASSERT(glyphname && suffix); + + p = strchr(glyphname, '.'); + if (p) { + len = strlen(glyphname) - strlen(p); + if (len < 1) { + name = NULL; + *suffix = NEW(strlen(glyphname), char); + strcpy(*suffix, glyphname+1); + } else { + p++; + name = NEW(len + 1, char); + strncpy(name, glyphname, len); + name[len] = '\0'; + if (p[0] == '\0') { + *suffix = NULL; + } else { + *suffix = NEW(strlen(p) + 1, char); + strcpy(*suffix, p); + } + } + } else { + name = NEW(strlen(glyphname) + 1, char); + strcpy(name, glyphname); + *suffix = NULL; + } + + return name; +} + +static const char * const modifiers[] = { + "acute", "breve", "caron", "cedilla", "circumflex", + "dieresis", "dotaccent", "grave", "hungarumlaut", + "macron", "ogonek", "ring", "tilde", "commaaccent", + "slash", + + /* The following entries are not accent nor something + * but PS font may have those "small" version... + */ + "ampersand", "exclam", "exclamdown", + "question","questiondown", + NULL +}; + +static int +skip_capital (char **p, char *endptr) +{ + long slen = 0, len; + + len = (long) (endptr - (*p)); + + if (len >= 2 && + ((**p == 'A' && *(*p+1) == 'E') || + (**p == 'O' && *(*p+1) == 'E'))) { + *p += 2; + slen = 2; + } else if (len >= 3 && + **p == 'E' && + *(*p+1) == 't' && + *(*p+2) == 'h') { + *p += 3; + slen = 3; + } else if (len >= 5 && + **p == 'T' && + *(*p+1) == 'h' && + *(*p+2) == 'o' && + *(*p+3) == 'r' && + *(*p+4) == 'n') { + *p += 5; + slen = 5; + } else if (len >= 1 && + **p >= 'A' && **p <= 'Z') { + *p += 1; + slen = 1; + } + + return slen; +} + +static int +skip_modifier (char **p, char *endptr) +{ + long slen = 0, len; + int i; + + len = (long) (endptr - (*p)); + + for (i = 0; modifiers[i] != NULL; i++) { + if ((len >= strlen(modifiers[i]) && + !memcmp(*p, modifiers[i], len))) { + slen = strlen(modifiers[i]); + *p += slen; + break; + } + } + + return slen; +} + +static int +is_smallcap (const char *glyphname) +{ + long len, slen; + char *p, *endptr; + + if (!glyphname) + return 0; + + p = (char *) glyphname; + len = strlen(glyphname); + if (len < 6 || + strcmp(p + len - 5, "small")) + return 0; + + endptr = p + len - 5; + + len -= 5; + slen = skip_modifier(&p, endptr); + if (slen == len) + return 1; /* Acutesmall, Gravesmall, etc */ + else if (slen > 0) { /* ??? */ + return 0; + } + + len -= skip_capital(&p, endptr); + if (len == 0) { + return 1; /* Asmall, AEsmall, etc */ + } + + while (len > 0) { /* allow multiple accent */ + slen = skip_modifier(&p, endptr); + if (slen == 0) + return 0; + len -= slen; + } + + return 1; +} + +#define SUFFIX_LIST_MAX 16 +#define AGL_VAR_SMCP_IDX 0 +static struct { + const char *key; + const char *otl_tag; + const char *suffixes[SUFFIX_LIST_MAX]; +} var_list[] = { + {"small" , "smcp", {"sc", NULL}}, + {"swash" , "swsh", {NULL}}, + {"superior" , "sups", {NULL}}, + {"inferior" , "sinf", {NULL}}, + {"numerator" , "numr", {NULL}}, + {"denominator" , "dnom", {NULL}}, + {"oldstyle" , "onum", {NULL}}, + + /* The following only used by TeX, there are no + * corresponding OTL feat. tag. + */ + {"display" , NULL, {NULL}}, + {"text" , NULL, {NULL}}, + {"big" , NULL, {NULL}}, + {"bigg" , NULL, {NULL}}, + {"Big" , NULL, {NULL}}, + {"Bigg" , NULL, {NULL}}, + {NULL, NULL, {NULL}} +}; + +const char * +agl_suffix_to_otltag (const char *suffix) +{ + int i, j; + + for (i = 0; var_list[i].key; i++) { + for (j = 0; var_list[i].suffixes[j]; j++) { + if (!strcmp(suffix, var_list[i].suffixes[j])) + return var_list[i].otl_tag; + } + if (!strcmp(suffix, var_list[i].key)) + return var_list[i].otl_tag; + if (var_list[i].otl_tag && + !strcmp(suffix, var_list[i].otl_tag)) + return var_list[i].otl_tag; + } + + return NULL; +} + +static int +agl_guess_name (const char *glyphname) +{ + int i, len; + + if (is_smallcap(glyphname)) + return AGL_VAR_SMCP_IDX; + + len = strlen(glyphname); + for (i = 1; var_list[i].key != NULL; i++) { + if (len > strlen(var_list[i].key) && + !strcmp(glyphname+len-strlen(var_list[i].key), var_list[i].key) + ) { + return i; + } + } + + return -1; +} + +static agl_name * +agl_normalized_name (char *glyphname) +{ + agl_name *agln; + char *suffix; + int i, n; + + if (!glyphname) + return NULL; + + agln = agl_new_name(); + suffix = strchr(glyphname, '.'); + if (suffix) { + n = strlen(glyphname) - strlen(suffix); + if (suffix[1] != '\0') { + agln->suffix = NEW(strlen(suffix), char); + strcpy(agln->suffix, suffix+1); + } + agln->name = NEW(n+1, char); + memcpy(agln->name, glyphname, n); + agln->name[n] = '\0'; + } else if (is_smallcap(glyphname)) { + n = strlen(glyphname) - 5; + agln->suffix = NEW(3, char); + strcpy(agln->suffix, "sc"); + agln->name = NEW(n+1, char); + for (i = 0; i < n; i++) { + agln->name[i] = isupper(glyphname[i]) ? + (glyphname[i] + 32) : glyphname[i]; + } + agln->name[n] = '\0'; + } else { + int var_idx; + +#define SET_STRING(p,s) do {\ + (p) = NEW(strlen((s))+1, char);\ + strcpy((p),(s));\ +} while (0) + var_idx = agl_guess_name(glyphname); + if (var_idx < 0 || + !var_list[var_idx].key) { + n = strlen(glyphname); + } else { + n = strlen(glyphname) - strlen(var_list[var_idx].key); + if (var_list[var_idx].suffixes[0]) + SET_STRING(agln->suffix, var_list[var_idx].suffixes[0]); + else { + SET_STRING(agln->suffix, var_list[var_idx].key); + } + } + agln->name = NEW(n+1, char); + memcpy(agln->name, glyphname, n); + agln->name[n] = '\0'; + } + + return agln; +} + +static struct ht_table aglmap; + +static void +agl_load_standard_names() +{ + char** pline = &agl_standard_names[0]; + while (**pline != 0) { + agl_load_line(*pline, *pline + strlen(*pline)); + ++pline; + } +} + +void +agl_init_map (void) +{ + ht_init_table(&aglmap); + agl_load_listfile(AGL_EXTRA_LISTFILE, 0); +#if 0 /* JK: use built-in list of standard names rather than requiring separate file */ + if (agl_load_listfile(AGL_DEFAULT_LISTFILE, 0) < 0) { + WARN("Failed to load AGL file \"%s\"...", AGL_DEFAULT_LISTFILE); + } +#else + agl_load_standard_names(); +#endif +} + +static void CDECL +hval_free (void *hval) +{ + agl_release_name((struct agl_name *) hval); +} + +void +agl_close_map (void) +{ + ht_clear_table(&aglmap, hval_free); +} + +int +agl_load_line(char* p, char* endptr) +{ + char *wbuf = p; + agl_name *agln, *duplicate; + char *nextptr, *name; + int n_unicodes, i; + long unicodes[AGL_MAX_UNICODES]; + + nextptr = strchr(p, ';'); + if (!nextptr || nextptr == p) + return 0; + + name = parse_ident(&p, nextptr); + + skip_white(&p, endptr); + if (!name || p[0] != ';') { + WARN("Invalid AGL entry: %s", wbuf); + if (name) + RELEASE(name); + return 0; + } + + p++; + skip_white(&p, endptr); + + n_unicodes = 0; + while (p < endptr && + ((p[0] >= '0' && p[0] <= '9') || + (p[0] >= 'A' && p[0] <= 'F')) + ) { + + if (n_unicodes >= AGL_MAX_UNICODES) { + WARN("Too many Unicode values"); + break; + } + unicodes[n_unicodes++] = strtol(p, &nextptr, 16); + + p = nextptr; + skip_white(&p, endptr); + } + + if (n_unicodes == 0) { + WARN("AGL entry ignored (no mapping): %s", wbuf); + RELEASE(name); + return 0; + } + + agln = agl_normalized_name(name); + agln->n_components = n_unicodes; + for (i = 0; i < n_unicodes; i++) { + agln->unicodes[i] = unicodes[i]; + } + + duplicate = ht_lookup_table(&aglmap, name, strlen(name)); + if (!duplicate) + ht_append_table(&aglmap, name, strlen(name), agln); + else { + while (duplicate->alternate) + duplicate = duplicate->alternate; + duplicate->alternate = agln; + } + + if (verbose > 3) { + if (agln->suffix) + MESG("agl: %s [%s.%s] -->", name, agln->name, agln->suffix); + else + MESG("agl: %s [%s] -->", name, agln->name); + for (i = 0; i < agln->n_components; i++) { + if (agln->unicodes[i] > 0xffff) { + MESG(" U+%06X", agln->unicodes[i]); + } else { + MESG(" U+%04X", agln->unicodes[i]); + } + } + MESG("\n"); + } + + RELEASE(name); + return 1; +} + + +#define WBUF_SIZE 1024 + +int +agl_load_listfile (const char *filename, int format) /* format unused. */ +{ + int count = 0; + char *p, *endptr; + char wbuf[WBUF_SIZE]; + FILE *fp; + + if (!filename) + return -1; + + fp = DPXFOPEN(filename, DPX_RES_TYPE_AGL); + if (!fp) { + return -1; + } + + if (verbose) + MESG("= endptr) + continue; + + count += agl_load_line(p, endptr); + } + DPXFCLOSE(fp); + + if (verbose) + MESG(">"); + + return count; +} + +agl_name * +agl_lookup_list (const char *glyphname) +{ + agl_name *agln; + + if (!glyphname) + return NULL; + + agln = ht_lookup_table(&aglmap, glyphname, strlen(glyphname)); + + return agln; +} + +int +agl_name_is_unicode (const char *glyphname) +{ + char c, *suffix; + int i, len; + + if (!glyphname) + return 0; + + suffix = strchr(glyphname, '.'); + len = (int) (suffix ? suffix - glyphname : strlen(glyphname)); + /* + * uni02ac is invalid glyph name and mapped to th empty string. + */ + if (len >= 7 && (len - 3) % 4 == 0 && + !strncmp(glyphname, "uni", 3)) { + c = glyphname[3]; + /* + * Check if the 4th character is uppercase hexadecimal digit. + * "union" should not be treated as Unicode glyph name. + */ + if (isdigit(c) || (c >= 'A' && c <= 'F')) + return 1; + else + return 0; + } else if (len <= 7 && len >= 5 && + glyphname[0] == 'u') { + for (i = 1; i < len - 1; i++) { + c = glyphname[i]; + if (!isdigit(c) && (c < 'A' || c > 'F')) + return 0; + } + return 1; + } + + return 0; +} + +long +agl_name_convert_unicode (const char *glyphname) +{ + long ucv = -1; + char *p, *e; + + if (!agl_name_is_unicode(glyphname)) + return -1; + + if (strlen(glyphname) > 7 && *(glyphname+7) != '.') { + WARN("Mapping to multiple Unicode characters not supported."); + /* JK: don't return directly from here; + use the first of the Unicode characters, rather than nothing + return -1; + */ + } + + if (glyphname[1] == 'n') { + p = (char *) (glyphname + 3); + e = p + 4; + } + else { + p = (char *) (glyphname + 1); + e = p + 6; + } + ucv = 0; + while (*p != '\0' && *p != '.' && p < e) { + if (!isdigit(*p) && (*p < 'A' || *p > 'F')) { + WARN("Invalid char %c in Unicode glyph name %s.", *p, glyphname); + return -1; + } + ucv <<= 4; + ucv += isdigit(*p) ? *p - '0' : *p - 'A' + 10; + p++; + } + + if (!UC_is_valid(ucv)) { + if (ucv < 0x10000) { + WARN("Invalid Unicode code value U+%04X.", ucv); + } else { + WARN("Invalid Unicode code value U+%06X.", ucv); + } + ucv = -1; + } + + return ucv; +} + + + +static long +xtol (const char *start, int len) +{ + long v = 0; + + while (len-- > 0) { + v <<= 4; + if (isdigit(*start)) { + v += *start - '0'; + } else if (*start >= 'A' && *start <= 'F') { + v += *start - 'A' + 10; + } else { + return -1; + } + start++; + } + + return v; +} + +#define IS_PUA(u) (((u) >= 0x00E000L && (u) <= 0x00F8FFL) || \ + ((u) >= 0x0F0000L && (u) <= 0x0FFFFDL) || \ + ((u) >= 0x100000L && (u) <= 0x10FFFDL) \ +) + +static long +put_unicode_glyph (const char *name, + unsigned char **dstpp, unsigned char *limptr) +{ + char *p; + long len = 0, ucv; + + p = (char *) name; + ucv = 0; + + if (p[1] != 'n') { + p += 1; + ucv = xtol(p, strlen(p)); + len += UC_sput_UTF16BE (ucv, dstpp, limptr); + } else { + p += 3; + while (*p != '\0') { + ucv = xtol(p, 4); + len += UC_sput_UTF16BE (ucv, dstpp, limptr); + p += 4; + } + } + + return len; +} + +long +agl_sput_UTF16BE (const char *glyphstr, + unsigned char **dstpp, unsigned char *limptr, + int *fail_count) +{ + long len = 0; + int count = 0; + char *p, *endptr; + + ASSERT(glyphstr && dstpp); + + p = (char *) glyphstr; + endptr = strchr(p, '.'); + if (!endptr) + endptr = p + strlen(p); + + while (p < endptr) { + char *name, *delim; + long sub_len; + int i; + agl_name *agln0, *agln1 = NULL; + + delim = strchr(p, '_'); + if (delim == p) { + /* + * Glyph names starting with a underscore or two subsequent + * underscore in glyph name not allowed? + */ + WARN("Invalid glyph name component in \"%s\".", glyphstr); + count++; + if (fail_count) + *fail_count = count; + return len; /* Cannot continue */ + } else if (!delim || delim > endptr) { + delim = endptr; + } + sub_len = (long) (delim - p); + + name = NEW(sub_len+1, char); + memcpy(name, p, sub_len); + name[sub_len] = '\0'; + + if (agl_name_is_unicode(name)) { + sub_len = put_unicode_glyph(name, dstpp, limptr); + if (sub_len > 0) + len += sub_len; + else { + count++; + } + } else { + agln1 = agl_lookup_list(name); + if (!agln1 || (agln1->n_components == 1 && + IS_PUA(agln1->unicodes[0]))) { + agln0 = agl_normalized_name(name); + if (agln0) { + if (verbose > 1 && agln0->suffix) { + WARN("agl: fix %s --> %s.%s", + name, agln0->name, agln0->suffix); + } + agln1 = agl_lookup_list(agln0->name); + agl_release_name(agln0); + } + } + if (agln1) { + for (i = 0; i < agln1->n_components; i++) { + len += UC_sput_UTF16BE (agln1->unicodes[i], dstpp, limptr); + } + } else { + if (verbose) { + WARN("No Unicode mapping for glyph name \"%s\" found.", name); + } + count++; + } + } + RELEASE(name); + p = delim + 1; + } + + if (fail_count) + *fail_count = count; + return len; +} + +int +agl_get_unicodes (const char *glyphstr, + long *unicodes, int max_unicodes) +{ + int count = 0; + char *p, *endptr; + + p = (char *) glyphstr; + endptr = strchr(p, '.'); + if (!endptr) + endptr = p + strlen(p); + + while (p < endptr) { + char *name, *delim; + long sub_len; + int i; + agl_name *agln0, *agln1 = NULL; + + delim = strchr(p, '_'); + if (delim == p) { + /* + * Glyph names starting with a underscore or two subsequent + * underscore in glyph name not allowed? + */ + WARN("Invalid glyph name component in \"%s\".", glyphstr); + return -1; /* Cannot continue */ + } else if (!delim || delim > endptr) { + delim = endptr; + } + sub_len = (long) (delim - p); + + name = NEW(sub_len+1, char); + memcpy(name, p, sub_len); + name[sub_len] = '\0'; + + if (agl_name_is_unicode(name)) { + p = name; + if (p[1] != 'n') { /* uXXXXXXXX */ + if (count >= max_unicodes) { + RELEASE(name); + return -1; + } + p++; + unicodes[count++] = xtol(p, strlen(p)); + } else { + p += 3; + while (*p != '\0') { + if (count >= max_unicodes) { + RELEASE(name); + return -1; + } + unicodes[count++] = xtol(p, 4); + p += 4; + } + } + } else { + agln1 = agl_lookup_list(name); + if (!agln1 || (agln1->n_components == 1 && + IS_PUA(agln1->unicodes[0]))) { + agln0 = agl_normalized_name(name); + if (agln0) { + if (verbose > 1 && agln0->suffix) { + WARN("agl: fix %s --> %s.%s", + name, agln0->name, agln0->suffix); + } + agln1 = agl_lookup_list(agln0->name); + agl_release_name(agln0); + } + } + if (agln1) { + if (count + agln1->n_components > max_unicodes) { + RELEASE(name); + return -1; + } + for (i = 0; i < agln1->n_components; i++) { + unicodes[count++] = agln1->unicodes[i]; + } + } else { + if (verbose > 1) + WARN("No Unicode mapping for glyph name \"%s\" found.", name); + RELEASE(name); + return -1; + } + } + RELEASE(name); + p = delim + 1; + } + + return count; +} diff --git a/Build/source/texk/xdvipdfmx/src/agl.h b/Build/source/texk/xdvipdfmx/src/agl.h new file mode 100644 index 00000000000..d770f9f7d72 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/agl.h @@ -0,0 +1,68 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/agl.h,v 1.17 2005/07/07 08:00:31 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _AGL_H_ +#define _AGL_H_ + +#define AGL_DEFAULT_LISTFILE "glyphlist.txt" +#define AGL_EXTRA_LISTFILE "texglyphlist.txt" + +extern char* agl_standard_names[]; + +#define AGL_MAX_UNICODES 16 +struct agl_name { + char *name; + char *suffix; + int n_components; + long unicodes[AGL_MAX_UNICODES]; + struct agl_name *alternate; +}; +typedef struct agl_name agl_name; + +extern char *agl_chop_suffix (const char *glyphname, char **suffix); + +extern long agl_sput_UTF16BE (const char *name, + unsigned char **dstpp, + unsigned char *limptr, int *num_fails); + +extern int agl_get_unicodes (const char *glyphstr, + long *unicodes, int max_uncodes); + +extern int agl_name_is_unicode (const char *glyphname); +extern long agl_name_convert_unicode (const char *glyphname); + +extern const char *agl_suffix_to_otltag (const char *suffix); + +extern agl_name *agl_lookup_list (const char *glyphname); +extern int agl_load_listfile (const char *filename, int format); + +#if 0 +extern int agl_select_listfile (const char *mapfile); +#endif + +extern void agl_set_verbose (void); +extern void agl_init_map (void); +extern void agl_close_map (void); + +#endif /* _AGL_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/agl_standard.c b/Build/source/texk/xdvipdfmx/src/agl_standard.c new file mode 100644 index 00000000000..a7e77a78d93 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/agl_standard.c @@ -0,0 +1,5895 @@ +#include "agl.h" + +char* agl_standard_names[] = { + "spacehackarabic;0020", + "visiblespace;0020", + "space;0020", + "exclam;0021", + "quotedbl;0022", + "numbersign;0023", + "dollar;0024", + "percent;0025", + "ampersand;0026", + "quotesingle;0027", + "parenleft;0028", + "parenright;0029", + "asterisk;002A", + "plus;002B", + "comma;002C", + "hyphen;002D", + "period;002E", + "slash;002F", + "zero;0030", + "one;0031", + "two;0032", + "three;0033", + "four;0034", + "five;0035", + "six;0036", + "seven;0037", + "eight;0038", + "nine;0039", + "colon;003A", + "semicolon;003B", + "less;003C", + "equal;003D", + "greater;003E", + "question;003F", + "at;0040", + "A;0041", + "B;0042", + "C;0043", + "D;0044", + "E;0045", + "F;0046", + "G;0047", + "H;0048", + "I;0049", + "J;004A", + "K;004B", + "L;004C", + "M;004D", + "N;004E", + "O;004F", + "P;0050", + "Q;0051", + "R;0052", + "S;0053", + "T;0054", + "U;0055", + "V;0056", + "W;0057", + "X;0058", + "Y;0059", + "Z;005A", + "bracketleft;005B", + "backslash;005C", + "bracketright;005D", + "asciicircum;005E", + "underscore;005F", + "grave;0060", + "a;0061", + "b;0062", + "c;0063", + "d;0064", + "e;0065", + "f;0066", + "g;0067", + "h;0068", + "i;0069", + "j;006A", + "k;006B", + "l;006C", + "m;006D", + "n;006E", + "o;006F", + "p;0070", + "q;0071", + "r;0072", + "s;0073", + "t;0074", + "u;0075", + "v;0076", + "w;0077", + "x;0078", + "y;0079", + "z;007A", + "braceleft;007B", + "verticalbar;007C", + "bar;007C", + "braceright;007D", + "asciitilde;007E", + "controlDEL;007F", + "nonbreakingspace;00A0", + "space_;00A0", + "nbspace;00A0", + "exclamdown;00A1", + "cent;00A2", + "sterling;00A3", + "currency;00A4", + "yen;00A5", + "brokenbar;00A6", + "section;00A7", + "dieresis;00A8", + "copyright;00A9", + "ordfeminine;00AA", + "guillemotleft;00AB", + "logicalnot;00AC", + "dash;00AD", + "hyphen_;00AD", + "sfthyphen;00AD", + "softhyphen;00AD", + "registered;00AE", + "overscore;00AF", + "macron;00AF", + "degree;00B0", + "plusminus;00B1", + "two.superior;00B2", + "two.sups;00B2", + "twosuperior;00B2", + "three.superior;00B3", + "three.sups;00B3", + "threesuperior;00B3", + "acute;00B4", + "micro;00B5", + "mu1;00B5", + "mu;00B5", + "paragraph;00B6", + "middot;00B7", + "periodcentered;00B7", + "cedilla;00B8", + "one.superior;00B9", + "one.sups;00B9", + "onesuperior;00B9", + "ordmasculine;00BA", + "guillemotright;00BB", + "onequarter;00BC", + "onehalf;00BD", + "threequarters;00BE", + "questiondown;00BF", + "Agrave;00C0", + "Aacute;00C1", + "Acircumflex;00C2", + "Atilde;00C3", + "Adieresis;00C4", + "Aring;00C5", + "AE;00C6", + "Ccedilla;00C7", + "Egrave;00C8", + "Eacute;00C9", + "Ecircumflex;00CA", + "Edieresis;00CB", + "Igrave;00CC", + "Iacute;00CD", + "Icircumflex;00CE", + "Idieresis;00CF", + "Eth;00D0", + "Ntilde;00D1", + "Ograve;00D2", + "Oacute;00D3", + "Ocircumflex;00D4", + "Otilde;00D5", + "Odieresis;00D6", + "multiply;00D7", + "Oslash;00D8", + "Ugrave;00D9", + "Uacute;00DA", + "Ucircumflex;00DB", + "Udieresis;00DC", + "Yacute;00DD", + "Thorn;00DE", + "Germandbls;00DF", + "SS;00DF", + "germandbls;00DF", + "agrave;00E0", + "aacute;00E1", + "acircumflex;00E2", + "atilde;00E3", + "adieresis;00E4", + "aring;00E5", + "ae;00E6", + "ccedilla;00E7", + "egrave;00E8", + "eacute;00E9", + "ecircumflex;00EA", + "edieresis;00EB", + "igrave;00EC", + "iacute;00ED", + "icircumflex;00EE", + "idieresis;00EF", + "eth;00F0", + "ntilde;00F1", + "ograve;00F2", + "oacute;00F3", + "ocircumflex;00F4", + "otilde;00F5", + "odieresis;00F6", + "divide;00F7", + "oslash;00F8", + "ugrave;00F9", + "uacute;00FA", + "ucircumflex;00FB", + "udieresis;00FC", + "yacute;00FD", + "thorn;00FE", + "ydieresis;00FF", + "Amacron;0100", + "amacron;0101", + "Abreve;0102", + "abreve;0103", + "Aogonek;0104", + "aogonek;0105", + "Cacute;0106", + "cacute;0107", + "Ccircumflex;0108", + "ccircumflex;0109", + "Cdot;010A", + "Cdotaccent;010A", + "cdot;010B", + "cdotaccent;010B", + "Ccaron;010C", + "ccaron;010D", + "Dcaron;010E", + "dcaron;010F", + "Dmacron;0110", + "Dslash;0110", + "Dcroat;0110", + "dmacron;0111", + "dslash;0111", + "dcroat;0111", + "Emacron;0112", + "emacron;0113", + "Ebreve;0114", + "ebreve;0115", + "Edot;0116", + "Edotaccent;0116", + "edot;0117", + "edotaccent;0117", + "Eogonek;0118", + "eogonek;0119", + "Ecaron;011A", + "ecaron;011B", + "Gcircumflex;011C", + "gcircumflex;011D", + "Gbreve;011E", + "gbreve;011F", + "Gdot;0120", + "Gdotaccent;0120", + "gdot;0121", + "gdotaccent;0121", + "Gcedilla;0122", + "Gcommaaccent;0122", + "gcedilla;0123", + "gcommaaccent;0123", + "Hcircumflex;0124", + "hcircumflex;0125", + "Hbar;0126", + "hbar;0127", + "Itilde;0128", + "itilde;0129", + "Imacron;012A", + "imacron;012B", + "Ibreve;012C", + "ibreve;012D", + "Iogonek;012E", + "iogonek;012F", + "Idot;0130", + "Idotaccent;0130", + "dotlessi;0131", + "I_J;0132", + "IJ;0132", + "i_j;0133", + "ij;0133", + "Jcircumflex;0134", + "jcircumflex;0135", + "Kcedilla;0136", + "Kcommaaccent;0136", + "kcedilla;0137", + "kcommaaccent;0137", + "kra;0138", + "kgreenlandic;0138", + "Lacute;0139", + "lacute;013A", + "Lcedilla;013B", + "Lcommaaccent;013B", + "lcedilla;013C", + "lcommaaccent;013C", + "Lcaron;013D", + "lcaron;013E", + "Ldotaccent;013F", + "Ldot;013F", + "ldotaccent;0140", + "ldot;0140", + "Lslash;0141", + "lslash;0142", + "Nacute;0143", + "nacute;0144", + "Ncedilla;0145", + "Ncommaaccent;0145", + "ncedilla;0146", + "ncommaaccent;0146", + "Ncaron;0147", + "ncaron;0148", + "quoten;0149", + "quoterightn;0149", + "napostrophe;0149", + "Eng;014A", + "eng;014B", + "Omacron;014C", + "omacron;014D", + "Obreve;014E", + "obreve;014F", + "Odblacute;0150", + "Ohungarumlaut;0150", + "odblacute;0151", + "ohungarumlaut;0151", + "OE;0152", + "oe;0153", + "Racute;0154", + "racute;0155", + "Rcedilla;0156", + "Rcommaaccent;0156", + "rcedilla;0157", + "rcommaaccent;0157", + "Rcaron;0158", + "rcaron;0159", + "Sacute;015A", + "sacute;015B", + "Scircumflex;015C", + "scircumflex;015D", + "Scedilla;015E", + "scedilla;015F", + "Scaron;0160", + "scaron;0161", + "Tcedilla;0162", + "Tcommaaccent;0162", + "tcedilla;0163", + "tcommaaccent;0163", + "Tcaron;0164", + "tcaron;0165", + "Tbar;0166", + "tbar;0167", + "Utilde;0168", + "utilde;0169", + "Umacron;016A", + "umacron;016B", + "Ubreve;016C", + "ubreve;016D", + "Uring;016E", + "uring;016F", + "Udblacute;0170", + "Uhungarumlaut;0170", + "udblacute;0171", + "uhungarumlaut;0171", + "Uogonek;0172", + "uogonek;0173", + "Wcircumflex;0174", + "wcircumflex;0175", + "Ycircumflex;0176", + "ycircumflex;0177", + "Ydieresis;0178", + "Zacute;0179", + "zacute;017A", + "Zdot;017B", + "Zdotaccent;017B", + "zdot;017C", + "zdotaccent;017C", + "Zcaron;017D", + "zcaron;017E", + "slong;017F", + "longs;017F", + "bbar;0180", + "bstroke;0180", + "Bhook;0181", + "Btopbar;0182", + "btopbar;0183", + "Tonesix;0184", + "tonesix;0185", + "Oopen;0186", + "Chook;0187", + "chook;0188", + "Dafrican;0189", + "Dbar1;0189", + "Dhook;018A", + "Dtopbar;018B", + "dtopbar;018C", + "deltaturn;018D", + "deltaturned;018D", + "Ereversed;018E", + "Eturn;018E", + "Schwa;018F", + "Eopen;0190", + "Epsilon1;0190", + "Fhook;0191", + "fscript;0192", + "florin;0192", + "Ghook;0193", + "Gamma1;0194", + "Gammaafrican;0194", + "hv;0195", + "Iota1;0196", + "Iotaafrican;0196", + "Ibar;0197", + "Istroke;0197", + "Khook;0198", + "khook;0199", + "lbar;019A", + "lambdabar;019B", + "lambdastroke;019B", + "Mturned;019C", + "mcapturn;019C", + "Nhook;019D", + "Nhookleft;019D", + "nleg;019E", + "nlegrightlong;019E", + "Obar;019F", + "Ocenteredtilde;019F", + "Ohorn;01A0", + "ohorn;01A1", + "OI;01A2", + "Oi;01A2", + "oi;01A3", + "Phook;01A4", + "phook;01A5", + "YR;01A6", + "yr;01A6", + "Tonetwo;01A7", + "tonetwo;01A8", + "Esh;01A9", + "eshlooprev;01AA", + "eshreversedloop;01AA", + "tpalatalhook;01AB", + "Thook;01AC", + "thook;01AD", + "Tretroflexhook;01AE", + "Trthook;01AE", + "Uhorn;01AF", + "uhorn;01B0", + "Upsilon2;01B1", + "Upsilonafrican;01B1", + "Vcursive;01B2", + "Vhook;01B2", + "Yhook;01B3", + "Zbar;01B5", + "Zstroke;01B5", + "zbar;01B6", + "zstroke;01B6", + "Ezh;01B7", + "Yogh;01B7", + "Ezhreversed;01B8", + "Yoghrev;01B8", + "ezhreversed;01B9", + "yoghrev;01B9", + "ezhtail;01BA", + "yoghtail;01BA", + "2bar;01BB", + "twostroke;01BB", + "Tonefive;01BC", + "tonefive;01BD", + "glottalinvertedstroke;01BE", + "glottalstopbarinv;01BE", + "wynn;01BF", + "clickdental;01C0", + "pipe;01C0", + "clicklateral;01C1", + "pipedbl;01C1", + "clickalveolar;01C2", + "pipedblbar;01C2", + "clickretroflex;01C3", + "exclam1;01C3", + "DZcaron;01C4", + "DZhacek;01C4", + "Dzcaron;01C5", + "Dzhacek;01C5", + "dzcaron;01C6", + "dzhacek;01C6", + "LJ;01C7", + "L_J;01C7", + "L_j;01C8", + "Lj;01C8", + "l_j;01C9", + "lj;01C9", + "NJ;01CA", + "N_J;01CA", + "N_j;01CB", + "Nj;01CB", + "n_j;01CC", + "nj;01CC", + "Acaron;01CD", + "Ahacek;01CD", + "acaron;01CE", + "ahacek;01CE", + "Icaron;01CF", + "Ihacek;01CF", + "icaron;01D0", + "ihacek;01D0", + "Ocaron;01D1", + "Ohacek;01D1", + "ocaron;01D2", + "ohacek;01D2", + "Ucaron;01D3", + "Uhacek;01D3", + "ucaron;01D4", + "uhacek;01D4", + "Udieresismacron;01D5", + "udieresismacron;01D6", + "Udieresisacute;01D7", + "udieresisacute;01D8", + "Udieresiscaron;01D9", + "Udieresishacek;01D9", + "udieresiscaron;01DA", + "udieresishacek;01DA", + "Udieresisgrave;01DB", + "udieresisgrave;01DC", + "eturn;01DD", + "eturned;01DD", + "Adieresismacron;01DE", + "adieresismacron;01DF", + "Adotmacron;01E0", + "adotmacron;01E1", + "AEmacron;01E2", + "aemacron;01E3", + "Gbar;01E4", + "Gstroke;01E4", + "gbar;01E5", + "gstroke;01E5", + "Ghacek;01E6", + "Gcaron;01E6", + "ghacek;01E7", + "gcaron;01E7", + "Kcaron;01E8", + "Khacek;01E8", + "kcaron;01E9", + "khacek;01E9", + "Oogonek;01EA", + "oogonek;01EB", + "Oogonekmacron;01EC", + "oogonekmacron;01ED", + "Ezhcaron;01EE", + "Yoghhacek;01EE", + "ezhcaron;01EF", + "yoghhacek;01EF", + "jcaron;01F0", + "jhacek;01F0", + "DZ;01F1", + "Dz;01F2", + "dz;01F3", + "Gacute;01F4", + "gacute;01F5", + "Aacutering;01FA", + "Aringacute;01FA", + "aacutering;01FB", + "aringacute;01FB", + "AEacute;01FC", + "aeacute;01FD", + "Ostrokeacute;01FE", + "Oslashacute;01FE", + "ostrokeacute;01FF", + "oslashacute;01FF", + "Adblgrave;0200", + "adblgrave;0201", + "Ainvertedbreve;0202", + "ainvertedbreve;0203", + "Edblgrave;0204", + "edblgrave;0205", + "Einvertedbreve;0206", + "einvertedbreve;0207", + "Idblgrave;0208", + "idblgrave;0209", + "Iinvertedbreve;020A", + "iinvertedbreve;020B", + "Odblgrave;020C", + "odblgrave;020D", + "Oinvertedbreve;020E", + "oinvertedbreve;020F", + "Rdblgrave;0210", + "rdblgrave;0211", + "Rinvertedbreve;0212", + "rinvertedbreve;0213", + "Udblgrave;0214", + "udblgrave;0215", + "Uinvertedbreve;0216", + "uinvertedbreve;0217", + "Scommaaccent;0218", + "scommaaccent;0219", + "dotlessj;0237", + "aturn;0250", + "aturned;0250", + "ascript;0251", + "ascriptturn;0252", + "ascriptturned;0252", + "bhook;0253", + "cturn;0254", + "oopen;0254", + "ccurl;0255", + "drthook;0256", + "dtail;0256", + "dhook;0257", + "erev;0258", + "ereversed;0258", + "schwa;0259", + "schwahook;025A", + "eopen;025B", + "epsilon1;025B", + "eopenreversed;025C", + "epsilon1rev;025C", + "eopenreversedhook;025D", + "epsilon1revhook;025D", + "eopenreversedclosed;025E", + "epsilon1revclosed;025E", + "jdotlessbar;025F", + "jdotlessstroke;025F", + "ghook;0260", + "gcursive;0261", + "gscript;0261", + "Gsmallcap;0262", + "gamma1;0263", + "gammalatinsmall;0263", + "babygamma;0264", + "ramshorn;0264", + "hturn;0265", + "hturned;0265", + "hhook;0266", + "henghook;0267", + "ibar;0268", + "istroke;0268", + "iota1;0269", + "iotalatin;0269", + "Ismallcap;026A", + "lmiddletilde;026B", + "lmidtilde;026B", + "lbelt;026C", + "lhookretroflex;026D", + "lrthook;026D", + "lezh;026E", + "lyogh;026E", + "mturn;026F", + "mturned;026F", + "mlonglegturned;0270", + "mturndescend;0270", + "mhook;0271", + "nhookleft;0272", + "nlftlfthook;0272", + "nhookretroflex;0273", + "nrthook;0273", + "Nsmallcap;0274", + "obar;0275", + "obarred;0275", + "OEsmallcap;0276", + "omegaclosed;0277", + "omegalatinclosed;0277", + "philatin;0278", + "rturn;0279", + "rturned;0279", + "rlonglegturned;027A", + "rturnascend;027A", + "rhookturned;027B", + "rturnrthook;027B", + "rdescend;027C", + "rlongleg;027C", + "rhook;027D", + "rrthook;027D", + "rfishhook;027E", + "rfishhookrev;027F", + "rfishhookreversed;027F", + "Rsmallcap;0280", + "Rsmallcapinv;0281", + "Rsmallinverted;0281", + "shook;0282", + "srthook;0282", + "esh;0283", + "dotlessjstrokehook;0284", + "jhookdblbar;0284", + "eshshortrev;0285", + "eshsquatreversed;0285", + "eshcurl;0286", + "tturn;0287", + "tturned;0287", + "tretroflexhook;0288", + "trthook;0288", + "ubar;0289", + "upsilonlatin;028A", + "vhook;028B", + "vscript;028B", + "vturn;028C", + "vturned;028C", + "wturn;028D", + "wturned;028D", + "yturn;028E", + "yturned;028E", + "Ysmallcap;028F", + "zretroflexhook;0290", + "zrthook;0290", + "zcurl;0291", + "ezh;0292", + "yogh;0292", + "ezhcurl;0293", + "yoghcurl;0293", + "glottalstop;0294", + "glottalstopreversed;0295", + "glottalstoprevinv;0295", + "glottalstopinv;0296", + "glottalstopinverted;0296", + "cstretch;0297", + "cstretched;0297", + "bilabialclick;0298", + "Bsmallcap;0299", + "eopenclosed;029A", + "epsilonclosed;029A", + "Gsmallcaphook;029B", + "Gsmallhook;029B", + "Hsmallcap;029C", + "jcrossedtail;029D", + "jcrosstail;029D", + "kturn;029E", + "kturned;029E", + "Lsmallcap;029F", + "qhook;02A0", + "glottalstopbar;02A1", + "glottalstopstroke;02A1", + "glottalstopbarrev;02A2", + "glottalstopstrokereversed;02A2", + "dzaltone;02A3", + "dezh;02A4", + "dyogh;02A4", + "dzcurl;02A5", + "ts;02A6", + "tesh;02A7", + "tccurl;02A8", + "hsuper;02B0", + "hsuperior;02B0", + "hhooksuper;02B1", + "hhooksuperior;02B1", + "jsuper;02B2", + "jsuperior;02B2", + "rsuper;02B3", + "rturnedsuperior;02B4", + "rturnsuper;02B4", + "rturnrthooksuper;02B5", + "Rsmallinvertedsuperior;02B6", + "Rturnsuper;02B6", + "wsuper;02B7", + "wsuperior;02B7", + "ysuper;02B8", + "ysuperior;02B8", + "primemod;02B9", + "dblprimemod;02BA", + "primedblmod;02BA", + "commaturnedmod;02BB", + "doublevav;02BB", + "quoteleftmod;02BB", + "apostrophe;02BC", + "apostrophemod;02BC", + "afii57929;02BC", + "apostropherev;02BD", + "commareversedmod;02BD", + "doubleyod;02BD", + "afii64937;02BD", + "ringhalfright;02BE", + "ringrighthalfsuper;02BE", + "ringhalfleft;02BF", + "ringlefthalfsuper;02BF", + "glottal;02C0", + "glottalstopmod;02C0", + "glottalrev;02C1", + "glottalstopreversedmod;02C1", + "vavshindot;02C1", + "arrowheadleftmod;02C2", + "finalkafsheva;02C2", + "fronted;02C2", + "arrowheadrightmod;02C3", + "backed;02C3", + "finalkafqamats;02C3", + "arrowheadupmod;02C4", + "lamedholam;02C4", + "raised;02C4", + "arrowheaddownmod;02C5", + "lamedholamdagesh;02C5", + "lowered;02C5", + "altayin;02C6", + "circumflex;02C6", + "caron;02C7", + "linevert;02C8", + "verticallinemod;02C8", + "firsttonechinese;02C9", + "macron_;02C9", + "acute1;02CA", + "secondtonechinese;02CA", + "alefpatah;02CB", + "fourthtonechinese;02CB", + "grave1;02CB", + "alefqamats;02CC", + "linevertsub;02CC", + "verticallinelowmod;02CC", + "alefmapiq;02CD", + "macronlowmod;02CD", + "macronsub;02CD", + "gravelowmod;02CE", + "gravesub;02CE", + "acutelowmod;02CF", + "acutesub;02CF", + "colontriangularmod;02D0", + "length;02D0", + "colontriangularhalfmod;02D1", + "halflength;02D1", + "ringhalfrightcentered;02D2", + "ringrighthalfcenter;02D2", + "ringhalfleftcentered;02D3", + "ringlefthalfsup;02D3", + "tackupmid;02D4", + "uptackmod;02D4", + "downtackmod;02D5", + "tackdownmid;02D5", + "plusmod;02D6", + "minusmod;02D7", + "breve;02D8", + "dotaccent;02D9", + "ring;02DA", + "ogonek;02DB", + "finalpedagesh;02DC", + "ilde;02DC", + "tilde;02DC", + "hungarumlaut;02DD", + "rhotichook;02DE", + "rhotichookmod;02DE", + "gammasuper;02E0", + "gammasuperior;02E0", + "reshdagesh;02E0", + "lsuper;02E1", + "ssuper;02E2", + "xsuper;02E3", + "xsuperior;02E3", + "betrafe;02E4", + "glottalrevsuper;02E4", + "glottalstopreversedsuperior;02E4", + "kafrafe;02E5", + "tonebarextrahighmod;02E5", + "toneextrahigh;02E5", + "perafe;02E6", + "tonebarhighmod;02E6", + "tonehigh;02E6", + "aleflamed;02E7", + "tonebarmidmod;02E7", + "tonemid;02E7", + "tonebarlowmod;02E8", + "tonelow;02E8", + "tonebarextralowmod;02E9", + "toneextralow;02E9", + "lefttorightmark;02EA", + "righttoleftmark;02EB", + "gravecmb;0300", + "gravenosp;0300", + "gravecomb;0300", + "acutecmb;0301", + "acutenosp;0301", + "acutecomb;0301", + "circumflexcmb;0302", + "circumflexcomb;0302", + "circumflexnosp;0302", + "tildecmb;0303", + "tildenosp;0303", + "tildecomb;0303", + "macroncmb;0304", + "macroncomb;0304", + "macronnosp;0304", + "overlinecmb;0305", + "overscorecomb;0305", + "overscorenosp;0305", + "brevecmb;0306", + "brevecomb;0306", + "brevenosp;0306", + "dotaccentcmb;0307", + "dotaccentcomb;0307", + "dotnosp;0307", + "dieresiscmb;0308", + "dieresiscomb;0308", + "dieresisnosp;0308", + "hookcmb;0309", + "hooksupnosp;0309", + "hookabovecomb;0309", + "ringcmb;030A", + "ringnosp;030A", + "acutedblnosp;030B", + "hungarumlautcmb;030B", + "caroncmb;030C", + "haceknosp;030C", + "linevertnosp;030D", + "verticallineabovecmb;030D", + "dblverticallineabovecmb;030E", + "linevertdblnosp;030E", + "dblgravecmb;030F", + "gravedblnosp;030F", + "candrabinducmb;0310", + "candrabindunosp;0310", + "breveinvertedcmb;0311", + "breveinvnosp;0311", + "commaturnedabovecmb;0312", + "commaturnsupnosp;0312", + "apostrophesupnosp;0313", + "commaabovecmb;0313", + "commareversedabovecmb;0314", + "commasuprevnosp;0314", + "commaaboverightcmb;0315", + "commasuprightnosp;0315", + "gravebelowcmb;0316", + "gravesubnosp;0316", + "acutebelowcmb;0317", + "acutesubnosp;0317", + "lefttackbelowcmb;0318", + "tackleftsubnosp;0318", + "righttackbelowcmb;0319", + "tackrightsubnosp;0319", + "anglesupnosp;031A", + "leftangleabovecmb;031A", + "horncmb;031B", + "hornnosp;031B", + "ringhalfleftbelowcmb;031C", + "ringlefthalfsubnosp;031C", + "tackupsubnosp;031D", + "uptackbelowcmb;031D", + "downtackbelowcmb;031E", + "tackdownsubnosp;031E", + "plusbelowcmb;031F", + "plussubnosp;031F", + "minusbelowcmb;0320", + "minussubnosp;0320", + "hookpalatalizedbelowcmb;0321", + "hooksubpalatnosp;0321", + "hookretroflexbelowcmb;0322", + "hooksubretronosp;0322", + "dotbelowcmb;0323", + "dotsubnosp;0323", + "dotbelowcomb;0323", + "dieresisbelowcmb;0324", + "dotdblsubnosp;0324", + "ringbelowcmb;0325", + "ringsubnosp;0325", + "commasubnosp;0326", + "cedillacmb;0327", + "cedillanosp;0327", + "ogonekcmb;0328", + "ogoneknosp;0328", + "linevertsubnosp;0329", + "verticallinebelowcmb;0329", + "bridgebelowcmb;032A", + "bridgesubnosp;032A", + "archdblsubnosp;032B", + "dblarchinvertedbelowcmb;032B", + "caronbelowcmb;032C", + "haceksubnosp;032C", + "circumflexbelowcmb;032D", + "circumflexsubnosp;032D", + "brevebelowcmb;032E", + "brevesubnosp;032E", + "breveinvertedbelowcmb;032F", + "breveinvsubnosp;032F", + "tildebelowcmb;0330", + "tildesubnosp;0330", + "macronbelowcmb;0331", + "macronsubnosp;0331", + "lowlinecmb;0332", + "underscorenosp;0332", + "dbllowlinecmb;0333", + "underscoredblnosp;0333", + "tildemidnosp;0334", + "tildeoverlaycmb;0334", + "barmidshortnosp;0335", + "strokeshortoverlaycmb;0335", + "barmidlongnosp;0336", + "strokelongoverlaycmb;0336", + "slashshortnosp;0337", + "solidusshortoverlaycmb;0337", + "slashlongnosp;0338", + "soliduslongoverlaycmb;0338", + "ringhalfrightbelowcmb;0339", + "ringrighthalfsubnosp;0339", + "bridgeinvertedbelowcmb;033A", + "bridgeinvsubnosp;033A", + "squarebelowcmb;033B", + "squaresubnosp;033B", + "seagullbelowcmb;033C", + "seagullsubnosp;033C", + "xabovecmb;033D", + "xsupnosp;033D", + "tildeverticalcmb;033E", + "tildevertsupnosp;033E", + "dbloverlinecmb;033F", + "overscoredblnosp;033F", + "graveleftnosp;0340", + "gravetonecmb;0340", + "acuterightnosp;0341", + "acutetonecmb;0341", + "perispomenigreekcmb;0342", + "koroniscmb;0343", + "diaeresistonosnosp;0344", + "dialytikatonoscmb;0344", + "iotasubnosp;0345", + "ypogegrammenigreekcmb;0345", + "tildedoublecmb;0360", + "breveinverteddoublecmb;0361", + "numeralgreek;0374", + "numeralsigngreek;0374", + "numeralgreeksub;0375", + "numeralsignlowergreek;0375", + "iotasub;037A", + "ypogegrammeni;037A", + "questiongreek;037E", + "semicolon_;037E", + "tonos;0384", + "diaeresistonos;0385", + "dialytikatonos;0385", + "greekacutedieresis;0385", + "dieresistonos;0385", + "Alphaacute;0386", + "Alphatonos;0386", + "anoteleia;0387", + "Epsilonacute;0388", + "Epsilontonos;0388", + "Etaacute;0389", + "Etatonos;0389", + "Iotaacute;038A", + "Iotatonos;038A", + "Omicronacute;038C", + "Omicrontonos;038C", + "Upsilonacute;038E", + "Upsilontonos;038E", + "Omegaacute;038F", + "Omegatonos;038F", + "iotaacutedieresis;0390", + "iotadieresistonos;0390", + "Alpha;0391", + "Beta;0392", + "Gamma;0393", + "Deltagreek;0394", + "Delta;0394", + "Epsilon;0395", + "Zeta;0396", + "Eta;0397", + "Theta;0398", + "Iota;0399", + "Kappa;039A", + "Lambda;039B", + "Mu;039C", + "Nu;039D", + "Xi;039E", + "Omicron;039F", + "Pi;03A0", + "Rho;03A1", + "Sigma;03A3", + "Tau;03A4", + "Upsilon;03A5", + "Phi;03A6", + "Chi;03A7", + "Psi;03A8", + "Omegagreek;03A9", + "Omega;03A9", + "Iotadieresis;03AA", + "Upsilondieresis;03AB", + "alphaacute;03AC", + "alphatonos;03AC", + "epsilonacute;03AD", + "epsilontonos;03AD", + "etaacute;03AE", + "etatonos;03AE", + "iotaacute;03AF", + "iotatonos;03AF", + "upsilonacutedieresis;03B0", + "upsilondieresistonos;03B0", + "alpha;03B1", + "beta;03B2", + "gamma;03B3", + "delta;03B4", + "epsilon;03B5", + "zeta;03B6", + "eta;03B7", + "theta;03B8", + "iota;03B9", + "kappa;03BA", + "lambda;03BB", + "greekmu;03BC", + "mu_;03BC", + "mugreek;03BC", + "nu;03BD", + "xi;03BE", + "omicron;03BF", + "pi;03C0", + "rho;03C1", + "sigmaalt;03C2", + "sigmafinal;03C2", + "sigma1;03C2", + "sigma;03C3", + "tau;03C4", + "upsilon;03C5", + "phi;03C6", + "chi;03C7", + "psi;03C8", + "omega;03C9", + "iotadieresis;03CA", + "upsilondieresis;03CB", + "omicronacute;03CC", + "omicrontonos;03CC", + "upsilonacute;03CD", + "upsilontonos;03CD", + "omegaacute;03CE", + "omegatonos;03CE", + "beta1;03D0", + "betasymbolgreek;03D0", + "thetasymbolgreek;03D1", + "theta1;03D1", + "Upsilonhooksymbol;03D2", + "Upsilon1;03D2", + "Upsilon1tonos;03D3", + "Upsilonacutehooksymbolgreek;03D3", + "Upsilon1dieresis;03D4", + "Upsilondieresishooksymbolgreek;03D4", + "phisymbolgreek;03D5", + "phi1;03D5", + "pi1;03D6", + "pisymbolgreek;03D6", + "omega1;03D6", + "Stigma;03DA", + "Stigmagreek;03DA", + "Digamma;03DC", + "Digammagreek;03DC", + "Koppa;03DE", + "Koppagreek;03DE", + "Sampi;03E0", + "Sampigreek;03E0", + "Sheicoptic;03E2", + "sheicoptic;03E3", + "Feicoptic;03E4", + "feicoptic;03E5", + "Kheicoptic;03E6", + "kheicoptic;03E7", + "horicoptic;03E9", + "Gangiacoptic;03EA", + "gangiacoptic;03EB", + "Shimacoptic;03EC", + "shimacoptic;03ED", + "Dei;03EE", + "Deicoptic;03EE", + "dei;03EF", + "deicoptic;03EF", + "kappa1;03F0", + "kappasymbolgreek;03F0", + "rho1;03F1", + "rhosymbolgreek;03F1", + "sigmalunate;03F2", + "sigmalunatesymbolgreek;03F2", + "yotgreek;03F3", + "Io;0401", + "Iocyrillic;0401", + "afii10023;0401", + "Dje;0402", + "Djecyrillic;0402", + "afii10051;0402", + "Gjecyrillic;0403", + "afii10052;0403", + "Ecyril;0404", + "Ecyrillic;0404", + "afii10053;0404", + "Dze;0405", + "Dzecyrillic;0405", + "afii10054;0405", + "Icyril;0406", + "Icyrillic;0406", + "afii10055;0406", + "Yi;0407", + "Yicyrillic;0407", + "afii10056;0407", + "Je;0408", + "Jecyrillic;0408", + "afii10057;0408", + "Lje;0409", + "Ljecyrillic;0409", + "afii10058;0409", + "Nje;040A", + "Njecyrillic;040A", + "afii10059;040A", + "Tshe;040B", + "Tshecyrillic;040B", + "afii10060;040B", + "Kje;040C", + "Kjecyrillic;040C", + "afii10061;040C", + "Ucyrilbreve;040E", + "Ushortcyrillic;040E", + "afii10062;040E", + "Dzhe;040F", + "Dzhecyrillic;040F", + "afii10145;040F", + "Acyril;0410", + "Acyrillic;0410", + "afii10017;0410", + "Be;0411", + "Becyrillic;0411", + "afii10018;0411", + "Ve;0412", + "Vecyrillic;0412", + "afii10019;0412", + "Ge;0413", + "Gecyrillic;0413", + "afii10020;0413", + "De;0414", + "Decyrillic;0414", + "afii10021;0414", + "Ie;0415", + "Iecyrillic;0415", + "afii10022;0415", + "Zhe;0416", + "Zhecyrillic;0416", + "afii10024;0416", + "Ze;0417", + "Zecyrillic;0417", + "afii10025;0417", + "Ii;0418", + "Iicyrillic;0418", + "afii10026;0418", + "Iibreve;0419", + "Iishortcyrillic;0419", + "afii10027;0419", + "Ka;041A", + "Kacyrillic;041A", + "afii10028;041A", + "El;041B", + "Elcyrillic;041B", + "afii10029;041B", + "Em;041C", + "Emcyrillic;041C", + "afii10030;041C", + "En;041D", + "Encyrillic;041D", + "afii10031;041D", + "Ocyril;041E", + "Ocyrillic;041E", + "afii10032;041E", + "Pecyril;041F", + "Pecyrillic;041F", + "afii10033;041F", + "Er;0420", + "Ercyrillic;0420", + "afii10034;0420", + "Es;0421", + "Escyrillic;0421", + "afii10035;0421", + "Te;0422", + "Tecyrillic;0422", + "afii10036;0422", + "Ucyril;0423", + "Ucyrillic;0423", + "afii10037;0423", + "Ef;0424", + "Efcyrillic;0424", + "afii10038;0424", + "Kha;0425", + "Khacyrillic;0425", + "afii10039;0425", + "Tse;0426", + "Tsecyrillic;0426", + "afii10040;0426", + "Che;0427", + "Checyrillic;0427", + "afii10041;0427", + "Sha;0428", + "Shacyrillic;0428", + "afii10042;0428", + "Shcha;0429", + "Shchacyrillic;0429", + "afii10043;0429", + "Hard;042A", + "Hardsigncyrillic;042A", + "afii10044;042A", + "Yeri;042B", + "Yericyrillic;042B", + "afii10045;042B", + "Soft;042C", + "afii10046;042C", + "Ecyrilrev;042D", + "Ereversedcyrillic;042D", + "afii10047;042D", + "IUcyrillic;042E", + "Iu;042E", + "afii10048;042E", + "IAcyrillic;042F", + "Ia;042F", + "afii10049;042F", + "acyril;0430", + "acyrillic;0430", + "afii10065;0430", + "be;0431", + "becyrillic;0431", + "afii10066;0431", + "ve;0432", + "vecyrillic;0432", + "afii10067;0432", + "ge;0433", + "gecyrillic;0433", + "afii10068;0433", + "de;0434", + "decyrillic;0434", + "afii10069;0434", + "ie;0435", + "iecyrillic;0435", + "afii10070;0435", + "zhe;0436", + "zhecyrillic;0436", + "afii10072;0436", + "ze;0437", + "zecyrillic;0437", + "afii10073;0437", + "ii;0438", + "iicyrillic;0438", + "afii10074;0438", + "iibreve;0439", + "iishortcyrillic;0439", + "afii10075;0439", + "ka;043A", + "kacyrillic;043A", + "afii10076;043A", + "el;043B", + "elcyrillic;043B", + "afii10077;043B", + "em;043C", + "emcyrillic;043C", + "afii10078;043C", + "en;043D", + "encyrillic;043D", + "afii10079;043D", + "ocyril;043E", + "ocyrillic;043E", + "afii10080;043E", + "pecyril;043F", + "pecyrillic;043F", + "afii10081;043F", + "er;0440", + "ercyrillic;0440", + "afii10082;0440", + "es;0441", + "escyrillic;0441", + "afii10083;0441", + "te;0442", + "tecyrillic;0442", + "afii10084;0442", + "ucyril;0443", + "ucyrillic;0443", + "afii10085;0443", + "ef;0444", + "efcyrillic;0444", + "afii10086;0444", + "kha;0445", + "khacyrillic;0445", + "afii10087;0445", + "tse;0446", + "tsecyrillic;0446", + "afii10088;0446", + "che;0447", + "checyrillic;0447", + "afii10089;0447", + "sha;0448", + "shacyrillic;0448", + "afii10090;0448", + "shcha;0449", + "shchacyrillic;0449", + "afii10091;0449", + "hard;044A", + "hardsigncyrillic;044A", + "afii10092;044A", + "yeri;044B", + "yericyrillic;044B", + "afii10093;044B", + "soft;044C", + "softsigncyrillic;044C", + "afii10094;044C", + "ecyrilrev;044D", + "ereversedcyrillic;044D", + "afii10095;044D", + "iu;044E", + "iucyrillic;044E", + "afii10096;044E", + "ia;044F", + "iacyrillic;044F", + "afii10097;044F", + "io;0451", + "iocyrillic;0451", + "afii10071;0451", + "dje;0452", + "djecyrillic;0452", + "afii10099;0452", + "gje;0453", + "gjecyrillic;0453", + "afii10100;0453", + "ecyril;0454", + "ecyrillic;0454", + "afii10101;0454", + "dze;0455", + "dzecyrillic;0455", + "afii10102;0455", + "icyril;0456", + "icyrillic;0456", + "afii10103;0456", + "yi;0457", + "yicyrillic;0457", + "afii10104;0457", + "je;0458", + "jecyrillic;0458", + "afii10105;0458", + "lje;0459", + "ljecyrillic;0459", + "afii10106;0459", + "nje;045A", + "njecyrillic;045A", + "afii10107;045A", + "tshe;045B", + "tshecyrillic;045B", + "afii10108;045B", + "kje;045C", + "kjecyrillic;045C", + "afii10109;045C", + "ucyrilbreve;045E", + "ushortcyrillic;045E", + "afii10110;045E", + "dzhe;045F", + "dzhecyrillic;045F", + "afii10193;045F", + "Omegacyrillic;0460", + "omegacyrillic;0461", + "Yat;0462", + "Yatcyrillic;0462", + "afii10146;0462", + "yat;0463", + "yatcyrillic;0463", + "afii10194;0463", + "Eiotifiedcyrillic;0464", + "eiotifiedcyrillic;0465", + "Yuslittlecyrillic;0466", + "yuslittlecyrillic;0467", + "Yuslittleiotifiedcyrillic;0468", + "yuslittleiotifiedcyrillic;0469", + "Yusbig;046A", + "Yusbigcyrillic;046A", + "yusbig;046B", + "yusbigcyrillic;046B", + "Yusbigiotifiedcyrillic;046C", + "yusbigiotifiedcyrillic;046D", + "Ksicyrillic;046E", + "ksicyrillic;046F", + "Psicyrillic;0470", + "psicyrillic;0471", + "Fitacyrillic;0472", + "afii10147;0472", + "fitacyrillic;0473", + "afii10195;0473", + "Izhitsacyrillic;0474", + "afii10148;0474", + "izhitsacyrillic;0475", + "afii10196;0475", + "Izhitsadblgravecyrillic;0476", + "izhitsadblgravecyrillic;0477", + "Ukcyrillic;0478", + "ukcyrillic;0479", + "Omegaroundcyrillic;047A", + "omegaroundcyrillic;047B", + "Omegatitlocyrillic;047C", + "omegatitlocyrillic;047D", + "Otcyrillic;047E", + "otcyrillic;047F", + "Koppacyrillic;0480", + "koppacyrillic;0481", + "thousandcyrillic;0482", + "titlocyrilliccmb;0483", + "palatalizationcyrilliccmb;0484", + "dasiapneumatacyrilliccmb;0485", + "psilipneumatacyrilliccmb;0486", + "Geupturn;0490", + "Gheupturncyrillic;0490", + "afii10050;0490", + "geupturn;0491", + "gheupturncyrillic;0491", + "afii10098;0491", + "Gebar;0492", + "Ghestrokecyrillic;0492", + "gebar;0493", + "ghestrokecyrillic;0493", + "Gehook;0494", + "Ghemiddlehookcyrillic;0494", + "gehook;0495", + "ghemiddlehookcyrillic;0495", + "Zhedescendercyrillic;0496", + "Zhertdes;0496", + "zhedescendercyrillic;0497", + "zhertdes;0497", + "Zecedilla;0498", + "Zedescendercyrillic;0498", + "zedescendercyrillic;0499", + "Kadescendercyrillic;049A", + "Kartdes;049A", + "kadescendercyrillic;049B", + "kartdes;049B", + "Kavertbar;049C", + "Kaverticalstrokecyrillic;049C", + "kavertbar;049D", + "kaverticalstrokecyrillic;049D", + "Kabar;049E", + "Kastrokecyrillic;049E", + "kabar;049F", + "kastrokecyrillic;049F", + "GeKarev;04A0", + "Kabashkircyrillic;04A0", + "gekarev;04A1", + "kabashkircyrillic;04A1", + "Endescendercyrillic;04A2", + "Enrtdes;04A2", + "endescendercyrillic;04A3", + "enrtdes;04A3", + "EnGe;04A4", + "Enghecyrillic;04A4", + "enge;04A5", + "enghecyrillic;04A5", + "Pehook;04A6", + "Pemiddlehookcyrillic;04A6", + "pehook;04A7", + "pemiddlehookcyrillic;04A7", + "Haabkhasiancyrillic;04A8", + "Ohook;04A8", + "haabkhasiancyrillic;04A9", + "ohook;04A9", + "Escedilla;04AA", + "Esdescendercyrillic;04AA", + "escedilla;04AB", + "esdescendercyrillic;04AB", + "Tedescendercyrillic;04AC", + "Tertdes;04AC", + "tedescendercyrillic;04AD", + "tertdes;04AD", + "Ustraightcyrillic;04AE", + "Ustrt;04AE", + "ustraightcyrillic;04AF", + "ustrt;04AF", + "Ustraightstrokecyrillic;04B0", + "Ustrtbar;04B0", + "ustraightstrokecyrillic;04B1", + "ustrtbar;04B1", + "Hadescendercyrillic;04B2", + "Khartdes;04B2", + "hadescendercyrillic;04B3", + "khartdes;04B3", + "TeTse;04B4", + "Tetsecyrillic;04B4", + "tetse;04B5", + "tetsecyrillic;04B5", + "Chedescendercyrillic;04B6", + "Chertdes;04B6", + "chedescendercyrillic;04B7", + "chertdes;04B7", + "Chevertbar;04B8", + "Cheverticalstrokecyrillic;04B8", + "chevertbar;04B9", + "cheverticalstrokecyrillic;04B9", + "Hcyril;04BA", + "Shhacyrillic;04BA", + "hcyril;04BB", + "shhacyrillic;04BB", + "Cheabkhasiancyrillic;04BC", + "Iehook;04BC", + "cheabkhasiancyrillic;04BD", + "iehook;04BD", + "Chedescenderabkhasiancyrillic;04BE", + "Iehookogonek;04BE", + "chedescenderabkhasiancyrillic;04BF", + "iehookogonek;04BF", + "Icyril1;04C0", + "palochkacyrillic;04C0", + "Zhebreve;04C1", + "Zhebrevecyrillic;04C1", + "zhebreve;04C2", + "zhebrevecyrillic;04C2", + "Kahook;04C3", + "Kahookcyrillic;04C3", + "kahook;04C4", + "kahookcyrillic;04C4", + "Enhook;04C7", + "Enhookcyrillic;04C7", + "enhook;04C8", + "enhookcyrillic;04C8", + "Chekhakassiancyrillic;04CB", + "Cheleftdes;04CB", + "chekhakassiancyrillic;04CC", + "cheleftdes;04CC", + "Abrevecyrillic;04D0", + "abrevecyrillic;04D1", + "Adieresiscyrillic;04D2", + "adieresiscyrillic;04D3", + "Aiecyrillic;04D4", + "aiecyrillic;04D5", + "Iebrevecyrillic;04D6", + "iebrevecyrillic;04D7", + "Schwacyrillic;04D8", + "schwacyrillic;04D9", + "afii10846;04D9", + "Schwadieresiscyrillic;04DA", + "schwadieresiscyrillic;04DB", + "Zhedieresiscyrillic;04DC", + "zhedieresiscyrillic;04DD", + "Zedieresiscyrillic;04DE", + "zedieresiscyrillic;04DF", + "Dzeabkhasiancyrillic;04E0", + "dzeabkhasiancyrillic;04E1", + "Imacroncyrillic;04E2", + "imacroncyrillic;04E3", + "Idieresiscyrillic;04E4", + "idieresiscyrillic;04E5", + "Odieresiscyrillic;04E6", + "odieresiscyrillic;04E7", + "Obarredcyrillic;04E8", + "obarredcyrillic;04E9", + "Obarreddieresiscyrillic;04EA", + "obarreddieresiscyrillic;04EB", + "Umacroncyrillic;04EE", + "umacroncyrillic;04EF", + "Udieresiscyrillic;04F0", + "udieresiscyrillic;04F1", + "Uhungarumlautcyrillic;04F2", + "uhungarumlautcyrillic;04F3", + "Chedieresiscyrillic;04F4", + "chedieresiscyrillic;04F5", + "Yerudieresiscyrillic;04F8", + "yerudieresiscyrillic;04F9", + "Aybarmenian;0531", + "Benarmenian;0532", + "Gimarmenian;0533", + "Echarmenian;0535", + "Zaarmenian;0536", + "Eharmenian;0537", + "Etarmenian;0538", + "Toarmenian;0539", + "Zhearmenian;053A", + "Iniarmenian;053B", + "Liwnarmenian;053C", + "Xeharmenian;053D", + "Caarmenian;053E", + "Kenarmenian;053F", + "Hoarmenian;0540", + "Jaarmenian;0541", + "Ghadarmenian;0542", + "Cheharmenian;0543", + "Menarmenian;0544", + "Yiarmenian;0545", + "Nowarmenian;0546", + "Shaarmenian;0547", + "Voarmenian;0548", + "Chaarmenian;0549", + "Peharmenian;054A", + "Jheharmenian;054B", + "Raarmenian;054C", + "Vewarmenian;054E", + "Tiwnarmenian;054F", + "Reharmenian;0550", + "Coarmenian;0551", + "Yiwnarmenian;0552", + "Piwrarmenian;0553", + "Keharmenian;0554", + "Oharmenian;0555", + "Feharmenian;0556", + "ringhalfleftarmenian;0559", + "apostrophearmenian;055A", + "emphasismarkarmenian;055B", + "exclamarmenian;055C", + "commaarmenian;055D", + "questionarmenian;055E", + "abbreviationmarkarmenian;055F", + "aybarmenian;0561", + "benarmenian;0562", + "gimarmenian;0563", + "daarmenian;0564", + "echarmenian;0565", + "zaarmenian;0566", + "eharmenian;0567", + "etarmenian;0568", + "toarmenian;0569", + "zhearmenian;056A", + "iniarmenian;056B", + "liwnarmenian;056C", + "xeharmenian;056D", + "caarmenian;056E", + "kenarmenian;056F", + "hoarmenian;0570", + "jaarmenian;0571", + "ghadarmenian;0572", + "cheharmenian;0573", + "menarmenian;0574", + "yiarmenian;0575", + "nowarmenian;0576", + "shaarmenian;0577", + "voarmenian;0578", + "chaarmenian;0579", + "peharmenian;057A", + "jheharmenian;057B", + "raarmenian;057C", + "seharmenian;057D", + "vewarmenian;057E", + "tiwnarmenian;057F", + "reharmenian;0580", + "coarmenian;0581", + "yiwnarmenian;0582", + "piwrarmenian;0583", + "keharmenian;0584", + "oharmenian;0585", + "feharmenian;0586", + "echyiwnarmenian;0587", + "periodarmenian;0589", + ";058A", + "etnahtafoukhhebrew;0591", + "etnahtafoukhlefthebrew;0591", + "etnahtahebrew;0591", + "etnahtalefthebrew;0591", + "segoltahebrew;0592", + "zaqefqatanhebrew;0594", + "zaqefgadolhebrew;0595", + "tipehahebrew;0596", + "tipehalefthebrew;0596", + "reviahebrew;0597", + "reviamugrashhebrew;0597", + "pashtahebrew;0599", + "yetivhebrew;059A", + "tevirhebrew;059B", + "tevirlefthebrew;059B", + "gereshaccenthebrew;059C", + "gereshmuqdamhebrew;059D", + "gershayimaccenthebrew;059E", + "qarneyparahebrew;059F", + "telishagedolahebrew;05A0", + "pazerhebrew;05A1", + "munahhebrew;05A3", + "munahlefthebrew;05A3", + "mahapakhhebrew;05A4", + "mahapakhlefthebrew;05A4", + "merkhahebrew;05A5", + "merkhalefthebrew;05A5", + "merkhakefulahebrew;05A6", + "merkhakefulalefthebrew;05A6", + "dargahebrew;05A7", + "dargalefthebrew;05A7", + "qadmahebrew;05A8", + "telishaqetanahebrew;05A9", + "yerahbenyomohebrew;05AA", + "yerahbenyomolefthebrew;05AA", + "olehebrew;05AB", + "iluyhebrew;05AC", + "dehihebrew;05AD", + "zinorhebrew;05AE", + "masoracirclehebrew;05AF", + "sheva;05B0", + "sheva115;05B0", + "sheva15;05B0", + "sheva22;05B0", + "sheva2e;05B0", + "shevahebrew;05B0", + "shevanarrowhebrew;05B0", + "shevaquarterhebrew;05B0", + "shevawidehebrew;05B0", + "afii57799;05B0", + "hatafsegol;05B1", + "hatafsegol17;05B1", + "hatafsegol24;05B1", + "hatafsegol30;05B1", + "hatafsegolhebrew;05B1", + "hatafsegolnarrowhebrew;05B1", + "hatafsegolquarterhebrew;05B1", + "hatafsegolwidehebrew;05B1", + "afii57801;05B1", + "hatafpatah;05B2", + "hatafpatah16;05B2", + "hatafpatah23;05B2", + "hatafpatah2f;05B2", + "hatafpatahhebrew;05B2", + "hatafpatahnarrowhebrew;05B2", + "hatafpatahquarterhebrew;05B2", + "hatafpatahwidehebrew;05B2", + "afii57800;05B2", + "hatafqamats;05B3", + "hatafqamats1b;05B3", + "hatafqamats28;05B3", + "hatafqamats34;05B3", + "hatafqamatshebrew;05B3", + "hatafqamatsnarrowhebrew;05B3", + "hatafqamatsquarterhebrew;05B3", + "hatafqamatswidehebrew;05B3", + "afii57802;05B3", + "hiriq;05B4", + "hiriq14;05B4", + "hiriq21;05B4", + "hiriq2d;05B4", + "hiriqhebrew;05B4", + "hiriqnarrowhebrew;05B4", + "hiriqquarterhebrew;05B4", + "hiriqwidehebrew;05B4", + "afii57793;05B4", + "tsere;05B5", + "tsere12;05B5", + "tsere1e;05B5", + "tsere2b;05B5", + "tserehebrew;05B5", + "tserenarrowhebrew;05B5", + "tserequarterhebrew;05B5", + "tserewidehebrew;05B5", + "afii57794;05B5", + "segol;05B6", + "segol13;05B6", + "segol1f;05B6", + "segol2c;05B6", + "segolhebrew;05B6", + "segolnarrowhebrew;05B6", + "segolquarterhebrew;05B6", + "segolwidehebrew;05B6", + "afii57795;05B6", + "patah;05B7", + "patah11;05B7", + "patah1d;05B7", + "patah2a;05B7", + "patahhebrew;05B7", + "patahnarrowhebrew;05B7", + "patahquarterhebrew;05B7", + "patahwidehebrew;05B7", + "afii57798;05B7", + "qamats;05B8", + "qamats10;05B8", + "qamats1a;05B8", + "qamats1c;05B8", + "qamats27;05B8", + "qamats29;05B8", + "qamats33;05B8", + "qamatsde;05B8", + "qamatshebrew;05B8", + "qamatsnarrowhebrew;05B8", + "qamatsqatanhebrew;05B8", + "qamatsqatannarrowhebrew;05B8", + "qamatsqatanquarterhebrew;05B8", + "qamatsqatanwidehebrew;05B8", + "qamatsquarterhebrew;05B8", + "qamatswidehebrew;05B8", + "afii57797;05B8", + "holam;05B9", + "holam19;05B9", + "holam26;05B9", + "holam32;05B9", + "holamhebrew;05B9", + "holamnarrowhebrew;05B9", + "holamquarterhebrew;05B9", + "holamwidehebrew;05B9", + "afii57806;05B9", + "qubuts;05BB", + "qubuts18;05BB", + "qubuts25;05BB", + "qubuts31;05BB", + "qubutshebrew;05BB", + "qubutsnarrowhebrew;05BB", + "qubutsquarterhebrew;05BB", + "qubutswidehebrew;05BB", + "afii57796;05BB", + "dagesh;05BC", + "dageshhebrew;05BC", + "c24210;05BC", + "afii57807;05BC", + "meteg;05BD", + "siluqhebrew;05BD", + "siluqlefthebrew;05BD", + "afii57839;05BD", + "maqaf;05BE", + "maqafhebrew;05BE", + "afii57645;05BE", + "rafe;05BF", + "rafehebrew;05BF", + "afii57841;05BF", + "afii67842;05C0", + "paseq;05C0", + "paseqhebrew;05C0", + "afii57842;05C0", + "shindot;05C1", + "shindothebrew;05C1", + "afii57804;05C1", + "sindot;05C2", + "sindothebrew;05C2", + "afii57803;05C2", + "sofpasuq;05C3", + "sofpasuqhebrew;05C3", + "afii57658;05C3", + "upperdothebrew;05C4", + "alef;05D0", + "alefhebrew;05D0", + "afii57664;05D0", + "bet;05D1", + "bethebrew;05D1", + "afii57665;05D1", + "gimel;05D2", + "gimelhebrew;05D2", + "afii57666;05D2", + "dalet;05D3", + "dalethebrew;05D3", + "afii57667;05D3", + "he;05D4", + "hehebrew;05D4", + "afii57668;05D4", + "vavhebrew;05D5", + "afii57669;05D5", + "zayin;05D6", + "zayinhebrew;05D6", + "afii57670;05D6", + "het;05D7", + "hethebrew;05D7", + "afii57671;05D7", + "tet;05D8", + "tethebrew;05D8", + "afii57672;05D8", + "yod;05D9", + "yodhebrew;05D9", + "afii57673;05D9", + "finalkaf;05DA", + "finalkafhebrew;05DA", + "kaffinal;05DA", + "afii57674;05DA", + "kaf;05DB", + "kafhebrew;05DB", + "afii57675;05DB", + "lamed;05DC", + "lamedhebrew;05DC", + "afii57676;05DC", + "finalmem;05DD", + "finalmemhebrew;05DD", + "memfinal;05DD", + "afii57677;05DD", + "mem;05DE", + "memhebrew;05DE", + "afii57678;05DE", + "finalnun;05DF", + "finalnunhebrew;05DF", + "nunfinal;05DF", + "afii57679;05DF", + "nun;05E0", + "nunhebrew;05E0", + "afii57680;05E0", + "samekh;05E1", + "samekhhebrew;05E1", + "afii57681;05E1", + "ayin;05E2", + "ayinhebrew;05E2", + "afii57682;05E2", + "finalpe;05E3", + "finalpehebrew;05E3", + "pefinal;05E3", + "afii57683;05E3", + "pe;05E4", + "pehebrew;05E4", + "afii57684;05E4", + "finaltsadi;05E5", + "finaltsadihebrew;05E5", + "tsadifinal;05E5", + "afii57685;05E5", + "tsadi;05E6", + "tsadihebrew;05E6", + "afii57686;05E6", + "qof;05E7", + "qofhebrew;05E7", + "afii57687;05E7", + "resh;05E8", + "reshhebrew;05E8", + "afii57688;05E8", + "shin;05E9", + "shinhebrew;05E9", + "afii57689;05E9", + "tav;05EA", + "tavhebrew;05EA", + "afii57690;05EA", + "vavdbl;05F0", + "vavvavhebrew;05F0", + "afii57716;05F0", + "vavyod;05F1", + "vavyodhebrew;05F1", + "afii57717;05F1", + "yoddbl;05F2", + "yodyodhebrew;05F2", + "afii57718;05F2", + "geresh;05F3", + "gereshhebrew;05F3", + "gershayim;05F4", + "gershayimhebrew;05F4", + "c19466;060C", + "commaarabic;060C", + "afii57388;060C", + "c19467;061B", + "semicolonarabic;061B", + "afii57403;061B", + "c19470;061F", + "questionarabic;061F", + "afii57407;061F", + "hamzaarabic;0621", + "hamzalowarabic;0621", + "afii57409;0621", + "alefmaddaabovearabic;0622", + "c19542;0622", + "afii57410;0622", + "alefhamzaabovearabic;0623", + "c19446;0623", + "afii57411;0623", + "wawhamzaabovearabic;0624", + "afii57412;0624", + "alefhamzabelowarabic;0625", + "c19447;0625", + "afii57413;0625", + "yehhamzaabovearabic;0626", + "afii57414;0626", + "alefarabic;0627", + "c19379;0627", + "afii57415;0627", + "beharabic;0628", + "c19381;0628", + "afii57416;0628", + "c19443;0629", + "tehmarbutaarabic;0629", + "afii57417;0629", + "c19383;062A", + "teharabic;062A", + "afii57418;062A", + "c19385;062B", + "theharabic;062B", + "afii57419;062B", + "c19388;062C", + "jeemarabic;062C", + "afii57420;062C", + "c19391;062D", + "haharabic;062D", + "afii57421;062D", + "c19394;062E", + "khaharabic;062E", + "afii57422;062E", + "c19395;062F", + "dalarabic;062F", + "afii57423;062F", + "c19396;0630", + "thalarabic;0630", + "afii57424;0630", + "c19397;0631", + "reharabic;0631", + "afii57425;0631", + "c19398;0632", + "afii57426;0632", + "c19400;0633", + "seenarabic;0633", + "afii57427;0633", + "c19402;0634", + "sheenarabic;0634", + "afii57428;0634", + "c19404;0635", + "sadarabic;0635", + "afii57429;0635", + "c19406;0636", + "dadarabic;0636", + "afii57430;0636", + "c19407;0637", + "taharabic;0637", + "afii57431;0637", + "c19408;0638", + "zaharabic;0638", + "afii57432;0638", + "ainarabic;0639", + "afii57433;0639", + "ghainarabic;063A", + "afii57434;063A", + "c20156;0640", + "kashidaautoarabic;0640", + "kashidaautonosidebearingarabic;0640", + "tatweelarabic;0640", + "afii57440;0640", + "c19420;0641", + "feharabic;0641", + "afii57441;0641", + "c19423;0642", + "qafarabic;0642", + "afii57442;0642", + "c19425;0643", + "kafarabic;0643", + "afii57443;0643", + "c19427;0644", + "lamarabic;0644", + "afii57444;0644", + "c19429;0645", + "meemarabic;0645", + "afii57445;0645", + "c19431;0646", + "noonarabic;0646", + "afii57446;0646", + "c19435;0647", + "heharabic;0647", + "afii57470;0647", + "c19436;0648", + "wawarabic;0648", + "afii57448;0648", + "alefmaksuraarabic;0649", + "c19441;0649", + "afii57449;0649", + "c19439;064A", + "yeharabic;064A", + "afii57450;064A", + "fathatanarabic;064B", + "afii57451;064B", + "dammatanaltonearabic;064C", + "dammatanarabic;064C", + "afii57452;064C", + "kasratanarabic;064D", + "afii57453;064D", + "fathaarabic;064E", + "fathalowarabic;064E", + "afii57454;064E", + "dammaarabic;064F", + "dammalowarabic;064F", + "afii57455;064F", + "kasraarabic;0650", + "afii57456;0650", + "shaddaarabic;0651", + "afii57457;0651", + "sukunarabic;0652", + "afii57458;0652", + "c19463;0660", + "zeroarabic;0660", + "afii57392;0660", + "c19454;0661", + "onearabic;0661", + "onehackarabic;0661", + "afii57393;0661", + "c19455;0662", + "twoarabic;0662", + "twohackarabic;0662", + "afii57394;0662", + "c19456;0663", + "threearabic;0663", + "threehackarabic;0663", + "afii57395;0663", + "c19457;0664", + "fourarabic;0664", + "fourhackarabic;0664", + "afii57396;0664", + "c19458;0665", + "fivearabic;0665", + "fivehackarabic;0665", + "afii57397;0665", + "c19459;0666", + "sixarabic;0666", + "sixhackarabic;0666", + "afii57398;0666", + "c19460;0667", + "sevenarabic;0667", + "sevenhackarabic;0667", + "afii57399;0667", + "c19461;0668", + "eightarabic;0668", + "eighthackarabic;0668", + "afii57400;0668", + "c19462;0669", + "ninearabic;0669", + "ninehackarabic;0669", + "afii57401;0669", + "c19464;066A", + "percentarabic;066A", + "afii57381;066A", + "decimalseparatorarabic;066B", + "decimalseparatorpersian;066B", + "c21121;066C", + "thousandsseparatorarabic;066C", + "thousandsseparatorpersian;066C", + "asteriskaltonearabic;066D", + "asteriskarabic;066D", + "afii63167;066D", + "tteharabic;0679", + "afii57511;0679", + "peharabic;067E", + "afii57506;067E", + "tcheharabic;0686", + "afii57507;0686", + "ddalarabic;0688", + "afii57512;0688", + "rreharabic;0691", + "afii57513;0691", + "jeharabic;0698", + "afii57508;0698", + "veharabic;06A4", + "afii57505;06A4", + "gafarabic;06AF", + "afii57509;06AF", + "noonghunnaarabic;06BA", + "afii57514;06BA", + "haaltonearabic;06C1", + "hehaltonearabic;06C1", + "yehthreedotsbelowarabic;06D1", + "yehbarreearabic;06D2", + "afii57519;06D2", + "afii57534;06D5", + "zeropersian;06F0", + "onepersian;06F1", + "twopersian;06F2", + "threepersian;06F3", + "fourpersian;06F4", + "fivepersian;06F5", + "sixpersian;06F6", + "sevenpersian;06F7", + "eightpersian;06F8", + "ninepersian;06F9", + "candrabindudeva;0901", + "anusvaradeva;0902", + "visargadeva;0903", + "adeva;0905", + "aadeva;0906", + "ideva;0907", + "iideva;0908", + "udeva;0909", + "uudeva;090A", + "rvocalicdeva;090B", + "ecandradeva;090D", + "eshortdeva;090E", + "edeva;090F", + "aideva;0910", + "ocandradeva;0911", + "oshortdeva;0912", + "odeva;0913", + "audeva;0914", + "kadeva;0915", + "khadeva;0916", + "gadeva;0917", + "ghadeva;0918", + "ngadeva;0919", + "cadeva;091A", + "chadeva;091B", + "jadeva;091C", + "jhadeva;091D", + "nyadeva;091E", + "ttadeva;091F", + "tthadeva;0920", + "ddadeva;0921", + "ddhadeva;0922", + "nnadeva;0923", + "tadeva;0924", + "thadeva;0925", + "dadeva;0926", + "dhadeva;0927", + "nadeva;0928", + "nnnadeva;0929", + "padeva;092A", + "phadeva;092B", + "badeva;092C", + "bhadeva;092D", + "madeva;092E", + "yadeva;092F", + "radeva;0930", + "rradeva;0931", + "ladeva;0932", + "lladeva;0933", + "llladeva;0934", + "vadeva;0935", + "shadeva;0936", + "ssadeva;0937", + "sadeva;0938", + "hadeva;0939", + "nuktadeva;093C", + "avagrahadeva;093D", + "aavowelsigndeva;093E", + "ivowelsigndeva;093F", + "iivowelsigndeva;0940", + "uvowelsigndeva;0941", + "uuvowelsigndeva;0942", + "rvocalicvowelsigndeva;0943", + "rrvocalicvowelsigndeva;0944", + "ecandravowelsigndeva;0945", + "eshortvowelsigndeva;0946", + "aivowelsigndeva;0948", + "ocandravowelsigndeva;0949", + "oshortvowelsigndeva;094A", + "ovowelsigndeva;094B", + "viramadeva;094D", + "omdeva;0950", + "udattadeva;0951", + "anudattadeva;0952", + "gravedeva;0953", + "acutedeva;0954", + "qadeva;0958", + "khhadeva;0959", + "ghhadeva;095A", + "zadeva;095B", + "dddhadeva;095C", + "rhadeva;095D", + "fadeva;095E", + "yyadeva;095F", + "rrvocalicdeva;0960", + "llvocalicdeva;0961", + "lvocalicvowelsigndeva;0962", + "llvocalicvowelsigndeva;0963", + "danda;0964", + "dbldanda;0965", + "zerodeva;0966", + "onedeva;0967", + "twodeva;0968", + "threedeva;0969", + "fourdeva;096A", + "fivedeva;096B", + "sixdeva;096C", + "sevendeva;096D", + "eightdeva;096E", + "ninedeva;096F", + "abbreviationsigndeva;0970", + "candrabindubengali;0981", + "anusvarabengali;0982", + "visargabengali;0983", + "abengali;0985", + "aabengali;0986", + "ibengali;0987", + "iibengali;0988", + "ubengali;0989", + "uubengali;098A", + "rvocalicbengali;098B", + "lvocalicbengali;098C", + "ebengali;098F", + "aibengali;0990", + "obengali;0993", + "aubengali;0994", + "kabengali;0995", + "khabengali;0996", + "gabengali;0997", + "ghabengali;0998", + "ngabengali;0999", + "cabengali;099A", + "chabengali;099B", + "jabengali;099C", + "jhabengali;099D", + "nyabengali;099E", + "ttabengali;099F", + "tthabengali;09A0", + "ddabengali;09A1", + "ddhabengali;09A2", + "nnabengali;09A3", + "tabengali;09A4", + "thabengali;09A5", + "dabengali;09A6", + "dhabengali;09A7", + "nabengali;09A8", + "pabengali;09AA", + "phabengali;09AB", + "babengali;09AC", + "bhabengali;09AD", + "mabengali;09AE", + "yabengali;09AF", + "rabengali;09B0", + "labengali;09B2", + "shabengali;09B6", + "ssabengali;09B7", + "sabengali;09B8", + "habengali;09B9", + "nuktabengali;09BC", + "aavowelsignbengali;09BE", + "ivowelsignbengali;09BF", + "uvowelsignbengali;09C1", + "uuvowelsignbengali;09C2", + "rvocalicvowelsignbengali;09C3", + "rrvocalicvowelsignbengali;09C4", + "evowelsignbengali;09C7", + "aivowelsignbengali;09C8", + "ovowelsignbengali;09CB", + "auvowelsignbengali;09CC", + "viramabengali;09CD", + "aulengthmarkbengali;09D7", + "rrabengali;09DC", + "rhabengali;09DD", + "yyabengali;09DF", + "rrvocalicbengali;09E0", + "llvocalicbengali;09E1", + "lvocalicvowelsignbengali;09E2", + "llvocalicvowelsignbengali;09E3", + "zerobengali;09E6", + "onebengali;09E7", + "twobengali;09E8", + "threebengali;09E9", + "fourbengali;09EA", + "fivebengali;09EB", + "sixbengali;09EC", + "sevenbengali;09ED", + "eightbengali;09EE", + "ninebengali;09EF", + "ramiddlediagonalbengali;09F0", + "ralowerdiagonalbengali;09F1", + "rupeemarkbengali;09F2", + "rupeesignbengali;09F3", + "onenumeratorbengali;09F4", + "twonumeratorbengali;09F5", + "threenumeratorbengali;09F6", + "fournumeratorbengali;09F7", + "denominatorminusonenumeratorbengali;09F8", + "sixteencurrencydenominatorbengali;09F9", + "issharbengali;09FA", + "bindigurmukhi;0A02", + "agurmukhi;0A05", + "aagurmukhi;0A06", + "igurmukhi;0A07", + "iigurmukhi;0A08", + "ugurmukhi;0A09", + "uugurmukhi;0A0A", + "eegurmukhi;0A0F", + "aigurmukhi;0A10", + "oogurmukhi;0A13", + "augurmukhi;0A14", + "kagurmukhi;0A15", + "khagurmukhi;0A16", + "gagurmukhi;0A17", + "ghagurmukhi;0A18", + "ngagurmukhi;0A19", + "cagurmukhi;0A1A", + "chagurmukhi;0A1B", + "jagurmukhi;0A1C", + "jhagurmukhi;0A1D", + "nyagurmukhi;0A1E", + "ttagurmukhi;0A1F", + "tthagurmukhi;0A20", + "ddagurmukhi;0A21", + "ddhagurmukhi;0A22", + "nnagurmukhi;0A23", + "tagurmukhi;0A24", + "thagurmukhi;0A25", + "dagurmukhi;0A26", + "dhagurmukhi;0A27", + "nagurmukhi;0A28", + "pagurmukhi;0A2A", + "phagurmukhi;0A2B", + "bagurmukhi;0A2C", + "bhagurmukhi;0A2D", + "magurmukhi;0A2E", + "yagurmukhi;0A2F", + "ragurmukhi;0A30", + "lagurmukhi;0A32", + "vagurmukhi;0A35", + "shagurmukhi;0A36", + "sagurmukhi;0A38", + "hagurmukhi;0A39", + "nuktagurmukhi;0A3C", + "aamatragurmukhi;0A3E", + "imatragurmukhi;0A3F", + "iimatragurmukhi;0A40", + "umatragurmukhi;0A41", + "uumatragurmukhi;0A42", + "eematragurmukhi;0A47", + "aimatragurmukhi;0A48", + "oomatragurmukhi;0A4B", + "aumatragurmukhi;0A4C", + "halantgurmukhi;0A4D", + "khhagurmukhi;0A59", + "ghhagurmukhi;0A5A", + "zagurmukhi;0A5B", + "rragurmukhi;0A5C", + "fagurmukhi;0A5E", + "zerogurmukhi;0A66", + "onegurmukhi;0A67", + "twogurmukhi;0A68", + "threegurmukhi;0A69", + "fourgurmukhi;0A6A", + "fivegurmukhi;0A6B", + "sixgurmukhi;0A6C", + "sevengurmukhi;0A6D", + "eightgurmukhi;0A6E", + "ninegurmukhi;0A6F", + "tippigurmukhi;0A70", + "addakgurmukhi;0A71", + "irigurmukhi;0A72", + "uragurmukhi;0A73", + "ekonkargurmukhi;0A74", + "candrabindugujarati;0A81", + "anusvaragujarati;0A82", + "visargagujarati;0A83", + "agujarati;0A85", + "aagujarati;0A86", + "igujarati;0A87", + "iigujarati;0A88", + "ugujarati;0A89", + "uugujarati;0A8A", + "rvocalicgujarati;0A8B", + "ecandragujarati;0A8D", + "egujarati;0A8F", + "aigujarati;0A90", + "ocandragujarati;0A91", + "ogujarati;0A93", + "augujarati;0A94", + "kagujarati;0A95", + "khagujarati;0A96", + "gagujarati;0A97", + "ghagujarati;0A98", + "ngagujarati;0A99", + "cagujarati;0A9A", + "chagujarati;0A9B", + "jagujarati;0A9C", + "jhagujarati;0A9D", + "nyagujarati;0A9E", + "ttagujarati;0A9F", + "tthagujarati;0AA0", + "ddagujarati;0AA1", + "ddhagujarati;0AA2", + "nnagujarati;0AA3", + "tagujarati;0AA4", + "thagujarati;0AA5", + "dagujarati;0AA6", + "dhagujarati;0AA7", + "nagujarati;0AA8", + "pagujarati;0AAA", + "phagujarati;0AAB", + "bagujarati;0AAC", + "bhagujarati;0AAD", + "magujarati;0AAE", + "yagujarati;0AAF", + "ragujarati;0AB0", + "lagujarati;0AB2", + "llagujarati;0AB3", + "vagujarati;0AB5", + "shagujarati;0AB6", + "ssagujarati;0AB7", + "sagujarati;0AB8", + "hagujarati;0AB9", + "nuktagujarati;0ABC", + "aavowelsigngujarati;0ABE", + "ivowelsigngujarati;0ABF", + "iivowelsigngujarati;0AC0", + "uvowelsigngujarati;0AC1", + "uuvowelsigngujarati;0AC2", + "rvocalicvowelsigngujarati;0AC3", + "rrvocalicvowelsigngujarati;0AC4", + "ecandravowelsigngujarati;0AC5", + "evowelsigngujarati;0AC7", + "aivowelsigngujarati;0AC8", + "ocandravowelsigngujarati;0AC9", + "ovowelsigngujarati;0ACB", + "auvowelsigngujarati;0ACC", + "viramagujarati;0ACD", + "omgujarati;0AD0", + "rrvocalicgujarati;0AE0", + "zerogujarati;0AE6", + "onegujarati;0AE7", + "twogujarati;0AE8", + "threegujarati;0AE9", + "fourgujarati;0AEA", + "fivegujarati;0AEB", + "sixgujarati;0AEC", + "sevengujarati;0AED", + "eightgujarati;0AEE", + "ninegujarati;0AEF", + "afii59681;0E01", + "kokaithai;0E01", + "afii59682;0E02", + "khokhaithai;0E02", + "afii59683;0E03", + "khokhuatthai;0E03", + "afii59684;0E04", + "khokhwaithai;0E04", + "afii59685;0E05", + "khokhonthai;0E05", + "afii59686;0E06", + "khorakhangthai;0E06", + "afii59687;0E07", + "ngonguthai;0E07", + "afii59688;0E08", + "chochanthai;0E08", + "afii59689;0E09", + "chochingthai;0E09", + "afii59690;0E0A", + "chochangthai;0E0A", + "afii59691;0E0B", + "sosothai;0E0B", + "afii59692;0E0C", + "chochoethai;0E0C", + "afii59693;0E0D", + "yoyingthai;0E0D", + "afii59694;0E0E", + "dochadathai;0E0E", + "afii59695;0E0F", + "topatakthai;0E0F", + "afii59696;0E10", + "thothanthai;0E10", + "afii59697;0E11", + "thonangmonthothai;0E11", + "afii59698;0E12", + "thophuthaothai;0E12", + "afii59699;0E13", + "nonenthai;0E13", + "afii59700;0E14", + "dodekthai;0E14", + "afii59701;0E15", + "totaothai;0E15", + "afii59702;0E16", + "thothungthai;0E16", + "afii59703;0E17", + "thothahanthai;0E17", + "afii59704;0E18", + "thothongthai;0E18", + "afii59705;0E19", + "nonuthai;0E19", + "afii59706;0E1A", + "bobaimaithai;0E1A", + "afii59707;0E1B", + "poplathai;0E1B", + "afii59708;0E1C", + "phophungthai;0E1C", + "afii59709;0E1D", + "fofathai;0E1D", + "afii59710;0E1E", + "phophanthai;0E1E", + "afii59711;0E1F", + "fofanthai;0E1F", + "afii59712;0E20", + "phosamphaothai;0E20", + "afii59713;0E21", + "momathai;0E21", + "afii59714;0E22", + "yoyakthai;0E22", + "afii59715;0E23", + "roruathai;0E23", + "afii59716;0E24", + "ruthai;0E24", + "afii59717;0E25", + "lolingthai;0E25", + "afii59718;0E26", + "luthai;0E26", + "afii59719;0E27", + "wowaenthai;0E27", + "afii59720;0E28", + "sosalathai;0E28", + "afii59721;0E29", + "sorusithai;0E29", + "afii59722;0E2A", + "sosuathai;0E2A", + "afii59723;0E2B", + "hohipthai;0E2B", + "afii59724;0E2C", + "lochulathai;0E2C", + "afii59725;0E2D", + "oangthai;0E2D", + "afii59726;0E2E", + "honokhukthai;0E2E", + "afii59727;0E2F", + "paiyannoithai;0E2F", + "afii59728;0E30", + "saraathai;0E30", + "afii59729;0E31", + "maihanakatthai;0E31", + "afii59730;0E32", + "saraaathai;0E32", + "afii59731;0E33", + "saraamthai;0E33", + "afii59732;0E34", + "saraithai;0E34", + "afii59733;0E35", + "saraiithai;0E35", + "afii59734;0E36", + "sarauethai;0E36", + "afii59735;0E37", + "saraueethai;0E37", + "afii59736;0E38", + "sarauthai;0E38", + "afii59737;0E39", + "sarauuthai;0E39", + "afii59738;0E3A", + "phinthuthai;0E3A", + "afii59743;0E3F", + "bahtthai;0E3F", + "afii59744;0E40", + "saraethai;0E40", + "afii59745;0E41", + "saraaethai;0E41", + "afii59746;0E42", + "saraothai;0E42", + "afii59747;0E43", + "saraaimaimuanthai;0E43", + "afii59748;0E44", + "saraaimaimalaithai;0E44", + "afii59749;0E45", + "lakkhangyaothai;0E45", + "afii59750;0E46", + "maiyamokthai;0E46", + "afii59751;0E47", + "maitaikhuthai;0E47", + "afii59752;0E48", + "maiekthai;0E48", + "afii59753;0E49", + "maithothai;0E49", + "afii59754;0E4A", + "maitrithai;0E4A", + "afii59755;0E4B", + "maichattawathai;0E4B", + "afii59756;0E4C", + "thanthakhatthai;0E4C", + "afii59757;0E4D", + "nikhahitthai;0E4D", + "afii59758;0E4E", + "yamakkanthai;0E4E", + "afii59759;0E4F", + "fongmanthai;0E4F", + "afii59760;0E50", + "zerothai;0E50", + "afii59761;0E51", + "onethai;0E51", + "afii59762;0E52", + "twothai;0E52", + "afii59763;0E53", + "threethai;0E53", + "afii59764;0E54", + "fourthai;0E54", + "afii59765;0E55", + "fivethai;0E55", + "afii59766;0E56", + "sixthai;0E56", + "afii59767;0E57", + "seventhai;0E57", + "afii59768;0E58", + "eightthai;0E58", + "afii59769;0E59", + "ninethai;0E59", + "afii59770;0E5A", + "angkhankhuthai;0E5A", + "afii59771;0E5B", + "khomutthai;0E5B", + "Aringbelow;1E00", + "aringbelow;1E01", + "Bdotaccent;1E02", + "bdotaccent;1E03", + "Bdotbelow;1E04", + "bdotbelow;1E05", + "Blinebelow;1E06", + "blinebelow;1E07", + "Ccedillaacute;1E08", + "ccedillaacute;1E09", + "Ddotaccent;1E0A", + "ddotaccent;1E0B", + "Ddotbelow;1E0C", + "ddotbelow;1E0D", + "Dlinebelow;1E0E", + "dlinebelow;1E0F", + "Dcedilla;1E10", + "dcedilla;1E11", + "Dcircumflexbelow;1E12", + "dcircumflexbelow;1E13", + "Emacrongrave;1E14", + "emacrongrave;1E15", + "Emacronacute;1E16", + "emacronacute;1E17", + "Ecircumflexbelow;1E18", + "ecircumflexbelow;1E19", + "Etildebelow;1E1A", + "etildebelow;1E1B", + "Ecedillabreve;1E1C", + "ecedillabreve;1E1D", + "Fdotaccent;1E1E", + "fdotaccent;1E1F", + "Gmacron;1E20", + "gmacron;1E21", + "Hdotaccent;1E22", + "hdotaccent;1E23", + "Hdotbelow;1E24", + "hdotbelow;1E25", + "Hdieresis;1E26", + "hdieresis;1E27", + "Hcedilla;1E28", + "hcedilla;1E29", + "Hbrevebelow;1E2A", + "hbrevebelow;1E2B", + "Itildebelow;1E2C", + "itildebelow;1E2D", + "Idieresisacute;1E2E", + "idieresisacute;1E2F", + "Kacute;1E30", + "kacute;1E31", + "Kdotbelow;1E32", + "kdotbelow;1E33", + "Klinebelow;1E34", + "klinebelow;1E35", + "Ldotbelow;1E36", + "ldotbelow;1E37", + "Ldotbelowmacron;1E38", + "ldotbelowmacron;1E39", + "Llinebelow;1E3A", + "llinebelow;1E3B", + "Lcircumflexbelow;1E3C", + "lcircumflexbelow;1E3D", + "Macute;1E3E", + "macute;1E3F", + "Mdotaccent;1E40", + "mdotaccent;1E41", + "Mdotbelow;1E42", + "mdotbelow;1E43", + "Ndotaccent;1E44", + "ndotaccent;1E45", + "Ndotbelow;1E46", + "ndotbelow;1E47", + "Nlinebelow;1E48", + "nlinebelow;1E49", + "Ncircumflexbelow;1E4A", + "ncircumflexbelow;1E4B", + "Otildeacute;1E4C", + "otildeacute;1E4D", + "Otildedieresis;1E4E", + "otildedieresis;1E4F", + "Omacrongrave;1E50", + "omacrongrave;1E51", + "Omacronacute;1E52", + "omacronacute;1E53", + "Pacute;1E54", + "pacute;1E55", + "Pdotaccent;1E56", + "pdotaccent;1E57", + "rdotaccent;1E59", + "Rdotbelow;1E5A", + "rdotbelow;1E5B", + "Rdotbelowmacron;1E5C", + "rdotbelowmacron;1E5D", + "Rlinebelow;1E5E", + "rlinebelow;1E5F", + "Sdotaccent;1E60", + "sdotaccent;1E61", + "Sdotbelow;1E62", + "sdotbelow;1E63", + "Sacutedotaccent;1E64", + "sacutedotaccent;1E65", + "Scarondotaccent;1E66", + "scarondotaccent;1E67", + "Sdotbelowdotaccent;1E68", + "sdotbelowdotaccent;1E69", + "Tdotaccent;1E6A", + "tdotaccent;1E6B", + "Tdotbelow;1E6C", + "tdotbelow;1E6D", + "Tlinebelow;1E6E", + "tlinebelow;1E6F", + "Tcircumflexbelow;1E70", + "tcircumflexbelow;1E71", + "Udieresisbelow;1E72", + "udieresisbelow;1E73", + "Utildebelow;1E74", + "utildebelow;1E75", + "Ucircumflexbelow;1E76", + "ucircumflexbelow;1E77", + "Utildeacute;1E78", + "utildeacute;1E79", + "Umacrondieresis;1E7A", + "umacrondieresis;1E7B", + "Vtilde;1E7C", + "vtilde;1E7D", + "Vdotbelow;1E7E", + "vdotbelow;1E7F", + "Wgrave;1E80", + "wgrave;1E81", + "Wacute;1E82", + "wacute;1E83", + "Wdieresis;1E84", + "wdieresis;1E85", + "Wdotaccent;1E86", + "wdotaccent;1E87", + "Wdotbelow;1E88", + "wdotbelow;1E89", + "Xdotaccent;1E8A", + "xdotaccent;1E8B", + "Xdieresis;1E8C", + "xdieresis;1E8D", + "Ydotaccent;1E8E", + "ydotaccent;1E8F", + "Zcircumflex;1E90", + "zcircumflex;1E91", + "Zdotbelow;1E92", + "zdotbelow;1E93", + "Zlinebelow;1E94", + "zlinebelow;1E95", + "hlinebelow;1E96", + "tdieresis;1E97", + "wring;1E98", + "yring;1E99", + "arighthalfring;1E9A", + "slongdotaccent;1E9B", + "Adotbelow;1EA0", + "adotbelow;1EA1", + "Ahookabove;1EA2", + "ahookabove;1EA3", + "Acircumflexacute;1EA4", + "acircumflexacute;1EA5", + "Acircumflexgrave;1EA6", + "acircumflexgrave;1EA7", + "Acircumflexhookabove;1EA8", + "acircumflexhookabove;1EA9", + "Acircumflextilde;1EAA", + "acircumflextilde;1EAB", + "Acircumflexdotbelow;1EAC", + "acircumflexdotbelow;1EAD", + "Abreveacute;1EAE", + "abreveacute;1EAF", + "Abrevegrave;1EB0", + "abrevegrave;1EB1", + "Abrevehookabove;1EB2", + "abrevehookabove;1EB3", + "Abrevetilde;1EB4", + "abrevetilde;1EB5", + "Abrevedotbelow;1EB6", + "abrevedotbelow;1EB7", + "Edotbelow;1EB8", + "edotbelow;1EB9", + "Ehookabove;1EBA", + "ehookabove;1EBB", + "Etilde;1EBC", + "etilde;1EBD", + "Ecircumflexacute;1EBE", + "ecircumflexacute;1EBF", + "Ecircumflexgrave;1EC0", + "ecircumflexgrave;1EC1", + "Ecircumflexhookabove;1EC2", + "ecircumflexhookabove;1EC3", + "Ecircumflextilde;1EC4", + "ecircumflextilde;1EC5", + "Ecircumflexdotbelow;1EC6", + "ecircumflexdotbelow;1EC7", + "Ihookabove;1EC8", + "ihookabove;1EC9", + "Idotbelow;1ECA", + "idotbelow;1ECB", + "Odotbelow;1ECC", + "odotbelow;1ECD", + "Ohookabove;1ECE", + "ohookabove;1ECF", + "Ocircumflexacute;1ED0", + "ocircumflexacute;1ED1", + "Ocircumflexgrave;1ED2", + "ocircumflexgrave;1ED3", + "Ocircumflexhookabove;1ED4", + "ocircumflexhookabove;1ED5", + "Ocircumflextilde;1ED6", + "ocircumflextilde;1ED7", + "Ocircumflexdotbelow;1ED8", + "Ohornacute;1EDA", + "ohornacute;1EDB", + "Ohorngrave;1EDC", + "ohorngrave;1EDD", + "Ohornhookabove;1EDE", + "ohornhookabove;1EDF", + "Ohorntilde;1EE0", + "ohorntilde;1EE1", + "Ohorndotbelow;1EE2", + "ohorndotbelow;1EE3", + "Udotbelow;1EE4", + "udotbelow;1EE5", + "Uhookabove;1EE6", + "uhookabove;1EE7", + "Uhornacute;1EE8", + "uhornacute;1EE9", + "Uhorngrave;1EEA", + "uhorngrave;1EEB", + "Uhornhookabove;1EEC", + "uhornhookabove;1EED", + "Uhorntilde;1EEE", + "uhorntilde;1EEF", + "Uhorndotbelow;1EF0", + "uhorndotbelow;1EF1", + "Ygrave;1EF2", + "ygrave;1EF3", + "Ydotbelow;1EF4", + "ydotbelow;1EF5", + "Yhookabove;1EF6", + "yhookabove;1EF7", + "Ytilde;1EF8", + "ytilde;1EF9", + "enquad;2000", + "emquad;2001", + "enspace;2002", + "emspace;2003", + "threeperemspace;2004", + "fourperemspace;2005", + "sixperemspace;2006", + "figurespace;2007", + "punctuationspace;2008", + "thinspace;2009", + "hairspace;200A", + "zerospace;200B", + "zerowidthspace;200B", + "c24083;200C", + "zeronojoin;200C", + "zerowidthnonjoiner;200C", + "afii61664;200C", + "afii57598;200D", + "c24084;200D", + "zerojoin;200D", + "afii301;200D", + "afii57596;200E", + "c24085;200E", + "lefttoright;200E", + "afii299;200E", + "afii57597;200F", + "c24086;200F", + "righttoleft;200F", + "afii300;200F", + "hyphen1;2010", + "hyphen__;2010", + "hyphentwo;2010", + "hyphennobreak;2011", + "figuredash;2012", + "endash;2013", + "emdash;2014", + "horizontalbar;2015", + "longdash;2015", + "quotedash;2015", + "afii00208;2015", + "dblverticalbar;2016", + "verticalbardbl;2016", + "dbllowline;2017", + "underscoredbl;2017", + "quoteleft;2018", + "quoteright;2019", + "quotesinglbase;201A", + "quoteleftreversed;201B", + "quotesinglrev;201B", + "quotereversed;201B", + "quotedblleft;201C", + "quotedblright;201D", + "quotedblbase;201E", + "quotedblrev;201F", + "dagger;2020", + "daggerdbl;2021", + "bullet;2022", + "trianglebullet;2023", + "onedotlead;2024", + "onedotenleader;2024", + "twodotlead;2025", + "twodotleader;2025", + "twodotenleader;2025", + "ellipsis;2026", + "hyphendot;2027", + "lineseparator;2028", + "paragraphseparator;2029", + "lre;202A", + "rle;202B", + "pdf;202C", + "afii61573;202C", + "lro;202D", + "afii61574;202D", + "rlo;202E", + "afii61575;202E", + "perthousand;2030", + "pertenthousand;2031", + "prime1;2032", + "minute;2032", + "primedbl1;2033", + "second;2033", + "primetripl1;2034", + "primerev1;2035", + "primereversed;2035", + "primedblrev1;2036", + "primetriplerev1;2037", + "caret;2038", + "guilsinglleft;2039", + "guilsinglright;203A", + "referencemark;203B", + "refmark;203B", + "exclamdbl;203C", + "interrobang;203D", + "overline;203E", + "overscore1;203E", + "tie1;2040", + "caretinsert;2041", + "asterism;2042", + "hyphenbullet;2043", + "fraction1;2044", + "fraction;2044", + "zero.superior;2070", + "zero.sups;2070", + "zerosuperior;2070", + "four.superior;2074", + "four.sups;2074", + "foursuperior;2074", + "five.superior;2075", + "five.sups;2075", + "fivesuperior;2075", + "six.superior;2076", + "six.sups;2076", + "sixsuperior;2076", + "seven.superior;2077", + "seven.sups;2077", + "sevensuperior;2077", + "eight.superior;2078", + "eight.sups;2078", + "eightsuperior;2078", + "nine.superior;2079", + "nine.sups;2079", + "ninesuperior;2079", + "plus.superior;207A", + "plus.sups;207A", + "plussuperior;207A", + "minus.superior;207B", + "minus.sups;207B", + "minussuperior;207B", + "equal.superior;207C", + "equal.sups;207C", + "equalsuperior;207C", + "parenleft.superior;207D", + "parenleft.sups;207D", + "parenleftsuperior;207D", + "parenright.superior;207E", + "parenright.sups;207E", + "parenrightsuperior;207E", + "n.superior;207F", + "n.sups;207F", + "nsuperior;207F", + "zero.inferior;2080", + "zero.sinf;2080", + "zeroinferior;2080", + "zerosub;2080", + "one.inferior;2081", + "one.sinf;2081", + "oneinferior;2081", + "onesub;2081", + "two.inferior;2082", + "two.sinf;2082", + "twoinferior;2082", + "twosub;2082", + "three.inferior;2083", + "three.sinf;2083", + "threeinferior;2083", + "threesub;2083", + "four.inferior;2084", + "four.sinf;2084", + "fourinferior;2084", + "foursub;2084", + "five.inferior;2085", + "five.sinf;2085", + "fiveinferior;2085", + "fivesub;2085", + "six.inferior;2086", + "six.sinf;2086", + "sixinferior;2086", + "sixsub;2086", + "seven.inferior;2087", + "seven.sinf;2087", + "seveninferior;2087", + "sevensub;2087", + "eight.inferior;2088", + "eight.sinf;2088", + "eightinferior;2088", + "eightsub;2088", + "nine.inferior;2089", + "nine.sinf;2089", + "nineinferior;2089", + "ninesub;2089", + "plussub;208A", + "minussub;208B", + "equalsub;208C", + "parenleft.inferior;208D", + "parenleft.sinf;208D", + "parenleftinferior;208D", + "parenleftsub;208D", + "parenright.inferior;208E", + "parenright.sinf;208E", + "parenrightinferior;208E", + "parenrightsub;208E", + "coloncurrency;20A1", + "colonsign;20A1", + "colonmonetary;20A1", + "cruzeiro;20A2", + "franc;20A3", + "afii08941;20A4", + "lira;20A4", + "mill;20A5", + "naira;20A6", + "Pts;20A7", + "pesetas;20A7", + "peseta;20A7", + "rupee;20A8", + "won;20A9", + "newsheqel;20AA", + "newsheqelsign;20AA", + "sheqel;20AA", + "sheqelhebrew;20AA", + "afii57636;20AA", + "dong;20AB", + "Eurocurrency;20AC", + "euro;20AC", + "eurocurrency;20AC", + "Euro;20AC", + "accountof;2100", + "addresssubject;2101", + "Cbb;2102", + "centigrade;2103", + "degreecentigrade;2103", + "CL;2104", + "careof;2105", + "cslasho;2105", + "afii61248;2105", + "cadauna;2106", + "Euler;2107", + "scruple;2108", + "degreefarenheit;2109", + "fahrenheit;2109", + "Hscript;210B", + "Hblackletter;210C", + "Hbb;210D", + "planck;210E", + "planckover2pi;210F", + "Iscript;2110", + "Ifraktur;2111", + "Lscript;2112", + "litre;2113", + "lscript;2113", + "lsquare;2113", + "afii61289;2113", + "lbbar;2114", + "numero;2116", + "afii61352;2116", + "recordright;2117", + "weierstrass;2118", + "Pbb;2119", + "Qbb;211A", + "Rscript;211B", + "Rfractur;211C", + "Rfraktur;211C", + "Rbb;211D", + "Rx;211E", + "prescription;211E", + "response;211F", + "servicemark;2120", + "tel;2121", + "telephone;2121", + "trademark;2122", + "versicle;2123", + "Zbb;2124", + "ounce;2125", + "Ohm;2126", + "Omega_;2126", + "ohm;2126", + "mho;2127", + "Zblackletter;2128", + "iotaturn;2129", + "degreekelvin;212A", + "angstrom;212B", + "Bscript;212C", + "Cblackletter;212D", + "estimated;212E", + "escript;212F", + "Escript;2130", + "Fscript;2131", + "Fturn;2132", + "Mscript;2133", + "0script;2134", + "alephmath;2135", + "aleph;2135", + "bethmath;2136", + "gimelmath;2137", + "dalethmath;2138", + "onethird;2153", + "twothirds;2154", + "oneeighth;215B", + "threeeighths;215C", + "fiveeighths;215D", + "seveneighths;215E", + "Oneroman;2160", + "Tworoman;2161", + "Threeroman;2162", + "Fourroman;2163", + "Fiveroman;2164", + "Sixroman;2165", + "Sevenroman;2166", + "Eightroman;2167", + "Nineroman;2168", + "Tenroman;2169", + "Elevenroman;216A", + "Twelveroman;216B", + "oneroman;2170", + "tworoman;2171", + "threeroman;2172", + "fourroman;2173", + "fiveroman;2174", + "sixroman;2175", + "sevenroman;2176", + "eightroman;2177", + "nineroman;2178", + "tenroman;2179", + "elevenroman;217A", + "twelveroman;217B", + "arrowleft;2190", + "arrowup;2191", + "a161;2192", + "arrowright;2192", + "arrowdown;2193", + "a163;2194", + "arrowlongboth;2194", + "arrowboth;2194", + "a164;2195", + "arrowlongbothv;2195", + "arrowupdn;2195", + "arrownorthwest;2196", + "arrowupleft;2196", + "arrownortheast;2197", + "arrowupright;2197", + "arrowdownright;2198", + "arrowsoutheast;2198", + "arrowdownleft;2199", + "arrowsouthwest;2199", + "arrowleftnot;219A", + "arrowrightnot;219B", + "arrowwaveleft;219C", + "arrowwaveright;219D", + "dblarrowheadleft;219E", + "dblarrowheadup;219F", + "dblarrowheaddown;21A1", + "arrowtailleft;21A2", + "arrowtailright;21A3", + "arrowbarleft;21A4", + "arrowbarup;21A5", + "arrowbarright;21A6", + "arrowbardown;21A7", + "arrowbothvbase;21A8", + "arrowupdownbase;21A8", + "arrowupdnbse;21A8", + "arrowhookleft;21A9", + "arrowhookright;21AA", + "arrowloopleft;21AB", + "arrowloopright;21AC", + "arrowwaveboth;21AD", + "arrowlongbothnot;21AE", + "arrowzigzag;21AF", + "arrowrightdown;21B4", + "carriagerreturn;21B5", + "carriagereturn;21B5", + "arrowsemanticlockw;21B6", + "arrowsemclockw;21B7", + "home;21B8", + "tableftright;21B9", + "arrowanticlockw;21BA", + "arrowclockw;21BB", + "arrowlefttophalf;21BC", + "harpoonleftbarbup;21BC", + "arrowleftbothalf;21BD", + "harpoonupright;21BE", + "harpoonupleft;21BF", + "arrowrighttophalf;21C0", + "harpoonrightbarbup;21C0", + "arrowrightbothalf;21C1", + "harpoondownright;21C2", + "harpoondownleft;21C3", + "arrowparrrightleft;21C4", + "arrowrightoverleft;21C4", + "arrowupleftofdown;21C5", + "dblarrowupdown;21C5", + "arrowleftoverright;21C6", + "arrowparrleftright;21C6", + "dblarrowup;21C8", + "dblarrowdown;21CA", + "harpoonleftright;21CB", + "harpoonrightleft;21CC", + "arrowdblleftnot;21CD", + "arrowleftdblstroke;21CD", + "arrowdbllongbothnot;21CE", + "arrowdblrightnot;21CF", + "arrowrightdblstroke;21CF", + "arrowleftdbl;21D0", + "arrowdblleft;21D0", + "arrowdblup;21D1", + "dblarrowright;21D2", + "arrowdblright;21D2", + "arrowdbldown;21D3", + "arrowdbllongboth;21D4", + "dblarrowleft;21D4", + "arrowdblboth;21D4", + "arrowdbllongbothv;21D5", + "arrowdblnw;21D6", + "arrowdblne;21D7", + "arrowdblse;21D8", + "arrowdblsw;21D9", + "arrowtripleleft;21DA", + "arrowtripleright;21DB", + "arrowsquiggleleft;21DC", + "arrowsquiggleright;21DD", + "pageup;21DE", + "pagedown;21DF", + "arrowdashleft;21E0", + "arrowdashup;21E1", + "arrowdashright;21E2", + "arrowdashdown;21E3", + "arrowtableft;21E4", + "arrowtabright;21E5", + "arrowleftwhite;21E6", + "arrowopenleft;21E6", + "arrowopenup;21E7", + "arrowupwhite;21E7", + "arrowopenright;21E8", + "arrowrightwhite;21E8", + "arrowdownwhite;21E9", + "arrowopendown;21E9", + "capslock;21EA", + "forall;2200", + "universal;2200", + "complement;2201", + "partialdiff;2202", + "thereexists;2203", + "existential;2203", + "notexistential;2204", + "emptyset;2205", + "Delta_;2206", + "increment;2206", + "Nabla;2207", + "nabla;2207", + "gradient;2207", + "element;2208", + "notelementof;2209", + "notelement;2209", + "elementsmall;220A", + "owner;220B", + "suchthat;220B", + "notcontains;220C", + "notowner;220C", + "ownersmall;220D", + "eop;220E", + "product;220F", + "coproduct;2210", + "summation;2211", + "minus;2212", + "minusplus;2213", + "dotplus;2214", + "divisionslash;2215", + "slashmath;2215", + "backslashmath;2216", + "asteriskmath;2217", + "bulletmath;2219", + "bulletoperator;2219", + "periodcenter;2219", + "periodcentered_;2219", + "radical;221A", + "cuberoot;221B", + "fourthroot;221C", + "proportional;221D", + "infinity;221E", + "rightangle;221F", + "orthogonal;221F", + "angle;2220", + "measuredangle;2221", + "sphericalangle;2222", + "bar1;2223", + "divides;2223", + "bardbl2;2225", + "parallel;2225", + "notbardbl;2226", + "notparallel;2226", + "logicaland;2227", + "logicalor;2228", + "intersection;2229", + "union;222A", + "integral;222B", + "dblintegral;222C", + "integraldbl;222C", + "integraltrpl;222D", + "contintegral;222E", + "contourintegral;222E", + "surfintegral;222F", + "volintegral;2230", + "clwintegral;2231", + "clwcontintegral;2232", + "cclwcontintegral;2233", + "therefore;2234", + "because;2235", + "ratio;2236", + "proportion;2237", + "dotminus;2238", + "excess;2239", + "geomproportion;223A", + "homothetic;223B", + "tildeoperator;223C", + "similar;223C", + "reversedtilde;223D", + "revsimilar;223D", + "lazysinv;223E", + "sine;223F", + "wreathproduct;2240", + "notsimilar;2241", + "minustilde;2242", + "asymptequal;2243", + "asymptoticallyequal;2243", + "notasymptequal;2244", + "approximatelyequal;2245", + "approxorequal;2245", + "congruent;2245", + "approxnotequal;2246", + "notapproxequal;2247", + "approxequal;2248", + "notalmostequal;2249", + "almostorequal;224A", + "tildetrpl;224B", + "allequal;224C", + "equivasymptotic;224D", + "geomequivalent;224E", + "difference;224F", + "approaches;2250", + "approachlimit;2250", + "geomequal;2251", + "geometricallyequal;2251", + "approxequalorimage;2252", + "imageorapproxequal;2253", + "imageorapproximatelyequal;2253", + "colonequal;2254", + "equalcolon;2255", + "ringinequal;2256", + "ringequal;2257", + "corresponds;2258", + "estimates;2259", + "equiangular;225A", + "starequal;225B", + "deltaequal;225C", + "definequal;225D", + "measurequal;225E", + "questionequal;225F", + "notequal;2260", + "equivalence;2261", + "notequivalence;2262", + "notidentical;2262", + "strictequivalence;2263", + "lessequal;2264", + "greaterequal;2265", + "lessdblequal;2266", + "lessoverequal;2266", + "greaterdblequal;2267", + "greateroverequal;2267", + "lessnotdblequal;2268", + "greaternotdblequal;2269", + "lessmuch;226A", + "muchless;226A", + "greatermuch;226B", + "muchgreater;226B", + "between;226C", + "notequivasymptotic;226D", + "notless;226E", + "notgreater;226F", + "notlessequal1;2270", + "notlessnorequal;2270", + "notgreaterequal1;2271", + "notgreaternorequal;2271", + "lessequivlnt;2272", + "lessorequivalent;2272", + "greaterequivlnt;2273", + "greaterorequivalent;2273", + "notlessequivlnt;2274", + "notgreaterequivlnt;2275", + "lessorgreater;2276", + "greaterorless;2277", + "notlessgreater;2278", + "notgreaterless;2279", + "notgreaternorless;2279", + "precedes;227A", + "follows;227B", + "succeeds;227B", + "precedesequal1;227C", + "followsequal1;227D", + "precedequivlnt;227E", + "followsequivlnt;227F", + "notprecedes;2280", + "notpreceeds;2280", + "notfollows;2281", + "notsucceeds;2281", + "subset;2282", + "propersubset;2282", + "superset;2283", + "propersuperset;2283", + "notpropersubset;2284", + "notsubset;2284", + "notpropersuperset;2285", + "notsuperset;2285", + "subsetorequal;2286", + "reflexsubset;2286", + "supersetorequal;2287", + "reflexsuperset;2287", + "notreflexsubset;2288", + "notreflexsuperset;2289", + "subsetnotequal;228A", + "supersetnotequal;228B", + "multiset;228C", + "multiplymultiset;228D", + "unionmulti;228E", + "squareimage;228F", + "squareoriginal;2290", + "subsetsqequal;2291", + "supersetsqequal;2292", + "intersectionsq;2293", + "unionsq;2294", + "pluscircle;2295", + "circleplus;2295", + "circleminus;2296", + "minuscircle;2296", + "timescircle;2297", + "circlemultiply;2297", + "circledivide;2298", + "circledot;2299", + "circleot;2299", + "circlering;229A", + "circleasterisk;229B", + "circleequal;229C", + "circleminus1;229D", + "squareplus;229E", + "squareminus;229F", + "squaremultiply;22A0", + "squaredot;22A1", + "turnstileleft;22A2", + "tackleft;22A3", + "turnstileright;22A3", + "latticetop;22A4", + "tackdown;22A4", + "perpendicular;22A5", + "assertion;22A6", + "truestate;22A7", + "satisfy;22A8", + "force;22A9", + "tacktrpl;22AA", + "forceextr;22AB", + "notturnstileleft;22AC", + "notsatisfy;22AD", + "notforce;22AE", + "lowerrank;22B0", + "higherrank;22B1", + "triangleright;22B2", + "triangleleft;22B3", + "triangleftequal;22B4", + "triangrightequal;22B5", + "original;22B6", + "image;22B7", + "multimap;22B8", + "hermitconjmatrix;22B9", + "intercal;22BA", + "xor;22BB", + "nand;22BC", + "nor;22BD", + "rightanglearc;22BE", + "righttriangle;22BF", + "narylogicaland;22C0", + "narylogicalor;22C1", + "naryintersection;22C2", + "naryunion;22C3", + "diamondmath;22C4", + "periodcentered__;22C5", + "dotmath;22C5", + "star;22C6", + "divideonmultiply;22C7", + "bowtie;22C8", + "multicloseleft;22C9", + "multicloseright;22CA", + "multiopenleft;22CB", + "multiopenright;22CC", + "revasymptequal;22CD", + "curlor;22CE", + "curlyor;22CE", + "curland;22CF", + "curlyand;22CF", + "subsetdbl;22D0", + "supersetdbl;22D1", + "uniondbl;22D2", + "intersectiondbl;22D3", + "fork;22D4", + "equalparallel;22D5", + "lessdot;22D6", + "greaterdot;22D7", + "verymuchless;22D8", + "verymuchgreater;22D9", + "lessequalgreater;22DA", + "lessequalorgreater;22DA", + "greaterequalless;22DB", + "greaterequalorless;22DB", + "equalless;22DC", + "equalgreater;22DD", + "equalprecedes1;22DE", + "equalfollows1;22DF", + "preceedsnotequal;22E0", + "followsnotequal;22E1", + "notsupersetsqequal;22E3", + "sqimageornotequal;22E4", + "sqoriginornotequal;22E5", + "lessnotequivlnt;22E6", + "greaternotequivlnt;22E7", + "preceedsnotsimilar;22E8", + "followsnotequivlnt;22E9", + "nottriangleleft;22EA", + "nottriangleright;22EB", + "nottriangleleftequal;22EC", + "nottrianglerightequal;22ED", + "ellipsisvertical;22EE", + "vertellipsis;22EE", + "midhorizellipsis;22EF", + "upslopeellipsis;22F0", + "downslopeellipsis;22F1", + "house;2302", + "control;2303", + "projective;2305", + "perspcorrespond;2306", + "ceilingleft;2308", + "ceilingright;2309", + "floorleft;230A", + "floorright;230B", + "logicalnotreversed;2310", + "revlogicalnot;2310", + "arc;2312", + "propellor;2318", + "integraltop;2320", + "integraltp;2320", + "integralbottom;2321", + "integralbt;2321", + "slurabove;2322", + "slurbelow;2323", + "option;2325", + "deleteright;2326", + "clear;2327", + "angleleft;2329", + "angleright;232A", + "deleteleft;232B", + "null;2400", + "startofhead;2401", + "starttext;2402", + "endtext;2403", + "endtrans;2404", + "enquiry;2405", + "acknowledge;2406", + "bell;2407", + "backspace;2408", + "horiztab;2409", + "linefeed;240A", + "verttab;240B", + "formfeed;240C", + "shiftout;240E", + "shiftin;240F", + "datalinkescape;2410", + "devcon1;2411", + "devcon2;2412", + "devcon3;2413", + "devcon4;2414", + "negacknowledge;2415", + "synch;2416", + "endtransblock;2417", + "cancel;2418", + "endmedium;2419", + "substitute;241A", + "escape;241B", + "fileseparator;241C", + "groupseparator;241D", + "recordseparator;241E", + "unitseparator;241F", + "spaceliteral;2420", + "delete;2421", + "blankb;2422", + "blank;2423", + "spaceopenbox;2423", + "newline;2424", + "a120;2460", + "onecircle;2460", + "a121;2461", + "twocircle;2461", + "a122;2462", + "threecircle;2462", + "a123;2463", + "fourcircle;2463", + "a124;2464", + "fivecircle;2464", + "a125;2465", + "sixcircle;2465", + "a126;2466", + "sevencircle;2466", + "a127;2467", + "eightcircle;2467", + "a128;2468", + "ninecircle;2468", + "a129;2469", + "tencircle;2469", + "elevencircle;246A", + "twelvecircle;246B", + "thirteencircle;246C", + "fourteencircle;246D", + "fifteencircle;246E", + "sixteencircle;246F", + "seventeencircle;2470", + "eighteencircle;2471", + "nineteencircle;2472", + "twentycircle;2473", + "oneparen;2474", + "twoparen;2475", + "fourparen;2477", + "fiveparen;2478", + "sixparen;2479", + "sevenparen;247A", + "eightparen;247B", + "nineparen;247C", + "tenparen;247D", + "elevenparen;247E", + "twelveparen;247F", + "thirteenparen;2480", + "fourteenparen;2481", + "fifteenparen;2482", + "sixteenparen;2483", + "seventeenparen;2484", + "eighteenparen;2485", + "nineteenparen;2486", + "twentyparen;2487", + "oneperiod;2488", + "twoperiod;2489", + "threeperiod;248A", + "fourperiod;248B", + "fiveperiod;248C", + "sixperiod;248D", + "sevenperiod;248E", + "eightperiod;248F", + "nineperiod;2490", + "tenperiod;2491", + "elevenperiod;2492", + "twelveperiod;2493", + "thirteenperiod;2494", + "fourteenperiod;2495", + "fifteenperiod;2496", + "sixteenperiod;2497", + "seventeenperiod;2498", + "eighteenperiod;2499", + "nineteenperiod;249A", + "twentyperiod;249B", + "aparen;249C", + "bparen;249D", + "cparen;249E", + "dparen;249F", + "eparen;24A0", + "fparen;24A1", + "gparen;24A2", + "hparen;24A3", + "iparen;24A4", + "jparen;24A5", + "kparen;24A6", + "lparen;24A7", + "mparen;24A8", + "nparen;24A9", + "oparen;24AA", + "pparen;24AB", + "qparen;24AC", + "rparen;24AD", + "sparen;24AE", + "tparen;24AF", + "uparen;24B0", + "vparen;24B1", + "wparen;24B2", + "xparen;24B3", + "yparen;24B4", + "zparen;24B5", + "Acircle;24B6", + "Bcircle;24B7", + "Ccircle;24B8", + "Dcircle;24B9", + "Ecircle;24BA", + "Fcircle;24BB", + "Gcircle;24BC", + "Hcircle;24BD", + "Icircle;24BE", + "Jcircle;24BF", + "Kcircle;24C0", + "Lcircle;24C1", + "Mcircle;24C2", + "Ncircle;24C3", + "Ocircle;24C4", + "Pcircle;24C5", + "Qcircle;24C6", + "Rcircle;24C7", + "Scircle;24C8", + "Tcircle;24C9", + "Ucircle;24CA", + "Vcircle;24CB", + "Wcircle;24CC", + "Xcircle;24CD", + "Ycircle;24CE", + "Zcircle;24CF", + "acircle;24D0", + "bcircle;24D1", + "ccircle;24D2", + "dcircle;24D3", + "ecircle;24D4", + "fcircle;24D5", + "gcircle;24D6", + "hcircle;24D7", + "icircle;24D8", + "jcircle;24D9", + "kcircle;24DA", + "lcircle;24DB", + "mcircle;24DC", + "ncircle;24DD", + "ocircle;24DE", + "pcircle;24DF", + "qcircle;24E0", + "rcircle;24E1", + "scircle;24E2", + "tcircle;24E3", + "ucircle;24E4", + "vcircle;24E5", + "wcircle;24E6", + "xcircle;24E7", + "ycircle;24E8", + "zcircle;24E9", + "SF100000;2500", + "SF110000;2502", + "SF010000;250C", + "SF030000;2510", + "SF020000;2514", + "SF040000;2518", + "SF080000;251C", + "SF090000;2524", + "SF060000;252C", + "SF070000;2534", + "SF050000;253C", + "SF430000;2550", + "SF240000;2551", + "SF510000;2552", + "SF520000;2553", + "SF390000;2554", + "SF220000;2555", + "SF210000;2556", + "SF250000;2557", + "SF500000;2558", + "SF490000;2559", + "SF380000;255A", + "SF280000;255B", + "SF270000;255C", + "SF260000;255D", + "SF360000;255E", + "SF370000;255F", + "SF420000;2560", + "SF190000;2561", + "SF200000;2562", + "SF230000;2563", + "SF470000;2564", + "SF480000;2565", + "SF410000;2566", + "SF450000;2567", + "SF460000;2568", + "SF400000;2569", + "SF540000;256A", + "SF530000;256B", + "SF440000;256C", + "upblock;2580", + "dnquarterblock;2582", + "dnthreeeighthblock;2583", + "dnblock;2584", + "dnfiveeighthblock;2585", + "dnthreequarterblock;2586", + "dnseveneighthblock;2587", + "block;2588", + "lfseveneighthblock;2589", + "lfthreequarterblock;258A", + "lffiveeighthblock;258B", + "lfblock;258C", + "lfthreeeighthblock;258D", + "lfquarterblock;258E", + "lfeighthblock;258F", + "rtblock;2590", + "shadelight;2591", + "ltshade;2591", + "shademedium;2592", + "shade;2592", + "shadedark;2593", + "dkshade;2593", + "upeighthblock;2594", + "rteighthblock;2595", + "a73;25A0", + "blacksquare;25A0", + "filledbox;25A0", + "U25a1;25A1", + "box;25A1", + "whitesquare;25A1", + "H22073;25A1", + "boxrounded;25A2", + "boxnested;25A3", + "squarewhitewithsmallblack;25A3", + "boxhorizhatch;25A4", + "squarehorizontalfill;25A4", + "boxverthatch;25A5", + "squareverticalfill;25A5", + "boxcrosshatch;25A6", + "squareorthogonalcrosshatchfill;25A6", + "boxleftdiaghatch;25A7", + "squareupperlefttolowerrightfill;25A7", + "boxrtdiaghatch;25A8", + "squareupperrighttolowerleftfill;25A8", + "boxcrossdiaghatch;25A9", + "squarediagonalcrosshatchfill;25A9", + "U25aa;25AA", + "blacksmallsquare;25AA", + "smallboxfilled;25AA", + "H18543;25AA", + "U25ab;25AB", + "smallbox;25AB", + "whitesmallsquare;25AB", + "H18551;25AB", + "blackrectangle;25AC", + "filledrect;25AC", + "rectangle;25AD", + "filledvertrect;25AE", + "vertrectangle;25AF", + "filledparallelogram;25B0", + "parallelogram;25B1", + "a76;25B2", + "blackuppointingtriangle;25B2", + "triagup;25B2", + "triangle;25B3", + "whiteuppointingtriangle;25B3", + "blackuppointingsmalltriangle;25B4", + "smalltrianglesld;25B4", + "smalltriangle;25B5", + "whiteuppointingsmalltriangle;25B5", + "blackrightpointingtriangle;25B6", + "trianglerightsld1;25B6", + "triangleright1;25B7", + "whiterightpointingtriangle;25B7", + "smalltrianglerightsld;25B8", + "smalltriangleright;25B9", + "whiterightpointingsmalltriangle;25B9", + "blackrightpointingpointer;25BA", + "triagrt;25BA", + "triagrtopen;25BB", + "a77;25BC", + "blackdownpointingtriangle;25BC", + "triagdn;25BC", + "triangleinv;25BD", + "whitedownpointingtriangle;25BD", + "smalltriangleinvsld;25BE", + "smalltriangleinv;25BF", + "whitedownpointingsmalltriangle;25BF", + "blackleftpointingtriangle;25C0", + "triangleleftsld1;25C0", + "triangleleft1;25C1", + "whiteleftpointingtriangle;25C1", + "smalltriangleleftsld;25C2", + "smalltriangleleft;25C3", + "whiteleftpointingsmalltriangle;25C3", + "blackleftpointingpointer;25C4", + "triaglf;25C4", + "triaglfopen;25C5", + "a78;25C6", + "blackdiamond;25C6", + "diamondrhombsolid;25C6", + "diamondrhomb;25C7", + "whitediamond;25C7", + "diamondrhombnested;25C8", + "whitediamondcontainingblacksmalldiamond;25C8", + "fisheye;25C9", + "lozenge;25CA", + "whitecircle;25CB", + "circle;25CB", + "circledash;25CC", + "dottedcircle;25CC", + "circleverthatch;25CD", + "bullseye;25CE", + "bullseye1;25CE", + "U25cf;25CF", + "a71;25CF", + "blackcircle;25CF", + "circlesolid;25CF", + "H18533;25CF", + "circleleftsld;25D0", + "circlewithlefthalfblack;25D0", + "circlerightsld;25D1", + "circlewithrighthalfblack;25D1", + "circlebottomsld;25D2", + "circletopsld;25D3", + "circlenesld;25D4", + "circlenwopen;25D5", + "semicircleleftsld;25D6", + "a81;25D7", + "semicirclelertsld;25D7", + "bulletinverse;25D8", + "invbullet;25D8", + "whitecircleinverse;25D9", + "invcircle;25D9", + "invsemicircleup;25DA", + "invsemicircledn;25DB", + "nwquadarc;25DC", + "nequadarc;25DD", + "sequadarc;25DE", + "swquadarc;25DF", + "toparc;25E0", + "bottomarc;25E1", + "blacklowerrighttriangle;25E2", + "trianglesesld;25E2", + "blacklowerlefttriangle;25E3", + "triangleswsld;25E3", + "blackupperlefttriangle;25E4", + "tranglenwsld;25E4", + "blackupperrighttriangle;25E5", + "trianglenesld;25E5", + "U25e6;25E6", + "openbullet1;25E6", + "whitebullet;25E6", + "openbullet;25E6", + "squareleftsld;25E7", + "squarerightsld;25E8", + "squarenwsld;25E9", + "squaresesld;25EA", + "squarevertbisect;25EB", + "triangledot;25EC", + "triangleleftsld;25ED", + "trianglerightsld;25EE", + "largecircle;25EF", + "a35;2605", + "blackstar;2605", + "whitestar;2606", + "a4;260E", + "telephoneblack;260E", + "whitetelephone;260F", + "a11;261B", + "pointingindexleftwhite;261C", + "pointingindexupwhite;261D", + "a12;261E", + "pointingindexrightwhite;261E", + "pointingindexdownwhite;261F", + "yinyang;262F", + "whitesmilingface;263A", + "smileface;263A", + "blacksmilingface;263B", + "invsmileface;263B", + "compass;263C", + "sun;263C", + "venus;2640", + "female;2640", + "earth;2641", + "mars;2642", + "male;2642", + "a109;2660", + "spadesuitblack;2660", + "spade;2660", + "heartsuitwhite;2661", + "diamondsuitwhite;2662", + "a112;2663", + "clubsuitblack;2663", + "club;2663", + "spadesuitwhite;2664", + "a110;2665", + "heartsuitblack;2665", + "heart;2665", + "a111;2666", + "diamond;2666", + "clubsuitwhite;2667", + "hotsprings;2668", + "quarternote;2669", + "musicalnote;266A", + "eighthnotebeamed;266B", + "musicalnotedbl;266B", + "beamedsixteenthnotes;266C", + "flat;266D", + "musicflatsign;266D", + "natural;266E", + "musicsharpsign;266F", + "sharp;266F", + "a1;2701", + "a2;2702", + "a202;2703", + "a3;2704", + "a5;2706", + "a119;2707", + "a118;2708", + "a117;2709", + "a13;270C", + "a14;270D", + "a15;270E", + "a16;270F", + "a105;2710", + "a17;2711", + "a18;2712", + "a19;2713", + "checkmark;2713", + "a20;2714", + "a21;2715", + "a22;2716", + "a23;2717", + "a24;2718", + "a25;2719", + "a26;271A", + "a27;271B", + "a28;271C", + "a6;271D", + "a7;271E", + "a8;271F", + "a9;2720", + "a10;2721", + "a29;2722", + "a30;2723", + "a31;2724", + "a32;2725", + "a33;2726", + "a34;2727", + "a36;2729", + "a37;272A", + "a38;272B", + "a39;272C", + "a40;272D", + "a41;272E", + "a42;272F", + "a43;2730", + "a44;2731", + "a45;2732", + "a46;2733", + "a47;2734", + "a48;2735", + "a49;2736", + "a50;2737", + "a51;2738", + "a52;2739", + "a53;273A", + "a54;273B", + "a55;273C", + "a56;273D", + "a57;273E", + "a58;273F", + "a59;2740", + "a60;2741", + "a61;2742", + "a62;2743", + "a63;2744", + "a64;2745", + "a65;2746", + "a66;2747", + "a67;2748", + "a68;2749", + "a69;274A", + "a70;274B", + "a72;274D", + "a74;274F", + "a203;2750", + "a75;2751", + "a204;2752", + "a79;2756", + "a82;2758", + "a83;2759", + "a84;275A", + "a97;275B", + "a98;275C", + "a99;275D", + "a100;275E", + "a101;2761", + "a102;2762", + "a103;2763", + "a104;2764", + "a106;2765", + "a107;2766", + "a108;2767", + "a130;2776", + "a131;2777", + "a132;2778", + "a133;2779", + "a134;277A", + "a135;277B", + "a136;277C", + "a137;277D", + "a138;277E", + "a139;277F", + "a140;2780", + "a141;2781", + "a142;2782", + "a143;2783", + "a144;2784", + "a145;2785", + "a146;2786", + "a147;2787", + "a148;2788", + "a149;2789", + "a150;278A", + "onecircleinversesansserif;278A", + "a151;278B", + "twocircleinversesansserif;278B", + "a152;278C", + "threecircleinversesansserif;278C", + "a153;278D", + "fourcircleinversesansserif;278D", + "a154;278E", + "fivecircleinversesansserif;278E", + "a155;278F", + "sixcircleinversesansserif;278F", + "a156;2790", + "sevencircleinversesansserif;2790", + "a157;2791", + "eightcircleinversesansserif;2791", + "a158;2792", + "ninecircleinversesansserif;2792", + "a159;2793", + "a160;2794", + "a196;2798", + "a165;2799", + "a192;279A", + "a166;279B", + "a167;279C", + "a168;279D", + "a169;279E", + "arrowrightheavy;279E", + "a170;279F", + "a171;27A0", + "a172;27A1", + "a173;27A2", + "a162;27A3", + "a174;27A4", + "a175;27A5", + "a176;27A6", + "a177;27A7", + "a178;27A8", + "a179;27A9", + "a193;27AA", + "a180;27AB", + "a199;27AC", + "a181;27AD", + "a200;27AE", + "a182;27AF", + "a201;27B1", + "a183;27B2", + "a184;27B3", + "a197;27B4", + "a185;27B5", + "a194;27B6", + "a198;27B7", + "a186;27B8", + "a195;27B9", + "a187;27BA", + "a188;27BB", + "a189;27BC", + "a190;27BD", + "a191;27BE", + "ideographicspace;3000", + "ideographiccomma;3001", + "ideographicperiod;3002", + "dittomark;3003", + "jis;3004", + "ideographiciterationmark;3005", + "ideographicclose;3006", + "ideographiczero;3007", + "anglebracketleft;3008", + "anglebracketright;3009", + "dblanglebracketleft;300A", + "dblanglebracketright;300B", + "cornerbracketleft;300C", + "cornerbracketright;300D", + "whitecornerbracketleft;300E", + "whitecornerbracketright;300F", + "blacklenticularbracketleft;3010", + "blacklenticularbracketright;3011", + "postalmark;3012", + "getamark;3013", + "tortoiseshellbracketleft;3014", + "tortoiseshellbracketright;3015", + "whitelenticularbracketleft;3016", + "whitelenticularbracketright;3017", + "whitetortoiseshellbracketleft;3018", + "whitetortoiseshellbracketright;3019", + "wavedash;301C", + "quotedblprimereversed;301D", + "quotedblprime;301E", + "postalmarkface;3020", + "onehangzhou;3021", + "threehangzhou;3023", + "fourhangzhou;3024", + "fivehangzhou;3025", + "sixhangzhou;3026", + "sevenhangzhou;3027", + "eighthangzhou;3028", + "ninehangzhou;3029", + "circlepostalmark;3036", + "asmallhiragana;3041", + "ahiragana;3042", + "ismallhiragana;3043", + "ihiragana;3044", + "usmallhiragana;3045", + "uhiragana;3046", + "esmallhiragana;3047", + "ehiragana;3048", + "osmallhiragana;3049", + "ohiragana;304A", + "kahiragana;304B", + "gahiragana;304C", + "kihiragana;304D", + "kuhiragana;304F", + "guhiragana;3050", + "kehiragana;3051", + "gehiragana;3052", + "kohiragana;3053", + "gohiragana;3054", + "sahiragana;3055", + "zahiragana;3056", + "sihiragana;3057", + "zihiragana;3058", + "suhiragana;3059", + "zuhiragana;305A", + "sehiragana;305B", + "zehiragana;305C", + "sohiragana;305D", + "zohiragana;305E", + "tahiragana;305F", + "dahiragana;3060", + "tihiragana;3061", + "dihiragana;3062", + "tusmallhiragana;3063", + "tuhiragana;3064", + "duhiragana;3065", + "tehiragana;3066", + "dehiragana;3067", + "tohiragana;3068", + "dohiragana;3069", + "nahiragana;306A", + "nihiragana;306B", + "nuhiragana;306C", + "nehiragana;306D", + "nohiragana;306E", + "hahiragana;306F", + "bahiragana;3070", + "pahiragana;3071", + "bihiragana;3073", + "pihiragana;3074", + "huhiragana;3075", + "buhiragana;3076", + "puhiragana;3077", + "hehiragana;3078", + "behiragana;3079", + "pehiragana;307A", + "hohiragana;307B", + "bohiragana;307C", + "pohiragana;307D", + "mahiragana;307E", + "mihiragana;307F", + "muhiragana;3080", + "mehiragana;3081", + "mohiragana;3082", + "yasmallhiragana;3083", + "yahiragana;3084", + "yusmallhiragana;3085", + "yuhiragana;3086", + "yosmallhiragana;3087", + "yohiragana;3088", + "rahiragana;3089", + "rihiragana;308A", + "ruhiragana;308B", + "rehiragana;308C", + "rohiragana;308D", + "wasmallhiragana;308E", + "wahiragana;308F", + "wihiragana;3090", + "wehiragana;3091", + "wohiragana;3092", + "nhiragana;3093", + "vuhiragana;3094", + "voicedmarkkana;309B", + "semivoicedmarkkana;309C", + "iterationhiragana;309D", + "voicediterationhiragana;309E", + "asmallkatakana;30A1", + "akatakana;30A2", + "ismallkatakana;30A3", + "ikatakana;30A4", + "usmallkatakana;30A5", + "ukatakana;30A6", + "esmallkatakana;30A7", + "ekatakana;30A8", + "osmallkatakana;30A9", + "okatakana;30AA", + "kakatakana;30AB", + "gakatakana;30AC", + "kikatakana;30AD", + "gikatakana;30AE", + "kukatakana;30AF", + "gukatakana;30B0", + "kekatakana;30B1", + "gekatakana;30B2", + "kokatakana;30B3", + "gokatakana;30B4", + "sakatakana;30B5", + "zakatakana;30B6", + "sikatakana;30B7", + "zikatakana;30B8", + "sukatakana;30B9", + "zukatakana;30BA", + "sekatakana;30BB", + "zekatakana;30BC", + "sokatakana;30BD", + "zokatakana;30BE", + "takatakana;30BF", + "dakatakana;30C0", + "dikatakana;30C2", + "tusmallkatakana;30C3", + "tukatakana;30C4", + "dukatakana;30C5", + "tekatakana;30C6", + "dekatakana;30C7", + "tokatakana;30C8", + "dokatakana;30C9", + "nakatakana;30CA", + "nikatakana;30CB", + "nukatakana;30CC", + "nekatakana;30CD", + "nokatakana;30CE", + "hakatakana;30CF", + "bakatakana;30D0", + "pakatakana;30D1", + "hikatakana;30D2", + "bikatakana;30D3", + "pikatakana;30D4", + "hukatakana;30D5", + "bukatakana;30D6", + "pukatakana;30D7", + "hekatakana;30D8", + "bekatakana;30D9", + "pekatakana;30DA", + "hokatakana;30DB", + "bokatakana;30DC", + "pokatakana;30DD", + "makatakana;30DE", + "mikatakana;30DF", + "mukatakana;30E0", + "mekatakana;30E1", + "mokatakana;30E2", + "yasmallkatakana;30E3", + "yakatakana;30E4", + "yusmallkatakana;30E5", + "yukatakana;30E6", + "yosmallkatakana;30E7", + "yokatakana;30E8", + "rakatakana;30E9", + "rikatakana;30EA", + "rukatakana;30EB", + "rekatakana;30EC", + "rokatakana;30ED", + "wasmallkatakana;30EE", + "wakatakana;30EF", + "wikatakana;30F0", + "wekatakana;30F1", + "wokatakana;30F2", + "nkatakana;30F3", + "vukatakana;30F4", + "kasmallkatakana;30F5", + "kesmallkatakana;30F6", + "vakatakana;30F7", + "vikatakana;30F8", + "vekatakana;30F9", + "vokatakana;30FA", + "dotkatakana;30FB", + "prolongedkana;30FC", + "iterationkatakana;30FD", + "voicediterationkatakana;30FE", + "bbopomofo;3105", + "pbopomofo;3106", + "mbopomofo;3107", + "fbopomofo;3108", + "dbopomofo;3109", + "tbopomofo;310A", + "nbopomofo;310B", + "lbopomofo;310C", + "gbopomofo;310D", + "kbopomofo;310E", + "hbopomofo;310F", + "jbopomofo;3110", + "qbopomofo;3111", + "xbopomofo;3112", + "zhbopomofo;3113", + "chbopomofo;3114", + "shbopomofo;3115", + "rbopomofo;3116", + "zbopomofo;3117", + "cbopomofo;3118", + "sbopomofo;3119", + "abopomofo;311A", + "obopomofo;311B", + "ebopomofo;311C", + "ehbopomofo;311D", + "aibopomofo;311E", + "eibopomofo;311F", + "aubopomofo;3120", + "oubopomofo;3121", + "anbopomofo;3122", + "enbopomofo;3123", + "angbopomofo;3124", + "engbopomofo;3125", + "erbopomofo;3126", + "ubopomofo;3128", + "iubopomofo;3129", + "kiyeokkorean;3131", + "ssangkiyeokkorean;3132", + "kiyeoksioskorean;3133", + "nieunkorean;3134", + "nieuncieuckorean;3135", + "nieunhieuhkorean;3136", + "tikeutkorean;3137", + "ssangtikeutkorean;3138", + "rieulkorean;3139", + "rieulkiyeokkorean;313A", + "rieulmieumkorean;313B", + "rieulpieupkorean;313C", + "rieulsioskorean;313D", + "rieulthieuthkorean;313E", + "rieulphieuphkorean;313F", + "rieulhieuhkorean;3140", + "mieumkorean;3141", + "pieupkorean;3142", + "ssangpieupkorean;3143", + "pieupsioskorean;3144", + "sioskorean;3145", + "ssangsioskorean;3146", + "ieungkorean;3147", + "cieuckorean;3148", + "ssangcieuckorean;3149", + "chieuchkorean;314A", + "khieukhkorean;314B", + "thieuthkorean;314C", + "phieuphkorean;314D", + "hieuhkorean;314E", + "akorean;314F", + "aekorean;3150", + "yakorean;3151", + "yaekorean;3152", + "eokorean;3153", + "ekorean;3154", + "yeokorean;3155", + "yekorean;3156", + "okorean;3157", + "wakorean;3158", + "waekorean;3159", + "oekorean;315A", + "yokorean;315B", + "ukorean;315C", + "weokorean;315D", + "wekorean;315E", + "wikorean;315F", + "yukorean;3160", + "eukorean;3161", + "yikorean;3162", + "ikorean;3163", + "hangulfiller;3164", + "ssangnieunkorean;3165", + "nieuntikeutkorean;3166", + "nieunsioskorean;3167", + "nieunpansioskorean;3168", + "rieulkiyeoksioskorean;3169", + "rieultikeutkorean;316A", + "rieulpieupsioskorean;316B", + "rieulpansioskorean;316C", + "rieulyeorinhieuhkorean;316D", + "mieumpieupkorean;316E", + "mieumsioskorean;316F", + "mieumpansioskorean;3170", + "kapyeounmieumkorean;3171", + "pieupkiyeokkorean;3172", + "pieuptikeutkorean;3173", + "pieupsioskiyeokkorean;3174", + "pieupsiostikeutkorean;3175", + "pieupcieuckorean;3176", + "pieupthieuthkorean;3177", + "kapyeounpieupkorean;3178", + "kapyeounssangpieupkorean;3179", + "sioskiyeokkorean;317A", + "siosnieunkorean;317B", + "siostikeutkorean;317C", + "siospieupkorean;317D", + "sioscieuckorean;317E", + "pansioskorean;317F", + "ssangieungkorean;3180", + "yesieungkorean;3181", + "yesieungsioskorean;3182", + "yesieungpansioskorean;3183", + "kapyeounphieuphkorean;3184", + "ssanghieuhkorean;3185", + "yeorinhieuhkorean;3186", + "yoyakorean;3187", + "yoyaekorean;3188", + "yoikorean;3189", + "yuyeokorean;318A", + "yuyekorean;318B", + "yuikorean;318C", + "araeakorean;318D", + "araeaekorean;318E", + "kiyeokparenkorean;3200", + "nieunparenkorean;3201", + "tikeutparenkorean;3202", + "rieulparenkorean;3203", + "mieumparenkorean;3204", + "pieupparenkorean;3205", + "siosparenkorean;3206", + "ieungparenkorean;3207", + "cieucparenkorean;3208", + "chieuchparenkorean;3209", + "khieukhparenkorean;320A", + "thieuthparenkorean;320B", + "phieuphparenkorean;320C", + "hieuhparenkorean;320D", + "kiyeokaparenkorean;320E", + "nieunaparenkorean;320F", + "tikeutaparenkorean;3210", + "rieulaparenkorean;3211", + "mieumaparenkorean;3212", + "pieupaparenkorean;3213", + "siosaparenkorean;3214", + "ieungaparenkorean;3215", + "cieucaparenkorean;3216", + "chieuchaparenkorean;3217", + "khieukhaparenkorean;3218", + "thieuthaparenkorean;3219", + "phieuphaparenkorean;321A", + "hieuhaparenkorean;321B", + "cieucuparenkorean;321C", + "oneideographicparen;3220", + "twoideographicparen;3221", + "threeideographicparen;3222", + "fourideographicparen;3223", + "fiveideographicparen;3224", + "sixideographicparen;3225", + "sevenideographicparen;3226", + "eightideographicparen;3227", + "nineideographicparen;3228", + "tenideographicparen;3229", + "ideographicmoonparen;322A", + "ideographicfireparen;322B", + "ideographicwaterparen;322C", + "ideographicwoodparen;322D", + "ideographicmetalparen;322E", + "ideographicearthparen;322F", + "ideographicsunparen;3230", + "ideographicstockparen;3231", + "ideographichaveparen;3232", + "ideographicsocietyparen;3233", + "ideographicnameparen;3234", + "ideographicspecialparen;3235", + "ideographicfinancialparen;3236", + "ideographiccongratulationparen;3237", + "ideographiclaborparen;3238", + "ideographicrepresentparen;3239", + "ideographiccallparen;323A", + "ideographicstudyparen;323B", + "ideographicsuperviseparen;323C", + "ideographicenterpriseparen;323D", + "ideographicresourceparen;323E", + "ideographicallianceparen;323F", + "ideographicfestivalparen;3240", + "ideographicselfparen;3242", + "ideographicreachparen;3243", + "kiyeokcirclekorean;3260", + "nieuncirclekorean;3261", + "tikeutcirclekorean;3262", + "rieulcirclekorean;3263", + "mieumcirclekorean;3264", + "pieupcirclekorean;3265", + "sioscirclekorean;3266", + "ieungcirclekorean;3267", + "cieuccirclekorean;3268", + "chieuchcirclekorean;3269", + "khieukhcirclekorean;326A", + "thieuthcirclekorean;326B", + "phieuphcirclekorean;326C", + "hieuhcirclekorean;326D", + "kiyeokacirclekorean;326E", + "nieunacirclekorean;326F", + "tikeutacirclekorean;3270", + "rieulacirclekorean;3271", + "mieumacirclekorean;3272", + "pieupacirclekorean;3273", + "siosacirclekorean;3274", + "ieungacirclekorean;3275", + "cieucacirclekorean;3276", + "chieuchacirclekorean;3277", + "khieukhacirclekorean;3278", + "thieuthacirclekorean;3279", + "phieuphacirclekorean;327A", + "hieuhacirclekorean;327B", + "koreanstandardsymbol;327F", + "ideographmooncircle;328A", + "ideographfirecircle;328B", + "ideographwatercircle;328C", + "ideographwoodcircle;328D", + "ideographmetalcircle;328E", + "ideographearthcircle;328F", + "ideographsuncircle;3290", + "ideographnamecircle;3294", + "ideographicfinancialcircle;3296", + "ideographiclaborcircle;3298", + "ideographicsecretcircle;3299", + "ideographicexcellentcircle;329D", + "ideographicprintcircle;329E", + "ideographiccorrectcircle;32A3", + "ideographichighcircle;32A4", + "ideographiccentrecircle;32A5", + "ideographiclowcircle;32A6", + "ideographicleftcircle;32A7", + "ideographicrightcircle;32A8", + "ideographicmedicinecircle;32A9", + "apaatosquare;3300", + "aarusquare;3303", + "intisquare;3305", + "karoriisquare;330D", + "kirosquare;3314", + "kiroguramusquare;3315", + "kiromeetorusquare;3316", + "guramusquare;3318", + "kooposquare;331E", + "sentisquare;3322", + "sentosquare;3323", + "dorusquare;3326", + "tonsquare;3327", + "haitusquare;332A", + "paasentosquare;332B", + "birusquare;3331", + "huiitosquare;3333", + "hekutaarusquare;3336", + "herutusquare;3339", + "peezisquare;333B", + "hoonsquare;3342", + "mansyonsquare;3347", + "mirisquare;3349", + "miribaarusquare;334A", + "meetorusquare;334D", + "yaadosquare;334E", + "rittorusquare;3351", + "wattosquare;3357", + "heiseierasquare;337B", + "syouwaerasquare;337C", + "taisyouerasquare;337D", + "meizierasquare;337E", + "corporationsquare;337F", + "paampssquare;3380", + "nasquare;3381", + "muasquare;3382", + "masquare;3383", + "kasquare;3384", + "KBsquare;3385", + "MBsquare;3386", + "GBsquare;3387", + "calsquare;3388", + "kcalsquare;3389", + "pfsquare;338A", + "nfsquare;338B", + "mufsquare;338C", + "mugsquare;338D", + "squaremg;338E", + "squarekg;338F", + "Hzsquare;3390", + "khzsquare;3391", + "mhzsquare;3392", + "ghzsquare;3393", + "thzsquare;3394", + "mulsquare;3395", + "mlsquare;3396", + "dlsquare;3397", + "klsquare;3398", + "fmsquare;3399", + "nmsquare;339A", + "mumsquare;339B", + "squaremm;339C", + "squarecm;339D", + "squarekm;339E", + "mmsquaredsquare;339F", + "cmsquaredsquare;33A0", + "squaremsquared;33A1", + "kmsquaredsquare;33A2", + "mmcubedsquare;33A3", + "cmcubedsquare;33A4", + "mcubedsquare;33A5", + "kmcubedsquare;33A6", + "moverssquare;33A7", + "moverssquaredsquare;33A8", + "pasquare;33A9", + "kpasquare;33AA", + "mpasquare;33AB", + "gpasquare;33AC", + "radsquare;33AD", + "radoverssquare;33AE", + "radoverssquaredsquare;33AF", + "pssquare;33B0", + "nssquare;33B1", + "mussquare;33B2", + "mssquare;33B3", + "pvsquare;33B4", + "nvsquare;33B5", + "muvsquare;33B6", + "mvsquare;33B7", + "kvsquare;33B8", + "mvmegasquare;33B9", + "pwsquare;33BA", + "nwsquare;33BB", + "muwsquare;33BC", + "mwsquare;33BD", + "kwsquare;33BE", + "mwmegasquare;33BF", + "kohmsquare;33C0", + "mohmsquare;33C1", + "amsquare;33C2", + "bqsquare;33C3", + "squarecc;33C4", + "cdsquare;33C5", + "coverkgsquare;33C6", + "cosquare;33C7", + "dbsquare;33C8", + "gysquare;33C9", + "hasquare;33CA", + "HPsquare;33CB", + "KKsquare;33CD", + "squarekmcapital;33CE", + "ktsquare;33CF", + "lmsquare;33D0", + "squareln;33D1", + "squarelog;33D2", + "lxsquare;33D3", + "mbsquare;33D4", + "squaremil;33D5", + "molsquare;33D6", + "pmsquare;33D8", + "srsquare;33DB", + "svsquare;33DC", + "wbsquare;33DD", + "twentyhangzhou;5344", + "f_f.liga;FB00", + "ff;FB00", + "f_f;FB00", + "f_i.liga;FB01", + "f_i;FB01", + "fi;FB01", + "f_l.liga;FB02", + "f_l;FB02", + "fl;FB02", + "f_f_i.liga;FB03", + "ffi;FB03", + "f_f_i;FB03", + "f_f_l.liga;FB04", + "ffl;FB04", + "f_f_l;FB04", + "longs_t.dlig;FB05", + "longs_t.liga;FB05", + "longst;FB05", + "longs_t;FB05", + "s_t.dlig;FB06", + "s_t.liga;FB06", + "st;FB06", + "s_t;FB06", + "varika;FB1E", + "doubleyodpatah;FB1F", + "doubleyodpatahhebrew;FB1F", + "yodyodpatahhebrew;FB1F", + "afii57705;FB1F", + "ayinaltonehebrew;FB20", + "shinshindot;FB2A", + "shinshindothebrew;FB2A", + "afii57694;FB2A", + "shinsindot;FB2B", + "shinsindothebrew;FB2B", + "afii57695;FB2B", + "afii57696;FB2C", + "shindageshshindot;FB2C", + "shindageshshindothebrew;FB2C", + "afii57697;FB2D", + "shindageshsindot;FB2D", + "shindageshsindothebrew;FB2D", + "alefpatahhebrew;FB2E", + "alefqamatshebrew;FB2F", + "alefdageshhebrew;FB30", + "afii57691;FB31", + "betdagesh;FB31", + "betdageshhebrew;FB31", + "afii57720;FB32", + "gimeldagesh;FB32", + "gimeldageshhebrew;FB32", + "afii57721;FB33", + "daletdagesh;FB33", + "daletdageshhebrew;FB33", + "afii57722;FB34", + "hedagesh;FB34", + "hedageshhebrew;FB34", + "vavdagesh;FB35", + "vavdagesh65;FB35", + "vavdageshhebrew;FB35", + "afii57723;FB35", + "afii57724;FB36", + "zayindagesh;FB36", + "zayindageshhebrew;FB36", + "afii57725;FB38", + "tetdagesh;FB38", + "tetdageshhebrew;FB38", + "afii57726;FB39", + "yoddagesh;FB39", + "yoddageshhebrew;FB39", + "afii57761;FB3A", + "finalkafdagesh;FB3A", + "finalkafdageshhebrew;FB3A", + "c8564;FB3B", + "kafdagesh;FB3B", + "kafdageshhebrew;FB3B", + "afii57762;FB3C", + "lameddagesh;FB3C", + "lameddageshhebrew;FB3C", + "afii57763;FB3E", + "memdagesh;FB3E", + "memdageshhebrew;FB3E", + "afii57764;FB40", + "nundagesh;FB40", + "nundageshhebrew;FB40", + "afii57765;FB41", + "samekhdagesh;FB41", + "samekhdageshhebrew;FB41", + "pefinaldageshhebrew;FB43", + "afii57766;FB44", + "pedagesh;FB44", + "pedageshhebrew;FB44", + "afii57767;FB46", + "tsadidagesh;FB46", + "tsadidageshhebrew;FB46", + "afii57768;FB47", + "qofdagesh;FB47", + "qofdageshhebrew;FB47", + "reshdageshhebrew;FB48", + "afii57770;FB49", + "shindagesh;FB49", + "shindageshhebrew;FB49", + "afii57771;FB4A", + "tavdages;FB4A", + "tavdagesh;FB4A", + "tavdageshhebrew;FB4A", + "vavholam;FB4B", + "vavholamhebrew;FB4B", + "afii57700;FB4B", + "betrafehebrew;FB4C", + "kafrafehebrew;FB4D", + "perafehebrew;FB4E", + "aleflamedhebrew;FB4F", + "pehfinalarabic;FB57", + "pehinitialarabic;FB58", + "pehmedialarabic;FB59", + "ttehfinalarabic;FB67", + "ttehinitialarabic;FB68", + "ttehmedialarabic;FB69", + "vehfinalarabic;FB6B", + "vehinitialarabic;FB6C", + "vehmedialarabic;FB6D", + "tchehfinalarabic;FB7B", + "tchehinitialarabic;FB7C", + "tchehmedialarabic;FB7D", + "ddalfinalarabic;FB89", + "jehfinalarabic;FB8B", + "rrehfinalarabic;FB8D", + "c19424;FB90", + "gaffinalarabic;FB93", + "gafinitialarabic;FB94", + "gafmedialarabic;FB95", + "noonghunnafinalarabic;FB9F", + "hehhamzaaboveisolatedarabic;FBA4", + "hehhamzaabovefinalarabic;FBA5", + "hehfinalaltonearabic;FBA7", + "hehinitialaltonearabic;FBA8", + "hehmedialaltonearabic;FBA9", + "yehbarreefinalarabic;FBAF", + "c19440;FBFD", + "behmeemisolatedarabic;FC08", + "c24065;FC08", + "tehjeemisolatedarabic;FC0B", + "tehhahisolatedarabic;FC0C", + "c24066;FC0E", + "tehmeemisolatedarabic;FC0E", + "c20220;FC32", + "c24069;FC3F", + "c24070;FC40", + "c24071;FC41", + "c20631;FC42", + "c20224;FC43", + "c20222;FC44", + "meemmeemisolatedarabic;FC48", + "noonjeemisolatedarabic;FC4B", + "c24068;FC4E", + "noonmeemisolatedarabic;FC4E", + "yehmeemisolatedarabic;FC58", + "c19498;FC5E", + "shaddadammatanarabic;FC5E", + "c19497;FC5F", + "shaddakasratanarabic;FC5F", + "c19493;FC60", + "shaddafathaarabic;FC60", + "c19495;FC61", + "shaddadammaarabic;FC61", + "c19494;FC62", + "shaddakasraarabic;FC62", + "c20622;FC6A", + "behnoonfinalarabic;FC6D", + "c24081;FC6D", + "c24074;FC6F", + "c20650;FC70", + "c24082;FC73", + "tehnoonfinalarabic;FC73", + "c20652;FC75", + "noonnoonfinalarabic;FC8D", + "c20641;FC8F", + "c20254;FC91", + "c20255;FC94", + "yehnoonfinalarabic;FC94", + "c24075;FC9C", + "c24076;FC9D", + "c24077;FC9E", + "behmeeminitialarabic;FC9F", + "c20621;FC9F", + "c20646;FCA1", + "tehjeeminitialarabic;FCA1", + "c20644;FCA2", + "tehhahinitialarabic;FCA2", + "c20647;FCA3", + "c20648;FCA4", + "tehmeeminitialarabic;FCA4", + "c24067;FCA6", + "c20626;FCA8", + "c20624;FCAA", + "c20627;FCAC", + "c24072;FCB0", + "c20251;FCC9", + "lamjeeminitialarabic;FCC9", + "c20252;FCCA", + "lamhahinitialarabic;FCCA", + "c20253;FCCB", + "lamkhahinitialarabic;FCCB", + "c20250;FCCC", + "lammeeminitialarabic;FCCC", + "c20630;FCCD", + "c20633;FCCE", + "c20632;FCCF", + "c20634;FCD0", + "c20635;FCD1", + "meemmeeminitialarabic;FCD1", + "c24078;FCD2", + "noonjeeminitialarabic;FCD2", + "c24079;FCD3", + "c24080;FCD4", + "c20639;FCD5", + "noonmeeminitialarabic;FCD5", + "c20656;FCDA", + "c20654;FCDB", + "c20657;FCDC", + "c20658;FCDD", + "yehmeeminitialarabic;FCDD", + "c24073;FD30", + "c21128;FD3E", + "parenleftaltonearabic;FD3E", + "c21129;FD3F", + "parenrightaltonearabic;FD3F", + "c24091;FD88", + "lammeemhahinitialarabic;FD88", + "c20182;FDF2", + "lamlamhehisolatedarabic;FDF2", + "sallallahoualayhewasallamarabic;FDFA", + "twodotleadervertical;FE30", + "emdashvertical;FE31", + "endashvertical;FE32", + "underscorevertical;FE33", + "wavyunderscorevertical;FE34", + "parenleftvertical;FE35", + "parenrightvertical;FE36", + "braceleftvertical;FE37", + "bracerightvertical;FE38", + "tortoiseshellbracketleftvertical;FE39", + "tortoiseshellbracketrightvertical;FE3A", + "blacklenticularbracketleftvertical;FE3B", + "blacklenticularbracketrightvertical;FE3C", + "dblanglebracketleftvertical;FE3D", + "dblanglebracketrightvertical;FE3E", + "anglebracketleftvertical;FE3F", + "anglebracketrightvertical;FE40", + "cornerbracketleftvertical;FE41", + "cornerbracketrightvertical;FE42", + "whitecornerbracketleftvertical;FE43", + "whitecornerbracketrightvertical;FE44", + "overlinedashed;FE49", + "overlinecenterline;FE4A", + "overlinewavy;FE4B", + "overlinedblwavy;FE4C", + "lowlinedashed;FE4D", + "lowlinecenterline;FE4E", + "underscorewavy;FE4F", + "commasmall;FE50", + "periodsmall;FE52", + "semicolonsmall;FE54", + "colonsmall;FE55", + "parenleftsmall;FE59", + "parenrightsmall;FE5A", + "braceleftsmall;FE5B", + "bracerightsmall;FE5C", + "tortoiseshellbracketleftsmall;FE5D", + "tortoiseshellbracketrightsmall;FE5E", + "numbersignsmall;FE5F", + "asterisksmall;FE61", + "plussmall;FE62", + "hyphensmall;FE63", + "lesssmall;FE64", + "greatersmall;FE65", + "equalsmall;FE66", + "dollarsmall;FE69", + "percentsmall;FE6A", + "atsmall;FE6B", + "c19482;FE70", + "c19484;FE72", + "c24054;FE74", + "c19479;FE76", + "c19481;FE78", + "c19999;FE7A", + "c19492;FE7C", + "c19491;FE7E", + "c24189;FE80", + "c20174;FE81", + "alefmaddaabovefinalarabic;FE82", + "c20175;FE82", + "c24198;FE83", + "alefhamzaabovefinalarabic;FE84", + "c24199;FE84", + "c24194;FE85", + "c24195;FE86", + "wawhamzaabovefinalarabic;FE86", + "c24200;FE87", + "alefhamzabelowfinalarabic;FE88", + "c24201;FE88", + "c24190;FE89", + "c24193;FE8A", + "yehhamzaabovefinalarabic;FE8A", + "c24191;FE8B", + "yehhamzaaboveinitialarabic;FE8B", + "c24192;FE8C", + "yehhamzaabovemedialarabic;FE8C", + "c20051;FE8D", + "aleffinalarabic;FE8E", + "c20052;FE8E", + "c20053;FE8F", + "behfinalarabic;FE90", + "c20056;FE90", + "behinitialarabic;FE91", + "c20054;FE91", + "behmedialarabic;FE92", + "c20055;FE92", + "c20153;FE93", + "c20154;FE94", + "tehmarbutafinalarabic;FE94", + "c20057;FE95", + "c20060;FE96", + "tehfinalarabic;FE96", + "c20058;FE97", + "tehinitialarabic;FE97", + "c20059;FE98", + "tehmedialarabic;FE98", + "c20061;FE99", + "c20064;FE9A", + "thehfinalarabic;FE9A", + "c20062;FE9B", + "thehinitialarabic;FE9B", + "c20063;FE9C", + "thehmedialarabic;FE9C", + "c20065;FE9D", + "c20068;FE9E", + "jeemfinalarabic;FE9E", + "c20066;FE9F", + "jeeminitialarabic;FE9F", + "c20067;FEA0", + "jeemmedialarabic;FEA0", + "c20069;FEA1", + "c20072;FEA2", + "hahfinalarabic;FEA2", + "c20070;FEA3", + "hahinitialarabic;FEA3", + "c20071;FEA4", + "hahmedialarabic;FEA4", + "c20073;FEA5", + "c20076;FEA6", + "khahfinalarabic;FEA6", + "c20074;FEA7", + "khahinitialarabic;FEA7", + "c20075;FEA8", + "khahmedialarabic;FEA8", + "c20077;FEA9", + "c20078;FEAA", + "dalfinalarabic;FEAA", + "c20079;FEAB", + "c20080;FEAC", + "thalfinalarabic;FEAC", + "c20081;FEAD", + "c20082;FEAE", + "rehfinalarabic;FEAE", + "c20083;FEAF", + "c20084;FEB0", + "zainfinalarabic;FEB0", + "c20085;FEB1", + "c20088;FEB2", + "seenfinalarabic;FEB2", + "c20086;FEB3", + "seeninitialarabic;FEB3", + "c20087;FEB4", + "seenmedialarabic;FEB4", + "c20089;FEB5", + "sheenfinalarabic;FEB6", + "sheeninitialarabic;FEB7", + "sheenmedialarabic;FEB8", + "c20096;FEBA", + "sadfinalarabic;FEBA", + "sadinitialarabic;FEBB", + "sadmedialarabic;FEBC", + "c20097;FEBD", + "c20100;FEBE", + "dadfinalarabic;FEBE", + "dadinitialarabic;FEBF", + "c20099;FEC0", + "dadmedialarabic;FEC0", + "c20101;FEC1", + "c20104;FEC2", + "tahfinalarabic;FEC2", + "c20102;FEC3", + "tahinitialarabic;FEC3", + "c20103;FEC4", + "tahmedialarabic;FEC4", + "c20105;FEC5", + "c20108;FEC6", + "zahfinalarabic;FEC6", + "c20106;FEC7", + "zahinitialarabic;FEC7", + "c20107;FEC8", + "zahmedialarabic;FEC8", + "c20109;FEC9", + "ainfinalarabic;FECA", + "c20112;FECA", + "aininitialarabic;FECB", + "c20110;FECB", + "ainmedialarabic;FECC", + "c20111;FECC", + "c20113;FECD", + "c20116;FECE", + "ghainfinalarabic;FECE", + "c20114;FECF", + "ghaininitialarabic;FECF", + "c20115;FED0", + "ghainmedialarabic;FED0", + "c20117;FED1", + "c20120;FED2", + "fehfinalarabic;FED2", + "c20118;FED3", + "fehinitialarabic;FED3", + "c20119;FED4", + "fehmedialarabic;FED4", + "c20121;FED5", + "c20124;FED6", + "qaffinalarabic;FED6", + "c20122;FED7", + "qafinitialarabic;FED7", + "c20123;FED8", + "qafmedialarabic;FED8", + "c20125;FED9", + "c20128;FEDA", + "kaffinalarabic;FEDA", + "c20126;FEDB", + "kafinitialarabic;FEDB", + "c20127;FEDC", + "kafmedialarabic;FEDC", + "c20129;FEDD", + "c20132;FEDE", + "lamfinalarabic;FEDE", + "c20130;FEDF", + "laminitialarabic;FEDF", + "c20131;FEE0", + "lammedialarabic;FEE0", + "c20133;FEE1", + "c20136;FEE2", + "meemfinalarabic;FEE2", + "c20134;FEE3", + "meeminitialarabic;FEE3", + "c20135;FEE4", + "meemmedialarabic;FEE4", + "c20137;FEE5", + "c20140;FEE6", + "noonfinalarabic;FEE6", + "c20138;FEE7", + "nooninitialarabic;FEE7", + "c20139;FEE8", + "noonmedialarabic;FEE8", + "c20141;FEE9", + "c20144;FEEA", + "hehfinalalttwoarabic;FEEA", + "hehfinalarabic;FEEA", + "c20142;FEEB", + "hehinitialarabic;FEEB", + "c20143;FEEC", + "hehmedialarabic;FEEC", + "c20145;FEED", + "c20147;FEEE", + "wawfinalarabic;FEEE", + "c20256;FEEF", + "alefmaksurafinalarabic;FEF0", + "c20257;FEF0", + "c20148;FEF1", + "c20151;FEF2", + "yehfinalarabic;FEF2", + "alefmaksurainitialarabic;FEF3", + "c20149;FEF3", + "yehinitialarabic;FEF3", + "alefmaksuramedialarabic;FEF4", + "c20150;FEF4", + "yehmedialarabic;FEF4", + "c20214;FEF5", + "lamalefmaddaaboveisolatedarabic;FEF5", + "c20215;FEF6", + "lamalefmaddaabovefinalarabic;FEF6", + "c24202;FEF7", + "lamalefhamzaaboveisolatedarabic;FEF7", + "c24203;FEF8", + "lamalefhamzaabovefinalarabic;FEF8", + "c24206;FEF9", + "lamalefhamzabelowisolatedarabic;FEF9", + "c24207;FEFA", + "lamalefhamzabelowfinalarabic;FEFA", + "c20208;FEFB", + "lamalefisolatedarabic;FEFB", + "c20209;FEFC", + "lamaleffinalarabic;FEFC", + "bom;FEFF", + "zerowidthjoiner;FEFF", + "exclammonospace;FF01", + "quotedblmonospace;FF02", + "numbersignmonospace;FF03", + "dollarmonospace;FF04", + "percentmonospace;FF05", + "ampersandmonospace;FF06", + "quotesinglemonospace;FF07", + "parenleftmonospace;FF08", + "parenrightmonospace;FF09", + "asteriskmonospace;FF0A", + "plusmonospace;FF0B", + "commamonospace;FF0C", + "hyphenmonospace;FF0D", + "periodmonospace;FF0E", + "slashmonospace;FF0F", + "zeromonospace;FF10", + "onemonospace;FF11", + "twomonospace;FF12", + "threemonospace;FF13", + "fourmonospace;FF14", + "fivemonospace;FF15", + "sixmonospace;FF16", + "sevenmonospace;FF17", + "eightmonospace;FF18", + "ninemonospace;FF19", + "colonmonospace;FF1A", + "semicolonmonospace;FF1B", + "lessmonospace;FF1C", + "equalmonospace;FF1D", + "greatermonospace;FF1E", + "questionmonospace;FF1F", + "atmonospace;FF20", + "Amonospace;FF21", + "Bmonospace;FF22", + "Cmonospace;FF23", + "Dmonospace;FF24", + "Emonospace;FF25", + "Fmonospace;FF26", + "Gmonospace;FF27", + "Hmonospace;FF28", + "Imonospace;FF29", + "Jmonospace;FF2A", + "Kmonospace;FF2B", + "Lmonospace;FF2C", + "Mmonospace;FF2D", + "Nmonospace;FF2E", + "Omonospace;FF2F", + "Pmonospace;FF30", + "Qmonospace;FF31", + "Rmonospace;FF32", + "Smonospace;FF33", + "Tmonospace;FF34", + "Umonospace;FF35", + "Vmonospace;FF36", + "Wmonospace;FF37", + "Xmonospace;FF38", + "Ymonospace;FF39", + "Zmonospace;FF3A", + "bracketleftmonospace;FF3B", + "backslashmonospace;FF3C", + "bracketrightmonospace;FF3D", + "asciicircummonospace;FF3E", + "underscoremonospace;FF3F", + "gravemonospace;FF40", + "amonospace;FF41", + "bmonospace;FF42", + "cmonospace;FF43", + "dmonospace;FF44", + "emonospace;FF45", + "fmonospace;FF46", + "gmonospace;FF47", + "hmonospace;FF48", + "imonospace;FF49", + "jmonospace;FF4A", + "kmonospace;FF4B", + "lmonospace;FF4C", + "mmonospace;FF4D", + "nmonospace;FF4E", + "omonospace;FF4F", + "pmonospace;FF50", + "qmonospace;FF51", + "rmonospace;FF52", + "smonospace;FF53", + "tmonospace;FF54", + "umonospace;FF55", + "vmonospace;FF56", + "wmonospace;FF57", + "xmonospace;FF58", + "ymonospace;FF59", + "zmonospace;FF5A", + "braceleftmonospace;FF5B", + "barmonospace;FF5C", + "bracerightmonospace;FF5D", + "asciitildemonospace;FF5E", + "periodhalfwidth;FF61", + "cornerbracketlefthalfwidth;FF62", + "cornerbracketrighthalfwidth;FF63", + "ideographiccommaleft;FF64", + "middledotkatakanahalfwidth;FF65", + "wokatakanahalfwidth;FF66", + "asmallkatakanahalfwidth;FF67", + "ismallkatakanahalfwidth;FF68", + "usmallkatakanahalfwidth;FF69", + "esmallkatakanahalfwidth;FF6A", + "osmallkatakanahalfwidth;FF6B", + "yasmallkatakanahalfwidth;FF6C", + "yusmallkatakanahalfwidth;FF6D", + "yosmallkatakanahalfwidth;FF6E", + "tusmallkatakanahalfwidth;FF6F", + "katahiraprolongmarkhalfwidth;FF70", + "ikatakanahalfwidth;FF72", + "ukatakanahalfwidth;FF73", + "ekatakanahalfwidth;FF74", + "okatakanahalfwidth;FF75", + "kakatakanahalfwidth;FF76", + "kikatakanahalfwidth;FF77", + "kukatakanahalfwidth;FF78", + "kekatakanahalfwidth;FF79", + "kokatakanahalfwidth;FF7A", + "sakatakanahalfwidth;FF7B", + "sikatakanahalfwidth;FF7C", + "sukatakanahalfwidth;FF7D", + "sekatakanahalfwidth;FF7E", + "sokatakanahalfwidth;FF7F", + "takatakanahalfwidth;FF80", + "tikatakanahalfwidth;FF81", + "tukatakanahalfwidth;FF82", + "tekatakanahalfwidth;FF83", + "tokatakanahalfwidth;FF84", + "nakatakanahalfwidth;FF85", + "nikatakanahalfwidth;FF86", + "nukatakanahalfwidth;FF87", + "nekatakanahalfwidth;FF88", + "nokatakanahalfwidth;FF89", + "hakatakanahalfwidth;FF8A", + "hikatakanahalfwidth;FF8B", + "hukatakanahalfwidth;FF8C", + "hekatakanahalfwidth;FF8D", + "hokatakanahalfwidth;FF8E", + "makatakanahalfwidth;FF8F", + "mikatakanahalfwidth;FF90", + "mukatakanahalfwidth;FF91", + "mekatakanahalfwidth;FF92", + "mokatakanahalfwidth;FF93", + "yakatakanahalfwidth;FF94", + "yukatakanahalfwidth;FF95", + "yokatakanahalfwidth;FF96", + "rakatakanahalfwidth;FF97", + "rikatakanahalfwidth;FF98", + "rukatakanahalfwidth;FF99", + "rekatakanahalfwidth;FF9A", + "rokatakanahalfwidth;FF9B", + "wakatakanahalfwidth;FF9C", + "nkatakanahalfwidth;FF9D", + "voicedmarkkanahalfwidth;FF9E", + "semivoicedmarkkanahalfwidth;FF9F", + "centmonospace;FFE0", + "sterlingmonospace;FFE1", + "macronmonospace;FFE3", + "yenmonospace;FFE5", + "wonmonospace;FFE6", + "AEsmall;F7E6", + "Aacutesmall;F7E1", + "Acircumflexsmall;F7E2", + "Acute;F6C9", + "Acutesmall;F7B4", + "Adieresissmall;F7E4", + "Agravesmall;F7E0", + "Aringsmall;F7E5", + "Asmall;F761", + "Atildesmall;F7E3", + "Brevesmall;F6F4", + "Bsmall;F762", + "Caron;F6CA", + "Caronsmall;F6F5", + "Ccedillasmall;F7E7", + "Cedillasmall;F7B8", + "Circumflexsmall;F6F6", + "Csmall;F763", + "Daarmenian;0534", + "Dieresis;F6CB", + "DieresisAcute;F6CC", + "DieresisGrave;F6CD", + "Dieresissmall;F7A8", + "Dotaccentsmall;F6F7", + "Dsmall;F764", + "Eacutesmall;F7E9", + "Ecircumflexsmall;F7EA", + "Edieresissmall;F7EB", + "Egravesmall;F7E8", + "Esmall;F765", + "Ethsmall;F7F0", + "Fsmall;F766", + "Grave;F6CE", + "Gravesmall;F760", + "Gsmall;F767", + "Horicoptic;03E8", + "Hsmall;F768", + "Hungarumlaut;F6CF", + "Hungarumlautsmall;F6F8", + "Iacutesmall;F7ED", + "Icircumflexsmall;F7EE", + "Idieresissmall;F7EF", + "Igravesmall;F7EC", + "Ismall;F769", + "Jsmall;F76A", + "Ksmall;F76B", + "LL;F6BF", + "Lslashsmall;F6F9", + "Lsmall;F76C", + "Macron;F6D0", + "Macronsmall;F7AF", + "Msmall;F76D", + "Nsmall;F76E", + "Ntildesmall;F7F1", + "OEsmall;F6FA", + "Oacutesmall;F7F3", + "Ocircumflexsmall;F7F4", + "Odieresissmall;F7F6", + "Ogoneksmall;F6FB", + "Ogravesmall;F7F2", + "Oslashsmall;F7F8", + "Osmall;F76F", + "Otildesmall;F7F5", + "Psmall;F770", + "Qsmall;F771", + "Rdotaccent;1E58", + "Ringsmall;F6FC", + "Rsmall;F772", + "Scaronsmall;F6FD", + "Seharmenian;054D", + "Softsigncyrillic;042C", + "Ssmall;F773", + "Thornsmall;F7FE", + "Tildesmall;F6FE", + "Tsmall;F774", + "Uacutesmall;F7FA", + "Ucircumflexsmall;F7FB", + "Udieresissmall;F7FC", + "Ugravesmall;F7F9", + "Usmall;F775", + "Vsmall;F776", + "Wsmall;F777", + "Xsmall;F778", + "Yacutesmall;F7FD", + "Ydieresissmall;F7FF", + "Ysmall;F779", + "Zcaronsmall;F6FF", + "Zsmall;F77A", + "afii10063;F6C4", + "afii10064;F6C5", + "afii10192;F6C6", + "afii10831;F6C7", + "afii10832;F6C8", + "akatakanahalfwidth;FF71", + "ampersandsmall;F726", + "apple;F8FF", + "arrowhorizex;F8E7", + "arrowvertex;F8E6", + "asuperior;F6E9", + "auvowelsigndeva;094C", + "braceex;F8F4", + "braceleftbt;F8F3", + "braceleftmid;F8F2", + "bracelefttp;F8F1", + "bracerightbt;F8FE", + "bracerightmid;F8FD", + "bracerighttp;F8FC", + "bracketleftbt;F8F0", + "bracketleftex;F8EF", + "bracketlefttp;F8EE", + "bracketrightbt;F8FB", + "bracketrightex;F8FA", + "bracketrighttp;F8F9", + "bsuperior;F6EA", + "centinferior;F6DF", + "centoldstyle;F7A2", + "centsuperior;F6E0", + "commaaccent;F6C3", + "commainferior;F6E1", + "commasuperior;F6E2", + "controlACK;0006", + "controlBEL;0007", + "controlBS;0008", + "controlCAN;0018", + "controlCR;000D", + "controlDC1;0011", + "controlDC2;0012", + "controlDC3;0013", + "controlDC4;0014", + "controlDLE;0010", + "controlEM;0019", + "controlENQ;0005", + "controlEOT;0004", + "controlESC;001B", + "controlETB;0017", + "controlETX;0003", + "controlFF;000C", + "controlFS;001C", + "controlGS;001D", + "controlHT;0009", + "controlLF;000A", + "controlNAK;0015", + "controlRS;001E", + "controlSI;000F", + "controlSO;000E", + "controlSOT;0002", + "controlSTX;0001", + "controlSUB;001A", + "controlSYN;0016", + "controlUS;001F", + "controlVT;000B", + "copyrightsans;F8E9", + "copyrightserif;F6D9", + "cyrBreve;F6D1", + "cyrFlex;F6D2", + "cyrbreve;F6D4", + "cyrflex;F6D5", + "dalethatafpatah;05D3 05B2", + "dalethatafpatahhebrew;05D3 05B2", + "dalethatafsegol;05D3 05B1", + "dalethatafsegolhebrew;05D3 05B1", + "dalethiriq;05D3 05B4", + "dalethiriqhebrew;05D3 05B4", + "daletholam;05D3 05B9", + "daletholamhebrew;05D3 05B9", + "daletpatah;05D3 05B7", + "daletpatahhebrew;05D3 05B7", + "daletqamats;05D3 05B8", + "daletqamatshebrew;05D3 05B8", + "daletqubuts;05D3 05BB", + "daletqubutshebrew;05D3 05BB", + "daletsegol;05D3 05B6", + "daletsegolhebrew;05D3 05B6", + "daletsheva;05D3 05B0", + "daletshevahebrew;05D3 05B0", + "dalettsere;05D3 05B5", + "dalettserehebrew;05D3 05B5", + "dblGrave;F6D3", + "dblgrave;F6D6", + "dieresisacute;F6D7", + "dieresisgrave;F6D8", + "dollarinferior;F6E3", + "dollaroldstyle;F724", + "dollarsuperior;F6E4", + "dsuperior;F6EB", + "eightoldstyle;F738", + "esuperior;F6EC", + "evowelsigndeva;0947", + "exclamdownsmall;F7A1", + "exclamsmall;F721", + "finalkafqamatshebrew;05DA 05B8", + "finalkafshevahebrew;05DA 05B0", + "fiveoldstyle;F735", + "fouroldstyle;F734", + "gihiragana;304E", + "hamzadammaarabic;0621 064F", + "hamzadammatanarabic;0621 064C", + "hamzafathaarabic;0621 064E", + "hamzafathatanarabic;0621 064B", + "hamzalowkasraarabic;0621 0650", + "hamzalowkasratanarabic;0621 064D", + "hamzasukunarabic;0621 0652", + "hihiragana;3072", + "hypheninferior;F6E5", + "hyphensuperior;F6E6", + "ibopomofo;3127", + "iivowelsignbengali;09C0", + "integralex;F8F5", + "isuperior;F6ED", + "lamedholamdageshhebrew;05DC 05B9 05BC", + "lamedholamhebrew;05DC 05B9", + "lammeemjeeminitialarabic;FEDF FEE4 FEA0", + "lammeemkhahinitialarabic;FEDF FEE4 FEA8", + "ll;F6C0", + "lsuperior;F6EE", + "lvocalicdeva;090C", + "maichattawalowleftthai;F895", + "maichattawalowrightthai;F894", + "maichattawaupperleftthai;F893", + "maieklowleftthai;F88C", + "maieklowrightthai;F88B", + "maiekupperleftthai;F88A", + "maihanakatleftthai;F884", + "maitaikhuleftthai;F889", + "maitholowleftthai;F88F", + "maitholowrightthai;F88E", + "maithoupperleftthai;F88D", + "maitrilowleftthai;F892", + "maitrilowrightthai;F891", + "maitriupperleftthai;F890", + "msuperior;F6EF", + "nikhahitleftthai;F899", + "nineoldstyle;F739", + "noonhehinitialarabic;FEE7 FEEC", + "ocircumflexdotbelow;1ED9", + "onefitted;F6DC", + "oneoldstyle;F731", + "osuperior;F6F0", + "parenleftbt;F8ED", + "parenleftex;F8EC", + "parenlefttp;F8EB", + "parenrightbt;F8F8", + "parenrightex;F8F7", + "parenrighttp;F8F6", + "periodinferior;F6E7", + "periodsuperior;F6E8", + "qofhatafpatah;05E7 05B2", + "qofhatafpatahhebrew;05E7 05B2", + "qofhatafsegol;05E7 05B1", + "qofhatafsegolhebrew;05E7 05B1", + "qofhiriq;05E7 05B4", + "qofhiriqhebrew;05E7 05B4", + "qofholam;05E7 05B9", + "qofholamhebrew;05E7 05B9", + "qofpatah;05E7 05B7", + "qofpatahhebrew;05E7 05B7", + "qofqamats;05E7 05B8", + "qofqamatshebrew;05E7 05B8", + "qofqubuts;05E7 05BB", + "qofqubutshebrew;05E7 05BB", + "qofsegol;05E7 05B6", + "qofsegolhebrew;05E7 05B6", + "qofsheva;05E7 05B0", + "qofshevahebrew;05E7 05B0", + "qoftsere;05E7 05B5", + "qoftserehebrew;05E7 05B5", + "questiondownsmall;F7BF", + "questionsmall;F73F", + "radicalex;F8E5", + "registersans;F8E8", + "registerserif;F6DA", + "rehyehaleflamarabic;0631 FEF3 FE8E 0644", + "reshhatafpatah;05E8 05B2", + "reshhatafpatahhebrew;05E8 05B2", + "reshhatafsegol;05E8 05B1", + "reshhatafsegolhebrew;05E8 05B1", + "reshhiriq;05E8 05B4", + "reshhiriqhebrew;05E8 05B4", + "reshholam;05E8 05B9", + "reshholamhebrew;05E8 05B9", + "reshpatah;05E8 05B7", + "reshpatahhebrew;05E8 05B7", + "reshqamats;05E8 05B8", + "reshqamatshebrew;05E8 05B8", + "reshqubuts;05E8 05BB", + "reshqubutshebrew;05E8 05BB", + "reshsegol;05E8 05B6", + "reshsegolhebrew;05E8 05B6", + "reshsheva;05E8 05B0", + "reshshevahebrew;05E8 05B0", + "reshtsere;05E8 05B5", + "reshtserehebrew;05E8 05B5", + "rhookturnedsuperior;02B5", + "rsuperior;F6F1", + "rupiah;F6DD", + "saraiileftthai;F886", + "saraileftthai;F885", + "saraueeleftthai;F888", + "saraueleftthai;F887", + "sevenoldstyle;F737", + "shaddafathatanarabic;0651 064B", + "shalshelethebrew;0593", + "sixoldstyle;F736", + "ssuperior;F6F2", + "tchehmeeminitialarabic;FB7C FEE4", + "thanthakhatlowleftthai;F898", + "thanthakhatlowrightthai;F897", + "thanthakhatupperleftthai;F896", + "threeoldstyle;F733", + "threeparen;2476", + "threequartersemdash;F6DE", + "tikatakana;30C1", + "trademarksans;F8EA", + "trademarkserif;F6DB", + "tsuperior;F6F3", + "twohangzhou;3022", + "twooldstyle;F732", + "vav;05D5", + "yhook;01B4", + "zainarabic;0632", + "zarqahebrew;0598", + "zerohackarabic;0660", + "zerooldstyle;F730", + "" /* terminator */ +}; diff --git a/Build/source/texk/xdvipdfmx/src/asl_charset.h b/Build/source/texk/xdvipdfmx/src/asl_charset.h new file mode 100644 index 00000000000..91192a62cc7 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/asl_charset.h @@ -0,0 +1,364 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/asl_charset.h,v 1.3 2004/01/30 18:34:19 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _ASL_CHARSET_H_ +#define _ASL_CHARSET_H_ + +/* + * Adobe Standard Latin Character Set - from PLRM 3rd. ed. + * + * Characters marked as EXT are present in the extended (315-character) + * Latin character set, but not in the original (229-character) set. + * + * This list contains 314 characters, Maybe one character missing. + * + * Most of strings are also found in cff_stdstr.h. + * CFF Standard Strings contains all glyph names from the original ASL + * character set (plus Expert set). But it does not contains glyph names + * found only in the extented version. + * + */ + +#ifdef _ENCODINGS_C_ +#define ASL_CHARSET_MAX 314 +static const char *const +ASL_Charset[ASL_CHARSET_MAX] = { + "A", + "AE", + "Aacute", + "Abreve", /* EXT */ + "Acircumflex", + "Adieresis", + "Agrave", + "Amacron", /* EXT */ + "Aogonek", /* EXT */ + "Aring", + "Atilde", + "B", + "C", + "Cacute", /* EXT */ + "Ccaron", /* EXT */ + "Ccedilla", + "D", + "Dcaron", /* EXT */ + "Dcroat", /* EXT */ + "Delta", /* EXT */ + "E", + "Eacute", + "Ecaron", /* EXT */ + "Ecircumflex", + "Edieresis", + "Edotaccent", /* EXT */ + "Egrave", + "Emacron", /* EXT */ + "Eogonek", /* EXT */ + "Eth", + "F", + "G", + "Gbreve", /* EXT */ + "Gcommaaccent", /* EXT */ + "H", + "I", + "Iacute", + "Icircumflex", + "Idieresis", + "Idotaccent", /* EXT */ + "Igrave", + "Imacron", /* EXT */ + "Iogonek", /* EXT */ + "J", + "K", + "Kcommaaccent", /* EXT */ + "L", + "Lacute", /* EXT */ + "Lcaron", /* EXT */ + "Lcommaaccent", /* EXT */ + "Lslash", + "M", + "N", + "Nacute", /* EXT */ + "Ncaron", /* EXT */ + "Ncommaaccent", /* EXT */ + "Ntilde", + "O", + "OE", + "Oacute", + "Ocircumflex", + "Odieresis", + "Ograve", + "Ohungarumlaut", /* EXT */ + "Omacron", /* EXT */ + "Oslash", + "Otilde", + "P", + "Q", + "R", + "Racute", /* EXT */ + "Rcaron", /* EXT */ + "Rcommaaccent", /* EXT */ + "S", + "Sacute", /* EXT */ + "Scaron", + "Scedilla", /* EXT */ + "Scommaaccent", /* EXT */ + "T", + "Tcaron", /* EXT */ + "Tcommaaccent", /* EXT */ + "Thorn", + "U", + "Uacute", + "Ucircumflex", + "Udieresis", + "Ugrave", + "Uhungarumlaut", /* EXT */ + "Umacron", /* EXT */ + "Uogonek", /* EXT */ + "Uring", /* EXT */ + "V", + "W", + "X", + "Y", + "Yacute", + "Ydieresis", + "Z", + "Zacute", /* EXT */ + "Zcaron", + "Zdotaccent", /* EXT */ + "a", + "aacute", + "abreve", /* EXT */ + "acircumflex", + "acute", + "adieresis", + "ae", + "agrave", + "amacron", /* EXT */ + "ampersand", + "aogonek", /* EXT */ + "aring", + "asciicircum", + "asciitilde", + "asterisk", + "at", + "atilde", + "b", + "backslash", + "bar", + "braceleft", + "braceright", + "bracketleft", + "bracketright", + "breve", + "brokenbar", + "bullet", + "c", + "cacute", /* EXT */ + "caron", + "ccaron", /* EXT */ + "ccedilla", + "cedilla", + "cent", + "circumflex", + "colon", + "comma", + "commaaccent", /* EXT */ + "copyright", + "currency", + "d", + "dagger", + "daggerdbl", + "dcaron", /* EXT */ + "dcroat", /* EXT */ + "degree", + "dieresis", + "divide", + "dollar", + "dotaccent", + "dotlessi", + "e", + "eacute", + "ecaron", /* EXT */ + "ecircumflex", + "edieresis", + "edotaccent", /* EXT */ + "egrave", + "eight", + "ellipsis", + "emacron", /* EXT */ + "emdash", + "endash", + "eogonek", /* EXT */ + "equal", + "eth", + "exclam", + "exclamdown", + "f", + "fi", + "five", + "fl", + "florin", + "four", + "fraction", + "g", + "gbreve", /* EXT */ + "gcammaaccent", /* EXT */ + "germandbls", + "grave", + "greater", + "greaterequal", /* EXT */ + "guillemotleft", /* MISSPELED BY ADOBE */ + "guillemotright", /* MISSPELED BY ADOBE */ + "guilsinglleft", + "guilsinglright", + "h", + "hungarumlaut", + "hyphen", + "i", + "iacute", + "icircumflex", + "idieresis", + "igrave", + "imacron", /* EXT */ + "iogonek", /* EXT */ + "j", + "k", + "kcommaaccent", /* EXT */ + "l", + "lacute", /* EXT */ + "lcaron", /* EXT */ + "lcommaaccent", /* EXT */ + "less", + "lessequal", /* EXT */ + "logicalnot", + "lozenge", /* EXT */ + "lslash", + "m", + "macron", + "minus", + "mu", + "multiply", + "n", + "nacute", /* EXT */ + "ncaron", /* EXT */ + "ncommaaccent", /* EXT */ + "nine", + "notequal", /* EXT */ + "ntilde", + "numbersign", + "o", + "oacute", + "ocircumflex", + "odieresis", + "oe", + "ogonek", + "ograve", + "ohungarumlaut", /* EXT */ + "omacron", /* EXT */ + "one", + "onehalf", + "onequarter", + "onesuperior", + "ordfeminine", + "ordmasculine", + "oslash", + "otilde", + "p", + "paragraph", + "parenleft", + "parenright", + "partialdiff", /* EXT */ + "percent", + "period", + "periodcentered", + "perthousand", + "plus", + "plusminus", + "q", + "question", + "questiondown", + "quotedbl", + "quotedblbase", + "quotedblleft", + "quotedblright", + "quoteleft", + "quoteright", + "quotesinglbase", + "quotesingle", + "r", + "racute", /* EXT */ + "radical", /* EXT */ + "rcaron", /* EXT */ + "rcommaaccent", /* EXT */ + "registered", + "ring", + "s", + "scacute", /* EXT */ + "scaron", + "scedilla", /* EXT */ + "scommaaccent", /* EXT */ + "section", + "semicolon", + "seven", + "six", + "slash", + "space", + "sterling", + "summation", /* EXT */ + "t", + "tcaron", /* EXT */ + "tcommaaccent", /* EXT */ + "thorn", + "three", + "threequarters", + "threesuperior", + "tilde", + "trademark", + "two", + "twosuperior", + "u", + "uacute", + "ucircumflex", + "udieresis", + "ugrave", + "uhungarumlaut", /* EXT */ + "umacron", /* EXT */ + "underscore", + "uogonek", /* EXT */ + "uring", /* EXT */ + "v", + "w", + "x", + "y", + "yacute", + "ydieresis", + "yen", + "z", + "zacute", /* EXT */ + "zcaron", + "zdotaccent", /* EXT */ + "zero" +}; +#endif /* _ENCODINGS_C_ */ + +#endif /* _ASL_CHARSET_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/bmpimage.c b/Build/source/texk/xdvipdfmx/src/bmpimage.c new file mode 100644 index 00000000000..3897275ca06 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/bmpimage.c @@ -0,0 +1,466 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/bmpimage.c,v 1.2 2004/07/27 12:08:46 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +/* + * BMP SUPPORT: + */ + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "pdfobj.h" + +#include "bmpimage.h" + +#define DIB_FILE_HEADER_SIZE 14 +#define DIB_CORE_HEADER_SIZE 14 +#define DIB_INFO_HEADER_SIZE 40 + +#define DIB_COMPRESS_NONE 0 +#define DIB_COMPRESS_RLE8 1 +#define DIB_COMPRESS_RLE4 2 + +#define DIB_HEADER_SIZE_MAX (DIB_FILE_HEADER_SIZE+DIB_INFO_HEADER_SIZE) + +static long read_raster_rle8 (unsigned char *data_ptr, + long width, long height, FILE *fp); +static long read_raster_rle4 (unsigned char *data_ptr, + long width, long height, FILE *fp); + +int +check_for_bmp (FILE *fp) +{ + unsigned char sigbytes[2]; + + if (!fp) + return 0; + + rewind(fp); + if (fread(sigbytes, 1, sizeof(sigbytes), fp) != sizeof(sigbytes) || + sigbytes[0] != 'B' || sigbytes[1] != 'M') + return 0; + else + return 1; + + return 0; +} + +int +bmp_include_image (pdf_ximage *ximage, FILE *fp) +{ + pdf_obj *stream, *stream_dict, *colorspace; + ximage_info info; + unsigned char buf[DIB_HEADER_SIZE_MAX+4]; + unsigned char *p; + long offset, fsize, hsize, compression; + long psize; /* Bytes per palette color: 3 for OS2, 4 for Win */ + unsigned short bit_count; /* Bits per pix */ + int num_palette, flip; + int i; + unsigned long biXPelsPerMeter, biYPelsPerMeter; + + pdf_ximage_init_image_info(&info); + + stream = stream_dict = colorspace = NULL; + p = buf; + + rewind(fp); + if (fread(buf, 1, DIB_FILE_HEADER_SIZE + 4, fp) + != DIB_FILE_HEADER_SIZE + 4) { + WARN("Could not read BMP file header..."); + } + + if (p[0] != 'B' || p[1] != 'M') { + WARN("File not starting with \'B\' \'M\'... Not a BMP file?"); + return -1; + } + p += 2; + +#define ULONG_LE(b) ((b)[0] + ((b)[1] << 8) +\ + ((b)[2] << 16) + ((b)[3] << 24)) +#define USHORT_LE(b) ((b)[0] + ((b)[1] << 8)) + + fsize = ULONG_LE(p); p += 4; + if (ULONG_LE(p) != 0) { + WARN("Not a BMP file???"); + return -1; + } + p += 4; + offset = ULONG_LE(p); p += 4; + + /* info header */ + hsize = ULONG_LE(p); p += 4; + if (fread(p, sizeof(char), hsize - 4, fp) != hsize - 4) { + WARN("Could not read BMP file header..."); + return -1; + } + flip = 1; + if (hsize == DIB_CORE_HEADER_SIZE) { + info.width = USHORT_LE(p); p += 2; + info.height = USHORT_LE(p); p += 2; + if (USHORT_LE(p) != 1) { + WARN("Unknown bcPlanes value in BMP COREHEADER."); + return -1; + } + p += 2; + bit_count = USHORT_LE(p); p += 2; + compression = DIB_COMPRESS_NONE; + psize = 3; + } else if (hsize == DIB_INFO_HEADER_SIZE) { + info.width = ULONG_LE(p); p += 4; + info.height = ULONG_LE(p); p += 4; + if (USHORT_LE(p) != 1) { + WARN("Unknown biPlanes value in BMP INFOHEADER."); + return -1; + } + p += 2; + bit_count = USHORT_LE(p); p += 2; + compression = ULONG_LE(p); p += 4; + /* ignore biSizeImage */ p += 4; + biXPelsPerMeter = ULONG_LE(p); p += 4; + biYPelsPerMeter = ULONG_LE(p); p += 4; + info.xdpi = biXPelsPerMeter * 0.0254; /* convert pixels per meter to DPI */ + info.ydpi = biYPelsPerMeter * 0.0254; + if (info.height < 0) { + info.height = -info.height; + flip = 0; + } + psize = 4; + } else { + WARN("Unknown BMP header type."); + return -1; + } + + if (bit_count < 24) { + if (bit_count != 1 && + bit_count != 4 && bit_count != 8) { + WARN("Unsupported palette size: %ld", bit_count); + return -1; + } + num_palette = (offset - hsize - DIB_FILE_HEADER_SIZE) / psize; + info.bits_per_component = bit_count; + info.num_components = 1; + } else if (bit_count == 24) { /* full color */ + num_palette = 1; /* dummy */ + info.bits_per_component = 8; + info.num_components = 3; + } else { + WARN("Unkown BMP bitCount: %ld", bit_count); + return -1; + } + + if (info.width == 0 || info.height == 0 || num_palette < 1) { + WARN("Invalid BMP file: width=%ld, height=%ld, #palette=%d", + info.width, info.height, num_palette); + return -1; + } + + stream = pdf_new_stream(STREAM_COMPRESS); + stream_dict = pdf_stream_dict(stream); + + if (bit_count < 24) { + pdf_obj *lookup; + unsigned char *palette, bgrq[4]; + + palette = NEW(num_palette*3+1, unsigned char); + for (i = 0; i < num_palette; i++) { + if (fread(bgrq, 1, psize, fp) != psize) { + WARN("Reading file failed..."); + RELEASE(palette); + return -1; + } + /* BGR data */ + palette[3*i ] = bgrq[2]; + palette[3*i+1] = bgrq[1]; + palette[3*i+2] = bgrq[0]; + } + lookup = pdf_new_string(palette, num_palette*3); + RELEASE(palette); + + colorspace = pdf_new_array(); + pdf_add_array(colorspace, pdf_new_name("Indexed")); + pdf_add_array(colorspace, pdf_new_name("DeviceRGB")); + pdf_add_array(colorspace, pdf_new_number(num_palette-1)); + pdf_add_array(colorspace, lookup); + } else { + colorspace = pdf_new_name("DeviceRGB"); + } + pdf_add_dict(stream_dict, pdf_new_name("ColorSpace"), colorspace); + + /* Raster data of BMP is four-byte aligned. */ + { + long rowbytes, n; + unsigned char *stream_data_ptr = NULL; + + rowbytes = (info.width * bit_count + 7) / 8; + + seek_absolute(fp, offset); + if (compression == DIB_COMPRESS_NONE) { + long dib_rowbytes; + int padding; + + padding = (rowbytes % 4) ? 4 - (rowbytes % 4) : 0; + dib_rowbytes = rowbytes + padding; + stream_data_ptr = NEW(rowbytes*info.height + padding, + unsigned char); + for (n = 0; n < info.height; n++) { + p = stream_data_ptr + n * rowbytes; + if (fread(p, 1, dib_rowbytes, fp) != dib_rowbytes) { + WARN("Reading BMP raster data failed..."); + pdf_release_obj(stream); + RELEASE(stream_data_ptr); + return -1; + } + } + } else if (compression == DIB_COMPRESS_RLE8) { + stream_data_ptr = NEW(rowbytes*info.height, unsigned char); + if (read_raster_rle8(stream_data_ptr, + info.width, info.height, fp) < 0) { + WARN("Reading BMP raster data failed..."); + pdf_release_obj(stream); + RELEASE(stream_data_ptr); + return -1; + } + } else if (compression == DIB_COMPRESS_RLE4) { + stream_data_ptr = NEW(rowbytes*info.height, unsigned char); + if (read_raster_rle4(stream_data_ptr, + info.width, info.height, fp) < 0) { + WARN("Reading BMP raster data failed..."); + pdf_release_obj(stream); + RELEASE(stream_data_ptr); + return -1; + } + } else { + pdf_release_obj(stream); + return -1; + } + + /* gbr --> rgb */ + if (bit_count == 24) { + for (n = 0; n < info.width * info.height * 3; n += 3) { + unsigned char g; + g = stream_data_ptr[n]; + stream_data_ptr[n ] = stream_data_ptr[n+2]; + stream_data_ptr[n+2] = g; + } + } + + if (flip) { + for (n = info.height - 1; n >= 0; n--) { + p = stream_data_ptr + n * rowbytes; + pdf_add_stream(stream, p, rowbytes); + } + } else { + pdf_add_stream(stream, stream_data_ptr, rowbytes*info.height); + } + RELEASE(stream_data_ptr); + } + + pdf_ximage_set_image(ximage, &info, stream); + + return 0; +} + +static long +read_raster_rle8 (unsigned char *data_ptr, + long width, long height, FILE *fp) +{ + long count = 0; + unsigned char *p, b0, b1; + long h, v, rowbytes; + int eol, eoi; + + p = data_ptr; + rowbytes = width; + memset(data_ptr, 0, rowbytes*height); + for (v = 0, eoi = 0; v < height && !eoi; v++) { + for (h = 0, eol = 0; h < width && !eol; ) { + + b0 = get_unsigned_byte(fp); + b1 = get_unsigned_byte(fp); + count += 2; + + p = data_ptr + v * rowbytes + h; + + if (b0 == 0x00) { + switch (b1) { + case 0x00: /* EOL */ + eol = 1; + break; + case 0x01: /* EOI */ + eoi = 1; + break; + case 0x02: + h += get_unsigned_byte(fp); + v += get_unsigned_byte(fp); + count += 2; + break; + default: + h += b1; + if (h > width) { + WARN("RLE decode failed..."); + return -1; + } + if (fread(p, 1, b1, fp) != b1) + return -1; + count += b1; + if (b1 % 2) { + get_unsigned_byte(fp); + count++; + } + break; + } + } else { + h += b0; + if (h > width) { + WARN("RLE decode failed..."); + return -1; + } + memset(p, b1, b0); + } + } + + /* Check for EOL and EOI marker */ + if (!eol && !eoi) { + b0 = get_unsigned_byte(fp); + b1 = get_unsigned_byte(fp); + if (b0 != 0x00) { + WARN("RLE decode failed..."); + return -1; + } else if (b1 == 0x01) { + eoi = 1; + } else if (b1 != 0x00) { + WARN("RLE decode failed..."); + return -1; + } + } + + /* next row ... */ + } + + return count; +} + +static long +read_raster_rle4 (unsigned char *data_ptr, + long width, long height, FILE *fp) +{ + long count = 0; + unsigned char *p, b0, b1, b; + long h, v, rowbytes; + int eol, eoi, i, nbytes; + + p = data_ptr; + rowbytes = (width + 1) / 2; + memset(data_ptr, 0, rowbytes*height); + for (v = 0, eoi = 0; v < height && !eoi; v++) { + for (h = 0, eol = 0; h < width && !eol; ) { + + b0 = get_unsigned_byte(fp); + b1 = get_unsigned_byte(fp); + count += 2; + + p = data_ptr + v * rowbytes + (h / 2); + if (b0 == 0x00) { + switch (b1) { + case 0x00: /* EOL */ + eol = 1; + break; + case 0x01: /* EOI */ + eoi = 1; + break; + case 0x02: + h += get_unsigned_byte(fp); + v += get_unsigned_byte(fp); + count += 2; + break; + default: + if (h + b1 > width) { + WARN("RLE decode failed..."); + return -1; + } + nbytes = (b1 + 1)/2; + if (h % 2) { /* starting at hi-nib */ + for (i = 0; i < nbytes; i++) { + b = get_unsigned_byte(fp); + *p++ |= (b >> 4) & 0x0f; + *p = (b << 4) & 0xf0; + } + } else { + if (fread(p, 1, nbytes, fp) != nbytes) { + return -1; + } + } + h += b1; + count += nbytes; + if (nbytes % 2) { + get_unsigned_byte(fp); + count++; + } + break; + } + } else { + if (h + b0 > width) { + WARN("RLE decode failed..."); + return -1; + } + if (h % 2) { + *p++ = (b1 >> 4) & 0x0f; + b1 = ((b1 << 4) & 0xf0)|((b1 >> 4) & 0x0f); + b0--; + h++; + } + nbytes = (b0 + 1)/2; + memset(p, b1, nbytes); + h += b0; + if (h % 2) + p[nbytes-1] &= 0xf0; + } + } + + /* Check for EOL and EOI marker */ + if (!eol && !eoi) { + b0 = get_unsigned_byte(fp); + b1 = get_unsigned_byte(fp); + if (b0 != 0x00) { + WARN("No EOL/EOI marker. RLE decode failed..."); + return -1; + } else if (b1 == 0x01) { + eoi = 1; + } else if (b1 != 0x00) { + WARN("No EOL/EOI marker. RLE decode failed..."); + return -1; + } + } + + /* next row ... */ + } + + return count; +} diff --git a/Build/source/texk/xdvipdfmx/src/bmpimage.h b/Build/source/texk/xdvipdfmx/src/bmpimage.h new file mode 100644 index 00000000000..7dbe6beb798 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/bmpimage.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/bmpimage.h,v 1.1 2004/07/25 11:54:20 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + + +#ifndef _BMPIMAGE_H_ +#define _BMPIMAGE_H_ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "mfileio.h" +#include "pdfximage.h" + +extern int bmp_include_image (pdf_ximage *ximage, FILE *file); +extern int check_for_bmp (FILE *file); + +#endif /* _BMPIMAGE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cff.c b/Build/source/texk/xdvipdfmx/src/cff.c new file mode 100644 index 00000000000..51d33633f9d --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cff.c @@ -0,0 +1,1458 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cff.c,v 1.15 2004/09/11 14:50:28 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include + +#include "mem.h" +#include "error.h" +#include "mfileio.h" + +#include "cff_limits.h" +#include "cff_types.h" +#include "cff_stdstr.h" +#include "cff_dict.h" + +#include "cff.h" + +#define CFF_DEBUG 5 +#define CFF_DEBUG_STR "CFF" + +static unsigned long get_unsigned (sfnt *sfont, int n) +{ + unsigned long v = 0; + + while (n-- > 0) + v = v*0x100u + sfnt_get_byte(sfont); + + return v; +} + +#define get_offset(s, n) get_unsigned((s), (n)) +#define get_card8(s) sfnt_get_byte((s)) +#define get_card16(s) sfnt_get_ushort((s)) + +/* + * Read Header, Name INDEX, Top DICT INDEX, and String INDEX. + */ +cff_font *cff_open(sfnt *sfont, long offset, int n) +{ + cff_font *cff; + cff_index *idx; + + cff = NEW(1, cff_font); + + cff->fontname = NULL; + cff->index = n; + cff->sfont = sfont; + cff->offset = offset; + cff->filter = 0; /* not used */ + cff->flag = 0; + + cff->name = NULL; + cff->gsubr = NULL; + cff->encoding = NULL; + cff->charsets = NULL; + cff->fdselect = NULL; + cff->cstrings = NULL; + cff->fdarray = NULL; + cff->private = NULL; + cff->subrs = NULL; + + cff->num_glyphs = 0; + cff->num_fds = 0; + cff->_string = NULL; + + cff_seek_set(cff, 0); + cff->header.major = get_card8(cff->sfont); + cff->header.minor = get_card8(cff->sfont); + cff->header.hdr_size = get_card8(cff->sfont); + cff->header.offsize = get_card8(cff->sfont); + if (cff->header.offsize < 1 || + cff->header.offsize > 4) + ERROR("invalid offsize data"); + + if (cff->header.major > 1 || + cff->header.minor > 0) { + WARN("%s: CFF version %u.%u not supported.", + CFF_DEBUG_STR, cff->header.major, cff->header.minor); + cff_close(cff); + return NULL; + } + + cff_seek_set(cff, (cff->header).hdr_size); + + /* Name INDEX */ + idx = cff_get_index(cff); + if (n > idx->count - 1) { + WARN("%s: Invalid CFF fontset index number.", CFF_DEBUG_STR); + cff_close(cff); + return NULL; + } + + cff->name = idx; + + cff->fontname = cff_get_name(cff); + + /* Top DICT INDEX */ + idx = cff_get_index(cff); + if (n > idx->count - 1) + ERROR("CFF Top DICT not exist..."); + cff->topdict = cff_dict_unpack(idx->data + idx->offset[n] - 1, + idx->data + idx->offset[n + 1] - 1); + if (!cff->topdict) + ERROR("Parsing CFF Top DICT data failed..."); + cff_release_index(idx); + + if (cff_dict_known(cff->topdict, "CharstringType") && + cff_dict_get(cff->topdict, "CharstringType", 0) != 2) { + WARN("Only Type 2 Charstrings supported..."); + cff_close(cff); + return NULL; + } + + if (cff_dict_known(cff->topdict, "SyntheticBase")) { + WARN("CFF Synthetic font not supported."); + cff_close(cff); + return NULL; + } + + /* String INDEX */ + cff->string = cff_get_index(cff); + + /* offset to GSubr */ + cff->gsubr_offset = cff->sfont->loc - offset; + + /* Number of glyphs */ + offset = (long) cff_dict_get(cff->topdict, "CharStrings", 0); + cff_seek_set(cff, offset); + cff->num_glyphs = get_card16(cff->sfont); + + /* Check for font type */ + if (cff_dict_known(cff->topdict, "ROS")) { + cff->flag |= FONTTYPE_CIDFONT; + } else { + cff->flag |= FONTTYPE_FONT; + } + + /* Check for encoding */ + if (cff_dict_known(cff->topdict, "Encoding")) { + offset = (long) cff_dict_get(cff->topdict, "Encoding", 0); + if (offset == 0) { /* predefined */ + cff->flag |= ENCODING_STANDARD; + } else if (offset == 1) { + cff->flag |= ENCODING_EXPERT; + } + } else { + cff->flag |= ENCODING_STANDARD; + } + + /* Check for charset */ + if (cff_dict_known(cff->topdict, "charset")) { + offset = (long) cff_dict_get(cff->topdict, "charset", 0); + if (offset == 0) { /* predefined */ + cff->flag |= CHARSETS_ISOADOBE; + } else if (offset == 1) { + cff->flag |= CHARSETS_EXPERT; + } else if (offset == 2) { + cff->flag |= CHARSETS_EXPSUB; + } + } else { + cff->flag |= CHARSETS_ISOADOBE; + } + + cff_seek_set(cff, cff->gsubr_offset); /* seek back to GSubr */ + + return cff; +} + +void +cff_close (cff_font *cff) +{ + card16 i; + + if (cff) { + if (cff->fontname) RELEASE(cff->fontname); + if (cff->name) cff_release_index(cff->name); + if (cff->topdict) cff_release_dict(cff->topdict); + if (cff->string) cff_release_index(cff->string); + if (cff->gsubr) cff_release_index(cff->gsubr); + if (cff->encoding) cff_release_encoding(cff->encoding); + if (cff->charsets) cff_release_charsets(cff->charsets); + if (cff->fdselect) cff_release_fdselect(cff->fdselect); + if (cff->cstrings) cff_release_index(cff->cstrings); + if (cff->fdarray) { + for (i=0;inum_fds;i++) { + if (cff->fdarray[i]) cff_release_dict(cff->fdarray[i]); + } + RELEASE(cff->fdarray); + } + if (cff->private) { + for (i=0;inum_fds;i++) { + if (cff->private[i]) cff_release_dict(cff->private[i]); + } + RELEASE(cff->private); + } + if (cff->subrs) { + for (i=0;inum_fds;i++) { + if (cff->subrs[i]) cff_release_index(cff->subrs[i]); + } + RELEASE(cff->subrs); + } + if (cff->_string) + cff_release_index(cff->_string); + RELEASE(cff); + } + + return; +} + +char * +cff_get_name (cff_font *cff) +{ + char *fontname; + l_offset len; + cff_index *idx; + + idx = cff->name; + len = idx->offset[cff->index + 1] - idx->offset[cff->index]; + fontname = NEW(len + 1, char); + memcpy(fontname, idx->data + idx->offset[cff->index] - 1, len); + fontname[len] = '\0'; + + return fontname; +} + +long +cff_set_name (cff_font *cff, char *name) +{ + cff_index *idx; + + if (strlen(name) > 127) + ERROR("FontName string length too large..."); + + if (cff->name) + cff_release_index(cff->name); + + cff->name = idx = NEW(1, cff_index); + idx->count = 1; + idx->offsize = 1; + idx->offset = NEW(2, l_offset); + (idx->offset)[0] = 1; + (idx->offset)[1] = strlen(name) + 1; + idx->data = NEW(strlen(name), card8); + memmove(idx->data, name, strlen(name)); /* no trailing '\0' */ + + return 5 + strlen(name); +} + +long +cff_put_header (cff_font *cff, card8 *dest, long destlen) +{ + if (destlen < 4) + ERROR("Not enough space available..."); + + *(dest++) = cff->header.major; + *(dest++) = cff->header.minor; + *(dest++) = 4; /* Additional data in between header and + * Name INDEX ignored. + */ + /* We will set all offset (0) to four-byte integer. */ + *(dest++) = 4; + cff->header.offsize = 4; + + return 4; +} + +/* Only read header part but not body */ +cff_index * +cff_get_index_header (cff_font *cff) +{ + cff_index *idx; + card16 i, count; + + idx = NEW(1, cff_index); + + idx->count = count = get_card16(cff->sfont); + if (count > 0) { + idx->offsize = get_card8(cff->sfont); + if (idx->offsize < 1 || idx->offsize > 4) + ERROR("invalid offsize data"); + + idx->offset = NEW(count+1, l_offset); + for (i=0;ioffset)[i] = get_offset(cff->sfont, idx->offsize); + } + + if (idx->offset[0] != 1) + ERROR("cff_get_index(): invalid index data"); + + idx->data = NULL; + } else { + idx->offsize = 0; + idx->offset = NULL; + idx->data = NULL; + } + + return idx; +} + +cff_index * +cff_get_index (cff_font *cff) +{ + cff_index *idx; + card16 i, count; + long length, nb_read, offset; + + idx = NEW(1, cff_index); + + idx->count = count = get_card16(cff->sfont); + if (count > 0) { + idx->offsize = get_card8(cff->sfont); + if (idx->offsize < 1 || idx->offsize > 4) + ERROR("invalid offsize data"); + + idx->offset = NEW(count + 1, l_offset); + for (i = 0 ; i < count + 1; i++) { + idx->offset[i] = get_offset(cff->sfont, idx->offsize); + } + + if (idx->offset[0] != 1) + ERROR("Invalid CFF Index offset data"); + + length = idx->offset[count] - idx->offset[0]; + + idx->data = NEW(length, card8); + offset = 0; + while (length > 0) { + nb_read = sfnt_read(idx->data + offset, length, cff->sfont); + offset += nb_read; + length -= nb_read; + } + } else { + idx->offsize = 0; + idx->offset = NULL; + idx->data = NULL; + } + + return idx; +} + +long +cff_pack_index (cff_index *idx, card8 *dest, long destlen) +{ + long len = 0; + long datalen; + card16 i; + + if (idx->count < 1) { + if (destlen < 2) + ERROR("Not enough space available..."); + memset(dest, 0, 2); + return 2; + } + + len = cff_index_size(idx); + datalen = idx->offset[idx->count] - 1; + + if (destlen < len) + ERROR("Not enough space available..."); + + *(dest++) = (idx->count >> 8) & 0xff; + *(dest++) = idx->count & 0xff; + + if (datalen < 0xffUL) { + idx->offsize = 1; + *(dest++) = 1; + for (i = 0; i <= idx->count; i++) { + *(dest++) = (card8) (idx->offset[i] & 0xff); + } + } else if (datalen < 0xffffUL) { + idx->offsize = 2; + *(dest++) = 2; + for (i = 0; i <= idx->count; i++) { + *(dest++) = (card8) ((idx->offset[i] >> 8) & 0xff); + *(dest++) = (card8) ( idx->offset[i] & 0xff); + } + } else if (datalen < 0xffffffUL) { + idx->offsize = 3; + *(dest++) = 3; + for (i = 0; i <= idx->count; i++) { + *(dest++) = (card8)((idx->offset[i] >> 16) & 0xff); + *(dest++) = (card8)((idx->offset[i] >> 8) & 0xff); + *(dest++) = (card8)(idx->offset[i] & 0xff); + } + } else { + idx->offsize = 4; + *(dest++) = 4; + for (i = 0; i <= idx->count; i++) { + *(dest++) = (card8)((idx->offset[i] >> 24) & 0xff); + *(dest++) = (card8)((idx->offset[i] >> 16) & 0xff); + *(dest++) = (card8)((idx->offset[i] >> 8) & 0xff); + *(dest++) = (card8)(idx->offset[i] & 0xff); + } + } + + memmove(dest, idx->data, idx->offset[idx->count] - 1); + + return len; +} + +long +cff_index_size (cff_index *idx) +{ + if (idx->count > 0) { + l_offset datalen; + + datalen = idx->offset[idx->count] - 1; + if (datalen < 0xffUL) { + idx->offsize = 1; + } else if (datalen < 0xffffUL) { + idx->offsize = 2; + } else if (datalen < 0xffffffUL) { + idx->offsize = 3; + } else { + idx->offsize = 4; + } + return (3 + (idx->offsize)*(idx->count + 1) + datalen); + } else { + return 2; + } +} + + +cff_index *cff_new_index (card16 count) +{ + cff_index *idx; + + idx = NEW(1, cff_index); + idx->count = count; + idx->offsize = 0; + + if (count > 0) { + idx->offset = NEW(count + 1, l_offset); + (idx->offset)[0] = 1; + } else { + idx->offset = NULL; + } + idx->data = NULL; + + return idx; +} + +void cff_release_index (cff_index *idx) +{ + if (idx) { + if (idx->data) { + RELEASE(idx->data); + } + if (idx->offset) { + RELEASE(idx->offset); + } + RELEASE(idx); + } +} + +/* Strings */ +char *cff_get_string (cff_font *cff, s_SID id) +{ + char *result = NULL; + long len; + + if (id < CFF_STDSTR_MAX) { + len = strlen(cff_stdstr[id]); + result = NEW(len+1, char); + memcpy(result, cff_stdstr[id], len); + result[len] = '\0'; + } else if (cff && cff->string) { + cff_index *strings = cff->string; + id -= CFF_STDSTR_MAX; + if (id < strings->count) { + len = (strings->offset)[id+1] - (strings->offset)[id]; + result = NEW(len + 1, char); + memmove(result, strings->data + (strings->offset)[id] - 1, len); + result[len] = '\0'; + } + } + + return result; +} + +long cff_get_sid (cff_font *cff, char *str) +{ + card16 i; + + if (!cff || !str) + return -1; + + /* I search String INDEX first. */ + if (cff && cff->string) { + cff_index *idx = cff->string; + for (i = 0; i < idx->count; i++) { + if (strlen(str) == (idx->offset)[i+1] - (idx->offset)[i] && + !memcmp(str, (idx->data)+(idx->offset)[i]-1, strlen(str))) + return (i + CFF_STDSTR_MAX); + } + } + + for (i = 0; i < CFF_STDSTR_MAX; i++) { + if (!strcmp(str, cff_stdstr[i])) + return i; + } + + return -1; +} + +int cff_match_string (cff_font *cff, const char *str, s_SID sid) +{ + card16 i; + + if (sid < CFF_STDSTR_MAX) { + return ((!strcmp(str, cff_stdstr[sid])) ? 1 : 0); + } else { + i = sid - CFF_STDSTR_MAX; + if (cff == NULL || cff->string == NULL || i >= cff->string->count) + ERROR("Invalid SID"); + if (strlen(str) == (cff->string->offset)[i+1] - (cff->string->offset)[i]) + return (!memcmp(str, + (cff->string->data)+(cff->string->offset)[i]-1, + strlen(str))) ? 1 : 0; + } + + return 0; +} + +void cff_update_string (cff_font *cff) +{ + if (cff == NULL) + ERROR("CFF font not opened."); + + if (cff->string) + cff_release_index(cff->string); + cff->string = cff->_string; + cff->_string = NULL; +} + +s_SID cff_add_string (cff_font *cff, char *str) +{ + card16 idx; + cff_index *strings; + l_offset offset, size; + + if (cff == NULL) + ERROR("CFF font not opened."); + + if (cff->_string == NULL) + cff->_string = cff_new_index(0); + strings = cff->_string; + + for (idx = 0; idx < strings->count; idx++) { + size = strings->offset[idx+1] - strings->offset[idx]; + offset = strings->offset[idx]; + if (size == strlen(str) && + !memcmp(strings->data+offset-1, str, strlen(str))) + return (idx + CFF_STDSTR_MAX); + } + + for (idx = 0; idx < CFF_STDSTR_MAX; idx++) { + if (cff_stdstr[idx] && + !strcmp(cff_stdstr[idx], str)) + return idx; + } + offset = (strings->count > 0) ? strings->offset[strings->count] : 1; + strings->offset = RENEW(strings->offset, strings->count+2, l_offset); + if (strings->count == 0) + strings->offset[0] = 1; + idx = strings->count; + strings->count += 1; + strings->offset[strings->count] = offset + strlen(str); + strings->data = RENEW(strings->data, offset+strlen(str)-1, card8); + memcpy(strings->data+offset-1, str, strlen(str)); + + return (idx + CFF_STDSTR_MAX); +} + +/* + * Encoding and Charset + * + * Encoding and Charset arrays always begin with GID = 1. + */ +long cff_read_encoding (cff_font *cff) +{ + cff_encoding *encoding; + long offset, length; + card8 i; + + if (cff->topdict == NULL) { + ERROR("Top DICT data not found"); + } + + if (!cff_dict_known(cff->topdict, "Encoding")) { + cff->flag |= ENCODING_STANDARD; + cff->encoding = NULL; + return 0; + } + + offset = (long) cff_dict_get(cff->topdict, "Encoding", 0); + if (offset == 0) { /* predefined */ + cff->flag |= ENCODING_STANDARD; + cff->encoding = NULL; + return 0; + } else if (offset == 1) { + cff->flag |= ENCODING_EXPERT; + cff->encoding = NULL; + return 0; + } + + cff_seek_set(cff, offset); + cff->encoding = encoding = NEW(1, cff_encoding); + encoding->format = get_card8(cff->sfont); + length = 1; + + switch (encoding->format & (~0x80)) { + case 0: + encoding->num_entries = get_card8(cff->sfont); + (encoding->data).codes = NEW(encoding->num_entries, card8); + for (i=0;i<(encoding->num_entries);i++) { + (encoding->data).codes[i] = get_card8(cff->sfont); + } + length += encoding->num_entries + 1; + break; + case 1: + { + cff_range1 *ranges; + encoding->num_entries = get_card8(cff->sfont); + encoding->data.range1 = ranges + = NEW(encoding->num_entries, cff_range1); + for (i=0;i<(encoding->num_entries);i++) { + ranges[i].first = get_card8(cff->sfont); + ranges[i].n_left = get_card8(cff->sfont); + } + length += (encoding->num_entries) * 2 + 1; + } + break; + default: + RELEASE(encoding); + ERROR("Unknown Encoding format"); + break; + } + + /* Supplementary data */ + if ((encoding->format) & 0x80) { + cff_map *map; + encoding->num_supps = get_card8(cff->sfont); + encoding->supp = map = NEW(encoding->num_supps, cff_map); + for (i=0;i<(encoding->num_supps);i++) { + map[i].code = get_card8(cff->sfont); + map[i].glyph = get_card16(cff->sfont); /* SID */ + } + length += (encoding->num_supps) * 3 + 1; + } else { + encoding->num_supps = 0; + encoding->supp = NULL; + } + + return length; +} + +long cff_pack_encoding (cff_font *cff, card8 *dest, long destlen) +{ + long len = 0; + cff_encoding *encoding; + card16 i; + + if (cff->flag & HAVE_STANDARD_ENCODING || cff->encoding == NULL) + return 0; + + if (destlen < 2) + ERROR("in cff_pack_encoding(): Buffer overflow"); + + encoding = cff->encoding; + + dest[len++] = encoding->format; + dest[len++] = encoding->num_entries; + switch (encoding->format & (~0x80)) { + case 0: + if (destlen < len + encoding->num_entries) + ERROR("in cff_pack_encoding(): Buffer overflow"); + for (i=0;i<(encoding->num_entries);i++) { + dest[len++] = (encoding->data).codes[i]; + } + break; + case 1: + { + if (destlen < len + (encoding->num_entries)*2) + ERROR("in cff_pack_encoding(): Buffer overflow"); + for (i=0;i<(encoding->num_entries);i++) { + dest[len++] = (encoding->data).range1[i].first & 0xff; + dest[len++] = (encoding->data).range1[i].n_left; + } + } + break; + default: + ERROR("Unknown Encoding format"); + break; + } + + if ((encoding->format) & 0x80) { + if (destlen < len + (encoding->num_supps)*3 + 1) + ERROR("in cff_pack_encoding(): Buffer overflow"); + dest[len++] = encoding->num_supps; + for (i=0;i<(encoding->num_supps);i++) { + dest[len++] = (encoding->supp)[i].code; + dest[len++] = ((encoding->supp)[i].glyph >> 8) & 0xff; + dest[len++] = (encoding->supp)[i].glyph & 0xff; + } + } + + return len; +} + +/* input: code, output: glyph index */ +card16 cff_encoding_lookup (cff_font *cff, card8 code) +{ + card16 gid = 0; + cff_encoding *encoding; + card16 i; + + if (cff->flag & (ENCODING_STANDARD|ENCODING_EXPERT)) { + ERROR("Predefined CFF encoding not supported yet"); + } else if (cff->encoding == NULL) { + ERROR("Encoding data not available"); + } + + encoding = cff->encoding; + + gid = 0; + switch (encoding->format & (~0x80)) { + case 0: + for (i = 0; i < encoding->num_entries; i++) { + if (code == (encoding->data).codes[i]) { + gid = i + 1; + break; + } + } + break; + case 1: + for (i = 0; i < encoding->num_entries; i++) { + if (code >= (encoding->data).range1[i].first && + code <= (encoding->data).range1[i].first + (encoding->data).range1[i].n_left) { + gid += code - (encoding->data).range1[i].first + 1; + break; + } + gid += (encoding->data).range1[i].n_left + 1; + } + if (i == encoding->num_entries) + gid = 0; + break; + default: + ERROR("Unknown Encoding format."); + } + + /* Supplementary data */ + if (gid == 0 && ((encoding->format) & 0x80)) { + cff_map *map; + if (!encoding->supp) + ERROR("No CFF supplementary encoding data read."); + map = encoding->supp; + for (i=0;i<(encoding->num_supps);i++) { + if (code == map[i].code) { + gid = cff_charsets_lookup(cff, map[i].glyph); + break; + } + } + } + + return gid; +} + +void cff_release_encoding (cff_encoding *encoding) +{ + if (encoding) { + switch (encoding->format & (~0x80)) { + case 0: + if (encoding->data.codes) + RELEASE(encoding->data.codes); + break; + case 1: + if (encoding->data.range1) + RELEASE(encoding->data.range1); + break; + default: + ERROR("Unknown Encoding format."); + } + if (encoding->format & 0x80) { + if (encoding->supp) + RELEASE(encoding->supp); + } + RELEASE(encoding); + } +} + +long cff_read_charsets (cff_font *cff) +{ + cff_charsets *charset; + long offset, length; + card16 count, i; + + if (cff->topdict == NULL) + ERROR("Top DICT not available"); + + if (!cff_dict_known(cff->topdict, "charset")) { + cff->flag |= CHARSETS_ISOADOBE; + cff->charsets = NULL; + return 0; + } + + offset = (long) cff_dict_get(cff->topdict, "charset", 0); + + if (offset == 0) { /* predefined */ + cff->flag |= CHARSETS_ISOADOBE; + cff->charsets = NULL; + return 0; + } else if (offset == 1) { + cff->flag |= CHARSETS_EXPERT; + cff->charsets = NULL; + return 0; + } else if (offset == 2) { + cff->flag |= CHARSETS_EXPSUB; + cff->charsets = NULL; + return 0; + } + + cff_seek_set(cff, offset); + cff->charsets = charset = NEW(1, cff_charsets); + charset->format = get_card8(cff->sfont); + charset->num_entries = 0; + + count = cff->num_glyphs - 1; + length = 1; + + /* Not sure. Not well documented. */ + switch (charset->format) { + case 0: + charset->num_entries = cff->num_glyphs - 1; /* no .notdef */ + charset->data.glyphs = NEW(charset->num_entries, s_SID); + length += (charset->num_entries) * 2; + for (i=0;i<(charset->num_entries);i++) { + charset->data.glyphs[i] = get_card16(cff->sfont); + } + count = 0; + break; + case 1: + { + cff_range1 *ranges = NULL; + while (count > 0 && charset->num_entries < cff->num_glyphs) { + ranges = RENEW(ranges, charset->num_entries + 1, cff_range1); + ranges[charset->num_entries].first = get_card16(cff->sfont); + ranges[charset->num_entries].n_left = get_card8(cff->sfont); + count -= ranges[charset->num_entries].n_left + 1; /* no-overrap */ + charset->num_entries += 1; + charset->data.range1 = ranges; + } + length += (charset->num_entries) * 3; + } + break; + case 2: + { + cff_range2 *ranges = NULL; + while (count > 0 && charset->num_entries < cff->num_glyphs) { + ranges = RENEW(ranges, charset->num_entries + 1, cff_range2); + ranges[charset->num_entries].first = get_card16(cff->sfont); + ranges[charset->num_entries].n_left = get_card16(cff->sfont); + count -= ranges[charset->num_entries].n_left + 1; /* non-overrapping */ + charset->num_entries += 1; + } + charset->data.range2 = ranges; + length += (charset->num_entries) * 4; + } + break; + default: + RELEASE(charset); + ERROR("Unknown Charset format"); + break; + } + + if (count > 0) + ERROR("Charset data possibly broken"); + + return length; +} + +long cff_pack_charsets (cff_font *cff, card8 *dest, long destlen) +{ + long len = 0; + card16 i; + cff_charsets *charset; + + if (cff->flag & HAVE_STANDARD_CHARSETS || cff->charsets == NULL) + return 0; + + if (destlen < 1) + ERROR("in cff_pack_charsets(): Buffer overflow"); + + charset = cff->charsets; + + dest[len++] = charset->format; + switch (charset->format) { + case 0: + if (destlen < len + (charset->num_entries)*2) + ERROR("in cff_pack_charsets(): Buffer overflow"); + for (i=0;i<(charset->num_entries);i++) { + s_SID sid = (charset->data).glyphs[i]; /* or CID */ + dest[len++] = (sid >> 8) & 0xff; + dest[len++] = sid & 0xff; + } + break; + case 1: + { + if (destlen < len + (charset->num_entries)*3) + ERROR("in cff_pack_charsets(): Buffer overflow"); + for (i=0;i<(charset->num_entries);i++) { + dest[len++] = ((charset->data).range1[i].first >> 8) & 0xff; + dest[len++] = (charset->data).range1[i].first & 0xff; + dest[len++] = (charset->data).range1[i].n_left; + } + } + break; + case 2: + { + if (destlen < len + (charset->num_entries)*4) + ERROR("in cff_pack_charsets(): Buffer overflow"); + for (i=0;i<(charset->num_entries);i++) { + dest[len++] = ((charset->data).range2[i].first >> 8) & 0xff; + dest[len++] = (charset->data).range2[i].first & 0xff; + dest[len++] = ((charset->data).range2[i].n_left >> 8) & 0xff; + dest[len++] = (charset->data).range2[i].n_left & 0xff; + } + } + break; + default: + ERROR("Unknown Charset format"); + break; + } + + return len; +} + +card16 cff_glyph_lookup (cff_font *cff, const char *glyph) +{ + card16 gid; + cff_charsets *charset; + card16 i, n; + + if (cff->flag & (CHARSETS_ISOADOBE|CHARSETS_EXPERT|CHARSETS_EXPSUB)) { + ERROR("Predefined CFF charsets not supported yet"); + } else if (cff->charsets == NULL) { + ERROR("Charsets data not available"); + } + + /* .notdef always have glyph index 0 */ + if (!glyph || !strcmp(glyph, ".notdef")) { + return 0; + } + + charset = cff->charsets; + + gid = 0; + switch (charset->format) { + case 0: + for (i = 0; i < charset->num_entries; i++) { + gid++; + if (cff_match_string(cff, glyph, charset->data.glyphs[i])) { + return gid; + } + } + break; + case 1: + for (i = 0; i < charset->num_entries; i++) { + for (n = 0; + n <= charset->data.range1[i].n_left; n++) { + gid++; + if (cff_match_string(cff, glyph, + (s_SID)(charset->data.range1[i].first + n))) { + return gid; + } + } + } + break; + case 2: + for (i = 0; i num_entries; i++) { + for (n = 0; + n <= charset->data.range2[i].n_left; n++) { + gid++; + if (cff_match_string(cff, glyph, + (s_SID)(charset->data.range2[i].first + n))) { + return gid; + } + } + } + break; + default: + ERROR("Unknown Charset format"); + } + + return 0; /* not found, returns .notdef */ +} + +/* Input : SID or CID (16-bit unsigned int) + * Output: glyph index + */ +card16 +cff_charsets_lookup (cff_font *cff, card16 cid) +{ + card16 gid = 0; + cff_charsets *charset; + card16 i; + + if (cff->flag & (CHARSETS_ISOADOBE|CHARSETS_EXPERT|CHARSETS_EXPSUB)) { + ERROR("Predefined CFF charsets not supported yet"); + } else if (cff->charsets == NULL) { + ERROR("Charsets data not available"); + } + + if (cid == 0) { + return 0; /* GID 0 (.notdef) */ + } + + charset = cff->charsets; + + gid = 0; + switch (charset->format) { + case 0: + for (i = 0; i num_entries; i++) { + if (cid == charset->data.glyphs[i]) { + gid = i + 1; + return gid; + } + } + break; + case 1: + for (i = 0; i < charset->num_entries; i++) { + if (cid >= charset->data.range1[i].first && + cid <= charset->data.range1[i].first + charset->data.range1[i].n_left) { + gid += cid - charset->data.range1[i].first + 1; + return gid; + } + gid += charset->data.range1[i].n_left + 1; + } + break; + case 2: + for (i = 0; i < charset->num_entries; i++) { + if (cid >= charset->data.range2[i].first && + cid <= charset->data.range2[i].first + charset->data.range2[i].n_left) { + gid += cid - charset->data.range2[i].first + 1; + return gid; + } + gid += charset->data.range2[i].n_left + 1; + } + break; + default: + ERROR("Unknown Charset format"); + } + + return 0; /* not found */ +} + +/* Input : GID + * Output: SID/CID (card16) + */ +card16 +cff_charsets_lookup_inverse (cff_font *cff, card16 gid) +{ + card16 sid = 0; + cff_charsets *charset; + card16 i; + + if (cff->flag & (CHARSETS_ISOADOBE|CHARSETS_EXPERT|CHARSETS_EXPSUB)) { + ERROR("Predefined CFF charsets not supported yet"); + } else if (cff->charsets == NULL) { + ERROR("Charsets data not available"); + } + + if (gid == 0) { + return 0; /* .notdef */ + } + + charset = cff->charsets; + + sid = 0; + switch (charset->format) { + case 0: + if (gid - 1 >= charset->num_entries) + ERROR("Invalid GID."); + sid = charset->data.glyphs[gid - 1]; + break; + case 1: + for (i = 0; i < charset->num_entries; i++) { + if (gid <= charset->data.range1[i].n_left + 1) { + sid = gid + charset->data.range1[i].first - 1; + break; + } + gid -= charset->data.range1[i].n_left + 1; + } + if (i == charset->num_entries) + ERROR("Invalid GID"); + break; + case 2: + for (i = 0; i < charset->num_entries; i++) { + if (gid <= charset->data.range2[i].n_left + 1) { + sid = gid + charset->data.range2[i].first - 1; + break; + } + gid -= charset->data.range2[i].n_left + 1; + } + if (i == charset->num_entries) + ERROR("Invalid GID"); + break; + default: + ERROR("Unknown Charset format"); + } + + return sid; +} + +void +cff_release_charsets (cff_charsets *charset) +{ + if (charset) { + switch (charset->format) { + case 0: + if (charset->data.glyphs) + RELEASE(charset->data.glyphs); + break; + case 1: + if (charset->data.range1) + RELEASE(charset->data.range1); + break; + case 2: + if (charset->data.range2) + RELEASE(charset->data.range2); + break; + default: + break; + } + RELEASE(charset); + } +} + +/* CID-Keyed font specific */ +long cff_read_fdselect (cff_font *cff) +{ + cff_fdselect *fdsel; + long offset, length; + card16 i; + + if (cff->topdict == NULL) + ERROR("Top DICT not available"); + + if (!(cff->flag & FONTTYPE_CIDFONT)) + return 0; + + offset = (long) cff_dict_get(cff->topdict, "FDSelect", 0); + cff_seek_set(cff, offset); + cff->fdselect = fdsel = NEW(1, cff_fdselect); + fdsel->format = get_card8(cff->sfont); + + length = 1; + + switch (fdsel->format) { + case 0: + fdsel->num_entries = cff->num_glyphs; + (fdsel->data).fds = NEW(fdsel->num_entries, card8); + for (i=0;i<(fdsel->num_entries);i++) { + (fdsel->data).fds[i] = get_card8(cff->sfont); + } + length += fdsel->num_entries; + break; + case 3: + { + cff_range3 *ranges; + fdsel->num_entries = get_card16(cff->sfont); + fdsel->data.ranges = ranges = NEW(fdsel->num_entries, cff_range3); + for (i=0;i<(fdsel->num_entries);i++) { + ranges[i].first = get_card16(cff->sfont); + ranges[i].fd = get_card8(cff->sfont); + } + if (ranges[0].first != 0) + ERROR("Range not starting with 0."); + if (cff->num_glyphs != get_card16(cff->sfont)) + ERROR("Sentinel value mismatched with number of glyphs."); + length += (fdsel->num_entries) * 3 + 4; + } + break; + default: + RELEASE(fdsel); + ERROR("Unknown FDSelect format."); + break; + } + + return length; +} + +long cff_pack_fdselect (cff_font *cff, card8 *dest, long destlen) +{ + cff_fdselect *fdsel; + long len = 0; + card16 i; + + if (cff->fdselect == NULL) + return 0; + + if (destlen < 1) + ERROR("in cff_pack_fdselect(): Buffur overflow"); + + fdsel = cff->fdselect; + + dest[len++] = fdsel->format; + switch (fdsel->format) { + case 0: + if (fdsel->num_entries != cff->num_glyphs) + ERROR("in cff_pack_fdselect(): Invalid data"); + if (destlen < len + fdsel->num_entries) + ERROR("in cff_pack_fdselect(): Buffer overflow"); + for (i=0;inum_entries;i++) { + dest[len++] = (fdsel->data).fds[i]; + } + break; + case 3: + { + if (destlen < len + 2) + ERROR("in cff_pack_fdselect(): Buffer overflow"); + len += 2; + for (i=0;i<(fdsel->num_entries);i++) { + if (destlen < len + 3) + ERROR("in cff_pack_fdselect(): Buffer overflow"); + dest[len++] = ((fdsel->data).ranges[i].first >> 8) & 0xff; + dest[len++] = (fdsel->data).ranges[i].first & 0xff; + dest[len++] = (fdsel->data).ranges[i].fd; + } + if (destlen < len + 2) + ERROR("in cff_pack_fdselect(): Buffer overflow"); + dest[len++] = (cff->num_glyphs >> 8) & 0xff; + dest[len++] = cff->num_glyphs & 0xff; + dest[1] = ((len/3 - 1) >> 8) & 0xff; + dest[2] = (len/3 - 1) & 0xff; + } + break; + default: + ERROR("Unknown FDSelect format."); + break; + } + + return len; +} + +void cff_release_fdselect (cff_fdselect *fdselect) +{ + if (fdselect) { + if (fdselect->format == 0) { + if (fdselect->data.fds) RELEASE(fdselect->data.fds); + } else if (fdselect->format == 3) { + if (fdselect->data.ranges) RELEASE(fdselect->data.ranges); + } + RELEASE(fdselect); + } +} + +card8 cff_fdselect_lookup (cff_font *cff, card16 gid) +{ + card8 fd = 0xff; + cff_fdselect *fdsel; + + if (cff->fdselect == NULL) + ERROR("in cff_fdselect_lookup(): FDSelect not available"); + + fdsel = cff->fdselect; + + if (gid >= cff->num_glyphs) + ERROR("in cff_fdselect_lookup(): Invalid glyph index"); + + switch (fdsel->format) { + case 0: + fd = fdsel->data.fds[gid]; + break; + case 3: + { + if (gid == 0) { + fd = (fdsel->data).ranges[0].fd; + } else { + card16 i; + for (i=1;i<(fdsel->num_entries);i++) { + if (gid < (fdsel->data).ranges[i].first) + break; + } + fd = (fdsel->data).ranges[i-1].fd; + } + } + break; + default: + ERROR("in cff_fdselect_lookup(): Invalid FDSelect format"); + break; + } + + if (fd >= cff->num_fds) + ERROR("in cff_fdselect_lookup(): Invalid Font DICT index"); + + return fd; +} + +long cff_read_subrs (cff_font *cff) +{ + long len = 0; + long offset; + int i; + + if ((cff->flag & FONTTYPE_CIDFONT) && cff->fdarray == NULL) { + cff_read_fdarray(cff); + } + + if (cff->private == NULL) + cff_read_private(cff); + + if (cff->gsubr == NULL) { + cff_seek_set(cff, cff->gsubr_offset); + cff->gsubr = cff_get_index(cff); + } + + cff->subrs = NEW(cff->num_fds, cff_index *); + if (cff->flag & FONTTYPE_CIDFONT) { + for (i=0;inum_fds;i++) { + if (cff->private[i] == NULL || + !cff_dict_known(cff->private[i], "Subrs")) { + (cff->subrs)[i] = NULL; + } else { + offset = (long) cff_dict_get(cff->fdarray[i], "Private", 1); + offset += (long) cff_dict_get(cff->private[i], "Subrs", 0); + cff_seek_set(cff, offset); + (cff->subrs)[i] = cff_get_index(cff); + len += cff_index_size((cff->subrs)[i]); + } + } + } else { + if (cff->private[0] == NULL || + !cff_dict_known(cff->private[0], "Subrs")) { + (cff->subrs)[0] = NULL; + } else { + offset = (long) cff_dict_get(cff->topdict, "Private", 1); + offset += (long) cff_dict_get(cff->private[0], "Subrs", 0); + cff_seek_set(cff, offset); + (cff->subrs)[0] = cff_get_index(cff); + len += cff_index_size((cff->subrs)[0]); + } + } + + return len; +} + +long cff_read_fdarray (cff_font *cff) +{ + long len = 0; + cff_index *idx; + long offset, size; + card16 i; + + if (cff->topdict == NULL) + ERROR("in cff_read_fdarray(): Top DICT not found"); + + if (!(cff->flag & FONTTYPE_CIDFONT)) + return 0; + + /* must exist */ + offset = (long) cff_dict_get(cff->topdict, "FDArray", 0); + cff_seek_set(cff, offset); + idx = cff_get_index(cff); + cff->num_fds = (card8)idx->count; + cff->fdarray = NEW(idx->count, cff_dict *); + for (i=0;icount;i++) { + card8 *data = idx->data + (idx->offset)[i] - 1; + size = (idx->offset)[i+1] - (idx->offset)[i]; + if (size > 0) { + (cff->fdarray)[i] = cff_dict_unpack(data, data+size); + } else { + (cff->fdarray)[i] = NULL; + } + } + len = cff_index_size(idx); + cff_release_index(idx); + + return len; +} + +long cff_read_private (cff_font *cff) +{ + long len = 0; + card8 *data; + long offset, size; + + if (cff->flag & FONTTYPE_CIDFONT) { + int i; + + if (cff->fdarray == NULL) + cff_read_fdarray(cff); + + cff->private = NEW(cff->num_fds, cff_dict *); + for (i=0;inum_fds;i++) { + if (cff->fdarray[i] != NULL && + cff_dict_known(cff->fdarray[i], "Private") && + (size = (long) cff_dict_get(cff->fdarray[i], "Private", 0)) + > 0) { + offset = (long) cff_dict_get(cff->fdarray[i], "Private", 1); + cff_seek_set(cff, offset); + data = NEW(size, card8); + if (sfnt_read(data, size, cff->sfont) != size) + ERROR("reading file failed"); + (cff->private)[i] = cff_dict_unpack(data, data+size); + RELEASE(data); + len += size; + } else { + (cff->private)[i] = NULL; + } + } + } else { + cff->num_fds = 1; + cff->private = NEW(1, cff_dict *); + if (cff_dict_known(cff->topdict, "Private") && + (size = (long) cff_dict_get(cff->topdict, "Private", 0)) > 0) { + offset = (long) cff_dict_get(cff->topdict, "Private", 1); + cff_seek_set(cff, offset); + data = NEW(size, card8); + if (sfnt_read(data, size, cff->sfont) != size) + ERROR("reading file failed"); + cff->private[0] = cff_dict_unpack(data, data+size); + RELEASE(data); + len += size; + } else { + (cff->private)[0] = NULL; + len = 0; + } + } + + return len; +} + +#ifdef XETEX +unsigned short* cff_get_ft_to_gid(cff_font *cff) +{ + return cff->ft_to_gid; +} +#endif diff --git a/Build/source/texk/xdvipdfmx/src/cff.h b/Build/source/texk/xdvipdfmx/src/cff.h new file mode 100644 index 00000000000..3a39c80cafd --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cff.h @@ -0,0 +1,155 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cff.h,v 1.9 2004/09/11 14:50:28 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CFF_H_ +#define _CFF_H_ + +#include "mfileio.h" +#include "cff_types.h" + +#include "sfnt.h" + +/* Flag */ +#define FONTTYPE_CIDFONT (1 << 0) +#define FONTTYPE_FONT (1 << 1) +#define FONTTYPE_MMASTER (1 << 2) + +#define ENCODING_STANDARD (1 << 3) +#define ENCODING_EXPERT (1 << 4) + +#define CHARSETS_ISOADOBE (1 << 5) +#define CHARSETS_EXPERT (1 << 6) +#define CHARSETS_EXPSUB (1 << 7) + +#define HAVE_STANDARD_ENCODING (ENCODING_STANDARD|ENCODING_EXPERT) +#define HAVE_STANDARD_CHARSETS \ + (CHARSETS_ISOADOBE|CHARSETS_EXPERT|CHARSETS_EXPSUB) + +#define CFF_STRING_NOTDEF 65535 + +typedef struct +{ + char *fontname; /* FontName */ + + /* - CFF structure - */ + cff_header header; /* CFF Header */ + cff_index *name; /* Name INDEX */ + cff_dict *topdict; /* Top DICT (single) */ + cff_index *string; /* String INDEX */ + cff_index *gsubr; /* Global Subr INDEX */ + cff_encoding *encoding; /* Encodings */ + cff_charsets *charsets; /* Charsets */ + cff_fdselect *fdselect; /* FDSelect, CIDFont only */ + cff_index *cstrings; /* CharStrings */ + cff_dict **fdarray; /* CIDFont only */ + cff_dict **private; /* per-Font DICT */ + cff_index **subrs; /* Local Subr INDEX, per-Private DICT */ + + /* -- extra data -- */ + l_offset offset; /* non-zero for OpenType or PostScript wrapped */ + l_offset gsubr_offset; + card16 num_glyphs; /* number of glyphs (CharString INDEX count) */ + card8 num_fds; /* number of Font DICT */ + + /* Updated String INDEX. + * Please fix this. We should separate input and output. + */ + cff_index *_string; + +#ifdef XETEX + unsigned short *ft_to_gid; +#endif + + sfnt *sfont; + int filter; /* not used, ASCII Hex filter if needed */ + + int index; /* CFF fontset index */ + int flag; /* Flag: see above */ +} cff_font; + +extern cff_font *cff_open (sfnt *sfont, long offset, int idx); +extern void cff_close (cff_font *cff); + +#define cff_seek_set(c, p) sfnt_seek_set (((c)->sfont), ((c)->offset) + (p)); + +/* CFF Header */ +extern long cff_put_header (cff_font *cff, card8 *dest, long destlen); + +/* CFF INDEX */ +extern cff_index *cff_get_index (cff_font *cff); +extern cff_index *cff_get_index_header (cff_font *cff); +extern void cff_release_index (cff_index *idx); +extern cff_index *cff_new_index (card16 count); +extern long cff_index_size (cff_index *idx); +extern long cff_pack_index (cff_index *idx, card8 *dest, long destlen); + +/* Name INDEX */ +extern char *cff_get_name (cff_font *cff); +extern long cff_set_name (cff_font *cff, char *name); + +/* Global and Local Subrs INDEX */ +extern long cff_read_subrs (cff_font *cff); + +/* Encoding */ +extern long cff_read_encoding (cff_font *cff); +extern long cff_pack_encoding (cff_font *cff, card8 *dest, long destlen); +extern card16 cff_encoding_lookup (cff_font *cff, card8 code); +extern void cff_release_encoding (cff_encoding *encoding); + +/* Charsets */ +extern long cff_read_charsets (cff_font *cff); +extern long cff_pack_charsets (cff_font *cff, card8 *dest, long destlen); + +/* Returns GID of PS name "glyph" */ +extern card16 cff_glyph_lookup (cff_font *cff, const char *glyph); +/* Returns GID of glyph with SID/CID "cid" */ +extern card16 cff_charsets_lookup (cff_font *cff, card16 cid); +extern void cff_release_charsets (cff_charsets *charset); +/* Returns SID or CID */ +extern card16 cff_charsets_lookup_inverse (cff_font *cff, card16 gid); + +/* FDSelect */ +extern long cff_read_fdselect (cff_font *cff); +extern long cff_pack_fdselect (cff_font *cff, card8 *dest, long destlen); +extern card8 cff_fdselect_lookup (cff_font *cff, card16 gid); +extern void cff_release_fdselect (cff_fdselect *fdselect); + +/* Font DICT(s) */ +extern long cff_read_fdarray (cff_font *cff); + +/* Private DICT(s) */ +extern long cff_read_private (cff_font *cff); + +#ifdef XETEX +extern unsigned short* cff_get_ft_to_gid(cff_font *cff); +#endif + +/* String */ +extern int cff_match_string (cff_font *cff, const char *str, s_SID sid); +extern char *cff_get_string (cff_font *cff, s_SID id); +extern long cff_get_sid (cff_font *cff, char *str); +extern s_SID cff_add_string (cff_font *cff, char *str); +extern void cff_update_string (cff_font *cff); + +#define cff_is_stdstr(s) (cff_get_sid(NULL, (s)) >= 0) + +#endif /* _CFF_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cff_dict.c b/Build/source/texk/xdvipdfmx/src/cff_dict.c new file mode 100644 index 00000000000..875210ca090 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cff_dict.c @@ -0,0 +1,770 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cff_dict.c,v 1.13 2004/08/26 16:02:26 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * CFF Font Dictionary + * + * Adobe Technical Note #5176 "The Compact Font Format Specification" + */ + +#include +#include +#include + +#include "error.h" +#include "mem.h" + +#ifndef CFF_DEBUG_STR +#define CFF_DEBUG_STR "CFF" +#define CFF_DEBUG 5 +#endif + +/* work_buffer for get_real() */ +#include "mfileio.h" + +#include "cff_types.h" +#include "cff_limits.h" + +/* #include "cff_string.h" */ +#include "cff_dict.h" +/* cff_update_dict requires this. */ +#include "cff.h" + +#define CFF_PARSE_OK 0 +#define CFF_ERROR_PARSE_ERROR -1 +#define CFF_ERROR_STACK_OVERFLOW -2 +#define CFF_ERROR_STACK_UNDERFLOW -3 +#define CFF_ERROR_STACK_RANGECHECK -4 + +#define DICT_ENTRY_MAX 16 +cff_dict *cff_new_dict (void) +{ + cff_dict *dict; + + dict = NEW(1, cff_dict); + dict->max = DICT_ENTRY_MAX; + dict->count = 0; + dict->entries = NEW(dict->max, cff_dict_entry); + + return dict; +} + +void cff_release_dict (cff_dict *dict) +{ + if (dict) { + if (dict->entries) { + int i; + for (i=0;icount;i++) { + if ((dict->entries)[i].values) + RELEASE((dict->entries)[i].values); + } + RELEASE(dict->entries); + } + RELEASE(dict); + } +} + +/* + * Operand stack: + * only numbers are stored (as double) + * + * Operand types: + * + * number : double (integer or real) + * boolean: stored as a number + * SID : stored as a number + * array : array of numbers + * delta : array of numbers + */ + +#define CFF_DICT_STACK_LIMIT 64 +static int stack_top = 0; +static double arg_stack[CFF_DICT_STACK_LIMIT]; + +/* + * CFF DICT encoding: + * TODO: default values + */ + +#define CFF_LAST_DICT_OP1 22 +#define CFF_LAST_DICT_OP2 39 +#define CFF_LAST_DICT_OP (CFF_LAST_DICT_OP1 + CFF_LAST_DICT_OP2) + +static struct { + const char *opname; + int argtype; +} dict_operator[CFF_LAST_DICT_OP] = { + {"version", CFF_TYPE_SID}, + {"Notice", CFF_TYPE_SID}, + {"FullName", CFF_TYPE_SID}, + {"FamilyName", CFF_TYPE_SID}, + {"Weight", CFF_TYPE_SID}, + {"FontBBox", CFF_TYPE_ARRAY}, + {"BlueValues", CFF_TYPE_DELTA}, + {"OtherBlues", CFF_TYPE_DELTA}, + {"FamilyBlues", CFF_TYPE_DELTA}, + {"FamilyOtherBlues", CFF_TYPE_DELTA}, + {"StdHW", CFF_TYPE_NUMBER}, + {"StdVW", CFF_TYPE_NUMBER}, + {NULL, -1}, /* first byte of two-byte operator */ + /* Top */ + {"UniqueID", CFF_TYPE_NUMBER}, + {"XUID", CFF_TYPE_ARRAY}, + {"charset", CFF_TYPE_OFFSET}, + {"Encoding", CFF_TYPE_OFFSET}, + {"CharStrings", CFF_TYPE_OFFSET}, + {"Private", CFF_TYPE_SZOFF}, /* two numbers (size and offset) */ + /* Private */ + {"Subrs", CFF_TYPE_OFFSET}, + {"defaultWidthX", CFF_TYPE_NUMBER}, + {"nominalWidthX", CFF_TYPE_NUMBER}, + /* Operator 2 */ + {"Copyright", CFF_TYPE_SID}, + {"IsFixedPitch", CFF_TYPE_BOOLEAN}, + {"ItalicAngle", CFF_TYPE_NUMBER}, + {"UnderlinePosition", CFF_TYPE_NUMBER}, + {"UnderlineThickness", CFF_TYPE_NUMBER}, + {"PaintType", CFF_TYPE_NUMBER}, + {"CharstringType", CFF_TYPE_NUMBER}, + {"FontMatrix", CFF_TYPE_ARRAY}, + {"StrokeWidth", CFF_TYPE_NUMBER}, + {"BlueScale", CFF_TYPE_NUMBER}, + {"BlueShift", CFF_TYPE_NUMBER}, + {"BlueFuzz", CFF_TYPE_NUMBER}, + {"StemSnapH", CFF_TYPE_DELTA}, + {"StemSnapV", CFF_TYPE_DELTA}, + {"ForceBold", CFF_TYPE_BOOLEAN}, + {NULL, -1}, + {NULL, -1}, + {"LanguageGroup", CFF_TYPE_NUMBER}, + {"ExpansionFactor", CFF_TYPE_NUMBER}, + {"InitialRandomSeed", CFF_TYPE_NUMBER}, + {"SyntheticBase", CFF_TYPE_NUMBER}, + {"PostScript", CFF_TYPE_SID}, + {"BaseFontName", CFF_TYPE_SID}, + {"BaseFontBlend", CFF_TYPE_DELTA}, /* MMaster ? */ + {NULL, -1}, + {NULL, -1}, + {NULL, -1}, + {NULL, -1}, + {NULL, -1}, + {NULL, -1}, + /* CID-Keyed font */ + {"ROS", CFF_TYPE_ROS}, /* SID SID number */ + {"CIDFontVersion", CFF_TYPE_NUMBER}, + {"CIDFontRevision", CFF_TYPE_NUMBER}, + {"CIDFontType", CFF_TYPE_NUMBER}, + {"CIDCount", CFF_TYPE_NUMBER}, + {"UIDBase", CFF_TYPE_NUMBER}, + {"FDArray", CFF_TYPE_OFFSET}, + {"FDSelect", CFF_TYPE_OFFSET}, + {"FontName", CFF_TYPE_SID}, +}; + +/* Parse DICT data */ +static double get_integer (card8 **data, card8 *endptr, int *status) +{ + long result = 0; + card8 b0, b1, b2; + + b0 = *(*data)++; + if (b0 == 28 && *data < endptr - 2) { /* shortint */ + b1 = *(*data)++; + b2 = *(*data)++; + result = b1*256+b2; + if (result > 0x7fffL) + result -= 0x10000L; + } else if (b0 == 29 && *data < endptr - 4) { /* longint */ + int i; + result = *(*data)++; + if (result > 0x7f) + result -= 0x100; + for (i=0;i<3;i++) { + result = result*256+(**data); + *data += 1; + } + } else if (b0 >= 32 && b0 <= 246) { /* int (1) */ + result = b0 - 139; + } else if (b0 >= 247 && b0 <= 250) { /* int (2) */ + b1 = *(*data)++; + result = (b0-247)*256+b1+108; + } else if (b0 >= 251 && b0 <= 254) { + b1 = *(*data)++; + result = -(b0-251)*256-b1-108; + } else { + *status = CFF_ERROR_PARSE_ERROR; + } + + return (double) result; +} + +/* Simply uses strtod */ +static double get_real(card8 **data, card8 *endptr, int *status) +{ + double result = 0.0; + int nibble = 0, pos = 0; + int len = 0, fail = 0; + + if (**data != 30 || *data >= endptr -1) { + *status = CFF_ERROR_PARSE_ERROR; + return 0.0; + } + + *data += 1; /* skip first byte (30) */ + + pos = 0; + while ((! fail) && len < WORK_BUFFER_SIZE - 2 && *data < endptr) { + /* get nibble */ + if (pos % 2) { + nibble = **data & 0x0f; + *data += 1; + } else { + nibble = (**data >> 4) & 0x0f; + } + if (nibble >= 0x00 && nibble <= 0x09) { + work_buffer[len++] = nibble + '0'; + } else if (nibble == 0x0a) { /* . */ + work_buffer[len++] = '.'; + } else if (nibble == 0x0b || nibble == 0x0c) { /* E, E- */ + work_buffer[len++] = 'e'; + if (nibble == 0x0c) + work_buffer[len++] = '-'; + } else if (nibble == 0x0e) { /* `-' */ + work_buffer[len++] = '-'; + } else if (nibble == 0x0d) { /* skip */ + /* do nothing */ + } else if (nibble == 0x0f) { /* end */ + work_buffer[len++] = '\0'; + if (((pos % 2) == 0) && (**data != 0xff)) { + fail = 1; + } + break; + } else { /* invalid */ + fail = 1; + } + pos++; + } + + /* returned values */ + if (fail || nibble != 0x0f) { + *status = CFF_ERROR_PARSE_ERROR; + } else { + char *s; + result = strtod(work_buffer, &s); + if (*s != 0 || errno == ERANGE) { + *status = CFF_ERROR_PARSE_ERROR; + } + } + + return result; +} + +/* operators */ +static void add_dict (cff_dict *dict, + card8 **data, card8 *endptr, int *status) +{ + int id, argtype; + + id = **data; + if (id == 0x0c) { + *data += 1; + if (*data >= endptr || + (id = **data + CFF_LAST_DICT_OP1) >= CFF_LAST_DICT_OP) { + *status = CFF_ERROR_PARSE_ERROR; + return; + } + } else if (id >= CFF_LAST_DICT_OP1) { + *status = CFF_ERROR_PARSE_ERROR; + return; + } + + argtype = dict_operator[id].argtype; + if (dict_operator[id].opname == NULL || argtype < 0) { + *status = CFF_ERROR_PARSE_ERROR; + return; + } else if (stack_top < 1) { + *status = CFF_ERROR_STACK_UNDERFLOW; + return; + } + + if (dict->count >= dict->max) { + dict->max += DICT_ENTRY_MAX; + dict->entries = RENEW(dict->entries, dict->max, cff_dict_entry); + } + + (dict->entries)[dict->count].id = id; + (dict->entries)[dict->count].key = (char *) dict_operator[id].opname; + if (argtype == CFF_TYPE_NUMBER || + argtype == CFF_TYPE_BOOLEAN || + argtype == CFF_TYPE_SID || + argtype == CFF_TYPE_OFFSET) { + stack_top--; + (dict->entries)[dict->count].count = 1; + (dict->entries)[dict->count].values = NEW(1, double); + (dict->entries)[dict->count].values[0] = arg_stack[stack_top]; + } else { + (dict->entries)[dict->count].count = stack_top; + (dict->entries)[dict->count].values = NEW(stack_top, double); + while (stack_top > 0) { + stack_top--; + (dict->entries)[dict->count].values[stack_top] = arg_stack[stack_top]; + } + } + + dict->count += 1; + *data += 1; + + return; +} + +/* + * All operands are treated as number or array of numbers. + * Private: two numbers, size and offset + * ROS : three numbers, SID, SID, and a number + */ +cff_dict *cff_dict_unpack (card8 *data, card8 *endptr) +{ + cff_dict *dict; + int status = CFF_PARSE_OK; + + stack_top = 0; + + dict = cff_new_dict(); + while (data < endptr && status == CFF_PARSE_OK) { + if (*data < 22) { /* operator */ + add_dict(dict, &data, endptr, &status); + } else if (*data == 30) { /* real - First byte of a sequence (variable) */ + if (stack_top < CFF_DICT_STACK_LIMIT) { + arg_stack[stack_top] = get_real(&data, endptr, &status); + stack_top++; + } else { + status = CFF_ERROR_STACK_OVERFLOW; + } + } else if (*data == 255 || (*data >= 22 && *data <= 27)) { /* reserved */ + data++; + } else { /* everything else are integer */ + if (stack_top < CFF_DICT_STACK_LIMIT) { + arg_stack[stack_top] = get_integer(&data, endptr, &status); + stack_top++; + } else { + status = CFF_ERROR_STACK_OVERFLOW; + } + } + } + + if (status != CFF_PARSE_OK) { + ERROR("%s: Parsing CFF DICT failed. (error=%d)", CFF_DEBUG_STR, status); + } else if (stack_top != 0) { + WARN("%s: Garbage in CFF DICT data.", CFF_DEBUG_STR); + stack_top = 0; + } + + return dict; +} + +/* Pack DICT data */ +static long pack_integer (card8 *dest, long destlen, long value) +{ + long len = 0; + + if (value >= -107 && value <= 107) { + if (destlen < 1) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[0] = (value + 139) & 0xff; + len = 1; + } else if (value >= 108 && value <= 1131) { + if (destlen < 2) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + value = 0xf700u + value - 108; + dest[0] = (value >> 8) & 0xff; + dest[1] = value & 0xff; + len = 2; + } else if (value >= -1131 && value <= -108) { + if (destlen < 2) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + value = 0xfb00u - value - 108; + dest[0] = (value >> 8) & 0xff; + dest[1] = value & 0xff; + len = 2; + } else if (value >= -32768 && value <= 32767) { /* shortint */ + if (destlen < 3) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[0] = 28; + dest[1] = (value >> 8) & 0xff; + dest[2] = value & 0xff; + len = 3; + } else { /* longint */ + if (destlen < 5) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[0] = 29; + dest[1] = (value >> 24) & 0xff; + dest[2] = (value >> 16) & 0xff; + dest[3] = (value >> 8) & 0xff; + dest[4] = value & 0xff; + len = 5; + } + + return len; +} + +static long pack_real (card8 *dest, long destlen, double value) +{ + long e; + int i = 0, pos = 2; +#define CFF_REAL_MAX_LEN 17 + + if (destlen < 2) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + + dest[0] = 30; + + if (value == 0.0) { + dest[1] = 0x0f; + return 2; + } + + if (value < 0.0) { + dest[1] = 0xe0; + value *= -1.0; + pos++; + } + + e = 0; + if (value >= 10.0) { + while (value >= 10.0) { + value /= 10.0; + e++; + } + } else if (value < 1.0) { + while (value < 1.0) { + value *= 10.0; + e--; + } + } + + sprintf(work_buffer, "%1.14g", value); + for (i=0;i= '0' && work_buffer[i] <= '9') { + ch = work_buffer[i] - '0'; + } else { + ERROR("%s: Invalid character.", CFF_DEBUG_STR); + } + + if (destlen < pos/2 + 1) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + + if (pos % 2) { + dest[pos/2] += ch; + } else { + dest[pos/2] = (ch << 4); + } + pos++; + } + + if (e > 0) { + if (pos % 2) { + dest[pos/2] += 0x0b; + } else { + if (destlen < pos/2 + 1) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[pos/2] = 0xb0; + } + pos++; + } else if (e < 0) { + if (pos % 2) { + dest[pos/2] += 0x0c; + } else { + if (destlen < pos/2 + 1) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[pos/2] = 0xc0; + } + e *= -1; + pos++; + } + + if (e != 0) { + sprintf(work_buffer, "%ld", e); + for (i=0;i= '0' && work_buffer[i] <= '9') { + ch = work_buffer[i] - '0'; + } else { + ERROR("%s: Invalid character.", CFF_DEBUG_STR); + } + + if (destlen < pos/2 + 1) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + + if (pos % 2) { + dest[pos/2] += ch; + } else { + dest[pos/2] = (ch << 4); + } + pos++; + } + } + + if (pos % 2) { + dest[pos/2] += 0x0f; + pos++; + } else { + if (destlen < pos/2 + 1) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[pos/2] = 0xff; + pos += 2; + } + + return pos/2; +} + +static long cff_dict_put_number (double value, + card8 *dest, long destlen, + int type) +{ + long len = 0; + double nearint; + + nearint = floor(value+0.5); + /* set offset to longint */ + if (type == CFF_TYPE_OFFSET) { + long lvalue; + + lvalue = (long) value; + if (destlen < 5) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[0] = 29; + dest[1] = (lvalue >> 24) & 0xff; + dest[2] = (lvalue >> 16) & 0xff; + dest[3] = (lvalue >> 8) & 0xff; + dest[4] = lvalue & 0xff; + len = 5; + } else if (value > CFF_INT_MAX || value < CFF_INT_MIN || + (fabs(value - nearint) > 1.0e-5)) { /* real */ + len = pack_real(dest, destlen, value); + } else { /* integer */ + len = pack_integer(dest, destlen, (long) nearint); + } + + return len; +} + +static long +put_dict_entry (cff_dict_entry *de, + card8 *dest, long destlen) +{ + long len = 0; + int i, type, id; + + if (de->count > 0) { + id = de->id; + if (dict_operator[id].argtype == CFF_TYPE_OFFSET || + dict_operator[id].argtype == CFF_TYPE_SZOFF) { + type = CFF_TYPE_OFFSET; + } else { + type = CFF_TYPE_NUMBER; + } + for (i = 0; i < de->count; i++) { + len += cff_dict_put_number(de->values[i], + dest+len, + destlen-len, type); + } + if (id >= 0 && id < CFF_LAST_DICT_OP1) { + if (len + 1 > destlen) + ERROR("%s: Buffer overflow.", CFF_DEBUG_STR); + dest[len++] = id; + } else if (id >= 0 && id < CFF_LAST_DICT_OP) { + if (len + 2 > destlen) + ERROR("in cff_dict_pack(): Buffer overflow"); + dest[len++] = 12; + dest[len++] = id - CFF_LAST_DICT_OP1; + } else { + ERROR("%s: Invalid CFF DICT operator ID.", CFF_DEBUG_STR); + } + } + + return len; +} + +long cff_dict_pack (cff_dict *dict, card8 *dest, long destlen) +{ + long len = 0; + int i; + + for (i = 0; i < dict->count; i++) { + if (!strcmp(dict->entries[i].key, "ROS")) { + len += put_dict_entry(&dict->entries[i], dest, destlen); + break; + } + } + for (i = 0; i < dict->count; i++) { + if (strcmp(dict->entries[i].key, "ROS")) { + len += put_dict_entry(&dict->entries[i], dest+len, destlen-len); + } + } + + return len; +} + +void cff_dict_add (cff_dict *dict, const char *key, int count) +{ + int id, i; + + for (id=0;idcount;i++) { + if ((dict->entries)[i].id == id) { + if ((dict->entries)[i].count != count) + ERROR("%s: Inconsistent DICT argument number.", CFF_DEBUG_STR); + return; + } + } + + if (dict->count + 1 >= dict->max) { + dict->max += 8; + dict->entries = RENEW(dict->entries, dict->max, cff_dict_entry); + } + + (dict->entries)[dict->count].id = id; + (dict->entries)[dict->count].key = (char *) dict_operator[id].opname; + (dict->entries)[dict->count].count = count; + if (count > 0) { + (dict->entries)[dict->count].values = NEW(count, double); + memset((dict->entries)[dict->count].values, + 0, sizeof(double)*count); + } else { + (dict->entries)[dict->count].values = NULL; + } + dict->count += 1; + + return; +} + +void cff_dict_remove (cff_dict *dict, const char *key) +{ + int i; + for (i = 0; i < dict->count; i++) { + if (key && strcmp(key, (dict->entries)[i].key) == 0) { + (dict->entries)[i].count = 0; + if ((dict->entries)[i].values) + RELEASE((dict->entries)[i].values); + (dict->entries)[i].values = NULL; + } + } +} + +int cff_dict_known (cff_dict *dict, const char *key) +{ + int i; + + for (i = 0; i < dict->count; i++) { + if (key && strcmp(key, (dict->entries)[i].key) == 0 + && (dict->entries)[i].count > 0) + return 1; + } + + return 0; +} + +double cff_dict_get (cff_dict *dict, const char *key, int idx) +{ + double value = 0.0; + int i; + + ASSERT(key && dict); + + for (i = 0; i < dict->count; i++) { + if (strcmp(key, (dict->entries)[i].key) == 0) { + if ((dict->entries)[i].count > idx) + value = (dict->entries)[i].values[idx]; + else + ERROR("%s: Invalid index number.", CFF_DEBUG_STR); + break; + } + } + + if (i == dict->count) + ERROR("%s: DICT entry \"%s\" not found.", CFF_DEBUG_STR, key); + + return value; +} + +void cff_dict_set (cff_dict *dict, const char *key, int idx, double value) +{ + int i; + + ASSERT(dict && key); + + for (i = 0 ; i < dict->count; i++) { + if (strcmp(key, (dict->entries)[i].key) == 0) { + if ((dict->entries)[i].count > idx) + (dict->entries)[i].values[idx] = value; + else + ERROR("%s: Invalid index number.", CFF_DEBUG_STR); + break; + } + } + + if (i == dict->count) + ERROR("%s: DICT entry \"%s\" not found.", CFF_DEBUG_STR, key); +} + +void cff_dict_update (cff_dict *dict, cff_font *cff) +{ + int i; + + for (i = 0;i < dict->count; i++) { + if ((dict->entries)[i].count > 0) { + char *str; + int id; + + id = (dict->entries)[i].id; + if (dict_operator[id].argtype == CFF_TYPE_SID) { + str = cff_get_string(cff, (dict->entries)[i].values[0]); + (dict->entries)[i].values[0] = cff_add_string(cff, str); + RELEASE(str); + } else if (dict_operator[id].argtype == CFF_TYPE_ROS) { + str = cff_get_string(cff, (dict->entries)[i].values[0]); + (dict->entries)[i].values[0] = cff_add_string(cff, str); + RELEASE(str); + str = cff_get_string(cff, (dict->entries)[i].values[1]); + (dict->entries)[i].values[1] = cff_add_string(cff, str); + RELEASE(str); + } + } + } +} diff --git a/Build/source/texk/xdvipdfmx/src/cff_dict.h b/Build/source/texk/xdvipdfmx/src/cff_dict.h new file mode 100644 index 00000000000..806fc4be50d --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cff_dict.h @@ -0,0 +1,48 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cff_dict.h,v 1.6 2004/02/15 12:59:42 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CFF_DICT_H_ +#define _CFF_DICT_H_ + +#include "cff_types.h" +#include "cff.h" + +#define CFF_CIDCOUNT_DEFAULT 8720 +#define CFF_NOMINALWIDTHX_DEFAULT 0.0 +#define CFF_DEFAULTWIDTHX_DEFAULT 0.0 + +extern cff_dict *cff_new_dict (void); +extern void cff_release_dict (cff_dict *dict); + +extern void cff_dict_set (cff_dict *dict, const char *key, int idx, double value); +extern double cff_dict_get (cff_dict *dict, const char *key, int idx); +extern void cff_dict_add (cff_dict *dict, const char *key, int count); +extern void cff_dict_remove (cff_dict *dict, const char *key); +extern int cff_dict_known (cff_dict *dict, const char *key); + +/* decode/encode DICT */ +extern cff_dict *cff_dict_unpack (card8 *data, card8 *endptr); +extern long cff_dict_pack (cff_dict *dict, card8 *dest, long destlen); + +extern void cff_dict_update (cff_dict *dict, cff_font *cff); + +#endif /* _CFF_DICT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cff_limits.h b/Build/source/texk/xdvipdfmx/src/cff_limits.h new file mode 100644 index 00000000000..3bfd88a80ca --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cff_limits.h @@ -0,0 +1,46 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cff_limits.h,v 1.3 2002/10/30 02:27:05 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CFF_LIMITS_H_ +#define _CFF_LIMITS_H_ + +#include + +#define CFF_INT_MAX 0x7fffffff +#define CFF_INT_MIN (-0x7fffffff - 1) + +#if (LONG_MAX < CFF_INT_MAX || LONG_MIN > CFF_INT_MIN) +#error "CFF support won't work on this system." +#endif + +#define CFF_SID_MAX 64999 +#define CFF_STDSTR_MAX 391 + +/* Type 2 Charstring */ +#define CS_NUM_SUBR_MAX 65536 +#define CS_STR_LEN_MAX 65536 +#define CS_STEM_ZONE_MAX 96 +#define CS_ARG_STACK_MAX 48 +#define CS_TRANS_ARRAY_MAX 32 +#define CS_SUBR_NEST_MAX 10 + +#endif /* _CFF_LIMITS_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cff_stdstr.h b/Build/source/texk/xdvipdfmx/src/cff_stdstr.h new file mode 100644 index 00000000000..2c3e2ba7a39 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cff_stdstr.h @@ -0,0 +1,109 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cff_stdstr.h,v 1.3 2002/10/30 02:27:05 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CFF_STDSTR_H_ +#define _CFF_STDSTR_H_ + +#define CFF_STDSTR_MAX 391 + +const char *const cff_stdstr[CFF_STDSTR_MAX] = { + ".notdef", "space", "exclam", "quotedbl", "numbersign", + "dollar", "percent", "ampersand", "quoteright", "parenleft", + "parenright", "asterisk", "plus", "comma", "hyphen", + "period", "slash", "zero", "one", "two", + "three", "four", "five", "six", "seven", + "eight", "nine", "colon", "semicolon", "less", + "equal", "greater", "question", "at", "A", + "B", "C", "D", "E", "F", + "G", "H", "I", "J", "K", + "L", "M", "N", "O", "P", + "Q", "R", "S", "T", "U", + "V", "W", "X", "Y", "Z", + "bracketleft", "backslash", "bracketright", "asciicircum", "underscore", + "quoteleft", "a", "b", "c", "d", + "e", "f", "g", "h", "i", + "j", "k", "l", "m", "n", + "o", "p", "q", "r", "s", + "t", "u", "v", "w", "x", + "y", "z", "braceleft", "bar", "braceright", + "asciitilde", "exclamdown", "cent", "sterling", "fraction", + "yen", "florin", "section", "currency", "quotesingle", + "quotedblleft", "guillemotleft", "guilsinglleft", "guilsinglright", "fi", + "fl", "endash", "dagger", "daggerdbl", "periodcentered", + "paragraph", "bullet", "quotesinglbase", "quotedblbase", "quotedblright", + "guillemotright", "ellipsis", "perthousand", "questiondown", "grave", + "acute", "circumflex", "tilde", "macron", "breve", + "dotaccent", "dieresis", "ring", "cedilla", "hungarumlaut", + "ogonek", "caron", "emdash", "AE", "ordfeminine", + "Lslash", "Oslash", "OE", "ordmasculine", "ae", + "dotlessi", "lslash", "oslash", "oe", "germandbls", + "onesuperior", "logicalnot", "mu", "trademark", "Eth", + "onehalf", "plusminus", "Thorn", "onequarter", "divide", + "brokenbar", "degree", "thorn", "threequarters", "twosuperior", + "registered", "minus", "eth", "multiply", "threesuperior", + "copyright", "Aacute", "Acircumflex", "Adieresis", "Agrave", + "Aring", "Atilde", "Ccedilla", "Eacute", "Ecircumflex", + "Edieresis", "Egrave", "Iacute", "Icircumflex", "Idieresis", + "Igrave", "Ntilde", "Oacute", "Ocircumflex", "Odieresis", + "Ograve", "Otilde", "Scaron", "Uacute", "Ucircumflex", + "Udieresis", "Ugrave", "Yacute", "Ydieresis", "Zcaron", + "aacute", "acircumflex", "adieresis", "agrave", "aring", + "atilde", "ccedilla", "eacute", "ecircumflex", "edieresis", + "egrave", "iacute", "icircumflex", "idieresis", "igrave", + "ntilde", "oacute", "ocircumflex", "odieresis", "ograve", + "otilde", "scaron", "uacute", "ucircumflex", "udieresis", + "ugrave", "yacute", "ydieresis", "zcaron", "exclamsmall", + "Hungarumlautsmall", "dollaroldstyle", "dollarsuperior", "ampersandsmall", "Acutesmall", + "parenleftsuperior", "parenrightsuperior", "twodotenleader", "onedotenleader", "zerooldstyle", + "oneoldstyle", "twooldstyle", "threeoldstyle", "fouroldstyle", "fiveoldstyle", + "sixoldstyle", "sevenoldstyle", "eightoldstyle", "nineoldstyle", "commasuperior", + "threequartersemdash", "periodsuperior", "questionsmall", "asuperior", "bsuperior", + "centsuperior", "dsuperior", "esuperior", "isuperior", "lsuperior", + "msuperior", "nsuperior", "osuperior", "rsuperior", "ssuperior", + "tsuperior", "ff", "ffi", "ffl", "parenleftinferior", + "parenrightinferior", "Circumflexsmall", "hyphensuperior", "Gravesmall", "Asmall", + "Bsmall", "Csmall", "Dsmall", "Esmall", "Fsmall", + "Gsmall", "Hsmall", "Ismall", "Jsmall", "Ksmall", + "Lsmall", "Msmall", "Nsmall", "Osmall", "Psmall", + "Qsmall", "Rsmall", "Ssmall", "Tsmall", "Usmall", + "Vsmall", "Wsmall", "Xsmall", "Ysmall", "Zsmall", + "colonmonetary", "onefitted", "rupiah", "Tildesmall", "exclamdownsmall", + "centoldstyle", "Lslashsmall", "Scaronsmall", "Zcaronsmall", "Dieresissmall", + "Brevesmall", "Caronsmall", "Dotaccentsmall", "Macronsmall", "figuredash", + "hypheninferior", "Ogoneksmall", "Ringsmall", "Cedillasmall", "questiondownsmall", + "oneeighth", "threeeighths", "fiveeighths", "seveneighths", "onethird", + "twothirds", "zerosuperior", "foursuperior", "fivesuperior", "sixsuperior", + "sevensuperior", "eightsuperior", "ninesuperior", "zeroinferior", "oneinferior", + "twoinferior", "threeinferior", "fourinferior", "fiveinferior", "sixinferior", + "seveninferior", "eightinferior", "nineinferior", "centinferior", "dollarinferior", + "periodinferior", "commainferior", "Agravesmall", "Aacutesmall", "Acircumflexsmall", + "Atildesmall", "Adieresissmall", "Aringsmall", "AEsmall", "Ccedillasmall", + "Egravesmall", "Eacutesmall", "Ecircumflexsmall", "Edieresissmall", "Igravesmall", + "Iacutesmall", "Icircumflexsmall", "Idieresissmall", "Ethsmall", "Ntildesmall", + "Ogravesmall", "Oacutesmall", "Ocircumflexsmall", "Otildesmall", "Odieresissmall", + "OEsmall", "Oslashsmall", "Ugravesmall", "Uacutesmall", "Ucircumflexsmall", + "Udieresissmall", "Yacutesmall", "Thornsmall", "Ydieresissmall", + "001.000", "001.001", "001.002", "001.003", + "Black", "Bold", "Book", "Light", "Medium", "Regular", "Roman", "Semibold" +}; + +#endif /* _CFF_STDSTR_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cff_types.h b/Build/source/texk/xdvipdfmx/src/cff_types.h new file mode 100644 index 00000000000..ede20b64199 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cff_types.h @@ -0,0 +1,142 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cff_types.h,v 1.3 2002/10/30 02:27:05 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CFF_TYPES_H_ +#define _CFF_TYPES_H_ + +/* CFF Data Types */ + +#define CFF_TYPE_UNKNOWN 0 +#define CFF_TYPE_INTEGER (1 << 0) +#define CFF_TYPE_REAL (1 << 1) +#define CFF_TYPE_NUMBER (CFF_TYPE_INTEGER|CFF_TYPE_REAL) +#define CFF_TYPE_BOOLEAN (1 << 2) +#define CFF_TYPE_SID (1 << 3) +#define CFF_TYPE_ARRAY (1 << 4) +#define CFF_TYPE_DELTA (1 << 5) + +/* SID SID number */ +#define CFF_TYPE_ROS (1 << 6) +/* offset(0) */ +#define CFF_TYPE_OFFSET (1 << 7) +/* size offset(0) */ +#define CFF_TYPE_SZOFF (1 << 8) + +typedef unsigned char card8; /* 1-byte unsigned number */ +typedef unsigned short card16; /* 2-byte unsigned number */ +typedef unsigned char c_offsize; /* 1-byte unsigned number specifies the size + of an Offset field or fields, range 1-4 */ +typedef unsigned long l_offset; /* 1, 2, 3, or 4-byte offset */ +typedef unsigned short s_SID; /* 2-byte string identifier */ + +typedef unsigned long l_size; + +typedef struct { + card16 count; /* number of objects stored in INDEX */ + c_offsize offsize; /* Offset array element size, 1-4 */ + l_offset *offset; /* Offset array, count + 1 offsets */ + card8 *data; /* Object data */ +} cff_index; + +typedef struct { + card8 major; /* format major version (starting at 1) */ + card8 minor; /* format minor version (starting at 0) */ + card8 hdr_size; /* Header size (bytes) */ + c_offsize offsize; /* Absolute offset (0) size */ +} cff_header; + + +/* Dictionary */ +typedef struct { + int id; /* encoded data value (as card8 or card16) */ + char *key; /* opname */ + int count; /* number of values */ + double *values; /* values */ +} cff_dict_entry; + +typedef struct { + int max; + int count; + cff_dict_entry *entries; +} cff_dict; + +/* Encoding, Charset and FDSelect */ +typedef struct +{ + s_SID first; /* SID or CID, or card8 for Encoding */ + card8 n_left; /* no. of remaining gids/codes in this range */ +} cff_range1; + +typedef struct +{ + s_SID first; /* SID or CID (card16) */ + card16 n_left; /* card16-version of range1 */ +} cff_range2; + +typedef struct +{ + card8 code; + s_SID glyph; +} cff_map; + +typedef struct +{ + card8 format; /* if (format & 0x80) then have supplement */ + card8 num_entries; /* number of entries */ + union { + card8 *codes; /* format 0 */ + cff_range1 *range1; /* format 1 */ + } data; + card8 num_supps; /* number of supplementary data */ + cff_map *supp; /* supplement */ +} cff_encoding; + +typedef struct +{ + card8 format; + card16 num_entries; + union { + s_SID *glyphs; /* format 0 */ + cff_range1 *range1; /* format 1 */ + cff_range2 *range2; /* format 2 */ + } data; +} cff_charsets; + +/* CID-Keyed font specific */ +typedef struct +{ + card16 first; + card8 fd; +} cff_range3; + +typedef struct +{ + card8 format; + card16 num_entries; /* number of glyphs/ranges */ + union { + card8 *fds; /* format 0 */ + cff_range3 *ranges; /* format 3 */ + } data; + /* card16 sentinel; */ /* format 3 only, must be equals to num_glyphs */ +} cff_fdselect; + +#endif /* _CFF_TYPES_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cid.c b/Build/source/texk/xdvipdfmx/src/cid.c new file mode 100644 index 00000000000..95d336dd333 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cid.c @@ -0,0 +1,826 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cid.c,v 1.29 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * CID-keyed font support: + * + * See also, cidtype0, and cidtype2 + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "pdfobj.h" + +#include "cidtype0.h" +#include "cidtype2.h" +#include "cid_p.h" +#include "cid.h" + +#define CIDFONT_DEBUG 3 +#define CIDFONT_DEBUG_STR "CIDFont" + +#define PDF_CID_SUPPORT_MIN 2 +#define PDF_CID_SUPPORT_MAX 6 + +/* + * Unicode and PDF Standard Character Collections. + * + * Adobe-Identity is only for TrueType fonts and it means font's + * internal glyph ordering. + */ +static struct { + const char *registry; + const char *ordering; + /* Heighest Supplement values supported by PDF-1.0, 1.1, ... */ + int supplement[16]; +} CIDFont_stdcc_def[] = { + {"Adobe", "UCS", {-1, -1, 0, 0, 0, 0, 0}}, + {"Adobe", "GB1", {-1, -1, 0, 2, 4, 4, 4}}, + {"Adobe", "CNS1", {-1, -1, 0, 0, 3, 4, 4}}, + {"Adobe", "Japan1", {-1, -1, 2, 2, 4, 5, 6}}, + {"Adobe", "Korea1", {-1, -1, 1, 1, 2, 2, 2}}, + {"Adobe", "Identity", {-1, -1, 0, 0, 0, 0, 0}}, + {NULL, NULL, {0,0,0,0,0,0,0}} +}; +#define UCS_CC 0 +#define ACC_START 1 +#define ACC_END 4 + +CIDSysInfo CSI_IDENTITY = { + (char *) "Adobe", + (char *) "Identity", + 0 +}; + +CIDSysInfo CSI_UNICODE = { + (char *) "Adobe", + (char *) "UCS", + 0 +}; + +/* + * Optional supplement after alias name. + */ +static struct { + const char *name; + int index; +} CIDFont_stdcc_alias[] = { + {"AU", 0}, {"AG1", 1}, {"AC1", 2}, {"AJ1", 3}, {"AK1", 4}, {"AI", 5}, + {"UCS", 0}, {"GB1", 1}, {"CNS1", 2}, {"Japan1", 3}, {"Korea1", 4}, {"Identity", 5}, + {"U", 0}, {"G", 1}, {"C", 2}, {"J", 3}, {"K", 4}, {"I", 5}, + {NULL, 0} +}; + +static void release_opt (cid_opt *opt); +static CIDSysInfo *get_cidsysinfo (const char *map_name, fontmap_opt *fmap_opt); + +static int __verbose = 0; +static long cidoptflags = 0; + +void +CIDFont_set_verbose (void) +{ + CIDFont_type0_set_verbose(); + CIDFont_type2_set_verbose(); + __verbose++; +} + +int +CIDFont_require_version (void) +{ + return PDF_CID_SUPPORT_MIN; +} + +CIDFont * +CIDFont_new (void) +{ + CIDFont *font = NULL; + + font = NEW(1, struct CIDFont); + + font->name = NULL; + font->fontname = NULL; + font->ident = NULL; + +#ifdef XETEX + font->ft_face = NULL; + font->ft_to_gid = NULL; +#endif + + /* + * CIDFont + */ + font->subtype = -1; + font->flags = FONT_FLAG_NONE; + font->csi = NULL; + font->options = NULL; + (font->parent)[0] = -1; /* Horizontal */ + (font->parent)[1] = -1; /* Vertical */ + + /* + * PDF Font Resource + */ + font->indirect = NULL; + font->fontdict = NULL; + font->descriptor = NULL; + + return font; +} + +/* It does write PDF objects. */ +void +CIDFont_flush (CIDFont *font) +{ + if (font) { + if (font->indirect) pdf_release_obj(font->indirect); + font->indirect = NULL; + if (font->fontdict) pdf_release_obj(font->fontdict); + font->fontdict = NULL; + if (font->descriptor) pdf_release_obj(font->descriptor); + font->descriptor = NULL; + } +} + +void +CIDFont_release (CIDFont *font) +{ + if (font) { + switch(font->subtype) { + case CIDFONT_TYPE0: + CIDFont_type0_release(font); + break; + case CIDFONT_TYPE2: + CIDFont_type2_release(font); + break; + } + if (font->indirect) + ERROR("%s: Object not flushed.", CIDFONT_DEBUG_STR); + if (font->fontdict) + ERROR("%s: Object not flushed.", CIDFONT_DEBUG_STR); + if (font->descriptor) + ERROR("%s: Object not flushed.", CIDFONT_DEBUG_STR); + + if (font->fontname) RELEASE(font->fontname); + if (font->name) RELEASE(font->name); + if (font->ident) RELEASE(font->ident); + if (font->csi) { + if (font->csi->registry) + RELEASE(font->csi->registry); + if (font->csi->ordering) + RELEASE(font->csi->ordering); + RELEASE(font->csi); + } + if (font->options) + release_opt(font->options); + } +} + +#ifdef XETEX +unsigned short * +CIDFont_get_ft_to_gid(CIDFont *font) +{ + ASSERT(font); + return font->ft_to_gid; +} +#endif + +char * +CIDFont_get_fontname (CIDFont *font) +{ + ASSERT(font); + return font->fontname; +} + +char * +CIDFont_get_ident (CIDFont *font) +{ + ASSERT(font); + return font->ident; +} + +int +CIDFont_get_opt_index (CIDFont *font) +{ + int opt_index; + + ASSERT(font); + + if (font->options) + opt_index = font->options->index; + else { + opt_index = 0; + } + + return opt_index; +} + +#ifdef XETEX +FT_Face +CIDFont_get_ft_face(CIDFont *font) +{ + ASSERT(font); + return font->ft_face; +} +#endif + +int +CIDFont_get_subtype (CIDFont *font) +{ + ASSERT(font); + return font->subtype; +} + +int +CIDFont_get_embedding (CIDFont *font) +{ + ASSERT(font); + return font->options->embed; +} + +CIDSysInfo * +CIDFont_get_CIDSysInfo (CIDFont *font) +{ + ASSERT(font); + + return font->csi; +} + +/* + * Returns ID of parent Type0 font + * wmode: 0 for horizontal, 1 for vertical + */ +int +CIDFont_get_parent_id (CIDFont *font, int wmode) +{ + ASSERT(font); + + if (wmode < 0 || wmode > 1) + ERROR("%s: Invalid wmode value.", CIDFONT_DEBUG_STR); + + return (font->parent)[wmode]; +} + +pdf_obj * +CIDFont_get_resource (CIDFont *font) +{ + ASSERT(font); + + if (!font->indirect) + font->indirect = pdf_ref_obj(font->fontdict); + + return pdf_link_obj(font->indirect); +} + +/* + * Set parent Type0 font. + */ +void +CIDFont_attach_parent (CIDFont *font, int parent_id, int wmode) +{ + ASSERT(font); + + if (wmode < 0 || wmode > 1) + ERROR("%s: Invalid wmode value.", CIDFONT_DEBUG_STR); + + if (font->parent[wmode] >= 0) + WARN("%s: CIDFont already have a parent Type1 font.", CIDFONT_DEBUG_STR); + + font->parent[wmode] = parent_id; +} + +int +CIDFont_is_ACCFont (CIDFont *font) +{ + int i; + + ASSERT(font); + + if (!font->csi) + ERROR("%s: CIDSystemInfo undefined.", CIDFONT_DEBUG_STR); + + for (i = ACC_START; i <= ACC_END ; i++) { + if (!strcmp(font->csi->registry, CIDFont_stdcc_def[i].registry) && + !strcmp(font->csi->ordering, CIDFont_stdcc_def[i].ordering)) + return 1; + } + + return 0; +} + +int +CIDFont_is_UCSFont (CIDFont *font) +{ + ASSERT(font); + if (!strcmp(font->csi->ordering, "UCS") || + !strcmp(font->csi->ordering, "UCS2")) + return 1; + return 0; +} + +/* FIXME */ +int +CIDFont_get_flag (CIDFont *font, int mask) +{ + ASSERT(font); + return ((font->flags & mask) ? 1 : 0); +} + +static void +CIDFont_dofont (CIDFont *font) +{ + if (!font || !font->indirect) + return; + + if (__verbose) + MESG(":%s", font->ident); + if (__verbose > 1) { + if (font->fontname) + MESG("[%s]", font->fontname); + } + + switch (font->subtype) { + case CIDFONT_TYPE0: + if(__verbose) + MESG("[CIDFontType0]"); + if (CIDFont_get_flag(font, CIDFONT_FLAG_TYPE1)) + CIDFont_type0_t1dofont(font); + else if (CIDFont_get_flag(font, CIDFONT_FLAG_TYPE1C)) + CIDFont_type0_t1cdofont(font); + else + CIDFont_type0_dofont(font); + break; + case CIDFONT_TYPE2: + if(__verbose) + MESG("[CIDFontType2]"); + CIDFont_type2_dofont(font); + break; + default: + ERROR("%s: Unknown CIDFontType %d.", CIDFONT_DEBUG_STR, font->subtype); + break; + } +} + + +/* + * + */ +int +CIDFont_is_BaseFont (CIDFont *font) +{ + ASSERT(font); + return (font->flags & FONT_FLAG_BASEFONT) ? 1 : 0; +} + +#include "pdfparse.h" +#include "cid_basefont.h" + +static int CIDFont_base_open (CIDFont *font, + const char *name, CIDSysInfo *cmap_csi, cid_opt *opt); + +static int +CIDFont_base_open (CIDFont *font, const char *name, CIDSysInfo *cmap_csi, cid_opt *opt) +{ + pdf_obj *fontdict, *descriptor; + char *fontname = NULL; + int idx; + + ASSERT(font); + + for (idx = 0; cid_basefont[idx].fontname != NULL; idx++) { + if (!strcmp(name, cid_basefont[idx].fontname) || + (strlen(name) == strlen(cid_basefont[idx].fontname) - strlen("-Acro") && + !strncmp(name, cid_basefont[idx].fontname, + strlen(cid_basefont[idx].fontname)-strlen("-Acro"))) + ) + break; + } + + if (cid_basefont[idx].fontname == NULL) + return -1; + + fontname = NEW(strlen(name)+12, char); + memset(fontname, 0, strlen(name)+12); + strcpy(fontname, name); + + switch (opt->style) { + case FONT_STYLE_BOLD: + strcat(fontname, ",Bold"); + break; + case FONT_STYLE_ITALIC: + strcat(fontname, ",Italic"); + break; + case FONT_STYLE_BOLDITALIC: + strcat(fontname, ",BoldItalic"); + break; + } + { + const char *start; + const char *end; + + start = cid_basefont[idx].fontdict; + end = start + strlen(start); + fontdict = parse_pdf_dict((char **)&start, (char *)end); + start = cid_basefont[idx].descriptor; + end = start + strlen(start); + descriptor = parse_pdf_dict((char **)&start, (char *)end); + + ASSERT(fontdict && descriptor); + } + + font->fontname = fontname; + font->flags |= FONT_FLAG_BASEFONT; + { + char *registry, *ordering; + int supplement; + pdf_obj *tmp; + + tmp = pdf_lookup_dict(fontdict, "CIDSystemInfo"); + + ASSERT( tmp && pdf_obj_typeof(tmp) == PDF_DICT ); + + registry = pdf_string_value(pdf_lookup_dict(tmp, "Registry")); + ordering = pdf_string_value(pdf_lookup_dict(tmp, "Ordering")); + supplement = pdf_number_value(pdf_lookup_dict(tmp, "Supplement")); + if (cmap_csi) { /* NULL for accept any */ + if (strcmp(registry, cmap_csi->registry) || + strcmp(ordering, cmap_csi->ordering)) + ERROR("Inconsistent CMap used for CID-keyed font %s.", + cid_basefont[idx].fontname); + else if (supplement < cmap_csi->supplement) { + WARN("CMap has higher supplement number than CIDFont: %s", fontname); + WARN("Some chracters may not be displayed or printed."); + } + } + font->csi = NEW(1, CIDSysInfo); + font->csi->registry = NEW(strlen(registry)+1, char); + font->csi->ordering = NEW(strlen(ordering)+1, char); + strcpy(font->csi->registry, registry); + strcpy(font->csi->ordering, ordering); + font->csi->supplement = supplement; + } + + { + pdf_obj *tmp; + char *type; + + tmp = pdf_lookup_dict(fontdict, "Subtype"); + ASSERT( tmp != NULL && pdf_obj_typeof(tmp) == PDF_NAME ); + + type = pdf_name_value(tmp); + if (!strcmp(type, "CIDFontType0")) + font->subtype = CIDFONT_TYPE0; + else if (!strcmp(type, "CIDFontType2")) + font->subtype = CIDFONT_TYPE2; + else { + ERROR("Unknown CIDFontType \"%s\"", type); + } + } + + if (cidoptflags & CIDFONT_FORCE_FIXEDPITCH) { + if (pdf_lookup_dict(fontdict, "W")) { + pdf_remove_dict(fontdict, "W"); + } + if (pdf_lookup_dict(fontdict, "W2")) { + pdf_remove_dict(fontdict, "W2"); + } + } + + pdf_add_dict(fontdict, pdf_new_name("Type"), pdf_new_name("Font")); + pdf_add_dict(fontdict, pdf_new_name("BaseFont"), pdf_new_name(fontname)); + pdf_add_dict(descriptor, pdf_new_name("Type"), pdf_new_name("FontDescriptor")); + pdf_add_dict(descriptor, pdf_new_name("FontName"), pdf_new_name(fontname)); + + font->fontdict = fontdict; + font->descriptor = descriptor; + + opt->embed = 0; + + return 0; +} + + + +#define CACHE_ALLOC_SIZE 16u + +struct FontCache { + int num; + int max; + CIDFont **fonts; +}; + +static struct FontCache *__cache = NULL; + +#define CHECK_ID(n) do {\ + if (! __cache)\ + ERROR("%s: CIDFont cache not initialized.", CIDFONT_DEBUG_STR);\ + if ((n) < 0 || (n) >= __cache->num)\ + ERROR("%s: Invalid ID %d", CIDFONT_DEBUG_STR, (n));\ + } while (0) + +void +CIDFont_cache_init (void) +{ + if (__cache) + ERROR("%s: Already initialized.", CIDFONT_DEBUG_STR); + + __cache = NEW(1, struct FontCache); + + __cache->max = CACHE_ALLOC_SIZE; + __cache->fonts = NEW(__cache->max, struct CIDFont *); + __cache->num = 0; +} + +CIDFont * +CIDFont_cache_get (int font_id) +{ + CHECK_ID(font_id); + return __cache->fonts[font_id]; +} + +/* + * cmap_csi is NULL if CMap is Identity. + */ +int +CIDFont_cache_find (const char *map_name, + CIDSysInfo *cmap_csi, fontmap_opt *fmap_opt) +{ + int font_id = -1; + CIDFont *font = NULL; + cid_opt *opt = NULL; + + if (!__cache) + CIDFont_cache_init(); + + opt = NEW(1, cid_opt); + opt->style = fmap_opt->style; + opt->index = fmap_opt->index; + opt->embed = (fmap_opt->flags & FONTMAP_OPT_NOEMBED) ? 0 : 1; + opt->name = NULL; + opt->csi = get_cidsysinfo(map_name, fmap_opt); + + if (!opt->csi && cmap_csi) { + /* + * No CIDSystemInfo supplied explicitly. Copy from CMap's one if available. + * It is not neccesary for CID-keyed fonts. But TrueType requires them. + */ + opt->csi = NEW(1, CIDSysInfo); + opt->csi->registry = NEW(strlen(cmap_csi->registry)+1, char); + strcpy(opt->csi->registry, cmap_csi->registry); + opt->csi->ordering = NEW(strlen(cmap_csi->ordering)+1, char); + strcpy(opt->csi->ordering, cmap_csi->ordering); + opt->csi->supplement = cmap_csi->supplement; + } + /* + * Here, we do not compare font->ident and map_name because of + * implicit CIDSystemInfo supplied by CMap for TrueType. + */ + for (font_id = 0; font_id < __cache->num; font_id++) { + font = __cache->fonts[font_id]; + if (!strcmp(font->name, map_name) && + font->options->style == opt->style && + font->options->index == opt->index) { + if (font->options->embed == opt->embed) { + /* + * Case 1: CSI not available (Identity CMap) + * Font is TrueType --> continue + * Font is CIDFont --> break + * Case 2: CSI matched --> break + */ + if (!opt->csi) { + if (font->subtype == CIDFONT_TYPE2) + continue; + else + break; + } else if (!strcmp(font->csi->registry, opt->csi->registry) && + !strcmp(font->csi->ordering, opt->csi->ordering)) { + if (font->subtype == CIDFONT_TYPE2) + font->csi->supplement = + MAX(opt->csi->supplement, font->csi->supplement); + break; + } + } else if (CIDFont_is_BaseFont(font)) { + opt->embed = 0; + break; + } + } + } + + if (font_id < __cache->num && cmap_csi) { + if (strcmp(font->csi->registry, cmap_csi->registry) || + strcmp(font->csi->ordering, cmap_csi->ordering)) + ERROR("%s: Incompatible CMap for CIDFont \"%s\"", + CIDFONT_DEBUG_STR, map_name); + } + + if (font_id == __cache->num) { + font = CIDFont_new(); +#ifdef XETEX + font->ft_face = fmap_opt->ft_face; +#endif + if (CIDFont_type0_open(font, map_name, cmap_csi, opt) < 0 && + CIDFont_type2_open(font, map_name, cmap_csi, opt) < 0 && + CIDFont_type0_t1open(font, map_name, cmap_csi, opt) < 0 && + CIDFont_type0_t1copen(font, map_name, cmap_csi, opt) < 0 && + CIDFont_base_open (font, map_name, cmap_csi, opt) < 0 + ) { + CIDFont_release(font); + release_opt(opt); + return -1; + } else { + if (__cache->num >= __cache->max) { + __cache->max += CACHE_ALLOC_SIZE; + __cache->fonts = RENEW(__cache->fonts, + __cache->max, struct CIDFont *); + } + font->name = NEW(strlen(map_name)+1, char); + strcpy(font->name, map_name); + font->ident = NEW(strlen(map_name)+1, char); + strcpy(font->ident, map_name); + font->options = opt; + __cache->fonts[font_id] = font; + (__cache->num)++; + } + } else if (opt) { + release_opt(opt); + } + + return font_id; +} + +void +CIDFont_cache_close (void) +{ + int font_id; + + if (__cache) { + for (font_id = 0; + font_id < __cache->num; font_id++) { + CIDFont *font; + + font = __cache->fonts[font_id]; + + if (__verbose) + MESG("(CID"); + + CIDFont_dofont (font); + CIDFont_flush (font); + CIDFont_release(font); + + RELEASE(font); + + if (__verbose) + MESG(")"); + } + RELEASE(__cache->fonts); + RELEASE(__cache); + __cache = NULL; + } +} + +/******************************* OPTIONS *******************************/ + +/* + * FORMAT: + * + * (:int:)?!?string(/string)?(,string)? + */ + +static void +release_opt (cid_opt *opt) +{ + if (opt->csi) { + if (opt->csi->registry) + RELEASE(opt->csi->registry); + if (opt->csi->ordering) + RELEASE(opt->csi->ordering); + RELEASE(opt->csi); + } + RELEASE(opt); +} + +static CIDSysInfo * +get_cidsysinfo (const char *map_name, fontmap_opt *fmap_opt) +{ + CIDSysInfo *csi = NULL; + int pdf_ver; + int i, csi_idx = -1, n, m; + + pdf_ver = pdf_get_version(); + + if (!fmap_opt || !fmap_opt->charcoll) + return NULL; + + /* First try alias for standard one. */ + for (i = 0; CIDFont_stdcc_alias[i].name != NULL; i++) { + n = strlen(CIDFont_stdcc_alias[i].name); + if (!strncmp(fmap_opt->charcoll, + CIDFont_stdcc_alias[i].name, n)) { + csi_idx = CIDFont_stdcc_alias[i].index; + csi = NEW(1, CIDSysInfo); + csi->registry = NEW(strlen(CIDFont_stdcc_def[csi_idx].registry)+1, char); + strcpy(csi->registry, CIDFont_stdcc_def[csi_idx].registry); + csi->ordering = NEW(strlen(CIDFont_stdcc_def[csi_idx].ordering)+1, char); + strcpy(csi->ordering, CIDFont_stdcc_def[csi_idx].ordering); + if (strlen(fmap_opt->charcoll) > n) { + csi->supplement = (int) strtoul(&(fmap_opt->charcoll[n]), NULL, 10); + } else { /* Use heighest supported value for current output PDF version. */ + csi->supplement = CIDFont_stdcc_def[csi_idx].supplement[pdf_ver]; + } + break; + } + } + if (csi == NULL) { + char *p, *q; + + p = (char *) fmap_opt->charcoll; + csi = NEW(1, CIDSysInfo); + + /* Full REGISTRY-ORDERING-SUPPLEMENT */ + p = strchr(fmap_opt->charcoll, '-'); + if (!p || p[1] == '\0') + ERROR("%s: String can't be converted to REGISTRY-ORDERING-SUPPLEMENT: %s", + CIDFONT_DEBUG_STR, fmap_opt->charcoll); + p++; + + q = strchr(p, '-'); + if (!q || q[1] == '\0') + ERROR("%s: String can't be converted to REGISTRY-ORDERING-SUPPLEMENT: %s", + CIDFONT_DEBUG_STR, fmap_opt->charcoll); + q++; + + if (!isdigit(q[0])) + ERROR("%s: String can't be converted to REGISTRY-ORDERING-SUPPLEMENT: %s", + CIDFONT_DEBUG_STR, fmap_opt->charcoll); + + n = strlen(fmap_opt->charcoll) - strlen(p) - 1; + csi->registry = NEW(n+1, char); + memcpy(csi->registry, fmap_opt->charcoll, n); + csi->registry[n] = '\0'; + + m = strlen(p) - strlen(q) - 1; + csi->ordering = NEW(m+1, char); + memcpy(csi->ordering, p, m); + csi->ordering[m] = '\0'; + + csi->supplement = (int) strtoul(q, NULL, 10); + + /* Check for standart character collections. */ + for (i = 0; CIDFont_stdcc_def[i].ordering != NULL; i++) { + if ((CIDFont_stdcc_def[i].registry && + !strcmp(csi->registry, CIDFont_stdcc_def[i].registry)) && + !strcmp(csi->ordering, CIDFont_stdcc_def[i].ordering)) { + csi_idx = i; + break; + } + } + } + + if (csi && csi_idx >= 0) { + if (csi->supplement > CIDFont_stdcc_def[csi_idx].supplement[pdf_ver] + && (fmap_opt->flags & FONTMAP_OPT_NOEMBED)) { + WARN("%s: Heighest supplement number supported in PDF-1.%d for %s-%s is %d.", + CIDFONT_DEBUG_STR, pdf_ver, csi->registry, csi->ordering, + CIDFont_stdcc_def[csi_idx].supplement[pdf_ver]); + WARN("%s: Some character may not shown without embedded font (--> %s).", + CIDFONT_DEBUG_STR, map_name); + } + } + + return csi; +} + +void +CIDFont_set_flags (long flags) +{ + CIDFont_type0_set_flags(flags); + CIDFont_type2_set_flags(flags); + cidoptflags |= flags; +} diff --git a/Build/source/texk/xdvipdfmx/src/cid.h b/Build/source/texk/xdvipdfmx/src/cid.h new file mode 100644 index 00000000000..97b846e6f4f --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cid.h @@ -0,0 +1,94 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cid.h,v 1.13 2004/09/02 12:23:06 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CID_H_ +#define _CID_H_ + +#ifdef XETEX +#include "ft2build.h" +#include FT_FREETYPE_H +#endif + +/* CIDFont types */ +#define CIDFONT_TYPE0 1 +#define CIDFONT_TYPE2 2 + +typedef struct { + char *registry; + char *ordering; + int supplement; +} CIDSysInfo; + +extern CIDSysInfo CSI_IDENTITY; +extern CIDSysInfo CSI_UNICODE; + +typedef struct CIDFont CIDFont; + +extern void CIDFont_set_verbose (void); +extern int CIDFont_require_version (void); +extern void CIDFont_set_flags (long flags); + +#define CIDFONT_FORCE_FIXEDPITCH (1 << 1) + +#include "pdfobj.h" +#include "type0.h" + +/* FIXME */ +/* Converted from Type 1 */ +#define CIDFONT_FLAG_TYPE1 (1 << 8) +#define CIDFONT_FLAG_TYPE1C (1 << 9) +#define CIDFONT_FLAG_TRUETYPE (1 << 10) + +extern CIDFont *CIDFont_new (void); +extern void CIDFont_release (CIDFont *font); +extern void CIDFont_flush (CIDFont *font); + +extern char *CIDFont_get_fontname (CIDFont *font); + +extern char *CIDFont_get_ident (CIDFont *font); /* FIXME */ +extern int CIDFont_get_opt_index (CIDFont *font); /* FIXME */ +#ifdef XETEX +extern FT_Face CIDFont_get_ft_face (CIDFont *font); +extern unsigned short *CIDFont_get_ft_to_gid(CIDFont *font); +#endif + +extern int CIDFont_get_flag (CIDFont *font, int mask); + +extern int CIDFont_get_subtype (CIDFont *font); +extern int CIDFont_get_embedding (CIDFont *font); +extern pdf_obj *CIDFont_get_resource (CIDFont *font); +extern CIDSysInfo *CIDFont_get_CIDSysInfo (CIDFont *font); + +extern void CIDFont_attach_parent (CIDFont *font, int parent_id, int wmode); +extern int CIDFont_get_parent_id (CIDFont *font, int wmode); + +extern int CIDFont_is_BaseFont (CIDFont *font); +extern int CIDFont_is_ACCFont (CIDFont *font); +extern int CIDFont_is_UCSFont (CIDFont *font); + +#include "fontmap.h" +extern void CIDFont_cache_init (void); +extern int CIDFont_cache_find (const char *map_name, CIDSysInfo *cmap_csi, fontmap_opt *fmap_opt); +extern CIDFont *CIDFont_cache_get (int fnt_id); +extern void CIDFont_cache_close (void); + +#endif /* _CID_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cid_basefont.h b/Build/source/texk/xdvipdfmx/src/cid_basefont.h new file mode 100644 index 00000000000..9dd947bcb57 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cid_basefont.h @@ -0,0 +1,463 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cid_basefont.h,v 1.14 2005/06/27 11:54:50 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CID_BASEFONT_H_ +#define _CID_BASEFONT_H_ + +/* PLEASE SEND INFORMATION ON FONTS + * + * Those fonts are only for fixed-pitch glyphs (full-, half-, third-, + * and quarter- widths). Glyph widths should be determined solely from + * CID and CIDSystemInfo for those never-embedded fonts. Fixed-pitch + * pre-rotated forms are not supported yet. + * + * Font dictionaly entry Subtype and CIDSystemInfo is mandatory here. + * Font descriptor entry CapHeight, Ascent, Descent, ItalicAngle, Flags, + * FontBBox, and StemV is required. However, CapHeight, Ascent, Descent, + * and ItalicAngle is irrelevant for font-matching of CJK fonts. Panose + * entry in Style dictionary may affect in Acrobat. Serif font should + * have flag bit position 2 (2) set and all CJK fonts should also have + * bit position 3 (4) set: CJK font serif -> Flags 6, sans serif -> 4. + * + * Please always supply DW entry in font dictionary although this can + * be optional. PDF reference 1.2 had been described default value for + * DW as 0 (correct value if 1000) and several versions of Mac OS X + * implement so! + */ + +const struct { + const char *fontname; + const char *fontdict; + const char *descriptor; +} cid_basefont[] = { + /* + * Fonts found in printers + * + * Ryumin-Light and GothicBBB-Medium is often available in + * PostScript printer sold in Japan. There may be additonal + * Morisawa fonts such as ShinGo-Bold, but less common than + * those two fonts. + */ + { + "Ryumin-Light", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Japan1) /Supplement 2 >> \ +/DW 1000 \ +/W [\ + 231 632 500 \ + 8718 [500 500] \ +]\ +>>", + "<< \ +/CapHeight 709 /Ascent 723 /Descent -241 /StemV 69 \ +/FontBBox [-170 -331 1024 903] \ +/ItalicAngle 0 /Flags 6 \ +/Style << /Panose <010502020300000000000000> >> \ +>>" + }, + { + "GothicBBB-Medium", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Japan1) /Supplement 2 >> \ +/DW 1000 \ +/W [\ + 231 632 500 \ + 8718 [500 500] \ +]\ +>>", + "<< \ +/CapHeight 737 /Ascent 752 /Descent -271 /StemV 99 \ +/FontBBox [-174 -268 1001 944] \ +/ItalicAngle 0 /Flags 4 \ +/Style << /Panose <0801020b0500000000000000> >> \ +>>" + }, + + /* Adobe Asian Font Packs for Acrobat Reader 4 */ + { + "MHei-Medium-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (CNS1) /Supplement 0 >> \ +/DW 1000 \ +/W [\ +13648 13742 500 \ +17603 [500] \ +]\ +>>", + "<< \ +/Ascent 752 /CapHeight 737 /Descent -271 /StemV 58 \ +/FontBBox [-45 -250 1015 887] \ +/ItalicAngle 0 /Flags 4 /XHeight 553 \ +/Style << /Panose <000001000600000000000000> >> \ +>>" + }, + { + "MSung-Light-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (CNS1) /Supplement 0 >> \ +/DW 1000 \ +/W [\ +13648 13742 500 \ +17603 [500] \ +]\ +>>", + "<< \ +/Ascent 752 /CapHeight 737 /Descent -271 /StemV 58 \ +/FontBBox [-160 -259 1015 888] \ +/ItalicAngle 0 /Flags 6 /XHeight 553 \ +/Style << /Panose <000000000400000000000000> >> \ +>>" + }, + { + "STSong-Light-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (GB1) /Supplement 2 >> \ +/DW 1000 \ +/W [\ + 814 939 500 \ + 7716 [500] \ +22355 [500 500] \ +22357 [500] \ +]\ +>>", + "<< \ +/Ascent 857 /CapHeight 857 /Descent -143 /StemV 91 \ +/FontBBox [-250 -143 600 857] \ +/ItalicAngle 0 /Flags 6 /XHeight 599 \ +/Style << /Panose <000000000400000000000000> >> \ +>>" + }, + { + "HeiseiKakuGo-W5-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Japan1) /Supplement 2 >> \ +/DW 1000 \ +/W [\ + 231 632 500 \ + 8718 [500 500] \ +]\ +>>", + "<< \ +/Ascent 752 /CapHeight 737 /Descent -221 /StemV 114 \ +/FontBBox [-92 -250 1010 922] \ +/ItalicAngle 0 /Flags 4 /XHeight 553 \ +/Style << /Panose <000001000500000000000000> >> \ +>>" + }, + { + "HeiseiMin-W3-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Japan1) /Supplement 2 >> \ +/DW 1000 \ +/W [\ + 231 632 500 \ + 8718 [500 500] \ +]\ +>>", + "<< \ +/Ascent 723 /CapHeight 709 /Descent -241 /StemV 69 \ +/FontBBox [-123 -257 1001 910] \ +/ItalicAngle 0 /Flags 6 /XHeight 450 \ +/Style << /Panose <000002020500000000000000> >> \ +>>" + }, + { + "HYGoThic-Medium-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Korea1) /Supplement 1 >> \ +/DW 1000 \ +/W [\ + 97 [500] \ + 8094 8190 500 \ +]\ +>>", + "<< \ +/Ascent 752 /CapHeight 737 /Descent -271 /StemV 58 \ +/FontBBox [-6 -145 1003 880] \ +/ItalicAngle 0 /Flags 4 /XHeight 553 \ +/Style << /Panose <000001000600000000000000> >> \ +>>" + }, + { + "HYSMyeongJo-Medium-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Korea1) /Supplement 1 >> \ +/DW 1000 \ +/W [\ + 97 [500] \ + 8094 8190 500 \ +]\ +>>", + "<< \ +/Ascent 752 /CapHeight 737 /Descent -271 /StemV 58 \ +/FontBBox [-0 -148 1001 880] \ +/ItalicAngle 0 /Flags 6 /XHeight 553 \ +/Style << /Panose <000000000600000000000000> >> \ +>>" + }, + + /* Acrobat Reader 5 */ + { + "MSungStd-Light-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (CNS1) /Supplement 4 >> \ +/DW 1000 \ +/W [\ +13648 13742 500 \ +17603 [500] \ +]\ +>>", + "<< \ +/Ascent 880 /CapHeight 662 /Descent -120 /StemV 54 \ +/FontBBox [-160 -249 1015 1071] \ +/ItalicAngle 0 /Flags 6 \ +/Style << /Panose <000000000400000000000000> >> \ +>>" + }, + { + "STSongStd-Light-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (GB1) /Supplement 4 >> \ +/DW 1000 \ +/W [\ + 814 939 500 \ + 7716 [500] \ +22355 [500 500] \ +22357 [500] \ +]\ +>>", + "<< \ +/Ascent 880 /CapHeight 626 /Descent -120 /StemV 44 \ +/FontBBox [-134 -254 1001 905] \ +/ItalicAngle 0 /Flags 6 \ +/Style << /Panose <000000000400000000000000> >> \ +>>" + }, + { + "HYSMyeongJoStd-Medium-Acro", + "<< \ +/Subtype /CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Korea1) /Supplement 2 >> \ +/DW 1000 \ +/W [\ + 97 [500] \ + 8094 8190 500 \ +]\ +>>", + "<< \ +/Ascent 880 /CapHeight 720 /Descent -120 /StemV 60 \ +/FontBBox [-28 -148 1001 880] \ +/ItalicAngle 0 /Flags 6 \ +/Style << /Panose <000000000600000000000000> >> \ +>>" + }, + + /* Adobe Asian Font Packs for Adobe Reader 6 */ + + /* + * Widths of Adobe-CNS1-4 + * 1 95 proportional + * 13648 13742 half-width + * 17601 17601 proportional? + * 17603 17603 half-width? + */ + { + "AdobeMingStd-Light-Acro", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (CNS1) /Supplement 4 >> \ +/DW 1000 \ +/W [\ +13648 13742 500 \ +17603 [500] \ +]\ +>>", + "<< \ +/Ascent 880 /Descent -120 /StemV 48 /CapHeight 731 \ +/FontBBox [-38 -121 1002 918] \ +/ItalicAngle 0 /Flags 6 /XHeight 466 \ +/Style << /Panose <000002020300000000000000> >> \ +>>" + }, + /* + * Widths of Adobe-GB1-4 + * 1 95 proportional + * 814 939 half-width + * 7712 7715 proportional + * 7716 7716 half-width space + * 22353 22354 proportional + * 22355 22357 half-width + */ + { + "AdobeSongStd-Light-Acro", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (GB1) /Supplement 4 >> \ +/DW 1000 \ +/W [\ + 814 939 500 \ + 7716 [500] \ +22355 [500 500] \ +22357 [500] \ +]\ +>>", + "<< \ +/Ascent 880 /Descent -120 /StemV 66 /CapHeight 626 \ +/FontBBox [-134 -254 1001 905] \ +/ItalicAngle 0 /Flags 6 /XHeight 416 \ +/Style << /Panose <000002020300000000000000> >> \ +>>" + }, + /* + * Widths of Adobe-Japan1-4 + * 1 230 proportional + * 231 632 half-width + * 9354 9737 proportional + * 9738 9757 quater-width + * 9758 9778 third-width + * 12063 12087 half-width + */ + { + "KozMinPro-Regular-Acro", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Japan1) /Supplement 4 >> \ +/DW 1000 \ +/W [\ + 231 632 500 \ + 8718 [500 500] \ + 9738 9757 250 \ + 9758 9778 333 \ +12063 12087 500 \ +]\ +>>", + "<< \ +/Ascent 880 /Descent -120 /StemV 86 /CapHeight 740 \ +/FontBBox [-195 -272 1110 1075] \ +/ItalicAngle 0 /Flags 6 /XHeight 502 \ +/Style << /Panose <000002020400000000000000> >> \ +>>" + }, + { + "KozGoPro-Medium-Acro", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering(Japan1) /Supplement 4 >> \ +/DW 1000 \ +/W [\ + 231 632 500 \ + 8718 [500 500] \ + 9738 9757 250 \ + 9758 9778 333 \ +12063 12087 500 \ +]\ +>>", + "<< \ +/Ascent 880 /Descent -120 /StemV 99 /CapHeight 763 \ +/FontBBox [-149 -374 1254 1008] \ +/ItalicAngle 0 /Flags 4 /XHeight 549 \ +/Style << /Panose <0000020b0700000000000000> >> \ +>>" + }, + /* + * Widths of Adobe-Korea1-2 + * 1 95 proportional + * 97 97 half-width? + * 8094 8190 half-width + */ + { + "AdobeMyungjoStd-Medium-Acro", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << /Registry (Adobe) /Ordering (Korea1) /Supplement 2 >> \ +/DW 1000 \ +/W [\ + 97 [500] \ + 8094 8190 500 \ +]\ +>>", + "<< \ +/Ascent 880 /Descent -120 /StemV 99 /CapHeight 719 \ +/FontBBox [-28 -148 1001 880] \ +/ItalicAngle 0 /Flags 6 /XHeight 478 \ +/Style << /Panose <000002020600000000000000> >> \ +>>" + }, + + /* Addition in Adobe Reader 7 */ + /* + * Adobe-Japan1-5 + * 15449-15911 proportional + * 15912-15975 proportional + * 15976-16192 proportional (vert) + * 16469-16714 pre-rotated proportional + * 16715-16778 pre-rotated proportional + * Adobe-Japan1-6 + * 20317-20371 proportional + * 20372-20426 proportional + * 20958 - (reserved for future use) + * 20961-21015 pre-rotated proportional + * 21016-21070 pre-rotated proportional + */ + { + "KozMinProVI-Regular", + "<< \ +/Subtype/CIDFontType0 \ +/CIDSystemInfo << \ + /Registry (Adobe) \ + /Ordering (Japan1) \ + /Supplement 6 \ +>> \ +/DW 1000 \ +/W [\ + 231 632 500 \ + 8718 [500 500] \ + 9738 9757 250 \ + 9758 9778 333 \ + 12063 12087 500 \ +]\ + >>", + "<< \ +/Ascent 880 /Descent -120 /StemV 86 /CapHeight 742 \ +/FontBBox [-437 -340 1144 1317] \ +/ItalicAngle 0 /Flags 6 /XHeight 503 \ +/Style << \ + /Panose <000002020400000000000000> \ +>> \ + >>" + }, + /* END */ + {NULL, NULL, NULL} +}; + +#endif /* _CID_BASEFONT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cid_p.h b/Build/source/texk/xdvipdfmx/src/cid_p.h new file mode 100644 index 00000000000..72f0c2835d3 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cid_p.h @@ -0,0 +1,73 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cid_p.h,v 1.8 2004/09/11 14:50:28 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CID_P_H_ +#define _CID_P_H_ + +#define FONT_FLAG_NONE 0 +#define FONT_FLAG_BASEFONT (1 << 0) +#define FONT_FLAG_ACCFONT (1 << 1) +#define FONT_FLAG_UCSFONT (1 << 2) + +#include "fontmap.h" +#define FONT_STYLE_NONE FONTMAP_STYLE_NONE +#define FONT_STYLE_BOLD FONTMAP_STYLE_BOLD +#define FONT_STYLE_ITALIC FONTMAP_STYLE_ITALIC +#define FONT_STYLE_BOLDITALIC FONTMAP_STYLE_BOLDITALIC + +typedef struct +{ + char *name; /* Unused */ + CIDSysInfo *csi; + int index; + int style; + int embed; +} cid_opt; + +struct CIDFont +{ + char *ident; /* Map record entry */ + char *name; /* Fontname or filename */ + char *fontname; /* PostScript font name */ +#ifdef XETEX + FT_Face ft_face; + unsigned short *ft_to_gid; +#endif + /* + * CIDFont Specific + */ + int subtype; /* CIDFONT_TYPE0 or CIDFONT_TYPE2 */ + int flags; /* BASEFONT */ + int parent[2]; /* Parent type0 font of this CID-keyed font: H, V */ + CIDSysInfo *csi; /* Character collection */ + cid_opt *options; /* Options from map record */ + /* + * PDF Font Resource + */ + pdf_obj *indirect; /* Indirect reference to CIDFont dictionary */ + pdf_obj *fontdict; /* CIDFont dictionary */ + pdf_obj *descriptor; /* FontDescriptor */ +}; + +#endif /* _CID_P_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cidtype0.c b/Build/source/texk/xdvipdfmx/src/cidtype0.c new file mode 100644 index 00000000000..ea471fae14c --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cidtype0.c @@ -0,0 +1,2073 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cidtype0.c,v 1.34 2005/07/17 09:53:37 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * CID-Keyed Font support: + * + * Only CFF/OpenType CID-Keyed Font with Type 2 charstrings is supported. + * + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "numbers.h" +#include "mem.h" +#include "error.h" + +#include "dpxfile.h" + +#include "pdfobj.h" +/* pseudo unique tag */ +#include "pdffont.h" + +/* Font info. from OpenType tables */ +#include "sfnt.h" +#include "tt_aux.h" +/* Metrics */ +#include "tt_table.h" + +#include "cff_types.h" +#include "cff_limits.h" +#include "cff.h" +#include "cff_dict.h" +#include "cs_type2.h" + +/* typedef CID in cmap.h */ +#include "cmap.h" +#include "type0.h" +#include "cid.h" +#include "cid_p.h" +#include "cidtype0.h" + +static int verbose = 0; +static long opt_flags = 0; + +void +CIDFont_type0_set_verbose (void) +{ + verbose++; +} + +void +CIDFont_type0_set_flags (long flags) +{ + opt_flags = flags; +} + +/* + * PDF Reference 3rd. ed., p.340, "Glyph Metrics in CID Fonts". + */ +#ifndef PDFUNIT +#define PDFUNIT(v) (ROUND((1000.0*(v))/(head->unitsPerEm),1)) +#endif + +static void +add_CIDHMetrics (sfnt *sfont, pdf_obj *fontdict, + unsigned char *CIDToGIDMap, unsigned short last_cid, + struct tt_maxp_table *maxp, + struct tt_head_table *head, struct tt_longMetrics *hmtx) +{ + pdf_obj *w_array, *an_array = NULL; + long cid, start = 0, prev = 0; + double defaultAdvanceWidth; + int empty = 1; + + defaultAdvanceWidth = PDFUNIT(hmtx[0].advance); + /* + * We alway use format: + * c [w_1 w_2 ... w_n] + */ + w_array = pdf_new_array(); + for (cid = 0; cid <= last_cid; cid++) { + USHORT gid; + double advanceWidth; + gid = CIDToGIDMap ? ((CIDToGIDMap[2*cid] << 8)|CIDToGIDMap[2*cid+1]) : cid; + if (gid >= maxp->numGlyphs || (cid != 0 && gid == 0)) + continue; + advanceWidth = PDFUNIT(hmtx[gid].advance); + if (advanceWidth == defaultAdvanceWidth) { + if (an_array) { + pdf_add_array(w_array, pdf_new_number(start)); + pdf_add_array(w_array, an_array); + an_array = NULL; + empty = 0; + } + } else { + if (cid != prev + 1 && an_array) { + pdf_add_array(w_array, pdf_new_number(start)); + pdf_add_array(w_array, an_array); + an_array = NULL; + empty = 0; + } + if (an_array == NULL) { + an_array = pdf_new_array(); + start = cid; + } + pdf_add_array(an_array, pdf_new_number(advanceWidth)); + prev = cid; + } + } + + if (an_array) { + pdf_add_array(w_array, pdf_new_number(start)); + pdf_add_array(w_array, an_array); + empty = 0; + } + + /* + * We always write DW for older MacOS X's preview app. + * PDF Reference 2nd. ed, wrongly described default value of DW as 0, and + * MacOS X's (up to 10.2.8) preview app. implements this wrong description. + */ + pdf_add_dict(fontdict, + pdf_new_name("DW"), + pdf_new_number(defaultAdvanceWidth)); + if (!empty) { + pdf_add_dict(fontdict, + pdf_new_name("W"), + pdf_ref_obj(w_array)); + } + pdf_release_obj(w_array); + + return; +} + +static void +add_CIDVMetrics (sfnt *sfont, pdf_obj *fontdict, + unsigned char *CIDToGIDMap, unsigned short last_cid, + struct tt_maxp_table *maxp, + struct tt_head_table *head, struct tt_longMetrics *hmtx) +{ + pdf_obj *w2_array, *an_array = NULL; + long cid, prev, start; + struct tt_VORG_table *vorg; + struct tt_os2__table *os2; + struct tt_vhea_table *vhea = NULL; + struct tt_longMetrics *vmtx = NULL; + double defaultAdvanceHeight, defaultVertOriginY; + int empty = 1; + + /* + * No accurate vertical metrics can be obtained by simple way if the + * font does not have VORG table. Only CJK fonts may have VORG. + */ + if (sfnt_find_table_pos(sfont, "VORG") <= 0) + return; + + vorg = tt_read_VORG_table(sfont); + defaultVertOriginY = PDFUNIT(vorg->defaultVertOriginY); + if (sfnt_find_table_pos(sfont, "vhea") > 0) + vhea = tt_read_vhea_table(sfont); + if (vhea && sfnt_find_table_pos(sfont, "vmtx") > 0) { + sfnt_locate_table(sfont, "vmtx"); + vmtx = tt_read_longMetrics(sfont, maxp->numGlyphs, vhea->numOfLongVerMetrics); + } + /* + * OpenType font must have OS/2 table. + */ + os2 = tt_read_os2__table(sfont); + defaultVertOriginY = PDFUNIT(os2->sTypoAscender); + defaultAdvanceHeight = PDFUNIT(os2->sTypoAscender - os2->sTypoDescender); + RELEASE(os2); + + w2_array = pdf_new_array(); + start = prev = 0; + for (cid = 0; cid <= last_cid; cid++) { + USHORT i, gid; + double advanceHeight, vertOriginX, vertOriginY; + gid = CIDToGIDMap ? ((CIDToGIDMap[2*cid] << 8)|CIDToGIDMap[2*cid+1]) : cid; + if (gid >= maxp->numGlyphs || (cid != 0 && gid == 0)) + continue; + advanceHeight = vmtx ? PDFUNIT(vmtx[gid].advance) : defaultAdvanceHeight; + vertOriginX = PDFUNIT(hmtx[gid].advance*0.5); + vertOriginY = defaultVertOriginY; + for (i = 0; + i < vorg->numVertOriginYMetrics && gid > vorg->vertOriginYMetrics[i].glyphIndex; + i++) { + if (gid == vorg->vertOriginYMetrics[i].glyphIndex) + vertOriginY = PDFUNIT(vorg->vertOriginYMetrics[i].vertOriginY); + } +#if 0 + /* + * c [w1_1y v_1x v_1y w1_2y v_2x v_2y ...] + * Not working... Why? + * Acrobat Reader: + * Wrong rendering, interpretation of position vector is wrong. + * Xpdf and gs: ignores W2? + */ + if (vertOriginY == defaultVertOriginY && + advanceHeight == defaultAdvanceHeight) { + if (an_array) { + pdf_add_array(w2_array, pdf_new_number(start)); + pdf_add_array(w2_array, an_array); + an_array = NULL; + empty = 0; + } + } else { + if (cid != prev + 1 && an_array) { + pdf_add_array(w2_array, pdf_new_number(start)); + pdf_add_array(w2_array, an_array); + an_array = NULL; + empty = 0; + } + if (an_array == NULL) { + an_array = pdf_new_array(); + start = cid; + } + pdf_add_array(an_array, pdf_new_number(-advanceHeight)); + pdf_add_array(an_array, pdf_new_number(vertOriginX)); + pdf_add_array(an_array, pdf_new_number(vertOriginY)); + prev = cid; + } +#else + /* + * c_first c_last w1_y v_x v_y + * This form may hit Acrobat's implementation limit of array element size, 8192. + * AFPL GhostScript 8.11 stops with rangecheck error with this. Maybe GS's bug? + */ + if (vertOriginY != defaultVertOriginY || + advanceHeight != defaultAdvanceHeight) { + pdf_add_array(w2_array, pdf_new_number(cid)); + pdf_add_array(w2_array, pdf_new_number(cid)); + pdf_add_array(w2_array, pdf_new_number(-advanceHeight)); + pdf_add_array(w2_array, pdf_new_number(vertOriginX)); + pdf_add_array(w2_array, pdf_new_number(vertOriginY)); + empty = 0; + } +#endif + } + +#if 0 + if (an_array) { + pdf_add_array(w2_array, pdf_new_number(start)); + pdf_add_array(w2_array, an_array); + empty = 0; + } +#endif + + if (defaultVertOriginY != 880 || defaultAdvanceHeight != 1000) { + an_array = pdf_new_array(); + pdf_add_array(an_array, pdf_new_number(defaultVertOriginY)); + pdf_add_array(an_array, pdf_new_number(-defaultAdvanceHeight)); + pdf_add_dict(fontdict, pdf_new_name ("DW2"), an_array); + } + if (!empty) { + pdf_add_dict(fontdict, + pdf_new_name("W2"), pdf_ref_obj(w2_array)); + } + pdf_release_obj(w2_array); + + if (vorg->vertOriginYMetrics) + RELEASE(vorg->vertOriginYMetrics); + RELEASE(vorg); + + if (vmtx) + RELEASE(vmtx); + if (vhea) + RELEASE(vhea); + + return; +} + +static void +add_CIDMetrics (sfnt *sfont, pdf_obj *fontdict, + unsigned char *CIDToGIDMap, unsigned short last_cid, int need_vmetrics) +{ + struct tt_longMetrics *hmtx; + struct tt_head_table *head; + struct tt_hhea_table *hhea; + struct tt_maxp_table *maxp; + + /* + * Read head, hhea, maxp: + * + * unitsPerEm --> head + * numHMetrics --> hhea + * numGlyphs --> maxp + */ + head = tt_read_head_table(sfont); + maxp = tt_read_maxp_table(sfont); + hhea = tt_read_hhea_table(sfont); + + sfnt_locate_table(sfont, "hmtx"); + hmtx = tt_read_longMetrics(sfont, maxp->numGlyphs, hhea->numberOfHMetrics); + + add_CIDHMetrics(sfont, fontdict, CIDToGIDMap, last_cid, maxp, head, hmtx); + if (need_vmetrics) + add_CIDVMetrics(sfont, fontdict, CIDToGIDMap, last_cid, maxp, head, hmtx); + + RELEASE(hmtx); + RELEASE(hhea); + RELEASE(maxp); + RELEASE(head); + + return; +} + +/* + * Create an instance of embeddable font. + */ +static long +write_fontfile (CIDFont *font, cff_font *cffont) +{ + cff_index *topdict, *fdarray, *private; + unsigned char *dest; + long destlen = 0, i, size; + long offset, topdict_offset, fdarray_offset; + + /* DICT sizes (offset set to long int) */ + topdict = cff_new_index(1); + fdarray = cff_new_index(cffont->num_fds); + private = cff_new_index(cffont->num_fds); + + cff_dict_remove(cffont->topdict, "UniqueID"); + cff_dict_remove(cffont->topdict, "XUID"); + cff_dict_remove(cffont->topdict, "Private"); /* some bad font may have */ + cff_dict_remove(cffont->topdict, "Encoding"); /* some bad font may have */ + + topdict->offset[1] = cff_dict_pack(cffont->topdict, + (card8 *) work_buffer, + WORK_BUFFER_SIZE) + 1; + for (i = 0;i < cffont->num_fds; i++) { + size = 0; + if (cffont->private && cffont->private[i]) { + size = cff_dict_pack(cffont->private[i], + (card8 *) work_buffer, WORK_BUFFER_SIZE); + if (size < 1) { /* Private had contained only Subr */ + cff_dict_remove(cffont->fdarray[i], "Private"); + } + } + (private->offset)[i+1] = (private->offset)[i] + size; + (fdarray->offset)[i+1] = (fdarray->offset)[i] + + cff_dict_pack(cffont->fdarray[i], + (card8 *) work_buffer, WORK_BUFFER_SIZE); + } + + destlen = 4; /* header size */ + destlen += cff_set_name(cffont, font->fontname); + destlen += cff_index_size(topdict); + destlen += cff_index_size(cffont->string); + destlen += cff_index_size(cffont->gsubr); + destlen += (cffont->charsets->num_entries) * 2 + 1; /* charset format 0 */ + destlen += (cffont->fdselect->num_entries) * 3 + 5; /* fdselect format 3 */ + destlen += cff_index_size(cffont->cstrings); + destlen += cff_index_size(fdarray); + destlen += private->offset[private->count] - 1; /* Private is not INDEX */ + + dest = NEW(destlen, card8); + + offset = 0; + /* Header */ + offset += cff_put_header(cffont, dest + offset, destlen - offset); + /* Name */ + offset += cff_pack_index(cffont->name, dest + offset, destlen - offset); + /* Top DICT */ + topdict_offset = offset; + offset += cff_index_size(topdict); + /* Strings */ + offset += cff_pack_index(cffont->string, dest + offset, destlen - offset); + /* Global Subrs */ + offset += cff_pack_index(cffont->gsubr, dest + offset, destlen - offset); + + /* charset */ + cff_dict_set(cffont->topdict, "charset", 0, offset); + offset += cff_pack_charsets(cffont, dest + offset, destlen - offset); + + /* FDSelect */ + cff_dict_set(cffont->topdict, "FDSelect", 0, offset); + offset += cff_pack_fdselect(cffont, dest + offset, destlen - offset); + + /* CharStrings */ + cff_dict_set(cffont->topdict, "CharStrings", 0, offset); + offset += cff_pack_index(cffont->cstrings, + dest + offset, cff_index_size(cffont->cstrings)); + cff_release_index(cffont->cstrings); + cffont->cstrings = NULL; /* Charstrings cosumes huge memory */ + + /* FDArray and Private */ + cff_dict_set(cffont->topdict, "FDArray", 0, offset); + fdarray_offset = offset; + offset += cff_index_size(fdarray); + + fdarray->data = NEW(fdarray->offset[fdarray->count] - 1, card8); + for (i = 0; i < cffont->num_fds; i++) { + size = private->offset[i+1] - private->offset[i]; + if (cffont->private[i] && size > 0) { + cff_dict_pack(cffont->private[i], dest + offset, size); + cff_dict_set(cffont->fdarray[i], "Private", 0, size); + cff_dict_set(cffont->fdarray[i], "Private", 1, offset); + } + cff_dict_pack(cffont->fdarray[i], + fdarray->data + (fdarray->offset)[i] - 1, + fdarray->offset[fdarray->count] - 1); + offset += size; + } + + cff_pack_index(fdarray, dest + fdarray_offset, cff_index_size(fdarray)); + cff_release_index(fdarray); + cff_release_index(private); + + /* Finally Top DICT */ + topdict->data = NEW(topdict->offset[topdict->count] - 1, card8); + cff_dict_pack(cffont->topdict, + topdict->data, topdict->offset[topdict->count] - 1); + cff_pack_index(topdict, dest + topdict_offset, cff_index_size(topdict)); + cff_release_index(topdict); + + /* + * FontFile + */ + { + pdf_obj *fontfile, *stream_dict; + + fontfile = pdf_new_stream(STREAM_COMPRESS); + stream_dict = pdf_stream_dict(fontfile); + pdf_add_dict(font->descriptor, + pdf_new_name("FontFile3"), + pdf_ref_obj (fontfile)); + pdf_add_dict(stream_dict, + pdf_new_name("Subtype"), + pdf_new_name("CIDFontType0C")); + pdf_add_stream(fontfile, (char *) dest, offset); + pdf_release_obj(fontfile); + RELEASE(dest); + } + + return destlen; +} + +void +CIDFont_type0_dofont (CIDFont *font) +{ + sfnt *sfont; + cff_font *cffont; + FILE *fp = NULL; + cff_index *charstrings, *idx; + cff_charsets *charset = NULL; + cff_fdselect *fdselect = NULL; + long charstring_len, max_len; + long destlen = 0; + long size, offset = 0; + card8 *data; + card16 num_glyphs, gid; + long cid; + card16 cid_count, cs_count, last_cid; + int fd, prev_fd, parent_id; + char *used_chars; + unsigned char *CIDToGIDMap = NULL; + + ASSERT(font); + + if (!font->indirect) + return; + + pdf_add_dict(font->fontdict, + pdf_new_name("FontDescriptor"), + pdf_ref_obj (font->descriptor)); + + if (CIDFont_is_BaseFont(font)) + return; + else if (!CIDFont_get_embedding(font) && + (opt_flags & CIDFONT_FORCE_FIXEDPITCH)) { + /* No metrics needed. */ + pdf_add_dict(font->fontdict, + pdf_new_name("DW"), pdf_new_number(1000.0)); + return; + } + + if ((parent_id = CIDFont_get_parent_id(font, 0)) < 0 && + (parent_id = CIDFont_get_parent_id(font, 1)) < 0) + ERROR("No parent Type 0 font !"); + + used_chars = Type0Font_get_usedchars(Type0Font_cache_get(parent_id)); + if (!used_chars) + ERROR("Unexpected error: Font not actually used???"); + +#ifdef XETEX + sfont = sfnt_open(font->ft_face, SFNT_TYPE_POSTSCRIPT); +#else + fp = DPXFOPEN(font->ident, DPX_RES_TYPE_OTFONT); + if (!fp) + ERROR("Could not open OpenType font file: %s", font->ident); + sfont = sfnt_open(fp); +#endif + if (!sfont) + ERROR("Could not open OpenType font file: %s", font->ident); + + if (sfnt_read_table_directory(sfont, 0) < 0 || + sfont->type != SFNT_TYPE_POSTSCRIPT) + ERROR("Not a CFF/OpenType font ?"); + offset = sfnt_find_table_pos(sfont, "CFF "); + if (offset == 0) + ERROR("Not a CFF/OpenType font ?"); + + cffont = cff_open(sfont, offset, font->options->index); + if (!cffont) + ERROR("Could not open CFF font."); + if (!(cffont->flag & FONTTYPE_CIDFONT)) + ERROR("Not a CIDFont."); + + if (cff_dict_known(cffont->topdict, "CIDCount")) { + cid_count = (card16) cff_dict_get(cffont->topdict, "CIDCount", 0); + } else { + cid_count = CFF_CIDCOUNT_DEFAULT; + } + + cff_read_charsets(cffont); + CIDToGIDMap = NEW(2*cid_count, unsigned char); + memset(CIDToGIDMap, 0, 2*cid_count); + add_to_used_chars2(used_chars, 0); /* .notdef */ + cid = 0; last_cid = 0; num_glyphs = 0; + for (cid = 0; cid <= CID_MAX; cid++) { + if (is_used_char2(used_chars, cid)) { + if (cid >= cid_count) { + WARN("Glyph for CID %u missing in font \"%s\".", (CID) cid, font->ident); + used_chars[cid/8] &= ~(1 << (7 - (cid % 8))); + continue; + } + gid = cff_charsets_lookup(cffont, cid); + if (cid != 0 && gid == 0) { + WARN("Glyph for CID %u missing in font \"%s\".", (CID) cid, font->ident); + used_chars[cid/8] &= ~(1 << (7 - (cid % 8))); + continue; + } + CIDToGIDMap[2*cid] = (gid >> 8) & 0xff; + CIDToGIDMap[2*cid+1] = gid & 0xff; + last_cid = cid; + num_glyphs++; + } + } + + /* + * DW, W, DW2 and W2: + * Those values are obtained from OpenType table (not TFM). + */ + if (opt_flags & CIDFONT_FORCE_FIXEDPITCH) { + pdf_add_dict(font->fontdict, + pdf_new_name("DW"), pdf_new_number(1000.0)); + } else { + add_CIDMetrics(sfont, font->fontdict, CIDToGIDMap, last_cid, + ((CIDFont_get_parent_id(font, 1) < 0) ? 0 : 1)); + } + + if (!CIDFont_get_embedding(font)) { + RELEASE(CIDToGIDMap); + cff_close(cffont); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + return; + } + + /* + * Embed font subset. + */ + cff_read_fdselect(cffont); + cff_read_fdarray(cffont); + cff_read_private(cffont); + + cff_read_subrs(cffont); + + offset = (long) cff_dict_get(cffont->topdict, "CharStrings", 0); + cff_seek_set(cffont, offset); + idx = cff_get_index_header(cffont); + /* offset is now absolute offset ... bad */ + offset = cffont->sfont->loc; + + if ((cs_count = idx->count) < 2) { + ERROR("No valid charstring data found."); + } + + /* New Charsets data */ + charset = NEW(1, cff_charsets); + charset->format = 0; + charset->num_entries = 0; + charset->data.glyphs = NEW(num_glyphs, s_SID); + + /* New FDSelect data */ + fdselect = NEW(1, cff_fdselect); + fdselect->format = 3; + fdselect->num_entries = 0; + fdselect->data.ranges = NEW(num_glyphs, cff_range3); + + /* New CharStrings INDEX */ + charstrings = cff_new_index(num_glyphs+1); + max_len = 2 * CS_STR_LEN_MAX; + charstrings->data = NEW(max_len, card8); + charstring_len = 0; + + /* + * TODO: Re-assign FD number. + */ + prev_fd = -1; gid = 0; + data = NEW(CS_STR_LEN_MAX, card8); + for (cid = 0; cid <= last_cid; cid++) { + unsigned short gid_org; + + if (!is_used_char2(used_chars, cid)) + continue; + + gid_org = (CIDToGIDMap[2*cid] << 8)|(CIDToGIDMap[2*cid+1]); + if ((size = (idx->offset)[gid_org+1] - (idx->offset)[gid_org]) + > CS_STR_LEN_MAX) + ERROR("Charstring too long: gid=%u", gid_org); + if (charstring_len + CS_STR_LEN_MAX >= max_len) { + max_len = charstring_len + 2 * CS_STR_LEN_MAX; + charstrings->data = RENEW(charstrings->data, max_len, card8); + } + (charstrings->offset)[gid] = charstring_len + 1; + sfnt_seek_set(cffont->sfont, offset + (idx->offset)[gid_org] - 1); + sfnt_read(data, size, cffont->sfont); + fd = cff_fdselect_lookup(cffont, gid_org); + charstring_len += cs_copy_charstring(charstrings->data + charstring_len, + max_len - charstring_len, + data, size, + cffont->gsubr, (cffont->subrs)[fd], 0, 0, NULL); + if (cid > 0 && gid_org > 0) { + charset->data.glyphs[charset->num_entries] = cid; + charset->num_entries += 1; + } + if (fd != prev_fd) { + fdselect->data.ranges[fdselect->num_entries].first = gid; + fdselect->data.ranges[fdselect->num_entries].fd = fd; + fdselect->num_entries += 1; + prev_fd = fd; + } + gid++; + } + if (gid != num_glyphs) + ERROR("Unexpeced error: ?????"); + RELEASE(data); + cff_release_index(idx); + + RELEASE(CIDToGIDMap); + + (charstrings->offset)[num_glyphs] = charstring_len + 1; + charstrings->count = num_glyphs; + cffont->num_glyphs = num_glyphs; + cffont->cstrings = charstrings; + + /* discard old one, set new data */ + cff_release_charsets(cffont->charsets); + cffont->charsets = charset; + cff_release_fdselect(cffont->fdselect); + cffont->fdselect = fdselect; + + /* no Global subr */ + if (cffont->gsubr) + cff_release_index(cffont->gsubr); + cffont->gsubr = cff_new_index(0); + + for (fd = 0; fd < cffont->num_fds; fd++) { + if (cffont->subrs && cffont->subrs[fd]) { + cff_release_index(cffont->subrs[fd]); + cffont->subrs[fd] = NULL; + } + if (cffont->private && (cffont->private)[fd]) { + cff_dict_remove((cffont->private)[fd], "Subrs"); /* no Subrs */ + } + } + + destlen = write_fontfile(font, cffont); + + cff_close(cffont); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + if (verbose > 1) + MESG("[%u/%u glyphs][%ld bytes]", num_glyphs, cs_count, destlen); + + /* + * CIDSet: + * Length of CIDSet stream is not clear. Must be 8192 bytes long? + */ + { + pdf_obj *cidset; + + cidset = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(cidset, used_chars, (last_cid/8)+1); + pdf_add_dict(font->descriptor, + pdf_new_name("CIDSet"), pdf_ref_obj(cidset)); + pdf_release_obj(cidset); + } + + return; +} + +int +CIDFont_type0_open (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt) +{ + CIDSysInfo *csi; + char *fontname; + sfnt *sfont; + cff_font *cffont; + FILE *fp = NULL; + unsigned long offset = 0; + + ASSERT(font); + +#ifdef XETEX + sfont = sfnt_open(font->ft_face, SFNT_TYPE_POSTSCRIPT); + if (!sfont) + return -1; +#else + fp = DPXFOPEN(name, DPX_RES_TYPE_OTFONT); + if (!fp) + return -1; + + sfont = sfnt_open(fp); + if (!sfont) { + ERROR("Not a CFF/OpenType font?"); + } +#endif + if (sfont->type != SFNT_TYPE_POSTSCRIPT || + sfnt_read_table_directory(sfont, 0) < 0 || + (offset = sfnt_find_table_pos(sfont, "CFF ")) == 0) { + ERROR("Not a CFF/OpenType font?"); + } + + cffont = cff_open(sfont, offset, opt->index); + if (!cffont) { + ERROR("Cannot read CFF font data"); + } + + if (!(cffont->flag & FONTTYPE_CIDFONT)) { + cff_close(cffont); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + } + + csi = NEW(1, CIDSysInfo); + csi->registry = + cff_get_string(cffont, (s_SID)cff_dict_get(cffont->topdict, "ROS", 0)); + csi->ordering = + cff_get_string(cffont, (s_SID)cff_dict_get(cffont->topdict, "ROS", 1)); + csi->supplement = (int)cff_dict_get(cffont->topdict, "ROS", 2); + + if (cmap_csi) { + if (strcmp(csi->registry, cmap_csi->registry) != 0 || + strcmp(csi->ordering, cmap_csi->ordering) != 0) { + MESG("\nCharacter collection mismatched:\n"); + MESG("\tFont: %s-%s-%d\n", csi->registry, csi->ordering, csi->supplement); + MESG("\tCMap: %s-%s-%d\n", cmap_csi->registry, cmap_csi->ordering, cmap_csi->supplement); + ERROR("Inconsistent CMap specified for this font."); + } + if (csi->supplement < cmap_csi->supplement) { + WARN("CMap have higher supplmement number."); + WARN("Some characters may not be displayed or printed."); + } + } + + { + char *shortname; + + shortname = cff_get_name(cffont); + if (!shortname) + ERROR("No valid FontName found."); + /* + * Mangled name requires more 7 bytes. + * Style requires more 11 bytes. + */ + fontname = NEW(strlen(shortname)+19, char); + memset(fontname, 0, strlen(shortname)+19); + strcpy(fontname, shortname); + RELEASE(shortname); + } + cff_close(cffont); + + if (opt->embed && opt->style != FONT_STYLE_NONE) { + WARN("Embedding disabled due to style option for %s.", name); + opt->embed = 0; + } + switch (opt->style) { + case FONT_STYLE_BOLD: + strcat(fontname, ",Bold"); + break; + case FONT_STYLE_ITALIC: + strcat(fontname, ",Italic"); + break; + case FONT_STYLE_BOLDITALIC: + strcat(fontname, ",BoldItalic"); + break; + } + + font->fontname = fontname; + font->subtype = CIDFONT_TYPE0; + font->csi = csi; + + font->fontdict = pdf_new_dict(); + pdf_add_dict(font->fontdict, + pdf_new_name("Type"), + pdf_new_name("Font")); + pdf_add_dict(font->fontdict, + pdf_new_name("Subtype"), + pdf_new_name("CIDFontType0")); + + /* getting font info. from TrueType tables */ + if ((font->descriptor + = tt_get_fontdesc(sfont, &(opt->embed), 0)) == NULL) + ERROR("Could not obtain neccesary font info."); + + if (opt->embed) { + memmove(fontname + 7, fontname, strlen(fontname) + 1); + pdf_font_make_uniqueTag(fontname); + fontname[6] = '+'; + } + + pdf_add_dict(font->descriptor, + pdf_new_name("FontName"), + pdf_new_name(fontname)); + pdf_add_dict(font->fontdict, + pdf_new_name("BaseFont"), + pdf_new_name(fontname)); + { + pdf_obj *csi_dict = pdf_new_dict(); + pdf_add_dict(csi_dict, + pdf_new_name("Registry"), + pdf_new_string(csi->registry, strlen(csi->registry))); + pdf_add_dict(csi_dict, + pdf_new_name("Ordering"), + pdf_new_string(csi->ordering, strlen(csi->ordering))); + pdf_add_dict(csi_dict, + pdf_new_name("Supplement"), + pdf_new_number(csi->supplement)); + pdf_add_dict(font->fontdict, pdf_new_name("CIDSystemInfo"), csi_dict); + } + pdf_add_dict(font->fontdict, + pdf_new_name("DW"), + pdf_new_number(1000)); /* not sure */ + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + return 0; +} + +void +CIDFont_type0_t1cdofont (CIDFont *font) +{ + sfnt *sfont; + cff_font *cffont; + cff_index *charstrings, *idx; + long charstring_len, max_len; + long destlen = 0; + long size, offset = 0; + card8 *data; + card16 num_glyphs, gid, last_cid; + long i, cid; + int parent_id; + char *used_chars; + double default_width, nominal_width; + FILE *fp = NULL; + + ASSERT(font); + + if (!font->indirect) + return; + + pdf_add_dict(font->fontdict, + pdf_new_name("FontDescriptor"), + pdf_ref_obj (font->descriptor)); + + if ((parent_id = CIDFont_get_parent_id(font, 0)) < 0 && + (parent_id = CIDFont_get_parent_id(font, 1)) < 0) + ERROR("No parent Type 0 font !"); + + used_chars = Type0Font_get_usedchars(Type0Font_cache_get(parent_id)); + if (!used_chars) + ERROR("Unexpected error: Font not actually used???"); + +#ifdef XETEX + sfont = sfnt_open(font->ft_face, SFNT_TYPE_POSTSCRIPT); +#else + fp = DPXFOPEN(font->ident, DPX_RES_TYPE_OTFONT); + if (!fp) + ERROR("Could not open OpenType font file: %s", font->ident); + + sfont = sfnt_open(fp); +#endif + if (!sfont) + ERROR("Could not open OpenType font file: %s", font->ident); + + if (sfnt_read_table_directory(sfont, 0) < 0 || + sfont->type != SFNT_TYPE_POSTSCRIPT) + ERROR("Not a CFF/OpenType font ?"); + offset = sfnt_find_table_pos(sfont, "CFF "); + if (offset == 0) + ERROR("Not a CFF/OpenType font ?"); + + cffont = cff_open(sfont, offset, font->options->index); + if (!cffont) + ERROR("Could not open CFF font."); + if (cffont->flag & FONTTYPE_CIDFONT) + ERROR("This is CIDFont..."); + + cff_read_private(cffont); + cff_read_subrs (cffont); + + if (cffont->private[0] && cff_dict_known(cffont->private[0], "StdVW")) { + double stemv; + stemv = cff_dict_get(cffont->private[0], "StdVW", 0); + pdf_add_dict(font->descriptor, + pdf_new_name("StemV"), pdf_new_number(stemv)); + } + if (cffont->private[0] && cff_dict_known(cffont->private[0], "defaultWidthX")) { + default_width = (double) cff_dict_get(cffont->private[0], "defaultWidthX", 0); + } else { + default_width = CFF_DEFAULTWIDTHX_DEFAULT; + } + if (cffont->private[0] && cff_dict_known(cffont->private[0], "nominalWidthX")) { + nominal_width = (double) cff_dict_get(cffont->private[0], "nominalWidthX", 0); + } else { + nominal_width = CFF_NOMINALWIDTHX_DEFAULT; + } + + num_glyphs = 0; last_cid = 0; + add_to_used_chars2(used_chars, 0); /* .notdef */ + for (i = 0; i < (cffont->num_glyphs + 7)/8; i++) { + int c, j; + + c = used_chars[i]; + for (j = 7; j >= 0; j--) { + if (c & (1 << j)) { + num_glyphs++; + last_cid = (i + 1) * 8 - j - 1; + } + } + } + + { + cff_fdselect *fdselect; + + fdselect = NEW(1, cff_fdselect); + fdselect->format = 3; + fdselect->num_entries = 1; + fdselect->data.ranges = NEW(1, cff_range3); + fdselect->data.ranges[0].first = 0; + fdselect->data.ranges[0].fd = 0; + cffont->fdselect = fdselect; + } + + { + cff_charsets *charset; + + charset = NEW(1, cff_charsets); + charset->format = 0; + charset->num_entries = num_glyphs-1; + charset->data.glyphs = NEW(num_glyphs-1, s_SID); + + for (gid = 0, cid = 0; cid <= last_cid; cid++) { + if (is_used_char2(used_chars, cid)) { + if (gid > 0) + charset->data.glyphs[gid-1] = cid; + gid++; + } + } + /* cff_release_charsets(cffont->charsets); */ + cffont->charsets = charset; + } + + cff_dict_add(cffont->topdict, "CIDCount", 1); + cff_dict_set(cffont->topdict, "CIDCount", 0, last_cid + 1); + + cffont->fdarray = NEW(1, cff_dict *); + cffont->fdarray[0] = cff_new_dict(); + cff_dict_add(cffont->fdarray[0], "FontName", 1); + cff_dict_set(cffont->fdarray[0], "FontName", 0, + (double) cff_add_string(cffont, font->fontname + 7)); /* FIXME: Skip XXXXXX+ */ + cff_dict_add(cffont->fdarray[0], "Private", 2); + cff_dict_set(cffont->fdarray[0], "Private", 0, 0.0); + cff_dict_set(cffont->fdarray[0], "Private", 0, 0.0); + /* FDArray - index offset, not known yet */ + cff_dict_add(cffont->topdict, "FDArray", 1); + cff_dict_set(cffont->topdict, "FDArray", 0, 0.0); + /* FDSelect - offset, not known yet */ + cff_dict_add(cffont->topdict, "FDSelect", 1); + cff_dict_set(cffont->topdict, "FDSelect", 0, 0.0); + + cff_dict_remove(cffont->topdict, "UniqueID"); + cff_dict_remove(cffont->topdict, "XUID"); + cff_dict_remove(cffont->topdict, "Private"); + cff_dict_remove(cffont->topdict, "Encoding"); + + + /* */ + offset = (long) cff_dict_get(cffont->topdict, "CharStrings", 0); + cff_seek_set(cffont, offset); + idx = cff_get_index_header(cffont); + /* offset is now absolute offset ... bad */ + offset = cffont->sfont->loc; + + if (idx->count < 2) + ERROR("No valid charstring data found."); + + /* New CharStrings INDEX */ + charstrings = cff_new_index(num_glyphs+1); + max_len = 2 * CS_STR_LEN_MAX; + charstrings->data = NEW(max_len, card8); + charstring_len = 0; + + gid = 0; + data = NEW(CS_STR_LEN_MAX, card8); + for (cid = 0; cid <= last_cid; cid++) { + if (!is_used_char2(used_chars, cid)) + continue; + + if ((size = (idx->offset)[cid+1] - (idx->offset)[cid]) + > CS_STR_LEN_MAX) + ERROR("Charstring too long: gid=%u", cid); + if (charstring_len + CS_STR_LEN_MAX >= max_len) { + max_len = charstring_len + 2 * CS_STR_LEN_MAX; + charstrings->data = RENEW(charstrings->data, max_len, card8); + } + (charstrings->offset)[gid] = charstring_len + 1; + sfnt_seek_set(cffont->sfont, offset + (idx->offset)[cid] - 1); + sfnt_read(data, size, cffont->sfont); + charstring_len += cs_copy_charstring(charstrings->data + charstring_len, + max_len - charstring_len, + data, size, + cffont->gsubr, (cffont->subrs)[0], + default_width, nominal_width, NULL); + gid++; + } + if (gid != num_glyphs) + ERROR("Unexpeced error: ?????"); + RELEASE(data); + cff_release_index(idx); + + (charstrings->offset)[num_glyphs] = charstring_len + 1; + charstrings->count = num_glyphs; + cffont->num_glyphs = num_glyphs; + cffont->cstrings = charstrings; + + /* no Global subr */ + if (cffont->gsubr) + cff_release_index(cffont->gsubr); + cffont->gsubr = cff_new_index(0); + + if (cffont->subrs && cffont->subrs[0]) { + cff_release_index(cffont->subrs[0]); + cffont->subrs[0] = NULL; + } + if (cffont->private && (cffont->private)[0]) { + cff_dict_remove((cffont->private)[0], "Subrs"); /* no Subrs */ + } + + cff_add_string(cffont, (char *)"Adobe"); + cff_add_string(cffont, (char *)"Identity"); + + cff_dict_update(cffont->topdict, cffont); + cff_dict_update(cffont->private[0], cffont); + cff_update_string(cffont); + + /* CFF code need to be rewrote... */ + cff_dict_add(cffont->topdict, "ROS", 3); + cff_dict_set(cffont->topdict, "ROS", 0, + (double) cff_get_sid(cffont, (char *)"Adobe")); + cff_dict_set(cffont->topdict, "ROS", 1, + (double) cff_get_sid(cffont, (char *)"Identity")); + cff_dict_set(cffont->topdict, "ROS", 2, 0.0); + + destlen = write_fontfile(font, cffont); + + cff_close(cffont); + + /* + * DW, W, DW2 and W2: + * Those values are obtained from OpenType table (not TFM). + */ + { + unsigned char *CIDToGIDMap; + + CIDToGIDMap = NEW(2 * (last_cid+1), unsigned char); + memset(CIDToGIDMap, 0, 2 * (last_cid + 1)); + for (cid = 0; cid <= last_cid; cid++) { + if (is_used_char2(used_chars, cid)) { + CIDToGIDMap[2*cid ] = (cid >> 8) & 0xff; + CIDToGIDMap[2*cid+1] = cid & 0xff; + } + } + add_CIDMetrics(sfont, font->fontdict, CIDToGIDMap, last_cid, + ((CIDFont_get_parent_id(font, 1) < 0) ? 0 : 1)); + RELEASE(CIDToGIDMap); + } + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + if (verbose > 1) + MESG("[%u glyphs][%ld bytes]", num_glyphs, destlen); + + /* + * CIDSet: + * Length of CIDSet stream is not clear. Must be 8192 bytes long? + */ + { + pdf_obj *cidset; + + cidset = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(cidset, used_chars, (last_cid/8)+1); + pdf_add_dict(font->descriptor, + pdf_new_name("CIDSet"), pdf_ref_obj(cidset)); + pdf_release_obj(cidset); + } + + return; +} + +int +CIDFont_type0_t1copen (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt) +{ + CIDSysInfo *csi; + char *fontname; + sfnt *sfont; + cff_font *cffont; + unsigned long offset = 0; + FILE *fp = NULL; + + ASSERT(font); + +#ifdef XETEX + sfont = sfnt_open(font->ft_face, SFNT_TYPE_POSTSCRIPT); + if (!sfont) + return -1; +#else + fp = DPXFOPEN(name, DPX_RES_TYPE_OTFONT); + if (!fp) + return -1; + + sfont = sfnt_open(fp); +#endif + if (!sfont) { + ERROR("Not a CFF/OpenType font?"); + } + if (sfont->type != SFNT_TYPE_POSTSCRIPT || + sfnt_read_table_directory(sfont, 0) < 0 || + (offset = sfnt_find_table_pos(sfont, "CFF ")) == 0) { + ERROR("Not a CFF/OpenType font?"); + } + + cffont = cff_open(sfont, offset, opt->index); + if (!cffont) { + ERROR("Cannot read CFF font data"); + } + + if (cffont->flag & FONTTYPE_CIDFONT) { + cff_close(cffont); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + return -1; + } + + csi = NEW(1, CIDSysInfo); + csi->registry = NEW(strlen("Adobe")+1, char); + strcpy(csi->registry, "Adobe"); + csi->ordering = NEW(strlen("Identity")+1, char); + strcpy(csi->ordering, "Identity"); + csi->supplement = 0; + + if (cmap_csi) { + if (strcmp(csi->registry, cmap_csi->registry) != 0 || + strcmp(csi->ordering, cmap_csi->ordering) != 0) { + MESG("\nCharacter collection mismatched:\n"); + MESG("\tFont: %s-%s-%d\n", csi->registry, csi->ordering, csi->supplement); + MESG("\tCMap: %s-%s-%d\n", cmap_csi->registry, cmap_csi->ordering, cmap_csi->supplement); + ERROR("Inconsistent CMap specified for this font."); + } + if (csi->supplement < cmap_csi->supplement) { + WARN("CMap have higher supplmement number."); + WARN("Some characters may not be displayed or printed."); + } + } + + { + char *shortname; + + shortname = cff_get_name(cffont); + if (!shortname) + ERROR("No valid FontName found."); + /* Mangled name requires more 7 bytes. */ + + fontname = NEW(strlen(shortname) + 8, char); + memset(fontname, 0, strlen(shortname) + 8); + strcpy(fontname, shortname); + RELEASE(shortname); + } + cff_close(cffont); + + opt->embed = 1; + + font->fontname = fontname; + font->subtype = CIDFONT_TYPE0; + font->csi = csi; + font->flags |= CIDFONT_FLAG_TYPE1C; + + font->fontdict = pdf_new_dict(); + pdf_add_dict(font->fontdict, + pdf_new_name("Type"), + pdf_new_name("Font")); + pdf_add_dict(font->fontdict, + pdf_new_name("Subtype"), + pdf_new_name("CIDFontType0")); + + /* getting font info. from TrueType tables */ + if ((font->descriptor + = tt_get_fontdesc(sfont, &(opt->embed), 0)) == NULL) + ERROR("Could not obtain neccesary font info."); + + if (opt->embed) { + memmove(fontname + 7, fontname, strlen(fontname) + 1); + pdf_font_make_uniqueTag(fontname); + fontname[6] = '+'; + } + + pdf_add_dict(font->descriptor, + pdf_new_name("FontName"), + pdf_new_name(fontname)); + pdf_add_dict(font->fontdict, + pdf_new_name("BaseFont"), + pdf_new_name(fontname)); + { + pdf_obj *csi_dict = pdf_new_dict(); + pdf_add_dict(csi_dict, + pdf_new_name("Registry"), + pdf_new_string(csi->registry, strlen(csi->registry))); + pdf_add_dict(csi_dict, + pdf_new_name("Ordering"), + pdf_new_string(csi->ordering, strlen(csi->ordering))); + pdf_add_dict(csi_dict, + pdf_new_name("Supplement"), + pdf_new_number(csi->supplement)); + pdf_add_dict(font->fontdict, pdf_new_name("CIDSystemInfo"), csi_dict); + } + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + return 0; +} + + +/* Type1 --> CFF CIDFont */ +#include "unicode.h" +#include "t1_load.h" +#include "t1_char.h" + +#include "agl.h" + +#include "cmap.h" +#include "cmap_write.h" +#include "fontmap.h" + +static int +load_base_CMap (const char *font_name, int wmode, cff_font *cffont) +{ + int cmap_id = -1; + CMap *cmap; + char *cmap_name; + card16 gid; + unsigned char range_min[4] = {0x00, 0x00, 0x00, 0x00}; + unsigned char range_max[4] = {0x7f, 0xff, 0xff, 0xff}; + + cmap_name = NEW(strlen(font_name)+strlen("-UCS4-H")+1, char); + if (wmode) { + sprintf(cmap_name, "%s-UCS4-V", font_name); + } else { + sprintf(cmap_name, "%s-UCS4-H", font_name); + } + + cmap_id = CMap_cache_find(cmap_name); + if (cmap_id >= 0) { + RELEASE(cmap_name); + return cmap_id; + } + + cmap = CMap_new(); + CMap_set_name (cmap, cmap_name); + CMap_set_type (cmap, CMAP_TYPE_CODE_TO_CID); + CMap_set_wmode(cmap, wmode); + CMap_add_codespacerange(cmap, range_min, range_max, 4); + CMap_set_CIDSysInfo(cmap, &CSI_IDENTITY); + RELEASE(cmap_name); + + for (gid = 1; gid < cffont->num_glyphs; gid++) { + long ucv; + s_SID sid; + char *glyph, *name, *suffix; + unsigned char srcCode[4]; + + sid = cff_charsets_lookup_inverse(cffont, gid); + glyph = cff_get_string (cffont, sid); + + name = agl_chop_suffix(glyph, &suffix); + if (!name) { + if (suffix) + RELEASE(suffix); + RELEASE(glyph); + continue; + } + + if (suffix) { + RELEASE(name); + RELEASE(suffix); + RELEASE(glyph); + continue; + } + + if (agl_name_is_unicode(name)) { + ucv = agl_name_convert_unicode(name); + srcCode[0] = (ucv >> 24) & 0xff; + srcCode[1] = (ucv >> 16) & 0xff; + srcCode[2] = (ucv >> 8) & 0xff; + srcCode[3] = ucv & 0xff; + CMap_add_cidchar(cmap, srcCode, 4, gid); + } else { + agl_name *agln; + + agln = agl_lookup_list(name); + if (!agln) + WARN("Glyph \"%s\" inaccessible (no Unicode mapping)", glyph); + while (agln) { + if (agln->n_components > 1) { + WARN("Glyph \"%s\" inaccessible (composite character)", glyph); + } else if (agln->n_components == 1) { + ucv = agln->unicodes[0]; + srcCode[0] = (ucv >> 24) & 0xff; + srcCode[1] = (ucv >> 16) & 0xff; + srcCode[2] = (ucv >> 8) & 0xff; + srcCode[3] = ucv & 0xff; + CMap_add_cidchar(cmap, srcCode, 4, gid); + } + agln = agln->alternate; + } + } + RELEASE(name); + if (suffix) + RELEASE(suffix); + RELEASE(glyph); + } + cmap_id = CMap_cache_add(cmap); + + return cmap_id; +} + +int +t1_load_UnicodeCMap (const char *font_name, + const char *otl_tags, /* not supported yet */ + int wmode) +{ + int cmap_id = -1; + cff_font *cffont; + FILE *fp; + + if (!font_name) + return -1; + + fp = DPXFOPEN(font_name, DPX_RES_TYPE_T1FONT); + if (!fp) + return -1; + + cffont = t1_load_font(NULL, 1, fp); + DPXFCLOSE(fp); + if (!cffont) + return -1; + + cmap_id = load_base_CMap(font_name, wmode, cffont); + + cff_close(cffont); + + if (cmap_id < 0) { + ERROR("Failed to create Unicode charmap for font \"%s\".", font_name); + return -1; + } + + if (otl_tags) { + WARN("Glyph substitution not supported for Type1 font yet..."); + } + + return cmap_id; +} + + +/* + * ToUnicode CMap + */ + +static pdf_obj * +create_ToUnicode_stream (cff_font *cffont, + const char *font_name, const char *used_glyphs) +{ + pdf_obj *stream = NULL; + CMap *cmap; + CID cid; + card16 gid; + long glyph_count, total_fail_count; + char *cmap_name; +#define WBUF_SIZE 1024 + unsigned char wbuf[WBUF_SIZE]; + unsigned char *p, *endptr; + static unsigned char range_min[2] = {0x00, 0x00}; + static unsigned char range_max[2] = {0xff, 0xff}; + + if (!font_name || !used_glyphs) + return NULL; + + cmap = CMap_new(); + + cmap_name = NEW(strlen(font_name)+strlen("-UTF16")+1, char); + strcpy(cmap_name, font_name); + strcat(cmap_name, "-UTF16"); + CMap_set_name (cmap, cmap_name); + RELEASE(cmap_name); + + CMap_set_wmode(cmap, 0); + CMap_set_type (cmap, CMAP_TYPE_TO_UNICODE); + CMap_set_CIDSysInfo(cmap, &CSI_UNICODE); + + CMap_add_codespacerange(cmap, range_min, range_max, 2); + + glyph_count = total_fail_count = 0; + p = wbuf; + endptr = wbuf + WBUF_SIZE; + for (cid = 1; cid < cffont->num_glyphs; cid++) { /* Skip .notdef */ + if (is_used_char2(used_glyphs, cid)) { + char *glyph; + long len; + int fail_count; + + wbuf[0] = (cid >> 8) & 0xff; + wbuf[1] = (cid & 0xff); + + p = wbuf + 2; + gid = cff_charsets_lookup_inverse(cffont, cid); + if (gid == 0) + continue; + glyph = cff_get_string(cffont, gid); + if (glyph) { + len = agl_sput_UTF16BE(glyph, &p, endptr, &fail_count); + if (len < 1 || fail_count) { + total_fail_count += fail_count; + } else { + CMap_add_bfchar(cmap, wbuf, 2, wbuf+2, len); + } + RELEASE(glyph); + } + glyph_count++; + } + } + + if (total_fail_count != 0 && + total_fail_count >= glyph_count/10) { + WARN("%d glyph names (out of %d) missing Unicode mapping.", + total_fail_count, glyph_count); + WARN("ToUnicode CMap \"%s-UTF16\" removed.", font_name); + } else { + stream = CMap_create_stream(cmap, 0); + } + CMap_release(cmap); + + return stream; +} + + +int +CIDFont_type0_t1open (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt) +{ + FILE *fp; + char *fontname, *shortname; + cff_font *cffont; +#ifdef XETEX + unsigned short *ft_to_gid; +#endif + + ASSERT(font); + + if (cmap_csi && + (strcmp(cmap_csi->registry, "Adobe") != 0 || + strcmp(cmap_csi->ordering, "Identity") != 0)) { + return -1; + } + fp = DPXFOPEN(name, DPX_RES_TYPE_T1FONT); + if (!fp) + return -1; + + cffont = t1_load_font(NULL, 1, fp); + if (!cffont) { + DPXFCLOSE(fp); + return -1; + } + DPXFCLOSE(fp); + + shortname = cff_get_name(cffont); + if (!shortname) + ERROR("No valid FontName found."); + fontname = NEW(strlen(shortname) + 8, char); + memset(fontname, 0, strlen(shortname) + 8); + strcpy(fontname, shortname); + RELEASE(shortname); + +#ifdef XETEX + font->ft_to_gid = cff_get_ft_to_gid(cffont); +#endif + + cff_close(cffont); + + if (opt->style != FONT_STYLE_NONE) { + WARN(",Bold, ,Italic, ... not supported for this type of font..."); + opt->style = FONT_STYLE_NONE; + } + + font->fontname = fontname; + font->subtype = CIDFONT_TYPE0; + font->csi = NEW(1, CIDSysInfo); + font->csi->registry = NEW(strlen("Adobe")+1, char); + strcpy(font->csi->registry, "Adobe"); + font->csi->ordering = NEW(strlen("Identity")+1, char); + strcpy(font->csi->ordering, "Identity"); + font->csi->supplement = 0; + font->flags |= CIDFONT_FLAG_TYPE1; + + font->fontdict = pdf_new_dict(); + pdf_add_dict(font->fontdict, + pdf_new_name("Type"), + pdf_new_name("Font")); + pdf_add_dict(font->fontdict, + pdf_new_name("Subtype"), + pdf_new_name("CIDFontType0")); + + memmove(fontname + 7, fontname, strlen(fontname) + 1); + pdf_font_make_uniqueTag(fontname); + fontname[6] = '+'; + + font->descriptor = pdf_new_dict(); + pdf_add_dict(font->descriptor, + pdf_new_name("FontName"), + pdf_new_name(fontname)); + pdf_add_dict(font->fontdict, + pdf_new_name("BaseFont"), + pdf_new_name(fontname)); + { + pdf_obj *csi_dict; + + csi_dict = pdf_new_dict(); + pdf_add_dict(csi_dict, + pdf_new_name("Registry"), + pdf_new_string("Adobe", strlen("Adobe"))); + pdf_add_dict(csi_dict, + pdf_new_name("Ordering"), + pdf_new_string("Identity", strlen("Identity"))); + pdf_add_dict(csi_dict, + pdf_new_name("Supplement"), + pdf_new_number(0.0)); + pdf_add_dict(font->fontdict, pdf_new_name("CIDSystemInfo"), csi_dict); + } + + + return 0; +} + +/* Duplicate from type1.c */ +#define TYPE1_NAME_LEN_MAX 127 + +#define FONT_FLAG_FIXEDPITCH (1 << 0) /* Fixed-width font */ +#define FONT_FLAG_SERIF (1 << 1) /* Serif font */ +#define FONT_FLAG_SYMBOLIC (1 << 2) /* Symbolic font */ +#define FONT_FLAG_SCRIPT (1 << 3) /* Script font */ +#define FONT_FLAG_STANDARD (1 << 5) /* Adobe Standard Character Set */ +#define FONT_FLAG_ITALIC (1 << 6) /* Italic */ +#define FONT_FLAG_ALLCAP (1 << 16) /* All-cap font */ +#define FONT_FLAG_SMALLCAP (1 << 17) /* Small-cap font */ +#define FONT_FLAG_FORCEBOLD (1 << 18) /* Force bold at small text sizes */ + +/* pdf_font --> CIDFont */ +static void +get_font_attr (CIDFont *font, cff_font *cffont) +{ + double capheight, ascent, descent; + double italicangle, stemv; + double defaultwidth, nominalwidth; + long flags = 0; + long gid; + int i; + static const char *L_c[] = { + "H", "P", "Pi", "Rho", NULL + }; + static const char *L_d[] = { + "p", "q", "mu", "eta", NULL + }; + static const char *L_a[] = { + "b", "h", "lambda", NULL + }; + t1_ginfo gm; + + defaultwidth = 500.0; + nominalwidth = 0.0; + + /* + * CapHeight, Ascent, and Descent is meaningfull only for Latin/Greek/Cyrillic. + * The BlueValues and OtherBlues also have those information. + */ + if (cff_dict_known(cffont->topdict, "FontBBox")) { + /* Default values */ + capheight = ascent = cff_dict_get(cffont->topdict, "FontBBox", 3); + descent = cff_dict_get(cffont->topdict, "FontBBox", 1); + } else { + capheight = 680.0; + ascent = 690.0; + descent = -190.0; + } + if (cff_dict_known(cffont->private[0], "StdVW")) { + stemv = cff_dict_get(cffont->private[0], "StdVW", 0); + } else { + /* + * We may use the following values for StemV: + * Thin - ExtraLight: <= 50 + * Light: 71 + * Regular(Normal): 88 + * Medium: 109 + * SemiBold(DemiBold): 135 + * Bold - Heavy: >= 166 + */ + stemv = 88.0; + } + if (cff_dict_known(cffont->topdict, "ItalicAngle")) { + italicangle = cff_dict_get(cffont->topdict, "ItalicAngle", 0); + if (italicangle != 0.0) + flags |= FONT_FLAG_ITALIC; + } else { + italicangle = 0.0; + } + + /* + * Use "space", "H", "p", and "b" for various values. + * Those characters should not "seac". (no accent) + */ + gid = cff_glyph_lookup(cffont, "space"); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + defaultwidth = gm.wx; + } + + for (i = 0; L_c[i] != NULL; i++) { + gid = cff_glyph_lookup(cffont, L_c[i]); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + capheight = gm.bbox.ury; + break; + } + } + + for (i = 0; L_d[i] != NULL; i++) { + gid = cff_glyph_lookup(cffont, L_d[i]); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + descent = gm.bbox.lly; + break; + } + } + + for (i = 0; L_a[i] != NULL; i++) { + gid = cff_glyph_lookup(cffont, L_a[i]); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + ascent = gm.bbox.ury; + break; + } + } + + if (defaultwidth != 0.0) { + cff_dict_add(cffont->private[0], "defaultWidthX", 1); + cff_dict_set(cffont->private[0], "defaultWidthX", 0, defaultwidth); + } + if (nominalwidth != 0.0) { + cff_dict_add(cffont->private[0], "nominalWidthX", 1); + cff_dict_set(cffont->private[0], "nominalWidthX", 0, nominalwidth); + } + if (cff_dict_known(cffont->private[0], "ForceBold") && + cff_dict_get(cffont->private[0], "ForceBold", 0)) { + flags |= FONT_FLAG_FORCEBOLD; + } + if (cff_dict_known(cffont->private[0], "IsFixedPitch") && + cff_dict_get(cffont->private[0], "IsFixedPitch", 0)) { + flags |= FONT_FLAG_FIXEDPITCH; + } + if (font->fontname && + !strstr(font->fontname, "Sans")) { + flags |= FONT_FLAG_SERIF; + } + flags |= FONT_FLAG_SYMBOLIC; + + pdf_add_dict(font->descriptor, + pdf_new_name("CapHeight"), pdf_new_number(capheight)); + pdf_add_dict(font->descriptor, + pdf_new_name("Ascent"), pdf_new_number(ascent)); + pdf_add_dict(font->descriptor, + pdf_new_name("Descent"), pdf_new_number(descent)); + pdf_add_dict(font->descriptor, + pdf_new_name("ItalicAngle"), pdf_new_number(italicangle)); + pdf_add_dict(font->descriptor, + pdf_new_name("StemV"), pdf_new_number(stemv)); + pdf_add_dict(font->descriptor, + pdf_new_name("Flags"), pdf_new_number(flags)); +} + +static void +add_metrics (CIDFont *font, cff_font *cffont, + unsigned char *CIDToGIDMap, + double *widths, double default_width, CID last_cid) +{ + pdf_obj *tmp; + double val; + card16 cid, gid; + char *used_chars; + int i, parent_id; + + /* + * The original FontBBox of the font is preserved, instead + * of replacing it with tight bounding box calculated from + * charstrings, to prevent Acrobat 4 from greeking text as + * much as possible. + */ + if (!cff_dict_known(cffont->topdict, "FontBBox")) { + ERROR("No FontBBox?"); + } + tmp = pdf_new_array(); + for (i = 0; i < 4; i++) { + val = cff_dict_get(cffont->topdict, "FontBBox", i); + pdf_add_array(tmp, pdf_new_number(ROUND(val, 1.0))); + } + pdf_add_dict(font->descriptor, pdf_new_name("FontBBox"), tmp); + + if ((parent_id = CIDFont_get_parent_id(font, 0)) < 0 && + (parent_id = CIDFont_get_parent_id(font, 1)) < 0) + ERROR("No parent Type 0 font !"); + + used_chars = Type0Font_get_usedchars(Type0Font_cache_get(parent_id)); + if (!used_chars) { + ERROR("Unexpected error: Font not actually used???"); + } + + /* FIXME: + * This writes "CID CID width". + * I think it's better to handle each 8 char block + * and to use "CID_start [ w0 w1 ...]". + */ + tmp = pdf_new_array(); + for (cid = 0; cid <= last_cid; cid++) { + if (is_used_char2(used_chars, cid)) { + gid = (CIDToGIDMap[2*cid] << 8)|CIDToGIDMap[2*cid+1]; + if (widths[gid] != default_width) { + pdf_add_array(tmp, pdf_new_number(cid)); + pdf_add_array(tmp, pdf_new_number(cid)); + pdf_add_array(tmp, pdf_new_number(ROUND(widths[gid], 1.0))); + } + } + } + pdf_add_dict(font->fontdict, + pdf_new_name("DW"), pdf_new_number(default_width)); + if (pdf_array_length(tmp) > 0) { + pdf_add_dict(font->fontdict, pdf_new_name("W"), pdf_ref_obj(tmp)); + } + pdf_release_obj(tmp); +} + +void +CIDFont_type0_t1dofont (CIDFont *font) +{ + cff_font *cffont; + double defaultwidth, nominalwidth; + long num_glyphs = 0; + FILE *fp; + long i, offset; + char *used_chars = NULL; + card16 last_cid, gid, cid; + unsigned char *CIDToGIDMap; + + ASSERT(font); + + if (!font->indirect) { + return; + } + + pdf_add_dict(font->fontdict, + pdf_new_name("FontDescriptor"), + pdf_ref_obj (font->descriptor)); + + fp = DPXFOPEN(font->ident, DPX_RES_TYPE_T1FONT); + if (!fp) { + ERROR("Type1: Could not open Type1 font."); + } + + cffont = t1_load_font(NULL, 0, fp); + if (!cffont) + ERROR("Could not read Type 1 font..."); + DPXFCLOSE(fp); + + if (!font->fontname) + ERROR("Fontname undefined..."); + + { + Type0Font *hparent, *vparent; + pdf_obj *tounicode; + int vparent_id, hparent_id; + + hparent_id = CIDFont_get_parent_id(font, 0); + vparent_id = CIDFont_get_parent_id(font, 1); + if (hparent_id < 0 && vparent_id < 0) + ERROR("No parent Type 0 font !"); + + /* usedchars is same for h and v */ + if (hparent_id < 0) + hparent = NULL; + else { + hparent = Type0Font_cache_get(hparent_id); + used_chars = Type0Font_get_usedchars(hparent); + } + if (vparent_id < 0) + vparent = NULL; + else { + vparent = Type0Font_cache_get(vparent_id); + used_chars = Type0Font_get_usedchars(vparent); + } + if (!used_chars) + ERROR("Unexpected error: Font not actually used???"); + + tounicode = create_ToUnicode_stream(cffont, font->fontname, used_chars); + + if (hparent) + Type0Font_set_ToUnicode(hparent, pdf_ref_obj(tounicode)); + if (vparent) + Type0Font_set_ToUnicode(vparent, pdf_ref_obj(tounicode)); + pdf_release_obj(tounicode); + } + + cff_set_name(cffont, font->fontname); + + /* defaultWidthX, CapHeight, etc. */ + get_font_attr(font, cffont); + if (cff_dict_known(cffont->private[0], "defaultWidthX")) { + defaultwidth = cff_dict_get(cffont->private[0], "defaultWidthX", 0); + } else { + defaultwidth = 0.0; + } + if (cff_dict_known(cffont->private[0], "nominalWidthX")) { + nominalwidth = cff_dict_get(cffont->private[0], "nominalWidthX", 0); + } else { + nominalwidth = 0.0; + } + + num_glyphs = 0; last_cid = 0; + add_to_used_chars2(used_chars, 0); /* .notdef */ + for (i = 0; i < (cffont->num_glyphs + 7)/8; i++) { + int c, j; + + c = used_chars[i]; + for (j = 7; j >= 0; j--) { + if (c & (1 << j)) { + num_glyphs++; + last_cid = (i + 1) * 8 - j - 1; + } + } + } + + { + cff_fdselect *fdselect; + + fdselect = NEW(1, cff_fdselect); + fdselect->format = 3; + fdselect->num_entries = 1; + fdselect->data.ranges = NEW(1, cff_range3); + fdselect->data.ranges[0].first = 0; + fdselect->data.ranges[0].fd = 0; + cffont->fdselect = fdselect; + } + + CIDToGIDMap = NEW(2*(last_cid+1), unsigned char); + memset(CIDToGIDMap, 0, 2*(last_cid+1)); + { + cff_charsets *charset; + + charset = NEW(1, cff_charsets); + charset->format = 0; + charset->num_entries = num_glyphs-1; + charset->data.glyphs = NEW(num_glyphs-1, s_SID); + + for (gid = 0, cid = 0; cid <= last_cid; cid++) { + if (is_used_char2(used_chars, cid)) { + if (gid > 0) + charset->data.glyphs[gid-1] = cid; + CIDToGIDMap[2*cid ] = (gid >> 8) & 0xff; + CIDToGIDMap[2*cid+1] = gid & 0xff; + gid++; + } + } + + cff_release_charsets(cffont->charsets); + cffont->charsets = charset; + } + + cff_dict_add(cffont->topdict, "CIDCount", 1); + cff_dict_set(cffont->topdict, "CIDCount", 0, last_cid + 1); + + cffont->fdarray = NEW(1, cff_dict *); + cffont->fdarray[0] = cff_new_dict(); + cff_dict_add(cffont->fdarray[0], "FontName", 1); + cff_dict_set(cffont->fdarray[0], "FontName", 0, + (double) cff_add_string(cffont, font->fontname + 7)); /* FIXME: Skip XXXXXX+ */ + cff_dict_add(cffont->fdarray[0], "Private", 2); + cff_dict_set(cffont->fdarray[0], "Private", 0, 0.0); + cff_dict_set(cffont->fdarray[0], "Private", 0, 0.0); + + /* FDArray - index offset, not known yet */ + cff_dict_add(cffont->topdict, "FDArray", 1); + cff_dict_set(cffont->topdict, "FDArray", 0, 0.0); + /* FDSelect - offset, not known yet */ + cff_dict_add(cffont->topdict, "FDSelect", 1); + cff_dict_set(cffont->topdict, "FDSelect", 0, 0.0); + + cff_dict_add(cffont->topdict, "charset", 1); + cff_dict_set(cffont->topdict, "charset", 0, 0.0); + + cff_dict_add(cffont->topdict, "CharStrings", 1); + cff_dict_set(cffont->topdict, "CharStrings", 0, 0.0); + + { + cff_index *cstring; + t1_ginfo gm; + long max = 0; + double *widths; + int w_stat[1001], max_count, dw; + + widths = NEW(num_glyphs, double); + memset(w_stat, 0, sizeof(int)*1001); + offset = 0L; + cstring = cff_new_index(num_glyphs); + cstring->data = NULL; + cstring->offset[0] = 1; + gid = 0; + for (cid = 0; cid <= last_cid; cid++) { + if (!is_used_char2(used_chars, cid)) + continue; + + if (offset + CS_STR_LEN_MAX >= max) { + max += CS_STR_LEN_MAX*2; + cstring->data = RENEW(cstring->data, max, card8); + } + offset += t1char_convert_charstring(cstring->data + cstring->offset[gid] - 1, CS_STR_LEN_MAX, + cffont->cstrings->data + cffont->cstrings->offset[cid] - 1, + cffont->cstrings->offset[cid+1] - cffont->cstrings->offset[cid], + cffont->subrs[0], defaultwidth, nominalwidth, &gm); + cstring->offset[gid+1] = offset + 1; + if (gm.use_seac) { + ERROR("This font using the \"seac\" command for accented characters..."); + } + widths[gid] = gm.wx; + if (gm.wx >= 0.0 && gm.wx <= 1000.0) { + w_stat[((int) gm.wx)] += 1; + } + gid++; + } + + cff_release_index(cffont->cstrings); + cffont->cstrings = cstring; + + max_count = 0; dw = -1; + for (i = 0; i <= 1000; i++) { + if (w_stat[i] > max_count) { + dw = i; + max_count = w_stat[i]; + } + } + if (dw >= 0) { + add_metrics(font, cffont, CIDToGIDMap, widths, dw, last_cid); + } else { + add_metrics(font, cffont, CIDToGIDMap, widths, defaultwidth, last_cid); + } + RELEASE(widths); + } + cff_release_index(cffont->subrs[0]); + cffont->subrs[0] = NULL; + + RELEASE(CIDToGIDMap); + + cff_add_string(cffont, (char *)"Adobe"); + cff_add_string(cffont, (char *)"Identity"); + + cff_dict_update(cffont->topdict, cffont); + cff_dict_update(cffont->private[0], cffont); + + cff_update_string(cffont); + + /* CFF code need to be rewrote... */ + cff_dict_add(cffont->topdict, "ROS", 3); + cff_dict_set(cffont->topdict, "ROS", 0, + (double) cff_get_sid(cffont, (char *)"Adobe")); + cff_dict_set(cffont->topdict, "ROS", 1, + (double) cff_get_sid(cffont, (char *)"Identity")); + cff_dict_set(cffont->topdict, "ROS", 2, 0.0); + + cffont->num_glyphs = num_glyphs; + offset = write_fontfile(font, cffont); + + cff_close(cffont); + + { + pdf_obj *cidset; + + cidset = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(cidset, used_chars, (last_cid/8)+1); + pdf_add_dict(font->descriptor, + pdf_new_name("CIDSet"), pdf_ref_obj(cidset)); + pdf_release_obj(cidset); + } + + + return; +} + +void +CIDFont_type0_release(CIDFont *font) +{ + return; +} diff --git a/Build/source/texk/xdvipdfmx/src/cidtype0.h b/Build/source/texk/xdvipdfmx/src/cidtype0.h new file mode 100644 index 00000000000..6358d55112d --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cidtype0.h @@ -0,0 +1,47 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cidtype0.h,v 1.10 2004/09/02 12:23:06 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CIDTYPE0_H_ +#define _CIDTYPE0_H_ + +#include "cid.h" +#include "cid_p.h" +#include "fontmap.h" + +extern void CIDFont_type0_set_verbose (void); +extern void CIDFont_type0_set_flags (long flags); + +extern int CIDFont_type0_open (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt); +extern void CIDFont_type0_dofont (CIDFont *font); +extern void CIDFont_type0_release (CIDFont *font); + +/* Type1 --> CFF CIDFont */ +extern int t1_load_UnicodeCMap (const char *font_name, const char *otl_tags, int wmode); +extern int CIDFont_type0_t1open (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt); +extern void CIDFont_type0_t1dofont (CIDFont *font); +extern int CIDFont_type0_t1copen (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt); +extern void CIDFont_type0_t1cdofont (CIDFont *font); + +#endif /* _CIDTYPE0_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cidtype2.c b/Build/source/texk/xdvipdfmx/src/cidtype2.c new file mode 100644 index 00000000000..c9045e4b2d5 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cidtype2.c @@ -0,0 +1,1086 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cidtype2.c,v 1.33 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * TrueType glyf table is sorted by CID and no CIDToGIDMap is used here. + * GhostScript can't handle CIDToGIDMap correctly. + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "numbers.h" +#include "mem.h" +#include "error.h" +#include "dpxfile.h" + +#include "pdfobj.h" +/* pseudo unique tag */ +#include "pdffont.h" + +#ifndef PDF_NAME_LEN_MAX +# define PDF_NAME_LEN_MAX 255 +#endif + +/* TrueType */ +#include "sfnt.h" +#include "tt_aux.h" +#include "tt_glyf.h" +#include "tt_cmap.h" +#include "tt_table.h" + +#include "tt_gsub.h" + +/* CID font */ +#include "cmap.h" +#include "type0.h" +#include "cid.h" +#include "cid_p.h" +#include "cidtype2.h" + +static int verbose = 0; +static int opt_flags = 0; + +void +CIDFont_type2_set_verbose (void) +{ + verbose++; +} + +void +CIDFont_type2_set_flags (long flags) +{ + opt_flags = flags; +} + +/* + * PDF viewer applications use following tables (CIDFontType 2) + * + * head, hhea, loca, maxp, glyf, hmtx, fpgm, cvt_, prep + * + * - from PDF Ref. v.1.3, 2nd ed. + * + * The fpgm, cvt_, and prep tables appears only when TrueType instructions + * requires them. Those tables must be preserved if they exist. + * We use must_exist flag to indicate `preserve it if present' + * and to make sure not to cause an error when it does not exist. + * + * post and name table must exist in ordinary TrueType font file, + * but when a TrueType font is converted to CIDFontType 2 font, those tables + * are no longer required. + * + * The OS/2 table (required for TrueType font for Windows and OS/2) contains + * liscencing information, but PDF viewers seems not using them. + * + * The 'name' table added. See comments in ttf.c. + */ + +static struct +{ + const char *name; + int must_exist; +} required_table[] = { + {"OS/2", 0}, {"head", 1}, {"hhea", 1}, {"loca", 1}, {"maxp", 1}, + {"name", 1}, {"glyf", 1}, {"hmtx", 1}, {"fpgm", 0}, {"cvt ", 0}, + {"prep", 0}, {NULL, 0} +}; + +static void +validate_name (char *fontname, int len) +{ + int i, count; + char *p; + static const char *badstrlist[] = { + "-WIN-RKSJ-H", + "-WINP-RKSJ-H", + "-WING-RKSJ-H", + "-90pv-RKSJ-H", + NULL + }; + + for (count = 0, i = 0; i < len; i++) { + if (fontname[i] == 0) { + memmove(fontname + i, fontname + i + 1, len - i); + count++; + len--; + } + } + if (count > 0) { + WARN("Removed %d null character(s) from fontname --> %s", + count, fontname); + } + fontname[len] = '\0'; + + /* For some fonts that have bad PS name. ad hoc. remove me. */ + for (i = 0; badstrlist[i] != NULL; i++) { + p = strstr(fontname, badstrlist[i]); + if (p && p > fontname) { + WARN("Removed string \"%s\" from fontname \"%s\".", + badstrlist[i], fontname); + p[0] = '\0'; + len = (int) (p - fontname); + break; + } + } + + if (len < 1) { + ERROR("No valid character found in fontname string."); + } +} + +/* + * We will follow the convension for finding ToUnicode CMap described in PDF + * Reference 4th ed., page 432. The name of "ToCode" (not limited to Unicode + * here) CMap is obtained by concatenating the registry, ordering, and the + * name of encoding. + * + * UCSms-UCS4, UCSms-UCS2, UCS4 added... + */ + +#define WIN_UCS_INDEX_MAX 1 +#define KNOWN_ENCODINGS_MAX 8 +static struct +{ + unsigned short platform; + unsigned short encoding; + const char *pdfnames[5]; +} known_encodings[] = { + {TT_WIN, TT_WIN_UCS4, {"UCSms-UCS4", "UCSms-UCS2", "UCS4", "UCS2", NULL}}, + {TT_WIN, TT_WIN_UNICODE, {"UCSms-UCS4", "UCSms-UCS2", "UCS4", "UCS2", NULL}}, + {TT_WIN, TT_WIN_SJIS, {"90ms-RKSJ", NULL}}, + {TT_WIN, TT_WIN_RPC, {"GBK-EUC", NULL}}, + {TT_WIN, TT_WIN_BIG5, {"ETen-B5", NULL}}, + {TT_WIN, TT_WIN_WANSUNG, {"KSCms-UHC", NULL}}, + {TT_MAC, TT_MAC_JAPANESE, {"90pv-RKSJ", NULL}}, + {TT_MAC, TT_MAC_TRADITIONAL_CHINESE, {"B5pc", NULL}}, + {TT_MAC, TT_MAC_SIMPLIFIED_CHINESE, {"GBpc-EUC", NULL}}, + {TT_MAC, TT_MAC_KOREAN, {"KSCpc-EUC", NULL}}, + {0, 0, {NULL}} +}; + +static CMap * +find_tocode_cmap (const char *reg, const char *ord, int select) +{ + int cmap_id = -1, i; + char *cmap_name; + char *append; + + if (!reg || !ord || + select < 0 || select > KNOWN_ENCODINGS_MAX) + ERROR("Character set unknown."); + + if (!strcmp(ord, "UCS") && + select <= WIN_UCS_INDEX_MAX) + return NULL; + + for (i = 0; cmap_id < 0 && i < 5; i++) { + append = (char *) known_encodings[select].pdfnames[i]; + if (!append) + break; + cmap_name = NEW(strlen(reg) + strlen(ord) + strlen(append) + 3, char); + sprintf(cmap_name, "%s-%s-%s", reg, ord, append); + cmap_id = CMap_cache_find(cmap_name); + RELEASE(cmap_name); + } + if (cmap_id < 0) { + WARN("Could not find CID-to-Code mapping for \"%s-%s\".", reg, ord); + WARN("I tried to load (one of) the following file(s):"); + for (i = 0; i < 5; i++) { + append = (char *) known_encodings[select].pdfnames[i]; + if (!append) + break; + MESG(" %s-%s-%s", reg, ord, append); + } + WARN("Please check if this file exists."); + ERROR("Cannot continue..."); + } + + return CMap_cache_get(cmap_id); +} + + +/* + * CIDFont glyph metrics: + * Mostly same as add_CID[HV]Metrics in cidtype0.c. + */ +#define PDFUNIT(v) ((double) (ROUND(1000.0*(v)/(g->emsize), 1))) + +static void +add_TTCIDHMetrics (pdf_obj *fontdict, struct tt_glyphs *g, + char *used_chars, unsigned char *cidtogidmap, unsigned short last_cid) +{ + long cid, start = 0, prev = 0; + pdf_obj *w_array, *an_array = NULL; + double dw; + int empty = 1; + + w_array = pdf_new_array(); + if (g->dw != 0 && g->dw <= g->emsize) { + dw = PDFUNIT(g->dw); + } else { + dw = PDFUNIT(g->gd[0].advw); + } + for (cid = 0; cid <= last_cid; cid++) { + USHORT idx, gid; + double width; + + if (!is_used_char2(used_chars, cid)) + continue; + gid = (cidtogidmap) ? ((cidtogidmap[2*cid] << 8)|cidtogidmap[2*cid+1]) : cid; + idx = tt_get_index(g, gid); + if (cid != 0 && idx == 0) + continue; + width = PDFUNIT((g->gd)[idx].advw); + if (width == dw) { + if (an_array) { + pdf_add_array(w_array, pdf_new_number(start)); + pdf_add_array(w_array, an_array); + an_array = NULL; + empty = 0; + } + } else { + if (cid != prev + 1) { + if (an_array) { + pdf_add_array(w_array, pdf_new_number(start)); + pdf_add_array(w_array, an_array); + an_array = NULL; + empty = 0; + } + } + if (an_array == NULL) { + an_array = pdf_new_array(); + start = cid; + } + pdf_add_array(an_array, pdf_new_number(width)); + prev = cid; + } + } + + if (an_array) { + pdf_add_array(w_array, pdf_new_number(start)); + pdf_add_array(w_array, an_array); + empty = 0; + } + + pdf_add_dict(fontdict, + pdf_new_name("DW"), + pdf_new_number(dw)); + if (!empty) { + pdf_add_dict(fontdict, + pdf_new_name("W"), + pdf_ref_obj(w_array)); + } + pdf_release_obj(w_array); + + return; +} + +static void +add_TTCIDVMetrics (pdf_obj *fontdict, struct tt_glyphs *g, + char *used_chars, unsigned char *cidtogidmap, unsigned short last_cid) +{ + pdf_obj *w2_array, *an_array = NULL; + long cid, prev, start; + double defaultVertOriginY, defaultAdvanceHeight; + int empty = 1; + + defaultVertOriginY = PDFUNIT(g->default_advh - g->default_tsb); + defaultAdvanceHeight = PDFUNIT(g->default_advh); + + w2_array = pdf_new_array(); + start = prev = 0; + for (cid = 0; cid <= last_cid; cid++) { + USHORT idx, gid; + double vertOriginX, vertOriginY, advanceHeight; + + if (!is_used_char2(used_chars, cid)) + continue; + gid = (cidtogidmap) ? ((cidtogidmap[2*cid] << 8)|cidtogidmap[2*cid+1]) : cid; + idx = tt_get_index(g, cid); + if (cid != 0 && idx == 0) + continue; + advanceHeight = PDFUNIT(g->gd[idx].advh); + vertOriginX = PDFUNIT(0.5*(g->gd[idx].advw)); + vertOriginY = PDFUNIT(g->gd[idx].tsb + g->gd[idx].ury); +#if 0 + /* + * c [w1_1y v_1x v_1y w1_2y v_2x v_2y ...] + * Not working... Why? + * Acrobat Reader: + * Wrong rendering, interpretation of position vector is wrong. + * Xpdf and gs: ignores W2? + */ + if (vertOriginY == defaultVertOriginY && + advanceHeight == defaultAdvanceHeight) { + if (an_array) { + pdf_add_array(w2_array, pdf_new_number(start)); + pdf_add_array(w2_array, an_array); + an_array = NULL; + empty = 0; + } + } else { + if (cid != prev + 1 && an_array) { + pdf_add_array(w2_array, pdf_new_number(start)); + pdf_add_array(w2_array, an_array); + an_array = NULL; + empty = 0; + } + if (an_array == NULL) { + an_array = pdf_new_array(); + start = cid; + } + pdf_add_array(an_array, pdf_new_number(-advanceHeight)); + pdf_add_array(an_array, pdf_new_number(vertOriginX)); + pdf_add_array(an_array, pdf_new_number(vertOriginY)); + prev = cid; + } +#else + /* + * c_first c_last w1_y v_x v_y + * This form may hit Acrobat's implementation limit of array element size, + * 8192. AFPL GhostScript 8.11 stops with rangecheck error with this. + * Maybe GS's bug? + */ + if (vertOriginY != defaultVertOriginY || + advanceHeight != defaultAdvanceHeight) { + pdf_add_array(w2_array, pdf_new_number(cid)); + pdf_add_array(w2_array, pdf_new_number(cid)); + pdf_add_array(w2_array, pdf_new_number(-advanceHeight)); + pdf_add_array(w2_array, pdf_new_number(vertOriginX)); + pdf_add_array(w2_array, pdf_new_number(vertOriginY)); + empty = 0; + } +#endif + } + +#if 0 + if (an_array) { + pdf_add_array(w2_array, pdf_new_number(start)); + pdf_add_array(w2_array, an_array); + empty = 0; + } +#endif + + if (defaultVertOriginY != 880 || defaultAdvanceHeight != 1000) { + an_array = pdf_new_array(); + pdf_add_array(an_array, pdf_new_number(defaultVertOriginY)); + pdf_add_array(an_array, pdf_new_number(-defaultAdvanceHeight)); + pdf_add_dict(fontdict, pdf_new_name ("DW2"), an_array); + } + if (!empty) { + pdf_add_dict(fontdict, + pdf_new_name("W2"), + pdf_ref_obj(w2_array)); + } + pdf_release_obj(w2_array); + + return; +} + +/* + * The following routine fixes few problems caused by vendor specific + * Unicode mappings. + */ + +#define FIX_CJK_UNIOCDE_SYMBOLS 1 + +static unsigned short +fix_CJK_symbols (unsigned short code) +{ + unsigned short alt_code; + static struct + { + unsigned short alt1; + unsigned short alt2; + } CJK_Uni_symbols[] = { + /* + * Microsoft/Apple Unicode mapping difference: + * They are taken from SJIS-Unicode mapping difference but nearly + * same thing might be applied to Chinese (e.g., Big5) too. + */ + {0x2014, 0x2015}, /* EM DASH <-> HORIZONTAL BAR */ + {0x2016, 0x2225}, /* DOUBLE VERTICAL LINE <-> PARALLEL TO */ + {0x203E, 0xFFE3}, /* OVERLINE <-> FULLWIDTH MACRON */ + {0x2026, 0x22EF}, /* HORIZONTAL ELLIPSIS <-> MIDLINE HORIZONTAL ELLIPSIS */ + {0x2212, 0xFF0D}, /* MINUS SIGN <-> FULLWIDTH HYPHEN-MINUS */ + {0x301C, 0xFF5E}, /* WAVE DASH <-> FULLWIDTH TILDE */ + {0xFFE0, 0x00A2}, /* FULLWIDTH CENT SIGN <-> CENT SIGN */ + {0xFFE1, 0x00A3}, /* FULLWIDTH POUND SIGN <-> POUND SIGN */ + {0xFFE2, 0x00AC}, /* FULLWIDTH NOT SIGN <-> NOT SIGN */ + {0xFFFF, 0xFFFF}, /* EOD */ + }; +#define NUM_CJK_SYMBOLS (sizeof(CJK_Uni_symbols)/sizeof(CJK_Uni_symbols[0])) + int i; + + alt_code = code; + for (i = 0; i < NUM_CJK_SYMBOLS; i++) { + if (CJK_Uni_symbols[i].alt1 == code) { + alt_code = CJK_Uni_symbols[i].alt2; + break; + } else if (CJK_Uni_symbols[i].alt2 == code) { + alt_code = CJK_Uni_symbols[i].alt1; + break; + } + } + + return alt_code; +} + +static long +cid_to_code (CMap *cmap, CID cid) +{ + unsigned char inbuf[2], outbuf[32]; + long inbytesleft = 2, outbytesleft = 32; + unsigned char *p, *q; + + if (!cmap) + return cid; + + inbuf[0] = (cid >> 8) & 0xff; + inbuf[1] = cid & 0xff; + p = inbuf; q = outbuf; + + CMap_decode_char(cmap, (const unsigned char **) &p, &inbytesleft, &q, &outbytesleft); + + if (inbytesleft != 0) + return 0; + else if (outbytesleft == 31) + return (long) outbuf[0]; + else if (outbytesleft == 30) + return (long) (outbuf[0] << 8|outbuf[1]); + else if (outbytesleft == 28) + return (long) (outbuf[0] << 24|outbuf[1] << 16|outbuf[2] << 8|outbuf[3]); + + return 0; +} + +/* #define NO_GHOSTSCRIPT_BUG 1 */ + +void +CIDFont_type2_dofont (CIDFont *font) +{ + pdf_obj *fontfile; + sfnt *sfont; + char *h_used_chars, *v_used_chars, *used_chars; + struct tt_glyphs *glyphs; + CMap *cmap = NULL; + tt_cmap *ttcmap = NULL; + unsigned long offset = 0; + CID cid, last_cid; + unsigned char *cidtogidmap; + USHORT num_glyphs; + int i, glyph_ordering = 0, unicode_cmap = 0; + FILE *fp = NULL; + + if (!font->indirect) + return; + + pdf_add_dict(font->fontdict, + pdf_new_name("FontDescriptor"), pdf_ref_obj(font->descriptor)); + + if (CIDFont_is_BaseFont(font)) + return; + + /* + * CIDSystemInfo comes here since Supplement can be increased. + */ + { + pdf_obj *tmp; + + tmp = pdf_new_dict (); + pdf_add_dict(tmp, + pdf_new_name("Registry"), + pdf_new_string(font->csi->registry, strlen(font->csi->registry))); + pdf_add_dict(tmp, + pdf_new_name("Ordering"), + pdf_new_string(font->csi->ordering, strlen(font->csi->ordering))); + pdf_add_dict(tmp, + pdf_new_name("Supplement"), + pdf_new_number(font->csi->supplement)); + pdf_add_dict(font->fontdict, pdf_new_name("CIDSystemInfo"), tmp); + } + + /* Quick exit for non-embedded & fixed-pitch font. */ + if (!CIDFont_get_embedding(font) && + (opt_flags & CIDFONT_FORCE_FIXEDPITCH)) { + pdf_add_dict(font->fontdict, + pdf_new_name("DW"), pdf_new_number(1000.0)); + return; + } + +#ifdef XETEX + sfont = sfnt_open(font->ft_face, SFNT_TYPE_TTC | SFNT_TYPE_TRUETYPE); +#else + fp = DPXFOPEN(font->ident, DPX_RES_TYPE_TTFONT); + if (!fp) + ERROR("Could not open TTF file: %s", font->ident); + + sfont = sfnt_open(fp); +#endif + if (!sfont) { + ERROR("Could not open TTF file: %s", font->ident); + } + + switch (sfont->type) { + case SFNT_TYPE_TTC: + offset = ttc_read_offset(sfont, font->options->index); + if (offset == 0) + ERROR("Invalid TTC index in %s.", font->ident); + break; + case SFNT_TYPE_TRUETYPE: + if (font->options->index > 0) + ERROR("Found TrueType font file while expecting TTC file (%s).", font->ident); + offset = 0; + break; + default: + ERROR("Not a TrueType/TTC font (%s)?", font->ident); + break; + } + + if (sfnt_read_table_directory(sfont, offset) < 0) + ERROR("Could not read TrueType table directory (%s).", font->ident); + + /* + * Adobe-Identity means font's internal glyph ordering here. + */ + if (!strcmp(font->csi->registry, "Adobe") && + !strcmp(font->csi->ordering, "Identity")) { + glyph_ordering = 1; + } else { + glyph_ordering = 0; + } + + /* + * Select TrueType cmap table, find ToCode CMap for each TrueType encodings. + */ + if (glyph_ordering) { + ttcmap = NULL; + cmap = NULL; + } else { + /* + * This part contains a bug. It may choose SJIS encoding TrueType cmap + * table for Adobe-GB1. + */ + for (i = 0; i <= KNOWN_ENCODINGS_MAX; i++) { + ttcmap = tt_cmap_read(sfont, + known_encodings[i].platform, + known_encodings[i].encoding); + if (ttcmap) + break; + } + if (!ttcmap) { + WARN("No usable TrueType cmap table found for font \"%s\".", font->ident); + WARN("CID character collection for this font is set to \"%s-%s\"", + font->csi->registry, font->csi->ordering); + ERROR("Cannot continue without this..."); + } else if (i <= WIN_UCS_INDEX_MAX) { + unicode_cmap = 1; + } else { + unicode_cmap = 0; + } + + /* + * NULL is returned if CMap is Identity CMap. + */ + cmap = find_tocode_cmap(font->csi->registry, + font->csi->ordering, i); + } + + glyphs = tt_build_init(); + + last_cid = 0; + num_glyphs = 1; /* .notdef */ + used_chars = h_used_chars = v_used_chars = NULL; + { + Type0Font *parent; + int parent_id, c; + + if ((parent_id = CIDFont_get_parent_id(font, 0)) >= 0) { + parent = Type0Font_cache_get(parent_id); + h_used_chars = Type0Font_get_usedchars(parent); + } + if ((parent_id = CIDFont_get_parent_id(font, 1)) >= 0) { + parent = Type0Font_cache_get(parent_id); + v_used_chars = Type0Font_get_usedchars(parent); + } + if (!h_used_chars && !v_used_chars) + ERROR("Unexpected error."); + + /* + * Quick check of max CID. + */ + c = 0; + for (i = 8191; i >= 0; i--) { + if (h_used_chars && h_used_chars[i] != 0) { + last_cid = i * 8 + 7; + c = h_used_chars[i]; + break; + } + if (v_used_chars && v_used_chars[i] != 0) { + last_cid = i * 8 + 7; + c = v_used_chars[i]; + break; + } + } + if (last_cid > 0) { + for (i = 0; i < 8; i++) { + if ((c >> i) & 1) + break; + last_cid--; + } + } + if (last_cid >= 0xFFFFu) { + ERROR("CID count > 65535"); + } + } + +#ifndef NO_GHOSTSCRIPT_BUG + cidtogidmap = NULL; +#else + cidtogidmap = NEW((last_cid + 1) * 2, unsigned char); + memset(cidtogidmap, 0, (last_cid + 1) * 2); +#endif /* !NO_GHOSTSCRIPT_BUG */ + + /* + * Map CIDs to GIDs. + * Horizontal and vertical used_chars are merged. + */ + + /* + * Horizontal + */ + if (h_used_chars) { + used_chars = h_used_chars; + for (cid = 1; cid <= last_cid; cid++) { + long code; + unsigned short gid; + + if (!is_used_char2(h_used_chars, cid)) + continue; + + if (glyph_ordering) { + gid = cid; + code = cid; + } else { + code = cid_to_code(cmap, cid); + gid = tt_cmap_lookup(ttcmap, code); +#ifdef FIX_CJK_UNIOCDE_SYMBOLS + if (gid == 0 && unicode_cmap) { + long alt_code; + + alt_code = fix_CJK_symbols(code); + if (alt_code != code) { + gid = tt_cmap_lookup(ttcmap, alt_code); + if (gid != 0) { + WARN("Unicode char U+%04x replaced with U+%04x.", + code, alt_code); + } + } + } +#endif /* FIX_CJK_UNIOCDE_SYMBOLS */ + } + + if (gid == 0) { + WARN("Glyph missing in font. (CID=%u, code=0x%04x)", cid, code); + } + + /* TODO: duplicated glyph */ +#ifndef NO_GHOSTSCRIPT_BUG + gid = tt_add_glyph(glyphs, gid, cid); +#else + gid = tt_add_glyph(glyphs, gid, num_glyphs); + cidtogidmap[2*cid ] = gid >> 8; + cidtogidmap[2*cid+1] = gid & 0xff; +#endif /* !NO_GHOSTSCRIPT_BUG */ + + num_glyphs++; + } + } + + /* + * Vertical + */ + if (v_used_chars) { + otl_gsub *gsub_list = NULL; + + /* + * Require `vrt2' or `vert'. + */ + if (glyph_ordering) { + gsub_list = NULL; + } else { + gsub_list = otl_gsub_new(); + if (otl_gsub_add_feat(gsub_list, + "*", "*", "vrt2", sfont) < 0) { + if (otl_gsub_add_feat(gsub_list, + "*", "*", "vert", sfont) < 0) { + WARN("GSUB feature vrt2/vert not found."); + otl_gsub_release(gsub_list); + gsub_list = NULL; + } else { + otl_gsub_select(gsub_list, "*", "*", "vert"); + } + } else { + otl_gsub_select(gsub_list, "*", "*", "vrt2"); + } + } + + for (cid = 1; cid <= last_cid; cid++) { + long code; + unsigned short gid; + + if (!is_used_char2(v_used_chars, cid)) + continue; + + /* There may be conflict of horizontal and vertical glyphs + * when font is used with /UCS. However, we simply ignore + * that... + */ + if (h_used_chars && is_used_char2(h_used_chars, cid)) { + continue; + } + + if (glyph_ordering) { + gid = cid; + code = cid; + } else { + code = cid_to_code(cmap, cid); + gid = tt_cmap_lookup(ttcmap, code); +#ifdef FIX_CJK_UNIOCDE_SYMBOLS + if (gid == 0 && unicode_cmap) { + long alt_code; + + alt_code = fix_CJK_symbols(code); + if (alt_code != code) { + gid = tt_cmap_lookup(ttcmap, alt_code); + if (gid != 0) { + WARN("Unicode char U+%04x replaced with U+%04x.", + code, alt_code); + } + } + } +#endif /* FIX_CJK_UNIOCDE_SYMBOLS */ + } + if (gid == 0) { + WARN("Glyph missing in font. (CID=%u, code=0x%04x)", cid, code); + } else if (gsub_list) { + otl_gsub_apply(gsub_list, &gid); + } + +#ifndef NO_GHOSTSCRIPT_BUG + gid = tt_add_glyph(glyphs, gid, cid); +#else + gid = tt_add_glyph(glyphs, gid, num_glyphs); + cidtogidmap[2*cid ] = gid >> 8; + cidtogidmap[2*cid+1] = gid & 0xff; +#endif /* !NO_GHOSTSCRIPT_BUG */ + + if (used_chars) /* merge vertical used_chars to horizontal */ + add_to_used_chars2(used_chars, cid); + + num_glyphs++; + } + + if (gsub_list) + otl_gsub_release(gsub_list); + + if (!used_chars) /* We have no horizontal. */ + used_chars = v_used_chars; + } + + if (!used_chars) + ERROR("Unexpected error."); + + tt_cmap_release(ttcmap); + + if (CIDFont_get_embedding(font)) { + if (tt_build_tables(sfont, glyphs) < 0) + ERROR("Could not created FontFile stream."); + if (verbose > 1) + MESG("[%u glyphs (Max CID: %u)]", glyphs->num_glyphs, last_cid); + } else { + if (tt_get_metrics(sfont, glyphs) < 0) + ERROR("Reading glyph metrics failed..."); + } + + /* + * DW, W, DW2, and W2 + */ + if (opt_flags & CIDFONT_FORCE_FIXEDPITCH) { + pdf_add_dict(font->fontdict, + pdf_new_name("DW"), pdf_new_number(1000.0)); + } else { + add_TTCIDHMetrics(font->fontdict, glyphs, used_chars, cidtogidmap, last_cid); + if (v_used_chars) + add_TTCIDVMetrics(font->fontdict, glyphs, used_chars, cidtogidmap, last_cid); + } + + tt_build_finish(glyphs); + + /* Finish here if not embedded. */ + if (!CIDFont_get_embedding(font)) { + if (cidtogidmap) + RELEASE(cidtogidmap); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + return; + } + + /* Create font file */ + for (i = 0; required_table[i].name; i++) { + if (sfnt_require_table(sfont, + required_table[i].name, + required_table[i].must_exist) < 0) { + ERROR("Some required TrueType table does not exist."); + } + } + + /* + * FontFile2 + */ + fontfile = sfnt_create_FontFile_stream(sfont); + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + if (!fontfile) + ERROR("Could not created FontFile stream for \"%s\".", font->ident); + + if (verbose > 1) { + MESG("[%ld bytes]", pdf_stream_length(fontfile)); + } + + pdf_add_dict(font->descriptor, + pdf_new_name("FontFile2"), + pdf_ref_obj (fontfile)); + pdf_release_obj(fontfile); + + /* + * CIDSet + */ + { + pdf_obj *cidset; + + cidset = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(cidset, used_chars, last_cid/8 + 1); + pdf_add_dict(font->descriptor, + pdf_new_name("CIDSet"), + pdf_ref_obj(cidset)); + pdf_release_obj(cidset); + } + + /* + * CIDToGIDMap + */ + if (cidtogidmap) { + pdf_obj *c2gmstream; + + c2gmstream = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(c2gmstream, cidtogidmap, (last_cid + 1) * 2); + pdf_add_dict(font->fontdict, + pdf_new_name("CIDToGIDMap"), + pdf_ref_obj (c2gmstream)); + pdf_release_obj(c2gmstream); + RELEASE(cidtogidmap); + } + + return; +} + +int +CIDFont_type2_open (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt) +{ + char *fontname; + sfnt *sfont; + unsigned long offset = 0; + FILE *fp = NULL; + + ASSERT(font && opt); + +#ifdef XETEX + sfont = sfnt_open(font->ft_face, SFNT_TYPE_TTC | SFNT_TYPE_TRUETYPE); + if (!sfont) + return -1; +#else + fp = DPXFOPEN(name, DPX_RES_TYPE_TTFONT); + if (!fp) + return -1; + + sfont = sfnt_open(fp); + if (!sfont) { + DPXFCLOSE(fp); + return -1; + } +#endif + + switch (sfont->type) { + case SFNT_TYPE_TTC: + offset = ttc_read_offset(sfont, opt->index); + break; + case SFNT_TYPE_TRUETYPE: + if (opt->index > 0) { + ERROR("Invalid TTC index (not TTC font): %s", name); + } else { + offset = 0; + } + break; + default: + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + break; + } + + if (sfnt_read_table_directory(sfont, offset) < 0) { + ERROR("Reading TrueType table directory failed."); + } + + { + char *shortname; + long namelen; + + /* MAC-ROMAN-EN-POSTSCRIPT or WIN-UNICODE-EN(US)-POSTSCRIPT */ + shortname = NEW(PDF_NAME_LEN_MAX, char); + namelen = tt_get_ps_fontname(sfont, shortname, PDF_NAME_LEN_MAX); + if (namelen == 0) { + memset(shortname, 0, PDF_NAME_LEN_MAX); + strncpy(shortname, name, PDF_NAME_LEN_MAX); + namelen = strlen(shortname); + } + validate_name(shortname, namelen); /* for SJIS, UTF-16, ... string */ + /* + * Strlen works, after validate_named string. + * Mangled name requires more 7 bytes. + * Style requires more 11 bytes. + */ + fontname = NEW(strlen(shortname)+19, char); + strcpy(fontname, shortname); + RELEASE(shortname); + } + + if (opt->embed && opt->style != FONT_STYLE_NONE) { + WARN("Embedding disabled due to style option for %s.", name); + opt->embed = 0; + } + switch (opt->style) { + case FONT_STYLE_BOLD: + strcat(fontname, ",Bold"); + break; + case FONT_STYLE_ITALIC: + strcat(fontname, ",Italic"); + break; + case FONT_STYLE_BOLDITALIC: + strcat(fontname, ",BoldItalic"); + break; + } + /* + * CIDSystemInfo is determined from CMap or from map record option. + */ + font->fontname = fontname; + font->subtype = CIDFONT_TYPE2; + font->csi = NEW(1, CIDSysInfo); + if (opt->csi) { + if (cmap_csi) { + if (strcmp(opt->csi->registry, cmap_csi->registry) || + strcmp(opt->csi->ordering, cmap_csi->ordering)) { + WARN("CID character collection mismatched:\n"); + MESG("\tFont: %s-%s-%d\n", + opt->csi->registry, opt->csi->ordering, opt->csi->supplement); + MESG("\tCMap: %s-%s-%d\n", + cmap_csi->registry, cmap_csi->ordering, cmap_csi->supplement); + ERROR("Incompatible CMap specified for this font."); + } + if (opt->csi->supplement < cmap_csi->supplement) { + WARN("Supplmement value in CIDSystemInfo increased."); + WARN("Some characters may not shown."); + opt->csi->supplement = cmap_csi->supplement; + } + } + font->csi->registry = NEW(strlen(opt->csi->registry)+1, char); + strcpy(font->csi->registry, opt->csi->registry); + font->csi->ordering = NEW(strlen(opt->csi->ordering)+1, char); + strcpy(font->csi->ordering, opt->csi->ordering); + font->csi->supplement = opt->csi->supplement; + } else if (cmap_csi) { + font->csi->registry = NEW(strlen(cmap_csi->registry)+1, char); + strcpy(font->csi->registry, cmap_csi->registry); + font->csi->ordering = NEW(strlen(cmap_csi->ordering)+1, char); + strcpy(font->csi->ordering, cmap_csi->ordering); + font->csi->supplement = cmap_csi->supplement; + } else { /* This means font's internal glyph ordering. */ + font->csi->registry = NEW(strlen("Adobe")+1, char); + strcpy(font->csi->registry, "Adobe"); + font->csi->ordering = NEW(strlen("Identity")+1, char); + strcpy(font->csi->ordering, "Identity"); + font->csi->supplement = 0; + } + + font->fontdict = pdf_new_dict(); + pdf_add_dict(font->fontdict, + pdf_new_name("Type"), + pdf_new_name("Font")); + pdf_add_dict(font->fontdict, + pdf_new_name("Subtype"), + pdf_new_name("CIDFontType2")); + + font->descriptor = tt_get_fontdesc(sfont, &(opt->embed), 0); + if (!font->descriptor) { + ERROR("Could not obtain neccesary font info."); + } + + if (opt->embed) { + memmove(fontname + 7, fontname, strlen(fontname) + 1); + pdf_font_make_uniqueTag(fontname); + fontname[6] = '+'; + } + + pdf_add_dict(font->descriptor, + pdf_new_name("FontName"), + pdf_new_name(fontname)); + pdf_add_dict(font->fontdict, + pdf_new_name("BaseFont"), + pdf_new_name(fontname)); + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + /* + * Don't write fontdict here. + * /Supplement in /CIDSystemInfo may change. + */ + + return 0; +} + +void +CIDFont_type2_release (CIDFont *font) +{ + return; +} diff --git a/Build/source/texk/xdvipdfmx/src/cidtype2.h b/Build/source/texk/xdvipdfmx/src/cidtype2.h new file mode 100644 index 00000000000..24c555954d1 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cidtype2.h @@ -0,0 +1,37 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cidtype2.h,v 1.6 2004/08/07 09:52:34 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CIDTYPE2_H_ +#define _CIDTYPE2_H_ + +#include "cid.h" +#include "cid_p.h" + +extern void CIDFont_type2_set_verbose (void); +extern void CIDFont_type2_set_flags (long flags); + +extern int CIDFont_type2_open (CIDFont *font, const char *name, + CIDSysInfo *cmap_csi, cid_opt *opt); +extern void CIDFont_type2_dofont (CIDFont *font); +extern void CIDFont_type2_release (CIDFont *font); + +#endif /* _CIDTYPE2_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cmap.c b/Build/source/texk/xdvipdfmx/src/cmap.c new file mode 100644 index 00000000000..b0a2f160daf --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cmap.c @@ -0,0 +1,995 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cmap.c,v 1.28 2004/09/05 13:30:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * References: + * + * PostScript Language Reference Manual, 3rd. ed. (Adobe Systems Inc.) + * 5.11.4 CMap Dictionaries + * 5.11.5 FMapType 9 Composite Fonts + * Building CMap Files for CID-Keyed Fonts, Adobe Technical Note #5099 + * CID-Keyed Font Technology Overview, Adobe Technical Note #5092 + * Adobe CMap and CIDFont Files Specification, Adobe Technical Specification #5014 + * + * Undefined Character Handling: + * PLRM 3rd. ed., sec. 5.11.5., "Handling Undefined Characters" + * + * TODO: + * Only cid(range|char) allowed for CODE_TO_CID and bf(range|char) for CID_TO_CODE ? + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "cmap_p.h" +#include "cmap.h" + +static int __verbose = 0; +static int __silent = 0; + +void +CMap_set_verbose (void) +{ + __verbose++; +} + +void +CMap_set_silent (int value) +{ + __silent = value ? 1 : 0; +} + +/* Private funcs. */ +static int bytes_consumed (CMap *cmap, const unsigned char *instr, long inbytes); +static void handle_undefined (CMap *cmap, + const unsigned char **inbuf, long *inbytesleft, + unsigned char **outbuf, long *outbytesleft); + +static int check_range (CMap *cmap, + const unsigned char *srclo, const unsigned char *srchi, int srcdim, + const unsigned char *dst, int dstdim); + +static unsigned char *get_mem (CMap *cmap, int size); +static mapDef *mapDef_new (void); +static void mapDef_release (mapDef *t); +static int locate_tbl (mapDef **cur, const unsigned char *code, int dim); + +CMap * +CMap_new (void) +{ + CMap *cmap; + + cmap = NEW(1, struct CMap); + cmap->name = NULL; + cmap->type = CMAP_TYPE_CODE_TO_CID; + cmap->wmode = 0; + cmap->useCMap = NULL; + cmap->CSI = NULL; + + cmap->profile.minBytesIn = 2; + cmap->profile.maxBytesIn = 2; + cmap->profile.minBytesOut = 2; + cmap->profile.maxBytesOut = 2; + + cmap->flags = 0; + + cmap->codespace.num = 0; + cmap->codespace.max = 10; + cmap->codespace.ranges = NEW(10, struct rangeDef); + + cmap->mapTbl = NULL; + + cmap->mapData = NEW(1, struct mapData); + cmap->mapData->prev = NULL; + cmap->mapData->pos = 0; + cmap->mapData->data = NEW(MEM_ALLOC_SIZE, unsigned char); + + return cmap; +} + +void +CMap_release (CMap *cmap) +{ + if (!cmap) + return; + + if (cmap->name) + RELEASE(cmap->name); + if (cmap->CSI) { + if (cmap->CSI->registry) RELEASE(cmap->CSI->registry); + if (cmap->CSI->ordering) RELEASE(cmap->CSI->ordering); + RELEASE(cmap->CSI); + } + if (cmap->codespace.ranges) + RELEASE(cmap->codespace.ranges); + if (cmap->mapTbl) + mapDef_release(cmap->mapTbl); + { + mapData *map = cmap->mapData; + while (map != NULL) { + mapData *prev = map->prev; + if (map->data != NULL) + RELEASE(map->data); + RELEASE(map); + map = prev; + } + } + + RELEASE(cmap); +} + +int +CMap_is_Identity (CMap *cmap) +{ + ASSERT(cmap); + if (!strcmp(cmap->name, "Identity-H") || !strcmp(cmap->name, "Identity-V")) + return 1; + else + return 0; +} + +#if 0 +/* NOT IMPLEMENTED YET */ +int +CMap_is_realy_Identity(CMap *cmap) +{ + return 0; +} +#endif + +int +CMap_is_valid (CMap *cmap) +{ + /* Quick check */ + if (!cmap || !(cmap->name) || cmap->type < CMAP_TYPE_IDENTITY || + cmap->type > CMAP_TYPE_CID_TO_CODE || cmap->codespace.num < 1 || + (cmap->type != CMAP_TYPE_IDENTITY && !cmap->mapTbl)) + return 0; + + if (cmap->useCMap) { + CIDSysInfo *csi1, *csi2; + csi1 = CMap_get_CIDSysInfo(cmap); + csi2 = CMap_get_CIDSysInfo(cmap->useCMap); + if (strcmp(csi1->registry, csi2->registry) || + strcmp(csi1->ordering, csi2->ordering)) { + WARN("CIDSystemInfo mismatched %s <--> %s", + CMap_get_name(cmap), CMap_get_name(cmap->useCMap)); + return 0; + } + } + + return 1; +} + +int +CMap_get_profile (CMap *cmap, int type) +{ + int value = 0; + + ASSERT(cmap); + switch (type) { + case CMAP_PROF_TYPE_INBYTES_MIN: + value = cmap->profile.minBytesIn; + break; + case CMAP_PROF_TYPE_INBYTES_MAX: + value = cmap->profile.maxBytesIn; + break; + case CMAP_PROF_TYPE_OUTBYTES_MIN: + value = cmap->profile.maxBytesOut; + break; + case CMAP_PROF_TYPE_OUTBYTES_MAX: + value = cmap->profile.maxBytesOut; + break; + default: + ERROR("%s: Unrecognized profile type %d.", CMAP_DEBUG_STR, type); + } + + return value; +} + +/* + * Put notdef chars for codes not declared in notdef(range|char) + */ +static void +handle_undefined (CMap *cmap, + const unsigned char **inbuf, long *inbytesleft, + unsigned char **outbuf, long *outbytesleft) +{ + long len = 0; + + if (*outbytesleft < 2) + ERROR("%s: Buffer overflow.", CMAP_DEBUG_STR); + + switch (cmap->type) { + case CMAP_TYPE_CODE_TO_CID: + memcpy(*outbuf, CID_NOTDEF_CHAR, 2); + break; + case CMAP_TYPE_TO_UNICODE: + memcpy(*outbuf, UCS_NOTDEF_CHAR, 2); + break; + default: + WARN("Cannot handle undefined mapping for this type of CMap mapping: %d", cmap->type); + WARN("<0000> is used for .notdef char."); + memset(*outbuf, 0, 2); + } + *outbuf += 2; + *outbytesleft -= 2; + + len = bytes_consumed(cmap, *inbuf, *inbytesleft); + + *inbuf += len; + *inbytesleft -= len; +} + +void +CMap_decode_char (CMap *cmap, + const unsigned char **inbuf, long *inbytesleft, + unsigned char **outbuf, long *outbytesleft) +{ + mapDef *t; + unsigned char *p, c = 0, *save; + long count = 0; + + p = save = (unsigned char *) *inbuf; + /* + * First handle some special cases: + */ + if (cmap->type == CMAP_TYPE_IDENTITY) { + if ((*inbytesleft) % 2) + ERROR("%s: Invalid/truncated input string.", CMAP_DEBUG_STR); + if (*outbytesleft < 2) + ERROR("%s: Buffer overflow.", CMAP_DEBUG_STR); + memcpy(*outbuf, *inbuf, 2); + *inbuf += 2; + *outbuf += 2; + *outbytesleft -= 2; + *inbytesleft -= 2; + return; + } else if (!cmap->mapTbl) { + if (cmap->useCMap) { + CMap_decode_char(cmap->useCMap, inbuf, inbytesleft, outbuf, outbytesleft); + return; + } else { + /* no mapping available in this CMap */ + WARN("No mapping available for this character."); + handle_undefined(cmap, inbuf, inbytesleft, outbuf, outbytesleft); + return; + } + } + + ASSERT(cmap->mapTbl); + t = cmap->mapTbl; + while (count < *inbytesleft) { + c = *p++; + count++; + if (LOOKUP_END(t[c].flag)) + break; + t = t[c].next; + } + if (LOOKUP_CONTINUE(t[c].flag)) /* need more bytes */ + ERROR("%s: Premature end of input string.", CMAP_DEBUG_STR); + else if (!MAP_DEFINED(t[c].flag)) { + if (cmap->useCMap) { + CMap_decode_char(cmap->useCMap, inbuf, inbytesleft, outbuf, outbytesleft); + return; + } else { + /* no mapping available in this CMap */ + WARN("No character mapping available."); + MESG(" CMap name: %s\n", CMap_get_name(cmap)); + MESG(" input str: "); + MESG("<"); + while (save < p) { + MESG("%02x", *save); + save++; + } + MESG(">\n"); + /* + * We know partial match found up to `count' bytes, + * but we will not use this information for the sake of simplicity. + */ + handle_undefined(cmap, inbuf, inbytesleft, outbuf, outbytesleft); + return; + } + } else { + switch (MAP_TYPE(t[c].flag)) { + case MAP_IS_NOTDEF: + WARN("Character mapped to .notdef found."); + /* continue */ + case MAP_IS_CID: case MAP_IS_CODE: + if (*outbytesleft >= t[c].len) + memcpy(*outbuf, t[c].code, t[c].len); + else + ERROR("%s: Buffer overflow.", CMAP_DEBUG_STR); + *outbuf += t[c].len; + *outbytesleft -= t[c].len; + break; + case MAP_IS_NAME: + ERROR("%s: CharName mapping not supported.", CMAP_DEBUG_STR); + break; + default: + ERROR("%s: Unknown mapping type.", CMAP_DEBUG_STR); + } + if (inbytesleft) + *inbytesleft -= count; + *inbuf = p; + } +} + +/* + * For convenience, it does not do decoding to CIDs. + */ +long +CMap_decode (CMap *cmap, + const unsigned char **inbuf, long *inbytesleft, + unsigned char **outbuf, long *outbytesleft) +{ + int count; + + ASSERT(cmap && inbuf && outbuf); + ASSERT(inbytesleft && outbytesleft); + for (count = 0;*inbytesleft > 0 && *outbytesleft > 0; count++) + CMap_decode_char(cmap, inbuf, inbytesleft, outbuf, outbytesleft); + + return count; +} + +char * +CMap_get_name (CMap *cmap) +{ + ASSERT(cmap); + return cmap->name; +} + +int +CMap_get_type (CMap *cmap) +{ + ASSERT(cmap); + return cmap->type; +} + +int +CMap_get_wmode (CMap *cmap) +{ + ASSERT(cmap); + return cmap->wmode; +} + +CIDSysInfo * +CMap_get_CIDSysInfo (CMap *cmap) +{ + ASSERT(cmap); + return cmap->CSI; +} + +void +CMap_set_name (CMap *cmap, const char *name) +{ + ASSERT(cmap); + if (cmap->name) + RELEASE(cmap->name); + cmap->name = NEW(strlen(name)+1, char); + strcpy(cmap->name, name); +} + +void +CMap_set_type (CMap *cmap, int type) +{ + ASSERT(cmap); + cmap->type = type; +} + +void +CMap_set_wmode (CMap *cmap, int wmode) +{ + ASSERT(cmap); + cmap->wmode = wmode; +} + +void +CMap_set_CIDSysInfo (CMap *cmap, const CIDSysInfo *csi) +{ + ASSERT(cmap); + + if (cmap->CSI) { + if (cmap->CSI->registry) + RELEASE(cmap->CSI->registry); + if (cmap->CSI->ordering) + RELEASE(cmap->CSI->ordering); + RELEASE(cmap->CSI); + } + + if (csi && csi->registry && csi->ordering) { + cmap->CSI = NEW(1, CIDSysInfo); + cmap->CSI->registry = NEW(strlen(csi->registry)+1, char); + strcpy(cmap->CSI->registry, csi->registry); + cmap->CSI->ordering = NEW(strlen(csi->ordering)+1, char); + strcpy(cmap->CSI->ordering, csi->ordering); + cmap->CSI->supplement = csi->supplement; + } else { + WARN("Invalid CIDSystemInfo."); + cmap->CSI = NULL; + } +} + +/* + * Can have muliple entry ? + */ +void +CMap_set_usecmap (CMap *cmap, CMap *ucmap) +{ + int i; + + ASSERT(cmap); + ASSERT(ucmap); /* Maybe if (!ucmap) ERROR() is better for this. */ + + if (cmap == ucmap) + ERROR("%s: Identical CMap object cannot be used for usecmap CMap: 0x%p=0x%p", + CMAP_DEBUG_STR, cmap, ucmap); + + /* Check if ucmap have neccesary information. */ + if (!CMap_is_valid(ucmap)) + ERROR("%s: Invalid CMap.", CMAP_DEBUG_STR); + + /* + * CMapName of cmap can be undefined when usecmap is executed in CMap parsing. + * And it is also possible CSI is not defined at that time. + */ + if (cmap->name && strcmp(cmap->name, ucmap->name) == 0) + ERROR("%s: CMap refering itself not allowed: CMap %s --> %s", + CMAP_DEBUG_STR, cmap->name, ucmap->name); + + if (cmap->CSI && cmap->CSI->registry && cmap->CSI->ordering) { + if (strcmp(cmap->CSI->registry, ucmap->CSI->registry) || + strcmp(cmap->CSI->ordering, ucmap->CSI->ordering)) + ERROR("%s: CMap %s required by %s have different CSI.", + CMAP_DEBUG_STR, CMap_get_name(cmap), CMap_get_name(ucmap)); + } + + /* We must copy codespaceranges. */ + for (i = 0; i < ucmap->codespace.num; i++) { + rangeDef *csr = ucmap->codespace.ranges + i; + CMap_add_codespacerange(cmap, csr->codeLo, csr->codeHi, csr->dim); + } + + cmap->useCMap = ucmap; +} + +/* Test the validity of character c. */ +int +CMap_match_codespace (CMap *cmap, const unsigned char *c, int dim) +{ + int i, pos; + + ASSERT(cmap); + for (i = 0; i < cmap->codespace.num; i++) { + rangeDef *csr = cmap->codespace.ranges + i; + if (csr->dim != dim) + continue; + for (pos = 0; pos < dim; pos++) { + if (c[pos] > csr->codeHi[pos] || c[pos] < csr->codeLo[pos]) + break; + } + if (pos == dim) + return 0; /* Valid */ + } + + return -1; /* Invalid */ +} + +/* + * No overlapping codespace ranges are allowed, otherwise mapping is ambiguous. + */ +int +CMap_add_codespacerange (CMap *cmap, + const unsigned char *codelo, const unsigned char *codehi, int dim) +{ + rangeDef *csr = NULL; + int i; + + ASSERT(cmap && dim > 0); + + for (i = 0; i < cmap->codespace.num; i++) { + int j, overlap = 1; + csr = cmap->codespace.ranges + i; + for (j = 0; j < MIN(csr->dim, dim) && overlap; j++) { + if ((codelo[j] >= csr->codeLo[j] && codelo[j] <= csr->codeHi[j]) || + (codehi[j] >= csr->codeLo[j] && codehi[j] <= csr->codeHi[j])) + overlap = 1; + else + overlap = 0; + } + if (overlap) { + WARN("Overlapping codespace found. (ingored)"); + return -1; + } + } + + if (dim < cmap->profile.minBytesIn) + cmap->profile.minBytesIn = dim; + if (dim > cmap->profile.maxBytesIn) + cmap->profile.maxBytesIn = dim; + + if (cmap->codespace.num + 1 > cmap->codespace.max) { + cmap->codespace.max += 10; + cmap->codespace.ranges = RENEW(cmap->codespace.ranges, cmap->codespace.max, struct rangeDef); + } + + csr = cmap->codespace.ranges + cmap->codespace.num; + csr->dim = dim; + csr->codeHi = get_mem(cmap, dim); + csr->codeLo = get_mem(cmap, dim); + memcpy(csr->codeHi, codehi, dim); + memcpy(csr->codeLo, codelo, dim); + + (cmap->codespace.num)++; + + return 0; +} + +int +CMap_add_notdefchar (CMap *cmap, const unsigned char *src, int srcdim, CID dst) +{ + return CMap_add_notdefrange(cmap, src, src, srcdim, dst); +} + +int +CMap_add_notdefrange (CMap *cmap, + const unsigned char *srclo, const unsigned char *srchi, int srcdim, CID dst) +{ + int c; + mapDef *cur; + + ASSERT(cmap); + /* dst not used here */ + /* FIXME */ + if (check_range(cmap, srclo, srchi, srcdim, (const unsigned char *)&dst, 2) < 0) + return -1; + + if (cmap->mapTbl == NULL ) + cmap->mapTbl = mapDef_new(); + + cur = cmap->mapTbl; + if (locate_tbl(&cur, srclo, srcdim) < 0) + return -1; + + for (c = srclo[srcdim-1]; c <= srchi[srcdim-1]; c++) { + if (MAP_DEFINED(cur[c].flag)) { + if (!__silent) + WARN("Trying to redefine already defined code mapping. (ignored)"); + } else { + cur[c].flag = (MAP_LOOKUP_END|MAP_IS_NOTDEF); + cur[c].code = get_mem(cmap, 2); + cur[c].len = 2; + cur[c].code[0] = dst >> 8; + cur[c].code[1] = dst & 0xff; + } + /* Do not do dst++ for notdefrange */ + } + + return 0; +} + +int +CMap_add_bfchar (CMap *cmap, + const unsigned char *src, int srcdim, + const unsigned char *dst, int dstdim) +{ + return CMap_add_bfrange(cmap, src, src, srcdim, dst, dstdim); +} + +int +CMap_add_bfrange (CMap *cmap, + const unsigned char *srclo, const unsigned char *srchi, int srcdim, + const unsigned char *base, int dstdim) +{ + int c, last_byte, i; + mapDef *cur; + + ASSERT(cmap); + if (check_range(cmap, srclo, srchi, srcdim, base, dstdim) < 0) + return -1; + + if (cmap->mapTbl == NULL ) + cmap->mapTbl = mapDef_new(); + + cur = cmap->mapTbl; + if (locate_tbl(&cur, srclo, srcdim) < 0) + return -1; + + for (c = srclo[srcdim-1]; c <= srchi[srcdim-1]; c++) { + if (MAP_DEFINED(cur[c].flag)) { + if (!__silent) + WARN("Trying to redefine already defined code mapping. (ignored)"); + continue; + } + + /* + * We assume restriction to code ranges also applied here. + * Addition <00FF> + 1 is undefined. + * + * Changed on 2004-03-20: + * + * Should be treated as <0100> in Acrobat's "ToUnicode" CMap. + */ + cur[c].flag = (MAP_LOOKUP_END|MAP_IS_CODE); + cur[c].code = get_mem(cmap, dstdim); + cur[c].len = dstdim; + memcpy(cur[c].code, base, dstdim); + + last_byte = c - srclo[srcdim-1] + base[dstdim-1]; + cur[c].code[dstdim-1] = (last_byte & 0xFF); + for (i = dstdim - 2; i >= 0 && last_byte > 255; i--) { + last_byte = cur[c].code[i] + 1; + cur[c].code[i] = (last_byte & 0xFF); + } + } + + return 0; +} + +int +CMap_add_cidchar (CMap *cmap, const unsigned char *src, int srcdim, CID dst) +{ + return CMap_add_cidrange(cmap, src, src, srcdim, dst); +} + +int +CMap_add_cidrange (CMap *cmap, + const unsigned char *srclo, const unsigned char *srchi, int srcdim, CID base) +{ + int c; + mapDef *cur; + + ASSERT(cmap); + /* base not used here */ + if (check_range(cmap, srclo, srchi, srcdim, (const unsigned char *)&base, 2) < 0) /* FIXME */ + return -1; + + if (cmap->mapTbl == NULL ) + cmap->mapTbl = mapDef_new(); + + cur = cmap->mapTbl; + if (locate_tbl(&cur, srclo, srcdim) < 0) + return -1; + + for (c = srclo[srcdim-1]; c <= srchi[srcdim-1]; c++) { + if (cur[c].flag != 0) { + if (!__silent) + WARN("Trying to redefine already defined CID mapping. (ignored)"); + } else { + cur[c].flag = (MAP_LOOKUP_END|MAP_IS_CID); + cur[c].len = 2; + cur[c].code = get_mem(cmap, 2); + cur[c].code[0] = base >> 8; + cur[c].code[1] = base & 0xff; + } + if (base >= CID_MAX) + WARN("CID number too large."); + base++; + } + + return 0; +} + +static void +mapDef_release (mapDef *t) +{ + int c; + + ASSERT(t); + for (c = 0; c < 256; c++) { + if (LOOKUP_CONTINUE(t[c].flag)) + mapDef_release(t[c].next); + } + RELEASE(t); +} + +static mapDef * +mapDef_new (void) +{ + mapDef *t; + int c; + + t = NEW(256, mapDef); + for (c=0; c<256; c++) { + t[c].flag = (MAP_LOOKUP_END|MAP_IS_UNDEF); + t[c].code = NULL; + t[c].next = NULL; + } + + return t; +} + +static unsigned char * +get_mem (CMap *cmap, int size) +{ + mapData *map; + unsigned char *p; + + ASSERT(cmap && cmap->mapData && size >= 0); + map = cmap->mapData; + if (map->pos + size >= MEM_ALLOC_SIZE) { + mapData *prev = map; + map = NEW(1, struct mapData); + map->data = NEW(MEM_ALLOC_SIZE, unsigned char); + map->prev = prev; + map->pos = 0; + cmap->mapData = map; + } + p = map->data + map->pos; + map->pos += size; + + return p; +} + +static int +locate_tbl (mapDef **cur, const unsigned char *code, int dim) +{ + int i, c; + + ASSERT(cur && *cur); + for (i = 0; i < dim-1; i++) { + c = code[i]; + if (MAP_DEFINED((*cur)[c].flag)) { + WARN("Ambiguous CMap entry."); + return -1; + } + if ((*cur)[c].next == NULL) /* create new node */ + (*cur)[c].next = mapDef_new(); + (*cur)[c].flag |= MAP_LOOKUP_CONTINUE; + *cur = (*cur)[c].next; + } + + return 0; +} + +/* + * Guess how many bytes consumed as a `single' character: + * Substring of length bytesconsumed bytes of input string is interpreted as + * a `single' character by CMap_decode(). + */ +static int +bytes_consumed (CMap *cmap, const unsigned char *instr, long inbytes) +{ + int i, pos, longest = 0, bytesconsumed; + + ASSERT(cmap); + for (i = 0; i < cmap->codespace.num; i++) { + rangeDef *csr = cmap->codespace.ranges + i; + for (pos = 0; pos < MIN(csr->dim, inbytes); pos++) { + if (instr[pos] > csr->codeHi[pos] || instr[pos] < csr->codeLo[pos]) + break; + } + if (pos == csr->dim) /* part of instr is totally valid in this codespace. */ + return csr->dim; + if (pos > longest) + longest = pos; + } + + if (i == cmap->codespace.num) /* No matching at all */ + bytesconsumed = cmap->profile.minBytesIn; + else { + bytesconsumed = cmap->profile.maxBytesIn; + for (i = 0; i< cmap->codespace.num; i++) { + rangeDef *csr = cmap->codespace.ranges + i; + if (csr->dim > longest && csr->dim < bytesconsumed) + bytesconsumed = csr->dim; + } + } + + return bytesconsumed; +} + +static int +check_range (CMap *cmap, + const unsigned char *srclo, const unsigned char *srchi, int srcdim, + const unsigned char *dst, int dstdim) +{ + if ((srcdim < 1 || dstdim < 1) || + (!srclo || !srchi || !dst) || + memcmp(srclo, srchi, srcdim - 1) || + srclo[srcdim-1] > srchi[srcdim-1]) { + WARN("Invalid CMap mapping entry. (ignored)"); + return -1; + } + + if (CMap_match_codespace(cmap, srclo, srcdim) < 0 || + CMap_match_codespace(cmap, srchi, srcdim) < 0) { + WARN("Invalid CMap mapping entry. (ignored)"); + return -1; + } + + if (srcdim < cmap->profile.minBytesIn) + cmap->profile.minBytesIn = srcdim; + if (srcdim > cmap->profile.maxBytesIn) + cmap->profile.maxBytesIn = srcdim; + if (dstdim < cmap->profile.minBytesOut) + cmap->profile.minBytesOut = dstdim; + if (dstdim > cmap->profile.maxBytesOut) + cmap->profile.maxBytesOut = dstdim; + + return 0; +} + +/************************** CMAP_CACHE **************************/ +#include "cmap_read.h" + +#define CMAP_CACHE_ALLOC_SIZE 16u + +struct CMap_cache { + int num; + int max; + CMap **cmaps; +}; + +static struct CMap_cache *__cache = NULL; + +#define CHECK_ID(n) do {\ + if (! __cache)\ + ERROR("%s: CMap cache not initialized.", CMAP_DEBUG_STR);\ + if ((n) < 0 || (n) >= __cache->num)\ + ERROR("Invalid CMap ID %d", (n));\ + } while (0) + +#include "dpxfile.h" + +void +CMap_cache_init (void) +{ + static unsigned char range_min[2] = {0x00, 0x00}; + static unsigned char range_max[2] = {0xff, 0xff}; + + if (__cache) + ERROR("%s: Already initialized.", CMAP_DEBUG_STR); + + __cache = NEW(1, struct CMap_cache); + + __cache->max = CMAP_CACHE_ALLOC_SIZE; + __cache->cmaps = NEW(__cache->max, CMap *); + __cache->num = 0; + + /* Create Identity mapping */ + __cache->cmaps[0] = CMap_new(); + CMap_set_name (__cache->cmaps[0], "Identity-H"); + CMap_set_type (__cache->cmaps[0], CMAP_TYPE_IDENTITY); + CMap_set_wmode(__cache->cmaps[0], 0); + CMap_set_CIDSysInfo(__cache->cmaps[0], &CSI_IDENTITY); + CMap_add_codespacerange(__cache->cmaps[0], range_min, range_max, 2); + + __cache->cmaps[1] = CMap_new(); + CMap_set_name (__cache->cmaps[1], "Identity-V"); + CMap_set_type (__cache->cmaps[1], CMAP_TYPE_IDENTITY); + CMap_set_wmode(__cache->cmaps[1], 1); + CMap_set_CIDSysInfo(__cache->cmaps[1], &CSI_IDENTITY); + CMap_add_codespacerange(__cache->cmaps[1], range_min, range_max, 2); + + __cache->num += 2; +} + +CMap * +CMap_cache_get (int id) +{ + CHECK_ID(id); + return __cache->cmaps[id]; +} + +int +CMap_cache_find (const char *cmap_name) +{ + int id = 0; + FILE *fp = NULL; + + if (!__cache) + CMap_cache_init(); + ASSERT(__cache); + + for (id = 0; id < __cache->num; id++) { + char *name = NULL; + /* CMapName may be undefined when processing usecmap. */ + name = CMap_get_name(__cache->cmaps[id]); + if (name && strcmp(cmap_name, name) == 0) { + return id; + } + } + + fp = DPXFOPEN(cmap_name, DPX_RES_TYPE_CMAP); + if (!fp) + return -1; + + if (CMap_parse_check_sig(fp) < 0) { + DPXFCLOSE(fp); + return -1; + } + + if (__verbose) + MESG("(CMap:%s", cmap_name); + + if (__cache->num >= __cache->max) { + __cache->max += CMAP_CACHE_ALLOC_SIZE; + __cache->cmaps = RENEW(__cache->cmaps, __cache->max, CMap *); + } + id = __cache->num; + (__cache->num)++; + __cache->cmaps[id] = CMap_new(); + + if (CMap_parse(__cache->cmaps[id], fp) < 0) + ERROR("%s: Parsing CMap file failed.", CMAP_DEBUG_STR); + + DPXFCLOSE(fp); + + if (__verbose) + MESG(")"); + + return id; +} + +int +CMap_cache_add (CMap *cmap) +{ + int id; + char *cmap_name0, *cmap_name1; + + if (!CMap_is_valid(cmap)) + ERROR("%s: Invalid CMap.", CMAP_DEBUG_STR); + + for (id = 0; id < __cache->num; id++) { + cmap_name0 = CMap_get_name(cmap); + cmap_name1 = CMap_get_name(__cache->cmaps[id]); + if (!strcmp(cmap_name0, cmap_name1)) { + ERROR("%s: CMap \"%s\" already defined.", + CMAP_DEBUG_STR, cmap_name0); + return -1; + } + } + + if (__cache->num >= __cache->max) { + __cache->max += CMAP_CACHE_ALLOC_SIZE; + __cache->cmaps = RENEW(__cache->cmaps, __cache->max, CMap *); + } + id = __cache->num; + (__cache->num)++; + __cache->cmaps[id] = cmap; + + return id; +} + +void +CMap_cache_close (void) +{ + if (__cache) { + int id; + for (id = 0; id < __cache->num; id++) { + CMap_release(__cache->cmaps[id]); + } + RELEASE(__cache->cmaps); + RELEASE(__cache); + __cache = NULL; + } +} diff --git a/Build/source/texk/xdvipdfmx/src/cmap.h b/Build/source/texk/xdvipdfmx/src/cmap.h new file mode 100644 index 00000000000..579361eb5f1 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cmap.h @@ -0,0 +1,118 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cmap.h,v 1.15 2004/09/05 13:30:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CMAP_H_ +#define _CMAP_H_ + +#include "cid.h" + +#include + +typedef unsigned short CID; +typedef unsigned short UCV16; + +/* Limits */ +#define CID_MAX_CID 65535 +#define CID_MAX CID_MAX_CID + +#define CID_NOTDEF_CHAR "\0\0" +#define CID_NOTDEF 0 + +#define UCS_NOTDEF_CHAR "\377\375" +#define UCS_NOTDEF 0xfffd + +/* + * TYPE_IDENTITY and TYPE_CID_TO_CODE is not defined in the CMap spec. + */ +#define CMAP_TYPE_IDENTITY 0 +#define CMAP_TYPE_CODE_TO_CID 1 +#define CMAP_TYPE_TO_UNICODE 2 +#define CMAP_TYPE_CID_TO_CODE 3 + +#define CMAP_PROF_TYPE_INBYTES_MIN 0 +#define CMAP_PROF_TYPE_INBYTES_MAX 1 +#define CMAP_PROF_TYPE_OUTBYTES_MIN 2 +#define CMAP_PROF_TYPE_OUTBYTES_MAX 3 + +typedef struct CMap CMap; + + +/************************** CMAP_MAIN **************************/ + +extern void CMap_set_verbose (void); +extern void CMap_set_silent (int value); + +extern CMap *CMap_new (void); +extern void CMap_release (CMap *cmap); + +extern int CMap_is_valid (CMap *cmap); +extern int CMap_is_Identity (CMap *cmap); +extern int CMap_get_profile (CMap *cmap, int type); + +extern char *CMap_get_name (CMap *cmap); +extern int CMap_get_type (CMap *cmap); +extern int CMap_get_wmode(CMap *cmap); +extern CIDSysInfo *CMap_get_CIDSysInfo(CMap *cmap); + +extern void CMap_set_name (CMap *cmap, const char *name); +extern void CMap_set_type (CMap *cmap, int type); +extern void CMap_set_wmode (CMap *cmap, int wmode); +extern void CMap_set_usecmap(CMap *cmap, CMap *ucmap); +extern void CMap_set_CIDSysInfo (CMap *cmap, const CIDSysInfo *csi); + +/* charName not supported */ +extern int CMap_add_bfchar (CMap *cmap, + const unsigned char *src, int srcdim, + const unsigned char *dest, int destdim); +extern int CMap_add_cidchar (CMap *cmap, + const unsigned char *src, int srcdim, CID dest); +extern int CMap_add_bfrange (CMap *cmap, + const unsigned char *srclo, const unsigned char *srchi, int srcdim, + const unsigned char *dest, int destdim); +extern int CMap_add_cidrange(CMap *cmap, + const unsigned char *srclo, const unsigned char *hi, int srcdim, + CID base); + +extern int CMap_add_notdefchar (CMap *cmap, const unsigned char *src, int srcdim, CID dst); +extern int CMap_add_notdefrange (CMap *cmap, + const unsigned char *srclo, const unsigned char *srchi, int srcdim, + CID dst); + +extern int CMap_add_codespacerange (CMap *cmap, + const unsigned char *codelo, const unsigned char *codehi, int dim); +extern int CMap_match_codespace (CMap *cmap, const unsigned char *c, int dim); + +extern void CMap_decode_char (CMap *cmap, + const unsigned char **inbuf, long *inbytesleft, + unsigned char **outbuf, long *outbytesleft); + +extern long CMap_decode (CMap *cmap, + const unsigned char **inbuf, long *inbytesleft, + unsigned char **outbuf, long *outbytesleft); + +extern void CMap_cache_init (void); +extern CMap *CMap_cache_get (int id); +extern int CMap_cache_find (const char *cmap_name); +extern void CMap_cache_close (void); +extern int CMap_cache_add (CMap *cmap); + +#endif /* _CMAP_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cmap_p.h b/Build/source/texk/xdvipdfmx/src/cmap_p.h new file mode 100644 index 00000000000..32d4250dafe --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cmap_p.h @@ -0,0 +1,104 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cmap_p.h,v 1.4 2004/08/15 15:37:08 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CMAP_P_H_ +#define _CMAP_P_H_ + +#include "cid.h" + +/* Mapping types, MAP_IS_NAME is not supported. */ +#define MAP_IS_CID (1 << 0) +#define MAP_IS_NAME (1 << 1) +#define MAP_IS_CODE (1 << 2) +#define MAP_IS_NOTDEF (1 << 3) + +#define MAP_IS_UNDEF 0 +#define MAP_TYPE_MASK 0x00f + +#define MAP_DEFINED(e) (((e) & MAP_TYPE_MASK) != MAP_IS_UNDEF ? 1 : 0) +#define MAP_TYPE(e) ((e) & MAP_TYPE_MASK) + +/* Lookup flags */ +#define MAP_LOOKUP_END 0 +#define MAP_LOOKUP_CONTINUE (1 << 4) +#define LOOKUP_CONTINUE(f) ((f) & MAP_LOOKUP_CONTINUE) +#define LOOKUP_END(f) (!LOOKUP_CONTINUE((f))) + +/* DEBUG */ +#define CMAP_DEBUG_STR "CMap" +#define CMAP_DEBUG 3 + +/* Codespacerange */ +typedef struct rangeDef { + int dim; /* Dimension of this codespacerange */ + unsigned char *codeLo; /* Lower bounds of valid input code */ + unsigned char *codeHi; /* Upper bounds of valid input code */ +} rangeDef; + +typedef struct mapDef { + int flag; + int len; /* 2 for CID, variable for Code.. */ + unsigned char *code; /* CID (as 16-bit BE), Code ... */ + struct mapDef *next; /* Next Subtbl for LOOKUP_CONTINUE */ +} mapDef; + +#define MEM_ALLOC_SIZE 4096 +typedef struct mapData { + long pos; /* Position of next free data segment */ + unsigned char *data; /* CID, Code... MEM_ALLOC_SIZE bytes */ + struct mapData *prev; /* Previous mapData data segment */ +} mapData; + +struct CMap { + char *name; + int type; /* CMapType: 1 for usual CMaps, + * 2 for ToUnicode CMaps, + * 0 for IDENTITY is also defined for convenience. + */ + int wmode; /* WMode: 0 for Horizontal, 1 for Vertical. */ + CIDSysInfo *CSI; /* CIDSystemInfo */ + + struct CMap *useCMap; + + struct { + int num; + int max; + rangeDef *ranges; + } codespace; + + mapDef *mapTbl; /* First 256 segment of mapping table */ + mapData *mapData; /* Storage for actual CMap data */ + + /* Additional data used by cmap.c, etc. */ + + int flags; /* Decoder flags Not used yet. */ + + struct { + int minBytesIn; + int maxBytesIn; + int minBytesOut; + int maxBytesOut; + } profile; + +}; + +#endif /* _CMAP_P_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cmap_read.c b/Build/source/texk/xdvipdfmx/src/cmap_read.c new file mode 100644 index 00000000000..c40652da08d --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cmap_read.c @@ -0,0 +1,605 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cmap_read.c,v 1.2 2005/06/08 11:18:37 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxutil.h" +#include "pst.h" + +#include "cmap_p.h" +#include "cmap.h" + +#include "cmap_read.h" + +static int __verbose = 0; + +#define CMAP_PARSE_DEBUG_STR "CMap_parse:" +#define CMAP_PARSE_DEBUG 3 + +#ifdef HAVE_DPXFILE +#include "dpxfile.h" +#else +#include "mfileio.h" + +typedef struct { + unsigned char *cursor; + unsigned char *endptr; + + unsigned char *buf; + long max; + FILE *fp; + long unread; +} ifreader; + +static ifreader *ifreader_create (FILE *fp, long remain, long bufsize); +static long ifreader_read (ifreader *reader, long size); +static void ifreader_destroy (ifreader *reader); + +static ifreader * +ifreader_create (FILE *fp, long size, long bufsize) +{ + ifreader *reader; + + reader = NEW(1, ifreader); + reader->buf = NEW(bufsize, unsigned char); + reader->max = bufsize; + reader->fp = fp; + reader->unread = size; + + reader->cursor = reader->endptr = reader->buf; + + return reader; +} + +static void +ifreader_destroy (ifreader *reader) +{ + ASSERT(reader); + if (reader->buf) + RELEASE(reader->buf); + RELEASE(reader); +} + + +static long +ifreader_read (ifreader *reader, long size) +{ + long bytesread = 0, bytesrem = 0; + + ASSERT(reader); + bytesrem = (long) reader->endptr - (long) reader->cursor; + if (size > reader->max) { + if (__verbose) + MESG("\nExtending buffer (%ld bytes)...\n", size); + reader->buf = RENEW(reader->buf, size, unsigned char); + reader->max = size; + } + if (reader->unread > 0 && bytesrem < size) { + bytesread = MIN(reader->max - bytesrem, reader->unread); + memmove(reader->buf, reader->cursor, bytesrem); + reader->cursor = reader->buf; + reader->endptr = reader->buf + bytesrem; + if (fread(reader->endptr, 1, bytesread, reader->fp) != bytesread) + ERROR("Reading file failed."); + reader->endptr += bytesread; + reader->unread -= bytesread; + if (__verbose) + MESG("Reading more %ld bytes (%ld bytes remains in buffer)...\n", bytesread, bytesrem); + } + + return bytesread + bytesrem; +} +#define ifreader_need(f,s) ifreader_read((f),(s)) + +#endif /* HAVE_DPXFILE */ + +static int check_next_token (ifreader *input, const char *key); +static int get_coderange (ifreader *input, unsigned char *codeLo, unsigned char *codeHi, int *dim, int maxlen); + +static int handle_codearray (CMap *cmap, ifreader *input, unsigned char *codeLo, int dim, int count); +static int do_codespacerange (CMap *cmap, ifreader *input, int count); +static int do_notdefrange (CMap *cmap, ifreader *input, int count); +static int do_bfrange (CMap *cmap, ifreader *input, int count); +static int do_cidrange (CMap *cmap, ifreader *input, int count); +static int do_notdefchar (CMap *cmap, ifreader *input, int count); +static int do_bfchar (CMap *cmap, ifreader *input, int count); +static int do_cidchar (CMap *cmap, ifreader *input, int count); + +#define TOKEN_LEN_MAX 127 + +static int +check_next_token (ifreader *input, const char *key) +{ + int cmp; + pst_obj *token; + char *str; + + if (ifreader_need(input, strlen(key)) < 0) + return -1; + if ((token = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + + str = (char *) pst_getSV(token); + cmp = strcmp(str, key) ? -1 : 0; + if (str) + RELEASE(str); + pst_release_obj(token); + + return cmp; +} + +static int +get_coderange (ifreader *input, + unsigned char *codeLo, unsigned char *codeHi, int *dim, int maxlen) +{ + pst_obj *tok1, *tok2; + int dim1, dim2; + + if ((tok1 = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) == NULL) { + pst_release_obj(tok1); + return -1; + } + + if (!PST_STRINGTYPE(tok1) || !PST_STRINGTYPE(tok2)) { + pst_release_obj(tok1); + pst_release_obj(tok2); + return -1; + } + + dim1 = pst_length_of(tok1); + dim2 = pst_length_of(tok2); + if (dim1 != dim2 || dim1 > maxlen) { + pst_release_obj(tok1); + pst_release_obj(tok2); + return -1; + } + + memcpy(codeLo, pst_data_ptr(tok1), dim1); + memcpy(codeHi, pst_data_ptr(tok2), dim2); + pst_release_obj(tok1); + pst_release_obj(tok2); + + *dim = dim1; + return 0; +} + +static int +do_codespacerange (CMap *cmap, ifreader *input, int count) +{ + unsigned char codeLo[TOKEN_LEN_MAX], codeHi[TOKEN_LEN_MAX]; + int dim; + + while (count-- > 0) { + if (get_coderange(input, codeLo, codeHi, &dim, TOKEN_LEN_MAX) < 0) + return -1; + CMap_add_codespacerange(cmap, codeLo, codeHi, dim); + } + + return check_next_token(input, "endcodespacerange"); +} + +/* + * bfrange + * [destCode1 destCode2 ...] + */ +static int +handle_codearray (CMap *cmap, ifreader *input, unsigned char *codeLo, int dim, int count) +{ + pst_obj *tok = NULL; + + if (dim < 1) + ERROR("Invalid code range."); + while (count-- > 0) { + if ((tok = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + else if (PST_STRINGTYPE(tok)) { + CMap_add_bfchar(cmap, codeLo, dim, (unsigned char *) pst_data_ptr(tok), (int) pst_length_of(tok)); + } else if (PST_MARKTYPE(tok) || !PST_NAMETYPE(tok)) + ERROR("%s: Invalid CMap mapping record.", CMAP_PARSE_DEBUG_STR); + else + ERROR("%s: Mapping to charName not supported.", CMAP_PARSE_DEBUG_STR); + pst_release_obj(tok); + codeLo[dim-1] += 1; + } + + return check_next_token(input, "]"); +} + +static int +do_notdefrange (CMap *cmap, ifreader *input, int count) +{ + pst_obj *tok; + unsigned char codeLo[TOKEN_LEN_MAX], codeHi[TOKEN_LEN_MAX]; + long dstCID; + int dim; + + while (count-- > 0) { + if (ifreader_need(input, TOKEN_LEN_MAX*3) < 0) + return -1; + if (get_coderange(input, codeLo, codeHi, &dim, TOKEN_LEN_MAX) < 0 || + (tok = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + if (PST_INTEGERTYPE(tok)) { + dstCID = pst_getIV(tok); + if (dstCID >= 0 && dstCID <= CID_MAX) + CMap_add_notdefrange(cmap, codeLo, codeHi, dim, (CID) dstCID); + } else + WARN("%s: Invalid CMap mapping record. (ignored)", CMAP_PARSE_DEBUG_STR); + pst_release_obj(tok); + } + + return check_next_token(input, "endnotdefrange"); +} + +static int +do_bfrange (CMap *cmap, ifreader *input, int count) +{ + pst_obj *tok; + unsigned char codeLo[TOKEN_LEN_MAX], codeHi[TOKEN_LEN_MAX]; + int srcdim; + + while (count-- > 0) { + if (ifreader_need(input, TOKEN_LEN_MAX*3) < 0) + return -1; + if (get_coderange(input, codeLo, codeHi, &srcdim, TOKEN_LEN_MAX) < 0 || + (tok = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + if (PST_STRINGTYPE(tok)) { + CMap_add_bfrange(cmap, codeLo, codeHi, srcdim, + (unsigned char *) pst_data_ptr(tok), (int) pst_length_of(tok)); + } else if (PST_MARKTYPE(tok)) { + if (handle_codearray(cmap, input, codeLo, srcdim, + codeHi[srcdim-1] - codeLo[srcdim-1] + 1) < 0) { + pst_release_obj(tok); + return -1; + } + } else + WARN("%s: Invalid CMap mapping record. (ignored)", CMAP_PARSE_DEBUG_STR); + pst_release_obj(tok); + } + + return check_next_token(input, "endbfrange"); +} + +static int +do_cidrange (CMap *cmap, ifreader *input, int count) +{ + pst_obj *tok; + unsigned char codeLo[TOKEN_LEN_MAX], codeHi[TOKEN_LEN_MAX]; + long dstCID; + int dim; + + while (count-- > 0) { + if (ifreader_need(input, TOKEN_LEN_MAX*3) < 0) + return -1; + if (get_coderange(input, codeLo, codeHi, &dim, TOKEN_LEN_MAX) < 0 || + (tok = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + if (PST_INTEGERTYPE(tok)) { + dstCID = pst_getIV(tok); + if (dstCID >= 0 && dstCID <= CID_MAX) + CMap_add_cidrange(cmap, codeLo, codeHi, dim, (CID) dstCID); + } else + WARN("%s: Invalid CMap mapping record. (ignored)", CMAP_PARSE_DEBUG_STR); + pst_release_obj(tok); + } + + return check_next_token(input, "endcidrange"); +} + +static int +do_notdefchar (CMap *cmap, ifreader *input, int count) +{ + pst_obj *tok1, *tok2; + long dstCID; + + while (count-- > 0) { + if (ifreader_need(input, TOKEN_LEN_MAX*2) < 0) + return -1; + if ((tok1 = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) == NULL) { + pst_release_obj(tok1); + return -1; + } + if (PST_STRINGTYPE(tok1) && PST_INTEGERTYPE(tok2)) { + dstCID = pst_getIV(tok2); + if (dstCID >= 0 && dstCID <= CID_MAX) + CMap_add_notdefchar(cmap, pst_data_ptr(tok1), pst_length_of(tok1), (CID) dstCID); + } else + WARN("%s: Invalid CMap mapping record. (ignored)", CMAP_PARSE_DEBUG_STR); + pst_release_obj(tok1); + pst_release_obj(tok2); + } + + return check_next_token(input, "endnotdefchar"); +} + +static int +do_bfchar (CMap *cmap, ifreader *input, int count) +{ + pst_obj *tok1, *tok2; + + while (count-- > 0) { + if (ifreader_need(input, TOKEN_LEN_MAX*2) < 0) + return -1; + if ((tok1 = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) == NULL) { + pst_release_obj(tok1); + return -1; + } + /* We only support single CID font as descendant font, charName should not come here. */ + if (PST_STRINGTYPE(tok1) && PST_STRINGTYPE(tok2)) { + CMap_add_bfchar(cmap, + (unsigned char *) pst_data_ptr(tok1), (int) pst_length_of(tok1), + (unsigned char *) pst_data_ptr(tok2), (int) pst_length_of(tok2)); + } else if (PST_NAMETYPE(tok2)) + ERROR("%s: Mapping to charName not supported.", CMAP_PARSE_DEBUG_STR); + else + WARN("%s: Invalid CMap mapping record. (ignored)", CMAP_PARSE_DEBUG_STR); + pst_release_obj(tok1); + pst_release_obj(tok2); + } + + return check_next_token(input, "endbfchar"); +} + +static int +do_cidchar (CMap *cmap, ifreader *input, int count) +{ + pst_obj *tok1, *tok2; + long dstCID; + + while (count-- > 0) { + if (ifreader_need(input, TOKEN_LEN_MAX*2) < 0) + return -1; + if ((tok1 = pst_get_token(&(input->cursor), input->endptr)) == NULL) + return -1; + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) == NULL) { + pst_release_obj(tok1); + return -1; + } + if (PST_STRINGTYPE(tok1) && PST_INTEGERTYPE(tok2)) { + dstCID = pst_getIV(tok2); + if (dstCID >= 0 && dstCID <= CID_MAX) + CMap_add_cidchar(cmap, pst_data_ptr(tok1), pst_length_of(tok1), (CID) dstCID); + } else + WARN("%s: Invalid CMap mapping record. (ignored)", CMAP_PARSE_DEBUG_STR); + pst_release_obj(tok1); + pst_release_obj(tok2); + } + + return check_next_token(input, "endcidchar"); +} + + +#define MATCH_NAME(t,n) (PST_NAMETYPE((t)) && !memcmp(pst_data_ptr((t)),(n),strlen((n)))) +#define MATCH_OP(t,n) (PST_UNKNOWNTYPE((t)) && !memcmp(pst_data_ptr((t)),(n),strlen((n)))) + +static int +do_cidsysteminfo (CMap *cmap, ifreader *input) +{ + pst_obj *tok1, *tok2; + CIDSysInfo csi = {NULL, NULL, -1}; + int simpledict = 0; + int error = 0; + + ifreader_need(input, TOKEN_LEN_MAX*2); + /* + * Assuming /CIDSystemInfo 3 dict dup begin .... end def + * or /CIDSystemInfo << ... >> def + */ + while ((tok1 = pst_get_token(&(input->cursor), input->endptr)) != NULL) { + if (PST_MARKTYPE(tok1)) { + simpledict = 1; + pst_release_obj(tok1); + break; + } else if (MATCH_OP(tok1, "begin")) { + simpledict = 0; + pst_release_obj(tok1); + break; + } else { + pst_release_obj(tok1); + /* continue */ + } + } + tok1 = tok2 = NULL; + while (!error && + (tok1 = pst_get_token(&(input->cursor), input->endptr)) != NULL) { + if (MATCH_OP(tok1, ">>") && simpledict) { + pst_release_obj(tok1); + break; + } else if (MATCH_OP(tok1, "end") && !simpledict) { + pst_release_obj(tok1); + break; + } else if (MATCH_NAME(tok1, "Registry") && + (tok2 = pst_get_token(&(input->cursor), input->endptr)) != NULL) { + if (!PST_STRINGTYPE(tok2)) + error = -1; + else if (!simpledict && + check_next_token(input, "def")) + error = -1; + if (!error) + csi.registry = (char *) pst_getSV(tok2); + } else if (MATCH_NAME(tok1, "Ordering") && + (tok2 = pst_get_token(&(input->cursor), input->endptr)) != NULL) { + if (!PST_STRINGTYPE(tok2)) + error = -1; + else if (!simpledict && + check_next_token(input, "def")) + error = -1; + if (!error) + csi.ordering = (char *) pst_getSV(tok2); + } else if (MATCH_NAME(tok1, "Supplement") && + (tok2 = pst_get_token(&(input->cursor), input->endptr)) != NULL) { + if (!PST_INTEGERTYPE(tok2)) + error = -1; + else if (!simpledict && + check_next_token(input, "def")) + error = -1; + if (!error) + csi.supplement = pst_getIV(tok2); + } + if (tok2) + pst_release_obj(tok2); + if (tok1) + pst_release_obj(tok1); + tok1 = tok2 = NULL; + } + if (!error && + check_next_token(input, "def")) + error = -1; + + if (!error && + csi.registry && csi.ordering && + csi.supplement >= 0) { + CMap_set_CIDSysInfo(cmap, &csi); + } + + if (csi.registry) + RELEASE(csi.registry); + if (csi.ordering) + RELEASE(csi.ordering); + + return error; +} + +#define INPUT_BUF_SIZE 4096 +#define CMAP_SIG_MAX 64 +int +CMap_parse_check_sig (FILE *fp) +{ + int result = -1; + char sig[CMAP_SIG_MAX+1]; + + if (!fp) + return -1; + + rewind(fp); + if (fread(sig, sizeof(char), CMAP_SIG_MAX, fp) != CMAP_SIG_MAX) + result = -1; + else { + sig[CMAP_SIG_MAX+1] = 0; + if (strncmp(sig, "%!PS", 4)) + result = -1; + else if (strstr(sig+4, "Resource-CMap")) + result = 0; + } + rewind(fp); + + return result; +} + +int +CMap_parse (CMap *cmap, FILE *fp) +{ + pst_obj *tok1, *tok2; + ifreader *input; + int status = 0, tmpint = -1; + + ASSERT(cmap && fp); + + input = ifreader_create(fp, file_size(fp), INPUT_BUF_SIZE); + + while (status >= 0) { + tok1 = tok2 = NULL; + ifreader_read(input, INPUT_BUF_SIZE/2); + tok1 = pst_get_token(&(input->cursor), input->endptr); + if (tok1 == NULL) + break; + else if (MATCH_NAME(tok1, "CMapName")) { + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) == NULL || + !(PST_NAMETYPE(tok2) || PST_STRINGTYPE(tok2)) || + check_next_token(input, "def") < 0) + status = -1; + else + CMap_set_name(cmap, pst_data_ptr(tok2)); + } else if (MATCH_NAME(tok1, "CMapType")) { + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) == NULL || + !PST_INTEGERTYPE(tok2) || + check_next_token(input, "def") < 0) + status = -1; + else + CMap_set_type(cmap, pst_getIV(tok2)); + } else if (MATCH_NAME(tok1, "WMode")) { + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) == NULL || + !PST_INTEGERTYPE(tok2) || + check_next_token(input, "def") < 0) + status = -1; + else + CMap_set_wmode(cmap, pst_getIV(tok2)); + } else if (MATCH_NAME(tok1, "CIDSystemInfo")) { + status = do_cidsysteminfo(cmap, input); + } else if (MATCH_NAME(tok1, "Version") || + MATCH_NAME(tok1, "UIDOffset") || + MATCH_NAME(tok1, "XUID")) { + /* Ignore */ + } else if (PST_NAMETYPE(tok1)) { + /* Possibly usecmap comes next */ + if ((tok2 = pst_get_token(&(input->cursor), input->endptr)) != NULL && + MATCH_OP(tok2, "usecmap")) { + int id; + CMap *ucmap; + id = CMap_cache_find(pst_data_ptr(tok1)); + if (id < 0) + status = -1; + else { + ucmap = CMap_cache_get(id); + CMap_set_usecmap(cmap, ucmap); + } + } + } else if (MATCH_OP(tok1, "begincodespacerange")) { + status = do_codespacerange(cmap, input, tmpint); + } else if (MATCH_OP(tok1, "beginnotdefrange")) { + status = do_notdefrange(cmap, input, tmpint); + } else if (MATCH_OP(tok1, "beginnotdefchar")) { + status = do_notdefchar(cmap, input, tmpint); + } else if (MATCH_OP(tok1, "beginbfrange")) { + status = do_bfrange(cmap, input, tmpint); + } else if (MATCH_OP(tok1, "beginbfchar")) { + status = do_bfchar(cmap, input, tmpint); + } else if (MATCH_OP(tok1, "begincidrange")) { + status = do_cidrange(cmap, input, tmpint); + } else if (MATCH_OP(tok1, "begincidchar")) { + status = do_cidchar(cmap, input, tmpint); + } else if (PST_INTEGERTYPE(tok1)) { + tmpint = pst_getIV(tok1); + } /* else Simply ignore */ + if (tok1) + pst_release_obj(tok1); + if (tok2) + pst_release_obj(tok2); + } + + ifreader_destroy(input); + + return (status < 0) ? -1 : CMap_is_valid(cmap); +} diff --git a/Build/source/texk/xdvipdfmx/src/cmap_read.h b/Build/source/texk/xdvipdfmx/src/cmap_read.h new file mode 100644 index 00000000000..7e334e2263a --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cmap_read.h @@ -0,0 +1,34 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cmap_read.h,v 1.1 2004/08/08 15:16:01 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CMAP_READ_H_ +#define _CMAP_READ_H_ + +#include +#include "cmap.h" + +extern int CMap_parse_check_sig (FILE *fp); +extern int CMap_parse (CMap *cmap, FILE *fp); + +#endif /* _CMAP_READ_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cmap_write.c b/Build/source/texk/xdvipdfmx/src/cmap_write.c new file mode 100644 index 00000000000..b7e8ea75dba --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cmap_write.c @@ -0,0 +1,601 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cmap_write.c,v 1.6 2004/09/05 13:30:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * References: + * + * PostScript Language Reference Manual, 3rd. ed. (Adobe Systems Inc.) + * 5.11.4 CMap Dictionaries + * 5.11.5 FMapType 9 Composite Fonts + * Building CMap Files for CID-Keyed Fonts, Adobe Technical Note #5099 + * CID-Keyed Font Technology Overview, Adobe Technical Note #5092 + * Adobe CMap and CIDFont Files Specification, Adobe Technical Specification #5014 + * + * Undefined Character Handling: + * PLRM 3rd. ed., sec. 5.11.5., "Handling Undefined Characters" + * + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "pdfobj.h" +#include "pdfresource.h" + +#include "cmap_p.h" +#include "cmap.h" + +#include "cmap_write.h" + +struct sbuf { + char *buf; + char *curptr; + char *limptr; +}; + +static int write_map (mapDef *mtab, int count, + unsigned char *codestr, int depth, + struct sbuf *wbuf, pdf_obj *stream); +#if 0 +/* Not completed yet */ + +/* used_slot... + * This is for collecting only used CIDs. + * add_inverse_map never supports code-to-code of + * cid-to-code mapping. + */ +static int add_inverse_map (CMap *icmap, mapDef *mtab, + unsigned char *codestr, int depth, + unsigned char *used_slot); +static int add_map (CMap *cmap, mapDef *mtab, + unsigned char *codestr, int depth); +static CMap *invert_cmap (CMap *cmap, unsigned char *used_slot); +static CMap *flatten_cmap (CMap *cmap); +#endif /* 0 */ + +static int +block_count (mapDef *mtab, int c) +{ + int count = 0, n; + + n = mtab[c].len - 1; + c += 1; + for (; c < 256; c++) { + if (LOOKUP_CONTINUE(mtab[c].flag) || + !MAP_DEFINED(mtab[c].flag) || + (MAP_TYPE(mtab[c].flag) != MAP_IS_CID && + MAP_TYPE(mtab[c].flag) != MAP_IS_CODE) || + mtab[c-1].len != mtab[c].len) + break; + else if (!memcmp(mtab[c-1].code, mtab[c].code, n) && + mtab[c-1].code[n] < 255 && + mtab[c-1].code[n] + 1 == mtab[c].code[n]) + count++; + else { + break; + } + } + + return count; +} + +static int +write_map (mapDef *mtab, int count, + unsigned char *codestr, int depth, + struct sbuf *wbuf, pdf_obj *stream) +{ + int c, i, block_length; + mapDef *mtab1; + /* Must be greater than 1 */ +#define BLOCK_LEN_MIN 2 + struct { + int start, count; + } blocks[256/BLOCK_LEN_MIN+1]; + int num_blocks = 0; + + for (c = 0; c < 256; c++) { + codestr[depth] = (unsigned char) (c & 0xff); + if (LOOKUP_CONTINUE(mtab[c].flag)) { + mtab1 = mtab[c].next; + count = write_map(mtab1, count, + codestr, depth + 1, wbuf, stream); + } else { + if (MAP_DEFINED(mtab[c].flag)) { + switch (MAP_TYPE(mtab[c].flag)) { + case MAP_IS_CID: case MAP_IS_CODE: + block_length = block_count(mtab, c); + if (block_length >= BLOCK_LEN_MIN) { + blocks[num_blocks].start = c; + blocks[num_blocks].count = block_length; + num_blocks++; + c += block_length; + } else { + *(wbuf->curptr)++ = '<'; + for (i = 0; i <= depth; i++) + sputx(codestr[i], &(wbuf->curptr), wbuf->limptr); + *(wbuf->curptr)++ = '>'; + *(wbuf->curptr)++ = ' '; + *(wbuf->curptr)++ = '<'; + for (i = 0; i < mtab[c].len; i++) + sputx(mtab[c].code[i], &(wbuf->curptr), wbuf->limptr); + *(wbuf->curptr)++ = '>'; + *(wbuf->curptr)++ = '\n'; + count++; + } + break; + case MAP_IS_NAME: + ERROR("%s: Unexpected error...", CMAP_DEBUG_STR); + break; + case MAP_IS_NOTDEF: + break; + default: + ERROR("%s: Unknown mapping type: %d", + CMAP_DEBUG_STR, MAP_TYPE(mtab[c].flag)); + } + } + } + + /* Flush if necessary */ + if (count >= 100 || + wbuf->curptr >= wbuf->limptr ) { + char fmt_buf[32]; + if (count > 100) + ERROR("Unexpected error....: %d", count); + sprintf(fmt_buf, "%d beginbfchar\n", count); + pdf_add_stream(stream, fmt_buf, strlen(fmt_buf)); + pdf_add_stream(stream, + wbuf->buf, (long) (wbuf->curptr - wbuf->buf)); + wbuf->curptr = wbuf->buf; + pdf_add_stream(stream, + "endbfchar\n", strlen("endbfchar\n")); + count = 0; + } + } + + if (num_blocks > 0) { + char fmt_buf[32]; + + if (count > 0) { + sprintf(fmt_buf, "%d beginbfchar\n", count); + pdf_add_stream(stream, fmt_buf, strlen(fmt_buf)); + pdf_add_stream(stream, + wbuf->buf, (long) (wbuf->curptr - wbuf->buf)); + wbuf->curptr = wbuf->buf; + pdf_add_stream(stream, + "endbfchar\n", strlen("endbfchar\n")); + count = 0; + } + sprintf(fmt_buf, "%d beginbfrange\n", num_blocks); + pdf_add_stream(stream, fmt_buf, strlen(fmt_buf)); + for (i = 0; i < num_blocks; i++) { + int j; + + c = blocks[i].start; + *(wbuf->curptr)++ = '<'; + for (j = 0; j < depth; j++) + sputx(codestr[j], &(wbuf->curptr), wbuf->limptr); + sputx(c, &(wbuf->curptr), wbuf->limptr); + *(wbuf->curptr)++ = '>'; + *(wbuf->curptr)++ = ' '; + *(wbuf->curptr)++ = '<'; + for (j = 0; j < depth; j++) + sputx(codestr[j], &(wbuf->curptr), wbuf->limptr); + sputx(c + blocks[i].count, &(wbuf->curptr), wbuf->limptr); + *(wbuf->curptr)++ = '>'; + *(wbuf->curptr)++ = ' '; + *(wbuf->curptr)++ = '<'; + for (j = 0; j < mtab[c].len; j++) + sputx(mtab[c].code[j], &(wbuf->curptr), wbuf->limptr); + *(wbuf->curptr)++ = '>'; + *(wbuf->curptr)++ = '\n'; + } + pdf_add_stream(stream, + wbuf->buf, (long) (wbuf->curptr - wbuf->buf)); + wbuf->curptr = wbuf->buf; + pdf_add_stream(stream, + "endbfrange\n", strlen("endbfrange\n")); + } + + return count; +} + +#define CMAP_BEGIN "\ +/CIDInit /ProcSet findresource begin\n\ +12 dict begin\n\ +begincmap\n\ +" + +#define CMAP_END "\ +endcmap\n\ +CMapName currentdict /CMap defineresource pop\n\ +end\n\ +end\n\ +" + +pdf_obj * +CMap_create_stream (CMap *cmap, int flags) /* flags unused */ +{ + pdf_obj *stream; + pdf_obj *stream_dict; + CIDSysInfo *csi; + struct sbuf wbuf; + struct rangeDef *ranges; + unsigned char *codestr; + int i, j, count = 0; + + if (!cmap || !CMap_is_valid(cmap)) { + WARN("Invalid CMap"); + return NULL; + } + + if (cmap->type == CMAP_TYPE_IDENTITY) + return NULL; + + stream = pdf_new_stream(STREAM_COMPRESS); + stream_dict = pdf_stream_dict(stream); + + csi = CMap_get_CIDSysInfo(cmap); + if (!csi) { + csi = (cmap->type != CMAP_TYPE_TO_UNICODE) ? + &CSI_IDENTITY : &CSI_UNICODE; + } + + if (cmap->type != CMAP_TYPE_TO_UNICODE) { + pdf_obj *csi_dict; + + csi_dict = pdf_new_dict(); + pdf_add_dict(csi_dict, + pdf_new_name("Registry"), + pdf_new_string(csi->registry, strlen(csi->registry))); + pdf_add_dict(csi_dict, + pdf_new_name("Ordering"), + pdf_new_string(csi->ordering, strlen(csi->ordering))); + pdf_add_dict(csi_dict, + pdf_new_name("Supplement"), + pdf_new_number(csi->supplement)); + + pdf_add_dict(stream_dict, + pdf_new_name("Type"), + pdf_new_name("CMap")); + pdf_add_dict(stream_dict, + pdf_new_name("CMapName"), + pdf_new_name(cmap->name)); + pdf_add_dict(stream_dict, + pdf_new_name("CIDSystemInfo"), csi_dict); + if (cmap->wmode != 0) + pdf_add_dict(stream_dict, + pdf_new_name("WMode"), + pdf_new_number(cmap->wmode)); + } + + /* TODO: + * Predefined CMaps need not to be embedded. + */ + if (cmap->useCMap) { + ERROR("UseCMap found (not supported yet)..."); + if (CMap_is_Identity(cmap->useCMap)) { /* not sure */ + if (CMap_get_wmode(cmap) == 1) { + pdf_add_dict(stream_dict, + pdf_new_name("UseCMap"), + pdf_new_name("Identity-V")); + } else { + pdf_add_dict(stream_dict, + pdf_new_name("UseCMap"), + pdf_new_name("Identity-H")); + } + } else { + long res_id; + pdf_obj *ucmap_ref; + + res_id = pdf_findresource("CMap", CMap_get_name(cmap->useCMap)); + if (res_id >= 0) { + ucmap_ref = pdf_get_resource_reference(res_id); + } else { + pdf_obj *ucmap_obj; + + ucmap_obj = CMap_create_stream(cmap->useCMap, 0); + if (!ucmap_obj) { + ERROR("Uh ah. I cannot continue..."); + } + + res_id = pdf_defineresource("CMap", + CMap_get_name(cmap->useCMap), + ucmap_obj, PDF_RES_FLUSH_IMMEDIATE); + ucmap_ref = pdf_get_resource_reference(res_id); + } + pdf_add_dict(stream_dict, pdf_new_name("UseCMap"), ucmap_ref); + } + } + +#define WBUF_SIZE 4096 + wbuf.buf = NEW(WBUF_SIZE, char); + codestr = NEW(cmap->profile.maxBytesIn, unsigned char); + memset(codestr, 0, cmap->profile.maxBytesIn); + + wbuf.curptr = wbuf.buf; + wbuf.limptr = wbuf.buf + WBUF_SIZE - + 2 * (cmap->profile.maxBytesIn + cmap->profile.maxBytesOut) + 16; + + /* Start CMap */ + pdf_add_stream(stream, (void *) CMAP_BEGIN, strlen(CMAP_BEGIN)); + + wbuf.curptr += sprintf(wbuf.curptr, "/CMapName /%s def\n", cmap->name); + wbuf.curptr += sprintf(wbuf.curptr, "/CMapType %d def\n" , cmap->type); + if (cmap->wmode != 0 && + cmap->type != CMAP_TYPE_TO_UNICODE) + wbuf.curptr += sprintf(wbuf.curptr, "/WMode %d def\n", cmap->wmode); + +#define CMAP_CSI_FMT "/CIDSystemInfo <<\n\ + /Registry (%s)\n\ + /Ordering (%s)\n\ + /Supplement %d\n\ +>> def\n" + wbuf.curptr += sprintf(wbuf.curptr, CMAP_CSI_FMT, + csi->registry, csi->ordering, csi->supplement); + pdf_add_stream(stream, wbuf.buf, (long)(wbuf.curptr - wbuf.buf)); + wbuf.curptr = wbuf.buf; + + /* codespacerange */ + ranges = cmap->codespace.ranges; + wbuf.curptr += sprintf(wbuf.curptr, + "%d begincodespacerange\n", cmap->codespace.num); + for (i = 0; i < cmap->codespace.num; i++) { + *(wbuf.curptr)++ = '<'; + for (j = 0; j < ranges[i].dim; j++) { + sputx(ranges[i].codeLo[j], &(wbuf.curptr), wbuf.limptr); + } + *(wbuf.curptr)++ = '>'; + *(wbuf.curptr)++ = ' '; + *(wbuf.curptr)++ = '<'; + for (j = 0; j < ranges[i].dim; j++) { + sputx(ranges[i].codeHi[j], &(wbuf.curptr), wbuf.limptr); + } + *(wbuf.curptr)++ = '>'; + *(wbuf.curptr)++ = '\n'; + } + pdf_add_stream(stream, wbuf.buf, (long)(wbuf.curptr - wbuf.buf)); + wbuf.curptr = wbuf.buf; + pdf_add_stream(stream, + "endcodespacerange\n", strlen("endcodespacerange\n")); + + /* CMap body */ + if (cmap->mapTbl) { + count = write_map(cmap->mapTbl, + 0, codestr, 0, &wbuf, stream); /* Top node */ + if (count > 0) { /* Flush */ + char fmt_buf[32]; + if (count > 100) + ERROR("Unexpected error....: %d", count); + sprintf(fmt_buf, "%d beginbfchar\n", count); + pdf_add_stream(stream, fmt_buf, strlen(fmt_buf)); + pdf_add_stream(stream, + wbuf.buf, (long) (wbuf.curptr - wbuf.buf)); + pdf_add_stream(stream, + "endbfchar\n", strlen("endbfchar\n")); + count = 0; + wbuf.curptr = wbuf.buf; + } + } + /* End CMap */ + pdf_add_stream(stream, CMAP_END, strlen(CMAP_END)); + + RELEASE(codestr); + RELEASE(wbuf.buf); + + return stream; +} + +#if 0 +/* Not completed yet */ + +static int +add_inverse_map (CMap *icmap, mapDef *mtab, + unsigned char *codestr, int depth, + unsigned char *used_slot) +{ + CID cid; + int c; + mapDef *mtab1; + + for (c = 0; c < 256; c++) { + codestr[depth] = (unsigned char) (c & 0xff); + if (LOOKUP_CONTINUE(mtab[c].flag)) { + mtab1 = mtab[c].next; + add_inverse_map(icmap, mtab1, codestr, depth + 1, used_slot); + } else { + if (MAP_DEFINED(mtab[c].flag)) { + switch (MAP_TYPE(mtab[c].flag)) { + /* We should restrict it to to-CID mapping. + * However... + */ + case MAP_IS_CID: case MAP_IS_CODE: + if (mtab[c].len == 2) { + cid = (mtab[c].code[0] << 8)|mtab[c].code[1]; +#ifndef is_used_char2 +#define is_used_char2(b,c) (((b)[(c)/8]) & (1 << (7-((c)%8)))) +#endif + if (!used_slot || + is_used_char2(used_slot, cid)) { + CMap_add_bfchar(icmap, + mtab[c].code, mtab[c].len, + codestr, depth + 1); + } + } + break; + case MAP_IS_NAME: + ERROR("%s: Unexpected error...", CMAP_DEBUG_STR); + break; + case MAP_IS_NOTDEF: + break; + default: + ERROR("%s: Unknown mapping type: %d", + CMAP_DEBUG_STR, MAP_TYPE(mtab[c].flag)); + } + } + } + } + + return 0; +} + +static int +add_map (CMap *cmap, mapDef *mtab, + unsigned char *codestr, int depth) +{ + int c; + mapDef *mtab1; + + for (c = 0; c < 256; c++) { + codestr[depth] = (unsigned char) (c & 0xff); + if (LOOKUP_CONTINUE(mtab[c].flag)) { + mtab1 = mtab[c].next; + add_map(cmap, mtab1, codestr, depth + 1); + } else { + if (MAP_DEFINED(mtab[c].flag)) { + switch (MAP_TYPE(mtab[c].flag)) { + case MAP_IS_CID: case MAP_IS_CODE: + CMap_add_bfchar(cmap, + codestr, depth + 1, + mtab[c].code, mtab[c].len); + break; + case MAP_IS_NAME: + ERROR("%s: Unexpected error...", CMAP_DEBUG_STR); + break; + case MAP_IS_NOTDEF: + break; + default: + ERROR("%s: Unknown mapping type: %d", + CMAP_DEBUG_STR, MAP_TYPE(mtab[c].flag)); + } + } + } + } + + return 0; +} + + +static CMap * +invert_cmap (CMap *cmap, unsigned char *used_slot) +{ + CMap *icmap; + unsigned char *codestr; + unsigned char range_min[2] = {0x00, 0x00}; /* CID */ + unsigned char range_max[2] = {0xff, 0xfe}; /* CID */ + + cmap = flatten_cmap(cmap); + ASSERT(cmap); + + icmap = CMap_new(); + CMap_set_type(icmap, CMAP_TYPE_CID_TO_CODE); + CMap_add_codespacerange(icmap, range_min, range_max, 2); + + if (cmap->mapTbl) { + codestr = NEW(cmap->profile.maxBytesIn, unsigned char); + memset(codestr, 0, cmap->profile.maxBytesIn); + add_inverse_map(icmap, cmap->mapTbl, + codestr, 0, used_slot); /* top node */ + RELEASE(codestr); + } + + CMap_release(cmap); + + return icmap; +} + +static CMap * +flatten_cmap (CMap *cmap) +{ + CMap *fcmap; + rangeDef *range; + int i; + + ASSERT(cmap); + + fcmap = CMap_new(); + + for (i = 0; i < cmap->codespace.num; i++) { + range = &(cmap->codespace.ranges[i]); + CMap_add_codespacerange(fcmap, range->codeLo, range->codeHi, range->dim); + } + CMap_set_CIDSysInfo(fcmap, cmap->CSI); + CMap_set_type (fcmap, cmap->type ); + CMap_set_wmode(fcmap, cmap->wmode); + + fcmap->flags = cmap->flags; + fcmap->version = cmap->version; + + while (cmap) { + if (cmap->mapTbl) { + unsigned char *codestr; + + codestr = NEW(cmap->profile.maxBytesIn, unsigned char); + memset(codestr, 0, cmap->profile.maxBytesIn); + add_map(fcmap, cmap->mapTbl, codestr, 0); /* top node */ + RELEASE(codestr); + } + cmap = cmap->useCMap; + } + + return fcmap; +} + +pdf_obj * +CMap_ToCode_stream (CMap *cmap, const char *cmap_name, + CIDSysInfo *csi, int cmap_type, + unsigned char *used_slot, int flags) +{ + pdf_obj *stream = NULL; + CMap *icmap; + + ASSERT(cmap && cmap_name); + + if (cmap->type != + CMAP_TYPE_CODE_TO_CID) + return NULL; + + icmap = invert_cmap(cmap, used_slot); + if (icmap) { + CMap_set_name(icmap, cmap_name); + if (csi) + CMap_set_CIDSysInfo(icmap, csi); + else { + CMap_set_CIDSysInfo(icmap, &(CSI_IDENTITY)); + } + CMap_set_type(icmap, cmap_type); + + stream = CMap_create_stream(icmap, flags); + + CMap_release(icmap); + } + + return stream; +} +#endif /* 0 */ diff --git a/Build/source/texk/xdvipdfmx/src/cmap_write.h b/Build/source/texk/xdvipdfmx/src/cmap_write.h new file mode 100644 index 00000000000..fcb95e0ec95 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cmap_write.h @@ -0,0 +1,35 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cmap_write.h,v 1.1 2004/08/08 15:16:01 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CMAP_WRITE_H_ +#define _CMAP_WRITE_H_ + +#include "cmap.h" + +extern pdf_obj *CMap_create_stream (CMap *cmap, int flags); +extern pdf_obj *CMap_ToCode_stream (CMap *cmap, const char *cmap_name, + CIDSysInfo *csi, int cmap_type, + unsigned char *used_slot, int flags); + +#endif /* _CMAP_WRITE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/cs_type2.c b/Build/source/texk/xdvipdfmx/src/cs_type2.c new file mode 100644 index 00000000000..5c7e3d56867 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cs_type2.c @@ -0,0 +1,807 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cs_type2.c,v 1.10 2004/02/15 12:59:43 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * Type 2 Charstring support: + * Decode and encode Type 2 charstring + * + * All local/global subroutine calls in a given charstring is replace by the + * content of subroutine charstrings. We do this because some PostScript RIP + * may have problems with sparse subroutine array. Workaround for this is to + * re-order subroutine array so that no gap appears in the subroutine array, + * or put dummy charstrings that contains only `return' in the gap. However, + * re-ordering of subroutine is rather difficult for Type 2 charstrings due + * to the bias which depends on the total number of subroutines. Replacing + * callgsubr/callsubr calls with the content of the corresponding subroutine + * charstring may be more efficient than putting dummy subroutines in the + * case of subsetted font. Adobe distiller seems doing same thing. + * + * And also note that subroutine numbers within subroutines can depend on the + * content of operand stack as follows: + * + * ... l m callsubr << subr #(m+bias): n add callsubr >> ... + * + * I've not implemented the `random' operator which generates a pseudo-random + * number in the range (0, 1] and push them into argument stack. + * How pseudo-random sequences are generated is not documented in the Type 2 + * charstring spec.. + */ + +#include + +/* fabs, sqrt ... */ +#include + +#include "error.h" + +/* data types, limits */ +#include "cff_types.h" +#include "cff_limits.h" + +#include "cs_type2.h" + +#define CS_TYPE2_DEBUG_STR "Type2 Charstring Parser" +#define CS_TYPE2_DEBUG 5 + +/* decoder/encoder status codes */ +#define CS_BUFFER_ERROR -3 +#define CS_STACK_ERROR -2 +#define CS_PARSE_ERROR -1 +#define CS_PARSE_OK 0 +#define CS_PARSE_END 1 +#define CS_SUBR_RETURN 2 +#define CS_CHAR_END 3 + +static int status = CS_PARSE_ERROR; + +#define DST_NEED(a,b) {if ((a) < (b)) { status = CS_BUFFER_ERROR ; return ; }} +#define SRC_NEED(a,b) {if ((a) < (b)) { status = CS_PARSE_ERROR ; return ; }} +#define NEED(a,b) {if ((a) < (b)) { status = CS_STACK_ERROR ; return ; }} + +/* hintmask and cntrmask need number of stem zones */ +static int num_stems = 0; +static int phase = 0; + +/* subroutine nesting */ +static int nest = 0; + +/* advance width */ +static int have_width = 0; +static double width = 0.0; + +/* + * Standard Encoding Accented Characters: + * Optional four arguments for endchar. See, CFF spec., p.35. + * This is obsolete feature and is no longer supported. + */ +#if 0 +/* adx ady bchar achar endchar */ +static double seac[4] = {0.0, 0.0, 0.0, 0.0}; +#endif + +/* Operand stack and Transient array */ +static int stack_top = 0; +static double arg_stack[CS_ARG_STACK_MAX]; +static double trn_array[CS_TRANS_ARRAY_MAX]; + +/* + * Type 2 CharString encoding + */ + +/* + * 1-byte CharString operaotrs: + * cs_escape is first byte of two-byte operator + */ + +/* RESERVED 0 */ +#define cs_hstem 1 +/* RESERVED 2 */ +#define cs_vstem 3 +#define cs_vmoveto 4 +#define cs_rlineto 5 +#define cs_hlineto 6 +#define cs_vlineto 7 +#define cs_rrcurveto 8 +/* cs_closepath 9 : TYPE1 */ +#define cs_callsubr 10 +#define cs_return 11 +#define cs_escape 12 +/* cs_hsbw 13 : TYPE1 */ +#define cs_endchar 14 +/* RESERVED 15 */ +/* RESERVED 16 */ +/* RESERVED 17 */ +#define cs_hstemhm 18 +#define cs_hintmask 19 +#define cs_cntrmask 20 +#define cs_rmoveto 21 +#define cs_hmoveto 22 +#define cs_vstemhm 23 +#define cs_rcurveline 24 +#define cs_rlinecurve 25 +#define cs_vvcurveto 26 +#define cs_hhcurveto 27 +/* SHORTINT 28 : first byte of shortint*/ +#define cs_callgsubr 29 +#define cs_vhcurveto 30 +#define cs_hvcurveto 31 + +/* + * 2-byte CharString operaotrs: + * "dotsection" is obsoleted in Type 2 charstring. + */ + +#define cs_dotsection 0 +/* cs_vstem3 1 : TYPE1 */ +/* cs_hstem3 2 : TYPE1 */ +#define cs_and 3 +#define cs_or 4 +#define cs_not 5 +/* cs_seac 6 : TYPE1 */ +/* cs_sbw 7 : TYPE1 */ +/* RESERVED 8 */ +#define cs_abs 9 +#define cs_add 10 +#define cs_sub 11 +#define cs_div 12 +/* RESERVED 13 */ +#define cs_neg 14 +#define cs_eq 15 +/* cs_callothersubr 16 : TYPE1 */ +/* cs_pop 17 : TYPE1 */ +#define cs_drop 18 +/* RESERVED 19 */ +#define cs_put 20 +#define cs_get 21 +#define cs_ifelse 22 +#define cs_random 23 +#define cs_mul 24 +/* RESERVED 25 */ +#define cs_sqrt 26 +#define cs_dup 27 +#define cs_exch 28 +#define cs_index 29 +#define cs_roll 30 +/* cs_setcurrentpoint 31 : TYPE1 */ +/* RESERVED 32 */ +/* RESERVED 33 */ +#define cs_hflex 34 +#define cs_flex 35 +#define cs_hflex1 36 +#define cs_flex1 37 + +/* + * clear_stack() put all operands sotred in operand stack to dest. + */ +static void +clear_stack (card8 **dest, card8 *limit) +{ + int i; + + for (i = 0; i < stack_top; i++) { + double value; + long ivalue; + value = arg_stack[i]; + /* Nearest integer value */ + ivalue = (long) floor(value+0.5); + if (value >= 0x8000L || value <= (-0x8000L - 1)) { + /* + * This number cannot be represented as a single operand. + * We must use `a b mul ...' or `a c div' to represent large values. + */ + ERROR("%s: Argument value too large. (This is bug)", CS_TYPE2_DEBUG_STR); + } else if (fabs(value - ivalue) > 3.0e-5) { + /* 16.16-bit signed fixed value */ + DST_NEED(limit, *dest + 5); + *(*dest)++ = 255; + ivalue = (long) floor(value); /* mantissa */ + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + ivalue = (long)((value - ivalue) * 0x10000l); /* fraction */ + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + /* Everything else are integers. */ + } else if (ivalue >= -107 && ivalue <= 107) { + DST_NEED(limit, *dest + 1); + *(*dest)++ = ivalue + 139; + } else if (ivalue >= 108 && ivalue <= 1131) { + DST_NEED(limit, *dest + 2); + ivalue = 0xf700u + ivalue - 108; + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + } else if (ivalue >= -1131 && ivalue <= -108) { + DST_NEED(limit, *dest + 2); + ivalue = 0xfb00u - ivalue - 108; + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + } else if (ivalue >= -32768 && ivalue <= 32767) { /* shortint */ + DST_NEED(limit, *dest + 3); + *(*dest)++ = 28; + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = (ivalue) & 0xff; + } else { /* Shouldn't come here */ + ERROR("%s: Unexpected error.", CS_TYPE2_DEBUG_STR); + } + } + + stack_top = 0; /* clear stack */ + + return; +} + +/* + * Single byte operators: + * Path construction, Operator for finishing a path, Hint operators. + * + * phase: + * 0: inital state + * 1: hint declaration, first stack-clearing operator appeared + * 2: in path construction + */ + +static void +do_operator1 (card8 **dest, card8 *limit, card8 **data, card8 *endptr) +{ + card8 op = **data; + + *data += 1; + + switch (op) { + case cs_hstemhm: + case cs_vstemhm: + /* charstring may have hintmask if above operator have seen */ + case cs_hstem: + case cs_vstem: + if (phase == 0 && (stack_top % 2)) { + have_width = 1; + width = arg_stack[0]; + } + num_stems += stack_top/2; + clear_stack(dest, limit); + DST_NEED(limit, *dest + 1); + *(*dest)++ = op; + phase = 1; + break; + case cs_hintmask: + case cs_cntrmask: + if (phase < 2) { + if (phase == 0 && (stack_top % 2)) { + have_width = 1; + width = arg_stack[0]; + } + num_stems += stack_top/2; + } + clear_stack(dest, limit); + DST_NEED(limit, *dest + 1); + *(*dest)++ = op; + if (num_stems > 0) { + int masklen = (num_stems + 7) / 8; + DST_NEED(limit, *dest + masklen); + SRC_NEED(endptr, *data + masklen); + memmove(*dest, *data, masklen); + *data += masklen; + *dest += masklen; + } + phase = 2; + break; + case cs_rmoveto: + if (phase == 0 && (stack_top % 2)) { + have_width = 1; + width = arg_stack[0]; + } + clear_stack(dest, limit); + DST_NEED(limit, *dest + 1); + *(*dest)++ = op; + phase = 2; + break; + case cs_hmoveto: + case cs_vmoveto: + if (phase == 0 && (stack_top % 2) == 0) { + have_width = 1; + width = arg_stack[0]; + } + clear_stack(dest, limit); + DST_NEED(limit, *dest + 1); + *(*dest)++ = op; + phase = 2; + break; + case cs_endchar: + if (stack_top == 1) { + have_width = 1; + width = arg_stack[0]; + clear_stack(dest, limit); + } else if (stack_top == 4 || stack_top == 5) { + WARN("\"seac\" character deprecated in Type 2 charstring."); + status = CS_PARSE_ERROR; + return; + } else if (stack_top > 0) { + WARN("%s: Operand stack not empty.", CS_TYPE2_DEBUG_STR); + } + DST_NEED(limit, *dest + 1); + *(*dest)++ = op; + status = CS_CHAR_END; + break; + /* above oprators are candidate for first stack-clearing operator */ + case cs_rlineto: + case cs_hlineto: + case cs_vlineto: + case cs_rrcurveto: + case cs_rcurveline: + case cs_rlinecurve: + case cs_vvcurveto: + case cs_hhcurveto: + case cs_vhcurveto: + case cs_hvcurveto: + if (phase < 2) { + WARN("%s: Broken Type 2 charstring.", CS_TYPE2_DEBUG_STR); + status = CS_PARSE_ERROR; + return; + } + clear_stack(dest, limit); + DST_NEED(limit, *dest + 1); + *(*dest)++ = op; + break; + /* all operotors above are stack-clearing operator */ + /* no output */ + case cs_return: + case cs_callgsubr: + case cs_callsubr: + ERROR("%s: Unexpected call(g)subr/return", CS_TYPE2_DEBUG_STR); + break; + default: + /* no-op ? */ + WARN("%s: Unknown charstring operator: 0x%02x", CS_TYPE2_DEBUG_STR, op); + status = CS_PARSE_ERROR; + break; + } + + return; +} + +/* + * Double byte operators: + * Flex, arithmetic, conditional, and storage operators. + * + * Following operators are not supported: + * random: How random ? + */ +static void +do_operator2 (card8 **dest, card8 *limit, card8 **data, card8 *endptr) +{ + card8 op; + + *data += 1; + + SRC_NEED(endptr, *data + 1); + + op = **data; + *data += 1; + + switch(op) { + case cs_dotsection: /* deprecated */ + WARN("Operator \"dotsection\" deprecated in Type 2 charstring."); + status = CS_PARSE_ERROR; + return; + break; + case cs_hflex: + case cs_flex: + case cs_hflex1: + case cs_flex1: + if (phase < 2) { + WARN("%s: Broken Type 2 charstring.", CS_TYPE2_DEBUG_STR); + status = CS_PARSE_ERROR; + return; + } + clear_stack(dest, limit); + DST_NEED(limit, *dest + 2); + *(*dest)++ = cs_escape; + *(*dest)++ = op; + break; + /* all operator above are stack-clearing */ + /* no output */ + case cs_and: + NEED(stack_top, 2); + stack_top--; + if (arg_stack[stack_top] && arg_stack[stack_top-1]) { + arg_stack[stack_top-1] = 1.0; + } else { + arg_stack[stack_top-1] = 0.0; + } + break; + case cs_or: + NEED(stack_top, 2); + stack_top--; + if (arg_stack[stack_top] || arg_stack[stack_top-1]) { + arg_stack[stack_top-1] = 1.0; + } else { + arg_stack[stack_top-1] = 0.0; + } + break; + case cs_not: + NEED(stack_top, 1); + if (arg_stack[stack_top-1]) { + arg_stack[stack_top-1] = 0.0; + } else { + arg_stack[stack_top-1] = 1.0; + } + break; + case cs_abs: + NEED(stack_top, 1); + arg_stack[stack_top-1] = fabs(arg_stack[stack_top-1]); + break; + case cs_add: + NEED(stack_top, 2); + arg_stack[stack_top-2] += arg_stack[stack_top-1]; + stack_top--; + break; + case cs_sub: + NEED(stack_top, 2); + arg_stack[stack_top-2] -= arg_stack[stack_top-1]; + stack_top--; + break; + case cs_div: /* doesn't check overflow */ + NEED(stack_top, 2); + arg_stack[stack_top-2] /= arg_stack[stack_top-1]; + stack_top--; + break; + case cs_neg: + NEED(stack_top, 1); + arg_stack[stack_top-1] *= -1.0; + break; + case cs_eq: + NEED(stack_top, 2); + stack_top--; + if (arg_stack[stack_top] == arg_stack[stack_top-1]) { + arg_stack[stack_top-1] = 1.0; + } else { + arg_stack[stack_top-1] = 0.0; + } + break; + case cs_drop: + NEED(stack_top, 1); + stack_top--; + break; + case cs_put: + NEED(stack_top, 2); + { + int idx = (int)arg_stack[--stack_top]; + NEED(CS_TRANS_ARRAY_MAX, idx); + trn_array[idx] = arg_stack[--stack_top]; + } + break; + case cs_get: + NEED(stack_top, 1); + { + int idx = (int)arg_stack[stack_top-1]; + NEED(CS_TRANS_ARRAY_MAX, idx); + arg_stack[stack_top-1] = trn_array[idx]; + } + break; + case cs_ifelse: + NEED(stack_top, 4); + stack_top -= 3; + if (arg_stack[stack_top+1] > arg_stack[stack_top+2]) { + arg_stack[stack_top-1] = arg_stack[stack_top]; + } + break; + case cs_mul: + NEED(stack_top, 2); + arg_stack[stack_top-2] = arg_stack[stack_top-2] * arg_stack[stack_top-1]; + stack_top--; + break; + case cs_sqrt: + NEED(stack_top, 1); + arg_stack[stack_top-1] = sqrt(arg_stack[stack_top-1]); + break; + case cs_dup: + NEED(stack_top, 1); + NEED(CS_ARG_STACK_MAX, stack_top+1); + arg_stack[stack_top] = arg_stack[stack_top-1]; + stack_top++; + break; + case cs_exch: + NEED(stack_top, 2); + { + double save = arg_stack[stack_top-2]; + arg_stack[stack_top-2] = arg_stack[stack_top-1]; + arg_stack[stack_top-1] = save; + } + break; + case cs_index: + NEED(stack_top, 2); /* need two arguments at least */ + { + int idx = (int)arg_stack[stack_top-1]; + if (idx < 0) { + arg_stack[stack_top-1] = arg_stack[stack_top-2]; + } else { + NEED(stack_top, idx+2); + arg_stack[stack_top-1] = arg_stack[stack_top-idx-2]; + } + } + break; + case cs_roll: + NEED(stack_top, 2); + { + int N, J; + J = (int)arg_stack[--stack_top]; + N = (int)arg_stack[--stack_top]; + NEED(stack_top, N); + if (J > 0) { + J = J % N; + while (J-- > 0) { + double save = arg_stack[stack_top-1]; + int i = stack_top - 1; + while (i > stack_top-N) { + arg_stack[i] = arg_stack[i-1]; + i--; + } + arg_stack[i] = save; + } + } else { + J = (-J) % N; + while (J-- > 0) { + double save = arg_stack[stack_top-N]; + int i = stack_top - N; + while (i < stack_top-1) { + arg_stack[i] = arg_stack[i+1]; + i++; + } + arg_stack[i] = save; + } + } + } + break; + case cs_random: + WARN("%s: Charstring operator \"random\" found.", CS_TYPE2_DEBUG_STR); + NEED(CS_ARG_STACK_MAX, stack_top+1); + arg_stack[stack_top++] = 1.0; + break; + default: + /* no-op ? */ + WARN("%s: Unknown charstring operator: 0x0c%02x", CS_TYPE2_DEBUG_STR, op); + status = CS_PARSE_ERROR; + break; + } + + return; +} + +/* + * integer: + * exactly the same as the DICT encoding (except 29) + */ +static void +get_integer (card8 **data, card8 *endptr) +{ + long result = 0; + card8 b0 = **data, b1, b2; + + *data += 1; + + if (b0 == 28) { /* shortint */ + SRC_NEED(endptr, *data + 2); + b1 = **data; + b2 = *(*data+1); + result = b1*256+b2; + if (result > 0x7fff) + result -= 0x10000L; + *data += 2; + } else if (b0 >= 32 && b0 <= 246) { /* int (1) */ + result = b0 - 139; + } else if (b0 >= 247 && b0 <= 250) { /* int (2) */ + SRC_NEED(endptr, *data + 1); + b1 = **data; + result = (b0-247)*256+b1+108; + *data += 1; + } else if (b0 >= 251 && b0 <= 254) { + SRC_NEED(endptr, *data + 1); + b1 = **data; + result = -(b0-251)*256-b1-108; + *data += 1; + } else { + status = CS_PARSE_ERROR; + return; + } + + NEED(CS_ARG_STACK_MAX, stack_top+1); + arg_stack[stack_top++] = (double) result; + + return; +} + +/* + * Signed 16.16-bits fixed number for Type 2 charstring encoding + */ +static void +get_fixed (card8 **data, card8 *endptr) +{ + long ivalue; + double rvalue; + + *data += 1; + + SRC_NEED(endptr, *data + 4); + + ivalue = *(*data) * 0x100 + *(*data+1); + rvalue = (ivalue > 0x7fffL) ? (ivalue - 0x10000L) : ivalue; + ivalue = *(*data+2) * 0x100 + *(*data+3); + rvalue += ((double) ivalue) / 0x10000L; + + NEED(CS_ARG_STACK_MAX, stack_top+1); + arg_stack[stack_top++] = rvalue; + *data += 4; + + return; +} + +/* + * Subroutines: + * The bias for subroutine number is introduced in type 2 charstrings. + * + * subr: set to a pointer to the subroutine charstring. + * len: set to the length of subroutine charstring. + * subr_idx: CFF INDEX data that contains subroutines. + * id: biased subroutine number. + */ +static void +get_subr (card8 **subr, long *len, cff_index *subr_idx, long id) +{ + card16 count; + + if (subr_idx == NULL) + ERROR("%s: Subroutine called but no subroutine found.", CS_TYPE2_DEBUG_STR); + + count = subr_idx->count; + + /* Adding bias number */ + if (count < 1240) { + id += 107; + } else if (count < 33900) { + id += 1131; + } else { + id += 32768; + } + + if (id > count) + ERROR("%s: Invalid Subr index: %ld (max=%u)", CS_TYPE2_DEBUG_STR, id, count); + + *len = (subr_idx->offset)[id + 1] - (subr_idx->offset)[id]; + *subr = subr_idx->data + (subr_idx->offset)[id] - 1; + + return; +} + +/* + * NOTE: + * The Type 2 interpretation of a number encoded in five-bytes (those with + * an initial byte value of 255) differs from how it is interpreted in the + * Type 1 format. + */ + +static void +do_charstring (card8 **dest, card8 *limit, + card8 **data, card8 *endptr, + cff_index *gsubr_idx, cff_index *subr_idx) +{ + card8 b0 = 0, *subr; + long len; + + if (nest > CS_SUBR_NEST_MAX) + ERROR("%s: Subroutine nested too deeply.", CS_TYPE2_DEBUG_STR); + + nest++; + + while (*data < endptr && status == CS_PARSE_OK) { + b0 = **data; + if (b0 == 255) { /* 16-bit.16-bit fixed signed number */ + get_fixed(data, endptr); + } else if (b0 == cs_return) { + status = CS_SUBR_RETURN; + } else if (b0 == cs_callgsubr) { + if (stack_top < 1) { + status = CS_STACK_ERROR; + } else { + stack_top--; + get_subr(&subr, &len, gsubr_idx, (long) arg_stack[stack_top]); + if (*dest + len > limit) + ERROR("%s: Possible buffer overflow.", CS_TYPE2_DEBUG_STR); + do_charstring(dest, limit, &subr, subr + len, + gsubr_idx, subr_idx); + *data += 1; + } + } else if (b0 == cs_callsubr) { + if (stack_top < 1) { + status = CS_STACK_ERROR; + } else { + stack_top--; + get_subr(&subr, &len, subr_idx, (long) arg_stack[stack_top]); + if (limit < *dest + len) + ERROR("%s: Possible buffer overflow.", CS_TYPE2_DEBUG_STR); + do_charstring(dest, limit, &subr, subr + len, + gsubr_idx, subr_idx); + *data += 1; + } + } else if (b0 == cs_escape) { + do_operator2(dest, limit, data, endptr); + } else if (b0 < 32 && b0 != 28) { /* 19, 20 need mask */ + do_operator1(dest, limit, data, endptr); + } else if ((b0 <= 22 && b0 >= 27) || b0 == 31) { /* reserved */ + status = CS_PARSE_ERROR; /* not an error ? */ + } else { /* integer */ + get_integer(data, endptr); + } + } + + if (status == CS_SUBR_RETURN) { + status = CS_PARSE_OK; + } else if (status == CS_CHAR_END && *data < endptr) { + WARN("%s: Garbage after endchar.", CS_TYPE2_DEBUG_STR); + } else if (status < CS_PARSE_OK) { /* error */ + ERROR("%s: Parsing charstring failed: (status=%d, stack=%d)", + CS_TYPE2_DEBUG_STR, status, stack_top); + } + + nest--; + + return; +} + +static void +cs_parse_init (void) +{ + status = CS_PARSE_OK; + nest = 0; + phase = 0; + num_stems = 0; + stack_top = 0; +} + +/* + * Not just copying... + */ +long +cs_copy_charstring (card8 *dst, long dstlen, + card8 *src, long srclen, + cff_index *gsubr, cff_index *subr, + double default_width, double nominal_width, cs_ginfo *ginfo) +{ + card8 *save = dst; + + cs_parse_init(); + + width = 0.0; + have_width = 0; + + /* expand call(g)subrs */ + do_charstring(&dst, dst + dstlen, &src, src + srclen, gsubr, subr); + + if (ginfo) { + ginfo->flags = 0; /* not used */ + if (have_width) { + ginfo->wx = nominal_width + width; + } else { + ginfo->wx = default_width; + } + } + + return (long)(dst - save); +} diff --git a/Build/source/texk/xdvipdfmx/src/cs_type2.h b/Build/source/texk/xdvipdfmx/src/cs_type2.h new file mode 100644 index 00000000000..ab489159873 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/cs_type2.h @@ -0,0 +1,45 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/cs_type2.h,v 1.4 2004/02/15 12:59:43 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _CS_TYPE2_H_ +#define _CS_TYPE2_H_ + +#include "cff_types.h" + +typedef struct { + int flags; /* unused in Type 2 charstring */ + double wx, wy; + struct { + double llx, lly, urx, ury; + } bbox; + struct { + double asb, adx, ady; + card8 bchar, achar; + } seac; /* unused in Type 2 charstring */ +} cs_ginfo; + +extern long cs_copy_charstring (card8 *dest, long destlen, + card8 *src, long srclen, + cff_index *gsubr, cff_index *subr, + double default_width, double nominal_width, cs_ginfo *ginfo); + +#endif /* _CS_TYPE2_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/dpxconf.c b/Build/source/texk/xdvipdfmx/src/dpxconf.c new file mode 100644 index 00000000000..9004573228e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxconf.c @@ -0,0 +1,110 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxconf.c,v 1.1 2005/07/20 10:41:54 hirata Exp $ + + This is DVIPDFMx, an eXtended version of DVIPDFM by Mark A. Wicks. + + Copyright (C) 2002-2003 by Jin-Hwan Cho and Shunsaku Hirata, + the DVIPDFMx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "dpxconf.h" + +#ifndef HAVE_LIBPAPER +const struct paper paperspecs[] = { + {"letter", 612.00, 792.00}, + {"legal" , 612.00, 1008.00}, + {"ledger", 1224.00, 792.00}, + {"tabloid", 792.00, 1224.00}, + {"a6", 297.64, 420.91}, + {"a5", 420.91, 595.27}, + {"a4", 595.27, 841.82}, + {"a3", 841.82, 1190.16}, + /* + * The B series paper formats were first introduced in Japanese + * patch (jpatch). The size of b6, ..., b5var paper is JIS paper + * size for this reason. Please modify the following line or use + * libpaper if you need ISO paper sizes. + */ +#if defined(USE_ISO_PAPERSIZE) || defined(ISO_PAPERSIZE) + {"b6", 354, 499}, + {"b5", 501, 709}, + {"b4", 709, 1002}, + {"b3", 1002, 1418}, +#else + {"b6", 364.25, 515.91}, + {"b5", 515.91, 728.50}, + {"b4", 728.50, 1031.81}, + {"b3", 1031.81, 1457.00}, + {"b5var", 515.91, 651.97}, +#endif /* USE_ISO_PAPERSIZE */ + /* Alias for JIS and ISO */ + {"jisb6", 364.25, 515.91}, + {"jisb5", 515.91, 728.50}, + {"jisb4", 728.50, 1031.81}, + {"jisb3", 1031.81, 1457.00}, + {"isob6", 354, 499}, + {"isob5", 501, 709}, + {"isob4", 709, 1002}, + {"isob3", 1002, 1418}, + /* -- */ + {NULL, 0, 0}, +}; + +const struct paper * +paperinfo (const char *ppformat) +{ + const struct paper *ppinfo; + + if (!ppformat) + return NULL; + + ppinfo = paperfirst(); + while (ppinfo && papername(ppinfo)) { + if (!strcmp(ppformat, papername(ppinfo))) + break; + ppinfo = papernext(ppinfo); + } + + return ((ppinfo && papername(ppinfo)) ? ppinfo : NULL); +} + +#endif /* HAVE_LIBPAPER */ + +void +dumppaperinfo (void) +{ + const struct paper *ppinfo; + ppinfo = paperfirst(); + while (ppinfo && papername(ppinfo)) { + double wd, ht; + wd = paperpswidth (ppinfo); + ht = paperpsheight(ppinfo); + fprintf(stdout, "%s: %.2f %.2f (%.2fmm %.2fmm)\n", + papername(ppinfo), wd, ht, 25.4 * wd / 72.0, 25.4 * ht / 72.0); + ppinfo = papernext(ppinfo); + } +} + diff --git a/Build/source/texk/xdvipdfmx/src/dpxconf.h b/Build/source/texk/xdvipdfmx/src/dpxconf.h new file mode 100644 index 00000000000..8e097d93533 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxconf.h @@ -0,0 +1,60 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxconf.h,v 1.1 2005/07/20 10:41:54 hirata Exp $ + + This is DVIPDFMx, an eXtended version of DVIPDFM by Mark A. Wicks. + + Copyright (C) 2002-2003 by Jin-Hwan Cho and Shunsaku Hirata, + the DVIPDFMx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _DPXCONF_H_ +#define _DPXCONF_H_ + +#ifdef HAVE_LIBPAPER +#include +#else +struct paper { + const char* name; + double pswidth, psheight; +}; + +#ifndef DEFAULT_PAPER_NAME +#define DEFAULT_PAPER_NAME "a4" +#endif + +extern const struct paper paperspecs[]; +extern const struct paper *paperinfo (const char *ppformat); + +#define paperinit() +#define paperdone() +#define paperpswidth(p) (((p) && (p)->name) ? p->pswidth : 0.0) +#define paperpsheight(p) (((p) && (p)->name) ? p->psheight : 0.0) +#define papername(p) (((p) && (p)->name) ? p->name : NULL) +#define paperfirst() &(paperspecs[0]) +#define papernext(p) ((((p)+1) && ((p)+1)->name) ? (p+1) : NULL) + +#define defaultpapername() DEFAULT_PAPER_NAME +#define systempapername() DEFAULT_PAPER_NAME + +#define defaultpapersizefile() NULL +#define systempapersizefile() NULL +#endif /* HAVE_LIBPAPER */ + +extern void dumppaperinfo (void); + +#endif /* _DPXCONF_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/dpxcrypt.c b/Build/source/texk/xdvipdfmx/src/dpxcrypt.c new file mode 100644 index 00000000000..36174f28e6f --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxcrypt.c @@ -0,0 +1,366 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxcrypt.c,v 1.2 2004/07/27 12:08:46 hirata Exp $ + + This is DVIPDFMx, an eXtended version of DVIPDFM by Mark A. Wicks. + + Copyright (C) 2003 by Jin-Hwan Cho and Shunsaku Hirata, + the DVIPDFMx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "dpxcrypt.h" + +static void _gcry_burn_stack (int bytes) +{ + char buf[64]; + + memset(buf, 0, sizeof buf); + bytes -= sizeof buf; + if (bytes > 0) _gcry_burn_stack(bytes); +} + +/* Rotate a 32 bit integer by n bytes */ +#define rol(x,n) ( ((x) << (n)) | ((x) >> (32-(n))) ) + +/* + * The following codes for MD5 Message-Digest Algorithm were modified + * by Jin-Hwan Cho on August 5, 2003 based on libgrypt-1.1.42. + * + * Copyright (C) 1995,1996,1998,1999,2001,2002,2003 Free Software Foundation, Inc. + * + * Libgcrypt is free software; you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License as + * published by the Free Software Foundation; either version 2.1 of + * the License, or (at your option) any later version. + * + * Libgcrypt is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + * + * According to the definition of MD5 in RFC 1321 from April 1992. + * NOTE: This is *not* the same file as the one from glibc. + * Written by Ulrich Drepper , 1995. + * heavily modified for GnuPG by Werner Koch + */ + +void MD5_init (MD5_CONTEXT *ctx) +{ + ctx->A = 0x67452301; + ctx->B = 0xefcdab89; + ctx->C = 0x98badcfe; + ctx->D = 0x10325476; + + ctx->nblocks = 0; + ctx->count = 0; +} + +/* These are the four functions used in the four steps of the MD5 algorithm + * and defined in the RFC 1321. The first function is a little bit optimized + * (as found in Colin Plumbs public domain implementation). */ +/* #define FF(b, c, d) ((b & c) | (~b & d)) */ +#define FF(b, c, d) (d ^ (b & (c ^ d))) +#define FG(b, c, d) FF(d, b, c) +#define FH(b, c, d) (b ^ c ^ d) +#define FI(b, c, d) (c ^ (b | ~d)) + +/* transform n*64 bytes */ +static void transform (MD5_CONTEXT *ctx, unsigned char *data) +{ + unsigned long correct_words[16]; + register unsigned long A = ctx->A; + register unsigned long B = ctx->B; + register unsigned long C = ctx->C; + register unsigned long D = ctx->D; + unsigned long *cwp = correct_words; + +#ifdef WORDS_BIGENDIAN + { int i; unsigned char *p1, *p2; + for (i = 0, p1 = data, p2 = (unsigned char *)correct_words; i < 16; i++, p2 += 4 ) { + p2[3] = *p1++; p2[2] = *p1++; p2[1] = *p1++; p2[0] = *p1++; + } + } +#else + memcpy(correct_words, data, 64); +#endif + +#define OP(a, b, c, d, s, T) \ + do { a += FF(b, c, d) + (*cwp++) + T; a = rol(a, s); a += b; } while (0) + + /* Before we start, one word about the strange constants. + * They are defined in RFC 1321 as + * + * T[i] = (int) (4294967296.0 * fabs (sin (i))), i=1..64 + */ + + /* Round 1. */ + OP(A, B, C, D, 7, 0xd76aa478); + OP(D, A, B, C, 12, 0xe8c7b756); + OP(C, D, A, B, 17, 0x242070db); + OP(B, C, D, A, 22, 0xc1bdceee); + OP(A, B, C, D, 7, 0xf57c0faf); + OP(D, A, B, C, 12, 0x4787c62a); + OP(C, D, A, B, 17, 0xa8304613); + OP(B, C, D, A, 22, 0xfd469501); + OP(A, B, C, D, 7, 0x698098d8); + OP(D, A, B, C, 12, 0x8b44f7af); + OP(C, D, A, B, 17, 0xffff5bb1); + OP(B, C, D, A, 22, 0x895cd7be); + OP(A, B, C, D, 7, 0x6b901122); + OP(D, A, B, C, 12, 0xfd987193); + OP(C, D, A, B, 17, 0xa679438e); + OP(B, C, D, A, 22, 0x49b40821); + +#undef OP +#define OP(f, a, b, c, d, k, s, T) \ + do { a += f(b, c, d) + correct_words[k] + T; a = rol(a, s); a += b; } while (0) + + /* Round 2. */ + OP(FG, A, B, C, D, 1, 5, 0xf61e2562); + OP(FG, D, A, B, C, 6, 9, 0xc040b340); + OP(FG, C, D, A, B, 11, 14, 0x265e5a51); + OP(FG, B, C, D, A, 0, 20, 0xe9b6c7aa); + OP(FG, A, B, C, D, 5, 5, 0xd62f105d); + OP(FG, D, A, B, C, 10, 9, 0x02441453); + OP(FG, C, D, A, B, 15, 14, 0xd8a1e681); + OP(FG, B, C, D, A, 4, 20, 0xe7d3fbc8); + OP(FG, A, B, C, D, 9, 5, 0x21e1cde6); + OP(FG, D, A, B, C, 14, 9, 0xc33707d6); + OP(FG, C, D, A, B, 3, 14, 0xf4d50d87); + OP(FG, B, C, D, A, 8, 20, 0x455a14ed); + OP(FG, A, B, C, D, 13, 5, 0xa9e3e905); + OP(FG, D, A, B, C, 2, 9, 0xfcefa3f8); + OP(FG, C, D, A, B, 7, 14, 0x676f02d9); + OP(FG, B, C, D, A, 12, 20, 0x8d2a4c8a); + + /* Round 3. */ + OP(FH, A, B, C, D, 5, 4, 0xfffa3942); + OP(FH, D, A, B, C, 8, 11, 0x8771f681); + OP(FH, C, D, A, B, 11, 16, 0x6d9d6122); + OP(FH, B, C, D, A, 14, 23, 0xfde5380c); + OP(FH, A, B, C, D, 1, 4, 0xa4beea44); + OP(FH, D, A, B, C, 4, 11, 0x4bdecfa9); + OP(FH, C, D, A, B, 7, 16, 0xf6bb4b60); + OP(FH, B, C, D, A, 10, 23, 0xbebfbc70); + OP(FH, A, B, C, D, 13, 4, 0x289b7ec6); + OP(FH, D, A, B, C, 0, 11, 0xeaa127fa); + OP(FH, C, D, A, B, 3, 16, 0xd4ef3085); + OP(FH, B, C, D, A, 6, 23, 0x04881d05); + OP(FH, A, B, C, D, 9, 4, 0xd9d4d039); + OP(FH, D, A, B, C, 12, 11, 0xe6db99e5); + OP(FH, C, D, A, B, 15, 16, 0x1fa27cf8); + OP(FH, B, C, D, A, 2, 23, 0xc4ac5665); + + /* Round 4. */ + OP(FI, A, B, C, D, 0, 6, 0xf4292244); + OP(FI, D, A, B, C, 7, 10, 0x432aff97); + OP(FI, C, D, A, B, 14, 15, 0xab9423a7); + OP(FI, B, C, D, A, 5, 21, 0xfc93a039); + OP(FI, A, B, C, D, 12, 6, 0x655b59c3); + OP(FI, D, A, B, C, 3, 10, 0x8f0ccc92); + OP(FI, C, D, A, B, 10, 15, 0xffeff47d); + OP(FI, B, C, D, A, 1, 21, 0x85845dd1); + OP(FI, A, B, C, D, 8, 6, 0x6fa87e4f); + OP(FI, D, A, B, C, 15, 10, 0xfe2ce6e0); + OP(FI, C, D, A, B, 6, 15, 0xa3014314); + OP(FI, B, C, D, A, 13, 21, 0x4e0811a1); + OP(FI, A, B, C, D, 4, 6, 0xf7537e82); + OP(FI, D, A, B, C, 11, 10, 0xbd3af235); + OP(FI, C, D, A, B, 2, 15, 0x2ad7d2bb); + OP(FI, B, C, D, A, 9, 21, 0xeb86d391); + + /* Put checksum in context given as argument. */ + ctx->A += A; + ctx->B += B; + ctx->C += C; + ctx->D += D; +} + +/* The routine updates the message-digest context to + * account for the presence of each of the characters inBuf[0..inLen-1] + * in the message whose digest is being computed. */ +void MD5_write (MD5_CONTEXT *hd, unsigned char *inbuf, unsigned long inlen) +{ + if (hd->count == 64) { /* flush the buffer */ + transform(hd, hd->buf); + _gcry_burn_stack(80+6*sizeof(void*)); + hd->count = 0; + hd->nblocks++; + } + if (!inbuf) return; + if (hd->count) { + for (; inlen && hd->count < 64; inlen--) + hd->buf[hd->count++] = *inbuf++; + MD5_write(hd, NULL, 0); + if (!inlen) return; + } + _gcry_burn_stack(80+6*sizeof(void*)); + + while (inlen >= 64) { + transform(hd, inbuf); + hd->count = 0; + hd->nblocks++; + inlen -= 64; + inbuf += 64; + } + for (; inlen && hd->count < 64; inlen--) + hd->buf[hd->count++] = *inbuf++; +} + +/* The routine final terminates the message-digest computation and + * ends with the desired message digest in mdContext->digest[0...15]. + * The handle is prepared for a new MD5 cycle. + * Returns 16 bytes representing the digest. */ + +void MD5_final (unsigned char *outbuf, MD5_CONTEXT *hd) +{ + unsigned long t, msb, lsb; + unsigned char *p; + + MD5_write(hd, NULL, 0); /* flush */ + + t = hd->nblocks; + /* multiply by 64 to make a byte count */ + lsb = t << 6; + msb = t >> 26; + /* add the count */ + t = lsb; + if ((lsb += hd->count) < t) msb++; + /* multiply by 8 to make a bit count */ + t = lsb; + lsb <<= 3; + msb <<= 3; + msb |= t >> 29; + + if (hd->count < 56) { /* enough room */ + hd->buf[hd->count++] = 0x80; /* pad */ + while (hd->count < 56) hd->buf[hd->count++] = 0; /* pad */ + } else { /* need one extra block */ + hd->buf[hd->count++] = 0x80; /* pad character */ + while (hd->count < 64) hd->buf[hd->count++] = 0; + MD5_write(hd, NULL, 0); /* flush */ + memset(hd->buf, 0, 56); /* fill next block with zeroes */ + } + /* append the 64 bit count */ + hd->buf[56] = lsb; + hd->buf[57] = lsb >> 8; + hd->buf[58] = lsb >> 16; + hd->buf[59] = lsb >> 24; + hd->buf[60] = msb; + hd->buf[61] = msb >> 8; + hd->buf[62] = msb >> 16; + hd->buf[63] = msb >> 24; + transform(hd, hd->buf); + _gcry_burn_stack(80+6*sizeof(void*)); + + p = outbuf; /* p = hd->buf; */ +#ifdef WORDS_BIGENDIAN +#define X(a) do { *p++ = hd->a; *p++ = hd->a >> 8; \ + *p++ = hd->a >> 16; *p++ = hd->a >> 24; } while (0) +#else /* little endian */ +#define X(a) do { *(unsigned long *)p = (*hd).a ; p += 4; } while (0) +#endif + X(A); + X(B); + X(C); + X(D); +#undef X +} + +/* + * The following codes for the arcfour stream cipher were modified + * by Jin-Hwan Cho on August 5, 2003 based on libgrypt-1.1.42. + * + * Copyright (C) 2000,2001,2002,2003 Free Software Foundation, Inc. + * + * Libgcrypt is free software; you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License as + * published by the Free Software Foundation; either version 2.1 of + * the License, or (at your option) any later version. + * + * Libgcrypt is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + * + * According to the definition of MD5 in RFC 1321 from April 1992. + * NOTE: This is *not* the same file as the one from glibc. + * Written by Ulrich Drepper , 1995. + * heavily modified for GnuPG by Werner Koch + */ + +static void do_encrypt_stream (ARC4_KEY *ctx, unsigned char *outbuf, const unsigned char *inbuf, unsigned long len) +{ + register int i = ctx->idx_i; + register int j = ctx->idx_j; + register unsigned char *sbox = ctx->sbox; + register int t; + + while (len--) { + i++; + i = i & 255; /* and seems to be faster than mod */ + j += sbox[i]; + j &= 255; + t = sbox[i]; sbox[i] = sbox[j]; sbox[j] = t; + *outbuf++ = *inbuf++ ^ sbox[(sbox[i] + sbox[j]) & 255]; + } + + ctx->idx_i = i; + ctx->idx_j = j; +} + +void ARC4 (ARC4_KEY *ctx, unsigned long len, const unsigned char *inbuf, unsigned char *outbuf) +{ + do_encrypt_stream(ctx, outbuf, inbuf, len); + _gcry_burn_stack(64); +} + +static void do_arcfour_setkey (ARC4_KEY *ctx, const unsigned char *key, unsigned int keylen) +{ + int i, j; + unsigned char karr[256]; + + ctx->idx_i = ctx->idx_j = 0; + for (i = 0; i < 256; i++) ctx->sbox[i] = i; + for (i = 0; i < 256; i++) karr[i] = key[i%keylen]; + for (i = j = 0; i < 256; i++) { + int t; + j = (j + ctx->sbox[i] + karr[i]) % 256; + t = ctx->sbox[i]; + ctx->sbox[i] = ctx->sbox[j]; + ctx->sbox[j] = t; + } + memset(karr, 0, 256); +} + +void ARC4_set_key (ARC4_KEY *ctx, unsigned int keylen, const unsigned char *key) +{ + do_arcfour_setkey(ctx, key, keylen); + _gcry_burn_stack(300); +} diff --git a/Build/source/texk/xdvipdfmx/src/dpxcrypt.h b/Build/source/texk/xdvipdfmx/src/dpxcrypt.h new file mode 100644 index 00000000000..98155a6e3e1 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxcrypt.h @@ -0,0 +1,49 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxcrypt.h,v 1.1 2003/08/05 07:09:09 chofchof Exp $ + + This is DVIPDFMx, an eXtended version of DVIPDFM by Mark A. Wicks. + + Copyright (C) 2003 by Jin-Hwan Cho and Shunsaku Hirata, + the DVIPDFMx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _DPXCRYPT_H_ +#define _DPXCRYPT_H_ + +#include + +/* libgcrypt md5 */ +typedef struct { + unsigned long A,B,C,D; /* chaining variables */ + unsigned long nblocks; + unsigned char buf[64]; + int count; +} MD5_CONTEXT; + +void MD5_init (MD5_CONTEXT *ctx); +void MD5_write (MD5_CONTEXT *ctx, unsigned char *inbuf, unsigned long inlen); +void MD5_final (unsigned char *outbuf, MD5_CONTEXT *ctx); + +/* libgcrypt arcfour */ +typedef struct { + int idx_i, idx_j; + unsigned char sbox[256]; +} ARC4_KEY; + +void ARC4 (ARC4_KEY *ctx, unsigned long len, const unsigned char *inbuf, unsigned char *outbuf); +void ARC4_set_key (ARC4_KEY *ctx, unsigned int keylen, const unsigned char *key); + +#endif /* _DPXCRYPT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/dpxfile.c b/Build/source/texk/xdvipdfmx/src/dpxfile.c new file mode 100644 index 00000000000..3a9920eaf72 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxfile.c @@ -0,0 +1,930 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxfile.c,v 1.14 2005/12/18 14:56:47 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "dpxutil.h" +#include "mfileio.h" + +#include "dpxfile.h" + +static int verbose = 0; + +void +dpx_file_set_verbose (void) +{ + verbose++; +} + + +/* Kpathsea library does not check file type. */ +static int qcheck_filetype (const char *fqpn, int type); + +/* For testing MIKTEX enabled compilation */ +#if defined(TESTCOMPILE) && !defined(MIKTEX) +# define MIKTEX 1 +# define PATH_SEP_CHR '/' +# define _MAX_PATH 256 + +static int +miktex_get_acrobat_font_dir (char *buf) +{ + strcpy(buf, "/usr/share/ghostscript/Resource/Font/"); + return 1; +} + +static int +miktex_find_file (const char *filename, const char *dirlist, char *buf) +{ + int r = 0; + char *fqpn; + + fqpn = kpse_path_search(dirlist, filename, 0); + if (!fqpn) + return 0; + if (strlen(fqpn) > _MAX_PATH) + r = 0; + else { + strcpy(buf, fqpn); + r = 1; + } + RELEASE(fqpn); + + return r; +} + +static int +miktex_find_app_input_file (const char *progname, const char *filename, char *buf) +{ + int r = 0; + char *fqpn; + + kpse_reset_program_name(progname); + fqpn = kpse_find_file (filename, kpse_program_text_format, false); + kpse_reset_program_name("dvipdfm"); + + if (!fqpn) + return 0; + if (strlen(fqpn) > _MAX_PATH) + r = 0; + else { + strcpy(buf, fqpn); + r = 1; + } + RELEASE(fqpn); + + return r; +} + +static int +miktex_find_psheader_file (const char *filename, char *buf) +{ + int r; + char *fqpn; + + fqpn = kpse_find_file(filename, kpse_tex_ps_header_format, 0); + + if (!fqpn) + return 0; + if (strlen(fqpn) > _MAX_PATH) + r = 0; + else { + strcpy(buf, fqpn); + r = 1; + } + RELEASE(fqpn); + + return r; +} + +#endif /* TESTCOMPILE */ + +#ifdef MIKTEX +#ifndef PATH_SEP_CHR +# define PATH_SEP_CHR '\\' +#endif +static char _tmpbuf[_MAX_PATH+1]; +#endif /* MIKTEX */ + +#if 1 +static char * +ensuresuffix (const char *basename, const char *sfx) +{ + char *q, *p; + + p = NEW(strlen(basename) + strlen(sfx) + 1, char); + strcpy(p, basename); + q = strrchr(p, '.'); + if (!q && sfx[0]) + strcat(p, sfx); + + return p; +} +#endif + +#ifdef MIKTEX +static char * +dpx_find__app__xyz (const char *filename, + const char *suffix, int is_text) +{ + char *fqpn = NULL; + int r; + char *q; + + q = ensuresuffix(filename, suffix); + r = miktex_find_app_input_file("dvipdfm", q, _tmpbuf); + if (!r && strcmp(q, filename)) + r = miktex_find_app_input_file("dvipdfm", filename, _tmpbuf); + if (r) { + fqpn = NEW(strlen(_tmpbuf) + 1, char); + strcpy(fqpn, _tmpbuf); + } + RELEASE(q); + + return fqpn; +} + +static char * +dpx_foolsearch (const char *foolname, + const char *filename, + int is_text) +{ + char *fqpn = NULL; + int r; + + r = miktex_find_app_input_file(foolname, filename, _tmpbuf); + if (r) { + fqpn = NEW(strlen(_tmpbuf) + 1, char); + strcpy(fqpn, _tmpbuf); + } + + return fqpn; +} +#else /* TEXK */ +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L +# define TDS11DOC "http://www.tug.org/ftp/tex/tds-1.1/tds.html#Fonts" +static void +insistupdate (const char *filename, + const char *fqpn, + const char *foolname, + kpse_file_format_type foolformat, + kpse_file_format_type realformat) +{ + kpse_format_info_type *fif; + kpse_format_info_type *fir; + if (verbose < 1) + return; + fif = &kpse_format_info[foolformat]; + fir = &kpse_format_info[realformat]; + WARN("File name=\"%s\" format=\"%s\" might be found in different location than I expected:", + filename, fir->type); + WARN(">> %s", fqpn); + WARN(">> Please adjust your TEXMF as conformant with:"); + WARN(">> " TDS11DOC); + WARN(">> I searched it with fooling kpathsea as progname=\"%s\" format=\"%s\".", + foolname, fif->type); + WARN(">> Default search path for this format file is:"); + WARN(">> %s", fir->default_path); + WARN(">> Please read \"README\" file."); +} +#endif /* TDS 1.1 */ + +static char * +dpx_find__app__xyz (const char *filename, + const char *suffix, int is_text) +{ + char *fqpn = NULL; + char *q; + + q = ensuresuffix(filename, suffix); + fqpn = kpse_find_file(q, + (is_text ? + kpse_program_text_format : kpse_program_binary_format), 0); + if (!fqpn && strcmp(q, filename)) + fqpn = kpse_find_file(filename, + (is_text ? + kpse_program_text_format : kpse_program_binary_format), 0); + RELEASE(q); + + return fqpn; +} + +static char * +dpx_foolsearch (const char *foolname, + const char *filename, + int is_text) +{ + char *fqpn = NULL; + + kpse_reset_program_name(foolname); + fqpn = kpse_find_file (filename, + (is_text ? + kpse_program_text_format : + kpse_program_binary_format), + false); + kpse_reset_program_name("dvipdfm"); + + return fqpn; +} +#endif /* MIKTEX */ + +static char *dpx_find_fontmap_file (const char *filename); +static char *dpx_find_agl_file (const char *filename); +static char *dpx_find_sfd_file (const char *filename); +static char *dpx_find_cmap_file (const char *filename); +static char *dpx_find_enc_file (const char *filename); +static char *dpx_find_iccp_file (const char *filename); + +#if 0 +static char *dpx_find_fonts_map (const char *filename); + +static char *dpx_find_fonts_enc (const char *filename); +static char *dpx_find_fonts_cmap (const char *filename); + +static char *dpx_find_fonts_type1 (const char *filename); +static char *dpx_find_fonts_truetype (const char *filename); +static char *dpx_find_fonts_opentype (const char *filename); + +static char *dpx_find_unicode_agl (const char *filename); +static char *dpx_find_unicode_cmap (const char *filename); + +static char *dpx_find_color_icc (const char *filename); +#endif + +FILE * +dpx_open_file (const char *filename, int type) +{ + FILE *fp = NULL; + char *fqpn = NULL; + + switch (type) { + case DPX_RES_TYPE_FONTMAP: + fqpn = dpx_find_fontmap_file(filename); + break; + case DPX_RES_TYPE_T1FONT: + fqpn = dpx_find_type1_file(filename); + break; + case DPX_RES_TYPE_TTFONT: + fqpn = dpx_find_truetype_file(filename); + break; + case DPX_RES_TYPE_OTFONT: + fqpn = dpx_find_opentype_file(filename); + break; + case DPX_RES_TYPE_PKFONT: + break; + case DPX_RES_TYPE_CMAP: + fqpn = dpx_find_cmap_file(filename); + break; + case DPX_RES_TYPE_ENC: + fqpn = dpx_find_enc_file(filename); + break; + case DPX_RES_TYPE_SFD: + fqpn = dpx_find_sfd_file(filename); + break; + case DPX_RES_TYPE_AGL: + fqpn = dpx_find_agl_file(filename); + break; + case DPX_RES_TYPE_ICCPROFILE: + fqpn = dpx_find_iccp_file(filename); + break; + default: + ERROR("Unknown resource type: %d", type); + break; + } + if (fqpn) { + fp = MFOPEN(fqpn, FOPEN_RBIN_MODE); + RELEASE(fqpn); + } + + return fp; +} + +/* color/icc ? */ +static char * +dpx_find_iccp_file (const char *filename) +{ + char *fqpn = NULL; + + fqpn = dpx_find__app__xyz(filename, "", 0); + if (fqpn || strrchr(filename, '.')) + return fqpn; + + fqpn = dpx_find__app__xyz(filename, ".icc", 0); + if (fqpn) + return fqpn; + + fqpn = dpx_find__app__xyz(filename, ".icm", 0); + + return fqpn; +} + + +static char * +dpx_find_fontmap_file (const char *filename) +{ + char *fqpn = NULL; + char *q; + + q = ensuresuffix(filename, ".map"); +#ifdef MIKTEX + fqpn = dpx_find__app__xyz(q, ".map", 1); +#else /* !MIKTEX */ + fqpn = kpse_find_file(q, kpse_fontmap_format, 0); + if (!fqpn) { + fqpn = dpx_find__app__xyz(q, ".map", 1); +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + if (fqpn) + insistupdate(q, fqpn, "dvipdfm", + kpse_program_text_format, kpse_fontmap_format); +#endif + } +#endif /* MIKETEX */ + RELEASE(q); + + return fqpn; +} + + +static char * +dpx_find_agl_file (const char *filename) +{ + char *fqpn = NULL; + char *q; + + q = ensuresuffix(filename, ".txt"); +#ifdef MIKTEX + fqpn = dpx_find__app__xyz(q, ".txt", 1); +#else /* !MIKTEX */ + fqpn = kpse_find_file(q, kpse_fontmap_format, 0); + if (!fqpn) { + fqpn = dpx_find__app__xyz(q, ".txt", 1); +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + if (fqpn) + insistupdate(q, fqpn, "dvipdfm", + kpse_program_text_format, kpse_fontmap_format); +#endif + } +#endif /* MIKETEX */ + RELEASE(q); + + return fqpn; +} + + +/* cmap.sty put files into tex/latex/cmap */ +static char * +dpx_find_cmap_file (const char *filename) +{ + char *fqpn = NULL; + static const char *fools[] = { + "cmap", "dvipdfm", "tex", NULL + }; + int i; + +#if defined(MIKTEX) + /* Find in Acrobat's Resource/CMap dir */ + { + char _acrodir[_MAX_PATH+1]; + char *q; + int r; + + memset(_acrodir, 0, _MAX_PATH+1); + r = miktex_get_acrobat_font_dir(_acrodir); + if (r && + strlen(_acrodir) > strlen("Font")) { + /* ....\Font\ */ + q = strrchr(_acrodir, PATH_SEP_CHR); + if (q && q[1] == '\0') + q[0] = '\0'; + q = strrchr(_acrodir, PATH_SEP_CHR); + if (q && !strcmp(q + 1, "Font")) { + sprintf(q, "%cCMap%c", PATH_SEP_CHR, PATH_SEP_CHR); + r = miktex_find_file(filename, _acrodir, _tmpbuf); + if (r) { + fqpn = NEW(strlen(_tmpbuf) + 1, char); + strcpy(fqpn, _tmpbuf); + } + } + } + memset(_tmpbuf, 0, _MAX_PATH+1); + } +#else +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + fqpn = kpse_find_file(filename, kpse_cmap_format, 0); +#endif +#endif + + /* Files found above are assumed to be CMap, + * if it's not really CMap it will cause an error. + */ + for (i = 0; !fqpn && fools[i]; i++) { + fqpn = dpx_foolsearch(fools[i], filename, 1); + if (fqpn) { +#ifndef MIKTEX +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + insistupdate(filename, fqpn, fools[i], + kpse_program_text_format, kpse_cmap_format); +#endif +#endif + if (!qcheck_filetype(fqpn, DPX_RES_TYPE_CMAP)) { + WARN("Found file \"%s\" for PostScript CMap but it doesn't look like a CMap...", fqpn); + RELEASE(fqpn); + fqpn = NULL; + } + } + } + + return fqpn; +} + +/* Search order: + * SFDFONTS (TDS 1.1) + * ttf2pk (text file) + * ttf2tfm (text file) + * dvipdfm (text file) + */ +static char * +dpx_find_sfd_file (const char *filename) +{ + char *fqpn = NULL; + char *q; + static const char *fools[] = { + "ttf2pk", "ttf2tfm", "dvipdfm", NULL + }; + int i; + + q = ensuresuffix(filename, ".sfd"); +#ifndef MIKTEX +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + fqpn = kpse_find_file(q, kpse_sfd_format, 0); +#endif +#endif /* !MIKTEX */ + + for (i = 0; !fqpn && fools[i]; i++) { + fqpn = dpx_foolsearch(fools[i], q, 1); +#ifndef MIKTEX +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + if (fqpn) + insistupdate(filename, fqpn, fools[i], + kpse_program_text_format, kpse_sfd_format); +#endif +#endif + } + RELEASE(q); + + return fqpn; +} + +static char * +dpx_find_enc_file (const char *filename) +{ + char *fqpn = NULL; + char *q; + static const char *fools[] = { + "dvips", "dvipdfm", NULL + }; + int i; + + q = ensuresuffix(filename, ".enc"); +#ifdef MIKTEX + if (miktex_find_psheader_file(q, _tmpbuf)) { + fqpn = NEW(strlen(_tmpbuf) + 1, char); + strcpy(fqpn, _tmpbuf); + } +#else +# if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + fqpn = kpse_find_file(filename, kpse_enc_format, 0); +# else + fqpn = kpse_find_file(filename, kpse_tex_ps_header_format, 0); +# endif +#endif /* MIKTEX */ + + for (i = 0; !fqpn && fools[i]; i++) { + fqpn = dpx_foolsearch(fools[i], q, 1); +#ifndef MIKTEX +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + if (fqpn) + insistupdate(filename, fqpn, fools[i], + kpse_program_text_format, kpse_enc_format); +#endif +#endif + } + RELEASE(q); + + return fqpn; +} + +static int +is_absolute_path(const char *filename) +{ +#ifdef WIN32 + if (isalpha(filename[0]) && filename[1] == ':') + return 1; + if (filename[0] == '\\' && filename[1] == '\\') + return 1; +#else + if (filename[0] == '/') + return 1; +#endif + return 0; +} + +char * +dpx_find_type1_file (const char *filename) +{ + char *fqpn = NULL; + + if (is_absolute_path(filename)) + fqpn = strdup(filename); + else + fqpn = kpse_find_file(filename, kpse_type1_format, 0); + if (fqpn && !qcheck_filetype(fqpn, DPX_RES_TYPE_T1FONT)) { +#if 0 + WARN("Found file \"%s\" for PFB font but it doesn't look like a PFB...", fqpn); +#endif + RELEASE(fqpn); + fqpn = NULL; + } + + return fqpn; +} + +char * +dpx_find_truetype_file (const char *filename) +{ + char *fqpn = NULL; + + if (is_absolute_path(filename)) + fqpn = strdup(filename); + else + fqpn = kpse_find_file(filename, kpse_truetype_format, 0); + if (fqpn && !qcheck_filetype(fqpn, DPX_RES_TYPE_TTFONT)) { +#if 0 + WARN("Found file \"%s\" for TrueType font but it doesn't look like a TrueType...", fqpn); +#endif + RELEASE(fqpn); + fqpn = NULL; + } + + return fqpn; +} + + +char * +dpx_find_opentype_file (const char *filename) +{ + char *fqpn = NULL; + char *q; + static const char *fools[] = { + "dvipdfm", NULL + }; + int i; + + q = ensuresuffix(filename, ".otf"); +#ifndef MIKTEX +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + if (is_absolute_path(q)) + fqpn = strdup(q); + else + fqpn = kpse_find_file(q, kpse_opentype_format, 0); +#endif +#endif + + for (i = 0; !fqpn && fools[i]; i++) { + fqpn = dpx_foolsearch(fools[i], q, 0); +#ifndef MIKTEX +#if defined(__TDS_VERSION__) && __TDS_VERSION__ >= 0x200406L + if (fqpn) + insistupdate(filename, fqpn, fools[i], + kpse_program_binary_format, kpse_opentype_format); +#endif +#endif + } + RELEASE(q); + + /* *We* use "opentype" for ".otf" (CFF). */ + if (fqpn && !qcheck_filetype(fqpn, DPX_RES_TYPE_OTFONT)) { +#if 0 + WARN("Found file \"%s\" for OpenType font but it doesn't look like a .otf...", fqpn); +#endif + RELEASE(fqpn); + fqpn = NULL; + } + + return fqpn; +} + + +#ifdef HAVE_MKSTEMP +# include +/* extern int mkstemp(const char *); */ +#endif + +/* Please fix: GCC warning + * warning: implicit declaration of function `mkstemp' + * mkstemp may not be declared in stdlib.h. + */ +char * +dpx_create_temp_file (void) +{ + char *tmp = NULL; + +#if defined(MIKTEX) + { + tmp = NEW(_MAX_PATH + 1, char); + miktex_create_temp_file(tmp); /* FIXME_FIXME */ + } +#elif defined(HAVE_MKSTEMP) +# define __TMPDIR "/tmp" +# define TEMPLATE "/dvipdfmx.XXXXXX" + { + char *_tmpd; + int _fd = -1; +# ifdef HAVE_GETENV + _tmpd = getenv("TMPDIR"); + if (!_tmpd) + _tmpd = (char *) __TMPDIR; +# else + _tmpd = (char *) __TMPDIR; +# endif /* HAVE_GETENV */ + tmp = NEW(strlen(_tmpd) + strlen(TEMPLATE) + 1, char); + strcpy(tmp, _tmpd); + strcat(tmp, TEMPLATE); + _fd = mkstemp(tmp); + if (_fd != -1) +#ifdef WIN32 + _close(_fd); +#else + close(_fd); +#endif /* WIN32 */ + else { + RELEASE(tmp); + tmp = NULL; + } + } +#else /* use tmpnam */ + { + char *_tmpa = NEW(L_tmpnam + 1, char); + tmp = tmpnam(_tmpa); + if (!tmp) + RELEASE(_tmpa); + } +#endif /* MIKTEX */ + + return tmp; +} + +void +dpx_delete_temp_file (char *tmp) +{ + if (!tmp) + return; + remove (tmp); + RELEASE(tmp); + + return; +} + +#ifdef HAVE_SYSTEM +/* dpx_file_apply_filter() is used for converting unsupported graphics + * format to one of the formats that dvipdfmx can natively handle. + * 'input' is the filename of the original file and 'output' is actually + * temporal files 'generated' by the above routine. + * This should be system dependent. (MiKTeX may want something different) + * Please modify as appropriate (see also pdfximage.c and dvipdfmx.c). + */ +int +dpx_file_apply_filter (const char *cmdtmpl, const char *input, const char *output) +{ + char *cmd = NULL; + char *p, *q; + size_t n, size; + int error = 0; + + if (!cmdtmpl) + return -1; + else if (!input || !output) + return -1; + + size = strlen(cmdtmpl) + strlen(input) + strlen(output) + 3; + cmd = NEW(size, char); + memset(cmd, 0, size); + for (n = 0, p = (char *) cmdtmpl; *p != 0; p++) { +#define need(s,l,m,n) \ +if ((l) + (n) >= (m)) { \ + (m) += (n) + 128; \ + (s) = RENEW((s), (m), char); \ +} + if (p[0] == '%') { + p++; + switch (p[0]) { + case 'o': /* Output file name */ + need(cmd, n, size, strlen(output)); + strcpy(cmd + n, output); n += strlen(output); + break; + case 'i': /* Input filename */ + need(cmd, n, size, strlen(input)); + strcpy(cmd + n, input); n += strlen(input); + break; + case 'b': + need(cmd, n, size, strlen(input)); + q = strrchr(input, '.'); /* wrong */ + if (q) { + memcpy(cmd + n, input, (int) (q - input)); + n += (int) (q - input); + } else { + strcpy(cmd + n, input); n += strlen(input); + } + case 0: + break; + case '%': + need(cmd, n, size, 1); + cmd[n] = '%'; n++; + break; + } + } else { + need(cmd, n, size, 1); + cmd[n] = p[0]; n++; + } + } + need(cmd, n, size, 1); + cmd[n] = '\0'; + if (strlen(cmd) == 0) { + RELEASE(cmd); + return -1; + } + + error = system(cmd); + if (error) + WARN("Filtering file via command -->%s<-- failed.", cmd); + RELEASE(cmd); + + return error; +} +#else +int +dpx_file_apply_filter (const char *cmdtmpl, const char *input, const char *output) +{ + WARN("Your system does not have system()."); + return -1; +} +#endif /* HAVE_SYSTEM */ + +#if 1 +static char _sbuf[128]; +/* + * SFNT type sigs: + * `true' (0x74727565): TrueType (Mac) + * `typ1' (0x74797031) (Mac): PostScript font housed in a sfnt wrapper + * 0x00010000: TrueType (Win)/OpenType + * `OTTO': PostScript CFF font with OpenType wrapper + * `ttcf': TrueType Collection + */ +static int +istruetype (FILE *fp) +{ + int n; + + rewind(fp); + n = fread(_sbuf, 1, 4, fp); + rewind(fp); + + if (n != 4) + return 0; + else if (!memcmp(_sbuf, "true", 4) || + !memcmp(_sbuf, "\0\1\0\0", 4)) /* This doesn't help... */ + return 1; + else if (!memcmp(_sbuf, "ttcf", 4)) + return 1; + + return 0; +} + +/* "OpenType" is only for ".otf" here */ +static int +isopentype (FILE *fp) +{ + int n; + + rewind(fp); + n = fread(_sbuf, 1, 4, fp); + rewind(fp); + + if (n != 4) + return 0; + else if (!memcmp(_sbuf, "OTTO", 4)) + return 1; + else + return 0; +} + +static int +ist1binary (FILE *fp) +{ + char *p; + int n; + + rewind(fp); + n = fread(_sbuf, 1, 21, fp); + rewind(fp); + + p = _sbuf; + if (n != 21) + return 0; + else if (p[0] != (char) 0x80 || p[1] < 0 || p[1] > 3) + return 0; + else if (!memcmp(p + 6, "%!PS-AdobeFont", 14) || + !memcmp(p + 6, "%!FontType1", 11)) + return 1; + else if (!memcmp(p + 6, "%!PS", 4)) { +#if 0 + p[20] = '\0'; p += 6; + WARN("Ambiguous PostScript resource type: %s", (char *) p); +#endif + return 1; + } + /* Otherwise ambiguious */ + return 0; +} + +/* %!PS-Adobe-x.y Resource-CMap */ +static int +ispscmap (FILE *fp) +{ + char *p; + p = mfgets(_sbuf, 128, fp); p[127] = '\0'; + if (!p || strlen(p) < 4 || memcmp(p, "%!PS", 4)) + return 0; + for (p += 4; *p && !isspace(*p); p++); + for ( ; *p && (*p == ' ' || *p == '\t'); p++); + if (*p == '\0' || strlen(p) < strlen("Resource-CMap")) + return 0; + else if (!memcmp(p, "Resource-CMap", strlen("Resource-CMap"))) + return 1; + /* Otherwise ambiguious */ + return 0; +} + +/* This actually opens files. */ +static int +qcheck_filetype (const char *fqpn, int type) +{ + int r = 1; + FILE *fp; + + if (!fqpn) + return 0; + + fp = MFOPEN(fqpn, FOPEN_RBIN_MODE); + if (!fp) { + WARN("File \"%s\" found but I could not open that...", fqpn); + return 0; + } + switch (type) { + case DPX_RES_TYPE_T1FONT: + r = ist1binary(fp); + break; + case DPX_RES_TYPE_TTFONT: + r = istruetype(fp); + break; + case DPX_RES_TYPE_OTFONT: + r = isopentype(fp); + break; + case DPX_RES_TYPE_CMAP: + r = ispscmap(fp); + break; + } + MFCLOSE(fp); + + return r; +} + +#endif /* 1 */ + diff --git a/Build/source/texk/xdvipdfmx/src/dpxfile.h b/Build/source/texk/xdvipdfmx/src/dpxfile.h new file mode 100644 index 00000000000..7bcf9407f85 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxfile.h @@ -0,0 +1,58 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxfile.h,v 1.6 2005/07/20 10:41:54 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _DPXFILE_H_ +#define _DPXFILE_H_ + +#define DPX_RES_TYPE_FONTMAP 0x00 + +#define DPX_RES_TYPE_T1FONT 0x10 +#define DPX_RES_TYPE_TTFONT 0x11 +#define DPX_RES_TYPE_OTFONT 0x12 +#define DPX_RES_TYPE_PKFONT 0x13 + +#define DPX_RES_TYPE_ENC 0x20 +#define DPX_RES_TYPE_CMAP 0x21 +#define DPX_RES_TYPE_SFD 0x22 +#define DPX_RES_TYPE_AGL 0x23 + +#define DPX_RES_TYPE_ICCPROFILE 0x30 + +#include "mfileio.h" +extern FILE *dpx_open_file (const char *filename, int type); + +extern char * dpx_find_type1_file (const char *filename); +extern char * dpx_find_truetype_file (const char *filename); +extern char * dpx_find_opentype_file (const char *filename); + +#define DPXFOPEN(n,t) dpx_open_file((const char *)(n),(t)) +#define DPXFCLOSE(f) MFCLOSE((f)) + +extern void dpx_file_set_verbose (void); + +extern int dpx_file_apply_filter (const char *cmdtmpl, const char *input, const char *output); +extern char *dpx_create_temp_file (void); +extern void dpx_delete_temp_file (char *tmp); /* tmp freed here */ + +#endif /* _DPXFILE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/dpxutil.c b/Build/source/texk/xdvipdfmx/src/dpxutil.c new file mode 100644 index 00000000000..2b0cf946b79 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxutil.c @@ -0,0 +1,643 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxutil.c,v 1.7 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include +#include +#include +#include + +#include "mem.h" +#include "error.h" + +#include "dpxutil.h" + +int +xtoi (char c) +{ + if (c >= '0' && c <= '9') + return (c - '0'); + else if (c >= 'a' && c <= 'f') + return (c - 'W'); + else if (c >= 'A' && c <= 'F') + return (c - '7'); + else + return -1; +} + +int +sputx (unsigned char c, char **s, char *end) +{ + char hi = (c >> 4), lo = c & 0x0f; + + if (*s + 2 > end) + ERROR("Buffer overflow."); + **s = (hi < 10) ? hi + '0' : hi + '7'; + *(*s+1) = (lo < 10) ? lo + '0' : lo + '7'; + *s += 2; + + return 2; +} + +int +getxpair (unsigned char **s) +{ + int hi, lo; + hi = xtoi(**s); + if (hi < 0) + return hi; + (*s)++; + lo = xtoi(**s); + if (lo < 0) + return lo; + (*s)++; + return ((hi << 4)| lo); +} + +int +putxpair (unsigned char c, char **s) +{ + char hi = (c >> 4), lo = c & 0x0f; + + **s = (hi < 10) ? hi + '0' : hi + '7'; + *(*s+1) = (lo < 10) ? lo + '0' : lo + '7'; + *s += 2; + + return 2; +} + +/* Overflowed value is set to invalid char. */ +unsigned char +ostrtouc (unsigned char **inbuf, unsigned char *inbufend, unsigned char *valid) +{ + unsigned char *cur = *inbuf; + unsigned int val = 0; + + while (cur < inbufend && cur < *inbuf + 3 && + (*cur >= '0' && *cur <= '7')) { + val = (val << 3) | (*cur - '0'); + cur++; + } + if (val > 255 || cur == *inbuf) + *valid = 0; + else + *valid = 1; + + *inbuf = cur; + return (unsigned char) val; +} + +unsigned char +esctouc (unsigned char **inbuf, unsigned char *inbufend, unsigned char *valid) +{ + unsigned char unescaped, escaped; + + escaped = **inbuf; + *valid = 1; + switch (escaped) { + /* Backslash, unbalanced paranthes */ + case '\\': case ')': case '(': + unescaped = escaped; + (*inbuf)++; + break; + /* Other escaped char */ + case 'n': unescaped = '\n'; (*inbuf)++; break; + case 'r': unescaped = '\r'; (*inbuf)++; break; + case 't': unescaped = '\t'; (*inbuf)++; break; + case 'b': unescaped = '\b'; (*inbuf)++; break; + case 'f': unescaped = '\f'; (*inbuf)++; break; + /* + * An end-of-line marker preceeded by backslash is not part of a + * literal string + */ + case '\r': + unescaped = 0; + *valid = 0; + *inbuf += (*inbuf < inbufend - 1 && *(*inbuf+1) == '\n') ? 2 : 1; + break; + case '\n': + unescaped = 0; + *valid = 0; + (*inbuf)++; + break; + /* Possibly octal notion */ + default: + unescaped = ostrtouc(inbuf, inbufend, valid); + } + + return unescaped; +} + +void +skip_white_spaces (unsigned char **s, unsigned char *endptr) +{ + while (*s < endptr) + if (!is_space(**s)) + break; + else + (*s)++; +} + +void +ht_init_table (struct ht_table *ht) +{ + int i; + + ASSERT(ht); + + for (i = 0; i < HASH_TABLE_SIZE; i++) { + ht->table[i] = NULL; + } + ht->count = 0; +} + +void +ht_clear_table (struct ht_table *ht, void (*hval_free_fn) (void *)) +{ + int i; + + ASSERT(ht); + + for (i = 0; i < HASH_TABLE_SIZE; i++) { + struct ht_entry *hent, *next; + + hent = ht->table[i]; + while (hent) { + if (hent->value) { + hval_free_fn(hent->value); + } + hent->value = NULL; + if (hent->key) { + RELEASE(hent->key); + } + hent->key = NULL; + next = hent->next; + RELEASE(hent); + hent = next; + } + ht->table[i] = NULL; + } + ht->count = 0; +} + +static unsigned int +get_hash (const void *key, int keylen) +{ + unsigned int hkey = 0; + int i; + + for (i = 0; i < keylen; i++) { + hkey = (hkey << 5) + hkey + ((char *)key)[i]; + } + + return (hkey % HASH_TABLE_SIZE); +} + +void * +ht_lookup_table (struct ht_table *ht, const void *key, int keylen) +{ + struct ht_entry *hent; + unsigned int hkey; + + ASSERT(ht && key); + + hkey = get_hash(key, keylen); + hent = ht->table[hkey]; + while (hent) { + if (hent->keylen == keylen && + !memcmp(hent->key, key, keylen)) { + return hent->value; + } + hent = hent->next; + } + + return NULL; +} + +void +ht_remove_table (struct ht_table *ht, + const void *key, int keylen, void (*hval_free_fn) (void *)) +{ + struct ht_entry *hent, *prev; + unsigned int hkey; + + ASSERT(ht && key); + + hkey = get_hash(key, keylen); + hent = ht->table[hkey]; + prev = NULL; + while (hent) { + if (hent->keylen == keylen && + !memcmp(hent->key, key, keylen)) { + break; + } + prev = hent; + hent = hent->next; + } + if (hent) { + if (hent->key) + RELEASE(hent->key); + hent->key = NULL; + hent->keylen = 0; + hval_free_fn(hent->value); + hent->value = NULL; + if (prev) { + prev->next = hent->next; + } else { + ht->table[hkey] = hent->next; + } + RELEASE(hent); + ht->count--; + } +} + +/* replace... */ +void +ht_insert_table (struct ht_table *ht, + const void *key, int keylen, void *value, + void (*hval_free_fn) (void *)) +{ + struct ht_entry *hent, *prev; + unsigned int hkey; + + ASSERT(ht && key); + + hkey = get_hash(key, keylen); + hent = ht->table[hkey]; + prev = NULL; + while (hent) { + if (hent->keylen == keylen && + !memcmp(hent->key, key, keylen)) { + break; + } + prev = hent; + hent = hent->next; + } + if (hent) { + hval_free_fn(hent->value); + hent->value = value; + } else { + hent = NEW(1, struct ht_entry); + hent->key = NEW(keylen, char); + memcpy(hent->key, key, keylen); + hent->keylen = keylen; + hent->value = value; + hent->next = NULL; + if (prev) { + prev->next = hent; + } else { + ht->table[hkey] = hent; + } + ht->count++; + } +} + +void +ht_append_table (struct ht_table *ht, + const void *key, int keylen, void *value) +{ + struct ht_entry *hent, *last; + unsigned int hkey; + + hkey = get_hash(key, keylen); + hent = ht->table[hkey]; + if (!hent) { + hent = NEW(1, struct ht_entry); + ht->table[hkey] = hent; + } else { + while (hent) { + last = hent; + hent = hent->next; + } + hent = NEW(1, struct ht_entry); + last->next = hent; + } + hent->key = NEW(keylen, char); + memcpy(hent->key, key, keylen); + hent->keylen = keylen; + hent->value = value; + hent->next = NULL; + + ht->count++; +} + +int +ht_set_iter (struct ht_table *ht, struct ht_iter *iter) +{ + int i; + + ASSERT(ht && ht->table && iter); + + for (i = 0; i < HASH_TABLE_SIZE; i++) { + if (ht->table[i]) { + iter->index = i; + iter->curr = ht->table[i]; + iter->hash = ht; + return 0; + } + } + + return -1; +} + +void +ht_clear_iter (struct ht_iter *iter) +{ + if (iter) { + iter->index = HASH_TABLE_SIZE; + iter->curr = NULL; + iter->hash = NULL; + } +} + +char * +ht_iter_getkey (struct ht_iter *iter, int *keylen) +{ + struct ht_entry *hent; + + hent = (struct ht_entry *) iter->curr; + if (iter && hent) { + *keylen = hent->keylen; + return hent->key; + } else { + *keylen = 0; + return NULL; + } +} + +void * +ht_iter_getval (struct ht_iter *iter) +{ + struct ht_entry *hent; + + hent = (struct ht_entry *) iter->curr; + if (iter && hent) { + return hent->value; + } else { + return NULL; + } +} + +int +ht_iter_next (struct ht_iter *iter) +{ + struct ht_entry *hent; + struct ht_table *ht; + + ASSERT(iter); + + ht = iter->hash; + hent = (struct ht_entry *) iter->curr; + hent = hent->next; + while (!hent && + ++iter->index < HASH_TABLE_SIZE) { + hent = ht->table[iter->index]; + } + iter->curr = hent; + + return (hent ? 0 : -1); +} + + +static int +read_c_escchar (char *r, char **pp, char *endptr) +{ + int c = 0, l = 1; + char *p = *pp; + + switch (p[0]) { + case 'a' : c = '\a'; p++; break; + case 'b' : c = '\b'; p++; break; + case 'f' : c = '\f'; p++; break; + case 'n' : c = '\n'; p++; break; + case 'r' : c = '\r'; p++; break; + case 't' : c = '\t'; p++; break; + case 'v' : c = '\v'; p++; break; + case '\\': case '?': case '\'': case '\"': + c = p[0]; p++; + break; + case '\n': l = 0; p++; break; + case '\r': + { + p++; + if (p < endptr && p[0] == '\n') + p++; + l = 0; + } + break; + case '0': case '1': case '2': case '3': + case '4': case '5': case '6': case '7': + { + int i; + for (c = 0, i = 0; + i < 3 && p < endptr && + p[0] >= '0' && p[0] <= '7'; i++, p++) + c = (c << 3) + (p[0] - '0'); + } + break; + case 'x': + { + int i; + for (c = 0, i = 0, p++; + i < 2 && p < endptr && isxdigit(p[0]); + i++, p++) + c = (c << 4) + + (isdigit(p[0]) ? + p[0] - '0' : + (islower(p[0]) ? p[0] - 'a' + 10: p[0] - 'A' + 10)); + } + break; + default: + WARN("Unknown escape char sequence: \\%c", p[0]); + l = 0; p++; + break; + } + + if (r) + *r = (char) c; + *pp = p; + return l; +} + +#define C_QUOTE '"' +#define C_ESCAPE '\\' +static int +read_c_litstrc (char *q, int len, char **pp, char *endptr) +{ + char *p; + int l = 0; +#define Q_TERM 0 +#define Q_CONT -1 +#define Q_ERROR_UNTERM -1 +#define Q_ERROR_INVAL -2 +#define Q_ERROR_BUFF -3 + int s = Q_CONT; + + for (l = 0, p = *pp; + s == Q_CONT && p < endptr; ) { + switch (p[0]) { + case C_QUOTE: + s = Q_TERM; p++; + break; + case C_ESCAPE: + if (q && l == len) + s = Q_ERROR_BUFF; + else { + p++; + l += read_c_escchar(q ? &q[l] : NULL, &p, endptr); + } + break; + case '\n': case '\r': + s = Q_ERROR_INVAL; + break; + default: + if (q && l == len) + s = Q_ERROR_BUFF; + else { + if (!q) + l++; + else + q[l++] = p[0]; + p++; + } + break; + } + } + if (s == Q_TERM) { + if (q && l == len) + s = Q_ERROR_BUFF; + else if (q) + q[l++] = '\0'; + } + + *pp = p; + return ((s == Q_TERM) ? l : s); +} + +char * +parse_c_string (char **pp, char *endptr) +{ + char *q = NULL; + char *p = *pp; + int l = 0; + + if (p >= endptr || p[0] != C_QUOTE) + return NULL; + + p++; + l = read_c_litstrc(NULL, 0, &p, endptr); + if (l >= 0) { + q = NEW(l + 1, char); + p = *pp + 1; + l = read_c_litstrc(q, l + 1, &p, endptr); + } + + *pp = p; + return q; +} + +#define ISCNONDIGITS(c) ( \ + (c) == '_' || \ + ((c) >= 'a' && (c) <= 'z') || \ + ((c) >= 'A' && (c) <= 'Z') \ +) +#define ISCIDENTCHAR(c) ( \ + ISCNONDIGITS((c)) || \ + ((c) >= '0' && (c) <= '9') \ +) + +char * +parse_c_ident (char **pp, char *endptr) +{ + char *q = NULL; + char *p = *pp; + int n; + + if (p >= endptr || !ISCNONDIGITS(*p)) + return NULL; + + for (n = 0; p < endptr && ISCIDENTCHAR(*p); p++, n++); + q = NEW(n + 1, char); + memcpy(q, *pp, n); q[n] = '\0'; + + *pp = p; + return q; +} + +char * +parse_float_decimal (char **pp, char *endptr) +{ + char *q = NULL; + char *p = *pp; + int s = 0, n = 0; + + if (p >= endptr) + return NULL; + + if (p[0] == '+' || p[0] == '-') + p++; + + /* 1. .01 001 001E-001 */ + for (s = 0, n = 0; p < endptr && s >= 0; ) { + switch (p[0]) { + case '+': case '-': + if (s != 2) + s = -1; + else { + s = 3; p++; + } + break; + case '.': + if (s > 0) + s = -1; + else { + s = 1; p++; + } + break; + case '0': case '1': case '2': case '3': case '4': + case '5': case '6': case '7': case '8': case '9': + n++; p++; + break; + case 'E': case 'e': + if (n == 0 || s == 2) + s = -1; + else { + s = 2; p++; + } + break; + default: + s = -1; + break; + } + } + + if (n != 0) { + n = (int) (p - *pp); + q = NEW(n + 1, char); + memcpy(q, *pp, n); q[n] = '\0'; + } + + *pp = p; + return q; +} diff --git a/Build/source/texk/xdvipdfmx/src/dpxutil.h b/Build/source/texk/xdvipdfmx/src/dpxutil.h new file mode 100644 index 00000000000..54fc8e8cd09 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dpxutil.h @@ -0,0 +1,101 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dpxutil.h,v 1.7 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _DPXUTIL_H_ +#define _DPXUTIL_H_ + +#undef MIN +#define MIN(a, b) (((a) < (b)) ? (a) : (b)) +#undef MAX +#define MAX(a, b) (((a) > (b)) ? (a) : (b)) +#undef ABS +#define ABS(a) (((a) < 0) ? -(a) : (a)) + +#ifndef is_space +#define is_space(c) ((c) == ' ' || (c) == '\t' || (c) == '\f' || \ + (c) == '\r' || (c) == '\n' || (c) == '\0') +#endif +#ifndef is_delim +#define is_delim(c) ((c) == '(' || (c) == '/' || \ + (c) == '<' || (c) == '>' || \ + (c) == '[' || (c) == ']' || \ + (c) == '{' || (c) == '}' || \ + (c) == '%') +#endif + +extern void skip_white_spaces (unsigned char **s, unsigned char *endptr); +extern int xtoi (char c); +extern int getxpair (unsigned char **str); +extern int putxpair (unsigned char c, char **str); +extern int sputx (unsigned char c, char **buf, char *endptr); + +extern unsigned char ostrtouc (unsigned char **inbuf, + unsigned char *inbufend, unsigned char *valid); +extern unsigned char esctouc (unsigned char **inbuf, + unsigned char *inbufend, unsigned char *valid); + +#define HASH_TABLE_SIZE 503 + +struct ht_entry { + char *key; + int keylen; + + void *value; + + struct ht_entry *next; +}; + +struct ht_table { + long count; + struct ht_entry *table[HASH_TABLE_SIZE]; +}; + +extern void ht_init_table (struct ht_table *ht); +extern void ht_clear_table (struct ht_table *ht, void (*hval_free_fn) (void *)); +extern void *ht_lookup_table (struct ht_table *ht, const void *key, int keylen); +extern void ht_append_table (struct ht_table *ht, + const void *key, int keylen, void *value) ; +extern void ht_remove_table (struct ht_table *ht, + const void *key, int keylen, void (*hval_free_fn) (void*)); +extern void ht_insert_table (struct ht_table *ht, + const void *key, int keylen, void *value, + void (*hval_free_fn) (void *)); + +struct ht_iter { + int index; + void *curr; + struct ht_table *hash; +}; + +extern int ht_set_iter (struct ht_table *ht, struct ht_iter *iter); +extern void ht_clear_iter (struct ht_iter *iter); +extern char *ht_iter_getkey (struct ht_iter *iter, int *keylen); +extern void *ht_iter_getval (struct ht_iter *iter); +extern int ht_iter_next (struct ht_iter *iter); + +extern char *parse_float_decimal (char **pp, char *endptr); +extern char *parse_c_string (char **pp, char *endptr); +extern char *parse_c_ident (char **pp, char *endptr); + +#endif /* _DPXUTIL_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/dvi.c b/Build/source/texk/xdvipdfmx/src/dvi.c new file mode 100644 index 00000000000..515f940a4ba --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dvi.c @@ -0,0 +1,2632 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dvi.c,v 1.37 2005/08/18 08:46:21 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include +#include + +#ifdef WIN32 +#include +#include +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "mfileio.h" +#include "numbers.h" + +#include "pdfdev.h" +#include "pdfdoc.h" +#include "pdfparse.h" + +#include "fontmap.h" + +#include "dvicodes.h" +#include "tfm.h" +#include "vf.h" +#include "subfont.h" + +#include "spc_util.h" +#include "specials.h" + +#include "dvi.h" + +#ifdef XETEX +#include "pdfcolor.h" +#include "pdfximage.h" +#include "ft2build.h" +#include FT_FREETYPE_H +#include FT_TRUETYPE_TABLES_H +#endif + +#define DVI_STACK_DEPTH_MAX 256u +#define TEX_FONTS_ALLOC_SIZE 16u +#define VF_NESTING_MAX 16u + +/* Interal Variables */ +static FILE *dvi_file = NULL; +static char linear = 0; /* set to 1 for strict linear processing of the input */ + +static unsigned long *page_loc = NULL; +static unsigned long num_pages = 0; + +static unsigned long dvi_file_size = 0; + +static struct dvi_header +{ + UNSIGNED_QUAD unit_num; + UNSIGNED_QUAD unit_den; + UNSIGNED_QUAD mag; + UNSIGNED_QUAD media_width, media_height; + UNSIGNED_PAIR stackdepth; + char comment[257]; +} dvi_info = { + 25400000 , /* num */ + 473628672, /* den */ + 1000, /* mag */ + 0, 0, /* media width and height */ + 0, /* stackdepth */ + {'\0'} /* comment */ +}; + +static double dev_origin_x = 72.0, dev_origin_y = 770.0; + +#define PHYSICAL 1 +#define VIRTUAL 2 +#define SUBFONT 3 +#ifdef XETEX +#define NATIVE 4 +#endif +#define DVI 1 +#define VF 2 + +static struct loaded_font +{ + int type; /* Type is physical or virtual */ + int font_id; /* id returned by dev (for PHYSICAL fonts) + * or by vf module for (VIRTUAL fonts) + */ + int subfont_id; /* id returned by subfont_locate_font() */ + int tfm_id; + spt_t size; + int source; /* Source is either DVI or VF */ +#ifdef XETEX + unsigned long rgba_color; + FT_Face ft_face; + unsigned short *glyph_widths; + int layout_dir; +#endif +} *loaded_fonts = NULL; +static int num_loaded_fonts = 0, max_loaded_fonts = 0; + +static void +need_more_fonts (unsigned n) +{ + if (num_loaded_fonts + n > max_loaded_fonts) { + max_loaded_fonts += TEX_FONTS_ALLOC_SIZE; + loaded_fonts = RENEW (loaded_fonts, max_loaded_fonts, struct loaded_font); + } +} + +static struct font_def +{ + long tex_id; + spt_t point_size; + spt_t design_size; + char *font_name; + int font_id; /* index of _loaded_ font in loaded_fonts array */ + int used; +#ifdef XETEX + char *fam_name, *sty_name; /* only used for native fonts in XeTeX */ + unsigned long rgba_color; /* only used for native fonts in XeTeX */ + int layout_dir; /* 1 = vertical, 0 = horizontal */ +#endif +} *def_fonts = NULL; + +#ifdef XETEX +#define XDV_FLAG_FONTTYPE_ATSUI 0x0001 +#define XDV_FLAG_FONTTYPE_ICU 0x0002 +#define XDV_FLAG_VERTICAL 0x0100 +#define XDV_FLAG_COLORED 0x0200 +#define XDV_FLAG_FEATURES 0x0400 +#define XDV_FLAG_VARIATIONS 0x0800 +#endif + +static int num_def_fonts = 0, max_def_fonts = 0; +static int compute_boxes = 0, link_annot = 1; +static int verbose = 0; + +#define DVI_PAGE_BUF_CHUNK 0x10000UL /* 64K should be plenty for most pages */ + +static unsigned char* dvi_page_buffer; +static unsigned long dvi_page_buf_size; +static unsigned long dvi_page_buf_index; + +/* functions to read numbers from the dvi file and store them in dvi_page_buffer */ +static UNSIGNED_BYTE get_and_buffer_unsigned_byte (FILE *file) +{ + int ch; + if ((ch = fgetc (file)) < 0) + ERROR ("File ended prematurely\n"); + if (dvi_page_buf_index >= dvi_page_buf_size) { + dvi_page_buf_size += DVI_PAGE_BUF_CHUNK; + dvi_page_buffer = RENEW(dvi_page_buffer, dvi_page_buf_size, unsigned char); + } + dvi_page_buffer[dvi_page_buf_index++] = ch; + return (UNSIGNED_BYTE) ch; +} + +static SIGNED_BYTE get_and_buffer_signed_byte (FILE *file) +{ + int byte; + byte = get_and_buffer_unsigned_byte(file); + if (byte >= 0x80) + byte -= 0x100; + return (SIGNED_BYTE) byte; +} + +static UNSIGNED_PAIR get_and_buffer_unsigned_pair (FILE *file) +{ + int i; + UNSIGNED_BYTE byte; + UNSIGNED_PAIR pair = 0; + for (i=0; i<2; i++) { + byte = get_and_buffer_unsigned_byte(file); + pair = pair*0x100u + byte; + } + return pair; +} + +static SIGNED_PAIR get_and_buffer_signed_pair (FILE *file) +{ + int i; + long pair = 0; + for (i=0; i<2; i++) { + pair = pair*0x100 + get_and_buffer_unsigned_byte(file); + } + if (pair >= 0x8000) { + pair -= 0x10000l; + } + return (SIGNED_PAIR) pair; +} + +static UNSIGNED_TRIPLE get_and_buffer_unsigned_triple(FILE *file) +{ + int i; + long triple = 0; + for (i=0; i<3; i++) { + triple = triple*0x100u + get_and_buffer_unsigned_byte(file); + } + return (UNSIGNED_TRIPLE) triple; +} + +static SIGNED_TRIPLE get_and_buffer_signed_triple(FILE *file) +{ + int i; + long triple = 0; + for (i=0; i<3; i++) { + triple = triple*0x100 + get_and_buffer_unsigned_byte(file); + } + if (triple >= 0x800000l) + triple -= 0x1000000l; + return (SIGNED_TRIPLE) triple; +} + +static SIGNED_QUAD get_and_buffer_signed_quad(FILE *file) +{ + int byte, i; + long quad = 0; + + /* Check sign on first byte before reading others */ + byte = get_and_buffer_unsigned_byte(file); + quad = byte; + if (quad >= 0x80) + quad = byte - 0x100; + for (i=0; i<3; i++) { + quad = quad*0x100 + get_and_buffer_unsigned_byte(file); + } + return (SIGNED_QUAD) quad; +} + +static UNSIGNED_QUAD get_and_buffer_unsigned_quad(FILE *file) +{ + int i; + unsigned long quad = 0; + for (i=0; i<4; i++) { + quad = quad*0x100u + get_and_buffer_unsigned_byte(file); + } + return (UNSIGNED_QUAD) quad; +} + +static void get_and_buffer_bytes(FILE *file, unsigned int count) +{ + if (dvi_page_buf_index + count >= dvi_page_buf_size) { + dvi_page_buf_size = dvi_page_buf_index + count + DVI_PAGE_BUF_CHUNK; + dvi_page_buffer = RENEW(dvi_page_buffer, dvi_page_buf_size, unsigned char); + } + if (fread(dvi_page_buffer + dvi_page_buf_index, 1, count, file) != count) + ERROR ("File ended prematurely\n"); + dvi_page_buf_index += count; +} + +/* functions to fetch values from dvi_page_buffer */ + +static UNSIGNED_BYTE get_buffered_unsigned_byte () +{ + return dvi_page_buffer[dvi_page_buf_index++]; +} + +static SIGNED_BYTE get_buffered_signed_byte () +{ + int byte; + byte = dvi_page_buffer[dvi_page_buf_index++]; + if (byte >= 0x80) + byte -= 0x100; + return (SIGNED_BYTE) byte; +} + +static UNSIGNED_PAIR get_buffered_unsigned_pair () +{ + int i; + UNSIGNED_BYTE byte; + UNSIGNED_PAIR pair = 0; + for (i=0; i<2; i++) { + byte = dvi_page_buffer[dvi_page_buf_index++]; + pair = pair*0x100u + byte; + } + return pair; +} + +static SIGNED_PAIR get_buffered_signed_pair () +{ + int i; + long pair = 0; + for (i=0; i<2; i++) { + pair = pair*0x100 + dvi_page_buffer[dvi_page_buf_index++]; + } + if (pair >= 0x8000) { + pair -= 0x10000l; + } + return (SIGNED_PAIR) pair; +} + +static UNSIGNED_TRIPLE get_buffered_unsigned_triple() +{ + int i; + long triple = 0; + for (i=0; i<3; i++) { + triple = triple*0x100u + dvi_page_buffer[dvi_page_buf_index++]; + } + return (UNSIGNED_TRIPLE) triple; +} + +static SIGNED_TRIPLE get_buffered_signed_triple() +{ + int i; + long triple = 0; + for (i=0; i<3; i++) { + triple = triple*0x100 + dvi_page_buffer[dvi_page_buf_index++]; + } + if (triple >= 0x800000l) + triple -= 0x1000000l; + return (SIGNED_TRIPLE) triple; +} + +static SIGNED_QUAD get_buffered_signed_quad() +{ + int byte, i; + long quad = 0; + + /* Check sign on first byte before reading others */ + byte = dvi_page_buffer[dvi_page_buf_index++]; + quad = byte; + if (quad >= 0x80) + quad = byte - 0x100; + for (i=0; i<3; i++) { + quad = quad*0x100 + dvi_page_buffer[dvi_page_buf_index++]; + } + return (SIGNED_QUAD) quad; +} + +static UNSIGNED_QUAD get_buffered_unsigned_quad() +{ + int i; + unsigned long quad = 0; + for (i=0; i<4; i++) { + quad = quad*0x100u + dvi_page_buffer[dvi_page_buf_index++]; + } + return (UNSIGNED_QUAD) quad; +} + + + +void +dvi_set_verbose (void) +{ + verbose++; + subfont_set_verbose(); + tfm_set_verbose(); + vf_set_verbose (); + spc_set_verbose(); +} + +unsigned +dvi_npages (void) +{ + return num_pages; +} + +static const char invalid_signature[] = +"Something is wrong. Are you sure this is a DVI file?"; + +#define range_check_loc(loc) \ + if ((loc) > dvi_file_size) {\ + ERROR(invalid_signature); \ + } + +static long +find_post (void) +{ + long current; + int ch; + + /* First find end of file */ + dvi_file_size = file_size(dvi_file); + current = dvi_file_size; + + /* Scan backwards through PADDING */ + do { + current--; + seek_absolute(dvi_file, current); + } while ((ch = fgetc(dvi_file)) == PADDING && + current > 0); + + /* file_position now points to last non padding character or + * beginning of file */ + if (dvi_file_size - current < 4 || current == 0 || +#ifdef XETEX + !(ch == DVI_ID || ch == DVIV_ID || ch == XDVI_ID)) { +#else + !(ch == DVI_ID || ch == DVIV_ID)) { +#endif + MESG("DVI ID = %d\n", ch); + ERROR(invalid_signature); + } + + /* Make sure post_post is really there */ + current = current - 5; + seek_absolute(dvi_file, current); + if ((ch = fgetc(dvi_file)) != POST_POST) { + MESG("Found %d where post_post opcode should be\n", ch); + ERROR(invalid_signature); + } + current = get_signed_quad(dvi_file); + seek_absolute(dvi_file, current); + if ((ch = fgetc(dvi_file)) != POST) { + MESG("Found %d where post_post opcode should be\n", ch); + ERROR(invalid_signature); + } + + return current; +} + +static void +get_page_info (long post_location) +{ + int i; + + seek_absolute(dvi_file, post_location + 27); + num_pages = get_unsigned_pair(dvi_file); + if (num_pages == 0) { + ERROR("Page count is 0!"); + } + if (verbose > 2) { + MESG("Page count:\t %4d\n", num_pages); + } + + page_loc = NEW(num_pages, unsigned long); + + seek_absolute(dvi_file, post_location + 1); + page_loc[num_pages-1] = get_unsigned_quad(dvi_file); + range_check_loc(page_loc[num_pages-1] + 41); + for (i = num_pages - 2; i >= 0; i--) { + seek_absolute(dvi_file, page_loc[i+1] + 41); + page_loc[i] = get_unsigned_quad(dvi_file); + range_check_loc(page_loc[num_pages-1] + 41); + } +} + +/* Following are computed "constants" used for unit conversion */ +static double dvi2pts = 1.52018, total_mag = 1.0; + +double +dvi_tell_mag (void) +{ + return total_mag; +} + +static void +do_scales (double mag) +{ + total_mag = (double) dvi_info.mag / 1000.0 * mag; + dvi2pts = (double) dvi_info.unit_num / (double) dvi_info.unit_den; + dvi2pts *= (72.0 / 254000.0); +} + +static void +get_dvi_info (long post_location) +{ + seek_absolute(dvi_file, post_location + 5); + + dvi_info.unit_num = get_unsigned_quad(dvi_file); + dvi_info.unit_den = get_unsigned_quad(dvi_file); + dvi_info.mag = get_unsigned_quad(dvi_file); + + dvi_info.media_height = get_unsigned_quad(dvi_file); + dvi_info.media_width = get_unsigned_quad(dvi_file); + + dvi_info.stackdepth = get_unsigned_pair(dvi_file); + + if (dvi_info.stackdepth > DVI_STACK_DEPTH_MAX) { + WARN("DVI need stack depth of %d,", dvi_info.stackdepth); + WARN("but DVI_STACK_DEPTH_MAX is %d.", DVI_STACK_DEPTH_MAX); + ERROR("Capacity exceeded."); + } + + if (verbose > 2) { + MESG("DVI File Info\n"); + MESG("Unit: %ld / %ld\n", dvi_info.unit_num, dvi_info.unit_den); + MESG("Magnification: %ld\n", dvi_info.mag); + MESG("Media Height: %ld\n", dvi_info.media_height); + MESG("Media Width: %ld\n", dvi_info.media_width); + MESG("Stack Depth: %d\n", dvi_info.stackdepth); + } +} + +static void +get_preamble_dvi_info (void) +{ + UNSIGNED_BYTE ch; + + ch = get_unsigned_byte(dvi_file); + if (ch != PRE) { + MESG("Found %d where PRE was expected\n", ch); + ERROR(invalid_signature); + } + + ch = get_unsigned_byte(dvi_file); +#ifdef XETEX + if (!(ch == DVI_ID || ch == DVIV_ID || ch == XDVI_ID)) { +#else + if (!(ch == DVI_ID || ch == DVIV_ID)) { +#endif + MESG("DVI ID = %d\n", ch); + ERROR(invalid_signature); + } + + dvi_info.unit_num = get_unsigned_quad(dvi_file); + dvi_info.unit_den = get_unsigned_quad(dvi_file); + dvi_info.mag = get_unsigned_quad(dvi_file); + + ch = get_unsigned_byte(dvi_file); + if (fread(dvi_info.comment, + 1, ch, dvi_file) != ch) { + ERROR(invalid_signature); + } + dvi_info.comment[ch] = '\0'; + + if (verbose > 2) { + MESG("DVI File Info\n"); + MESG("Unit: %ld / %ld\n", dvi_info.unit_num, dvi_info.unit_den); + MESG("Magnification: %ld\n", dvi_info.mag); + } + + if (verbose) { + MESG("DVI Comment: %s\n", dvi_info.comment); + } + + num_pages = 0x7FFFFFFUL; /* for linear processing: we just keep going! */ +} + +const char * +dvi_comment (void) +{ + return dvi_info.comment; +} + +static void +read_font_record (SIGNED_QUAD tex_id) +{ + UNSIGNED_BYTE dir_length, name_length; + UNSIGNED_QUAD checksum, point_size, design_size; + char *directory, *font_name; + + if (num_def_fonts >= max_def_fonts) { + max_def_fonts += TEX_FONTS_ALLOC_SIZE; + def_fonts = RENEW (def_fonts, max_def_fonts, struct font_def); + } + checksum = get_unsigned_quad(dvi_file); + point_size = get_unsigned_quad(dvi_file); + design_size = get_unsigned_quad(dvi_file); + dir_length = get_unsigned_byte(dvi_file); + name_length = get_unsigned_byte(dvi_file); + + directory = NEW(dir_length + 1, char); + if (fread(directory, 1, dir_length, dvi_file) != dir_length) { + ERROR(invalid_signature); + } + directory[dir_length] = '\0'; + RELEASE(directory); /* unused */ + + font_name = NEW(name_length + 1, char); + if (fread(font_name, 1, name_length, dvi_file) != name_length) { + ERROR(invalid_signature); + } + font_name[name_length] = '\0'; + def_fonts[num_def_fonts].tex_id = tex_id; + def_fonts[num_def_fonts].font_name = font_name; + def_fonts[num_def_fonts].point_size = point_size; + def_fonts[num_def_fonts].design_size = design_size; + def_fonts[num_def_fonts].used = 0; +#ifdef XETEX + def_fonts[num_def_fonts].fam_name = NULL; + def_fonts[num_def_fonts].sty_name = NULL; + def_fonts[num_def_fonts].rgba_color = 0xffffffff; + def_fonts[num_def_fonts].layout_dir = 0; +#endif + num_def_fonts++; + + return; +} + +#ifdef XETEX +static void +read_native_font_record (SIGNED_QUAD tex_id) +{ + UNSIGNED_PAIR flags; + UNSIGNED_QUAD point_size; + char *font_name, *fam_name, *sty_name; + int plen, flen, slen; + + if (num_def_fonts >= max_def_fonts) { + max_def_fonts += TEX_FONTS_ALLOC_SIZE; + def_fonts = RENEW (def_fonts, max_def_fonts, struct font_def); + } + point_size = get_unsigned_quad(dvi_file); + flags = get_unsigned_pair(dvi_file); + + if ((flags & XDV_FLAG_FONTTYPE_ICU) || (flags & XDV_FLAG_FONTTYPE_ATSUI)) { + plen = (int) get_unsigned_byte(dvi_file); /* PS name length */ + flen = (int) get_unsigned_byte(dvi_file); /* family name length */ + slen = (int) get_unsigned_byte(dvi_file); /* style name length */ + font_name = NEW(plen + 1, char); + if (fread(font_name, 1, plen, dvi_file) != plen) { + ERROR(invalid_signature); + } + font_name[plen] = '\0'; + fam_name = NEW(flen + 1, char); + if (fread(fam_name, 1, flen, dvi_file) != flen) { + ERROR(invalid_signature); + } + fam_name[flen] = '\0'; + sty_name = NEW(slen + 1, char); + if (fread(sty_name, 1, slen, dvi_file) != slen) { + ERROR(invalid_signature); + } + sty_name[slen] = '\0'; + def_fonts[num_def_fonts].tex_id = tex_id; + def_fonts[num_def_fonts].font_name = font_name; + def_fonts[num_def_fonts].fam_name = fam_name; + def_fonts[num_def_fonts].sty_name = sty_name; + def_fonts[num_def_fonts].point_size = point_size; + def_fonts[num_def_fonts].design_size = 655360; /* hard-code as 10pt for now, not used anyway */ + def_fonts[num_def_fonts].used = 0; + if (flags & XDV_FLAG_VERTICAL) + def_fonts[num_def_fonts].layout_dir = 1; + else + def_fonts[num_def_fonts].layout_dir = 0; + if (flags & XDV_FLAG_COLORED) { + def_fonts[num_def_fonts].rgba_color = get_unsigned_quad(dvi_file); + } else { + def_fonts[num_def_fonts].rgba_color = 0xffffffff; + } + if (flags & XDV_FLAG_VARIATIONS) { + int v, nvars = get_unsigned_pair(dvi_file); + for (v = 0; v < nvars * 2; ++v) + (void)get_unsigned_quad(dvi_file); /* skip axis and value for each variation setting */ + WARN("Variation axes are not supported; ignoring variation settings for font %s.\n", font_name); + } + num_def_fonts++; + } else { + ERROR("Unknown native_font flags."); + } + + return; +} +#endif + +static void +get_dvi_fonts (long post_location) +{ + UNSIGNED_BYTE code; + SIGNED_QUAD tex_id = 0; + + seek_absolute(dvi_file, post_location + 29); + while ((code = get_unsigned_byte(dvi_file)) != POST_POST) { + switch (code) { + case FNT_DEF1: + tex_id = get_unsigned_byte(dvi_file); + break; + case FNT_DEF2: + tex_id = get_unsigned_pair(dvi_file); + break; + case FNT_DEF3: + tex_id = get_unsigned_triple(dvi_file); + break; + case FNT_DEF4: +#ifdef XETEX + case XDV_NATIVE_FONT_DEF: +#endif + tex_id = get_signed_quad(dvi_file); + break; + default: + MESG("Unexpected op code: %3d\n", code); + ERROR(invalid_signature); + } +#ifdef XETEX + if (code != XDV_NATIVE_FONT_DEF) { + read_font_record(tex_id); + } else { + read_native_font_record(tex_id); + } +#else + read_font_record(tex_id); +#endif + } + if (verbose > 2) { + unsigned i; + + MESG("\n"); + MESG("DVI file font info\n"); + for (i = 0; i < num_def_fonts; i++) { + MESG("TeX Font: %10s loaded at ID=%5ld, ", + def_fonts[i].font_name, def_fonts[i].tex_id); + MESG("size=%5.2fpt (scaled %4.1f%%)", + def_fonts[i].point_size * dvi2pts, + 100.0 * ((double) def_fonts[i].point_size / def_fonts[i].design_size)); + MESG("\n"); + } + } +} + +static void get_comment (void) +{ + UNSIGNED_BYTE length; + + seek_absolute(dvi_file, 14); + length = get_unsigned_byte(dvi_file); + if (fread(dvi_info.comment, + 1, length, dvi_file) != length) { + ERROR(invalid_signature); + } + dvi_info.comment[length] = '\0'; + if (verbose) { + MESG("DVI Comment: %s\n", dvi_info.comment); + } +} + +/* + * The section below this line deals with the actual processing of the + * dvi file. + * + * The dvi file processor state is contained in the following variables: + */ + +struct dvi_registers +{ + SIGNED_QUAD h, v, w, x, y, z, d; +}; + +static struct dvi_registers dvi_state; +static struct dvi_registers dvi_stack[DVI_STACK_DEPTH_MAX]; +static unsigned dvi_stack_depth = 0 ; +static int current_font = -1; +static int processing_page = 0 ; + +static void +clear_state (void) +{ + dvi_state.h = 0; dvi_state.v = 0; dvi_state.w = 0; + dvi_state.x = 0; dvi_state.y = 0; dvi_state.z = 0; + dvi_state.d = 0; /* direction */ + dvi_stack_depth = 0; + current_font = -1; +} + +/* Migrated from pdfdev.c: + * The following codes are originally put into pdfdev.c. + * But they are moved to here to make PDF output independent + * from DVI input. + * pdfdoc, pdfspecial and htex are also modified. pdfspecial + * and htex does tag/untag depth. pdfdev and pdfdoc now does + * not care about line-breaking at all. + */ +static unsigned marked_depth = 0; +static int tagged_depth = -1; + +static void +dvi_mark_depth (void) +{ + /* If decreasing below tagged_depth */ + if (link_annot && + marked_depth == tagged_depth && + dvi_stack_depth == tagged_depth - 1) { + /* + * See if this appears to be the end of a "logical unit" + * that's been broken. If so, flush the logical unit. + */ + pdf_doc_break_annot(); + } + marked_depth = dvi_stack_depth; +} + +/* + * The following routines setup and tear down a callback at a + * certain stack depth. This is used to handle broken (linewise) + * links. + */ +void +dvi_tag_depth (void) +{ + tagged_depth = marked_depth; + dvi_compute_boxes(1); +} + +void +dvi_untag_depth (void) +{ + tagged_depth = -1; + dvi_compute_boxes(0); +} + +void +dvi_compute_boxes (int flag) +{ + compute_boxes = flag; +} + +void +dvi_link_annot (int flag) +{ + link_annot = flag; +} + +void +dvi_do_special (const void *buffer, UNSIGNED_QUAD size) +{ + double x_user, y_user, mag; + char *p; + + if (size > 0x7fffffffUL) { + WARN("Special more than %ul bytes???", size); + return; + } + + graphics_mode(); + + p = (char *) buffer; + + x_user = dvi_state.h * dvi2pts; + y_user = -dvi_state.v * dvi2pts; + mag = dvi_tell_mag(); + + if (spc_exec_special(p, (long) size, x_user, y_user, mag) < 0) { + if (verbose) { + dump(p, p + size); + } + } + + return; +} + +double +dvi_unit_size (void) +{ + return dvi2pts; +} + + +int +dvi_locate_font (const char *tfm_name, spt_t ptsize) +{ + int cur_id = -1; + const char *name = tfm_name; + int subfont_id = -1, font_id; /* VF or device font ID */ + fontmap_rec *mrec; + + if (verbose) + MESG("<%s@%.2fpt", tfm_name, ptsize * dvi2pts); + + need_more_fonts(1); + + /* This routine needs to be recursive/reentrant. Load current high water + * mark into an automatic variable. + */ + cur_id = num_loaded_fonts++; + + mrec = pdf_lookup_fontmap_record(tfm_name); + /* Load subfont mapping table */ + if (mrec && mrec->charmap.sfd_name && mrec->charmap.subfont_id) { + subfont_id = sfd_load_record(mrec->charmap.sfd_name, mrec->charmap.subfont_id); + } + + /* TFM must exist here. */ + loaded_fonts[cur_id].tfm_id = tfm_open(tfm_name, 1); + loaded_fonts[cur_id].subfont_id = subfont_id; + loaded_fonts[cur_id].size = ptsize; + /* This will be reset later if it was really generated by the dvi file. */ + loaded_fonts[cur_id].source = VF; + + /* The order of searching fonts is as follows: + * + * 1. If mrec is null, that is, there is no map entry matching + * with tfm_name, then search a virtual font matching with + * tfm_name at first. If no virtual font is found, search a + * PK font matching with tfm_name. + * + * 2. If mrec is non-null, search a physical scalable font. + * + * 3. Notice that every subfont gets non-null mrec. In this case, + * enc_name corresponding to mrec will be used instead of mrec. + * That is enc_name is NULL, search a virtual font for Omega (.ovf) + * matching with the base name of the subfont. If no virtual font + * for Omega is found, it is a fatal error because there is no PK font + * for Omega. + */ + if (!mrec) { + font_id = vf_locate_font(tfm_name, ptsize); + if (font_id >= 0) { + loaded_fonts[cur_id].type = VIRTUAL; + loaded_fonts[cur_id].font_id = font_id; + if (verbose) + MESG("(VF)>"); + return cur_id; + } + } +#if 1 + /* Sorry, I don't understand this well... Please fix. + * The purpose of this seems to be: + * + * Map 8-bit char codes in subfont to 16-bit code with SFD mapping + * and map subfonts to single OVF font. + * + * But it apparently only does TFM -> OVF mapping but no character + * code mapping. Please see dvi_set(), you can't have both font->type + * VIRTUAL and font->subfont_id >= 0. Am I missing something? + */ + else if (subfont_id >= 0 && mrec->map_name) + { + fontmap_rec *mrec1 = pdf_lookup_fontmap_record(mrec->map_name); + /* enc_name=NULL should be used only for 'built-in' encoding. + * Please fix this! + */ + if (mrec1 && !mrec1->enc_name) { + font_id = vf_locate_font(mrec1->font_name, ptsize); + if (font_id < 0) + WARN("Could not locate Omega Virtual Font \"%s\" for \"%s\".", + mrec1->font_name, tfm_name); + else { + loaded_fonts[cur_id].type = VIRTUAL; + loaded_fonts[cur_id].font_id = font_id; + if (verbose) + MESG("(OVF)>"); + return cur_id; + } + } + } +#endif /* 1 */ + + /* Failed to load a virtual font so we try to load a physical font. */ + + /* If mrec->map_name is not NULL, font name identified in PDF output + * is different than tfm_name, this can happen for subfonts grouped + * into a single "intermediate" font foo@SFD@. + * This is necessary for optimal output; to avoid unnecessary creation + * of multiple instances of a same font, to avoid frequent font selection + * and break of string_mode. + */ + if (mrec && mrec->map_name) { + name = mrec->map_name; + } else { + name = tfm_name; + } + + /* We need ptsize for PK font creation. */ + font_id = pdf_dev_locate_font(name, ptsize); + if (font_id < 0) { + WARN("Could not locate a virtual/physical font for TFM \"%s\".", tfm_name); + if (mrec && mrec->map_name) { /* has map_name */ + fontmap_rec *mrec1 = pdf_lookup_fontmap_record(mrec->map_name); + WARN(">> This font is mapped to an intermediate 16-bit font \"%s\" with SFD charmap=<%s,%s>,", + mrec->map_name, mrec->charmap.sfd_name, mrec->charmap.subfont_id); + if (!mrec1) + WARN(">> but I couldn't find font mapping for \"%s\".", mrec->map_name); + else { + WARN(">> and then mapped to a physical font \"%s\" by fontmap.", mrec1->font_name); + WARN(">> Please check if kpathsea library can find this font: %s", mrec1->font_name); + } + } else if (mrec && !mrec->map_name) { + WARN(">> This font is mapped to a physical font \"%s\".", mrec->font_name); + WARN(">> Please check if kpathsea library can find this font: %s", mrec->font_name); + } else { + WARN(">> There are no valid font mapping entry for this font."); + WARN(">> Font file name \"%s\" was assumed but failed to locate that font.", tfm_name); + } + ERROR("Cannot proceed without .vf or \"physical\" font for PDF output..."); + } + loaded_fonts[cur_id].type = PHYSICAL; + loaded_fonts[cur_id].font_id = font_id; + + if (verbose) + MESG(">"); + + return cur_id; +} + +#ifdef XETEX +static int +dvi_locate_native_font (const char *ps_name, const char *fam_name, + const char *sty_name, spt_t ptsize, int layout_dir) +{ + int cur_id = -1; + fontmap_rec *mrec; + int i; + char *fontmap_key = malloc(strlen(ps_name) + 3); + + if (verbose) + MESG("<%s(%s:%s)@%.2fpt", ps_name, fam_name, sty_name, ptsize * dvi2pts); + + need_more_fonts(1); + + cur_id = num_loaded_fonts++; + + sprintf(fontmap_key, "%s/%c", ps_name, layout_dir == 0 ? 'H' : 'V'); + mrec = pdf_lookup_fontmap_record(fontmap_key); + if (mrec == NULL) { + if (pdf_load_native_font(ps_name, fam_name, sty_name, layout_dir) == -1) { + ERROR("Cannot proceed without the \"native\" font: %s (%s %s)...", + ps_name, fam_name, sty_name); + } + mrec = pdf_lookup_fontmap_record(fontmap_key); + /* FIXME: would be more efficient if pdf_load_native_font returned the mrec ptr (or NULL for error) + so we could avoid doing a second lookup for the item we just inserted */ + } + loaded_fonts[cur_id].font_id = pdf_dev_locate_font(fontmap_key, ptsize); + loaded_fonts[cur_id].size = ptsize; + loaded_fonts[cur_id].type = NATIVE; + free(fontmap_key); + + loaded_fonts[cur_id].ft_face = mrec->opt.ft_face; + if (mrec->opt.glyph_widths == NULL) { + /* this is the first loaded_font that refers to this fontmap record, + so allocate the glyph_width cache and save it in the fontmap */ + mrec->opt.glyph_widths = NEW(mrec->opt.ft_face->num_glyphs, unsigned short); + for (i = 0; i < mrec->opt.ft_face->num_glyphs; ++i) + mrec->opt.glyph_widths[i] = 0xffff; + } + loaded_fonts[cur_id].glyph_widths = mrec->opt.glyph_widths; + loaded_fonts[cur_id].layout_dir = layout_dir; + + if (verbose) + MESG(">"); + + return cur_id; +} +#endif + +double +dvi_dev_xpos (void) +{ + return dvi_state.h * dvi2pts; +} + +double +dvi_dev_ypos (void) +{ + return -(dvi_state.v * dvi2pts); +} + +static void do_moveto (SIGNED_QUAD x, SIGNED_QUAD y) +{ + dvi_state.h = x; + dvi_state.v = y; +} + +void dvi_right (SIGNED_QUAD x) +{ + if (!dvi_state.d) { + dvi_state.h += x; + } else { + dvi_state.v += x; + } +} + +void dvi_down (SIGNED_QUAD y) +{ + if (!dvi_state.d) { + dvi_state.v += y; + } else { + dvi_state.h -= y; + } +} + +/* Please remove this. + * Optimization for 8-bit encodings. + */ +static void +do_string (unsigned char *s, int len) +{ + struct loaded_font *font; + spt_t width, height, depth; + int i; + + if (current_font < 0) + ERROR("No font selected!"); + + font = &loaded_fonts[current_font]; + + width = tfm_string_width(font->tfm_id, s, len); + width = sqxfw(font->size, width); + + switch (font->type) { + case PHYSICAL: + if (font->subfont_id < 0) { + pdf_dev_set_string(dvi_state.h, -dvi_state.v, s, len, + width, font->font_id, 1); + if (compute_boxes && link_annot && + marked_depth >= tagged_depth) { + pdf_rect rect; + + height = tfm_string_height(font->tfm_id, s, len); + depth = tfm_string_depth (font->tfm_id, s, len); + height = sqxfw(font->size, height); + depth = sqxfw(font->size, depth); + + pdf_dev_set_rect (&rect, dvi_state.h, -dvi_state.v, + width, height, depth); + pdf_doc_expand_box(&rect); + } + } else { /* Subfonts */ + dvi_push(); + for (i = 0; i < len; i++) { + dvi_set(s[i]); + } + dvi_pop(); + } + break; + case VIRTUAL: + dvi_push(); + for (i = 0; i < len; i++) { + dvi_set(s[i]); + } + dvi_pop(); + } + if (!dvi_state.d) { + dvi_state.h += width; + } else { + dvi_state.v += width; + } +} + +/* _FIXME_ + * CMap decoder wants multibyte strings as input but + * how DVI char codes are converted to multibyte sting + * is not clear. + */ +void +dvi_set (SIGNED_QUAD ch) +{ + struct loaded_font *font; + spt_t width, height, depth; + unsigned char wbuf[2]; + + if (current_font < 0) { + ERROR("No font selected!"); + } + /* The division by dvi2pts seems strange since we actually know the + * "dvi" size of the fonts contained in the DVI file. In other + * words, we converted from DVI units to pts and back again! + * The problem comes from fonts defined in VF files where we don't know + * the DVI size. It's keeping me sane to keep *point sizes* of *all* + * fonts in the dev.c file and convert them back if necessary. + */ + font = &loaded_fonts[current_font]; + + width = tfm_get_fw_width(font->tfm_id, ch); + width = sqxfw(font->size, width); + + switch (font->type) { + case PHYSICAL: + if (ch > 255) { /* _FIXME_ */ + wbuf[0] = (ch >> 8) & 0xff; + wbuf[1] = ch & 0xff; + pdf_dev_set_string(dvi_state.h, -dvi_state.v, wbuf, 2, + width, font->font_id, 2); + } else if (font->subfont_id >= 0) { + unsigned short uch = lookup_sfd_record(font->subfont_id, (unsigned char) ch); + wbuf[0] = (uch >> 8) & 0xff; + wbuf[1] = uch & 0xff; + pdf_dev_set_string(dvi_state.h, -dvi_state.v, wbuf, 2, + width, font->font_id, 2); + } else { + wbuf[0] = (unsigned char) ch; + pdf_dev_set_string(dvi_state.h, -dvi_state.v, wbuf, 1, + width, font->font_id, 1); + } + if (compute_boxes && link_annot && + marked_depth >= tagged_depth) { + pdf_rect rect; + + height = tfm_get_fw_height(font->tfm_id, ch); + depth = tfm_get_fw_depth (font->tfm_id, ch); + height = sqxfw(font->size, height); + depth = sqxfw(font->size, depth); + + pdf_dev_set_rect (&rect, dvi_state.h, -dvi_state.v, + width, height, depth); + pdf_doc_expand_box(&rect); + } + break; + case VIRTUAL: +#if 0 + /* See comment in locate_font() */ + if (font->subfont_id >= 0) + ch = lookup_sfd_record(font->subfont_id, (unsigned char) ch); +#endif /* 0 */ + vf_set_char(ch, font->font_id); /* push/pop invoked */ + break; + } + + if (!dvi_state.d) { + dvi_state.h += width; + } else { + dvi_state.v += width; + } +} + +void +dvi_put (SIGNED_QUAD ch) +{ + struct loaded_font *font; + spt_t width, height, depth; + unsigned char wbuf[2]; + + if (current_font < 0) { + ERROR("No font selected!"); + } + + font = &loaded_fonts[current_font]; + + switch (font->type) { + case PHYSICAL: + width = tfm_get_fw_width(font->tfm_id, ch); + width = sqxfw(font->size, width); + + /* Treat a single character as a one byte string and use the + * string routine. + */ + if (ch > 255) { /* _FIXME_ */ + wbuf[0] = (ch >> 8) & 0xff; + wbuf[1] = ch & 0xff; + pdf_dev_set_string(dvi_state.h, -dvi_state.v, wbuf, 2, + width, font->font_id, 2); + } else if (font->subfont_id >= 0) { + unsigned int uch; + + uch = lookup_sfd_record(font->subfont_id, (unsigned char) ch); + wbuf[0] = (uch >> 8) & 0xff; + wbuf[1] = uch & 0xff; + pdf_dev_set_string(dvi_state.h, -dvi_state.v, wbuf, 2, + width, font->font_id, 2); + } else { + wbuf[0] = (unsigned char) ch; + pdf_dev_set_string(dvi_state.h, -dvi_state.v, wbuf, 1, + width, font->font_id, 1); + } + if (compute_boxes && link_annot && + marked_depth >= tagged_depth) { + pdf_rect rect; + + height = tfm_get_fw_height(font->tfm_id, ch); + depth = tfm_get_fw_depth (font->tfm_id, ch); + height = sqxfw(font->size, height); + depth = sqxfw(font->size, depth); + + pdf_dev_set_rect (&rect, dvi_state.h, -dvi_state.v, + width, height, depth); + pdf_doc_expand_box(&rect); + } + break; + case VIRTUAL: +#if 0 + /* See comment in locate_font() */ + if (font->subfont_id >= 0) + ch = lookup_sfd_record(font->subfont_id, (unsigned char) ch); +#endif /* 0 */ + vf_set_char(ch, font->font_id); + break; + } + + return; +} + + +void +dvi_rule (SIGNED_QUAD width, SIGNED_QUAD height) +{ + do_moveto(dvi_state.h, dvi_state.v); + + if (!dvi_state.d) { + pdf_dev_set_rule(dvi_state.h, -dvi_state.v, width, height); + } else { /* right ? */ + pdf_dev_set_rule(dvi_state.h, -dvi_state.v - width, height, width); + } +} + +void +dvi_dir (UNSIGNED_BYTE dir) +{ + dvi_state.d = dir ? 1 : 0; + pdf_dev_set_dirmode(dvi_state.d); /* 0: horizontal, 1: vertical */ +} + +static void +do_set1 (void) +{ + dvi_set(get_buffered_unsigned_byte()); +} + +static void +do_set2 (void) +{ + dvi_set(get_buffered_unsigned_pair()); +} + +static void +do_setrule (void) +{ + SIGNED_QUAD width, height; + + height = get_buffered_signed_quad(); + width = get_buffered_signed_quad(); + if (width > 0 && height > 0) { + dvi_rule(width, height); + } + dvi_right(width); +} + +static void +do_putrule (void) +{ + SIGNED_QUAD width, height; + + height = get_buffered_signed_quad (); + width = get_buffered_signed_quad (); + if (width > 0 && height > 0) { + dvi_rule(width, height); + } +} + +static void +do_put1 (void) +{ + dvi_put(get_buffered_unsigned_byte()); +} + +static void +do_put2 (void) +{ + dvi_put(get_buffered_unsigned_pair()); +} + +void +dvi_push (void) +{ + if (dvi_stack_depth >= DVI_STACK_DEPTH_MAX) + ERROR("DVI stack exceeded limit."); + + dvi_stack[dvi_stack_depth++] = dvi_state; +} + +void +dvi_pop (void) +{ + if (dvi_stack_depth <= 0) + ERROR ("Tried to pop an empty stack."); + + dvi_state = dvi_stack[--dvi_stack_depth]; + do_moveto(dvi_state.h, dvi_state.v); + pdf_dev_set_dirmode(dvi_state.d); /* 0: horizontal, 1: vertical */ +} + + +static void +do_right1 (void) +{ + dvi_right(get_buffered_signed_byte()); +} + +static void +do_right2 (void) +{ + dvi_right(get_buffered_signed_pair()); +} + +static void +do_right3 (void) +{ + dvi_right(get_buffered_signed_triple()); +} + +static void +do_right4 (void) +{ + dvi_right(get_buffered_signed_quad()); +} + +void +dvi_w (SIGNED_QUAD ch) +{ + dvi_state.w = ch; + dvi_right(ch); +} + +void +dvi_w0 (void) +{ + dvi_right(dvi_state.w); +} + +static void +do_w1 (void) +{ + dvi_w(get_buffered_signed_byte()); +} + +static void +do_w2 (void) +{ + dvi_w(get_buffered_signed_pair()); +} + +static void +do_w3 (void) +{ + dvi_w(get_buffered_signed_triple()); +} + +static void +do_w4 (void) +{ + dvi_w(get_buffered_signed_quad()); +} + +void +dvi_x (SIGNED_QUAD ch) +{ + dvi_state.x = ch; + dvi_right(ch); +} + +void +dvi_x0 (void) +{ + dvi_right(dvi_state.x); +} + +static void +do_x1 (void) +{ + dvi_x(get_buffered_signed_byte()); +} + +static void +do_x2 (void) +{ + dvi_x(get_buffered_signed_pair()); +} + +static void +do_x3 (void) +{ + dvi_x(get_buffered_signed_triple()); +} + +static void +do_x4 (void) +{ + dvi_x(get_buffered_signed_quad()); +} + +static void +do_down1 (void) +{ + dvi_down(get_buffered_signed_byte()); +} + +static void +do_down2 (void) +{ + dvi_down(get_buffered_signed_pair()); +} + +static void +do_down3 (void) +{ + dvi_down(get_buffered_signed_triple()); +} + +static void +do_down4 (void) +{ + dvi_down(get_buffered_signed_quad()); +} + +void +dvi_y (SIGNED_QUAD ch) +{ + dvi_state.y = ch; + dvi_down(ch); +} + +void +dvi_y0 (void) +{ + dvi_down(dvi_state.y); +} + +static +void do_y1 (void) +{ + dvi_y(get_buffered_signed_byte()); +} + +static +void do_y2 (void) +{ + dvi_y(get_buffered_signed_pair()); +} + +static +void do_y3 (void) +{ + dvi_y(get_buffered_signed_triple()); +} + +static +void do_y4 (void) +{ + dvi_y(get_buffered_signed_quad()); +} + +void +dvi_z (SIGNED_QUAD ch) +{ + dvi_state.z = ch; + dvi_down(ch); +} + +void +dvi_z0 (void) +{ + dvi_down(dvi_state.z); +} + +static void +do_z1 (void) +{ + dvi_z(get_buffered_signed_byte()); +} + +static void +do_z2 (void) +{ + dvi_z(get_buffered_signed_pair()); +} + +static void +do_z3 (void) +{ + dvi_z(get_buffered_signed_triple()); +} + +static void +do_z4 (void) +{ + dvi_z(get_buffered_signed_quad()); +} + +static void +skip_fntdef (void) +{ + int area_len, name_len, i; + + get_signed_quad(dvi_file); + get_signed_quad(dvi_file); + get_signed_quad(dvi_file); + area_len = get_unsigned_byte(dvi_file); + name_len = get_unsigned_byte(dvi_file); + for (i = 0; i < area_len + name_len; i++) { + get_unsigned_byte(dvi_file); + } +} + +static void +do_fntdef1 (int scanning) +{ + if (scanning) { + /* when pre-scanning the page, we process fntdef and don't buffer it */ + SIGNED_QUAD tex_id = get_unsigned_byte(dvi_file); + if (linear) { + read_font_record(tex_id); + } + else { + skip_fntdef(); + } + --dvi_page_buf_index; /* remove the fntdef opcode from the buffer */ + } +} + +static void +do_fntdef2 (int scanning) +{ + if (scanning) { + SIGNED_QUAD tex_id = get_unsigned_pair(dvi_file); + if (linear) { + read_font_record(tex_id); + } + else { + skip_fntdef(); + } + --dvi_page_buf_index; + } +} + +static void +do_fntdef3 (int scanning) +{ + if (scanning) { + SIGNED_QUAD tex_id = get_unsigned_triple(dvi_file); + if (linear) { + read_font_record(tex_id); + } + else { + skip_fntdef(); + } + --dvi_page_buf_index; + } +} + +static void +do_fntdef4 (int scanning) +{ + if (scanning) { + SIGNED_QUAD tex_id = get_signed_quad(dvi_file); + if (linear) { + read_font_record(tex_id); + } + else { + skip_fntdef(); + } + --dvi_page_buf_index; + } +} + +void +dvi_set_font (int font_id) +{ + current_font = font_id; +} + +static void +do_fnt (SIGNED_QUAD tex_id) +{ + int i; + + for (i = 0; i < num_def_fonts; i++) { + if (def_fonts[i].tex_id == tex_id) + break; + } + + if (i == num_def_fonts) { + ERROR("Tried to select a font that hasn't been defined: id=%ld", tex_id); + } + + if (!def_fonts[i].used) { + int font_id; + +#ifdef XETEX + if (def_fonts[i].fam_name) { + font_id = dvi_locate_native_font(def_fonts[i].font_name, + def_fonts[i].fam_name, + def_fonts[i].sty_name, + def_fonts[i].point_size, + def_fonts[i].layout_dir); + } else { + font_id = dvi_locate_font(def_fonts[i].font_name, + def_fonts[i].point_size); + } + loaded_fonts[font_id].rgba_color = def_fonts[i].rgba_color; +#else + font_id = dvi_locate_font(def_fonts[i].font_name, def_fonts[i].point_size); +#endif + loaded_fonts[font_id].source = DVI; + def_fonts[i].used = 1; + def_fonts[i].font_id = font_id; + } + current_font = def_fonts[i].font_id; +} + +static void +do_fnt1 (void) +{ + SIGNED_QUAD tex_id; + + tex_id = get_buffered_unsigned_byte(); + do_fnt(tex_id); +} + +static void +do_fnt2 (void) +{ + SIGNED_QUAD tex_id; + + tex_id = get_buffered_unsigned_pair(); + do_fnt(tex_id); +} + +static void +do_fnt3 (void) +{ + SIGNED_QUAD tex_id; + + tex_id = get_buffered_unsigned_triple(); + do_fnt(tex_id); +} + +static void +do_fnt4 (void) +{ + SIGNED_QUAD tex_id; + + tex_id = get_buffered_signed_quad(); + do_fnt(tex_id); +} + +static void +do_xxx (UNSIGNED_QUAD size) +{ + UNSIGNED_QUAD i; + Ubyte *buffer; /* FIXME - no need for new buffer here */ + + buffer = NEW(size+1, Ubyte); + for (i = 0; i < size; i++) { + buffer[i] = get_buffered_unsigned_byte(); + } + dvi_do_special(buffer, size); + RELEASE(buffer); +} + +static void +do_xxx1 (void) +{ + SIGNED_QUAD size; + + size = get_buffered_unsigned_byte(); + do_xxx(size); +} + +static void +do_xxx2 (void) +{ + SIGNED_QUAD size; + + size = get_buffered_unsigned_pair(); + do_xxx(size); +} + +static void +do_xxx3 (void) +{ + SIGNED_QUAD size; + + size = get_buffered_unsigned_triple(); + do_xxx(size); +} + +static void +do_xxx4 (void) +{ + SIGNED_QUAD size; + + size = get_buffered_unsigned_quad(); + do_xxx(size); +} + +static void +do_bop (void) +{ + int i; + + if (processing_page) + ERROR("Got a bop in the middle of a page!"); + + /* For now, ignore TeX's count registers */ + for (i = 0; i < 10; i++) { + get_buffered_signed_quad(); + } + /* Ignore previous page pointer since we have already + * saved this information + */ + get_buffered_signed_quad(); + clear_state(); + processing_page = 1; + + pdf_doc_begin_page(dvi_tell_mag(), dev_origin_x, dev_origin_y); + spc_exec_at_begin_page(); + + return; +} + +static void +do_eop (void) +{ + processing_page = 0; + + if (dvi_stack_depth != 0) { + ERROR("DVI stack depth is not zero at end of page"); + } + spc_exec_at_end_page(); + + pdf_doc_end_page(); + + return; +} + +static void +do_dir (void) +{ + dvi_state.d = get_buffered_unsigned_byte() ? 1 : 0; + pdf_dev_set_dirmode(dvi_state.d); /* 0: horizontal, 1: vertical */ +} + +#ifdef XETEX +static void +do_native_font_def (int scanning) +{ + if (scanning) { + SIGNED_QUAD tex_id = get_signed_quad(dvi_file); + if (linear) { + read_native_font_record(tex_id); + } + else { + UNSIGNED_PAIR flags; + int name_length, nvars, i; + + get_unsigned_quad(dvi_file); /* skip point size */ + flags = get_unsigned_pair(dvi_file); + if ((flags & XDV_FLAG_FONTTYPE_ICU) || (flags & XDV_FLAG_FONTTYPE_ATSUI)) { + name_length = (int) get_unsigned_byte(dvi_file); + name_length += (int) get_unsigned_byte(dvi_file); + name_length += (int) get_unsigned_byte(dvi_file); + for (i = 0; i < name_length; ++i) + get_unsigned_byte(dvi_file); + if (flags & XDV_FLAG_COLORED) { + get_unsigned_quad(dvi_file); + } + if (flags & XDV_FLAG_VARIATIONS) { + nvars = get_unsigned_pair(dvi_file); + for (i = 0; i < nvars * 2; ++i) + get_unsigned_quad(dvi_file); /* skip axis and value for each variation setting */ + } + } else { + ERROR(invalid_signature); + } + } + --dvi_page_buf_index; /* don't buffer the opcode */ + } +} + +static void +do_glyph_array (int yLocsPresent) +{ + struct loaded_font *font; + spt_t width, height, depth, *xloc, *yloc, glyph_width = 0; + unsigned char wbuf[2]; + unsigned int i, glyph_id, slen = 0; + + if (current_font < 0) + ERROR("No font selected!"); + + font = &loaded_fonts[current_font]; + + width = get_buffered_signed_quad(); + + slen = (unsigned int) get_buffered_unsigned_pair(); + xloc = NEW(slen, spt_t); + yloc = NEW(slen, spt_t); + for (i = 0; i < slen; i++) { + xloc[i] = get_buffered_signed_quad(); + yloc[i] = yLocsPresent ? get_buffered_signed_quad() : 0; + } + + if (font->rgba_color != 0xffffffff) { + pdf_color color; + pdf_color_push(); + pdf_color_rgbcolor(&color, + (double)((unsigned char)(font->rgba_color >> 24) & 0xff) / 255, + (double)((unsigned char)(font->rgba_color >> 16) & 0xff) / 255, + (double)((unsigned char)(font->rgba_color >> 8) & 0xff) / 255); + pdf_dev_setcolor(&color, 0); /* stroke color */ + pdf_dev_setcolor(&color, 1); /* fill color */ + } + for (i = 0; i < slen; i++) { + glyph_id = get_buffered_unsigned_pair(); /* freetype glyph index */ + if (glyph_id < font->ft_face->num_glyphs) { + if (font->glyph_widths[glyph_id] == 0xffff) { + if (FT_IS_SFNT(font->ft_face)) { + /* CFF driver of freetype does not set vertical metrics correctly, + so we'll read the metrics directly */ + TT_HoriHeader *dir_hea; /* vhea structure is identical */ + dir_hea = FT_Get_Sfnt_Table(font->ft_face, (font->layout_dir == 0) + ? ft_sfnt_hhea + : ft_sfnt_vhea); + if (dir_hea) { + FT_UShort *metrics = (FT_UShort*) dir_hea->long_metrics; + /* each metrics record is two shorts, advance and sidebearing */ + if (glyph_id < dir_hea->number_Of_HMetrics) + font->glyph_widths[glyph_id] = metrics[glyph_id * 2]; + else + font->glyph_widths[glyph_id] = metrics[2 * (dir_hea->number_Of_HMetrics - 1)]; + } else + font->glyph_widths[glyph_id] = 0; + } + else { + FT_Load_Glyph(font->ft_face, glyph_id, FT_LOAD_NO_SCALE); + font->glyph_widths[glyph_id] = (font->layout_dir == 0) + ? font->ft_face->glyph->metrics.horiAdvance + : font->ft_face->glyph->metrics.vertAdvance; + } + } + glyph_width = (double)font->size * (double)font->glyph_widths[glyph_id] / (double)font->ft_face->units_per_EM; + if (compute_boxes && link_annot && marked_depth >= tagged_depth) { + pdf_rect rect; + height = (double)font->size * (double)font->ft_face->ascender / (double)font->ft_face->units_per_EM; + depth = (double)font->size * -(double)font->ft_face->descender / (double)font->ft_face->units_per_EM; + pdf_dev_set_rect(&rect, dvi_state.h + xloc[i], -dvi_state.v - yloc[i], glyph_width, height, depth); + pdf_doc_expand_box(&rect); + } + } + wbuf[0] = glyph_id >> 8; + wbuf[1] = glyph_id & 0xff; + pdf_dev_set_string(dvi_state.h + xloc[i], -dvi_state.v - yloc[i], wbuf, 2, + glyph_width, font->font_id, -1); + } + if (font->rgba_color != 0xffffffff) { + pdf_color_pop(); + } + RELEASE(xloc); + RELEASE(yloc); + + if (!dvi_state.d) { + dvi_state.h += width; + } else { + dvi_state.v += width; + } + + return; +} + +void +do_pic_file() + /* parameters for XDV_PIC_FILE opcode: pdf_box[1] t[4][6] p[2] len[2] path[l] */ +{ + UNSIGNED_BYTE pdf_box; + int page_no; + UNSIGNED_PAIR len; + char *path; + int i; + int xobj_id; + transform_info ti; + + transform_info_clear(&ti); + + pdf_box = get_buffered_unsigned_byte(); + + ti.matrix.a = get_buffered_signed_quad() / 65536.0; /* convert 16.16 Fixed to floating-point */ + ti.matrix.b = get_buffered_signed_quad() / 65536.0; + ti.matrix.c = get_buffered_signed_quad() / 65536.0; + ti.matrix.d = get_buffered_signed_quad() / 65536.0; + ti.matrix.e = get_buffered_signed_quad() / 65536.0; + ti.matrix.f = get_buffered_signed_quad() / 65536.0; + + page_no = get_buffered_signed_pair(); + len = get_buffered_unsigned_pair(); + path = NEW(len + 1, char); + for (i = 0; i < len; ++i) + path[i] = get_buffered_unsigned_byte(); + path[len] = 0; + + /* + now we need to place page /page_no/ of the graphic file from /path/, applying /transform/ + if pdf_box=0 the file is a raster image (.jpg, .png, .tif, etc; need to determine format + by examining the file) + else it is a PDF document, pdf_box tells which PDF box (media, trim, crop, etc) to use + page_no is currently only used with PDF documents, though in theory could be used + with multi-page TIFFs, etc + transform is a 3x2 affine transform matrix expressed in fixed-point values + */ + + if (page_no > 0) + --page_no; /* convert 1-based page number to 0-based index */ + xobj_id = pdf_ximage_findresource(path, page_no, pdf_box); + if (xobj_id >= 0) { + /* FIXME: this seems to work for 72dpi JPEGs, but isn't right for others; + need to take the actual image resolution into account in pdf_dev_put_image, + not just assume the "original" size is 100dpi + */ + pdf_dev_put_image(xobj_id, &ti, dvi_dev_xpos(), dvi_dev_ypos()); + } + + RELEASE(path); +} +#endif + +/* Note to be absolutely certain that the string escape buffer doesn't + * hit its limit, FORMAT_BUF_SIZE should set to 4 times S_BUFFER_SIZE + * in pdfobj.c. Is there any application that genenerate words with + * 1k characters? + */ + +#define SBUF_SIZE 1024 + +/* Most of the work of actually interpreting + * the dvi file is here. + */ +void +dvi_do_page (long n, + double paper_width, double paper_height, + double hmargin, double vmargin) +{ + unsigned char opcode; + unsigned char sbuf[SBUF_SIZE]; + unsigned int slen = 0; + + /* before this is called, we have scanned the page for papersize specials + and the complete DVI data is now in dvi_page_buffer */ + dvi_page_buf_index = 0; + + /* DVI coordinate */ + dev_origin_x = hmargin; + dev_origin_y = paper_height - vmargin; + + dvi_stack_depth = 0; + for (;;) { + /* The most likely opcodes are individual setchars. + * These are buffered for speed. */ + slen = 0; + while ((opcode = get_buffered_unsigned_byte()) <= SET_CHAR_127 && + slen < SBUF_SIZE) { + sbuf[slen++] = opcode; + } + if (slen > 0) { + do_string(sbuf, slen); + } + if (slen == SBUF_SIZE) + continue; + + /* If we are here, we have an opcode that is something + * other than SET_CHAR. + */ + if (opcode >= FNT_NUM_0 && opcode <= FNT_NUM_63) { + do_fnt(opcode - FNT_NUM_0); + continue; + } + + switch (opcode) { + case SET1: do_set1(); break; + case SET2: do_set2(); break; + case SET3: case SET4: + ERROR("Multibyte (>16 bits) character not supported!"); + break; + + case SET_RULE: + do_setrule(); + break; + + case PUT1: do_put1(); break; + case PUT2: do_put2(); break; + case PUT3: case PUT4: + ERROR ("Multibyte character (>16 bits) not supported!"); + break; + + case PUT_RULE: + do_putrule(); + break; + + case NOP: + break; + + case BOP: + do_bop(); + MESG("[%d", n+1); + break; + case EOP: + do_eop(); + MESG("]"); + return; + break; + + case PUSH: + dvi_push(); + /* The following line needs to go here instead of in + * dvi_push() since logical structure of document is + * oblivous to virtual fonts. For example the last line on a + * page could be at stack level 3 and the page footer should + * be at stack level 3. However, if the page footer contains + * virtual fonts (or other nested constructions), it could + * fool the link breaker into thinking it was a continuation + * of the link */ + dvi_mark_depth(); + break; + case POP: + dvi_pop(); + /* Above explanation holds for following line too */ + dvi_mark_depth(); + break; + + case RIGHT1: do_right1(); break; + case RIGHT2: do_right2(); break; + case RIGHT3: do_right3(); break; + case RIGHT4: do_right4(); break; + + case W0: dvi_w0(); break; + case W1: do_w1 (); break; + case W2: do_w2 (); break; + case W3: do_w3 (); break; + case W4: do_w4 (); break; + + case X0: dvi_x0(); break; + case X1: do_x1 (); break; + case X2: do_x2 (); break; + case X3: do_x3 (); break; + case X4: do_x4 (); break; + + case DOWN1: do_down1(); break; + case DOWN2: do_down2(); break; + case DOWN3: do_down3(); break; + case DOWN4: do_down4(); break; + + case Y0: dvi_y0(); break; + case Y1: do_y1 (); break; + case Y2: do_y2 (); break; + case Y3: do_y3 (); break; + case Y4: do_y4 (); break; + + case Z0: dvi_z0(); break; + case Z1: do_z1 (); break; + case Z2: do_z2 (); break; + case Z3: do_z3 (); break; + case Z4: do_z4 (); break; + + case FNT1: do_fnt1(); break; + case FNT2: do_fnt2(); break; + case FNT3: do_fnt3(); break; + case FNT4: do_fnt4(); break; + + /* Specials */ + case XXX1: do_xxx1(); break; + case XXX2: do_xxx2(); break; + case XXX3: do_xxx3(); break; + case XXX4: do_xxx4(); break; + + /* Font definition - skipped except in linear mode. */ + /* actually, these should not occur! */ + case FNT_DEF1: do_fntdef1(0); break; + case FNT_DEF2: do_fntdef2(0); break; + case FNT_DEF3: do_fntdef3(0); break; + case FNT_DEF4: do_fntdef4(0); break; + + /* pTeX extension */ + case DIR: + do_dir(); + break; + +#ifdef XETEX + /* XeTeX extension */ + case XDV_GLYPH_STRING: + do_glyph_array(0); + break; + case XDV_GLYPH_ARRAY: + do_glyph_array(1); + break; + case XDV_NATIVE_FONT_DEF: + do_native_font_def(0); /* should not occur - processed during pre-scanning */ + break; + case XDV_PIC_FILE: + do_pic_file(); + break; +#endif + case POST: + if (linear && !processing_page) { + /* for linear processing, this means there are no more pages */ + num_pages = 0; /* force loop to terminate */ + return; + } + /* else fall through to error case */ + case PRE: case POST_POST: + ERROR("Unexpected preamble or postamble in dvi file"); + break; + default: + ERROR("Unexpected opcode or DVI file ended prematurely"); + } + } +} + +double +dvi_init (char *dvi_filename, double mag) +{ + long post_location; + + if (dvi_filename == NULL) { /* no filename: reading from stdin, probably a pipe */ +#ifdef WIN32 + setmode(fileno(stdin), _O_BINARY); +#endif + dvi_file = stdin; + linear = 1; + + get_preamble_dvi_info(); + do_scales(mag); + } + else { + dvi_file = MFOPEN(dvi_filename, FOPEN_RBIN_MODE); + if (!dvi_file) { + if ((strlen(dvi_filename) > 4) + && ( strcmp(dvi_filename + strlen(dvi_filename) - 4, ".dvi") != 0 +#ifdef XETEX + || strcmp(dvi_filename + strlen(dvi_filename) - 4, ".xdv") != 0 +#endif + )) { +#ifdef XETEX + strcat(dvi_filename, ".xdv"); + dvi_file = MFOPEN(dvi_filename, FOPEN_RBIN_MODE); + if (!dvi_file) { + dvi_filename[strlen(dvi_filename) - 4] = '\0'; +#endif + strcat(dvi_filename, ".dvi"); + dvi_file = MFOPEN(dvi_filename, FOPEN_RBIN_MODE); +#ifdef XETEX + } +#endif + } + } + if (!dvi_file) { +#ifdef XETEX + ERROR("Could not open specified DVI (or XDV) file: %s", dvi_filename); +#else + ERROR("Could not open specified DVI file: %s", dvi_filename); +#endif + return 0.0; + } + + /* DVI files are most easily read backwards by + * searching for post_post and then post opcode. + */ + post_location = find_post(); + get_dvi_info(post_location); + do_scales(mag); + get_page_info(post_location); + get_comment(); + get_dvi_fonts(post_location); + } + + clear_state(); + + dvi_page_buf_size = DVI_PAGE_BUF_CHUNK; + dvi_page_buffer = NEW(dvi_page_buf_size, unsigned char); + + return dvi2pts; +} + +void +dvi_close (void) +{ + int i; + + if (linear) { + /* probably reading a pipe from xetex; consume any remaining data */ + while (fgetc(dvi_file) != EOF) + ; + } + + /* We add comment in dvi_close instead of dvi_init so user + * has a change to overwrite it. The docinfo dictionary is + * treated as a write-once record. + */ + + /* Do some house cleaning */ + MFCLOSE(dvi_file); + dvi_file = NULL; + + if (def_fonts) { + for (i = 0; i < num_def_fonts; i++) { + if (def_fonts[i].font_name) + RELEASE(def_fonts[i].font_name); + def_fonts[i].font_name = NULL; +#ifdef XETEX + if (def_fonts[i].fam_name) + RELEASE(def_fonts[i].fam_name); + def_fonts[i].fam_name = NULL; + if (def_fonts[i].sty_name) + RELEASE(def_fonts[i].sty_name); + def_fonts[i].sty_name = NULL; +#endif + } + RELEASE(def_fonts); + } + def_fonts = NULL; + + if (page_loc) + RELEASE(page_loc); + page_loc = NULL; + num_pages = 0; + + if (loaded_fonts) + RELEASE(loaded_fonts); + loaded_fonts = NULL; + num_loaded_fonts = 0; + + vf_close_all_fonts(); + tfm_close_all (); + + if (dvi_page_buffer) { + RELEASE(dvi_page_buffer); + dvi_page_buffer = NULL; + dvi_page_buf_size = 0; + } +} + +/* The following are need to implement virtual fonts + According to documentation, the vf "subroutine" + must have state pushed and must have + w,v,y, and z set to zero. The current font + is determined by the virtual font header, which + may be undefined */ + +static int saved_dvi_font[VF_NESTING_MAX]; +static int num_saved_fonts = 0; + +void +dvi_vf_init (int dev_font_id) +{ + dvi_push(); + + dvi_state.w = 0; dvi_state.x = 0; + dvi_state.y = 0; dvi_state.z = 0; + + /* do not reset dvi_state.d. */ + if (num_saved_fonts < VF_NESTING_MAX) { + saved_dvi_font[num_saved_fonts++] = current_font; + } else + ERROR("Virtual fonts nested too deeply!"); + current_font = dev_font_id; +} + +/* After VF subroutine is finished, we simply pop the DVI stack */ +void +dvi_vf_finish (void) +{ + dvi_pop(); + if (num_saved_fonts > 0) + current_font = saved_dvi_font[--num_saved_fonts]; + else { + ERROR("Tried to pop an empty font stack"); + } +} + + +/* Scan various specials */ +#include "dpxutil.h" + +/* This need to allow 'true' prefix for unit and + * length value must be divided by current magnification. + */ +static int +read_length (double *vp, double mag, char **pp, char *endptr) +{ + char *q, *p = *pp; + double v, u = 1.0; + const char *_ukeys[] = { +#define K_UNIT__PT 0 +#define K_UNIT__IN 1 +#define K_UNIT__CM 2 +#define K_UNIT__MM 3 +#define K_UNIT__BP 4 + "pt", "in", "cm", "mm", "bp", + NULL + }; + int k, error = 0; + + q = parse_float_decimal(&p, endptr); + if (!q) { + *vp = 0.0; *pp = p; + return -1; + } + + v = atof(q); + RELEASE(q); + + q = parse_c_ident(&p, endptr); + if (q) { + if (strlen(q) > strlen("true") && + !memcmp(q, "true", strlen("true"))) { + u /= mag != 0.0 ? mag : 1.0; /* inverse magnify */ + q += strlen("true"); + } + for (k = 0; _ukeys[k] && strcmp(_ukeys[k], q); k++); + switch (k) { + case K_UNIT__PT: u *= 72.0 / 72.27; break; + case K_UNIT__IN: u *= 72.0; break; + case K_UNIT__CM: u *= 72.0 / 2.54 ; break; + case K_UNIT__MM: u *= 72.0 / 25.4 ; break; + case K_UNIT__BP: u *= 1.0 ; break; + default: + WARN("Unknown unit of measure: %s", q); + error = -1; + break; + } + RELEASE(q); + } + + *vp = v * u; *pp = p; + return error; +} + + +static int +scan_special (double *wd, double *ht, char *lm, const char *buf, UNSIGNED_QUAD size) +{ + char *q, *p = (char *) buf; + char *endptr; + int ns_pdf = 0, error = 0; + + endptr = p + size; + + skip_white(&p, endptr); + + q = parse_c_ident(&p, endptr); + if (q && !strcmp(q, "pdf")) { + skip_white(&p, endptr); + if (p < endptr && *p == ':') { + p++; + skip_white(&p, endptr); + RELEASE(q); + q = parse_c_ident(&p, endptr); ns_pdf = 1; + } + } + skip_white(&p, endptr); + + if (q) { + if (!strcmp(q, "landscape")) { + *lm = 1; + } else if (ns_pdf && !strcmp(q, "pagesize")) { + while (!error && p < endptr) { + char *kp = parse_c_ident(&p, endptr); + if (!kp) + break; + else { + skip_white(&p, endptr); + if (!strcmp(kp, "width")) { + error = read_length(wd, dvi_tell_mag(), &p, endptr); + if (!error) + *wd *= dvi_tell_mag(); + } else if (!strcmp(kp, "height")) { + error = read_length(ht, dvi_tell_mag(), &p, endptr); + if (!error) + *ht *= dvi_tell_mag(); + } + RELEASE(kp); + } + skip_white(&p, endptr); + } + } else if (!strcmp(q, "papersize")) { + char qchr = 0; + if (*p == '=') p++; + skip_white(&p, endptr); + if (p < endptr && (*p == '\'' || *p == '\"')) { + qchr = *p; p++; + skip_white(&p, endptr); + } + error = read_length(wd, 1.0, &p, endptr); + if (!error) { + skip_white(&p, endptr); + if (p < endptr && *p == ',') { + p++; skip_white(&p, endptr); + } + error = read_length(ht, 1.0, &p, endptr); + skip_white(&p, endptr); + } + if (!error && qchr) { /* Check if properly quoted */ + if (p >= endptr || *p != qchr) + error = -1; + } + } + RELEASE(q); + } + + return error; +} + + +void +dvi_scan_paper_size (long page_no, + double *page_width, double *page_height, char *landscape) +{ + FILE *fp = dvi_file; + long offset; + unsigned char opcode; + static long buffered_page = -1; + + if (page_no == buffered_page) + return; /* because dvipdfmx wants to scan first page twice! */ + buffered_page = page_no; + + dvi_page_buf_index = 0; + + if (!linear) { + if (page_no >= num_pages) + ERROR("Invalid page number: %u", page_no); + offset = page_loc[page_no]; + + seek_absolute(fp, offset); + } + + while ((opcode = get_and_buffer_unsigned_byte(fp)) != EOP) { + if (opcode <= SET_CHAR_127 || + (opcode >= FNT_NUM_0 && opcode <= FNT_NUM_63)) + continue; + else if (opcode == XXX1 || opcode == XXX2 || + opcode == XXX3 || opcode == XXX4) { + UNSIGNED_QUAD size = 0UL; + switch (opcode) { + case XXX1: size = get_and_buffer_unsigned_byte(fp); break; + case XXX2: size = get_and_buffer_unsigned_pair(fp); break; + case XXX3: size = get_and_buffer_unsigned_triple(fp); break; + case XXX4: size = get_and_buffer_unsigned_quad(fp); break; + } + if (dvi_page_buf_index + size >= dvi_page_buf_size) { + dvi_page_buf_size = (dvi_page_buf_index + size + DVI_PAGE_BUF_CHUNK); + dvi_page_buffer = RENEW(dvi_page_buffer, dvi_page_buf_size, unsigned char); + } + if (fread(dvi_page_buffer + dvi_page_buf_index, sizeof(char), size, fp) != size) + ERROR("Reading DVI file failed!"); + scan_special(page_width, page_height, landscape, + (char*)dvi_page_buffer + dvi_page_buf_index, size); + dvi_page_buf_index += size; + continue; + } + + /* Skipping... */ + switch (opcode) { + case BOP: + get_and_buffer_bytes(fp, 44); + break; + case NOP: case PUSH: case POP: + case W0: case X0: case Y0: case Z0: + break; + case SET1: case PUT1: case RIGHT1: case DOWN1: + case W1: case X1: case Y1: case Z1: case FNT1: + get_and_buffer_unsigned_byte(fp); + break; + + case SET2: case PUT2: case RIGHT2: case DOWN2: + case W2: case X2: case Y2: case Z2: case FNT2: + get_and_buffer_signed_pair(fp); + break; + + case SET3: case PUT3: case RIGHT3: case DOWN3: + case W3: case X3: case Y3: case Z3: case FNT3: + get_and_buffer_signed_triple(fp); + break; + + case SET4: case PUT4: case RIGHT4: case DOWN4: + case W4: case X4: case Y4: case Z4: case FNT4: + get_and_buffer_signed_quad(fp); + break; + + case SET_RULE: case PUT_RULE: + get_and_buffer_bytes(fp, 8); + break; + + case FNT_DEF1: do_fntdef1(1); break; + case FNT_DEF2: do_fntdef2(1); break; + case FNT_DEF3: do_fntdef3(1); break; + case FNT_DEF4: do_fntdef4(1); break; + +#ifdef XETEX + case XDV_GLYPH_STRING: + { + UNSIGNED_PAIR count; + get_and_buffer_unsigned_quad(fp); /* width */ + count = get_and_buffer_unsigned_pair(fp); /* glyph count */ + get_and_buffer_bytes(fp, count * 6); /* 2 bytes ID + 4 bytes x-location per glyph */ + } + break; + case XDV_GLYPH_ARRAY: + { + UNSIGNED_PAIR count; + get_and_buffer_unsigned_quad(fp); /* width */ + count = get_and_buffer_unsigned_pair(fp); /* glyph count */ + get_and_buffer_bytes(fp, count * 10); /* 2 bytes ID + 8 bytes x,y-location per glyph */ + } + break; + case XDV_NATIVE_FONT_DEF: + do_native_font_def(1); + break; + case XDV_PIC_FILE: + /* params: flags[1] t[4][6] p[2] len[2] path[l] */ + { + UNSIGNED_PAIR len; + get_and_buffer_bytes(fp, 1 + 4 * 6 + 2); + len = get_and_buffer_unsigned_pair(fp); /* length of pathname */ + get_and_buffer_bytes(fp, len); + } + break; +#endif + case DIR: + get_and_buffer_unsigned_byte(fp); + break; + + case POST: + if (linear && dvi_page_buf_index == 1) { + /* this is actually an indication that we've reached the end of the input */ + return; + } + /* else fall through to error case */ + + default: /* case PRE: case POST_POST: and others */ + ERROR("Unexpected opcode %d at pos=0x%x", opcode, tell_position(fp)); + break; + } + } + + return; +} + diff --git a/Build/source/texk/xdvipdfmx/src/dvi.h b/Build/source/texk/xdvipdfmx/src/dvi.h new file mode 100644 index 00000000000..e47aebc130e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dvi.h @@ -0,0 +1,92 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dvi.h,v 1.12 2004/09/02 12:23:06 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _DVI_H_ +#define _DVI_H_ + +#include "error.h" +#include "numbers.h" +/* spt_t */ +#include "pdfdev.h" + +extern void dvi_set_verbose (void); + +/* returns scale (dvi2pts) */ +extern double dvi_init (char *dvi_filename, double mag); /* may append .dvi or .xdv to filename */ +extern void dvi_close (void); /* Closes data structures created by dvi_open */ + +extern double dvi_tell_mag (void); +extern double dvi_unit_size (void); +extern double dvi_dev_xpos (void); +extern double dvi_dev_ypos (void); +extern unsigned dvi_npages (void); +extern const char *dvi_comment (void); + +extern void dvi_vf_init (int dev_font_id); +extern void dvi_vf_finish (void); + +extern void dvi_set_font (int font_id); +extern void dvi_set (SIGNED_QUAD ch); +extern void dvi_rule (SIGNED_QUAD width, SIGNED_QUAD height); + +extern void dvi_right (SIGNED_QUAD x); +extern void dvi_put (SIGNED_QUAD ch); +extern void dvi_push (void); +extern void dvi_pop (void); +extern void dvi_w0 (void); +extern void dvi_w (SIGNED_QUAD ch); +extern void dvi_x0 (void); +extern void dvi_x (SIGNED_QUAD ch); +extern void dvi_down (SIGNED_QUAD y); +extern void dvi_y (SIGNED_QUAD ch); +extern void dvi_y0 (void); +extern void dvi_z (SIGNED_QUAD ch); +extern void dvi_z0 (void); +extern void dvi_dir (UNSIGNED_BYTE dir); + +extern void dvi_do_page (long page_no, + double paper_width, double paper_height, + double x_offset, double y_offset); +extern void dvi_scan_paper_size (long page_no, + double *width, double *height, + char *landscape); +extern int dvi_locate_font (const char *name, spt_t ptsize); + +/* link or nolink: + * See dvipdfm (not x) user's manual on pdf:link and pdf:nolink. + * This is workaround for preventing inclusion of pagenation artifact such as + * footnote and page number in link annotation. + */ +extern void dvi_link_annot (int flag); +/* The followings are for calculating bounding box of text for annotation. + * DVI uses push/pop to do line-feed-carriage-return. So line breaking is + * handled by inspecting current depth of DVI register stack. + */ +extern void dvi_tag_depth (void); +extern void dvi_untag_depth (void); +extern void dvi_compute_boxes (int flag); + +extern void dvi_do_special (const void *buffer, UNSIGNED_QUAD size); + +#endif /* _DVI_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/dvicodes.h b/Build/source/texk/xdvipdfmx/src/dvicodes.h new file mode 100644 index 00000000000..6987f5c21ac --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dvicodes.h @@ -0,0 +1,131 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dvicodes.h,v 1.4 2002/10/30 02:27:08 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _DVICODES_H_ +#define _DVICODES_H_ + +/* DVI op codes */ +#define SET_CHAR_0 0 +#define SET_CHAR_1 1 +/* etc. */ +#define SET_CHAR_127 127 +#define SET1 128 /* Typesets its single operand between 128 and 255 */ +#define SET2 129 /* Typesets its single two byte unsigned operand */ +#define SET3 130 /* Typesets its single three byte unsigned operand */ +#define SET4 131 /* Typesets its single four byte unsigned operand */ +#define SET_RULE 132 /* Sets a rule of height param1(four bytes) and width param2(four bytes) */ + /* These are *signed*. Nothing typeset for nonpositive values */ + /* However, negative value *do* change current point */ +#define PUT1 133 /* Like SET1, but point doesn't change */ +#define PUT2 134 /* Like SET2 */ +#define PUT3 135 /* Like SET3 */ +#define PUT4 136 /* Like SET4 */ +#define PUT_RULE 137 /* Like SET_RULE */ +#define NOP 138 +#define BOP 139 /* Followed by 10 four byte count registers (signed?). Last parameter points to */ + /* previous BOP (backward linked, first BOP has -1). BOP clears stack and resets current point. */ +#define EOP 140 +#define PUSH 141 /* Pushes h,v,w,x,y,z */ +#define POP 142 /* Opposite of push*/ +#define RIGHT1 143 /* Move right by one byte signed operand */ +#define RIGHT2 144 /* Move right by two byte signed operand */ +#define RIGHT3 145 /* Move right by three byte signed operand */ +#define RIGHT4 146 /* Move right by four byte signed operand */ +#define W0 147 /* Move right w */ +#define W1 148 /* w <- single byte signed operand. Move right by same amount */ +#define W2 149 /* Same as W1 with two byte signed operand */ +#define W3 150 /* Three byte signed operand */ +#define W4 151 /* Four byte signed operand */ +#define X0 152 /* Move right x */ +#define X1 153 /* Like W1 */ +#define X2 154 /* Like W2 */ +#define X3 155 /* Like W3 */ +#define X4 156 /* Like W4 */ +#define DOWN1 157 /* Move down by one byte signed operand */ +#define DOWN2 158 /* Two byte signed operand */ +#define DOWN3 159 /* Three byte signed operand */ +#define DOWN4 160 /* Four byte signed operand */ +#define Y0 161 /* Move down by y */ +#define Y1 162 /* Move down by one byte signed operand, which replaces Y */ +#define Y2 163 /* Two byte signed operand */ +#define Y3 164 /* Three byte signed operand */ +#define Y4 165 /* Four byte signed operand */ +#define Z0 166 /* Like Y0, but use z */ +#define Z1 167 /* Like Y1 */ +#define Z2 168 /* Like Y2 */ +#define Z3 169 /* Like Y3 */ +#define Z4 170 /* Like Y4 */ +#define FNT_NUM_0 171 /* Switch to font 0 */ +#define FNT_NUM_1 172 /* Switch to font 1 */ +/* etc. */ +#define FNT_NUM_63 234 /* Switch to font 63 */ +#define FNT1 235 /* Switch to font described by single byte unsigned operand */ +#define FNT2 236 /* Switch to font described by two byte unsigned operand */ +#define FNT3 237 /* Three byte font descriptor */ +#define FNT4 238 /* Four byte operator (Knuth says signed, but what would be the point? */ +#define XXX1 239 /* Special. Operand is one byte length. Special follows immediately */ +#define XXX2 240 /* Two byte operand */ +#define XXX3 241 /* Three byte operand */ +#define XXX4 242 /* Four byte operand (Knuth says TeX uses only XXX1 and XXX4 */ +#define FNT_DEF1 243 /* One byte font number, four byte checksum, four byte magnified size (DVI units), + four byte designed size, single byte directory length, single byte name length, + followed by complete name (area+name) */ +#define FNT_DEF2 244 /* Same for two byte font number */ +#define FNT_DEF3 245 /* Same for three byte font number */ +#define FNT_DEF4 246 /* Four byte font number (Knuth says signed) */ +#define PRE 247 /* Preamble: + one byte DVI version (should be 2) + four byte unsigned numerator + four byte unsigned denominator -- one DVI unit = den/num*10^(-7) m + four byte magnification (multiplied by 1000) + one byte unsigned comment length followed by comment. */ +#define DVI_ID 2 /* ID Byte for current DVI file */ +#define DVIV_ID 3 /* with Ascii pTeX VW mode extension */ +#ifdef XETEX +#define XDVI_ID 5 /* XeTeX ".xdv" output that uses XDV opcodes below */ +#endif +#define POST 248 /* Postamble- -- similar to preamble + four byte pointer to final bop + four byte numerator + four byte denominator + four byte mag + four byte maximum height (signed?) + four byte maximum width + two byte max stack depth required to process file + two byte number of pages */ +#define POST_POST 249 /* End of postamble + four byte pointer to POST command + Version byte (same as preamble) + Padded by four or more 223's to the end of the file. */ +#define PADDING 223 +#define DIR 255 /* Ascii pTeX DIR command */ + +#ifdef XETEX +#define XDV_PIC_FILE 251 /* include graphic or PDF file */ +#define XDV_NATIVE_FONT_DEF 252 /* fontdef for native platform font */ +#define XDV_GLYPH_ARRAY 253 /* string of glyph IDs with X and Y positions */ +#define XDV_GLYPH_STRING 254 /* string of glyph IDs with X-positions only */ +#endif + +#endif /* _DVICODES_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/dvipdfmx.c b/Build/source/texk/xdvipdfmx/src/dvipdfmx.c new file mode 100644 index 00000000000..8339a315c06 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/dvipdfmx.c @@ -0,0 +1,898 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/dvipdfmx.c,v 1.45 2005/07/30 11:44:18 hirata Exp $ + + This is xdvipdfmx, an extended version of... + + DVIPDFMx, an eXtended version of DVIPDFM by Mark A. Wicks. + + Copyright (c) 2006 SIL International (Jonathan Kew) and Jin-Hwan Cho + (xdvipdfmx extensions for XeTeX support) + + Copyright (C) 2002-2003 by Jin-Hwan Cho and Shunsaku Hirata, + the DVIPDFMx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include +#include + +#include "system.h" +#include "mem.h" + +#include "dpxconf.h" +#include "dpxfile.h" +#include "dpxutil.h" + +#include "dvi.h" + +#include "pdfdoc.h" +#include "pdfdev.h" +#include "pdfparse.h" +#include "pdfencrypt.h" + +#include "spc_tpic.h" +#include "specials.h" + +#include "mpost.h" + +#include "fontmap.h" +#include "pdffont.h" +#include "pdfximage.h" +#include "cid.h" + +extern void error_cleanup (void); + +static int verbose = 0; + +static int mp_mode = 0; + +static long opt_flags = 0; +#define OPT_TPIC_TRANSPARENT_FILL (1 << 1) +#define OPT_CIDFONT_FIXEDPITCH (1 << 2) +#define OPT_FONTMAP_FIRST_MATCH (1 << 3) + +static char ignore_colors = 0; +static double annot_grow = 0.0; +static int bookmark_open = 0; +static double mag = 1.0; +static int font_dpi = 600; +static int really_quiet = 0; +/* + * Precision is essentially limited to 0.01pt. + * See, dev_set_string() in pdfdev.c. + */ +static int pdfdecimaldigits = 2; + +/* Encryption */ +static int do_encryption = 0; +static unsigned key_bits = 40; +static unsigned permission = 0x003C; + +/* Page device */ +static double paper_width = 595.0; +static double paper_height = 842.0; +static double x_offset = 72.0; +static double y_offset = 72.0; +static char landscape_mode = 0; + +int always_embed = 0; /* always embed fonts, regardless of licensing flags */ + +char *dvi_filename = NULL, *pdf_filename = NULL; + +static void +set_default_pdf_filename(void) +{ + const char *dvi_base; + + dvi_base = xbasename(dvi_filename); + if (mp_mode && + strlen(dvi_base) > 4 && + !strncmp(".mps", dvi_base + strlen(dvi_base) - 4, 4)) { + pdf_filename = NEW(strlen(dvi_base)+1, char); + strncpy(pdf_filename, dvi_base, strlen(dvi_base) - 4); + pdf_filename[strlen(dvi_base)-4] = '\0'; + } else if (strlen(dvi_base) > 4 && +#ifdef XETEX + (!strncmp(".dvi", dvi_base+strlen(dvi_base)-4, 4) || + !strncmp(".xdv", dvi_base+strlen(dvi_base)-4, 4))) { +#else + !strncmp(".dvi", dvi_base+strlen(dvi_base)-4, 4)) { +#endif + pdf_filename = NEW(strlen(dvi_base)+1, char); + strncpy(pdf_filename, dvi_base, strlen(dvi_base)-4); + pdf_filename[strlen(dvi_base)-4] = '\0'; + } else { + pdf_filename = NEW(strlen(dvi_base)+5, char); + strcpy(pdf_filename, dvi_base); + } + + strcat (pdf_filename, ".pdf"); +} + +static void +usage (void) +{ + fprintf (stdout, "\nThis is %s-%s by Jonathan Kew and Jin-Hwan Cho,\n", PACKAGE, VERSION); + fprintf (stdout, "an extended version of DVIPDFMx, which in turn was\n"); + fprintf (stdout, "an extended version of dvipdfm-0.13.2c developed by Mark A. Wicks.\n"); + fprintf (stdout, "\nCopyright (c) 2006 SIL International and Jin-Hwan Cho.\n"); + fprintf (stdout, "\nThis is free software; you can redistribute it and/or modify\n"); + fprintf (stdout, "it under the terms of the GNU General Public License as published by\n"); + fprintf (stdout, "the Free Software Foundation; either version 2 of the License, or\n"); + fprintf (stdout, "(at your option) any later version.\n"); + fprintf (stdout, "\nUsage: xdvipdfmx [options] xdvfile\n"); + fprintf (stdout, "-c \t\tIgnore color specials (for B&W printing)\n"); + fprintf (stdout, "-d number\tSet PDF decimal digits (0-5) [2]\n"); + fprintf (stdout, "-l \t\tLandscape mode\n"); +#if 0 + /* Not supported */ + fprintf (stdout, "-e \t\tDisable partial font embedding [default is enabled]\n"); +#endif + fprintf (stdout, "-f filename\tSet font map file name [t1fonts.map]\n"); + fprintf (stdout, "-m number\tSet additional magnification\n"); + fprintf (stdout, "-o filename\tSet output file name [dvifile.pdf]\n"); + fprintf (stdout, "-p papersize\tSet papersize [a4]\n"); + fprintf (stdout, "-r resolution\tSet resolution (in DPI) for raster fonts [600]\n"); + fprintf (stdout, "-s pages\tSelect page ranges (-)\n"); + fprintf (stdout, "-t \t\tEmbed thumbnail images\n"); + fprintf (stdout, "-x dimension\tSet horizontal offset [1.0in]\n"); + fprintf (stdout, "-y dimension\tSet vertical offset [1.0in]\n"); + fprintf (stdout, "-z number \tSet zlib compression level (0-9) [9]\n"); + + fprintf (stdout, "-v \tBe verbose\n"); + fprintf (stdout, "-vv \tBe more verbose\n"); + fprintf (stdout, "-C number\tSpecify miscellaneous option flags [0]:\n"); + fprintf (stdout, "\t\t 0x0001 reserved\n"); + fprintf (stdout, "\t\t 0x0002 Use semi-transparent filling for tpic shading command,\n"); + fprintf (stdout, "\t\t instead of opaque gray color. (requires PDF 1.4)\n"); + fprintf (stdout, "\t\t 0x0004 Treat all CIDFont as fixed-pitch font.\n"); + fprintf (stdout, "\t\t 0x0008 Do not replace duplicate fontmap entries.\n"); + fprintf (stdout, "\t\tPositive values are always ORed with previously given flags.\n"); + fprintf (stdout, "\t\tAnd negative values replace old values.\n"); + fprintf (stdout, "-E \tAlways try to embed fonts, regardless of licensing flags.\n"); + fprintf (stdout, "-O number\tSet maximum depth of open bookmark items [0]\n"); + fprintf (stdout, "-P number\tSet permission flags for PDF encryption [0x003C]\n"); + fprintf (stdout, "-S \tEnable PDF encryption\n"); + fprintf (stdout, "-T \tEmbed thumbnail images. Remove images files when finished.\n"); + fprintf (stdout, "-M \tExperimental mps-to-pdf mode\n"); + fprintf (stdout, "-V number\tSet PDF minor version [3]\n"); + fprintf (stdout, "\nAll dimensions entered on the command line are \"true\" TeX dimensions.\n"); + fprintf (stdout, "Argument of \"-s\" lists physical page ranges separated by commas, e.g., \"-s 1-3,5-6\"\n"); + fprintf (stdout, "Papersize is specified by paper format (e.g., \"a4\") or by w,h (e.g., \"20cm,30cm\").\n"); + + exit(1); +} + + +static int +read_length (double *vp, char **pp, char *endptr) +{ + char *q, *p = *pp; + double v, u = 1.0; + const char *_ukeys[] = { +#define K_UNIT__PT 0 +#define K_UNIT__IN 1 +#define K_UNIT__CM 2 +#define K_UNIT__MM 3 +#define K_UNIT__BP 4 + "pt", "in", "cm", "mm", "bp", + NULL + }; + int k, error = 0; + + q = parse_float_decimal(&p, endptr); + if (!q) { + *vp = 0.0; *pp = p; + return -1; + } + + v = atof(q); + RELEASE(q); + + q = parse_c_ident(&p, endptr); + if (q) { + if (strlen(q) > strlen("true") && + !memcmp(q, "true", strlen("true"))) { + q += strlen("true"); /* just skip "true" */ + } + for (k = 0; _ukeys[k] && strcmp(_ukeys[k], q); k++); + switch (k) { + case K_UNIT__PT: u *= 72.0 / 72.27; break; + case K_UNIT__IN: u *= 72.0; break; + case K_UNIT__CM: u *= 72.0 / 2.54 ; break; + case K_UNIT__MM: u *= 72.0 / 25.4 ; break; + case K_UNIT__BP: u *= 1.0 ; break; + default: + WARN("Unknown unit of measure: %s", q); + error = -1; + break; + } + RELEASE(q); + } + + *vp = v * u; *pp = p; + return error; +} + +static void +select_paper (const char *paperspec) +{ + const struct paper *pi; + int error = 0; + + pi = paperinfo(paperspec); + if (pi && papername(pi)) { + paper_width = paperpswidth (pi); + paper_height = paperpsheight(pi); + } else { + char *p = (char *) paperspec, *endptr, *comma; + comma = strchr(p, ','); + endptr = p + strlen(p); + if (!comma) + ERROR("Unrecognized paper format: %s", paperspec); + error = read_length(&paper_width, &p, comma); + p = comma + 1; + error = read_length(&paper_height, &p, endptr); + } + if (error || paper_width <= 0.0 || paper_height <= 0.0) + ERROR("Invalid paper size: %s (%.2fx%.2f)", paperspec, paper_width, paper_height); +} + +struct page_range +{ + long first, last; +} *page_ranges = NULL; + +int num_page_ranges = 0; +int max_page_ranges = 0; + +static void +select_pages (const char *pagespec) +{ + char *q, *p = (char *) pagespec; + + while (*p != '\0') { + /* Enlarge page range table if necessary */ + if (num_page_ranges >= max_page_ranges) { + max_page_ranges += 4; + page_ranges = RENEW(page_ranges, max_page_ranges, struct page_range); + } + + page_ranges[num_page_ranges].first = 0; + page_ranges[num_page_ranges].last = 0; + + for ( ; *p && isspace(*p); p++); + q = parse_unsigned(&p, p + strlen(p)); /* Can't be signed. */ + if (q) { /* '-' is allowed here */ + page_ranges[num_page_ranges].first = atoi(q) - 1; + page_ranges[num_page_ranges].last = page_ranges[num_page_ranges].first; + RELEASE(q); + } + for ( ; *p && isspace(*p); p++); + + if (*p == '-') { + for (++p; *p && isspace(*p); p++); + page_ranges[num_page_ranges].last = -1; + if (*p) { + q = parse_unsigned(&p, p + strlen(p)); + if (q) { + page_ranges[num_page_ranges].last = atoi(q) - 1; + RELEASE(q); + } + for ( ; *p && isspace(*p); p++); + } + } else { + page_ranges[num_page_ranges].last = page_ranges[num_page_ranges].first; + } + + num_page_ranges++; + + if (*p == ',') + p++; + else { + for ( ; *p && isspace(*p); p++); + if (*p) + ERROR("Bad page range specification: %s", p); + } + } + return; +} + +#define POP_ARG() {argv += 1; argc -= 1;} +/* It doesn't work as expected (due to dvi filename). */ +#define CHECK_ARG(n,m) if (argc < (n) + 1) {\ + fprintf (stderr, "\nMissing %s after \"-%c\".\n", (m), *flag);\ + usage();\ +} + +static void +do_args (int argc, char *argv[]) +{ + while (argc > 0 && *argv[0] == '-') { + char *flag, *nextptr; + + for (flag = argv[0] + 1; *flag != 0; flag++) { + switch (*flag) { + case 'D': + CHECK_ARG(1, "PS->PDF conversion command line template"); + set_distiller_template(argv[1]); + POP_ARG(); + break; + case 'r': + CHECK_ARG(1, "bitmap font dpi"); + font_dpi = atoi(argv[1]); + if (font_dpi <= 0) + ERROR("Invalid bitmap font dpi specified: %s", argv[1]); + POP_ARG(); + break; + case 'm': + CHECK_ARG(1, "magnification value"); + mag = strtod(argv[1], &nextptr); + if (mag < 0.0 || nextptr == argv[1]) + ERROR("Invalid magnification specifiied: %s", argv[1]); + POP_ARG(); + break; + case 'g': + CHECK_ARG(1, "annotation \"grow\" amount"); + nextptr = argv[1]; + read_length(&annot_grow, &nextptr, nextptr + strlen(nextptr)); + POP_ARG(); + break; + case 'x': + CHECK_ARG(1, "horizontal offset value"); + nextptr = argv[1]; + read_length(&x_offset, &nextptr, nextptr + strlen(nextptr)); + POP_ARG(); + break; + case 'y': + CHECK_ARG(1, "vertical offset value"); + nextptr = argv[1]; + read_length(&y_offset, &nextptr, nextptr + strlen(nextptr)); + POP_ARG(); + break; + case 'o': + CHECK_ARG(1, "output file name"); + pdf_filename = NEW (strlen(argv[1])+1,char); + strcpy(pdf_filename, argv[1]); + POP_ARG(); + break; + case 's': + CHECK_ARG(1, "page selection specification"); + select_pages(argv[1]); + POP_ARG(); + break; +#ifndef NO_THUMBNAIL + case 'T': + pdf_doc_enable_thumbnails(1); /* remove after... */ + break; + case 't': + pdf_doc_enable_thumbnails(0); + break; +#endif /* !NO_THUMBNAIL */ + case 'p': + CHECK_ARG(1, "paper format/size"); + select_paper(argv[1]); + POP_ARG(); + break; + case 'c': + ignore_colors = 1; + break; + case 'l': + landscape_mode = 1; + break; + case 'f': + CHECK_ARG(1, "fontmap file name"); + if (opt_flags & OPT_FONTMAP_FIRST_MATCH) + pdf_load_fontmap_file(argv[1], FONTMAP_RMODE_APPEND); + else + pdf_load_fontmap_file(argv[1], FONTMAP_RMODE_REPLACE); + POP_ARG(); + break; + case 'e': + WARN("dvipdfm \"-e\" option not supported."); + break; + case 'q': + really_quiet = 1; + break; + case 'v': + verbose++; + break; + case 'V': + { + int ver_minor; + + if (isdigit(*(flag+1))) { + flag++; + ver_minor = atoi(flag); + } else { + CHECK_ARG(1, "PDF minor version number"); + ver_minor = atoi(argv[1]); + POP_ARG(); + } + if (ver_minor < 3 || ver_minor > 5) { + WARN("PDF version 1.%d not supported. (1.3 used instead)", ver_minor); + ver_minor = 3; + } + pdf_set_version((unsigned) ver_minor); + } + break; + case 'z': + { + int level; + + if (isdigit(*(flag+1))) { + flag++; + level = atoi(flag); + } else { + CHECK_ARG(1, "compression level"); + level = atoi(argv[1]); + POP_ARG(); + } + pdf_set_compression(level); + } + break; + case 'd': + if (isdigit(*(flag+1))) { + flag++; + pdfdecimaldigits = atoi(flag); + } else { + CHECK_ARG(1, "number of fractional digits"); + pdfdecimaldigits = atoi(argv[1]); + POP_ARG(); + } + break; + case 'S': + do_encryption = 1; + break; + case 'K': + CHECK_ARG(1, "encryption key bits"); + key_bits = (unsigned) atoi(argv[1]); + if (key_bits < 40 || key_bits > 128) + ERROR("Invalid encryption key bits specified: %s", argv[1]); + POP_ARG(); + break; + case 'P': + CHECK_ARG(1, "encryption permission flag"); + permission = (unsigned) strtoul(argv[1], &nextptr, 0); + if (nextptr == argv[1]) + ERROR("Invalid encryption permission flag: %s", argv[1]); + POP_ARG(); + break; + case 'O': + /* Bookmark open level */ + CHECK_ARG(1, "bookmark open level"); + bookmark_open = atoi(argv[1]); + POP_ARG(); + break; + case 'M': + mp_mode = 1; + break; + case 'C': + CHECK_ARG(1, "a number"); + { + long flags; + + flags = (unsigned) strtol(argv[1], &nextptr, 0); + if (nextptr == argv[1]) + ERROR("Invalid flag: %s", argv[1]); + if (flags < 0) + opt_flags = -flags; + else + opt_flags |= flags; + } + POP_ARG(); + break; + case 'E': + always_embed = 1; + break; + default: + fprintf (stderr, "Unknown option in \"%s\"", flag); + usage(); + break; + } + } + POP_ARG(); + } + + if (!really_quiet) { + int i; + + for (i = 0; i < verbose; i++) { + dvi_set_verbose(); + pdf_fontmap_set_verbose(); + pdf_dev_set_verbose(); + pdf_doc_set_verbose(); + pdf_enc_set_verbose(); + pdf_obj_set_verbose(); + dpx_file_set_verbose(); + } + } + + if (argc > 1) { + fprintf(stderr, "Multiple dvi filenames?"); + usage(); + } else if (argc > 0) { + /* + * The only legitimate way to have argc == 0 here is + * is do_args was called from config file. In that case, there is + * no dvi file name. Check for that case . + */ + dvi_filename = NEW(strlen(argv[0]) + 5, char); /* space to append .dvi */ + strcpy(dvi_filename, argv[0]); + } +} + +static void +cleanup (void) +{ + if (dvi_filename) + RELEASE(dvi_filename); + if (pdf_filename) + RELEASE(pdf_filename); + if (page_ranges) + RELEASE(page_ranges); +} + +static const char *default_config_file = "dvipdfmx.cfg"; + +static void +read_config_file (const char *config) +{ + char *fullname; + char *start, *end, *option; + FILE *fp; + +#ifdef MIKTEX + if (!miktex_find_app_input_file("dvipdfm", config, fullname = work_buffer)) + return; +#else + if ((fullname = kpse_find_file(config, kpse_program_text_format, 1)) == NULL) + return; +#endif + + if (!(fp = MFOPEN (fullname, FOPEN_R_MODE))) { + WARN("Could not open config file \"%s\".", fullname); + return; + } + while ((start = mfgets (work_buffer, WORK_BUFFER_SIZE, fp)) != NULL) { + char *argv[2]; + int argc; + + argc = 0; + end = work_buffer + strlen(work_buffer); + skip_white (&start, end); + if (start >= end) + continue; + /* Build up an argument list as if it were passed on the command + line */ + if ((option = parse_ident (&start, end))) { + argc = 1; + argv[0] = NEW (strlen(option)+2, char); + strcpy (argv[0]+1, option); + RELEASE (option); + *argv[0] = '-'; + skip_white (&start, end); + if (start < end) { + argc += 1; + if (*start == '"') { + argv[1] = parse_c_string (&start, end); + } + else + argv[1] = parse_ident (&start, end); + } + } + do_args (argc, argv); + while (argc > 0) { + RELEASE (argv[--argc]); + } + } + if (fp) + MFCLOSE(fp); +} + +static void +system_default (void) +{ + if (systempapername() != NULL) { + select_paper(systempapername()); + } else if (defaultpapername() != NULL) { + select_paper(defaultpapername()); + } +} + +void +error_cleanup (void) +{ + pdf_error_cleanup(); + if (pdf_filename) { + remove(pdf_filename); + fprintf(stderr, "\nOutput file removed.\n"); + } +} + +#define SWAP(v1,v2) do {\ + double _tmp = (v1);\ + (v1) = (v2);\ + (v2) = _tmp;\ + } while (0) + +static void +do_dvi_pages (void) +{ + long page_no, page_count, i, step; + double page_width, page_height; + pdf_rect mediabox; + + spc_exec_at_begin_document(); + + if (num_page_ranges == 0) { + if (!page_ranges) { + page_ranges = NEW(1, struct page_range); + max_page_ranges = 1; + } + page_ranges[0].first = 0; + page_ranges[0].last = -1; /* last page */ + num_page_ranges = 1; + } + + page_width = paper_width; + page_height = paper_height; + page_count = 0; + + mediabox.llx = 0.0; + mediabox.lly = 0.0; + mediabox.urx = paper_width; + mediabox.ury = paper_height; + + pdf_doc_set_creator (dvi_comment()); + pdf_doc_set_mediabox(0, &mediabox); /* Root node */ + + for (i = 0; i < num_page_ranges && dvi_npages() > 0; i++) { + if (page_ranges[i].last < 0) + page_ranges[i].last += dvi_npages(); + + step = (page_ranges[i].first <= page_ranges[i].last) ? 1 : -1; + page_no = page_ranges[i].first; + while (dvi_npages() > 0) { + if (page_no < dvi_npages()) { + double w, h; + char lm; + + /* Users want to change page size even after page is started! */ + w = page_width; h = page_height; lm = landscape_mode; + dvi_scan_paper_size(page_no, &w, &h, &lm); + if (lm != landscape_mode) { + SWAP(w, h); + landscape_mode = lm; + } + if (page_width != w || page_height != h) { + page_width = w; + page_height = h; + } + if (page_width != paper_width || + page_height != paper_height) { + mediabox.llx = 0.0; + mediabox.lly = 0.0; + mediabox.urx = page_width; + mediabox.ury = page_height; + pdf_doc_set_mediabox(page_count+1, &mediabox); + } + dvi_do_page(page_no, + page_width, page_height, x_offset, y_offset); + page_count++; + } + + if (step > 0 && + page_no >= page_ranges[i].last) + break; + else if (step < 0 && + page_no <= page_ranges[i].last) + break; + else { + page_no += step; + } + } + } + + if (page_count < 1) { + ERROR("No pages fall in range!"); + } + + spc_exec_at_end_document(); +} + +static void +do_mps_pages (void) +{ + FILE *fp; + + /* _FIXME_ */ + fp = MFOPEN(dvi_filename, FOPEN_RBIN_MODE); + if (fp) { + mps_do_page(fp); + MFCLOSE(fp); + } else { + int i, page_no, step, page_count = 0; + char *filename; + /* Process filename.1, filename.2,... */ + filename = NEW(strlen(dvi_filename) + 16 + 1, char); + for (i = 0; i < num_page_ranges; i++) { + if (page_ranges[i].last < 0) + ERROR("Invalid page number for MPS input: -1"); + + step = (page_ranges[i].first <= page_ranges[i].last) ? 1 : -1; + page_no = page_ranges[i].first; + for (;;) { + sprintf(filename, "%s.%d", dvi_filename, page_no + 1); + fp = MFOPEN(filename, FOPEN_RBIN_MODE); + if (fp) { + MESG("[%d<%s>", page_no + 1, filename); + mps_do_page(fp); + page_count++; + MESG("]"); + MFCLOSE(fp); + } + if (step > 0 && + page_no >= page_ranges[i].last) + break; + else if (step < 0 && + page_no <= page_ranges[i].last) + break; + else { + page_no += step; + } + } + } + RELEASE(filename); + if (page_count == 0) + ERROR("No page output for \"%s\".", dvi_filename); + } +} + + +/* TODO: MetaPost mode */ +int CDECL +main (int argc, char *argv[]) +{ + double dvi2pts; + + if (argc < 2) { + fprintf(stderr, "No dvi filename specified."); + usage(); + return 1; + } + +#ifdef MIKTEX + miktex_initialize(); +#else + kpse_set_program_name(argv[0], "dvipdfm"); +#endif + + paperinit(); + system_default(); + + argv+=1; + argc-=1; + + pdf_init_fontmaps(); /* This must come before parsing options... */ + + /* Process config file, if any */ + if (default_config_file) { + read_config_file(default_config_file); + } + + do_args (argc, argv); + + if (really_quiet) + shut_up(); + +#ifndef MIKTEX + kpse_init_prog("", font_dpi, NULL, NULL); + kpse_set_program_enabled(kpse_pk_format, true, kpse_src_texmf_cnf); +#endif + pdf_font_set_dpi(font_dpi); + + if (dvi_filename == NULL) { + if (pdf_filename == NULL) { + WARN("No dvi or pdf filename specified."); + usage(); + return 1; + } + else { + if (verbose) + MESG("No dvi filename specified, reading standard input."); + } + } + + if (pdf_filename == NULL) + set_default_pdf_filename(); + + if (do_encryption) { + pdf_enc_set_passwd(key_bits, permission, dvi_filename, pdf_filename); + if (key_bits > 40) + pdf_set_version(4); + } + + if (mp_mode) { + x_offset = 0.0; + y_offset = 0.0; + dvi2pts = 0.01; /* dvi2pts controls accuracy. */ + } else { + /* Dependency between DVI and PDF side is rather complicated... */ + dvi2pts = dvi_init(dvi_filename, mag); + if (dvi2pts == 0.0) + ERROR("dvi_init() failed!"); + + dvi_scan_paper_size(0, &paper_width, &paper_height, &landscape_mode); + if (landscape_mode) { + SWAP(paper_width, paper_height); + } + } + + MESG("%s -> %s\n", dvi_filename == NULL ? "stdin" : dvi_filename, pdf_filename); + + /* Set default paper size here so that all page's can inherite it. + * annot_grow: Margin of annotation. + * bookmark_open: Miximal depth of open bookmarks. + */ + pdf_open_document(pdf_filename, + paper_width, paper_height, annot_grow, bookmark_open); + + /* Ignore_colors placed here since + * they are considered as device's capacity. + */ + pdf_init_device(dvi2pts, pdfdecimaldigits, ignore_colors); + + if (opt_flags & OPT_CIDFONT_FIXEDPITCH) + CIDFont_set_flags(CIDFONT_FORCE_FIXEDPITCH); + + /* Please move this to spc_init_specials(). */ + if (opt_flags & OPT_TPIC_TRANSPARENT_FILL) + tpic_set_fill_mode(1); + + if (mp_mode) { + do_mps_pages(); + } else { + do_dvi_pages(); + } + + /* Order of close... */ + pdf_close_device (); + /* pdf_close_document flushes XObject (image) and other resources. */ + pdf_close_document(); + + pdf_close_fontmaps(); /* pdf_font may depend on fontmap. */ + + if (!mp_mode) + dvi_close(); + + MESG("\n"); + cleanup(); + + paperdone(); +#ifdef MIKTEX + miktex_uninitialize (); +#endif + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/epdf.c b/Build/source/texk/xdvipdfmx/src/epdf.c new file mode 100644 index 00000000000..c041bb1e7b5 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/epdf.c @@ -0,0 +1,523 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/epdf.c,v 1.14 2004/09/12 11:57:49 hirata Exp $ + + This is dvipdfm, a DVI to PDF translator. + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + The author may be contacted via the e-mail address + + mwicks@kettering.edu +*/ + + +/* + * Concatinating content streams are only supported for streams that only uses + * single FlateDecode filter, i.e., + * + * /Filter /FlateDecode or /Filter [/FlateDecode] + * + * TrimBox, BleedBox, ArtBox, Rotate ... + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "mfileio.h" +#include "error.h" + +#if HAVE_ZLIB +#include +#endif + +#include "pdfobj.h" +#include "pdfdev.h" + +#include "pdfximage.h" + +#include "epdf.h" + +#if HAVE_ZLIB +static int add_stream_flate (pdf_obj *dst, const void *data, long len); +#endif +static int concat_stream (pdf_obj *dst, pdf_obj *src); +static void print_bbox_info (pdf_obj *rect, const char *type, pdf_obj *crop_box); +static int rect_equal (pdf_obj *rect1, pdf_obj *rect2); + +/* + * From PDF Reference 4th ed. + * + * MediaBox rectangle (Required; inheritable) + * + * A rectangle, expressed in default user space units, defining the boundaries of the + * physical medium on which the page is intended to be displayed or printed. + * + * CropBox rectangle (Optional; inheritable) + * + * A rectangle, expressed in default user space units, defining the visible region of + * default user space. When the page is displayed or printed, its contents are to be + * clipped (cropped) to this rectangle and then imposed on the output medium in some + * implementation-defined manner. + * Default value: the value of MediaBox. + * + * BleedBox rectangle (Optional; PDF 1.3) + * + * A rectangle, expressed in default user space units, defining the region to which the + * contents of the page should be clipped when output in a production environment. + * Default value: the value of CropBox. + * + * TrimBox rectangle (Optional; PDF 1.3) + * + * A rectangle, expressed in default user space units, defining the intended dimensions + * of the finished page after trimming. + * Default value: the value of CropBox. + * + * ArtBox rectangle (Optional; PDF 1.3) + * + * A rectangle, expressed in default user space units, defining the extent of the page's + * meaningful content (including potential white space) as intended by the page's creator + * Default value: the value of CropBox. + * + * Rotate integer (Optional; inheritable) + * + * The number of degrees by which the page should be rotated clockwise when displayed or + * printed. The value must be a multiple of 90. + * Default value: 0. + */ + +static int +rect_equal (pdf_obj *rect1, pdf_obj *rect2) +{ + int i; + + if (!rect1 || !rect2) + return 0; + for (i = 0; i < 4; i++) { + if (pdf_number_value(pdf_get_array(rect1, i)) != + pdf_number_value(pdf_get_array(rect2, i))) + return 0; + } + + return 1; +} + +static void +print_bbox_info (pdf_obj *rect, const char *type, pdf_obj *crop_box) +{ + WARN("\"%s\" different from current CropBox found.", type); + WARN("%s (PDF): [ %g %g %g %g ]", type, + pdf_number_value(pdf_get_array(rect, 0)), + pdf_number_value(pdf_get_array(rect, 1)), + pdf_number_value(pdf_get_array(rect, 2)), + pdf_number_value(pdf_get_array(rect, 3))); + WARN("CropBox/MediaBox (PDF) : [ %g %g %g %g ]", + pdf_number_value(pdf_get_array(crop_box, 0)), + pdf_number_value(pdf_get_array(crop_box, 1)), + pdf_number_value(pdf_get_array(crop_box, 2)), + pdf_number_value(pdf_get_array(crop_box, 3))); +} + +int +pdf_include_page (pdf_ximage *ximage, FILE *image_file, int page_index, int pdf_box) +{ + xform_info info; + pdf_obj *contents, *contents_ref, *contents_dict; + pdf_obj *page_tree; + pdf_obj *bbox, *resources, *rotate, *matrix; + int page_count; + + pdf_ximage_init_form_info(&info); + /* + * Get Page Tree. + */ + page_tree = NULL; + { + pdf_obj *trailer, *catalog; + pdf_obj *markinfo, *tmp; + + trailer = pdf_open(image_file); + if (!trailer) { + WARN("Trailer not found! Corrupt PDF file?"); + pdf_close(); + return -1; + } + + if (pdf_lookup_dict(trailer, "Encrypt")) { + WARN("This PDF document is encrypted."); + pdf_release_obj(trailer); + pdf_close(); + return -1; + } + + catalog = pdf_deref_obj(pdf_lookup_dict(trailer, "Root")); + if (!catalog) { + WARN("Catalog isn't where I expect it."); + pdf_close(); + return -1; + } + pdf_release_obj(trailer); + + markinfo = pdf_deref_obj(pdf_lookup_dict(catalog, "MarkInfo")); + if (markinfo) { + tmp = pdf_lookup_dict(markinfo, "Marked"); + pdf_release_obj(markinfo); + if (tmp && pdf_boolean_value(tmp)) { + WARN("Tagged PDF not supported."); + pdf_release_obj(catalog); + pdf_close(); + return -1; + } + } + + page_tree = pdf_deref_obj(pdf_lookup_dict(catalog, "Pages")); + pdf_release_obj(catalog); + } + if (!page_tree) { + WARN("Page tree not found."); + pdf_close(); + return -1; + } + + page_count = (int)pdf_number_value(pdf_lookup_dict(page_tree, "Count")); + if (page_index >= page_count) + page_index = page_count - 1; + else if (page_index < 0) { + page_index = page_count + page_index; + if (page_index < 0) + page_index = 0; + } + + /* + * Seek required page. Get Media/Crop Box. + * Media box and resources can be inherited. + */ + { + pdf_obj *kids_ref, *kids; + pdf_obj *crop_box; + pdf_obj *tmp; + + tmp = pdf_lookup_dict(page_tree, "MediaBox"); + bbox = tmp ? pdf_deref_obj(tmp) : NULL; + tmp = pdf_lookup_dict(page_tree, "CropBox"); + crop_box = tmp ? pdf_deref_obj(tmp) : NULL; + tmp = pdf_lookup_dict(page_tree, "Rotate"); + rotate = tmp ? pdf_deref_obj(tmp) : NULL; + + tmp = pdf_lookup_dict(page_tree, "Resources"); + resources = tmp ? pdf_deref_obj(tmp) : pdf_new_dict(); + + while ((kids_ref = pdf_lookup_dict(page_tree, "Kids")) != NULL) { + /* page_tree is a Pages object: figure out which of its Kids we need */ + int kid_index; + kids = pdf_deref_obj(kids_ref); + for (kid_index = 0; ; ++kid_index) { + pdf_release_obj(page_tree); + page_tree = pdf_deref_obj(pdf_get_array(kids, kid_index)); + /* page_tree might be a Page or another Pages node */ + tmp = pdf_lookup_dict(page_tree, "Count"); + if (tmp) { + /* it's a subtree: check if the required page is within this tree */ + page_count = (int)pdf_number_value(tmp); + if (page_index < page_count) + break; + else + page_index -= page_count; + } + else { + /* it's a page: break if it's the one we want */ + if (page_index == 0) + break; + else + --page_index; + } + } + pdf_release_obj(kids); + + if ((tmp = pdf_deref_obj(pdf_lookup_dict(page_tree, "MediaBox")))) { + if (bbox) + pdf_release_obj(bbox); + bbox = tmp; + } + if ((tmp = pdf_deref_obj(pdf_lookup_dict(page_tree, "CropBox")))) { + if (crop_box) + pdf_release_obj(crop_box); + crop_box = tmp; + } + if ((tmp = pdf_deref_obj(pdf_lookup_dict(page_tree, "Rotate")))) { + if (rotate) + pdf_release_obj(rotate); + rotate = tmp; + } + if ((tmp = pdf_deref_obj(pdf_lookup_dict(page_tree, "Resources")))) { +#if 0 + pdf_merge_dict(tmp, resources); +#endif + if (resources) + pdf_release_obj(resources); + resources = tmp; + } + } + if (crop_box) { + pdf_release_obj(bbox); + bbox = crop_box; + } + } + if (!bbox) { + WARN("No BoundingBox information available."); + pdf_release_obj(page_tree); + pdf_release_obj(resources); + if (rotate) + pdf_release_obj(rotate); + pdf_close(); + return -1; + } + + /* + * BleedBox, TrimBox, and ArtBox are not inheritable. + */ + { + pdf_obj *tmp; + + if ((tmp = pdf_deref_obj(pdf_lookup_dict(page_tree, "TrimBox")))) { + if (!rect_equal(tmp, bbox)) { + print_bbox_info(tmp, "TrimBox", bbox); + if (bbox) + pdf_release_obj(bbox); + bbox = tmp; + } + } + if ((tmp = pdf_deref_obj(pdf_lookup_dict(page_tree, "BleedBox")))) { + if (!rect_equal(tmp, bbox)) { + print_bbox_info(tmp, "BleedBox", bbox); + if (bbox) + pdf_release_obj(bbox); + bbox = tmp; + } + } + if ((tmp = pdf_deref_obj(pdf_lookup_dict(page_tree, "ArtBox")))) { + if (!rect_equal(tmp, bbox)) { + print_bbox_info(tmp, "ArtBox", bbox); + if (bbox) + pdf_release_obj(bbox); + bbox = tmp; + } + } + if (rotate) { + if (pdf_number_value(rotate) != 0.0) + WARN("<< /Rotate %d >> found. (Not supported yet)", (int)pdf_number_value(rotate)); + pdf_release_obj(rotate); + rotate = NULL; + } + + info.bbox.llx = pdf_number_value(pdf_get_array(bbox, 0)); + info.bbox.lly = pdf_number_value(pdf_get_array(bbox, 1)); + info.bbox.urx = pdf_number_value(pdf_get_array(bbox, 2)); + info.bbox.ury = pdf_number_value(pdf_get_array(bbox, 3)); + } + + /* + * Handle page content stream. + * page_tree is now set to the first page. + */ + contents_ref = contents = NULL; + { + contents = pdf_deref_obj(pdf_lookup_dict(page_tree, "Contents")); + pdf_release_obj(page_tree); + if (!contents) { + pdf_release_obj(bbox); + pdf_close(); + return -1; + } + + /* + * Concatinate all content streams. + */ + if (PDF_OBJ_ARRAYTYPE(contents)) { + pdf_obj *content_seg, *content_new; + int idx = 0; + content_new = pdf_new_stream(STREAM_COMPRESS); + for (;;) { + content_seg = pdf_deref_obj(pdf_get_array(contents, idx)); + if (!content_seg) + break; + else if (PDF_OBJ_NULLTYPE(content_seg)) { + /* Silently ignore. */ + } else if (!PDF_OBJ_STREAMTYPE(content_seg)) { + WARN("Page content not a stream object. Broken PDF file?"); + pdf_release_obj(content_new); + pdf_release_obj(bbox); + pdf_close(); + return -1; + } else if (concat_stream(content_new, content_seg) < 0) { + WARN("Could not handle content stream with multiple segment."); + pdf_release_obj(content_new); + pdf_release_obj(bbox); + pdf_close(); + return -1; + } + pdf_release_obj(content_seg); + idx++; + } + pdf_release_obj(contents); + contents = content_new; + } + if (!contents) { + pdf_release_obj(bbox); + pdf_close(); + return -1; + } + } + + { + pdf_obj *tmp; + + tmp = pdf_import_object(resources); + pdf_release_obj(resources); + resources = tmp; + } + + pdf_close(); + + contents_dict = pdf_stream_dict(contents); + pdf_add_dict(contents_dict, + pdf_new_name("Type"), + pdf_new_name("XObject")); + pdf_add_dict(contents_dict, + pdf_new_name("Subtype"), + pdf_new_name("Form")); + pdf_add_dict(contents_dict, + pdf_new_name("FormType"), + pdf_new_number(1.0)); + + pdf_add_dict(contents_dict, pdf_new_name("BBox"), bbox); + + matrix = pdf_new_array(); + pdf_add_array(matrix, pdf_new_number(1.0)); + pdf_add_array(matrix, pdf_new_number(0.0)); + pdf_add_array(matrix, pdf_new_number(0.0)); + pdf_add_array(matrix, pdf_new_number(1.0)); + pdf_add_array(matrix, pdf_new_number(0.0)); + pdf_add_array(matrix, pdf_new_number(0.0)); + + pdf_add_dict(contents_dict, pdf_new_name("Matrix"), matrix); + + pdf_add_dict(contents_dict, pdf_new_name("Resources"), resources); + + pdf_ximage_set_form(ximage, &info, contents); + + return 0; +} + +#define WBUF_SIZE 4096 +#if HAVE_ZLIB +static int +add_stream_flate (pdf_obj *dst, const void *data, long len) +{ + z_stream z; + Bytef wbuf[WBUF_SIZE]; + + z.zalloc = Z_NULL; z.zfree = Z_NULL; z.opaque = Z_NULL; + + z.next_in = (Bytef *) data; z.avail_in = len; + z.next_out = (Bytef *) wbuf; z.avail_out = WBUF_SIZE; + + if (inflateInit(&z) != Z_OK) { + WARN("inflateInit() failed."); + return -1; + } + + for (;;) { + int status; + status = inflate(&z, Z_NO_FLUSH); + if (status == Z_STREAM_END) + break; + else if (status != Z_OK) { + WARN("inflate() failed. Broken PDF file?"); + inflateEnd(&z); + return -1; + } + + if (z.avail_out == 0) { + pdf_add_stream(dst, wbuf, WBUF_SIZE); + z.next_out = wbuf; + z.avail_out = WBUF_SIZE; + } + } + + if (WBUF_SIZE - z.avail_out > 0) + pdf_add_stream(dst, wbuf, WBUF_SIZE - z.avail_out); + + return (inflateEnd(&z) == Z_OK ? 0 : -1); +} +#endif + +static int +concat_stream (pdf_obj *dst, pdf_obj *src) +{ + const char *stream_data; + long stream_length; + pdf_obj *stream_dict; + pdf_obj *filter; + + if (!PDF_OBJ_STREAMTYPE(dst) || !PDF_OBJ_STREAMTYPE(src)) + ERROR("Invalid type."); + + stream_data = pdf_stream_dataptr(src); + stream_length = pdf_stream_length (src); + stream_dict = pdf_stream_dict (src); + + if (pdf_lookup_dict(stream_dict, "DecodeParms")) { + WARN("DecodeParams not supported."); + return -1; + } + + filter = pdf_lookup_dict(stream_dict, "Filter"); + if (!filter) { + pdf_add_stream(dst, stream_data, stream_length); + return 0; +#if HAVE_ZLIB + } else { + char *filter_name; + if (PDF_OBJ_NAMETYPE(filter)) { + filter_name = pdf_name_value(filter); + if (filter_name && !strcmp(filter_name, "FlateDecode")) + return add_stream_flate(dst, stream_data, stream_length); + else { + WARN("DecodeFilter \"%s\" not supported.", filter_name); + return -1; + } + } else if (PDF_OBJ_ARRAYTYPE(filter)) { + if (pdf_array_length(filter) > 1) { + WARN("Multiple DecodeFilter not supported."); + return -1; + } else { + filter_name = pdf_name_value(pdf_get_array(filter, 0)); + if (filter_name && !strcmp(filter_name, "FlateDecode")) + return add_stream_flate(dst, stream_data, stream_length); + else { + WARN("DecodeFilter \"%s\" not supported.", filter_name); + return -1; + } + } + } else + ERROR("Broken PDF file?"); +#endif /* HAVE_ZLIB */ + } + + return -1; +} diff --git a/Build/source/texk/xdvipdfmx/src/epdf.h b/Build/source/texk/xdvipdfmx/src/epdf.h new file mode 100644 index 00000000000..d99f3a63856 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/epdf.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/epdf.h,v 1.8 2004/09/11 14:50:28 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _EPDF_H_ +#define _EPDF_H_ + +#include "mfileio.h" +#include "pdfximage.h" + +#define pdfbox_crop 1 +#define pdfbox_media 2 +#define pdfbox_bleed 3 +#define pdfbox_trim 4 +#define pdfbox_art 5 + +extern int pdf_include_page (pdf_ximage *ximage, FILE *file, int page_index, int pdf_box); + +#endif /* _EPDF_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/error.c b/Build/source/texk/xdvipdfmx/src/error.c new file mode 100644 index 00000000000..ac0a1d8a79f --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/error.c @@ -0,0 +1,94 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/error.c,v 1.4 2004/03/11 11:50:20 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include + +#include "error.h" + +#define DPX_MESG 0 +#define DPX_MESG_WARN 1 +#define DPX_MESG_ERROR 2 + +static int _mesg_type = DPX_MESG; +#define WANT_NEWLINE() (_mesg_type != DPX_MESG_WARN && _mesg_type != DPX_MESG_ERROR) + +static int really_quiet = 0; + +void +shut_up (void) +{ + really_quiet = 1; +} + +void +MESG (const char *fmt, ...) +{ + va_list argp; + + if (!really_quiet) { + va_start(argp, fmt); + vfprintf(stderr, fmt, argp); + va_end(argp); + _mesg_type = DPX_MESG; + } +} + +void +WARN (const char *fmt, ...) +{ + va_list argp; + + if (!really_quiet) { + if (WANT_NEWLINE()) + fprintf(stderr, "\n"); + fprintf(stderr, "** WARNING ** "); + va_start(argp, fmt); + vfprintf(stderr, fmt, argp); + va_end(argp); + fprintf(stderr, "\n"); + + _mesg_type = DPX_MESG_WARN; + } +} + +extern void error_cleanup (void); + +void +ERROR (const char *fmt, ...) +{ + va_list argp; + + if (!really_quiet) { + if (WANT_NEWLINE()) + fprintf(stderr, "\n"); + fprintf(stderr, "** ERROR ** "); + va_start(argp, fmt); + vfprintf(stderr, fmt, argp); + va_end(argp); + fprintf(stderr, "\n"); + } + error_cleanup(); + exit( 1 ); +} diff --git a/Build/source/texk/xdvipdfmx/src/error.h b/Build/source/texk/xdvipdfmx/src/error.h new file mode 100644 index 00000000000..68b414d20c5 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/error.h @@ -0,0 +1,46 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/error.h,v 1.7 2004/03/11 11:50:21 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _ERROR_H_ +#define _ERROR_H_ + +#include "system.h" + +extern void error_cleanup(); + +#define FATAL_ERROR -1 +#define NO_ERROR 0 + +#include +#include + +extern void shut_up (void); + +extern void ERROR (const char *fmt, ...); +extern void MESG (const char *fmt, ...); +extern void WARN (const char *fmt, ...); + +#define ASSERT(e) assert(e) + +#endif /* _ERROR_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/fontmap.c b/Build/source/texk/xdvipdfmx/src/fontmap.c new file mode 100644 index 00000000000..4e007bfc948 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/fontmap.c @@ -0,0 +1,1527 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/fontmap.c,v 1.33 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxfile.h" +#include "dpxutil.h" + +#include "subfont.h" + +#include "fontmap.h" + +#ifdef XETEX +#ifdef XETEX_MAC +#include +#include +#include "ft2build.h" +#include FT_FREETYPE_H +#else +#include "fontconfig/fontconfig.h" +#include "fontconfig/fcfreetype.h" +#endif +#endif + +/* CIDFont */ +static char *strip_options (const char *map_name, fontmap_opt *opt); + +static int verbose = 0; +void +pdf_fontmap_set_verbose (void) +{ + verbose++; +} + + +void +pdf_init_fontmap_record (fontmap_rec *mrec) +{ + ASSERT(mrec); + + mrec->map_name = NULL; + + /* SFD char mapping */ + mrec->charmap.sfd_name = NULL; + mrec->charmap.subfont_id = NULL; + /* for OFM */ + mrec->opt.mapc = -1; /* compatibility */ + + mrec->font_name = NULL; + mrec->enc_name = NULL; + + mrec->opt.slant = 0.0; + mrec->opt.extend = 1.0; + mrec->opt.bold = 0.0; + + mrec->opt.flags = 0; + + mrec->opt.design_size = -1.0; + + mrec->opt.tounicode = NULL; + mrec->opt.otl_tags = NULL; /* deactivated */ + mrec->opt.index = 0; + mrec->opt.charcoll = NULL; + mrec->opt.style = FONTMAP_STYLE_NONE; + +#ifdef XETEX + mrec->opt.ft_face = NULL; + mrec->opt.glyph_widths = NULL; +#endif +} + +void +pdf_clear_fontmap_record (fontmap_rec *mrec) +{ + ASSERT(mrec); + + if (mrec->map_name) + RELEASE(mrec->map_name); + if (mrec->charmap.sfd_name) + RELEASE(mrec->charmap.sfd_name); + if (mrec->charmap.subfont_id) + RELEASE(mrec->charmap.subfont_id); + if (mrec->enc_name) + RELEASE(mrec->enc_name); + if (mrec->font_name) + RELEASE(mrec->font_name); + + if (mrec->opt.tounicode) + RELEASE(mrec->opt.tounicode); + if (mrec->opt.otl_tags) + RELEASE(mrec->opt.otl_tags); + if (mrec->opt.charcoll) + RELEASE(mrec->opt.charcoll); + pdf_init_fontmap_record(mrec); +} + +/* strdup: just returns NULL for NULL */ +static char * +mstrdup (const char *s) +{ + char *r; + if (!s) + return NULL; + r = NEW(strlen(s) + 1, char); + strcpy(r, s); + return r; +} + +static void +pdf_copy_fontmap_record (fontmap_rec *dst, const fontmap_rec *src) +{ + ASSERT( dst && src ); + + dst->map_name = mstrdup(src->map_name); + + dst->charmap.sfd_name = mstrdup(src->charmap.sfd_name); + dst->charmap.subfont_id = mstrdup(src->charmap.subfont_id); + + dst->font_name = mstrdup(src->font_name); + dst->enc_name = mstrdup(src->enc_name); + + dst->opt.slant = src->opt.slant; + dst->opt.extend = src->opt.extend; + dst->opt.bold = src->opt.bold; + + dst->opt.flags = src->opt.flags; + dst->opt.mapc = src->opt.mapc; + + dst->opt.tounicode = mstrdup(src->opt.tounicode); + dst->opt.otl_tags = mstrdup(src->opt.otl_tags); + dst->opt.index = src->opt.index; + dst->opt.charcoll = mstrdup(src->opt.charcoll); + dst->opt.style = src->opt.style; + +#ifdef XETEX + dst->opt.ft_face = src->opt.ft_face; + dst->opt.glyph_widths = src->opt.glyph_widths; +#endif +} + + +static void +hval_free (void *vp) +{ + fontmap_rec *mrec = (fontmap_rec *) vp; + pdf_clear_fontmap_record(mrec); + RELEASE(mrec); +} + + +static void +fill_in_defaults (fontmap_rec *mrec, const char *tex_name) +{ + if (mrec->enc_name && + (!strcmp(mrec->enc_name, "default") || + !strcmp(mrec->enc_name, "none"))) { + RELEASE(mrec->enc_name); + mrec->enc_name = NULL; + } + if (mrec->font_name && + (!strcmp(mrec->font_name, "default") || + !strcmp(mrec->font_name, "none"))) { + RELEASE(mrec->font_name); + mrec->font_name = NULL; + } + /* We *must* fill font_name either explicitly or by default */ + if (!mrec->font_name) { + mrec->font_name = NEW(strlen(tex_name)+1, char); + strcpy(mrec->font_name, tex_name); + } + + mrec->map_name = NEW(strlen(tex_name)+1, char); + strcpy(mrec->map_name, tex_name); + +#ifndef WITHOUT_COMPAT + /* Use "UCS" character collection for Unicode SFD + * and Identity CMap combination. For backward + * compatibility. + */ + if (mrec->charmap.sfd_name && mrec->enc_name && + !mrec->opt.charcoll) { + if ((!strcmp(mrec->enc_name, "Identity-H") || + !strcmp(mrec->enc_name, "Identity-V")) + && + (strstr(mrec->charmap.sfd_name, "Uni") || + strstr(mrec->charmap.sfd_name, "UBig") || + strstr(mrec->charmap.sfd_name, "UBg") || + strstr(mrec->charmap.sfd_name, "UGB") || + strstr(mrec->charmap.sfd_name, "UKS") || + strstr(mrec->charmap.sfd_name, "UJIS"))) { + mrec->opt.charcoll = NEW(strlen("UCS")+1, char); + strcpy(mrec->opt.charcoll, "UCS"); + } + } +#endif /* WITHOUT_COMPAT */ + + return; +} + +static char * +readline (char *buf, int buf_len, FILE *fp) +{ + char *p, *q; + ASSERT( buf && buf_len > 0 && fp ); + p = mfgets(buf, buf_len, fp); + if (!p) + return NULL; + q = strchr(p, '%'); /* we don't have quoted string */ + if (q) + *q = '\0'; + return p; +} + +#ifndef ISBLANK +# define ISBLANK(c) ((c) == ' ' || (c) == '\t') +#endif +static void +skip_blank (char **pp, char *endptr) +{ + char *p = *pp; + if (!p || p >= endptr) + return; + for ( ; p < endptr && ISBLANK(*p); p++); + *pp = p; +} + +static char * +parse_string_value (char **pp, char *endptr) +{ + char *q = NULL, *p = *pp; + int n; + + if (!p || p >= endptr) + return NULL; + if (*p == '"') + q = parse_c_string(&p, endptr); + else { + for (n = 0; p < endptr && !isspace(*p); p++, n++); + if (n == 0) + return NULL; + q = NEW(n + 1, char); + memcpy(q, *pp, n); q[n] = '\0'; + } + + *pp = p; + return q; +} + +/* no preceeding spaces allowed */ +static char * +parse_integer_value (char **pp, char *endptr, int base) +{ + char *q, *p = *pp; + int has_sign = 0, has_prefix = 0, n; + + ASSERT( base == 0 || (base >= 2 && base <= 36) ); + + if (!p || p >= endptr) + return NULL; + + if (*p == '-' || *p == '+') { + p++; has_sign = 1; + } + if ((base == 0 || base == 16) && + p + 2 <= endptr && + p[0] == '0' && p[1] == 'x') { + p += 2; has_prefix = 1; + } + if (base == 0) { + if (has_prefix) + base = 16; + else if (p < endptr && *p == '0') + base = 8; + else { + base = 10; + } + } +#define ISDIGIT_WB(c,b) ( \ + ((b) <= 10 && (c) >= '0' && (c) < '0' + (b)) || \ + ((b) > 10 && ( \ + ((c) >= '0' && (c) <= '9') || \ + ((c) >= 'a' && (c) < 'a' + ((b) - 10)) || \ + ((c) >= 'A' && (c) < 'A' + ((b) - 10)) \ + ) \ + ) \ +) + for (n = 0; p < endptr && ISDIGIT_WB(*p, base); p++, n++); + if (n == 0) + return NULL; + if (has_sign) + n += 1; + if (has_prefix) + n += 2; + + q = NEW(n + 1, char); + memcpy(q, *pp, n); q[n] = '\0'; + + *pp = p; + return q; +} + +static int +fontmap_parse_mapdef (fontmap_rec *mrec, + const char *mapdef, char *endptr) +{ + char *p = (char *) mapdef; + + /* + * Parse record line in map file. First two fields (after TeX font + * name) are position specific. Arguments start at the first token + * beginning with a '-'. + * + * NOTE: + * Dvipdfm basically uses parse_ident() for parsing enc_name, + * font_name, and other string values which assumes PostScript-like + * syntax. + * skip_white() skips '\r' and '\n' but they should terminate + * fontmap line here. + */ + + skip_blank(&p, endptr); + /* encoding field */ + if (p < endptr && *p != '-') { /* May be NULL */ + mrec->enc_name = parse_string_value(&p, endptr); + skip_blank(&p, endptr); + } + + /* fontname or font filename field */ + if (p < endptr && *p != '-') { /* May be NULL */ + mrec->font_name = parse_string_value(&p, endptr); + skip_blank(&p, endptr); + } + if (mrec->font_name) { + char *tmp; + /* Several options are encoded in font_name for + * compatibility with dvipdfm. + */ + tmp = strip_options(mrec->font_name, &mrec->opt); + if (tmp) { + RELEASE(mrec->font_name); + mrec->font_name = tmp; + } + } + + skip_blank(&p, endptr); + /* Parse any remaining arguments */ + while (p + 1 < endptr && + *p != '\r' && *p != '\n' && *p == '-') { + char *q, mopt = p[1]; + long v; + + p += 2; skip_blank(&p, endptr); + switch (mopt) { + + case 's': /* Slant option */ + q = parse_float_decimal(&p, endptr); + if (!q) { + WARN("Missing a number value for 's' option."); + return -1; + } + mrec->opt.slant = atof(q); + RELEASE(q); + break; + case 'e': /* Extend option */ + q = parse_float_decimal(&p, endptr); + if (!q) { + WARN("Missing a number value for 'e' option."); + return -1; + } + mrec->opt.extend = atof(q); + if (mrec->opt.extend <= 0.0) { + WARN("Invalid value for 'e' option: %s", q); + return -1; + } + RELEASE(q); + break; + case 'b': /* Fake-bold option */ + q = parse_float_decimal(&p, endptr); + if (!q) { + WARN("Missing a number value for 'b' option."); + return -1; + } + mrec->opt.bold = atof(q); + if (mrec->opt.bold <= 0.0) { + WARN("Invalid value for 'b' option: %s", q); + return -1; + } + RELEASE(q); + break; + + case 'r': /* Remap option */ + mrec->opt.flags |= FONTMAP_OPT_REMAP; + break; + +#if 1 + case 'i': /* TTC index */ + q = parse_integer_value(&p, endptr, 10); + if (!q) { + WARN("Missing TTC index number..."); + return -1; + } + mrec->opt.index = atoi(q); + if (mrec->opt.index < 0) { + WARN("Invalid TTC index number: %s", q); + return -1; + } + RELEASE(q); + break; + + case 'p': /* UCS plane: just for testing */ + q = parse_integer_value(&p, endptr, 0); + if (!q) { + WARN("Missing a number for 'p' option."); + return -1; + } + v = strtol(q, NULL, 0); + if (v < 0 || v > 16) + WARN("Invalid valur for option 'p': %s", q); + else { + mrec->opt.mapc |= v << 16; + } + RELEASE(q); + break; + + case 'u': /* ToUnicode */ + q = parse_string_value(&p, endptr); + if (q) + mrec->opt.tounicode = q; + else { + WARN("Missing string value for option 'u'."); + return -1; + } + break; +#endif + + /* Omega uses both single-byte and double-byte set_char command + * even for double-byte OFMs. This confuses CMap decoder. + */ + case 'm': + /* Map single bytes char 0xab to double byte char 0xcdab */ + if (p + 4 <= endptr && + p[0] == '<' && p[3] == '>') { + p++; + q = parse_integer_value(&p, endptr, 16); + if (!q) { + WARN("Invalid value for option 'm'."); + return -1; + } else if (p < endptr && *p != '>') { + WARN("Invalid value for option 'm': %s", q); + RELEASE(q); + return -1; + } + v = strtol(q, NULL, 16); + mrec->opt.mapc = ((v << 8) & 0x0000ff00L); + RELEASE(q); p++; + } else if (p + 4 <= endptr && + !memcmp(p, "sfd:", strlen("sfd:"))) { + char *r; + /* SFD mapping: sfd:Big5,00 */ + p += 4; skip_blank(&p, endptr); + q = parse_string_value(&p, endptr); + if (!q) { + WARN("Missing value for option 'm'."); + return -1; + } + r = strchr(q, ','); + if (!r) { + WARN("Invalid value for option 'm': %s", q); + RELEASE(q); + return -1; + } + *r = 0; r++; skip_blank(&r, r + strlen(r)); + if (*r == '\0') { + WARN("Invalid value for option 'm': %s,", q); + RELEASE(q); + return -1; + } + mrec->charmap.sfd_name = mstrdup(q); + mrec->charmap.subfont_id = mstrdup(r); + RELEASE(q); + } else if (p + 4 < endptr && + !memcmp(p, "pad:", strlen("pad:"))) { + p += 4; skip_blank(&p, endptr); + q = parse_integer_value(&p, endptr, 16); + if (!q) { + WARN("Invalid value for option 'm'."); + return -1; + } else if (p < endptr && !isspace(*p)) { + WARN("Invalid value for option 'm': %s", q); + RELEASE(q); + return -1; + } + v = strtol(q, NULL, 16); + mrec->opt.mapc = ((v << 8) & 0x0000ff00L); + RELEASE(q); + } else { + WARN("Invalid value for option 'm'."); + return -1; + } + break; + +#if 1 + case 'w': /* Writing mode (for unicode encoding) */ + if (!mrec->enc_name || + strcmp(mrec->enc_name, "unicode")) { + WARN("Fontmap option 'w' meaningless for encoding other than \"unicode\"."); + return -1; + } + q = parse_integer_value(&p, endptr, 10); + if (!q) { + WARN("Missing wmode value..."); + return -1; + } + if (atoi(q) == 1) + mrec->opt.flags |= FONTMAP_OPT_VERT; + else if (atoi(q) == 0) + mrec->opt.flags &= ~FONTMAP_OPT_VERT; + else { + WARN("Invalid value for option 'w': %s", q); + } + RELEASE(q); + break; +#endif + + default: + WARN("Unrecognized font map option: '%c'", mopt); + return -1; + break; + } + skip_blank(&p, endptr); + } + + if (p < endptr && *p != '\r' && *p != '\n') { + WARN("Invalid char in fontmap line: %c", *p); + return -1; + } + + return 0; +} + + + +static struct ht_table *fontmap = NULL; + +#define fontmap_invalid(m) (!(m) || !(m)->map_name || !(m)->font_name) +static char * +chop_sfd_name (const char *tex_name, char **sfd_name) +{ + char *fontname; + char *p, *q; + int m, n, len; + + *sfd_name = NULL; + + p = strchr((char *) tex_name, '@'); + if (!p || + p[1] == '\0' || p == tex_name) { + return NULL; + } + m = (int) (p - tex_name); + p++; + q = strchr(p, '@'); + if (!q || q == p) { + return NULL; + } + n = (int) (q - p); + q++; + + len = strlen(tex_name) - n; + fontname = NEW(len+1, char); + memcpy(fontname, tex_name, m); + fontname[m] = '\0'; + if (*q) + strcat(fontname, q); + + *sfd_name = NEW(n+1, char); + memcpy(*sfd_name, p, n); + (*sfd_name)[n] = '\0'; + + return fontname; +} + +static char * +make_subfont_name (const char *map_name, const char *sfd_name, const char *sub_id) +{ + char *tfm_name; + int n, m; + char *p, *q; + + p = strchr(map_name, '@'); + if (!p || p == map_name) + return NULL; + m = (int) (p - map_name); + q = strchr(p + 1, '@'); + if (!q || q == p + 1) + return NULL; + n = (int) (q - p) + 1; /* including two '@' */ + if (strlen(sfd_name) != n - 2 || + memcmp(p + 1, sfd_name, n - 2)) + return NULL; + tfm_name = NEW(strlen(map_name) - n + strlen(sub_id) + 1, char); + memcpy(tfm_name, map_name, m); + tfm_name[m] = '\0'; + strcat(tfm_name, sub_id); + if (q[1]) /* not ending with '@' */ + strcat(tfm_name, q + 1); + + return tfm_name; +} + +/* "foo@A@ ..." is expanded to + * fooab ... -m sfd:A,ab + * ... + * fooyz ... -m sfd:A,yz + * where 'ab' ... 'yz' is subfont IDs in SFD 'A'. + */ +int +pdf_append_fontmap_record (const char *kp, const fontmap_rec *vp) +{ + fontmap_rec *mrec; + char *fnt_name, *sfd_name = NULL; + + if (!kp || fontmap_invalid(vp)) { + WARN("Invalid fontmap record..."); + return -1; + } + + if (verbose > 3) + MESG("fontmap>> append key=\"%s\"...", kp); + + fnt_name = chop_sfd_name(kp, &sfd_name); + if (fnt_name && sfd_name) { + char *tfm_name; + char **subfont_ids; + int n = 0; + subfont_ids = sfd_get_subfont_ids(sfd_name, &n); + if (!subfont_ids) + return -1; + while (n-- > 0) { + tfm_name = make_subfont_name(kp, sfd_name, subfont_ids[n]); + if (!tfm_name) + continue; + mrec = ht_lookup_table(fontmap, tfm_name, strlen(tfm_name)); + if (!mrec) { + mrec = NEW(1, fontmap_rec); + pdf_init_fontmap_record(mrec); + mrec->map_name = mstrdup(kp); /* link */ + mrec->charmap.sfd_name = mstrdup(sfd_name); + mrec->charmap.subfont_id = mstrdup(subfont_ids[n]); + ht_insert_table(fontmap, tfm_name, strlen(tfm_name), mrec, hval_free); + } + RELEASE(tfm_name); + } + RELEASE(fnt_name); + RELEASE(sfd_name); + } + + mrec = ht_lookup_table(fontmap, kp, strlen(kp)); + if (!mrec) { + mrec = NEW(1, fontmap_rec); + pdf_copy_fontmap_record(mrec, vp); + if (mrec->map_name && !strcmp(kp, mrec->map_name)) { + RELEASE(mrec->map_name); + mrec->map_name = NULL; + } + ht_insert_table(fontmap, kp, strlen(kp), mrec, hval_free); + } + if (verbose > 3) + MESG("\n"); + + return 0; +} + +int +pdf_remove_fontmap_record (const char *kp) +{ + char *fnt_name, *sfd_name = NULL; + + if (!kp) + return -1; + + if (verbose > 3) + MESG("fontmap>> remove key=\"%s\"...", kp); + + fnt_name = chop_sfd_name(kp, &sfd_name); + if (fnt_name && sfd_name) { + char *tfm_name; + char **subfont_ids; + int n = 0; + subfont_ids = sfd_get_subfont_ids(sfd_name, &n); + if (!subfont_ids) + return -1; + if (verbose > 3) + MESG("\nfontmap>> Expand @%s@:", sfd_name); + while (n-- > 0) { + tfm_name = make_subfont_name(kp, sfd_name, subfont_ids[n]); + if (!tfm_name) + continue; + if (verbose > 3) + MESG(" %s", tfm_name); + ht_remove_table(fontmap, tfm_name, strlen(tfm_name), hval_free); + RELEASE(tfm_name); + } + RELEASE(fnt_name); + RELEASE(sfd_name); + } + + ht_remove_table(fontmap, kp, strlen(kp), hval_free); + + if (verbose > 3) + MESG("\n"); + + return 0; +} + +int +pdf_insert_fontmap_record (const char *kp, const fontmap_rec *vp) +{ + fontmap_rec *mrec; + char *fnt_name, *sfd_name; + + if (!kp || fontmap_invalid(vp)) { + WARN("Invalid fontmap record..."); + return -1; + } + + if (verbose > 3) + MESG("fontmap>> insert key=\"%s\"...", kp); + + fnt_name = chop_sfd_name(kp, &sfd_name); + if (fnt_name && sfd_name) { + char *tfm_name; + char **subfont_ids; + int n = 0; + subfont_ids = sfd_get_subfont_ids(sfd_name, &n); + if (!subfont_ids) + return -1; + if (verbose > 3) + MESG("\nfontmap>> Expand @%s@:", sfd_name); + while (n-- > 0) { + tfm_name = make_subfont_name(kp, sfd_name, subfont_ids[n]); + if (!tfm_name) + continue; + if (verbose > 3) + MESG(" %s", tfm_name); + mrec = NEW(1, fontmap_rec); + pdf_init_fontmap_record(mrec); + mrec->map_name = mstrdup(kp); /* link to this entry */ + mrec->charmap.sfd_name = mstrdup(sfd_name); + mrec->charmap.subfont_id = mstrdup(subfont_ids[n]); + ht_insert_table(fontmap, tfm_name, strlen(tfm_name), mrec, hval_free); + RELEASE(tfm_name); + } + RELEASE(fnt_name); + RELEASE(sfd_name); + } + + mrec = NEW(1, fontmap_rec); + pdf_copy_fontmap_record(mrec, vp); + if (mrec->map_name && !strcmp(kp, mrec->map_name)) { + RELEASE(mrec->map_name); + mrec->map_name = NULL; + } + ht_insert_table(fontmap, kp, strlen(kp), mrec, hval_free); + + if (verbose > 3) + MESG("\n"); + + return 0; +} + + +int +pdf_read_fontmap_line (fontmap_rec *mrec, const char *mline, long mline_len) +{ + int error; + char *q, *p, *endptr; + + + ASSERT(mrec); + + p = (char *) mline; + endptr = p + mline_len; + + skip_blank(&p, endptr); + if (p >= endptr) + return -1; + + q = parse_string_value(&p, endptr); + if (!q) + return -1; + + error = fontmap_parse_mapdef(mrec, p, endptr); + if (!error) { + char *fnt_name, *sfd_name = NULL; + fnt_name = chop_sfd_name(q, &sfd_name); + if (fnt_name && sfd_name) { + if (!mrec->font_name) { + /* In the case of subfonts, the base name (before the character '@') + * will be used as a font_name by default. + * Otherwise tex_name will be used as a font_name by default. + */ + mrec->font_name = fnt_name; + } else { + RELEASE(fnt_name); + } + if (mrec->charmap.sfd_name) + RELEASE(mrec->charmap.sfd_name); + mrec->charmap.sfd_name = sfd_name ; + } + fill_in_defaults(mrec, q); + } + RELEASE(q); + + return error; +} + +/* Dvips format: + * String enclosed by '"' --> PostScript code(!) + * '<' or '<<' followed by *.enc, *.pfb, or *.pfa + */ +static int +is_pdfm_mapline (const char *mline) /* NULL terminated. */ +{ + int r = 1; + char *q, *p, *endptr; + + p = (char *) mline; + endptr = p + strlen(mline); + + skip_blank(&p, endptr); + /* Break if '-' preceeded by blanks is found. */ + while (r && p < endptr && *p != '-') { + switch (p[0]) { + case '"': + q = parse_c_string(&p, endptr); /* wrong */ + if (q) { + if (strstr(q, "SlantFont") || + strstr(q, "ExtendFont") || + strstr(q, "ReEncodeFont")) { + r = 0; + } + RELEASE(q); + } + break; + case '<': + r = 0; + break; + } + for ( ; p < endptr && !ISBLANK(*p); p++); + skip_blank(&p, endptr); + } + + return r; +} + +static void +delete_records (FILE *fp, long num_lines) +{ + char *q, *p; + + while (num_lines-- > 0 && + (p = readline(work_buffer, WORK_BUFFER_SIZE, fp)) != NULL) { + skip_blank(&p, p + strlen(p)); + if (*p == 0) + continue; + q = parse_string_value(&p, p + strlen(p)); + if (q) { + WARN("Deleting fontmap record for \"%s\"", q); + pdf_remove_fontmap_record(q); + RELEASE(q); + } + } + return; +} + +int +pdf_load_fontmap_file (const char *filename, int mode) +{ + fontmap_rec *mrec; + FILE *fp; + char *p = NULL, *endptr; + long llen, lpos = 0; + int error = 0; + + ASSERT(filename); + ASSERT(fontmap) ; + + if (verbose) + MESG("map_name, mrec); + break; + case FONTMAP_RMODE_APPEND: + pdf_append_fontmap_record(mrec->map_name, mrec); + break; + case FONTMAP_RMODE_REMOVE: + pdf_remove_fontmap_record(mrec->map_name); + break; + } + } + pdf_clear_fontmap_record(mrec); + RELEASE(mrec); + } + DPXFCLOSE(fp); + + if (verbose) + MESG(">"); + + return error; +} + +#ifdef XETEX + +static int +pdf_insert_native_fontmap_record (const char *name, const char *path, int index, FT_Face face, int layout_dir) +{ + char *fontmap_key; + fontmap_rec *mrec; + + ASSERT(name); + ASSERT(path || face); + + fontmap_key = malloc(strlen(name) + 3); + sprintf(fontmap_key, "%s/%c", name, layout_dir == 0 ? 'H' : 'V'); + + if (verbose) + MESG("map_name = mstrdup(fontmap_key); + mrec->enc_name = mstrdup(layout_dir == 0 ? "Identity-H" : "Identity-V"); + mrec->font_name = (path != NULL) ? mstrdup(path) : NULL; + mrec->opt.index = index; + mrec->opt.ft_face = face; + mrec->opt.glyph_widths = NULL; + if (layout_dir != 0) + mrec->opt.flags |= FONTMAP_OPT_VERT; + + fill_in_defaults(mrec, fontmap_key); + pdf_insert_fontmap_record(mrec->map_name, mrec); + pdf_clear_fontmap_record(mrec); + RELEASE(mrec); + + if (verbose) + MESG(">"); + + return 0; +} + +static FT_Library ftLib; + +static int +pdf_load_native_font_from_path(const char *ps_name, int layout_dir) +{ + const char *p; + char *filename = NEW(strlen(ps_name), char); + char *q = filename; + int index = 0; + FT_Face face = NULL; + int error = -1; + +#ifdef WIN32 + for (p = ps_name + 1; *p && *p != ']'; ++p) { + if (*p == ':') { + if (p == ps_name+2 && isalpha(*(p-1)) && (*(p+1) == '/' || *(p+1) == '\\')) + *q++ = *p; + else + break; + } + else + *q++ = *p; + } +#else + for (p = ps_name + 1; *p && *p != ':' && *p != ']'; ++p) + *q++ = *p; +#endif + *q = 0; + if (*p == ':') { + ++p; + while (*p && *p != ']') + index = index * 10 + *p++ - '0'; + } + + if ( (q = dpx_find_opentype_file(filename)) != NULL + || (q = dpx_find_truetype_file(filename)) != NULL + || (q = dpx_find_type1_file(filename)) != NULL) { + error = FT_New_Face(ftLib, q, index, &face); + RELEASE(q); + } + + if (error == 0) + return pdf_insert_native_fontmap_record(ps_name, filename, index, face, layout_dir); + else + return error; +} + +int +pdf_load_native_font (const char *ps_name, + const char *fam_name, const char *sty_name, + int layout_dir) +{ + static int sInitialized = 0; + int error = -1; + +#ifdef XETEX_MAC + + if (!sInitialized) { + if (FT_Init_FreeType(&ftLib) != 0) { + WARN("FreeType initialization failed."); + return error; + } + sInitialized = 1; + } + + if (ps_name[0] == '[') { + error = pdf_load_native_font_from_path(ps_name, layout_dir); + } + else { + ATSFontRef fontRef; + CFStringRef theName = CFStringCreateWithCStringNoCopy(kCFAllocatorDefault, + ps_name, kCFStringEncodingASCII, kCFAllocatorNull); + fontRef = ATSFontFindFromPostScriptName(theName, kATSOptionFlagsDefault); + CFRelease(theName); + if (fontRef != 0) { + CFStringRef atsName = NULL; + OSStatus status = ATSFontGetName(fontRef, kATSOptionFlagsDefault, &atsName); + if (status == noErr) { + FSSpec pathSpec; + FT_Long index; + int bufferSize = CFStringGetLength(atsName) * 4 + 1; + char* fontName = NEW(bufferSize, char); + if (CFStringGetCString(atsName, fontName, bufferSize, kCFStringEncodingUTF8)) { + FT_Error ftErr = FT_GetFile_From_Mac_ATS_Name(fontName, &pathSpec, &index); + if (ftErr == 0) { + FT_Face face; + ftErr = FT_New_Face_From_FSSpec(ftLib, &pathSpec, index, &face); + if (ftErr == 0) { + error = pdf_insert_native_fontmap_record(ps_name, NULL, 0, face, layout_dir); + } + } + } + RELEASE(fontName); + } + CFRelease(atsName); + } + } + +#else + + int i; + + FcObjectSet *os; + FcPattern *pat; + FcFontSet *matches; + + if (!sInitialized) { + if (FcInit() == FcFalse) { + WARN("Fontconfig initialization failed."); + return error; + } + if (FT_Init_FreeType(&ftLib) != 0) { + WARN("FreeType initialization failed."); + return error; + } + sInitialized = 1; + } + + if (ps_name[0] == '[') { + error = pdf_load_native_font_from_path(ps_name, layout_dir); + } + else { + os = FcObjectSetBuild(FC_FILE, FC_INDEX, FC_FAMILY, FC_STYLE, NULL); + pat = FcPatternBuild(0, FC_FAMILY, FcTypeString, fam_name, + FC_STYLE, FcTypeString, sty_name, + FC_OUTLINE, FcTypeBool, FcTrue, NULL); + matches = FcFontList(FcConfigGetCurrent(), pat, os); + FcObjectSetDestroy(os); + FcPatternDestroy(pat); + + for (i = 0; i < matches->nfont; i++) { + FcChar8 *path; + char *name; + int index; + FT_Face face; + if (FcPatternGetString(matches->fonts[i], + FC_FILE, 0, &path) == FcResultMatch && + FcPatternGetInteger(matches->fonts[i], + FC_INDEX, 0, &index) == FcResultMatch) { + FT_New_Face(ftLib, (char*)path, index, &face); + name = (char *)FT_Get_Postscript_Name(face); + if (!strcmp(name, ps_name)) { + error = pdf_insert_native_fontmap_record(ps_name, (char*)path, index, face, layout_dir); + /* don't dispose of the FT_Face, as we'll be using it to retrieve font data */ + break; + } + FT_Done_Face(face); + } + } + } + +#endif + + return error; +} +#endif + +#if 0 +/* tfm_name="dmjhira10", map_name="dmj@DNP@10", sfd_name="DNP" + * --> sub_id="hira" + * Test if tfm_name can be really considered as subfont. + */ +static int +test_subfont (const char *tfm_name, const char *map_name, const char *sfd_name) +{ + int r = 0; + char **ids; + int n, m; + char *p = (char *) map_name; + char *q = (char *) tfm_name; + + ASSERT( tfm_name && map_name && sfd_name ); + + /* until first occurence of '@' */ + for ( ; *p && *q && *p == *q && *p != '@'; p++, q++); + if (*p != '@') + return 0; + p++; + /* compare sfd_name (should be always true here) */ + if (strlen(p) <= strlen(sfd_name) || + memcmp(p, sfd_name, strlen(sfd_name)) || + p[strlen(sfd_name)] != '@') + return 0; + /* check tfm_name follows second '@' */ + p += strlen(sfd_name) + 1; + if (*p) { + char *r = (char *) tfm_name; + r += strlen(tfm_name) - strlen(p); + if (strcmp(r, p)) + return 0; + } + /* Now 'p' is located at next to SFD name terminator + * (second '@') in map_name and 'q' is at first char + * of subfont_id substring in tfm_name. + */ + n = strlen(q) - strlen(p); /* length of subfont_id string */ + if (n <= 0) + return 0; + /* check if n-length substring 'q' is valid as subfont ID */ + ids = sfd_get_subfont_ids(sfd_name, &m); + if (!ids) + return 0; + while (!r && m-- > 0) { + if (strlen(ids[m]) == n && + !memcmp(q, ids[m], n)) { + r = 1; + } + } + + return r; +} +#endif /* 0 */ + + +fontmap_rec * +pdf_lookup_fontmap_record (const char *tfm_name) +{ + fontmap_rec *mrec = NULL; + + if (fontmap && tfm_name) + mrec = ht_lookup_table(fontmap, tfm_name, strlen(tfm_name)); + + return mrec; +} + + +void +pdf_init_fontmaps (void) +{ + fontmap = NEW(1, struct ht_table); + ht_init_table(fontmap); +} + +void +pdf_close_fontmaps (void) +{ + if (fontmap) { + ht_clear_table(fontmap, hval_free); + RELEASE(fontmap); + } + fontmap = NULL; +} + +void +pdf_clear_fontmaps (void) +{ + pdf_close_fontmaps(); + pdf_init_fontmaps(); +} + +/* CIDFont options + * + * FORMAT: + * + * (:int:)?!?string(/string)?(,string)? + */ + +static char * +substr (char **str, char stop) +{ + char *sstr, *endptr; + + endptr = strchr(*str, stop); + if (!endptr || endptr == *str) + return NULL; + sstr = NEW(endptr-(*str)+1, char); + memcpy(sstr, *str, endptr-(*str)); + sstr[endptr-(*str)] = '\0'; + + *str = endptr+1; + return sstr; +} + +#include +#define CID_MAPREC_CSI_DELIM '/' + +static char * +strip_options (const char *map_name, fontmap_opt *opt) +{ + char *font_name; + char *p, *next = NULL; + int have_csi = 0, have_style = 0; + + ASSERT(opt); + + p = (char *) map_name; + font_name = NULL; + opt->charcoll = NULL; + opt->index = 0; + opt->style = FONTMAP_STYLE_NONE; + opt->flags = 0; + + if (*p == ':' && isdigit(*(p+1))) { + opt->index = (int) strtoul(p+1, &next, 10); + if (*next == ':') + p = next + 1; + else { + opt->index = 0; + } + } + if (*p == '!') { /* no-embedding */ + if (*(++p) == '\0') + ERROR("Invalid map record: %s (--> %s)", map_name, p); + opt->flags |= FONTMAP_OPT_NOEMBED; + } + + if ((next = strchr(p, CID_MAPREC_CSI_DELIM)) != NULL) { + if (next == p) + ERROR("Invalid map record: %s (--> %s)", map_name, p); + font_name = substr(&p, CID_MAPREC_CSI_DELIM); + have_csi = 1; + } else if ((next = strchr(p, ',')) != NULL) { + if (next == p) + ERROR("Invalid map record: %s (--> %s)", map_name, p); + font_name = substr(&p, ','); + have_style = 1; + } else { + font_name = NEW(strlen(p)+1, char); + strcpy(font_name, p); + } + + if (have_csi) { + if ((next = strchr(p, ',')) != NULL) { + opt->charcoll = substr(&p, ','); + have_style = 1; + } else if (p[0] == '\0') { + ERROR("Invalid map record: %s.", map_name); + } else { + opt->charcoll = NEW(strlen(p)+1, char); + strcpy(opt->charcoll, p); + } + } + + if (have_style) { + if (!strncmp(p, "BoldItalic", 10)) { + if (*(p+10)) + ERROR("Invalid map record: %s (--> %s)", map_name, p); + opt->style = FONTMAP_STYLE_BOLDITALIC; + } else if (!strncmp(p, "Bold", 4)) { + if (*(p+4)) + ERROR("Invalid map record: %s (--> %s)", map_name, p); + opt->style = FONTMAP_STYLE_BOLD; + } else if (!strncmp(p, "Italic", 6)) { + if (*(p+6)) + ERROR("Invalid map record: %s (--> %s)", map_name, p); + opt->style = FONTMAP_STYLE_ITALIC; + } + } + + return font_name; +} + +#if DPXTEST +static void +dump_fontmap_rec (const char *key, const fontmap_rec *mrec) +{ + fontmap_opt *opt = (fontmap_opt *) &mrec->opt; + + if (mrec->map_name) + fprintf(stdout, " \n"); + else + fprintf(stdout, " />\n"); +} + +void +dump_fontmaps (void) +{ + struct ht_iter iter; + fontmap_rec *mrec; + char key[128], *kp; + int kl; + + if (!fontmap) + return; + + fprintf(stdout, "\n"); + fprintf(stdout, "\n"); + fprintf(stdout, "\n", "foo"); + if (ht_set_iter(fontmap, &iter) == 0) { + do { + kp = ht_iter_getkey(&iter, &kl); + mrec = ht_iter_getval(&iter); + if (kl > 127) + continue; + memcpy(key, kp, kl); key[kl] = 0; + dump_fontmap_rec(key, mrec); + } while (!ht_iter_next(&iter)); + } + ht_clear_iter(&iter); + fprintf(stdout, "\n"); + + return; +} + +void +test_fontmap_help (void) +{ + fprintf(stdout, "usage: fontmap [options] [mapfile...]\n"); + fprintf(stdout, "-l, --lookup string\n"); + fprintf(stdout, " Lookup fontmap entry for 'string' after loading mapfile(s).\n"); +} + +int +test_fontmap_main (int argc, char *argv[]) +{ + int i; + char *key = NULL; + + for (;;) { + int c, optidx = 0; + static struct option long_options[] = { + {"lookup", 1, 0, 'l'}, + {"help", 0, 0, 'h'}, + {0, 0, 0, 0} + }; + c = getopt_long(argc, argv, "l:h", long_options, &optidx); + if (c == -1) + break; + + switch (c) { + case 'l': + key = optarg; + break; + case 'h': + test_fontmap_help(); + return 0; + break; + default: + test_fontmap_help(); + return -1; + break; + } + } + + pdf_init_fontmaps(); + for (i = optind; i < argc; i++) + pdf_load_fontmap_file(argv[i], FONTMAP_RMODE_REPLACE); + + if (key == NULL) + dump_fontmaps(); + else { + fontmap_rec *mrec; + mrec = pdf_lookup_fontmap_record(key); + if (mrec) + dump_fontmap_rec(key, mrec); + else { + WARN("Fontmap entry \"%s\" not found.", key); + } + } + pdf_close_fontmaps(); + + return 0; +} +#endif /* DPXTEST */ diff --git a/Build/source/texk/xdvipdfmx/src/fontmap.h b/Build/source/texk/xdvipdfmx/src/fontmap.h new file mode 100644 index 00000000000..4069cf69e52 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/fontmap.h @@ -0,0 +1,107 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/fontmap.h,v 1.19 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _FONTMAP_H_ +#define _FONTMAP_H_ + +#define FONTMAP_RMODE_REPLACE 0 +#define FONTMAP_RMODE_APPEND '+' +#define FONTMAP_RMODE_REMOVE '-' + +#define FONTMAP_OPT_REMAP (1 << 0) +#define FONTMAP_OPT_NOEMBED (1 << 1) +#define FONTMAP_OPT_VERT (1 << 2) + +#define FONTMAP_STYLE_NONE 0 +#define FONTMAP_STYLE_BOLD 1 +#define FONTMAP_STYLE_ITALIC 2 +#define FONTMAP_STYLE_BOLDITALIC 3 + +#ifdef XETEX +#include "ft2build.h" +#include FT_FREETYPE_H +#endif + +/* Options */ +typedef struct fontmap_opt { + /* Synthetic font */ + double slant, extend, bold; + /* comaptibility and other flags */ + long mapc, flags; + + char *otl_tags; /* currently unused */ + char *tounicode; /* not implemented yet */ + + double design_size; /* unused */ + + char *charcoll; /* Adobe-Japan1-4, etc. */ + int index; /* TTC index */ + int style; /* ,Bold, etc. */ +#ifdef XETEX + FT_Face ft_face; + unsigned short *glyph_widths; +#endif +} fontmap_opt; + +typedef struct fontmap_rec { + char *map_name; + + char *font_name; + char *enc_name; + + /* Subfont mapping: translate 8-bit charcode to 16-bit charcode + * via SFD. + */ + struct { + char *sfd_name; + char *subfont_id; + } charmap; + + fontmap_opt opt; +} fontmap_rec; + +extern void pdf_fontmap_set_verbose (void); + +extern void pdf_init_fontmaps (void); +extern void pdf_clear_fontmaps (void); +extern void pdf_close_fontmaps (void); + +extern void pdf_init_fontmap_record (fontmap_rec *mrec); +extern void pdf_clear_fontmap_record (fontmap_rec *mrec); + +extern int pdf_load_fontmap_file (const char *filename, int mode); +extern int pdf_read_fontmap_line (fontmap_rec *mrec, + const char *mline, long mline_strlen); + +extern int pdf_append_fontmap_record (const char *kp, const fontmap_rec *mrec); +extern int pdf_remove_fontmap_record (const char *kp); +extern int pdf_insert_fontmap_record (const char *kp, const fontmap_rec *mrec); +extern fontmap_rec *pdf_lookup_fontmap_record (const char *kp); +#ifdef XETEX +extern int pdf_load_native_font (const char *ps_name, + const char *fam_name, const char *sty_name, + int layout_dir); +#endif + +#endif /* _FONTMAP_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/jpegimage.c b/Build/source/texk/xdvipdfmx/src/jpegimage.c new file mode 100644 index 00000000000..a5f1986815c --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/jpegimage.c @@ -0,0 +1,749 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/jpegimage.c,v 1.8 2004/09/05 13:30:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +/* + * JPEG SUPPORT + * + * Accroding to Libjpeg document: + * + * CAUTION: it appears that Adobe Photoshop writes inverted data in CMYK + * JPEG files: 0 represents 100% ink coverage, rather than 0% ink as you'd + * expect.... + * + * To wrok with this problem, we must detect whether CMYK JPEG file is + * created by Photoshop. But there are no reliable way to determine this. + * + * According to Adobe Technical Note #5516, + * "Supporting the DCT Filters in PostScript Level 2", Section 18, p.27. + * + * DCTDecode ignores and skips any APPE marker segment does not begin with + * the `Adobe' 5-character string. + * + * PDF Reference Manual 4th ed., p.61-62. + * + * The JPEG filter implementation in Adobe Acrobat products does not + * support features of the JPEG standard that are irrelevant to images. + * In addition, certain choices have been made regarding reserved marker + * codes and other optional features of the standard. For details, see + * Adobe Technical Note #5116, Supporting the DCT Filters in PostScript + * Level 2. + */ + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "mfileio.h" +#include "numbers.h" + +#include "pdfobj.h" + +#include "jpegimage.h" +#include "pdfcolor.h" + +#include "pdfximage.h" + +#define JPEG_DEBUG_STR "JPEG" +#define JPEG_DEBUG 3 + +#ifdef HAVE_LIBJPEG +#include +#endif /* HAVE_LIBJPEG */ + +/* JPEG Markers */ +typedef enum { + JM_SOF0 = 0xc0, + JM_SOF1 = 0xc1, + JM_SOF2 = 0xc2, + JM_SOF3 = 0xc3, + JM_SOF5 = 0xc5, + JM_DHT = 0xc4, + JM_SOF6 = 0xc6, + JM_SOF7 = 0xc7, + JM_SOF9 = 0xc9, + JM_SOF10 = 0xca, + JM_SOF11 = 0xcb, + JM_DAC = 0xcc, + JM_SOF13 = 0xcd, + JM_SOF14 = 0xce, + JM_SOF15 = 0xcf, + + JM_RST0 = 0xd0, + JM_RST1 = 0xd1, + JM_RST2 = 0xd2, + JM_RST3 = 0xd3, + JM_RST4 = 0xd4, + JM_RST5 = 0xd5, + JM_RST6 = 0xd6, + JM_RST7 = 0xd7, + + JM_SOI = 0xd8, + JM_EOI = 0xd9, + JM_SOS = 0xda, + JM_DQT = 0xdb, + JM_DNL = 0xdc, + JM_DRI = 0xdd, + JM_DHP = 0xde, + JM_EXP = 0xdf, + + JM_APP0 = 0xe0, + JM_APP2 = 0xe2, + JM_APP14 = 0xee, + JM_APP15 = 0xef, + + JM_COM = 0xfe +} JPEG_marker; + +typedef enum { + JS_APPn_JFIF, + JS_APPn_ADOBE, + JS_APPn_ICC +} JPEG_APPn_sig; + +struct JPEG_APPn_JFIF /* APP0 */ +{ + unsigned short version; + unsigned char units; /* 0: only aspect ratio + * 1: dots per inch + * 2: dots per cm + */ + unsigned short Xdensity; + unsigned short Ydensity; + unsigned char Xthumbnail; + unsigned char Ythumbnail; + unsigned char *thumbnail; /* Thumbnail data. */ +}; + +struct JPEG_APPn_ICC /* APP2 */ +{ + unsigned char seq_id; + unsigned char num_chunks; + unsigned char *chunk; + + /* Length of ICC profile data in this chunk. */ + unsigned short length; +}; + +struct JPEG_APPn_Adobe /* APP14 */ +{ + unsigned short version; + unsigned short flag0; + unsigned short flag1; + unsigned char transform; /* color transform code */ +}; + +struct JPEG_ext +{ + JPEG_marker marker; + JPEG_APPn_sig app_sig; + void *app_data; +}; + +#define MAX_COUNT 1024 +struct JPEG_info +{ + unsigned short height; + unsigned short width; + + unsigned char bits_per_component; + unsigned char num_components; + + double xdpi; + double ydpi; + + /* Application specific extensions */ + int flags; + int num_appn, max_appn; + struct JPEG_ext *appn; + + /* Skip chunks not necessary. */ + char skipbits[MAX_COUNT / 8 + 1]; +}; + +#define HAVE_APPn_JFIF (1 << 0) +#define HAVE_APPn_ADOBE (1 << 1) +#define HAVE_APPn_ICC (1 << 2) + +static int JPEG_scan_file (struct JPEG_info *j_info, FILE *fp); +static int JPEG_copy_stream (struct JPEG_info *j_info, + pdf_obj *stream, FILE *fp, int flags); /* flags unused yet */ + +static void JPEG_info_init (struct JPEG_info *j_info); +static void JPEG_info_clear (struct JPEG_info *j_info); +static pdf_obj *JPEG_get_iccp (struct JPEG_info *j_info); + +int +check_for_jpeg (FILE *fp) +{ + unsigned char jpeg_sig[2]; + + rewind(fp); + if (fread(jpeg_sig, sizeof(unsigned char), 2, fp) != 2) + return 0; + else if (jpeg_sig[0] != 0xff || jpeg_sig[1] != JM_SOI) + return 0; + + return 1; +} + +int +jpeg_include_image (pdf_ximage *ximage, FILE *fp) +{ + pdf_obj *stream; + pdf_obj *stream_dict; + pdf_obj *colorspace; + int colortype; + ximage_info info; + struct JPEG_info j_info; + + if (!check_for_jpeg(fp)) { + WARN("%s: Not a JPEG file?", JPEG_DEBUG_STR); + rewind(fp); + return -1; + } + /* File position is 2 here... */ + + pdf_ximage_init_image_info(&info); + + JPEG_info_init(&j_info); + + if (JPEG_scan_file(&j_info, fp) < 0) { + WARN("%s: Not a JPEG file?", JPEG_DEBUG_STR); + JPEG_info_clear(&j_info); + return -1; + } + + switch (j_info.num_components) { + case 1: + colortype = PDF_COLORSPACE_TYPE_GRAY; + break; + case 3: + colortype = PDF_COLORSPACE_TYPE_RGB; + break; + case 4: + colortype = PDF_COLORSPACE_TYPE_CMYK; + break; + default: + WARN("%s: Unknown color space (num components: %d)", + JPEG_DEBUG_STR, info.num_components); + JPEG_info_clear(&j_info); + return -1; + } + + /* JPEG image use DCTDecode. */ + stream = pdf_new_stream (0); + stream_dict = pdf_stream_dict(stream); + pdf_add_dict(stream_dict, + pdf_new_name("Filter"), pdf_new_name("DCTDecode")); + + colorspace = NULL; + if (j_info.flags & HAVE_APPn_ICC) { + pdf_obj *icc_stream, *intent; + + icc_stream = JPEG_get_iccp(&j_info); + + if (!icc_stream) + colorspace = NULL; + else { + int cspc_id; + + if (iccp_check_colorspace(colortype, + pdf_stream_dataptr(icc_stream), + pdf_stream_length (icc_stream)) < 0) + colorspace = NULL; + else { + cspc_id = iccp_load_profile(NULL, /* noname */ + pdf_stream_dataptr(icc_stream), + pdf_stream_length (icc_stream)); + if (cspc_id < 0) + colorspace = NULL; + else { + colorspace = pdf_get_colorspace_reference(cspc_id); + intent = iccp_get_rendering_intent(pdf_stream_dataptr(icc_stream), + pdf_stream_length (icc_stream)); + if (intent) + pdf_add_dict(stream_dict, pdf_new_name("Intent"), intent); + } + } + pdf_release_obj(icc_stream); + } + } + + /* No ICC or invalid ICC profile. */ + if (!colorspace) { + switch (colortype) { + case PDF_COLORSPACE_TYPE_GRAY: + colorspace = pdf_new_name("DeviceGray"); + break; + case PDF_COLORSPACE_TYPE_RGB: + colorspace = pdf_new_name("DeviceRGB"); + break; + case PDF_COLORSPACE_TYPE_CMYK: + colorspace = pdf_new_name("DeviceCMYK"); + break; + } + } + pdf_add_dict(stream_dict, pdf_new_name("ColorSpace"), colorspace); + +#define IS_ADOBE_CMYK(j) (((j).flags & HAVE_APPn_ADOBE) && (j).num_components == 4) + + if (IS_ADOBE_CMYK(j_info)) { + pdf_obj *decode; + int i; + + WARN("Adobe CMYK JPEG: Inverted color assumed."); + decode = pdf_new_array(); + for (i = 0; i < j_info.num_components; i++) { + pdf_add_array(decode, pdf_new_number(1.0)); + pdf_add_array(decode, pdf_new_number(0.0)); + } + pdf_add_dict(stream_dict, pdf_new_name("Decode"), decode); + } + + /* Copy file */ + JPEG_copy_stream(&j_info, stream, fp, 0); + + info.width = j_info.width; + info.height = j_info.height; + info.bits_per_component = j_info.bits_per_component; + info.num_components = j_info.num_components; + + info.xdpi = j_info.xdpi; + info.ydpi = j_info.ydpi; + + pdf_ximage_set_image(ximage, &info, stream); + JPEG_info_clear(&j_info); + + return 0; +} + +static void +JPEG_info_init (struct JPEG_info *j_info) +{ + j_info->width = 0; + j_info->height = 0; + j_info->bits_per_component = 0; + j_info->num_components = 0; + + j_info->xdpi = 0; + j_info->ydpi = 0; + + j_info->flags = 0; + j_info->num_appn = 0; + j_info->max_appn = 0; + j_info->appn = NULL; + + memset(j_info->skipbits, 0, MAX_COUNT / 8 + 1); +} + +static void +JPEG_release_APPn_data (JPEG_marker marker, JPEG_APPn_sig app_sig, void *app_data) +{ + if (marker == JM_APP0 && + app_sig == JS_APPn_JFIF) { + struct JPEG_APPn_JFIF *data; + + data = (struct JPEG_APPn_JFIF *) app_data; + if (data->thumbnail) + RELEASE(data->thumbnail); + data->thumbnail = NULL; + + RELEASE(data); + } else if (marker == JM_APP2 && + app_sig == JS_APPn_ICC) { + struct JPEG_APPn_ICC *data; + + data = (struct JPEG_APPn_ICC *) app_data; + if (data->chunk) + RELEASE(data->chunk); + data->chunk = NULL; + + RELEASE(data); + } else if (marker == JM_APP14 && + app_sig == JS_APPn_ADOBE) { + struct JPEG_APPn_Adobe *data; + + data = (struct JPEG_APPn_Adobe *) app_data; + + RELEASE(data); + } +} + +static void +JPEG_info_clear (struct JPEG_info *j_info) +{ + if (j_info->num_appn > 0 && + j_info->appn != NULL) { + int i; + + for (i = 0; i < j_info->num_appn; i++) + JPEG_release_APPn_data(j_info->appn[i].marker, + j_info->appn[i].app_sig, j_info->appn[i].app_data); + RELEASE(j_info->appn); + } + j_info->appn = NULL; + j_info->num_appn = 0; + j_info->max_appn = 0; + j_info->flags = 0; +} + +static pdf_obj * +JPEG_get_iccp (struct JPEG_info *j_info) +{ + pdf_obj *icc_stream; + struct JPEG_APPn_ICC *icc; + int i, prev_id = 0, num_icc_seg = -1; + + icc_stream = pdf_new_stream(STREAM_COMPRESS); + for (i = 0; i < j_info->num_appn; i++) { + if (j_info->appn[i].marker != JM_APP2 || + j_info->appn[i].app_sig != JS_APPn_ICC) + continue; + icc = (struct JPEG_APPn_ICC *) j_info->appn[i].app_data; + if (num_icc_seg < 0 && prev_id == 0) { + num_icc_seg = icc->num_chunks; + /* ICC chunks are sorted? */ + } else if (icc->seq_id != prev_id + 1 || + num_icc_seg != icc->num_chunks || + icc->seq_id > icc->num_chunks) { + WARN("Invalid JPEG ICC chunk: %d (p:%d, n:%d)", + icc->seq_id, prev_id, icc->num_chunks); + pdf_release_obj(icc_stream); + icc_stream = NULL; + break; + } + pdf_add_stream(icc_stream, icc->chunk, icc->length); + prev_id = icc->seq_id; + num_icc_seg = icc->num_chunks; + } + + return icc_stream; +} + +static JPEG_marker +JPEG_get_marker (FILE *fp) +{ + int c; + + c = fgetc(fp); + if (c != 255) + return -1; + + for (;;) { + c = fgetc(fp); + if (c < 0) + return -1; + else if (c > 0 && c < 255) { + return c; + } + } + + return -1; +} + +static int +add_APPn_marker (struct JPEG_info *j_info, + JPEG_marker marker, int app_sig, void *app_data) +{ + int n; + + if (j_info->num_appn >= j_info->max_appn) { + j_info->max_appn += 16; + j_info->appn = RENEW(j_info->appn, j_info->max_appn, struct JPEG_ext); + } + n = j_info->num_appn; + + j_info->appn[n].marker = marker; + j_info->appn[n].app_sig = app_sig; + j_info->appn[n].app_data = app_data; + + j_info->num_appn += 1; + + return n; +} + +static unsigned short +read_APP14_Adobe (struct JPEG_info *j_info, FILE *fp, unsigned short length) +{ + struct JPEG_APPn_Adobe *app_data; + + app_data = NEW(1, struct JPEG_APPn_Adobe); + app_data->version = get_unsigned_pair(fp); + app_data->flag0 = get_unsigned_pair(fp); + app_data->flag1 = get_unsigned_pair(fp); + app_data->transform = get_unsigned_byte(fp); + + add_APPn_marker(j_info, JM_APP14, JS_APPn_ADOBE, app_data); + + return 7; +} + +static unsigned short +read_APP0_JFIF (struct JPEG_info *j_info, FILE *fp, unsigned short length) +{ + struct JPEG_APPn_JFIF *app_data; + unsigned short thumb_data_len; + + app_data = NEW(1, struct JPEG_APPn_JFIF); + app_data->version = get_unsigned_pair(fp); + app_data->units = get_unsigned_byte(fp); + app_data->Xdensity = get_unsigned_pair(fp); + app_data->Ydensity = get_unsigned_pair(fp); + app_data->Xthumbnail = get_unsigned_byte(fp); + app_data->Ythumbnail = get_unsigned_byte(fp); + thumb_data_len = 3 * app_data->Xthumbnail * app_data->Ythumbnail; + if (thumb_data_len > 0) { + app_data->thumbnail = NEW(thumb_data_len, unsigned char); + fread(app_data->thumbnail, 1, thumb_data_len, fp); + } else { + app_data->thumbnail = NULL; + } + + add_APPn_marker(j_info, JM_APP0, JS_APPn_JFIF, app_data); + + switch (app_data->units) { + case 1: + j_info->xdpi = app_data->Xdensity; + j_info->ydpi = app_data->Ydensity; + break; + case 2: /* density is in pixels per cm */ + j_info->xdpi = app_data->Xdensity * 2.54; + j_info->ydpi = app_data->Ydensity * 2.54; + break; + default: /* FIXME: not sure what to do with this.... */ + j_info->xdpi = 72.0; + j_info->ydpi = 72.0 * app_data->Ydensity / app_data->Xdensity; + break; + } + + return (9 + thumb_data_len); +} + +static unsigned short +read_APP0_JFXX (struct JPEG_info *j_info, FILE *fp, unsigned short length) +{ + unsigned char extension_code; + + extension_code = get_unsigned_byte(fp); + /* Extension Code: + * + * 0x10: Thumbnail coded using JPEG + * 0x11: Thumbnail stored using 1 byte/pixel + * 0x13: Thumbnail stored using 3 bytes/pixel + */ + seek_relative(fp, length-1); /* Thunbnail image */ + + /* Ignore */ + + return length; +} + +static unsigned short +read_APP2_ICC (struct JPEG_info *j_info, FILE *fp, unsigned short length) +{ + struct JPEG_APPn_ICC *app_data; + + app_data = NEW(1, struct JPEG_APPn_ICC); + app_data->seq_id = get_unsigned_byte(fp); /* Starting at 1 */ + app_data->num_chunks = get_unsigned_byte(fp); + app_data->length = length - 2; + app_data->chunk = NEW(app_data->length, unsigned char); + fread(app_data->chunk, 1, app_data->length, fp); + + add_APPn_marker(j_info, JM_APP2, JS_APPn_ICC, app_data); + + return length; +} + +static int +JPEG_copy_stream (struct JPEG_info *j_info, + pdf_obj *stream, FILE *fp, int flags) /* flags unused yet */ +{ + JPEG_marker marker; + long length, nb_read; + int found_SOFn, count; + + rewind(fp); + count = 0; + found_SOFn = 0; + while (!found_SOFn && + count < MAX_COUNT && + (marker = JPEG_get_marker(fp)) >= 0) { + if (marker == JM_SOI || + (marker >= JM_RST0 && marker <= JM_RST7)) { + work_buffer[0] = (char) 0xff; + work_buffer[1] = (char) marker; + pdf_add_stream(stream, work_buffer, 2); + count++; + continue; + } + length = get_unsigned_pair(fp) - 2; + switch (marker) { + case JM_SOF0: case JM_SOF1: case JM_SOF2: case JM_SOF3: + case JM_SOF5: case JM_SOF6: case JM_SOF7: case JM_SOF9: + case JM_SOF10: case JM_SOF11: case JM_SOF13: case JM_SOF14: + case JM_SOF15: + work_buffer[0] = (char) 0xff; + work_buffer[1] = (char) marker; + work_buffer[2] = ((length + 2) >> 8) & 0xff; + work_buffer[3] = (length + 2) & 0xff; + pdf_add_stream(stream, work_buffer, 4); + while (length > 0) { + nb_read = fread(work_buffer, sizeof(char), + MIN(length, WORK_BUFFER_SIZE), fp); + if (nb_read > 0) + pdf_add_stream(stream, work_buffer, nb_read); + length -= nb_read; + } + found_SOFn = 1; + break; + default: + if (j_info->skipbits[count / 8] & (1 << (7 - (count % 8)))) { + /* skip */ + while (length > 0) { + nb_read = fread(work_buffer, sizeof(char), + MIN(length, WORK_BUFFER_SIZE), fp); + length -= nb_read; + } + } else { + work_buffer[0] = (char) 0xff; + work_buffer[1] = (char) marker; + work_buffer[2] = ((length + 2) >> 8) & 0xff; + work_buffer[3] = (length + 2) & 0xff; + pdf_add_stream(stream, work_buffer, 4); + while (length > 0) { + nb_read = fread(work_buffer, sizeof(char), + MIN(length, WORK_BUFFER_SIZE), fp); + if (nb_read > 0) + pdf_add_stream(stream, work_buffer, nb_read); + length -= nb_read; + } + } + } + count++; + } + + while ((length = fread(work_buffer, + sizeof(char), WORK_BUFFER_SIZE, fp)) > 0) { + pdf_add_stream(stream, work_buffer, length); + } + + return (found_SOFn ? 0 : -1); +} + +static int +JPEG_scan_file (struct JPEG_info *j_info, FILE *fp) +{ + JPEG_marker marker; + unsigned short length; + int found_SOFn, count; + char app_sig[128]; + + rewind(fp); + count = 0; + found_SOFn = 0; + while (!found_SOFn && + (marker = JPEG_get_marker(fp)) >= 0) { + if (marker == JM_SOI || + (marker >= JM_RST0 && marker <= JM_RST7)) { + count++; + continue; + } + length = get_unsigned_pair(fp) - 2; + switch (marker) { + case JM_SOF0: case JM_SOF1: case JM_SOF2: case JM_SOF3: + case JM_SOF5: case JM_SOF6: case JM_SOF7: case JM_SOF9: + case JM_SOF10: case JM_SOF11: case JM_SOF13: case JM_SOF14: + case JM_SOF15: + j_info->bits_per_component = get_unsigned_byte(fp); + j_info->height = get_unsigned_pair(fp); + j_info->width = get_unsigned_pair(fp); + j_info->num_components = get_unsigned_byte(fp); + found_SOFn = 1; + break; + case JM_APP0: + if (length > 5) { + if (fread(app_sig, sizeof(char), 5, fp) != 5) + return -1; + length -= 5; + if (!memcmp(app_sig, "JFIF\000", 5)) { + j_info->flags |= HAVE_APPn_JFIF; + length -= read_APP0_JFIF(j_info, fp, length); + } else if (!memcmp(app_sig, "JFXX", 5)) { + length -= read_APP0_JFXX(j_info, fp, length); + } + } + seek_relative(fp, length); + break; + case JM_APP2: + if (length >= 14) { + if (fread(app_sig, sizeof(char), 12, fp) != 12) + return -1; + length -= 12; + if (!memcmp(app_sig, "ICC_PROFILE\000", 12)) { + j_info->flags |= HAVE_APPn_ICC; + length -= read_APP2_ICC(j_info, fp, length); + if (count < MAX_COUNT) { + j_info->skipbits[count / 8] |= (1 << (7 - (count % 8))); + } + } + } + seek_relative(fp, length); + break; + case JM_APP14: + if (length > 5) { + if (fread(app_sig, sizeof(char), 5, fp) != 5) + return -1; + length -= 5; + if (!memcmp(app_sig, "Adobe", 5)) { + j_info->flags |= HAVE_APPn_ADOBE; + length -= read_APP14_Adobe(j_info, fp, length); + } else { + if (count < MAX_COUNT) { + j_info->skipbits[count/8] |= (1 << (7 - (count % 8))); + } + } + } + seek_relative(fp, length); + break; + default: + seek_relative(fp, length); + if (marker >= JM_APP0 && + marker <= JM_APP15) { + if (count < MAX_COUNT) { + j_info->skipbits[count / 8] |= (1 << (7 - (count % 8))); + } + } + break; + } + count++; + } + + return (found_SOFn ? 0 : -1); +} diff --git a/Build/source/texk/xdvipdfmx/src/jpegimage.h b/Build/source/texk/xdvipdfmx/src/jpegimage.h new file mode 100644 index 00000000000..a47da0c0434 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/jpegimage.h @@ -0,0 +1,36 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/jpegimage.h,v 1.2 2004/03/11 11:50:21 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _JPEGIMAGE_H_ +#define _JPEGIMAGE_H_ + +#include "mfileio.h" +#include "pdfximage.h" + +extern int check_for_jpeg (FILE *fp); +extern int jpeg_include_image (pdf_ximage *ximage, FILE *fp); + +#endif /* _JPEGIMAGE_H_ */ + + diff --git a/Build/source/texk/xdvipdfmx/src/mem.c b/Build/source/texk/xdvipdfmx/src/mem.c new file mode 100644 index 00000000000..382f0dd8e81 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/mem.c @@ -0,0 +1,94 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/mem.c,v 1.3 2002/10/30 02:27:11 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include + +#include "mem.h" + +#ifdef MEM_DEBUG +FILE *debugfile = NULL; +static long int event = 0; +#endif /* MEM_DEBUG */ + +#ifdef MEM_DEBUG +void mem_debug_init(void) +{ + if (debugfile == NULL) { + debugfile = fopen ("malloc.log", "w"); + fprintf (stderr, "*** Memory Debugging Log started ***\n"); + } +} +#endif /* MEM_DEBUG */ + +void *new (size_t size, char *function, int line) +{ + void *result; + if ((result = malloc (size)) == NULL) { + fprintf (stderr, "Out of memory in %s:%d\n", function, line); + fprintf (stderr, "Asked for %lu\n", (unsigned long) size); + exit (1); + } + +#ifdef MEM_DEBUG + mem_debug_init(); + event += 1; + fprintf (debugfile, "%p %07ld [new] %s:%d\n", result, event, function, line); +#endif /* MEM_DEBUG */ + + return result; +} + +void *renew (void *mem, size_t size, char *function, int line) +{ + void *result; +#ifdef MEM_DEBUG + mem_debug_init(); + event += 1; + if (mem) + fprintf (debugfile, "%p %07ld [fre] %s:%d\n", mem, + event, function, line); +#endif /* MEM_DEBUG */ + if ((result = realloc (mem, size)) == NULL) { + fprintf (stderr, "Out of memory!\n"); + exit (1); + } +#ifdef MEM_DEBUG + if (result) + fprintf (debugfile, "%p %07ld [new] %s:%d\n", result, event, function, line); +#endif /* MEM_DEBUG */ + return result; +} + +void release (void *mem, char *function, int line) +{ + +#ifdef MEM_DEBUG + mem_debug_init(); + event += 1; + fprintf (debugfile, "%p %07ld [fre] %s:%d\n", mem, event, function, line); +#endif /* MEM_DEBUG */ + + free (mem); +} diff --git a/Build/source/texk/xdvipdfmx/src/mem.h b/Build/source/texk/xdvipdfmx/src/mem.h new file mode 100644 index 00000000000..da690d4c588 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/mem.h @@ -0,0 +1,50 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/mem.h,v 1.3 2002/10/30 02:27:11 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _MEM_H_ +#define _MEM_H_ + +#include + +extern void *new (size_t size, char *function, int line); +extern void *renew (void *p, size_t size, char *function, int line); +extern void release (void *mem, char *function, int line); + +#ifdef MEM_DEBUG +extern void mem_debug_init(void); +extern FILE *debugfile; +#define NEW(n,type) (type *)(new (((size_t) (n))*sizeof(type),__FUNCTION__,__LINE__)) +#define RENEW(p,n,type) (type *)(renew ((p),(n)*sizeof(type),__FUNCTION__,__LINE__)) +#define RELEASE(p) release ((p),__FUNCTION__,__LINE__) +#define MEM_START {mem_debug_init();fprintf (debugfile, "Entered %s\n", __FUNCTION__);} +#define MEM_END fprintf (debugfile, "Leaving %s\n", __FUNCTION__); +#else /* MEM_DEBUG */ +#define MEM_START +#define MEM_END +#define NEW(n,type) (type *)(new (((size_t) (n))*sizeof(type),NULL,0)) +#define RENEW(p,n,type) (type *)(renew ((p),(n)*sizeof(type),NULL,0)) +#define RELEASE(p) release ((p),NULL,0) +#endif /* MEM_DEBUG */ + +#endif /* _MEM_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/mfileio.c b/Build/source/texk/xdvipdfmx/src/mfileio.c new file mode 100644 index 00000000000..425ab1fe474 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/mfileio.c @@ -0,0 +1,127 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/mfileio.c,v 1.3 2002/10/30 02:27:11 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include +#include "system.h" +#include "mfileio.h" +#include "error.h" + +#ifdef IODEBUG +static FILE *iodebug_file = NULL; +static long event = 0; +static void io_debug_init(void) +{ + if (!iodebug_file) { + iodebug_file = fopen ("fopen.log", "wb"); + fprintf (stderr, "\n*** File IO debugging started ***\n"); + } + if (!iodebug_file) { + fprintf (stderr, "\nError opening io log\n"); + } +} +#endif + +#ifdef IODEBUG +FILE *mfopen(const char *name, const char *mode, const char *function, int line) +{ + FILE *tmp; + io_debug_init(); + tmp = fopen (name, mode); + event += 1; + fprintf(iodebug_file, "%p %07ld [fopen] %s:%d\n", tmp, event, + function, line); + return tmp; +} +int mfclose(FILE *file, const char *function, int line) +{ + io_debug_init(); + event += 1; + fprintf(iodebug_file, "%p %07ld [fclose] %s:%d\n", file, event, + function, line); + return fclose(file); +} +#endif + +static void os_error() +{ + ERROR ("io: An OS command failed that should not have.\n"); +} + +void seek_absolute (FILE *file, long pos) +{ + if (fseek(file, pos, SEEK_SET)) { + os_error(); + } +} + +void seek_relative (FILE *file, long pos) +{ + if (fseek(file, pos, SEEK_CUR)) { + os_error(); + } +} + + +void seek_end (FILE *file) +{ + if (fseek(file, 0L, SEEK_END)) { + os_error(); + } +} + +long tell_position (FILE *file) +{ + long size; + if ((size = ftell (file)) < 0) { + os_error(); + } + return size; +} + +long file_size (FILE *file) +{ + long size; + /* Seek to end */ + seek_end (file); + size = tell_position (file); + rewind (file); + return (size); +} + +/* Unlike fgets, mfgets works with \r, \n, or \r\n end of lines. */ +char *mfgets (char *buffer, unsigned long length, FILE *file) +{ + int ch = 0, i = 0; + while (i < length-1 && (ch = fgetc (file)) >= 0 && ch != '\n' && ch != '\r') + buffer[i++] = ch; + buffer[i] = 0; + if (ch < 0 && i == 0) + return NULL; + if (ch == '\r' && (ch = fgetc (file)) >= 0 && (ch != '\n')) + ungetc (ch, file); + return buffer; +} + +char work_buffer[WORK_BUFFER_SIZE]; diff --git a/Build/source/texk/xdvipdfmx/src/mfileio.h b/Build/source/texk/xdvipdfmx/src/mfileio.h new file mode 100644 index 00000000000..e31fef23244 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/mfileio.h @@ -0,0 +1,61 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/mfileio.h,v 1.3 2002/10/30 02:27:12 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _MFILEIO_H_ +#define _MFILEIO_H_ + +#include +#include "numbers.h" + +#ifdef IODEBUG +FILE *mfopen (const char *name, const char *mode, + const char *function, int line); +int mfclose (FILE *file, const char *function, int line); +#define MFOPEN(name,mode) \ + mfopen((name),(mode),__FUNCTION__,__LINE__) +#define MFCLOSE(file) \ + mfclose((file),__FUNCTION__,__LINE__) +#else +#define MFOPEN(name,mode) fopen((name),(mode)) +#define MFCLOSE(file) fclose(file) +#endif + +extern UNSIGNED_BYTE read_byte (FILE *); + +extern void seek_absolute (FILE *file, long pos); +extern void seek_relative (FILE *file, long pos); + +extern void seek_end (FILE *file); + +extern long tell_position (FILE *file); + +extern long file_size (FILE *file); + +extern char *mfgets (char *buffer, unsigned long size, FILE *file); + +extern char work_buffer[]; + +#define WORK_BUFFER_SIZE 1024 + +#endif /* _MFILEIO_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/mk_agl_standard_c.pl b/Build/source/texk/xdvipdfmx/src/mk_agl_standard_c.pl new file mode 100755 index 00000000000..93a7b7984fd --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/mk_agl_standard_c.pl @@ -0,0 +1,51 @@ +#!/usr/bin/perl + +# mk_agl_standard_nam_c.pl -- convert STANDARD.NAM and glyphlist.txt +# to C source for xdvipdfmx; +# this allows us to have the standard list compiled into the binary, +# and so the user doesn't have to install a glyphlist file separately. + +# usage: +# +# mk_agl_standard_nam_c.pl STANDARD.NAM glyphlist.txt > agl_standard.c +# +# where STANDARD.NAM is the glyph name list in FontLab's format, +# and glyphlist.txt is the Adobe glyph name list as found at +# http://partners.adobe.com/public/developer/en/opentype/glyphlist.txt +# +# xdvipdfmx includes data derived from STANDARD.NAM +# by kind permission of Adam Twardoch. + +print << "__EOT__"; +#include "agl.h" + +char* agl_standard_names[] = { +__EOT__ + +my %knownNames; +while () { + s/ *[\r\n]+$//; + s/[\#%].*//; + next if $_ eq ''; + if (m/^0x[0-9A-Fa-f]{4}/) { + my ($unicode, $name) = split(/ +/); + next unless defined $name and defined $unicode; + $name =~ s/^!//; + next if exists $knownNames{$name}; + $knownNames{$name} = 1; + $unicode =~ s/^0x//; + print " \"$name;$unicode\",\n"; + next; + } + if (m/^.+;[0-9A-Fa-f]{4}/) { + my ($name, $unicodes) = split(/;/); + next unless defined $name and defined $unicodes; + next if exists $knownNames{$name}; + print " \"$name;$unicodes\",\n"; + } +} + +print << "__EOT__"; + "" /* terminator */ +}; +__EOT__ diff --git a/Build/source/texk/xdvipdfmx/src/mpost.c b/Build/source/texk/xdvipdfmx/src/mpost.c new file mode 100644 index 00000000000..16a60a54b50 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/mpost.c @@ -0,0 +1,1627 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/mpost.c,v 1.35 2005/08/30 07:56:08 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "mfileio.h" +#include "numbers.h" + +#include "tfm.h" + +#include "pdfobj.h" +#include "pdfparse.h" +#include "pdfdev.h" +#include "pdfdoc.h" + +#include "pdfcolor.h" +#include "pdfdraw.h" + +#include "fontmap.h" +#include "subfont.h" + +#include "pdfximage.h" + +#include "mpost.h" + +/* + * In PDF, current path is not a part of graphics state parameter. + * Hence, current path is not saved by the "q" operator and is not + * recovered by the "Q" operator. This means that the following PS + * code + * + * gsave grestore ... + * + * can't be translated to PDF code + * + * q Q ... + * + * . Only clipping path (which is graphics state parameter in PDF + * too) is treated in the same way. So, we write clipping path + * immediately and forget about it but remember current path. + */ + +static int mp_parse_body (char **start, char *end, double x_user, double y_user); + +static struct mp_font +{ + char *font_name; + int font_id; + int tfm_id; /* Used for text width calculation */ + int subfont_id; + double pt_size; +} font_stack[PDF_GSAVE_MAX] = { + {NULL, -1, -1, -1, 0} +}; +static int currentfont = -1; + +#define CURRENT_FONT() ((currentfont < 0) ? NULL : &font_stack[currentfont]) + +/* Compatibility */ +#define MP_CMODE_MPOST 0 +#define MP_CMODE_DVIPSK 1 +#define MP_CMODE_PTEXVERT 2 +static int mp_cmode = MP_CMODE_MPOST; + +static int +mp_setfont (const char *font_name, double pt_size) +{ + const char *name = font_name; + struct mp_font *font; + int subfont_id = -1; + fontmap_rec *mrec; + + font = CURRENT_FONT(); + + if (font) { + if (!strcmp(font->font_name, font_name) && + font->pt_size == pt_size) + return 0; + } else { /* No currentfont */ +/* ***TODO*** Here some problem exists! */ + font = &font_stack[0]; + font->font_name = NULL; + currentfont = 0; + } + + mrec = pdf_lookup_fontmap_record(font_name); + if (mrec && mrec->charmap.sfd_name && mrec->charmap.subfont_id) { + subfont_id = sfd_load_record(mrec->charmap.sfd_name, mrec->charmap.subfont_id); + } + + /* See comments in dvi_locate_font() in dvi.c. */ + if (mrec && mrec->map_name) { + name = mrec->map_name; + } else { + name = font_name; + } + + if (font->font_name) + RELEASE(font->font_name); + font->font_name = NEW(strlen(font_name) + 1, char); + strcpy(font->font_name, font_name); + font->subfont_id = subfont_id; + font->pt_size = pt_size; + font->tfm_id = tfm_open(font_name, 0); /* Need not exist in MP mode */ + font->font_id = pdf_dev_locate_font(name, + (spt_t) (pt_size * dev_unit_dviunit())); + + if (font->font_id < 0) { + ERROR("MPOST: No physical font assigned for \"%s\".", font_name); + return 1; + } + + return 0; +} + +static void +save_font (void) +{ + struct mp_font *current, *next; + + if (currentfont < 0) { + font_stack[0].font_name = NEW(strlen("Courier") + 1, char); + strcpy(font_stack[0].font_name, "Courier"); + font_stack[0].pt_size = 1; + font_stack[0].tfm_id = 0; + font_stack[0].subfont_id = 0; + currentfont = 0; + } + + current = &font_stack[currentfont++]; + next = &font_stack[currentfont ]; + next->font_name = NEW(strlen(current->font_name)+1, char); + strcpy(next->font_name, current->font_name); + next->pt_size = current->pt_size; + + next->subfont_id = current->subfont_id; + next->tfm_id = current->tfm_id; +} + +static void +restore_font (void) +{ + struct mp_font *current; + + current = CURRENT_FONT(); + if (current) { + if (current->font_name) + RELEASE(current->font_name); + current->font_name = NULL; + } else { + ERROR("No currentfont..."); + } + + currentfont--; +} + +static void +clear_fonts (void) +{ + while (currentfont >= 0) { + if (font_stack[currentfont].font_name) + RELEASE(font_stack[currentfont].font_name); + currentfont--; + } +} + +static int +is_fontname (const char *token) +{ + fontmap_rec *mrec; + + mrec = pdf_lookup_fontmap_record(token); + if (mrec) + return 1; + + return tfm_exists(token); +} + +int +mps_scan_bbox (char **pp, char *endptr, pdf_rect *bbox) +{ + char *number; + double values[4]; + int i; + + /* skip_white() skips lines starting '%'... */ + while (*pp < endptr && isspace(**pp)) + (*pp)++; + + /* Scan for bounding box record */ + while (*pp < endptr && **pp == '%') { + if (*pp + 14 < endptr && + !strncmp(*pp, "%%BoundingBox:", 14)) { + + *pp += 14; + + for (i = 0; i < 4; i++) { + skip_white(pp, endptr); + number = parse_number(pp, endptr); + if (!number) { + break; + } + values[i] = atof(number); + RELEASE(number); + } + if (i < 4) { + return -1; + } else { + bbox->llx = values[0]; + bbox->lly = values[1]; + bbox->urx = values[2]; + bbox->ury = values[3]; + + return 0; + } + } + skip_line (pp, endptr); + while (*pp < endptr && isspace(**pp)) + (*pp)++; + } + + return -1; +} + +static void +skip_prolog (char **start, char *end) +{ + int found_prolog = 0; + char *save; + + save = *start; + while (*start < end) { + skip_white(start, end); + if (*start >= end) + break; + if (!strncmp(*start, "%%EndProlog", 11)) { + found_prolog = 1; + skip_line(start, end); + break; + } else if (!strncmp(*start, "%%Page:", 7)) { + skip_line(start, end); + break; + } + skip_line(start, end); + } + if (!found_prolog) { + *start = save; + } + + return; +} + +/* PostScript Operators */ + +#define ADD 1 +#define SUB 2 +#define MUL 3 +#define DIV 4 +#define NEG 5 +#define TRUNCATE 6 + +#define CLEAR 10 +#define EXCH 11 +#define POP 12 + +#define NEWPATH 31 +#define CLOSEPATH 32 +#define MOVETO 33 +#define RMOVETO 34 +#define CURVETO 35 +#define RCURVETO 36 +#define LINETO 37 +#define RLINETO 38 +#define ARC 39 +#define ARCN 40 + +#define FILL 41 +#define STROKE 42 +#define SHOW 43 + +#define CLIP 44 +#define EOCLIP 45 + +#define SHOWPAGE 49 + +#define GSAVE 50 +#define GRESTORE 51 + +#define CONCAT 52 +#define SCALE 53 +#define TRANSLATE 54 +#define ROTATE 55 + +#define SETLINEWIDTH 60 +#define SETDASH 61 +#define SETLINECAP 62 +#define SETLINEJOIN 63 +#define SETMITERLIMIT 64 + +#define SETGRAY 70 +#define SETRGBCOLOR 71 +#define SETCMYKCOLOR 72 + +#define CURRENTPOINT 80 +#define IDTRANSFORM 81 +#define DTRANSFORM 82 + +#define FINDFONT 201 +#define SCALEFONT 202 +#define SETFONT 203 +#define CURRENTFONT 204 + +#define STRINGWIDTH 210 + +#define FSHOW 1001 +#define STEXFIG 1002 +#define ETEXFIG 1003 + +static struct operators +{ + const char *token; + int opcode; +} ps_operators[] = { + {"add", ADD}, + {"mul", MUL}, + {"div", DIV}, + {"neg", NEG}, + {"sub", SUB}, + {"truncate", TRUNCATE}, + + {"clear", CLEAR}, + {"exch", EXCH}, + {"pop", POP}, + + {"clip", CLIP}, + {"eoclip", EOCLIP}, + {"closepath", CLOSEPATH}, + {"concat", CONCAT}, + + {"newpath", NEWPATH}, + {"moveto", MOVETO}, + {"rmoveto", RMOVETO}, + {"lineto", LINETO}, + {"rlineto", RLINETO}, + {"curveto", CURVETO}, + {"rcurveto", RCURVETO}, + {"arc", ARC}, + {"arcn", ARCN}, + + {"stroke", STROKE}, + {"fill", FILL}, + {"show", SHOW}, + {"showpage", SHOWPAGE}, + + {"gsave", GSAVE}, + {"grestore", GRESTORE}, + {"translate", TRANSLATE}, + {"rotate", ROTATE}, + {"scale", SCALE}, + + {"setlinecap", SETLINECAP}, + {"setlinejoin", SETLINEJOIN}, + {"setlinewidth", SETLINEWIDTH}, + {"setmiterlimit", SETMITERLIMIT}, + {"setdash", SETDASH}, + + {"setgray", SETGRAY}, + {"setrgbcolor", SETRGBCOLOR}, + {"setcmykcolor", SETCMYKCOLOR}, + + {"currentpoint", CURRENTPOINT}, /* This is here for rotate support + in graphics package-not MP support */ + {"dtransform", DTRANSFORM}, + {"idtransform", IDTRANSFORM}, + + {"findfont", FINDFONT}, + {"scalefont", SCALEFONT}, + {"setfont", SETFONT}, + {"currentfont", CURRENTFONT}, + + {"stringwidth", STRINGWIDTH} +}; + +static struct operators mps_operators[] = { + {"fshow", FSHOW}, + {"startTexFig", STEXFIG}, + {"endTexFig", ETEXFIG} +}; + +#define NUM_PS_OPERATORS (sizeof(ps_operators)/sizeof(ps_operators[0])) +#define NUM_MPS_OPERATORS (sizeof(mps_operators)/sizeof(mps_operators[0])) +static int +get_opcode (const char *token) +{ + int i; + + for (i = 0; i < NUM_PS_OPERATORS; i++) { + if (!strcmp(token, ps_operators[i].token)) { + return ps_operators[i].opcode; + } + } + + for (i = 0; i < NUM_MPS_OPERATORS; i++) { + if (!strcmp(token, mps_operators[i].token)) { + return mps_operators[i].opcode; + } + } + + return -1; +} + +#define PS_STACK_SIZE 1024 + +static pdf_obj *stack[PS_STACK_SIZE]; +static unsigned top_stack = 0; + +#define POP_STACK() ((top_stack > 0) ? stack[--top_stack] : NULL) +#define PUSH_STACK(o,e) { \ + if (top_stack < PS_STACK_SIZE) { \ + stack[top_stack++] = (o); \ + } else { \ + WARN("PS stack overflow including MetaPost file or inline PS code"); \ + *(e) = 1; \ + } \ +} + +static int +do_exch (void) +{ + pdf_obj *tmp; + + if (top_stack < 2) + return -1; + + tmp = stack[top_stack-1]; + stack[top_stack-1] = stack[top_stack-2]; + stack[top_stack-2] = tmp; + + return 0; +} + +static int +do_clear (void) +{ + pdf_obj *tmp; + + while (top_stack > 0) { + tmp = POP_STACK(); + if (tmp) + pdf_release_obj(tmp); + } + + return 0; +} + +/* This should be set_bottom and clear (or + * have independent stack) to ensure stack + * depth do not go below real stack bottom. + */ +static void +mps_stack_clear_to (int depth) +{ + pdf_obj *tmp; + + while (top_stack > depth) { + tmp = POP_STACK(); + if (tmp) + pdf_release_obj(tmp); + } + + return; +} + +static int +pop_get_numbers (double *values, int count) +{ + pdf_obj *tmp; + + while (count-- > 0) { + tmp = POP_STACK(); + if (!tmp) { + WARN("mpost: Stack underflow."); + break; + } else if (!PDF_OBJ_NUMBERTYPE(tmp)) { + WARN("mpost: Not a number!"); + pdf_release_obj(tmp); + break; + } + values[count] = pdf_number_value(tmp); + pdf_release_obj(tmp); + } + + return (count + 1); +} + +static int +cvr_array (pdf_obj *array, double *values, int count) +{ + if (!PDF_OBJ_ARRAYTYPE(array)) { + WARN("mpost: Not an array!"); + } else { + pdf_obj *tmp; + + while (count-- > 0) { + tmp = pdf_get_array(array, count); + if (!PDF_OBJ_NUMBERTYPE(tmp)) { + WARN("mpost: Not a number!"); + break; + } + values[count] = pdf_number_value(tmp); + } + } + if (array) + pdf_release_obj(array); + + return (count + 1); +} + +static int +is_fontdict (pdf_obj *dict) +{ + pdf_obj *tmp; + + if (!PDF_OBJ_DICTTYPE(dict)) + return 0; + + tmp = pdf_lookup_dict(dict, "Type"); + if (!tmp || !PDF_OBJ_NAMETYPE(tmp) || + strcmp(pdf_name_value(tmp), "Font")) { + return 0; + } + + tmp = pdf_lookup_dict(dict, "FontName"); + if (!tmp || !PDF_OBJ_NAMETYPE(tmp)) { + return 0; + } + + tmp = pdf_lookup_dict(dict, "FontScale"); + if (!tmp || !PDF_OBJ_NUMBERTYPE(tmp)) { + return 0; + } + + return 1; +} + +static int +do_findfont (void) +{ + int error = 0; + pdf_obj *font_dict, *font_name; + + font_name = POP_STACK(); + if (!font_name) + return 1; + else if (PDF_OBJ_STRINGTYPE(font_name) || + PDF_OBJ_NAMETYPE(font_name)) { + /* Do not check the existence... + * The reason for this is that we cannot locate PK font without + * font scale. + */ + font_dict = pdf_new_dict(); + pdf_add_dict(font_dict, + pdf_new_name("Type"), pdf_new_name("Font")); + if (PDF_OBJ_STRINGTYPE(font_name)) { + pdf_add_dict(font_dict, + pdf_new_name("FontName"), + pdf_new_name(pdf_string_value(font_name))); + pdf_release_obj(font_name); + } else { + pdf_add_dict(font_dict, + pdf_new_name("FontName"), font_name); + } + pdf_add_dict(font_dict, + pdf_new_name("FontScale"), pdf_new_number(1.0)); + + if (top_stack < PS_STACK_SIZE) { + stack[top_stack++] = font_dict; + } else { + WARN("PS stack overflow including MetaPost file or inline PS code"); + pdf_release_obj(font_dict); + error = 1; + } + } else { + error = 1; + } + + return error; +} + +static int +do_scalefont (void) +{ + int error = 0; + pdf_obj *font_dict; + pdf_obj *font_scale; + double scale; + + error = pop_get_numbers(&scale, 1); + if (error) + return error; + + font_dict = POP_STACK(); + if (!font_dict) + error = 1; + else if (is_fontdict(font_dict)) { + font_scale = pdf_lookup_dict(font_dict, "FontScale"); + pdf_set_number(font_scale, pdf_number_value(font_scale)*scale); + if (top_stack < PS_STACK_SIZE) { + stack[top_stack++] = font_dict; + } else { + WARN("PS stack overflow including MetaPost file or inline PS code"); + pdf_release_obj(font_dict); + error = 1; + } + } else { + error = 1; + } + + return error; +} + +static int +do_setfont (void) +{ + int error = 0; + char *font_name; + double font_scale; + pdf_obj *font_dict; + + font_dict = POP_STACK(); + if (!is_fontdict(font_dict)) + error = 1; + else { + /* Subfont support prevent us from managing + * font in a single place... + */ + font_name = pdf_name_value (pdf_lookup_dict(font_dict, "FontName")); + font_scale = pdf_number_value(pdf_lookup_dict(font_dict, "FontScale")); + + error = mp_setfont(font_name, font_scale); + } + pdf_release_obj(font_dict); + + return error; +} + +/* Push dummy font dict onto PS stack */ +static int +do_currentfont (void) +{ + int error = 0; + struct mp_font *font; + pdf_obj *font_dict; + + font = CURRENT_FONT(); + if (!font) { + WARN("Currentfont undefined..."); + return 1; + } else { + font_dict = pdf_new_dict(); + pdf_add_dict(font_dict, + pdf_new_name("Type"), + pdf_new_name("Font")); + pdf_add_dict(font_dict, + pdf_new_name("FontName"), + pdf_new_name(font->font_name)); + pdf_add_dict(font_dict, + pdf_new_name("FontScale"), + pdf_new_number(font->pt_size)); + if (top_stack < PS_STACK_SIZE) { + stack[top_stack++] = font_dict; + } else { + WARN("PS stack overflow..."); + pdf_release_obj(font_dict); + error = 1; + } + } + + return error; +} + +static int +do_show (void) +{ + struct mp_font *font; + pdf_coord cp; + pdf_obj *text_str; + int length; + unsigned char *strptr; + double text_width; + + font = CURRENT_FONT(); + if (!font) { + WARN("Currentfont not set."); /* Should not be error... */ + return 1; + } + + pdf_dev_currentpoint(&cp); + + text_str = POP_STACK(); + if (!PDF_OBJ_STRINGTYPE(text_str)) { + if (text_str) + pdf_release_obj(text_str); + return 1; + } + if (font->font_id < 0) { + WARN("mpost: not set."); /* Should not be error... */ + pdf_release_obj(text_str); + return 1; + } + + strptr = pdf_string_value (text_str); + length = pdf_string_length(text_str); + + if (font->tfm_id < 0) { + WARN("mpost: TFM not found for \"%s\".", font->font_name); + WARN("mpost: Text width not calculated..."); + } + + text_width = 0.0; + if (font->subfont_id >= 0) { + unsigned short uch; + unsigned char *ustr; + int i; + + ustr = NEW(length * 2, unsigned char); + for (i = 0; i < length; i++) { + uch = lookup_sfd_record(font->subfont_id, strptr[i]); + ustr[2*i ] = uch >> 8; + ustr[2*i+1] = uch & 0xff; + if (font->tfm_id >= 0) { + text_width += tfm_get_width(font->tfm_id, strptr[i]); + } + } + text_width *= font->pt_size; + + pdf_dev_set_string((spt_t)(cp.x * dev_unit_dviunit()), + (spt_t)(cp.y * dev_unit_dviunit()), + ustr, length * 2, + (spt_t)(text_width*dev_unit_dviunit()), + font->font_id, 0); + RELEASE(ustr); + } else { +#define FWBASE ((double) (1<<20)) + if (font->tfm_id >= 0) { + text_width = (double) tfm_string_width(font->tfm_id, strptr, length)/FWBASE; + text_width *= font->pt_size; + } + pdf_dev_set_string((spt_t)(cp.x * dev_unit_dviunit()), + (spt_t)(cp.y * dev_unit_dviunit()), + strptr, length, + (spt_t)(text_width*dev_unit_dviunit()), + font->font_id, 0); + } + + if (pdf_dev_get_font_wmode(font->font_id)) { + pdf_dev_rmoveto(0.0, -text_width); + } else { + pdf_dev_rmoveto(text_width, 0.0); + } + + graphics_mode(); + pdf_release_obj(text_str); + + return 0; +} + +static const char *ps_code_fshow = "exch findfont exch scalefont setfont show"; +/* + * string tfmname scale fshow - + * + * exch findfont exch scalefont setfont show + */ +static int +do_mpost_fshow (int opcode, double x_user, double y_user) +{ + int error = 0; + char *start, *end; + + start = (char *) ps_code_fshow; + end = start + strlen(start); + + error = mp_parse_body(&start, end, x_user, y_user); + + return error; +} + +static int +do_texfig_operator (int opcode, double x_user, double y_user) +{ + static transform_info fig_p; + static int in_tfig = 0; + static int xobj_id = -1; + static int count = 0; + double values[6]; + int error = 0; + + switch (opcode) { + case STEXFIG: + error = pop_get_numbers(values, 6); + if (!error) { + double dvi2pts; + char resname[256]; + + transform_info_clear(&fig_p); + dvi2pts = 1.0/dev_unit_dviunit(); + + fig_p.width = values[0] * dvi2pts; + fig_p.height = values[1] * dvi2pts; + fig_p.bbox.llx = values[2] * dvi2pts; + fig_p.bbox.lly = -values[3] * dvi2pts; + fig_p.bbox.urx = values[4] * dvi2pts; + fig_p.bbox.ury = -values[5] * dvi2pts; + fig_p.flags |= INFO_HAS_USER_BBOX; + + sprintf(resname, "__tf%d__", count); + xobj_id = pdf_doc_begin_grabbing(resname, + fig_p.bbox.llx, fig_p.bbox.ury, &fig_p.bbox); + + in_tfig = 1; + count++; + } + break; + case ETEXFIG: + if (!in_tfig) + ERROR("endTexFig without valid startTexFig!."); + + pdf_doc_end_grabbing(); + pdf_dev_put_image(xobj_id, &fig_p, x_user, y_user); + in_tfig = 0; + break; + default: + error = 1; + } + + return error; +} + +/* + * buggy... + */ + +/* + * CTM(Current Transformation Matrix) means the transformation of User Space + * to Device Space coordinates. Because DVIPDFMx does not know the resolution + * of Device Space, we assume that the resolution is 1/1000. + */ +#define DEVICE_RESOLUTION 1000 +static int +ps_dev_CTM (pdf_tmatrix *M) +{ + pdf_dev_currentmatrix(M); + M->a *= DEVICE_RESOLUTION; M->b *= DEVICE_RESOLUTION; + M->c *= DEVICE_RESOLUTION; M->d *= DEVICE_RESOLUTION; + M->e *= DEVICE_RESOLUTION; M->f *= DEVICE_RESOLUTION; + + return 0; +} + +/* + * Again, the only piece that needs x_user and y_user is + * that piece dealing with texfig. + */ +static int +do_operator (const char *token, double x_user, double y_user) +{ + int error = 0; + int opcode = 0; + double values[12]; + pdf_obj *tmp = NULL; + pdf_tmatrix matrix; + pdf_coord cp; + pdf_color color; + +#define PUSH(o) { \ + if (top_stack < PS_STACK_SIZE) { \ + stack[top_stack++] = (o); \ + } else { \ + WARN("PS stack overflow including MetaPost file or inline PS code"); \ + error=1; \ + break;\ + } \ +} + + opcode = get_opcode(token); + + switch (opcode) { + + /* + * Arithmetic operators + */ + case ADD: + error = pop_get_numbers(values, 2); + if (!error) + PUSH(pdf_new_number(values[0] + values[1])); + break; + case MUL: + error = pop_get_numbers(values, 2); + if (!error) + PUSH(pdf_new_number(values[0]*values[1])); + break; + case NEG: + error = pop_get_numbers(values, 1); + if (!error) + PUSH(pdf_new_number(-values[0])); + break; + case SUB: + error = pop_get_numbers(values, 2); + if (!error) + PUSH(pdf_new_number(values[0] - values[1])); + break; + case DIV: + error = pop_get_numbers(values, 2); + if (!error) + PUSH(pdf_new_number(values[0]/values[1])); + break; + case TRUNCATE: /* Round toward zero. */ + error = pop_get_numbers(values, 1); + if (!error) + PUSH(pdf_new_number(((values[0] > 0) ? floor(values[0]) : ceil(values[0])))); + break; + + /* Stack operation */ + case CLEAR: + error = do_clear(); + break; + case POP: + tmp = POP_STACK(); + if (tmp) + pdf_release_obj(tmp); + break; + case EXCH: + error = do_exch(); + break; + + /* Path construction */ + case MOVETO: + error = pop_get_numbers(values, 2); + if (!error) + error = pdf_dev_moveto(values[0], values[1]); + break; + case RMOVETO: + error = pop_get_numbers(values, 2); + if (!error) + error = pdf_dev_rmoveto(values[0], values[1]); + break; + case LINETO: + error = pop_get_numbers(values, 2); + if (!error) + error = pdf_dev_lineto(values[0], values[1]); + break; + case RLINETO: + error = pop_get_numbers(values, 2); + if (!error) + error = pdf_dev_rlineto(values[0], values[1]); + break; + case CURVETO: + error = pop_get_numbers(values, 6); + if (!error) + error = pdf_dev_curveto(values[0], values[1], + values[2], values[3], + values[4], values[5]); + break; + case RCURVETO: + error = pop_get_numbers(values, 6); + if (!error) + error = pdf_dev_rcurveto(values[0], values[1], + values[2], values[3], + values[4], values[5]); + break; + case CLOSEPATH: + error = pdf_dev_closepath(); + break; + case ARC: + error = pop_get_numbers(values, 5); + if (!error) + error = pdf_dev_arc(values[0], values[1], + values[2], /* rad */ + values[3], values[4]); + break; + case ARCN: + error = pop_get_numbers(values, 5); + if (!error) + error = pdf_dev_arcn(values[0], values[1], + values[2], /* rad */ + values[3], values[4]); + break; + + case NEWPATH: + pdf_dev_newpath(); + break; + case STROKE: + /* fill rule not supported yet */ + pdf_dev_flushpath('S', PDF_FILL_RULE_NONZERO); + break; + case FILL: + pdf_dev_flushpath('f', PDF_FILL_RULE_NONZERO); + break; + + case CLIP: + error = pdf_dev_clip(); + break; + case EOCLIP: + error = pdf_dev_eoclip(); + break; + + /* Graphics state operators: */ + case GSAVE: + error = pdf_dev_gsave(); + save_font(); + break; + case GRESTORE: + error = pdf_dev_grestore(); + restore_font(); + break; + + case CONCAT: + tmp = POP_STACK(); + error = cvr_array(tmp, values, 6); /* This does pdf_release_obj() */ + tmp = NULL; + if (error) + WARN("Missing array before \"concat\"."); + else { + pdf_setmatrix(&matrix, + values[0], values[1], + values[2], values[3], + values[4], values[5]); + error = pdf_dev_concat(&matrix); + } + break; + case SCALE: + error = pop_get_numbers(values, 2); + if (!error) { + switch (mp_cmode) { +#ifndef WITHOUT_ASCII_PTEX + case MP_CMODE_PTEXVERT: + pdf_setmatrix(&matrix, + values[1], 0.0, + 0.0 , values[0], + 0.0 , 0.0); + break; +#endif /* !WITHOUT_ASCII_PTEX */ + default: + pdf_setmatrix(&matrix, + values[0], 0.0, + 0.0 , values[1], + 0.0 , 0.0); + break; + } + + error = pdf_dev_concat(&matrix); + } + break; + /* Positive angle means clock-wise direction in graphicx-dvips??? */ + case ROTATE: + error = pop_get_numbers(values, 1); + if (!error) { + values[0] = values[0] * M_PI / 180; + + switch (mp_cmode) { + case MP_CMODE_DVIPSK: + case MP_CMODE_MPOST: /* Really? */ +#ifndef WITHOUT_ASCII_PTEX + case MP_CMODE_PTEXVERT: +#endif /* !WITHOUT_ASCII_PTEX */ + pdf_setmatrix(&matrix, + cos(values[0]), -sin(values[0]), + sin(values[0]), cos(values[0]), + 0.0, 0.0); + break; + default: + pdf_setmatrix(&matrix, + cos(values[0]) , sin(values[0]), + -sin(values[0]), cos(values[0]), + 0.0, 0.0); + break; + } + error = pdf_dev_concat(&matrix); + } + break; + case TRANSLATE: + error = pop_get_numbers(values, 2); + if (!error) { + pdf_setmatrix(&matrix, + 1.0, 0.0, + 0.0, 1.0, + values[0], values[1]); + error = pdf_dev_concat(&matrix); + } + break; + + case SETDASH: + error = pop_get_numbers(values, 1); + if (!error) { + pdf_obj *pattern, *dash; + int i, num_dashes; + double dash_values[PDF_DASH_SIZE_MAX]; + double offset; + + offset = values[0]; + pattern = POP_STACK(); + if (!PDF_OBJ_ARRAYTYPE(pattern)) { + if (pattern) + pdf_release_obj(pattern); + error = 1; + break; + } + num_dashes = pdf_array_length(pattern); + if (num_dashes > PDF_DASH_SIZE_MAX) { + WARN("Too many dashes..."); + pdf_release_obj(pattern); + error = 1; + break; + } + for (i = 0; + i < num_dashes && !error ; i++) { + dash = pdf_get_array(pattern, i); + if (!PDF_OBJ_NUMBERTYPE(dash)) + error = 1; + else { + dash_values[i] = pdf_number_value(dash); + } + } + pdf_release_obj(pattern); + if (!error) { + error = pdf_dev_setdash(num_dashes, dash_values, offset); + } + } + break; + case SETLINECAP: + error = pop_get_numbers(values, 1); + if (!error) + error = pdf_dev_setlinecap(values[0]); + break; + case SETLINEJOIN: + error = pop_get_numbers(values, 1); + if (!error) + error = pdf_dev_setlinejoin(values[0]); + break; + case SETLINEWIDTH: + error = pop_get_numbers(values, 1); + if (!error) + error = pdf_dev_setlinewidth(values[0]); + break; + case SETMITERLIMIT: + error = pop_get_numbers(values, 1); + if (!error) + error = pdf_dev_setmiterlimit(values[0]); + break; + + case SETCMYKCOLOR: + error = pop_get_numbers(values, 4); + /* Not handled properly */ + if (!error) { + pdf_color_cmykcolor(&color, + values[0], values[1], + values[2], values[3]); + pdf_dev_setcolor(&color, 0); + pdf_dev_setcolor(&color, 1); + } + break; + case SETGRAY: + /* Not handled properly */ + error = pop_get_numbers(values, 1); + if (!error) { + pdf_color_graycolor(&color, values[0]); + pdf_dev_setcolor(&color, 0); + pdf_dev_setcolor(&color, 1); + } + break; + case SETRGBCOLOR: + error = pop_get_numbers(values, 3); + if (!error) { + pdf_color_rgbcolor(&color, + values[0], values[1], values[2]); + pdf_dev_setcolor(&color, 0); + pdf_dev_setcolor(&color, 1); + } + break; + + case SHOWPAGE: /* Let's ignore this for now */ + break; + + case CURRENTPOINT: + error = pdf_dev_currentpoint(&cp); + if (!error) { + PUSH(pdf_new_number(cp.x)); + PUSH(pdf_new_number(cp.y)); + } + break; + + case DTRANSFORM: + { + int has_matrix = 0; + + tmp = POP_STACK(); + if (PDF_OBJ_ARRAYTYPE(tmp)) { + error = cvr_array(tmp, values, 6); /* This does pdf_release_obj() */ + tmp = NULL; + if (error) + break; + pdf_setmatrix(&matrix, + values[0], values[1], + values[2], values[3], + values[4], values[5]); + tmp = POP_STACK(); + has_matrix = 1; + } + + if (!PDF_OBJ_NUMBERTYPE(tmp)) { + error = 1; + break; + } + cp.y = pdf_number_value(tmp); + pdf_release_obj(tmp); + + tmp = POP_STACK(); + if (!PDF_OBJ_NUMBERTYPE(tmp)) { + error = 1; + break; + } + cp.x = pdf_number_value(tmp); + pdf_release_obj(tmp); + + if (!has_matrix) { + ps_dev_CTM(&matrix); /* Here, we need real PostScript CTM */ + } + pdf_dev_dtransform(&cp, &matrix); + PUSH(pdf_new_number(cp.x)); + PUSH(pdf_new_number(cp.y)); + } + break; + + case IDTRANSFORM: + { + int has_matrix = 0; + + tmp = POP_STACK(); + if (PDF_OBJ_ARRAYTYPE(tmp)) { + error = cvr_array(tmp, values, 6); /* This does pdf_release_obj() */ + tmp = NULL; + if (error) + break; + pdf_setmatrix(&matrix, + values[0], values[1], + values[2], values[3], + values[4], values[5]); + tmp = POP_STACK(); + has_matrix = 1; + } + + if (!PDF_OBJ_NUMBERTYPE(tmp)) { + error = 1; + break; + } + cp.y = pdf_number_value(tmp); + pdf_release_obj(tmp); + + tmp = POP_STACK(); + if (!PDF_OBJ_NUMBERTYPE(tmp)) { + error = 1; + break; + } + cp.x = pdf_number_value(tmp); + pdf_release_obj(tmp); + + if (!has_matrix) { + ps_dev_CTM(&matrix); /* Here, we need real PostScript CTM */ + } + pdf_dev_idtransform(&cp, &matrix); + PUSH(pdf_new_number(cp.x)); + PUSH(pdf_new_number(cp.y)); + break; + } + + case FINDFONT: + error = do_findfont(); + break; + case SCALEFONT: + error = do_scalefont(); + break; + case SETFONT: + error = do_setfont(); + break; + case CURRENTFONT: + error = do_currentfont(); + break; + + case SHOW: + error = do_show(); + break; + + case STRINGWIDTH: + error = 1; + break; + + /* Extensions */ + case FSHOW: + error = do_mpost_fshow(opcode, x_user, y_user); + /* Treat fshow as a path terminator of sorts */ + break; + case STEXFIG: + case ETEXFIG: + error = do_texfig_operator(opcode, x_user, y_user); + break; + + default: + if (is_fontname(token)) { + PUSH(pdf_new_name(token)); + } else { + WARN("Unknown token \"%s\"", token); + error = 1; + } + break; + } + + return error; +} + +/* + * The only sections that need to know x_user and y _user are those + * dealing with texfig. + */ +static int +mp_parse_body (char **start, char *end, double x_user, double y_user) +{ + char *token; + pdf_obj *obj; + int error = 0; + + skip_white(start, end); + while (*start < end && !error) { + if (isdigit(**start) || + (*start < end - 1 && + (**start == '+' || **start == '-' || **start == '.' ))) { + double value; + char *next; + + value = strtod(*start, &next); + if (next < end && !strchr("<([{/%", *next) && !isspace(*next)) { + WARN("Unkown PostScript operator."); + dump(*start, next); + error = 1; + } else { + PUSH(pdf_new_number(value)); + *start = next; + } + /* + * PDF parser can't handle PS operator inside arrays. + * This shouldn't use parse_pdf_array(). + */ + } else if (**start == '[' && + (obj = parse_pdf_array(start, end))) { + PUSH(obj); + /* This cannot handle ASCII85 string. */ + } else if (*start < end - 1 && + (**start == '<' && *(*start+1) == '<') && + (obj = parse_pdf_dict(start, end))) { + PUSH(obj); + } else if ((**start == '(' || **start == '<') && + (obj = parse_pdf_string (start, end))) { + PUSH(obj); + } else if (**start == '/' && + (obj = parse_pdf_name(start, end))) { + PUSH(obj); + } else { + token = parse_ident(start, end); + if (!token) + error = 1; + else { + error = do_operator(token, x_user, y_user); + RELEASE(token); + } + } + skip_white(start, end); + } + + return error; +} + +void +mps_eop_cleanup (void) +{ + clear_fonts(); + do_clear(); +} + +int +mps_stack_depth (void) +{ + return top_stack; +} + +int +mps_exec_inline (char **p, char *endptr, + double x_user, double y_user) +{ + int error; + int dirmode, autorotate; + + /* Compatibility for dvipsk. */ + dirmode = pdf_dev_get_dirmode(); + if (dirmode) { + mp_cmode = MP_CMODE_PTEXVERT; + } else { + mp_cmode = MP_CMODE_DVIPSK; + } + + autorotate = pdf_dev_get_param(PDF_DEV_PARAM_AUTOROTATE); + pdf_dev_set_param(PDF_DEV_PARAM_AUTOROTATE, 0); + pdf_color_push(); /* ... */ + + /* Comment in dvipdfm: + * Remember that x_user and y_user are off by 0.02 % + */ + pdf_dev_moveto(x_user, y_user); + error = mp_parse_body(p, endptr, x_user, y_user); + + pdf_color_pop(); /* ... */ + pdf_dev_set_param(PDF_DEV_PARAM_AUTOROTATE, autorotate); + pdf_dev_set_dirmode(dirmode); + + return error; +} + +/* mp inclusion is a bit of a hack. The routine + * starts a form at the lower left corner of + * the page and then calls begin_form_xobj telling + * it to record the image drawn there and bundle it + * up in an xojbect. This allows us to use the coordinates + * in the MP file directly. This appears to be the + * easiest way to be able to use the pdf_dev_set_string() + * command (with its scaled and extended fonts) without + * getting all confused about the coordinate system. + * After the xobject is created, the whole thing can + * be scaled any way the user wants + */ + +/* Should implement save and restore. */ +int +mps_include_page (const char *ident, FILE *fp) +{ + int form_id; + xform_info info; + int st_depth, gs_depth; + char *buffer, *p, *endptr; + long length, nb_read; + int dirmode, autorotate, error; + + rewind(fp); + + length = file_size(fp); + if (length < 1) { + WARN("Can't read any byte in the MPS file."); + return -1; + } + + buffer = NEW(length + 1, char); + p = buffer; + endptr = p + length; + endptr[0] = '\0'; + + while (length > 0) { + nb_read = fread(buffer, sizeof(char), length, fp); + if (nb_read < 0) { + RELEASE(buffer); + WARN("Reading file failed..."); + return -1; + } + length -= nb_read; + } + + error = mps_scan_bbox(&p, endptr, &(info.bbox)); + if (error) { + WARN("Error occured while scanning MetaPost file headers: Could not find BoundingBox."); + RELEASE(buffer); + return -1; + } + skip_prolog(&p, endptr); + + dirmode = pdf_dev_get_dirmode(); + autorotate = pdf_dev_get_param(PDF_DEV_PARAM_AUTOROTATE); + pdf_dev_set_param(PDF_DEV_PARAM_AUTOROTATE, 0); + pdf_color_push(); + + form_id = pdf_doc_begin_grabbing(ident, 0.0, 0.0, &(info.bbox)); + + mp_cmode = MP_CMODE_MPOST; + gs_depth = pdf_dev_current_depth(); + st_depth = mps_stack_depth(); + /* At this point the gstate must be initialized, since it starts a new + * XObject. Note that it increase gs_depth by 1. */ + pdf_dev_push_gstate(); + + error = mp_parse_body(&p, endptr, 0.0, 0.0); + RELEASE(buffer); + + if (error) { + WARN("Errors occured while interpreting PostScript file."); + WARN("Leaving garbage in output PDF file."); + form_id = -1; + } + + /* It's time to pop the new gstate above. */ + pdf_dev_pop_gstate(); + mps_stack_clear_to (st_depth); + pdf_dev_grestore_to(gs_depth); + + pdf_doc_end_grabbing(); + + pdf_color_pop(); + pdf_dev_set_param(PDF_DEV_PARAM_AUTOROTATE, autorotate); + pdf_dev_set_dirmode(dirmode); + + return form_id; +} + +int +mps_do_page (FILE *image_file) +{ + int error = 0; + pdf_rect bbox; + char *buffer, *start, *end; + long size; + int dir_mode; + + rewind(image_file); + if ((size = file_size(image_file)) == 0) { + WARN("Can't read any byte in the MPS file."); + return -1; + } + + buffer = NEW(size+1, char); + fread(buffer, sizeof(char), size, image_file); + buffer[size] = 0; + start = buffer; + end = buffer + size; + + error = mps_scan_bbox(&start, end, &bbox); + if (error) { + WARN("Error occured while scanning MetaPost file headers: Could not find BoundingBox."); + RELEASE(buffer); + return -1; + } + + mp_cmode = MP_CMODE_MPOST; + + pdf_doc_begin_page (1.0, 0.0, 0.0); /* scale, xorig, yorig */ + pdf_doc_set_mediabox(pdf_doc_current_page_number(), &bbox); + + dir_mode = pdf_dev_get_dirmode(); + pdf_dev_set_autorotate(0); + + skip_prolog(&start, end); + + error = mp_parse_body(&start, end, 0.0, 0.0); + + if (error) { + WARN("Errors occured while interpreting MetaPost file."); + } + + pdf_dev_set_autorotate(1); + pdf_dev_set_dirmode(dir_mode); + + pdf_doc_end_page(); + + RELEASE(buffer); + + /* + * The reason why we don't return XObject itself is + * PDF inclusion may not be made so. + */ + return (error ? -1 : 0); +} + +int +check_for_mp (FILE *image_file) +{ + int try_count = 10; + + rewind (image_file); + mfgets(work_buffer, WORK_BUFFER_SIZE, image_file); + if (strncmp(work_buffer, "%!PS", 4)) + return 0; + + while (try_count > 0) { + mfgets(work_buffer, WORK_BUFFER_SIZE, image_file); + if (!strncmp(work_buffer, "%%Creator:", 10)) { + if (strlen(work_buffer+10) >= 8 && + strstr(work_buffer+10, "MetaPost")) + break; + } + try_count--; + } + + return ((try_count > 0) ? 1 : 0); +} diff --git a/Build/source/texk/xdvipdfmx/src/mpost.h b/Build/source/texk/xdvipdfmx/src/mpost.h new file mode 100644 index 00000000000..7020b3775da --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/mpost.h @@ -0,0 +1,47 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/mpost.h,v 1.11 2004/09/11 14:50:28 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _MPOST_H_ +#define _MPOST_H_ + +#include "mfileio.h" +#include "pdfximage.h" +#include "pdfdev.h" + +extern int check_for_mp (FILE *fp); + +extern int mps_scan_bbox (char **pp, char *endptr, pdf_rect *bbox); + +/* returns xobj_id */ +extern int mps_include_page (const char *ident, FILE *fp); + +extern int mps_exec_inline (char **buffer, char *endptr, + double x_user, double y_user); +extern int mps_stack_depth (void); + +extern void mps_eop_cleanup (void); + +extern int mps_do_page (FILE *fp); + +#endif /* _MPOST_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/numbers.c b/Build/source/texk/xdvipdfmx/src/numbers.c new file mode 100644 index 00000000000..2a0b2c3a0c2 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/numbers.c @@ -0,0 +1,224 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/numbers.c,v 1.8 2004/03/03 13:19:00 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include "system.h" +#include "error.h" +#include "mfileio.h" +#include "numbers.h" + +UNSIGNED_BYTE get_unsigned_byte (FILE *file) +{ + int ch; + if ((ch = fgetc (file)) < 0) + ERROR ("File ended prematurely\n"); + return (UNSIGNED_BYTE) ch; +} + +UNSIGNED_BYTE sget_unsigned_byte (char *s) +{ + return *((unsigned char *) s); +} + +SIGNED_BYTE get_signed_byte (FILE *file) +{ + int byte; + byte = get_unsigned_byte(file); + if (byte >= 0x80) + byte -= 0x100; + return (SIGNED_BYTE) byte; +} + +UNSIGNED_PAIR get_unsigned_pair (FILE *file) +{ + int i; + UNSIGNED_BYTE byte; + UNSIGNED_PAIR pair = 0; + for (i=0; i<2; i++) { + byte = get_unsigned_byte(file); + pair = pair*0x100u + byte; + } + return pair; +} + +UNSIGNED_PAIR sget_unsigned_pair (unsigned char *s) +{ + int i; + UNSIGNED_BYTE byte; + UNSIGNED_PAIR pair = 0; + for (i=0; i<2; i++) { + byte = *(s++); + pair = pair*0x100u + byte; + } + return pair; +} + +SIGNED_PAIR get_signed_pair (FILE *file) +{ + int i; + long pair = 0; + for (i=0; i<2; i++) { + pair = pair*0x100 + get_unsigned_byte(file); + } + if (pair >= 0x8000) { + pair -= 0x10000l; + } + return (SIGNED_PAIR) pair; +} + + +UNSIGNED_TRIPLE get_unsigned_triple(FILE *file) +{ + int i; + long triple = 0; + for (i=0; i<3; i++) { + triple = triple*0x100u + get_unsigned_byte(file); + } + return (UNSIGNED_TRIPLE) triple; +} + +SIGNED_TRIPLE get_signed_triple(FILE *file) +{ + int i; + long triple = 0; + for (i=0; i<3; i++) { + triple = triple*0x100 + get_unsigned_byte(file); + } + if (triple >= 0x800000l) + triple -= 0x1000000l; + return (SIGNED_TRIPLE) triple; +} + +SIGNED_QUAD get_signed_quad(FILE *file) +{ + int byte, i; + long quad = 0; + + /* Check sign on first byte before reading others */ + byte = get_unsigned_byte(file); + quad = byte; + if (quad >= 0x80) + quad = byte - 0x100; + for (i=0; i<3; i++) { + quad = quad*0x100 + get_unsigned_byte(file); + } + return (SIGNED_QUAD) quad; +} + +UNSIGNED_QUAD get_unsigned_quad(FILE *file) +{ + int i; + unsigned long quad = 0; + for (i=0; i<4; i++) { + quad = quad*0x100u + get_unsigned_byte(file); + } + return (UNSIGNED_QUAD) quad; +} + +SIGNED_QUAD sqxfw (SIGNED_QUAD sq, fixword fw) +{ + int sign = 1; + unsigned long a, b, c, d, ad, bd, bc, ac; + unsigned long e, f, g, h, i, j, k; + unsigned long result; + /* Make positive. */ + if (sq < 0) { + sign = -sign; + sq = -sq; + } + if (fw < 0) { + sign = -sign; + fw = -fw; + } + a = ((unsigned long) sq) >> 16u; + b = ((unsigned long) sq) & 0xffffu; + c = ((unsigned long) fw) >> 16u; + d = ((unsigned long) fw) & 0xffffu; + ad = a*d; bd = b*d; bc = b*c; ac = a*c; + e = bd >> 16u; + f = ad >> 16u; + g = ad & 0xffffu; + h = bc >> 16u; + i = bc & 0xffffu; + j = ac >> 16u; + k = ac & 0xffffu; + result = (e+g+i + (1<<3)) >> 4u; /* 1<<3 is for rounding */ + result += (f+h+k) << 12u; + result += j << 28u; + return (sign > 0) ? result : result * -1L; +} + +SIGNED_QUAD axboverc (SIGNED_QUAD n1, SIGNED_QUAD n2, SIGNED_QUAD divide) +{ + int sign = 1; + unsigned long a, b, c, d, ad, bd, bc, ac, e, f, g, h, i, j, o; + unsigned long high, low; + SIGNED_QUAD result = 0; + /* Make positive. */ + if (n1 < 0) { + sign = -sign; + n1 = -n1; + } + if (n2 < 0) { + sign = -sign; + n2 = -n2; + } + if (divide < 0) { + sign = -sign; + divide = -divide; + } + a = ((unsigned long) n1) >> 16u; + b = ((unsigned long) n1) & 0xffffu; + c = ((unsigned long) n2) >> 16u; + d = ((unsigned long) n2) & 0xffffu; + ad = a*d; bd = b*d; bc = b*c; ac = a*c; + e = bd >> 16u; f = bd & 0xffffu; + g = ad >> 16u; h = ad & 0xffffu; + i = bc >> 16u; j = bc & 0xffffu; + o = e+h+j; + high = g+i+(o>>16u)+ac; o &= 0xffffu; + low = (o << 16) + f; + if (high >= divide) + ERROR ("Overflow in axboc"); + { + int k; + for (k=0; k<32; k++) { + high *= 2; + result *= 2; + if (low >= 0x80000000) { + low -= 0x80000000; + high += 1; + } + low *= 2; + if (high > divide) { + high -= divide; + result += 1; + } + } + } + high *= 2; + if (high >= divide) + result += 1; + return (sign>0)?result:-result; +} + diff --git a/Build/source/texk/xdvipdfmx/src/numbers.h b/Build/source/texk/xdvipdfmx/src/numbers.h new file mode 100644 index 00000000000..9e6b2306508 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/numbers.h @@ -0,0 +1,82 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/numbers.h,v 1.9 2005/07/20 10:41:54 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _NUMBERS_H_ +#define _NUMBERS_H_ + +#include +#include + +typedef unsigned char Ubyte; +typedef int UNSIGNED_BYTE, SIGNED_BYTE, SIGNED_PAIR; +typedef unsigned UNSIGNED_PAIR; +typedef long UNSIGNED_TRIPLE, SIGNED_TRIPLE, SIGNED_QUAD; +typedef unsigned long UNSIGNED_QUAD; + +extern UNSIGNED_BYTE get_unsigned_byte (FILE *); +extern UNSIGNED_BYTE sget_unsigned_byte (char *); +extern SIGNED_BYTE get_signed_byte (FILE *); +extern UNSIGNED_PAIR get_unsigned_pair (FILE *); +extern UNSIGNED_PAIR sget_unsigned_pair (unsigned char *); +extern SIGNED_PAIR get_signed_pair (FILE *); +extern UNSIGNED_TRIPLE get_unsigned_triple (FILE *); +extern SIGNED_TRIPLE get_signed_triple (FILE *); +extern SIGNED_QUAD get_signed_quad (FILE *); +extern UNSIGNED_QUAD get_unsigned_quad (FILE *); + +typedef signed long fixword; + +extern SIGNED_QUAD sqxfw (SIGNED_QUAD sq, fixword fw); +extern SIGNED_QUAD axboverc (SIGNED_QUAD n1, SIGNED_QUAD n2, SIGNED_QUAD divide); + +#ifndef MAX +# define MAX(a,b) ((a)>(b)?(a):(b)) +#endif +#ifndef MIN +# define MIN(a,b) ((a)<(b)?(a):(b)) +#endif +#define ISODD(n) (((n)/2)*2!=(n)) +#define ISEVEN(n) (((n)/2)*2==(n)) + +#ifndef M_PI +# define M_PI (4.0*atan(1.0)) +#endif + +#define ROUND(n,acc) (floor(((double)n)/(acc)+0.5)*(acc)) + +#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L +# define __C99__ +#endif + +#ifndef __C99__ +# ifndef round +# define round(v) (floor((v) + 0.5)) +# endif +# ifndef trunc +# define trunc(v) ((v) > 0.0 ? floor((v)) : ceil((v))) +# endif +#endif +#define round_at(v,acc) (round(((double)(v))/(acc))*(acc)) + +#endif /* _NUMBERS_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/otl_conf.c b/Build/source/texk/xdvipdfmx/src/otl_conf.c new file mode 100644 index 00000000000..298384961ff --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/otl_conf.c @@ -0,0 +1,654 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/otl_conf.c,v 1.6 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifdef _HAVE_CONFIG_H +#include "config.h" +#endif /* _HAVE_CONFIG_H */ + +#include "system.h" +#include "error.h" +#include "mem.h" +#include "dpxfile.h" +#include "dpxutil.h" + +#include "pdfobj.h" +#include "pdfparse.h" + +#include "agl.h" + +#include "otl_conf.h" + +#define VERBOSE_LEVEL_MIN 0 +static int verbose = 0; +void +otl_conf_set_verbose (void) +{ + verbose++; +} + +static pdf_obj * +parse_uc_coverage (pdf_obj *gclass, char **pp, char *endptr) +{ + pdf_obj *coverage; + pdf_obj *value; + long ucv = 0; + char *glyphname, *glyphclass; + + if (*pp + 1 >= endptr) + return NULL; + + if (**pp == '[') + (*pp)++; + + coverage = pdf_new_array(); + + while (*pp < endptr) { + skip_white(pp, endptr); + switch (**pp) { + case ']': case ';': + (*pp)++; + return coverage; + break; + case ',': + (*pp)++; + break; + case '@': + { + pdf_obj *cvalues; + int i, size; + + (*pp)++; + glyphclass = parse_c_ident(pp, endptr); + cvalues = pdf_lookup_dict(gclass, glyphclass); + if (!cvalues) + ERROR("%s not defined...", glyphclass); + size = pdf_array_length(cvalues); + for (i = 0; i < size; i++) { + pdf_add_array(coverage, + pdf_link_obj(pdf_get_array(cvalues, i))); + } + } + break; + default: + glyphname = parse_c_ident(pp, endptr); + if (!glyphname) + ERROR("Invalid Unicode character specified."); + + skip_white(pp, endptr); + if (*pp + 1 < endptr && **pp == '-') { + value = pdf_new_array(); + + if (agl_get_unicodes(glyphname, &ucv, 1) != 1) + ERROR("Invalid Unicode char: %s", glyphname); + pdf_add_array(value, pdf_new_number(ucv)); + RELEASE(glyphname); + + (*pp)++; skip_white(pp, endptr); + glyphname = parse_c_ident(pp, endptr); + if (!glyphname) + ERROR("Invalid Unicode char: %s", glyphname); + if (agl_get_unicodes(glyphname, &ucv, 1) != 1) + ERROR("Invalid Unicode char: %s", glyphname); + pdf_add_array(value, pdf_new_number(ucv)); + RELEASE(glyphname); + + } else { + if (agl_get_unicodes(glyphname, &ucv, 1) != 1) + ERROR("Invalid Unicode char: %s", glyphname); + value = pdf_new_number(ucv); + RELEASE(glyphname); + } + pdf_add_array(coverage, value); + break; + } + skip_white(pp, endptr); + } + + return coverage; +} + +static pdf_obj *parse_block (pdf_obj *gclass, char **pp, char *endptr); + +static void +add_rule (pdf_obj *rule, pdf_obj *gclass, + char *first, char *second, char *suffix) +{ + pdf_obj *glyph1, *glyph2; +#define MAX_UNICODES 16 + long unicodes[MAX_UNICODES]; + int i, n_unicodes; + + if (first[0] == '@') { + glyph1 = pdf_lookup_dict(gclass, &first[1]); + if (!glyph1) { + WARN("No glyph class \"%s\" found.", &first[1]); + return; + } + pdf_link_obj(glyph1); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_conf>> Output glyph sequence: %s\n", first); + } + + } else { + n_unicodes = agl_get_unicodes(first, unicodes, MAX_UNICODES); + if (n_unicodes < 1) { + WARN("Failed to convert glyph \"%s\" to Unicode sequence.", + first); + return; + } + glyph1 = pdf_new_array(); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_conf>> Output glyph sequence: %s ->", first); + } + + for (i = 0; i < n_unicodes; i++) { + pdf_add_array(glyph1, pdf_new_number(unicodes[i])); + + if (verbose > VERBOSE_LEVEL_MIN) { + if (unicodes[i] < 0x10000) { + MESG(" U+%04X", unicodes[i]); + } else { + MESG(" U+%06X", unicodes[i]); + } + } + } + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("\n"); + } + } + + if (second[0] == '@') { + glyph2 = pdf_lookup_dict(gclass, &second[1]); + if (!glyph2) { + WARN("No glyph class \"%s\" found.", &second[1]); + return; + } + pdf_link_obj(glyph2); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_conf>> Input glyph sequence: %s (%s)\n", second, suffix); + } + + } else { + n_unicodes = agl_get_unicodes(second, unicodes, 16); + if (n_unicodes < 1) { + WARN("Failed to convert glyph \"%s\" to Unicode sequence.", + second); + return; + } + + if (verbose > VERBOSE_LEVEL_MIN) { + if (suffix) + MESG("otl_conf>> Input glyph sequence: %s.%s ->", second, suffix); + else + MESG("otl_conf>> Input glyph sequence: %s ->", second); + } + + glyph2 = pdf_new_array(); + for (i = 0; i < n_unicodes; i++) { + pdf_add_array(glyph2, pdf_new_number(unicodes[i])); + + if (verbose > VERBOSE_LEVEL_MIN) { + if (unicodes[i] < 0x10000) { + MESG(" U+%04X", unicodes[i]); + } else { + MESG(" U+%06X", unicodes[i]); + } + } + } + if (verbose > VERBOSE_LEVEL_MIN) { + MESG(" (%s)\n", suffix); + } + } + + /* OK */ + if (suffix) { + pdf_add_array(rule, pdf_new_string(suffix, strlen(suffix))); + } else { + pdf_add_array(rule, pdf_new_null()); + } + pdf_add_array(rule, glyph1); + pdf_add_array(rule, glyph2); +} + +static pdf_obj * +parse_substrule (pdf_obj *gclass, char **pp, char *endptr) +{ + pdf_obj *substrule; + char *token; + + skip_white(pp, endptr); + if (*pp < endptr && **pp == '{') + (*pp)++; + + skip_white(pp, endptr); + if (*pp >= endptr) + return NULL; + + substrule = pdf_new_array(); + while (*pp < endptr && **pp != '}') { + skip_white(pp, endptr); + if (*pp >= endptr) + break; + + if (**pp == '#') { + while (*pp < endptr) { + if (**pp == '\r' || **pp == '\n') { + (*pp)++; + break; + } + (*pp)++; + } + continue; + } else if (**pp == ';') { + (*pp)++; + continue; + } + + skip_white(pp, endptr); + token = parse_c_ident(pp, endptr); + if (!token) + break; + + if (!strcmp(token, "assign") || !strcmp(token, "substitute")) { + char *tmp, *first, *second, *suffix; + + skip_white(pp, endptr); + + first = parse_c_ident(pp, endptr); + if (!first) + ERROR("Syntax error (1)"); + + skip_white(pp, endptr); + tmp = parse_c_ident(pp, endptr); + if (strcmp(tmp, "by") && strcmp(tmp, "to")) + ERROR("Syntax error (2): %s", *pp); + + skip_white(pp, endptr); + second = parse_c_ident(pp, endptr); /* allows @ */ + if (!second) + ERROR("Syntax error (3)"); + + /* (assign|substitute) tag dst src */ + pdf_add_array(substrule, pdf_new_name(token)); + if (*pp + 1 < endptr && **pp == '.') { + (*pp)++; + suffix = parse_c_ident(pp, endptr); + } else { + suffix = NULL; + } + add_rule(substrule, gclass, first, second, suffix); + + RELEASE(first); + RELEASE(tmp); + RELEASE(second); + if (suffix) + RELEASE(suffix); + } else { + ERROR("Unkown command %s.", token); + } + RELEASE(token); + skip_white(pp, endptr); + } + + if (*pp < endptr && **pp == '}') + (*pp)++; + return substrule; +} + +static pdf_obj * +parse_block (pdf_obj *gclass, char **pp, char *endptr) +{ + pdf_obj *rule; + char *token, *tmp; + + skip_white(pp, endptr); + if (*pp < endptr && **pp == '{') + (*pp)++; + + skip_white(pp, endptr); + if (*pp >= endptr) + return NULL; + + rule = pdf_new_dict(); + while (*pp < endptr && **pp != '}') { + skip_white(pp, endptr); + if (*pp >= endptr) + break; + if (**pp == '#') { + while (*pp < endptr) { + if (**pp == '\r' || **pp == '\n') { + (*pp)++; + break; + } + (*pp)++; + } + continue; + } else if (**pp == ';') { + (*pp)++; + continue; + } + + skip_white(pp, endptr); + token = parse_c_ident(pp, endptr); + if (!token) + break; + + if (!strcmp(token, "script") || + !strcmp(token, "language")) { + int i, len; + + skip_white(pp, endptr); + len = 0; + while (*pp + len < endptr && *(*pp + len) != ';') { + len++; + } + if (len > 0) { + tmp = NEW(len+1, char); + memset(tmp, 0, len+1); + for (i = 0; i < len; i++) { + if (!isspace(**pp)) + tmp[i] = **pp; + (*pp)++; + } + pdf_add_dict(rule, + pdf_new_name(token), + pdf_new_string(tmp, strlen(tmp))); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_conf>> Current %s set to \"%s\"\n", token, tmp); + } + + RELEASE(tmp); + } + } else if (!strcmp(token, "option")) { + pdf_obj *opt_dict, *opt_rule; + + opt_dict = pdf_lookup_dict(rule, "option"); + if (!opt_dict) { + opt_dict = pdf_new_dict(); + pdf_add_dict(rule, + pdf_new_name("option"), opt_dict); + } + + skip_white(pp, endptr); + tmp = parse_c_ident(pp, endptr); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_conf>> Reading option \"%s\"\n", tmp); + } + + skip_white(pp, endptr); + opt_rule = parse_block(gclass, pp, endptr); + pdf_add_dict(opt_dict, pdf_new_name(tmp), opt_rule); + + RELEASE(tmp); + } else if (!strcmp(token, "prefered") || + !strcmp(token, "required") || + !strcmp(token, "optional")) { + pdf_obj *subst, *rule_block; + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_conf>> Reading block (%s)\n", token); + } + + skip_white(pp, endptr); + if (*pp >= endptr || **pp != '{') + ERROR("Syntax error (1)"); + + rule_block = parse_substrule(gclass, pp, endptr); + subst = pdf_lookup_dict(rule, "rule"); + if (!subst) { + subst = pdf_new_array(); + pdf_add_dict(rule, pdf_new_name("rule"), subst); + } + pdf_add_array(subst, pdf_new_number(token[0])); + pdf_add_array(subst, rule_block); + } else if (token[0] == '@') { + pdf_obj *coverage; + + skip_white(pp, endptr); + (*pp)++; /* = */ + skip_white(pp, endptr); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_conf>> Glyph class \"%s\"\n", token); + } + + coverage = parse_uc_coverage(gclass, pp, endptr); + if (!coverage) + ERROR("No valid Unicode characters..."); + + pdf_add_dict(gclass, + pdf_new_name(&token[1]), coverage); + } + RELEASE(token); + skip_white(pp, endptr); + } + + if (*pp < endptr && **pp == '}') + (*pp)++; + return rule; +} + + +static pdf_obj * +otl_read_conf (const char *conf_name) +{ + pdf_obj *rule; + pdf_obj *gclass; + FILE *fp; + char *fullname, *filename; + char *wbuf, *p, *endptr; + long size, len; + + filename = NEW(strlen(conf_name)+strlen(".otl")+1, char); + strcpy(filename, conf_name); + strcat(filename, ".otl"); +#ifdef MIKTEX + if (!miktex_find_app_input_file("dvipdfm", filename, work_buffer)) + fullname = NULL; + else { + fullname = work_buffer; + } +#else /* !MIKTEX */ + fullname = kpse_find_file(filename, kpse_program_text_format, 0); +#endif + RELEASE(filename); + if (!fullname) { + WARN("Layout file %s not found.", conf_name); + return NULL; + } + + fp = MFOPEN(fullname, FOPEN_RBIN_MODE); + if (!fp) { + RELEASE(fullname); + return NULL; + } + + size = file_size(fp); + rewind(fp); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("\n"); + MESG("otl_conf>> Layout config. \"%s\" found: file=\"%s\" (%ld bytes)\n", + conf_name, fullname, size); + } + if (size < 1) + return NULL; + + wbuf = NEW(size, char); + p = wbuf; endptr = p + size; + while (size > 0 && p < endptr) { + len = fread(p, sizeof(char), size, fp); + p += len; + size -= len; + } + + p = wbuf; + gclass = pdf_new_dict(); + rule = parse_block(gclass, &p, endptr); + pdf_release_obj(gclass); + + RELEASE(wbuf); + + return rule; +} + +static pdf_obj *otl_confs = NULL; + +pdf_obj * +otl_find_conf (const char *conf_name) +{ + pdf_obj *rule; + pdf_obj *script, *language; + pdf_obj *options; + + return NULL; + + if (otl_confs) + rule = pdf_lookup_dict(otl_confs, conf_name); + else { + otl_confs = pdf_new_dict(); + rule = NULL; + } + + if (!rule) { + rule = otl_read_conf(conf_name); + if (rule) { + pdf_add_dict(otl_confs, + pdf_new_name(conf_name), rule); + script = pdf_lookup_dict(rule, "script"); + language = pdf_lookup_dict(rule, "language"); + options = pdf_lookup_dict(rule, "option"); + if (!script) { + script = pdf_new_string("*", 1); + pdf_add_dict(rule, + pdf_new_name("script"), + script); + WARN("Script unspecified in \"%s\"...", conf_name); + } + if (!language) { + language = pdf_new_string("dflt", 4); + pdf_add_dict(rule, + pdf_new_name("language"), + language); + WARN("Language unspecified in \"%s\"...", conf_name); + } + + if (options) { + pdf_obj *optkeys, *opt, *key; + long i, num_opts; + + optkeys = pdf_dict_keys(options); + num_opts = pdf_array_length(optkeys); + for (i = 0; i < num_opts; i++) { + key = pdf_get_array(optkeys, i); + opt = pdf_lookup_dict(options, pdf_name_value(key)); + if (!pdf_lookup_dict(opt, "script")) + pdf_add_dict(opt, + pdf_new_name("script"), + pdf_link_obj(script)); + if (!pdf_lookup_dict(opt, "language")) + pdf_add_dict(opt, + pdf_new_name("language"), + pdf_link_obj(language)); + } + pdf_release_obj(optkeys); + } + + } + } + + return rule; +} + + +char * +otl_conf_get_script (pdf_obj *conf) +{ + pdf_obj *script; + + ASSERT(conf); + + script = pdf_lookup_dict(conf, "script"); + + return pdf_string_value(script); +} + +char * +otl_conf_get_language (pdf_obj *conf) +{ + pdf_obj *language; + + ASSERT(conf); + + language = pdf_lookup_dict(conf, "language"); + + return pdf_string_value(language); +} + +pdf_obj * +otl_conf_get_rule (pdf_obj *conf) +{ + ASSERT(conf); + return pdf_lookup_dict(conf, "rule"); +} + +pdf_obj * +otl_conf_find_opt (pdf_obj *conf, const char *opt_tag) +{ + pdf_obj *opt_conf = NULL; + pdf_obj *options; + + ASSERT(conf); + + options = pdf_lookup_dict(conf, "option"); + if (options && opt_tag) + opt_conf = pdf_lookup_dict(options, opt_tag); + else + opt_conf = NULL; + + return opt_conf; +} + +void +otl_init_conf (void) +{ + if (otl_confs) + pdf_release_obj(otl_confs); + otl_confs = pdf_new_dict(); + + if (verbose > VERBOSE_LEVEL_MIN + 10) { + pdf_release_obj(pdf_ref_obj(otl_confs)); + } +} + +void +otl_close_conf (void) +{ + pdf_release_obj(otl_confs); + otl_confs = NULL; +} diff --git a/Build/source/texk/xdvipdfmx/src/otl_conf.h b/Build/source/texk/xdvipdfmx/src/otl_conf.h new file mode 100644 index 00000000000..bf63303ae42 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/otl_conf.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/otl_conf.h,v 1.1 2004/08/22 10:26:24 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _OTL_CONF_H_ +#define _OTL_CONF_H_ + +extern void otl_conf_set_verbose (void); + +extern pdf_obj *otl_find_conf (const char *conf_name); +extern void otl_init_conf (void); +extern void otl_close_conf (void); + +extern pdf_obj *otl_conf_get_class (pdf_obj *conf, const char *ident); + +extern char *otl_conf_get_script (pdf_obj *conf); +extern char *otl_conf_get_language (pdf_obj *conf); +extern pdf_obj *otl_conf_get_rule (pdf_obj *conf); +extern pdf_obj *otl_conf_find_opt (pdf_obj *conf, const char *opt_tag); + +#endif /* _OTL_CONF_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/otl_opt.c b/Build/source/texk/xdvipdfmx/src/otl_opt.c new file mode 100644 index 00000000000..3ccab257ea0 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/otl_opt.c @@ -0,0 +1,343 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/otl_opt.c,v 1.3 2004/08/22 10:26:24 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifdef _HAVE_CONFIG_H +#include "config.h" +#endif /* _HAVE_CONFIG_H */ + +#include +#include +#include + +#include "system.h" +#include "error.h" +#include "mem.h" +#include "mfileio.h" + +#include "otl_opt.h" + +struct bt_node { + int flag; + + struct bt_node *left; + struct bt_node *right; + + char data[4]; +}; + +#define FLAG_NOT (1 << 0) +#define FLAG_AND (1 << 1) + +static int match_expr (struct bt_node *expr, const char *key); +static int +match_expr (struct bt_node *expr, const char *key) +{ + int retval = 1; + int i; + + if (expr) { + if (!expr->left && !expr->right) { + for (i = 0; i < 4; i++) { + if (expr->data[i] != '?' && + expr->data[i] != key[i]) { + retval = 0; + break; + } + } + } else { + if (expr->left) { + retval = match_expr(expr->left, key); + } + if (expr->right) { + if (retval && (expr->flag & FLAG_AND)) /* and */ + retval &= match_expr(expr->right, key); + else if (!retval && !(expr->flag & FLAG_AND)) /* or */ + retval = match_expr(expr->right, key); + } + } + if (expr->flag & FLAG_NOT) /* not */ + retval = retval ? 0 : 1; + + } + + return retval; +} + +static struct bt_node * +bt_new_tree (void) +{ + struct bt_node *expr; + + expr = NEW(1, struct bt_node); + expr->flag = 0; + expr->left = NULL; + expr->right = NULL; + memset(expr->data, 0, 4); + + return expr; +} + +static void bt_release_tree (struct bt_node *tree); + +static void +bt_release_tree (struct bt_node *tree) +{ + if (tree) { + if (tree->left) + bt_release_tree(tree->left); + if (tree->right) + bt_release_tree(tree->right); + RELEASE(tree); + } +} + +static struct bt_node * +parse_expr (char **pp, char *endptr) +{ + struct bt_node *root, *curr; + + if (*pp >= endptr) + return NULL; + + root = curr = bt_new_tree(); + while (*pp < endptr) { + switch (**pp) { + case '!': + if (curr->flag & 2) + curr->flag &= ~FLAG_NOT; + else + curr->flag |= FLAG_NOT; + (*pp)++; + break; + case '(': + (*pp)++; + if (*pp < endptr) { + struct bt_node *expr; + + expr = parse_expr(pp, endptr); + if (!expr) { + WARN("Syntax error: %s\n", *pp); + return NULL; + } + if (**pp != ')') { + WARN("Syntax error: Unbalanced ()\n"); + return NULL; + } + curr->left = expr->left; + curr->right = expr->right; + memcpy(curr->data, expr->data, 4); + + RELEASE(expr); + } else { + WARN("Syntax error: Unbalanced ()\n"); + bt_release_tree(root); + return NULL; + } + (*pp)++; + break; + case ')': + return root; + break; + case '|': case '&': + if (*pp >= endptr) { + WARN("Syntax error: %s\n", *pp); + bt_release_tree(root); + return NULL; + } else { + struct bt_node *tmp; + + tmp = bt_new_tree(); + tmp->left = root; + tmp->right = curr = bt_new_tree(); + if (**pp == '&') + tmp->flag = 1; + else + tmp->flag = 0; + root = tmp; + } + (*pp)++; + break; + case '*': + memset(curr->data, '?', 4); + (*pp)++; + break; + default: + if (*pp + 4 <= endptr) { + int i; + + for (i = 0; i < 4; i++) { + if (**pp == ' ' || **pp == '?' || + isalpha(**pp) || isdigit(**pp)) + curr->data[i] = **pp; + else if (**pp == '_') + curr->data[i] = ' '; + else { + WARN("Invalid char in tag: %c\n", **pp); + bt_release_tree(root); + return NULL; + } + (*pp)++; + } + } else { + WARN("Syntax error: %s\n", *pp); + bt_release_tree(root); + return NULL; + } + break; + } + } + + return root; +} + + +struct otl_opt +{ + struct bt_node *rule; +}; + +otl_opt * +otl_new_opt (void) +{ + struct otl_opt *opt; + + opt = NEW(1, struct otl_opt); + opt->rule = NULL; + + return (otl_opt *) opt; +} + + +void +otl_release_opt (otl_opt *opt) +{ + if (opt->rule) { + bt_release_tree(opt->rule); + } + opt->rule = NULL; + RELEASE(opt); +} + +#if 0 +struct lv_range +{ + long start, end; +}; + +struct uc_coverage +{ + long count; + struct lv_range *ranges; +}; + +static int CDECL +range_cmp (const void *v1, const void *v2) +{ + struct lv_range *sv1, *sv2; + + sv1 = (struct lv_range *) v1; + sv2 = (struct lv_range *) v2; + + if (sv1->start < sv2->start) + return -1; + else + return 1; + + return 0; +} + +static int CDECL +range_overlap (const void *v1, const void *v2) +{ + struct lv_range *sv1, *sv2; + + sv1 = (struct lv_range *) v1; + sv2 = (struct lv_range *) v2; + + /* Must be first sort in increasing start order */ + if (sv1->end >= sv2->start) + return 0; + else if (sv1->end < sv2->start) + return -1; + + return 1; +} + +static void +check_uc_coverage (struct uc_coverage *coverage) +{ + struct lv_range *r1, *r2; + long i; + + for (i = 0; i < coverage->count; i++) { + r1 = &coverage->ranges[i]; + r2 = bsearch(r1, coverage->ranges, + coverage->count, sizeof(struct lv_range), + range_overlap); + if (r2 && r1 != r2) { + WARN("Overlapping Unicode range found:"); + WARN("[%x-%x], [%x-%x] ==> [%x-%x]", + r1->start, r1->end, r2->start, r2->end, + MIN(r1->start, r2->start), MAX(r1->end, r2->end)); + r2->start = MIN(r1->start, r2->start); + r2->end = MAX(r1->end , r2->end ); + if (i < coverage->count - 1) { + memmove(&coverage->ranges[i], &coverage->ranges[i+1], + (coverage->count - i - 1) * sizeof(struct lv_range)); + coverage->count -= 1; + } + } + } + /* ... */ + if (coverage->count == 0) { + RELEASE(coverage->ranges); + coverage->ranges = NULL; + } +} +#endif + +int +otl_parse_optstring (otl_opt *opt, const char *optstr) +{ + char *p, *endptr; + + ASSERT(opt); + + if (optstr) { + p = (char *) optstr; + endptr = p + strlen(optstr); + opt->rule = parse_expr(&p, endptr); + } + + return 0; +} + +int +otl_match_optrule (otl_opt *opt, const char *tag) +{ + ASSERT(tag); + + if (!opt || !opt->rule) + return 1; + + return match_expr(opt->rule, tag); +} diff --git a/Build/source/texk/xdvipdfmx/src/otl_opt.h b/Build/source/texk/xdvipdfmx/src/otl_opt.h new file mode 100644 index 00000000000..b3442dfc101 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/otl_opt.h @@ -0,0 +1,37 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/otl_opt.h,v 1.3 2004/08/22 10:26:24 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _OTL_OPT_H_ +#define _OTL_OPT_H_ + + +typedef struct otl_opt otl_opt; + +#define OTL_OPTSTR_SEP '+' + +extern otl_opt *otl_new_opt (void); +extern void otl_release_opt (otl_opt *opt); + +extern int otl_parse_optstring (otl_opt *opt, const char *optstr); +extern int otl_match_optrule (otl_opt *opt, const char *tag); + +#endif /* _OTL_OPT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfcolor.c b/Build/source/texk/xdvipdfmx/src/pdfcolor.c new file mode 100644 index 00000000000..0e0162f04ce --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfcolor.c @@ -0,0 +1,1644 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfcolor.c,v 1.11 2005/08/18 04:36:20 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* No page independence here... + */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxfile.h" + +#include "pdfdoc.h" +#include "pdfdev.h" + +#include "pdfcolor.h" + + +static int verbose = 0; +void +pdf_color_set_verbose (void) +{ + verbose++; +} + +int +pdf_color_rgbcolor (pdf_color *color, double r, double g, double b) +{ + ASSERT(color); + + if (r < 0.0 || r > 1.0) { + WARN("Invalid color value specified: red=%g", r); + return -1; + } + if (g < 0.0 || g > 1.0) { + WARN("Invalid color value specified: green=%g", g); + return -1; + } + if (b < 0.0 || b > 1.0) { + WARN("Invalid color value specified: blue=%g", b); + return -1; + } + color->values[0] = r; + color->values[1] = g; + color->values[2] = b; + + color->num_components = 3; + + return 0; +} + +int +pdf_color_cmykcolor (pdf_color *color, + double c, double m, double y, double k) +{ + ASSERT(color); + + if (c < 0.0 || c > 1.0) { + WARN("Invalid color value specified: cyan=%g", c); + return -1; + } + if (m < 0.0 || m > 1.0) { + WARN("Invalid color value specified: magenta=%g", m); + return -1; + } + if (y < 0.0 || y > 1.0) { + WARN("Invalid color value specified: yellow=%g", y); + return -1; + } + if (k < 0.0 || k > 1.0) { + WARN("Invalid color value specified: black=%g", k); + return -1; + } + + color->values[0] = c; + color->values[1] = m; + color->values[2] = y; + color->values[3] = k; + + color->num_components = 4; + + return 0; +} + +int +pdf_color_graycolor (pdf_color *color, double g) +{ + ASSERT(color); + + if (g < 0.0 || g > 1.0) { + WARN("Invalid color value specified: gray=%g", g); + return -1; + } + + color->values[0] = g; + + color->num_components = 1; + + return 0; +} + + +void +pdf_color_copycolor (pdf_color *color1, const pdf_color *color2) +{ + ASSERT(color1 && color2); + + memcpy(color1, color2, sizeof(pdf_color)); +} + +int +pdf_color_is_white (pdf_color *color) +{ + int is_white = 0; + + ASSERT(color); + + switch (color->num_components) { + case 1: + if (color->values[0] == 1.0) + is_white = 1; + break; + case 4: + if (color->values[0] == 0.0 && + color->values[1] == 0.0 && + color->values[2] == 0.0 && + color->values[3] == 0.0) { + is_white = 1; + } + break; + case 3: + if (color->values[0] == 1.0 && + color->values[1] == 1.0 && + color->values[2] == 1.0) { + is_white = 1; + } + break; + default: + is_white = 0; + break; + } + + return is_white; +} + +pdf_color current_fill = { + 1, + {0.0, 0.0, 0.0, 0.0} +}; + +pdf_color current_stroke = { + 1, + {0.0, 0.0, 0.0, 0.0} +}; + +#if 0 +/* + * This routine is not a real color matching. + */ +static int +compare_color (const pdf_color *color1, const pdf_color *color2) +{ + if (color1->num_components != color2->num_components) + return -1; + + switch (color1->num_components) { + case 4: + if (color1->values[0] == color2->values[0] && + color1->values[1] == color2->values[1] && + color1->values[2] == color2->values[2] && + color1->values[3] == color2->values[3]) + return 0; + break; + case 3: + if (color1->values[0] == color2->values[0] && + color1->values[1] == color2->values[1] && + color1->values[2] == color2->values[2]) + return 0; + break; + case 1: + if (color1->values[0] == color2->values[0]) + return 0; + break; + } + + return -1; +} +#endif + +static int +valid_color_values (pdf_color *validated, const pdf_color *color) +{ + int i, num_components = 0; + + num_components = color->num_components; + if (num_components != 1 && + num_components != 3 && + num_components != 4) { + ERROR("Only RGB/CMYK/Gray currently supported."); + return -1; + } + + for (i = 0; i < num_components; i++) { + if (color->values[i] < 0.0 || color->values[i] > 1.0) { + WARN("Invalid color value: %g", color->values[i]); + return -1; + } else { + validated->values[i] = color->values[i]; + } + } + validated->num_components = color->num_components; + + return 0; +} + +int +pdf_dev_currentcolor (pdf_color *color, int is_fill) +{ + ASSERT(color); + + if (is_fill) { + memcpy(color, ¤t_fill, sizeof(pdf_color)); + } else { + memcpy(color, ¤t_stroke, sizeof(pdf_color)); + } + + return 0; +} + +int +pdf_dev_setcolor (const pdf_color *color, int is_fill) +{ + int len = 0, colormode; + int i; + char format_buffer[128]; + pdf_color validated; + + if (!color) { + WARN("No color specified."); + return -1; + } + + colormode = pdf_dev_get_param(PDF_DEV_PARAM_COLORMODE); + if (!colormode) { + WARN("setcolor ignored. (Ignore color option set)"); + return 0; + } + + if (valid_color_values(&validated, color) < 0) { + return -1; + } + +#if 0 + /* There are much problems in this :( */ + if (is_fill) { + if (!compare_color(&validated, ¤t_fill)) { + return 0; + } + } else { + if (!compare_color(&validated, ¤t_stroke)) { + return 0; + } + } +#endif + + graphics_mode(); + + for (i = 0; i < validated.num_components; i++) { + len = sprintf(format_buffer, " %g", ROUND(validated.values[i], 0.01)); + pdf_doc_add_page_content(format_buffer, len); + } + + switch (validated.num_components) { + case 3: + pdf_doc_add_page_content((is_fill ? " rg" : " RG"), 3); + break; + case 4: + pdf_doc_add_page_content((is_fill ? " k" : " K" ), 2); + break; + case 1: + pdf_doc_add_page_content((is_fill ? " g" : " G" ), 2); + break; + default: + ERROR("Only RGB/CMYK/Gray currently supported."); + return -1; + break; + } + + if (is_fill) { + memcpy(¤t_fill, &validated, sizeof(pdf_color)); + } else { + memcpy(¤t_stroke, &validated, sizeof(pdf_color)); + } + + return 0; +} + + +/* Dvipdfm special */ +pdf_color default_color = { + 1, + {0.0, 0.0, 0.0, 0.0} +}; + +void +pdf_color_set_default (const pdf_color *color) +{ + ASSERT(color); + + memcpy(&default_color, color, sizeof(pdf_color)); +} + + +/* + * Having color stack here is wrong. + * dvi.c or XXX_special should treat this. + */ +#define DEV_COLOR_STACK_MAX 128 + +static struct { + int next; + pdf_color stroke[DEV_COLOR_STACK_MAX]; + pdf_color fill[DEV_COLOR_STACK_MAX]; +} color_stack = { + 0, +}; + +void +pdf_dev_reset_color (void) +{ + int colormode; + pdf_color fillcolor, strokecolor; + + /* Shouldn't give a warning */ + colormode = pdf_dev_get_param(PDF_DEV_PARAM_COLORMODE); + if (!colormode) { + return; + } + + if (color_stack.next > 0) { + strokecolor = current_stroke; + fillcolor = current_fill; + } else { + strokecolor = default_color; + fillcolor = default_color; + } +#if 0 + pdf_color_graycolor(¤t_stroke, 0.0); + pdf_color_graycolor(¤t_fill, 0.0); +#endif + + pdf_dev_setcolor(&strokecolor, 0); + pdf_dev_setcolor(&fillcolor, 1); + + return; +} + + +void +pdf_color_clear (void) +{ + color_stack.next = 0; +} + +void +pdf_color_push (void) +{ + int current; + + current = color_stack.next; + if (current >= DEV_COLOR_STACK_MAX) { + WARN("Exceeded depth of color stack."); + return; + } + + memcpy(&color_stack.stroke[current], + ¤t_stroke, sizeof(pdf_color)); + memcpy(&color_stack.fill[current], + ¤t_fill , sizeof(pdf_color)); + + color_stack.next += 1; + + return; +} + +void +pdf_color_pop (void) +{ + int current; + + current = --(color_stack.next); + + if (current < 0) { + WARN("End color with no corresponding begin color."); + /* + * In the case of mismatched push and pop, color_stack.next must set + * to be the default value, 0. Otherwise causes segmentation fault + * in the next push command. + */ + pdf_color_clear(); + return; + } + + pdf_dev_setcolor(&color_stack.stroke[current], 0); + pdf_dev_setcolor(&color_stack.fill[current] , 1); + + return; +} + +/***************************** COLOR SPACE *****************************/ + +static int pdf_colorspace_defineresource (const char *ident, + int subtype, + void *cdata, pdf_obj *resource); + +static int pdf_colorspace_findresource (const char *ident, + int subtype, const void *cdata); + +#if 0 +struct calgray_cdata +{ + double white_point[3]; /* required, second component must + * be equal to 1.0 + */ + double black_point[3]; /* optional, default: [0 0 0] */ + double gamma; /* optional, default: 1.0 */ +}; + +struct calrgb_cdata +{ + double white_point[3]; /* required, second component must + * be equal to 1.0 + */ + double black_point[3]; /* optional, default: [0 0 0] */ + double gamma[3]; /* optional, default: [1 1 1] */ + double matrix[9]; /* optional, default: identity + * [1 0 0 0 1 0 0 0 1] + */ +}; + +static void +release_calrgb (void *cdata) +{ + struct calrgb_cdata *calrgb; + + if (cdata) { + calrgb = (struct calrgb_cdata *) cdata; + RELEASE(calrgb); + } +} + +static int +compare_calrgb (const char *ident1, const void *cdata1, + const char *ident2, const void *cdata2) +{ + struct calrgb_cdata *calrgb1; + struct calrgb_cdata *calrgb2; + + if (ident1 && ident2 && + !strcmp(ident1, ident2)) { + return 0; + } +} + +static void +init_calrgb (struct calrgb_cdata *calrgb) +{ + ASSERT(calrgb); + + calrgb->white_point[0] = 1.0; + calrgb->white_point[1] = 1.0; + calrgb->white_point[2] = 1.0; + + calrgb->black_point[0] = 0.0; + calrgb->black_point[1] = 0.0; + calrgb->black_point[2] = 0.0; + + calrgb->gamma[0] = 1.0; + calrgb->gamma[1] = 1.0; + calrgb->gamma[2] = 1.0; + + calrgb->matrix[0] = 1.0; + calrgb->matrix[1] = 0.0; + calrgb->matrix[2] = 0.0; + + calrgb->matrix[3] = 0.0; + calrgb->matrix[4] = 1.0; + calrgb->matrix[5] = 0.0; + + calrgb->matrix[6] = 0.0; + calrgb->matrix[7] = 0.0; + calrgb->matrix[8] = 1.0; +} + +static int +valid_calrgb (struct calrgb_cdata *calrgb) +{ + if (calrgb->white_point[1] != 1.0 || + calrgb->white_point[0] <= 0.0 || + calrgb->white_point[2] <= 0.0) + return 0; + + if (calrgb->black_point[0] < 0.0 || + calrgb->black_point[1] < 0.0 || + calrgb->black_point[2] < 0.0) + return 0; + + if (calrgb->gamma[0] < 0.0 || + calrgb->gamma[1] < 0.0 || + calrgb->gamma[2] < 0.0) + return 0; + + /* matrix should be invertible? */ + + return 1; +} + +static pdf_obj * +pdf_color_make_calrgb_resource (struct calrgb_cdata *calrgb) +{ + pdf_obj *colorspace; + pdf_obj *calparams, *tmp_array; + + ASSERT(calrgb); + + if (!valid_calrgb(calrgb)) + return NULL; + + colorspace = pdf_new_array(); + calparams = pdf_new_dict(); + + tmp_array = pdf_new_array(); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->white_point[0], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(1.0)); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->white_point[2], 0.001))); + pdf_add_dict(calparams, pdf_new_name("WhitePoint"), tmp_array); + + if (calrgb->black_point[0] != 0.0 || + calrgb->black_point[1] != 0.0 || + calrgb->black_point[2] != 0.0) { + tmp_array = pdf_new_array(); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->black_point[0], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->black_point[1], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->black_point[2], 0.001))); + pdf_add_dict(calparams, pdf_new_name("BlackPoint"), tmp_array); + } + + if (calrgb->gamma[0] != 1.0 || + calrgb->gamma[1] != 1.0 || + calrgb->gamma[2] != 1.0) { + tmp_array = pdf_new_array(); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->gamma[0], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->gamma[1], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->gamma[2], 0.001))); + pdf_add_dict(calparams, pdf_new_name("Gamma"), tmp_array); + } + + if (calrgb->matrix[0] != 1.0 || + calrgb->matrix[1] != 0.0 || + calrgb->matrix[2] != 0.0 || + calrgb->matrix[3] != 0.0 || + calrgb->matrix[4] != 1.0 || + calrgb->matrix[5] != 0.0 || + calrgb->matrix[6] != 0.0 || + calrgb->matrix[7] != 0.0 || + calrgb->matrix[8] != 1.0) { + tmp_array = pdf_new_array(); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[0], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[1], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[2], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[3], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[4], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[5], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[6], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[7], 0.001))); + pdf_add_array(tmp_array, pdf_new_number(ROUND(calrgb->matrix[8], 0.001))); + pdf_add_dict(calparams, pdf_new_name("Matrix"), tmp_array); + } + + pdf_add_array(colorspace, pdf_new_name("CalRGB")); + pdf_add_array(colorspace, calparams); + + return colorspace; +} +#endif + +static unsigned char nullbytes16[16] = { + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 +}; + +static struct +{ + int major; + int minor; +} icc_versions[] = { + {0, 0}, /* PDF-1.0, we don't support them */ + {0, 0}, /* PDF-1.1, we don't support them */ + {0, 0}, /* PDF-1.2, we don't support them */ + {0x02, 0x10}, /* PDF-1.3 */ + {0x02, 0x20}, /* PDF-1.4 */ + {0x04, 0x00} /* PDF-1.5 */ +}; + +static int +iccp_version_supported (int major, int minor) +{ + int pdf_ver; + + pdf_ver = pdf_get_version(); + if (pdf_ver < 6) { + if (icc_versions[pdf_ver].major < major) + return 0; + else if (icc_versions[pdf_ver].major == major && + icc_versions[pdf_ver].minor < minor) + return 0; + else { + return 1; + } + } + + return 0; +} + +typedef unsigned long iccSig; +static iccSig +str2iccSig (const void *s) +{ + char *p; + + p = (char *) s; + + return (iccSig) ((p[0]<<24)|(p[1]<<16)|(p[2]<<8)|p[3]); +} + +typedef struct +{ + long X, Y, Z; /* s15Fixed16Numeber */ +} iccXYZNumber; + +typedef struct +{ + long size; + iccSig CMMType; + long version; + iccSig devClass; + iccSig colorSpace; + iccSig PCS; /* Profile Connection Space */ + char creationDate[12]; + iccSig acsp; + iccSig platform; + char flags[4]; + iccSig devMnfct; + iccSig devModel; + char devAttr[8]; + long intent; + iccXYZNumber illuminant; + iccSig creator; + unsigned char ID[16]; /* MD5 checksum with Rendering intent, + * Header attrs, Profile ID fields are + * set to zeros. + */ + /* 28 bytes reserved - must be set to zeros */ +} iccHeader; + +#define iccNullSig 0 +static void +iccp_init_iccHeader (iccHeader *icch) +{ + ASSERT(icch); + + icch->size = 0; + icch->CMMType = iccNullSig; + icch->version = 0xFFFFFF; + icch->devClass = iccNullSig; + icch->colorSpace = iccNullSig; + icch->PCS = iccNullSig; + memset(icch->creationDate, 0, 12); + icch->acsp = str2iccSig("ascp"); + icch->platform = iccNullSig; + memset(icch->flags, 0, 4); + icch->devMnfct = iccNullSig; + icch->devModel = iccNullSig; + memset(icch->devAttr, 0, 8); + icch->intent = 0; + icch->illuminant.X = 0; + icch->illuminant.Y = 0; + icch->illuminant.Z = 0; + icch->creator = iccNullSig; + memset(icch->ID, 0, 16); +} + +#define ICC_INTENT_TYPE(n) ((int) (((n) >> 16) & 0xff)) +#define ICC_INTENT_PERCEPTUAL 0 +#define ICC_INTENT_RELATIVE 1 +#define ICC_INTENT_SATURATION 2 +#define ICC_INTENT_ABSOLUTE 3 + +/* + * In ICC profile stream dicrionary, there is /Range whose values must + * "match the information in the profile". But where is those values in? + * + * How should I treat rendering intent? + */ +struct iccbased_cdata +{ + long sig; /* 'i' 'c' 'c' 'b' */ + + unsigned char checksum[16]; /* 16 bytes MD5 Checksum */ + int colorspace; /* input colorspace: + * RGB, Gray, CMYK, (Lab?) + */ + int alternate; /* alternate colorspace (id), unused */ +}; + +#define check_sig(d,p,q,r,s) ((d) && (d)->sig == ((p)<<24|(q)<<16|(r)<<8|(s))) + +static void +init_iccbased_cdata (struct iccbased_cdata *cdata) +{ + ASSERT(cdata); + + cdata->sig = ('i' << 24|'c' << 16|'c' << 8|'b'); + memset(cdata->checksum, 0, 16); + cdata->colorspace = PDF_COLORSPACE_TYPE_INVALID; + cdata->alternate = -1; + + return; +} + +static void +release_iccbased_cdata (struct iccbased_cdata *cdata) +{ + ASSERT(check_sig(cdata, 'i', 'c', 'c', 'b')); + + RELEASE(cdata); +} + +static int +get_num_components_iccbased (const struct iccbased_cdata *cdata) +{ + int num_components = 0; + + ASSERT(check_sig(cdata, 'i', 'c', 'c', 'b')); + + switch (cdata->colorspace) { + case PDF_COLORSPACE_TYPE_RGB: + num_components = 3; + break; + case PDF_COLORSPACE_TYPE_CMYK: + num_components = 4; + break; + case PDF_COLORSPACE_TYPE_GRAY: + num_components = 1; + break; + case PDF_COLORSPACE_TYPE_CIELAB: + num_components = 3; + break; + } + + return num_components; +} + +static int +compare_iccbased (const char *ident1, const struct iccbased_cdata *cdata1, + const char *ident2, const struct iccbased_cdata *cdata2) +{ + if (cdata1 && cdata2) { + + ASSERT(check_sig(cdata1, 'i', 'c', 'c', 'b')); + ASSERT(check_sig(cdata2, 'i', 'c', 'c', 'b')); + + if (memcmp(cdata1->checksum, nullbytes16, 16) && + memcmp(cdata2->checksum, nullbytes16, 16)) { + return memcmp(cdata1->checksum, cdata2->checksum, 16); + } + if (cdata1->colorspace != cdata2->colorspace) { + return (cdata1->colorspace - cdata2->colorspace); + } + + /* Continue if checksum unknown and colorspace is same. */ + } + + if (ident1 && ident2) + return strcmp(ident1, ident2); + + /* No way to compare */ + return -1; +} + +int +iccp_check_colorspace (int colortype, const void *profile, long proflen) +{ + iccSig colorspace; + unsigned char *p; + + if (!profile || proflen < 128) + return -1; + + p = (unsigned char *) profile; + + colorspace = str2iccSig(p + 16); + + switch (colortype) { + case PDF_COLORSPACE_TYPE_CALRGB: + case PDF_COLORSPACE_TYPE_RGB: + if (colorspace != str2iccSig("RGB ")) { + return -1; + } + break; + case PDF_COLORSPACE_TYPE_CALGRAY: + case PDF_COLORSPACE_TYPE_GRAY: + if (colorspace != str2iccSig("GRAY")) { + return -1; + } + break; + case PDF_COLORSPACE_TYPE_CMYK: + if (colorspace != str2iccSig("CMYK")) { + return -1; + } + break; + default: + return -1; + break; + } + + return 0; +} + +pdf_obj * +iccp_get_rendering_intent (const void *profile, long proflen) +{ + pdf_obj *ri = NULL; + unsigned char *p; + long intent; + + if (!profile || proflen < 128) + return NULL; + + p = (unsigned char *) profile; + + intent = (p[64] << 24)|(p[65] << 16)|(p[66] << 8)|p[67]; + switch (ICC_INTENT_TYPE(intent)) { + case ICC_INTENT_SATURATION: + ri = pdf_new_name("Saturation"); + break; + case ICC_INTENT_PERCEPTUAL: + ri = pdf_new_name("Perceptual"); + break; + case ICC_INTENT_ABSOLUTE: + ri = pdf_new_name("AbsoluteColorimetric"); + break; + case ICC_INTENT_RELATIVE: + ri = pdf_new_name("RelativeColorimetric"); + break; + default: + WARN("Invalid rendering intent type: %d", ICC_INTENT_TYPE(intent)); + ri = NULL; + } + + return ri; +} + +#define sget_signed_long(p) ((long) ((p)[0] << 24|(p)[1] << 16|(p)[2] << 8|(p)[3])) +#define sget_signed_short(p) ((short) ((p)[0] << 8|(p)[1])) +#define get_iccSig(p) ((iccSig) ((p)[0] << 24|(p)[1] << 16|(p)[2] << 8|(p)[3])) + +static int +iccp_unpack_header (iccHeader *icch, + const void *profile, long proflen, int check_size) +{ + unsigned char *p, *endptr; + + if (check_size) { + if (!profile || proflen < 128 || + proflen % 4 != 0) { + WARN("Profile size: %ld", proflen); + return -1; + } + } + + p = (unsigned char *) profile; + endptr = p + 128; + + icch->size = sget_signed_long(p); + if (check_size) { + if (icch->size != proflen) { + WARN("ICC Profile size: %ld(header) != %ld", icch->size, proflen); + return -1; + } + } + p += 4; + + icch->CMMType = str2iccSig(p); + p += 4; + icch->version = sget_signed_long(p); + p += 4; + icch->devClass = str2iccSig(p); + p += 4; + icch->colorSpace = str2iccSig(p); + p += 4; + icch->PCS = str2iccSig(p); + p += 4; + memcpy(icch->creationDate, p, 12); + p += 12; + icch->acsp = str2iccSig(p); /* acsp */ + if (icch->acsp != str2iccSig("acsp")) { + WARN("Invalid ICC profile: not \"acsp\" - %c%c%c%c ", + p[0], p[1], p[2], p[3]); + return -1; + } + p += 4; + icch->platform = str2iccSig(p); + p += 4; + memcpy(icch->flags, p, 4); + p += 4; + icch->devMnfct = str2iccSig(p); + p += 4; + icch->devModel = str2iccSig(p); + p += 4; + memcpy(icch->devAttr, p, 8); + p += 8; + icch->intent = (p[0] << 24)|(p[1] << 16)|(p[2] << 8)|p[3]; + p += 4; + icch->illuminant.X = sget_signed_long(p); + p += 4; + icch->illuminant.Y = sget_signed_long(p); + p += 4; + icch->illuminant.Z = sget_signed_long(p); + p += 4; + icch->creator = str2iccSig(p); + p += 4; + memcpy(icch->ID, p, 16); + p += 16; + + /* 28 bytes reserved - must be set to zeros */ + for (; p < endptr; p++) { + if (*p != '\0') { + WARN("Reserved pad not zero: %02x (at offset %ld in ICC profile header.)", + *p, 128 - ((long) (endptr - p))); + return -1; + } + } + + return 0; +} + +/* MD5 checksum with Rendering intent, + * Header attrs, Profile ID fields are + * set to zeros. + */ +#define ICC_HEAD_SECT1_START 0 +#define ICC_HEAD_SECT1_LENGTH 56 +/* 8 bytes devAttr, 4 bytes intent */ +#define ICC_HEAD_SECT2_START 68 +#define ICC_HEAD_SECT2_LENGTH 16 +/* 16 bytes ID (checksum) */ +#define ICC_HEAD_SECT3_START 100 +#define ICC_HEAD_SECT3_LENGTH 28 + +#include "dpxcrypt.h" +static void +iccp_get_checksum (unsigned char *checksum, const void *profile, long proflen) +{ + unsigned char *p; + MD5_CONTEXT md5; + + p = (unsigned char *) profile; + + MD5_init (&md5); + MD5_write(&md5, p + ICC_HEAD_SECT1_START, ICC_HEAD_SECT1_LENGTH); + MD5_write(&md5, nullbytes16, 12); + MD5_write(&md5, p + ICC_HEAD_SECT2_START, ICC_HEAD_SECT2_LENGTH); + MD5_write(&md5, nullbytes16, 16); + MD5_write(&md5, p + ICC_HEAD_SECT3_START, ICC_HEAD_SECT3_LENGTH); + + /* body */ + MD5_write(&md5, p + 128, proflen - 128); + + MD5_final(checksum, &md5); +} + +static void +print_iccp_header (iccHeader *icch, unsigned char *checksum) +{ + int i; + + ASSERT(icch); + +#define print_iccSig(s,t) if ((s) == 0) {\ + MESG("pdf_color>> %s:\t(null)\n", (t)); \ + } else if (!isprint(((s) >> 24) & 0xff) || \ + !isprint(((s) >> 16) & 0xff) || \ + !isprint(((s) >> 8) & 0xff) || \ + !isprint((s) & 0xff)) { \ + MESG("pdf_color>> %s:\t(invalid)\n", (t)); \ + } else { \ + MESG("pdf_color>> %s:\t%c%c%c%c\n", (t), \ + ((s) >> 24) & 0xff, ((s) >> 16) & 0xff, \ + ((s) >> 8) & 0xff, (s) & 0xff); \ +} + + MESG("\n"); + MESG("pdf_color>> ICC Profile Info\n"); + MESG("pdf_color>> Profile Size:\t%ld bytes\n", icch->size); + print_iccSig(icch->CMMType, "CMM Type"); + MESG("pdf_color>> Profile Version:\t%d.%01d.%01d\n", + (icch->version >> 24) & 0xff, + (icch->version >> 20) & 0x0f, + (icch->version >> 16) & 0x0f); + print_iccSig(icch->devClass, "Device Class"); + print_iccSig(icch->colorSpace, "Color Space"); + print_iccSig(icch->PCS, "Connection Space"); + MESG("pdf_color>> Creation Date:\t"); + for (i = 0; i < 12; i += 2) { + if (i == 0) + MESG("%04u", + sget_unsigned_pair((unsigned char *) icch->creationDate)); + else { + MESG(":%02u", + sget_unsigned_pair((unsigned char *) (&icch->creationDate[i]))); + } + } + MESG("\n"); + print_iccSig(icch->platform, "Primary Platform"); + MESG("pdf_color>> Profile Flags:\t%02x:%02x:%02x:%02x\n", + icch->flags[0], icch->flags[1], icch->flags[2], icch->flags[3]); + print_iccSig(icch->devMnfct, "Device Mnfct"); + print_iccSig(icch->devModel, "Device Model"); + MESG("pdf_color>> Device Attr:\t"); + for (i = 0; i < 8; i++) { + if (i == 0) + MESG("%02x", icch->devAttr[i]); + else + MESG(":%02x", icch->devAttr[i]); + } + MESG("\n"); + MESG("pdf_color>> Rendering Intent:\t"); + switch (ICC_INTENT_TYPE(icch->intent)) { + case ICC_INTENT_SATURATION: + MESG("Saturation"); + break; + case ICC_INTENT_PERCEPTUAL: + MESG("Perceptual"); + break; + case ICC_INTENT_ABSOLUTE: + MESG("Absolute Colorimetric"); + break; + case ICC_INTENT_RELATIVE: + MESG("Relative Colorimetric"); + break; + default: + MESG("(invalid)"); + break; + } + MESG("\n"); + print_iccSig(icch->creator, "Creator"); + MESG("pdf_color>> Illuminant (XYZ):\t"); + MESG("%.3f %.3f %.3f\n", + (double) icch->illuminant.X / 0x10000, + (double) icch->illuminant.Y / 0x10000, + (double) icch->illuminant.Z / 0x10000); + MESG("pdf_color>> Checksum:\t"); + if (!memcmp(icch->ID, nullbytes16, 16)) { + MESG("(null)"); + } else { + for (i = 0; i < 16; i++) { + if (i == 0) + MESG("%02x", icch->ID[i]); + else + MESG(":%02x", icch->ID[i]); + } + } + MESG("\n"); + if (checksum) { + MESG("pdf_color>> Calculated:\t"); + for (i = 0; i < 16; i++) { + if (i == 0) + MESG("%02x", checksum[i]); + else + MESG(":%02x", checksum[i]); + } + MESG("\n"); + } + + return; +} + + +static int +iccp_devClass_allowed (int dev_class) +{ + int colormode; + + colormode = pdf_dev_get_param(PDF_DEV_PARAM_COLORMODE); + + switch (colormode) { +#if 0 + case PDF_DEV_COLORMODE_PDFX1: + break; + case PDF_DEV_COLORMODE_PDFX3: + if (dev_class != str2iccSig("prtr")) { + return 0; + } + break; +#endif + default: + if (dev_class != str2iccSig("scnr") && + dev_class != str2iccSig("mntr") && + dev_class != str2iccSig("prtr") && + dev_class != str2iccSig("spac")) { + return 0; + } + break; + } + + + return 1; +} + +int +iccp_load_profile (const char *ident, + const void *profile, long proflen) +{ + int cspc_id; + pdf_obj *resource; + pdf_obj *stream; + pdf_obj *stream_dict; + iccHeader icch; + int colorspace; + unsigned char checksum[16]; + struct iccbased_cdata *cdata; + + iccp_init_iccHeader(&icch); + if (iccp_unpack_header(&icch, profile, proflen, 1) < 0) { /* check size */ + WARN("Invalid ICC profile header in \"%s\"", ident); + print_iccp_header(&icch, NULL); + return -1; + } + + if (!iccp_version_supported((icch.version >> 24) & 0xff, + (icch.version >> 16) & 0xff)) { + WARN("ICC profile format spec. version %d.%01d.%01d" + " not supported in current PDF version setting.", + (icch.version >> 24) & 0xff, + (icch.version >> 20) & 0x0f, + (icch.version >> 16) & 0x0f); + WARN("ICC profile not embedded."); + print_iccp_header(&icch, NULL); + return -1; + } + + if (!iccp_devClass_allowed(icch.devClass)) { + WARN("Unsupported ICC Profile Device Class:"); + print_iccp_header(&icch, NULL); + return -1; + } + + if (icch.colorSpace == str2iccSig("RGB ")) { + colorspace = PDF_COLORSPACE_TYPE_RGB; + } else if (icch.colorSpace == str2iccSig("GRAY")) { + colorspace = PDF_COLORSPACE_TYPE_GRAY; + } else if (icch.colorSpace == str2iccSig("CMYK")) { + colorspace = PDF_COLORSPACE_TYPE_CMYK; + } else { + WARN("Unsupported input color space."); + print_iccp_header(&icch, NULL); + return -1; + } + + iccp_get_checksum(checksum, profile, proflen); + if (memcmp(icch.ID, nullbytes16, 16) && + memcmp(icch.ID, checksum, 16)) { + WARN("Invalid ICC profile: Inconsistent checksum."); + print_iccp_header(&icch, checksum); + return -1; + } + + cdata = NEW(1, struct iccbased_cdata); + init_iccbased_cdata(cdata); + cdata->colorspace = colorspace; + memcpy(cdata->checksum, checksum, 16); + + cspc_id = pdf_colorspace_findresource(ident, + PDF_COLORSPACE_TYPE_ICCBASED, cdata); + if (cspc_id >= 0) { + if (verbose) + MESG("(ICCP:[id=%d])", cspc_id); + release_iccbased_cdata(cdata); + return cspc_id; + } + if (verbose > 1) { + print_iccp_header(&icch, checksum); + } + + resource = pdf_new_array(); + + stream = pdf_new_stream(STREAM_COMPRESS); + pdf_add_array(resource, pdf_new_name("ICCBased")); + pdf_add_array(resource, pdf_ref_obj (stream)); + + stream_dict = pdf_stream_dict(stream); + pdf_add_dict(stream_dict, pdf_new_name("N"), + pdf_new_number(get_num_components_iccbased(cdata))); + + pdf_add_stream (stream, profile, proflen); + pdf_release_obj(stream); + + cspc_id = pdf_colorspace_defineresource(ident, + PDF_COLORSPACE_TYPE_ICCBASED, + cdata, resource); + + return cspc_id; +} + +#define WBUF_SIZE 4096 +static unsigned char wbuf[WBUF_SIZE]; + +static pdf_obj * +iccp_load_file_stream (unsigned char *checksum, long length, FILE *fp) +{ + pdf_obj *stream; + MD5_CONTEXT md5; + long nb_read; + + rewind(fp); + + if (fread(wbuf, 1, 128, fp) != 128) { + return NULL; + } + length -= 128; + + stream = pdf_new_stream(STREAM_COMPRESS); + + MD5_init (&md5); + MD5_write(&md5, wbuf + ICC_HEAD_SECT1_START, ICC_HEAD_SECT1_LENGTH); + MD5_write(&md5, nullbytes16, 12); + MD5_write(&md5, wbuf + ICC_HEAD_SECT2_START, ICC_HEAD_SECT2_LENGTH); + MD5_write(&md5, nullbytes16, 16); + MD5_write(&md5, wbuf + ICC_HEAD_SECT3_START, ICC_HEAD_SECT3_LENGTH); + + pdf_add_stream(stream, wbuf, 128); + + /* body */ + while (length > 0) { + nb_read = fread(wbuf, 1, MIN(length, WBUF_SIZE), fp); + MD5_write(&md5, wbuf, nb_read); + pdf_add_stream(stream, wbuf, nb_read); + length -= nb_read; + } + + MD5_final(checksum, &md5); + + + return stream; +} + +int +pdf_colorspace_load_ICCBased (const char *ident, const char *filename) +{ + int cspc_id; + FILE *fp; + pdf_obj *resource; + pdf_obj *stream; + pdf_obj *stream_dict; + iccHeader icch; + int colorspace; + long size; + unsigned char checksum[16]; + struct iccbased_cdata *cdata; + + + fp = DPXFOPEN(filename, DPX_RES_TYPE_ICCPROFILE); + if (!fp) + return -1; + + size = file_size(fp); + if (size < 128) { + MFCLOSE(fp); + return -1; + } + if (fread(wbuf, 1, 128, fp) != 128) { + DPXFCLOSE(fp); + return -1; + } + + iccp_init_iccHeader(&icch); + if (iccp_unpack_header(&icch, wbuf, 128, 0) < 0) { + WARN("Invalid ICC profile header in \"%s\"", ident); + print_iccp_header(&icch, NULL); + DPXFCLOSE(fp); + return -1; + } + if (icch.size > size) { + WARN("File size smaller than recorded in header: %ld %ld", + icch.size, size); + DPXFCLOSE(fp); + return -1; + } + + if (!iccp_version_supported((icch.version >> 24) & 0xff, + (icch.version >> 16) & 0xff)) { + WARN("ICC profile format spec. version %d.%01d.%01d" + " not supported in current PDF version setting.", + (icch.version >> 24) & 0xff, + (icch.version >> 20) & 0x0f, + (icch.version >> 16) & 0x0f); + WARN("ICC profile not embedded."); + print_iccp_header(&icch, NULL); + DPXFCLOSE(fp); + return -1; + } + + if (!iccp_devClass_allowed(icch.devClass)) { + WARN("Unsupported ICC Profile Device Class:"); + print_iccp_header(&icch, NULL); + DPXFCLOSE(fp); + return -1; + } + + if (icch.colorSpace == str2iccSig("RGB ")) { + colorspace = PDF_COLORSPACE_TYPE_RGB; + } else if (icch.colorSpace == str2iccSig("GRAY")) { + colorspace = PDF_COLORSPACE_TYPE_GRAY; + } else if (icch.colorSpace == str2iccSig("CMYK")) { + colorspace = PDF_COLORSPACE_TYPE_CMYK; + } else { + WARN("Unsupported input color space."); + print_iccp_header(&icch, NULL); + DPXFCLOSE(fp); + return -1; + } + + stream = iccp_load_file_stream(checksum, icch.size, fp); + DPXFCLOSE(fp); + + if (!stream) { + WARN("Loading ICC Profile failed...: %s", filename); + return -1; + } + + if (memcmp(icch.ID, nullbytes16, 16) && + memcmp(icch.ID, checksum, 16)) { + WARN("Invalid ICC profile: Inconsistent checksum."); + print_iccp_header(&icch, NULL); + pdf_release_obj(stream); + return -1; + } + + cdata = NEW(1, struct iccbased_cdata); + init_iccbased_cdata(cdata); + cdata->colorspace = colorspace; + memcpy(cdata->checksum, checksum, 16); + + cspc_id = pdf_colorspace_findresource(ident, + PDF_COLORSPACE_TYPE_ICCBASED, cdata); + if (cspc_id >= 0) { + if (verbose) + MESG("(ICCP:[id=%d])", cspc_id); + release_iccbased_cdata(cdata); + pdf_release_obj(stream); + return cspc_id; + } + if (verbose > 1) { + print_iccp_header(&icch, checksum); + } + + resource = pdf_new_array(); + + pdf_add_array(resource, pdf_new_name("ICCBased")); + pdf_add_array(resource, pdf_ref_obj (stream)); + + stream_dict = pdf_stream_dict(stream); + pdf_add_dict(stream_dict, pdf_new_name("N"), + pdf_new_number(get_num_components_iccbased(cdata))); + pdf_release_obj(stream); + + cspc_id = pdf_colorspace_defineresource(ident, + PDF_COLORSPACE_TYPE_ICCBASED, + cdata, resource); + + return cspc_id; +} + +typedef struct { + char *ident; + int subtype; + + pdf_obj *resource; + pdf_obj *reference; + + void *cdata; +} pdf_colorspace; + +static struct { + int count; + int capacity; + pdf_colorspace *colorspaces; +} cspc_cache = { + 0, 0, NULL +}; + +int +pdf_colorspace_findresource (const char *ident, + int type, const void *cdata) +{ + pdf_colorspace *colorspace; + int cspc_id, cmp = -1; + + for (cspc_id = 0; + cmp && cspc_id < cspc_cache.count; cspc_id++) { + colorspace = &cspc_cache.colorspaces[cspc_id]; + if (colorspace->subtype != type) + continue; + + switch (colorspace->subtype) { + case PDF_COLORSPACE_TYPE_ICCBASED: + cmp = compare_iccbased(ident, cdata, + colorspace->ident, colorspace->cdata); + break; + } + if (!cmp) + return cspc_id; + } + + return -1; /* not found */ +} + +static void +pdf_init_colorspace_struct (pdf_colorspace *colorspace) +{ + ASSERT(colorspace); + + colorspace->ident = NULL; + colorspace->subtype = PDF_COLORSPACE_TYPE_INVALID; + + colorspace->resource = NULL; + colorspace->reference = NULL; + colorspace->cdata = NULL; + + return; +} + +static void +pdf_clean_colorspace_struct (pdf_colorspace *colorspace) +{ + ASSERT(colorspace); + + if (colorspace->ident) + RELEASE(colorspace->ident); + if (colorspace->resource) + pdf_release_obj(colorspace->resource); + if (colorspace->reference) + pdf_release_obj(colorspace->reference); + colorspace->resource = NULL; + colorspace->reference = NULL; + + if (colorspace->cdata) { + switch (colorspace->subtype) { + case PDF_COLORSPACE_TYPE_ICCBASED: + release_iccbased_cdata(colorspace->cdata); + break; + } + } + colorspace->cdata = NULL; + colorspace->subtype = PDF_COLORSPACE_TYPE_INVALID; + + return; +} + +static void +pdf_flush_colorspace (pdf_colorspace *colorspace) +{ + ASSERT(colorspace); + + if (colorspace->resource) + pdf_release_obj(colorspace->resource); + if (colorspace->reference) + pdf_release_obj(colorspace->reference); + + colorspace->resource = NULL; + colorspace->reference = NULL; +} + +int +pdf_colorspace_defineresource (const char *ident, + int subtype, void *cdata, pdf_obj *resource) +{ + int cspc_id; + pdf_colorspace *colorspace; + + if (cspc_cache.count >= cspc_cache.capacity) { + cspc_cache.capacity += 16; + cspc_cache.colorspaces = RENEW(cspc_cache.colorspaces, + cspc_cache.capacity, pdf_colorspace); + } + cspc_id = cspc_cache.count; + colorspace = &cspc_cache.colorspaces[cspc_id]; + + pdf_init_colorspace_struct(colorspace); + if (ident) { + colorspace->ident = NEW(strlen(ident) + 1, char); + strcpy(colorspace->ident, ident); + } + colorspace->subtype = subtype; + colorspace->cdata = cdata; + colorspace->resource = resource; + + if (verbose) { + MESG("(ColorSpace:%s", ident); + if (verbose > 1) { + switch (subtype) { + case PDF_COLORSPACE_TYPE_ICCBASED: + MESG("[ICCBased]"); + break; + case PDF_COLORSPACE_TYPE_CALRGB: + MESG("[CalRGB]"); + break; + case PDF_COLORSPACE_TYPE_CALGRAY: + MESG("[CalGray]"); + break; + } + } + MESG(")"); + } + + cspc_cache.count++; + + return cspc_id; +} + +pdf_obj * +pdf_get_colorspace_reference (int cspc_id) +{ + pdf_colorspace *colorspace; + + colorspace = &cspc_cache.colorspaces[cspc_id]; + if (!colorspace->reference) { + colorspace->reference = pdf_ref_obj(colorspace->resource); + pdf_release_obj(colorspace->resource); /* .... */ + colorspace->resource = NULL; + } + + return pdf_link_obj(colorspace->reference); +} + +int +pdf_get_colorspace_num_components (int cspc_id) +{ + pdf_colorspace *colorspace; + int num_components; + + colorspace = &cspc_cache.colorspaces[cspc_id]; + + switch (colorspace->subtype) { + case PDF_COLORSPACE_TYPE_ICCBASED: + num_components = get_num_components_iccbased(colorspace->cdata); + break; + case PDF_COLORSPACE_TYPE_DEVICEGRAY: + num_components = 1; + break; + case PDF_COLORSPACE_TYPE_DEVICERGB: + num_components = 3; + break; + case PDF_COLORSPACE_TYPE_DEVICECMYK: + num_components = 4; + break; + case PDF_COLORSPACE_TYPE_CALRGB: + num_components = 3; + break; + case PDF_COLORSPACE_TYPE_CALGRAY: + num_components = 1; + break; + default: + num_components = 0; + break; + } + + return num_components; +} + +int +pdf_get_colorspace_subtype (int cspc_id) +{ + pdf_colorspace *colorspace; + + colorspace = &cspc_cache.colorspaces[cspc_id]; + + return colorspace->subtype; +} + +void +pdf_init_colors (void) +{ + cspc_cache.count = 0; + cspc_cache.capacity = 0; + cspc_cache.colorspaces = NULL; +} + +void +pdf_close_colors (void) +{ + int i; + + for (i = 0; i < cspc_cache.count; i++) { + pdf_colorspace *colorspace; + + colorspace = &cspc_cache.colorspaces[i]; + pdf_flush_colorspace(colorspace); + pdf_clean_colorspace_struct(colorspace); + } + RELEASE(cspc_cache.colorspaces); + cspc_cache.colorspaces = NULL; + cspc_cache.count = cspc_cache.capacity = 0; + +} + +#define PDF_COLORSPACE_FAMILY_DEVICE 0 +#define PDF_COLORSPACE_FAMILY_CIEBASED 1 +#define PDF_COLORSPACE_FAMILY_SPECIAL 2 diff --git a/Build/source/texk/xdvipdfmx/src/pdfcolor.h b/Build/source/texk/xdvipdfmx/src/pdfcolor.h new file mode 100644 index 00000000000..00c421f9349 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfcolor.h @@ -0,0 +1,98 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfcolor.h,v 1.6 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDF_COLOR_H_ +#define _PDF_COLOR_H_ + +#include "pdfobj.h" + +#define PDF_COLORSPACE_TYPE_DEVICECMYK -4 +#define PDF_COLORSPACE_TYPE_DEVICERGB -3 +#define PDF_COLORSPACE_TYPE_DEVICEGRAY -1 +#define PDF_COLORSPACE_TYPE_INVALID 0 +#define PDF_COLORSPACE_TYPE_CALGRAY 1 +#define PDF_COLORSPACE_TYPE_CIELAB 2 +#define PDF_COLORSPACE_TYPE_CALRGB 3 +#define PDF_COLORSPACE_TYPE_ICCBASED 4 + +#define PDF_COLORSPACE_TYPE_CMYK PDF_COLORSPACE_TYPE_DEVICECMYK +#define PDF_COLORSPACE_TYPE_RGB PDF_COLORSPACE_TYPE_DEVICERGB +#define PDF_COLORSPACE_TYPE_GRAY PDF_COLORSPACE_TYPE_DEVICEGRAY + + +#define PDF_COLOR_COMPONENT_MAX 4 + +typedef struct +{ + int num_components; + double values[PDF_COLOR_COMPONENT_MAX]; +} pdf_color; + +extern void pdf_color_set_verbose (void); + +extern int pdf_dev_setcolor (const pdf_color *color, int is_fill); + +extern int pdf_dev_currentcolor (pdf_color *color, int is_fill); + +extern int pdf_color_rgbcolor (pdf_color *color, + double r, double g, double b); +extern int pdf_color_cmykcolor (pdf_color *color, + double c, double m, double y, double k); +extern int pdf_color_graycolor (pdf_color *color, double g); +extern void pdf_color_copycolor (pdf_color *color1, const pdf_color *color2); + +extern int pdf_color_is_white (pdf_color *color); + +/* Not check size */ +extern pdf_obj *iccp_get_rendering_intent (const void *profile, long proflen); +extern int iccp_check_colorspace (int colortype, + const void *profile, long proflen); + +/* returns colorspace ID */ +extern int iccp_load_profile (const char *ident, + const void *profile, long proflen); + +extern void pdf_init_colors (void); +extern void pdf_close_colors (void); + +extern pdf_obj *pdf_get_colorspace_reference (int cspc_id); +extern int pdf_get_colorspace_num_components (int cspc_id); +extern int pdf_get_colorspace_subtype (int cspc_id); + +/* Not working */ +extern int pdf_colorspace_load_ICCBased (const char *ident, + const char *profile_filename); + +/* Color special + * See remark in spc_color.c. + */ +extern void pdf_color_set_default (const pdf_color *color); +extern void pdf_color_push (void); +extern void pdf_color_pop (void); +extern void pdf_color_clear (void); + +/* Reinstall color */ +extern void pdf_dev_reset_color (void); + +#endif /* _PDF_COLOR_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfdev.c b/Build/source/texk/xdvipdfmx/src/pdfdev.c new file mode 100644 index 00000000000..18e0080794c --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfdev.c @@ -0,0 +1,1820 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfdev.c,v 1.60 2005/08/12 18:22:24 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "mfileio.h" +#include "numbers.h" + +#include "pdfdoc.h" +#include "pdfobj.h" + +#include "pdffont.h" +#include "fontmap.h" +#include "cmap.h" +#include "pdfximage.h" + +#include "pdfdraw.h" +#include "pdfcolor.h" + +#include "pdflimits.h" + +#include "pdfdev.h" + +static int verbose = 0; + +void +pdf_dev_set_verbose (void) +{ + verbose++; +} + +/* Not working yet... */ +double +pdf_dev_scale (void) +{ + return 1.0; +} + +/* + * Unit conversion, formatting and others. + */ + +#define TEX_ONE_HUNDRED_BP 6578176 +static struct { + double dvi2pts; + long min_bp_val; /* Shortest resolvable distance in the output PDF. */ + int precision; /* Number of decimal digits (in fractional part) kept. */ +} dev_unit = { + 0.0, + 658, + 2 +}; + + +double +dev_unit_dviunit (void) +{ + return (1.0/dev_unit.dvi2pts); +} + +#define DEV_PRECISION_MAX 8 +static unsigned long ten_pow[10] = { + 1ul, 10ul, 100ul, 1000ul, 10000ul, 100000ul, 1000000ul, 10000000ul, 100000000ul, 1000000000ul +}; + +static double ten_pow_inv[10] = { + 1.0, 0.1, 0.01, 0.001, 0.0001, 0.00001, 0.000001, 0.0000001, 0.00000001, 0.000000001 +}; + +#define bpt2spt(b) ( (spt_t) round( (b) / dev_unit.dvi2pts ) ) +#define spt2bpt(s) ( (s) * dev_unit.dvi2pts ) +#define dround_at(v,p) (ROUND( (v), ten_pow_inv[(p)] )) + +static int +p_itoa (long value, char *buf) +{ + int sign, ndigits; + char *p = buf; + + if (value < 0) { + *p++ = '-'; + value = -value; + sign = 1; + } else { + sign = 0; + } + + ndigits = 0; + /* Generate at least one digit in reverse order */ + do { + p[ndigits++] = (value % 10) + '0'; + value /= 10; + } while (value != 0); + + /* Reverse the digits */ + { + int i; + + for (i = 0; i < ndigits / 2 ; i++) { + char tmp = p[i]; + p[i] = p[ndigits-i-1]; + p[ndigits-i-1] = tmp; + } + } + p[ndigits] = '\0'; + + return (sign ? ndigits + 1 : ndigits); +} + +/* ... */ +static int +p_dtoa (double value, int prec, char *buf) +{ + int n; + char *p, *q; + + n = sprintf(buf, "%.*f", prec, value); + /* find decimal-point */ + for (p = buf + n - 1; p > buf && *p != '.'; p--); + if (p > buf) { + /* chop trailing zeros */ + for (q = buf + n - 1; q > p && *q == '0'; q--) { + *q = '\0'; n--; + } + /* If a decimal point appears, at least one digit appears + * before it. + */ + if (q == p) { + *q = '\0'; n--; + } + } + /* -0 --> 0 */ + if (n == 2 && buf[0] == '-' && buf[1] == '0') { + buf[0] = '0'; buf[1] = '\0'; n = 1; + } + + return n; +} + +static int +dev_sprint_bp (char *buf, spt_t value, spt_t *error) +{ + double value_in_bp; + double error_in_bp; + int prec = dev_unit.precision; + + value_in_bp = spt2bpt(value); + if (error) { + error_in_bp = value_in_bp - dround_at(value_in_bp, prec); + *error = bpt2spt(error_in_bp); + } + + return p_dtoa(value_in_bp, prec, buf); +} + +/* They are affected by precision (set at device initialization). */ +int +pdf_sprint_matrix (char *buf, const pdf_tmatrix *M) +{ + int len; + int prec2 = MIN(dev_unit.precision + 2, DEV_PRECISION_MAX); + int prec0 = MAX(dev_unit.precision, 2); + + len = p_dtoa(M->a, prec2, buf); + buf[len++] = ' '; + len += p_dtoa(M->b, prec2, buf+len); + buf[len++] = ' '; + len += p_dtoa(M->c, prec2, buf+len); + buf[len++] = ' '; + len += p_dtoa(M->d, prec2, buf+len); + buf[len++] = ' '; + len += p_dtoa(M->e, prec0, buf+len); + buf[len++] = ' '; + len += p_dtoa(M->f, prec0, buf+len); + buf[len] = '\0'; /* xxx_sprint_xxx NULL terminates strings. */ + + return len; +} + +int +pdf_sprint_rect (char *buf, const pdf_rect *rect) +{ + int len; + + len = p_dtoa(rect->llx, dev_unit.precision, buf); + buf[len++] = ' '; + len += p_dtoa(rect->lly, dev_unit.precision, buf+len); + buf[len++] = ' '; + len += p_dtoa(rect->urx, dev_unit.precision, buf+len); + buf[len++] = ' '; + len += p_dtoa(rect->ury, dev_unit.precision, buf+len); + buf[len] = '\0'; /* xxx_sprint_xxx NULL terminates strings. */ + + return len; +} + +int +pdf_sprint_coord (char *buf, const pdf_coord *p) +{ + int len; + + len = p_dtoa(p->x, dev_unit.precision, buf); + buf[len++] = ' '; + len += p_dtoa(p->y, dev_unit.precision, buf+len); + buf[len] = '\0'; /* xxx_sprint_xxx NULL terminates strings. */ + + return len; +} + +int +pdf_sprint_length (char *buf, double value) +{ + int len; + + len = p_dtoa(value, dev_unit.precision, buf); + buf[len] = '\0'; /* xxx_sprint_xxx NULL terminates strings. */ + + return len; +} + + +int +pdf_sprint_number (char *buf, double value) +{ + int len; + + len = p_dtoa(value, DEV_PRECISION_MAX, buf); + buf[len] = '\0'; /* xxx_sprint_xxx NULL terminates strings. */ + + return len; +} + + +static struct +{ + /* Text composition (direction) mode is ignored (always same + * as font's writing mode) if autorotate is unset (value zero). + */ + int autorotate; + + /* + * Ignore color migrated to here. This is device's capacity. + * colormode 0 for ignore colors + */ + int colormode; + +} dev_param = { + 1, /* autorotate */ + 1, /* colormode */ +}; + +/* + * Text handling routines. + */ + +/* Motion state: + * GRAPHICS_MODE Initial state (not within BT/ET block nor in string) + * TEXT_MODE Text section is started via BT operator but not + * in string. + * STRING_MODE In string. A string or array of strings are currently + * in process. May started '[', '<' or '('. + */ +#define GRAPHICS_MODE 1 +#define TEXT_MODE 2 +#define STRING_MODE 3 + +static int motion_state = GRAPHICS_MODE; + +#define FORMAT_BUF_SIZE 4096 +static char format_buffer[FORMAT_BUF_SIZE]; + +/* + * In PDF, vertical text positioning is always applied when current font + * is vertical font. While ASCII pTeX manages current writing direction + * and font's WMode separately. + * + * 00/11 WMODE_HH/VV h(v) font, h(v) direction. + * 01 WMODE_HV -90 deg. rotated + * 10 WMODE_VH +90 deg. rotated + * + * In MetaPost PostScript file processing (mp_mode = 1), only HH/VV mode + * is applied. + */ +#define TEXT_WMODE_HH 0 +#define TEXT_WMODE_HV 1 +#define TEXT_WMODE_VH 2 +#define TEXT_WMODE_VV 3 + +#define ANGLE_CHANGES(m1,m2) ((abs((m1)-(m2)) % 3) == 0 ? 0 : 1) +#define ROTATE_TEXT(m) ((m) != TEXT_WMODE_HH && (m) != TEXT_WMODE_VV) + +static struct { + + /* Current font. + * This is index within dev_fonts. + */ + int font_id; + + /* Dvipdfmx does compression of text by doing text positioning + * in relative motion and uses string array [(foo) -250 (bar)] + * with kerning (negative kern is used for white space as suited + * for TeX). This is offset within current string. + */ + spt_t offset; + + /* This is reference point of strings. + * It may include error correction induced by rounding. + */ + spt_t ref_x; + spt_t ref_y; + + /* Using text raise and leading is highly recommended for + * text extraction to work properly. But not implemented yet. + * We can't do consice output for \TeX without this. + */ + spt_t raise; /* unused */ + spt_t leading; /* unused */ + + /* This is not always text matrix but rather font matrix. + * We do not use horizontal scaling in PDF text state parameter + * since they always apply scaling in fixed direction regardless + * of writing mode. + */ + struct { + double slant; + double extend; + int rotate; /* TEXT_WMODE_XX */ + } matrix; + + /* Fake bold parameter: + * If bold_param is positive, use text rendering mode + * fill-then-stroke with stroking line width specified + * by bold_param. + */ + double bold_param; + + /* Text composition (direction) mode. */ + int dir_mode; + + /* internal */ + + /* Flag indicating text matrix to be forcibly reset. + * Enabled if synthetic font features (slant, extend, etc) + * are used for current font or when text rotation mode + * changes. + */ + int force_reset; + + /* This information is duplicated from dev[font_id].format. + * Set to 1 if font is composite (Type0) font. + */ + int is_mb; +} text_state = { + -1, /* font */ + 0, /* offset */ + 0, 0, /* ref_x, ref_y */ + 0, 0, /* raise, leading */ + {0.0, 1.0, 0}, + + 0.0, /* Experimental boldness param */ + + 0, /* dir_mode */ + + /* internal */ + 0, /* force_reset */ + 0 /* is_mb */ +}; + +#define PDF_FONTTYPE_SIMPLE 1 +#define PDF_FONTTYPE_BITMAP 2 +#define PDF_FONTTYPE_COMPOSITE 3 + +struct dev_font { + /* Needs to be big enough to hold name "Fxxx" + * where xxx is number of largest font + */ + char short_name[7]; /* Resource name */ + int used_on_this_page; + + char *tex_name; /* String identifier of this font */ + spt_t sptsize; /* Point size */ + + /* Returned values from font/encoding layer: + * + * The font_id and enc_id is font and encoding (CMap) identifier + * used in pdf_font or encoding/cmap layer. + * The PDF object "resource" is an indirect reference object + * pointing font resource of this font. The used_chars is somewhat + * misleading, this is actually used_glyphs in CIDFont for Type0 + * and is 65536/8 bytes binary data with each bits representing + * whether the glyph is in-use or not. It is 256 char array for + * simple font. + */ + int font_id; + int enc_id; +#ifdef XETEX + unsigned short *ft_to_gid; +#endif + + /* if >= 0, index of a dev_font that really has the resource and used_chars */ + int real_font_index; + + pdf_obj *resource; + char *used_chars; + + /* Font format: + * simple, composite or bitmap. + */ + int format; + + /* Writing mode: + * Non-zero for vertical. Duplicated from CMap. + */ + int wmode; + + /* Syntetic Font: + * + * We use text matrix for creating extended or slanted font, + * but not with font's FontMatrix since TrueType and Type0 + * font don't support them. + */ + double extend; + double slant; + double bold; /* Boldness prameter */ + + /* Compatibility */ + int remap; /* Obsolete */ + int mapc; /* Nasty workaround for Omega */ + + /* There are no font metric format supporting four-bytes + * charcter code. So we should provide an option to specify + * UCS group and plane. + */ + int ucs_group; + int ucs_plane; + + int is_unicode; +}; +static struct dev_font *dev_fonts = NULL; + +static int num_dev_fonts = 0; +static int max_dev_fonts = 0; +static int num_phys_fonts = 0; + +#define CURRENTFONT() ((text_state.font_id < 0) ? NULL : &(dev_fonts[text_state.font_id])) +#define GET_FONT(n) (&(dev_fonts[(n)])) + + +static void +dev_set_text_matrix (spt_t xpos, spt_t ypos, double slant, double extend, int rotate) +{ + pdf_tmatrix tm; + int len = 0; + + /* slant is negated for vertical font so that right-side + * is always lower. */ + switch (rotate) { + case TEXT_WMODE_VH: + /* Vertical font */ + tm.a = slant ; tm.b = 1.0; + tm.c = -extend; tm.d = 0.0 ; + break; + case TEXT_WMODE_HV: + /* Horizontal font */ + tm.a = 0.0; tm.b = -extend; + tm.c = 1.0; tm.d = -slant ; + break; + case TEXT_WMODE_HH: + /* Horizontal font */ + tm.a = extend; tm.b = 0.0; + tm.c = slant ; tm.d = 1.0; + break; + case TEXT_WMODE_VV: + /* Vertical font */ + tm.a = 1.0; tm.b = -slant; + tm.c = 0.0; tm.d = extend; + break; + } + tm.e = xpos * dev_unit.dvi2pts; + tm.f = ypos * dev_unit.dvi2pts; + + format_buffer[len++] = ' '; + len += pdf_sprint_matrix(format_buffer+len, &tm); + format_buffer[len++] = ' '; + format_buffer[len++] = 'T'; + format_buffer[len++] = 'm'; + + pdf_doc_add_page_content(format_buffer, len); + + text_state.ref_x = xpos; + text_state.ref_y = ypos; + text_state.matrix.slant = slant; + text_state.matrix.extend = extend; + text_state.matrix.rotate = rotate; +} + +/* + * reset_text_state() outputs a BT and does any necessary coordinate + * transformations to get ready to ship out text. + */ + +static void +reset_text_state (void) +{ + /* + * We need to reset the line matrix to handle slanted fonts. + */ + pdf_doc_add_page_content(" BT", 3); + /* + * text_state.matrix is identity at top of page. + * This sometimes write unnecessary "Tm"s when transition from + * GRAPHICS_MODE to TEXT_MODE occurs. + */ + if (text_state.force_reset || + text_state.matrix.slant != 0.0 || + text_state.matrix.extend != 1.0 || + ROTATE_TEXT(text_state.matrix.rotate)) { + dev_set_text_matrix(0, 0, + text_state.matrix.slant, + text_state.matrix.extend, + text_state.matrix.rotate); + } + text_state.ref_x = 0; + text_state.ref_y = 0; + text_state.offset = 0; + text_state.force_reset = 0; +} + +static void +text_mode (void) +{ + switch (motion_state) { + case TEXT_MODE: + break; + case STRING_MODE: + pdf_doc_add_page_content(text_state.is_mb ? ">]TJ" : ")]TJ", 4); + break; + case GRAPHICS_MODE: + reset_text_state(); + break; + } + motion_state = TEXT_MODE; + text_state.offset = 0; +} + +void +graphics_mode (void) +{ + switch (motion_state) { + case GRAPHICS_MODE: + break; + case STRING_MODE: + pdf_doc_add_page_content(text_state.is_mb ? ">]TJ" : ")]TJ", 4); + /* continue */ + case TEXT_MODE: + pdf_doc_add_page_content(" ET", 3); + text_state.force_reset = 0; + text_state.font_id = -1; + break; + } + motion_state = GRAPHICS_MODE; +} + +static void +start_string (spt_t xpos, spt_t ypos, double slant, double extend, int rotate) +{ + spt_t delx, dely, error_delx, error_dely; + spt_t desired_delx, desired_dely; + int len = 0; + + delx = xpos - text_state.ref_x; + dely = ypos - text_state.ref_y; + /* + * Precompensating for line transformation matrix. + * + * Line transformation matrix L for horizontal font in horizontal + * mode and it's inverse I is + * + * | e 0| | 1/e 0| + * L_hh = | | , I_hh = | | + * | s 1| |-s/e 1| + * + * For vertical font in vertical mode, + * + * | 1 -s| | 1 s/e| + * L_vv = | | , I_vv = | | + * | 0 e| | 0 1/e| + * + * For vertical font in horizontal mode, + * + * | s 1| | 0 1| + * L_vh = | | = L_vv x | | + * |-e 0| |-1 0| + * + * | 0 -1| + * I_vh = | | x I_vv + * | 1 0| + * + * For horizontal font in vertical mode, + * + * | 0 -e| | 0 -1| + * L_hv = | | = L_hh x | | + * | 1 -s| | 1 0| + * + * | 0 1| + * I_hv = | | x I_hh + * |-1 0| + * + */ + switch (rotate) { + case TEXT_WMODE_VH: + /* Vertical font in horizontal mode: rot = +90 + * | 0 -1/e| + * d_user = d x I_vh = d x | | + * | 1 s/e| + */ + desired_delx = dely; + desired_dely = (spt_t) (-(delx - dely*slant)/extend); + + /* error_del is in device space + * + * | 0 1| + * e = e_user x | | = (-e_user_y, e_user_x) + * |-1 0| + * + * We must care about rotation here but not extend/slant... + * The extend and slant actually is font matrix. + */ + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_delx, &error_dely); + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_dely, &error_delx); + error_delx = -error_delx; + break; + case TEXT_WMODE_HV: + /* Horizontal font in vertical mode: rot = -90 + * + * |-s/e 1| + * d_user = d x I_hv = d x | | + * |-1/e 0| + */ + desired_delx = (spt_t)(-(dely + delx*slant)/extend); + desired_dely = delx; + + /* + * e = (e_user_y, -e_user_x) + */ + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_delx, &error_dely); + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_dely, &error_delx); + error_dely = -error_dely; + break; + case TEXT_WMODE_HH: + /* Horizontal font in horizontal mode: + * | 1/e 0| + * d_user = d x I_hh = d x | | + * |-s/e 1| + */ + desired_delx = (spt_t)((delx - dely*slant)/extend); + desired_dely = dely; + + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_delx, &error_delx); + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_dely, &error_dely); + break; + case TEXT_WMODE_VV: + /* Vertical font in vertical mode: + * | 1 s/e| + * d_user = d x I_vv = d x | | + * | 0 1/e| + */ + desired_delx = delx; + desired_dely = (spt_t)((dely + delx*slant)/extend); + + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_delx, &error_delx); + format_buffer[len++] = ' '; + len += dev_sprint_bp(format_buffer+len, desired_dely, &error_dely); + break; + } + pdf_doc_add_page_content(format_buffer, len); + /* + * dvipdfm wrongly using "TD" in place of "Td". + * The TD operator set leading, but we are not using T* etc. + */ + pdf_doc_add_page_content(text_state.is_mb ? " Td[<" : " Td[(", 5); + + /* Error correction */ + text_state.ref_x = xpos - error_delx; + text_state.ref_y = ypos - error_dely; + + text_state.offset = 0; +} + +static void +string_mode (spt_t xpos, spt_t ypos, double slant, double extend, int rotate) +{ + switch (motion_state) { + case STRING_MODE: + break; + case GRAPHICS_MODE: + reset_text_state(); + /* continue */ + case TEXT_MODE: + if (text_state.force_reset) { + dev_set_text_matrix(xpos, ypos, slant, extend, rotate); + pdf_doc_add_page_content(text_state.is_mb ? "[<" : "[(", 2); + text_state.force_reset = 0; + } else { + start_string(xpos, ypos, slant, extend, rotate); + } + break; + } + motion_state = STRING_MODE; +} + +/* + * The purpose of the following routine is to force a Tf only + * when it's actually necessary. This became a problem when the + * VF code was added. The VF spec says to instantiate the + * first font contained in the VF file before drawing a virtual + * character. However, that font may not be used for + * many characters (e.g. small caps fonts). For this reason, + * dev_select_font() should not force a "physical" font selection. + * This routine prevents a PDF Tf font selection until there's + * really a character in that font. + */ + +static int +dev_set_font (int font_id) +{ + struct dev_font *font; + struct dev_font *real_font; + int text_rotate; + double font_scale; + int len; + int vert_dir, vert_font; + + /* text_mode() must come before text_state.is_mb is changed. */ + text_mode(); + + font = GET_FONT(font_id); + ASSERT(font); /* Caller should check font_id. */ + + if (font->real_font_index >= 0) + real_font = GET_FONT(font->real_font_index); + else + real_font = font; + + text_state.is_mb = (font->format == PDF_FONTTYPE_COMPOSITE) ? 1 : 0; + + vert_font = font->wmode ? 1 : 0; + if (dev_param.autorotate) { + vert_dir = text_state.dir_mode ? 1 : 0; + } else { + vert_dir = vert_font; + } + text_rotate = (vert_font << 1)|vert_dir; + + if (font->slant != text_state.matrix.slant || + font->extend != text_state.matrix.extend || + ANGLE_CHANGES(text_rotate, text_state.matrix.rotate)) { + text_state.force_reset = 1; + } + text_state.matrix.slant = font->slant; + text_state.matrix.extend = font->extend; + text_state.matrix.rotate = text_rotate; + + if (!real_font->resource) { + real_font->resource = pdf_get_font_reference(real_font->font_id); + real_font->used_chars = pdf_get_font_usedchars(real_font->font_id); + } + + if (!real_font->used_on_this_page) { + pdf_doc_add_page_resource("Font", + real_font->short_name, + pdf_link_obj(real_font->resource)); + real_font->used_on_this_page = 1; + } + + font_scale = (double) font->sptsize * dev_unit.dvi2pts; + len = sprintf(format_buffer, " /%s", real_font->short_name); /* space not necessary. */ + format_buffer[len++] = ' '; + len += p_dtoa(font_scale, MIN(dev_unit.precision+1, DEV_PRECISION_MAX), format_buffer+len); + format_buffer[len++] = ' '; + format_buffer[len++] = 'T'; + format_buffer[len++] = 'f'; + pdf_doc_add_page_content(format_buffer, len); + + if (font->bold > 0.0 || font->bold != text_state.bold_param) { + if (font->bold <= 0.0) + len = sprintf(format_buffer, " 0 Tr"); + else + len = sprintf(format_buffer, " 2 Tr %.2f w", font->bold); /* _FIXME_ */ + pdf_doc_add_page_content(format_buffer, len); + } + text_state.bold_param = font->bold; + + text_state.font_id = font_id; + + return 0; +} + + +/* Access text state parameters. + */ +int +pdf_dev_currentfont (void) +{ + return text_state.font_id; +} + +double +pdf_dev_get_font_ptsize (int font_id) +{ + struct dev_font *font; + + font = GET_FONT(font_id); + if (font) { + return font->sptsize * dev_unit.dvi2pts; + } + + return 1.0; +} + +int +pdf_dev_get_font_wmode (int font_id) +{ + struct dev_font *font; + + font = GET_FONT(font_id); + if (font) { + return font->wmode; + } + + return 0; +} + +static unsigned char sbuf0[FORMAT_BUF_SIZE]; +static unsigned char sbuf1[FORMAT_BUF_SIZE]; + +static int +handle_remap (unsigned char **str_ptr, int length) +{ + unsigned char *p; + int i; + + p = *str_ptr; + +#define twiddle(n) ( \ + ( \ + ((n) <= 9) ? \ + ((n) + 161) : \ + (((n) <= 32) ? \ + ((n) + 163) : \ + (((n) == 127) ? 196: (n)) \ + ) \ + ) \ +) + + for (i = 0; i < length; i++) { + sbuf0[i] = twiddle(p[i]); + } + + *str_ptr = sbuf0; + return 0; +} + +static int +handle_multibyte_string (struct dev_font *font, + unsigned char **str_ptr, int *str_len, int ctype) +{ + unsigned char *p; + int i, length; + + p = *str_ptr; + length = *str_len; + +#ifdef XETEX + if (ctype == -1) { /* freetype glyph indexes */ + if (font->ft_to_gid) { + /* convert freetype glyph indexes to physical GID */ + unsigned char *inbuf = p; + unsigned char *outbuf = sbuf0; + for (i = 0; i < length; i += 2) { + unsigned int gid; + gid = *inbuf++ << 8; + gid += *inbuf++; + gid = font->ft_to_gid[gid]; + *outbuf++ = gid >> 8; + *outbuf++ = gid & 0xff; + } + p = sbuf0; + length = outbuf - sbuf0; + } + } + else +#endif + /* _FIXME_ */ + if (font->is_unicode) { /* UCS-4 */ + if (ctype == 1) { + if (length * 4 >= FORMAT_BUF_SIZE) { + WARN("Too long string..."); + return -1; + } + for (i = 0; i < length; i++) { + sbuf1[i*4 ] = font->ucs_group; + sbuf1[i*4+1] = font->ucs_plane; + sbuf1[i*4+2] = '\0'; + sbuf1[i*4+3] = p[i]; + } + length *= 4; + } else if (ctype == 2) { + if (length * 2 >= FORMAT_BUF_SIZE) { + WARN("Too long string..."); + return -1; + } + for (i = 0; i < length; i += 2) { + sbuf1[i*2 ] = font->ucs_group; + sbuf1[i*2+1] = font->ucs_plane; + sbuf1[i*2+2] = p[i]; + sbuf1[i*2+3] = p[i+1]; + } + length *= 2; + } + p = sbuf1; + } else if (ctype == 1 && font->mapc >= 0) { + /* Omega workaround... + * Translate single-byte chars to double byte code space. + */ + if (length * 2 >= FORMAT_BUF_SIZE) { + WARN("Too long string..."); + return -1; + } + for (i = 0; i < length; i++) { + sbuf1[i*2 ] = (font->mapc & 0xff); + sbuf1[i*2+1] = p[i]; + } + length *= 2; + p = sbuf1; + } + + /* + * Font is double-byte font. Output is assumed to be 16-bit fixed length + * encoding. + * TODO: A character decomposed to multiple characters. + */ + if (ctype != -1 && font->enc_id >= 0) { + unsigned char *inbuf, *outbuf; + long inbytesleft, outbytesleft; + CMap *cmap; + + cmap = CMap_cache_get(font->enc_id); + inbuf = p; + outbuf = sbuf0; + inbytesleft = length; + outbytesleft = FORMAT_BUF_SIZE; + + CMap_decode(cmap, + (const unsigned char **) &inbuf, &inbytesleft, &outbuf, &outbytesleft); + if (inbytesleft != 0) { + WARN("CMap conversion failed. (%d bytes remains)", inbytesleft); + return -1; + } + length = FORMAT_BUF_SIZE - outbytesleft; + p = sbuf0; + } + + *str_ptr = p; + *str_len = length; + return 0; +} + +/* + * ctype: +#ifdef XETEX + * -1 input string contains 2-byte Freetype glyph index values +#endif + * 0 byte-width of char can be variable and input string + * is properly encoded. + * n Single character cosumes n bytes in input string. + * + * _FIXME_ + * --> + * selectfont(font_name, point_size) and show_string(pos, string) + */ +void +pdf_dev_set_string (spt_t xpos, spt_t ypos, + const void *instr_ptr, int instr_len, + spt_t width, + int font_id, int ctype) +{ + struct dev_font *font; + struct dev_font *real_font; + unsigned char *str_ptr; /* Pointer to the reencoded string. */ + int length, i, len = 0; + spt_t kern, delh, delv; + spt_t text_xorigin; + spt_t text_yorigin; + + if (font_id < 0 || font_id >= num_dev_fonts) { + ERROR("Invalid font: %d (%d)", font_id, num_dev_fonts); + return; + } + if (font_id != text_state.font_id) { + dev_set_font(font_id); + } + + font = CURRENTFONT(); + if (!font) { + ERROR("Currentfont not set."); + return; + } + + if (font->real_font_index >= 0) + real_font = GET_FONT(font->real_font_index); + else + real_font = font; + + text_xorigin = text_state.ref_x; + text_yorigin = text_state.ref_y; + + str_ptr = (unsigned char *) instr_ptr; + length = instr_len; + + if (font->format == PDF_FONTTYPE_COMPOSITE) { + if (handle_multibyte_string(font, &str_ptr, &length, ctype) < 0) { + ERROR("Error in converting input string..."); + return; + } + if (real_font->used_chars != NULL) { + for (i = 0; i < length; i += 2) + add_to_used_chars2(real_font->used_chars, + (unsigned short) (str_ptr[i] << 8)|str_ptr[i+1]); + } + } else { + if (font->remap) + handle_remap(&str_ptr, length); /* length unchanged. */ + if (real_font->used_chars != NULL) { + for (i = 0; i < length; i++) + real_font->used_chars[str_ptr[i]] = 1; + } + } + + /* + * Kern is in units of character units, i.e., 1000 = 1 em. + * + * Positive kern means kerning (reduce excess white space). + * + * The following formula is of the form a*x/b where a, x, and b are signed long + * integers. Since in integer arithmetic (a*x) could overflow and a*(x/b) would + * not be accurate, we use floating point arithmetic rather than trying to do + * this all with integer arithmetic. + * + * 1000.0 / (font->extend * font->sptsize) is caluculated each times... + * Is accuracy really a matter? Character widths are always rounded to integer + * (in 1000 units per em) but dvipdfmx does not take into account of this... + */ + + if (text_state.dir_mode) { + /* Top-to-bottom */ + delh = ypos - text_yorigin + text_state.offset; + delv = xpos - text_xorigin; + } else { + /* Left-to-right */ + delh = text_xorigin + text_state.offset - xpos; + delv = ypos - text_yorigin; + } + + /* White-space more than 3em is not considered as a part of single text. + * So we will break string mode in that case. + * Dvipdfmx spend most of time processing strings with kern = 0 (but far + * more times in font handling). + * You may want to use pre-calculated value for WORD_SPACE_MAX. + * More text compression may be possible by replacing kern with space char + * when -kern is equal to space char width. + */ +#define WORD_SPACE_MAX(f) (spt_t) (3.0 * (f)->extend * (f)->sptsize) + + if (text_state.force_reset || + labs(delv) > dev_unit.min_bp_val || + labs(delh) > WORD_SPACE_MAX(font)) { + text_mode(); + kern = 0; + } else { + kern = (spt_t) (1000.0 / font->extend * delh / font->sptsize); + } + + /* Inaccucary introduced by rounding of character width appears within + * single text block. There are point_size/1000 rounding error per character. + * If you really care about accuracy, you should compensate this here too. + */ + if (motion_state != STRING_MODE) + string_mode(xpos, ypos, + font->slant, font->extend, text_state.matrix.rotate); + else if (kern != 0) { + /* + * Same issues as earlier. Use floating point for simplicity. + * This routine needs to be fast, so we don't call sprintf() or strcpy(). + */ +#if 0 + text_state.offset -= + (spt_t) (kern * font->extend * (font->sptsize / 1000.0)); +#endif + text_state.offset -= delh; + format_buffer[len++] = text_state.is_mb ? '>' : ')'; + if (font->wmode) + len += p_itoa(-kern, format_buffer + len); + else { + len += p_itoa( kern, format_buffer + len); + } + format_buffer[len++] = text_state.is_mb ? '<' : '('; + pdf_doc_add_page_content(format_buffer, len); + len = 0; + } + + if (text_state.is_mb) { + if (FORMAT_BUF_SIZE - len < 2 * length) + ERROR("Buffer overflow..."); + for (i = 0; i < length; i++) { + int first, second; + + first = (str_ptr[i] >> 4) & 0x0f; + second = str_ptr[i] & 0x0f; + format_buffer[len++] = ((first >= 10) ? first + 'W' : first + '0'); + format_buffer[len++] = ((second >= 10) ? second + 'W' : second + '0'); + } + } else { + len += pdfobj_escape_str(format_buffer + len, + FORMAT_BUF_SIZE - len, str_ptr, length); + } + /* I think if you really care about speed, you should avoid memcopy here. */ + pdf_doc_add_page_content(format_buffer, len); + + text_state.offset += width; +} + +void +pdf_init_device (double dvi2pts, int precision, int black_and_white) +{ + if (precision < 0 || + precision > DEV_PRECISION_MAX) + WARN("Number of decimal digits out of range [0-%d].", + DEV_PRECISION_MAX); + + if (precision < 0) { + dev_unit.precision = 0; + } else if (precision > DEV_PRECISION_MAX) { + dev_unit.precision = DEV_PRECISION_MAX; + } else { + dev_unit.precision = precision; + } + dev_unit.dvi2pts = dvi2pts; + dev_unit.min_bp_val = (long) ROUND(1.0/(ten_pow[dev_unit.precision]*dvi2pts), 1); + if (dev_unit.min_bp_val < 0) + dev_unit.min_bp_val = -dev_unit.min_bp_val; + + dev_param.colormode = (black_and_white ? 0 : 1); + + graphics_mode(); + pdf_color_clear(); + pdf_dev_init_gstates(); + + num_dev_fonts = 0; + max_dev_fonts = 0; + dev_fonts = NULL; +} + +void +pdf_close_device (void) +{ + if (dev_fonts) { + int i; + + for (i = 0; i < num_dev_fonts; i++) { + if (dev_fonts[i].tex_name) + RELEASE(dev_fonts[i].tex_name); + if (dev_fonts[i].resource) + pdf_release_obj(dev_fonts[i].resource); + dev_fonts[i].tex_name = NULL; + dev_fonts[i].resource = NULL; + } + RELEASE(dev_fonts); + } + dev_fonts = NULL; + num_dev_fonts = 0; + max_dev_fonts = 0; + + pdf_dev_clean_gstates(); +} + +/* + * BOP, EOP, and FONT section. + * BOP and EOP manipulate some of the same data structures + * as the font stuff. + */ + + +/* + * The following routine is here for forms. Since a form is + * self-contained, it will need its own Tf command at the + * beginningg even if it is continuing to set type in the + * current font. This routine simply forces reinstantiation + * of the current font. + */ +void +pdf_dev_reset (void) +{ + pdf_dev_reset_fonts(); + pdf_dev_reset_color(); +} + +void +pdf_dev_reset_fonts (void) +{ + int i; + + for (i = 0; i < num_dev_fonts; i++) { + dev_fonts[i].used_on_this_page = 0; + } + + text_state.font_id = -1; + + text_state.matrix.slant = 0.0; + text_state.matrix.extend = 1.0; + text_state.matrix.rotate = TEXT_WMODE_HH; + + text_state.bold_param = 0.0; + + text_state.is_mb = 0; +} + +/* Not working */ +void +pdf_dev_set_origin (double phys_x, double phys_y) +{ + pdf_tmatrix M0, M1; + + pdf_dev_currentmatrix(&M0); + pdf_dev_currentmatrix(&M1); + pdf_invertmatrix(&M1); + M0.e = phys_x; M0.f = phys_y; + pdf_concatmatrix(&M1, &M0); + + pdf_dev_concat(&M1); +} + +static pdf_color saved_sc, saved_fc; +static int have_saved_color = 0; + +void +pdf_dev_bop (const pdf_tmatrix *M) +{ + graphics_mode(); + + text_state.force_reset = 0; + + pdf_dev_gsave(); + pdf_dev_concat(M); + + pdf_dev_reset(); + + if (have_saved_color) { + pdf_dev_setcolor(&saved_sc, 0); + pdf_dev_setcolor(&saved_fc, 1); + } +} + +void +pdf_dev_eop (void) +{ + int depth; + + graphics_mode(); + + /* preserve the current color for start of next page, so \special{color...} + doesn't cease to have any effect at a page break; + note that printing pages out of order will break the assumptions here */ + pdf_dev_currentcolor(&saved_sc, 0); + pdf_dev_currentcolor(&saved_fc, 1); + have_saved_color = 1; + + depth = pdf_dev_current_depth(); + if (depth != 1) { + WARN("Unbalenced q/Q nesting...: %d", depth); + pdf_dev_grestore_to(0); + } else { + pdf_dev_grestore(); + } +} + +static void +print_fontmap (const char *font_name, fontmap_rec *mrec) +{ + if (!mrec) + return; + + MESG("\n"); + + MESG("fontmap: %s -> %s", font_name, mrec->font_name); + if (mrec->enc_name) + MESG("(%s)", mrec->enc_name); + if (mrec->opt.extend != 1.0) + MESG("[extend:%g]", mrec->opt.extend); + if (mrec->opt.slant != 0.0) + MESG("[slant:%g]", mrec->opt.slant); + if (mrec->opt.bold != 0.0) + MESG("[bold:%g]", mrec->opt.bold); + if (mrec->opt.flags & FONTMAP_OPT_REMAP) + MESG("[remap]"); + if (mrec->opt.flags & FONTMAP_OPT_NOEMBED) + MESG("[noemb]"); + if (mrec->opt.mapc >= 0) + MESG("[map:<%02x>]", mrec->opt.mapc); + if (mrec->opt.charcoll) + MESG("[csi:%s]", mrec->opt.charcoll); + if (mrec->opt.index) + MESG("[index:%d]", mrec->opt.index); + + switch (mrec->opt.style) { + case FONTMAP_STYLE_BOLD: + MESG("[style:bold]"); + break; + case FONTMAP_STYLE_ITALIC: + MESG("[style:italic]"); + break; + case FONTMAP_STYLE_BOLDITALIC: + MESG("[style:bolditalic]"); + break; + } + MESG("\n"); + +} + +/* _FIXME_ + * Font is identified with font_name and point_size as in DVI here. + * However, except for PDF_FONTTYPE_BITMAP, we can share the + * short_name, resource and used_chars between multiple instances + * of the same font at different sizes. + */ +int +pdf_dev_locate_font (const char *font_name, spt_t ptsize) +{ + int i; + fontmap_rec *mrec; + struct dev_font *font; + + if (!font_name) + return -1; + + if (ptsize == 0) { + ERROR("pdf_dev_locate_font() called with the zero ptsize."); + return -1; + } + + for (i = 0; i < num_dev_fonts; i++) { + if (strcmp(font_name, dev_fonts[i].tex_name) == 0) { + if (ptsize == dev_fonts[i].sptsize) + return i; /* found a dev_font that matches the request */ + if (dev_fonts[i].format != PDF_FONTTYPE_BITMAP) + break; /* new dev_font will share pdf resource with /i/ */ + } + } + + /* + * Make sure we have room for a new one, even though we may not + * actually create one. + */ + if (num_dev_fonts >= max_dev_fonts) { + max_dev_fonts += 16; + dev_fonts = RENEW(dev_fonts, max_dev_fonts, struct dev_font); + } + + font = &dev_fonts[num_dev_fonts]; + + /* New font */ + mrec = pdf_lookup_fontmap_record(font_name); + + if (verbose > 1) + print_fontmap(font_name, mrec); + + font->font_id = pdf_font_findresource(font_name, ptsize * dev_unit.dvi2pts, mrec); + if (font->font_id < 0) + return -1; + + /* We found device font here. */ + if (i < num_dev_fonts) { + font->real_font_index = i; + strcpy(font->short_name, dev_fonts[i].short_name); + } + else { + font->real_font_index = -1; + font->short_name[0] = 'F'; + p_itoa(num_phys_fonts + 1, &font->short_name[1]); /* NULL terminated here */ + num_phys_fonts++; + } + + font->used_on_this_page = 0; + + font->tex_name = NEW(strlen(font_name) + 1, char); + strcpy(font->tex_name, font_name); + font->sptsize = ptsize; + + switch (pdf_get_font_subtype(font->font_id)) { + case PDF_FONT_FONTTYPE_TYPE3: + font->format = PDF_FONTTYPE_BITMAP; + break; + case PDF_FONT_FONTTYPE_TYPE0: + font->format = PDF_FONTTYPE_COMPOSITE; + break; + default: + font->format = PDF_FONTTYPE_SIMPLE; + break; + } + + font->wmode = pdf_get_font_wmode (font->font_id); + font->enc_id = pdf_get_font_encoding(font->font_id); +#ifdef XETEX + font->ft_to_gid = pdf_get_font_ft_to_gid(font->font_id); +#endif + + font->resource = NULL; /* Don't ref obj until font is actually used. */ + font->used_chars = NULL; + + font->extend = 1.0; + font->slant = 0.0; + font->bold = 0.0; + font->remap = 0; + font->mapc = -1; + font->is_unicode = 0; + font->ucs_group = 0; + font->ucs_plane = 0; + + if (mrec) { + font->extend = mrec->opt.extend; + font->slant = mrec->opt.slant; + font->bold = mrec->opt.bold; + font->remap = (int) (mrec->opt.flags & FONTMAP_OPT_REMAP); + if (mrec->opt.mapc >= 0) + font->mapc = (mrec->opt.mapc >> 8) & 0xff; + else { + font->mapc = -1; + } + if (mrec->enc_name && + !strcmp(mrec->enc_name, "unicode")) { + font->is_unicode = 1; + if (mrec->opt.mapc >= 0) { + font->ucs_group = (mrec->opt.mapc >> 24) & 0xff; + font->ucs_plane = (mrec->opt.mapc >> 16) & 0xff; + } else { + font->ucs_group = 0; + font->ucs_plane = 0; + } + } else { + font->is_unicode = 0; + } + } + + return num_dev_fonts++; +} + + +/* This does not remember current stroking width. */ +static int +dev_sprint_line (char *buf, spt_t width, + spt_t p0_x, spt_t p0_y, spt_t p1_x, spt_t p1_y) +{ + int len = 0; + double w; + + w = width * dev_unit.dvi2pts; + + len += p_dtoa(w, MIN(dev_unit.precision+1, DEV_PRECISION_MAX), buf+len); + buf[len++] = ' '; + buf[len++] = 'w'; + buf[len++] = ' '; + len += dev_sprint_bp(buf+len, p0_x, NULL); + buf[len++] = ' '; + len += dev_sprint_bp(buf+len, p0_y, NULL); + buf[len++] = ' '; + buf[len++] = 'm'; + buf[len++] = ' '; + len += dev_sprint_bp(buf+len, p1_x, NULL); + buf[len++] = ' '; + len += dev_sprint_bp(buf+len, p1_y, NULL); + buf[len++] = ' '; + buf[len++] = 'l'; + buf[len++] = ' '; + buf[len++] = 'S'; + + return len; +} + +/* Not optimized. */ +#define PDF_LINE_THICKNESS_MAX 5.0 +void +pdf_dev_set_rule (spt_t xpos, spt_t ypos, spt_t width, spt_t height) +{ + int len = 0; + double width_in_bp; + + graphics_mode(); + + format_buffer[len++] = ' '; + format_buffer[len++] = 'q'; + format_buffer[len++] = ' '; + /* Don't use too thick line. */ + width_in_bp = ((width < height) ? width : height) * dev_unit.dvi2pts; + if (width_in_bp < 0.0 || /* Shouldn't happen */ + width_in_bp > PDF_LINE_THICKNESS_MAX) { + pdf_rect rect; + + rect.llx = dev_unit.dvi2pts * xpos; + rect.lly = dev_unit.dvi2pts * ypos; + rect.urx = dev_unit.dvi2pts * width; + rect.ury = dev_unit.dvi2pts * height; + len += pdf_sprint_rect(format_buffer+len, &rect); + format_buffer[len++] = ' '; + format_buffer[len++] = 'r'; + format_buffer[len++] = 'e'; + format_buffer[len++] = ' '; + format_buffer[len++] = 'f'; + } else { + if (width > height) { + /* NOTE: + * A line width of 0 denotes the thinnest line that can be rendered at + * device resolution. See, PDF Reference Manual 4th ed., sec. 4.3.2, + * "Details of Graphics State Parameters", p. 185. + */ + if (height < dev_unit.min_bp_val) { + WARN("Too thin line: height=%ld (%g bp)", height, width_in_bp); + WARN("Please consider using \"-d\" option."); + } + len += dev_sprint_line(format_buffer+len, + height, + xpos, + ypos + height/2, + xpos + width, + ypos + height/2); + } else { + if (width < dev_unit.min_bp_val) { + WARN("Too thin line: width=%ld (%g bp)", width, width_in_bp); + WARN("Please consider using \"-d\" option."); + } + len += dev_sprint_line(format_buffer+len, + width, + xpos + width/2, + ypos, + xpos + width/2, + ypos + height); + } + } + format_buffer[len++] = ' '; + format_buffer[len++] = 'Q'; + pdf_doc_add_page_content(format_buffer, len); +} + +/* Rectangle in device space coordinate. */ +void +pdf_dev_set_rect (pdf_rect *rect, + spt_t x_user, spt_t y_user, + spt_t width, spt_t height, spt_t depth) +{ + double dev_x, dev_y; + pdf_coord p0, p1, p2, p3; + double min_x, min_y, max_x, max_y; + + dev_x = x_user * dev_unit.dvi2pts; + dev_y = y_user * dev_unit.dvi2pts; + if (text_state.dir_mode) { + p0.x = dev_x - dev_unit.dvi2pts * depth; + p0.y = dev_y - dev_unit.dvi2pts * width; + p1.x = dev_x + dev_unit.dvi2pts * height; + p1.y = p0.y; + p2.x = p1.x; + p2.y = dev_y; + p3.x = p0.x; + p3.y = p2.y; + } else { + p0.x = dev_x; + p0.y = dev_y - dev_unit.dvi2pts * depth; + p1.x = dev_x + dev_unit.dvi2pts * width; + p1.y = p0.y; + p2.x = p1.x; + p2.y = dev_y + dev_unit.dvi2pts * height; + p3.x = p0.x; + p3.y = p2.y; + } + + pdf_dev_transform(&p0, NULL); /* currentmatrix */ + pdf_dev_transform(&p1, NULL); + pdf_dev_transform(&p2, NULL); + pdf_dev_transform(&p3, NULL); + + min_x = MIN(p0.x , p1.x); + min_x = MIN(min_x, p2.x); + min_x = MIN(min_x, p3.x); + + max_x = MAX(p0.x , p1.x); + max_x = MAX(max_x, p2.x); + max_x = MAX(max_x, p3.x); + + min_y = MIN(p0.y , p1.y); + min_y = MIN(min_y, p2.y); + min_y = MIN(min_y, p3.y); + + max_y = MAX(p0.y , p1.y); + max_y = MAX(max_y, p2.y); + max_y = MAX(max_y, p3.y); + + rect->llx = min_x; + rect->lly = min_y; + rect->urx = max_x; + rect->ury = max_y; + + return; +} + +int +pdf_dev_get_dirmode (void) +{ + return text_state.dir_mode; +} + +void +pdf_dev_set_dirmode (int text_dir) +{ + struct dev_font *font; + int text_rotate; + int vert_dir, vert_font; + + font = CURRENTFONT(); + + vert_font = (font && font->wmode) ? 1 : 0; + if (dev_param.autorotate) { + vert_dir = text_dir ? 1 : 0; + } else { + vert_dir = vert_font; + } + text_rotate = (vert_font << 1)|vert_dir; + + if (font && + ANGLE_CHANGES(text_rotate, text_state.matrix.rotate)) { + text_state.force_reset = 1; + } + + text_state.matrix.rotate = text_rotate; + text_state.dir_mode = text_dir; +} + +static void +dev_set_param_autorotate (int auto_rotate) +{ + struct dev_font *font; + int text_rotate, vert_font, vert_dir; + + font = CURRENTFONT(); + + vert_font = (font && font->wmode) ? 1 : 0; + if (auto_rotate) { + vert_dir = text_state.dir_mode ? 1 : 0; + } else { + vert_dir = vert_font; + } + text_rotate = (vert_font << 1)|vert_dir; + + if (ANGLE_CHANGES(text_rotate, text_state.matrix.rotate)) { + text_state.force_reset = 1; + } + text_state.matrix.rotate = text_rotate; + dev_param.autorotate = auto_rotate; +} + +int +pdf_dev_get_param (int param_type) +{ + int value = 0; + + switch (param_type) { + case PDF_DEV_PARAM_AUTOROTATE: + value = dev_param.autorotate; + break; + case PDF_DEV_PARAM_COLORMODE: + value = dev_param.colormode; + break; + default: + ERROR("Unknown device parameter: %d", param_type); + } + + return value; +} + +void +pdf_dev_set_param (int param_type, int value) +{ + switch (param_type) { + case PDF_DEV_PARAM_AUTOROTATE: + dev_set_param_autorotate(value); + break; + case PDF_DEV_PARAM_COLORMODE: + dev_param.colormode = value; /* 0 for B&W */ + break; + default: + ERROR("Unknown device parameter: %d", param_type); + } + + return; +} + + +int +pdf_dev_put_image (int id, + transform_info *p, + double ref_x, + double ref_y) +{ + char *res_name; + pdf_tmatrix M; + pdf_rect r; + int len = 0; + + pdf_copymatrix(&M, &(p->matrix)); + M.e += ref_x; M.f += ref_y; + /* Just rotate by -90, but not tested yet. Any problem if M has scaling? */ + if (dev_param.autorotate && + text_state.dir_mode) { + double tmp; + tmp = -M.a; M.a = M.b; M.b = tmp; + tmp = -M.c; M.c = M.d; M.d = tmp; + } + + graphics_mode(); + pdf_dev_gsave(); + + pdf_dev_concat(&M); + + pdf_ximage_scale_image(id, &M, &r, p); + pdf_dev_concat(&M); + + /* Clip */ + if (p->flags & INFO_DO_CLIP) { +#if 0 + pdf_dev_newpath(); + pdf_dev_moveto(r.llx, r.lly); + pdf_dev_lineto(r.urx, r.lly); + pdf_dev_lineto(r.urx, r.ury); + pdf_dev_lineto(r.llx, r.ury); + pdf_dev_closepath(); + pdf_dev_clip(); + pdf_dev_newpath(); +#else + pdf_dev_rectclip(r.llx, r.lly, r.urx - r.llx, r.ury - r.lly); +#endif + } + + res_name = pdf_ximage_get_resname(id); + len = sprintf(work_buffer, " /%s Do", res_name); + pdf_doc_add_page_content(work_buffer, len); + + pdf_dev_grestore(); + + pdf_doc_add_page_resource("XObject", + res_name, + pdf_ximage_get_reference(id)); + + return 0; +} + + +void +transform_info_clear (transform_info *info) +{ + /* Physical dimensions */ + info->width = 0.0; + info->height = 0.0; + info->depth = 0.0; + + info->bbox.llx = 0.0; + info->bbox.lly = 0.0; + info->bbox.urx = 0.0; + info->bbox.ury = 0.0; + + /* Transformation matrix */ + pdf_setmatrix(&(info->matrix), 1.0, 0.0, 0.0, 1.0, 0.0, 0.0); + + info->flags = 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/pdfdev.h b/Build/source/texk/xdvipdfmx/src/pdfdev.h new file mode 100644 index 00000000000..dbc28cf36fb --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfdev.h @@ -0,0 +1,220 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfdev.h,v 1.18 2005/08/12 18:22:24 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFDEV_H_ +#define _PDFDEV_H_ + +#include "numbers.h" +#include "pdfobj.h" + +typedef signed long spt_t; + +typedef struct pdf_tmatrix +{ + double a, b, c, d, e, f; +} pdf_tmatrix; + +typedef struct pdf_rect +{ + double llx, lly, urx, ury; +} pdf_rect; + +typedef struct pdf_coord +{ + double x, y; +} pdf_coord; + +/* The name transform_info is misleading. + * I'll put this here for a moment... + */ +typedef struct +{ + /* Physical dimensions + * + * If those values are given, images will be scaled + * and/or shifted to fit within a box described by + * those values. + */ + double width; + double height; + double depth; + + pdf_tmatrix matrix; /* transform matrix */ + pdf_rect bbox; /* user_bbox */ + + int flags; +} transform_info; +#define INFO_HAS_USER_BBOX (1 << 0) +#define INFO_HAS_WIDTH (1 << 1) +#define INFO_HAS_HEIGHT (1 << 2) +#define INFO_DO_CLIP (1 << 3) +extern void transform_info_clear (transform_info *info); + + +extern void pdf_dev_set_verbose (void); + +/* Not in spt_t. */ +extern int pdf_sprint_matrix (char *buf, const pdf_tmatrix *p); +extern int pdf_sprint_rect (char *buf, const pdf_rect *p); +extern int pdf_sprint_coord (char *buf, const pdf_coord *p); +extern int pdf_sprint_length (char *buf, double value); +extern int pdf_sprint_number (char *buf, double value); + +/* unit_conv: multiplier for input unit (spt_t) to bp conversion. + * precision: How many fractional digits preserved in output (not real + * accuracy control). + * is_bw: Ignore color related special instructions. + */ +extern void pdf_init_device (double unit_conv, int precision, int is_bw); +extern void pdf_close_device (void); + +/* returns 1.0/unit_conv */ +extern double dev_unit_dviunit (void); + +#if 0 +/* DVI interpreter knows text positioning in relative motion. + * However, pdf_dev_set_string() recieves text string with placement + * in absolute position in user space, and it convert absolute + * positioning back to relative positioning. It is quite wasteful. + * + * TeX using DVI register stack operation to do CR and then use down + * command for LF. DVI interpreter knows hint for current leading + * and others (raised or lowered), but they are mostly lost in + * pdf_dev_set_string(). + */ + +typedef struct +{ + int argc; + + struct { + int is_kern; /* kern or string */ + + spt_t kern; /* negative kern means space */ + + int offset; /* offset to sbuf */ + int length; /* length of string */ + } args[]; + + unsigned char sbuf[PDF_STRING_LEN_MAX]; + +} pdf_text_string; + +/* Something for handling raise, leading, etc. here. */ + +#endif + +/* Draw texts and rules: + * + * xpos, ypos, width, and height are all fixed-point numbers + * converted to big-points by multiplying unit_conv (dvi2pts). + * They must be position in the user space. + * + * ctype: + * 0 - input string is in multi-byte encoding. + * 1 - input string is in 8-bit encoding. + * 2 - input string is in 16-bit encoding. + */ +extern void pdf_dev_set_string (spt_t xpos, spt_t ypos, + const void *instr_ptr, int instr_len, + spt_t text_width, + int font_id, int ctype); +extern void pdf_dev_set_rule (spt_t xpos, spt_t ypos, + spt_t width, spt_t height); + +/* Place XObject */ +extern int pdf_dev_put_image (int xobj_id, + transform_info *p, double ref_x, double ref_y); + +/* The design_size and ptsize required by PK font support... + */ +extern int pdf_dev_locate_font (const char *font_name, spt_t ptsize); + +extern int pdf_dev_setfont (const char *font_name, spt_t ptsize); + +/* The following two routines are NOT WORKING. + * Dvipdfmx doesn't manage gstate well.. + */ +/* pdf_dev_translate() or pdf_dev_concat() should be used. */ +extern void pdf_dev_set_origin (double orig_x, double orig_y); +/* Always returns 1.0, please rename this. */ +extern double pdf_dev_scale (void); + +/* Access text state parameters. */ +extern int pdf_dev_currentfont (void); /* returns font_id */ +extern double pdf_dev_get_font_ptsize (int font_id); +extern int pdf_dev_get_font_wmode (int font_id); /* ps: special support want this (pTeX). */ + +/* Text composition (direction) mode + * This affects only when auto_rotate is enabled. + */ +extern int pdf_dev_get_dirmode (void); +extern void pdf_dev_set_dirmode (int dir_mode); + +/* Set rect to rectangle in device space. + * Unit conversion spt_t to bp and transformation applied within it. + */ +extern void pdf_dev_set_rect (pdf_rect *rect, + spt_t x_pos, spt_t y_pos, + spt_t width, spt_t height, spt_t depth); + +/* Accessor to various device parameters. + */ +#define PDF_DEV_PARAM_AUTOROTATE 1 +#define PDF_DEV_PARAM_COLORMODE 2 + +extern int pdf_dev_get_param (int param_type); +extern void pdf_dev_set_param (int param_type, int value); + +/* Text composition mode is ignored (always same as font's + * writing mode) and glyph rotation is not enabled if + * auto_rotate is unset. + */ +#define pdf_dev_set_autorotate(v) pdf_dev_set_param(PDF_DEV_PARAM_AUTOROTATE, (v)) +#define pdf_dev_set_colormode(v) pdf_dev_set_param(PDF_DEV_PARAM_COLORMODE, (v)) + +/* + * For pdf_doc, pdf_draw and others. + */ + +/* Force reselecting font and color: + * XFrom (content grabbing) and Metapost support want them. + */ +extern void pdf_dev_reset_fonts (void); +extern void pdf_dev_reset_color (void); +extern void pdf_dev_reset (void); /* Does both font and color */ + +/* Initialization of transformation matrix with M and others. + * They are called within pdf_doc_begin_page() and pdf_doc_end_page(). + */ +extern void pdf_dev_bop (const pdf_tmatrix *M); +extern void pdf_dev_eop (void); + +/* Text is normal and line art is not normal in dvipdfmx. So we don't have + * begin_text (BT in PDF) and end_text (ET), but instead we have graphics_mode() + * to terminate text section. pdf_dev_flushpath() and others call this. + */ +extern void graphics_mode (void); + +#endif /* _PDFDEV_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfdoc.c b/Build/source/texk/xdvipdfmx/src/pdfdoc.c new file mode 100644 index 00000000000..a15c4773ba5 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfdoc.c @@ -0,0 +1,2362 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfdoc.c,v 1.43 2005/09/06 04:17:15 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * TODO: Many things... + * {begin,end}_{bead,article}, box stack, name tree (not limited to dests)... + */ +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "mfileio.h" + +#include "numbers.h" + +#include "pdfobj.h" +#include "pdfparse.h" +#include "pdfnames.h" + +#include "pdfencrypt.h" + +#include "pdfdev.h" +#include "pdfdraw.h" +#include "pdfcolor.h" + +#include "pdfresource.h" +#include "pdffont.h" +#include "pdfximage.h" + +#include "pdflimits.h" + +#ifndef NO_THUMBNAIL +#include "pngimage.h" +#include "jpegimage.h" +#endif /* !NO_THUMBNAIL */ + +#include "pdfdoc.h" + +#define PDFDOC_PAGES_ALLOC_SIZE 128u +#define PDFDOC_ARTICLE_ALLOC_SIZE 16 +#define PDFDOC_BEAD_ALLOC_SIZE 16 + +static int verbose = 0; + +#ifndef NO_THUMBNAIL +static char thumb_enabled = 0; +static char *thumb_basename = NULL; +static char thumb_remove = 0; + +void +pdf_doc_enable_thumbnails (int t_remove) +{ +#if HAVE_LIBPNG + thumb_enabled = 1; + thumb_remove = t_remove; +#else + WARN("Thumbnail support not available without PNG support."); +#endif +} + +#define DEFAULT_TMPDIR "/tmp" +static char * +guess_thumb_name (const char *thumb_filename) +{ + /* Build path name for anticipated thumbnail image */ + char *tmpdir, *tmpname; + + if (!(tmpdir = getenv("TMP")) && + !(tmpdir = getenv("TEMP"))) + tmpdir = (char *) DEFAULT_TMPDIR; + tmpname = NEW(strlen(tmpdir) + + strlen(thumb_filename) + strlen(DIR_SEP_STRING) + 1, + char); + strcpy(tmpname, tmpdir); + if (!IS_DIR_SEP(tmpname[strlen(tmpname)-1])) { + strcat(tmpname, DIR_SEP_STRING); + } + strcat(tmpname, thumb_filename); + + return tmpname; +} + +#ifndef HAVE_LIBPNG +static pdf_obj * +read_thumbnail (const char *thumb_filename) +{ + WARN("Thumbnail support not available without PNG support."); +} +#else /* HAVE_LIBPNG */ +static pdf_obj * +read_thumbnail (const char *thumb_filename) +{ + pdf_obj *image_ref; + int xobj_id; + char *guess_filename = NULL; + int found_in_cwd = 0; + FILE *fp; + + guess_filename = guess_thumb_name(thumb_filename); + if ((fp = MFOPEN(thumb_filename, FOPEN_RBIN_MODE))) { + found_in_cwd = 1; + } else { + fp = MFOPEN(guess_filename, FOPEN_RBIN_MODE); + } + + if (!fp) { + WARN("Could not open thumbnail file \"%s\"", thumb_filename); + if (guess_filename) + RELEASE(guess_filename); + return NULL; + } else if (!check_for_png(fp) && !check_for_jpeg(fp)) { + WARN("Thumbnail \"%s\" not a png/jpeg file!", thumb_filename); + MFCLOSE(fp); + if (guess_filename) + RELEASE(guess_filename); + return NULL; + } + MFCLOSE(fp); + + if (found_in_cwd) { + xobj_id = pdf_ximage_findresource(thumb_filename, 0, 0); + } else { + xobj_id = pdf_ximage_findresource(guess_filename, 0, 0); + } + + if (xobj_id < 0) { + WARN("Could not read thumbnail file \"%s\".", thumb_filename); + image_ref = NULL; + } else { + image_ref = pdf_ximage_get_reference(xobj_id); + } + + if (thumb_remove && found_in_cwd) { + if (verbose > 1) + MESG("\ndeleting thumbnail file \"%s\"...\n", thumb_filename); + remove(thumb_filename); + } else if (thumb_remove) { + if (verbose > 1) + MESG("\ndeleting thumbnail file \"%s\"...\n", guess_filename); + remove(guess_filename); + } + + if (guess_filename) + RELEASE(guess_filename); + + return image_ref; +} + +#endif /* HAVE_LIBPNG */ +#endif /* !NO_THUMBNAIL */ + +void +pdf_doc_set_verbose (void) +{ + verbose++; + pdf_font_set_verbose(); + pdf_color_set_verbose(); + pdf_ximage_set_verbose(); +} + +typedef struct pdf_form +{ + char *ident; + + pdf_tmatrix matrix; + pdf_rect cropbox; + + pdf_obj *resources; + pdf_obj *contents; +} pdf_form; + +struct form_list_node +{ + int q_depth; + pdf_form form; + + struct form_list_node *prev; +}; + +#define USE_MY_MEDIABOX (1 << 0) +typedef struct pdf_page +{ + pdf_obj *page_obj; + pdf_obj *page_ref; + + int flags; + + double ref_x, ref_y; + pdf_rect cropbox; + + pdf_obj *resources; + + /* Contents */ + pdf_obj *background; + pdf_obj *contents; + + /* global bop, background, contents, global eop */ + pdf_obj *content_refs[4]; + + pdf_obj *annots; + pdf_obj *beads; +} pdf_page; + +typedef struct pdf_olitem +{ + pdf_obj *dict; + + int is_open; + + struct pdf_olitem *first; + struct pdf_olitem *parent; + + struct pdf_olitem *next; +} pdf_olitem; + +typedef struct pdf_bead +{ + char *id; + long page_no; + pdf_rect rect; +} pdf_bead; + +typedef struct pdf_article +{ + char *id; + pdf_obj *info; + long num_beads; + long max_beads; + pdf_bead *beads; +} pdf_article; + +struct name_dict +{ + char *category; + struct ht_table *data; +}; + + +typedef struct pdf_doc +{ + struct { + pdf_obj *dict; + + pdf_obj *viewerpref; + pdf_obj *pagelabels; + pdf_obj *pages; + pdf_obj *names; + pdf_obj *threads; + } root; + + pdf_obj *info; + + struct { + pdf_rect mediabox; + pdf_obj *bop, *eop; + + long num_entries; /* This is not actually total number of pages. */ + long max_entries; + pdf_page *entries; + } pages; + + struct { + pdf_olitem *first; + pdf_olitem *current; + int current_depth; + } outlines; + + struct { + long num_entries; + long max_entries; + pdf_article *entries; + } articles; + + struct name_dict *names; + + struct { + int outline_open_depth; + double annot_grow; + } opt; + + struct form_list_node *pending_forms; + +} pdf_doc; +static pdf_doc pdoc; + +static void +pdf_doc_init_catalog (pdf_doc *p) +{ + p->root.viewerpref = NULL; + p->root.pagelabels = NULL; + p->root.pages = NULL; + p->root.names = NULL; + p->root.threads = NULL; + + p->root.dict = pdf_new_dict(); + pdf_set_root(p->root.dict); + + return; +} + +static void +pdf_doc_close_catalog (pdf_doc *p) +{ + pdf_obj *tmp; + + if (p->root.viewerpref) { + tmp = pdf_lookup_dict(p->root.dict, "ViewerPreferences"); + if (!tmp) { + pdf_add_dict(p->root.dict, + pdf_new_name("ViewerPreferences"), + pdf_ref_obj (p->root.viewerpref)); + } else if (PDF_OBJ_DICTTYPE(tmp)) { + pdf_merge_dict(p->root.viewerpref, tmp); + pdf_add_dict(p->root.dict, + pdf_new_name("ViewerPreferences"), + pdf_ref_obj (p->root.viewerpref)); + } else { /* Maybe reference */ + /* What should I do? */ + WARN("Could not modify ViewerPreferences."); + } + pdf_release_obj(p->root.viewerpref); + p->root.viewerpref = NULL; + } + + if (p->root.pagelabels) { + tmp = pdf_lookup_dict(p->root.dict, "PageLabels"); + if (!tmp) { + tmp = pdf_new_dict(); + pdf_add_dict(tmp, pdf_new_name("Nums"), pdf_link_obj(p->root.pagelabels)); + pdf_add_dict(p->root.dict, + pdf_new_name("PageLabels"), pdf_ref_obj(tmp)); + pdf_release_obj(tmp); + } else { /* Maybe reference */ + /* What should I do? */ + WARN("Could not modify PageLabels."); + } + pdf_release_obj(p->root.pagelabels); + p->root.pagelabels = NULL; + } + + pdf_add_dict(p->root.dict, + pdf_new_name("Type"), pdf_new_name("Catalog")); + pdf_release_obj(p->root.dict); + p->root.dict = NULL; + + return; +} + +/* + * Pages are starting at 1. + * The page count does not increase until the page is finished. + */ +#define LASTPAGE(p) (&(p->pages.entries[p->pages.num_entries])) +#define FIRSTPAGE(p) (&(p->pages.entries[0])) +#define PAGECOUNT(p) (p->pages.num_entries) +#define MAXPAGES(p) (p->pages.max_entries) + +static void +doc_resize_page_entries (pdf_doc *p, long size) +{ + if (size > MAXPAGES(p)) { + long i; + + p->pages.entries = RENEW(p->pages.entries, size, struct pdf_page); + for (i = p->pages.max_entries; i < size; i++) { + p->pages.entries[i].page_obj = NULL; + p->pages.entries[i].page_ref = NULL; + p->pages.entries[i].flags = 0; + p->pages.entries[i].resources = NULL; + p->pages.entries[i].background = NULL; + p->pages.entries[i].contents = NULL; + p->pages.entries[i].content_refs[0] = NULL; /* global bop */ + p->pages.entries[i].content_refs[1] = NULL; /* background */ + p->pages.entries[i].content_refs[2] = NULL; /* page body */ + p->pages.entries[i].content_refs[3] = NULL; /* global eop */ + p->pages.entries[i].annots = NULL; + p->pages.entries[i].beads = NULL; + } + p->pages.max_entries = size; + } + + return; +} + +static pdf_page * +doc_get_page_entry (pdf_doc *p, unsigned long page_no) +{ + pdf_page *page; + + if (page_no > 65535ul) { + ERROR("Page number %ul too large!", page_no); + } else if (page_no == 0) { + ERROR("Invalid Page number %ul.", page_no); + } + + if (page_no > MAXPAGES(p)) { + doc_resize_page_entries(p, page_no + PDFDOC_PAGES_ALLOC_SIZE); + } + + page = &(p->pages.entries[page_no - 1]); + + return page; +} + +static void pdf_doc_init_page_tree (pdf_doc *p, double media_width, double media_height); +static void pdf_doc_close_page_tree (pdf_doc *p); + +static void pdf_doc_init_names (pdf_doc *p); +static void pdf_doc_close_names (pdf_doc *p); + +static void pdf_doc_init_docinfo (pdf_doc *p); +static void pdf_doc_close_docinfo (pdf_doc *p); + +static void pdf_doc_init_articles (pdf_doc *p); +static void pdf_doc_close_articles (pdf_doc *p); +static void pdf_doc_init_bookmarks (pdf_doc *p, int bm_open_depth); +static void pdf_doc_close_bookmarks (pdf_doc *p); + +void +pdf_doc_set_bop_content (const char *content, unsigned length) +{ + pdf_doc *p = &pdoc; + + ASSERT(p); + + if (p->pages.bop) { + pdf_release_obj(p->pages.bop); + p->pages.bop = NULL; + } + + if (length > 0) { + p->pages.bop = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(p->pages.bop, content, length); + } else { + p->pages.bop = NULL; + } + + return; +} + +void +pdf_doc_set_eop_content (const char *content, unsigned length) +{ + pdf_doc *p = &pdoc; + + if (p->pages.eop) { + pdf_release_obj(p->pages.eop); + p->pages.eop = NULL; + } + + if (length > 0) { + p->pages.eop = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(p->pages.eop, content, length); + } else { + p->pages.eop = NULL; + } + + return; +} + +/* + * Docinfo + */ +static long +asn_date (char *date_string) +{ +#if 0 /* this is non-portable, as not all systems have the tm_gmtoff field */ + time_t current_time; + struct tm *bd_time; + + time(¤t_time); + bd_time = localtime(¤t_time); + sprintf(date_string, "D:%04d%02d%02d%02d%02d%02d%+03ld'%02ld'", + bd_time->tm_year + 1900, bd_time->tm_mon + 1, bd_time->tm_mday, + bd_time->tm_hour, bd_time->tm_min, bd_time->tm_sec, + -(bd_time->tm_gmtoff / 3600), (bd_time->tm_gmtoff % 3600) / 60); + return strlen(date_string); +#else /* simplified version that should work everywhere */ + time_t current_time; + char *time_str; + int len; + time(¤t_time); + time_str = ctime(¤t_time); + strcpy(date_string, time_str); + len = strlen(date_string); + if (len > 0 && date_string[len-1] == '\n') + date_string[--len] = '\0'; + return len; +#endif +} + +static void +pdf_doc_init_docinfo (pdf_doc *p) +{ + p->info = pdf_new_dict(); + pdf_set_info(p->info); + + return; +} + +static void +pdf_doc_close_docinfo (pdf_doc *p) +{ + pdf_obj *docinfo = p->info; + + /* + * Excerpt from PDF Reference 4th ed., sec. 10.2.1. + * + * Any entry whose value is not known should be omitted from the dictionary, + * rather than included with an empty string as its value. + * + * .... + * + * Note: Although viewer applications can store custom metadata in the document + * information dictionary, it is inappropriate to store private content or + * structural information there; such information should be stored in the + * document catalog instead (see Section 3.6.1, Document Catalog ). + */ + const char *keys[] = { + "Title", "Author", "Subject", "Keywords", "Creator", "Producer", + "CreationDate", "ModDate", /* Date */ + NULL + }; + pdf_obj *value; + char *banner; + int i; + + for (i = 0; keys[i] != NULL; i++) { + value = pdf_lookup_dict(docinfo, keys[i]); + if (value) { + if (!PDF_OBJ_STRINGTYPE(value)) { + WARN("\"%s\" in DocInfo dictionary not string type.", keys[i]); + pdf_remove_dict(docinfo, keys[i]); + WARN("\"%s\" removed from DocInfo.", keys[i]); + } else if (pdf_string_length(value) == 0) { + /* The hyperref package often uses emtpy strings. */ + pdf_remove_dict(docinfo, keys[i]); + } + } + } + + banner = NEW(strlen(PACKAGE)+strlen(VERSION)+4, char); + sprintf(banner, "%s (%s)", PACKAGE, VERSION); + pdf_add_dict(docinfo, + pdf_new_name("Producer"), + pdf_new_string(banner, strlen(banner))); + RELEASE(banner); + + if (!pdf_lookup_dict(docinfo, "CreationDate")) { + char now[32]; + + asn_date(now); + pdf_add_dict(docinfo, + pdf_new_name ("CreationDate"), + pdf_new_string(now, strlen(now))); + } + + pdf_release_obj(docinfo); + p->info = NULL; + + return; +} + +static pdf_obj * +pdf_doc_get_page_resources (pdf_doc *p, const char *category) +{ + pdf_obj *resources; + pdf_page *currentpage; + pdf_obj *res_dict; + + if (!p || !category) { + return NULL; + } + + if (p->pending_forms) { + if (p->pending_forms->form.resources) { + res_dict = p->pending_forms->form.resources; + } else { + res_dict = p->pending_forms->form.resources = pdf_new_dict(); + } + } else { + currentpage = LASTPAGE(p); + if (currentpage->resources) { + res_dict = currentpage->resources; + } else { + res_dict = currentpage->resources = pdf_new_dict(); + } + } + resources = pdf_lookup_dict(res_dict, category); + if (!resources) { + resources = pdf_new_dict(); + pdf_add_dict(res_dict, pdf_new_name(category), resources); + } + + return resources; +} + +void +pdf_doc_add_page_resource (const char *category, + const char *resource_name, pdf_obj *resource_ref) +{ + pdf_doc *p = &pdoc; + pdf_obj *resources; + pdf_obj *duplicate; + + if (!PDF_OBJ_INDIRECTTYPE(resource_ref)) { + WARN("Passed non indirect reference..."); + resource_ref = pdf_ref_obj(resource_ref); /* leak */ + } + resources = pdf_doc_get_page_resources(p, category); + duplicate = pdf_lookup_dict(resources, resource_name); + if (duplicate && pdf_compare_reference(duplicate, resource_ref)) { + WARN("Conflicting page resource found (page: %ld, category: %s, name: %s).", + pdf_doc_current_page_number(), category, resource_name); + WARN("Ignoring..."); + pdf_release_obj(resource_ref); + } else { + pdf_add_dict(resources, pdf_new_name(resource_name), resource_ref); + } + + return; +} + +static void +doc_flush_page (pdf_doc *p, pdf_page *page, pdf_obj *parent_ref) +{ + pdf_obj *contents_array; + int count; + + pdf_add_dict(page->page_obj, + pdf_new_name("Type"), pdf_new_name("Page")); + pdf_add_dict(page->page_obj, + pdf_new_name("Parent"), parent_ref); + + /* + * Clipping area specified by CropBox is affected by MediaBox which + * might be inherit from parent node. If MediaBox of the root node + * does not have enough size to cover all page's imaging area, using + * CropBox here gives incorrect result. + */ + if (page->flags & USE_MY_MEDIABOX) { + pdf_obj *mediabox; + + mediabox = pdf_new_array(); + pdf_add_array(mediabox, + pdf_new_number(ROUND(page->cropbox.llx, 0.01))); + pdf_add_array(mediabox, + pdf_new_number(ROUND(page->cropbox.lly, 0.01))); + pdf_add_array(mediabox, + pdf_new_number(ROUND(page->cropbox.urx, 0.01))); + pdf_add_array(mediabox, + pdf_new_number(ROUND(page->cropbox.ury, 0.01))); + pdf_add_dict(page->page_obj, pdf_new_name("MediaBox"), mediabox); + } + + count = 0; + contents_array = pdf_new_array(); + if (page->content_refs[0]) { /* global bop */ + pdf_add_array(contents_array, page->content_refs[0]); + count++; + } else if (p->pages.bop && + pdf_stream_length(p->pages.bop) > 0) { + pdf_add_array(contents_array, pdf_ref_obj(p->pages.bop)); + count++; + } + if (page->content_refs[1]) { /* background */ + pdf_add_array(contents_array, page->content_refs[1]); + count++; + } + if (page->content_refs[2]) { /* page body */ + pdf_add_array(contents_array, page->content_refs[2]); + count++; + } + if (page->content_refs[3]) { /* global eop */ + pdf_add_array(contents_array, page->content_refs[3]); + count++; + } else if (p->pages.eop && + pdf_stream_length(p->pages.eop) > 0) { + pdf_add_array(contents_array, pdf_ref_obj(p->pages.eop)); + count++; + } + + if (count == 0) { + WARN("Page with empty content found!!!"); + } + page->content_refs[0] = NULL; + page->content_refs[1] = NULL; + page->content_refs[2] = NULL; + page->content_refs[3] = NULL; + + pdf_add_dict(page->page_obj, + pdf_new_name("Contents"), contents_array); + + + if (page->annots) { + pdf_add_dict(page->page_obj, + pdf_new_name("Annots"), pdf_ref_obj(page->annots)); + pdf_release_obj(page->annots); + } + if (page->beads) { + pdf_add_dict(page->page_obj, + pdf_new_name("B"), pdf_ref_obj(page->beads)); + pdf_release_obj(page->beads); + } + pdf_release_obj(page->page_obj); + pdf_release_obj(page->page_ref); + + page->page_obj = NULL; + page->page_ref = NULL; + page->annots = NULL; + page->beads = NULL; + + return; +} + +/* B-tree? */ +#define PAGE_CLUSTER 4 +static pdf_obj * +build_page_tree (pdf_doc *p, + pdf_page *firstpage, long num_pages, + pdf_obj *parent_ref) +{ + pdf_obj *self, *self_ref, *kids; + long i; + + self = pdf_new_dict(); + /* + * This is a slight kludge which allow the subtree dictionary + * generated by this routine to be merged with the real + * page_tree dictionary, while keeping the indirect object + * references right. + */ + self_ref = parent_ref ? pdf_ref_obj(self) : pdf_ref_obj(p->root.pages); + + pdf_add_dict(self, pdf_new_name("Type"), pdf_new_name("Pages")); + pdf_add_dict(self, pdf_new_name("Count"), pdf_new_number((double) num_pages)); + + if (parent_ref != NULL) + pdf_add_dict(self, pdf_new_name("Parent"), parent_ref); + + kids = pdf_new_array(); + if (num_pages > 0 && num_pages <= PAGE_CLUSTER) { + for (i = 0; i < num_pages; i++) { + pdf_page *page; + + page = firstpage + i; + if (!page->page_ref) + page->page_ref = pdf_ref_obj(page->page_obj); + pdf_add_array (kids, pdf_link_obj(page->page_ref)); + doc_flush_page(p, page, pdf_link_obj(self_ref)); + } + } else if (num_pages > 0) { + for (i = 0; i < PAGE_CLUSTER; i++) { + long start, end; + + start = (i*num_pages)/PAGE_CLUSTER; + end = ((i+1)*num_pages)/PAGE_CLUSTER; + if (end - start > 1) { + pdf_obj *subtree; + + subtree = build_page_tree(p, firstpage + start, end - start, + pdf_link_obj(self_ref)); + pdf_add_array(kids, pdf_ref_obj(subtree)); + pdf_release_obj(subtree); + } else { + pdf_page *page; + + page = firstpage + start; + if (!page->page_ref) + page->page_ref = pdf_ref_obj(page->page_obj); + pdf_add_array (kids, pdf_link_obj(page->page_ref)); + doc_flush_page(p, page, pdf_link_obj(self_ref)); + } + } + } + pdf_add_dict(self, pdf_new_name("Kids"), kids); + pdf_release_obj(self_ref); + + return self; +} + +static void +pdf_doc_init_page_tree (pdf_doc *p, double media_width, double media_height) +{ + /* + * Create empty page tree. + * The docroot.pages is kept open until the document is closed. + * This allows the user to write to pages if he so choses. + */ + p->root.pages = pdf_new_dict(); + + p->pages.num_entries = 0; + p->pages.max_entries = 0; + p->pages.entries = NULL; + + p->pages.bop = NULL; + p->pages.eop = NULL; + + p->pages.mediabox.llx = 0.0; + p->pages.mediabox.lly = 0.0; + p->pages.mediabox.urx = media_width; + p->pages.mediabox.ury = media_height; + + return; +} + +static void +pdf_doc_close_page_tree (pdf_doc *p) +{ + pdf_obj *page_tree_root; + pdf_obj *mediabox; + long page_no; + + /* + * Do consistency check on forward references to pages. + */ + for (page_no = PAGECOUNT(p) + 1; page_no <= MAXPAGES(p); page_no++) { + pdf_page *page; + + page = doc_get_page_entry(p, page_no); + if (page->page_obj) { + WARN("Nonexistent page #%ld refered.", page_no); + pdf_release_obj(page->page_ref); + page->page_ref = NULL; + } + if (page->page_obj) { + WARN("Entry for a nonexistent page #%ld created.", page_no); + pdf_release_obj(page->page_obj); + page->page_obj = NULL; + } + if (page->annots) { + WARN("Annotation attached to a nonexistent page #%ld.", page_no); + pdf_release_obj(page->annots); + page->annots = NULL; + } + if (page->beads) { + WARN("Article beads attached to a nonexistent page #%ld.", page_no); + pdf_release_obj(page->beads); + page->beads = NULL; + } + if (page->resources) { + pdf_release_obj(page->resources); + page->resources = NULL; + } + } + + /* + * Connect page tree to root node. + */ + page_tree_root = build_page_tree(p, FIRSTPAGE(p), PAGECOUNT(p), NULL); + pdf_merge_dict (p->root.pages, page_tree_root); + pdf_release_obj(page_tree_root); + + /* They must be after build_page_tree() */ + if (p->pages.bop) { + pdf_add_stream (p->pages.bop, "\n", 1); + pdf_release_obj(p->pages.bop); + p->pages.bop = NULL; + } + if (p->pages.eop) { + pdf_add_stream (p->pages.eop, "\n", 1); + pdf_release_obj(p->pages.eop); + p->pages.eop = NULL; + } + + /* Create media box at root node and let the other pages inherit it. */ + mediabox = pdf_new_array(); + pdf_add_array(mediabox, pdf_new_number(ROUND(p->pages.mediabox.llx, 0.01))); + pdf_add_array(mediabox, pdf_new_number(ROUND(p->pages.mediabox.lly, 0.01))); + pdf_add_array(mediabox, pdf_new_number(ROUND(p->pages.mediabox.urx, 0.01))); + pdf_add_array(mediabox, pdf_new_number(ROUND(p->pages.mediabox.ury, 0.01))); + pdf_add_dict(p->root.pages, pdf_new_name("MediaBox"), mediabox); + + pdf_add_dict(p->root.dict, + pdf_new_name("Pages"), + pdf_ref_obj (p->root.pages)); + pdf_release_obj(p->root.pages); + p->root.pages = NULL; + + RELEASE(p->pages.entries); + p->pages.entries = NULL; + p->pages.num_entries = 0; + p->pages.max_entries = 0; + + return; +} + + +#ifndef BOOKMARKS_OPEN_DEFAULT +#define BOOKMARKS_OPEN_DEFAULT 0 +#endif + +static int clean_bookmarks (pdf_olitem *item); +static int flush_bookmarks (pdf_olitem *item, + pdf_obj *parent_ref, + pdf_obj *parent_dict); + +static void +pdf_doc_init_bookmarks (pdf_doc *p, int bm_open_depth) +{ + pdf_olitem *item; + +#define MAX_OUTLINE_DEPTH 256u + p->opt.outline_open_depth = + ((bm_open_depth >= 0) ? + bm_open_depth : MAX_OUTLINE_DEPTH - bm_open_depth); + + p->outlines.current_depth = 1; + + item = NEW(1, pdf_olitem); + item->dict = NULL; + item->next = NULL; + item->first = NULL; + item->parent = NULL; + item->is_open = 1; + + p->outlines.current = item; + p->outlines.first = item; + + return; +} + +static int +clean_bookmarks (pdf_olitem *item) +{ + pdf_olitem *next; + + while (item) { + next = item->next; + if (item->dict) + pdf_release_obj(item->dict); + if (item->first) + clean_bookmarks(item->first); + RELEASE(item); + + item = next; + } + + return 0; +} + +static int +flush_bookmarks (pdf_olitem *node, + pdf_obj *parent_ref, pdf_obj *parent_dict) +{ + int retval; + int count; + pdf_olitem *item; + pdf_obj *this_ref, *prev_ref, *next_ref; + + ASSERT(node->dict); + + this_ref = pdf_ref_obj(node->dict); + pdf_add_dict(parent_dict, + pdf_new_name("First"), pdf_link_obj(this_ref)); + + retval = 0; + for (item = node, prev_ref = NULL; + item && item->dict; item = item->next) { + if (item->first && item->first->dict) { + count = flush_bookmarks(item->first, this_ref, item->dict); + if (item->is_open) { + pdf_add_dict(item->dict, + pdf_new_name("Count"), + pdf_new_number(count)); + retval += count; + } else { + pdf_add_dict(item->dict, + pdf_new_name("Count"), + pdf_new_number(-count)); + } + } + pdf_add_dict(item->dict, + pdf_new_name("Parent"), + pdf_link_obj(parent_ref)); + if (prev_ref) { + pdf_add_dict(item->dict, + pdf_new_name("Prev"), + prev_ref); + } + if (item->next && item->next->dict) { + next_ref = pdf_ref_obj(item->next->dict); + pdf_add_dict(item->dict, + pdf_new_name("Next"), + pdf_link_obj(next_ref)); + } else { + next_ref = NULL; + } + + pdf_release_obj(item->dict); + item->dict = NULL; + + prev_ref = this_ref; + this_ref = next_ref; + retval++; + } + + pdf_add_dict(parent_dict, + pdf_new_name("Last"), + pdf_link_obj(prev_ref)); + + pdf_release_obj(node->dict); + node->dict = NULL; + + return retval; +} + +int +pdf_doc_bookmarks_up (void) +{ + pdf_doc *p = &pdoc; + pdf_olitem *parent, *item; + + item = p->outlines.current; + if (!item || !item->parent) { + WARN("Can't go up above the bookmark root node!"); + return -1; + } + parent = item->parent; + item = parent->next; + if (!parent->next) { + parent->next = item = NEW(1, pdf_olitem); + item->dict = NULL; + item->first = NULL; + item->next = NULL; + item->is_open = 0; + item->parent = parent->parent; + } + p->outlines.current = item; + p->outlines.current_depth--; + + return 0; +} + +int +pdf_doc_bookmarks_down (void) +{ + pdf_doc *p = &pdoc; + pdf_olitem *item, *first; + + item = p->outlines.current; + if (!item->dict) { + pdf_obj *tcolor, *action; + + WARN("Empty bookmark node!"); + WARN("You have tried to jump more than 1 level."); + + item->dict = pdf_new_dict(); + +#define TITLE_STRING "" + pdf_add_dict(item->dict, + pdf_new_name("Title"), + pdf_new_string(TITLE_STRING, strlen(TITLE_STRING))); + + tcolor = pdf_new_array(); + pdf_add_array(tcolor, pdf_new_number(1.0)); + pdf_add_array(tcolor, pdf_new_number(0.0)); + pdf_add_array(tcolor, pdf_new_number(0.0)); + pdf_add_dict (item->dict, + pdf_new_name("C"), pdf_link_obj(tcolor)); + pdf_release_obj(tcolor); + + pdf_add_dict (item->dict, + pdf_new_name("F"), pdf_new_number(1.0)); + +#define JS_CODE "app.alert(\"The author of this document made this bookmark item empty!\", 3, 0)" + action = pdf_new_dict(); + pdf_add_dict(action, + pdf_new_name("S"), pdf_new_name("JavaScript")); + pdf_add_dict(action, + pdf_new_name("JS"), pdf_new_string(JS_CODE, strlen(JS_CODE))); + pdf_add_dict(item->dict, + pdf_new_name("A"), pdf_link_obj(action)); + pdf_release_obj(action); + } + + item->first = first = NEW(1, pdf_olitem); + first->dict = NULL; + first->is_open = 0; + first->parent = item; + first->next = NULL; + first->first = NULL; + + p->outlines.current = first; + p->outlines.current_depth++; + + return 0; +} + +int +pdf_doc_bookmarks_depth (void) +{ + pdf_doc *p = &pdoc; + + return p->outlines.current_depth; +} + +void +pdf_doc_bookmarks_add (pdf_obj *dict, int is_open) +{ + pdf_doc *p = &pdoc; + pdf_olitem *item, *next; + + ASSERT(p && dict); + + item = p->outlines.current; + + if (!item) { + item = NEW(1, pdf_olitem); + item->parent = NULL; + p->outlines.first = item; + } else if (item->dict) { /* go to next item */ + item = item->next; + } + +#define BMOPEN(b,p) (((b) < 0) ? (((p)->outlines.current_depth > (p)->opt.outline_open_depth) ? 0 : 1) : (b)) + +#if 0 + item->dict = pdf_link_obj(dict); +#endif + item->dict = dict; + item->first = NULL; + item->is_open = BMOPEN(is_open, p); + + item->next = next = NEW(1, pdf_olitem); + next->dict = NULL; + next->parent = item->parent; + next->first = NULL; + next->is_open = -1; + next->next = NULL; + + p->outlines.current = item; + + return; +} + +static void +pdf_doc_close_bookmarks (pdf_doc *p) +{ + pdf_obj *catalog = p->root.dict; + pdf_olitem *item; + int count; + pdf_obj *bm_root, *bm_root_ref; + + item = p->outlines.first; + if (item->dict) { + bm_root = pdf_new_dict(); + bm_root_ref = pdf_ref_obj(bm_root); + count = flush_bookmarks(item, bm_root_ref, bm_root); + pdf_add_dict(bm_root, + pdf_new_name("Count"), + pdf_new_number(count)); + pdf_add_dict(catalog, + pdf_new_name("Outlines"), + bm_root_ref); + pdf_release_obj(bm_root); + } + clean_bookmarks(item); + + p->outlines.first = NULL; + p->outlines.current = NULL; + p->outlines.current_depth = 0; + + return; +} + + +static const char *name_dict_categories[] = { + "Dests", "AP", "JavaScript", "Pages", + "Templates", "IDS", "URLS", "EmbeddedFiles", + "AlternatePresentations", "Renditions" +}; +#define NUM_NAME_CATEGORY (sizeof(name_dict_categories)/sizeof(name_dict_categories[0])) + +static void +pdf_doc_init_names (pdf_doc *p) +{ + int i; + + p->root.names = NULL; + + p->names = NEW(NUM_NAME_CATEGORY + 1, struct name_dict); + for (i = 0; i < NUM_NAME_CATEGORY; i++) { + p->names[i].category = (char *) name_dict_categories[i]; + p->names[i].data = NULL; + } + p->names[NUM_NAME_CATEGORY].category = NULL; + p->names[NUM_NAME_CATEGORY].data = NULL; + + return; +} + +int +pdf_doc_add_names (const char *category, + const void *key, int keylen, pdf_obj *value) +{ + pdf_doc *p = &pdoc; + int i; + + for (i = 0; p->names[i].category != NULL; i++) { + if (!strcmp(p->names[i].category, category)) { + break; + } + } + if (p->names[i].category == NULL) { + WARN("Unknown name dictionary category \"%s\".", category); + return -1; + } + if (!p->names[i].data) { + p->names[i].data = pdf_new_name_tree(); + } + + return pdf_names_add_object(p->names[i].data, key, keylen, value); +} + +static void +pdf_doc_close_names (pdf_doc *p) +{ + pdf_obj *tmp; + int i; + + for (i = 0; p->names[i].category != NULL; i++) { + if (p->names[i].data) { + pdf_obj *name_tree; + + name_tree = pdf_names_create_tree(p->names[i].data); + if (!p->root.names) { + p->root.names = pdf_new_dict(); + } + pdf_add_dict(p->root.names, + pdf_new_name(p->names[i].category), pdf_ref_obj(name_tree)); + pdf_release_obj(name_tree); + pdf_delete_name_tree(&p->names[i].data); + } + } + + if (p->root.names) { + tmp = pdf_lookup_dict(p->root.dict, "Names"); + if (!tmp) { + pdf_add_dict(p->root.dict, + pdf_new_name("Names"), + pdf_ref_obj (p->root.names)); + } else if (PDF_OBJ_DICTTYPE(tmp)) { + pdf_merge_dict(p->root.names, tmp); + pdf_add_dict(p->root.dict, + pdf_new_name("Names"), + pdf_ref_obj (p->root.names)); + } else { /* Maybe reference */ + /* What should I do? */ + WARN("Could not modify Names dictionary."); + } + pdf_release_obj(p->root.names); + p->root.names = NULL; + } + + RELEASE(p->names); + p->names = NULL; + + return; +} + + +void +pdf_doc_add_annot (unsigned page_no, const pdf_rect *rect, pdf_obj *annot_dict) +{ + pdf_doc *p = &pdoc; + pdf_page *page; + pdf_obj *rect_array; + double annot_grow = p->opt.annot_grow; + + page = doc_get_page_entry(p, page_no); + if (!page->annots) + page->annots = pdf_new_array(); + +#if 1 + { + pdf_rect mediabox; + + pdf_doc_get_mediabox(page_no, &mediabox); + if (rect->llx < mediabox.llx || + rect->urx > mediabox.urx || + rect->lly < mediabox.lly || + rect->ury > mediabox.ury) { + WARN("Annotation out of page boundary."); + WARN("Current page's MediaBox: [%g %g %g %g]", + mediabox.llx, mediabox.lly, mediabox.urx, mediabox.ury); + WARN("Annotation: [%g %g %g %g]", + rect->llx, rect->lly, rect->urx, rect->ury); + WARN("Maybe incorrect paper size specified."); + } + if (rect->llx > rect->urx || rect->lly > rect->ury) { + WARN("Rectangle with negative width/height: [%g %g %g %g]", + rect->llx, rect->lly, rect->urx, rect->ury); + } + } +#endif + + rect_array = pdf_new_array(); + pdf_add_array(rect_array, pdf_new_number(ROUND(rect->llx - annot_grow, 0.01))); + pdf_add_array(rect_array, pdf_new_number(ROUND(rect->lly - annot_grow, 0.01))); + pdf_add_array(rect_array, pdf_new_number(ROUND(rect->urx + annot_grow, 0.01))); + pdf_add_array(rect_array, pdf_new_number(ROUND(rect->ury + annot_grow, 0.01))); + pdf_add_dict (annot_dict, pdf_new_name("Rect"), rect_array); + + pdf_add_array(page->annots, pdf_ref_obj(annot_dict)); + + return; +} + + +/* + * PDF Article Thread + */ +static void +pdf_doc_init_articles (pdf_doc *p) +{ + p->root.threads = NULL; + + p->articles.num_entries = 0; + p->articles.max_entries = 0; + p->articles.entries = NULL; + + return; +} + +void +pdf_doc_begin_article (const char *article_id, pdf_obj *article_info) +{ + pdf_doc *p = &pdoc; + pdf_article *article; + + if (article_id == NULL || strlen(article_id) == 0) + ERROR("Article thread without internal identifier."); + + if (p->articles.num_entries >= p->articles.max_entries) { + p->articles.max_entries += PDFDOC_ARTICLE_ALLOC_SIZE; + p->articles.entries = RENEW(p->articles.entries, + p->articles.max_entries, struct pdf_article); + } + article = &(p->articles.entries[p->articles.num_entries]); + + article->id = NEW(strlen(article_id)+1, char); + strcpy(article->id, article_id); + article->info = article_info; + article->num_beads = 0; + article->max_beads = 0; + article->beads = NULL; + + p->articles.num_entries++; + + return; +} + +void +pdf_doc_end_article (const char *article_id) +{ + return; /* no-op */ +} + +static pdf_bead * +find_bead (pdf_article *article, const char *bead_id) +{ + pdf_bead *bead; + long i; + + bead = NULL; + for (i = 0; i < article->num_beads; i++) { + if (!strcmp(article->beads[i].id, bead_id)) { + bead = &(article->beads[i]); + break; + } + } + + return bead; +} + +void +pdf_doc_add_bead (const char *article_id, + const char *bead_id, long page_no, const pdf_rect *rect) +{ + pdf_doc *p = &pdoc; + pdf_article *article; + pdf_bead *bead; + long i; + + if (!article_id) { + ERROR("No article identifier specified."); + } + + article = NULL; + for (i = 0; i < p->articles.num_entries; i++) { + if (!strcmp(p->articles.entries[i].id, article_id)) { + article = &(p->articles.entries[i]); + break; + } + } + if (!article) { + ERROR("Specified article thread that doesn't exist."); + return; + } + + bead = bead_id ? find_bead(article, bead_id) : NULL; + if (!bead) { + if (article->num_beads >= article->max_beads) { + article->max_beads += PDFDOC_BEAD_ALLOC_SIZE; + article->beads = RENEW(article->beads, + article->max_beads, struct pdf_bead); + for (i = article->num_beads; i < article->max_beads; i++) { + article->beads[i].id = NULL; + article->beads[i].page_no = -1; + } + } + bead = &(article->beads[article->num_beads]); + if (bead_id) { + bead->id = NEW(strlen(bead_id)+1, char); + strcpy(bead->id, bead_id); + } else { + bead->id = NULL; + } + article->num_beads++; + } + bead->rect.llx = rect->llx; + bead->rect.lly = rect->lly; + bead->rect.urx = rect->urx; + bead->rect.ury = rect->ury; + bead->page_no = page_no; + + return; +} + +static pdf_obj * +make_article (pdf_doc *p, + pdf_article *article, + const char **bead_ids, int num_beads, + pdf_obj *article_info) +{ + pdf_obj *art_dict; + pdf_obj *first, *prev, *last; + long i, n; + + if (!article) + return NULL; + + art_dict = pdf_new_dict(); + first = prev = last = NULL; + /* + * The bead_ids represents logical order of beads in an article thread. + * If bead_ids is not given, we create an article thread in the order of + * beads appeared. + */ + n = bead_ids ? num_beads : article->num_beads; + for (i = 0; i < n; i++) { + pdf_bead *bead; + + bead = bead_ids ? find_bead(article, bead_ids[i]) : &(article->beads[i]); + if (!bead || bead->page_no < 0) { + continue; + } + last = pdf_new_dict(); + if (prev == NULL) { + first = last; + pdf_add_dict(first, + pdf_new_name("T"), pdf_ref_obj(art_dict)); + } else { + pdf_add_dict(prev, + pdf_new_name("N"), pdf_ref_obj(last)); + pdf_add_dict(last, + pdf_new_name("V"), pdf_ref_obj(prev)); + /* We must link first to last. */ + if (prev != first) + pdf_release_obj(prev); + } + + /* Realize bead now. */ + { + pdf_page *page; + pdf_obj *rect; + + page = doc_get_page_entry(p, bead->page_no); + if (!page->beads) { + page->beads = pdf_new_array(); + } + pdf_add_dict(last, pdf_new_name("P"), pdf_link_obj(page->page_ref)); + rect = pdf_new_array(); + pdf_add_array(rect, pdf_new_number(ROUND(bead->rect.llx, 0.01))); + pdf_add_array(rect, pdf_new_number(ROUND(bead->rect.lly, 0.01))); + pdf_add_array(rect, pdf_new_number(ROUND(bead->rect.urx, 0.01))); + pdf_add_array(rect, pdf_new_number(ROUND(bead->rect.ury, 0.01))); + pdf_add_dict (last, pdf_new_name("R"), rect); + pdf_add_array(page->beads, pdf_ref_obj(last)); + } + + prev = last; + } + + if (first && last) { + pdf_add_dict(last, + pdf_new_name("N"), pdf_ref_obj(first)); + pdf_add_dict(first, + pdf_new_name("V"), pdf_ref_obj(last)); + if (first != last) { + pdf_release_obj(last); + } + pdf_add_dict(art_dict, + pdf_new_name("F"), pdf_ref_obj(first)); + /* If article_info is supplied, we override article->info. */ + if (article_info) { + pdf_add_dict(art_dict, + pdf_new_name("I"), article_info); + } else if (article->info) { + pdf_add_dict(art_dict, + pdf_new_name("I"), pdf_ref_obj(article->info)); + pdf_release_obj(article->info); + article->info = NULL; /* We do not write as object reference. */ + } + pdf_release_obj(first); + } else { + pdf_release_obj(art_dict); + art_dict = NULL; + } + + return art_dict; +} + +static void +clean_article (pdf_article *article) +{ + if (!article) + return; + + if (article->beads) { + long i; + + for (i = 0; i < article->num_beads; i++) { + if (article->beads[i].id) + RELEASE(article->beads[i].id); + } + RELEASE(article->beads); + article->beads = NULL; + } + + if (article->id) + RELEASE(article->id); + article->id = NULL; + article->num_beads = 0; + article->max_beads = 0; + + return; +} + +static void +pdf_doc_close_articles (pdf_doc *p) +{ + int i; + + for (i = 0; i < p->articles.num_entries; i++) { + pdf_article *article; + + article = &(p->articles.entries[i]); + if (article->beads) { + pdf_obj *art_dict; + + art_dict = make_article(p, article, NULL, 0, NULL); + if (!p->root.threads) { + p->root.threads = pdf_new_array(); + } + pdf_add_array(p->root.threads, pdf_ref_obj(art_dict)); + pdf_release_obj(art_dict); + } + clean_article(article); + } + RELEASE(p->articles.entries); + p->articles.entries = NULL; + p->articles.num_entries = 0; + p->articles.max_entries = 0; + + if (p->root.threads) { + pdf_add_dict(p->root.dict, + pdf_new_name("Threads"), + pdf_ref_obj (p->root.threads)); + pdf_release_obj(p->root.threads); + p->root.threads = NULL; + } + + return; +} + +/* page_no = 0 for root page tree node. */ +void +pdf_doc_set_mediabox (unsigned page_no, const pdf_rect *mediabox) +{ + pdf_doc *p = &pdoc; + pdf_page *page; + + if (page_no == 0) { + p->pages.mediabox.llx = mediabox->llx; + p->pages.mediabox.lly = mediabox->lly; + p->pages.mediabox.urx = mediabox->urx; + p->pages.mediabox.ury = mediabox->ury; + } else { + page = doc_get_page_entry(p, page_no); + page->cropbox.llx = mediabox->llx; + page->cropbox.lly = mediabox->lly; + page->cropbox.urx = mediabox->urx; + page->cropbox.ury = mediabox->ury; + page->flags |= USE_MY_MEDIABOX; + } + + return; +} + +void +pdf_doc_get_mediabox (unsigned page_no, pdf_rect *mediabox) +{ + pdf_doc *p = &pdoc; + pdf_page *page; + + if (page_no == 0) { + mediabox->llx = p->pages.mediabox.llx; + mediabox->lly = p->pages.mediabox.lly; + mediabox->urx = p->pages.mediabox.urx; + mediabox->ury = p->pages.mediabox.ury; + } else { + page = doc_get_page_entry(p, page_no); + if (page->flags & USE_MY_MEDIABOX) { + mediabox->llx = page->cropbox.llx; + mediabox->lly = page->cropbox.lly; + mediabox->urx = page->cropbox.urx; + mediabox->ury = page->cropbox.ury; + } else { + mediabox->llx = p->pages.mediabox.llx; + mediabox->lly = p->pages.mediabox.lly; + mediabox->urx = p->pages.mediabox.urx; + mediabox->ury = p->pages.mediabox.ury; + } + } + + return; +} + +pdf_obj * +pdf_doc_current_page_resources (void) +{ + pdf_obj *resources; + pdf_doc *p = &pdoc; + pdf_page *currentpage; + + if (p->pending_forms) { + if (p->pending_forms->form.resources) { + resources = p->pending_forms->form.resources; + } else { + resources = p->pending_forms->form.resources = pdf_new_dict(); + } + } else { + currentpage = LASTPAGE(p); + if (currentpage->resources) { + resources = currentpage->resources; + } else { + resources = currentpage->resources = pdf_new_dict(); + } + } + + return resources; +} + +pdf_obj * +pdf_doc_get_dictionary (const char *category) +{ + pdf_doc *p = &pdoc; + pdf_obj *dict = NULL; + + ASSERT(category); + + if (!strcmp(category, "Names")) { + if (!p->root.names) + p->root.names = pdf_new_dict(); + dict = p->root.names; + } else if (!strcmp(category, "Pages")) { + if (!p->root.pages) + p->root.pages = pdf_new_dict(); + dict = p->root.pages; + } else if (!strcmp(category, "Catalog")) { + if (!p->root.dict) + p->root.dict = pdf_new_dict(); + dict = p->root.dict; + } else if (!strcmp(category, "Info")) { + if (!p->info) + p->info = pdf_new_dict(); + dict = p->info; + } else if (!strcmp(category, "@THISPAGE")) { + /* Sorry for this... */ + pdf_page *currentpage; + + currentpage = LASTPAGE(p); + dict = currentpage->page_obj; + } + + if (!dict) { + ERROR("Document dict. \"%s\" not exist. ", category); + } + + return dict; +} + +long +pdf_doc_current_page_number (void) +{ + pdf_doc *p = &pdoc; + + return (long) (PAGECOUNT(p) + 1); +} + +pdf_obj * +pdf_doc_ref_page (unsigned long page_no) +{ + pdf_doc *p = &pdoc; + pdf_page *page; + + page = doc_get_page_entry(p, page_no); + if (!page->page_obj) { + page->page_obj = pdf_new_dict(); + page->page_ref = pdf_ref_obj(page->page_obj); + } + + return pdf_link_obj(page->page_ref); +} + +pdf_obj * +pdf_doc_get_reference (const char *category) +{ + pdf_obj *ref = NULL; + long page_no; + + ASSERT(category); + + page_no = pdf_doc_current_page_number(); + if (!strcmp(category, "@THISPAGE")) { + ref = pdf_doc_ref_page(page_no); + } else if (!strcmp(category, "@PREVPAGE")) { + if (page_no <= 1) { + ERROR("Reference to previous page, but no pages have been completed yet."); + } + ref = pdf_doc_ref_page(page_no - 1); + } else if (!strcmp(category, "@NEXTPAGE")) { + ref = pdf_doc_ref_page(page_no + 1); + } + + if (!ref) { + ERROR("Reference to \"%s\" not exist. ", category); + } + + return ref; +} + +static void +pdf_doc_new_page (pdf_doc *p) +{ + pdf_page *currentpage; + + if (PAGECOUNT(p) >= MAXPAGES(p)) { + doc_resize_page_entries(p, MAXPAGES(p) + PDFDOC_PAGES_ALLOC_SIZE); + } + + /* + * This is confusing. pdf_doc_finish_page() have increased page count! + */ + currentpage = LASTPAGE(p); + /* Was this page already instantiated by a forward reference to it? */ + if (!currentpage->page_ref) { + currentpage->page_obj = pdf_new_dict(); + currentpage->page_ref = pdf_ref_obj(currentpage->page_obj); + } + + currentpage->background = NULL; + currentpage->contents = pdf_new_stream(STREAM_COMPRESS); + currentpage->resources = pdf_new_dict(); + + currentpage->annots = NULL; + currentpage->beads = NULL; + + return; +} + +/* This only closes contents and resources. */ +static void +pdf_doc_finish_page (pdf_doc *p) +{ + pdf_page *currentpage; + + if (p->pending_forms) { + ERROR("A pending form XObject at the end of page."); + } + + currentpage = LASTPAGE(p); + if (!currentpage->page_obj) + currentpage->page_obj = pdf_new_dict(); + + /* + * Make Contents array. + */ + + /* + * Global BOP content stream. + * pdf_ref_obj() returns reference itself when the object is + * indirect reference, not reference to the indirect reference. + * We keep bop itself but not reference to it since it is + * expected to be small. + */ + if (p->pages.bop && + pdf_stream_length(p->pages.bop) > 0) { + currentpage->content_refs[0] = pdf_ref_obj(p->pages.bop); + } else { + currentpage->content_refs[0] = NULL; + } + /* + * Current page background content stream. + */ + if (currentpage->background) { + if (pdf_stream_length(currentpage->background) > 0) { + currentpage->content_refs[1] = pdf_ref_obj(currentpage->background); + pdf_add_stream (currentpage->background, "\n", 1); + } + pdf_release_obj(currentpage->background); + currentpage->background = NULL; + } else { + currentpage->content_refs[1] = NULL; + } + + /* Content body of current page */ + currentpage->content_refs[2] = pdf_ref_obj(currentpage->contents); + pdf_add_stream (currentpage->contents, "\n", 1); + pdf_release_obj(currentpage->contents); + currentpage->contents = NULL; + + /* + * Global EOP content stream. + */ + if (p->pages.eop && + pdf_stream_length(p->pages.eop) > 0) { + currentpage->content_refs[3] = pdf_ref_obj(p->pages.eop); + } else { + currentpage->content_refs[3] = NULL; + } + + /* + * Page resources. + */ + if (currentpage->resources) { + pdf_obj *procset; + /* + * ProcSet is obsolete in PDF-1.4 but recommended for compatibility. + */ + + procset = pdf_new_array (); + pdf_add_array(procset, pdf_new_name("PDF")); + pdf_add_array(procset, pdf_new_name("Text")); + pdf_add_array(procset, pdf_new_name("ImageC")); + pdf_add_array(procset, pdf_new_name("ImageB")); + pdf_add_array(procset, pdf_new_name("ImageI")); + pdf_add_dict(currentpage->resources, pdf_new_name("ProcSet"), procset); + + pdf_add_dict(currentpage->page_obj, + pdf_new_name("Resources"), + pdf_ref_obj(currentpage->resources)); + pdf_release_obj(currentpage->resources); + currentpage->resources = NULL; + } + +#ifndef NO_THUMBNAIL + if (thumb_enabled) { + char *thumb_filename; + pdf_obj *thumb_ref; + + thumb_filename = NEW(strlen(thumb_basename)+7, char); + sprintf(thumb_filename, "%s.%ld", + thumb_basename, (p->pages.num_entries % 99999) + 1L); + thumb_ref = read_thumbnail(thumb_filename); + RELEASE(thumb_filename); + if (thumb_ref) + pdf_add_dict(currentpage->page_obj, pdf_new_name("Thumb"), thumb_ref); + } +#endif /* !NO_THUMBNAIL */ + + p->pages.num_entries++; + + return; +} + + +static pdf_color bgcolor = { 1, { 1.0 } }; +void +pdf_doc_set_bgcolor (const pdf_color *color) +{ + if (color) + memcpy(&bgcolor, color, sizeof(pdf_color)); + else { /* as clear... */ + pdf_color_graycolor(&bgcolor, 1.0); + } +} + +static void +doc_fill_page_background (pdf_doc *p) +{ + pdf_page *currentpage; + pdf_rect r; + int cm; + pdf_obj *saved_content; + + cm = pdf_dev_get_param(PDF_DEV_PARAM_COLORMODE); + if (!cm || pdf_color_is_white(&bgcolor)) { + return; + } + + pdf_doc_get_mediabox(pdf_doc_current_page_number(), &r); + + currentpage = LASTPAGE(p); + ASSERT(currentpage); + + if (!currentpage->background) + currentpage->background = pdf_new_stream(STREAM_COMPRESS); + + saved_content = currentpage->contents; + currentpage->contents = currentpage->background; + + pdf_dev_gsave(); + pdf_color_push(); + pdf_dev_setcolor(&bgcolor, 1); /* is_fill */ + pdf_dev_rectfill(r.llx, r.lly, r.urx - r.llx, r.ury - r.lly); + pdf_color_pop(); + pdf_dev_grestore(); + + currentpage->contents = saved_content; + + return; +} + +void +pdf_doc_begin_page (double scale, double x_origin, double y_origin) +{ + pdf_doc *p = &pdoc; + pdf_tmatrix M; + + M.a = scale; M.b = 0.0; + M.c = 0.0 ; M.d = scale; + M.e = x_origin; + M.f = y_origin; + + /* pdf_doc_new_page() allocates page content stream. */ + pdf_doc_new_page(p); + pdf_dev_bop(&M); + + return; +} + +void +pdf_doc_end_page (void) +{ + pdf_doc *p = &pdoc; + + pdf_dev_eop(); + doc_fill_page_background(p); + + pdf_doc_finish_page(p); + + return; +} + +void +pdf_doc_add_page_content (const char *buffer, unsigned length) +{ + pdf_doc *p = &pdoc; + pdf_page *currentpage; + + if (p->pending_forms) { + pdf_add_stream(p->pending_forms->form.contents, buffer, length); + } else { + currentpage = LASTPAGE(p); + pdf_add_stream(currentpage->contents, buffer, length); + } + + return; +} + +static char *doccreator = NULL; /* Ugh */ + +void +pdf_open_document (const char *filename, + double media_width, double media_height, + double annot_grow_amount, int bookmark_open_depth) +{ + pdf_doc *p = &pdoc; + + pdf_out_init(filename); + + pdf_doc_init_catalog(p); + + p->opt.annot_grow = annot_grow_amount; + p->opt.outline_open_depth = bookmark_open_depth; + + pdf_init_resources(); + pdf_init_colors(); + pdf_init_fonts(); + /* Thumbnail want this to be initialized... */ + pdf_init_images(); + + pdf_doc_init_docinfo(p); + if (doccreator) { + pdf_add_dict(p->info, + pdf_new_name("Creator"), + pdf_new_string(doccreator, strlen(doccreator))); + RELEASE(doccreator); doccreator = NULL; + } + + pdf_doc_init_bookmarks(p, bookmark_open_depth); + pdf_doc_init_articles (p); + pdf_doc_init_names (p); + pdf_doc_init_page_tree(p, media_width, media_height); + + create_encrypt(); + +#ifndef NO_THUMBNAIL + /* Create a default name for thumbnail image files */ + if (thumb_enabled) { + if (strlen(filename) > 4 && + !strncmp(".pdf", filename + strlen(filename) - 4, 4)) { + thumb_basename = NEW(strlen(filename)-4+1, char); + strncpy(thumb_basename, filename, strlen(filename)-4); + thumb_basename[strlen(filename)-4] = 0; + } else { + thumb_basename = NEW(strlen(filename)+1, char); + strcpy(thumb_basename, filename); + } + } +#endif /* !NO_THUMBNAIL */ + + p->pending_forms = NULL; + + return; +} + +void +pdf_doc_set_creator (const char *creator) +{ + if (!creator || + creator[0] == '\0') + return; + + doccreator = NEW(strlen(creator)+1, char); + strcpy(doccreator, creator); /* Ugh */ +} + + +void +pdf_close_document (void) +{ + pdf_doc *p = &pdoc; + + /* + * Following things were kept around so user can add dictionary items. + */ + pdf_doc_close_articles (p); + pdf_doc_close_names (p); + pdf_doc_close_bookmarks(p); + pdf_doc_close_page_tree(p); + pdf_doc_close_docinfo (p); + + pdf_doc_close_catalog (p); + + pdf_close_images(); + pdf_close_fonts (); + pdf_close_colors(); + + pdf_close_resources(); /* Should be at last. */ + + pdf_out_flush(); + +#ifndef NO_THUMBNAIL + if (thumb_basename) { + RELEASE(thumb_basename); + } +#endif /* !NO_THUMBNAIL */ + + return; +} + +/* + * All this routine does is give the form a name and add a unity scaling matrix. + * It fills in required fields. The caller must initialize the stream. + */ +void +pdf_doc_make_xform (pdf_obj *xform, + pdf_rect *bbox, + pdf_tmatrix *matrix, + pdf_obj *resources) +{ + pdf_obj *xform_dict; + pdf_obj *tmp; + + xform_dict = pdf_stream_dict(xform); + pdf_add_dict(xform_dict, + pdf_new_name("Type"), pdf_new_name("XObject")); + pdf_add_dict(xform_dict, + pdf_new_name("Subtype"), pdf_new_name("Form")); + pdf_add_dict(xform_dict, + pdf_new_name("FormType"), pdf_new_number(1.0)); + + if (!bbox) + ERROR("No BoundingBox supplied."); + + tmp = pdf_new_array(); + pdf_add_array(tmp, pdf_new_number(ROUND(bbox->llx, .001))); + pdf_add_array(tmp, pdf_new_number(ROUND(bbox->lly, .001))); + pdf_add_array(tmp, pdf_new_number(ROUND(bbox->urx, .001))); + pdf_add_array(tmp, pdf_new_number(ROUND(bbox->ury, .001))); + pdf_add_dict(xform_dict, pdf_new_name("BBox"), tmp); + + if (matrix) { + tmp = pdf_new_array(); + pdf_add_array(tmp, pdf_new_number(ROUND(matrix->a, .00001))); + pdf_add_array(tmp, pdf_new_number(ROUND(matrix->b, .00001))); + pdf_add_array(tmp, pdf_new_number(ROUND(matrix->c, .00001))); + pdf_add_array(tmp, pdf_new_number(ROUND(matrix->d, .00001))); + pdf_add_array(tmp, pdf_new_number(ROUND(matrix->e, .001 ))); + pdf_add_array(tmp, pdf_new_number(ROUND(matrix->f, .001 ))); + pdf_add_dict(xform_dict, pdf_new_name("Matrix"), tmp); + } + + pdf_add_dict(xform_dict, pdf_new_name("Resources"), resources); + + return; +} + +/* + * begin_form_xobj creates an xobject with its "origin" at + * xpos and ypos that is clipped to the specified bbox. Note + * that the origin is not the lower left corner of the bbox. + */ +int +pdf_doc_begin_grabbing (const char *ident, + double ref_x, double ref_y, const pdf_rect *cropbox) +{ + int xobj_id = -1; + pdf_doc *p = &pdoc; + pdf_form *form; + struct form_list_node *fnode; + xform_info info; + + fnode = NEW(1, struct form_list_node); + + fnode->prev = p->pending_forms; + fnode->q_depth = pdf_dev_current_depth(); + form = &fnode->form; + + /* + * The reference point of an Xobject is at the lower left corner + * of the bounding box. Since we would like to have an arbitrary + * reference point, we use a transformation matrix, translating + * the reference point to (0,0). + */ + + form->matrix.a = 1.0; form->matrix.b = 0.0; + form->matrix.c = 0.0; form->matrix.d = 1.0; + form->matrix.e = -ref_x; + form->matrix.f = -ref_y; + + form->cropbox.llx = ref_x + cropbox->llx; + form->cropbox.lly = ref_y + cropbox->lly; + form->cropbox.urx = ref_x + cropbox->urx; + form->cropbox.ury = ref_y + cropbox->ury; + + form->contents = pdf_new_stream(STREAM_COMPRESS); + form->resources = pdf_new_dict(); + + pdf_ximage_init_form_info(&info); + + info.matrix.a = 1.0; info.matrix.b = 0.0; + info.matrix.c = 0.0; info.matrix.d = 1.0; + info.matrix.e = -ref_x; + info.matrix.f = -ref_y; + + info.bbox.llx = cropbox->llx; + info.bbox.lly = cropbox->lly; + info.bbox.urx = cropbox->urx; + info.bbox.ury = cropbox->ury; + + /* Use reference since content itself isn't available yet. */ + xobj_id = pdf_ximage_defineresource(ident, + PDF_XOBJECT_TYPE_FORM, + &info, pdf_ref_obj(form->contents)); + + p->pending_forms = fnode; + + /* + * Make sure the object is self-contained by adding the + * current font and color to the object stream. + */ + pdf_dev_reset_fonts(); + pdf_dev_reset_color(); + + return xobj_id; +} + +void +pdf_doc_end_grabbing (void) +{ + pdf_form *form; + pdf_obj *procset; + pdf_doc *p = &pdoc; + struct form_list_node *fnode; + + if (!p->pending_forms) { + WARN("Tried to close a nonexistent form XOject."); + return; + } + + fnode = p->pending_forms; + form = &fnode->form; + + pdf_dev_grestore_to(fnode->q_depth); + + /* + * ProcSet is obsolete in PDF-1.4 but recommended for compatibility. + */ + procset = pdf_new_array(); + pdf_add_array(procset, pdf_new_name("PDF")); + pdf_add_array(procset, pdf_new_name("Text")); + pdf_add_array(procset, pdf_new_name("ImageC")); + pdf_add_array(procset, pdf_new_name("ImageB")); + pdf_add_array(procset, pdf_new_name("ImageI")); + pdf_add_dict (form->resources, pdf_new_name("ProcSet"), procset); + + pdf_doc_make_xform(form->contents, + &form->cropbox, &form->matrix, + pdf_ref_obj(form->resources)); + pdf_release_obj(form->resources); + pdf_release_obj(form->contents); + + p->pending_forms = fnode->prev; + + /* Here we do not need pdf_dev_reset_color(). */ + pdf_dev_reset_fonts(); + + RELEASE(fnode); + + return; +} + +static struct +{ + int dirty; + pdf_obj *annot_dict; + pdf_rect rect; +} breaking_state = {0, NULL, {0.0, 0.0, 0.0, 0.0}}; + +static void +reset_box (void) +{ + breaking_state.rect.llx = 10000.0; /* large value */ + breaking_state.rect.lly = 10000.0; /* large value */ + breaking_state.rect.urx = 0.0; /* small value */ + breaking_state.rect.ury = 0.0; /* small value */ + breaking_state.dirty = 0; +} + +void +pdf_doc_begin_annot (pdf_obj *dict) +{ + breaking_state.annot_dict = dict; + reset_box(); +} + +void +pdf_doc_end_annot (void) +{ + pdf_doc_break_annot(); + breaking_state.annot_dict = NULL; +} + +void +pdf_doc_break_annot (void) +{ + if (breaking_state.dirty) { + pdf_obj *annot_dict; + + /* Copy dict */ + annot_dict = pdf_new_dict(); + pdf_merge_dict(annot_dict, breaking_state.annot_dict); + pdf_doc_add_annot(pdf_doc_current_page_number(), + &(breaking_state.rect), annot_dict); + pdf_release_obj(annot_dict); + } + reset_box(); +} + +void +pdf_doc_expand_box (const pdf_rect *rect) +{ + breaking_state.rect.llx = MIN(breaking_state.rect.llx, rect->llx); + breaking_state.rect.lly = MIN(breaking_state.rect.lly, rect->lly); + breaking_state.rect.urx = MAX(breaking_state.rect.urx, rect->urx); + breaking_state.rect.ury = MAX(breaking_state.rect.ury, rect->ury); + breaking_state.dirty = 1; +} + +/* This should be number tree */ +void +pdf_doc_set_pagelabel (long pg_start, + const char *type, + const void *prefix, int prfx_len, long start) +{ + pdf_doc *p = &pdoc; + pdf_obj *label_dict; + + if (!p->root.pagelabels) + p->root.pagelabels = pdf_new_array(); + + label_dict = pdf_new_dict(); + if (!type || type[0] == '\0') /* Set back to default. */ + pdf_add_dict(label_dict, pdf_new_name("S"), pdf_new_name("D")); + else { + if (type) + pdf_add_dict(label_dict, pdf_new_name("S"), pdf_new_name(type)); + if (prefix && prfx_len > 0) + pdf_add_dict(label_dict, + pdf_new_name("P"), + pdf_new_string(prefix, prfx_len)); + if (start != 1) + pdf_add_dict(label_dict, + pdf_new_name("St"), pdf_new_number(start)); + } + + pdf_add_array(p->root.pagelabels, pdf_new_number(pg_start)); + pdf_add_array(p->root.pagelabels, label_dict); + + return; +} diff --git a/Build/source/texk/xdvipdfmx/src/pdfdoc.h b/Build/source/texk/xdvipdfmx/src/pdfdoc.h new file mode 100644 index 00000000000..0d160e18a7f --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfdoc.h @@ -0,0 +1,138 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfdoc.h,v 1.19 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFDOC_H_ +#define _PDFDOC_H_ + +#include "pdfobj.h" +#include "pdfdev.h" + +#define PDF_DOC_GRABBING_NEST_MAX 4 + +extern void pdf_doc_set_verbose (void); + +extern void pdf_open_document (const char *filename, + double media_width, double media_height, + double annot_grow_amount, int bookmark_open_depth); +extern void pdf_close_document (void); + + +/* PDF document metadata */ +extern void pdf_doc_set_creator (const char *creator); + + +/* They just return PDF dictionary object. + * Callers are completely responsible for doing right thing... + */ +extern pdf_obj *pdf_doc_get_dictionary (const char *category); +extern pdf_obj *pdf_doc_get_reference (const char *category); + +#define pdf_doc_page_tree() pdf_doc_get_dictionary("Pages") +#define pdf_doc_catalog() pdf_doc_get_dictionary("Catalog") +#define pdf_doc_docinfo() pdf_doc_get_dictionary("Info") +#define pdf_doc_names() pdf_doc_get_dictionary("Names") +#define pdf_doc_this_page() pdf_doc_get_dictionary("@THISPAGE") + +extern long pdf_doc_current_page_number (void); +extern pdf_obj *pdf_doc_current_page_resources (void); + +extern pdf_obj *pdf_doc_ref_page (unsigned long page_no); +#define pdf_doc_this_page_ref() pdf_doc_get_reference("@THISPAGE") +#define pdf_doc_next_page_ref() pdf_doc_get_reference("@NEXTPAGE") +#define pdf_doc_prev_page_ref() pdf_doc_get_reference("@PREVPAGE") + +/* Not really managing tree... + * There should be something for number tree. + */ +extern int pdf_doc_add_names (const char *category, + const void *key, int keylen, pdf_obj *value); + +extern void pdf_doc_set_bop_content (const char *str, unsigned length); +extern void pdf_doc_set_eop_content (const char *str, unsigned length); + +/* Page */ +extern void pdf_doc_begin_page (double scale, double x_origin, double y_origin); +extern void pdf_doc_end_page (void); + +extern void pdf_doc_set_mediabox (unsigned page_no, const pdf_rect *mediabox); +extern void pdf_doc_get_mediabox (unsigned page_no, pdf_rect *mediabox); + +extern void pdf_doc_add_page_content (const char *buffer, unsigned length); +extern void pdf_doc_add_page_resource (const char *category, + const char *resource_name, pdf_obj *resources); + +/* Article thread */ +extern void pdf_doc_begin_article (const char *article_id, pdf_obj *info); +extern void pdf_doc_end_article (const char *article_id); /* Do nothing... */ +extern void pdf_doc_make_article (const char *article_id, + const char **bead_order, int num_beads); +extern void pdf_doc_add_bead (const char *article_id, + const char *bead_id, + long page_no, const pdf_rect *rect); + +/* Bookmarks */ +extern int pdf_doc_bookmarks_up (void); +extern int pdf_doc_bookmarks_down (void); +extern void pdf_doc_bookmarks_add (pdf_obj *dict, int is_open); +extern int pdf_doc_bookmarks_depth (void); + + +/* Form XObject */ +extern void pdf_doc_make_xform (pdf_obj *xform, + pdf_rect *bbox, /* const */ + pdf_tmatrix *matrix, /* const */ + pdf_obj *resources_ref); + +/* Returns xobj_id of started xform. */ +extern int pdf_doc_begin_grabbing (const char *ident, + double ref_x, double ref_y, + const pdf_rect *cropbox); +extern void pdf_doc_end_grabbing (void); + + +/* Annotation */ +extern void pdf_doc_add_annot (unsigned page_no, + const pdf_rect *rect, pdf_obj *annot_dict); + +/* Annotation with auto- clip and line (or page) break */ +extern void pdf_doc_begin_annot (pdf_obj *dict); +extern void pdf_doc_end_annot (void); + +extern void pdf_doc_break_annot (void); +extern void pdf_doc_expand_box (const pdf_rect *rect); + +/* Thumbnail */ +extern void pdf_doc_enable_thumbnails (int thumb_remove); + +/* PageLabels - */ +extern void pdf_doc_set_pagelabel (long page_start, + const char *type, + const void *prefix, int pfrx_len, + long counter_start); + +/* Similar to bop_content */ +#include "pdfcolor.h" +extern void pdf_doc_set_bgcolor (const pdf_color *color); + +#endif /* _PDFDOC_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfdraw.c b/Build/source/texk/xdvipdfmx/src/pdfdraw.c new file mode 100644 index 00000000000..ec4f8b1981d --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfdraw.c @@ -0,0 +1,1836 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfdraw.c,v 1.12 2005/08/31 08:22:42 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "error.h" +#include "mem.h" +#include "mfileio.h" +#include "dpxutil.h" +#include "numbers.h" + +#include "pdfdoc.h" +#include "pdfdev.h" +#include "pdfcolor.h" + +#include "pdfdraw.h" + +#if 1 +typedef void pdf_dev; +#endif + + +/* + * Numbers are rounding to 0-5 fractional digits + * in output routine. + */ +#define detM(M) ((M).a * (M).d - (M).b * (M).c) +#define detP(M) ((M)->a * (M)->d - (M)->b * (M)->c) + + +static /* __inline__ */ int +inversematrix (pdf_tmatrix *W, const pdf_tmatrix *M) +{ + double det; + + det = detP(M); + if (fabs(det) < 1.e-8) { +#if 1 + WARN("Inverting matrix with zero determinant..."); +#endif + return -1; /* result is undefined. */ + } + + W->a = (M->d) / det; W->b = -(M->b) / det; + W->c = -(M->c) / det; W->d = (M->a) / det; + W->e = (M->c) * (M->f) - (M->d) * (M->e); + W->f = (M->b) * (M->e) - (M->a) * (M->f); + + return 0; +} + +/* pdf_coord as vector */ +#define vecprd(v,w) ((v).x * (w).x + (v).y * (w).y) +#define vecrot(v,w) ((v).x * (w).y - (v).y * (w).x) +#define dsign(v) (((v) >= 0.0) ? 1.0 : -1.0) +/* acos => [0, pi] */ +#define vecang(v,w) ( \ + dsign(vecrot((v),(w))) * \ + acos(vecprd((v),(w)) / sqrt(vecprd((v),(v)) * vecprd((w),(w)))) \ +) + +static /* __inline__ */ int +pdf_coord__equal (const pdf_coord *p1, const pdf_coord *p2) +{ + if (fabs(p1->x - p2->x) < 1.e-7 && + fabs(p1->y - p2->y) < 1.e-7) + return 1; + return 0; +} +#define COORD_EQUAL(p,q) pdf_coord__equal((p),(q)) + +#if 0 +static int +pdf_coord__sort_compar_X (const void *pp1, const void *pp2) +{ + pdf_coord *p1 = (pdf_coord *)pp1; + pdf_coord *p2 = (pdf_coord *)pp2; + + if (pdf_coord__equal(p1, p2)) + return 0; + else + return (int) dsign(p1->x - p2->x); + + return 1; +} + +static int +pdf_coord__sort_compar_Y (const void *pp1, const void *pp2) +{ + pdf_coord *p1 = (pdf_coord *)pp1; + pdf_coord *p2 = (pdf_coord *)pp2; + + if (pdf_coord__equal(p1, p2)) + return 0; + else + return (int) dsign(p1->y - p2->y); + + return 1; +} +#endif + + +static /* __inline__ */ int +pdf_coord__transform (pdf_coord *p, const pdf_tmatrix *M) +{ + double x, y; + + x = p->x; y = p->y; + p->x = x * M->a + y * M->c + M->e; + p->y = x * M->b + y * M->d + M->f; + + return 0; +} + +static /* __inline__ */ int +pdf_coord__itransform (pdf_coord *p, const pdf_tmatrix *M) +{ + pdf_tmatrix W; + double x, y; + int error; + + error = inversematrix(&W, M); + if (error) + return error; + + x = p->x; y = p->y; + p->x = x * W.a + y * W.c + W.e; + p->y = x * W.b + y * W.d + W.f; + + return 0; +} + +static /* __inline__ */ int +pdf_coord__dtransform (pdf_coord *p, const pdf_tmatrix *M) +{ + double x, y; + + x = p->x; y = p->y; + p->x = x * M->a + y * M->c; + p->y = x * M->b + y * M->d; + + return 0; +} + +static /* __inline__ */ int +pdf_coord__idtransform (pdf_coord *p, const pdf_tmatrix *M) +{ + pdf_tmatrix W; + double x, y; + int error; + + error = inversematrix(&W, M); + if (error) + return error; + + x = p->x; y = p->y; + p->x = x * W.a + y * W.c; + p->y = x * W.b + y * W.d; + + return 0; +} + + +/* Modify M itself */ +void +pdf_invertmatrix (pdf_tmatrix *M) +{ + pdf_tmatrix W; + double det; + + ASSERT(M); + + det = detP(M); + if (fabs(det) < 1.e-8) { + WARN("Inverting matrix with zero determinant..."); + W.a = 1.0; W.c = 0.0; + W.b = 0.0; W.d = 1.0; + W.e = 0.0; W.f = 0.0; + } else { + W.a = (M->d) / det; W.b = -(M->b) / det; + W.c = -(M->c) / det; W.d = (M->a) / det; + W.e = (M->c) * (M->f) - (M->d) * (M->e); + W.f = (M->b) * (M->e) - (M->a) * (M->f); + } + + pdf_copymatrix(M, &W); + + return; +} + + +typedef struct pa_elem_ +{ + int type; + pdf_coord p[3]; +} pa_elem; + +/* each subpath delimitted by moveto */ +struct pdf_path_ +{ + int num_paths; + int max_paths; + pa_elem *path; +}; + +static const struct { + char opchr; /* PDF operator char */ + int n_pts; /* number of *points* */ + const char *strkey; +} petypes[] = { +#define PE_TYPE__INVALID -1 +#define PE_TYPE__MOVETO 0 + {'m', 1, "moveto" }, +#define PE_TYPE__LINETO 1 + {'l', 1, "lineto" }, +#define PE_TYPE__CURVETO 2 + {'c', 3, "curveto" }, + /* no PS correspondence for v and y */ +#define PE_TYPE__CURVETO_V 3 + {'v', 2, "vcurveto"}, /* current point replicated */ +#define PE_TYPE__CURVETO_Y 4 + {'y', 2, "ycurveto"}, /* last point replicated */ +#define PE_TYPE__CLOSEPATH 5 + {'h', 0, "closepath"}, +#define PE_TYPE__TERMINATE 6 + {' ', 0, NULL} +}; + +#define PE_VALID(p) ((p) && \ + (p)->type > PE_TYPE__INVALID && (p)->type < PE_TYPE__TERMINATE) +#define PE_N_PTS(p) (PE_VALID((p)) ? petypes[(p)->type].n_pts : 0) +#define PE_OPCHR(p) (PE_VALID((p)) ? petypes[(p)->type].opchr : ' ') + +#define PA_LENGTH(pa) ((pa)->num_paths) + +#define GS_FLAG_CURRENTPOINT_SET (1 << 0) + + +static char fmt_buf[1024]; /* FIXME */ +#define FORMAT_BUFF_PTR(p) fmt_buf +#define FORMAT_BUFF_LEN(p) 1024 + +static void +pdf_path__initpath (pdf_path *p) +{ + ASSERT(p); + + p->num_paths = 0; + p->max_paths = 0; + p->path = NULL; + + return; +} + +static void +pdf_path__clearpath (pdf_path *p) +{ + ASSERT(p); + + p->num_paths = 0; + + return; +} + +static int +pdf_path__growpath (pdf_path *p, int max_pe) +{ + if (max_pe < p->max_paths) + return 0; + + p->max_paths = MAX(p->max_paths + 8, max_pe); + p->path = RENEW(p->path, p->max_paths, pa_elem); + + return 0; +} + +static void +pdf_path__cleanpath (pdf_path *p) +{ + ASSERT(p); + + if (p->path) + RELEASE(p->path); + p->path = NULL; + p->num_paths = 0; + p->max_paths = 0; + + return; +} + +static int +pdf_path__copypath (pdf_path *p1, const pdf_path *p0) +{ + pa_elem *pe0, *pe1; + int i; + + pdf_path__growpath(p1, PA_LENGTH(p0)); + for (i = 0; i < PA_LENGTH(p0); i++) { + pe1 = &(p1->path[i]); + pe0 = &(p0->path[i]); + /* FIXME */ + pe1->type = pe0->type; + pe1->p[0].x = pe0->p[0].x; + pe1->p[0].y = pe0->p[0].y; + pe1->p[1].x = pe0->p[1].x; + pe1->p[1].y = pe0->p[1].y; + pe1->p[2].x = pe0->p[2].x; + pe1->p[2].y = pe0->p[2].y; + } + p1->num_paths = PA_LENGTH(p0); + + return 0; +} + + +/* start new subpath */ +static int +pdf_path__moveto (pdf_path *pa, + pdf_coord *cp, + const pdf_coord *p0) +{ + pa_elem *pe; + + pdf_path__growpath(pa, PA_LENGTH(pa) + 1); + if (PA_LENGTH(pa) > 0) { + pe = &pa->path[pa->num_paths-1]; + if (pe->type == PE_TYPE__MOVETO) { + pe->p[0].x = cp->x = p0->x; + pe->p[0].y = cp->y = p0->y; + return 0; + } + } + pe = &pa->path[pa->num_paths++]; + pe->type = PE_TYPE__MOVETO; + pe->p[0].x = cp->x = p0->x; + pe->p[0].y = cp->y = p0->y; + + return 0; +} + +/* Do 'compression' of path while adding new path elements. + * Sequantial moveto command will be replaced with a + * single moveto. If cp is not equal to the last point in pa, + * then moveto is inserted (starting new subpath). + * FIXME: + * 'moveto' must be used to enforce starting new path. + * This affects how 'closepath' is treated. + */ +static pa_elem * +pdf_path__next_pe (pdf_path *pa, const pdf_coord *cp) +{ + pa_elem *pe; + + pdf_path__growpath(pa, PA_LENGTH(pa) + 2); + if (PA_LENGTH(pa) == 0) { + pe = &pa->path[pa->num_paths++]; + pe->type = PE_TYPE__MOVETO; + pe->p[0].x = cp->x; + pe->p[0].y = cp->y; + + return &pa->path[pa->num_paths++]; + } + + pe = &pa->path[pa->num_paths-1]; + switch (pe->type) { + case PE_TYPE__MOVETO: + pe->p[0].x = cp->x; + pe->p[0].y = cp->y; + break; + case PE_TYPE__LINETO: + if (!COORD_EQUAL(&pe->p[0], cp)) { + pe = &pa->path[pa->num_paths++]; + pe->type = PE_TYPE__MOVETO; + pe->p[0].x = cp->x; + pe->p[0].y = cp->y; + } + break; + case PE_TYPE__CURVETO: + if (!COORD_EQUAL(&pe->p[2], cp)) { + pe = &pa->path[pa->num_paths++]; + pe->type = PE_TYPE__MOVETO; + pe->p[0].x = cp->x; + pe->p[0].y = cp->y; + } + break; + case PE_TYPE__CURVETO_Y: + case PE_TYPE__CURVETO_V: + if (!COORD_EQUAL(&pe->p[1], cp)) { + pe = &pa->path[pa->num_paths++]; + pe->type = PE_TYPE__MOVETO; + pe->p[0].x = cp->x; + pe->p[0].y = cp->y; + } + break; + case PE_TYPE__CLOSEPATH: + pe = &pa->path[pa->num_paths++]; + pe->type = PE_TYPE__MOVETO; + pe->p[0].x = cp->x; + pe->p[0].y = cp->y; + break; + } + + return &pa->path[pa->num_paths++]; +} + +static int +pdf_path__transform (pdf_path *pa, const pdf_tmatrix *M) +{ + pa_elem *pe; + int n = 0, i; + + ASSERT(pa && M); + + for (i = 0; i < PA_LENGTH(pa); i++) { + pe = &(pa->path[i]); + n = PE_N_PTS(pe); + while (n-- > 0) + pdf_coord__transform(&(pe->p[n]), M); + } + + return 0; +} + + +/* Path Construction */ +static int +pdf_path__lineto (pdf_path *pa, + pdf_coord *cp, + const pdf_coord *p0) +{ + pa_elem *pe; + + pe = pdf_path__next_pe(pa, cp); + pe->type = PE_TYPE__LINETO; + pe->p[0].x = cp->x = p0->x; + pe->p[0].y = cp->y = p0->y; + + return 0; +} + +static int +pdf_path__curveto (pdf_path *pa, + pdf_coord *cp, + const pdf_coord *p0, + const pdf_coord *p1, + const pdf_coord *p2 + ) +{ + pa_elem *pe; + + pe = pdf_path__next_pe(pa, cp); + if (COORD_EQUAL(cp, p0)) { + pe->type = PE_TYPE__CURVETO_V; + pe->p[0].x = p1->x; + pe->p[0].y = p1->y; + pe->p[1].x = cp->x = p2->x; + pe->p[1].y = cp->y = p2->y; + } else if (COORD_EQUAL(p1, p2)) { + pe->type = PE_TYPE__CURVETO_Y; + pe->p[0].x = p0->x; + pe->p[0].y = p0->y; + pe->p[1].x = cp->x = p1->x; + pe->p[1].y = cp->y = p1->y; + } else { + pe->type = PE_TYPE__CURVETO; + pe->p[0].x = p0->x; + pe->p[0].y = p0->y; + pe->p[1].x = p1->x; + pe->p[1].y = p1->y; + pe->p[2].x = cp->x = p2->x; + pe->p[2].y = cp->y = p2->y; + } + + return 0; +} + +#define QB_TWO_THIRD (2.0/3.0) +#define QB_ONE_THIRD (1.0/3.0) + +static int +pdf_path__curveto_QB (pdf_path *pa, + pdf_coord *cp, + const pdf_coord *p0, + const pdf_coord *p1 + ) +{ + pdf_coord q0, q1; + + q0.x = cp->x + QB_TWO_THIRD * (p0->x - cp->x); + q0.y = cp->y + QB_TWO_THIRD * (p0->y - cp->y); + q1.x = p0->x + QB_ONE_THIRD * (p1->x - p0->x); + q1.y = p0->y + QB_ONE_THIRD * (p1->y - p0->y); + /* q2 == p1 */ + + return pdf_path__curveto(pa, cp, &q0, &q1, p1); +} + + +/* This isn't specified as cp to somewhere. */ +static int +pdf_path__elliptarc (pdf_path *pa, + pdf_coord *cp, + const pdf_coord *ca, /* ellipsis center */ + double r_x, /* x radius */ + double r_y, /* y radius */ + double xar, /* x-axis-rotation (deg!) */ + double a_0, /* start angle */ + double a_1, /* stop angle */ + int a_d /* arc orientation */ + ) +{ + double b, b_x, b_y; + double d_a, q; + pdf_coord p0, p1, p2, p3; + pdf_coord e0, e1; + pdf_tmatrix T; + int n_c; /* number of segments */ + int i, error = 0; + + if (fabs(r_x) < 1.e-8 || + fabs(r_y) < 1.e-8) + return -1; + + if (a_d < 0) { + for ( ; a_1 > a_0; a_1 -= 360.0); + } else { + for ( ; a_1 < a_0; a_0 -= 360.0); + } + + d_a = a_1 - a_0; + for (n_c = 1; fabs(d_a) > 90.0 * n_c; n_c++); + d_a /= n_c; + if (fabs(d_a) < 1.e-8) + return -1; + + a_0 *= M_PI / 180.0; + a_1 *= M_PI / 180.0; + d_a *= M_PI / 180.0; + xar *= M_PI / 180.0; + T.a = cos(xar); T.c = -sin(xar); + T.b = -T.c ; T.d = T.a; + T.e = 0.0 ; T.f = 0.0; + + /* A parameter that controls cb-curve (off-curve) points */ + b = 4.0 * (1.0 - cos(.5 * d_a)) / (3.0 * sin(.5 * d_a)); + b_x = r_x * b; + b_y = r_y * b; + + p0.x = r_x * cos(a_0); + p0.y = r_y * sin(a_0); + pdf_coord__transform(&p0, &T); + p0.x += ca->x; p0.y += ca->y; + if (PA_LENGTH(pa) == 0) { + pdf_path__moveto(pa, cp, &p0); + } else if (!COORD_EQUAL(cp, &p0)) { + pdf_path__lineto(pa, cp, &p0); /* add line seg */ + } + for (i = 0; !error && i < n_c; i++) { + q = a_0 + i * d_a; + e0.x = cos(q); e0.y = sin(q); + e1.x = cos(q + d_a); e1.y = sin(q + d_a); + + /* Condition for tangent vector requirs + * d1 = p1 - p0 = f ( sin a, -cos a) + * d2 = p2 - p3 = g ( sin b, -cos b) + * and from symmetry + * g^2 = f^2 + */ + p0.x = r_x * e0.x; /* s.p. */ + p0.y = r_y * e0.y; + p3.x = r_x * e1.x; /* e.p. */ + p3.y = r_y * e1.y; + + p1.x = -b_x * e0.y; + p1.y = b_y * e0.x; + p2.x = b_x * e1.y; + p2.y = -b_y * e1.x; + + pdf_coord__transform(&p0, &T); + pdf_coord__transform(&p1, &T); + pdf_coord__transform(&p2, &T); + pdf_coord__transform(&p3, &T); + p0.x += ca->x; p0.y += ca->y; + p3.x += ca->x; p3.y += ca->y; + p1.x += p0.x ; p1.y += p0.y ; + p2.x += p3.x ; p2.y += p3.y ; + + error = pdf_path__curveto(pa, &p0, &p1, &p2, &p3); + cp->x = p3.x; cp->y = p3.y; + } + + return error; +} + +static int +pdf_path__closepath (pdf_path *pa, pdf_coord *cp /* no arg */) +{ + pa_elem *pe = NULL; + int i; + + /* search for start point of the last subpath */ + for (i = PA_LENGTH(pa) - 1; i >= 0; i--) { + pe = &pa->path[i]; + if (pe->type == PE_TYPE__MOVETO) + break; + } + + if (!pe || i < 0) + return -1; /* No path or no start point(!) */ + + cp->x = pe->p[0].x; + cp->y = pe->p[0].y; + + pdf_path__growpath(pa, PA_LENGTH(pa) + 1); + + /* NOTE: + * Manually closed path without closepath is not + * affected by linejoin. A path with coincidental + * starting and ending point is not the same as + * 'closed' path. + */ + pe = &pa->path[pa->num_paths++]; + pe->type = PE_TYPE__CLOSEPATH; + + return 0; +} + +/* + * x y width height re + * + * is equivalent to + * + * x y m + * (x + width) y l + * (x + width) (y + height) l + * x (y + height) l + * h + */ +/* Just for quick test */ +static /* __inline__ */ int +pdf_path__isarect (pdf_path *pa, + int f_ir /* fill-rule is ignorable */ + ) +{ + pa_elem *pe0, *pe1, *pe2, *pe3, *pe4; + + if (PA_LENGTH(pa) == 5) { + pe0 = &(pa->path[0]); + pe1 = &(pa->path[1]); + pe2 = &(pa->path[2]); + pe3 = &(pa->path[3]); + pe4 = &(pa->path[4]); + if (pe0->type == PE_TYPE__MOVETO && + pe1->type == PE_TYPE__LINETO && + pe2->type == PE_TYPE__LINETO && + pe3->type == PE_TYPE__LINETO && + pe4->type == PE_TYPE__CLOSEPATH) { + if (pe1->p[0].y - pe0->p[0].y == 0 && + pe2->p[0].x - pe1->p[0].x == 0 && + pe3->p[0].y - pe2->p[0].y == 0) { + if (pe1->p[0].x - pe0->p[0].x + == pe2->p[0].x - pe3->p[0].x) { + return 1; + } + /* Winding number is different but ignore it here. */ + } else if (f_ir && + pe1->p[0].x - pe0->p[0].x == 0 && + pe2->p[0].y - pe1->p[0].y == 0 && + pe3->p[0].x - pe2->p[0].x == 0) { + if (pe1->p[0].y - pe0->p[0].y + == pe2->p[0].y - pe3->p[0].y) { + return 1; + } + } + } + } + + return 0; +} + +/* Path Painting */ +/* F is obsoleted */ +#define PT_OP_VALID(c) ( \ + (c) == 'f' || (c) == 'F' || \ + (c) == 's' || (c) == 'S' || \ + (c) == 'b' || (c) == 'B' || \ + (c) == 'W' \ +) + +static /* __inline__ */ int +INVERTIBLE_MATRIX (const pdf_tmatrix *M) +{ + if (fabs(detP(M)) < 1.e-8) { + WARN("Transformation matrix not invertible."); + WARN("--- M = [%g %g %g %g %g %g]", + M->a, M->b, M->c, M->d, M->e, M->f); + return -1; + } + return 0; +} + +/* rectfill, rectstroke, rectclip, recteoclip + * + * Draw isolated rectangle without actually doing + * gsave/grestore operation. + * + * TODO: + * linestyle, fill-opacity, stroke-opacity,.... + * As this routine draw a single graphics object + * each time, there should be options for specifying + * various drawing styles, which might inherite + * current graphcs state parameter. + */ +static int +pdf_dev__rectshape (pdf_dev *P, + const pdf_rect *r, + const pdf_tmatrix *M, + char opchr + ) +{ + char *buf = FORMAT_BUFF_PTR(P); + int len = 0; + int isclip = 0; + pdf_coord p; + double wd, ht; + + ASSERT(r && PT_OP_VALID(opchr)); + + isclip = (opchr == 'W') ? 1 : 0; + + /* disallow matrix for clipping. + * q ... clip Q does nothing and + * n M cm ... clip n alter CTM. + */ + if (M && (isclip || + !INVERTIBLE_MATRIX(M))) + return -1; + + graphics_mode(); + + buf[len++] = ' '; + if (!isclip) { + buf[len++] = 'q'; + if (M) { + buf[len++] = ' '; + len += pdf_sprint_matrix(buf + len, M); + buf[len++] = ' '; + buf[len++] = 'c'; buf[len++] = 'm'; + } + buf[len++] = ' '; + } + buf[len++] = 'n'; + + p.x = r->llx; p.y = r->lly; + wd = r->urx - r->llx; + ht = r->ury - r->lly; + buf[len++] = ' '; + len += pdf_sprint_coord (buf + len, &p); + buf[len++] = ' '; + len += pdf_sprint_length(buf + len, wd); + buf[len++] = ' '; + len += pdf_sprint_length(buf + len, ht); + buf[len++] = ' '; + buf[len++] = 'r'; buf[len++] = 'e'; + + buf[len++] = ' '; + buf[len++] = opchr; + + buf[len++] = ' '; + buf[len++] = isclip ? 'n' : 'Q'; + + pdf_doc_add_page_content(buf, len); len = 0; + + return 0; +} + +/* FIXME */ +static int +pdf_dev__flushpath (pdf_dev *P, + pdf_path *pa, + char opchr, + int rule, + int ignore_rule) +{ + pa_elem *pe, *pe1; + char *b = FORMAT_BUFF_PTR(P); + long b_len = FORMAT_BUFF_LEN(P); + pdf_rect r; /* FIXME */ + pdf_coord *pt; + int n_pts, n_seg; + int len = 0; + int isrect, i, j; + + ASSERT(pa && PT_OP_VALID(opchr)); + + if (PA_LENGTH(pa) <= 0) + return 0; + + graphics_mode(); + isrect = pdf_path__isarect(pa, ignore_rule); + if (isrect) { + pe = &(pa->path[0]); + pe1 = &(pa->path[2]); + + r.llx = pe->p[0].x; + r.lly = pe->p[0].y; + r.urx = pe1->p[0].x - pe->p[0].x; /* width... */ + r.ury = pe1->p[0].y - pe->p[0].y; /* height... */ + + b[len++] = ' '; + len += pdf_sprint_rect(b + len, &r); + b[len++] = ' '; + b[len++] = 'r'; + b[len++] = 'e'; + pdf_doc_add_page_content(b, len); len = 0; + } else { + n_seg = PA_LENGTH(pa); + for (i = 0, len = 0, pe = &pa->path[0]; + i < n_seg; pe++, i++) { + n_pts = PE_N_PTS(pe); + for (j = 0, pt = &pe->p[0]; + j < n_pts; j++, pt++) { + b[len++] = ' '; + len += pdf_sprint_coord(b + len, pt); + } + b[len++] = ' '; + b[len++] = PE_OPCHR(pe); + if (len + 128 > b_len) { + pdf_doc_add_page_content(b, len); len = 0; + } + } + if (len > 0) { + pdf_doc_add_page_content(b, len); len = 0; + } + } + + b[len++] = ' '; + b[len++] = opchr; + if (rule == PDF_FILL_RULE_EVENODD) + b[len++] = '*'; + + pdf_doc_add_page_content(b, len); + + return 0; +} + + +/* Graphics State */ +typedef struct pdf_gstate_ +{ + pdf_coord cp; + + pdf_tmatrix matrix; /* cm, - */ + + pdf_color strokecolor; + pdf_color fillcolor; + /* colorspace here */ + + struct { + int num_dash; + double pattern[PDF_DASH_SIZE_MAX]; + double offset; + } linedash; /* d, D */ + + double linewidth; /* w, LW */ + + int linecap; /* J, LC */ + int linejoin; /* j, LJ */ + double miterlimit; /* M, ML */ + + int flatness; /* i, FL, 0 to 100 (0 for use device-default) */ + + /* internal */ + pdf_path path; + long flags; +} pdf_gstate; + + +typedef struct m_stack_elem +{ + void *data; + struct m_stack_elem *prev; +} m_stack_elem; + +typedef struct m_stack +{ + int size; + m_stack_elem *top; + m_stack_elem *bottom; +} m_stack; + +static void +m_stack_init (m_stack *stack) +{ + ASSERT(stack); + + stack->size = 0; + stack->top = NULL; + stack->bottom = NULL; + + return; +} + +static void +m_stack_push (m_stack *stack, void *data) +{ + m_stack_elem *elem; + + ASSERT(stack); + + elem = NEW(1, m_stack_elem); + elem->prev = stack->top; + elem->data = data; + + stack->top = elem; + if (stack->size == 0) + stack->bottom = elem; + + stack->size++; + + return; +} + +static void * +m_stack_pop (m_stack *stack) +{ + m_stack_elem *elem; + void *data; + + ASSERT(stack); + + if (stack->size == 0) + return NULL; + + data = stack->top->data; + elem = stack->top; + stack->top = elem->prev; + if (stack->size == 1) + stack->bottom = NULL; + RELEASE(elem); + + stack->size--; + + return data; +} + +static void * +m_stack_top (m_stack *stack) +{ + void *data; + + ASSERT(stack); + + if (stack->size == 0) + return NULL; + + data = stack->top->data; + + return data; +} + +#define m_stack_depth(s) ((s) ? (s)->size : 0) + + +static m_stack _gsstck; /* FIXME */ + + +static void +pdf_dev__init_gstate (pdf_gstate *gs) +{ + pdf_path *pa = &gs->path; + pdf_color *cf = &gs->fillcolor; + pdf_color *cs = &gs->strokecolor; + pdf_tmatrix *M = &gs->matrix; + + gs->cp.x = 0.0; + gs->cp.y = 0.0; + + pdf_setmatrix(M, 1.0, 0.0, 0.0, 1.0, 0.0, 0.0); + + pdf_color_graycolor(cs, 0.0); + pdf_color_graycolor(cf, 0.0); + + gs->linedash.num_dash = 0; + gs->linedash.offset = 0; + gs->linecap = 0; + gs->linejoin = 0; + gs->linewidth = 1.0; + gs->miterlimit = 10.0; + + gs->flatness = 1; /* default to 1 in PDF */ + + /* Internal variables */ + gs->flags = 0; + pdf_path__initpath(pa); + + return; +} + +static void +pdf_dev__clean_gstate (pdf_gstate *gs) +{ + pdf_path__cleanpath(&gs->path); + memset(gs, 0, sizeof(pdf_gstate)); + + return; +} + +static void +pdf_dev__copy_gstate (pdf_gstate *gs1, pdf_gstate *gs2) +{ + int i; + + ASSERT(gs1 && gs2); + + gs1->cp.x = gs2->cp.x; + gs1->cp.y = gs2->cp.y; + + pdf_copymatrix(&gs1->matrix, &gs2->matrix); + + /* TODO: + * Path should be linked list and gsave only + * record starting point within path rather than + * copying whole path. + */ + pdf_path__copypath(&gs1->path, &gs2->path); + + gs1->linedash.num_dash = gs2->linedash.num_dash; + for (i = 0; i < gs2->linedash.num_dash; i++) { + gs1->linedash.pattern[i] = gs2->linedash.pattern[i]; + } + gs1->linedash.offset = gs2->linedash.offset; + + gs1->linecap = gs2->linecap; + gs1->linejoin = gs2->linejoin; + gs1->linewidth = gs2->linewidth; + gs1->miterlimit = gs2->miterlimit; + gs1->flatness = gs2->flatness; + + pdf_color_copycolor(&gs1->fillcolor , &gs2->fillcolor); + pdf_color_copycolor(&gs1->strokecolor, &gs2->strokecolor); + + return; +} + +void +pdf_dev_init_gstates (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs; + + m_stack_init(gss); + + gs = NEW(1, pdf_gstate); + pdf_dev__init_gstate(gs); + + m_stack_push(gss, gs); /* Initial state */ + + return; +} + +void +pdf_dev_clean_gstates (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs; + + if (m_stack_depth(gss) > 1) /* at least 1 elem. */ + WARN("GS stack depth not 0 at end of document."); + + while ((gs = m_stack_pop(gss)) != NULL) { + pdf_dev__clean_gstate(gs); + RELEASE(gs); + } + + return; +} + + +int +pdf_dev_currentpoint (pdf_coord *p) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_coord *cpt = &gs->cp; + + ASSERT(p); + + p->x = cpt->x; p->y = cpt->y; + + return 0; +} + +int +pdf_dev_currentmatrix (pdf_tmatrix *M) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_tmatrix *CTM = &gs->matrix; + + ASSERT(M); + + pdf_copymatrix(M, CTM); + + return 0; +} + +#if 0 +int +pdf_dev_currentcolor (pdf_color *color, int is_fill) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_color *fcl = &gs->fillcolor; + pdf_color *scl = &gs->strokecolor; + + ASSERT(color); + + pdf_color_copycolor(color, is_fill ? fcl : scl); + + return 0; +} +#endif /* 0 */ + +int +pdf_dev_concat (const pdf_tmatrix *M) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_tmatrix *CTM = &gs->matrix; + pdf_tmatrix W; + char *buf = FORMAT_BUFF_PTR(NULL); + int len = 0; + + ASSERT(M); + + /* Adobe Reader erases page content if there are + * non invertible transformation. + */ + if (fabs(detP(M)) < 1.0e-8) { + WARN("Transformation matrix not invertible."); + WARN("--- M = [%g %g %g %g %g %g]", + M->a, M->b, M->c, M->d, M->e, M->f); + return -1; + } + + buf[len++] = ' '; + len += pdf_sprint_matrix(buf + len, M); + buf[len++] = ' '; + buf[len++] = 'c'; + buf[len++] = 'm'; + pdf_doc_add_page_content(buf, len); + + pdf_concatmatrix(CTM, M); + + inversematrix(&W, M); + + pdf_path__transform (cpa, &W); + pdf_coord__transform(cpt, &W); + + return 0; +} + + +int +pdf_dev_gsave (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs0, *gs1; + + gs0 = m_stack_top(gss); + gs1 = NEW(1, pdf_gstate); + + pdf_dev__init_gstate(gs1); + pdf_dev__copy_gstate(gs1, gs0); + + pdf_dev_currentcolor(&gs1->strokecolor, 0); + pdf_dev_currentcolor(&gs1->fillcolor, 1); + + m_stack_push(gss, gs1); + + pdf_doc_add_page_content(" q", 2); + + return 0; +} + + +int +pdf_dev_push_gstate (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs0; + + gs0 = NEW(1, pdf_gstate); + + pdf_dev__init_gstate(gs0); + + m_stack_push(gss, gs0); + + return 0; +} + + +int +pdf_dev_pop_gstate (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs; + + if (m_stack_depth(gss) <= 1) { /* Initial state at bottom */ + WARN("Too many grestores."); + return -1; + } + + gs = m_stack_pop(gss); + pdf_dev__clean_gstate(gs); + RELEASE(gs); + + return 0; +} + + +int +pdf_dev_current_depth (void) +{ + m_stack *gss = &_gsstck; + + return (m_stack_depth(gss) - 1); /* 0 means initial state */ +} + +void +pdf_dev_grestore_to (int depth) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs; + + ASSERT(depth >= 0); + + if (m_stack_depth(gss) > depth + 1) { + WARN("Closing pending transformations at end of page/XObject."); + } + + while (m_stack_depth(gss) > depth + 1) { + pdf_doc_add_page_content(" Q", 2); + gs = m_stack_pop(gss); + pdf_dev__clean_gstate(gs); + RELEASE(gs); + } +#if 0 + pdf_dev_reset_fonts(); +#else + pdf_dev_reset(); +#endif + + return; +} + +int +pdf_dev_grestore (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs; + pdf_color sc, fc; + + if (m_stack_depth(gss) <= 1) { /* Initial state at bottom */ + WARN("Too many grestores."); + return -1; + } + + gs = m_stack_pop(gss); + + pdf_color_copycolor(&sc, &gs->strokecolor); + pdf_color_copycolor(&fc, &gs->fillcolor); + + pdf_dev__clean_gstate(gs); + RELEASE(gs); + + pdf_doc_add_page_content(" Q", 2); + +#if 0 + pdf_dev_reset_fonts(); +#else + pdf_dev_reset(); +#endif + + pdf_dev_setcolor(&sc, 0); + pdf_dev_setcolor(&fc, 1); + + return 0; +} + +#if 0 +void +pdf_dev_reset_color (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_color fill, stroke; + + pdf_color_copycolor(&fill, &gs->fillcolor); + pdf_color_copycolor(&stroke, &gs->strokecolor); + + /* Clear current color: */ + pdf_color_graycolor(&gs->fillcolor, 0.0); + pdf_color_graycolor(&gs->strokecolor, 0.0); + + pdf_dev_setcolor(&stroke, 0); + pdf_dev_setcolor(&fill, 1); + + return; +} + +int +pdf_dev_setcolor (const pdf_color *color, int is_fill) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_color *fcl = &gs->fillcolor; + pdf_color *scl = &gs->strokecolor; + int colormode; + pdf_color *curcol; + + if (!color) { + WARN("No color specified."); + return -1; + } + + colormode = pdf_dev_get_param(PDF_DEV_PARAM_COLORMODE); + if (!colormode) { + WARN("setcolor ignored. (Ignore color option set)"); + return 0; + } + + curcol = is_fill ? fcl : scl; + if (!pdf_color_compare_color(color, curcol)) { + return 0; + } + + graphics_mode(); + pdf_color_print_color(color, is_fill); + + pdf_color_copycolor(curcol, color); + + return 0; +} +#endif + +/* + * num w LW linewidth (g.t. 0) + * int J LC linecap + * int j LJ linejoin + * num M ML miter limit (g.t. 0) + * array num d D line dash + * int ri RI renderint intnet + * int i FL flatness tolerance (0-100) + * name gs -- name: res. name of ExtGState dict. + */ +int +pdf_dev_setmiterlimit (double mlimit) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + int len = 0; + char *buf = FORMAT_BUFF_PTR(NULL); + + if (gs->miterlimit != mlimit) { + buf[len++] = ' '; + len += pdf_sprint_length(buf + len, mlimit); + buf[len++] = ' '; + buf[len++] = 'M'; + pdf_doc_add_page_content(buf, len); + gs->miterlimit = mlimit; + } + + return 0; +} + +int +pdf_dev_setlinecap (int capstyle) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + int len = 0; + char *buf = FORMAT_BUFF_PTR(NULL); + + if (gs->linecap != capstyle) { + len = sprintf(buf, " %d J", capstyle); + pdf_doc_add_page_content(buf, len); + gs->linecap = capstyle; + } + + return 0; +} + +int +pdf_dev_setlinejoin (int joinstyle) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + int len = 0; + char *buf = FORMAT_BUFF_PTR(NULL); + + if (gs->linejoin != joinstyle) { + len = sprintf(buf, " %d j", joinstyle); + pdf_doc_add_page_content(buf, len); + gs->linejoin = joinstyle; + } + + return 0; +} + +int +pdf_dev_setlinewidth (double width) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + int len = 0; + char *buf = FORMAT_BUFF_PTR(NULL); + + if (gs->linewidth != width) { + buf[len++] = ' '; + len += pdf_sprint_length(buf + len, width); + buf[len++] = ' '; + buf[len++] = 'w'; + pdf_doc_add_page_content(buf, len); + gs->linewidth = width; + } + + return 0; +} + +int +pdf_dev_setdash (int count, double *pattern, double offset) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + int len = 0; + char *buf = FORMAT_BUFF_PTR(NULL); + int i; + + gs->linedash.num_dash = count; + gs->linedash.offset = offset; + pdf_doc_add_page_content(" [", 2); + for (i = 0; i < count; i++) { + buf[0] = ' '; + len = pdf_sprint_length (buf + 1, pattern[i]); + pdf_doc_add_page_content(buf, len + 1); + gs->linedash.pattern[i] = pattern[i]; + } + pdf_doc_add_page_content("] ", 2); + len = pdf_sprint_length (buf, offset); + pdf_doc_add_page_content(buf, len); + pdf_doc_add_page_content(" d", 2); + + return 0; +} + +int +pdf_dev_setflat (int flatness) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + int len = 0; + char *buf = FORMAT_BUFF_PTR(NULL); + + if (flatness < 0 || flatness > 100) + return -1; + + if (gs->flatness != flatness) { + gs->flatness = flatness; + len = sprintf(buf, " %d i", flatness); + pdf_doc_add_page_content(buf, len); + } + + return 0; +} + +/* ZSYUEDVEDEOF */ +int +pdf_dev_clip (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + + return pdf_dev__flushpath(NULL, cpa, 'W', PDF_FILL_RULE_NONZERO, 0); +} + +int +pdf_dev_eoclip (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + + return pdf_dev__flushpath(NULL, cpa, 'W', PDF_FILL_RULE_EVENODD, 0); +} + +int +pdf_dev_flushpath (char p_op, int fill_rule) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + int error = 0; + + /* last arg 'ignore_rule' is only for single object + * that can be converted to a rect where fill rule + * is inessential. + */ + error = pdf_dev__flushpath(NULL, cpa, p_op, fill_rule, 1); + pdf_path__clearpath(cpa); + + gs->flags &= ~GS_FLAG_CURRENTPOINT_SET; + + return error; +} + +int +pdf_dev_newpath (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *p = &gs->path; + + if (PA_LENGTH(p) > 0) { + pdf_path__clearpath (p); + } + /* The following is required for "newpath" operator in mpost.c. */ + pdf_doc_add_page_content(" n", 2); + + return 0; +} + +int +pdf_dev_moveto (double x, double y) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord p; + + p.x = x; p.y = y; + return pdf_path__moveto(cpa, cpt, &p); /* cpt updated */ +} + +int +pdf_dev_rmoveto (double x, double y) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord p; + + p.x = cpt->x + x; + p.y = cpt->y + y; + return pdf_path__moveto(cpa, cpt, &p); /* cpt updated */ +} + +int +pdf_dev_lineto (double x, double y) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord p0; + + p0.x = x; p0.y = y; + + return pdf_path__lineto(cpa, cpt, &p0); +} + +int +pdf_dev_rlineto (double x, double y) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord p0; + + p0.x = x + cpt->x; p0.y = y + cpt->y; + + return pdf_path__lineto(cpa, cpt, &p0); +} + +int +pdf_dev_curveto (double x0, double y0, + double x1, double y1, + double x2, double y2) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord p0, p1, p2; + + p0.x = x0; p0.y = y0; + p1.x = x1; p1.y = y1; + p2.x = x2; p2.y = y2; + + return pdf_path__curveto(cpa, cpt, &p0, &p1, &p2); +} + +int +pdf_dev_rcurveto (double x0, double y0, + double x1, double y1, + double x2, double y2) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord p0, p1, p2; + + p0.x = x0 + cpt->x; p0.y = y0 + cpt->y; + p1.x = x1 + cpt->x; p1.y = y1 + cpt->y; + p2.x = x2 + cpt->x; p2.y = y2 + cpt->y; + + return pdf_path__curveto(cpa, cpt, &p0, &p1, &p2); +} + + +int +pdf_dev_closepath (void) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_coord *cpt = &gs->cp; + pdf_path *cpa = &gs->path; + + return pdf_path__closepath(cpa, cpt); +} + + +void +pdf_dev_dtransform (pdf_coord *p, const pdf_tmatrix *M) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_tmatrix *CTM = &gs->matrix; + + ASSERT(p); + + pdf_coord__dtransform(p, (M ? M : CTM)); + + return; +} + +void +pdf_dev_idtransform (pdf_coord *p, const pdf_tmatrix *M) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_tmatrix *CTM = &gs->matrix; + + ASSERT(p); + + pdf_coord__idtransform(p, (M ? M : CTM)); + + return; +} + +void +pdf_dev_transform (pdf_coord *p, const pdf_tmatrix *M) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_tmatrix *CTM = &gs->matrix; + + ASSERT(p); + + pdf_coord__transform(p, (M ? M : CTM)); + + return; +} + +void +pdf_dev_itransform (pdf_coord *p, const pdf_tmatrix *M) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_tmatrix *CTM = &gs->matrix; + + ASSERT(p); + + pdf_coord__itransform(p, (M ? M : CTM)); + + return; +} + +int +pdf_dev_arc (double c_x , double c_y, double r, + double a_0 , double a_1) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord c; + + c.x = c_x; c.y = c_y; + + return pdf_path__elliptarc(cpa, cpt, &c, r, r, 0.0, a_0, a_1, +1); +} + +/* *negative* arc */ +int +pdf_dev_arcn (double c_x , double c_y, double r, + double a_0 , double a_1) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord c; + + c.x = c_x; c.y = c_y; + + return pdf_path__elliptarc(cpa, cpt, &c, r, r, 0.0, a_0, a_1, -1); +} + +int +pdf_dev_arcx (double c_x , double c_y, + double r_x , double r_y, + double a_0 , double a_1, + int a_d , + double xar) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord c; + + c.x = c_x; c.y = c_y; + + return pdf_path__elliptarc(cpa, cpt, &c, r_x, r_y, xar, a_0, a_1, a_d); +} + +/* Required by Tpic */ +int +pdf_dev_bspline (double x0, double y0, + double x1, double y1, double x2, double y2) +{ + m_stack *gss = &_gsstck; + pdf_gstate *gs = m_stack_top(gss); + pdf_path *cpa = &gs->path; + pdf_coord *cpt = &gs->cp; + pdf_coord p1, p2, p3; + + p1.x = x0 + 2.0 * (x1 - x0) / 3.0; + p1.y = y0 + 2.0 * (y1 - y0) / 3.0; + p2.x = x1 + (x2 - x1) / 3.0; + p2.y = y1 + (y2 - y1) / 3.0; + p3.x = x2; + p3.y = y2; + + return pdf_path__curveto(cpa, cpt, &p1, &p2, &p3); +} + + +int +pdf_dev_rectstroke (double x, double y, + double w, double h, + const pdf_tmatrix *M /* optional */ + ) +{ + pdf_rect r; + + r.llx = x; + r.lly = y; + r.urx = x + w; + r.ury = y + h; + + return pdf_dev__rectshape(NULL, &r, M, 'S'); +} + +int +pdf_dev_rectfill (double x, double y, + double w, double h) +{ + pdf_rect r; + + r.llx = x; + r.lly = y; + r.urx = x + w; + r.ury = y + h; + + return pdf_dev__rectshape(NULL, &r, NULL, 'f'); +} + +int +pdf_dev_rectclip (double x, double y, + double w, double h) +{ + pdf_rect r; + + r.llx = x; + r.lly = y; + r.urx = x + w; + r.ury = y + h; + + return pdf_dev__rectshape(NULL, &r, NULL, 'W'); +} diff --git a/Build/source/texk/xdvipdfmx/src/pdfdraw.h b/Build/source/texk/xdvipdfmx/src/pdfdraw.h new file mode 100644 index 00000000000..299f66b50b0 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfdraw.h @@ -0,0 +1,160 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfdraw.h,v 1.10 2005/08/31 08:22:42 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDF_DRAW_H_ +#define _PDF_DRAW_H_ + +#include "pdfcolor.h" +#include "pdfdev.h" + +#define PDF_DASH_SIZE_MAX 16 +#define PDF_GSAVE_MAX 256 + +extern void pdf_dev_init_gstates (void); +extern void pdf_dev_clean_gstates (void); + +#define pdf_copymatrix(m,n) do {\ + (m)->a = (n)->a; (m)->b = (n)->b;\ + (m)->c = (n)->c; (m)->d = (n)->d;\ + (m)->e = (n)->e; (m)->f = (n)->f;\ +} while (0) + +#define pdf_setmatrix(m,p,q,r,s,t,u) do {\ + (m)->a = (p); (m)->b = (q);\ + (m)->c = (r); (m)->d = (s);\ + (m)->e = (t); (m)->f = (u);\ +} while (0) + +/* m -> n x m */ +#define pdf_concatmatrix(m,n) do {\ + double _tmp_a, _tmp_b, _tmp_c, _tmp_d; \ + _tmp_a = (m)->a; _tmp_b = (m)->b; \ + _tmp_c = (m)->c; _tmp_d = (m)->d; \ + (m)->a = ((n)->a) * _tmp_a + ((n)->b) * _tmp_c; \ + (m)->b = ((n)->a) * _tmp_b + ((n)->b) * _tmp_d; \ + (m)->c = ((n)->c) * _tmp_a + ((n)->d) * _tmp_c; \ + (m)->d = ((n)->c) * _tmp_b + ((n)->d) * _tmp_d; \ + (m)->e += ((n)->e) * _tmp_a + ((n)->f) * _tmp_c; \ + (m)->f += ((n)->e) * _tmp_b + ((n)->f) * _tmp_d; \ +} while (0) + +typedef struct pdf_path_ pdf_path; + +extern int pdf_dev_currentmatrix (pdf_tmatrix *M); +extern int pdf_dev_currentpoint (pdf_coord *cp); + +extern int pdf_dev_setlinewidth (double width); +extern int pdf_dev_setmiterlimit (double mlimit); +extern int pdf_dev_setlinecap (int style); +extern int pdf_dev_setlinejoin (int style); +extern int pdf_dev_setdash (int count, + double *pattern, + double offset); +extern int pdf_dev_setflat (int flatness); + +/* Path Construction */ +extern int pdf_dev_moveto (double x , double y); +extern int pdf_dev_rmoveto (double x , double y); +extern int pdf_dev_closepath (void); + +extern int pdf_dev_lineto (double x0 , double y0); +extern int pdf_dev_rlineto (double x0 , double y0); +extern int pdf_dev_curveto (double x0 , double y0, + double x1 , double y1, + double x2 , double y2); +extern int pdf_dev_rcurveto (double x0 , double y0, + double x1 , double y1, + double x2 , double y2); +extern int pdf_dev_arc (double c_x, double c_y, double r, + double a_0, double a_1); +extern int pdf_dev_arcn (double c_x, double c_y, double r, + double a_0, double a_1); + +#define PDF_FILL_RULE_NONZERO 0 +#define PDF_FILL_RULE_EVENODD 1 + +extern int pdf_dev_newpath (void); + +/* Path Painting */ +extern int pdf_dev_clip (void); +extern int pdf_dev_eoclip (void); + + +extern int pdf_dev_rectstroke (double x, double y, + double w, double h, + const pdf_tmatrix *M /* optional */ + ); +extern int pdf_dev_rectfill (double x, double y, double w, double h); +extern int pdf_dev_rectclip (double x, double y, double w, double h); + +extern int pdf_dev_flushpath (char p_op, int fill_rule); + +#define pdf_dev_fill() pdf_dev_flushpath('f', PDF_FILL_RULE_NONZERO) +#define pdf_dev_eofill() pdf_dev_flushpath('f', PDF_FILL_RULE_EVENODD) +#define pdf_dev_stroke() pdf_dev_flushpath('S', PDF_FILL_RULE_NONZERO) +#define pdf_dev_fillstroke() pdf_dev_flushpath('B', PDF_FILL_RULE_NONZERO) + +extern int pdf_dev_concat (const pdf_tmatrix *M); +/* NULL pointer of M mean apply current transformation */ +extern void pdf_dev_dtransform (pdf_coord *p, const pdf_tmatrix *M); +extern void pdf_dev_idtransform (pdf_coord *p, const pdf_tmatrix *M); +extern void pdf_dev_transform (pdf_coord *p, const pdf_tmatrix *M); +extern void pdf_dev_itransform (pdf_coord *p, const pdf_tmatrix *M); + +extern int pdf_dev_gsave (void); +extern int pdf_dev_grestore (void); + +/* Requires from mpost.c because new MetaPost graphics must initialize + * the current gstate. */ +extern int pdf_dev_push_gstate (void); +extern int pdf_dev_pop_gstate (void); + + +/* extension */ +extern int pdf_dev_arcx (double c_x, double c_y, + double r_x, double r_y, + double a_0, double a_1, + int a_d, /* arc direction */ + double xar /* x-axis-rotation */ + ); +extern int pdf_dev_bspline (double x0, double y0, + double x1, double y1, + double x2, double y2); + + +extern void pdf_invertmatrix (pdf_tmatrix *M); + +/* The depth here is the depth of q/Q nesting. + * We must remember current depth of nesting when starting a page or xform, + * and must recover until that depth at the end of page/xform. + */ +extern int pdf_dev_current_depth (void); +extern void pdf_dev_grestore_to (int depth); +#define pdf_dev_grestoreall() pdf_dev_grestore_to(0); + +extern void pdf_dev_reset_color (void); +extern int pdf_dev_currentcolor (pdf_color *color, int is_fill); +extern int pdf_dev_setcolor (const pdf_color *color, int is_fill); + +#endif /* _PDF_DRAW_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfencoding.c b/Build/source/texk/xdvipdfmx/src/pdfencoding.c new file mode 100644 index 00000000000..bbf8e03a280 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfencoding.c @@ -0,0 +1,1178 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfencoding.c,v 1.5 2005/07/21 08:23:46 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "pdfparse.h" +#include "pdfobj.h" + +#include "dpxfile.h" + +#include "pdfencoding.h" + +#define _ENCODINGS_C_ +#include "asl_charset.h" +#undef _ENCODINGS_C_ + +static int is_ASL_charset (char **encoding); +static pdf_obj *make_encoding_differences (char **encoding, char **baseenc); + +static unsigned char verbose = 0; + +static const char *MacRomanEncoding[256]; +static const char *MacExpertEncoding[256]; +static const char *WinAnsiEncoding[256]; +static const char *StandardEncoding[256]; +static const char *ISOLatin1Encoding[256]; + +void +pdf_encoding_set_verbose (void) +{ + verbose++; +} + +/* + * ident: File name, e.g., 8a.enc. + * name: Name of encoding, StandardEncoding, TeXBase1Encoding, ... + * glyphs: List of encoded glyphs (name). + * flags: + * IS_PREDEFINED: + * Encoding is one of the MacRomanEncoding, MacExpertEncoding, and + * WinAnsiEncoding. + * IS_ASL_CHARSET: + * Encoded glyphs are only form Adobe Standard Latin Character Set. + * Fonts only uses encodings of this flag set can be "nonsymbolic". + */ +#define FLAG_IS_PREDEFINED (1 << 0) +#define FLAG_IS_ASL_CHARSET (1 << 1) + +typedef struct pdf_encoding +{ + char *ident; + + char *enc_name; + int flags; + char *glyphs[256]; + char is_used[256]; + + pdf_obj *tounicode; + char accessible[256]; /* Flag indicating if glyphs + * are accessible in Unicode. + */ + + pdf_obj *resource; + pdf_obj *reference; +} pdf_encoding; + +static void +pdf_init_encoding_struct (pdf_encoding *encoding) +{ + ASSERT(encoding); + + encoding->ident = NULL; + + encoding->enc_name = NULL; + + memset(encoding->glyphs, 0, 256*sizeof(char *)); + memset(encoding->is_used, 0, 256); + + memset(encoding->accessible, 0, 256); + encoding->tounicode = NULL; + + encoding->resource = NULL; + encoding->reference = NULL; + + encoding->flags = 0; + + return; +} + +static void +pdf_flush_encoding (pdf_encoding *encoding) +{ + ASSERT(encoding); + + if (encoding->resource) + pdf_release_obj(encoding->resource); + if (encoding->reference) + pdf_release_obj(encoding->reference); + if (encoding->tounicode) { + pdf_obj *tounicode; + + tounicode = pdf_create_ToUnicode_CMap(encoding->enc_name, + encoding->glyphs, + encoding->is_used); + if (tounicode) { + pdf_add_stream(encoding->tounicode, + pdf_stream_dataptr(tounicode), + pdf_stream_length(tounicode)); + pdf_release_obj(tounicode); + } + pdf_release_obj(encoding->tounicode); + encoding->tounicode = NULL; + } + + encoding->resource = NULL; + encoding->reference = NULL; + + return; +} + +static void +pdf_clean_encoding_struct (pdf_encoding *encoding) +{ + int code; + + ASSERT(encoding); + + if (encoding->reference) + ERROR("Object not flushed."); + if (encoding->resource) + ERROR("Object not flushed."); + + if (encoding->tounicode) + pdf_release_obj(encoding->tounicode); + if (encoding->ident) + RELEASE(encoding->ident); + if (encoding->enc_name) + RELEASE(encoding->enc_name); + + encoding->ident = NULL; + encoding->enc_name = NULL; + + for (code = 0; code < 256; code++) { + if (encoding->glyphs[code]) + RELEASE(encoding->glyphs[code]); + encoding->glyphs[code] = NULL; + } + encoding->ident = NULL; + encoding->enc_name = NULL; + + return; +} + +/* + * The original dvipdfm describes as: + * + * Some software doesn't like BaseEncoding key (e.g., FastLane) + * so this code is commented out for the moment. It may reemerge in the + * future + * + * and the line for BaseEncoding is commented out. + * + * I'm not sure why this happens. But maybe BaseEncoding key causes problems + * when the font is Symbol font or TrueType font. + */ + +static void +pdf_encoding_set_encoding (pdf_encoding *encoding, + char **encoding_vec, const char *baseenc_name) +{ + char **baseenc_vec = NULL; + pdf_obj *differences; + int code; + + ASSERT(encoding); + ASSERT(encoding_vec); + + if (encoding->reference) { + WARN("Object already have a label... flushing"); + pdf_flush_encoding(encoding); + } + + encoding->flags = 0; + if (!encoding->resource) { + encoding->resource = pdf_new_dict(); + pdf_add_dict(encoding->resource, + pdf_new_name("Type"), pdf_new_name("Encoding")); + } + + for (code = 0; code < 256; code++) { + if (encoding->glyphs[code]) + RELEASE(encoding->glyphs[code]); + if (!encoding_vec[code] || + !strcmp(encoding_vec[code], ".notdef")) + encoding->glyphs[code] = NULL; + else { + encoding->glyphs[code] = NEW(strlen(encoding_vec[code])+1, char); + strcpy(encoding->glyphs[code], encoding_vec[code]); + } + } + + if (baseenc_name) { + if (!strcmp(baseenc_name, "WinAnsiEncoding")) + baseenc_vec = (char **) WinAnsiEncoding; + else if (!strcmp(baseenc_name, "MacRomanEncoding")) + baseenc_vec = (char **) MacRomanEncoding; + else if (!strcmp(baseenc_name, "MacExpertEncoding")) + baseenc_vec = (char **) MacExpertEncoding; + else + ERROR("Unknown encoding \"%s\".", baseenc_name); + } else { + baseenc_vec = NULL; + } + + if (is_ASL_charset(encoding->glyphs)) { + encoding->flags |= FLAG_IS_ASL_CHARSET; + /* Dvipdfmx default setting. */ + if (!baseenc_name) { + baseenc_vec = (char **) WinAnsiEncoding; + baseenc_name = (char *) "WinAnsiEncoding"; + } + } + + if (baseenc_name) { + pdf_add_dict(encoding->resource, + pdf_new_name("BaseEncoding"), pdf_new_name(baseenc_name)); + } + differences = make_encoding_differences(encoding->glyphs, baseenc_vec); + if (differences) { + pdf_add_dict(encoding->resource, pdf_new_name("Differences"), differences); + } + + return; +} + +static int CDECL +glycmp (const void *pv1, const void *pv2) +{ + char *v1, *v2; + + v1 = (char *) pv1; + v2 = *((char **) pv2); + + return strcmp(v1, v2); +} + +static int +is_ASL_charset (char **enc_vec) +{ + int code; + + for (code = 0; code < 256; code++) { + if (enc_vec[code] && strcmp(enc_vec[code], ".notdef")) { + if (!bsearch(enc_vec[code], + ASL_Charset, ASL_CHARSET_MAX, sizeof(char *), glycmp)) + return 0; + } + } + + return 1; +} + +static pdf_obj * +make_encoding_differences (char **enc_vec, char **baseenc) +{ + pdf_obj *differences = NULL; + int code, count = 0; + int skipping = 1; + + ASSERT(enc_vec); + + /* + * Write all entries (except .notdef) if baseenc is unknown. + */ + differences = pdf_new_array(); + for (code = 0; code < 256; code++) { + /* We skip ".notdef". Any character code mapped to ".notdef" + * glyph should not be used in the document. + */ + if (!enc_vec[code] || !strcmp(".notdef", enc_vec[code])) + skipping = 1; + else if (!baseenc || !baseenc[code] || + strcmp(baseenc[code], enc_vec[code]) != 0) { + /* + * Difference found. + */ + if (skipping) + pdf_add_array(differences, pdf_new_number(code)); + pdf_add_array(differences, pdf_new_name(enc_vec[code])); + skipping = 0; + count++; + } else + skipping = 1; + } + + /* + * No difference found. Some PDF viewers can't handle differences without + * any differences. We return NULL. + */ + if (count == 0) { + pdf_release_obj(differences); + differences = NULL; + } + + return differences; +} + +static int +load_encoding_file (pdf_encoding *encoding, const char *filename) +{ + FILE *fp; + pdf_obj *encoding_array = NULL; + char *wbuf, *p, *endptr; + char *enc_vec[256]; + int code, fsize; + + if (!encoding || !filename) + return -1; + + fp = DPXFOPEN(filename, DPX_RES_TYPE_ENC); + if (!fp) + return -1; + /* + * file_size do seek_end witout saving current position and + * do rewind. + */ + fsize = file_size(fp); + + wbuf = NEW(fsize + 1, char); + fread(wbuf, sizeof(char), fsize, fp); + DPXFCLOSE(fp); + + p = wbuf; + endptr = wbuf + fsize; + p[fsize] = '\0'; + + skip_white(&p, endptr); + + /* + * Skip comment lines. + */ + while (p < endptr && p[0] == '%') { + skip_line (&p, endptr); + skip_white(&p, endptr); + } + if (p[0] == '/') { + pdf_obj *tmp; + + tmp = parse_pdf_name(&p, endptr); + + encoding->enc_name = NEW(strlen(pdf_name_value(tmp))+1, char); + strcpy(encoding->enc_name, pdf_name_value(tmp)); + pdf_release_obj(tmp); + } + + skip_white(&p, endptr); + encoding_array = parse_pdf_array(&p, endptr); + RELEASE(wbuf); + if (!encoding_array) { + return -1; + } + + for (code = 0; code < 256; code++) { + enc_vec[code] = pdf_name_value(pdf_get_array(encoding_array, code)); + } + pdf_encoding_set_encoding(encoding, enc_vec, NULL); + pdf_release_obj(encoding_array); + + return 0; +} + +#define CHECK_ID(n) do { \ + if ((n) < 0 || (n) >= enc_cache.count) { \ + ERROR("Invalid encoding id: %d", (n)); \ + } \ +} while (0) + +#define CACHE_ALLOC_SIZE 16u + +struct { + int count; + int capacity; + pdf_encoding *encodings; +} enc_cache = { + 0, 0, NULL +}; + +void +pdf_init_encodings (void) +{ + pdf_encoding *encoding; + int code; + + enc_cache.count = 0; + enc_cache.capacity = 3; + enc_cache.encodings = NEW(enc_cache.capacity, pdf_encoding); + + /* + * PDF Predefined Encodings + */ + encoding = &enc_cache.encodings[0]; + pdf_init_encoding_struct(encoding); + encoding->ident = NEW(strlen("WinAnsiEncoding")+1, char); + strcpy(encoding->ident, "WinAnsiEncoding"); + encoding->enc_name = NEW(strlen("WinAnsiEncoding")+1, char); + strcpy(encoding->enc_name, "WinAnsiEncoding"); + encoding->flags = (FLAG_IS_PREDEFINED|FLAG_IS_ASL_CHARSET); + encoding->resource = pdf_new_name("WinAnsiEncoding"); + for (code = 0; code < 256; code++) { + if (!WinAnsiEncoding[code] || + !strcmp(WinAnsiEncoding[code], ".notdef")) + encoding->glyphs[code] = NULL; + else { + encoding->glyphs[code] = NEW(strlen(WinAnsiEncoding[code])+1, char); + strcpy(encoding->glyphs[code], WinAnsiEncoding[code]); + } + } + + encoding = &enc_cache.encodings[1]; + pdf_init_encoding_struct(encoding); + encoding->ident = NEW(strlen("MacRomanEncoding")+1, char); + strcpy(encoding->ident, "MacRomanEncoding"); + encoding->enc_name = NEW(strlen("MacRomanEncoding")+1, char); + strcpy(encoding->enc_name, "MacRomanEncoding"); + encoding->flags = (FLAG_IS_PREDEFINED|FLAG_IS_ASL_CHARSET); + encoding->resource = pdf_new_name("MacRomanEncoding"); + for (code = 0; code < 256; code++) { + if (!MacRomanEncoding[code] || + !strcmp(MacRomanEncoding[code], ".notdef")) + encoding->glyphs[code] = NULL; + else { + encoding->glyphs[code] = NEW(strlen(MacRomanEncoding[code])+1, char); + strcpy(encoding->glyphs[code], MacRomanEncoding[code]); + } + } + + encoding = &enc_cache.encodings[2]; + pdf_init_encoding_struct(encoding); + encoding->ident = NEW(strlen("MacExpertEncoding")+1, char); + strcpy(encoding->ident, "MacExpertEncoding"); + encoding->enc_name = NEW(strlen("MacExpertEncoding")+1, char); + strcpy(encoding->enc_name, "MacExpertEncoding"); + encoding->flags = FLAG_IS_PREDEFINED; + encoding->resource = pdf_new_name("MacExpertEncoding"); + for (code = 0; code < 256; code++) { + if (!MacExpertEncoding[code] || + !strcmp(MacExpertEncoding[code], ".notdef")) + encoding->glyphs[code] = NULL; + else { + encoding->glyphs[code] = NEW(strlen(MacExpertEncoding[code])+1, char); + strcpy(encoding->glyphs[code], MacExpertEncoding[code]); + } + } + + enc_cache.count = 3; + + return; +} + +void +pdf_close_encodings (void) +{ + int enc_id; + + if (enc_cache.encodings) { + for (enc_id = 0; enc_id < enc_cache.count; enc_id++) { + pdf_encoding *encoding; + + encoding = &enc_cache.encodings[enc_id]; + if (encoding) { + pdf_flush_encoding(encoding); + pdf_clean_encoding_struct(encoding); + } + } + RELEASE(enc_cache.encodings); + } + enc_cache.encodings = NULL; + enc_cache.count = 0; + enc_cache.capacity = 0; +} + +int +pdf_encoding_findresource (const char *enc_name) +{ + int enc_id; + pdf_encoding *encoding; + + ASSERT(enc_name); + for (enc_id = 0; enc_id < enc_cache.count; enc_id++) { + encoding = &enc_cache.encodings[enc_id]; + if (encoding->ident && + !strcmp(enc_name, encoding->ident)) + return enc_id; + else if (encoding->enc_name && + !strcmp(enc_name, encoding->enc_name)) + return enc_id; + } + + if (verbose) { + MESG("(Encoding:%s", enc_name); + } + + enc_id = enc_cache.count; + if (enc_cache.count >= enc_cache.capacity) { + enc_cache.capacity += 16; + enc_cache.encodings = RENEW(enc_cache.encodings, + enc_cache.capacity, pdf_encoding); + } + encoding = &enc_cache.encodings[enc_id]; + + pdf_init_encoding_struct(encoding); + encoding->ident = NEW(strlen(enc_name)+1, char); + strcpy(encoding->ident, enc_name); + if (load_encoding_file(encoding, enc_name) < 0) { + pdf_clean_encoding_struct(encoding); + return -1; + } + + if (verbose > 1) { + if (encoding->enc_name) { + MESG("[%s]", encoding->enc_name); + } + } + + if (verbose) MESG(")"); + + enc_cache.count++; + + return enc_id; +} + + +/* + * Pointer will change if other encoding is loaded... + */ + +char ** +pdf_encoding_get_encoding (int enc_id) +{ + pdf_encoding *encoding; + + CHECK_ID(enc_id); + + encoding = &enc_cache.encodings[enc_id]; + + return encoding->glyphs; +} + +pdf_obj * +pdf_get_encoding_reference (int enc_id) +{ + pdf_encoding *encoding; + + CHECK_ID(enc_id); + + encoding = &enc_cache.encodings[enc_id]; + + if (!encoding->reference) + encoding->reference = pdf_ref_obj(encoding->resource); + + return pdf_link_obj(encoding->reference); +} + +int +pdf_encoding_is_predefined (int enc_id) +{ + pdf_encoding *encoding; + + CHECK_ID(enc_id); + + encoding = &enc_cache.encodings[enc_id]; + + return (encoding->flags & FLAG_IS_PREDEFINED) ? 1 : 0; +} + +int +pdf_encoding_is_ASL_charset (int enc_id) +{ + pdf_encoding *encoding; + + CHECK_ID(enc_id); + + encoding = &enc_cache.encodings[enc_id]; + + return (encoding->flags & FLAG_IS_ASL_CHARSET) ? 1 : 0; +} + +char * +pdf_encoding_get_name (int enc_id) +{ + pdf_encoding *encoding; + + CHECK_ID(enc_id); + + encoding = &enc_cache.encodings[enc_id]; + + return encoding->enc_name; +} + +/* CSI_UNICODE */ +#include "cid.h" + +#include "cmap.h" +#include "cmap_read.h" +#include "cmap_write.h" + +#include "agl.h" + +#define WBUF_SIZE 1024 +static unsigned char wbuf[WBUF_SIZE]; +static unsigned char range_min[1] = {0x00u}; +static unsigned char range_max[1] = {0xFFu}; + +#define UNICODE_ACCESSIBLE 1 +#define UNICODE_INACCESSIBLE -1 +#define UNICODE_UNKNOWN 0 + +static int +check_unicode_mappable (pdf_encoding *encoding, char *is_used) +{ + int code; + int glyph_count, total_fail_count; + + glyph_count = total_fail_count = 0; + for (code = 0; code <= 0xff; code++) { + if (is_used && !is_used[code]) + continue; + + switch (encoding->accessible[code]) { + case UNICODE_ACCESSIBLE: + break; + case UNICODE_INACCESSIBLE: + total_fail_count++; + break; + default: /* Unknown */ + if (!encoding->glyphs[code] || + !strcmp(encoding->glyphs[code], ".notdef")) + encoding->accessible[code] = UNICODE_INACCESSIBLE; + else { + long len; + int fail_count = 0; + unsigned char *p, *endptr; + + p = wbuf; + endptr = wbuf + WBUF_SIZE; + len = agl_sput_UTF16BE(encoding->glyphs[code], + &p, endptr, &fail_count); + if (len < 1 || fail_count > 0) { + total_fail_count++; + encoding->accessible[code] = UNICODE_INACCESSIBLE; + } else { + encoding->accessible[code] = UNICODE_ACCESSIBLE; + } + } + } + glyph_count++; + } + + if (glyph_count < 1) + return 0; + + return (int) (100.0 * total_fail_count / glyph_count + 0.5); +} + +int +pdf_attach_ToUnicode_CMap (pdf_obj *fontdict, + int encoding_id, char *is_used) +{ + pdf_encoding *encoding; + int inaccessibles, code; + + ASSERT(fontdict); + + CHECK_ID(encoding_id); + + if (pdf_encoding_is_predefined(encoding_id)) { + return 0; + } + + encoding = &enc_cache.encodings[encoding_id]; + + inaccessibles = check_unicode_mappable(encoding, is_used); + if (inaccessibles > 10) { /* 10 % */ + if (verbose) { + WARN("%d%% of glyph in font (encoding: %s) could not converted to Unicode.", + inaccessibles, encoding->enc_name); + WARN("ToUnicode CMap not attached for this font."); + } + return -1; + } + + for (code = 0; code <= 0xff; code++) { + if (is_used && !is_used[code]) + continue; + encoding->is_used[code] = 1; + } + + if (!encoding->tounicode) { + encoding->tounicode = pdf_new_stream(STREAM_COMPRESS); + } + + pdf_add_dict(fontdict, + pdf_new_name("ToUnicode"), + pdf_ref_obj(encoding->tounicode)); + + return 0; +} + + + +pdf_obj * +pdf_create_ToUnicode_CMap (const char *enc_name, + char **enc_vec, char *is_used) +{ + pdf_obj *stream; + CMap *cmap; + int code, glyph_count, total_fail_count; + char *cmap_name; + unsigned char *p, *endptr; + + ASSERT(enc_name && enc_vec); + + cmap_name = NEW(strlen(enc_name)+strlen("-UTF16")+1, char); + sprintf(cmap_name, "%s-UTF16", enc_name); + + cmap = CMap_new(); + CMap_set_name (cmap, cmap_name); + CMap_set_type (cmap, CMAP_TYPE_TO_UNICODE); + CMap_set_wmode(cmap, 0); + + CMap_set_CIDSysInfo(cmap, &CSI_UNICODE); + + CMap_add_codespacerange(cmap, range_min, range_max, 1); + + glyph_count = total_fail_count = 0; + for (code = 0; code <= 0xff; code++) { + if (is_used && !is_used[code]) + continue; + + if (enc_vec[code] && strcmp(enc_vec[code], ".notdef")) { + long len; + int fail_count = 0; + + wbuf[0] = (code & 0xff); + p = wbuf + 1; + endptr = wbuf + WBUF_SIZE; + len = agl_sput_UTF16BE(enc_vec[code], &p, endptr, &fail_count); + if (len < 1 || fail_count > 0) { + total_fail_count++; + } else { + CMap_add_bfchar(cmap, wbuf, 1, wbuf + 1, len); + } + glyph_count++; + } + } + + if (total_fail_count < (glyph_count + 9) / 10) { + stream = CMap_create_stream(cmap, 0); + } else { + if (verbose) { + WARN("%d (out of %d) glyphs in encoding \"%s\" missing Unicode mapping...", + total_fail_count, glyph_count, enc_name); + WARN("ToUnicode CMap \"%s\" removed.", cmap_name); + } + stream = NULL; + } + CMap_release(cmap); + RELEASE(cmap_name); + + return stream; +} + + +pdf_obj * +pdf_load_ToUnicode_stream (const char *ident) +{ + pdf_obj *stream = NULL; + CMap *cmap; + FILE *fp; + + if (!ident) + return NULL; + + fp = DPXFOPEN(ident, DPX_RES_TYPE_CMAP); + if (!fp) + return NULL; + else if (CMap_parse_check_sig(fp) < 0) { + DPXFCLOSE(fp); + return NULL; + } + + cmap = CMap_new(); + if (CMap_parse(cmap, fp) < 0) { + WARN("Reading CMap file \"%s\" failed.", ident); + } else { + if (verbose) { + MESG("(CMap:%s)", ident); + } + stream = CMap_create_stream(cmap, 0); + if (!stream) { + WARN("Failed to creat ToUnicode CMap stream for \"%s\".", ident); + } + } + CMap_release(cmap); + DPXFCLOSE(fp); + + return stream; +} + + +static const char * +MacRomanEncoding[256] = { + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + "space", "exclam", "quotedbl", "numbersign", + "dollar", "percent", "ampersand", "quotesingle", + "parenleft", "parenright", "asterisk", "plus", + "comma", "hyphen", "period", "slash", + "zero", "one", "two", "three", + "four", "five", "six", "seven", + "eight", "nine", "colon", "semicolon", + "less", "equal", "greater", "question", + "at", "A", "B", "C", + "D", "E", "F", "G", "H", + "I", "J", "K", "L", + "M", "N", "O", "P", + "Q", "R", "S", "T", + "U", "V", "W", "X", + "Y", "Z", "bracketleft", "backslash", + "bracketright", "asciicircum", "underscore", + "grave", "a", "b", "c", + "d", "e", "f", "g", + "h", "i", "j", "k", + "l", "m", "n", "o", + "p", "q", "r", "s", + "t", "u", "v", "w", + "x", "y", "z", "braceleft", + "bar", "braceright", "asciitilde", ".notdef", + "Adieresis", "Aring", "Ccedilla", "Eacute", + "Ntilde", "Odieresis", "Udieresis", "aacute", + "agrave", "acircumflex", "adieresis", "atilde", + "aring", "ccedilla", "eacute", "egrave", + "ecircumflex", "edieresis", "iacute", "igrave", + "icircumflex", "idieresis", "ntilde", "oacute", + "ograve", "ocircumflex", "odieresis", "otilde", + "uacute", "ugrave", "ucircumflex", "udieresis", + "dagger", "degree", "cent", "sterling", + "section", "bullet", "paragraph", "germandbls", + "registered", "copyright", "trademark", "acute", + "dieresis", "notequal", "AE", "Oslash", + "infinity", "plusminus", "lessequal", "greaterequal", + "yen", "mu", "partialdiff", "summation", + "product", "pi", "integral", "ordfeminine", + "ordmasculine", "Omega", "ae", "oslash", + "questiondown", "exclamdown", "logicalnot", "radical", + "florin", "approxequal", "Delta", "guillemotleft", + "guillemotright", "ellipsis", "space", "Agrave", + "Atilde", "Otilde", "OE", "oe", + "endash", "emdash", "quotedblleft", "quotedblright", + "quoteleft", "quoteright", "divide", "lozenge", + "ydieresis", "Ydieresis", "fraction", "currency", + "guilsinglleft", "guilsinglright", "fi", "fl", + "daggerdbl", "periodcentered", "quotesinglbase", "quotedblbase", + "perthousand", "Acircumflex", "Ecircumflex", "Aacute", + "Edieresis", "Egrave", "Iacute", "Icircumflex", + "Idieresis", "Igrave", "Oacute", "Ocircumflex", + "apple", "Ograve", "Uacute", "Ucircumflex", + "Ugrave", "dotlessi", "circumflex", "tilde", + "macron", "breve", "dotaccent", "ring", + "cedilla", "hungarumlaut", "ogonek", "caron" +}; + +static const char * +MacExpertEncoding[256] = { + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + "space", "exclamsmall", "Hungarumlautsmall", "centoldstyle", + "dollaroldstyle", "dollarsuperior", "ampersandsmall", "Acutesmall", + "parenleftsuperior", "parenrightsuperior", "twodotenleader", "onedotenleader", + "comma", "hyphen", "period", "fraction", + "zerooldstyle", "oneoldstyle", "twooldstyle", "threeoldstyle", + "fouroldstyle", "fiveoldstyle", "sixoldstyle", "sevenoldstyle", + "eightoldstyle", "nineoldstyle", "colon", "semicolon", + ".notdef", "threequartersemdash", ".notdef", "questionsmall", + ".notdef", ".notdef", ".notdef", ".notdef", + "Ethsmall", ".notdef", ".notdef", "onequarter", + "onehalf", "threequarters", "oneeighth", "threeeighths", + "fiveeighths", "seveneighths", "onethird", "twothirds", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", "ff", "fi", + "fl", "ffi", "ffl", "parenleftinferior", + ".notdef", "parenrightinferior", "Circumflexsmall", "hypheninferior", + "Gravesmall", "Asmall", "Bsmall", "Csmall", + "Dsmall", "Esmall", "Fsmall", "Gsmall", + "Hsmall", "Ismall", "Jsmall", "Ksmall", + "Lsmall", "Msmall", "Nsmall", "Osmall", + "Psmall", "Qsmall", "Rsmall", "Ssmall", + "Tsmall", "Usmall", "Vsmall", "Wsmall", + "Xsmall", "Ysmall", "Zsmall", "colonmonetary", + "onefitted", "rupiah", "Tildesmall", ".notdef", + ".notdef", "asuperior", "centsuperior", ".notdef", + ".notdef", ".notdef", ".notdef", "Aacutesmall", + "Agravesmall", "Acircumflexsmall", "Adieresissmall", "Atildesmall", + "Aringsmall", "Ccedillasmall", "Eacutesmall", "Egravesmall", + "Ecircumflexsmall", "Edieresissmall", "Iacutesmall", "Igravesmall", + "Icircumflexsmall", "Idieresissmall", "Ntildesmall", "Oacutesmall", + "Ogravesmall", "Ocircumflexsmall", "Odieresissmall", "Otildesmall", + "Uacutesmall", "Ugravesmall", "Ucircumflexsmall", "Udieresissmall", + ".notdef", "eightsuperior", "fourinferior", "threeinferior", + "sixinferior", "eightinferior", "seveninferior", "Scaronsmall", + ".notdef", "centinferior", "twoinferior", ".notdef", + "Dieresissmall", ".notdef", "Caronsmall", "osuperior", + "fiveinferior", ".notdef", "commainferior", "periodinferior", + "Yacutesmall", ".notdef", "dollarinferior", ".notdef", + ".notdef", "Thornsmall", ".notdef", "nineinferior", + "zeroinferior", "Zcaronsmall", "AEsmall", "Oslashsmall", + "questiondownsmall", "oneinferior", "Lslashsmall", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", "Cedillasmall", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", "OEsmall", + "figuredash", "hyphensuperior", ".notdef", ".notdef", + ".notdef", ".notdef", "exclamdownsmall", ".notdef", + "Ydieresissmall", ".notdef", "onesuperior", "twosuperior", + "threesuperior", "foursuperior", "fivesuperior", "sixsuperior", + "sevensuperior", "ninesuperior", "zerosuperior", ".notdef", + "esuperior", "rsuperior", "tsuperior", ".notdef", + ".notdef", "isuperior", "ssuperior", "dsuperior", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", "lsuperior", "Ogoneksmall", "Brevesmall", + "Macronsmall", "bsuperior", "nsuperior", "msuperior", + "commasuperior", "periodsuperior", "Dotaccentsmall", "Ringsmall", + ".notdef", ".notdef", ".notdef", ".notdef" +}; + +static const char * +WinAnsiEncoding[256] = { + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + "space", "exclam", "quotedbl", "numbersign", + "dollar", "percent", "ampersand", "quotesingle", + "parenleft", "parenright", "asterisk", "plus", + "comma", "hyphen", "period", "slash", + "zero", "one", "two", "three", + "four", "five", "six", "seven", + "eight", "nine", "colon", "semicolon", + "less", "equal", "greater", "question", + "at", "A", "B", "C", + "D", "E", "F", "G", + "H", "I", "J", "K", + "L", "M", "N", "O", + "P", "Q", "R", "S", + "T", "U", "V", "W", + "X", "Y", "Z", "bracketleft", + "backslash", "bracketright", "asciicircum", "underscore", + "grave", "a", "b", "c", + "d", "e", "f", "g", + "h", "i", "j", "k", + "l", "m", "n", "o", + "p", "q", "r", "s", + "t", "u", "v", "w", + "x", "y", "z", "braceleft", + "bar", "braceright", "asciitilde", "bullet", + "Euro", "bullet", "quotesinglbase", "florin", + "quotedblbase", "ellipsis", "dagger", "daggerdbl", + "circumflex", "perthousand", "Scaron", "guilsinglleft", + "OE", "bullet", "Zcaron", "bullet", + "bullet", "quoteleft", "quoteright", "quotedblleft", + "quotedblright", "bullet", "endash", "emdash", + "tilde", "trademark", "scaron", "guilsinglright", + "oe", "bullet", "zcaron", "Ydieresis", + "space", "exclamdown", "cent", "sterling", + "currency", "yen", "brokenbar", "section", + "dieresis", "copyright", "ordfeminine", "guillemotleft", + "logicalnot", "hyphen", "registered", "macron", + "degree", "plusminus", "twosuperior", "threesuperior", + "acute", "mu", "paragraph", "periodcentered", + "cedilla", "onesuperior", "ordmasculine", "guillemotright", + "onequarter", "onehalf", "threequarters", "questiondown", + "Agrave", "Aacute", "Acircumflex", "Atilde", + "Adieresis", "Aring", "AE", "Ccedilla", + "Egrave", "Eacute", "Ecircumflex", "Edieresis", + "Igrave", "Iacute", "Icircumflex", "Idieresis", + "Eth", "Ntilde", "Ograve", "Oacute", + "Ocircumflex", "Otilde", "Odieresis", "multiply", + "Oslash", "Ugrave", "Uacute", "Ucircumflex", + "Udieresis", "Yacute", "Thorn", "germandbls", + "agrave", "aacute", "acircumflex", "atilde", + "adieresis", "aring", "ae", "ccedilla", + "egrave", "eacute", "ecircumflex", "edieresis", + "igrave", "iacute", "icircumflex", "idieresis", + "eth", "ntilde", "ograve", "oacute", + "ocircumflex", "otilde", "odieresis", "divide", + "oslash", "ugrave", "uacute", "ucircumflex", + "udieresis", "yacute", "thorn", "ydieresis" +}; + +static const char * +StandardEncoding[256] = { + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + "space", "exclam", "quotedbl", "numbersign", + "dollar", "percent", "ampersand", "quoteright", + "parenleft", "parenright", "asterisk", "plus", + "comma", "hyphen", "period", "slash", + "zero", "one", "two", "three", + "four", "five", "six", "seven", + "eight", "nine", "colon", "semicolon", + "less", "equal", "greater", "question", + "at", "A", "B", "C", + "D", "E", "F", "G", + "H", "I", "J", "K", + "L", "M", "N", "O", + "P", "Q", "R", "S", + "T", "U", "V", "W", + "X", "Y", "Z", "bracketleft", + "backslash", "bracketright", "asciicircum", "underscore", + "quoteleft", "a", "b", "c", + "d", "e", "f", "g", + "h", "i", "j", "k", + "l", "m", "n", "o", + "p", "q", "r", "s", + "t", "u", "v", "w", + "x", "y", "z", "braceleft", + "bar", "braceright", "asciitilde", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", "exclamdown", "cent", "sterling", + "fraction", "yen", "florin", "section", + "currency", "quotesingle", "quotedblleft", "guillemotleft", + "guilsinglleft", "guilsinglright", "fi", "fl", + ".notdef", "endash", "dagger", "daggerdbl", + "periodcentered", ".notdef", "paragraph", "bullet", + "quotesinglbase", "quotedblbase", "quotedblright", "guillemotright", + "ellipsis", "perthousand", ".notdef", "questiondown", + ".notdef", "grave", "acute", "circumflex", + "tilde", "macron", "breve", "dotaccent", + "dieresis", ".notdef", "ring", "cedilla", + ".notdef", "hungarumlaut", "ogonek", "caron", + "emdash", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", "AE", ".notdef", "ordfeminine", + ".notdef", ".notdef", ".notdef", ".notdef", + "Lslash", "Oslash", "OE", "ordmasculine", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", "ae", ".notdef", ".notdef", + ".notdef", "dotlessi", ".notdef", ".notdef", + "lslash", "oslash", "oe", "germandbls", + ".notdef", ".notdef", ".notdef", ".notdef" +}; + +static const char * +ISOLatin1Encoding[256] = { + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + "space", "exclam", "quotedbl", "numbersign", + "dollar", "percent", "ampersand", "quotesingle", + "parenleft", "parenright", "asterisk", "plus", + "comma", "hyphen", "period", "slash", + "zero", "one", "two", "three", + "four", "five", "six", "seven", + "eight", "nine", "colon", "semicolon", + "less", "equal", "greater", "question", + "at", "A", "B", "C", + "D", "E", "F", "G", + "H", "I", "J", "K", + "L", "M", "N", "O", + "P", "Q", "R", "S", + "T", "U", "V", "W", + "X", "Y", "Z", "bracketleft", + "backslash", "bracketright", "asciicircum", "underscore", + "grave", "a", "b", "c", + "d", "e", "f", "g", + "h", "i", "j", "k", + "l", "m", "n", "o", + "p", "q", "r", "s", + "t", "u", "v", "w", + "x", "y", "z", "braceleft", + "bar", "braceright", "asciitilde", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", + "dotlessi", "quoteleft", "quoteright", "circumflex", + "tilde", "macron", "breve", "dotaccent", + "dieresis", ".notdef", "ring", "cedilla", + ".notdef", "hungarumlaut", "ogonek", "caron", + "space", "exclamdown", "cent", "sterling", + "currency", "yen", "brokenbar", "section", + "dieresis", "copyright", "ordfeminine", "guillemotleft", + "logicalnot", "hyphen", "registered", "macron", + "degree", "plusminus", "twosuperior", "threesuperior", + "acute", "mu", "paragraph", "periodcentered", + "cedilla", "onesuperior", "ordmasculine", "guillemotright", + "onequarter", "onehalf", "threequarters", "questiondown", + "Agrave", "Aacute", "Acircumflex", "Atilde", + "Adieresis", "Aring", "AE", "Ccedilla", + "Egrave", "Eacute", "Ecircumflex", "Edieresis", + "Igrave", "Iacute", "Icircumflex", "Idieresis", + "Eth", "Ntilde", "Ograve", "Oacute", + "Ocircumflex", "Otilde", "Odieresis", "multiply", + "Oslash", "Ugrave", "Uacute", "Ucircumflex", + "Udieresis", "Yacute", "Thorn", "germandbls", + "agrave", "aacute", "acircumflex", "atilde", + "adieresis", "aring", "ae", "ccedilla", + "egrave", "eacute", "ecircumflex", "edieresis", + "igrave", "iacute", "icircumflex", "idieresis", + "eth", "ntilde", "ograve", "oacute", + "ocircumflex", "otilde", "odieresis", "divide", + "oslash", "ugrave", "uacute", "ucircumflex", + "udieresis", "yacute", "thorn", "ydieresis" +}; diff --git a/Build/source/texk/xdvipdfmx/src/pdfencoding.h b/Build/source/texk/xdvipdfmx/src/pdfencoding.h new file mode 100644 index 00000000000..05ac38d2e22 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfencoding.h @@ -0,0 +1,83 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfencoding.h,v 1.3 2005/06/08 11:18:37 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFENCODING_H_ +#define _PDFENCODING_H_ + +#include "pdfobj.h" + +extern void pdf_encoding_set_verbose (void); + +extern void pdf_init_encodings (void); +extern void pdf_close_encodings (void); + +/* enc_name here is .enc file name or the name of predefined + * encodings. + */ +extern int pdf_encoding_findresource (const char *enc_name); + +/* Returns indirect reference to Encoding resource. + */ +extern pdf_obj *pdf_get_encoding_reference (int enc_id); + +extern int pdf_encoding_is_ASL_charset (int enc_id); +extern int pdf_encoding_is_predefined (int enc_id); + +/* WARNING: + * Pointer(s) may change after another encoding is loaded. + */ +extern char *pdf_encoding_get_name (int enc_id); +extern char **pdf_encoding_get_encoding (int enc_id); + +/* + * The last argument "is_used" is 256 char array, value 0 + * indicates glyph in that slot is not used in the document + * (at least for that font). We need this to handle the + * situation that the encoding contains, e.g., 30 rarely + * used glyphs without Unicode mapping and 200+ glyphs with + * Unicode mapping. + * pdf_create_ToUnicode_CMap() returns stream object but not + * reference. This need to be renamed to other name like + * pdf_create_ToUnicode_stream(). + */ +extern pdf_obj *pdf_create_ToUnicode_CMap (const char *enc_name, + char **enc_vec, char *is_used); + +/* Add /ToUnicode entry with indirect reference to ToUnicode stream + * to font dictionary "fontdict". This creates an empty stream object + * if it has not already created. Generation of actual ToUnicode CMap + * data is delayed until pdf_close_encodings(). This also check if + * glyphs can be converted to (a sequence of) Unicode and returns -1 + * if more than 10% of glyphs can't be converted. ToUnicode CMap is + * not attached in that case. + */ +extern int pdf_attach_ToUnicode_CMap (pdf_obj *fontdict, + int encoding_id, char *is_used); + +/* Just load CMap identified with 'ident'. (parsed) + * PDF stream object (not reference) returned. + */ +extern pdf_obj *pdf_load_ToUnicode_stream (const char *ident); + +#endif /* _PDFENCODINGS_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfencrypt.c b/Build/source/texk/xdvipdfmx/src/pdfencrypt.c new file mode 100644 index 00000000000..dc9b8efde20 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfencrypt.c @@ -0,0 +1,536 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfencrypt.c,v 1.8 2005/07/20 08:49:55 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include +#include + +#ifdef WIN32 +#include +#define getch _getch +#else /* !WIN32 */ +#include +#endif /* WIN32 */ + +#include "mem.h" +#include "error.h" +#include "pdfobj.h" +#include "dpxcrypt.h" + +#include "pdfencrypt.h" + +#define MAX_KEY_LEN 16 +#define MAX_STR_LEN 32 +#define MAX_PWD_LEN 128 + +static unsigned char algorithm, revision, key_size; +static unsigned long permission; + +static unsigned char key_data[MAX_KEY_LEN], id_string[MAX_KEY_LEN]; +static unsigned char opwd_string[MAX_STR_LEN], upwd_string[MAX_STR_LEN]; + +static unsigned long current_label = 0; +static unsigned current_generation = 0; + +static ARC4_KEY key; +static MD5_CONTEXT md5_ctx; + +static unsigned char md5_buf[MAX_KEY_LEN], key_buf[MAX_KEY_LEN]; +static unsigned char in_buf[MAX_STR_LEN], out_buf[MAX_STR_LEN]; + +static const unsigned char padding_string[MAX_STR_LEN] = { + 0x28, 0xbf, 0x4e, 0x5e, 0x4e, 0x75, 0x8a, 0x41, + 0x64, 0x00, 0x4e, 0x56, 0xff, 0xfa, 0x01, 0x08, + 0x2e, 0x2e, 0x00, 0xb6, 0xd0, 0x68, 0x3e, 0x80, + 0x2f, 0x0c, 0xa9, 0xfe, 0x64, 0x53, 0x69, 0x7a +}; + +static char owner_passwd[MAX_PWD_LEN], user_passwd[MAX_PWD_LEN]; + +static unsigned char do_encryption = 0; +static unsigned char verbose = 0; + +void pdf_enc_set_verbose (void) +{ + if (verbose < 255) verbose++; +} + +#define PRODUCER "%s-%s, Copyright \251 2002 by Jin-Hwan Cho and Shunsaku Hirata" +static void compute_id_string (char *dviname, char *pdfname) +{ + char *date_string, *producer; + time_t current_time; + struct tm *bd_time; + + MD5_init(&md5_ctx); + + date_string = NEW (15, char); + time(¤t_time); + bd_time = localtime(¤t_time); + sprintf (date_string, "%04d%02d%02d%02d%02d%02d", + bd_time -> tm_year+1900, bd_time -> tm_mon+1, bd_time -> tm_mday, + bd_time -> tm_hour, bd_time -> tm_min, bd_time -> tm_sec); + MD5_write(&md5_ctx, (unsigned char *)date_string, strlen(date_string)); + RELEASE (date_string); + + producer = NEW (strlen(PRODUCER)+strlen(PACKAGE)+strlen(VERSION), char); + sprintf(producer, PRODUCER, PACKAGE, VERSION); + MD5_write(&md5_ctx, (unsigned char *)producer, strlen(producer)); + RELEASE (producer); + + MD5_write(&md5_ctx, (unsigned char *)dviname, strlen(dviname)); + MD5_write(&md5_ctx, (unsigned char *)pdfname, strlen(pdfname)); + MD5_final(id_string, &md5_ctx); +} + +static void passwd_padding (unsigned char *src, unsigned char *dst) +{ + register int len = strlen((char *)src); + + if (len > MAX_STR_LEN) + len = MAX_STR_LEN; + + memcpy(dst, src, len); + memcpy(dst+len, padding_string, MAX_STR_LEN-len); +} + +static void compute_owner_password (void) +{ + register unsigned char i, j; + /* + * Algorithm 3.3 Computing the encryption dictionary's O (owner password) + * value + * + * 1. Pad or truncate the owner password string as described in step 1 + * of Algorithm 3.2. If there is no owner password, use the user + * password instead. (See implementation note 17 in Appendix H.) + */ + passwd_padding((unsigned char *)(strlen(owner_passwd) > 0 ? owner_passwd : user_passwd), in_buf); + /* + * 2. Initialize the MD5 hash function and pass the result of step 1 + * as input to this function. + */ + MD5_init(&md5_ctx); + MD5_write(&md5_ctx, in_buf, MAX_STR_LEN); + MD5_final(md5_buf, &md5_ctx); + /* + * 3. (Revision 3 only) Do the following 50 times: Take the output + * from the previous MD5 hash and pass it as input into a new + * MD5 hash. + */ + if (revision == 3) + for (i = 0; i < 50; i++) { + MD5_init(&md5_ctx); + MD5_write(&md5_ctx, md5_buf, MAX_KEY_LEN); + MD5_final(md5_buf, &md5_ctx); + } + /* + * 4. Create an RC4 encryption key using the first n bytes of the output + * from the final MD5 hash, where n is always 5 for revision 2 but + * for revision 3 depends on the value of the encryption dictionary's + * Length entry. + */ + ARC4_set_key(&key, key_size, md5_buf); + /* + * 5. Pad or truncate the user password string as described in step 1 + * of Algorithm 3.2. + */ + passwd_padding((unsigned char *)user_passwd, in_buf); + /* + * 6. Encrypt the result of step 5, using an RC4 encryption function + * with the encryption key obtained in step 4. + */ + ARC4(&key, MAX_STR_LEN, in_buf, out_buf); + /* + * 7. (Revision 3 only) Do the following 19 times: Take the output + * from the previous invocation of the RC4 function and pass it + * as input to a new invocation of the function; use an encryption + * key generated by taking each byte of the encryption key obtained + * in step 4 and performing an XOR (exclusive or) operation between + * that byte and the single-byte value of the iteration counter + * (from 1 to 19). + */ + if (revision == 3) + for (i = 1; i <= 19; i++) { + memcpy(in_buf, out_buf, MAX_STR_LEN); + for (j = 0; j < key_size; j++) + key_buf[j] = md5_buf[j] ^ i; + ARC4_set_key(&key, key_size, key_buf); + ARC4(&key, MAX_STR_LEN, in_buf, out_buf); + } + /* + * 8. Store the output from the final invocation of the RC4 function + * as the value of the O entry in the encryption dictionary. + */ + memcpy(opwd_string, out_buf, MAX_STR_LEN); +} + +static void compute_encryption_key (unsigned char *pwd) +{ + register unsigned char i; + /* + * Algorithm 3.2 Computing an encryption key + * + * 1. Pad or truncate the password string to exactly 32 bytes. If the + * password string is more than 32 bytes long, use only its first + * 32 bytes; if it is less than 32 bytes long, pad it by appending + * the required number of additional bytes from the beginning of + * the following padding string: + * + * < 28 BF 4E 5E 4E 75 8A 41 64 00 4E 56 FF FA 01 08 + * 2E 2E 00 B6 D0 68 3E 80 2F 0C A9 FE 64 53 69 7A > + * + * That is, if the password string is n bytes long, append the + * first 32 - n bytes of the padding string to the end of the + * password string. If the password string is empty (zero-length), + * meaning there is no user password, substitute the entire + * padding string in its place. + */ + passwd_padding(pwd, in_buf); + /* + * 2. Initialize the MD5 hash function and pass the result of step 1 + * as input to this fuction. + */ + MD5_init(&md5_ctx); + MD5_write(&md5_ctx, in_buf, MAX_STR_LEN); + /* + * 3. Pass the value of the encryption dictionary's O entry to the + * MD5 hash function. (Algorithm 3.3 shows how the O value is + * computed.) + */ + MD5_write(&md5_ctx, opwd_string, MAX_STR_LEN); + /* + * 4. Treat the value of the P entry as an unsigned 4-byte integer + * and pass these bytes to the MD5 hash function, low-order byte + * first. + */ + in_buf[0] = (unsigned char)(permission) & 0xFF; + in_buf[1] = (unsigned char)(permission >> 8) & 0xFF; + in_buf[2] = (unsigned char)(permission >> 16) & 0xFF; + in_buf[3] = (unsigned char)(permission >> 24) & 0xFF; + MD5_write(&md5_ctx, in_buf, 4); + /* + * 5. Pass the first element of the file's file identifier array + * (the value of the ID entry in the document's trailer dictionary; + * see Table 3.12 on page 68) to the MD5 hash function and + * finish the hash. + */ + MD5_write(&md5_ctx, id_string, MAX_KEY_LEN); + MD5_final(md5_buf, &md5_ctx); + /* + * 6. (Revision 3 only) Do the following 50 times; Take the output from + * the previous MD5 hash and pass it as input into a new MD5 hash. + */ + if (revision == 3) + for (i = 0; i < 50; i++) { + MD5_init(&md5_ctx); + MD5_write(&md5_ctx, md5_buf, MAX_KEY_LEN); + MD5_final(md5_buf, &md5_ctx); + } + /* + * 7. Set the encryption key to the first n bytes of the output from + * the final MD5 hash, where n is always 5 for revision 2 but for + * revision 3 depends on the value of the encryption dictionary's + * Length entry. + */ + memcpy(key_data, md5_buf, key_size); +} + +static void compute_user_password (void) +{ + register unsigned char i, j; + /* + * Algorithm 3.4 Computing the encryption dictionary's U (user password) + * value (Revision 2) + * + * 1. Create an encryption key based on the user password string, as + * described in Algorithm 3.2. + * + * 2. Encrypt the 32-byte padding string shown in step 1 of Algorithm + * 3.2, using an RC4 encryption fuction with the encryption key from + * the preceeding step. + * + * 3. Store the result of step 2 as the value of the U entry in the + * encryption dictionary. + */ + /* + * Algorithm 3.5 Computing the encryption dictionary's U (user password) + * value (Revision 3) + * + * 1. Create an encryption key based on the user password string, as + * described in Algorithm 3.2. + * + * 2. Initialize the MD5 hash function and pass the 32-byte padding + * string shown in step 1 of Algorithm 3.2 as input to this function. + * + * 3. Pass the first element of the file's file identifier array (the + * value of the ID entry in the document's trailer dictionary; see + * Table 3.12 on page 68) to the hash function and finish the hash. + * + * 4. Encrypt the 16-byte result of the hash, using an RC4 encryption + * function with the encryption key from step 1. + * + * 5. Do the following 19 times: Take the output from the previous + * invocation of the RC4 function and pass it as input to a new + * invocation of the function; use an encryption key generated by + * taking each byte of the original encryption key (obtained in + * step 1) and performing an XOR (exclusive or) operation between + * that byte and the single-byte value of the iteration counter + * (from 1 to 19). + * + * 6. Append 16 bytes of arbitrary padding to the output from the + * final invocation of the RC4 function and store the 32-byte + * result as the value of the U entry in the encryption dictionary. + */ + compute_encryption_key((unsigned char *)user_passwd); + + switch (revision) { + case 2: + ARC4_set_key(&key, key_size, key_data); + ARC4(&key, MAX_STR_LEN, padding_string, out_buf); + break; + case 3: + MD5_init(&md5_ctx); + MD5_write(&md5_ctx, (unsigned char *)padding_string, MAX_STR_LEN); + + MD5_write(&md5_ctx, id_string, MAX_KEY_LEN); + MD5_final(md5_buf, &md5_ctx); + + ARC4_set_key(&key, key_size, key_data); + ARC4(&key, MAX_KEY_LEN, md5_buf, out_buf); + + for (i = 1; i <= 19; i++) { + memcpy(in_buf, out_buf, MAX_KEY_LEN); + for (j = 0; j < key_size; j++) + key_buf[j] = key_data[j] ^ i; + ARC4_set_key(&key, key_size, key_buf); + ARC4(&key, MAX_KEY_LEN, in_buf, out_buf); + } + break; + default: + ERROR("Invalid revision number.\n"); + } + + memcpy(upwd_string, out_buf, MAX_STR_LEN); +} + +#ifdef WIN32 +static char *getpass (const char *prompt) +{ + static char pwd_buf[128]; + size_t i; + + fputs(prompt, stderr); + fflush(stderr); + for (i = 0; i < sizeof(pwd_buf)-1; i++) { + pwd_buf[i] = getch(); + if (pwd_buf[i] == '\r') + break; + } + pwd_buf[i] = '\0'; + fputs("\n", stderr); + return pwd_buf; +} +#endif + +void pdf_enc_set_passwd (unsigned bits, unsigned perm, char *dviname, char *pdfname) +{ + register char *retry_passwd; + + while (1) { + strcpy(owner_passwd, getpass("Owner password: ")); + retry_passwd = getpass("Re-enter owner password: "); + if (!strcmp(owner_passwd, retry_passwd)) + break; + fputs("Password is not identical.\nTry again.\n", stderr); + fflush(stderr); + } + + while (1) { + strcpy(user_passwd, getpass("User password: ")); + retry_passwd = getpass("Re-enter user password: "); + if (!strcmp(user_passwd, retry_passwd)) + break; + fputs("Password is not identical.\nTry again.\n", stderr); + fflush(stderr); + } + + do_encryption = 1; + key_size = (unsigned char)(bits / 8); + algorithm = (key_size == 5 ? 1 : 2); + permission = (unsigned long)perm | 0x000000C0; + revision = ((algorithm == 1 && permission < 0x100) ? 2 : 3); + if (revision == 3) + permission |= 0xFFFFF000; + + compute_id_string(dviname, pdfname); + compute_owner_password(); + compute_user_password(); +} + +void pdf_encrypt_data (unsigned char *data, unsigned long len) +{ + unsigned char *result; + + if (!do_encryption) return; + + memcpy(in_buf, key_data, key_size); + in_buf[key_size] = (unsigned char)(current_label) & 0xFF; + in_buf[key_size+1] = (unsigned char)(current_label >> 8) & 0xFF; + in_buf[key_size+2] = (unsigned char)(current_label >> 16) & 0xFF; + in_buf[key_size+3] = (unsigned char)(current_generation) & 0xFF; + in_buf[key_size+4] = (unsigned char)(current_generation >> 8) & 0xFF; + + MD5_init(&md5_ctx); + MD5_write(&md5_ctx, in_buf, key_size+5); + MD5_final(md5_buf, &md5_ctx); + + result = NEW (len, unsigned char); + ARC4_set_key(&key, (key_size > 10 ? MAX_KEY_LEN : key_size+5), md5_buf); + ARC4(&key, len, data, result); + memcpy(data, result, len); + RELEASE (result); +} + +void create_encrypt (void) +{ + pdf_obj *doc_encrypt; + + if (!do_encryption) return; + +#ifdef DEBUG + fprintf (stderr, "(create_encrypt)"); +#endif + + /* Create an empty Encryption entry and make it + be the root object */ + doc_encrypt = pdf_new_dict (); + pdf_set_encrypt (doc_encrypt); + + /* KEY : Filter + * TYPE : name + * VALUE: (Required) The name of the security handler for this document; + * see below. Default value: Standard, for the built-in security + * handler. + */ + pdf_add_dict (doc_encrypt, + pdf_new_name ("Filter"), + pdf_new_name ("Standard")); + /* KEY : V + * TYPE : number + * VALUE: (Optional but strongly recommended) A code specifying the + * algorithm to be used in encrypting and decrypting the document: + * 0 An algorithm that is undocumented and no longer supported, + * and whose use is strongly discouraged. + * 1 Algorithm 3.1 on page 73, with an encryption key length + * of 40 bits; see below. + * 2 (PDF 1.4) Algorithm 3.1 on page 73, but allowing encryption + * key lengths greater than 40 bits. + * 3 (PDF 1.4) An unpublished algorithm allowing encryption key + * lengths ranging from 40 to 128 bits. (This algorithm is + * unpublished as an export requirement of the U.S. Department + * of Commerce.) + * The default value if this entry is omitted is 0, but a value + * of 1 or greater is strongly recommended. + */ + pdf_add_dict (doc_encrypt, + pdf_new_name ("V"), + pdf_new_number (algorithm)); + /* KEY : Length + * TYPE : integer + * VALUE: (Optional; PDF 1.4; only if V is 2 or 3) The length of the + * encryption key, in bits. The value must be a multiple of 8, + * in the range 40 to 128. Default value: 40. + */ + if (algorithm > 1) + pdf_add_dict (doc_encrypt, + pdf_new_name ("Length"), + pdf_new_number (key_size * 8)); + /* KEY : R + * TYPE : number + * VALUE: (Required) A number specifying which revision of the standard + * security handler should be used to interpret this dictionary. + * The revison number should be 2 if the document is encrypted + * with a V value less than 2; otherwise this value should be 3. + */ + pdf_add_dict (doc_encrypt, + pdf_new_name ("R"), + pdf_new_number (revision)); + /* KEY : O + * TYPE : string + * VALUE: (Required) A 32-byte string, based on both the owner and + * user passwords, that is used in computing the encryption + * key and in determining whether a valid owner password was + * entered. + */ + pdf_add_dict (doc_encrypt, + pdf_new_name ("O"), + pdf_new_string (opwd_string, 32)); + /* KEY : U + * TYPE : string + * VALUE: (Required) A 32-byte string, based on the user password, + * that is used in determining whether to prompt the user + * for a password and, if so, whether a valid user or owner + * password was entered. + */ + pdf_add_dict (doc_encrypt, + pdf_new_name ("U"), + pdf_new_string (upwd_string, 32)); + /* KEY : P + * TYPE : integer + * VALUE: (Required) A set of flags specifying which operations are + * permitted when the document is opened with user access. + */ + pdf_add_dict (doc_encrypt, + pdf_new_name ("P"), + pdf_new_number (permission)); + + do_encryption = 0; + pdf_release_obj (doc_encrypt); + do_encryption = 1; +} + +unsigned char *pdf_enc_id_string (void) +{ + register int i; + static unsigned char result[MAX_STR_LEN+1]; + + for (i = 0; i < MAX_KEY_LEN; i++) + sprintf((char *)(result+2*i), "%02x", id_string[i]); + + return result; +} + +void pdf_enc_set_label (unsigned long label) +{ + current_label = label; +} + +void pdf_enc_set_generation (unsigned generation) +{ + current_generation = generation; +} diff --git a/Build/source/texk/xdvipdfmx/src/pdfencrypt.h b/Build/source/texk/xdvipdfmx/src/pdfencrypt.h new file mode 100644 index 00000000000..daaa6f52bcc --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfencrypt.h @@ -0,0 +1,35 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfencrypt.h,v 1.2 2002/10/30 02:27:13 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFENCRYPT_H_ +#define _PDFENCRYPT_H_ + +extern void pdf_enc_set_verbose (void); +extern unsigned char *pdf_enc_id_string (void); +extern void pdf_enc_set_encryption (void); +extern void pdf_enc_set_label (unsigned long label); +extern void pdf_enc_set_generation (unsigned generation); +extern void pdf_enc_set_passwd (unsigned size, unsigned perm, char *dviname, char *pdfname); +extern void pdf_encrypt_data (unsigned char *data, unsigned long len); +extern void create_encrypt (void); + +#endif /* _PDFENCRYPT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdffont.c b/Build/source/texk/xdvipdfmx/src/pdffont.c new file mode 100644 index 00000000000..8befc76394e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdffont.c @@ -0,0 +1,952 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdffont.c,v 1.15 2005/07/20 10:41:54 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "dpxfile.h" +#include "dpxutil.h" + +#include "pdfobj.h" + +#include "pdfencoding.h" +#include "cmap.h" +#include "unicode.h" + +#include "type1.h" +#include "type1c.h" +#include "truetype.h" + +#include "pkfont.h" + +#include "type0.h" +#include "tt_cmap.h" +#include "cidtype0.h" +#include "otl_conf.h" + +#include "pdffont.h" + +static int __verbose = 0; + +#define MREC_HAS_TOUNICODE(m) ((m) && (m)->opt.tounicode) + +void +pdf_font_set_verbose (void) +{ + __verbose++; + CMap_set_verbose(); + Type0Font_set_verbose(); + CIDFont_set_verbose (); + pdf_encoding_set_verbose(); + UC_set_verbose (); + agl_set_verbose(); + otl_conf_set_verbose(); + otf_cmap_set_verbose (); +} + +int +pdf_font_get_verbose (void) +{ + return __verbose; +} + +void +pdf_font_set_dpi (int font_dpi) +{ + PKFont_set_dpi(font_dpi); +} + +void +pdf_font_make_uniqueTag (char *tag) +{ + int i; + char ch; + static char first = 1; + + if (first) { + srand(time(NULL)); + first = 0; + } + + for (i = 0; i < 6; i++) { + ch = rand() % 26; + tag[i] = ch + 'A'; + } + tag[6] = '\0'; +} + + +struct pdf_font +{ +#ifdef XETEX + FT_Face ft_face; + unsigned short *ft_to_gid; +#endif + + char *ident; + int subtype; + + char *map_name; + + int encoding_id; /* encoding or CMap */ + + /* + * If subtype is Type0, it simply points font_id + * of Type0 font. Type0 and simple font is not + * unified yet. + */ + int font_id; + + /* For simple font */ + char *fontname; + char uniqueID[7]; + + /* + * PDF font resource objects + */ + pdf_obj *reference; + pdf_obj *resource; + pdf_obj *descriptor; + + /* + * Font format specific data + */ + char *usedchars; + int flags; + + /* PK font */ + double point_size; + double design_size; +}; + +static void +pdf_init_font_struct (pdf_font *font) +{ + ASSERT(font); + +#ifdef XETEX + font->ft_face = NULL; +#endif + + font->ident = NULL; + font->map_name = NULL; + font->subtype = -1; + font->font_id = -1; /* Type0 ID */ + font->fontname = NULL; + memset(font->uniqueID, 0, 7); + + font->encoding_id = -1; + + font->reference = NULL; + font->resource = NULL; + font->descriptor = NULL; + + font->point_size = 0; + font->design_size = 0; + + font->usedchars = NULL; + font->flags = 0; + + return; +} + +static void +pdf_flush_font (pdf_font *font) +{ + char *fontname, *uniqueTag; + + if (!font) { + return; + } + + if (font->resource && font->reference) { + if (font->subtype != PDF_FONT_FONTTYPE_TYPE3) { + if (pdf_font_get_flag(font, PDF_FONT_FLAG_NOEMBED)) { + pdf_add_dict(font->resource, + pdf_new_name("BaseFont"), pdf_new_name(font->fontname)); + if (font->descriptor) { + pdf_add_dict(font->descriptor, + pdf_new_name("FontName"), pdf_new_name(font->fontname)); + } + } else { + if (!font->fontname) { + ERROR("Undefined in fontname... (%s)", font->ident); + } + fontname = NEW(7+strlen(font->fontname)+1, char); + uniqueTag = pdf_font_get_uniqueTag(font); + sprintf(fontname, "%6s+%s", uniqueTag, font->fontname); + pdf_add_dict(font->resource, + pdf_new_name("BaseFont"), pdf_new_name(fontname)); + if (font->descriptor) { + pdf_add_dict(font->descriptor, + pdf_new_name("FontName"), pdf_new_name(fontname)); + } + RELEASE(fontname); + } + if (font->descriptor) { + pdf_add_dict(font->resource, + pdf_new_name("FontDescriptor"), pdf_ref_obj(font->descriptor)); + } + } + } + + if (font->resource) + pdf_release_obj(font->resource); + if (font->descriptor) + pdf_release_obj(font->descriptor); + if (font->reference) + pdf_release_obj(font->reference); + + font->reference = NULL; + font->resource = NULL; + font->descriptor = NULL; + + return; +} + +static void +pdf_clean_font_struct (pdf_font *font) +{ + if (font) { + if (font->ident) + RELEASE(font->ident); + if (font->map_name) + RELEASE(font->map_name); + if (font->fontname) + RELEASE(font->fontname); + if (font->usedchars) + RELEASE(font->usedchars); + + if (font->reference) + ERROR("pdf_font>> Object not flushed."); + if (font->resource) + ERROR("pdf_font> Object not flushed."); + if (font->descriptor) + ERROR("pdf_font>> Object not flushed."); + + font->ident = NULL; + font->map_name = NULL; + font->fontname = NULL; + font->usedchars = NULL; + } + + return; +} + +#define CACHE_ALLOC_SIZE 16u + +static struct { + int count; + int capacity; + pdf_font *fonts; +} font_cache = { + 0, 0, NULL +}; + +void +pdf_init_fonts (void) +{ + ASSERT(font_cache.fonts == NULL); + + agl_init_map(); + otl_init_conf(); + + CMap_cache_init(); + pdf_init_encodings(); + + Type0Font_cache_init(); + + font_cache.count = 0; + font_cache.capacity = CACHE_ALLOC_SIZE; + font_cache.fonts = NEW(font_cache.capacity, pdf_font); +} + +#define CHECK_ID(n) do {\ + if ((n) < 0 || (n) >= font_cache.count) {\ + ERROR("Invalid font ID: %d", (n));\ + }\ +} while (0) +#define GET_FONT(n) (&(font_cache.fonts[(n)])) + + +pdf_obj * +pdf_get_font_reference (int font_id) +{ + pdf_font *font; + + CHECK_ID(font_id); + + font = GET_FONT(font_id); + if (font->subtype == PDF_FONT_FONTTYPE_TYPE0) { + Type0Font *t0font; + + t0font = Type0Font_cache_get(font->font_id); + return Type0Font_get_resource(t0font); + } else { + if (!font->reference) { + font->reference = pdf_ref_obj(pdf_font_get_resource(font)); + } + } + + return pdf_link_obj(font->reference); +} + +char * +pdf_get_font_usedchars (int font_id) +{ + pdf_font *font; + + CHECK_ID(font_id); + + font = GET_FONT(font_id); + if (font->subtype == PDF_FONT_FONTTYPE_TYPE0) { + Type0Font *t0font; + + t0font = Type0Font_cache_get(font->font_id); + return Type0Font_get_usedchars(t0font); + } else { + if (!font->usedchars) { + font->usedchars = NEW(256, char); + memset(font->usedchars, 0, 256 * sizeof(char)); + } + return font->usedchars; + } +} + +int +pdf_get_font_wmode (int font_id) +{ + pdf_font *font; + + CHECK_ID(font_id); + + font = GET_FONT(font_id); + if (font->subtype == PDF_FONT_FONTTYPE_TYPE0) { + Type0Font *t0font; + + t0font = Type0Font_cache_get(font->font_id); + return Type0Font_get_wmode(t0font); + } else { + return 0; + } +} + +int +pdf_get_font_subtype (int font_id) +{ + pdf_font *font; + + CHECK_ID(font_id); + + font = GET_FONT(font_id); + + return font->subtype; +} + +char * +pdf_get_font_fontname (int font_id) +{ + pdf_font *font; + + CHECK_ID(font_id); + + font = GET_FONT(font_id); + + return font->fontname; +} + +int +pdf_get_font_encoding (int font_id) +{ + pdf_font *font; + + CHECK_ID(font_id); + + font = GET_FONT(font_id); + + return font->encoding_id; +} + +/* The rule for ToUnicode creation is: + * + * If "tounicode" option is specified in fontmap, use that. + * If there is ToUnicode CMap with same name as TFM, use that. + * If no "tounicode" option is used and no ToUnicode CMap with + * same name as TFM is found, create ToUnicode CMap from glyph + * names and AGL file. + */ +static int +try_load_ToUnicode_CMap (pdf_font *font) +{ + pdf_obj *fontdict; + pdf_obj *tounicode; + const char *cmap_name = NULL; + fontmap_rec *mrec; /* Be sure fontmap is still alive here */ + + ASSERT(font); + + /* We are using different encoding for Type0 font. + * This feature is unavailable for them. + */ + if (font->subtype == PDF_FONT_FONTTYPE_TYPE0) + return 0; + + ASSERT(font->map_name); + + mrec = pdf_lookup_fontmap_record(font->map_name); + if (MREC_HAS_TOUNICODE(mrec)) + cmap_name = mrec->opt.tounicode; + else { + cmap_name = font->map_name; + } + + fontdict = pdf_font_get_resource(font); + tounicode = pdf_load_ToUnicode_stream(cmap_name); + if (!tounicode && MREC_HAS_TOUNICODE(mrec)) + WARN("Failed to read ToUnicode mapping \"%s\"...", mrec->opt.tounicode); + else if (tounicode) { + if (pdf_obj_typeof(tounicode) != PDF_STREAM) + ERROR("Object returned by pdf_load_ToUnicode_stream() not stream object! (This must be bug)"); + else if (pdf_stream_length(tounicode) > 0) { + pdf_add_dict(fontdict, + pdf_new_name("ToUnicode"), + pdf_ref_obj (tounicode)); /* _FIXME_ */ + if (__verbose) + MESG("pdf_font>> ToUnicode CMap \"%s\" attached to font id=\"%s\".\n", + cmap_name, font->map_name); + } + pdf_release_obj(tounicode); + } + + return 0; +} + +void +pdf_close_fonts (void) +{ + int font_id, retval; + + for (font_id = 0; + font_id < font_cache.count; font_id++) { + pdf_font *font; + + font = GET_FONT(font_id); + + if (__verbose) { + if (font->subtype != PDF_FONT_FONTTYPE_TYPE0) { + MESG("(%s", pdf_font_get_ident(font)); + if (__verbose > 2 && + !pdf_font_get_flag(font, PDF_FONT_FLAG_NOEMBED)) { + MESG("[%s+%s]", + pdf_font_get_uniqueTag(font), + pdf_font_get_fontname(font)); + } else if (__verbose > 1) { + MESG("[%s]", + pdf_font_get_fontname(font)); + } + if (__verbose > 1) { + if (pdf_font_get_encoding(font) >= 0) { + MESG("[%s]", + pdf_encoding_get_name(pdf_font_get_encoding(font))); + } else { + MESG("[built-in]"); + } + } + + } + } + + /* Must come before load_xxx */ + try_load_ToUnicode_CMap(font); + + /* Type 0 is handled separately... */ + switch (font->subtype) { + case PDF_FONT_FONTTYPE_TYPE1: + if (__verbose) + MESG("[Type1]"); + retval = pdf_font_load_type1 (font); + break; + case PDF_FONT_FONTTYPE_TYPE1C: + if (__verbose) + MESG("[Type1C]"); + retval = pdf_font_load_type1c (font); + break; + case PDF_FONT_FONTTYPE_TRUETYPE: + if (__verbose) + MESG("[TrueType]"); + retval = pdf_font_load_truetype(font); + break; + case PDF_FONT_FONTTYPE_TYPE3: + if (__verbose) + MESG("[Type3/PK]"); + retval = pdf_font_load_pkfont (font); + break; + case PDF_FONT_FONTTYPE_TYPE0: + break; + default: + ERROR("Unknown font type: %d", font->subtype); + break; + } + + if (__verbose) { + if (font->subtype != PDF_FONT_FONTTYPE_TYPE0) + MESG(")"); + } + + pdf_flush_font(font); + pdf_clean_font_struct(font); + } + RELEASE(font_cache.fonts); + font_cache.fonts = NULL; + font_cache.count = 0; + font_cache.capacity = 0; + + Type0Font_cache_close(); + + CMap_cache_close(); + pdf_close_encodings(); + + otl_close_conf(); + agl_close_map (); /* After encoding */ + + return; +} + +int +pdf_font_findresource (const char *tex_name, + double font_scale, fontmap_rec *mrec) +{ + int font_id = -1; + pdf_font *font; + int encoding_id = -1, cmap_id = -1; + const char *fontname; + + /* + * Get appropriate info from map file. (PK fonts at two different + * point sizes would be looked up twice unecessarily.) + */ + fontname = mrec ? mrec->font_name : tex_name; + if (mrec && mrec->enc_name) { +#define MAYBE_CMAP(s) (!strstr((s), ".enc") || strstr((s), ".cmap")) + if (MAYBE_CMAP(mrec->enc_name)) { + cmap_id = CMap_cache_find(mrec->enc_name); + if (cmap_id >= 0) { + CMap *cmap; + int cmap_type, minbytes; + + cmap = CMap_cache_get(cmap_id); + cmap_type = CMap_get_type (cmap); + minbytes = CMap_get_profile(cmap, CMAP_PROF_TYPE_INBYTES_MIN); + /* + * Check for output encoding. + */ + if (cmap_type != CMAP_TYPE_IDENTITY && + cmap_type != CMAP_TYPE_CODE_TO_CID && + cmap_type != CMAP_TYPE_TO_UNICODE) { + WARN("Only 16-bit encoding supported for output encoding."); + } + /* + * Turn on map option. + */ + if (minbytes == 2 && mrec->opt.mapc < 0) { + if (__verbose) { + MESG("\n"); + MESG("pdf_font>> Input encoding \"%s\" requires at least 2 bytes.\n", + CMap_get_name(cmap)); + MESG("pdf_font>> The -m <00> option will be assumed for \"%s\".\n", mrec->font_name); + } + mrec->opt.mapc = 0; /* _FIXME_ */ + } + } else if (!strcmp(mrec->enc_name, "unicode")) { + cmap_id = otf_load_Unicode_CMap(mrec->font_name, + mrec->opt.index, mrec->opt.otl_tags, + ((mrec->opt.flags & FONTMAP_OPT_VERT) ? 1 : 0)); + if (cmap_id < 0) { + cmap_id = t1_load_UnicodeCMap(mrec->font_name, mrec->opt.otl_tags, + ((mrec->opt.flags & FONTMAP_OPT_VERT) ? 1 : 0)); + } + if (cmap_id < 0) + ERROR("Failed to read UCS2/UCS4 TrueType cmap..."); + } + } + if (cmap_id < 0) { + encoding_id = pdf_encoding_findresource(mrec->enc_name); + if (encoding_id < 0) + ERROR("Could not find encoding file \"%s\".", mrec->enc_name); + } + } + + if (mrec && cmap_id >= 0) { + /* + * Composite Font + */ + int type0_id, found = 0; + + type0_id = pdf_font_findfont0(mrec->font_name, cmap_id, &mrec->opt); + if (type0_id < 0) { + return -1; + } + + for (font_id = 0; + font_id < font_cache.count; font_id++) { + font = GET_FONT(font_id); + if (font->subtype == PDF_FONT_FONTTYPE_TYPE0 && + font->font_id == type0_id && + font->encoding_id == cmap_id) { + found = 1; + if (__verbose) { + MESG("\npdf_font>> Type0 font \"%s\" (cmap_id=%d) found at font_id=%d.\n", + mrec->font_name, cmap_id, font_id); + } + break; + } + } + + if (!found) { + font_id = font_cache.count; + if (font_cache.count >= font_cache.capacity) { + font_cache.capacity += CACHE_ALLOC_SIZE; + font_cache.fonts = RENEW(font_cache.fonts, font_cache.capacity, pdf_font); + } + font = GET_FONT(font_id); + pdf_init_font_struct(font); + +#ifdef XETEX + font->ft_to_gid = Type0Font_get_ft_to_gid(type0_id); + font->ft_face = mrec->opt.ft_face; +#endif + + font->font_id = type0_id; + font->subtype = PDF_FONT_FONTTYPE_TYPE0; + font->encoding_id = cmap_id; + + mrec->opt.flags &= ~FONTMAP_OPT_REMAP; /* _FIXME_ */ + + font_cache.count++; + + if (__verbose) { + MESG("\npdf_font>> Type0 font \"%s\"", fontname); + MESG(" cmap_id=<%s,%d>", mrec->enc_name, font->encoding_id); + MESG(" opened at font_id=<%s,%d>.\n", tex_name, font_id); + } + + } + } else { + /* + * Simple Font - always embed. + */ + int found = 0; + + for (font_id = 0; + font_id < font_cache.count; font_id++) { + font = GET_FONT(font_id); + switch (font->subtype) { + case PDF_FONT_FONTTYPE_TYPE1: + case PDF_FONT_FONTTYPE_TYPE1C: + case PDF_FONT_FONTTYPE_TRUETYPE: + /* fontname here is font file name. + * We must compare both font file name and encoding + */ + if (!strcmp(fontname, font->ident) && + encoding_id == font->encoding_id) { + found = 1; + } + break; + case PDF_FONT_FONTTYPE_TYPE3: + /* There shouldn't be any encoding specified for PK font. + * It must be always font's build-in encoding. + */ + if (!strcmp(fontname, font->ident) && + font_scale == font->point_size) { + found = 1; + } + break; + case PDF_FONT_FONTTYPE_TYPE0: + break; + default: + ERROR("Unknown font type: %d", font->subtype); + break; + } + + if (found) { + if (__verbose) { + MESG("\npdf_font>> Simple font \"%s\" (enc_id=%d) found at id=%d.\n", + fontname, encoding_id, font_id); + } + break; + } + } + + + if (!found) { + font_id = font_cache.count; + if (font_cache.count >= font_cache.capacity) { + font_cache.capacity += CACHE_ALLOC_SIZE; + font_cache.fonts = RENEW(font_cache.fonts, font_cache.capacity, pdf_font); + } + + font = GET_FONT(font_id); + + pdf_init_font_struct(font); + +#ifdef XETEX + font->ft_face = mrec ? mrec->opt.ft_face : NULL; +#endif + + font->point_size = font_scale; + font->encoding_id = encoding_id; + font->ident = NEW(strlen(fontname) + 1, char); + strcpy(font->ident, fontname); + font->map_name = NEW(strlen(tex_name) + 1, char); + strcpy(font->map_name, tex_name); + + if (pdf_font_open_type1(font) >= 0) { + font->subtype = PDF_FONT_FONTTYPE_TYPE1; + } else if (pdf_font_open_type1c(font) >= 0) { + font->subtype = PDF_FONT_FONTTYPE_TYPE1C; + } else if (pdf_font_open_truetype(font) >= 0) { + font->subtype = PDF_FONT_FONTTYPE_TRUETYPE; + } else if (pdf_font_open_pkfont(font) >= 0) { + font->subtype = PDF_FONT_FONTTYPE_TYPE3; + } else { + pdf_clean_font_struct(font); + return -1; + } + + font_cache.count++; + + if (__verbose) { + MESG("\npdf_font>> Simple font \"%s\"", fontname); + MESG(" enc_id=<%s,%d>", + (mrec && mrec->enc_name) ? mrec->enc_name : "builtin", font->encoding_id); + MESG(" opened at font_id=<%s,%d>.\n", tex_name, font_id); + } + } + } + + return font_id; +} + +int +pdf_font_is_in_use (pdf_font *font) +{ + ASSERT(font); + + return ((font->reference) ? 1 : 0); +} + +#ifdef XETEX +FT_Face +pdf_font_get_ft_face (pdf_font *font) +{ + ASSERT(font); + + return font->ft_face; +} + +unsigned short * +pdf_get_font_ft_to_gid (int font_id) +{ + pdf_font *font; + + CHECK_ID(font_id); + + font = GET_FONT(font_id); + + return font->ft_to_gid; +} +#endif + +char * +pdf_font_get_ident (pdf_font *font) +{ + ASSERT(font); + + return font->ident; +} + +char * +pdf_font_get_fontname (pdf_font *font) +{ + ASSERT(font); + + return font->fontname; +} + +pdf_obj * +pdf_font_get_resource (pdf_font *font) +{ + ASSERT(font); + + if (!font->resource) { + font->resource = pdf_new_dict(); + pdf_add_dict(font->resource, + pdf_new_name("Type"), pdf_new_name("Font")); + switch (font->subtype) { + case PDF_FONT_FONTTYPE_TYPE1: + case PDF_FONT_FONTTYPE_TYPE1C: + pdf_add_dict(font->resource, + pdf_new_name("Subtype"), pdf_new_name("Type1")); + break; + case PDF_FONT_FONTTYPE_TYPE3: + pdf_add_dict(font->resource, + pdf_new_name("Subtype"), pdf_new_name("Type3")); + break; + case PDF_FONT_FONTTYPE_TRUETYPE: + pdf_add_dict(font->resource, + pdf_new_name("Subtype"), pdf_new_name("TrueType")); + break; + default: + break; + } + } + + return font->resource; +} + +pdf_obj * +pdf_font_get_descriptor (pdf_font *font) +{ + ASSERT(font); + + if (!font->descriptor) { + font->descriptor = pdf_new_dict(); + pdf_add_dict(font->descriptor, + pdf_new_name("Type"), pdf_new_name("FontDescriptor")); + } + + return font->descriptor; +} + +char * +pdf_font_get_usedchars (pdf_font *font) +{ + ASSERT(font); + + return font->usedchars; +} + +int +pdf_font_get_encoding (pdf_font *font) +{ + ASSERT(font); + + return font->encoding_id; +} + +int +pdf_font_get_flag (pdf_font *font, int mask) +{ + ASSERT(font); + + return ((font->flags & mask) ? 1 : 0); +} + +int +pdf_font_get_flags (pdf_font *font) +{ + ASSERT(font); + + return font->flags; +} + +double +pdf_font_get_param (pdf_font *font, int param_type) +{ + double param = 0.0; + + ASSERT(font); + + switch (param_type) { + case PDF_FONT_PARAM_DESIGN_SIZE: + param = font->design_size; + break; + case PDF_FONT_PARAM_POINT_SIZE: + param = font->point_size; + break; + default: + break; + } + + return param; +} + +char * +pdf_font_get_uniqueTag (pdf_font *font) +{ + ASSERT(font); + + if (font->uniqueID[0] == '\0') { + pdf_font_make_uniqueTag(font->uniqueID); + } + + return font->uniqueID; +} + +int +pdf_font_set_fontname (pdf_font *font, const char *fontname) +{ + ASSERT(font && fontname); + + if (strlen(fontname) > PDF_NAME_LEN_MAX) { + ERROR("Unexpected error..."); + return -1; + } + if (font->fontname) { + RELEASE(font->fontname); + } + font->fontname = NEW(strlen(fontname)+1, char); + strcpy(font->fontname, fontname); + + return 0; +} + +int +pdf_font_set_subtype (pdf_font *font, int subtype) +{ + ASSERT(font); + + font->subtype = subtype; + + return 0; +} + +int +pdf_font_set_flags (pdf_font *font, int flags) +{ + ASSERT(font); + + font->flags |= flags; + + return 0; +} + diff --git a/Build/source/texk/xdvipdfmx/src/pdffont.h b/Build/source/texk/xdvipdfmx/src/pdffont.h new file mode 100644 index 00000000000..362f1756146 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdffont.h @@ -0,0 +1,102 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdffont.h,v 1.8 2004/09/11 14:50:28 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFFONT_H_ +#define _PDFFONT_H_ + +#include "pdfobj.h" +#include "fontmap.h" +#include "pdflimits.h" + +#define PDF_FONT_FONTTYPE_TYPE1 0 +#define PDF_FONT_FONTTYPE_TYPE1C 1 +#define PDF_FONT_FONTTYPE_TYPE3 2 +#define PDF_FONT_FONTTYPE_TRUETYPE 3 + +#define PDF_FONT_FONTTYPE_TYPE0 4 + +extern void pdf_font_set_verbose (void); +extern int pdf_font_get_verbose (void); + +extern void pdf_font_set_dpi (int font_dpi); + +#define PDF_FONT_FLAG_NOEMBED (1 << 0) +#define PDF_FONT_FLAG_COMPOSITE (1 << 1) +#define PDF_FONT_FLAG_BASEFONT (1 << 2) + +#define PDF_FONT_PARAM_DESIGN_SIZE 1 +#define PDF_FONT_PARAM_POINT_SIZE 2 + +typedef struct pdf_font pdf_font; + +/* pdf_open_document() call them. */ +extern void pdf_init_fonts (void); +extern void pdf_close_fonts (void); + +/* font_name is used when mrec is NULL. + * font_scale (point size) used by PK font. + * It might be necessary if dvipdfmx supports font format with + * various optical sizes supported in the future. + */ +extern int pdf_font_findresource (const char *font_name, + double font_scale, fontmap_rec *mrec); + +extern int pdf_get_font_subtype (int font_id); +extern pdf_obj *pdf_get_font_reference (int font_id); +extern char *pdf_get_font_usedchars (int font_id); + +extern char *pdf_get_font_fontname (int font_id); /* without unique tag */ +extern int pdf_get_font_encoding (int font_id); +extern int pdf_get_font_wmode (int font_id); +extern unsigned short *pdf_get_font_ft_to_gid (int font_id); + +/* Each font drivers use the followings. */ +extern int pdf_font_is_in_use (pdf_font *font); + +#ifdef XETEX +extern FT_Face pdf_font_get_ft_face (pdf_font *font); +#endif + +extern char *pdf_font_get_ident (pdf_font *font); + +extern char *pdf_font_get_uniqueTag (pdf_font *font); +extern char *pdf_font_get_fontname (pdf_font *font); /* without unique tag */ + +extern pdf_obj *pdf_font_get_resource (pdf_font *font); +extern pdf_obj *pdf_font_get_descriptor (pdf_font *font); + +extern char *pdf_font_get_usedchars (pdf_font *font); +extern int pdf_font_get_encoding (pdf_font *font); + +extern int pdf_font_get_flag (pdf_font *font, int mask); +extern int pdf_font_get_flags (pdf_font *font); +extern double pdf_font_get_param (pdf_font *font, int type); + +extern int pdf_font_set_fontname (pdf_font *font, const char *fontname); +extern int pdf_font_set_flags (pdf_font *font, int flags); +extern int pdf_font_set_subtype (pdf_font *font, int subtype); + +extern void pdf_font_make_uniqueTag (char *tag); + +#endif /* _PDFFONT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdflimits.h b/Build/source/texk/xdvipdfmx/src/pdflimits.h new file mode 100644 index 00000000000..6cc162857f6 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdflimits.h @@ -0,0 +1,34 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdflimits.h,v 1.4 2004/09/05 13:30:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFLIMITS_H_ +#define _PDFLIMITS_H_ + +/* + * PDF_NAME_LEN_MAX: see, Appendix C of PDF Ref. v1.3, 2nd. ed. + * This is Acrobat implementation limit. + */ +#define PDF_NAME_LEN_MAX 127 + +#endif /* _PDFLIMITS_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfnames.c b/Build/source/texk/xdvipdfmx/src/pdfnames.c new file mode 100644 index 00000000000..5a3a0e47839 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfnames.c @@ -0,0 +1,486 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfnames.c,v 1.1 2004/09/02 12:23:07 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "numbers.h" + +/* Hash */ +#include "dpxutil.h" + +#include "pdfobj.h" + +#include "pdfnames.h" + +struct obj_data +{ + pdf_obj *object_ref; + pdf_obj *object; + int reserve; /* 1 if object is not actually defined. */ +}; + +char * +printable_key (const char *key, int keylen) +{ +#define MAX_KEY 32 + static char pkey[MAX_KEY+4]; + int i, len; + unsigned char hi, lo; + + for (i = 0, len = 0; + i < keylen && len < MAX_KEY; i++) { + if (isprint(key[i])) { + pkey[len++] = key[i]; + } else { + hi = (key[i] >> 4) & 0xff; + lo = key[i] & 0xff; + pkey[len++] = '#'; + pkey[len++] = (hi < 10) ? hi + '0' : (hi - 10) + 'A'; + pkey[len++] = (lo < 10) ? lo + '0' : (lo - 10) + 'A'; + } + } + pkey[len] = '\0'; + + return (char *) pkey; +} + +struct ht_table * +pdf_new_name_tree (void) +{ + struct ht_table *names; + + names = NEW(1, struct ht_table); + ht_init_table(names); + + return names; +} + +static void +flush_objects (struct ht_table *ht_tab) +{ + struct ht_iter iter; + + if (ht_set_iter(ht_tab, &iter) >= 0) { + do { + char *key; + int keylen; + struct obj_data *value; + + key = ht_iter_getkey(&iter, &keylen); + value = ht_iter_getval(&iter); + if (value->reserve) { + WARN("Unresolved object reference \"%s\" found!!!", + printable_key(key, keylen)); + } + if (value->object) { + pdf_release_obj(value->object); + } + if (value->object_ref) { + pdf_release_obj(value->object_ref); + } + value->object = NULL; + value->object_ref = NULL; + value->reserve = 0; + } while (ht_iter_next(&iter) >= 0); + ht_clear_iter(&iter); + } +} + +static void CDECL +hval_free (void *hval) +{ + struct obj_data *value; + + value = (struct obj_data *) hval; + if (value->object) + pdf_release_obj(value->object); + if (value->object_ref) + pdf_release_obj(value->object_ref); + + value->object = NULL; + value->object_ref = NULL; + value->reserve = 0; + + RELEASE(value); + + return; +} + +void +pdf_delete_name_tree (struct ht_table **names) +{ + ASSERT(names && *names); + + flush_objects (*names); + ht_clear_table(*names, hval_free); + RELEASE(*names); + *names = NULL; +} + +int +pdf_names_add_object (struct ht_table *names, + const void *key, int keylen, pdf_obj *object) +{ + struct obj_data *value; + + ASSERT(names && object); + + if (!key || keylen < 1) { + WARN("Null string used for name tree key."); + return -1; + } + + value = ht_lookup_table(names, key, keylen); + if (!value) { + value = NEW(1, struct obj_data); + value->object = object; + value->object_ref = NULL; + value->reserve = 0; + ht_append_table(names, key, keylen, value); + } else { + if (value->reserve) { + /* null object is used for undefined objects */ + pdf_copy_object(value->object, object); + pdf_release_obj(object); /* PLEASE FIX THIS!!! */ + } else { + if (value->object || value->object_ref) { + WARN("Object reference with key \"%s\" is in use.", + printable_key(key, keylen)); + return -1; + } else { + value->object = object; + } + } + value->reserve = 0; + } + + return 0; +} + +int +pdf_names_add_reference (struct ht_table *names, + const void *key, int keylen, pdf_obj *object_ref) +{ + struct obj_data *value; + + ASSERT(names); + + if (!PDF_OBJ_INDIRECTTYPE(object_ref)) { + WARN("Invalid type: @%s is not reference...", + printable_key(key, keylen)); + return -1; + } + + value = ht_lookup_table(names, key, keylen); + if (!value) { + value = NEW(1, struct obj_data); + value->object = NULL; + value->object_ref = object_ref; + value->reserve = 0; + ht_append_table(names, key, keylen, value); + } else { + if (value->object || value->object_ref) { + WARN("Object reference \"%s\" is in use.", + printable_key(key, keylen)); + WARN("Please close it before redefining."); + return -1; + } else { + value->object = NULL; + value->object_ref = object_ref; + } + value->reserve = 0; + } + + return 0; +} + +/* + * The following routine returns copies, not the original object. + */ +pdf_obj * +pdf_names_lookup_reference (struct ht_table *names, + const void *key, int keylen) +{ + struct obj_data *value; + + ASSERT(names); + + value = ht_lookup_table(names, key, keylen); + /* Reserve object label */ + if (!value) { + value = NEW(1, struct obj_data); + value->object = pdf_new_null(); /* dummy */ + value->object_ref = NULL; + value->reserve = 1; + ht_append_table(names, key, keylen, value); + } + + if (!value->object_ref) { + if (value->object) + value->object_ref = pdf_ref_obj(value->object); + else { + WARN("Object @%s not defined or already closed.", + printable_key(key, keylen)); + } + } + + return pdf_link_obj(value->object_ref); +} + +pdf_obj * +pdf_names_lookup_object (struct ht_table *names, + const void *key, int keylen) +{ + struct obj_data *value; + + ASSERT(names); + + value = ht_lookup_table(names, key, keylen); + if (!value) + return NULL; + else if (!value->object) { + WARN("Object @%s not defined or already closed.", + printable_key(key, keylen)); + } + + return value->object; +} + +int +pdf_names_close_object (struct ht_table *names, + const void *key, int keylen) +{ + struct obj_data *value; + + ASSERT(names); + + value = ht_lookup_table(names, key, keylen); + if (!value) { + WARN("Tried to release nonexistent reference: %s", + printable_key(key, keylen)); + return -1; + } + + if (value->object) { + pdf_release_obj(value->object); + value->object = NULL; + } else { + WARN("Trying to close object @%s twice?", + printable_key(key, keylen)); + return -1; + } + + return 0; +} + +struct named_object +{ + char *key; + int keylen; + pdf_obj *value; +}; + +static int CDECL +cmp_key (const void *d1, const void *d2) +{ + struct named_object *sd1, *sd2; + int keylen, cmp; + + sd1 = (struct named_object *) d1; + sd2 = (struct named_object *) d2; + + if (!sd1->key) + cmp = -1; + else if (!sd2->key) + cmp = 1; + else { + keylen = MIN(sd1->keylen, sd2->keylen); + cmp = memcmp(sd1->key, sd2->key, keylen); + if (!cmp) { + cmp = sd1->keylen - sd2->keylen; + } + } + + return cmp; +} + +#define NAME_CLUSTER 4 +static pdf_obj * +build_name_tree (struct named_object *first, long num_leaves, int is_root) +{ + pdf_obj *result; + int i; + + result = pdf_new_dict(); + /* + * According to PDF Refrence, Third Edition (p.101-102), a name tree + * always has exactly one root node, which contains a SINGLE entry: + * either Kids or Names but not both. If the root node has a Names + * entry, it is the only node in the tree. If it has a Kids entry, + * then each of the remaining nodes is either an intermediate node, + * containing a Limits entry and a Kids entry, or a leaf node, + * containing a Limits entry and a Names entry. + */ + if (!is_root) { + struct named_object *last; + pdf_obj *limits; + + limits = pdf_new_array(); + last = &first[num_leaves - 1]; + pdf_add_array(limits, pdf_new_string(first->key, first->keylen)); + pdf_add_array(limits, pdf_new_string(last->key , last->keylen )); + pdf_add_dict (result, pdf_new_name("Limits"), limits); + } + + if (num_leaves > 0 && + num_leaves <= 2 * NAME_CLUSTER) { + pdf_obj *names; + + /* Create leaf nodes. */ + names = pdf_new_array(); + for (i = 0; i < num_leaves; i++) { + struct named_object *cur; + + cur = &first[i]; + pdf_add_array(names, pdf_new_string(cur->key, cur->keylen)); + switch (PDF_OBJ_TYPEOF(cur->value)) { + case PDF_ARRAY: + case PDF_DICT: + case PDF_STREAM: + case PDF_STRING: + pdf_add_array(names, pdf_ref_obj(cur->value)); + break; + case PDF_OBJ_INVALID: + ERROR("Invalid object...: %s", printable_key(cur->key, cur->keylen)); + break; + default: + pdf_add_array(names, pdf_link_obj(cur->value)); + break; + } + pdf_release_obj(cur->value); + cur->value = NULL; + } + pdf_add_dict(result, pdf_new_name("Names"), names); + } else if (num_leaves > 0) { + pdf_obj *kids; + + /* Intermediate node */ + kids = pdf_new_array(); + for (i = 0; i < NAME_CLUSTER; i++) { + pdf_obj *subtree; + long start, end; + + start = (i*num_leaves) / NAME_CLUSTER; + end = ((i+1)*num_leaves) / NAME_CLUSTER; + subtree = build_name_tree(&first[start], (end - start), 0); + pdf_add_array (kids, pdf_ref_obj(subtree)); + pdf_release_obj(subtree); + } + pdf_add_dict(result, pdf_new_name("Kids"), kids); + } + + return result; +} + +static struct named_object * +flat_table (struct ht_table *ht_tab, long *num_entries) +{ + struct named_object *objects; + struct ht_iter iter; + long count; + + ASSERT(ht_tab); + + *num_entries = count = ht_tab->count; + objects = NEW(count, struct named_object); + if (ht_set_iter(ht_tab, &iter) >= 0) { + do { + char *key; + int keylen; + struct obj_data *value; + + count--; + key = ht_iter_getkey(&iter, &keylen); + value = ht_iter_getval(&iter); + if (value->reserve) { + WARN("Named object \"%s\" not defined!!!", + printable_key(key, keylen)); + WARN("Replacing with null."); + objects[count].key = (char *) key; + objects[count].keylen = keylen; + objects[count].value = pdf_new_null(); + } else if (value->object_ref) { + objects[count].key = (char *) key; + objects[count].keylen = keylen; + objects[count].value = pdf_link_obj(value->object_ref); + } else if (value->object) { + objects[count].key = (char *) key; + objects[count].keylen = keylen; + objects[count].value = pdf_link_obj(value->object); + } else { + WARN("Named object \"%s\" not defined!!!", + printable_key(key, keylen)); + WARN("Replacing with null."); + objects[count].key = (char *) key; + objects[count].keylen = keylen; + objects[count].value = pdf_new_null(); + } + } while (ht_iter_next(&iter) >= 0 && count > 0); + ht_clear_iter(&iter); + } + + return objects; +} + +pdf_obj * +pdf_names_create_tree (struct ht_table *names) +{ + pdf_obj *name_tree; + struct named_object *flat; + long count; + + flat = flat_table(names, &count); + if (!flat) + name_tree = NULL; + else { + if (count < 1) + name_tree = NULL; + else { + qsort(flat, count, sizeof(struct named_object), cmp_key); + name_tree = build_name_tree(flat, count, 1); + } + RELEASE(flat); + } + + return name_tree; +} diff --git a/Build/source/texk/xdvipdfmx/src/pdfnames.h b/Build/source/texk/xdvipdfmx/src/pdfnames.h new file mode 100644 index 00000000000..50dff170b64 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfnames.h @@ -0,0 +1,52 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfnames.h,v 1.1 2004/09/02 12:23:07 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDF_NAMES_H_ +#define _PDF_NAMES_H_ + +/* Hash */ +#include "dpxutil.h" +#include "pdfobj.h" + +/* Not actually tree... */ +extern struct ht_table *pdf_new_name_tree (void); +extern void pdf_delete_name_tree (struct ht_table **names); + +extern int pdf_names_add_object (struct ht_table *names, + const void *key, int keylen, pdf_obj *object); +extern int pdf_names_add_reference (struct ht_table *names, + const void *key, int keylen, pdf_obj *object_ref); +extern pdf_obj *pdf_names_lookup_reference (struct ht_table *names, + const void *key, int keylen); +extern pdf_obj *pdf_names_lookup_object (struct ht_table *names, + const void *key, int keylen); +extern int pdf_names_close_object (struct ht_table *names, + const void *key, int keylen); + +/* Really create name tree... */ +extern pdf_obj *pdf_names_create_tree (struct ht_table *names); + +extern char *printable_key (const char *key, int keylen); + +#endif /* _PDF_NAMES_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfobj.c b/Build/source/texk/xdvipdfmx/src/pdfobj.c new file mode 100644 index 00000000000..7e6930bc667 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfobj.c @@ -0,0 +1,2542 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfobj.c,v 1.39 2005/08/30 07:53:37 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "mfileio.h" +#include "pdflimits.h" +#include "pdfencrypt.h" +#include "pdfparse.h" + +#ifdef HAVE_ZLIB +#include +#endif /* HAVE_ZLIB */ + +#include "pdfobj.h" + +#define STREAM_ALLOC_SIZE 4096u +#define ARRAY_ALLOC_SIZE 256 +#define IND_OBJECTS_ALLOC_SIZE 512 + +/* Any of these types can be represented as follows */ +struct pdf_obj +{ + int type; + + unsigned long label; /* Only used for indirect objects + all other "label" to zero */ + unsigned short generation; /* Only used if "label" is used */ + unsigned refcount; /* Number of links to this object */ + void *data; +}; + +struct pdf_boolean +{ + char value; +}; + +struct pdf_number +{ + double value; +}; + +struct pdf_string +{ + unsigned char *string; + unsigned short length; +}; + +struct pdf_name +{ + char *name; +}; + +struct pdf_array +{ + unsigned long max; + unsigned long size; + struct pdf_obj **values; +}; + +struct pdf_dict +{ + struct pdf_obj *key; + struct pdf_obj *value; + struct pdf_dict *next; +}; + +struct pdf_stream +{ + struct pdf_obj *dict; + unsigned char *stream; + unsigned long stream_length; + unsigned long max_length; + unsigned char _flags; +}; + +struct pdf_indirect +{ + unsigned label; + unsigned generation; + int dirty; /* Dirty objects came from an input file and were not + generated by this program. They have a label in a + different numbering sequence. These are translated + when the object is written out */ + FILE *dirty_file; +}; + +typedef void pdf_null; +typedef struct pdf_boolean pdf_boolean; +typedef struct pdf_number pdf_number; +typedef struct pdf_string pdf_string; +typedef struct pdf_name pdf_name; +typedef struct pdf_array pdf_array; +typedef struct pdf_dict pdf_dict; +typedef struct pdf_stream pdf_stream; +typedef struct pdf_indirect pdf_indirect; + +static FILE *pdf_output_file = NULL; +static FILE *pdf_input_file = NULL; + +static long pdf_output_file_position = 0; +static long pdf_output_line_position = 0; +static long compression_saved = 0; + +#define FORMAT_BUF_SIZE 4096 +static char format_buffer[FORMAT_BUF_SIZE]; + +static struct xref_entry +{ + long file_position; + pdf_obj *object; + int used; /* Used by PDF import */ +} *output_xref = NULL; + +static unsigned long pdf_max_ind_objects = 0; +static unsigned long next_label = 1; + +static unsigned long startxref; + +static unsigned pdf_root_obj = 0; +static unsigned pdf_info_obj = 0; +static unsigned pdf_encrypt_obj = 0; + +/* Internal static routines */ + +static void pdf_flush_obj (pdf_obj *object, FILE *file); +static void pdf_label_obj (pdf_obj *object); +static void pdf_write_obj (pdf_obj *object, FILE *file); + +static void pdf_out_char (FILE *file, char c); +static void pdf_out (FILE *file, const void *buffer, long length); + +static void release_indirect (pdf_indirect *data); +static void write_indirect (pdf_indirect *indirect, FILE *file); + +static void release_boolean (pdf_obj *data); +static void write_boolean (pdf_boolean *data, FILE *file); + +static void release_null (pdf_null *data); +static void write_null (pdf_null *data, FILE *file); + +static void release_number (pdf_number *number); +static void write_number (pdf_number *number, FILE *file); + +static void write_string (pdf_string *str, FILE *file); +static void release_string (pdf_string *str); + +static void write_name (pdf_name *name, FILE *file); +static void release_name (pdf_name *name); + +static void write_array (pdf_array *array, FILE *file); +static void release_array (pdf_array *array); + +static void write_dict (pdf_dict *dict, FILE *file); +static void release_dict (pdf_dict *dict); + +static void write_stream (pdf_stream *stream, FILE *file); +static void release_stream (pdf_stream *stream); + +static pdf_obj *pdf_ref_file_obj (unsigned long obj_num, unsigned obj_gen); +static pdf_obj *pdf_read_object (unsigned long obj_num, unsigned obj_gen); + +static int verbose = 0; +static char compression_level = 9; + +void +pdf_set_compression (int level) +{ +#ifndef HAVE_ZLIB + ERROR("You don't have compression compiled in. Possibly libz wasn't found by configure."); +#else +#ifndef HAVE_ZLIB_COMPRESS2 + if (level != 0) + WARN("Unable to set compression level -- your zlib doesn't have compress2()."); +#endif + if (level >= 0 && level <= 9) + compression_level = level; + else { + ERROR("set_compression: invalid compression level: %d", level); + } +#endif /* !HAVE_ZLIB */ + + return; +} + +static unsigned pdf_version = 3; + +void +pdf_set_version (unsigned version) +{ + /* Don't forget to update CIDFont_stdcc_def[] in cid.c too! */ + if (version >= 3 && version <= 6) { + pdf_version = version; + } +} + +unsigned +pdf_get_version (void) +{ + return pdf_version; +} + +void +pdf_obj_set_verbose(void) +{ + verbose++; +} + +#define BINARY_MARKER "%\344\360\355\370\n" +void +pdf_out_init (const char *filename) +{ + char v; + + pdf_output_file = MFOPEN(filename, FOPEN_WBIN_MODE); + if (!pdf_output_file) { + if (strlen(filename) < 128) + ERROR("Unable to open \"%s\".", filename); + else + ERROR("Unable to open file."); + } + pdf_out(pdf_output_file, "%PDF-1.", strlen("%PDF-1.")); + v = '0' + pdf_version; + pdf_out(pdf_output_file, &v, 1); + pdf_out(pdf_output_file, "\n", 1); + pdf_out(pdf_output_file, BINARY_MARKER, strlen(BINARY_MARKER)); +} + +static void +dump_xref (void) +{ + long length; + unsigned long i; + + /* Record where this xref is for trailer */ + startxref = pdf_output_file_position; + + pdf_out(pdf_output_file, "xref\n", 5); + + length = sprintf(format_buffer, "%d %lu\n", 0, next_label); + pdf_out(pdf_output_file, format_buffer, length); + + length = sprintf(format_buffer, "%010ld %05ld f \n", 0L, 65535L); + /* + * Every space counts. The space after the 'f' and 'n' is * *essential*. + * The PDF spec says the lines must be 20 characters long including the + * end of line character. + */ + pdf_out(pdf_output_file, format_buffer, length); + for (i = 1; i < next_label; i++){ + length = sprintf(format_buffer, "%010ld %05ld n \n", + output_xref[i-1].file_position, 0L); + pdf_out(pdf_output_file, format_buffer, length); + } + /* Done with xref table */ + RELEASE(output_xref); + output_xref = NULL; +} + +static void +dump_trailer (void) +{ + long length; + unsigned long starttrailer; + + starttrailer = pdf_output_file_position; + + pdf_out(pdf_output_file, "trailer\n", 8); + pdf_out(pdf_output_file, "<<\n", 3); + + length = sprintf(format_buffer, "/Size %lu\n", next_label); + pdf_out(pdf_output_file, format_buffer, length); + + if (pdf_root_obj == 0) + ERROR ("dump_trailer: Invalid root object"); + length = sprintf(format_buffer, "/Root %u %u R\n", pdf_root_obj, 0); + pdf_out(pdf_output_file, format_buffer, length); + + if (pdf_encrypt_obj != 0) { + length = sprintf(format_buffer, "/Encrypt %u %u R\n", pdf_encrypt_obj, 0); + pdf_out(pdf_output_file, format_buffer, length); + } + if (pdf_info_obj != 0) { + length = sprintf(format_buffer, "/Info %u %u R\n", pdf_info_obj, 0); + pdf_out(pdf_output_file, format_buffer, length); + } + if (pdf_encrypt_obj != 0) { + unsigned char *id; + id = pdf_enc_id_string(); + length = sprintf(format_buffer, "/ID [<%s> <%s>]\n", id, id); + pdf_out(pdf_output_file, format_buffer, length); + } + pdf_out(pdf_output_file, ">>\n", 3); + pdf_out(pdf_output_file, "startxref\n", 10); + + length = sprintf(format_buffer, "%lu\n", startxref); + pdf_out(pdf_output_file, format_buffer, length); + + pdf_out(pdf_output_file, "%%EOF\n", 6); +} + +void +pdf_out_flush (void) +{ + if (pdf_output_file) { + dump_xref(); + dump_trailer(); + MESG("\n"); + if (verbose) { + if (compression_level > 0) { + MESG("Compression eliminated approximately %lu bytes\n", compression_saved); + } + } + MESG("%lu bytes written", pdf_output_file_position); + + MFCLOSE(pdf_output_file); + } +} + +void +pdf_error_cleanup (void) +{ + /* + * This routine is the cleanup required for an abnormal exit. + * For now, simply close the file. + */ + if (pdf_output_file) + MFCLOSE(pdf_output_file); +} + + +void +pdf_set_root (pdf_obj *object) +{ + if (pdf_root_obj != 0) { + ERROR("Root object already set!"); + } + if (object->label == 0) { /* Make sure this object has a label */ + pdf_label_obj(object); + } + pdf_root_obj = object->label; +} + +void +pdf_set_info (pdf_obj *object) +{ + if (pdf_info_obj != 0) { + ERROR ("Info object already set!"); + } + if (object->label == 0) { /* Make sure this object has a label */ + pdf_label_obj(object); + } + pdf_info_obj = object->label; +} + +void +pdf_set_encrypt (pdf_obj *object) +{ + if (pdf_encrypt_obj != 0) { + ERROR("Encrypt object already set!"); + } + if (object->label == 0) { /* Make sure this object has a label */ + pdf_label_obj(object); + } + pdf_encrypt_obj = object->label; +} + +static +void pdf_out_char (FILE *file, char c) +{ + fputc(c, file); + /* Keep tallys for xref table *only* if writing a pdf file. */ + if (file == pdf_output_file) { + pdf_output_file_position += 1; + if (c == '\n') + pdf_output_line_position = 0; + else + pdf_output_line_position += 1; + } +} + +#define pdf_out_xchar(f,c) do {\ + int __tmpnum;\ + __tmpnum = ((c) >> 4) & 0x0f;\ + pdf_out_char((f), (((__tmpnum) >= 10) ? (__tmpnum)+'W' : (__tmpnum)+'0'));\ + __tmpnum = (c) & 0x0f;\ + pdf_out_char((f), (((__tmpnum) >= 10) ? (__tmpnum)+'W' : (__tmpnum)+'0'));\ +} while (0) + +static +void pdf_out (FILE *file, const void *buffer, long length) +{ + fwrite(buffer, 1, length, file); + /* Keep tallys for xref table *only* if writing a pdf file */ + if (file == pdf_output_file) { + pdf_output_file_position += length; + pdf_output_line_position += length; + /* "foo\nbar\n "... */ + if (length > 0 && + ((char *)buffer)[length-1] == '\n') + pdf_output_line_position = 0; + } +} + +static +void pdf_out_white (FILE *file) +{ + if (file == pdf_output_file && pdf_output_line_position >= 80) { + pdf_out_char(file, '\n'); + } else { + pdf_out_char(file, ' '); + } +} + +#define TYPECHECK(o,t) if (!(o) || (o)->type != (t)) {\ + ERROR("typecheck: Invalid object type. %d %d", (o) ? (o)->type : -1, (t));\ +} + +#define INVALIDOBJ(o) ((o) == NULL || (o)->type <= 0 || (o)->type > PDF_INDIRECT) + +pdf_obj * +pdf_new_obj(int type) +{ + pdf_obj *result; + + if (type > PDF_INDIRECT || type < PDF_UNDEFINED) + ERROR("Invalid object type: %d", type); + + result = NEW(1, pdf_obj); + result->type = type; + result->data = NULL; + result->label = 0; + result->generation = 0; + result->refcount = 1; + + return result; +} + +int +pdf_obj_typeof (pdf_obj *object) +{ + if (INVALIDOBJ(object)) + return PDF_OBJ_INVALID; + + return object->type; +} + +static void +pdf_label_obj (pdf_obj *object) +{ + if (INVALIDOBJ(object)) + ERROR("pdf_label_obj(): passed invalid object."); + + if (next_label > pdf_max_ind_objects) { + pdf_max_ind_objects += IND_OBJECTS_ALLOC_SIZE; + output_xref = RENEW(output_xref, pdf_max_ind_objects, struct xref_entry); + } + /* + * Don't change label on an already labeled object. Ignore such calls. + */ + if (object->label == 0) { + /* Save so we can lookup this object by its number */ + output_xref[next_label-1].object = object; + output_xref[next_label-1].file_position = 0L; + object->label = next_label; + object->generation = 0; + next_label++; + } +} + +/* + * This doesn't really copy the object, but allows it to be used without + * fear that somebody else will free it. + */ +pdf_obj * +pdf_link_obj (pdf_obj *object) +{ + if (INVALIDOBJ(object)) + ERROR("pdf_link_obj(): passed invalid object."); + + object->refcount += 1; + + return object; +} + + +pdf_obj * +pdf_ref_obj (pdf_obj *object) +{ + pdf_obj *result; + pdf_indirect *indirect; + + if (INVALIDOBJ(object)) + ERROR("pdf_ref_obj(): passed invalid object."); + + if (object->refcount == 0) { + MESG("\nTrying to refer already released object!!!\n"); + pdf_write_obj(object, stderr); + ERROR("Cannot continue..."); + } + + result = pdf_new_obj(PDF_INDIRECT); + indirect = NEW(1, pdf_indirect); + result->data = indirect; + if (object->type == PDF_INDIRECT) { + indirect->label = ((pdf_indirect *) (object->data))->label; + indirect->generation = ((pdf_indirect *) (object->data))->generation; + indirect->dirty = ((pdf_indirect *) (object->data))->dirty; + indirect->dirty_file = ((pdf_indirect *) (object->data))->dirty_file; + } else { + if (object->label == 0) { + pdf_label_obj(object); + } + indirect->label = object->label; + indirect->generation = object->generation; + indirect->dirty = 0; + indirect->dirty_file = NULL; + } + + return result; +} + +static void +release_indirect (pdf_indirect *data) +{ + RELEASE(data); +} + +static void +write_indirect (pdf_indirect *indirect, FILE *file) +{ + long length; + + if (indirect->dirty) { + if (file == stderr) { + pdf_out(file, "{d}", 3); + length = sprintf(format_buffer, "%d %d R", indirect->label, indirect->generation); + pdf_out(stderr, format_buffer, length); + } else { + pdf_obj *clean; + + if (indirect->dirty_file != pdf_input_file) { + ERROR("Input PDF file doesn't match object: label=%d, from_file=%p, current_file=%p", + indirect->label, indirect->dirty_file, pdf_input_file); + } + clean = pdf_ref_file_obj(indirect->label, indirect->generation); + pdf_write_obj(clean, file); + pdf_release_obj(clean); + } + } else { + length = sprintf(format_buffer, "%d %d R", indirect->label, indirect->generation); + pdf_out(file, format_buffer, length); + } +} + +pdf_obj * +pdf_new_null (void) +{ + pdf_obj *result; + + result = pdf_new_obj(PDF_NULL); + result->data = NULL; + + return result; +} + +static void +release_null (pdf_null *obj) +{ + return; +} + +static void +write_null (pdf_null *obj, FILE *file) +{ + pdf_out(file, "null", 4); +} + +pdf_obj * +pdf_new_boolean (char value) +{ + pdf_obj *result; + pdf_boolean *data; + + result = pdf_new_obj(PDF_BOOLEAN); + data = NEW(1, pdf_boolean); + data->value = value; + result->data = data; + + return result; +} + +static void +release_boolean (pdf_obj *data) +{ + RELEASE (data); +} + +static void +write_boolean (pdf_boolean *data, FILE *file) +{ + if (data->value) { + pdf_out(file, "true", 4); + } else { + pdf_out(file, "false", 5); + } +} + +void +pdf_set_boolean (pdf_obj *object, char value) +{ + pdf_boolean *data; + + TYPECHECK(object, PDF_BOOLEAN); + + data = object->data; + data->value = value; +} + +char +pdf_boolean_value (pdf_obj *object) +{ + pdf_boolean *data; + + TYPECHECK(object, PDF_BOOLEAN); + + data = object->data; + + return data->value; +} + +pdf_obj * +pdf_new_number (double value) +{ + pdf_obj *result; + pdf_number *data; + + result = pdf_new_obj(PDF_NUMBER); + data = NEW(1, pdf_number); + data->value = value; + result->data = data; + + return result; +} + +static void +release_number (pdf_number *data) +{ + RELEASE (data); +} + +static void +write_number (pdf_number *number, FILE *file) +{ + int count; + + count = pdf_sprint_number(format_buffer, number->value); + + pdf_out(file, format_buffer, count); +} + + +void +pdf_set_number (pdf_obj *object, double value) +{ + pdf_number *data; + + TYPECHECK(object, PDF_NUMBER); + + data = object->data; + data->value = value; +} + +double +pdf_number_value (pdf_obj *object) +{ + pdf_number *data; + + TYPECHECK(object, PDF_NUMBER); + + data = object->data; + + return data->value; +} + +pdf_obj * +pdf_new_string (const void *str, unsigned length) +{ + pdf_obj *result; + pdf_string *data; + + result = pdf_new_obj(PDF_STRING); + data = NEW(1, pdf_string); + result->data = data; + if (length != 0) { + data->length = length; + data->string = NEW(length+1, unsigned char); + memcpy(data->string, str, length); + /* Shouldn't assume NULL terminated. */ + data->string[length] = '\0'; + } else { + data->length = 0; + data->string = NULL; + } + + return result; +} + +void * +pdf_string_value (pdf_obj *object) +{ + pdf_string *data; + + TYPECHECK(object, PDF_STRING); + + data = object->data; + + return data->string; +} + +unsigned +pdf_string_length (pdf_obj *object) +{ + pdf_string *data; + + TYPECHECK(object, PDF_STRING); + + data = object->data; + + return (unsigned) (data->length); +} + +/* + * This routine escapes non printable characters and control + * characters in an output string. + */ +int +pdfobj_escape_str (char *buffer, int bufsize, const unsigned char *s, int len) +{ + int result = 0; + int i; + + for (i = 0; i < len; i++) { + unsigned char ch; + + ch = s[i]; + if (result > bufsize - 4) + ERROR("pdfobj_escape_str: Buffer overflow"); + + /* + * We always write three octal digits. Optimization only gives few Kb + * smaller size for most documents when zlib compressed. + */ + if (ch < 32 || ch > 126) { + buffer[result++] = '\\'; +#if 0 + if (i < len - 1 && !isdigit(s[i+1])) + result += sprintf(buffer+result, "%o", ch); + else + result += sprintf(buffer+result, "%03o", ch); +#endif + result += sprintf(buffer+result, "%03o", ch); + } else { + switch (ch) { + case '(': + buffer[result++] = '\\'; + buffer[result++] = '('; + break; + case ')': + buffer[result++] = '\\'; + buffer[result++] = ')'; + break; + case '\\': + buffer[result++] = '\\'; + buffer[result++] = '\\'; + break; + default: + buffer[result++] = ch; + break; + } + } + } + + return result; +} + +static void +write_string (pdf_string *str, FILE *file) +{ + unsigned char *s; + char wbuf[FORMAT_BUF_SIZE]; /* Shouldn't use format_buffer[]. */ + int nescc = 0, i, count; + + s = str->string; + pdf_encrypt_data(s, str->length); + /* + * Count all ASCII non-printable characters. + */ + for (i = 0; i < str->length; i++) { + if (!isprint(s[i])) + nescc++; + } + /* + * If the string contains much escaped chars, then we write it as + * ASCII hex string. + */ + if (nescc > str->length / 3) { + pdf_out_char(file, '<'); + for (i = 0; i < str->length; i++) { + pdf_out_xchar(file, s[i]); + } + pdf_out_char(file, '>'); + } else { + pdf_out_char(file, '('); + /* + * This section of code probably isn't speed critical. Escaping the + * characters in the string one at a time may seem slow, but it's + * safe if the formatted string length exceeds FORMAT_BUF_SIZE. + * Occasionally you see some long strings in PDF. pdfobj_escape_str + * is also used for strings of text with no kerning. These must be + * handled as quickly as possible since there are so many of them. + */ + for (i = 0; i < str->length; i++) { + count = pdfobj_escape_str(wbuf, FORMAT_BUF_SIZE, &(s[i]), 1); + pdf_out(file, wbuf, count); + } + pdf_out_char(file, ')'); + } +} + +static void +release_string (pdf_string *data) +{ + if (data->string != NULL) { + RELEASE(data->string); + data->string = NULL; + } + RELEASE(data); +} + +void +pdf_set_string (pdf_obj *object, unsigned char *str, unsigned length) +{ + pdf_string *data; + + TYPECHECK(object, PDF_STRING); + + data = object->data; + if (data->string != 0) { + RELEASE(data->string); + } + if (length != 0) { + data->length = length; + data->string = NEW(length + 1, unsigned char); + memcpy(data->string, str, length); + data->string[length] = '\0'; + } else { + data->length = 0; + data->string = NULL; + } +} + +/* Name does *not* include the /. */ +pdf_obj * +pdf_new_name (const char *name) +{ + pdf_obj *result; + unsigned length; + pdf_name *data; + + result = pdf_new_obj(PDF_NAME); + data = NEW (1, pdf_name); + result->data = data; + length = strlen(name); + if (length != 0) { + data->name = NEW(length+1, char); + memcpy(data->name, name, length); + data->name[length] = '\0'; + } else { + data->name = NULL; + } + + return result; +} + +static void +write_name (pdf_name *name, FILE *file) +{ + char *s; + int i, length; + + s = name->name; + length = name->name ? strlen(name->name) : 0; + /* + * From PDF Reference, 3rd ed., p.33: + * + * Beginning with PDF 1.2, any character except null (character code 0) + * may be included in a name by writing its 2-digit hexadecimal code, + * preceded bythe number sign character (#); see implementation notes 3 + * and 4 in Appendix H. This syntax is required in order to represent + * any of the delimiter or white-space characters or the number sign + * character itself; it is recommended but not required for characters + * whose codes are outside the range 33 (!) to 126 (~). + */ +#ifndef is_delim + /* Avoid '{' and '}' for PostScript compatibility? */ +#define is_delim(c) ((c) == '(' || (c) == '/' || \ + (c) == '<' || (c) == '>' || \ + (c) == '[' || (c) == ']' || \ + (c) == '{' || (c) == '}' || \ + (c) == '%') +#endif + pdf_out_char(file, '/'); + for (i = 0; i < length; i++) { + if (s[i] < '!' || s[i] > '~' || s[i] == '#' || is_delim(s[i])) { + /* ^ "space" is here. */ + pdf_out_char (file, '#'); + pdf_out_xchar(file, s[i]); + } else { + pdf_out_char (file, s[i]); + } + } +} + +static void +release_name (pdf_name *data) +{ + if (data->name != NULL) { + RELEASE(data->name); + data->name = NULL; + } + RELEASE(data); +} + +void +pdf_set_name (pdf_obj *object, const char *name) +{ + pdf_name *data; + unsigned length; + + TYPECHECK(object, PDF_NAME); + + length = strlen(name); + data = object->data; + if (data->name != NULL) { + RELEASE(data->name); + } + if (length != 0) { + data->name = NEW(length+1, char); + memcpy(data->name, name, length); + data->name[length] = 0; + } else { + data->name = NULL; + } +} + +char * +pdf_name_value (pdf_obj *object) +{ + pdf_name *data; + + TYPECHECK(object, PDF_NAME); + + data = object->data; + + return data->name; +} + +/* + * We do not have pdf_name_length() since '\0' is not allowed + * in PDF name object. + */ + +pdf_obj * +pdf_new_array (void) +{ + pdf_obj *result; + pdf_array *data; + + result = pdf_new_obj(PDF_ARRAY); + data = NEW(1, pdf_array); + data->values = NULL; + data->max = 0; + data->size = 0; + result->data = data; + + return result; +} + +static void +write_array (pdf_array *array, FILE *file) +{ + pdf_out_char(file, '['); + if (array->size > 0) { + unsigned long i; + + for (i = 0; i < array->size; i++) { + if (i > 0) + pdf_out_white(file); + if (!array->values[i]) + WARN("PDF array element #ld undefined.", i); + pdf_write_obj(array->values[i], file); + } + } + pdf_out_char(file, ']'); +} + +pdf_obj * +pdf_get_array (pdf_obj *array, long idx) +{ + pdf_obj *result = NULL; + pdf_array *data; + + TYPECHECK(array, PDF_ARRAY); + + data = array->data; + if (idx < 0) + result = data->values[idx + data->size]; + else if (idx < data->size) { + result = data->values[idx]; + } + + return result; +} + +unsigned int +pdf_array_length (pdf_obj *array) +{ + pdf_array *data; + + TYPECHECK(array, PDF_ARRAY); + + data = (pdf_array *) array->data; + + return (unsigned int) data->size; +} + +static void +release_array (pdf_array *data) +{ + unsigned long i; + + if (data->values) { + for (i = 0; i < data->size; i++) { + pdf_release_obj(data->values[i]); + data->values[i] = NULL; + } + RELEASE(data->values); + data->values = NULL; + } + RELEASE(data); +} + +/* + * The name pdf_add_array is misleading. It behaves differently than + * pdf_add_dict(). This should be pdf_push_array(). + */ +void +pdf_add_array (pdf_obj *array, pdf_obj *object) +{ + pdf_array *data; + + TYPECHECK(array, PDF_ARRAY); + + data = array->data; + if (data->size >= data->max) { + data->max += ARRAY_ALLOC_SIZE; + data->values = RENEW(data->values, data->max, pdf_obj *); + } + data->values[data->size] = object; + data->size++; + + return; +} + +void +pdf_put_array (pdf_obj *array, unsigned idx, pdf_obj *object) +{ + pdf_array *data; + long i; + + TYPECHECK(array, PDF_ARRAY); + + data = array->data; + if (idx + 1 > data->max) { + data->max += ARRAY_ALLOC_SIZE; + data->values = RENEW(data->values, data->max, pdf_obj *); + } + /* + * Rangecheck error in PostScript interpreters if + * idx > data->size - 1. But pdf_new_array() doesn't set + * array size, pdf_add_array() dynamically increases size + * of array. This might confusing... + */ + if (idx + 1 > data->size) { + for (i = data->size; i < idx; i++) + data->values[i] = pdf_new_null(); /* release_array() won't work without this */ + data->values[idx] = object; + data->size = idx + 1; + } else { + if (data->values[idx]) + pdf_release_obj(data->values[idx]); + data->values[idx] = object; + } +} + +/* Easily leaks memory... */ +pdf_obj * +pdf_shift_array (pdf_obj *array) +{ + pdf_obj *result = NULL; + pdf_array *data; + + TYPECHECK(array, PDF_ARRAY); + + data = array->data; + if (data->size > 0) { + int i; + + result = data->values[0]; + for (i = 1; i < data->size; i++) + data->values[i-1] = data->values[i]; + data->size--; + } + + return result; +} + +/* Prepend an object to an array */ +void +pdf_unshift_array (pdf_obj *array, pdf_obj *object) +{ + pdf_array *data; + int i; + + TYPECHECK(array, PDF_ARRAY); + + data = array->data; + if (data->size >= data->max) { + data->max += ARRAY_ALLOC_SIZE; + data->values = RENEW(data->values, data->max, pdf_obj *); + } + for (i = 0; i < data->size; i++) + data->values[i+1] = data->values[i]; + data->values[0] = object; + data->size++; +} + +pdf_obj * +pdf_pop_array (pdf_obj *array) +{ + pdf_obj *result; + pdf_array *data; + + TYPECHECK(array, PDF_ARRAY); + + data = array->data; + if (data->size > 0) { + result = data->values[data->size - 1]; + data->size--; + } else { + result = NULL; + } + + return result; +} + + +static void +write_dict (pdf_dict *dict, FILE *file) +{ + pdf_out (file, "<<\n", 3); /* dropping \n saves few kb. */ + while (dict->key != NULL) { + pdf_write_obj(dict->key, file); + if (((dict -> value)->type) == PDF_BOOLEAN || + ((dict -> value)->type) == PDF_NUMBER || + ((dict -> value)->type) == PDF_INDIRECT || + ((dict -> value)->type) == PDF_NULL) { + pdf_out_white(file); + } + pdf_write_obj(dict->value, file); + pdf_out_char (file, '\n'); /* removing this saves few kb. */ + dict = dict->next; + } + pdf_out(file, ">>", 2); +} + +pdf_obj * +pdf_new_dict (void) +{ + pdf_obj *result; + pdf_dict *data; + + result = pdf_new_obj(PDF_DICT); + data = NEW(1, pdf_dict); + data->key = NULL; + data->value = NULL; + data->next = NULL; + result->data = data; + + return result; +} + +static void +release_dict (pdf_dict *data) +{ + pdf_dict *next; + + while (data != NULL && data->key != NULL) { + pdf_release_obj(data->key); + pdf_release_obj(data->value); + data->key = NULL; + data->value = NULL; + next = data->next; + RELEASE(data); + data = next; + } + RELEASE(data); +} + +/* Array is ended by a node with NULL this pointer */ +void +pdf_add_dict (pdf_obj *dict, pdf_obj *key, pdf_obj *value) +{ + pdf_dict *data; + + TYPECHECK(dict, PDF_DICT); + TYPECHECK(key, PDF_NAME); + + /* It seems that NULL is sometimes used for null object... */ + if (value != NULL && INVALIDOBJ(value)) + ERROR("pdf_add_dict(): Passed invalid value"); + + data = dict->data; + /* If this key already exists, simply replace the value */ + while (data->key != NULL) { + if (!strcmp(pdf_name_value(key), pdf_name_value(data->key))) { + /* Release the old value */ + pdf_release_obj(data->value); + /* Release the new key (we don't need it) */ + pdf_release_obj(key); + data->value = value; + break; + } + data = data->next; + } + /* + * If we didn't find the key, build a new "end" node and add + * the new key just before the end + */ + if (data->key == NULL) { + pdf_dict *new_node; + + new_node = NEW (1, pdf_dict); + new_node->key = NULL; + new_node->value = NULL; + new_node->next = NULL; + data->next = new_node; + data->key = key; + data->value = value; + } +} + +void +pdf_put_dict (pdf_obj *dict, const char *key, pdf_obj *value) +{ + pdf_dict *data; + + TYPECHECK(dict, PDF_DICT); + + if (!key) { + ERROR("pdf_put_dict(): Passed invalid key."); + } + /* It seems that NULL is sometimes used for null object... */ + if (value != NULL && INVALIDOBJ(value)) { + ERROR("pdf_add_dict(): Passed invalid value."); + } + + data = dict->data; + + while (data->key != NULL) { + if (!strcmp(key, pdf_name_value(data->key))) { + pdf_release_obj(data->value); + data->value = value; + break; + } + data = data->next; + } + + /* + * If we didn't find the key, build a new "end" node and add + * the new key just before the end + */ + if (data->key == NULL) { + pdf_dict *new_node; + + new_node = NEW (1, pdf_dict); + new_node->key = NULL; + new_node->value = NULL; + new_node->next = NULL; + data->next = new_node; + data->key = pdf_new_name(key); + data->value = value; + } +} + +/* pdf_merge_dict makes a link for each item in dict2 before stealing it */ +void +pdf_merge_dict (pdf_obj *dict1, pdf_obj *dict2) +{ + pdf_dict *data; + + TYPECHECK(dict1, PDF_DICT); + TYPECHECK(dict2, PDF_DICT); + + data = dict2->data; + while (data->key != NULL) { + pdf_add_dict(dict1, pdf_link_obj(data->key), pdf_link_obj(data->value)); + data = data->next; + } +} + +int +pdf_foreach_dict (pdf_obj *dict, + int (*proc) (pdf_obj *, pdf_obj *, void *), void *pdata) +{ + int error = 0; + pdf_dict *data; + + ASSERT(proc); + + TYPECHECK(dict, PDF_DICT); + + data = dict->data; + while (!error && + data->key != NULL) { + error = proc(data->key, data->value, pdata); + data = data->next; + } + + return error; +} + +#define pdf_match_name(o,s) ((o) && (s) && !strcmp(((pdf_name *)(o)->data)->name, (s))) +pdf_obj * +pdf_lookup_dict (pdf_obj *dict, const char *name) +{ + pdf_dict *data; + + ASSERT(name); + + TYPECHECK(dict, PDF_DICT); + + data = dict->data; + while (data->key != NULL) { + if (!strcmp(name, pdf_name_value(data->key))) { + return data->value; + } + data = data->next; + } + + return NULL; +} + +/* Returns array of dictionary keys */ +pdf_obj * +pdf_dict_keys (pdf_obj *dict) +{ + pdf_obj *keys; + pdf_dict *data; + + TYPECHECK(dict, PDF_DICT); + + keys = pdf_new_array(); + for (data = dict->data; (data && + data->key != NULL); data = data->next) { + /* We duplicate name object rather than linking keys. + * If we forget to free keys, broken PDF is generated. + */ + pdf_add_array(keys, pdf_new_name(pdf_name_value(data->key))); + } + + return keys; +} + +void +pdf_remove_dict (pdf_obj *dict, const char *name) +{ + pdf_dict *data, **data_p; + + TYPECHECK(dict, PDF_DICT); + + data = dict->data; + data_p = (pdf_dict **) &(dict->data); + while (data->key != NULL) { + if (pdf_match_name(data->key, name)) { + pdf_release_obj(data->key); + pdf_release_obj(data->value); + *data_p = data->next; + RELEASE(data); + break; + } + data_p = &(data->next); + data = data->next; + } + + return; +} + +pdf_obj * +pdf_new_stream (int flags) +{ + pdf_obj *result; + pdf_stream *data; + + result = pdf_new_obj(PDF_STREAM); + data = NEW(1, pdf_stream); + /* + * Although we are using an arbitrary pdf_object here, it must have + * type=PDF_DICT and cannot be an indirect reference. This will be + * checked by the output routine. + */ + data->dict = pdf_new_dict(); + data->_flags = flags; + data->stream = NULL; + data->stream_length = 0; + data->max_length = 0; + + result->data = data; + + return result; +} + +static void +write_stream (pdf_stream *stream, FILE *file) +{ + unsigned char *filtered; + unsigned long filtered_length; + unsigned long buffer_length; + unsigned char *buffer; + + /* + * Always work from a copy of the stream. All filters read from + * "filtered" and leave their result in "filtered". + */ +#if 0 + filtered = NEW(stream->stream_length + 1, unsigned char); +#endif + filtered = NEW(stream->stream_length, unsigned char); + memcpy(filtered, stream->stream, stream->stream_length); + filtered_length = stream->stream_length; + +#if 0 + if (stream->stream_length < 10) + stream->_flags &= ^STREAM_COMPRESS; +#endif + +#ifdef HAVE_ZLIB + /* Apply compression filter if requested */ + if (stream->stream_length > 0 && + (stream->_flags & STREAM_COMPRESS) && + compression_level > 0) { + + buffer_length = filtered_length + filtered_length/1000 + 14; + buffer = NEW(buffer_length, unsigned char); + { + pdf_obj *filters; + + filters = pdf_lookup_dict(stream->dict, "Filter"); + if (!filters) + filters = pdf_new_array(); + /* + * FlateDecode is the first filter to be applied to the stream. + */ + pdf_unshift_array(filters, pdf_new_name("FlateDecode")); + pdf_add_dict(stream->dict, pdf_new_name("Filter"), filters); + } +#ifdef HAVE_ZLIB_COMPRESS2 + if (compress2(buffer, &buffer_length, filtered, + filtered_length, compression_level)) { + ERROR("Zlib error"); + } +#else + if (compress(buffer, &buffer_length, filtered, + filtered_length)) { + ERROR ("Zlib error"); + } +#endif /* HAVE_ZLIB_COMPRESS2 */ + RELEASE(filtered); + compression_saved += filtered_length - buffer_length - strlen("/Filter [/FlateDecode]\n"); + + filtered = buffer; + filtered_length = buffer_length; + } +#endif /* HAVE_ZLIB */ + +#if 0 + /* + * An optional end-of-line marker preceding the "endstream" is + * not part of stream data. See, PDF Reference 4th ed., p. 38. + */ + /* Add a '\n' if the last character wasn't one */ + if (filtered_length > 0 && + filtered[filtered_length-1] != '\n') { + filtered[filtered_length] = '\n'; + filtered_length++; + } +#endif + pdf_add_dict(stream->dict, + pdf_new_name("Length"), pdf_new_number(filtered_length)); + + pdf_write_obj(stream->dict, file); + + pdf_out(file, "\nstream\n", 8); + pdf_encrypt_data(filtered, filtered_length); + if (filtered_length > 0) { + pdf_out(file, filtered, filtered_length); + } + RELEASE(filtered); + + /* + * This stream length "object" gets reset every time write_stream is + * called for the stream object. + * If this stream gets written more than once with different + * filters, this could be a problem. + */ + + pdf_out(file, "\n", 1); + pdf_out(file, "endstream", 9); +} + +static void +release_stream (pdf_stream *stream) +{ + pdf_release_obj(stream->dict); + stream->dict = NULL; + + if (stream->stream) { + RELEASE(stream->stream); + stream->stream = NULL; + } + RELEASE(stream); +} + +pdf_obj * +pdf_stream_dict (pdf_obj *stream) +{ + pdf_stream *data; + + TYPECHECK(stream, PDF_STREAM); + + data = stream->data; + + return data->dict; +} + +const void * +pdf_stream_dataptr (pdf_obj *stream) +{ + pdf_stream *data; + + TYPECHECK(stream, PDF_STREAM); + + data = stream->data; + + return (const void *) data->stream; +} + +long +pdf_stream_length (pdf_obj *stream) +{ + pdf_stream *data; + + TYPECHECK(stream, PDF_STREAM); + + data = stream->data; + + return (long) data->stream_length; +} + +void +pdf_add_stream (pdf_obj *stream, const void *stream_data, long length) +{ + pdf_stream *data; + + TYPECHECK(stream, PDF_STREAM); + + if (length < 1) + return; + data = stream->data; + if (data->stream_length + length > data->max_length) { + data->max_length += length + STREAM_ALLOC_SIZE; + data->stream = RENEW(data->stream, data->max_length, unsigned char); + } + memcpy(data->stream + data->stream_length, stream_data, length); + data->stream_length += length; +} + +void +pdf_stream_set_flags (pdf_obj *stream, int flags) +{ + pdf_stream *data; + + TYPECHECK(stream, PDF_STREAM); + + data = stream->data; + data->_flags = flags; +} + +int +pdf_stream_get_flags (pdf_obj *stream) +{ + pdf_stream *data; + + TYPECHECK(stream, PDF_STREAM); + + data = stream->data; + + return data->_flags; +} + +static void +pdf_write_obj (pdf_obj *object, FILE *file) +{ + if (object == NULL) { + write_null(NULL, file); + return; + } + + if (INVALIDOBJ(object)) + ERROR("pdf_write_obj: Invalid object, type = %d\n", object->type); + + if (file == stderr) + fprintf(stderr, "{%d}", object->refcount); + + switch (object->type) { + case PDF_BOOLEAN: + write_boolean(object->data, file); + break; + case PDF_NUMBER: + write_number (object->data, file); + break; + case PDF_STRING: + write_string (object->data, file); + break; + case PDF_NAME: + write_name(object->data, file); + break; + case PDF_ARRAY: + write_array(object->data, file); + break; + case PDF_DICT: + write_dict (object->data, file); + break; + case PDF_STREAM: + write_stream(object->data, file); + break; + case PDF_NULL: + write_null(NULL, file); + break; + case PDF_INDIRECT: + write_indirect(object->data, file); + break; + } +} + +/* Write the object to the file */ +static void +pdf_flush_obj (pdf_obj *object, FILE *file) +{ + long length; + + /* + * Record file position. No object is numbered 0, so subtract 1 + * when using as an array index + */ + output_xref[object->label-1].file_position = pdf_output_file_position; + length = sprintf(format_buffer, "%lu %d obj\n", object->label, object->generation); + pdf_enc_set_label(object->label); + pdf_enc_set_generation(object->generation); + pdf_out(file, format_buffer, length); + pdf_write_obj(object, file); + pdf_out(file, "\nendobj\n", 8); +} + +void +pdf_release_obj (pdf_obj *object) +{ + if (object == NULL) + return; + if (INVALIDOBJ(object) || object->refcount <= 0) { + MESG("\npdf_release_obj: object=%p, type=%d, refcount=%d\n", + object, object->type, object->refcount); + pdf_write_obj(object, stderr); + ERROR("pdf_release_obj: Called with invalid object."); + } + object->refcount -= 1; + if (object->refcount == 0) { + /* + * Nothing is using this object so it's okay to remove it. + * Nonzero "label" means object needs to be written before it's destroyed. + */ + if (object->label && pdf_output_file != NULL) { + pdf_flush_obj(object, pdf_output_file); + } + switch (object->type) { + case PDF_BOOLEAN: + release_boolean(object->data); + break; + case PDF_NULL: + release_null(object->data); + break; + case PDF_NUMBER: + release_number(object->data); + break; + case PDF_STRING: + release_string(object->data); + break; + case PDF_NAME: + release_name(object->data); + break; + case PDF_ARRAY: + release_array(object->data); + break; + case PDF_DICT: + release_dict(object->data); + break; + case PDF_STREAM: + release_stream(object->data); + break; + case PDF_INDIRECT: + release_indirect(object->data); + break; + } + /* This might help detect freeing already freed objects */ + object->type = -1; + object->data = NULL; + RELEASE(object); + } +} + +/* Copy object data without changing object label. */ +void +pdf_copy_object (pdf_obj *dst, pdf_obj *src) +{ + if (!dst || !src) + return; + + switch (dst->type) { + case PDF_BOOLEAN: release_boolean(dst->data); break; + case PDF_NULL: release_null(dst->data); break; + case PDF_NUMBER: release_number(dst->data); break; + case PDF_STRING: release_string(dst->data); break; + case PDF_NAME: release_name(dst->data); break; + case PDF_ARRAY: release_array(dst->data); break; + case PDF_DICT: release_dict(dst->data); break; + case PDF_STREAM: release_stream(dst->data); break; + case PDF_INDIRECT: release_indirect(dst->data); break; + } + + dst->type = src->type; + switch (src->type) { + case PDF_BOOLEAN: + dst->data = NEW(1, pdf_boolean); + pdf_set_boolean(dst, pdf_boolean_value(src)); + break; + case PDF_NULL: + dst->data = NULL; + break; + case PDF_NUMBER: + dst->data = NEW(1, pdf_number); + pdf_set_number(dst, pdf_number_value(src)); + break; + case PDF_STRING: + dst->data = NEW(1, pdf_string); + pdf_set_string(dst, + pdf_string_value(src), + pdf_string_length(src)); + break; + case PDF_NAME: + dst->data = NEW(1, pdf_name); + pdf_set_name(dst, pdf_name_value(src)); + break; + case PDF_ARRAY: + { + pdf_array *data; + unsigned long i; + + dst->data = data = NEW(1, pdf_array); + data->size = 0; + data->max = 0; + data->values = NULL; + for (i = 0; i < pdf_array_length(src); i++) { + pdf_add_array(dst, pdf_link_obj(pdf_get_array(src, i))); + } + } + break; + case PDF_DICT: + { + pdf_dict *data; + + dst->data = data = NEW(1, pdf_dict); + data->key = NULL; + data->value = NULL; + data->next = NULL; + pdf_merge_dict(dst, src); + } + break; + case PDF_STREAM: + { + pdf_stream *data; + + dst->data = data = NEW(1, pdf_stream); + data->dict = pdf_new_dict(); + data->_flags = ((pdf_stream *)src->data)->_flags; + data->stream_length = 0; + data->max_length = 0; + + pdf_add_stream(dst, pdf_stream_dataptr(src), pdf_stream_length(src)); + pdf_merge_dict(data->dict, pdf_stream_dict(src)); + } + break; + case PDF_INDIRECT: + { + pdf_indirect *data; + + dst->data = data = NEW(1, pdf_indirect); + data->label = ((pdf_indirect *) (src->data))->label; + data->generation = ((pdf_indirect *) (src->data))->generation; + data->dirty = ((pdf_indirect *) (src->data))->dirty; + data->dirty_file = ((pdf_indirect *) (src->data))->dirty_file; + } + break; + } + + return; +} + +static int +backup_line (void) +{ + int ch = -1; + + /* + * Note: this code should work even if \r\n is eol. It could fail on a + * machine where \n is eol and there is a \r in the stream --- Highly + * unlikely in the last few bytes where this is likely to be used. + */ + if (tell_position(pdf_input_file) > 1) + do { + seek_relative (pdf_input_file, -2); + } while (tell_position(pdf_input_file) > 0 && + (ch = fgetc(pdf_input_file)) >= 0 && + (ch != '\n' && ch != '\r' )); + if (ch < 0) { + return 0; + } + + return 1; +} + +static unsigned long pdf_file_size = 0; + +static long +find_xref (void) +{ + long xref_pos; + int tries = 10; + + seek_end(pdf_input_file); + + pdf_file_size = tell_position(pdf_input_file); + do { + long currentpos; + + if (!backup_line()) { + tries = 0; + break; + } + currentpos = tell_position(pdf_input_file); + fread(work_buffer, sizeof(char), strlen("startxref"), pdf_input_file); + seek_absolute(pdf_input_file, currentpos); + tries--; + } while (tries > 0 && + strncmp(work_buffer, "startxref", strlen("startxref"))); + if (tries <= 0) + return 0; + + /* Skip rest of this line */ + mfgets(work_buffer, WORK_BUFFER_SIZE, pdf_input_file); + /* Next line of input file should contain actual xref location */ + mfgets(work_buffer, WORK_BUFFER_SIZE, pdf_input_file); + + { + char *start, *end, *number; + + start = work_buffer; + end = start + strlen(work_buffer); + skip_white(&start, end); + number = parse_number(&start, end); + xref_pos = (long) atof(number); + RELEASE(number); + } + + return xref_pos; +} + +/* + * This routine must be called with the file pointer located + * at the start of the trailer. + */ +static pdf_obj * +parse_trailer (void) +{ + pdf_obj *result; + /* + * Fill work_buffer and hope trailer fits. This should + * be made a bit more robust sometime. + */ + if (fread(work_buffer, sizeof(char), + WORK_BUFFER_SIZE, pdf_input_file) == 0 || + strncmp(work_buffer, "trailer", strlen("trailer"))) { + WARN("No trailer. Are you sure this is a PDF file?"); + WARN("buffer:\n->%s<-\n", work_buffer); + result = NULL; + } else { + char *p = work_buffer + strlen("trailer"); + skip_white(&p, work_buffer + WORK_BUFFER_SIZE); + result = parse_pdf_dict(&p, work_buffer + WORK_BUFFER_SIZE); + } + + return result; +} + +struct object +{ + unsigned long file_position; + unsigned generation; + /* + * Object numbers in original file and new file must have different + * object numbers. + * new_ref provides a reference for the object in the new file object + * space. When it is first set, an object in the old file is copied + * to the new file with a new number. new_ref remains set until the + * file is closed so that future references can access the object via + * new_ref instead of copying the object again. + */ + pdf_obj *direct; + pdf_obj *indirect; + int used; +} *xref_table = NULL; +long num_input_objects; + +/* + * This routine tries to estimate an upper bound for character position + * of the end of the object, so it knows how big the buffer must be. + * The parsing routines require that the entire object be read into + * memory. It would be a major pain to rewrite them. The worst case + * is that an object before an xref table will grab the whole table + * :-( + */ +static long +next_object_offset (unsigned long obj_num) +{ + long next = pdf_file_size; /* Worst case */ + long i, curr; + + curr = xref_table[obj_num].file_position; + /* Check all other objects to find next one */ + for (i = 0; i < num_input_objects; i++) { + if (xref_table[i].used && + xref_table[i].file_position > curr && + xref_table[i].file_position < next) + next = xref_table[i].file_position; + } + + return next; +} + +#define checklabel(n,g) ((n) > 0 && (n) < num_input_objects && \ + xref_table[(n)].generation == (g)) +#define labelfreed(n,g) (!xref_table[(n)].used) + +/* + * The following routine returns a reference to an object existing + * only in the input file. It does this as follows. If the object + * has never been referenced before, it reads the object + * in and creates a reference to it. Then it writes + * the object out, keeping the existing reference. If the + * object has been read in (and written out) before, it simply + * returns the retained existing reference to that object + */ +static pdf_obj * +pdf_ref_file_obj (unsigned long obj_num, unsigned obj_gen) +{ + pdf_obj *obj, *ref; + + if (!checklabel(obj_num, obj_gen)) { + WARN("Can't resolve object: %lu %u", + obj_num, obj_gen); + return NULL; + } + ref = xref_table[obj_num].indirect; + if (ref != NULL) + return pdf_link_obj(ref); + + obj = pdf_read_object(obj_num, obj_gen); + if (!obj) { + WARN("Could not read object: %lu %u", + obj_num, obj_gen); + return NULL; + } + + ref = pdf_ref_obj(obj); + xref_table[obj_num].indirect = ref; + xref_table[obj_num].direct = obj; + /* Make sure the caller doesn't free this object */ + + return pdf_link_obj(ref); +} + + +pdf_obj * +pdf_new_ref (unsigned long obj_num, int obj_gen) +{ + pdf_obj *result; + pdf_indirect *indirect; + + if (!checklabel(obj_num, obj_gen)) { + WARN("Invalid object label: %lu %d", obj_num, obj_gen); + return NULL; + } + result = pdf_new_obj(PDF_INDIRECT); + indirect = NEW(1, pdf_indirect); + result->data = indirect; + indirect->label = obj_num; + indirect->generation = obj_gen; + indirect->dirty = 1; + indirect->dirty_file = pdf_input_file; + + return result; +} + + +/* Label without corresponding object definition should + * be replaced with "null". But we won't do that. + */ +static pdf_obj * +pdf_read_object (unsigned long obj_num, unsigned obj_gen) +{ + pdf_obj *result; + long offset, limit, length; + char *buffer, *p, *endptr; + + if (!checklabel(obj_num, obj_gen)) { + WARN("Trying to read nonexistent object: %lu %u", + obj_num, obj_gen); + return NULL; + } + if (labelfreed(obj_num, obj_gen)) { + WARN("Trying to read deleted object: %lu %u", + obj_num, obj_gen); + return NULL; + } + offset = xref_table[obj_num].file_position; + limit = next_object_offset(obj_num); + length = limit - offset; + + if (length <= 0) + return NULL; + + buffer = NEW(length + 1, char); + + seek_absolute(pdf_input_file, offset); + fread(buffer, sizeof(char), length, pdf_input_file); + + p = buffer; + endptr = p + length; + + /* Check for obj_num and obj_gen */ + { + char *q = p; /* <== p */ + char *sp; + unsigned long n, g; + + skip_white(&q, endptr); + sp = parse_unsigned(&q, endptr); + if (!sp) { + RELEASE(buffer); + return NULL; + } + n = strtoul(sp, NULL, 10); + RELEASE(sp); + + skip_white(&q, endptr); + sp = parse_unsigned(&q, endptr); + if (!sp) { + RELEASE(buffer); + return NULL; + } + g = strtoul(sp, NULL, 10); + RELEASE(sp); + + if (n != obj_num || g != obj_gen) { + RELEASE(buffer); + return NULL; + } + + p = q; /* ==> p */ + } + + + skip_white(&p, endptr); + if (memcmp(p, "obj", strlen("obj"))) { + WARN("Didn't find \"obj\"."); + RELEASE(buffer); + return NULL; + } + p += strlen("obj"); + + result = parse_pdf_object(&p, endptr); + + skip_white(&p, endptr); + if (memcmp(p, "endobj", strlen("endobj"))) { + WARN("Didn't find \"endobj\"."); + if (result) + pdf_release_obj(result); + result = NULL; + } + RELEASE(buffer); + + return result; +} + +/* pdf_deref_obj always returns a link instead of the original */ +pdf_obj * +pdf_deref_obj (pdf_obj *obj) +{ + pdf_obj *result; + + if (obj == NULL) + return NULL; + else if (pdf_obj_typeof(obj) != PDF_INDIRECT) { + return pdf_link_obj(obj); + } + +#define OBJ_NUM(o) (((pdf_indirect *)((o)->data))->label) +#define OBJ_GEN(o) (((pdf_indirect *)((o)->data))->generation) +#define ISDIRTY(o) (((pdf_indirect *)((o)->data))->dirty) +#define OBJ_SRC(o) (((pdf_indirect *)((o)->data))->dirty_file) + if (!ISDIRTY(obj)) + ERROR("Tried to deref a non-file object"); + result = pdf_read_object(OBJ_NUM(obj), OBJ_GEN(obj)); + while (result && + pdf_obj_typeof(result) == PDF_INDIRECT + ) { + pdf_obj *tmp; + + tmp = pdf_read_object(OBJ_NUM(result), OBJ_GEN(result)); + pdf_release_obj(result); + result = tmp; + } + + return result; +} + +static void +extend_xref (long new_size) +{ + unsigned long i; + + xref_table = RENEW(xref_table, new_size, struct object); + for (i = num_input_objects; i < new_size; i++) { + xref_table[i].direct = NULL; + xref_table[i].indirect = NULL; + xref_table[i].used = 0; + xref_table[i].file_position = 0L; + } + num_input_objects = new_size; +} + +static int +parse_xref (void) +{ + unsigned long first, size; + unsigned long i, offset; + unsigned int obj_gen; + char flag; + int r; + + /* + * This routine reads one xref segment. It must be called positioned + * at the beginning of an xref table. It may be called multiple times + * on the same file. xref tables sometimes come in pieces. + */ + mfgets(work_buffer, WORK_BUFFER_SIZE, pdf_input_file); + if (memcmp(work_buffer, "xref", strlen("xref"))) { + WARN("No xref. Are you sure this is a PDF file?"); + return 0; + } + /* Next line in file has first item and size of table */ + for (;;) { + unsigned long current_pos; + + current_pos = tell_position(pdf_input_file); + if (mfgets(work_buffer, WORK_BUFFER_SIZE, pdf_input_file) == NULL) + ERROR("parse_xref: premature end of PDF file while parsing xref"); + if (!strncmp(work_buffer, "trailer", strlen ("trailer"))) { + /* + * Backup... This is ugly, but it seems like the safest thing to + * do. It is possible the trailer dictionary starts on the same + * logical line as the word trailer. In that case, the mfgets + * call might have started to read the trailer dictionary and + * parse_trailer would fail. + */ + seek_absolute(pdf_input_file, current_pos); + break; + } + sscanf(work_buffer, "%lu %lu", &first, &size); + if (num_input_objects < first + size) { + extend_xref (first + size); + } + + for (i = first; i < first + size; i++) { + fread(work_buffer, sizeof(char), 20, pdf_input_file); + /* + * Don't overwrite positions that have already been set by a + * modified xref table. We are working our way backwards + * through the reference table, so we only set "position" + * if it hasn't been set yet. + */ +#define POSITION_UNSET(t,n) ((t)[(n)].file_position == 0) +#define SET_XREF_ENTRY(t,n,o,g) \ +do { \ + (t)[(n)].file_position = (o); \ + (t)[(n)].generation = (g); \ +} while (0) +#define SET_XREF_FLAG(t,n,f) ((t)[(n)].used = ((f) == 'n') ? 1 : 0) + work_buffer[19] = 0; + offset = 0UL; obj_gen = 0; flag = 0; + r = sscanf(work_buffer, "%010lu %05u %c", &offset, &obj_gen, &flag); + if ( r != 3 || + ((flag != 'n' && flag != 'f') || + (flag == 'n' && + (offset >= pdf_file_size || (offset > 0 && offset < 4))))) { + WARN("Invalid xref table entry [%lu]. PDF file is corrupt...", i); + return 0; + } + if (POSITION_UNSET(xref_table, i)) + SET_XREF_ENTRY(xref_table, i, offset, obj_gen); + SET_XREF_FLAG(xref_table, i, flag); + } + } + + return 1; +} + +static pdf_obj * +read_xref (void) +{ + pdf_obj *main_trailer; + long xref_pos; + + xref_pos = find_xref(); + if (xref_pos == 0) { + WARN("Can't find xref table."); + return NULL; + } + + /* Read primary xref table */ + seek_absolute(pdf_input_file, xref_pos); + if (!parse_xref()) { + WARN("Couldn't read xref table. Is this a correct PDF file?"); + return NULL; + } + main_trailer = parse_trailer(); + if (main_trailer == NULL) { + WARN("Couldn't read xref trailer. Is this a correct PDF file?"); + return NULL; + } + + { + pdf_obj *xref_size; + + xref_size = pdf_lookup_dict(main_trailer, "Size"); + if (xref_size == NULL || + pdf_lookup_dict(main_trailer, "Root") == NULL) { + WARN("Trailer doesn't have catalog or a size. Is this a correct PDF file?"); + return NULL; + } + if (num_input_objects < pdf_number_value(xref_size)) { + extend_xref((long)pdf_number_value(xref_size)); + } + } + + /* Read any additional xref tables */ + { + pdf_obj *prev_trailer, *prev_xref; + + prev_trailer = pdf_link_obj(main_trailer); + while ((prev_xref = pdf_lookup_dict(prev_trailer, "Prev")) != NULL) { + xref_pos = (long) pdf_number_value(prev_xref); + seek_absolute(pdf_input_file, xref_pos); + pdf_release_obj(prev_trailer); + if (!parse_xref()) { + WARN("Couldn't read xref table. Is this a correct PDF file?"); + return NULL; + } + prev_trailer = parse_trailer(); + if (prev_trailer == NULL) { + WARN("Couldn't read xref trailer. Is this a correct PDF file?"); + return NULL; + } + } + pdf_release_obj(prev_trailer); + } + + return main_trailer; +} + +static char any_open = 0; + +pdf_obj * +pdf_open (FILE *file) +{ + pdf_obj *trailer; + + if (any_open) { + WARN("Only one PDF file may be open at one time."); + exit(1); + } + pdf_input_file = file; + if (!check_for_pdf(pdf_input_file)) { + WARN("pdf_open: Not a PDF 1.[1-3] file."); + return NULL; + } + if ((trailer = read_xref()) == NULL) { + WARN("No trailer."); + pdf_close(); + return NULL; + } + any_open = 1; + + return trailer; +} + +void +pdf_close (void) +{ + unsigned long i; + int done; + + /* + * Following loop must be iterated because each write could trigger + * an additional indirect reference of an object with a lower number! + */ + do { + done = 1; + for (i = 0; i < num_input_objects; i++) { + if (xref_table[i].direct != NULL) { + pdf_release_obj(xref_table[i].direct); + xref_table[i].direct = NULL; + done = 0; + } + } + } while (!done); + /* + * Now take care of the indirect objects. They had to be left around + * until all the direct objects were flushed. + */ + for (i = 0; i < num_input_objects; i++) { + if (xref_table[i].indirect != NULL) { + pdf_release_obj(xref_table[i].indirect); + } + } + RELEASE(xref_table); + xref_table = NULL; + num_input_objects = 0; + any_open = 0; + pdf_input_file = NULL; +} + +int +check_for_pdf (FILE *file) +{ + int result = 0; + + rewind(file); + if (fread(work_buffer, sizeof(char), strlen("%PDF-1.x"), file) == + strlen("%PDF-1.x") && + !strncmp(work_buffer, "%PDF-1.", strlen("%PDF-1."))) { + if (work_buffer[7] >= '0' && work_buffer[7] <= '0' + pdf_version) + result = 1; + else { + WARN("Version of PDF file (1.%c) is newer than version limit specification.", + work_buffer[7]); + } + } + + return result; +} + +static int CDECL +import_dict (pdf_obj *key, pdf_obj *value, void *pdata) +{ + pdf_obj *copy; + pdf_obj *tmp; + + copy = (pdf_obj *) pdata; + + tmp = pdf_import_object(value); + if (!tmp) { + return -1; + } + pdf_add_dict(copy, pdf_link_obj(key), tmp); + + return 0; +} + +pdf_obj * +pdf_import_object (pdf_obj *object) +{ + pdf_obj *imported; + pdf_obj *tmp; + int i; + + switch (pdf_obj_typeof(object)) { + + case PDF_INDIRECT: + if (ISDIRTY(object)) { + if (OBJ_SRC(object) != pdf_input_file) { + WARN("Different file is opened before object is imported?"); + return NULL; + } + imported = pdf_ref_file_obj(OBJ_NUM(object), OBJ_GEN(object)); + } else { + imported = pdf_link_obj(object); + } + break; + + case PDF_STREAM: + { + pdf_obj *stream_dict; + + tmp = pdf_import_object(pdf_stream_dict(object)); + if (!tmp) + return NULL; + + imported = pdf_new_stream(0); + stream_dict = pdf_stream_dict(imported); + pdf_merge_dict(stream_dict, tmp); + pdf_release_obj(tmp); + pdf_add_stream(imported, + pdf_stream_dataptr(object), + pdf_stream_length(object)); + } + break; + + case PDF_DICT: + + imported = pdf_new_dict(); + if (pdf_foreach_dict(object, import_dict, imported) < 0) { + pdf_release_obj(imported); + return NULL; + } + + break; + + case PDF_ARRAY: + + imported = pdf_new_array(); + for (i = 0; i < pdf_array_length(object); i++) { + tmp = pdf_import_object(pdf_get_array(object, i)); + if (!tmp) { + pdf_release_obj(imported); + return NULL; + } + pdf_add_array(imported, tmp); + } + break; + + default: + imported = pdf_link_obj(object); + } + + return imported; +} + + +int +pdf_compare_reference (pdf_obj *ref1, pdf_obj *ref2) +{ + pdf_indirect *data1, *data2; + + if (!PDF_OBJ_INDIRECTTYPE(ref1) || + !PDF_OBJ_INDIRECTTYPE(ref2)) { + ERROR("Not indirect reference..."); + } + + data1 = (pdf_indirect *) ref1->data; + data2 = (pdf_indirect *) ref2->data; + + if (data1->dirty != data2->dirty) + return (int) (data1->dirty - data2->dirty); + if (data1->dirty_file != data2->dirty_file) + return (int) (data1->dirty_file - data2->dirty_file); + if (data1->label != data2->label) + return (int) (data1->label - data2->label); + if (data1->generation != data2->generation) + return (int) (data1->generation - data2->generation); + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/pdfobj.h b/Build/source/texk/xdvipdfmx/src/pdfobj.h new file mode 100644 index 00000000000..9ca8df47b7e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfobj.h @@ -0,0 +1,177 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfobj.h,v 1.21 2005/05/04 16:10:06 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFOBJ_H_ +#define _PDFOBJ_H_ + +#include + +/* Here is the complete list of PDF object types */ + +#define PDF_BOOLEAN 1 +#define PDF_NUMBER 2 +#define PDF_STRING 3 +#define PDF_NAME 4 +#define PDF_ARRAY 5 +#define PDF_DICT 6 +#define PDF_STREAM 7 +#define PDF_NULL 8 +#define PDF_INDIRECT 9 + +#define PDF_OBJ_INVALID 0 +#define PDF_UNDEFINED PDF_OBJ_INVALID + +#define STREAM_COMPRESS (1 << 0) + +typedef struct pdf_obj pdf_obj; + +/* External interface to pdf routines */ + +extern void pdf_obj_set_verbose (void); +extern void pdf_error_cleanup (void); + +extern void pdf_out_init (const char *filename); +extern void pdf_out_flush (void); +extern void pdf_set_version (unsigned version); +extern unsigned pdf_get_version (void); + +extern pdf_obj *pdf_new_obj (int type); +extern void pdf_release_obj (pdf_obj *object); +extern int pdf_obj_typeof (pdf_obj *object); + +#define PDF_OBJ_NUMBERTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_NUMBER) +#define PDF_OBJ_BOOLEANTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_BOOLEAN) +#define PDF_OBJ_STRINGTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_STRING) +#define PDF_OBJ_NAMETYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_NAME) +#define PDF_OBJ_ARRAYTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_ARRAY) +#define PDF_OBJ_NULLTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_NULL) +#define PDF_OBJ_DICTTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_DICT) +#define PDF_OBJ_STREAMTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_STREAM) +#define PDF_OBJ_INDIRECTTYPE(o) ((o) && pdf_obj_typeof((o)) == PDF_INDIRECT) + +#define PDF_OBJ_TYPEOF(o) pdf_obj_typeof((o)) + + +extern pdf_obj *pdf_ref_obj (pdf_obj *object); +extern pdf_obj *pdf_link_obj (pdf_obj *object); + +extern pdf_obj *pdf_new_null (void); + +extern pdf_obj *pdf_new_boolean (char value); +extern void pdf_set_boolean (pdf_obj *object, char value); +extern char pdf_boolean_value (pdf_obj *object); + +extern pdf_obj *pdf_new_number (double value); +extern void pdf_set_number (pdf_obj *object, double value); +extern double pdf_number_value (pdf_obj *number); + +extern pdf_obj *pdf_new_string (const void *str, unsigned length); +extern void pdf_set_string (pdf_obj *object, unsigned char *str, unsigned length); +extern void *pdf_string_value (pdf_obj *object); +extern unsigned pdf_string_length (pdf_obj *object); + +/* Name does not include the / */ +extern pdf_obj *pdf_new_name (const char *name); +extern void pdf_set_name (pdf_obj *object, const char *name); +extern char *pdf_name_value (pdf_obj *object); + +extern pdf_obj *pdf_new_array (void); +/* pdf_add_dict requires key but pdf_add_array does not. + * pdf_add_array always append elements to array. + * They should be pdf_put_array(array, idx, element) and + * pdf_put_dict(dict, key, value) + */ +extern void pdf_add_array (pdf_obj *array, pdf_obj *object); +extern void pdf_put_array (pdf_obj *array, unsigned idx, pdf_obj *object); +extern pdf_obj *pdf_get_array (pdf_obj *array, long idx); +extern unsigned pdf_array_length (pdf_obj *array); + +extern void pdf_unshift_array (pdf_obj *array, pdf_obj *object); +extern pdf_obj *pdf_shift_array (pdf_obj *array); +extern pdf_obj *pdf_pop_array (pdf_obj *array); + +extern pdf_obj *pdf_new_dict (void); +extern void pdf_remove_dict (pdf_obj *dict, const char *key); +extern void pdf_merge_dict (pdf_obj *dict1, pdf_obj *dict2); +extern pdf_obj *pdf_lookup_dict (pdf_obj *dict, const char *key); +extern pdf_obj *pdf_dict_keys (pdf_obj *dict); + +/* pdf_add_dict() want pdf_obj as key, however, key must always be name + * object and pdf_lookup_dict() and pdf_remove_dict() uses const char as + * key. This strange difference seems come from pdfdoc that first allocate + * name objects frequently used (maybe 1000 times) such as /Type and does + * pdf_link_obj() it rather than allocate/free-ing them each time. But I + * already removed that. + */ +extern void pdf_add_dict (pdf_obj *dict, pdf_obj *key, pdf_obj *value); +extern void pdf_put_dict (pdf_obj *dict, const char *key, pdf_obj *value); + +/* Apply proc(key, value, pdata) for each key-value pairs in dict, stop if proc() + * returned non-zero value (and that value is returned). PDF object is passed for + * key to allow modification (fix) of key. + */ +extern int pdf_foreach_dict (pdf_obj *dict, + int (*proc) (pdf_obj *, pdf_obj *, void *), + void *pdata); + +extern pdf_obj *pdf_new_stream (int flags); +extern void pdf_add_stream (pdf_obj *stream, + const void *stream_data_ptr, + long stream_data_len); +extern pdf_obj *pdf_stream_dict (pdf_obj *stream); +extern long pdf_stream_length (pdf_obj *stream); +extern void pdf_stream_set_flags (pdf_obj *stream, int flags); +extern int pdf_stream_get_flags (pdf_obj *stream); +extern const void *pdf_stream_dataptr (pdf_obj *stream); + +#if 0 +extern int pdf_stream_pop_filter (pdf_obj *stream); +#endif + +/* Compare label of two indirect reference object. + */ +extern int pdf_compare_reference (pdf_obj *ref1, pdf_obj *ref2); + +/* The following routines are not appropriate for pdfobj. + */ + +extern void pdf_set_compression (int level); + +extern void pdf_set_info (pdf_obj *obj); +extern void pdf_set_root (pdf_obj *obj); +extern void pdf_set_encrypt (pdf_obj *obj); + +extern int check_for_pdf (FILE *file); +extern pdf_obj *pdf_open (FILE *file); +extern void pdf_close (void); + +extern pdf_obj *pdf_deref_obj (pdf_obj *object); +extern pdf_obj *pdf_import_object (pdf_obj *object); + +extern int pdfobj_escape_str (char *buffer, int size, const unsigned char *s, int len); + +extern pdf_obj *pdf_new_ref (unsigned long label, int generation); +extern void pdf_copy_object (pdf_obj *dst, pdf_obj *src); + +#endif /* _PDFOBJ_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfparse.c b/Build/source/texk/xdvipdfmx/src/pdfparse.c new file mode 100644 index 00000000000..c7dc79a2990 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfparse.c @@ -0,0 +1,1071 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfparse.c,v 1.39 2005/07/21 05:05:14 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "numbers.h" + +#include "mfileio.h" + +#include "pdfobj.h" +#include "pdfdoc.h" +#include "pdfdev.h" + +#include "pdfparse.h" + +/* PDF */ +#ifdef is_space +#undef is_space +#endif +#ifdef is_delim +#undef is_delim +#endif + +#define is_space(c) ((c) == ' ' || (c) == '\t' || (c) == '\f' || \ + (c) == '\r' || (c) == '\n' || (c) == '\0') +#define is_delim(c) ((c) == '(' || (c) == '/' || \ + (c) == '<' || (c) == '>' || \ + (c) == '[' || (c) == ']' || \ + (c) == '%') +#define PDF_TOKEN_END(p,e) ((p) >= (e) || is_space(*(p)) || is_delim(*(p))) + +#define istokensep(c) (is_space((c)) || is_delim((c))) + +static struct { + int tainted; +} parser_state = { + 0 +}; + +static int xtoi (char ch); + +static char *save = NULL; + +void +dump (const char *start, const char *end) +{ + const char *p = start; + +#define DUMP_LIMIT 50 + MESG("\nCurrent input buffer is -->"); + while (p < end && p < start + DUMP_LIMIT) + MESG("%c", *(p++)); + if (p == start+DUMP_LIMIT) + MESG("..."); + MESG("<--\n"); +} + +#define SAVE(s,e) do {\ + save = (s);\ + } while (0) +#define DUMP_RESTORE(s,e) do {\ + dump(save, end);\ + (s) = save;\ + } while (0) + +void +skip_line (char **start, char *end) +{ + while (*start < end && **start != '\n' && **start != '\r') + (*start)++; + /* The carriage return (CR; \r; 0x0D) and line feed (LF; \n; 0x0A) + * characters, also called newline characters, are treated as + * end-of-line (EOL) markers. The combination of a carriage return + * followed immediately by a line feed is treated as one EOL marker. + */ + if (*start < end && **start == '\r') + (*start)++; + if (*start < end && **start == '\n') + (*start)++; +} + +void +skip_white (char **start, char *end) +{ + /* + * The null (NUL; 0x00) character is a white-space character in PDF spec + * but isspace(0x00) returns FALSE; on the other hand, the vertical tab + * (VT; 0x0B) character is not a white-space character in PDF spec but + * isspace(0x0B) returns TRUE. + */ + while (*start < end && (is_space(**start) || **start == '%')) { + if (**start == '%') + skip_line(start, end); + else + (*start)++; + } +} + + +static char * +parsed_string (const char *start, const char *end) +{ + char *result = NULL; + int len; + + len = end - start; + if (len > 0) { + result = NEW(len + 1, char); + memcpy(result, start, len); + result[len] = '\0'; + } + + return result; +} + +char * +parse_number (char **start, char *end) +{ + char *number, *p; + + skip_white(start, end); + p = *start; + if (p < end && (*p == '+' || *p == '-')) + p++; + while (p < end && isdigit(*p)) + p++; + if (p < end && *p == '.') { + p++; + while (p < end && isdigit(*p)) + p++; + } + number = parsed_string(*start, p); + + *start = p; + return number; +} + +char * +parse_unsigned (char **start, char *end) +{ + char *number, *p; + + skip_white(start, end); + for (p = *start; p < end; p++) { + if (!isdigit(*p)) + break; + } + number = parsed_string(*start, p); + + *start = p; + return number; +} + +static char * +parse_gen_ident (char **start, char *end, const char *valid_chars) +{ + char *ident, *p; + + /* No skip_white(start, end)? */ + for (p = *start; p < end; p++) { + if (!strchr(valid_chars, *p)) + break; + } + ident = parsed_string(*start, p); + + *start = p; + return ident; +} + +char * +parse_ident (char **start, char *end) +{ + static const char *valid_chars = + "!\"#$&'*+,-.0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^_`abcdefghijklmnopqrstuvwxyz|~"; + + return parse_gen_ident(start, end, valid_chars); +} + +char * +parse_val_ident (char **start, char *end) +{ + static const char *valid_chars = + "!\"#$&'*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^_`abcdefghijklmnopqrstuvwxyz|~"; + + return parse_gen_ident(start, end, valid_chars); +} + +char * +parse_opt_ident (char **start, char *end) +{ + if (*start < end && **start == '@') { + (*start)++; + return parse_ident(start, end); + } + + return NULL; +} + +#define DDIGITS_MAX 10 +pdf_obj * +parse_pdf_number (char **pp, char *endptr) +{ + char *p; + unsigned long ipart = 0, dpart = 0; + int nddigits = 0, sign = 1; + int has_dot = 0; + static double ipot[DDIGITS_MAX+1] = { + 1.0, + 0.1, + 0.01, + 0.001, + 0.0001, + 0.00001, + 0.000001, + 0.0000001, + 0.00000001, + 0.000000001, + 0.0000000001 + }; + + p = *pp; + skip_white(&p, endptr); + if (p >= endptr || + (!isdigit(p[0]) && p[0] != '.' && + p[0] != '+' && p[0] != '-')) { + WARN("Could not find a numeric object."); + return NULL; + } + + if (p[0] == '-') { + if (p + 1 >= endptr) { + WARN("Could not find a numeric object."); + return NULL; + } + sign = -1; + p++; + } else if (p[0] == '+') { + if (p + 1 >= endptr) { + WARN("Could not find a numeric object."); + return NULL; + } + sign = 1; + p++; + } + + while (p < endptr && !istokensep(p[0])) { + if (p[0] == '.') { + if (has_dot) { /* Two dots */ + WARN("Could not find a numeric object."); + return NULL; + } else { + has_dot = 1; + } + } else if (isdigit(p[0])) { + if (has_dot) { + if (nddigits == DDIGITS_MAX) { + WARN("Number with more than %d fractional digits.", DDIGITS_MAX); + } else if (nddigits < DDIGITS_MAX) { + dpart = dpart * 10 + p[0] - '0'; + nddigits++; + } /* Ignore decimal digits more than DDIGITS_MAX */ + } else { + ipart = ipart * 10 + p[0] - '0'; + } + } else { + WARN("Could not find a numeric object."); + return NULL; + } + p++; + } + + *pp = p; + return pdf_new_number((double) sign * (((double ) ipart) + dpart * ipot[nddigits])); +} + +/* + * PDF Name: + * + * PDF-1.2+: Two hexadecimal digits preceded by a number sign. + */ +static int +pn_getc (char **pp, char *endptr) +{ + int ch = 0; + char *p; + + p = *pp; + if (p[0] == '#') { + if (p + 2 >= endptr) { + *pp = endptr; + return -1; + } + if (!isxdigit(p[1]) || !isxdigit(p[2])) { + *pp += 3; + return -1; + } + ch = (xtoi(p[1]) << 4); + ch += xtoi(p[2]); + *pp += 3; + } else { + ch = p[0]; + *pp += 1; + } + + return ch; +} + +#ifndef PDF_NAME_LEN_MAX +#define PDF_NAME_LEN_MAX 128 +#endif + +#ifndef PDF_STRING_LEN_MAX +#define PDF_STRING_LEN_MAX 65535 +#endif + +#define STRING_BUFFER_SIZE PDF_STRING_LEN_MAX+1 +static char sbuf[PDF_STRING_LEN_MAX+1]; + + +pdf_obj * +parse_pdf_name (char **pp, char *endptr) +{ + char name[PDF_NAME_LEN_MAX+1]; + int ch, len = 0; + + skip_white(pp, endptr); + if (*pp >= endptr || **pp != '/') { + WARN("Could not find a name object."); + return NULL; + } + + (*pp)++; + while (*pp < endptr && !istokensep(**pp)) { + ch = pn_getc(pp, endptr); + if (ch < 0 || ch > 0xff) { + WARN("Invalid char in PDF name object. (ignored)"); + } else if (ch == 0) { + WARN("Null char not allowed in PDF name object. (ignored)"); + } else if (len < STRING_BUFFER_SIZE) { + if (len == PDF_NAME_LEN_MAX) { + WARN("PDF name length too long. (>= %d bytes)", PDF_NAME_LEN_MAX); + } + name[len++] = ch; + } else { + WARN("PDF name length too long. (>= %d bytes, truncated)", + STRING_BUFFER_SIZE); + } + } + if (len < 1) { + WARN("No valid name object found."); + return NULL; + } + name[len] = '\0'; + + return pdf_new_name(name); +} + +pdf_obj * +parse_pdf_boolean (char **pp, char *endptr) +{ + skip_white(pp, endptr); + if (*pp + 4 <= endptr && + !strncmp(*pp, "true", 4)) { + if (*pp + 4 == endptr || + istokensep(*(*pp + 4))) { + *pp += 4; + return pdf_new_boolean(1); + } + } else if (*pp + 5 <= endptr && + !strncmp(*pp, "false", 5)) { + if (*pp + 5 == endptr || + istokensep(*(*pp + 5))) { + *pp += 5; + return pdf_new_boolean(0); + } + } + + WARN("Not a boolean object."); + + return NULL; +} + +pdf_obj * +parse_pdf_null (char **pp, char *endptr) +{ + skip_white(pp, endptr); + if (*pp + 4 > endptr) { + WARN("Not a null object."); + return NULL; + } else if (*pp + 4 < endptr && + !istokensep(*(*pp+4))) { + WARN("Not a null object."); + return NULL; + } else if (!strncmp(*pp, "null", 4)) { + *pp += 4; + return pdf_new_null(); + } + + WARN("Not a null object."); + + return NULL; +} + +/* + * PDF Literal String + */ +#ifndef isodigit +#define isodigit(c) ((c) >= '0' && (c) <= '7') +#endif +static int +ps_getescc (char **pp, char *endptr) +{ + int ch, i; + char *p; + + p = *pp + 1; /* backslash assumed. */ + switch (p[0]) { + case 'n': ch = '\n'; p++; break; + case 'r': ch = '\r'; p++; break; + case 't': ch = '\t'; p++; break; + case 'b': ch = '\b'; p++; break; + case 'f': ch = '\f'; p++; break; + + /* + * An end-of-line marker preceded by a backslash must be ignored. + */ + case '\n': + ch = -1; + p++; + break; + case '\r': + ch = -1; + p++; + if (p < endptr && p[0] == '\n') + p++; + break; + default: + if (p[0] == '\\' || + p[0] == '(' || p[0] == ')') { + ch = p[0]; + p++; + } else if (isodigit(p[0])) { + ch = 0; + /* Don't forget isodigit() is a macro. */ + for (i = 0; i < 3 && + p < endptr && isodigit(p[0]); i++) { + ch = (ch << 3) + (p[0] - '0'); + p++; + } + ch = (ch & 0xff); /* Ignore overflow. */ + } else { + ch = ((unsigned char) p[0]); /* Ignore only backslash. */ + p++; + } + } + + *pp = p; + return ch; +} + +static pdf_obj * +parse_pdf_literal_string (char **pp, char *endptr) +{ + int ch, op_count = 0, len = 0; + char *p; + + p = *pp; + + skip_white(&p, endptr); + + if (p >= endptr || p[0] != '(') + return NULL; + + p++; + + /* + * Accroding to the PDF spec., an end-of-line marker, not preceded + * by a backslash, must be converted to single \n. + */ + while (p < endptr) { + + ch = p[0]; + + if (ch == ')' && op_count < 1) + break; + +#ifndef PDF_PARSE_STRICT + if (parser_state.tainted) { + if (p + 1 < endptr && (ch & 0x80)) { + if (len + 2 >= PDF_STRING_LEN_MAX) { + WARN("PDF string length too long. (limit: %ld)", + PDF_STRING_LEN_MAX); + return NULL; + } + sbuf[len++] = p[0]; + sbuf[len++] = p[1]; + p += 2; + continue; + } + } +#endif /* !PDF_PARSE_STRICT */ + + if (len + 1 >= PDF_STRING_LEN_MAX) { + WARN("PDF string length too long. (limit: %ld)", + PDF_STRING_LEN_MAX); + return NULL; + } + + switch (ch) { + case '\\': + ch = ps_getescc(&p, endptr); + if (ch >= 0) + sbuf[len++] = (ch & 0xff); + break; + case '\r': + p++; + if (p < endptr && p[0] == '\n') + p++; + sbuf[len++] = '\n'; + break; + default: + if (ch == '(') + op_count++; + else if (ch == ')') + op_count--; + sbuf[len++] = ch; + p++; + break; + } + } + + if (op_count > 0 || + p >= endptr || p[0] != ')') { + WARN("Unbalanced parens/truncated PDF literal string."); + return NULL; + } + + *pp = p + 1; + return pdf_new_string(sbuf, len); +} + +/* + * PDF Hex String + */ +static int +xtoi (char ch) +{ + if (ch >= '0' && ch <= '9') + return ch - '0'; + if (ch >= 'A' && ch <= 'F') + return (ch - 'A') + 10; + if (ch >= 'a' && ch <= 'f') + return (ch - 'a') + 10; + + return -1; +} + +static pdf_obj * +parse_pdf_hex_string (char **pp, char *endptr) +{ + char *p; + long len; + + p = *pp; + + skip_white(&p, endptr); + if (p >= endptr || p[0] != '<') + return NULL; + + p++; + + if ((endptr - p + 1) / 2 > PDF_STRING_LEN_MAX) { + WARN("PDF string length too long. (limit: %ld)", + PDF_STRING_LEN_MAX); + return NULL; + } + + len = 0; + /* + * PDF Reference does not describe how to treat invalid char. + * Zero is appended if final hex digit is missing. + */ + while (p < endptr && p[0] != '>') { + int ch; + + skip_white(&p, endptr); + if (p >= endptr || p[0] == '>') + break; + + ch = (xtoi(p[0]) << 4); + p++; + + skip_white(&p, endptr); + if (p < endptr && p[0] != '>') { + ch += xtoi(p[0]); + p++; + } + sbuf[len++] = (ch & 0xff); + } + + if (p >= endptr || p[0] != '>') { + WARN("Premature end of input hex string."); + return NULL; + } + + *pp = p + 1; + return pdf_new_string(sbuf, len); +} + +pdf_obj * +parse_pdf_string (char **pp, char *endptr) +{ + skip_white(pp, endptr); + if (*pp + 2 <= endptr) { + if (**pp == '(') + return parse_pdf_literal_string(pp, endptr); + else if (**pp == '<' && + (*(*pp + 1) == '>' || isxdigit(*(*pp + 1)))) { + return parse_pdf_hex_string(pp, endptr); + } + } + + WARN("Could not find a string object."); + + return NULL; +} + +#ifndef PDF_PARSE_STRICT +pdf_obj * +parse_pdf_tainted_dict (char **pp, char *endptr) +{ + pdf_obj *result; + + parser_state.tainted = 1; + result = parse_pdf_dict(pp, endptr); + parser_state.tainted = 0; + + return result; +} +#else /* PDF_PARSE_STRICT */ +pdf_obj * +parse_pdf_tainted_dict (char **pp, char *endptr, int level) +{ + return parse_pdf_dict(pp, endptr); +} +#endif /* !PDF_PARSE_STRICT */ + +pdf_obj * +parse_pdf_dict (char **pp, char *endptr) +{ + pdf_obj *result = NULL; + char *p; + + p = *pp; + + skip_white(&p, endptr); + + /* At least four letter <<>>. */ + if (p + 4 > endptr || + p[0] != '<' || p[1] != '<') { + return NULL; + } + p += 2; + + result = pdf_new_dict(); + + skip_white(&p, endptr); + while (p < endptr && p[0] != '>') { + pdf_obj *key, *value; + + skip_white(&p, endptr); + key = parse_pdf_name(&p, endptr); + if (!key) { + WARN("Could not find a key in dictionary object."); + pdf_release_obj(result); + return NULL; + } + + skip_white(&p, endptr); + + value = parse_pdf_object(&p, endptr); + if (!value) { + pdf_release_obj(key); + pdf_release_obj(value); + pdf_release_obj(result); + WARN("Could not find a value in dictionary object."); + return NULL; + } + pdf_add_dict(result, key, value); + + skip_white(&p, endptr); + } + + if (p + 2 > endptr || + p[0] != '>' || p[1] != '>') { + WARN("Syntax error: Dictionary object ended prematurely."); + pdf_release_obj(result); + return NULL; + } + + *pp = p + 2; /* skip >> */ + return result; +} + +pdf_obj * +parse_pdf_array (char **pp, char *endptr) +{ + pdf_obj *result; + char *p; + + p = *pp; + + skip_white(&p, endptr); + if (p + 2 > endptr || p[0] != '[') { + WARN("Could not find an array object."); + return NULL; + } + + result = pdf_new_array(); + + p++; + skip_white(&p, endptr); + + while (p < endptr && p[0] != ']') { + pdf_obj *elem; + + elem = parse_pdf_object(&p, endptr); + if (!elem) { + pdf_release_obj(result); + WARN("Could not find a valid object in array object."); + return NULL; + } + pdf_add_array(result, elem); + + skip_white(&p, endptr); + } + + if (p >= endptr || p[0] != ']') { + WARN("Array object ended prematurely."); + pdf_release_obj(result); + return NULL; + } + + *pp = p + 1; /* skip ] */ + return result; +} + +static pdf_obj * +parse_pdf_stream (char **pp, char *endptr, pdf_obj *dict) +{ + pdf_obj *result = NULL; + char *p; + pdf_obj *stream_dict; + long stream_length; + + p = *pp; + skip_white(&p, endptr); + if (p + 6 > endptr || + strncmp(p, "stream", 6)) { + return NULL; + } + p += 6; + + /* Carrige return alone is not allowed after keyword "stream". + * See, PDF Reference, 4th ed., version 1.5, p. 36. + */ + if (p < endptr && p[0] == '\n') { + p++; + } else if (p + 1 < endptr && + (p[0] == '\r' && p[1] == '\n')) { + p += 2; + } +#ifndef PDF_PARSE_STRICT + else { + /* TeX translate end-of-line marker to a single space. */ + if (parser_state.tainted) { + if (p < endptr && p[0] == ' ') { + p++; + } + } + } + /* The end-of-line marker not mandatory? */ +#endif /* !PDF_PARSE_STRICT */ + + /* Stream length */ + { + pdf_obj *tmp, *tmp2; + + tmp = pdf_lookup_dict(dict, "Length"); + + if (tmp != NULL) { + tmp2 = pdf_deref_obj(tmp); + if (pdf_obj_typeof(tmp2) != PDF_NUMBER) + stream_length = -1; + else { + stream_length = (long) pdf_number_value(tmp2); + } + pdf_release_obj(tmp2); + } +#ifndef PDF_PARSE_STRICT + else if (p + 9 <= endptr) + { + /* + * This was added to allow TeX users to write PDF stream object + * directly in their TeX source. This violates PDF spec. + */ + char *q; + + stream_length = -1; + for (q = endptr - 1; q >= p + 8; q--) { + if (q[0] != 'm') + continue; + else { + if (!memcmp(q - 8, "endstrea", 8)) { + /* The end-of-line marker is not skipped here. There are + * no way to decide if it is a part of the stream or not. + */ + stream_length = ((long) (q - p)) - 8; + break; + } + } + } + } +#endif /* !PDF_PARSE_STRICT */ + else { + return NULL; + } + } + + + if (stream_length < 0 || + p + stream_length > endptr) + return NULL; + + /* + * If Filter is not applied, set STREAM_COMPRESS flag. + * Should we use filter for ASCIIHexEncode/ASCII85Encode-ed streams? + */ + { + pdf_obj *filters; + + filters = pdf_lookup_dict(dict, "Filter"); + if (!filters && stream_length > 10) { + result = pdf_new_stream(STREAM_COMPRESS); + } else { + result = pdf_new_stream(0); + } + } + + stream_dict = pdf_stream_dict(result); + pdf_merge_dict(stream_dict, dict); + + pdf_add_stream(result, p, stream_length); + p += stream_length; + + /* Check "endsteam" */ + { + /* + * It is an error if the stream contained too much data except there + * may be an extra end-of-line marker before the keyword "endstream". + */ +#ifdef PDF_PARSE_STRICT + if (p < endptr && p[0] == '\r') + p++; + if (p < endptr && p[0] == '\n') + p++; +#else /* !PDF_PARSE_STRICT */ + /* + * This may skip data starting with '%' and terminated by a + * '\r' or '\n' or '\r\n'. The PDF syntax rule should not be + * applied to the content of the stream data. + * TeX may have converted end-of-line to single white space. + */ + skip_white(&p, endptr); +#endif /* !PDF_PARSE_STRICT */ + + if (p + 9 > endptr || + memcmp(p, "endstream", 9)) { + pdf_release_obj(result); + return NULL; + } + p += 9; + } + + *pp = p; + return result; +} + +#ifndef PDF_PARSE_STRICT + +/* PLEASE REMOVE THIS */ +#include "specials.h" + +/* This is not PDF indirect reference. */ +static pdf_obj * +parse_pdf_reference (char **start, char *end) +{ + pdf_obj *result = NULL; + char *name; + + SAVE(*start, end); + + skip_white(start, end); + name = parse_opt_ident(start, end); + if (name) { + result = spc_lookup_reference(name); + if (!result) { + WARN("Could not find the named reference (@%s).", name); + DUMP_RESTORE(*start, end); + } + RELEASE(name); + } else { + WARN("Could not find a reference name."); + DUMP_RESTORE(*start, end); + result = NULL; + } + + return result; +} +#endif /* !PDF_PARSE_STRICT */ + +static pdf_obj * +try_pdf_reference (char *start, char *end, char **endptr) +{ + unsigned long id = 0, gen = 0; + + if (endptr) + *endptr = start; + + skip_white(&start, end); + if (start > end - 5 || !isdigit(*start)) { + return NULL; + } + while (!is_space(*start)) { + if (start >= end || !isdigit(*start)) { + return NULL; + } + id = id * 10 + (*start - '0'); + start++; + } + + skip_white(&start, end); + if (start >= end || !isdigit(*start)) + return NULL; + while (!is_space(*start)) { + if (start >= end || !isdigit(*start)) + return NULL; + gen = gen * 10 + (*start - '0'); + start++; + } + + skip_white(&start, end); + if (start >= end || *start != 'R') + return NULL; + start++; + if (!PDF_TOKEN_END(start, end)) + return NULL; + + if (endptr) + *endptr = start; + + return pdf_new_ref(id, (int) gen); +} + +pdf_obj * +parse_pdf_object (char **pp, char *endptr) +{ + pdf_obj *result = NULL; + char *nextptr; + + skip_white(pp, endptr); + if (*pp >= endptr) { + WARN("Could not find any valid object."); + return NULL; + } + + switch (**pp) { + + case '<': + + if (*(*pp + 1) != '<') { + result = parse_pdf_hex_string(pp, endptr); + } else { + pdf_obj *dict; + + result = parse_pdf_dict(pp, endptr); + skip_white(pp, endptr); + if ( result && + *pp <= endptr - 15 && + !memcmp(*pp, "stream", 6)) { + dict = result; + result = parse_pdf_stream(pp, endptr, dict); + pdf_release_obj(dict); + } + } + + break; + case '(': + result = parse_pdf_string(pp, endptr); + break; + case '[': + result = parse_pdf_array(pp, endptr); + break; + case '/': + result = parse_pdf_name(pp, endptr); + break; + case 'n': + result = parse_pdf_null(pp, endptr); + break; + case 't': case 'f': + result = parse_pdf_boolean(pp, endptr); + break; + case '+': case '-': case '.': + result = parse_pdf_number(pp, endptr); + break; + case '0': case '1': case '2': case '3': case '4': + case '5': case '6': case '7': case '8': case '9': + + result = try_pdf_reference(*pp, endptr, &nextptr); + if (result) { + *pp = nextptr; + } else { + result = parse_pdf_number(pp, endptr); + } + break; + + case '@': + +#ifndef PDF_PARSE_STRICT + result = parse_pdf_reference(pp, endptr); +#endif /* !PDF_PARSE_STRICT */ + break; + + default: + WARN("Unknown PDF object type."); + result = NULL; + } + + return result; +} + diff --git a/Build/source/texk/xdvipdfmx/src/pdfparse.h b/Build/source/texk/xdvipdfmx/src/pdfparse.h new file mode 100644 index 00000000000..6dfc4e1ee65 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfparse.h @@ -0,0 +1,55 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfparse.h,v 1.14 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFPARSE_H_ +#define _PDFPARSE_H_ + +#include "numbers.h" +#include "pdfobj.h" + +/* Please remove this */ +extern void dump (const char *start, const char *end); + +extern void skip_line (char **start, char *end); +extern void skip_white (char **start, char *end); + +extern char *parse_number (char **start, char *end); +extern char *parse_unsigned (char **start, char *end); + +extern char *parse_ident (char **start, char *end); +extern char *parse_val_ident (char **start, char *end); +extern char *parse_opt_ident (char **start, char *end); + +extern pdf_obj *parse_pdf_name (char **pp, char *endptr); +extern pdf_obj *parse_pdf_boolean (char **pp, char *endptr); +extern pdf_obj *parse_pdf_number (char **pp, char *endptr); +extern pdf_obj *parse_pdf_null (char **pp, char *endptr); +extern pdf_obj *parse_pdf_string (char **pp, char *endptr); +extern pdf_obj *parse_pdf_dict (char **pp, char *endptr); +extern pdf_obj *parse_pdf_array (char **pp, char *endptr); +extern pdf_obj *parse_pdf_object (char **pp, char *endptr); + +extern pdf_obj *parse_pdf_tainted_dict (char **pp, char *endptr); + +#endif /* _PDFPARSE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfresource.c b/Build/source/texk/xdvipdfmx/src/pdfresource.c new file mode 100644 index 00000000000..b79974e0ddd --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfresource.c @@ -0,0 +1,373 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfresource.c,v 1.8 2004/09/05 13:30:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * Currently, this is nearly useless. + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxutil.h" + +#include "pdfobj.h" + +#include "pdfresource.h" + +#define PDF_RESOURCE_DEBUG_STR "PDF" +#define PDF_RESOURCE_DEBUG 3 + +#define PDF_RESOURCE_FONT 0 +#define PDF_RESOURCE_CIDFONT 1 +#define PDF_RESOURCE_ENCODING 2 +#define PDF_RESOURCE_CMAP 3 +#define PDF_RESOURCE_XOBJECT 4 +#define PDF_RESOURCE_COLORSPACE 5 +#define PDF_RESOURCE_SHADING 6 +#define PDF_RESOURCE_PATTERN 7 +#define PDF_RESOURCE_GSTATE 8 + +typedef struct pdf_res +{ + char *ident; + + int flags; + + int category; + void *cdata; + + pdf_obj *object; + pdf_obj *reference; +} pdf_res; + +static struct { + const char *name; + int cat_id; +} pdf_resource_categories[] = { + {"Font", PDF_RESOURCE_FONT}, + {"CIDFont", PDF_RESOURCE_CIDFONT}, + {"Encoding", PDF_RESOURCE_ENCODING}, + {"CMap", PDF_RESOURCE_CMAP}, + {"XObject", PDF_RESOURCE_XOBJECT}, + {"ColorSpace", PDF_RESOURCE_COLORSPACE}, + {"Shading", PDF_RESOURCE_SHADING}, + {"Pattern", PDF_RESOURCE_PATTERN}, + {"ExtGState", PDF_RESOURCE_GSTATE}, +}; + +#define PDF_NUM_RESOURCE_CATEGORIES (sizeof(pdf_resource_categories)/sizeof(pdf_resource_categories[0])) + +#define CACHE_ALLOC_SIZE 16u +struct res_cache +{ + int count; + int capacity; + pdf_res *resources; +}; + +static struct res_cache resources[PDF_NUM_RESOURCE_CATEGORIES]; + +static void +pdf_init_resource (pdf_res *res) +{ + ASSERT(res); + + res->ident = NULL; + res->category = -1; + res->flags = 0; + res->cdata = NULL; + res->object = NULL; + res->reference = NULL; + + return; +} + +static void +pdf_flush_resource (pdf_res *res) +{ + if (res) { + if (res->reference) + pdf_release_obj(res->reference); + if (res->object) + pdf_release_obj(res->object); + + res->reference = NULL; + res->object = NULL; + } +} + +static void +pdf_clean_resource (pdf_res *res) +{ + if (res) { + if (res->reference || res->object) + WARN("Trying to release un-flushed object."); + if (res->reference) + pdf_release_obj(res->reference); + if (res->object) + pdf_release_obj(res->object); + if (res->ident) + RELEASE(res->ident); + res->ident = NULL; + res->category = -1; + res->flags = 0; + } +} + +void +pdf_init_resources (void) +{ + int i; + + for (i = 0; + i < PDF_NUM_RESOURCE_CATEGORIES; i++) { + resources[i].count = 0; + resources[i].capacity = 0; + resources[i].resources = NULL; + } +} + +void +pdf_close_resources (void) +{ + int i; + + for (i = 0; + i < PDF_NUM_RESOURCE_CATEGORIES; i++) { + struct res_cache *rc; + int j; + + rc = &resources[i]; + for (j = 0; j < rc->count; j++) { + pdf_flush_resource(&rc->resources[j]); + pdf_clean_resource(&rc->resources[j]); + } + RELEASE(rc->resources); + + rc->count = 0; + rc->capacity = 0; + rc->resources = NULL; + } +} + +static int +get_category (const char *category) +{ + int i; + + for (i = 0; + i < PDF_NUM_RESOURCE_CATEGORIES; i++) { + if (!strcmp(category, pdf_resource_categories[i].name)) { + return pdf_resource_categories[i].cat_id; + } + } + + return -1; +} + +long +pdf_defineresource (const char *category, + const char *resname, pdf_obj *object, int flags) +{ + int res_id; + struct res_cache *rc; + int cat_id; + pdf_res *res = NULL; + + ASSERT(category && object); + + cat_id = get_category(category); + if (cat_id < 0) { + ERROR("Unknown resource category: %s", category); + return -1; + } + + rc = &resources[cat_id]; + if (resname) { + for (res_id = 0; res_id < rc->count; res_id++) { + res = &rc->resources[res_id]; + if (!strcmp(resname, res->ident)) { + WARN("Resource %s (category: %s) already defined...", + resname, category); + pdf_flush_resource(res); + res->flags = flags; + if (flags & PDF_RES_FLUSH_IMMEDIATE) { + res->reference = pdf_ref_obj(object); + pdf_release_obj(object); + } else { + res->object = object; + } + return (long) ((cat_id << 16)|(res_id)); + } + } + } else { + res_id = rc->count; + } + + if (res_id == rc->count) { + if (rc->count >= rc->capacity) { + rc->capacity += CACHE_ALLOC_SIZE; + rc->resources = RENEW(rc->resources, rc->capacity, pdf_res); + } + res = &rc->resources[res_id]; + + pdf_init_resource(res); + if (resname && resname[0] != '\0') { + res->ident = NEW(strlen(resname) + 1, char); + strcpy(res->ident, resname); + } + res->category = cat_id; + res->flags = flags; + if (flags & PDF_RES_FLUSH_IMMEDIATE) { + res->reference = pdf_ref_obj(object); + pdf_release_obj(object); + } else { + res->object = object; + } + rc->count++; + } + + return (long) ((cat_id << 16)|(res_id)); +} + +int +pdf_resource_exist (const char *category, const char *resname) +{ + int res_id; + struct res_cache *rc; + int cat_id; + + ASSERT(resname && category); + + cat_id = get_category(category); + if (cat_id < 0) + ERROR("Unknown resource category: %s", category); + + rc = &resources[cat_id]; + for (res_id = 0; res_id < rc->count; res_id++) { + pdf_res *res; + + res = &rc->resources[res_id]; + if (!strcmp(resname, res->ident)) { + return 1; + } + } + + return 0; +} + +long +pdf_findresource (const char *category, const char *resname) +{ + pdf_res *res; + int res_id, cat_id; + struct res_cache *rc; + + ASSERT(resname && category); + + cat_id = get_category(category); + if (cat_id < 0) { + ERROR("Unknown resource category: %s", category); + return -1; + } + + rc = &resources[cat_id]; + for (res_id = 0; res_id < rc->count; res_id++) { + res = &rc->resources[res_id]; + if (!strcmp(resname, res->ident)) { + return (long) (cat_id << 16|res_id); + } + } + + return -1; +} + +pdf_obj * +pdf_get_resource_reference (long rc_id) +{ + int cat_id, res_id; + struct res_cache *rc; + pdf_res *res; + + cat_id = (rc_id >> 16) & 0xffff; + res_id = rc_id & 0xffff; + + if (cat_id < 0 || + cat_id >= PDF_NUM_RESOURCE_CATEGORIES) { + ERROR("Invalid category ID: %d", cat_id); + return NULL; + } + rc = &resources[cat_id]; + if (res_id < 0 || res_id >= rc->count) { + ERROR("Invalid resource ID: %d", res_id); + return NULL; + } + + res = &rc->resources[res_id]; + if (!res->reference) { + if (!res->object) { + ERROR("Undefined object..."); + return NULL; + } else { + res->reference = pdf_ref_obj(res->object); + } + } + + return pdf_link_obj(res->reference); +} + +pdf_obj * +pdf_get_resource (long rc_id) +{ + int cat_id, res_id; + struct res_cache *rc; + pdf_res *res; + + cat_id = (rc_id >> 16) & 0xffff; + res_id = rc_id & 0xffff; + + if (cat_id < 0 || + cat_id >= PDF_NUM_RESOURCE_CATEGORIES) { + ERROR("Invalid category ID: %d", cat_id); + return NULL; + } + rc = &resources[cat_id]; + if (res_id < 0 || res_id >= rc->count) { + ERROR("Invalid resource ID: %d", res_id); + return NULL; + } + + res = &rc->resources[res_id]; + if (!res->object) { + ERROR("Object already flushed???"); + return NULL; + } + + return res->object; +} diff --git a/Build/source/texk/xdvipdfmx/src/pdfresource.h b/Build/source/texk/xdvipdfmx/src/pdfresource.h new file mode 100644 index 00000000000..38fc8189b09 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfresource.h @@ -0,0 +1,43 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfresource.h,v 1.6 2004/09/05 13:30:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDF_RESOURCE_H_ +#define _PDF_RESOURCE_H_ + +#include "pdfobj.h" + +#define PDF_RES_FLUSH_IMMEDIATE 1 + +extern void pdf_init_resources (void); +extern void pdf_close_resources (void); + +extern long pdf_defineresource (const char *category, + const char *resname, pdf_obj *object, int flags); +extern long pdf_findresource (const char *category, const char *resname); +extern int pdf_resource_exist (const char *category, const char *resname); + +extern pdf_obj *pdf_get_resource_reference (long res_id); +extern pdf_obj *pdf_get_resource (long res_id); + +#endif /* _PDF_RESOURCE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pdfximage.c b/Build/source/texk/xdvipdfmx/src/pdfximage.c new file mode 100644 index 00000000000..72c287fe2d1 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfximage.c @@ -0,0 +1,807 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfximage.c,v 1.14 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "dpxfile.h" + +#include "pdfobj.h" + +#include "pdfdoc.h" +#include "pdfdev.h" +#include "pdfdraw.h" + +#include "epdf.h" +#include "mpost.h" +#include "pngimage.h" +#include "jpegimage.h" +#include "bmpimage.h" + +#include "pdfximage.h" + +/* From psimage.h */ +static int check_for_ps (FILE *fp); +static int ps_include_page (pdf_ximage *ximage, const char *file_name); + + +#define IMAGE_TYPE_UNKNOWN -1 +#define IMAGE_TYPE_PDF 0 +#define IMAGE_TYPE_JPEG 1 +#define IMAGE_TYPE_PNG 2 +#define IMAGE_TYPE_MPS 4 +#define IMAGE_TYPE_EPS 5 +#define IMAGE_TYPE_BMP 6 + + +struct attr_ +{ + long width, height; + pdf_rect bbox; + double xdpi, ydpi; +}; + +struct pdf_ximage_ +{ + char *ident; + char res_name[16]; + + int subtype; + + struct attr_ attr; + + char *filename; + pdf_obj *reference; + pdf_obj *resource; + int page_index; + int pdf_box; +}; + + +/* verbose, verbose, verbose... */ +struct opt_ +{ + int verbose; + char *cmdtmpl; +}; + +static struct opt_ _opts = { + 0, NULL +}; + +void pdf_ximage_set_verbose (void) { _opts.verbose++; } + + +struct ic_ +{ + int count, capacity; + pdf_ximage *ximages; +}; + +static struct ic_ _ic = { + 0, 0, NULL +}; + +static void +pdf_init_ximage_struct (pdf_ximage *I) +{ + I->ident = NULL; + I->filename = NULL; + I->subtype = -1; + memset(I->res_name, 0, 16); + I->reference = NULL; + I->resource = NULL; + I->page_index = 0; + I->pdf_box = 0; + + I->attr.width = I->attr.height = 0; + I->attr.bbox.llx = I->attr.bbox.lly = 0; + I->attr.bbox.urx = I->attr.bbox.ury = 0; + I->attr.xdpi = I->attr.ydpi = 72.0; +} + +static void +pdf_clean_ximage_struct (pdf_ximage *I) +{ + if (I->ident) + RELEASE(I->ident); + if (I->filename) + RELEASE(I->filename); + if (I->reference) + pdf_release_obj(I->reference); + if (I->resource) + pdf_release_obj(I->resource); + pdf_init_ximage_struct(I); +} + + +void +pdf_init_images (void) +{ + struct ic_ *ic = &_ic; + ic->count = 0; + ic->capacity = 0; + ic->ximages = NULL; +} + +void +pdf_close_images (void) +{ + struct ic_ *ic = &_ic; + if (ic->ximages) { + int i; + for (i = 0; i < ic->count; i++) + pdf_clean_ximage_struct(&ic->ximages[i]); + RELEASE(ic->ximages); + } + ic->ximages = NULL; + ic->count = ic->capacity = 0; + + if (_opts.cmdtmpl) + RELEASE(_opts.cmdtmpl); + _opts.cmdtmpl = NULL; +} + + +static int +source_image_type (FILE *fp) +{ + int format = IMAGE_TYPE_UNKNOWN; + + rewind(fp); + /* + * Make sure we check for PS *after* checking for MP since + * MP is a special case of PS. + */ + if (check_for_jpeg(fp)) + { + format = IMAGE_TYPE_JPEG; + } +#ifdef HAVE_LIBPNG + else if (check_for_png(fp)) + { + format = IMAGE_TYPE_PNG; + } +#endif + else if (check_for_bmp(fp)) + { + format = IMAGE_TYPE_BMP; + } else if (check_for_pdf(fp)) { + format = IMAGE_TYPE_PDF; + } else if (check_for_mp(fp)) { + format = IMAGE_TYPE_MPS; + } else if (check_for_ps(fp)) { + format = IMAGE_TYPE_EPS; + } else { + format = IMAGE_TYPE_UNKNOWN; + } + rewind(fp); + + return format; +} + +#if 0 +#define KEYCMP(k,s) (strcmp(pdf_name_value((k)),(s))) +static int +filter_put_image_attr (pdf_obj *kp, pdf_obj *vp, void *dp) +{ + struct attr_ *attr = dp; + + if (KEYCMP(kp, "Width")) { + if (pdf_obj_typeof(vp) != PDF_NUMBER) + return -1; + attr->width = (long) pdf_number_value(vp); + } else if (KEYCMP(kp, "Height")) { + if (pdf_obj_typeof(vp) != PDF_NUMBER) + return -1; + attr->height = (long) pdf_number_value(vp); + } + + return 0; +} + +static int +filter_put_form_attr (pdf_obj *kp, pdf_obj *vp, void *dp) +{ + struct attr_ *attr = dp; + + if (KEYCMP(kp, "BBox")) { + if (pdf_array_length(vp) != 4) + return -1; + else { + int i; + double v[4]; + for (i = 0; i < 4; i++) { + pdf_obj *obj = pdf_get_array(vp, i); + if (pdf_obj_typeof(vp) != PDF_NUMBER) + return -1; + else { + v = pdf_number_value(obj); + } + } + attr->bbox.llx = v[0]; attr->bbox.lly = v[1]; + attr->bbox.urx = v[2]; attr->bbox.ury = v[3]; + } + } + + return 0; +} +#endif + + +static int +load_image (const char *ident, int page_index, int pdf_box, + const char *fullname, int format, FILE *fp) +{ + struct ic_ *ic = &_ic; + int id = -1; /* ret */ + pdf_ximage *I; + + id = ic->count; + if (ic->count >= ic->capacity) { + ic->capacity += 16; + ic->ximages = RENEW(ic->ximages, ic->capacity, pdf_ximage); + } + + I = &ic->ximages[id]; + pdf_init_ximage_struct(I); + + switch (format) { + case IMAGE_TYPE_JPEG: + if (_opts.verbose) + MESG("[JPEG]"); + if (jpeg_include_image(I, fp) < 0) + return -1; + I->subtype = PDF_XOBJECT_TYPE_IMAGE; + break; +#ifdef HAVE_LIBPNG + case IMAGE_TYPE_PNG: + if (_opts.verbose) + MESG("[PNG]"); + if (png_include_image(I, fp) < 0) + return -1; + I->subtype = PDF_XOBJECT_TYPE_IMAGE; + break; +#endif + case IMAGE_TYPE_BMP: + if (_opts.verbose) + MESG("[BMP]"); + if (bmp_include_image(I, fp) < 0) + return -1; + I->subtype = PDF_XOBJECT_TYPE_IMAGE; + break; + case IMAGE_TYPE_PDF: + if (_opts.verbose) + MESG("[PDF]"); + if (pdf_include_page(I, fp, page_index, pdf_box) < 0) + return -1; + I->subtype = PDF_XOBJECT_TYPE_FORM; + I->page_index = page_index; + I->pdf_box = pdf_box; + break; + case IMAGE_TYPE_EPS: + if (_opts.verbose) + MESG("[PS]"); + if (ps_include_page(I, fullname) < 0) + return -1; + I->subtype = PDF_XOBJECT_TYPE_FORM; + break; + default: + if (_opts.verbose) + MESG("[UNKNOWN]"); + if (ps_include_page(I, fullname) < 0) + return -1; + I->subtype = PDF_XOBJECT_TYPE_FORM; + } + + I->filename = NEW(strlen(ident)+1, char); + I->ident = NEW(strlen(ident)+1, char); + strcpy(I->filename, ident); + strcpy(I->ident, ident); + + switch (I->subtype) { + case PDF_XOBJECT_TYPE_IMAGE: + sprintf(I->res_name, "Im%d", id); + break; + case PDF_XOBJECT_TYPE_FORM: + sprintf(I->res_name, "Fm%d", id); + break; + default: + ERROR("Unknown XObject subtype: %d", I->subtype); + return -1; + } + + ic->count++; + + return id; +} + + +#define dpx_find_file(n,d,s) (kpse_find_pict((n))) +#define dpx_fopen(n,m) (MFOPEN((n),(m))) +#define dpx_fclose(f) (MFCLOSE((f))) + +int +pdf_ximage_findresource (const char *ident, int page_index, int pdf_box) +{ + struct ic_ *ic = &_ic; + int id = -1; + pdf_ximage *I; + char *fullname; + int format; + FILE *fp; + + for (id = 0; id < ic->count; id++) { + I = &ic->ximages[id]; + if (I->ident && !strcmp(ident, I->ident) + && page_index == I->page_index + && pdf_box == I->pdf_box) { + return id; + } + } + + /* try loading image */ + fullname = dpx_find_file(ident, "_pic_", ""); + if (!fullname) { + WARN("Error locating image file \"%s\"", ident); + return -1; + } + + fp = dpx_fopen(fullname, FOPEN_RBIN_MODE); + if (!fp) { + WARN("Error opening image file \"%s\"", fullname); + RELEASE(fullname); + return -1; + } + if (_opts.verbose) { + MESG("(Image:%s", ident); + if (_opts.verbose > 1) + MESG("[%s]", fullname); + } + + format = source_image_type(fp); + switch (format) { + case IMAGE_TYPE_MPS: + if (_opts.verbose) + MESG("[MPS]"); + id = mps_include_page(ident, fp); + break; + default: + id = load_image(ident, page_index, pdf_box, fullname, format, fp); + break; + } + dpx_fclose(fp); + + RELEASE(fullname); + + if (_opts.verbose) + MESG(")"); + + if (id < 0) + WARN("pdf: image inclusion failed for \"%s\".", ident); + + return id; +} + +void +pdf_ximage_init_form_info (xform_info *info) +{ + info->flags = 0; + info->bbox.llx = 0; + info->bbox.lly = 0; + info->bbox.urx = 0; + info->bbox.ury = 0; + info->matrix.a = 1.0; + info->matrix.b = 0.0; + info->matrix.c = 0.0; + info->matrix.d = 1.0; + info->matrix.e = 0.0; + info->matrix.f = 0.0; +} + +void +pdf_ximage_init_image_info (ximage_info *info) +{ + info->flags = 0; + info->width = 0; + info->height = 0; + info->bits_per_component = 0; + info->num_components = 0; + info->min_dpi = 0; + info->xdpi = info->ydpi = 72.0; +} + +void +pdf_ximage_set_image (pdf_ximage *I, void *image_info, pdf_obj *resource) +{ + pdf_obj *dict; + ximage_info *info = image_info; + + if (!PDF_OBJ_STREAMTYPE(resource)) + ERROR("Image XObject must be stream type."); + + I->subtype = PDF_XOBJECT_TYPE_IMAGE; + + I->attr.width = info->width; + I->attr.height = info->height; + + I->attr.xdpi = info->xdpi; + I->attr.ydpi = info->ydpi; + + I->reference = pdf_ref_obj(resource); + + dict = pdf_stream_dict(resource); + pdf_add_dict(dict, pdf_new_name("Type"), pdf_new_name("XObject")); + pdf_add_dict(dict, pdf_new_name("Subtype"), pdf_new_name("Image")); + pdf_add_dict(dict, pdf_new_name("Width"), pdf_new_number(info->width)); + pdf_add_dict(dict, pdf_new_name("Height"), pdf_new_number(info->height)); + pdf_add_dict(dict, pdf_new_name("BitsPerComponent"), + pdf_new_number(info->bits_per_component)); + + pdf_release_obj(resource); /* Caller don't know we are using reference. */ + I->resource = NULL; +} + +void +pdf_ximage_set_form (pdf_ximage *I, void *form_info, pdf_obj *resource) +{ + xform_info *info = form_info; + + I->subtype = PDF_XOBJECT_TYPE_FORM; + I->attr.bbox.llx = info->bbox.llx; + I->attr.bbox.lly = info->bbox.lly; + I->attr.bbox.urx = info->bbox.urx; + I->attr.bbox.ury = info->bbox.ury; + + I->reference = pdf_ref_obj(resource); + pdf_release_obj(resource); /* Caller don't know we are using reference. */ + I->resource = NULL; +} + + +#define CHECK_ID(c,n) do {\ + if ((n) < 0 || (n) >= (c)->count) {\ + ERROR("Invalid XObject ID: %d", (n));\ + }\ +} while (0) +#define GET_IMAGE(c,n) (&((c)->ximages[(n)])) + +pdf_obj * +pdf_ximage_get_reference (int id) +{ + struct ic_ *ic = &_ic; + pdf_ximage *I; + + CHECK_ID(ic, id); + + I = GET_IMAGE(ic, id); + if (!I->reference) + I->reference = pdf_ref_obj(I->resource); + + return pdf_link_obj(I->reference); +} + +int +pdf_ximage_defineresource (const char *ident, + int subtype, void *info, pdf_obj *resource) +{ + struct ic_ *ic = &_ic; + int id; + pdf_ximage *I; + + id = ic->count; + if (ic->count >= ic->capacity) { + ic->capacity += 16; + ic->ximages = RENEW(ic->ximages, ic->capacity, pdf_ximage); + } + + I = &ic->ximages[id]; + + pdf_init_ximage_struct(I); + if (ident) { + I->ident = NEW(strlen(ident) + 1, char); + strcpy(I->ident, ident); + } + + switch (subtype) { + case PDF_XOBJECT_TYPE_IMAGE: + pdf_ximage_set_image(I, info, resource); + I->subtype = PDF_XOBJECT_TYPE_IMAGE; + sprintf(I->res_name, "Im%d", id); + break; + case PDF_XOBJECT_TYPE_FORM: + pdf_ximage_set_form (I, info, resource); + I->subtype = PDF_XOBJECT_TYPE_FORM; + sprintf(I->res_name, "Fm%d", id); + break; + default: + ERROR("Unknown XObject subtype: %d", subtype); + } + ic->count++; + + return id; +} + + +char * +pdf_ximage_get_resname (int id) +{ + struct ic_ *ic = &_ic; + pdf_ximage *I; + + CHECK_ID(ic, id); + + I = GET_IMAGE(ic, id); + + return I->res_name; +} + +/* depth... + * Dvipdfm treat "depth" as "yoffset" for pdf:image and pdf:uxobj + * not as vertical dimension of scaled image. (And there are bugs.) + * This part contains incompatibile behaviour than dvipdfm! + */ +#define EBB_DPI 72 /* was 100 in dvipdfmx; changed to 72 to match xetex's ideas + about graphics resolution/scaling */ +static void +scale_to_fit_I (pdf_tmatrix *T, + transform_info *p, + pdf_ximage *I) +{ + double s_x, s_y; + long wdx = I->attr.width; + long htx = I->attr.height; + double ar, dp; + double xdpi = I->attr.xdpi; + double ydpi = I->attr.ydpi; + + /* if image didn't have DPI info, then treat it as EBB_DPI */ + if (xdpi == 0.0) + xdpi = EBB_DPI; + if (ydpi == 0.0) + ydpi = EBB_DPI; + + if (htx == 0) { + WARN("Image height=0!"); + htx = 1; + } + + ar = (double) wdx / htx; + + /* only width/height --> uniform (keep aspect ratio) + * no width-height --> uniform with 72dpi implied (?) + * both width-height --> non-uniform + */ + if ( (p->flags & INFO_HAS_WIDTH ) && + (p->flags & INFO_HAS_HEIGHT) ) { + s_x = p->width; s_y = p->height + p->depth; + dp = p->depth; + } else if ( p->flags & INFO_HAS_WIDTH ) { + s_x = p->width; s_y = s_x / ar; + dp = 0.0; + } else if ( p->flags & INFO_HAS_HEIGHT ) { + s_y = p->height + p->depth; s_x = s_y * ar; + dp = p->depth; + } else { + s_x = wdx * 72.0 / xdpi; + s_y = htx * 72.0 / ydpi; + dp = 0.0; + } + + T->a = s_x; T->c = 0.0; + T->b = 0.0; T->d = s_y; + T->e = 0.0; T->f = -dp; + + return; +} + + +static void +scale_to_fit_F (pdf_tmatrix *T, + transform_info *p, + pdf_ximage *I) +{ + double s_x, s_y, d_x, d_y; + double wd0, ht0, dp; + + if (p->flags & INFO_HAS_USER_BBOX) { + wd0 = p->bbox.urx - p->bbox.llx; + ht0 = p->bbox.ury - p->bbox.lly; + d_x = -p->bbox.llx; + d_y = -p->bbox.lly; + } else { + wd0 = I->attr.bbox.urx - I->attr.bbox.llx; + ht0 = I->attr.bbox.ury - I->attr.bbox.lly; + d_x = 0.0; + d_y = 0.0; + } + + if (wd0 == 0.0) { + WARN("Image width=0.0!"); + wd0 = 1.0; + } + if (ht0 == 0.0) { + WARN("Image height=0.0!"); + ht0 = 1.0; + } + + if ( (p->flags & INFO_HAS_WIDTH ) && + (p->flags & INFO_HAS_HEIGHT) ) { + s_x = p->width / wd0; + s_y = (p->height + p->depth) / ht0; + dp = p->depth; + } else if ( p->flags & INFO_HAS_WIDTH ) { + s_x = p->width / wd0; + s_y = s_x; + dp = 0.0; + } else if ( p->flags & INFO_HAS_HEIGHT) { + s_y = (p->height + p->depth) / ht0; + s_x = s_y; + dp = p->depth; + } else { + s_x = s_y = 1.0; + dp = 0.0; + } + + T->a = s_x; T->c = 0.0; + T->b = 0.0; T->d = s_y; + T->e = s_x * d_x; T->f = s_y * d_y - dp; + + return; +} + + +int +pdf_ximage_scale_image (int id, + pdf_tmatrix *M, /* ret */ + pdf_rect *r, /* ret */ + transform_info *p /* arg */ + ) +{ + struct ic_ *ic = &_ic; + pdf_ximage *I; + + CHECK_ID(ic, id); + + I = GET_IMAGE(ic, id); + + pdf_setmatrix(M, 1.0, 0.0, 0.0, 1.0, 0.0, 0.0); + + switch (I->subtype) { + case PDF_XOBJECT_TYPE_IMAGE: + scale_to_fit_I(M, p, I); + r->llx = 0.0; + r->lly = 0.0; + r->urx = M->a; + r->ury = M->d; + break; + case PDF_XOBJECT_TYPE_FORM: + scale_to_fit_F(M, p, I); + if (p->flags & INFO_HAS_USER_BBOX) { + r->llx = p->bbox.llx; + r->lly = p->bbox.lly; + r->urx = p->bbox.urx; + r->ury = p->bbox.ury; + } else { + r->llx = I->attr.bbox.llx; + r->lly = I->attr.bbox.lly; + r->urx = I->attr.bbox.urx; + r->ury = I->attr.bbox.ury; + } + break; + } + + return 0; +} + + +/* Migrated from psimage.c */ + +void set_distiller_template (char *s) +{ + if (_opts.cmdtmpl) + RELEASE(_opts.cmdtmpl); + if (!s || *s == '\0') + _opts.cmdtmpl = NULL; + else { + _opts.cmdtmpl = NEW(strlen(s) + 1, char); + strcpy(_opts.cmdtmpl, s); + } + return; +} + +static int +ps_include_page (pdf_ximage *ximage, const char *filename) +{ + char *distiller_template = _opts.cmdtmpl; + char *temp; + FILE *fp; + int error = 0; + + if (!distiller_template) { + WARN("No image converter available for converting file \"%s\" to PDF format.", filename); + WARN(">> Please check if you have 'D' option in config file."); + return -1; + } + + temp = dpx_create_temp_file(); + if (!temp) { + WARN("Failed to create temporary file for image conversion: %s", filename); + return -1; + } + + if (_opts.verbose > 1) { + MESG("\n"); + MESG("pdf_image>> Converting file \"%s\" --> \"%s\" via:\n", filename, temp); + MESG("pdf_image>> %s\n", distiller_template); + MESG("pdf_image>> ..."); + } + + error = dpx_file_apply_filter(distiller_template, filename, temp); + if (error) { + WARN("Image format conversion for \"%s\" failed...", filename); + dpx_delete_temp_file(temp); + return error; + } + + fp = MFOPEN(temp, FOPEN_RBIN_MODE); + if (!fp) { + WARN("Could not open conversion result \"%s\" for image \"%s\". Why?", temp, filename); + dpx_delete_temp_file(temp); + return -1; + } + error = pdf_include_page(ximage, fp, 0, pdfbox_crop); + MFCLOSE(fp); + + if (_opts.verbose > 1) { + MESG("pdf_image>> deleting file \"%s\"", temp); + } + dpx_delete_temp_file(temp); /* temp freed here */ + + if (error) { + WARN("Failed to include image file \"%s\"", filename); + WARN(">> Please check if"); + WARN(">> %s", distiller_template); + WARN(">> %%o = output filename, %%i = input filename, %%b = input filename without suffix"); + WARN(">> can really convert \"%s\" to PDF format image.", filename); + } + + return error; +} + +static int check_for_ps (FILE *image_file) +{ + rewind (image_file); + mfgets (work_buffer, WORK_BUFFER_SIZE, image_file); + if (!strncmp (work_buffer, "%!", 2)) + return 1; + return 0; +} + + diff --git a/Build/source/texk/xdvipdfmx/src/pdfximage.h b/Build/source/texk/xdvipdfmx/src/pdfximage.h new file mode 100644 index 00000000000..730e5a1f9c5 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pdfximage.h @@ -0,0 +1,86 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pdfximage.h,v 1.8 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PDFXIMAGE_H_ +#define _PDFXIMAGE_H_ + +#include "pdfdev.h" + +#define PDF_XOBJECT_TYPE_FORM 0 +#define PDF_XOBJECT_TYPE_IMAGE 1 + +typedef struct { + int flags; + + long width; + long height; + + int bits_per_component; + int num_components; + + double xdpi; + double ydpi; + + long min_dpi; /* NOT USED YET */ +} ximage_info; + +typedef struct { + int flags; + + pdf_rect bbox; + pdf_tmatrix matrix; +} xform_info; + +typedef struct pdf_ximage_ pdf_ximage; + +extern void pdf_ximage_set_verbose (void); + +extern void pdf_init_images (void); +extern void pdf_close_images (void); + +extern char *pdf_ximage_get_resname (int xobj_id); +extern pdf_obj *pdf_ximage_get_reference (int xobj_id); + + +extern int pdf_ximage_findresource (const char *ident, int page_index, int pdf_box); +extern int pdf_ximage_defineresource (const char *ident, + int subtype, void *cdata, pdf_obj *resource); + +/* Called by pngimage, jpegimage, epdf, mpost, etc. */ +extern void pdf_ximage_init_image_info (ximage_info *info); +extern void pdf_ximage_init_form_info (xform_info *info); +extern void pdf_ximage_set_image (pdf_ximage *ximage, void *info, pdf_obj *resource); +extern void pdf_ximage_set_form (pdf_ximage *ximage, void *info, pdf_obj *resource); + +/* from psimage.h */ +extern void set_distiller_template (char *s); + +extern int +pdf_ximage_scale_image (int id, + pdf_tmatrix *M, /* ret */ + pdf_rect *r, /* ret */ + transform_info *p /* arg */ + ); + +#endif /* _PDFXIMAGE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pkfont.c b/Build/source/texk/xdvipdfmx/src/pkfont.c new file mode 100644 index 00000000000..e081705addb --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pkfont.c @@ -0,0 +1,793 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pkfont.c,v 1.16 2005/08/12 18:22:24 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxfile.h" + +#include "numbers.h" +#include "pdfobj.h" +#include "pdfdev.h" /* pdf_rect */ + +#include "pdfencoding.h" +#include "pdffont.h" + +#include "pkfont.h" + +#define ENABLE_GLYPHENC 1 + +#ifndef PKFONT_DPI_DEFAULT +#define PKFONT_DPI_DEFAULT 600u +#endif + +static unsigned base_dpi = PKFONT_DPI_DEFAULT; + +void +PKFont_set_dpi (int dpi) +{ + if (dpi <= 0) + ERROR("Invalid DPI: %d\n", dpi); + base_dpi = dpi; +} + + +/* (Only) This requires TFM to get design size... */ +#include "tfm.h" + +static unsigned +truedpi (const char *ident, double point_size, unsigned bdpi) +{ + unsigned dpi = bdpi; + double design_size; + int tfm_id; + + tfm_id = tfm_open(ident, 0); + if (tfm_id < 0) + return dpi; + + design_size = tfm_get_design_size(tfm_id); + if (design_size <= 0.0) + WARN("DESGIN_SIZE <= 0.0? (TFM=\"%s\")", ident); + else { + dpi = (unsigned) ROUND(base_dpi * point_size / design_size, 1.0); + } + + return dpi; +} + +static FILE * +dpx_open_pk_font_at (const char *ident, unsigned dpi) +{ + FILE *fp; + char *fqpn; + kpse_glyph_file_type kpse_file_info; + + fqpn = kpse_find_glyph(ident, dpi, kpse_pk_format, &kpse_file_info); + if (!fqpn) + return NULL; + fp = MFOPEN(fqpn, FOPEN_RBIN_MODE); + RELEASE(fqpn); + + return fp; +} + + +int +pdf_font_open_pkfont (pdf_font *font) +{ + char *ident; + double point_size; + int encoding_id; + unsigned dpi; + FILE *fp; + + ident = pdf_font_get_ident(font); + point_size = pdf_font_get_param(font, PDF_FONT_PARAM_POINT_SIZE); + encoding_id = pdf_font_get_encoding(font); + + if (!ident || point_size <= 0.0) + return -1; + + dpi = truedpi(ident, point_size, base_dpi); + fp = dpx_open_pk_font_at(ident, dpi); + if (!fp) + return -1; + MFCLOSE(fp); + + /* Type 3 fonts doesn't have FontName. + * FontFamily is recommended for PDF 1.5. + */ + pdf_font_set_fontname(font, ident); + + if (encoding_id >= 0) { + WARN("PK font is found for font \"%s\" but non built-in encoding \"%s\" is specified.", + ident, pdf_encoding_get_name(encoding_id)); +#if ENABLE_GLYPHENC + WARN(">> Assuming this is for glyph name assignment."); +#else + WARN(">> I can't reencode PK font. (not enough information available)"); + WARN(">> Maybe you need to install pfb/opentype/truetype font."); +#endif + } + + return 0; +} + + +/* We are using Mask Image. Fill black is bit clear. + * Optimizing those codes doesn't improve things. + */ +static long +fill_black_run (unsigned char *dp, long left, long run_count) +{ + const static unsigned char mask[8] = { + 127u, 191u, 223u, 239u, 247u, 251u, 253u, 254u + }; + long right = left + run_count - 1; + for ( ; left <= right; left++) { + dp[left / 8] &= mask[left % 8]; + } + return run_count; +} + +/* Just skip bits. See decode_packed() */ +static long +fill_white_run (unsigned char *dp, long left, long run_count) +{ + return run_count; +} + +static long +pk_packed_num (long *np, int dyn_f, unsigned char *dp, long pl) +{ + long nmbr = 0, i = *np; + int nyb, j; +#define get_nyb() ((i % 2) ? dp[i/2] & 0x0f : (dp[i/2] >> 4) & 0x0f) + + if (i / 2 == pl) { + WARN("EOD reached while unpacking pk_packed_num."); + return 0; + } + nyb = get_nyb(); i++; + if (nyb == 0) { + j = 0; + do { + if (i / 2 == pl) { + WARN("EOD reached while unpacking pk_packed_num."); + break; + } + nyb = get_nyb(); i++; + j++; + } while (nyb == 0); + nmbr = nyb; + while (j-- > 0) { + if (i / 2 == pl) { + WARN("EOD reached while unpacking pk_packed_num."); + break; + } + nyb = get_nyb(); i++; + nmbr = nmbr * 16 + nyb; + } + nmbr += (13 - dyn_f) * 16 + dyn_f - 15; + } else if (nyb <= dyn_f) { + nmbr = nyb; + } else if (nyb < 14) { + if (i / 2 == pl) { + WARN("EOD reached while unpacking pk_packed_num."); + return 0; + } + nmbr = (nyb - dyn_f - 1) * 16 + get_nyb() + dyn_f + 1; + i++; + } + + *np = i; + return nmbr; +} + + +#if DEBUG == 2 +static void +send_out (unsigned char *rowptr, long rowbytes, long wd, pdf_obj *stream) +#else +static void +send_out (unsigned char *rowptr, long rowbytes, pdf_obj *stream) +#endif +{ + pdf_add_stream(stream, (void *)rowptr, rowbytes); +#if DEBUG == 2 + { + long i, n, len = (wd + 7) / 8; + int c; + fputc('|', stderr); + for (n = 0; n < len; n++) { + c = rowptr[n]; + for (i = 0; i < 8; i++) { + if (n * 8 + i == wd) + break; + if (c & 1 << (7 - i)) + fputc(' ', stderr); + else + fputc('*', stderr); + } + } + fputc('|', stderr); + fputc('\n', stderr); + } +#endif /* DEBUG2 */ +} + +static int +pk_decode_packed (pdf_obj *stream, long wd, long ht, + int dyn_f, int run_color, unsigned char *dp, long pl) +{ + unsigned char *rowptr; + long rowbytes; + long i, np = 0; + long run_count = 0, repeat_count = 0; + + rowbytes = (wd + 7) / 8; + rowptr = NEW(rowbytes, unsigned char); + /* repeat count is applied to the *current* row. + * "run" can span across rows. + * If there are non-zero repeat count and if run + * spans across row, first repeat and then continue. + */ +#ifdef DEBUG + MESG("\npkfont>> wd: %ld, ht: %ld, dyn_f: %d\n", wd, ht, dyn_f); +#endif + for (np = 0, i = 0; i < ht; i++) { + long rowbits_left, nbits; + + repeat_count = 0; + memset(rowptr, 0xff, rowbytes); /* 1 is white */ + rowbits_left = wd; + /* Fill run left over from previous row */ + if (run_count > 0) { + nbits = MIN(rowbits_left, run_count); + switch (run_color) { + case 0: + rowbits_left -= fill_black_run(rowptr, 0, nbits); + break; + case 1: + rowbits_left -= fill_white_run(rowptr, 0, nbits); + break; + } + run_count -= nbits; + } + + /* Read nybbles until we have a full row */ + while (np / 2 < pl && rowbits_left > 0) { + int nyb; + + nyb = (np % 2) ? dp[np/2] & 0x0f : (dp[np/2] >> 4) & 0x0f; +#if DEBUG == 3 + MESG("\npk_nyb: %d", nyb); +#endif + if (nyb == 14) { /* packed number "repeat_count" follows */ + if (repeat_count != 0) + WARN("Second repeat count for this row!"); + np++; /* Consume this nybble */ + repeat_count = pk_packed_num(&np, dyn_f, dp, pl); +#if DEBUG == 3 + MESG(" --> rep: %ld\n", repeat_count); +#endif + } else if (nyb == 15) { + if (repeat_count != 0) + WARN("Second repeat count for this row!"); + np++; /* Consume this nybble */ + repeat_count = 1; +#if DEBUG == 3 + MESG(" --> rep: %ld\n", repeat_count); +#endif + } else { /* run_count */ + /* Interprete current nybble as packed number */ + run_count = pk_packed_num(&np, dyn_f, dp, pl); +#if DEBUG == 3 + MESG(" --> run: %ld (%d)\n", run_count, run_color); +#endif + nbits = MIN(rowbits_left, run_count); + run_color = !run_color; + run_count -= nbits; + switch (run_color) { + case 0: + rowbits_left -= fill_black_run(rowptr, wd - rowbits_left, nbits); + break; + case 1: + rowbits_left -= fill_white_run(rowptr, wd - rowbits_left, nbits); + break; + } + } + } + /* We got bitmap row data. */ +#if DEBUG == 2 + send_out(rowptr, rowbytes, wd, stream); +#else + send_out(rowptr, rowbytes, stream); +#endif + for ( ; i < ht && repeat_count > 0; repeat_count--, i++) +#if DEBUG == 2 + send_out(rowptr, rowbytes, wd, stream); +#else + send_out(rowptr, rowbytes, stream); +#endif + } + RELEASE(rowptr); + + return 0; +} + +static int +pk_decode_bitmap (pdf_obj *stream, long wd, long ht, + int dyn_f, int run_color, unsigned char *dp, long pl) +{ + unsigned char *rowptr, c; + long i, j, rowbytes; + const static unsigned char mask[8] = { + 0x80u, 0x40u, 0x20u, 0x10u, 0x08u, 0x04u, 0x02u, 0x01u + }; + + ASSERT( dyn_f == 14 ); + if (run_color != 0) { + WARN("run_color != 0 for bitmap pk data?"); + } else if (pl < (wd * ht + 7) / 8) { + WARN("Insufficient bitmap pk data. %ldbytes expected but only %ldbytes read.", + (wd * ht + 7) / 8, pl); + return -1; + } + + rowbytes = (wd + 7) / 8; + rowptr = NEW(rowbytes, unsigned char); + memset(rowptr, 0, rowbytes); + /* Flip. PK bitmap is not byte aligned for each rows. */ + for (i = 0, j = 0; i < ht * wd; i++) { + c = dp[i / 8] & mask[i % 8]; + if (c == 0) + rowptr[j / 8] |= mask[i % 8]; /* flip bit */ + j++; + if (j == wd) { +#if DEBUG == 2 + send_out(rowptr, rowbytes, wd, stream); +#else + send_out(rowptr, rowbytes, stream); +#endif + memset(rowptr, 0, rowbytes); + j = 0; + } + } + + return 0; +} + + +/* Read PK font file */ +static void +do_skip (FILE *fp, unsigned long length) +{ + while (length-- > 0) + fgetc(fp); +} + +static void +do_preamble (FILE *fp) +{ + /* Check for id byte */ + if (fgetc(fp) == 89) { + /* Skip comment */ + do_skip(fp, get_unsigned_byte(fp)); + /* Skip other header info. It's normally used for verifying this + is the file wethink it is */ + do_skip(fp, 16); + } else { + ERROR("embed_pk_font: PK ID byte is incorrect. Are you sure this is a PK file?"); + } + return; +} + +struct pk_header_ +{ + unsigned long pkt_len; + SIGNED_QUAD chrcode; + SIGNED_QUAD wd, dx, dy; + UNSIGNED_QUAD bm_wd, bm_ht, bm_hoff, bm_voff; + int dyn_f, run_color; +}; + +static int +read_pk_char_header (struct pk_header_ *h, unsigned char opcode, FILE *fp) +{ + ASSERT(h); + + if ((opcode & 4) == 0) { /* short */ + h->pkt_len = (opcode & 3) * 0x100U + get_unsigned_byte(fp); + h->chrcode = get_unsigned_byte(fp); + h->wd = get_unsigned_triple(fp); /* TFM width */ + h->dx = get_unsigned_byte(fp) << 16; /* horizontal escapement */ + h->dy = 0L; + h->bm_wd = get_unsigned_byte(fp); + h->bm_ht = get_unsigned_byte(fp); + h->bm_hoff = get_signed_byte(fp); + h->bm_voff = get_signed_byte(fp); + h->pkt_len -= 8; + } else if ((opcode & 7) == 7) { /* long */ + h->pkt_len = get_unsigned_quad(fp); + h->chrcode = get_signed_quad(fp); + h->wd = get_signed_quad(fp); + h->dx = get_signed_quad(fp); /* 16.16 fixed point number in pixels */ + h->dy = get_signed_quad(fp); + h->bm_wd = get_signed_quad(fp); + h->bm_ht = get_signed_quad(fp); + h->bm_hoff = get_signed_quad(fp); + h->bm_voff = get_signed_quad(fp); + h->pkt_len -= 28; + } else { /* extended short */ + h->pkt_len = (opcode & 3) * 0x10000UL + get_unsigned_pair(fp); + h->chrcode = get_unsigned_byte(fp); + h->wd = get_unsigned_triple(fp); + h->dx = get_unsigned_pair(fp) << 16; + h->dy = 0x0L; + h->bm_wd = get_unsigned_pair(fp); + h->bm_ht = get_unsigned_pair(fp); + h->bm_hoff = get_signed_pair(fp); + h->bm_voff = get_signed_pair(fp); + h->pkt_len -= 13; + } + + h->dyn_f = opcode / 16; + h->run_color = (opcode & 8) ? 1 : 0; + + if (h->chrcode > 0xff) + { + WARN("Unable to handle long characters in PK files: code=0x%04x", h->chrcode); + return -1; + } + + return 0; +} + +/* CCITT Group 4 filter may reduce file size. */ +static pdf_obj * +create_pk_CharProc_stream (struct pk_header_ *pkh, + double chrwid, + unsigned char *pkt_ptr, long pkt_len) +{ + pdf_obj *stream; /* charproc */ + long llx, lly, urx, ury; + int len, error = 0; + + llx = -pkh->bm_hoff; + lly = pkh->bm_voff - pkh->bm_ht; + urx = pkh->bm_wd - pkh->bm_hoff; + ury = pkh->bm_voff; + + stream = pdf_new_stream(STREAM_COMPRESS); + /* + * The following line is a "metric" for the PDF reader: + * + * PDF Reference Reference, 4th ed., p.385. + * + * The wx (first operand of d1) must be consistent with the corresponding + * width in the font's Widths array. The format string of sprint() must be + * consistent with write_number() in pdfobj.c. + */ + len = pdf_sprint_number(work_buffer, chrwid); + len += sprintf (work_buffer + len, " 0 %ld %ld %ld %ld d1\n", llx, lly, urx, ury); + pdf_add_stream(stream, work_buffer, len); + /* + * Acrobat dislike transformation [0 0 0 0 dx dy]. + * PDF Reference, 4th ed., p.147, says, + * + * Use of a noninvertible matrix when painting graphics objects can result in + * unpredictable behavior. + * + * but it does not forbid use of such transformation. + */ + if (pkh->bm_wd != 0 && pkh->bm_ht != 0 && pkt_len > 0) { + /* Scale and translate origin to lower left corner for raster data */ + len = sprintf (work_buffer, "q\n%ld 0 0 %ld %ld %ld cm\n", pkh->bm_wd, pkh->bm_ht, llx, lly); + pdf_add_stream(stream, work_buffer, len); + len = sprintf (work_buffer, "BI\n/W %ld\n/H %ld\n/IM true\n/BPC 1\nID ", pkh->bm_wd, pkh->bm_ht); + pdf_add_stream(stream, work_buffer, len); + /* Add bitmap data */ + if (pkh->dyn_f == 14) /* bitmap */ + error = pk_decode_bitmap(stream, + pkh->bm_wd, pkh->bm_ht, + pkh->dyn_f, pkh->run_color, + pkt_ptr, pkt_len); + else + error = pk_decode_packed(stream, + pkh->bm_wd, pkh->bm_ht, + pkh->dyn_f, pkh->run_color, + pkt_ptr, pkt_len); + len = sprintf (work_buffer, "\nEI\nQ"); + pdf_add_stream(stream, work_buffer, len); + } /* Otherwise we embed an empty stream :-( */ + + return stream; +} + +#define PK_XXX1 240 +#define PK_XXX2 241 +#define PK_XXX3 242 +#define PK_XXX4 243 +#define PK_YYY 244 +#define PK_POST 245 +#define PK_NO_OP 246 +#define PK_PRE 247 + +#define pk_char2name(b,c) sprintf((b), "x%02X", (unsigned char)(c)) +int +pdf_font_load_pkfont (pdf_font *font) +{ + pdf_obj *fontdict; + char *usedchars; + char *ident; + unsigned dpi; + FILE *fp; + double point_size, pix2charu; + int opcode, code, firstchar, lastchar, prev; + pdf_obj *charprocs, *procset, *encoding, *tmp_array; + double widths[256]; + pdf_rect bbox; + char charavail[256]; +#if ENABLE_GLYPHENC + int encoding_id; + char **enc_vec; +#endif /* ENABLE_GLYPHENC */ + int error = 0; + + if (!pdf_font_is_in_use(font)) { + return 0; + } + + ident = pdf_font_get_ident(font); + point_size = pdf_font_get_param(font, PDF_FONT_PARAM_POINT_SIZE); + usedchars = pdf_font_get_usedchars(font); +#if ENABLE_GLYPHENC + encoding_id = pdf_font_get_encoding(font); + if (encoding_id < 0) + enc_vec = NULL; + else { + enc_vec = pdf_encoding_get_encoding(encoding_id); + } +#endif /* ENABLE_GLYPHENC */ + + ASSERT(ident && usedchars && point_size > 0.0); + + dpi = truedpi(ident, point_size, base_dpi); + fp = dpx_open_pk_font_at(ident, dpi); + if (!fp) { + ERROR("Could not find/open PK font file: %s (at %udpi)", ident, dpi); + } + + memset(charavail, 0, 256); + charprocs = pdf_new_dict(); + /* Include bitmap as 72dpi image: + * There seems to be problems in "scaled" bitmap glyph + * rendering in several viewers. + */ + pix2charu = 72. * 1000. / ((double) base_dpi) / point_size; + bbox.llx = bbox.lly = bbox.urx = bbox.ury = 0.0; + while ((opcode = fgetc(fp)) >= 0 && opcode != PK_POST) { + if (opcode < 240) { + struct pk_header_ pkh; + + error = read_pk_char_header(&pkh, opcode, fp); + if (error) + ERROR("Error in reading PK character header."); + else if (charavail[pkh.chrcode & 0xff]) + WARN("More than two bitmap image for single glyph?: font=\"%s\" code=0x%02x", + ident, pkh.chrcode); + + if (!usedchars[pkh.chrcode & 0xff]) + do_skip(fp, pkh.pkt_len); + else { + char *charname; + pdf_obj *charproc; + unsigned char *pkt_ptr; + size_t bytesread; + double charwidth; + + /* Charwidth in PDF units */ + charwidth = ROUND(1000.0 * pkh.wd / (((double) (1<<20))*pix2charu), 0.1); + widths[pkh.chrcode & 0xff] = charwidth; + + /* Update font BBox info */ + bbox.llx = MIN(bbox.llx, -pkh.bm_hoff); + bbox.lly = MIN(bbox.lly, pkh.bm_voff - pkh.bm_ht); + bbox.urx = MIN(bbox.urx, pkh.bm_wd - pkh.bm_hoff); + bbox.ury = MIN(bbox.ury, pkh.bm_voff); + + pkt_ptr = NEW(pkh.pkt_len, unsigned char); + if ((bytesread = fread(pkt_ptr, 1, pkh.pkt_len, fp))!= pkh.pkt_len) { + ERROR("Only %ld bytes PK packet read. (expected %ld bytes)", + bytesread, pkh.pkt_len); + } + charproc = create_pk_CharProc_stream(&pkh, charwidth, pkt_ptr, bytesread); + RELEASE(pkt_ptr); + if (!charproc) + ERROR("Unpacking PK character data failed."); +#if ENABLE_GLYPHENC + if (encoding_id >= 0 && enc_vec) { + charname = (char *) enc_vec[pkh.chrcode & 0xff]; + if (!charname || !strcmp(charname, ".notdef")) { + WARN("\".notdef\" glyph used in font (code=0x%02x): %s", pkh.chrcode, ident); + charname = work_buffer; + pk_char2name(charname, pkh.chrcode); + } + } + else +#endif /* ENABLE_GLYPHENC */ + { + charname = work_buffer; + pk_char2name(charname, pkh.chrcode); + } + + pdf_add_dict(charprocs, pdf_new_name(charname), pdf_ref_obj(charproc)); /* _FIXME_ */ + pdf_release_obj(charproc); + } + charavail[pkh.chrcode & 0xff] = 1; + } else { /* A command byte */ + switch (opcode) { + case PK_NO_OP: break; + case PK_XXX1: do_skip(fp, get_unsigned_byte(fp)); break; + case PK_XXX2: do_skip(fp, get_unsigned_pair(fp)); break; + case PK_XXX3: do_skip(fp, get_unsigned_triple(fp)); break; + case PK_XXX4: do_skip(fp, get_unsigned_quad(fp)); break; + case PK_YYY: do_skip(fp, 4); break; + case PK_PRE: do_preamble(fp); break; + } + } + } + MFCLOSE(fp); + + /* Check if we really got all glyphs needed. */ + for (code = 0; code < 256; code++) { + if (usedchars[code] && !charavail[code]) + WARN("Missing glyph code=0x%02x in PK font \"%s\".", code, ident); + } + + /* Now actually fill fontdict. */ + fontdict = pdf_font_get_resource(font); + + pdf_add_dict(fontdict, + pdf_new_name("CharProcs"), pdf_ref_obj(charprocs)); + pdf_release_obj(charprocs); + + /* + * Resources: + * + * PDF Reference 4th ed. describes it as "Optional but strongly recommended". + * There are no reason to put it in our case, but we will put this. + * We do not care about compatibility with Acrobat 2.x. (See implementation + * note 47, Appendix H of PDF Ref., 4th ed.). + */ + procset = pdf_new_dict(); + tmp_array = pdf_new_array(); + pdf_add_array(tmp_array, pdf_new_name("PDF")); + pdf_add_array(tmp_array, pdf_new_name("ImageB")); + pdf_add_dict(procset, + pdf_new_name("ProcSet"), tmp_array); + pdf_add_dict(fontdict, + pdf_new_name("Resources"), procset); + + /* Encoding */ + tmp_array = pdf_new_array(); + prev = -2; firstchar = 255; lastchar = 0; + for (code = 0; code < 256; code++) { + char *charname; + if (usedchars[code]) { + if (code < firstchar) firstchar = code; + if (code > lastchar) lastchar = code; + if (code != prev + 1) + pdf_add_array(tmp_array, pdf_new_number(code)); + +#if ENABLE_GLYPHENC + if (encoding_id >= 0 && enc_vec) { + charname = (char *) enc_vec[(unsigned char) code]; + if (!charname || !strcmp(charname, ".notdef")) { + charname = work_buffer; + pk_char2name(charname, code); + } + } + else +#endif /* ENABLE_GLYPHENC */ + { + charname = work_buffer; + pk_char2name(charname, code); + } + pdf_add_array(tmp_array, pdf_new_name(charname)); + prev = code; + } + } + if (firstchar > lastchar) { + ERROR("Unexpected error: firstchar > lastchar (%d %d)", + firstchar, lastchar); + pdf_release_obj(tmp_array); + return -1; + } + encoding = pdf_new_dict(); + pdf_add_dict(encoding, + pdf_new_name("Type"), pdf_new_name("Encoding")); + pdf_add_dict(encoding, + pdf_new_name("Differences"), tmp_array); + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), pdf_ref_obj(encoding)); + pdf_release_obj(encoding); + + /* FontBBox: Accurate value is important. + */ + tmp_array = pdf_new_array(); + pdf_add_array(tmp_array, pdf_new_number(bbox.llx)); + pdf_add_array(tmp_array, pdf_new_number(bbox.lly)); + pdf_add_array(tmp_array, pdf_new_number(bbox.urx)); + pdf_add_array(tmp_array, pdf_new_number(bbox.ury)); + pdf_add_dict (fontdict , pdf_new_name("FontBBox"), tmp_array); + + /* Widths: + * Indirect reference preffered. (See PDF Reference) + */ + tmp_array = pdf_new_array(); + for (code = firstchar; code <= lastchar; code++) { + if (usedchars[code]) + pdf_add_array(tmp_array, pdf_new_number(widths[code])); + else { + pdf_add_array(tmp_array, pdf_new_number(0)); + } + } + pdf_add_dict(fontdict, + pdf_new_name("Widths"), pdf_ref_obj(tmp_array)); + pdf_release_obj(tmp_array); + + /* FontMatrix */ + tmp_array = pdf_new_array(); + pdf_add_array(tmp_array, pdf_new_number(0.001 * pix2charu)); + pdf_add_array(tmp_array, pdf_new_number(0.0)); + pdf_add_array(tmp_array, pdf_new_number(0.0)); + pdf_add_array(tmp_array, pdf_new_number(0.001 * pix2charu)); + pdf_add_array(tmp_array, pdf_new_number(0.0)); + pdf_add_array(tmp_array, pdf_new_number(0.0)); + pdf_add_dict (fontdict , pdf_new_name("FontMatrix"), tmp_array); + + + pdf_add_dict(fontdict, + pdf_new_name("FirstChar"), pdf_new_number(firstchar)); + pdf_add_dict(fontdict, + pdf_new_name("LastChar"), pdf_new_number(lastchar)); + +#if ENABLE_GLYPHENC + /* ToUnicode */ + if (encoding_id >= 0) { + if (!pdf_lookup_dict(fontdict, "ToUnicode")) + pdf_attach_ToUnicode_CMap(fontdict, encoding_id, usedchars); + } +#endif /* ENABLE_GLYPHENC */ + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/pkfont.h b/Build/source/texk/xdvipdfmx/src/pkfont.h new file mode 100644 index 00000000000..9e5b9f87bb3 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pkfont.h @@ -0,0 +1,35 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pkfont.h,v 1.6 2004/09/02 12:23:07 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PK_FONT_H_ +#define _PK_FONT_H_ + +#include "pdffont.h" + +extern int pdf_font_open_pkfont (pdf_font *font); +extern int pdf_font_load_pkfont (pdf_font *font); + +extern void PKFont_set_dpi(int dpi); + +#endif /* _PK_FONT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pngimage.c b/Build/source/texk/xdvipdfmx/src/pngimage.c new file mode 100644 index 00000000000..9d680b73afd --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pngimage.c @@ -0,0 +1,1006 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pngimage.c,v 1.24 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +/* + * PNG SUPPORT + * + * All bitdepth less than 16 is supported. + * Supported color types are: PALETTE, RGB, GRAY, RGB_ALPHA, GRAY_ALPHA. + * Supported ancillary chunks: tRNS, cHRM + gAMA, (sRGB), (iCCP) + * + * gAMA support is available only when cHRM exists. cHRM support is not + * tested well. CalRGB/CalGray colorspace is used for PNG images that + * have cHRM chunk (but not sRGB). + * + * LIMITATIONS + * + * Recent version of PDF (>= 1.5) support 16 bpc, but 16 bit bitdepth PNG + * images are automatically converted to 8 bit bitpedth image. + * + * TODO + * + * sBIT ? iTXT, tEXT and tIME as MetaData ?, pHYS (see below) + * 16 bpc support for PDF-1.5. JBIG compression for monochrome image. + * Predictor for deflate ? + */ + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "pdfcolor.h" +#include "pdfobj.h" + +#define PNG_DEBUG_STR "PNG" +#define PNG_DEBUG 3 + +#ifdef HAVE_LIBPNG + +/* + * Write, MNG, Progressive not required. + */ +#define PNG_NO_WRITE_SUPPORTED +#define PNG_NO_MNG_FEATURES +#define PNG_NO_PROGRESSIVE_READ +#if 0 +/* 16_TO_8 required. */ +#define PNG_NO_READ_TRANSFORMS +#endif + +#include +#include "pngimage.h" + +#include "pdfximage.h" + +#define PDF_TRANS_TYPE_NONE 0 +#define PDF_TRANS_TYPE_BINARY 1 +#define PDF_TRANS_TYPE_ALPHA 2 + +/* ColorSpace */ +static pdf_obj *create_cspace_Indexed (png_structp png_ptr, png_infop info_ptr); + +/* CIE-Based: CalRGB/CalGray + * + * We ignore gAMA if cHRM is not found. + */ +static pdf_obj *create_cspace_CalRGB (png_structp png_ptr, png_infop info_ptr); +static pdf_obj *create_cspace_CalGray (png_structp png_ptr, png_infop info_ptr); +static pdf_obj *make_param_Cal (png_byte color_type, + double G, + double xw, double yw, + double xr, double yr, + double xg, double yg, + double xb, double yb); + +/* sRGB: + * + * We (and PDF) do not have direct sRGB support. The sRGB color space can be + * precisely represented by ICC profile, but we use approximate CalRGB color + * space. + */ +static pdf_obj *create_cspace_sRGB (png_structp png_ptr, png_infop info_ptr); +static pdf_obj *get_rendering_intent (png_structp png_ptr, png_infop info_ptr); + +/* ICCBased: + * + * Not supported yet. + * Must check if ICC profile is valid and can be imported to PDF. + * There are few restrictions (should be applied to PNG too?) in ICC profile + * support in PDF. Some information should be obtained from profile. + */ +static pdf_obj *create_cspace_ICCBased (png_structp png_ptr, png_infop info_ptr); + +/* Transparency */ +static int check_transparency (png_structp png_ptr, png_infop info_ptr); +/* Color-Key Mask */ +static pdf_obj *create_ckey_mask (png_structp png_ptr, png_infop info_ptr); +/* Soft Mask: + * + * create_soft_mask() is for PNG_COLOR_TYPE_PALLETE. + * Images with alpha chunnel use strip_soft_mask(). + * An object representing mask itself is returned. + */ +static pdf_obj *create_soft_mask (png_structp png_ptr, png_infop info_ptr, + png_bytep image_data_ptr, + png_uint_32 width, png_uint_32 height); +static pdf_obj *strip_soft_mask (png_structp png_ptr, png_infop info_ptr, + png_bytep image_data_ptr, + png_uint_32p rowbytes_ptr, + png_uint_32 width, png_uint_32 height); + +/* Read image body */ +static void read_image_data (png_structp png_ptr, png_infop info_ptr, + png_bytep dest_ptr, + png_uint_32 height, png_uint_32 rowbytes); + +int +check_for_png (FILE *png_file) +{ + unsigned char sigbytes[4]; + + rewind (png_file); + if (fread (sigbytes, 1, sizeof(sigbytes), png_file) != + sizeof(sigbytes) || + (!png_check_sig (sigbytes, sizeof(sigbytes)))) + return 0; + else + return 1; +} + +int +png_include_image (pdf_ximage *ximage, FILE *png_file) +{ + pdf_obj *stream; + pdf_obj *stream_dict; + pdf_obj *colorspace, *mask, *intent; + png_bytep stream_data_ptr; + int trans_type; + ximage_info info; + /* Libpng stuff */ + png_structp png_ptr; + png_infop png_info_ptr; + png_byte bpc, color_type; + png_uint_32 width, height, rowbytes; + + pdf_ximage_init_image_info(&info); + + stream = NULL; + stream_dict = NULL; + colorspace = mask = intent = NULL; + + rewind (png_file); + png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); + if (png_ptr == NULL || + (png_info_ptr = png_create_info_struct (png_ptr)) == NULL) { + WARN("%s: Creating Libpng read/info struct failed.", PNG_DEBUG_STR); + if (png_ptr) + png_destroy_read_struct(&png_ptr, NULL, NULL); + return -1; + } + + /* Inititializing file IO. */ + png_init_io (png_ptr, png_file); + + /* Read PNG info-header and get some info. */ + png_read_info(png_ptr, png_info_ptr); + color_type = png_get_color_type (png_ptr, png_info_ptr); + width = png_get_image_width (png_ptr, png_info_ptr); + height = png_get_image_height(png_ptr, png_info_ptr); + bpc = png_get_bit_depth (png_ptr, png_info_ptr); + + info.xdpi = png_get_x_pixels_per_meter(png_ptr, png_info_ptr) * 0.0254; + info.ydpi = png_get_y_pixels_per_meter(png_ptr, png_info_ptr) * 0.0254; + + /* We do not need 16-bpc color. Ask libpng to convert down to 8-bpc. */ + if (bpc > 8) { + png_set_strip_16(png_ptr); + bpc = 8; + } + + trans_type = check_transparency(png_ptr, png_info_ptr); + /* check_transparency() does not do updata_info() */ + png_read_update_info(png_ptr, png_info_ptr); + rowbytes = png_get_rowbytes(png_ptr, png_info_ptr); + + stream = pdf_new_stream (STREAM_COMPRESS); + stream_dict = pdf_stream_dict(stream); + + /* Values listed below will not be modified in the remaining process. */ + info.width = width; + info.height = height; + info.bits_per_component = bpc; + + stream_data_ptr = (png_bytep) NEW(rowbytes*height, png_byte); + read_image_data(png_ptr, png_info_ptr, stream_data_ptr, height, rowbytes); + + /* Non-NULL intent means there is valid sRGB chunk. */ + intent = get_rendering_intent(png_ptr, png_info_ptr); + if (intent) + pdf_add_dict(stream_dict, pdf_new_name("Intent"), intent); + + switch (color_type) { + case PNG_COLOR_TYPE_PALETTE: + + colorspace = create_cspace_Indexed(png_ptr, png_info_ptr); + + switch (trans_type) { + case PDF_TRANS_TYPE_BINARY: + /* Color-key masking */ + mask = create_ckey_mask(png_ptr, png_info_ptr); + break; + case PDF_TRANS_TYPE_ALPHA: + /* Soft mask */ + mask = create_soft_mask(png_ptr, png_info_ptr, stream_data_ptr, width, height); + break; + default: + /* Nothing to be done here. + * No tRNS chunk or image already composited with background color. + */ + break; + } + break; + case PNG_COLOR_TYPE_RGB: + case PNG_COLOR_TYPE_RGB_ALPHA: + + if (png_get_valid(png_ptr, png_info_ptr, PNG_INFO_iCCP)) + colorspace = create_cspace_ICCBased(png_ptr, png_info_ptr); + else if (intent) { + colorspace = create_cspace_sRGB(png_ptr, png_info_ptr); + } else { + colorspace = create_cspace_CalRGB(png_ptr, png_info_ptr); + } + if (!colorspace) + colorspace = pdf_new_name("DeviceRGB"); + + switch (trans_type) { + case PDF_TRANS_TYPE_BINARY: + if (color_type != PNG_COLOR_TYPE_RGB) + ERROR("Unexpected error in png_include_image()."); + mask = create_ckey_mask(png_ptr, png_info_ptr); + break; + /* rowbytes changes 4 to 3 at here */ + case PDF_TRANS_TYPE_ALPHA: + if (color_type != PNG_COLOR_TYPE_RGB_ALPHA) + ERROR("Unexpected error in png_include_image()."); + mask = strip_soft_mask(png_ptr, png_info_ptr, + stream_data_ptr, &rowbytes, width, height); + break; + default: + mask = NULL; + } + info.num_components = 3; + break; + + case PNG_COLOR_TYPE_GRAY: + case PNG_COLOR_TYPE_GRAY_ALPHA: + + if (png_get_valid(png_ptr, png_info_ptr, PNG_INFO_iCCP)) + colorspace = create_cspace_ICCBased(png_ptr, png_info_ptr); + else if (intent) { + colorspace = create_cspace_sRGB(png_ptr, png_info_ptr); + } else { + colorspace = create_cspace_CalGray(png_ptr, png_info_ptr); + } + if (!colorspace) + colorspace = pdf_new_name("DeviceGray"); + + switch (trans_type) { + case PDF_TRANS_TYPE_BINARY: + if (color_type != PNG_COLOR_TYPE_GRAY) + ERROR("Unexpected error in png_include_image()."); + mask = create_ckey_mask(png_ptr, png_info_ptr); + break; + case PDF_TRANS_TYPE_ALPHA: + if (color_type != PNG_COLOR_TYPE_GRAY_ALPHA) + ERROR("Unexpected error in png_include_image()."); + mask = strip_soft_mask(png_ptr, png_info_ptr, + stream_data_ptr, &rowbytes, width, height); + break; + default: + mask = NULL; + } + info.num_components = 1; + break; + + default: + WARN("%s: Unknown PNG colortype %d.", PNG_DEBUG_STR, color_type); + } + pdf_add_dict(stream_dict, pdf_new_name("ColorSpace"), colorspace); + + pdf_add_stream(stream, stream_data_ptr, rowbytes*height); + RELEASE(stream_data_ptr); + + if (mask) { + if (trans_type == PDF_TRANS_TYPE_BINARY) + pdf_add_dict(stream_dict, pdf_new_name("Mask"), mask); + else if (trans_type == PDF_TRANS_TYPE_ALPHA) { + pdf_add_dict(stream_dict, pdf_new_name("SMask"), pdf_ref_obj(mask)); + pdf_release_obj(mask); + } else { + WARN("%s: You found a bug in pngimage.c.", PNG_DEBUG_STR); + pdf_release_obj(mask); + } + } + + png_read_end(png_ptr, NULL); + + /* Cleanup */ + if (png_info_ptr) + png_destroy_info_struct(png_ptr, &png_info_ptr); + if (png_ptr) + png_destroy_read_struct(&png_ptr, NULL, NULL); + + pdf_ximage_set_image(ximage, &info, stream); + + return 0; +} + +/* + * The returned value trans_type is the type of transparency to be used for + * this image. Possible values are: + * + * PDF_TRANS_TYPE_NONE No Masking will be used/required. + * PDF_TRANS_TYPE_BINARY Pixels are either fully opaque/fully transparent. + * PDF_TRANS_TYPE_ALPHA Uses alpha channel, requies SMask.(PDF-1.4) + * + * check_transparency() must check the current setting of output PDF version + * and must choose appropriate trans_type value according to PDF version of + * current output PDF document. + * + * If the PDF version is less than 1.3, no transparency is supported for this + * version of PDF, hence PDF_TRANS_TYPE_NONE must be returned. And when the PDF + * version is equal to 1.3, possible retrun values are PDF_TRANS_TYPE_BINARY or + * PDF_TRANS_TYPE_NONE. The latter case arises when PNG file uses alpha channel + * explicitly (color type PNG_COLOR_TYPE_XXX_ALPHA), or the tRNS chunk for the + * PNG_COLOR_TYPE_PALETTE image contains intermediate values of opacity. + * + * Finally, in the case of PDF version 1.4, all kind of translucent pixels can + * be represented with Soft-Mask. + */ + +static int +check_transparency (png_structp png_ptr, png_infop info_ptr) +{ + int trans_type; + unsigned pdf_version; + png_byte color_type; + png_color_16p trans_values; + png_bytep trans; + int num_trans; + + pdf_version = pdf_get_version(); + color_type = png_get_color_type(png_ptr, info_ptr); + + /* + * First we set trans_type to appropriate value for PNG image. + */ + if (color_type == PNG_COLOR_TYPE_RGB_ALPHA || + color_type == PNG_COLOR_TYPE_GRAY_ALPHA) { + trans_type = PDF_TRANS_TYPE_ALPHA; + } else if (png_get_valid(png_ptr, info_ptr, PNG_INFO_tRNS) && + png_get_tRNS(png_ptr, info_ptr, &trans, &num_trans, &trans_values)) { + /* Have valid tRNS chunk. */ + switch (color_type) { + case PNG_COLOR_TYPE_PALETTE: + /* Use color-key mask if possible. */ + trans_type = PDF_TRANS_TYPE_BINARY; + while (num_trans-- > 0) { + if (trans[num_trans] != 0x00 && trans[num_trans] != 0xff) { + /* This seems not binary transparency */ + trans_type = PDF_TRANS_TYPE_ALPHA; + break; + } + } + break; + case PNG_COLOR_TYPE_GRAY: + case PNG_COLOR_TYPE_RGB: + /* RGB or GRAY, single color specified by trans_values is transparent. */ + trans_type = PDF_TRANS_TYPE_BINARY; + break; + default: + /* Else tRNS silently ignored. */ + trans_type = PDF_TRANS_TYPE_NONE; + } + } else { /* no transparency */ + trans_type = PDF_TRANS_TYPE_NONE; + } + + /* + * Now we check PDF version. + * We can convert alpha cahnnels to explicit mask via user supplied alpha- + * threshold value. But I will not do that. + */ + if (( pdf_version < 3 && trans_type != PDF_TRANS_TYPE_NONE ) || + ( pdf_version < 4 && trans_type == PDF_TRANS_TYPE_ALPHA )) { + /* + * No transparency supported but PNG uses transparency, or Soft-Mask + * required but no support for it is available in this version of PDF. + * We must do pre-composition of image with the background image here. But, + * we cannot do that in general since dvipdfmx is not a rasterizer. What we + * can do here is to composite image with a rectangle filled with the + * background color. However, images are stored as an Image XObject which + * can be referenced anywhere in the PDF document content. Hence, we cannot + * know the correct background color at this time. So we will choose white + * as background color, which is most probable color in our cases. + * We ignore bKGD chunk. + */ + png_color_16 bg; + bg.red = 255; bg.green = 255; bg.blue = 255; bg.gray = 255; bg.index = 0; + png_set_background(png_ptr, &bg, PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0); + WARN("%s: Transparency will be ignored. (no support in PDF ver. < 1.3)", PNG_DEBUG_STR); + if (pdf_version < 3) + WARN("%s: Please use -V 3 option to enable binary transparency support.", PNG_DEBUG_STR); + if (pdf_version < 4) + WARN("%s: Please use -V 4 option to enable full alpha channel support.", PNG_DEBUG_STR); + trans_type = PDF_TRANS_TYPE_NONE; + } + + return trans_type; +} + +/* + * sRGB: + * + * If sRGB chunk is present, cHRM and gAMA chunk must be ignored. + * + */ +static pdf_obj * +get_rendering_intent (png_structp png_ptr, png_infop info_ptr) +{ + pdf_obj *intent; + int srgb_intent; + + if (png_get_valid(png_ptr, info_ptr, PNG_INFO_sRGB) && + png_get_sRGB (png_ptr, info_ptr, &srgb_intent)) { + switch (srgb_intent) { + case PNG_sRGB_INTENT_SATURATION: + intent = pdf_new_name("Saturation"); + break; + case PNG_sRGB_INTENT_PERCEPTUAL: + intent = pdf_new_name("Perceptual"); + break; + case PNG_sRGB_INTENT_ABSOLUTE: + intent = pdf_new_name("AbsoluteColorimetric"); + break; + case PNG_sRGB_INTENT_RELATIVE: + intent = pdf_new_name("RelativeColorimetric"); + break; + default: + WARN("%s: Invalid value in PNG sRGB chunk: %d", PNG_DEBUG_STR, srgb_intent); + intent = NULL; + } + } else + intent = NULL; + + return intent; +} + +/* Approximated sRGB */ +static pdf_obj * +create_cspace_sRGB (png_structp png_ptr, png_infop info_ptr) +{ + pdf_obj *colorspace; + pdf_obj *cal_param; + png_byte color_type; + + color_type = png_get_color_type(png_ptr, info_ptr); + + /* Parameters taken from PNG spec. section 4.2.2.3. */ + cal_param = make_param_Cal(color_type, + 2.2, + 0.3127, 0.329, + 0.64, 0.33, 0.3, 0.6, 0.15, 0.06); + if (!cal_param) + return NULL; + + colorspace = pdf_new_array(); + + switch (color_type) { + case PNG_COLOR_TYPE_RGB: + case PNG_COLOR_TYPE_RGB_ALPHA: + case PNG_COLOR_TYPE_PALETTE: + pdf_add_array(colorspace, pdf_new_name("CalRGB")); + break; + case PNG_COLOR_TYPE_GRAY: + case PNG_COLOR_TYPE_GRAY_ALPHA: + pdf_add_array(colorspace, pdf_new_name("CalGray")); + break; + } + pdf_add_array(colorspace, cal_param); + + return colorspace; +} + +static pdf_obj * +create_cspace_ICCBased (png_structp png_ptr, png_infop info_ptr) +{ + pdf_obj *colorspace; + int csp_id, colortype; + png_byte color_type; + png_charp name; + int compression_type; /* Manual page for libpng does not + * clarify whether profile data is inflated by libpng. + */ + png_charp profile; /* Might be switched to png_bytep */ + png_uint_32 proflen; + + if (!png_get_valid(png_ptr, info_ptr, PNG_INFO_iCCP) || + !png_get_iCCP(png_ptr, info_ptr, &name, &compression_type, &profile, &proflen)) + return NULL; + + color_type = png_get_color_type(png_ptr, info_ptr); + + if (color_type & PNG_COLOR_MASK_COLOR) { + colortype = PDF_COLORSPACE_TYPE_RGB; +#if 0 + alternate = create_cspace_CalRGB(png_ptr, info_ptr); +#endif + } else { + colortype = PDF_COLORSPACE_TYPE_GRAY; +#if 0 + alternate = create_cspace_CalGray(png_ptr, info_ptr); +#endif + } + +#if 0 + if (alternate) + pdf_add_dict(dict, pdf_new_name("Alternate"), alternate); +#endif + + if (iccp_check_colorspace(colortype, profile, proflen) < 0) + colorspace = NULL; + else { + csp_id = iccp_load_profile(name, profile, proflen); + if (csp_id < 0) { + colorspace = NULL; + } else { + colorspace = pdf_get_colorspace_reference(csp_id); + } + } + + /* Rendering intent ... */ + + return colorspace; +} + +/* + * gAMA, cHRM: + * + * If cHRM is present, we use CIE-Based color space. gAMA is also used here + * if available. + */ + +#define INVALID_CHRM_VALUE(xw,yw,xr,yr,xg,yg,xb,yb) (\ + (xw) <= 0.0 || (yw) < 1.0e-10 || \ + (xr) < 0.0 || (yr) < 0.0 || (xg) < 0.0 || (yg) < 0.0 || \ + (xb) < 0.0 || (yb) < 0.0) + +static pdf_obj * +create_cspace_CalRGB (png_structp png_ptr, png_infop info_ptr) +{ + pdf_obj *colorspace; + pdf_obj *cal_param; + double xw, yw, xr, yr, xg, yg, xb, yb; + double G; + + if (!png_get_valid(png_ptr, info_ptr, PNG_INFO_cHRM) || + !png_get_cHRM(png_ptr, info_ptr, &xw, &yw, &xr, &yr, &xg, &yg, &xb, &yb)) + return NULL; + + if (xw <= 0.0 || yw < 1.0e-10 || + xr < 0.0 || yr < 0.0 || xg < 0.0 || yg < 0.0 || xb < 0.0 || yb < 0.0) { + WARN("%s: Invalid cHRM chunk parameters found.", PNG_DEBUG_STR); + return NULL; + } + + if (png_get_valid(png_ptr, info_ptr, PNG_INFO_gAMA) && + png_get_gAMA (png_ptr, info_ptr, &G)) { + if (G < 1.0e-2) { + WARN("%s: Unusual Gamma value: %g", PNG_DEBUG_STR, G); + return NULL; + } + G = 1.0 / G; /* Gamma is inverted. */ + } else { + G = 1.0; + } + + cal_param = make_param_Cal(PNG_COLOR_TYPE_RGB, G, xw, yw, xr, yr, xg, yg, xb, yb); + + if (!cal_param) + return NULL; + + colorspace = pdf_new_array(); + pdf_add_array(colorspace, pdf_new_name("CalRGB")); + pdf_add_array(colorspace, cal_param); + + return colorspace; +} + +static pdf_obj * +create_cspace_CalGray (png_structp png_ptr, png_infop info_ptr) +{ + pdf_obj *colorspace; + pdf_obj *cal_param; + double xw, yw, xr, yr, xg, yg, xb, yb; + double G; + + if (!png_get_valid(png_ptr, info_ptr, PNG_INFO_cHRM) || + !png_get_cHRM(png_ptr, info_ptr, &xw, &yw, &xr, &yr, &xg, &yg, &xb, &yb)) + return NULL; + + if (xw <= 0.0 || yw < 1.0e-10 || + xr < 0.0 || yr < 0.0 || xg < 0.0 || yg < 0.0 || xb < 0.0 || yb < 0.0) { + WARN("%s: Invalid cHRM chunk parameters found.", PNG_DEBUG_STR); + return NULL; + } + + if (png_get_valid(png_ptr, info_ptr, PNG_INFO_gAMA) && + png_get_gAMA (png_ptr, info_ptr, &G)) { + if (G < 1.0e-2) { + WARN("%s: Unusual Gamma value: %g", PNG_DEBUG_STR, G); + return NULL; + } + G = 1.0 / G; /* Gamma is inverted. */ + } else { + G = 1.0; + } + + cal_param = make_param_Cal(PNG_COLOR_TYPE_GRAY, G, xw, yw, xr, yr, xg, yg, xb, yb); + + if (!cal_param) + return NULL; + + colorspace = pdf_new_array(); + pdf_add_array(colorspace, pdf_new_name("CalGray")); + pdf_add_array(colorspace, cal_param); + + return colorspace; +} + +static pdf_obj * +make_param_Cal (png_byte color_type, + double G, /* Gamma */ + double xw, double yw, + double xr, double yr, double xg, double yg, double xb, double yb) +{ + pdf_obj *cal_param; + pdf_obj *white_point, *matrix, *dev_gamma; + double Xw, Yw, Zw; /* Yw = 1.0 */ + double Xr, Xg, Xb, Yr, Yb, Yg, Zr, Zg, Zb; + +#ifndef ABS +#define ABS(x) ((x) < 0 ? -(x) : (x)) +#endif + /* + * TODO: Check validity + * + * Conversion found in + * + * com.sixlegs.image.png - Java package to read and display PNG images + * Copyright (C) 1998, 1999, 2001 Chris Nokleberg + * + * http://www.sixlegs.com/software/png/ + * + */ + { + double zw, zr, zg, zb; + double fr, fg, fb; + double det; + + /* WhitePoint */ + zw = 1 - (xw + yw); + zr = 1 - (xr + yr); zg = 1 - (xg + yg); zb = 1 - (xb + yb); + Xw = xw / yw; Yw = 1.0; Zw = zw / yw; + + /* Matrix */ + det = xr * (yg * zb - zg * yb) - xg * (yr * zb - zr * yb) + xb * (yr * zg - zr * yg); + if (ABS(det) < 1.0e-10) { + WARN("Non invertible matrix: Maybe invalid value(s) specified in cHRM chunk."); + return NULL; + } + fr = (Xw * (yg * zb - zg * yb) - xg * (zb - Zw * yb) + xb * (zg - Zw * yg)) / det; + fg = (xr * (zb - Zw * yb) - Xw * (yr * zb - zr * yb) + xb * (yr * Zw - zr)) / det; + fb = (xr * (yg * Zw - zg) - xg * (yr * Zw - zr) + Xw * (yr * zg - zr * yg)) / det; + Xr = fr * xr; Yr = fr * yr; Zr = fr * zr; + Xg = fg * xg; Yg = fg * yg; Zg = fg * zg; + Xb = fb * xb; Yb = fb * yb; Zb = fb * zb; + } + + if (G < 1.0e-2) { + WARN("Unusual Gamma specified: %g", G); + return NULL; + } + + cal_param = pdf_new_dict(); + + /* White point is always required. */ + white_point = pdf_new_array(); + pdf_add_array(white_point, pdf_new_number(ROUND(Xw, 0.00001))); + pdf_add_array(white_point, pdf_new_number(ROUND(Yw, 0.00001))); + pdf_add_array(white_point, pdf_new_number(ROUND(Zw, 0.00001))); + pdf_add_dict(cal_param, pdf_new_name("WhitePoint"), white_point); + + /* Matrix - default: Identity */ + if (color_type & PNG_COLOR_MASK_COLOR) { + if (G != 1.0) { + dev_gamma = pdf_new_array(); + pdf_add_array(dev_gamma, pdf_new_number(ROUND(G, 0.00001))); + pdf_add_array(dev_gamma, pdf_new_number(ROUND(G, 0.00001))); + pdf_add_array(dev_gamma, pdf_new_number(ROUND(G, 0.00001))); + pdf_add_dict(cal_param, pdf_new_name("Gamma"), dev_gamma); + } + + matrix = pdf_new_array(); + pdf_add_array(matrix, pdf_new_number(ROUND(Xr, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Yr, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Zr, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Xg, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Yg, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Zg, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Xb, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Yb, 0.00001))); + pdf_add_array(matrix, pdf_new_number(ROUND(Zb, 0.00001))); + pdf_add_dict (cal_param, pdf_new_name("Matrix"), matrix); + } else { /* Gray */ + if (G != 1.0) + pdf_add_dict(cal_param, + pdf_new_name("Gamma"), + pdf_new_number(ROUND(G, 0.00001))); + } + + return cal_param; +} + +/* + * Set up Indexed ColorSpace for color-type PALETTE: + * + * PNG allows only RGB color for base color space. If gAMA and/or cHRM + * chunk is available, we can use CalRGB color space instead of DeviceRGB + * for base color space. + * + */ +static pdf_obj * +create_cspace_Indexed (png_structp png_ptr, png_infop info_ptr) +{ + pdf_obj *colorspace; + pdf_obj *base, *lookup; + png_byte *data_ptr; + png_colorp plte; + int num_plte, i; + + if (!png_get_valid(png_ptr, info_ptr, PNG_INFO_PLTE) || + !png_get_PLTE(png_ptr, info_ptr, &plte, &num_plte)) { + WARN("%s: PNG does not have valid PLTE chunk.", PNG_DEBUG_STR); + return NULL; + } + + /* Order is important. */ + colorspace = pdf_new_array (); + pdf_add_array(colorspace, pdf_new_name("Indexed")); + + if (png_get_valid(png_ptr, info_ptr, PNG_INFO_iCCP)) + base = create_cspace_ICCBased(png_ptr, info_ptr); + else { + if (png_get_valid(png_ptr, info_ptr, PNG_INFO_sRGB)) + base = create_cspace_sRGB(png_ptr, info_ptr); + else + base = create_cspace_CalRGB(png_ptr, info_ptr); + } + + if (!base) + base = pdf_new_name("DeviceRGB"); + + pdf_add_array(colorspace, base); + pdf_add_array(colorspace, pdf_new_number(num_plte-1)); + data_ptr = NEW(num_plte*3, png_byte); + for (i = 0; i < num_plte; i++) { + data_ptr[3*i] = plte[i].red; + data_ptr[3*i+1] = plte[i].green; + data_ptr[3*i+2] = plte[i].blue; + } + lookup = pdf_new_string(data_ptr, num_plte*3); + RELEASE(data_ptr); + pdf_add_array(colorspace, lookup); + + return colorspace; +} + +/* + * pHYs: no support + * + * pngimage.c is not responsible for adjusting image size. + * Higher layer must do something for this. + */ + +/* + * Colorkey Mask: array + * + * [component_0_min component_0_max ... component_n_min component_n_max] + * + */ + +static pdf_obj * +create_ckey_mask (png_structp png_ptr, png_infop info_ptr) +{ + pdf_obj *colorkeys; + png_byte color_type; + png_bytep trans; + int num_trans, i; + png_color_16p colors; + + if (!png_get_valid(png_ptr, info_ptr, PNG_INFO_tRNS) || + !png_get_tRNS(png_ptr, info_ptr, &trans, &num_trans, &colors)) { + WARN("%s: PNG does not have valid tRNS chunk!", PNG_DEBUG_STR); + return NULL; + } + + colorkeys = pdf_new_array(); + color_type = png_get_color_type(png_ptr, info_ptr); + + switch (color_type) { + case PNG_COLOR_TYPE_PALETTE: + for (i = 0; i < num_trans; i++) { + if (trans[i] == 0x00) { + pdf_add_array(colorkeys, pdf_new_number(i)); + pdf_add_array(colorkeys, pdf_new_number(i)); + } else if (trans[i] != 0xff) { + WARN("%s: You found a bug in pngimage.c.", PNG_DEBUG_STR); + } + } + break; + case PNG_COLOR_TYPE_RGB: + pdf_add_array(colorkeys, pdf_new_number(colors->red)); + pdf_add_array(colorkeys, pdf_new_number(colors->red)); + pdf_add_array(colorkeys, pdf_new_number(colors->green)); + pdf_add_array(colorkeys, pdf_new_number(colors->green)); + pdf_add_array(colorkeys, pdf_new_number(colors->blue)); + pdf_add_array(colorkeys, pdf_new_number(colors->blue)); + break; + case PNG_COLOR_TYPE_GRAY: + pdf_add_array(colorkeys, pdf_new_number(colors->gray)); + pdf_add_array(colorkeys, pdf_new_number(colors->gray)); + break; + default: + WARN("%s: You found a bug in pngimage.c.", PNG_DEBUG_STR); + pdf_release_obj(colorkeys); + colorkeys = NULL; + } + + return colorkeys; +} + +/* + * Soft-Mask: stream + * + * << + * /Type /XObject + * /Subtype /Image + * /Width -int- + * /Height -int- + * /BitsPerComponent bpc + * >> + * stream .... endstream + * + * ColorSpace, Mask, SMask must be absent. ImageMask must be false or absent. + */ + +static pdf_obj * +create_soft_mask (png_structp png_ptr, png_infop info_ptr, + png_bytep image_data_ptr, png_uint_32 width, png_uint_32 height) +{ + pdf_obj *smask, *dict; + png_bytep smask_data_ptr; + png_bytep trans; + int num_trans; + png_uint_32 i; + + if (!png_get_valid(png_ptr, info_ptr, PNG_INFO_tRNS) || + !png_get_tRNS(png_ptr, info_ptr, &trans, &num_trans, NULL)) { + WARN("%s: PNG does not have valid tRNS chunk but tRNS is requested.", PNG_DEBUG_STR); + return NULL; + } + + smask = pdf_new_stream(STREAM_COMPRESS); + dict = pdf_stream_dict(smask); + smask_data_ptr = (png_bytep) NEW(width*height, png_byte); + pdf_add_dict(dict, pdf_new_name("Type"), pdf_new_name("XObjcect")); + pdf_add_dict(dict, pdf_new_name("Subtype"), pdf_new_name("Image")); + pdf_add_dict(dict, pdf_new_name("Width"), pdf_new_number(width)); + pdf_add_dict(dict, pdf_new_name("Height"), pdf_new_number(height)); + pdf_add_dict(dict, pdf_new_name("ColorSpace"), pdf_new_name("DeviceGray")); + pdf_add_dict(dict, pdf_new_name("BitsPerComponent"), pdf_new_number(8)); + for (i = 0; i < width*height; i++) { + png_byte idx = image_data_ptr[i]; + smask_data_ptr[i] = (idx < num_trans) ? trans[idx] : 0xff; + } + pdf_add_stream(smask, (char *)smask_data_ptr, width*height); + RELEASE(smask_data_ptr); + + return smask; +} + +/* bitdepth is always 8 (16 is not supported) */ +static pdf_obj * +strip_soft_mask (png_structp png_ptr, png_infop info_ptr, + /* next two values will be modified. */ + png_bytep image_data_ptr, png_uint_32p rowbytes_ptr, + png_uint_32 width, png_uint_32 height) +{ + pdf_obj *smask, *dict; + png_byte color_type; + png_bytep smask_data_ptr; + png_uint_32 i; + + color_type = png_get_color_type(png_ptr, info_ptr); + + if (color_type & PNG_COLOR_MASK_COLOR) { + if (*rowbytes_ptr != 4*width*sizeof(png_byte)) { /* Something wrong */ + WARN("%s: Inconsistent rowbytes value.", PNG_DEBUG_STR); + return NULL; + } + } else { + if (*rowbytes_ptr != 2*width*sizeof(png_byte)) { /* Something wrong */ + WARN("%s: Inconsistent rowbytes value.", PNG_DEBUG_STR); + return NULL; + } + } + + smask = pdf_new_stream(STREAM_COMPRESS); + dict = pdf_stream_dict(smask); + pdf_add_dict(dict, pdf_new_name("Type"), pdf_new_name("XObjcect")); + pdf_add_dict(dict, pdf_new_name("Subtype"), pdf_new_name("Image")); + pdf_add_dict(dict, pdf_new_name("Width"), pdf_new_number(width)); + pdf_add_dict(dict, pdf_new_name("Height"), pdf_new_number(height)); + pdf_add_dict(dict, pdf_new_name("ColorSpace"), pdf_new_name("DeviceGray")); + pdf_add_dict(dict, pdf_new_name("BitsPerComponent"), pdf_new_number(8)); + + smask_data_ptr = (png_bytep) NEW(width*height, png_byte); + + switch (color_type) { + case PNG_COLOR_TYPE_RGB_ALPHA: + for (i = 0; i < width*height; i++) { + memmove(image_data_ptr+(3*i), image_data_ptr+(4*i), 3); + smask_data_ptr[i] = image_data_ptr[4*i+3]; + } + *rowbytes_ptr = 3*width*sizeof(png_byte); + break; + case PNG_COLOR_TYPE_GRAY_ALPHA: + for (i = 0; i < width*height; i++) { + image_data_ptr[i] = image_data_ptr[2*i]; + smask_data_ptr[i] = image_data_ptr[2*i+1]; + } + *rowbytes_ptr = width*sizeof(png_byte); + break; + default: + WARN("You found a bug in pngimage.c!"); + pdf_release_obj(smask); + RELEASE(smask_data_ptr); + return NULL; + } + + pdf_add_stream(smask, smask_data_ptr, width*height); + RELEASE(smask_data_ptr); + + return smask; +} + +static void +read_image_data (png_structp png_ptr, png_infop info_ptr, /* info_ptr unused */ + png_bytep dest_ptr, png_uint_32 height, png_uint_32 rowbytes) +{ + png_bytepp rows_p; + png_uint_32 i; + + rows_p = (png_bytepp) NEW (height, png_bytep); + for (i=0; i< height; i++) + rows_p[i] = dest_ptr + (rowbytes * i); + png_read_image(png_ptr, rows_p); + RELEASE(rows_p); +} + +#endif /* HAVE_LIBPNG */ diff --git a/Build/source/texk/xdvipdfmx/src/pngimage.h b/Build/source/texk/xdvipdfmx/src/pngimage.h new file mode 100644 index 00000000000..fe9c4a7e1e8 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pngimage.h @@ -0,0 +1,43 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pngimage.h,v 1.4 2004/03/11 11:50:25 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + + +#ifndef _PNGIMAGE_H_ +#define _PNGIMAGE_H_ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#ifdef HAVE_LIBPNG + +#include "mfileio.h" +#include "pdfximage.h" + +extern int png_include_image (pdf_ximage *ximage, FILE *file); +extern int check_for_png (FILE *file); + +#endif + +#endif /* _PNGIMAGE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pst.c b/Build/source/texk/xdvipdfmx/src/pst.c new file mode 100644 index 00000000000..dc195ca6d91 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pst.c @@ -0,0 +1,179 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pst.c,v 1.5 2004/07/27 12:08:47 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" +#include "pst_obj.h" +#include "pst.h" + + +#define TYPE_CHECK(o, t) do { \ + if ((o) == NULL || pst_type_of((o)) != (t)) \ + ERROR("typecheck: object %p not of type %d.", (o), (t)); \ + } while (0) + +static pst_obj * +pst_parse_any (unsigned char **inbuf, unsigned char *inbufend) +{ + unsigned char *data; + unsigned char *cur = *inbuf; + unsigned long len; + + while (cur < inbufend && !PST_TOKEN_END(cur, inbufend)) + cur++; + + len = cur - (*inbuf); + data = NEW(len+1, unsigned char); + memcpy(data, *inbuf, len); + data[len] = '\0'; + + *inbuf = cur; + return pst_new_obj(PST_TYPE_UNKNOWN, data); +} + +static void +skip_line (unsigned char **inbuf, unsigned char *inbufend) +{ + while (*inbuf < inbufend && **inbuf != '\n' && **inbuf != '\r') + (*inbuf)++; + if (*inbuf < inbufend && **inbuf == '\r') + (*inbuf)++; + if (*inbuf < inbufend && **inbuf == '\n') + (*inbuf)++; +} + +static void +skip_comments (unsigned char **inbuf, unsigned char *inbufend) +{ + while (*inbuf < inbufend && **inbuf == '%') { + skip_line(inbuf, inbufend); + skip_white_spaces(inbuf, inbufend); + } +} + +#if 0 +static pst_obj * +pst_parse_comment (unsigned char **inbuf, unsigned char *inbufend) +{ + unsigned char *data; + unsigned char *cur = *inbuf; + unsigned long len; + + if (*cur != '%') + return NULL; + + while (cur < inbufend && *cur != '\n' && *cur != '\r') + cur++; + len = cur - (*inbuf); + data = NEW(len+1, unsigned char); + memcpy(data, *inbuf, len); + data[len] = '\0'; + + *inbuf = cur; + return pst_new_obj(PST_TYPE_UNKNOWN, data); +} +#endif + +pst_obj * +pst_get_token (unsigned char **inbuf, unsigned char *inbufend) +{ + pst_obj *obj = NULL; + unsigned char c; + + skip_white_spaces(inbuf, inbufend); + skip_comments(inbuf, inbufend); + if (*inbuf >= inbufend) + return NULL; + c = **inbuf; + switch (c) { +#if 0 + case '%': + obj = pst_parse_comment(inbuf, inbufend); + break; +#endif + case '/': + obj = pst_parse_name(inbuf, inbufend); + break; + case '[': case '{': /* This is wrong */ + obj = pst_new_mark(); + (*inbuf)++; + break; + case '<': + if (*inbuf + 1 >= inbufend) + return NULL; + c = *(*inbuf+1); + if (c == '<') { + obj = pst_new_mark(); + *inbuf += 2; + } else if (isxdigit(c)) + obj = pst_parse_string(inbuf, inbufend); + else if (c == '~') /* ASCII85 */ + obj = pst_parse_string(inbuf, inbufend); + break; + case '(': + obj = pst_parse_string(inbuf, inbufend); + break; + case '>': + if (*inbuf + 1 >= inbufend || *(*inbuf+1) != '>') { + ERROR("Unexpected end of ASCII hex string marker."); + } else { + char *mark; + + mark = NEW(3, char); + mark[0] = '>'; mark[1] = '>'; mark[2] = '\0'; + obj = pst_new_obj(PST_TYPE_UNKNOWN, mark); + (*inbuf) += 2; + } + break; + case ']': case '}': + { + char *mark; + + mark = NEW(2, char); + mark[0] = c; mark[1] = '\0'; + obj = pst_new_obj(PST_TYPE_UNKNOWN, mark); + (*inbuf)++; + } + break; + default: + if (c == 't' || c == 'f') + obj = pst_parse_boolean(inbuf, inbufend); + else if (c == 'n') + obj = pst_parse_null(inbuf, inbufend); + else if (c == '+' || c == '-' || isdigit(c) || c == '.') + obj = pst_parse_number(inbuf, inbufend); + break; + } + + if (!obj) { + obj = pst_parse_any(inbuf, inbufend); + } + + return obj; +} diff --git a/Build/source/texk/xdvipdfmx/src/pst.h b/Build/source/texk/xdvipdfmx/src/pst.h new file mode 100644 index 00000000000..4108b827919 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pst.h @@ -0,0 +1,74 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pst.h,v 1.2 2003/11/29 16:21:17 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PST_H_ +#define _PST_H_ + +#include + +#define PST_TYPE_UNKNOWN -1 +#define PST_TYPE_NULL 0 +#define PST_TYPE_BOOLEAN 1 +#define PST_TYPE_INTEGER 2 +#define PST_TYPE_REAL 3 +#define PST_TYPE_STRING 5 +#define PST_TYPE_NAME 6 +#define PST_TYPE_MARK 7 + +typedef struct pst_obj pst_obj; +typedef int pst_type; + +extern pst_obj *pst_get_token (unsigned char **inbuf, unsigned char *inbufend); + +extern pst_obj *pst_new_obj (pst_type type, void *data); +extern void pst_release_obj(pst_obj *obj); +extern pst_obj *pst_new_mark (void); + +extern pst_type pst_type_of (pst_obj *obj); +extern long pst_length_of (pst_obj *obj); + +extern long pst_getIV (pst_obj *obj); +extern double pst_getRV (pst_obj *obj); +extern unsigned char *pst_getSV (pst_obj *obj); + +extern void *pst_data_ptr (pst_obj *obj); + +#define PST_NAME_LEN_MAX 127 +#define PST_STRING_LEN_MAX 4096 +#define PST_MAX_DIGITS 10 +#define PST_TOKEN_LEN_MAX PST_STRING_LEN_MAX + +#define PST_NULLTYPE(o) (pst_type_of((o)) == PST_TYPE_NULL) +#define PST_BOOLEANTYPE(o) (pst_type_of((o)) == PST_TYPE_BOOLEAN) +#define PST_NAMETYPE(o) (pst_type_of((o)) == PST_TYPE_NAME) +#define PST_STRINGTYPE(o) (pst_type_of((o)) == PST_TYPE_STRING) +#define PST_INTEGERTYPE(o) (pst_type_of((o)) == PST_TYPE_INTEGER) +#define PST_REALTYPE(o) (pst_type_of((o)) == PST_TYPE_REAL) +#define PST_NUMBERTYPE(o) (PST_INTEGERTYPE((o))||PST_REALTYPE((o))) +#define PST_MARKTYPE(o) (pst_type_of((o)) == PST_TYPE_MARK) +#define PST_UNKNOWNTYPE(o) (pst_type_of((o)) < 0) + +#define PST_TOKEN_END(s,e) ((s) == (e) || is_delim(*(s)) || is_space(*(s))) + +#endif /* _PST_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/pst_obj.c b/Build/source/texk/xdvipdfmx/src/pst_obj.c new file mode 100644 index 00000000000..55d5773cdd9 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pst_obj.c @@ -0,0 +1,996 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pst_obj.c,v 1.5 2004/07/27 12:08:47 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" +#include "pst.h" +#include "pst_obj.h" + +struct pst_obj +{ + pst_type type; + void *data; +}; + +static const char *pst_const_null = "null"; +static const char *pst_const_mark = "mark"; +/* +static const char *pst_const_true = "true"; +static const char *pst_const_false = "false"; +*/ + +typedef char * pst_null; +typedef struct { char value; } pst_boolean; +typedef struct { long value; } pst_integer; +typedef struct { double value; } pst_real; +typedef struct { char *value; } pst_name; +typedef struct +{ + long length; + unsigned char *value; +} pst_string; + + +/* BOOLEAN */ +static pst_boolean *pst_boolean_new (char value) ; +static void pst_boolean_release (pst_boolean *obj); +static long pst_boolean_IV (pst_boolean *obj); +static double pst_boolean_RV (pst_boolean *obj); +static unsigned char *pst_boolean_SV (pst_boolean *obj); +static long pst_boolean_length (pst_boolean *obj); +static void *pst_boolean_data_ptr(pst_boolean *obj); + +/* NUMBERS */ +static long parse_long (unsigned char **inbuf, unsigned char *inbufend, unsigned char base, unsigned char *ndigits); +static double cvtdbl (long ipart, long dpart, unsigned char nddigits, long epart); + +static pst_integer *pst_integer_new (long value) ; +static void pst_integer_release (pst_integer *obj); +static long pst_integer_IV (pst_integer *obj); +static double pst_integer_RV (pst_integer *obj); +static unsigned char *pst_integer_SV (pst_integer *obj); +static unsigned int pst_integer_length (pst_integer *obj); +static void *pst_integer_data_ptr(pst_integer *obj); + +static pst_real *pst_real_new (double value) ; +static void pst_real_release (pst_real *obj); +static long pst_real_IV (pst_real *obj); +static double pst_real_RV (pst_real *obj); +static unsigned char *pst_real_SV (pst_real *obj); +static void *pst_real_data_ptr (pst_real *obj); +static unsigned int pst_real_length (pst_real *obj); + +/* NAME */ +static pst_name *pst_name_new (const char *name) ; +static void pst_name_release (pst_name *obj); +static long pst_name_IV (pst_name *obj); +static double pst_name_RV (pst_name *obj); +static unsigned char *pst_name_SV (pst_name *obj); +static void *pst_name_data_ptr (pst_name *obj); +static unsigned int pst_name_length (pst_name *obj); + +/* STRING */ +static pst_string *pst_string_parse_literal (unsigned char **inbuf, unsigned char *inbufend); +static pst_string *pst_string_parse_hex (unsigned char **inbuf, unsigned char *inbufend); + +static pst_string *pst_string_new (unsigned char *str, unsigned int len); +static void pst_string_release (pst_string *obj) ; +static long pst_string_IV (pst_string *obj) ; +static double pst_string_RV (pst_string *obj) ; +static unsigned char *pst_string_SV (pst_string *obj) ; +static void *pst_string_data_ptr (pst_string *obj) ; +static unsigned int pst_string_length (pst_string *obj) ; + + +#define TYPE_ERROR() ERROR("Operation not defined for this type of object.") + +pst_obj * +pst_new_obj (pst_type type, void *data) +{ + pst_obj *obj; + + obj = NEW(1, struct pst_obj); + obj->type = type; + obj->data = data; + + return obj; +} + +pst_obj * +pst_new_mark (void) +{ + return pst_new_obj(PST_TYPE_MARK, (void *)pst_const_mark); +} + +void +pst_release_obj (pst_obj *obj) +{ + ASSERT(obj); + switch (obj->type) { + case PST_TYPE_BOOLEAN: pst_boolean_release(obj->data); break; + case PST_TYPE_INTEGER: pst_integer_release(obj->data); break; + case PST_TYPE_REAL: pst_real_release(obj->data); break; + case PST_TYPE_NAME: pst_name_release(obj->data); break; + case PST_TYPE_STRING: pst_string_release(obj->data); break; + case PST_TYPE_NULL: + case PST_TYPE_MARK: + break; + case PST_TYPE_UNKNOWN: + if (obj->data) + RELEASE(obj->data); + break; + default: + ERROR("Unrecognized object type: %d", obj->type); + } + RELEASE(obj); +} + +pst_type +pst_type_of (pst_obj *obj) +{ + ASSERT(obj); + return obj->type; +} + +long +pst_length_of (pst_obj *obj) +{ + long len = 0; + + ASSERT(obj); + switch (obj->type) { + case PST_TYPE_BOOLEAN: len = pst_boolean_length(obj->data); break; + case PST_TYPE_INTEGER: len = pst_integer_length(obj->data); break; + case PST_TYPE_REAL: len = pst_real_length(obj->data); break; + case PST_TYPE_NAME: len = pst_name_length(obj->data); break; + case PST_TYPE_STRING: len = pst_string_length(obj->data); break; + case PST_TYPE_NULL: + case PST_TYPE_MARK: + TYPE_ERROR(); + break; + case PST_TYPE_UNKNOWN: + len = strlen(obj->data); + break; + default: + ERROR("Unrecognized object type: %d", obj->type); + } + + return len; +} + +long +pst_getIV (pst_obj *obj) +{ + long iv = 0; + + ASSERT(obj); + switch (obj->type) { + case PST_TYPE_BOOLEAN: iv = pst_boolean_IV(obj->data); break; + case PST_TYPE_INTEGER: iv = pst_integer_IV(obj->data); break; + case PST_TYPE_REAL: iv = pst_real_IV(obj->data); break; + case PST_TYPE_NAME: iv = pst_name_IV(obj->data); break; + case PST_TYPE_STRING: iv = pst_string_IV(obj->data); break; + case PST_TYPE_NULL: + case PST_TYPE_MARK: + TYPE_ERROR(); + break; + case PST_TYPE_UNKNOWN: + ERROR("Cannot convert object of type UNKNOWN to integer value."); + break; + default: + ERROR("Unrecognized object type: %d", obj->type); + } + + return iv; +} + +double +pst_getRV (pst_obj *obj) +{ + double rv = 0.0; + + ASSERT(obj); + switch (obj->type) { + case PST_TYPE_BOOLEAN: rv = pst_boolean_RV(obj->data); break; + case PST_TYPE_INTEGER: rv = pst_integer_RV(obj->data); break; + case PST_TYPE_REAL: rv = pst_real_RV(obj->data); break; + case PST_TYPE_NAME: rv = pst_name_RV(obj->data); break; + case PST_TYPE_STRING: rv = pst_string_RV(obj->data); break; + case PST_TYPE_NULL: + case PST_TYPE_MARK: + TYPE_ERROR(); + break; + case PST_TYPE_UNKNOWN: + ERROR("Cannot convert object of type UNKNOWN to real value."); + break; + default: + ERROR("Unrecognized object type: %d", obj->type); + } + + return rv; +} + +/* Length can be obtained by pst_length_of(). */ +unsigned char * +pst_getSV (pst_obj *obj) +{ + unsigned char *sv = NULL; + + ASSERT(obj); + switch (obj->type) { + case PST_TYPE_BOOLEAN: sv = pst_boolean_SV(obj->data); break; + case PST_TYPE_INTEGER: sv = pst_integer_SV(obj->data); break; + case PST_TYPE_REAL: sv = pst_real_SV(obj->data); break; + case PST_TYPE_NAME: sv = pst_name_SV(obj->data); break; + case PST_TYPE_STRING: sv = pst_string_SV(obj->data); break; + case PST_TYPE_NULL: + case PST_TYPE_MARK: + TYPE_ERROR(); + break; + case PST_TYPE_UNKNOWN: + { + long len; + + len = strlen((char *) obj->data); + if (len > 0) { + sv = NEW(len+1, unsigned char); + memcpy(sv, obj->data, len); + sv[len] = '\0'; + } else { + sv = NULL; + } + break; + } + default: + ERROR("Unrecognized object type: %d", obj->type); + } + + return sv; +} + +void * +pst_data_ptr (pst_obj *obj) +{ + char *p = NULL; + + ASSERT(obj); + switch (obj->type) { + case PST_TYPE_BOOLEAN: p = pst_boolean_data_ptr(obj->data); break; + case PST_TYPE_INTEGER: p = pst_integer_data_ptr(obj->data); break; + case PST_TYPE_REAL: p = pst_real_data_ptr(obj->data); break; + case PST_TYPE_NAME: p = pst_name_data_ptr(obj->data); break; + case PST_TYPE_STRING: p = pst_string_data_ptr(obj->data); break; + case PST_TYPE_NULL: + case PST_TYPE_MARK: + TYPE_ERROR(); + break; + case PST_TYPE_UNKNOWN: + p = obj->data; + break; + default: + ERROR("Unrecognized object type: %d", obj->type); + } + + return (void *)p; +} + +/* BOOLEAN */ +static pst_boolean * +pst_boolean_new (char value) +{ + pst_boolean *obj; + obj = NEW(1, pst_boolean); + obj->value = value; + return obj; +} + +static void +pst_boolean_release (pst_boolean *obj) +{ + ASSERT(obj); + RELEASE(obj); +} + +static long +pst_boolean_IV (pst_boolean *obj) +{ + ASSERT(obj); + return (long) obj->value; +} + +static double +pst_boolean_RV (pst_boolean *obj) +{ + ASSERT(obj); + return (double) obj->value; +} + +static unsigned char * +pst_boolean_SV (pst_boolean *obj) +{ + unsigned char *str; + + ASSERT(obj); + + if (obj->value) { + str = NEW(5, unsigned char); + memcpy(str, "true", 4); + str[4] = '\0'; + } else { + str = NEW(6, unsigned char); + memcpy(str, "false", 5); + str[5] = '\0'; + } + + return str; +} + +static long +pst_boolean_length (pst_boolean *obj) +{ + TYPE_ERROR(); + return 0; +} + +static void * +pst_boolean_data_ptr (pst_boolean *obj) +{ + ASSERT(obj); + return (void*) &(obj->value); +} + +pst_obj * +pst_parse_boolean (unsigned char **inbuf, unsigned char *inbufend) +{ + if (*inbuf + 4 <= inbufend && + memcmp(*inbuf, "true", 4) == 0 && + PST_TOKEN_END(*inbuf + 4, inbufend)) { + *inbuf += 4; + return pst_new_obj(PST_TYPE_BOOLEAN, pst_boolean_new(1)); + } else if (*inbuf + 5 <= inbufend && + memcmp(*inbuf, "false", 5) == 0 && + PST_TOKEN_END(*inbuf + 5, inbufend)) { + *inbuf += 5; + return pst_new_obj(PST_TYPE_BOOLEAN, pst_boolean_new(0)); + } else + return NULL; +} + + +/* NULL */ +pst_obj * +pst_parse_null (unsigned char **inbuf, unsigned char *inbufend) +{ + if (*inbuf + 4 <= inbufend && + memcmp(*inbuf, "null", 4) == 0 && + PST_TOKEN_END(*inbuf+4, inbufend)) { + *inbuf += 4; + return pst_new_obj(PST_TYPE_NULL, (void*)pst_const_null); + } else + return NULL; +} + +/* INTEGER */ +static pst_integer * +pst_integer_new (long value) +{ + pst_integer *obj; + obj = NEW(1, pst_integer); + obj->value = value; + return obj; +} + +static void +pst_integer_release (pst_integer *obj) +{ + ASSERT(obj); + RELEASE(obj); +} + +static long +pst_integer_IV (pst_integer *obj) +{ + ASSERT(obj); + return (long) obj->value; +} + +static double +pst_integer_RV (pst_integer *obj) +{ + ASSERT(obj); + return (double) obj->value; +} + +static unsigned char * +pst_integer_SV (pst_integer *obj) +{ + char *value; + int len; + char fmt_buf[PST_MAX_DIGITS+5]; + + ASSERT(obj); + + len = sprintf(fmt_buf, "%ld", obj->value); + + value = NEW(len, char); + strcpy(value, fmt_buf); + + return (unsigned char *) value; +} + +static void * +pst_integer_data_ptr (pst_integer *obj) +{ + ASSERT(obj); + return (void*) &(obj->value); +} + +static unsigned int +pst_integer_length (pst_integer *obj) +{ + TYPE_ERROR(); + return 0; +} + +/* REAL */ +static pst_real * +pst_real_new (double value) +{ + pst_real *obj; + + obj = NEW(1, pst_real); + obj->value = value; + + return obj; +} + +static void +pst_real_release (pst_real *obj) +{ + ASSERT(obj); + RELEASE(obj); +} + +static long +pst_real_IV (pst_real *obj) +{ + ASSERT(obj); + return (long) obj->value; +} + +static double +pst_real_RV (pst_real *obj) +{ + ASSERT(obj); + return (double) obj->value; +} + +static unsigned char * +pst_real_SV (pst_real *obj) +{ + char *value; + int len; + char fmt_buf[PST_MAX_DIGITS+5]; + + ASSERT(obj); + + len = sprintf(fmt_buf, "%.5g", obj->value); + + value = NEW(len, char); + strcpy(value, fmt_buf); + + return (unsigned char *) value; +} + +static void * +pst_real_data_ptr (pst_real *obj) +{ + ASSERT(obj); + + return (void*) &(obj->value); +} + +static unsigned int +pst_real_length (pst_real *obj) +{ + TYPE_ERROR(); + return 0; +} + +/* + * Does not skip white spaces + * base number must be greater than 1 and less than 33. + * TODO: overflow and underflow + */ +static long +parse_long (unsigned char **inbuf, unsigned char *inbufend, unsigned char base, unsigned char *ndigits) +{ + long val = 0, sign = 1; + unsigned char *cur = *inbuf, c; + int count = 0; + + if (*cur == '+') { + sign = 1; + cur++; + } else if (*cur == '-') { + sign = -1; + cur++; + } + while (cur < inbufend) { + c = *cur; + if (c >= '0' && c <= '0' + ((base <= 10) ? base-1 : 9)) { + c = c - '0'; + } else if (base > 10) { + if (c >= 'a' && c <= 'a' + (base - 11)) { + c = c - 'a' + 10; + } else if (c >= 'A' && c <= 'A' + (base - 11)) { + c = c - 'A' + 10; + } else { + break; + } + } else { + break; + } + val = val * base + c; + cur++; + count++; + } + + if (ndigits != NULL) + *ndigits = count; + *inbuf = cur; + return sign*val; +} + +static double +cvtdbl (long ipart, long dpart, unsigned char nddigits, long epart) +{ + double dval = 0.0; + int i; + + if (dpart > 0 && nddigits > 0) { + dval = dpart; + for (i = 0; i < nddigits; i++) { + dval *= 0.1; + } + } + + if (ipart < 0) + dval = ipart - dval; + else + dval = ipart + dval; + + if (epart > 0) { + for (i = 0; i < epart; i++) + dval *= 10.0; + } else if (epart < 0) { + for (i = 0; i < -epart; i++) + dval *= 0.1; + } + + return dval; +} + +pst_obj * +pst_parse_number (unsigned char **inbuf, unsigned char *inbufend) +{ + pst_obj *obj = NULL; + unsigned char *cur = *inbuf; + unsigned char ndigits = 0, nddigits = 0; + int type; + long ipart = 0, dpart = 0, epart = 0; + + if (cur >= inbufend) + return NULL; + + ipart = parse_long(&cur, inbufend, 10, &ndigits); + if (ndigits > 0 && PST_TOKEN_END(cur, inbufend)) { + type = PST_TYPE_INTEGER; + dpart = epart = 0; + } else if (ndigits > 0 && *cur == '#' && + ipart >= 2 && ipart <= 36) { /* Radix */ + cur++; + ipart = parse_long(&cur, inbufend, ipart, NULL); + if (ipart >= 0 && PST_TOKEN_END(cur, inbufend)) { /* non-negative only ? */ + type = PST_TYPE_INTEGER; + dpart = epart = 0; + } else + type = -1; + } else if (*cur == '.') { + cur++; + dpart = parse_long(&cur, inbufend, 10, &nddigits); + ndigits += nddigits; + if (dpart < 0) { + type = -1; + } else if (ndigits > 0 && PST_TOKEN_END(cur, inbufend)) { + type = PST_TYPE_REAL; + epart = 0; + } else if (ndigits > 0 && (*cur == 'e' || *cur == 'E')) { + cur++; + epart = parse_long(&cur, inbufend, 10, &ndigits); + if (ndigits > 0 && PST_TOKEN_END(cur, inbufend)) + type = PST_TYPE_REAL; + else + type = -1; + } else + type = -1; + } else if (ndigits > 0 && (*cur == 'e' || *cur == 'E')) { + cur++; + epart = parse_long(&cur, inbufend, 10, &ndigits); + if (ndigits > 0 && PST_TOKEN_END(cur, inbufend)) { + dpart = 0; + type = PST_TYPE_REAL; + } else + type = -1; + } else { + type = -1; + } + + if (type < 0) + return NULL; + + if (type == PST_TYPE_REAL) + obj = pst_new_obj(type, pst_real_new(cvtdbl(ipart, dpart, nddigits, epart))); + else if (type == PST_TYPE_INTEGER) + obj = pst_new_obj(type, pst_integer_new(ipart)); + else + return NULL; + + *inbuf = cur; + return obj; +} + +/* NAME */ + +/* + * \0 is not allowed for name object. + */ + +static pst_name * +pst_name_new (const char *name) +{ + pst_name *obj; + + obj = NEW(1, pst_name); + obj->value = NEW(strlen(name)+1, char); + strcpy(obj->value, name); + + return obj; +} + +static void +pst_name_release (pst_name *obj) +{ + ASSERT(obj); + if (obj->value) + RELEASE(obj->value); + RELEASE(obj); +} + +int +pst_name_is_valid (const char *name) +{ + static const char *valid_chars = + "!\"#$&'*+,-.0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^_`abcdefghijklmnopqrstuvwxyz|~"; + if (strspn(name, valid_chars) == strlen(name)) + return 1; + else + return 0; +} + +char * +pst_name_encode (const char *name) +{ + char *encoded_name, *p; + int i, len; + char c; + + len = strlen(name); + if (len > PST_NAME_LEN_MAX) { + WARN("Input string too long for name object. String will be truncated."); + len = PST_NAME_LEN_MAX; + } + + p = encoded_name = NEW(3*len+1, char); + for (i = 0; i < len; i++) { + c = name[i]; + if (c < '!' || c > '~' || + c == '#' || is_delim(c) || is_space(c)) { + *p++ = '#'; + putxpair(c, &p); + } else { + *p++ = c; + } + } + *p = '\0'; + + return encoded_name; +} + +pst_obj * +pst_parse_name (unsigned char **inbuf, unsigned char *inbufend) /* / is required */ +{ + unsigned char wbuf[PST_NAME_LEN_MAX+1]; + unsigned char c, *p = wbuf, *cur = *inbuf; + int len = 0; + + if (*cur != '/') + return NULL; + cur++; + + while (!PST_TOKEN_END(cur, inbufend)) { + c = *cur++; + if (c == '#') { + int val; + if (cur + 2 >= inbufend) { + WARN("Premature end of input name string."); + break; + } + val = getxpair(&cur); + if (val <= 0) { + WARN("Invalid char for name object. (ignored)"); + continue; + } else + c = (unsigned char) val; + } + if (len < PST_NAME_LEN_MAX) + *p++ = c; + len++; + } + *p = '\0'; + + if (len > PST_NAME_LEN_MAX) + WARN("String too long for name object. Output will be truncated."); + + *inbuf = cur; + return pst_new_obj(PST_TYPE_NAME, pst_name_new((char *)wbuf)); +} + +static long +pst_name_IV (pst_name *obj) +{ + TYPE_ERROR(); + return 0; +} + +static double +pst_name_RV (pst_name *obj) +{ + TYPE_ERROR(); + return 0; +} + +static unsigned char * +pst_name_SV (pst_name *obj) +{ + char *value; + + value = NEW(strlen(obj->value)+1, char); + strcpy(value, obj->value); + + return (unsigned char *) value; +} + +static void * +pst_name_data_ptr (pst_name *obj) +{ + ASSERT(obj); + return obj->value; +} + +static unsigned int +pst_name_length (pst_name *obj) +{ + ASSERT(obj); + return strlen(obj->value); +} + + +/* STRING */ + +/* + * TODO: ascii85 string <~ .... ~> + */ +static pst_string * +pst_string_new (unsigned char *str, unsigned int len) +{ + pst_string *obj; + obj = NEW(1, pst_string); + obj->length = len; + obj->value = NULL; + if (len > 0) { + obj->value = NEW(len, unsigned char); + if (str) + memcpy(obj->value, str, len); + } + return obj; +} + +static void +pst_string_release (pst_string *obj) +{ + ASSERT(obj); + if (obj->value) + RELEASE(obj->value); + RELEASE(obj); +} + +pst_obj * +pst_parse_string (unsigned char **inbuf, unsigned char *inbufend) +{ + if (*inbuf + 2 >= inbufend) { + return NULL; + } else if (**inbuf == '(') + return pst_new_obj(PST_TYPE_STRING, pst_string_parse_literal(inbuf, inbufend)); + else if (**inbuf == '<' && *(*inbuf+1) == '~') + ERROR("ASCII85 string not supported yet."); + else if (**inbuf == '<') + return pst_new_obj(PST_TYPE_STRING, pst_string_parse_hex(inbuf, inbufend)); + return NULL; +} + +static pst_string * +pst_string_parse_literal (unsigned char **inbuf, unsigned char *inbufend) +{ + unsigned char wbuf[PST_STRING_LEN_MAX]; + unsigned char *cur = *inbuf, c = 0; + long len = 0, balance = 1; + + if (cur + 2 > inbufend || *cur != '(') + return NULL; + + cur++; + while (cur < inbufend && len < PST_STRING_LEN_MAX && balance > 0) { + c = *(cur++); + switch (c) { + case '\\': + { + unsigned char unescaped, valid; + unescaped = esctouc(&cur, inbufend, &valid); + if (valid) + wbuf[len++] = unescaped; + } + break; + case '(': + balance++; + wbuf[len++] = '('; + break; + case ')': + balance--; + if (balance > 0) + wbuf[len++] = ')'; + break; + /* + * An end-of-line marker (\n, \r or \r\n), not preceeded by a backslash, + * must be converted to single \n. + */ + case '\r': + if (cur < inbufend && *cur == '\n') + cur++; + wbuf[len++] = '\n'; + break; + default: + wbuf[len++] = c; + } + } + if (c != ')') + return NULL; + + *inbuf = cur; + return pst_string_new(wbuf, len); +} + +static pst_string * +pst_string_parse_hex (unsigned char **inbuf, unsigned char *inbufend) +{ + unsigned char wbuf[PST_STRING_LEN_MAX]; + unsigned char *cur = *inbuf; + unsigned long len = 0; + + if (cur + 2 > inbufend || *cur != '<' || + (*cur == '<' && *(cur+1) == '<')) + return NULL; + + cur++; + /* PDF Reference does not specify how to treat invalid char */ + while (cur < inbufend && len < PST_STRING_LEN_MAX) { + int hi, lo; + skip_white_spaces(&cur, inbufend); + if (*cur == '>') + break; + hi = xtoi(*(cur++)); + if (hi < 0) { + WARN("Invalid char for hex string <%x> treated as <0>.", *(cur-1)); + hi = 0; + } + skip_white_spaces(&cur, inbufend); + if (*cur == '>') + break; + /* 0 is appended if final hex digit is missing */ + lo = (cur < inbufend) ? xtoi(*(cur++)) : 0; + if (lo < 0) { + WARN("Invalid char for hex string <%x> treated as <0>.", *(cur-1)); + lo = 0; + } + wbuf[len++] = (hi << 4) | lo; + } + if (*cur++ != '>') + return NULL; + + *inbuf = cur; + return pst_string_new(wbuf, len); +} + +static long +pst_string_IV (pst_string *obj) +{ + return (long) pst_string_RV(obj); +} + +static double +pst_string_RV (pst_string *obj) +{ + pst_obj *nobj; + unsigned char *p, *end; + double rv; + + ASSERT(obj); + p = obj->value; + end = p + obj->length; + nobj = pst_parse_number(&p, end); + if (nobj == NULL || p != end) + ERROR("Cound not convert string to real value."); + rv = pst_getRV(nobj); + pst_release_obj(nobj); + + return rv; +} + +static unsigned char * +pst_string_SV (pst_string *obj) +{ + unsigned char *str = NULL; + ASSERT(obj); + str = NEW(obj->length + 1, unsigned char); + memcpy(str, obj->value, obj->length); + str[obj->length] = '\0'; + return str; +} + +static void * +pst_string_data_ptr (pst_string *obj) +{ + ASSERT(obj); + return obj->value; +} + +static unsigned int +pst_string_length (pst_string *obj) +{ + ASSERT(obj); + return obj->length; +} diff --git a/Build/source/texk/xdvipdfmx/src/pst_obj.h b/Build/source/texk/xdvipdfmx/src/pst_obj.h new file mode 100644 index 00000000000..dbd5afdff89 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/pst_obj.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/pst_obj.h,v 1.3 2004/03/14 04:23:04 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _PST_OBJ_H_ +#define _PST_OBJ_H_ + +#include "pst.h" + +extern pst_obj *pst_parse_null (unsigned char **inbuf, unsigned char *inbufend); +extern pst_obj *pst_parse_boolean(unsigned char **inbuf, unsigned char *inbufend); +extern pst_obj *pst_parse_name (unsigned char **inbuf, unsigned char *inbufend); +extern pst_obj *pst_parse_number (unsigned char **inbuf, unsigned char *inbufend); +extern pst_obj *pst_parse_string (unsigned char **inbuf, unsigned char *inbufend); + +extern int pst_name_is_valid (const char *name); +extern char *pst_name_encode (const char *name); + +#endif /* _PST_OBJ_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/sfnt.c b/Build/source/texk/xdvipdfmx/src/sfnt.c new file mode 100644 index 00000000000..daef0193c9e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/sfnt.c @@ -0,0 +1,594 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/sfnt.c,v 1.12 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* Based on dvipdfmx-0.13.2c */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif /* HAVE_CONFIG_H_ */ + +#include + +#include "system.h" + +#include "error.h" +#include "mem.h" +#include "mfileio.h" + +#include "sfnt.h" + +#ifdef XETEX +UNSIGNED_BYTE +ft_unsigned_byte(sfnt* f) +{ + unsigned char byte; + unsigned long length = 1; + + if (FT_Load_Sfnt_Table(f->ft_face, 0, f->loc, &byte, &length) != 0) + ERROR("sfnt: Freetype failure..."); + f->loc += 1; + + return byte; +} + +SIGNED_BYTE +ft_signed_byte(sfnt* f) +{ + int b = ft_unsigned_byte(f); + if (b >= 0x80) + b -= 0x100; + return (SIGNED_BYTE)b; +} + +UNSIGNED_PAIR +ft_unsigned_pair(sfnt* f) +{ + unsigned char buf[2]; + unsigned long length = 2; + + if (FT_Load_Sfnt_Table(f->ft_face, 0, f->loc, buf, &length) != 0) + ERROR("sfnt: Freetype failure..."); + f->loc += 2; + + return (UNSIGNED_PAIR)((unsigned)buf[0] << 8) + buf[1]; +} + +SIGNED_PAIR +ft_signed_pair(sfnt* f) +{ + int p = ft_unsigned_pair(f); + if (p >= 0x8000U) + p -= 0x10000U; + + return (SIGNED_PAIR)p; +} + +UNSIGNED_QUAD +ft_unsigned_quad(sfnt* f) +{ + unsigned char buf[4]; + unsigned long length = 4; + + if (FT_Load_Sfnt_Table(f->ft_face, 0, f->loc, buf, &length) != 0) + ERROR("sfnt: Freetype failure..."); + f->loc += 4; + + return ((unsigned long)buf[0] << 24) + ((unsigned long)buf[1] << 16) + + ((unsigned long)buf[2] << 8) + (unsigned long)buf[3]; +} + +unsigned long +ft_read(unsigned char* buf, unsigned long len, sfnt* f) +{ + unsigned long length = len; + if (FT_Load_Sfnt_Table(f->ft_face, 0, f->loc, buf, &length) != 0) + ERROR("sfnt: Freetype failure..."); + f->loc += len; + + return length; +} +#endif + + +/* + * type: + * `true' (0x74727565): TrueType (Mac) + * `typ1' (0x74797031) (Mac): PostScript font housed in a sfnt wrapper + * 0x00010000: TrueType (Win)/OpenType + * `OTTO': PostScript CFF font with OpenType wrapper + * `ttcf': TrueType Collection +*/ +#define SFNT_TRUETYPE 0x00010000UL +#define SFNT_MAC_TRUE 0x74727565UL +#define SFNT_OPENTYPE 0x00010000UL +#define SFNT_POSTSCRIPT 0x4f54544fUL +#define SFNT_TTC 0x74746366UL + +#ifdef XETEX +sfnt * +sfnt_open (FT_Face face, int accept_types) +{ + sfnt *sfont; + ULONG type; + + if (!face || !FT_IS_SFNT(face)) + return NULL; + + sfont = NEW(1, sfnt); + sfont->ft_face = face; + sfont->loc = 0; + sfont->type = 0; + + type = sfnt_get_ulong(sfont); + + if (type == SFNT_TRUETYPE || type == SFNT_MAC_TRUE) { + sfont->type = SFNT_TYPE_TRUETYPE; + } else if (type == SFNT_OPENTYPE) { + sfont->type = SFNT_TYPE_OPENTYPE; + } else if (type == SFNT_POSTSCRIPT) { + sfont->type = SFNT_TYPE_POSTSCRIPT; + } else if (type == SFNT_TTC) { + sfont->type = SFNT_TYPE_TTC; + } + + if ((sfont->type & accept_types) == 0) { + RELEASE(sfont); + return NULL; + } + + sfont->loc = 0; + + sfont->directory = NULL; + + return sfont; +} +#else /* not XETEX */ +sfnt * +sfnt_open (FILE *fp) +{ + sfnt *sfont; + ULONG type; + + ASSERT(fp); + + rewind(fp); + + sfont = NEW(1, sfnt); + + sfont->stream = fp; + + type = sfnt_get_ulong(sfont); + + if (type == SFNT_TRUETYPE || type == SFNT_MAC_TRUE) { + sfont->type = SFNT_TYPE_TRUETYPE; + } else if (type == SFNT_OPENTYPE) { + sfont->type = SFNT_TYPE_OPENTYPE; + } else if (type == SFNT_POSTSCRIPT) { + sfont->type = SFNT_TYPE_POSTSCRIPT; + } else if (type == SFNT_TTC) { + sfont->type = SFNT_TYPE_TTC; + } + + rewind(sfont->stream); + + sfont->directory = NULL; + + return sfont; +} +#endif + +static void +release_directory (struct sfnt_table_directory *td) +{ + long i; + + if (td) { + if (td->tables) { + for (i = 0; i < td->num_tables; i++) { + if (td->tables[i].data) + RELEASE(td->tables[i].data); + } + RELEASE(td->tables); + } + if (td->flags) + RELEASE(td->flags); + RELEASE(td); + } + + return; +} + +void +sfnt_close (sfnt *sfont) +{ + + if (sfont) { + if (sfont->directory) + release_directory(sfont->directory); + RELEASE(sfont); + } + + return; +} + +int +put_big_endian (void *s, LONG q, int n) +{ + int i; + char *p; + + p = (char *) s; + for (i = n - 1; i >= 0; i--) { + p[i] = (char) (q & 0xff); + q >>= 8; + } + + return n; +} + +/* Convert four-byte number to big endianess + * in a machine independent way. + */ +static void +convert_tag (char *tag, unsigned long u_tag) +{ + int i; + + for (i = 3; i >= 0; i--) { + tag[i] = (char) (u_tag % 256); + u_tag /= 256; + } + + return; +} + +/* + * Computes the max power of 2 <= n + */ +static unsigned +max2floor (unsigned n) +{ + int val = 1; + + while (n > 1) { + n /= 2; + val *= 2; + } + + return val; +} + +/* + * Computes the log2 of the max power of 2 <= n + */ +static unsigned +log2floor (unsigned n) +{ + unsigned val = 0; + + while (n > 1) { + n /= 2; + val++; + } + + return val; +} + +static ULONG +sfnt_calc_checksum(void *data, ULONG length) +{ + ULONG chksum = 0; + BYTE *p, *endptr; + int count = 0; + + p = (BYTE *) data; + endptr = p + length; + while (p < endptr) { + chksum += (p[0] << (8 * ( 3 - count))); + count = ((count + 1) & 3); + p++; + } + + return chksum; +} + +static int +find_table_index (struct sfnt_table_directory *td, const char *tag) +{ + int idx; + + if (!td) + return -1; + + for (idx = 0; idx < td->num_tables; idx++) { + if (!memcmp(td->tables[idx].tag, tag, 4)) + return idx; + } + + return -1; +} + +void +sfnt_set_table (sfnt *sfont, const char *tag, void *data, ULONG length) +{ + struct sfnt_table_directory *td; + int idx; + + ASSERT(sfont); + + td = sfont->directory; + idx = find_table_index(td, tag); + + if (idx < 0) { + idx = td->num_tables; + td->num_tables++; + td->tables = RENEW(td->tables, td->num_tables, struct sfnt_table); + memcpy(td->tables[idx].tag, tag, 4); + } + + td->tables[idx].check_sum = sfnt_calc_checksum(data, length); + td->tables[idx].offset = 0L; + td->tables[idx].length = length; + td->tables[idx].data = data; + + return; +} + +ULONG +sfnt_find_table_len (sfnt *sfont, const char *tag) +{ + ULONG length; + struct sfnt_table_directory *td; + int idx; + + ASSERT(sfont && tag); + + td = sfont->directory; + idx = find_table_index(td, tag); + if (idx < 0) + length = 0; + else { + length = td->tables[idx].length; + } + + return length; +} + +ULONG +sfnt_find_table_pos (sfnt *sfont, const char *tag) +{ + ULONG offset; + struct sfnt_table_directory *td; + int idx; + + ASSERT(sfont && tag); + + td = sfont->directory; + idx = find_table_index(td, tag); + if (idx < 0) + offset = 0; + else { + offset = td->tables[idx].offset; + } + + return offset; +} + +ULONG +sfnt_locate_table (sfnt *sfont, const char *tag) +{ + ULONG offset; + + ASSERT(sfont && tag); + + offset = sfnt_find_table_pos(sfont, tag); + if (offset == 0) + ERROR("sfnt: table not found..."); + + sfnt_seek_set(sfont, offset); + + return offset; +} + +int +sfnt_read_table_directory (sfnt *sfont, ULONG offset) +{ + struct sfnt_table_directory *td; + unsigned long i, u_tag; + + ASSERT(sfont); + + if (sfont->directory) + release_directory(sfont->directory); + sfont->directory = td = NEW (1, struct sfnt_table_directory); + +#ifdef XETEX + ASSERT(sfont->ft_face); +#else + ASSERT(sfont->stream); +#endif + + sfnt_seek_set(sfont, offset); + + td->version = sfnt_get_ulong(sfont); + td->num_tables = sfnt_get_ushort(sfont); + td->search_range = sfnt_get_ushort(sfont); + td->entry_selector = sfnt_get_ushort(sfont); + td->range_shift = sfnt_get_ushort(sfont); + + td->flags = NEW(td->num_tables, char); + td->tables = NEW(td->num_tables, struct sfnt_table); + + for (i = 0; i < td->num_tables; i++) { + u_tag = sfnt_get_ulong(sfont); + + convert_tag(td->tables[i].tag, u_tag); + td->tables[i].check_sum = sfnt_get_ulong(sfont); + td->tables[i].offset = sfnt_get_ulong(sfont); + td->tables[i].length = sfnt_get_ulong(sfont); + td->tables[i].data = NULL; + + td->flags[i] = 0; + } + + td->num_kept_tables = 0; + + return 0; +} + +int +sfnt_require_table (sfnt *sfont, const char *tag, int must_exist) +{ + struct sfnt_table_directory *td; + int idx; + + ASSERT(sfont && sfont->directory); + + td = sfont->directory; + idx = find_table_index(td, tag); + if (idx < 0) { + if (must_exist) + return -1; + } else { + td->flags[idx] |= SFNT_TABLE_REQUIRED; + td->num_kept_tables++; + } + + return 0; +} + +#include "pdfobj.h" + +/* + * o All tables begin on four byte boundries, and pad any remaining space + * between tables with zeros + * + * o Entries in the Table Directory must be sorted in ascending order by tag + * + * o The head table contains checksum of the whole font file. + * To compute: first set it to 0, sum the entire font as ULONG, + * then store 0xB1B0AFBA - sum. + */ + +static unsigned char wbuf[1024], padbytes[4] = {0, 0, 0, 0}; + +pdf_obj * +sfnt_create_FontFile_stream (sfnt *sfont) +{ + pdf_obj *stream; + pdf_obj *stream_dict; + struct sfnt_table_directory *td; + long offset, nb_read, length; + int i, sr; + char *p; + + ASSERT(sfont && sfont->directory); + + stream = pdf_new_stream(STREAM_COMPRESS); + + td = sfont->directory; + + /* Header */ + p = (char *) wbuf; + p += sfnt_put_ulong (p, td->version); + p += sfnt_put_ushort(p, td->num_kept_tables); + sr = max2floor(td->num_kept_tables) * 16; + p += sfnt_put_ushort(p, sr); + p += sfnt_put_ushort(p, log2floor(td->num_kept_tables)); + p += sfnt_put_ushort(p, td->num_kept_tables * 16 - sr); + + pdf_add_stream(stream, wbuf, 12); + + /* + * Compute start of actual tables (after headers). + */ + offset = 12 + 16 * td->num_kept_tables; + for (i = 0; i < td->num_tables; i++) { + /* This table must exist in FontFile */ + if (td->flags[i] & SFNT_TABLE_REQUIRED) { + if ((offset % 4) != 0) { + offset += 4 - (offset % 4); + } + + p = (char *) wbuf; + memcpy(p, td->tables[i].tag, 4); + p += 4; + p += sfnt_put_ulong(p, td->tables[i].check_sum); + p += sfnt_put_ulong(p, offset); + p += sfnt_put_ulong(p, td->tables[i].length); + pdf_add_stream(stream, wbuf, 16); + + offset += td->tables[i].length; + } + } + + offset = 12 + 16 * td->num_kept_tables; + for (i = 0; i < td->num_tables; i++) { + if (td->flags[i] & SFNT_TABLE_REQUIRED) { + if ((offset % 4) != 0) { + length = 4 - (offset % 4); + pdf_add_stream(stream, padbytes, length); + offset += length; + } + if (!td->tables[i].data) { +#ifdef XETEX + if (!sfont->ft_face) +#else + if (!sfont->stream) +#endif + { + pdf_release_obj(stream); + ERROR("Font file not opened or already closed..."); + return NULL; + } + + length = td->tables[i].length; + sfnt_seek_set(sfont, td->tables[i].offset); + while (length > 0) { + nb_read = sfnt_read(wbuf, MIN(length, 1024), sfont); + if (nb_read < 0) { + pdf_release_obj(stream); + ERROR("Reading file failed..."); + return NULL; + } else if (nb_read > 0) { + pdf_add_stream(stream, wbuf, nb_read); + } + length -= nb_read; + } + } else { + pdf_add_stream(stream, + td->tables[i].data, td->tables[i].length); + RELEASE(td->tables[i].data); + td->tables[i].data = NULL; + } + /* Set offset for next table */ + offset += td->tables[i].length; + } + } + + stream_dict = pdf_stream_dict(stream); + pdf_add_dict(stream_dict, + pdf_new_name("Length1"), + pdf_new_number(offset)); + + return stream; +} diff --git a/Build/source/texk/xdvipdfmx/src/sfnt.h b/Build/source/texk/xdvipdfmx/src/sfnt.h new file mode 100644 index 00000000000..d3154655ef0 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/sfnt.h @@ -0,0 +1,155 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/sfnt.h,v 1.9 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SFNT_H_ +#define _SFNT_H_ + +#if HAVE_CONFIG_H +#include "config.h" +#endif /* HAVE_CONFIG_H_ */ + +#include "mfileio.h" +#include "numbers.h" +#include "pdfobj.h" + +#ifdef XETEX +#include "ft2build.h" +#include FT_FREETYPE_H +#include FT_TRUETYPE_TABLES_H +#endif + +/* Data Types as described in Apple's TTRefMan */ +typedef unsigned char BYTE; +typedef signed char CHAR; +typedef unsigned short USHORT; +typedef signed short SHORT; +typedef unsigned long ULONG; +typedef signed long LONG; +typedef unsigned long Fixed; /* 16.16-bit signed fixed-point number */ +typedef short FWord; +typedef unsigned short uFWord; +typedef short F2Dot14; /* 16-bit signed fixed number with the low + 14 bits representing fraction. */ + +struct sfnt_table +{ + /* table header */ + char tag[4]; + ULONG check_sum; + ULONG offset; + ULONG length; + char *data; /* table data */ +}; + +#define SFNT_TABLE_REQUIRED (1 << 0) + +struct sfnt_table_directory +{ + ULONG version; /* Fixed for Win */ + USHORT num_tables; + USHORT search_range; + USHORT entry_selector; + USHORT range_shift; + USHORT num_kept_tables; /* number of kept tables */ + char *flags; /* keep or omit */ + struct sfnt_table *tables; +}; + +/* sfnt resource */ +#define SFNT_TYPE_TRUETYPE (1 << 0) +#define SFNT_TYPE_OPENTYPE (1 << 1) +#define SFNT_TYPE_POSTSCRIPT (1 << 2) +#define SFNT_TYPE_TTC (1 << 4) + +typedef struct +{ + int type; + struct sfnt_table_directory *directory; +#ifdef XETEX + FT_Face ft_face; + long loc; +#else + FILE *stream; +#endif +} sfnt; + +/* Convert sfnt "fixed" type to double */ +#define fixed(a) ((double)((a)%0x10000L)/(double)(0x10000L) + \ + (a)/0x10000L - (((a)/0x10000L > 0x7fffL) ? 0x10000L : 0)) + +#ifdef XETEX +UNSIGNED_BYTE ft_unsigned_byte(sfnt* f); +SIGNED_BYTE ft_signed_byte(sfnt* f); +UNSIGNED_PAIR ft_unsigned_pair(sfnt* f); +SIGNED_PAIR ft_signed_pair(sfnt* f); +UNSIGNED_QUAD ft_unsigned_quad(sfnt* f); +unsigned long ft_read(unsigned char* buf, unsigned long len, sfnt* f); + +#define sfnt_get_byte(s) ((BYTE) ft_unsigned_byte(s)) +#define sfnt_get_char(s) ((CHAR) ft_signed_byte (s)) +#define sfnt_get_ushort(s) ((USHORT) ft_unsigned_pair(s)) +#define sfnt_get_short(s) ((SHORT) ft_signed_pair (s)) +#define sfnt_get_ulong(s) ((ULONG) ft_unsigned_quad(s)) +#define sfnt_get_long(s) ((LONG) ft_signed_quad (s)) + +#define sfnt_seek_set(s,o) (s)->loc = (o) +#define sfnt_read(b,l,s) ft_read((b), (l), (s)) +#else +/* get_***_*** from numbers.h */ +#define sfnt_get_byte(s) ((BYTE) get_unsigned_byte((s)->stream)) +#define sfnt_get_char(s) ((CHAR) get_signed_byte ((s)->stream)) +#define sfnt_get_ushort(s) ((USHORT) get_unsigned_pair((s)->stream)) +#define sfnt_get_short(s) ((SHORT) get_signed_pair ((s)->stream)) +#define sfnt_get_ulong(s) ((ULONG) get_unsigned_quad((s)->stream)) +#define sfnt_get_long(s) ((LONG) get_signed_quad ((s)->stream)) + +#define sfnt_seek_set(s,o) seek_absolute((s)->stream, (o)) +#define sfnt_read(b,l,s) fread((b), 1, (l), (s)->stream) +#endif + +extern int put_big_endian (void *s, LONG q, int n); + +#define sfnt_put_ushort(s,v) put_big_endian((s), v, 2); +#define sfnt_put_short(s,v) put_big_endian((s), v, 2); +#define sfnt_put_ulong(s,v) put_big_endian((s), v, 4); +#define sfnt_put_long(s,v) put_big_endian((s), v, 4); + +#ifdef XETEX +extern sfnt *sfnt_open (FT_Face face, int accept_types); +#else +extern sfnt *sfnt_open (FILE *fp); +#endif +extern void sfnt_close (sfnt *sfont); + +/* table directory */ +extern int sfnt_read_table_directory (sfnt *sfont, ULONG offset); +extern ULONG sfnt_find_table_len (sfnt *sfont, const char *tag); +extern ULONG sfnt_find_table_pos (sfnt *sfont, const char *tag); +extern ULONG sfnt_locate_table (sfnt *sfont, const char *tag); + +extern void sfnt_set_table (sfnt *sfont, + const char *tag, void *data, ULONG length); +extern int sfnt_require_table (sfnt *sfont, const char *tag, int must_exist); + +extern pdf_obj *sfnt_create_FontFile_stream (sfnt *sfont); + +#endif /* _SFNT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_color.c b/Build/source/texk/xdvipdfmx/src/spc_color.c new file mode 100644 index 00000000000..27c318f8825 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_color.c @@ -0,0 +1,220 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_color.c,v 1.5 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "pdfdev.h" +#include "pdfcolor.h" + +#include "specials.h" + +#include "spc_util.h" +#include "spc_color.h" + + +/* Color stack is actually placed into pdfcolor.c. + * The reason why we need to place stack there is + * that we must reinstall color after grestore and + * other operations that can change current color + * implicitely. + */ + +int +spc_color_at_begin_page (void) +{ + return 0; +} + +int +spc_color_at_end_page (void) +{ + return 0; +} + +int +spc_color_at_begin_document (void) +{ + return 0; +} + +int +spc_color_at_end_document (void) +{ + return 0; +} + +static int +spc_handler_color_push (struct spc_env *spe, struct spc_arg *args) +{ + int error = 0; + pdf_color colorspec; + + pdf_color_push(); /* save currentcolor */ + if (args->curptr < args->endptr) { + error = spc_util_read_colorspec(spe, &colorspec, args, 1); + if (!error) { + pdf_dev_setcolor(&colorspec, 0); + pdf_dev_setcolor(&colorspec, 1); + } + } + + return error; +} + +static int +spc_handler_color_pop (struct spc_env *spe, struct spc_arg *args) +{ + pdf_color_pop(); + + return 0; +} + +/* _FIXME_ ... I don't understand this well. + * Dvips's implementation is to clear color stack and then + * push color? + */ +static int +spc_handler_color_default (struct spc_env *spe, struct spc_arg *args) +{ + int error; + pdf_color colorspec; + + error = spc_util_read_colorspec(spe, &colorspec, args, 1); + if (!error) { + pdf_color_clear(); + pdf_dev_setcolor(&colorspec, 0); + pdf_dev_setcolor(&colorspec, 1); + pdf_color_push(); /* save currentcolor */ + } + + return error; +} + + +/* This is from color special? */ +#include "pdfdoc.h" + +static int +spc_handler_background (struct spc_env *spe, struct spc_arg *args) +{ + int error; + pdf_color colorspec; + + error = spc_util_read_colorspec(spe, &colorspec, args, 1); + if (!error) + pdf_doc_set_bgcolor(&colorspec); + + return error; +} + + +#ifndef ISBLANK +#define ISBLANK(c) ((c) == ' ' || (c) == '\t' || (c) == '\v') +#endif +static void +skip_blank (char **pp, char *endptr) +{ + char *p = *pp; + for ( ; p < endptr && ISBLANK(*p); p++); + *pp = p; +} + +int +spc_color_check_special (const char *buf, long len) +{ + int r = 0; + char *q, *p, *endptr; + + p = (char *) buf; + endptr = p + len; + + skip_blank(&p, endptr); + q = parse_c_ident(&p, endptr); + if (!q) + return 0; + else if (!strcmp(q, "color")) + r = 1; + else if (!strcmp(q, "background")) { + r = 1; + } + RELEASE(q); + + return r; +} + +extern int +spc_color_setup_handler (struct spc_handler *sph, + struct spc_env *spe, struct spc_arg *ap) +{ + char *p, *q; + + ASSERT(sph && spe && ap); + + skip_blank(&ap->curptr, ap->endptr); + q = parse_c_ident(&ap->curptr, ap->endptr); + if (!q) + return -1; + skip_blank(&ap->curptr, ap->endptr); + + if (!strcmp(q, "background")) { + ap->command = (char *) "background"; + sph->exec = &spc_handler_background; + RELEASE(q); + } else if (!strcmp(q, "color")) { /* color */ + RELEASE(q); + p = ap->curptr; + + q = parse_c_ident(&p, ap->endptr); + if (!q) + return -1; + else if (!strcmp(q, "push")) { + ap->command = (char *) "push"; + sph->exec = &spc_handler_color_push; + ap->curptr = p; + } else if (!strcmp(q, "pop")) { + ap->command = (char *) "pop"; + sph->exec = &spc_handler_color_pop; + ap->curptr = p; + } else { /* cmyk, rgb, ... */ + ap->command = (char *) ""; + sph->exec = &spc_handler_color_default; + } + RELEASE(q); + } else { + spc_warn(spe, "Not color/background special?"); + RELEASE(q); + return -1; + } + + skip_blank(&ap->curptr, ap->endptr); + return 0; +} + diff --git a/Build/source/texk/xdvipdfmx/src/spc_color.h b/Build/source/texk/xdvipdfmx/src/spc_color.h new file mode 100644 index 00000000000..60770556883 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_color.h @@ -0,0 +1,37 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_color.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_COLOR_H_ +#define _SPC_COLOR_H_ + +extern int spc_color_at_begin_page (void); +extern int spc_color_at_end_page (void); +extern int spc_color_at_begin_document (void); +extern int spc_color_at_end_document (void); + +extern int spc_color_check_special (const char *buffer, long size); +extern int spc_color_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_COLOR_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_dvips.c b/Build/source/texk/xdvipdfmx/src/spc_dvips.c new file mode 100644 index 00000000000..39578065626 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_dvips.c @@ -0,0 +1,395 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_dvips.c,v 1.9 2005/08/19 12:06:24 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxfile.h" + +#include "pdfparse.h" + +#include "pdfdoc.h" + +#include "mpost.h" + +#include "pdfximage.h" +#include "pdfdraw.h" +#include "pdfcolor.h" +#include "pdfdev.h" + +#include "specials.h" +#include "spc_util.h" + +#include "spc_dvips.h" + + +static int block_pending = 0; +static double pending_x = 0.0; +static double pending_y = 0.0; +static int position_set = 0; + +static char * +parse_filename (char **pp, char *endptr) +{ + char *r, *q = NULL, *p = *pp; + char qchar; + int n; + + if (!p || p >= endptr) + return NULL; + else if (*p == '\"' || *p == '\'') + qchar = *p++; + else { + qchar = ' '; + } + for (n = 0, q = p; p < endptr && *p != qchar; n++, p++); + if (qchar != ' ') { + if (*p != qchar) + return NULL; + p++; + } + if (!q || n == 0) + return NULL; + +#if 0 + { + int i; + for (i = 0; i < n && isprint(q[i]); i++); + if (i != n) { + WARN("Non printable char in filename string..."); + } + } +#endif + + r = NEW(n + 1, char); + memcpy(r, q, n); r[n] = '\0'; + + *pp = p; + return r; +} + +/* =filename ... */ +static int +spc_handler_ps_file (struct spc_env *spe, struct spc_arg *args) +{ + int form_id; + char *filename; + transform_info ti; + + ASSERT(spe && args); + + skip_white(&args->curptr, args->endptr); + if (args->curptr + 1 >= args->endptr || + args->curptr[0] != '=') { + spc_warn(spe, "No filename specified for PSfile special."); + return -1; + } + args->curptr++; + + filename = parse_filename(&args->curptr, args->endptr); + if (!filename) { + spc_warn(spe, "No filename specified for PSfile special."); + return -1; + } + + transform_info_clear(&ti); + if (spc_util_read_dimtrns(spe, &ti, args, 1) < 0) { + RELEASE(filename); + return -1; + } + + form_id = pdf_ximage_findresource(filename, 0, 0); + if (form_id < 0) { + spc_warn(spe, "Failed to read image file: %s", filename); + RELEASE(filename); + return -1; + } + RELEASE(filename); + + pdf_dev_put_image(form_id, &ti, spe->x_user, spe->y_user); + + return 0; +} + +/* This isn't correct implementation but dvipdfm supports... */ +static int +spc_handler_ps_plotfile (struct spc_env *spe, struct spc_arg *args) +{ + int error = 0; + int form_id; + char *filename; + transform_info p; + + ASSERT(spe && args); + + spc_warn(spe, "ps:plotfile found (not properly implemented)"); + + skip_white(&args->curptr, args->endptr); + filename = parse_filename(&args->curptr, args->endptr); + if (!filename) { + spc_warn(spe, "Expecting filename but not found..."); + return -1; + } + + form_id = pdf_ximage_findresource(filename, 0, 0); + if (form_id < 0) { + spc_warn(spe, "Could not open PS file: %s", filename); + error = -1; + } else { + transform_info_clear(&p); + p.matrix.d = -1.0; /* xscale = 1.0, yscale = -1.0 */ +#if 0 + /* I don't know how to treat this... */ + pdf_dev_put_image(form_id, &p, + block_pending ? pending_x : spe->x_user, + block_pending ? pending_y : spe->y_user); +#endif + pdf_dev_put_image(form_id, &p, 0, 0); + } + RELEASE(filename); + + return error; +} + +static int +spc_handler_ps_literal (struct spc_env *spe, struct spc_arg *args) +{ + int error = 0; + int st_depth, gs_depth; + double x_user, y_user; + + ASSERT(spe && args); + + if (args->curptr >= args->endptr) + return -1; + + if (args->curptr + strlen(":[begin]") <= args->endptr && + !strncmp(args->curptr, ":[begin]", strlen(":[begin]"))) { + block_pending++; + position_set = 1; + + x_user = pending_x = spe->x_user; + y_user = pending_y = spe->y_user; + args->curptr += strlen(":[begin]"); + } else if (args->curptr + strlen(":[end]") <= args->endptr && + !strncmp(args->curptr, ":[end]", strlen(":[end]"))) { + if (block_pending <= 0) { + spc_warn(spe, "No corresponding ::[begin] found."); + return -1; + } + block_pending--; + + position_set = 0; + + x_user = pending_x; + y_user = pending_y; + args->curptr += strlen(":[end]"); + } else if (args->curptr < args->endptr && + args->curptr[0] == ':') { + x_user = position_set ? pending_x : spe->x_user; + y_user = position_set ? pending_y : spe->y_user; + args->curptr++; + } else { + position_set = 1; + x_user = pending_x = spe->x_user; + y_user = pending_y = spe->y_user; + } + + skip_white(&args->curptr, args->endptr); + if (args->curptr < args->endptr) { + + st_depth = mps_stack_depth(); + gs_depth = pdf_dev_current_depth(); + + error = mps_exec_inline(&args->curptr, + args->endptr, + x_user, y_user); + if (error) { + spc_warn(spe, "Interpreting PS code failed!!! Output might be broken!!!"); + pdf_dev_grestore_to(gs_depth); + } else if (st_depth != mps_stack_depth()) { + spc_warn(spe, "Stack not empty after execution of inline PostScript code."); + spc_warn(spe, ">> Your macro package makes some assumption on internal behaviour of DVI drivers."); + spc_warn(spe, ">> It may not compatible with dvipdfmx."); + } + } + + return error; +} + +static int +spc_handler_ps_default (struct spc_env *spe, struct spc_arg *args) +{ + int error; + int st_depth, gs_depth; + + ASSERT(spe && args); + + pdf_dev_gsave(); + + st_depth = mps_stack_depth(); + gs_depth = pdf_dev_current_depth(); + + { + pdf_tmatrix M; + M.a = M.d = 1.0; M.b = M.c = 0.0; M.e = spe->x_user; M.f = spe->y_user; + pdf_dev_concat(&M); + error = mps_exec_inline(&args->curptr, + args->endptr, + spe->x_user, spe->y_user); + M.e = -spe->x_user; M.f = -spe->y_user; + pdf_dev_concat(&M); + } + if (error) + spc_warn(spe, "Interpreting PS code failed!!! Output might be broken!!!"); + else { + if (st_depth != mps_stack_depth()) { + spc_warn(spe, "Stack not empty after execution of inline PostScript code."); + spc_warn(spe, ">> Your macro package makes some assumption on internal behaviour of DVI drivers."); + spc_warn(spe, ">> It may not compatible with dvipdfmx."); + } + } + + pdf_dev_grestore_to(gs_depth); + pdf_dev_grestore(); + + return error; +} + +static struct spc_handler dvips_handlers[] = { + {"PSfile", spc_handler_ps_file}, + {"psfile", spc_handler_ps_file}, + {"ps: plotfile", spc_handler_ps_plotfile}, /* FIXME */ + {"PS: plotfile", spc_handler_ps_plotfile}, /* FIXME */ + {"PS:", spc_handler_ps_literal}, + {"ps:", spc_handler_ps_literal}, + {"\" ", spc_handler_ps_default} +}; + +int +spc_dvips_at_begin_page (void) +{ + return 0; +} + +int +spc_dvips_at_end_page (void) +{ + mps_eop_cleanup(); + return 0; +} + +int +spc_dvips_at_begin_document (void) +{ + return 0; +} + +int +spc_dvips_at_end_document (void) +{ + return 0; +} + +int +spc_dvips_check_special (const char *buf, long len) +{ + char *p, *endptr; + int i; + + p = (char *) buf; + endptr = p + len; + + skip_white(&p, endptr); + if (p >= endptr) + return 0; + + len = (long) (endptr - p); + for (i = 0; + i < sizeof(dvips_handlers)/sizeof(struct spc_handler); i++) { + if (len >= strlen(dvips_handlers[i].key) && + !memcmp(p, dvips_handlers[i].key, + strlen(dvips_handlers[i].key))) { + return 1; + } + } + + return 0; +} + +int +spc_dvips_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args) +{ + char *key; + int i, keylen; + + ASSERT(handle && spe && args); + + skip_white(&args->curptr, args->endptr); + + key = args->curptr; + while (args->curptr < args->endptr && + isalpha(args->curptr[0])) { + args->curptr++; + } + /* ps:: --> : */ + if (args->curptr < args->endptr && + args->curptr[0] == ':') { + args->curptr++; + } else if (args->curptr+1 < args->endptr && + args->curptr[0] == '"' && args->curptr[1] == ' ') { + args->curptr += 2; + } + + keylen = (int) (args->curptr - key); + if (keylen < 1) { + spc_warn(spe, "Not ps: special???"); + return -1; + } + + for (i = 0; + i < sizeof(dvips_handlers) / sizeof(struct spc_handler); i++) { + if (keylen == strlen(dvips_handlers[i].key) && + !strncmp(key, dvips_handlers[i].key, keylen)) { + + skip_white(&args->curptr, args->endptr); + + args->command = (char *) dvips_handlers[i].key; + + handle->key = (char *) "ps:"; + handle->exec = dvips_handlers[i].exec; + + return 0; + } + } + + return -1; +} + diff --git a/Build/source/texk/xdvipdfmx/src/spc_dvips.h b/Build/source/texk/xdvipdfmx/src/spc_dvips.h new file mode 100644 index 00000000000..8816b4078cf --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_dvips.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_dvips.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_DVIPS_H_ +#define _SPC_DVIPS_H_ + +#include "specials.h" + +extern int spc_dvips_at_begin_page (void); +extern int spc_dvips_at_end_page (void); +extern int spc_dvips_at_begin_document (void); +extern int spc_dvips_at_end_document (void); + +extern int spc_dvips_check_special (const char *buffer, long size); +extern int spc_dvips_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_DVIPS_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_html.c b/Build/source/texk/xdvipdfmx/src/spc_html.c new file mode 100644 index 00000000000..7d993f2b98c --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_html.c @@ -0,0 +1,940 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_html.c,v 1.5 2005/08/14 15:50:36 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "pdfdraw.h" +#include "pdfdev.h" +#include "pdfximage.h" + +#include "pdfdoc.h" + +#include "specials.h" +#include "spc_util.h" + +#include "spc_html.h" + + +#define ENABLE_HTML_IMG_SUPPORT 1 +#define ENABLE_HTML_SVG_TRANSFORM 1 +#define ENABLE_HTML_SVG_OPACITY 1 + +/* _FIXME_ + * Please rewrite this or remove html special support + */ + +#define ANCHOR_TYPE_HREF 0 +#define ANCHOR_TYPE_NAME 1 + +struct spc_html_ +{ + struct { + long extensions; + } opts; + + pdf_obj *link_dict; + char *baseurl; + int pending_type; +}; + +static struct spc_html_ _html_state = { + { 0 }, + NULL, NULL, -1 +}; + + +#ifdef ENABLE_HTML_SVG_TRANSFORM +static int cvt_a_to_tmatrix (pdf_tmatrix *M, const char *ptr, char **nextptr); +#endif /* ENABLE_HTML_SVG_TRANSFORM */ + +#define \ +downcasify(s) \ +if ((s)) { \ + char *_p = (char *) (s); \ + while (*(_p) != 0) { \ + if (*(_p) >= 'A' && *(_p) <= 'Z') { \ + *(_p) = (*(_p) - 'A') + 'a'; \ + } \ + _p++; \ + } \ +} + +static int +parse_key_val (char **pp, char *endptr, char **kp, char **vp) +{ + char *q, *p, *k, *v; + int n, error = 0; + + for (p = *pp ; p < endptr && isspace(*p); p++); +#if 0 + while (!error && p < endptr && + ((*p >= 'a' && *p <= 'z') || + (*p >= 'A' && *p <= 'Z')) + ) { +#endif + k = v = NULL; + for (q = p, n = 0; + p < endptr && + ((*p >= 'a' && *p <= 'z') || + (*p >= 'A' && *p <= 'Z') || + (*p >= '0' && *p <= '9') || + *p == '-' || *p == ':' + ); n++, p++); + if (n == 0) { +#if 0 + break; +#else + *kp = *vp = NULL; + return -1; +#endif + } + k = NEW(n + 1, char); + memcpy(k, q, n); k[n] = '\0'; + if (p + 2 >= endptr || p[0] != '=' || (p[1] != '\"' && p[1] != '\'')) { + RELEASE(k); k = NULL; + *pp = p; + error = -1; + } else { + char qchr = p[1]; + p += 2; /* skip '="' */ + for (q = p, n = 0; p < endptr && *p != qchr; p++, n++); + if (p == endptr || *p != qchr) + error = -1; + else { + v = NEW(n + 1, char); + memcpy(v, q, n); v[n] = '\0'; +#if 0 + pdf_add_dict(t->attr, + pdf_new_name(k), + pdf_new_string(v, n)); + RELEASE(v); +#endif + p++; + } + } +#if 0 + RELEASE(k); + if (!error) + for ( ; p < endptr && isspace(*p); p++); + } +#endif + + *kp = k; *vp = v; *pp = p; + return error; +} + +#define HTML_TAG_NAME_MAX 127 +#define HTML_TAG_TYPE_EMPTY 1 +#define HTML_TAG_TYPE_OPEN 1 +#define HTML_TAG_TYPE_CLOSE 2 + +static int +read_html_tag (char *name, pdf_obj *attr, int *type, char **pp, char *endptr) +{ + char *p = *pp; + int n = 0, error = 0; + + for ( ; p < endptr && isspace(*p); p++); + if (p >= endptr || *p != '<') + return -1; + + *type = HTML_TAG_TYPE_OPEN; + for (++p; p < endptr && isspace(*p); p++); + if (p < endptr && *p == '/') { + *type = HTML_TAG_TYPE_CLOSE; + for (++p; p < endptr && isspace(*p); p++); + } + +#define ISDELIM(c) ((c) == '>' || (c) == '/' || isspace(c)) + for (n = 0; p < endptr && n < HTML_TAG_NAME_MAX && !ISDELIM(*p); n++, p++) { + name[n] = *p; + } + name[n] = '\0'; + if (n == 0 || p == endptr || !ISDELIM(*p)) { + *pp = p; + return -1; + } + + for ( ; p < endptr && isspace(*p); p++); + while (p < endptr && !error && *p != '/' && *p != '>') { + char *kp = NULL, *vp = NULL; + error = parse_key_val(&p, endptr, &kp, &vp); + if (!error) { + downcasify(kp); + pdf_add_dict(attr, + pdf_new_name(kp), + pdf_new_string(vp, strlen(vp) + 1)); /* include trailing NULL here!!! */ + RELEASE(kp); + RELEASE(vp); + } + for ( ; p < endptr && isspace(*p); p++); + } + if (error) { + *pp = p; + return error; + } + + if (p < endptr && *p == '/') { + *type = HTML_TAG_TYPE_EMPTY; + for (++p; p < endptr && isspace(*p); p++); + } + if (p == endptr || *p != '>') { + *pp = p; + return -1; + } + p++; + + downcasify(name); + *pp = p; + return 0; +} + + +static int +spc_handler_html__init (struct spc_env *spe, struct spc_arg *ap, void *dp) +{ + struct spc_html_ *sd = dp; + + sd->link_dict = NULL; + sd->baseurl = NULL; + sd->pending_type = -1; + + return 0; +} + +static int +spc_handler_html__clean (struct spc_env *spe, struct spc_arg *ap, void *dp) +{ + struct spc_html_ *sd = dp; + + if (sd->baseurl) + RELEASE(sd->baseurl); + + if (sd->pending_type >= 0 || sd->link_dict) + spc_warn(spe, "Unclosed html anchor found."); + + if (sd->link_dict) + pdf_release_obj(sd->link_dict); + + sd->pending_type = -1; + sd->baseurl = NULL; + sd->link_dict = NULL; + + return 0; +} + + +static int +spc_handler_html__bophook (struct spc_env *spe, struct spc_arg *ap, void *dp) +{ + struct spc_html_ *sd = dp; + + if (sd->pending_type >= 0) { + spc_warn(spe, "...html anchor continues from previous page processed..."); + } + + return 0; +} + +static int +spc_handler_html__eophook (struct spc_env *spe, struct spc_arg *ap, void *dp) +{ + struct spc_html_ *sd = dp; + + if (sd->pending_type >= 0) { + spc_warn(spe, "Unclosed html anchor at end-of-page!"); + } + + return 0; +} + + +static char * +fqurl (const char *baseurl, const char *name) +{ + char *q; + int len = 0; + + len = strlen(name); + if (baseurl) + len += strlen(baseurl) + 1; /* we may want to add '/' */ + + q = NEW(len + 1, char); + if (baseurl && baseurl[0]) { + char *p; + strcpy(q, baseurl); + p = q + strlen(q) - 1; + if (*p == '/') + *p = '\0'; + if (name[0] && name[0] != '/') + strcat(q, "/"); + } + strcat(q, name); + + return q; +} + +static int +html_open_link (struct spc_env *spe, const char *name, struct spc_html_ *sd) +{ + pdf_obj *color; + char *url; + + ASSERT( name ); + ASSERT( sd->link_dict == NULL ); /* Should be checked somewhere else */ + + sd->link_dict = pdf_new_dict(); + pdf_add_dict(sd->link_dict, + pdf_new_name("Type"), pdf_new_name ("Annot")); + pdf_add_dict(sd->link_dict, + pdf_new_name("Subtype"), pdf_new_name ("Link")); + + color = pdf_new_array (); + pdf_add_array(color, pdf_new_number(0.0)); + pdf_add_array(color, pdf_new_number(0.0)); + pdf_add_array(color, pdf_new_number(1.0)); + pdf_add_dict(sd->link_dict, pdf_new_name("C"), color); + + url = fqurl(sd->baseurl, name); + if (url[0] == '#') { + /* url++; causes memory leak in RELEASE(url) */ + pdf_add_dict(sd->link_dict, + pdf_new_name("Dest"), + pdf_new_string(url+1, strlen(url+1))); + } else { /* Assume this is URL */ + pdf_obj *action = pdf_new_dict(); + pdf_add_dict(action, + pdf_new_name("Type"), + pdf_new_name("Action")); + pdf_add_dict(action, + pdf_new_name("S"), + pdf_new_name("URI")); + pdf_add_dict(action, + pdf_new_name("URI"), + pdf_new_string(url, strlen(url))); + pdf_add_dict(sd->link_dict, + pdf_new_name("A"), + pdf_link_obj(action)); + pdf_release_obj(action); + } + RELEASE(url); + + spc_begin_annot(spe, sd->link_dict); + + sd->pending_type = ANCHOR_TYPE_HREF; + + return 0; +} + +static int +html_open_dest (struct spc_env *spe, const char *name, struct spc_html_ *sd) +{ + int error; + pdf_obj *array, *page_ref; + pdf_coord cp; + + cp.x = spe->x_user; cp.y = spe->y_user; + pdf_dev_transform(&cp, NULL); + + page_ref = pdf_doc_this_page_ref(); + ASSERT( page_ref ); /* Otherwise must be bug */ + + array = pdf_new_array(); + pdf_add_array(array, page_ref); + pdf_add_array(array, pdf_new_name("XYZ")); + pdf_add_array(array, pdf_new_null()); + pdf_add_array(array, pdf_new_number(cp.y + 24.0)); + pdf_add_array(array, pdf_new_null()); + + error = pdf_doc_add_names("Dests", + name, strlen(name), + array); + + if (error) + spc_warn(spe, "Failed to add named destination: %s", name); + + sd->pending_type = ANCHOR_TYPE_NAME; + + return error; +} + +#define ANCHOR_STARTED(s) ((s)->pending_type >= 0 || (s)->link_dict) + +static int +spc_html__anchor_open (struct spc_env *spe, pdf_obj *attr, struct spc_html_ *sd) +{ + pdf_obj *href, *name; + int error = 0; + + if (ANCHOR_STARTED(sd)) { + spc_warn(spe, "Nested html anchors found!"); + return -1; + } + + href = pdf_lookup_dict(attr, "href"); + name = pdf_lookup_dict(attr, "name"); + if (href && name) { + spc_warn(spe, "Sorry, you can't have both \"href\" and \"name\" in anchor tag..."); + error = -1; + } else if (href) { + error = html_open_link(spe, pdf_string_value(href), sd); + } else if (name) { /* name */ + error = html_open_dest(spe, pdf_string_value(name), sd); + } else { + spc_warn(spe, "You should have \"href\" or \"name\" in anchor tag!"); + error = -1; + } + + return error; +} + +static int +spc_html__anchor_close (struct spc_env *spe, pdf_obj *attr, struct spc_html_ *sd) +{ + int error = 0; + + switch (sd->pending_type) { + case ANCHOR_TYPE_HREF: + if (sd->link_dict) { + spc_end_annot(spe); + pdf_release_obj(sd->link_dict); + sd->link_dict = NULL; + sd->pending_type = -1; + } else { + spc_warn(spe, "Closing html anchor (link) without starting!"); + error = -1; + } + break; + case ANCHOR_TYPE_NAME: + sd->pending_type = -1; + break; + default: + spc_warn(spe, "No corresponding opening tag for html anchor."); + error = -1; + break; + } + + return error; +} + +static int +spc_html__base_empty (struct spc_env *spe, pdf_obj *attr, struct spc_html_ *sd) +{ + pdf_obj *href; + char *vp; + + href = pdf_lookup_dict(attr, "href"); + if (!href) { + spc_warn(spe, "\"href\" not found for \"base\" tag!"); + return -1; + } + + vp = (char *) pdf_string_value(href); + if (sd->baseurl) { + spc_warn(spe, "\"baseurl\" changed: \"%s\" --> \"%s\"", sd->baseurl, vp); + RELEASE(sd->baseurl); + } + sd->baseurl = NEW(strlen(vp) + 1, char); + strcpy(sd->baseurl, vp); + + return 0; +} + + +#ifdef ENABLE_HTML_IMG_SUPPORT +/* This isn't completed. + * Please think about placement of images. + */ +static double +atopt (const char *a) +{ + char *q, *p = (char *) a; + double v, u = 1.0; + const char *_ukeys[] = { +#define K_UNIT__PT 0 +#define K_UNIT__IN 1 +#define K_UNIT__CM 2 +#define K_UNIT__MM 3 +#define K_UNIT__BP 4 + "pt", "in", "cm", "mm", "bp", +#define K_UNIT__PX 5 + "px", + NULL + }; + int k; + + q = parse_float_decimal(&p, p + strlen(p)); + if (!q) { + WARN("Invalid length value: %s (%c)", a, *p); + return 0.0; + } + + v = atof(q); + RELEASE(q); + + q = parse_c_ident(&p, p + strlen(p)); + if (q) { + for (k = 0; _ukeys[k] && strcmp(_ukeys[k], q); k++); + switch (k) { + case K_UNIT__PT: u *= 72.0 / 72.27; break; + case K_UNIT__IN: u *= 72.0; break; + case K_UNIT__CM: u *= 72.0 / 2.54 ; break; + case K_UNIT__MM: u *= 72.0 / 25.4 ; break; + case K_UNIT__BP: u *= 1.0 ; break; + case K_UNIT__PX: u *= 1.0 ; break; /* 72dpi */ + default: + WARN("Unknown unit of measure: %s", q); + break; + } + RELEASE(q); + } + + return v * u; +} + + +#ifdef ENABLE_HTML_SVG_OPACITY +/* Replicated from spc_tpic */ +static pdf_obj * +create_xgstate (double a /* alpha */, int f_ais /* alpha is shape */) +{ + pdf_obj *dict; + + dict = pdf_new_dict(); + pdf_add_dict(dict, + pdf_new_name("Type"), + pdf_new_name("ExtGState")); + if (f_ais) { + pdf_add_dict(dict, + pdf_new_name("AIS"), + pdf_new_boolean(1)); + } + pdf_add_dict(dict, + pdf_new_name("ca"), + pdf_new_number(a)); + + return dict; +} + +static int +check_resourcestatus (const char *category, const char *resname) +{ + pdf_obj *dict1, *dict2; + + dict1 = pdf_doc_current_page_resources(); + if (!dict1) + return 0; + + dict2 = pdf_lookup_dict(dict1, category); + if (dict2 && + pdf_obj_typeof(dict2) == PDF_DICT) { + if (pdf_lookup_dict(dict2, resname)) + return 1; + } + return 0; +} +#endif /* ENABLE_HTML_SVG_OPACITY */ + +static int +spc_html__img_empty (struct spc_env *spe, pdf_obj *attr, struct spc_html_ *sd) +{ + pdf_obj *src, *obj; + transform_info ti; + int id, error = 0; +#ifdef ENABLE_HTML_SVG_OPACITY + double alpha = 1.0; /* meaning fully opaque */ +#endif /* ENABLE_HTML_SVG_OPACITY */ +#ifdef ENABLE_HTML_SVG_TRANSFORM + pdf_tmatrix M; + + pdf_setmatrix(&M, 1.0, 0.0, 0.0, 1.0, spe->x_user, spe->y_user); +#endif /* ENABLE_HTML_SVG_TRANSFORM */ + + spc_warn(spe, "html \"img\" tag found (not completed, plese don't use!)."); + + src = pdf_lookup_dict(attr, "src"); + if (!src) { + spc_warn(spe, "\"src\" attribute not found for \"img\" tag!"); + return -1; + } + + transform_info_clear(&ti); + obj = pdf_lookup_dict(attr, "width"); + if (obj) { + ti.width = atopt(pdf_string_value(obj)); + ti.flags |= INFO_HAS_WIDTH; + } + obj = pdf_lookup_dict(attr, "height"); + if (obj) { + ti.height = atopt(pdf_string_value(obj)); + ti.flags |= INFO_HAS_HEIGHT; + } + +#ifdef ENABLE_HTML_SVG_OPACITY + obj = pdf_lookup_dict(attr, "svg:opacity"); + if (obj) { + alpha = atof(pdf_string_value(obj)); + if (alpha < 0.0 || alpha > 1.0) { + spc_warn(spe, "Invalid opacity value: %s", pdf_string_value(obj)); + alpha = 1.0; + } + } +#endif /* ENABLE_HTML_SVG_OPCAITY */ + +#ifdef ENABLE_HTML_SVG_TRANSFORM + obj = pdf_lookup_dict(attr, "svg:transform"); + if (obj) { + char *p = (char *) pdf_string_value(obj); + pdf_tmatrix N; + for ( ; *p && isspace(*p); p++); + while (*p && !error) { + pdf_setmatrix(&N, 1.0, 0.0, 0.0, 1.0, 0.0, 0.0); + error = cvt_a_to_tmatrix(&N, p, &p); + if (!error) { + N.f = -N.f; + pdf_concatmatrix(&M, &N); + for ( ; *p && isspace(*p); p++); + if (*p == ',') + for (++p; *p && isspace(*p); p++); + } + } + } +#endif /* ENABLE_HTML_SVG_TRANSFORM */ + + if (error) { + spc_warn(spe, "Error in html \"img\" tag attribute."); + return error; + } + + id = pdf_ximage_findresource(pdf_string_value(src), 0, 0); + if (id < 0) { + spc_warn(spe, "Could not find/load image: %s", pdf_string_value(src)); + error = -1; + } else { +#if defined(ENABLE_HTML_SVG_TRANSFORM) || defined(ENABLE_HTML_SVG_OPACITY) + { + char *res_name; + pdf_rect r; + + graphics_mode(); + + pdf_dev_gsave(); + +#ifdef ENABLE_HTML_SVG_OPACITY + { + pdf_obj *dict; + int a = round(100.0 * alpha); + if (a != 0) { + res_name = NEW(strlen("_Tps_a100_") + 1, char); + sprintf(res_name, "_Tps_a%03d_", a); /* Not Tps prefix but... */ + if (!check_resourcestatus("ExtGState", res_name)) { + dict = create_xgstate(round_at(0.01 * a, 0.01), 0); + pdf_doc_add_page_resource("ExtGState", + res_name, pdf_ref_obj(dict)); + pdf_release_obj(dict); + } + pdf_doc_add_page_content(" /", 2); + pdf_doc_add_page_content(res_name, strlen(res_name)); + pdf_doc_add_page_content(" gs", 3); + RELEASE(res_name); + } + } +#endif /* ENABLE_HTML_SVG_OPACITY */ + + pdf_dev_concat(&M); + + pdf_ximage_scale_image(id, &M, &r, &ti); + pdf_dev_concat(&M); + + pdf_dev_rectclip(r.llx, r.lly, r.urx - r.llx, r.ury - r.lly); + + res_name = pdf_ximage_get_resname(id); + pdf_doc_add_page_content(" /", 2); + pdf_doc_add_page_content(res_name, strlen(res_name)); + pdf_doc_add_page_content(" Do", 3); + + pdf_dev_grestore(); + + pdf_doc_add_page_resource("XObject", + res_name, + pdf_ximage_get_reference(id)); + } +#else + pdf_dev_put_image(id, &ti, spe->x_user, spe->y_user); +#endif /* ENABLE_HTML_SVG_XXX */ + } + + return error; +} +#else +static int +spc_html__img_empty (struct spc_env *spe, pdf_obj *attr, struct spc_html_ *sd) +{ + spc_warn(spe, "IMG tag not yet supported yet..."); + return -1; +} +#endif /* ENABLE_HTML_IMG_SUPPORT */ + + +static int +spc_handler_html_default (struct spc_env *spe, struct spc_arg *ap) +{ + struct spc_html_ *sd = &_html_state; + char name[HTML_TAG_NAME_MAX + 1]; + pdf_obj *attr; + int error = 0, type = HTML_TAG_TYPE_OPEN; + + if (ap->curptr >= ap->endptr) + return 0; + + attr = pdf_new_dict(); + error = read_html_tag(name, attr, &type, &ap->curptr, ap->endptr); + if (error) { + pdf_release_obj(attr); + return error; + } + if (!strcmp(name, "a")) { + switch (type) { + case HTML_TAG_TYPE_OPEN: + error = spc_html__anchor_open (spe, attr, sd); + break; + case HTML_TAG_TYPE_CLOSE: + error = spc_html__anchor_close(spe, attr, sd); + break; + default: + spc_warn(spe, "Empty html anchor tag???"); + error = -1; + break; + } + } else if (!strcmp(name, "base")) { + if (type == HTML_TAG_TYPE_CLOSE) { + spc_warn(spe, "Close tag for \"base\"???"); + error = -1; + } else { /* treat "open" same as "empty" */ + error = spc_html__base_empty(spe, attr, sd); + } + } else if (!strcmp(name, "img")) { + if (type == HTML_TAG_TYPE_CLOSE) { + spc_warn(spe, "Close tag for \"img\"???"); + error = -1; + } else { /* treat "open" same as "empty" */ + error = spc_html__img_empty(spe, attr, sd); + } + } + pdf_release_obj(attr); + + for ( ; ap->curptr < ap->endptr && isspace(ap->curptr[0]); ap->curptr++); + + return error; +} + + +#ifdef ENABLE_HTML_SVG_TRANSFORM +/* translate wsp* '(' wsp* number (comma-wsp number)? wsp* ')' */ +static int +cvt_a_to_tmatrix (pdf_tmatrix *M, const char *ptr, char **nextptr) +{ + char *q, *p = (char *) ptr; + int n; + double v[6]; + static const char *_tkeys[] = { +#define K_TRNS__MATRIX 0 + "matrix", /* a b c d e f */ +#define K_TRNS__TRANSLATE 1 + "translate", /* tx [ty] : dflt. tf = 0 */ +#define K_TRNS__SCALE 2 + "scale", /* sx [sy] : dflt. sy = sx */ +#define K_TRNS__ROTATE 3 + "rotate", /* ang [cx cy] : dflt. cx, cy = 0 */ +#define K_TRNS__SKEWX 4 +#define K_TRNS__SKEWY 5 + "skewX", /* ang */ + "skewY", /* ang */ + NULL + }; + int k; + + for ( ; *p && isspace(*p); p++); + + q = parse_c_ident(&p, p + strlen(p)); + if (!q) + return -1; + /* parsed transformation key */ + for (k = 0; _tkeys[k] && strcmp(q, _tkeys[k]); k++); + RELEASE(q); + + /* handle args */ + for ( ; *p && isspace(*p); p++); + if (*p != '(' || *(p + 1) == 0) + return -1; + for (++p; *p && isspace(*p); p++); + for (n = 0; n < 6 && *p && *p != ')'; n++) { + q = parse_float_decimal(&p, p + strlen(p)); + if (!q) + break; + else { + v[n] = atof(q); + if (*p == ',') + p++; + for ( ; *p && isspace(*p); p++); + if (*p == ',') + for (++p; *p && isspace(*p); p++); + RELEASE(q); + } + } + if (*p != ')') + return -1; + p++; + + switch (k) { + case K_TRNS__MATRIX: + if (n != 6) + return -1; + M->a = v[0]; M->c = v[1]; + M->b = v[2]; M->d = v[3]; + M->e = v[4]; M->f = v[5]; + break; + case K_TRNS__TRANSLATE: + if (n != 1 && n != 2) + return -1; + M->a = M->d = 1.0; + M->c = M->b = 0.0; + M->e = v[0]; M->f = (n == 2) ? v[1] : 0.0; + break; + case K_TRNS__SCALE: + if (n != 1 && n != 2) + return -1; + M->a = v[0]; M->d = (n == 2) ? v[1] : v[0]; + M->c = M->b = 0.0; + M->e = M->f = 0.0; + break; + case K_TRNS__ROTATE: + if (n != 1 && n != 3) + return -1; + M->a = cos(v[0] * M_PI / 180.0); + M->c = sin(v[0] * M_PI / 180.0); + M->b = -M->c; M->d = M->a; + M->e = (n == 3) ? v[1] : 0.0; + M->f = (n == 3) ? v[2] : 0.0; + break; + case K_TRNS__SKEWX: + if (n != 1) + return -1; + M->a = M->d = 1.0; + M->c = 0.0; + M->b = tan(v[0] * M_PI / 180.0); + break; + case K_TRNS__SKEWY: + if (n != 1) + return -1; + M->a = M->d = 1.0; + M->c = tan(v[0] * M_PI / 180.0); + M->b = 0.0; + break; + } + + if (nextptr) + *nextptr = p; + return 0; +} +#endif /* ENABLE_HTML_SVG_TRANSFORM */ + +int +spc_html_at_begin_document (void) +{ + struct spc_html_ *sd = &_html_state; + return spc_handler_html__init(NULL, NULL, sd); +} + +int +spc_html_at_begin_page (void) +{ + struct spc_html_ *sd = &_html_state; + return spc_handler_html__bophook(NULL, NULL, sd); +} + +int +spc_html_at_end_page (void) +{ + struct spc_html_ *sd = &_html_state; + return spc_handler_html__eophook(NULL, NULL, sd); +} + +int +spc_html_at_end_document (void) +{ + struct spc_html_ *sd = &_html_state; + return spc_handler_html__clean(NULL, NULL, sd); +} + + +int +spc_html_check_special (const char *buffer, long size) +{ + char *p, *endptr; + + p = (char *) buffer; + endptr = p + size; + + for ( ; p < endptr && isspace(*p); p++); + size = (long) (endptr - p); + if (size >= strlen("html:") && + !memcmp(p, "html:", strlen("html:"))) { + return 1; + } + + return 0; +} + + +int +spc_html_setup_handler (struct spc_handler *sph, + struct spc_env *spe, struct spc_arg *ap) +{ + ASSERT(sph && spe && ap); + + for ( ; ap->curptr < ap->endptr && isspace(ap->curptr[0]); ap->curptr++); + if (ap->curptr + strlen("html:") > ap->endptr || + memcmp(ap->curptr, "html:", strlen("html:"))) { + return -1; + } + + ap->command = (char *) ""; + + sph->key = (char *) "html:"; + sph->exec = &spc_handler_html_default; + + ap->curptr += strlen("html:"); + for ( ; ap->curptr < ap->endptr && isspace(ap->curptr[0]); ap->curptr++); + + return 0; +} + diff --git a/Build/source/texk/xdvipdfmx/src/spc_html.h b/Build/source/texk/xdvipdfmx/src/spc_html.h new file mode 100644 index 00000000000..a6097f57de4 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_html.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_html.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_HTML_H_ +#define _SPC_HTML_H_ + +#include "specials.h" + +extern int spc_html_at_begin_page (void); +extern int spc_html_at_end_page (void); +extern int spc_html_at_begin_document (void); +extern int spc_html_at_end_document (void); + +extern int spc_html_check_special (const char *buffer, long size); +extern int spc_html_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_HTML_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_misc.c b/Build/source/texk/xdvipdfmx/src/spc_misc.c new file mode 100644 index 00000000000..a4b908eaac1 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_misc.c @@ -0,0 +1,233 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_misc.c,v 1.6 2005/08/08 18:00:11 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "mfileio.h" + +#include "pdfparse.h" +#include "pdfobj.h" + +#include "pdfcolor.h" +#include "pdfdraw.h" +#include "pdfximage.h" +#include "pdfdev.h" + +#include "mpost.h" + +#include "specials.h" + +#include "spc_util.h" +#include "spc_misc.h" + +int +spc_misc_at_begin_page (void) +{ + return 0; +} + +int spc_misc_at_end_page (void) +{ + return 0; +} + +int +spc_misc_at_begin_document (void) +{ + return 0; +} + +int +spc_misc_at_end_document (void) +{ + return 0; +} + +static int +spc_handler_postscriptbox (struct spc_env *spe, struct spc_arg *ap) +{ + int form_id, len; + transform_info ti; + char filename[256], *fullname; + char buf[512]; + FILE *fp; + + ASSERT(spe && ap); + + if (ap->curptr >= ap->endptr) { + spc_warn(spe, "No width/height/filename given for postscriptbox special."); + return -1; + } + + /* input is not NULL terminated */ + len = (int) (ap->endptr - ap->curptr); + len = MIN(511, len); + memcpy(buf, ap->curptr, len); + buf[len] = '\0'; + + transform_info_clear(&ti); + + spc_warn(spe, buf); + if (sscanf(buf, "{%lfpt}{%lfpt}{%255[^}]}", + &ti.width, &ti.height, filename) != 3) { + spc_warn(spe, "Syntax error in postscriptbox special?"); + return -1; + } + ap->curptr = ap->endptr; + + ti.width *= 72.0 / 72.27; + ti.height *= 72.0 / 72.27; + + fullname = kpse_find_pict(filename); + if (!fullname) { + spc_warn(spe, "Image file \"%s\" not found.", filename); + return -1; + } + + fp = MFOPEN(fullname, FOPEN_R_MODE); + if (!fp) { + spc_warn(spe, "Could not open image file: %s", fullname); + RELEASE(fullname); + return -1; + } + RELEASE(fullname); + + ti.flags |= (INFO_HAS_WIDTH|INFO_HAS_HEIGHT); + + for (;;) { + char *p = mfgets(buf, 512, fp); + if (!p) + break; + if (mps_scan_bbox(&p, p + strlen(p), &ti.bbox) >= 0) { + ti.flags |= INFO_HAS_USER_BBOX; + break; + } + } + MFCLOSE(fp); + + form_id = pdf_ximage_findresource(filename, 0, 0); + if (form_id < 0) { + spc_warn(spe, "Failed to load image file: %s", filename); + return -1; + } + + pdf_dev_put_image(form_id, &ti, spe->x_user, spe->y_user); + + return 0; +} + +static int +spc_handler_null (struct spc_env *spe, struct spc_arg *args) +{ + args->curptr = args->endptr; + + return 0; +} + +static struct spc_handler misc_handlers[] = { + {"postscriptbox", spc_handler_postscriptbox}, + {"landscape", spc_handler_null}, /* handled at bop */ + {"papersize", spc_handler_null}, /* handled at bop */ + {"src:", spc_handler_null}, /* simply ignore */ + {"pos:", spc_handler_null}, /* simply ignore */ + {"om:", spc_handler_null} /* simply ignore */ +}; + + +int +spc_misc_check_special (const char *buffer, long size) +{ + char *p, *endptr; + int i; + + p = (char *) buffer; + endptr = p + size; + + skip_white(&p, endptr); + size = (long) (endptr - p); + for (i = 0; + i < sizeof(misc_handlers)/sizeof(struct spc_handler); i++) { + if (size >= strlen(misc_handlers[i].key) && + !strncmp(p, misc_handlers[i].key, + strlen(misc_handlers[i].key))) { + return 1; + } + } + + return 0; +} + +int +spc_misc_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args) +{ + char *key; + int i, keylen; + + ASSERT(handle && spe && args); + + skip_white(&args->curptr, args->endptr); + + key = args->curptr; + while (args->curptr < args->endptr && + isalpha(args->curptr[0])) { + args->curptr++; + } + + if (args->curptr < args->endptr && + args->curptr[0] == ':') { + args->curptr++; + } + + keylen = (int) (args->curptr - key); + if (keylen < 1) { + return -1; + } + + for (i = 0; + i < sizeof(misc_handlers)/sizeof(struct spc_handler); i++) { + if (keylen == strlen(misc_handlers[i].key) && + !strncmp(key, misc_handlers[i].key, keylen)) { + + skip_white(&args->curptr, args->endptr); + + args->command = (char *) misc_handlers[i].key; + + handle->key = (char *) "???:"; + handle->exec = misc_handlers[i].exec; + + return 0; + } + } + + return -1; +} diff --git a/Build/source/texk/xdvipdfmx/src/spc_misc.h b/Build/source/texk/xdvipdfmx/src/spc_misc.h new file mode 100644 index 00000000000..7ee654db7df --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_misc.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_misc.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_MISC_H_ +#define _SPC_MISC_H_ + +#include "specials.h" + +extern int spc_misc_at_begin_page (void); +extern int spc_misc_at_end_page (void); +extern int spc_misc_at_begin_document (void); +extern int spc_misc_at_end_document (void); + +extern int spc_misc_check_special (const char *buffer, long size); +extern int spc_misc_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_MISC_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_pdfm.c b/Build/source/texk/xdvipdfmx/src/spc_pdfm.c new file mode 100644 index 00000000000..755b15cbfb6 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_pdfm.c @@ -0,0 +1,2032 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_pdfm.c,v 1.23 2005/08/24 01:25:51 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "mfileio.h" + +#include "numbers.h" + +#include "fontmap.h" +#include "dpxutil.h" + +#include "pdfobj.h" +#include "pdfparse.h" + +#include "pdfdoc.h" + +#include "pdfximage.h" +#include "pdfdraw.h" +#include "pdfcolor.h" +#include "pdfdev.h" + +#include "specials.h" + +#include "spc_util.h" +#include "spc_pdfm.h" + + +#define ENABLE_TOUNICODE 1 + + +/* PLEASE REMOVE THIS */ +struct resource_map { + int type; + int res_id; +}; + +#ifdef ENABLE_TOUNICODE +struct tounicode { + int cmap_id; + int unescape_backslash; + pdf_obj *taintkeys; /* An array of PDF names. */ +}; +#endif /* ENABLE_TOUNICODE */ + +struct spc_pdf_ +{ + pdf_obj *annot_dict; /* pending annotation dict */ + int lowest_level; /* current min level of outlines */ + struct ht_table *resourcemap; /* see remark below (somewhere) */ +#ifdef ENABLE_TOUNICODE + struct tounicode cd; /* For to-UTF16-BE conversion :( */ +#endif /* ENABLE_TOUNICODE */ +}; + +#if 1 +static struct spc_pdf_ _pdf_stat = { + NULL, + 255, + NULL, +#ifdef ENABLE_TOUNICODE + { -1, 0, NULL } +#endif /* ENABLE_TOUNICODE */ +}; +#endif + +/* PLEASE REMOVE THIS */ +static void +hval_free (void *vp) +{ + RELEASE(vp); +} + + +static int +addresource (struct spc_pdf_ *sd, const char *ident, int res_id) +{ + struct resource_map *r; + + if (!ident || res_id < 0) + return -1; + + r = NEW(1, struct resource_map); + r->type = 0; /* unused */ + r->res_id = res_id; + + ht_append_table(sd->resourcemap, ident, strlen(ident), r); + spc_push_object(ident, pdf_ximage_get_reference(res_id)); + + return 0; +} + +static int +findresource (struct spc_pdf_ *sd, const char *ident) +{ + struct resource_map *r; + + if (!ident) + return -1; + + r = ht_lookup_table(sd->resourcemap, ident, strlen(ident)); + + return (r ? r->res_id : -1); +} + + +static int +spc_handler_pdfm__init (struct spc_env *spe, struct spc_arg *ap, void *dp) +{ + struct spc_pdf_ *sd = dp; +#ifdef ENABLE_TOUNICODE + static const char *default_taintkeys[] = { + "Title", "Author", "Subject", "Keywords", + "Creator", "Producer", "Contents", "Subj", + "TU", "T", "TM", NULL /* EOD */ + }; + int i; +#endif /* ENABLE_TOUNICODE */ + + sd->annot_dict = NULL; + sd->lowest_level = 255; + sd->resourcemap = NEW(1, struct ht_table); + ht_init_table(sd->resourcemap); + +#ifdef ENABLE_TOUNICODE + sd->cd.taintkeys = pdf_new_array(); + for (i = 0; default_taintkeys[i] != NULL; i++) { + pdf_add_array(sd->cd.taintkeys, + pdf_new_name(default_taintkeys[i])); + } +#endif /* ENABLE_TOUNICODE */ + + return 0; +} + +static int +spc_handler_pdfm__clean (struct spc_env *spe, struct spc_arg *ap, void *dp) +{ + struct spc_pdf_ *sd = dp; + + if (sd->annot_dict) { + WARN("Unbalanced bann and eann found."); + pdf_release_obj(sd->annot_dict); + } + sd->lowest_level = 255; + sd->annot_dict = NULL; + if (sd->resourcemap) { + ht_clear_table(sd->resourcemap, hval_free); + RELEASE(sd->resourcemap); + } + sd->resourcemap = NULL; + +#ifdef ENABLE_TOUNICODE + if (sd->cd.taintkeys) + pdf_release_obj(sd->cd.taintkeys); + sd->cd.taintkeys = NULL; +#endif /* ENABLE_TOUNICODE */ + + return 0; +} + + +int +spc_pdfm_at_begin_document (void) +{ + struct spc_pdf_ *sd = &_pdf_stat; + return spc_handler_pdfm__init(NULL, NULL, sd); +} + +int +spc_pdfm_at_end_document (void) +{ + struct spc_pdf_ *sd = &_pdf_stat; + return spc_handler_pdfm__clean(NULL, NULL, sd); +} + +int +spc_pdfm_at_begin_page (void) +{ + return 0; +} + +int +spc_pdfm_at_end_page (void) +{ + return 0; +} + + +/* Dvipdfm specials */ +static int +spc_handler_pdfm_bop (struct spc_env *spe, struct spc_arg *args) +{ + if (args->curptr < args->endptr) { + pdf_doc_set_bop_content(args->curptr, + (long) (args->endptr - args->curptr)); + } + + args->curptr = args->endptr; + + return 0; +} + +static int +spc_handler_pdfm_eop (struct spc_env *spe, struct spc_arg *args) +{ + if (args->curptr < args->endptr) { + pdf_doc_set_eop_content(args->curptr, + (long) (args->endptr - args->curptr)); + } + + args->curptr = args->endptr; + + return 0; +} + +#define streamfiltered(o) \ + (pdf_lookup_dict(pdf_stream_dict((o)), "Filter") ? 1 : 0) + +/* Why should we have this kind of things? */ +static int +safeputresdent (pdf_obj *kp, pdf_obj *vp, void *dp) +{ + char *key; + + ASSERT(kp && vp && dp); + + key = pdf_name_value(kp); + if (pdf_lookup_dict(dp, key)) + WARN("Object \"%s\" already defined in dict! (ignored)", key); + else { + pdf_add_dict(dp, + pdf_link_obj(kp), pdf_link_obj(vp)); + } + return 0; +} + +#ifndef pdf_obj_isaref +#define pdf_obj_isaref(o) (pdf_obj_typeof((o)) == PDF_INDIRECT) +#endif + +static int +safeputresdict (pdf_obj *kp, pdf_obj *vp, void *dp) +{ + char *key; + pdf_obj *dict; + + ASSERT(kp && vp && dp); + + key = pdf_name_value(kp); + dict = pdf_lookup_dict(dp, key); + + if (pdf_obj_isaref(vp)) { + if (dict) { +#if 0 + return E_INVALID_ACCESS; +#endif + WARN("Replacing whole page/form resource dict entry \"%s\"...", key); + WARN("You might be creating a broken PDF document."); + } + pdf_add_dict(dp, + pdf_new_name(key), pdf_link_obj(vp)); + } else if (pdf_obj_typeof(vp) == PDF_DICT) { + if (dict) + pdf_foreach_dict(vp, safeputresdent, dict); + else { + pdf_add_dict(dp, + pdf_new_name(key), pdf_link_obj(vp)); + } + } else { + WARN("Invalid type (not DICT) for page/form resource dict entry: key=\"%s\"", key); + return -1; + } + + return 0; +} + + +/* Think what happens if you do + * + * pdf:put @resources << /Font << >> >> + * + */ +static int +spc_handler_pdfm_put (struct spc_env *spe, struct spc_arg *ap) +{ + pdf_obj *obj1, *obj2; /* put obj2 into obj1 */ + char *ident; + int error = 0; + + skip_white(&ap->curptr, ap->endptr); + + ident = parse_opt_ident(&ap->curptr, ap->endptr); + if (!ident) { + spc_warn(spe, "Missing object identifier."); + return -1; + } + obj1 = spc_lookup_object(ident); + if (!obj1) { + spc_warn(spe, "Specified object not exist: %s", ident); + RELEASE(ident); + return -1; + } + skip_white(&ap->curptr, ap->endptr); + + + obj2 = parse_pdf_object(&ap->curptr, ap->endptr); + if (!obj2) { + spc_warn(spe, "Missing (an) object(s) to put into \"%s\"!", ident); + RELEASE(ident); + return -1; + } + + switch (pdf_obj_typeof(obj1)) { + case PDF_DICT: + if (pdf_obj_typeof(obj2) != PDF_DICT) { + spc_warn(spe, "Inconsistent object type for \"put\" (expecting DICT): %s", ident); + error = -1; + } else { + if (!strcmp(ident, "resources")) + error = pdf_foreach_dict(obj2, safeputresdict, obj1); + else { + pdf_merge_dict(obj1, obj2); + } + } + break; + + case PDF_STREAM: + if (pdf_obj_typeof(obj2) == PDF_DICT) + pdf_merge_dict(pdf_stream_dict(obj1), obj2); + else if (pdf_obj_typeof(obj2) == PDF_STREAM) +#if 0 + { + pdf_merge_dict(pdf_stream_dict(obj1), pdf_stream_dict(obj2)); + pdf_add_stream(obj1, pdf_stream_dataptr(obj2), pdf_stream_length(obj2)); + } +#else + { + spc_warn(spe, "\"put\" operation not supported for STREAM <- STREAM: %s", ident); + error = -1; + } +#endif + else { + spc_warn(spe, "Invalid type: expecting a DICT or STREAM: %s", ident); + error = -1; + } + break; + + case PDF_ARRAY: + /* dvipdfm */ + pdf_add_array(obj1, pdf_link_obj(obj2)); + while (ap->curptr < ap->endptr) { + pdf_obj *obj3 = parse_pdf_object(&ap->curptr, ap->endptr); + if (!obj3) + break; + pdf_add_array(obj1, obj3); + skip_white(&ap->curptr, ap->endptr); + } + break; + + default: + spc_warn(spe, "Can't \"put\" object into non-DICT/STREAM/ARRAY type object: %s", ident); + error = -1; + break; + } + pdf_release_obj(obj2); + + + return error; +} + + +#ifdef ENABLE_TOUNICODE + +/* For pdf:tounicode support + * This feature is provided for convenience. TeX can't do + * input encoding conversion. + */ +#include "cmap.h" + +static int +reencodestring (CMap *cmap, pdf_obj *instring) +{ +#define WBUF_SIZE 4096 + unsigned char wbuf[WBUF_SIZE]; + unsigned char *obufcur; + unsigned char *inbufcur; + long inbufleft, obufleft; + + if (!cmap || !instring) + return 0; + + inbufleft = pdf_string_length(instring); + inbufcur = pdf_string_value (instring); + + wbuf[0] = 0xfe; + wbuf[1] = 0xff; + obufcur = wbuf + 2; + obufleft = WBUF_SIZE - 2; + + CMap_decode(cmap, + (const unsigned char **)&inbufcur, &inbufleft, + &obufcur, &obufleft); + + if (inbufleft > 0) { + return -1; + } + + pdf_set_string(instring, wbuf, WBUF_SIZE - obufleft); + + return 0; +} + +/* tables/values used in UTF-8 interpretation - + code is based on ConvertUTF.[ch] sample code + published by the Unicode consortium */ +static unsigned long +offsetsFromUTF8[6] = { + 0x00000000UL, + 0x00003080UL, + 0x000E2080UL, + 0x03C82080UL, + 0xFA082080UL, + 0x82082080UL +}; + +static unsigned char +bytesFromUTF8[256] = { + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, + 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 3,3,3,3,3,3,3,3,4,4,4,4,5,5,5,5 +}; + +static int +maybe_reencode_utf8(pdf_obj *instring) +{ + unsigned char* inbuf; + int inlen; + int non_ascii = 0; + unsigned char* cp; + unsigned char* op; + unsigned char wbuf[WBUF_SIZE]; + + if (!instring) + return 0; + + inlen = pdf_string_length(instring); + inbuf = pdf_string_value(instring); + + /* check if the input string is strictly ASCII */ + for (cp = inbuf; cp < inbuf + inlen; ++cp) { + if (*cp > 127) { + non_ascii = 1; + } + } + if (non_ascii == 0) + return 0; /* no need to reencode ASCII strings */ + + cp = inbuf; + op = wbuf; + *op++ = 0xfe; + *op++ = 0xff; + while (cp < inbuf + inlen) { + unsigned long usv = *cp++; + int extraBytes = bytesFromUTF8[usv]; + if (cp + extraBytes > inbuf + inlen) + return -1; /* ill-formed, so give up reencoding */ + switch (extraBytes) { /* note: code falls through cases! */ + case 5: usv <<= 6; usv += *cp++; + case 4: usv <<= 6; usv += *cp++; + case 3: usv <<= 6; usv += *cp++; + case 2: usv <<= 6; usv += *cp++; + case 1: usv <<= 6; usv += *cp++; + case 0: ; + }; + usv -= offsetsFromUTF8[extraBytes]; + if (usv > 0x10FFFF) + return -1; /* out of valid Unicode range, give up */ + if (usv > 0xFFFF) { + /* supplementary-plane character: generate high surrogate */ + unsigned long hi = 0xdc00 + (usv - 0x10000) % 0x0400; + if (op > wbuf + WBUF_SIZE - 2) + return -1; /* out of space */ + *op++ = hi / 256; + *op++ = hi % 256; + usv = 0xd800 + (usv - 0x10000) / 0x0400; + /* remaining value in usv is the low surrogate */ + } + if (op > wbuf + WBUF_SIZE - 2) + return -1; /* out of space */ + *op++ = usv / 256; + *op++ = usv % 256; + } + + pdf_set_string(instring, wbuf, op - wbuf); + return 0; +} + +static int +needreencode (pdf_obj *kp, pdf_obj *vp, struct tounicode *cd) +{ + int r = 0, i; + pdf_obj *tk; + + ASSERT( cd && cd->taintkeys ); + ASSERT( pdf_obj_typeof(kp) == PDF_NAME ); + ASSERT( pdf_obj_typeof(vp) == PDF_STRING ); + + for (i = 0; i < pdf_array_length(cd->taintkeys); i++) { + tk = pdf_get_array(cd->taintkeys, i); + ASSERT( tk && pdf_obj_typeof(tk) == PDF_NAME ); + if (!strcmp(pdf_name_value(kp), pdf_name_value(tk))) { + r = 1; + break; + } + } + if (r) { + /* Check UTF-16BE BOM. */ + if (pdf_string_length(vp) >= 2 && + !memcmp(pdf_string_value(vp), "\xfe\xff", 2)) + r = 0; + } + + return r; +} + +static int modstrings (pdf_obj *key, pdf_obj *value, void *pdata); + +static int +modstrings (pdf_obj *kp, pdf_obj *vp, void *dp) +{ + int r = 0; /* continue */ + + ASSERT( pdf_obj_typeof(kp) == PDF_NAME ); + + switch (pdf_obj_typeof(vp)) { + case PDF_STRING: + { + CMap *cmap; + struct tounicode *cd = dp; + if (cd && cd->cmap_id >= 0 && cd->taintkeys) { + cmap = CMap_cache_get(cd->cmap_id); + if (needreencode(kp, vp, cd)) { + r = reencodestring(cmap, vp); + } + } + else { + r = maybe_reencode_utf8(vp); + } + if (r < 0) /* error occured... */ + WARN("Failed to convert input string to UTF16..."); + } + break; + case PDF_DICT: + r = pdf_foreach_dict(vp, modstrings, dp); + break; + case PDF_STREAM: + r = pdf_foreach_dict(pdf_stream_dict(vp), modstrings, dp); + break; + } + + return r; +} + +static pdf_obj * +my_parse_pdf_dict (char **pp, char *endptr, struct tounicode *cd) +{ + pdf_obj *dict; + +#if 0 +/* disable this test, as we do utf8 reencoding with no cmap */ + if (cd->cmap_id < 0) + return parse_pdf_dict(pp, endptr); +#endif + + /* :( */ + if (cd && cd->unescape_backslash) + dict = parse_pdf_tainted_dict(pp, endptr); + else { + dict = parse_pdf_dict(pp, endptr); + } + if (dict) + pdf_foreach_dict(dict, modstrings, cd); + + return dict; +} + +#endif /* ENABLE_TOUNICODE */ + + +static int +spc_handler_pdfm_annot (struct spc_env *spe, struct spc_arg *args) +{ +#ifdef ENABLE_TOUNICODE + struct spc_pdf_ *sd = &_pdf_stat; +#endif /* ENABLE_TOUNICODE */ + pdf_obj *annot_dict; + pdf_rect rect; + char *ident = NULL; + pdf_coord cp; + transform_info ti; + + skip_white(&args->curptr, args->endptr); + if (args->curptr[0] == '@') { + ident = parse_opt_ident(&args->curptr, args->endptr); + skip_white(&args->curptr, args->endptr); + } + + transform_info_clear(&ti); + if (spc_util_read_dimtrns(spe, &ti, args, 0) < 0) { + if (ident) + RELEASE(ident); + return -1; + } + + if ((ti.flags & INFO_HAS_USER_BBOX) && + ((ti.flags & INFO_HAS_WIDTH) || (ti.flags & INFO_HAS_HEIGHT))) { + spc_warn(spe, "You can't specify both bbox and width/height."); + if (ident) + RELEASE(ident); + return -1; + } + +#ifdef ENABLE_TOUNICODE + annot_dict = my_parse_pdf_dict(&args->curptr, args->endptr, &sd->cd); +#else + annot_dict = parse_pdf_dict(&args->curptr, args->endptr); +#endif /* ENABLE_TOUNICODE */ + if (!annot_dict) { + spc_warn(spe, "Could not find dictionary object."); + if (ident) + RELEASE(ident); + return -1; + } else if (!PDF_OBJ_DICTTYPE(annot_dict)) { + spc_warn(spe, "Invalid type: not dictionary object."); + if (ident) + RELEASE(ident); + pdf_release_obj(annot_dict); + return -1; + } + + cp.x = spe->x_user; cp.y = spe->y_user; + pdf_dev_transform(&cp, NULL); + if (ti.flags & INFO_HAS_USER_BBOX) { + rect.llx = ti.bbox.llx + cp.x; + rect.lly = ti.bbox.lly + cp.y; + rect.urx = ti.bbox.urx + cp.x; + rect.ury = ti.bbox.ury + cp.y; + } else { + rect.llx = cp.x; + rect.lly = cp.y - spe->mag * ti.depth; + rect.urx = rect.llx + spe->mag * ti.width; + rect.ury = rect.lly + spe->mag * ti.height; + } + + /* Order is important... */ + if (ident) + spc_push_object(ident, pdf_link_obj(annot_dict)); + /* This add reference. */ + pdf_doc_add_annot(pdf_doc_current_page_number(), &rect, annot_dict); + + if (ident) { + spc_flush_object(ident); + RELEASE(ident); + } + pdf_release_obj(annot_dict); + + return 0; +} + +/* NOTE: This can't have ident. See "Dvipdfm User's Manual". */ +static int +spc_handler_pdfm_bann (struct spc_env *spe, struct spc_arg *args) +{ + struct spc_pdf_ *sd = &_pdf_stat; + int error = 0; + + if (sd->annot_dict) { + spc_warn(spe, "Can't begin an annotation when one is pending."); + return -1; + } + + skip_white(&args->curptr, args->endptr); + +#ifdef ENABLE_TOUNICODE + sd->annot_dict = my_parse_pdf_dict(&args->curptr, args->endptr, &sd->cd); +#else + sd->annot_dict = parse_pdf_dict(&args->curptr, args->endptr); +#endif /* ENABLE_TOUNICODE */ + if (!sd->annot_dict) { + spc_warn(spe, "Ignoring annotation with invalid dictionary."); + return -1; + } else if (!PDF_OBJ_DICTTYPE(sd->annot_dict)) { + spc_warn(spe, "Invalid type: not a dictionary object."); + pdf_release_obj(sd->annot_dict); + sd->annot_dict = NULL; + return -1; + } + + error = spc_begin_annot(spe, sd->annot_dict); + + return error; +} + +static int +spc_handler_pdfm_eann (struct spc_env *spe, struct spc_arg *args) +{ + struct spc_pdf_ *sd = &_pdf_stat; + int error = 0; + + if (!sd->annot_dict) { + spc_warn(spe, "Tried to end an annotation without starting one!"); + return -1; + } + + error = spc_end_annot(spe); + + pdf_release_obj(sd->annot_dict); + sd->annot_dict = NULL; + + return error; +} + + +/* Color:.... */ +static int +spc_handler_pdfm_bcolor (struct spc_env *spe, struct spc_arg *ap) +{ + int error; + pdf_color fc, sc; + + error = spc_util_read_colorspec(spe, &fc, ap, 0); + if (!error) { + if (ap->curptr < ap->endptr) { + error = spc_util_read_colorspec(spe, &sc, ap, 0); + } else { + pdf_color_copycolor(&sc, &fc); + } + } + + if (error) + spc_warn(spe, "Invalid color specification?"); + else { + pdf_color_push(); /* save currentcolor */ + pdf_dev_setcolor(&fc, 1); + pdf_dev_setcolor(&sc, 0); + } + + return error; +} + +/* Different than "color rgb 1 0 0" ? */ +static int +spc_handler_pdfm_scolor (struct spc_env *spe, struct spc_arg *ap) +{ + int error; + pdf_color fc, sc; + + error = spc_util_read_colorspec(spe, &fc, ap, 0); + if (!error) { + if (ap->curptr < ap->endptr) { + error = spc_util_read_colorspec(spe, &sc, ap, 0); + } else { + pdf_color_copycolor(&sc, &fc); + } + } + + if (error) + spc_warn(spe, "Invalid color specification?"); + else { + pdf_color_set_default(&fc); /* ????? */ + pdf_dev_setcolor(&fc, 1); + pdf_dev_setcolor(&sc, 0); + } + + return error; +} + +static int +spc_handler_pdfm_ecolor (struct spc_env *spe, struct spc_arg *args) +{ + pdf_color_pop(); + return 0; +} + + +static int +spc_handler_pdfm_btrans (struct spc_env *spe, struct spc_arg *args) +{ + pdf_tmatrix M; + transform_info ti; + + transform_info_clear(&ti); + if (spc_util_read_dimtrns(spe, &ti, args, 0) < 0) { + return -1; + } + + /* Create transformation matrix */ + pdf_copymatrix(&M, &(ti.matrix)); + M.e += ((1.0 - M.a) * spe->x_user - M.c * spe->y_user); + M.f += ((1.0 - M.d) * spe->y_user - M.b * spe->x_user); + + pdf_dev_gsave(); + pdf_dev_concat(&M); + + return 0; +} + +static int +spc_handler_pdfm_etrans (struct spc_env *spe, struct spc_arg *args) +{ + pdf_dev_grestore(); + + /* + * Unfortunately, the following line is necessary in case + * of a font or color change inside of the save/restore pair. + * Anything that was done there must be redone, so in effect, + * we make no assumptions about what fonts. We act like we are + * starting a new page. + */ + pdf_dev_reset(); + + return 0; +} + +static int +spc_handler_pdfm_outline (struct spc_env *spe, struct spc_arg *args) +{ + struct spc_pdf_ *sd = &_pdf_stat; + pdf_obj *item_dict, *tmp; + int level; + int current_depth; + + skip_white(&args->curptr, args->endptr); + + tmp = parse_pdf_object(&args->curptr, args->endptr); + if (!tmp) { + spc_warn(spe, "Missing number for outline item depth."); + return -1; + } else if (!PDF_OBJ_NUMBERTYPE(tmp)) { + pdf_release_obj(tmp); + spc_warn(spe, "Expecting number for outline item depth."); + return -1; + } + + item_dict = NULL; + + level = (int) pdf_number_value(tmp); + pdf_release_obj(tmp); + + /* What is this? Starting at level 3 and can go down to level 1? + * + * Here is the original comment: + * Make sure we know where the starting level is + * + * NOTE: added + * We need this for converting pages from 3rd to... :( + */ + sd->lowest_level = MIN(sd->lowest_level, level); + + level += 1 - sd->lowest_level; + +#ifdef ENABLE_TOUNICODE + item_dict = my_parse_pdf_dict(&args->curptr, args->endptr, &sd->cd); +#else + item_dict = parse_pdf_dict(&args->curptr, args->endptr); +#endif /* ENABLE_TOUNICODE */ + if (!item_dict) { + spc_warn(spe, "Ignoring invalid dictionary."); + return -1; + } + current_depth = pdf_doc_bookmarks_depth(); + if (current_depth > level) { + while (current_depth-- > level) + pdf_doc_bookmarks_up(); + } else if (current_depth < level) { + while (current_depth++ < level) + pdf_doc_bookmarks_down(); + } + + pdf_doc_bookmarks_add(item_dict, -1); /* Use global setting for open/close */ + + return 0; +} + +static int +spc_handler_pdfm_article (struct spc_env *spe, struct spc_arg *args) +{ +#ifdef ENABLE_TOUNICODE + struct spc_pdf_ *sd = &_pdf_stat; +#endif /* ENABLE_TOUNICODE */ + char *ident; + pdf_obj *info_dict; + + skip_white (&args->curptr, args->endptr); + + ident = parse_opt_ident(&args->curptr, args->endptr); + if (!ident) { + spc_warn(spe, "Article name expected but not found."); + return -1; + } + +#ifdef ENABLE_TOUNICODE + info_dict = my_parse_pdf_dict(&args->curptr, args->endptr, &sd->cd); +#else + info_dict = parse_pdf_dict(&args->curptr, args->endptr); +#endif /* ENABLE_TOUNICODE */ + if (!info_dict) { + RELEASE(ident); + spc_warn(spe, "Ignoring article with invalid info dictionary."); + return -1; + } + + pdf_doc_begin_article(ident, pdf_link_obj(info_dict)); + spc_push_object(ident, info_dict); + RELEASE(ident); + + return 0; +} + +static int +spc_handler_pdfm_bead (struct spc_env *spe, struct spc_arg *args) +{ +#ifdef ENABLE_TOUNICODE + struct spc_pdf_ *sd = &_pdf_stat; +#endif /* ENABLE_TOUNICODE */ + pdf_obj *article; + pdf_obj *article_info; + char *article_name; + pdf_rect rect; + long page_no; + transform_info ti; + pdf_coord cp; + + skip_white(&args->curptr, args->endptr); + + if (args->curptr[0] != '@') { + spc_warn(spe, "Article identifier expected but not found."); + return -1; + } + + article_name = parse_opt_ident(&args->curptr, args->endptr); + if (!article_name) { + spc_warn(spe, "Article reference expected but not found."); + return -1; + } + + /* If okay so far, try to get a bounding box */ + transform_info_clear(&ti); + if (spc_util_read_dimtrns(spe, &ti, args, 0) < 0) { + RELEASE(article_name); + return -1; + } + + if ((ti.flags & INFO_HAS_USER_BBOX) && + ((ti.flags & INFO_HAS_WIDTH) || (ti.flags & INFO_HAS_HEIGHT))) { + spc_warn(spe, "You can't specify both bbox and width/height."); + RELEASE(article_name); + return -1; + } + + cp.x = spe->x_user; cp.y = spe->y_user; + pdf_dev_transform(&cp, NULL); + if (ti.flags & INFO_HAS_USER_BBOX) { + rect.llx = ti.bbox.llx + cp.x; + rect.lly = ti.bbox.lly + cp.y; + rect.urx = ti.bbox.urx + cp.x; + rect.ury = ti.bbox.ury + cp.y; + } else { + rect.llx = cp.x; + rect.lly = cp.y - spe->mag * ti.depth; + rect.urx = rect.llx + spe->mag * ti.width; + rect.ury = rect.lly + spe->mag * ti.height; + } + + skip_white(&args->curptr, args->endptr); + if (args->curptr[0] != '<') { + article_info = pdf_new_dict(); + } else { +#ifdef ENABLE_TOUNICODE + article_info = my_parse_pdf_dict(&args->curptr, args->endptr, &sd->cd); +#else + article_info = parse_pdf_dict(&args->curptr, args->endptr); +#endif /* ENABLE_TOUNICODE */ + if (!article_info) { + spc_warn(spe, "Error in reading dictionary."); + RELEASE(article_name); + return -1; + } + } + + /* Does this article exist yet */ + article = spc_lookup_object(article_name); + if (article) { + pdf_merge_dict (article, article_info); + pdf_release_obj(article_info); + } else { + pdf_doc_begin_article(article_name, pdf_link_obj(article_info)); + spc_push_object(article_name, article_info); + } + page_no = pdf_doc_current_page_number(); + pdf_doc_add_bead(article_name, NULL, page_no, &rect); + + return 0; +} + +static int +spc_handler_pdfm_image (struct spc_env *spe, struct spc_arg *args) +{ + struct spc_pdf_ *sd = &_pdf_stat; + int xobj_id; + char *ident = NULL; + pdf_obj *fspec; + transform_info ti; + + skip_white(&args->curptr, args->endptr); + if (args->curptr[0] == '@') { + ident = parse_opt_ident(&args->curptr, args->endptr); + xobj_id = findresource(sd, ident); + if (xobj_id >= 0) { + spc_warn(spe, "Object reference name for image \"%s\" already used.", ident); + RELEASE(ident); + return -1; + } + } + + transform_info_clear(&ti); + if (spc_util_read_dimtrns(spe, &ti, args, 0) < 0) { + if (ident) + RELEASE(ident); + return -1; + } + + skip_white(&args->curptr, args->endptr); + fspec = parse_pdf_object(&args->curptr, args->endptr); + if (!fspec) { + spc_warn(spe, "Missing filename string for pdf:image."); + if (ident) + RELEASE(ident); + return -1; + } else if (!PDF_OBJ_STRINGTYPE(fspec)) { + spc_warn(spe, "Missing filename string for pdf:image."); + pdf_release_obj(fspec); + return -1; + } + + xobj_id = pdf_ximage_findresource(pdf_string_value(fspec), 0, 0); + if (xobj_id < 0) { + spc_warn(spe, "Could not find image resource..."); + pdf_release_obj(fspec); + if (ident) + RELEASE(ident); + return -1; + } + + pdf_dev_put_image(xobj_id, &ti, spe->x_user, spe->y_user); + + if (ident) { + addresource(sd, ident, xobj_id); + RELEASE(ident); + } + + pdf_release_obj(fspec); + + return 0; +} + +/* Use do_names instead. */ +static int +spc_handler_pdfm_dest (struct spc_env *spe, struct spc_arg *args) +{ + pdf_obj *name, *array; + int error = 0; + + skip_white(&args->curptr, args->endptr); + + name = parse_pdf_object(&args->curptr, args->endptr); + if (!name) { + spc_warn(spe, "PDF string expected for destination name but not found."); + return -1; + } else if (!PDF_OBJ_STRINGTYPE(name)) { + spc_warn(spe, "PDF string expected for destination name but not found."); + pdf_release_obj(name); + return -1; + } + + array = parse_pdf_object(&args->curptr, args->endptr); + if (!array) { + spc_warn(spe, "No destination not specified for pdf:dest."); + pdf_release_obj(name); + return -1; + } else if (!PDF_OBJ_ARRAYTYPE(array)) { + spc_warn(spe, "Destination not specified as an array object!"); + pdf_release_obj(name); + pdf_release_obj(array); + return -1; + } + + error = pdf_doc_add_names("Dests", + pdf_string_value (name), + pdf_string_length(name), + array); + pdf_release_obj(name); + + if (error) + spc_warn(spe, "Could not add Dests name tree entry..."); + + return 0; +} + +static int +spc_handler_pdfm_names (struct spc_env *spe, struct spc_arg *args) +{ + pdf_obj *category, *key, *value, *tmp; + int i, size; + + category = parse_pdf_object(&args->curptr, args->endptr); + if (!category) { + spc_warn(spe, "PDF name expected but not found."); + return -1; + } else if (!PDF_OBJ_NAMETYPE(category)) { + spc_warn(spe, "PDF name expected but not found."); + pdf_release_obj(category); + return -1; + } + + tmp = parse_pdf_object(&args->curptr, args->endptr); + if (!tmp) { + spc_warn(spe, "PDF object expected but not found."); + pdf_release_obj(category); + return -1; + } else if (PDF_OBJ_ARRAYTYPE(tmp)) { + size = pdf_array_length(tmp); + if (size % 2 != 0) { + spc_warn(spe, "Array size not multiple of 2 for pdf:names."); + pdf_release_obj(category); + pdf_release_obj(tmp); + return -1; + } + + for (i = 0; i < size / 2; i++) { + key = pdf_get_array(tmp, 2 * i); + value = pdf_get_array(tmp, 2 * i + 1); + if (!PDF_OBJ_STRINGTYPE(key)) { + spc_warn(spe, "Name tree key must be string."); + pdf_release_obj(category); + pdf_release_obj(tmp); + return -1; + } else if (pdf_doc_add_names(pdf_name_value(category), + pdf_string_value (key), + pdf_string_length(key), + pdf_link_obj(value)) < 0) { + spc_warn(spe, "Failed to add Name tree entry..."); + pdf_release_obj(category); + pdf_release_obj(tmp); + return -1; + } + } + pdf_release_obj(tmp); + } else if (PDF_OBJ_STRINGTYPE(tmp)) { + key = tmp; + value = parse_pdf_object(&args->curptr, args->endptr); + if (!value) { + pdf_release_obj(category); + pdf_release_obj(key); + spc_warn(spe, "PDF object expected but not found."); + return -1; + } + if (pdf_doc_add_names(pdf_name_value(category), + pdf_string_value (key), + pdf_string_length(key), + value) < 0) { + spc_warn(spe, "Failed to add Name tree entry..."); + pdf_release_obj(category); + pdf_release_obj(key); + return -1; + } + pdf_release_obj(key); + } else { + pdf_release_obj(tmp); + pdf_release_obj(category); + spc_warn(spe, "Invalid object type for pdf:names."); + return -1; + } + pdf_release_obj(category); + + return 0; +} + +static int +spc_handler_pdfm_docinfo (struct spc_env *spe, struct spc_arg *args) +{ +#ifdef ENABLE_TOUNICODE + struct spc_pdf_ *sd = &_pdf_stat; +#endif /* ENABLE_TOUNICODE */ + pdf_obj *docinfo, *dict; + +#ifdef ENABLE_TOUNICODE + dict = my_parse_pdf_dict(&args->curptr, args->endptr, &sd->cd); +#else + dict = parse_pdf_dict(&args->curptr, args->endptr); +#endif /* ENABLE_TOUNICODE */ + if (!dict) { + spc_warn(spe, "Dictionary object expected but not found."); + return -1; + } + + docinfo = pdf_doc_docinfo(); + pdf_merge_dict(docinfo, dict); + pdf_release_obj(dict); + + return 0; +} + +static int +spc_handler_pdfm_docview (struct spc_env *spe, struct spc_arg *args) +{ +#ifdef ENABLE_TOUNICODE + struct spc_pdf_ *sd = &_pdf_stat; +#endif /* ENABLE_TOUNICODE */ + pdf_obj *catalog, *dict; + pdf_obj *pref_old, *pref_add; + +#ifdef ENABLE_TOUNICODE + dict = my_parse_pdf_dict(&args->curptr, args->endptr, &sd->cd); +#else + dict = parse_pdf_dict(&args->curptr, args->endptr); +#endif /* ENABLE_TOUNICODE */ + if (!dict) { + spc_warn(spe, "Dictionary object expected but not found."); + return -1; + } + + catalog = pdf_doc_catalog(); + /* Avoid overriding whole ViewerPreferences */ + pref_old = pdf_lookup_dict(catalog, "ViewerPreferences"); + pref_add = pdf_lookup_dict(dict, "ViewerPreferences"); + if (pref_old && pref_add) { + pdf_merge_dict (pref_old, pref_add); + pdf_remove_dict(dict, "ViewerPreferences"); + } + pdf_merge_dict (catalog, dict); + pdf_release_obj(dict); + + return 0; +} + +static int +spc_handler_pdfm_close (struct spc_env *spe, struct spc_arg *args) +{ + char *ident; + + skip_white(&args->curptr, args->endptr); + ident = parse_opt_ident(&args->curptr, args->endptr); + if (ident) { + spc_flush_object(ident); + RELEASE(ident); + } else { /* Close all? */ + spc_clear_objects(); + } + + return 0; +} + +static int +spc_handler_pdfm_object (struct spc_env *spe, struct spc_arg *args) +{ + char *ident; + pdf_obj *object; + + skip_white(&args->curptr, args->endptr); + ident = parse_opt_ident(&args->curptr, args->endptr); + if (!ident) { + spc_warn(spe, "Could not find a object identifier."); + return -1; + } + + object = parse_pdf_object(&args->curptr, args->endptr); + if (!object) { + RELEASE(ident); + spc_warn(spe, "Could not find an object definition for \"%s\".", ident); + return -1; + } else { + spc_push_object(ident, object); + } + RELEASE(ident); + + return 0; +} + +static int +spc_handler_pdfm_content (struct spc_env *spe, struct spc_arg *args) +{ + long len = 0; + + skip_white(&args->curptr, args->endptr); + if (args->curptr < args->endptr) { + pdf_tmatrix M; + + pdf_setmatrix(&M, 1.0, 0.0, 0.0, 1.0, spe->x_user, spe->y_user); + work_buffer[len++] = ' '; + work_buffer[len++] = 'q'; + work_buffer[len++] = ' '; + len += pdf_sprint_matrix(work_buffer + len, &M); + work_buffer[len++] = ' '; + work_buffer[len++] = 'c'; + work_buffer[len++] = 'm'; + work_buffer[len++] = ' '; + + pdf_doc_add_page_content(work_buffer, len); + len = (long) (args->endptr - args->curptr); + pdf_doc_add_page_content(args->curptr, len); + pdf_doc_add_page_content(" Q", 2); + } + args->curptr = args->endptr; + + return 0; +} + +static int +spc_handler_pdfm_literal (struct spc_env *spe, struct spc_arg *args) +{ + int direct = 0; + long len; + + skip_white(&args->curptr, args->endptr); + while (args->curptr < args->endptr) { + if (args->curptr + 7 <= args->endptr && + !strncmp(args->curptr, "reverse", 7)) { + args->curptr += 7; + WARN("The special \"pdf:literal reverse ...\" is no longer supported.\nIgnore the \"reverse\" option."); + } else if (args->curptr + 6 <= args->endptr && + !strncmp(args->curptr, "direct", 6)) { + direct = 1; + args->curptr += 6; + } else { + break; + } + skip_white(&args->curptr, args->endptr); + } + + if (args->curptr < args->endptr) { + pdf_tmatrix M; + M.a = M.d = 1.0; M.b = M.c = 0.0; + if (!direct) { + M.e = spe->x_user; M.f = spe->y_user; + pdf_dev_concat(&M); + } + pdf_doc_add_page_content(" ", 1); + pdf_doc_add_page_content(args->curptr, (long) (args->endptr - args->curptr)); + if (!direct) { + M.e = -spe->x_user; M.f = -spe->y_user; + pdf_dev_concat(&M); + } + } + + args->curptr = args->endptr; + + return 0; +} + +/* + * FSTREAM: Create a PDF stream object from an existing file. + * + * pdf: fstream @objname (filename) [PDF_DICT] + */ +static int +spc_handler_pdfm_fstream (struct spc_env *spe, struct spc_arg *args) +{ + pdf_obj *fstream; + long stream_len, nb_read; + char *ident, *filename, *fullname; + pdf_obj *tmp; + FILE *fp; + + skip_white(&args->curptr, args->endptr); + + ident = parse_opt_ident(&args->curptr, args->endptr); + if (!ident) { + spc_warn(spe, "Missing objname string for pdf:fstream."); + return -1; + } + + skip_white(&args->curptr, args->endptr); + + tmp = parse_pdf_object(&args->curptr, args->endptr); + if (!tmp) { + spc_warn(spe, "Missing filename string for pdf:fstream."); + RELEASE(ident); + return -1; + } else if (!PDF_OBJ_STRINGTYPE(tmp)) { + spc_warn(spe, "Missing filename string for pdf:fstream."); + pdf_release_obj(tmp); + RELEASE(ident); + return -1; + } + + filename = pdf_string_value(tmp); + if (!filename) { + spc_warn(spe, "Missing filename string for pdf:fstream."); + pdf_release_obj(tmp); + RELEASE(ident); + return -1; + } + + fstream = pdf_new_stream(STREAM_COMPRESS); + +#ifdef MIKTEX + if (!miktex_find_app_input_file("dvipdfm", filename, work_buffer)) + fullname = NULL; + else { + fullname = work_buffer; + } +#else /* !MIKTEX */ + fullname = kpse_find_file(filename, kpse_program_binary_format, 0); +#endif + pdf_release_obj(tmp); + if (!fullname) { + spc_warn(spe, "Could not find file."); + RELEASE(ident); + pdf_release_obj(fstream); + return -1; + } + + fp = MFOPEN(fullname, FOPEN_RBIN_MODE); + if (!fp) { + spc_warn(spe, "Could not open file: %s", fullname); + RELEASE(ident); + pdf_release_obj(fstream); + return -1; + } + + stream_len = 0; + while ((nb_read = + fread(work_buffer, sizeof(char), WORK_BUFFER_SIZE, fp)) > 0) { + pdf_add_stream(fstream, work_buffer, nb_read); + stream_len += nb_read; + } + + MFCLOSE(fp); + + /* + * Optional dict. + * + * TODO: check Length, Filter... + */ + skip_white(&args->curptr, args->endptr); + + if (args->curptr[0] == '<') { + pdf_obj *stream_dict; + + stream_dict = pdf_stream_dict(fstream); + + tmp = parse_pdf_dict(&args->curptr, args->endptr); + if (!tmp) { + spc_warn(spe, "Parsing dictionary failed."); + RELEASE(ident); + pdf_release_obj(fstream); + return -1; + } + if (pdf_lookup_dict(tmp, "Length")) { + pdf_remove_dict(tmp, "Length"); + } else if (pdf_lookup_dict(tmp, "Filter")) { + pdf_remove_dict(tmp, "Filter"); + } + pdf_merge_dict(stream_dict, tmp); + pdf_release_obj(tmp); + } + + /* Users should explicitly close this. */ + spc_push_object(ident, fstream); + RELEASE(ident); + + return 0; +} + +/* Grab page content as follows: + * + * Reference point = (x_user, y_user) + * + * Case 1. \special{pdf:bxobj @obj width WD height HT depth DP} + * + * Grab the box with the lower-left corner (x_user, y_user-DP) + * and the upper right corner (x_user+WD, y_user+HT). + * + * Case 2. \special{pdf:bxobj @obj bbox LLX LLY URX, URY} + * + * Grab the box with the lower-left corner (x_user+LLX, y_user+LLY) + * and the upper right corner (x_user+URX, y_user+URY). + * + * Note that scale, xscale, yscale, xoffset, yoffset options are ignored. + */ +static int +spc_handler_pdfm_bform (struct spc_env *spe, struct spc_arg *args) +{ + int xobj_id; + char *ident; + pdf_rect cropbox; + transform_info ti; + + skip_white(&args->curptr, args->endptr); + + ident = parse_opt_ident(&args->curptr, args->endptr); + if (!ident) { + spc_warn(spe, "A form XObject must have name."); + return -1; + } + + transform_info_clear(&ti); + if (spc_util_read_dimtrns(spe, &ti, args, 0) < 0) { + RELEASE(ident); + return -1; + } + + /* A XForm with zero dimension results in a non-invertible transformation + * matrix. And it may result in unpredictable behaviour. It might be an + * error in Acrobat. Bounding box with zero dimension may cause division + * by zero. + */ + if (ti.flags & INFO_HAS_USER_BBOX) { + if (ti.bbox.urx - ti.bbox.llx == 0.0 || + ti.bbox.ury - ti.bbox.lly == 0.0) { + spc_warn(spe, "Bounding box has a zero dimension."); + RELEASE(ident); + return -1; + } + cropbox.llx = ti.bbox.llx; + cropbox.lly = ti.bbox.lly; + cropbox.urx = ti.bbox.urx; + cropbox.ury = ti.bbox.ury; + } else { + if (ti.width == 0.0 || + ti.depth + ti.height == 0.0) { + spc_warn(spe, "Bounding box has a zero dimension."); + RELEASE(ident); + return -1; + } + cropbox.llx = 0.0; + cropbox.lly = -ti.depth; + cropbox.urx = ti.width; + cropbox.ury = ti.height; + } + + xobj_id = pdf_doc_begin_grabbing(ident, spe->x_user, spe->y_user, &cropbox); + + if (xobj_id < 0) { + RELEASE(ident); + spc_warn(spe, "Couldn't start form object."); + return -1; + } + + spc_push_object(ident, pdf_ximage_get_reference(xobj_id)); + RELEASE(ident); + + return 0; +} + +static int +spc_handler_pdfm_eform (struct spc_env *spe, struct spc_arg *args) +{ + pdf_obj *garbage; + pdf_obj *resource; + + skip_white(&args->curptr, args->endptr); + + if (args->curptr < args->endptr) { + /* An extra dictionary after exobj must be merged to /Resources. + * Please use pdf:put @resources (before pdf:exobj) instead. + */ + garbage = parse_pdf_dict(&args->curptr, args->endptr); + if (garbage) { + resource = pdf_doc_current_page_resources(); + pdf_merge_dict(resource, garbage); + spc_warn(spe, "Garbage after special pdf:exobj."); + pdf_release_obj(garbage); + } + } + pdf_doc_end_grabbing(); + + return 0; +} + +/* Saved XObjects can be used as follows: + * + * Reference point = (x_user, y_user) + * + * Case 1. \special{pdf:uxobj @obj width WD height HT depth DP} + * + * Scale the XObject to fit in the box + * [x_user, y_user-DP, x_user+WD, y_user+HT]. + * + * Case 2. \special{pdf:uxobj @obj xscale XS yscale YS} + * + * Scale the XObject with XS and YS. Note that width and xscale + * or height and yscale cannot be used together. + * + * Case 3. \special{pdf:bxobj @obj bbox LLX LLY URX, URY} + * + * Scale the XObject to fit in the box + * [x_user+LLX, y_user+LLY, x_user+URX, y_user+URY]. + * + * Note that xoffset and yoffset moves the reference point where the + * lower-left corner of the XObject will be put. + */ +static int +spc_handler_pdfm_uxobj (struct spc_env *spe, struct spc_arg *args) +{ + struct spc_pdf_ *sd = &_pdf_stat; + int xobj_id; + char *ident; + transform_info ti; + + skip_white(&args->curptr, args->endptr); + + ident = parse_opt_ident(&args->curptr, args->endptr); + if (!ident) { + spc_warn(spe, "No object identifier given."); + return -1; + } + + transform_info_clear(&ti); + if (args->curptr < args->endptr) { + if (spc_util_read_dimtrns(spe, &ti, args, 0) < 0) { + RELEASE(ident); + return -1; + } + } + + /* Dvipdfmx was suddenly changed to use file name to identify + * external images. We can't use ident to find image resource + * here. + */ + xobj_id = findresource(sd, ident); + if (xobj_id < 0) { + xobj_id = pdf_ximage_findresource(ident, 0, 0); + if (xobj_id < 0) { + spc_warn(spe, "Specified (image) object doesn't exist: %s", ident); + RELEASE(ident); + return -1; + } + } + + pdf_dev_put_image(xobj_id, &ti, spe->x_user, spe->y_user); + RELEASE(ident); + + return 0; +} + +static int +spc_handler_pdfm_link (struct spc_env *spe, struct spc_arg *args) +{ + return spc_resume_annot(spe); +} + +static int +spc_handler_pdfm_nolink (struct spc_env *spe, struct spc_arg *args) +{ + return spc_suspend_annot(spe); +} + + + +/* Handled at BOP */ +static int +spc_handler_pdfm_pagesize (struct spc_env *spe, struct spc_arg *args) +{ + args->curptr = args->endptr; + + return 0; +} + +/* Please remove this. + * This should be handled before processing pages! + */ +static int +spc_handler_pdfm_bgcolor (struct spc_env *spe, struct spc_arg *args) +{ + int error; + pdf_color colorspec; + + error = spc_util_read_colorspec(spe, &colorspec, args, 0); + if (error) + spc_warn(spe, "No valid color specified?"); + else { + pdf_doc_set_bgcolor(&colorspec); + } + + return error; +} + +static int +spc_handler_pdfm_mapline (struct spc_env *spe, struct spc_arg *ap) +{ + fontmap_rec *mrec; + char *map_name, opchr; + int error = 0; + + skip_white(&ap->curptr, ap->endptr); + if (ap->curptr >= ap->endptr) { + spc_warn(spe, "Empty mapline special?"); + return -1; + } + + opchr = ap->curptr[0]; + if (opchr == '-' || opchr == '+') + ap->curptr++; + + skip_white(&ap->curptr, ap->endptr); + + switch (opchr) { + case '-': + map_name = parse_ident(&ap->curptr, ap->endptr); + if (map_name) { + pdf_remove_fontmap_record(map_name); + RELEASE(map_name); + } else { + spc_warn(spe, "Invalid fontmap line: Missing TFM name."); + error = -1; + } + break; + case '+': + mrec = NEW(1, fontmap_rec); + pdf_init_fontmap_record(mrec); + error = pdf_read_fontmap_line(mrec, ap->curptr, (long) (ap->endptr - ap->curptr)); + if (error) + spc_warn(spe, "Invalid fontmap line."); + else { + pdf_append_fontmap_record(mrec->map_name, mrec); + } + pdf_clear_fontmap_record(mrec); + RELEASE(mrec); + break; + default: + mrec = NEW(1, fontmap_rec); + pdf_init_fontmap_record(mrec); + error = pdf_read_fontmap_line(mrec, ap->curptr, (long) (ap->endptr - ap->curptr)); + if (error) + spc_warn(spe, "Invalid fontmap line."); + else { + pdf_insert_fontmap_record(mrec->map_name, mrec); + } + pdf_clear_fontmap_record(mrec); + RELEASE(mrec); + break; + } + if (!error) + ap->curptr = ap->endptr; + + return 0; +} + +static int +spc_handler_pdfm_mapfile (struct spc_env *spe, struct spc_arg *args) +{ + char *mapfile; + int mode, error = 0; + + skip_white(&args->curptr, args->endptr); + if (args->curptr >= args->endptr) + return 0; + + switch (args->curptr[0]) { + case '-': + mode = FONTMAP_RMODE_REMOVE; + args->curptr++; + break; + case '+': + mode = FONTMAP_RMODE_APPEND; + args->curptr++; + break; + default: + mode = FONTMAP_RMODE_REPLACE; + break; + } + + mapfile = parse_val_ident(&args->curptr, args->endptr); + if (!mapfile) { + spc_warn(spe, "No fontmap file specified."); + return -1; + } else { + error = pdf_load_fontmap_file(mapfile, mode); + } + + return error; +} + + +#ifdef ENABLE_TOUNICODE +static int +spc_handler_pdfm_tounicode (struct spc_env *spe, struct spc_arg *args) +{ + struct spc_pdf_ *sd = &_pdf_stat; + char *cmap_name; + int error = 0; + + /* First clear */ + sd->cd.cmap_id = -1; + sd->cd.unescape_backslash = 0; + + skip_white(&args->curptr, args->endptr); + if (args->curptr >= args->endptr) { + spc_warn(spe, "Missing CMap name for pdf:tounicode."); + return -1; + } + + /* _FIXME_ + * Any valid char allowed for PDF name object should be allowed here. + * The argument to this special should be a PDF name obejct. + * But it's too late to change this special. + */ + cmap_name = parse_ident(&args->curptr, args->endptr); + if (!cmap_name) { + spc_warn(spe, "Missing ToUnicode mapping name..."); + return -1; + } + + sd->cd.cmap_id = CMap_cache_find(cmap_name); + if (sd->cd.cmap_id < 0) { + spc_warn(spe, "Failed to load ToUnicode mapping: %s", cmap_name); + error = -1; + } + + /* Shift-JIS like encoding may contain backslash in 2nd byte. + * WARNING: This will add nasty extension to PDF parser. + */ + if (!error && sd->cd.cmap_id >= 0) { + if (strstr(cmap_name, "RKSJ") || + strstr(cmap_name, "B5") || + strstr(cmap_name, "GBK") || + strstr(cmap_name, "KSC")) + sd->cd.unescape_backslash = 1; + } + RELEASE(cmap_name); + + return error; +} +#endif /* ENABLE_TOUNICODE */ + + +static struct spc_handler pdfm_handlers[] = { + {"annotation", spc_handler_pdfm_annot}, + {"annotate", spc_handler_pdfm_annot}, + {"annot", spc_handler_pdfm_annot}, + {"ann", spc_handler_pdfm_annot}, + + {"outline", spc_handler_pdfm_outline}, + {"out", spc_handler_pdfm_outline}, + + {"article", spc_handler_pdfm_article}, + {"art", spc_handler_pdfm_article}, + + {"bead", spc_handler_pdfm_bead}, + {"thread", spc_handler_pdfm_bead}, + + {"destination", spc_handler_pdfm_dest}, + {"dest", spc_handler_pdfm_dest}, + + + {"object", spc_handler_pdfm_object}, + {"obj", spc_handler_pdfm_object}, + + + {"docinfo", spc_handler_pdfm_docinfo}, + {"docview", spc_handler_pdfm_docview}, + + {"content", spc_handler_pdfm_content}, + {"put", spc_handler_pdfm_put}, + {"close", spc_handler_pdfm_close}, + {"bop", spc_handler_pdfm_bop}, + {"eop", spc_handler_pdfm_eop}, + + {"image", spc_handler_pdfm_image}, + {"img", spc_handler_pdfm_image}, + {"epdf", spc_handler_pdfm_image}, + + {"link", spc_handler_pdfm_link}, + {"nolink", spc_handler_pdfm_nolink}, + + {"begincolor", spc_handler_pdfm_bcolor}, + {"bcolor", spc_handler_pdfm_bcolor}, + {"bc", spc_handler_pdfm_bcolor}, + + {"setcolor", spc_handler_pdfm_scolor}, + {"scolor", spc_handler_pdfm_scolor}, + {"sc", spc_handler_pdfm_scolor}, + + {"endcolor", spc_handler_pdfm_ecolor}, + {"ecolor", spc_handler_pdfm_ecolor}, + {"ec", spc_handler_pdfm_ecolor}, + + {"begingray", spc_handler_pdfm_bcolor}, + {"bgray", spc_handler_pdfm_bcolor}, + {"bg", spc_handler_pdfm_bcolor}, + + {"endgray", spc_handler_pdfm_ecolor}, + {"egray", spc_handler_pdfm_ecolor}, + {"eg", spc_handler_pdfm_ecolor}, + + {"bgcolor", spc_handler_pdfm_bgcolor}, + {"bgc", spc_handler_pdfm_bgcolor}, + {"bbc", spc_handler_pdfm_bgcolor}, + {"bbg", spc_handler_pdfm_bgcolor}, + + {"pagesize", spc_handler_pdfm_pagesize}, + + {"bannot", spc_handler_pdfm_bann}, + {"beginann", spc_handler_pdfm_bann}, + {"bann", spc_handler_pdfm_bann}, + + {"eannot", spc_handler_pdfm_eann}, + {"endann", spc_handler_pdfm_eann}, + {"eann", spc_handler_pdfm_eann}, + + {"btrans", spc_handler_pdfm_btrans}, + {"begintransform", spc_handler_pdfm_btrans}, + {"begintrans", spc_handler_pdfm_btrans}, + {"bt", spc_handler_pdfm_btrans}, + + {"etrans", spc_handler_pdfm_etrans}, + {"endtransform", spc_handler_pdfm_etrans}, + {"endtrans", spc_handler_pdfm_etrans}, + {"et", spc_handler_pdfm_etrans}, + + {"bform", spc_handler_pdfm_bform}, + {"beginxobj", spc_handler_pdfm_bform}, + {"bxobj", spc_handler_pdfm_bform}, + + {"eform", spc_handler_pdfm_eform}, + {"endxobj", spc_handler_pdfm_eform}, + {"exobj", spc_handler_pdfm_eform}, + + {"usexobj", spc_handler_pdfm_uxobj}, + {"uxobj", spc_handler_pdfm_uxobj}, + +#ifdef ENABLE_TOUNICODE + {"tounicode", spc_handler_pdfm_tounicode}, +#endif /* ENABLE_TOUNICODE */ + {"literal", spc_handler_pdfm_literal}, + {"fstream", spc_handler_pdfm_fstream}, + {"names", spc_handler_pdfm_names}, + {"mapline", spc_handler_pdfm_mapline}, + {"mapfile", spc_handler_pdfm_mapfile}, +}; + +int +spc_pdfm_check_special (const char *buf, long len) +{ + int r = 0; + char *p, *endptr; + + p = (char *) buf; + endptr = p + len; + + skip_white(&p, endptr); + if (p + strlen("pdf:") <= endptr && + !memcmp(p, "pdf:", strlen("pdf:"))) { + r = 1; + } + + return r; +} + +int +spc_pdfm_setup_handler (struct spc_handler *sph, + struct spc_env *spe, struct spc_arg *ap) +{ + int error = -1, i; + char *q; + + ASSERT(sph && spe && ap); + + skip_white(&ap->curptr, ap->endptr); + if (ap->curptr + strlen("pdf:") >= ap->endptr || + memcmp(ap->curptr, "pdf:", strlen("pdf:"))) { + spc_warn(spe, "Not pdf: special???"); + return -1; + } + ap->curptr += strlen("pdf:"); + + skip_white(&ap->curptr, ap->endptr); + q = parse_c_ident(&ap->curptr, ap->endptr); + if (q) { + for (i = 0; + i < sizeof(pdfm_handlers) / sizeof(struct spc_handler); i++) { + if (!strcmp(q, pdfm_handlers[i].key)) { + ap->command = (char *) pdfm_handlers[i].key; + sph->key = (char *) "pdf:"; + sph->exec = pdfm_handlers[i].exec; + skip_white(&ap->curptr, ap->endptr); + error = 0; + break; + } + } + RELEASE(q); + } + + return error; +} + diff --git a/Build/source/texk/xdvipdfmx/src/spc_pdfm.h b/Build/source/texk/xdvipdfmx/src/spc_pdfm.h new file mode 100644 index 00000000000..0c4fe6d79ed --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_pdfm.h @@ -0,0 +1,39 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_pdfm.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_PDFM_H_ +#define _SPC_PDFM_H_ + +#include "specials.h" + +extern int spc_pdfm_at_begin_page (void); +extern int spc_pdfm_at_end_page (void); +extern int spc_pdfm_at_begin_document (void); +extern int spc_pdfm_at_end_document (void); + +extern int spc_pdfm_check_special (const char *buffer, long size); +extern int spc_pdfm_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_PDFM_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_tpic.c b/Build/source/texk/xdvipdfmx/src/spc_tpic.c new file mode 100644 index 00000000000..71a41ce159b --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_tpic.c @@ -0,0 +1,1150 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_tpic.c,v 1.3 2005/10/14 04:55:00 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "numbers.h" +#include "dpxutil.h" + +#include "pdfdoc.h" + +#include "pdfdraw.h" +#include "pdfdev.h" + +#include "specials.h" +#include "spc_tpic.h" + +#define DEBUG 1 +#define ENABLE_SPC_NAMESPACE 1 + +/* + * Following "constant" converts milli-inches to + * device (in this case PDF stream) coordinates. + */ + +#define MI2DEV (0.072/pdf_dev_scale()) + +/* + * Value for 'sh' command 'g' is interpreted as + * + * gray color value 1-g for "solid" + * opacity value g for "opacity" + * shape value g for "shape" + */ +#define TPIC_MODE__FILL_SOLID 0 +#define TPIC_MODE__FILL_OPACITY 1 +#define TPIC_MODE__FILL_SHAPE 2 + +#ifndef ISBLANK +# define ISBLANK(c) ( (c) == ' ' || (c) == '\t' ) +#endif + +static void +skip_blank (char **pp, char *endptr) +{ + char *p = *pp; + for ( ; p < endptr && ISBLANK(*p); p++); + *pp = p; +} + +struct spc_tpic_ +{ + struct { + int fill; + } mode; + + /* state */ + double pen_size; + int fill_shape; /* boolean */ + double fill_color; + + pdf_coord *points; + int num_points; + int max_points; +}; + +#if 1 +static struct spc_tpic_ _tpic_state; +#endif + +/* We use pdf_doc_add_page_content() here + * since we always draw isolated graphics. + */ +static void +tpic__clear (struct spc_tpic_ *tp) +{ + if (tp->points) { + RELEASE(tp->points); + tp->points = NULL; + } + tp->num_points = 0; + tp->max_points = 0; + tp->fill_shape = 0; + tp->fill_color = 0.0; +} + + +static pdf_obj * +create_xgstate (double a /* alpha */, int f_ais /* alpha is shape */) +{ + pdf_obj *dict; + + dict = pdf_new_dict(); + pdf_add_dict(dict, + pdf_new_name("Type"), + pdf_new_name("ExtGState")); + if (f_ais) { + pdf_add_dict(dict, + pdf_new_name("AIS"), + pdf_new_boolean(1)); + } + pdf_add_dict(dict, + pdf_new_name("ca"), + pdf_new_number(a)); + + return dict; +} + +static int +check_resourcestatus (const char *category, const char *resname) +{ + pdf_obj *dict1, *dict2; + + dict1 = pdf_doc_current_page_resources(); + if (!dict1) + return 0; + + dict2 = pdf_lookup_dict(dict1, category); + if (dict2 && + pdf_obj_typeof(dict2) == PDF_DICT) { + if (pdf_lookup_dict(dict2, resname)) + return 1; + } + return 0; +} + +static int +set_linestyle (double pn, double da) +{ + double dp[2]; /* dash pattern */ + + pdf_dev_setlinejoin(1); + pdf_dev_setmiterlimit(1.4); + pdf_dev_setlinewidth(pn); + if (da > 0.0) { + dp[0] = da * 72.0; + pdf_dev_setdash(1, dp, 0); + pdf_dev_setlinecap(0); + } else if (da < 0.0) { + dp[0] = pn; + dp[1] = -da * 72.0; + pdf_dev_setdash(2, dp, 0); + pdf_dev_setlinecap(1); + } else { + pdf_dev_setlinecap(0); + } + pdf_doc_add_page_content(" 0 G", 4); + + return 0; +} + +static int +set_fillstyle (double g, double a, int f_ais) +{ + pdf_obj *dict; + char resname[32]; + char buf[32]; + int alp, len = 0; + + if (a > 0.0) { + alp = round(100.0 * a); + sprintf(resname, "_Tps_a%03d_", alp); + if (!check_resourcestatus("ExtGState", resname)) { + dict = create_xgstate(ROUND(0.01 * alp, 0.01), f_ais); + pdf_doc_add_page_resource("ExtGState", + resname, pdf_ref_obj(dict)); + pdf_release_obj(dict); + } + len += sprintf(buf + len, " /%s gs", resname); + } + len += sprintf(buf + len, " %.2f g", g); + + pdf_doc_add_page_content(buf, len); + + return 0; +} + + +static void +showpath (int f_vp, int f_fs) /* visible_path, fill_shape */ +{ + if (f_vp) { + if (f_fs) + pdf_dev_flushpath('b', PDF_FILL_RULE_NONZERO); + else { + pdf_dev_flushpath('S', PDF_FILL_RULE_NONZERO); + } + } else { + /* + * Acrobat claims 'Q' as illegal operation when there are unfinished + * path (a path without path-painting operator applied)? + */ + if (f_fs) + pdf_dev_flushpath('f', PDF_FILL_RULE_NONZERO); + else { + pdf_dev_newpath(); + } + } +} + +#define CLOSED_PATH(s) (\ + (s)->points[0].x == (s)->points[(s)->num_points-1].x && \ + (s)->points[0].y == (s)->points[(s)->num_points-1].y \ +) + +static int +tpic__polyline (struct spc_tpic_ *tp, + const pdf_coord *c, + int f_vp, + double da) +{ + pdf_tmatrix M; + double pn = tp->pen_size; + int f_fs = tp->fill_shape; + int f_ais = 0; + double g = 0.5; + double a = 0.0; + int i, error = 0; + + /* Shading is applied only to closed path. */ + f_fs = CLOSED_PATH(tp) ? f_fs : 0; + f_vp = (pn > 0.0) ? f_vp : 0; + f_ais = (tp->mode.fill == TPIC_MODE__FILL_SHAPE) ? 1 : 0; + switch (tp->mode.fill) { + case TPIC_MODE__FILL_SOLID: + g = 1.0 - tp->fill_color; + a = 0.0; + break; + case TPIC_MODE__FILL_SHAPE: + case TPIC_MODE__FILL_OPACITY: + if (tp->fill_color > 0.0) { + a = tp->fill_color; + g = 0.0; + } else { + a = 0.0; + g = 1.0; + } + break; + } + + if (f_vp || f_fs) { + pdf_dev_gsave(); + + pdf_setmatrix (&M, 1.0, 0.0, 0.0, -1.0, c->x, c->y); + pdf_dev_concat(&M); + + if (f_vp) + set_linestyle(pn, da); + if (f_fs) + set_fillstyle(g, a, f_ais); + + pdf_dev_moveto(tp->points[0].x, tp->points[0].y); + for (i = 0; i < tp->num_points; i++) + pdf_dev_lineto(tp->points[i].x, tp->points[i].y); + + showpath(f_vp, f_fs); + + pdf_dev_grestore(); + } + + tpic__clear(tp); + + return error; +} + +/* + * Accroding to + * "Tpic: Pic for TEX", Tim Morgan, Original by Brian Kernighan, p.20: + * + * A spline is a smooth curve guided by a set of straight lines just + * like the line above. It begins at the same place, ends at the same + * place, and in between is tangent to the mid-point of each guiding + * line. The syntax for a spline is identical to a (path) line except + * for using spline instead of line. + * + * Spline is not a curve drawn by spline-fitting points p0, p1, ..., pn, + * defined by tpic special "pa" command. Instead, a path defined by set + * of points p0, p1, ... is guiding line mentioned above. + * + * Dvipsk draws them as a straight line from p0 to q1 = (p0 + p1)/2, + * followed by a quadratic B-spline curve with starting point q1, (off- + * curve) control point p1, end point q2 = (p1 + p2)/2, ..., and a + * straight line from qn to pn. + */ + +static int +tpic__spline (struct spc_tpic_ *tp, + const pdf_coord *c, + int f_vp, + double da) +{ + double v[6]; + pdf_tmatrix M; + double pn = tp->pen_size; + int f_fs = tp->fill_shape; + int f_ais = 0; + double g = 0.5; + double a = 0.0; + int i, error = 0; + + f_fs = CLOSED_PATH(tp) ? f_fs : 0; + f_vp = (pn > 0.0) ? f_vp : 0; + f_ais = (tp->mode.fill == TPIC_MODE__FILL_SHAPE) ? 1 : 0; + switch (tp->mode.fill) { + case TPIC_MODE__FILL_SOLID: + g = 1.0 - tp->fill_color; + a = 0.0; + break; + case TPIC_MODE__FILL_SHAPE: + case TPIC_MODE__FILL_OPACITY: + if (tp->fill_color > 0.0) { + a = tp->fill_color; + g = 0.0; + } else { + a = 0.0; + g = 1.0; + } + break; + } + + if ( f_vp || f_fs ) { + pdf_dev_gsave(); + + pdf_setmatrix (&M, 1.0, 0.0, 0.0, -1.0, c->x, c->y); + pdf_dev_concat(&M); + + if (f_vp) + set_linestyle(pn, da); + if (f_fs) + set_fillstyle(g, a, f_ais); + + pdf_dev_moveto(tp->points[0].x, tp->points[0].y); + + v[0] = 0.5 * (tp->points[0].x + tp->points[1].x); + v[1] = 0.5 * (tp->points[0].y + tp->points[1].y); + pdf_dev_lineto(v[0], v[1]); + for (i = 1; i < tp->num_points - 1; i++) { + /* B-spline control points */ + v[0] = 0.5 * (tp->points[i-1].x + tp->points[i].x); + v[1] = 0.5 * (tp->points[i-1].y + tp->points[i].y); + v[2] = tp->points[i].x; + v[3] = tp->points[i].y; + v[4] = 0.5 * (tp->points[i].x + tp->points[i+1].x); + v[5] = 0.5 * (tp->points[i].y + tp->points[i+1].y); + pdf_dev_bspline(v[0], v[1], v[2], v[3], v[4], v[5]); + } + pdf_dev_lineto(tp->points[i].x, tp->points[i].y); + + showpath(f_vp, f_fs); + + pdf_dev_grestore(); + } + tpic__clear(tp); + + return error; +} + +static int +tpic__arc (struct spc_tpic_ *tp, + const pdf_coord *c, + int f_vp, + double da, + double *v /* 6 numbers */ ) +{ + pdf_tmatrix M; + double pn = tp->pen_size; + int f_fs = tp->fill_shape; + int f_ais = 0; + double g = 0.5; + double a = 0.0; + + f_fs = (round(fabs(v[4] - v[5]) + 0.5) >= 360) ? f_fs : 0; + f_vp = (pn > 0.0) ? f_vp : 0; + f_ais = (tp->mode.fill == TPIC_MODE__FILL_SHAPE) ? 1 : 0; + switch (tp->mode.fill) { + case TPIC_MODE__FILL_SOLID: + g = 1.0 - tp->fill_color; + a = 0.0; + break; + case TPIC_MODE__FILL_SHAPE: + case TPIC_MODE__FILL_OPACITY: + if (tp->fill_color > 0.0) { + a = tp->fill_color; + g = 0.0; + } else { + a = 0.0; + g = 1.0; + } + break; + } + + if ( f_vp || f_fs ) { + pdf_dev_gsave(); + + pdf_setmatrix (&M, 1.0, 0.0, 0.0, -1.0, c->x, c->y); + pdf_dev_concat(&M); + + if (f_vp) + set_linestyle(pn, da); + if (f_fs) + set_fillstyle(g, a, f_ais); + + pdf_dev_arcx(v[0], v[1], v[2], v[3], v[4], v[5], +1, 0.0); + + showpath(f_vp, f_fs); + + pdf_dev_grestore(); + } + tpic__clear(tp); + + return 0; +} + +#if 1 +static int +spc_currentpoint (struct spc_env *spe, long *pg, pdf_coord *cp) +{ + *pg = 0; + cp->x = spe->x_user; + cp->y = spe->y_user; + return 0; +} +#endif + +static int +spc_handler_tpic_pn (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + char *q; + + ASSERT(spe && ap && tp); + + skip_blank(&ap->curptr, ap->endptr); + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (!q) { + spc_warn(spe, "Invalid pen size specified?"); + return -1; + } + tp->pen_size = atof(q) * MI2DEV; + RELEASE(q); + + return 0; +} + +static int +spc_handler_tpic_pa (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + char *q; + int i; + double v[2]; + + ASSERT(spe && ap && tp); + + skip_blank(&ap->curptr, ap->endptr); + for (i = 0; + i < 2 && ap->curptr < ap->endptr; i++) { + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (!q) { + spc_warn(spe, "Missing numbers for TPIC \"pa\" command."); + return -1; + } + v[i] = atof(q); + RELEASE(q); + skip_blank(&ap->curptr, ap->endptr); + } + if (i != 2) { + spc_warn(spe, "Invalid arg for TPIC \"pa\" command."); + return -1; + } + + if (tp->num_points >= tp->max_points) { + tp->max_points += 256; + tp->points = RENEW(tp->points, tp->max_points, pdf_coord); + } + tp->points[tp->num_points].x = v[0] * MI2DEV; + tp->points[tp->num_points].y = v[1] * MI2DEV; + tp->num_points += 1; + + return 0; +} + +static int +spc_handler_tpic_fp (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + pdf_coord cp; + long pg; + + ASSERT(spe && ap && tp); + + if (tp->num_points <= 1) { + spc_warn(spe, "Too few points (< 2) for polyline path."); + return -1; + } + + spc_currentpoint(spe, &pg, &cp); + + return tpic__polyline(tp, &cp, 1, 0.0); +} + +static int +spc_handler_tpic_ip (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + pdf_coord cp; + long pg; + + ASSERT(spe && ap && tp); + + if (tp->num_points <= 1) { + spc_warn(spe, "Too few points (< 2) for polyline path."); + return -1; + } + + spc_currentpoint(spe, &pg, &cp); + + return tpic__polyline(tp, &cp, 0, 0.0); +} + +static int +spc_handler_tpic_da (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + char *q; + double da = 0.0; + pdf_coord cp; + long pg; + + ASSERT(spe && ap && tp); + + skip_blank(&ap->curptr, ap->endptr); + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (q) { + da = atof(q); + RELEASE(q); + } + if (tp->num_points <= 1) { + spc_warn(spe, "Too few points (< 2) for polyline path."); + return -1; + } + + spc_currentpoint(spe, &pg, &cp); + + return tpic__polyline(tp, &cp, 1, da); +} + +static int +spc_handler_tpic_dt (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + char *q; + double da = 0.0; + pdf_coord cp; + long pg; + + ASSERT(spe && ap && tp); + + skip_blank(&ap->curptr, ap->endptr); + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (q) { + da = -atof(q); + RELEASE(q); + } + if (tp->num_points <= 1) { + spc_warn(spe, "Too few points (< 2) for polyline path."); + return -1; + } + + spc_currentpoint(spe, &pg, &cp); + + return tpic__polyline(tp, &cp, 1, da); +} + +static int +spc_handler_tpic_sp (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + char *q; + double da = 0.0; + pdf_coord cp; + long pg; + + ASSERT(spe && ap && tp); + + skip_blank(&ap->curptr, ap->endptr); + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (q) { + da = atof(q); + RELEASE(q); + } + if (tp->num_points <= 2) { + spc_warn(spe, "Too few points (< 3) for spline path."); + return -1; + } + + spc_currentpoint(spe, &pg, &cp); + + return tpic__spline(tp, &cp, 1, da); +} + +static int +spc_handler_tpic_ar (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + double v[6]; + pdf_coord cp; + long pg; + char *q; + int i; + + ASSERT(spe && ap && tp); + + skip_blank(&ap->curptr, ap->endptr); + for (i = 0; + i < 6 && ap->curptr < ap->endptr; i++) { + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (!q) { + spc_warn(spe, "Invalid args. in TPIC \"ar\" command."); + return -1; + } + v[i] = atof(q); + RELEASE(q); + skip_blank(&ap->curptr, ap->endptr); + } + if (i != 6) { + spc_warn(spe, "Invalid arg for TPIC \"ar\" command."); + return -1; + } + + v[0] *= MI2DEV; v[1] *= MI2DEV; + v[2] *= MI2DEV; v[3] *= MI2DEV; + v[4] *= 180.0 / M_PI; + v[5] *= 180.0 / M_PI; + + spc_currentpoint(spe, &pg, &cp); + + return tpic__arc(tp, &cp, 1, 0.0, v); +} + +static int +spc_handler_tpic_ia (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + double v[6]; + pdf_coord cp; + long pg; + char *q; + int i; + + ASSERT(spe && ap && tp); + + skip_blank(&ap->curptr, ap->endptr); + for (i = 0; + i < 6 && ap->curptr < ap->endptr; i++) { + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (!q) { + spc_warn(spe, "Invalid args. in TPIC \"ia\" command."); + return -1; + } + v[i] = atof(q); + RELEASE(q); + skip_blank(&ap->curptr, ap->endptr); + } + if (i != 6) { + spc_warn(spe, "Invalid arg for TPIC \"ia\" command."); + return -1; + } + + v[0] *= MI2DEV; v[1] *= MI2DEV; + v[2] *= MI2DEV; v[3] *= MI2DEV; + v[4] *= 180.0 / M_PI; + v[5] *= 180.0 / M_PI; + + spc_currentpoint(spe, &pg, &cp); + + return tpic__arc(tp, &cp, 0, 0.0, v); +} + +static int +spc_handler_tpic_sh (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + char *q; + + ASSERT(spe && ap && tp); + + tp->fill_shape = 1; + tp->fill_color = 0.5; + + skip_blank(&ap->curptr, ap->endptr); + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (q) { + tp->fill_color = atof(q); + RELEASE(q); + } + + return 0; +} + +static int +spc_handler_tpic_wh (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + + ASSERT(spe && ap && tp); + + tp->fill_shape = 1; + tp->fill_color = 0.0; + + return 0; +} + +static int +spc_handler_tpic_bk (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + + ASSERT(spe && ap && tp); + + tp->fill_shape = 1; + tp->fill_color = 1.0; + + return 0; +} + +static int +spc_handler_tpic_tx (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + + ASSERT(spe && ap && tp); + + spc_warn(spe, "TPIC command \"tx\" not supported."); + + return -1; +} + + +static int +spc_handler_tpic__init (struct spc_env *spe, + struct spc_arg *ap, void *dp) +{ + struct spc_tpic_ *tp = dp; + +#if 0 + tp->mode.fill = TPIC_MODE__FILL_SOLID; +#endif + tp->pen_size = 1.0; + tp->fill_shape = 0; + tp->fill_color = 0.0; + + tp->points = NULL; + tp->num_points = 0; + tp->max_points = 0; + + if (tp->mode.fill != TPIC_MODE__FILL_SOLID && pdf_get_version() < 4) { + spc_warn(spe, "Tpic shading support requires PDF version 1.4."); + tp->mode.fill = TPIC_MODE__FILL_SOLID; + } + + return 0; +} + +static int +spc_handler_tpic__bophook (struct spc_env *spe, + struct spc_arg *ap, void *dp) +{ + struct spc_tpic_ *tp = dp; + + ASSERT(tp); + + tpic__clear(tp); + + return 0; +} + +static int +spc_handler_tpic__eophook (struct spc_env *spe, + struct spc_arg *ap, void *dp) +{ + struct spc_tpic_ *tp = dp; + + ASSERT(tp); + + if (tp->num_points > 0) + spc_warn(spe, "Unflushed tpic path at end of the page."); + tpic__clear(tp); + + return 0; +} + +static int +spc_handler_tpic__clean (struct spc_env *spe, + struct spc_arg *ap, void *dp) +{ + struct spc_tpic_ *tp = dp; + + ASSERT(tp); + + if (tp->num_points > 0) + spc_warn(spe, "Unflushed tpic path at end of the document."); + + tpic__clear(tp); +#if 0 + RELEASE(tp); +#endif + + return 0; +} + +void +tpic_set_fill_mode (int mode) +{ + struct spc_tpic_ *tp = &_tpic_state; + tp->mode.fill = mode; +} + + +int +spc_tpic_at_begin_page (void) +{ + struct spc_tpic_ *tp = &_tpic_state; + return spc_handler_tpic__bophook(NULL, NULL, tp); +} + +int +spc_tpic_at_end_page (void) +{ + struct spc_tpic_ *tp = &_tpic_state; + return spc_handler_tpic__eophook(NULL, NULL, tp); +} + + +int +spc_tpic_at_begin_document (void) +{ + struct spc_tpic_ *tp = &_tpic_state; + return spc_handler_tpic__init(NULL, NULL, tp); +} + +int +spc_tpic_at_end_document (void) +{ + struct spc_tpic_ *tp = &_tpic_state; + return spc_handler_tpic__clean(NULL, NULL, tp); +} + + +#if DEBUG +#include "pdfparse.h" /* parse_val_ident :( */ + +static pdf_obj * +spc_parse_kvpairs (struct spc_env *spe, struct spc_arg *ap) +{ + pdf_obj *dict; + char *kp, *vp; + int error = 0; + + dict = pdf_new_dict(); + + skip_blank(&ap->curptr, ap->endptr); + while (!error && ap->curptr < ap->endptr) { + kp = parse_val_ident(&ap->curptr, ap->endptr); + if (!kp) + break; + skip_blank(&ap->curptr, ap->endptr); + if (ap->curptr < ap->endptr && + ap->curptr[0] == '=') { + ap->curptr++; + skip_blank(&ap->curptr, ap->endptr); + if (ap->curptr == ap->endptr) { + RELEASE(kp); + error = -1; + break; + } + vp = parse_c_string(&ap->curptr, ap->endptr); + if (!vp) + error = -1; + else { + pdf_add_dict(dict, + pdf_new_name(kp), + pdf_new_string(vp, strlen(vp) + 1)); /* NULL terminate */ + RELEASE(vp); + } + } else { + /* Treated as 'flag' */ + pdf_add_dict(dict, + pdf_new_name(kp), + pdf_new_boolean(1)); + } + RELEASE(kp); + if (!error) + skip_blank(&ap->curptr, ap->endptr); + } + + if (error) { + pdf_release_obj(dict); + dict = NULL; + } + + return dict; +} + +static int +tpic_filter_getopts (pdf_obj *kp, pdf_obj *vp, void *dp) +{ + struct spc_tpic_ *tp = dp; + char *k, *v; + int error = 0; + + ASSERT( kp && vp && tp ); + + k = pdf_name_value(kp); + if (!strcmp(k, "fill-mode")) { + if (pdf_obj_typeof(vp) != PDF_STRING) { + WARN("Invalid value for TPIC option fill-mode..."); + error = -1; + } else { + v = pdf_string_value(vp); + if (!strcmp(v, "shape")) + tp->mode.fill = TPIC_MODE__FILL_SHAPE; + else if (!strcmp(v, "opacity")) + tp->mode.fill = TPIC_MODE__FILL_OPACITY; + else if (!strcmp(v, "solid")) + tp->mode.fill = TPIC_MODE__FILL_SOLID; + else { + WARN("Invalid value for TPIC option fill-mode: %s", v); + error = -1; + } + } + } else { + WARN("Unrecognized option for TPIC special handler: %s", k); + error = -1; + } + + return error; +} + +static int +spc_handler_tpic__setopts (struct spc_env *spe, + struct spc_arg *ap ) /* , void *dp) */ +{ + struct spc_tpic_ *tp = &_tpic_state; + pdf_obj *dict; + int error = 0; + + dict = spc_parse_kvpairs(spe, ap); + if (!dict) + return -1; + error = pdf_foreach_dict(dict, tpic_filter_getopts, tp); + if (!error) { + if (tp->mode.fill != TPIC_MODE__FILL_SOLID && + pdf_get_version() < 4) { + spc_warn(spe, "Transparent fill mode requires PDF version 1.4."); + tp->mode.fill = TPIC_MODE__FILL_SOLID; + } + } + + return error; +} +#endif /* DEBUG */ + + +static struct spc_handler tpic_handlers[] = { + {"pn", spc_handler_tpic_pn}, + {"pa", spc_handler_tpic_pa}, + {"fp", spc_handler_tpic_fp}, + {"ip", spc_handler_tpic_ip}, + {"da", spc_handler_tpic_da}, + {"dt", spc_handler_tpic_dt}, + {"sp", spc_handler_tpic_sp}, + {"ar", spc_handler_tpic_ar}, + {"ia", spc_handler_tpic_ia}, + {"sh", spc_handler_tpic_sh}, + {"wh", spc_handler_tpic_wh}, + {"bk", spc_handler_tpic_bk}, + {"tx", spc_handler_tpic_tx} +}; + +int +spc_tpic_check_special (const char *buf, long len) +{ + int istpic = 0; + char *q, *p, *endptr; + int i, hasnsp = 0; + + p = (char *) buf; + endptr = p + len; + + skip_blank(&p, endptr); +#if ENABLE_SPC_NAMESPACE + if (p + strlen("tpic:") < endptr && + !memcmp(p, "tpic:", strlen("tpic:"))) + { + p += strlen("tpic:"); + hasnsp = 1; + } +#endif + q = parse_c_ident(&p, endptr); + + if (!q) + istpic = 0; + else if (q && hasnsp && !strcmp(q, "__setopt__")) { +#if DEBUG + istpic = 1; +#endif + RELEASE(q); + } else { + for (i = 0; + i < sizeof(tpic_handlers)/sizeof(struct spc_handler); i++) { + if (!strcmp(q, tpic_handlers[i].key)) { + istpic = 1; + break; + } + } + RELEASE(q); + } + + return istpic; +} + + +int +spc_tpic_setup_handler (struct spc_handler *sph, + struct spc_env *spe, struct spc_arg *ap) +{ + char *q; + int i, hasnsp = 0, error = -1; + + ASSERT(sph && spe && ap); + + skip_blank(&ap->curptr, ap->endptr); +#if ENABLE_SPC_NAMESPACE + if (ap->curptr + strlen("tpic:") < ap->endptr && + !memcmp(ap->curptr, "tpic:", strlen("tpic:"))) + { + ap->curptr += strlen("tpic:"); + hasnsp = 1; + } +#endif + q = parse_c_ident(&ap->curptr, ap->endptr); + + if (!q) + error = -1; + else if (q && hasnsp && !strcmp(q, "__setopt__")) { +#if DEBUG + ap->command = (char *) "__setopt__"; + sph->key = (char *) "tpic:"; + sph->exec = spc_handler_tpic__setopts; + skip_blank(&ap->curptr, ap->endptr); + error = 0; +#endif + RELEASE(q); + } else { + for (i = 0; + i < sizeof(tpic_handlers)/sizeof(struct spc_handler); i++) { + if (!strcmp(q, tpic_handlers[i].key)) { + ap->command = (char *) tpic_handlers[i].key; + sph->key = (char *) "tpic:"; + sph->exec = tpic_handlers[i].exec; + skip_blank(&ap->curptr, ap->endptr); + error = 0; + break; + } + } + RELEASE(q); + } + + return error; +} + + +#if 0 +int +spc_load_tpic_special (struct spc_env *spe, pdf_obj *lopts) +{ + struct spc_def *spd; + struct spc_tpic_ *sd; + + sd = NEW(1, struct spc_tpic_); + + spd = NEW(1, struct spc_def); + spc_init_def(spd); + + spc_def_init (spd, &spc_handler_tpic__init); + spc_def_setopts(spd, &spc_handler_tpic__setopts); + spc_def_bophook(spd, &spc_handler_tpic__bophook); + spc_def_eophook(spd, &spc_handler_tpic__eophook); + spc_def_clean (spd, &spc_handler_tpic__clean); + + spc_def_func(spd, "pn", &spc_handler_tpic_pn); + spc_def_func(spd, "pa", &spc_handler_tpic_pa); + spc_def_func(spd, "fp", &spc_handler_tpic_fp); + spc_def_func(spd, "ip", &spc_handler_tpic_ip); + spc_def_func(spd, "da", &spc_handler_tpic_da); + spc_def_func(spd, "dt", &spc_handler_tpic_dt); + spc_def_func(spd, "sp", &spc_handler_tpic_sp); + spc_def_func(spd, "ar", &spc_handler_tpic_ar); + spc_def_func(spd, "ia", &spc_handler_tpic_ia); + spc_def_func(spd, "sh", &spc_handler_tpic_sh); + spc_def_func(spd, "wh", &spc_handler_tpic_wh); + spc_def_func(spd, "bk", &spc_handler_tpic_bk); + spc_def_func(spd, "tx", &spc_handler_tpic_tx); + + spc_add_special(spe, "tpic", spd, sd); + + return 0; +} +#endif /* 0 */ + diff --git a/Build/source/texk/xdvipdfmx/src/spc_tpic.h b/Build/source/texk/xdvipdfmx/src/spc_tpic.h new file mode 100644 index 00000000000..28154c4303e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_tpic.h @@ -0,0 +1,41 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_tpic.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_TPIC_H_ +#define _SPC_TPIC_H_ + +#include "specials.h" + +extern void tpic_set_fill_mode (int mode); + +extern int spc_tpic_at_begin_page (void); +extern int spc_tpic_at_end_page (void); +extern int spc_tpic_at_begin_document (void); +extern int spc_tpic_at_end_document (void); + +extern int spc_tpic_check_special (const char *buffer, long size); +extern int spc_tpic_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_TPIC_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_util.c b/Build/source/texk/xdvipdfmx/src/spc_util.c new file mode 100644 index 00000000000..bfe10f88720 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_util.c @@ -0,0 +1,731 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_util.c,v 1.7 2005/08/12 16:27:52 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "pdfdev.h" +#include "pdfparse.h" +#include "pdfcolor.h" +#include "pdfdraw.h" + +#include "specials.h" + +#include "spc_util.h" + + +#ifndef ISBLANK +#define ISBLANK(c) ((c) == ' ' || (c) == '\t') +#endif +static void +skip_blank (char **pp, char *endptr) +{ + char *p = *pp; + for ( ; p < endptr && ISBLANK(*p); p++); + *pp = p; +} + + +/* From pdfcolor.c */ +static int pdf_color_namedcolor (pdf_color *color, const char *colorname); + +int +spc_util_read_numbers (double *values, int num_values, + struct spc_env *spe, struct spc_arg *args) +{ + int count; + char *q; + + skip_blank(&args->curptr, args->endptr); + for (count = 0; + count < num_values && + args->curptr < args->endptr; ) { + q = parse_float_decimal(&args->curptr, args->endptr); + if (!q) + break; + else { + values[count] = atof(q); + RELEASE(q); + skip_blank(&args->curptr, args->endptr); + count++; + } + } + + return count; +} + +static void +rgb_color_from_hsv (pdf_color *color, double h, double s, double v) +{ + double r, g, b; + ASSERT( color ); + r = g = b = v; + if (s != 0.0) { + double h6, f, v1, v2, v3; + int i; + h6 = h * 6; /* 360 / 60 */ + i = (int) h6; + f = h6 - i; + v1 = v * (1 - s); + v2 = v * (1 - s * f); + v3 = v * (1 - s * (1 - f)); + switch (i) { + case 0: r = v ; g = v3; b = v1; break; + case 1: r = v2; g = v ; b = v1; break; + case 2: r = v1; g = v ; b = v3; break; + case 3: r = v1; g = v2; b = v ; break; + case 4: r = v3; g = v1; b = v ; break; + case 5: r = v ; g = v1; b = v2; break; + case 6: r = v ; g = v1; b = v2; break; + } + } + pdf_color_rgbcolor(color, r, g, b); +} + +static int +spc_read_color_color (struct spc_env *spe, pdf_color *colorspec, struct spc_arg *ap) +{ + char *q; + double cv[4]; + int nc; + int error = 0; + + q = parse_c_ident(&ap->curptr, ap->endptr); + if (!q) { + spc_warn(spe, "No valid color specified?"); + return -1; + } + skip_blank(&ap->curptr, ap->endptr); + + if (!strcmp(q, "rgb")) { /* Handle rgb color */ + nc = spc_util_read_numbers(cv, 3, spe, ap); + if (nc != 3) { + spc_warn(spe, "Invalid value for RGB color specification."); + error = -1; + } else { + pdf_color_rgbcolor(colorspec, cv[0], cv[1], cv[2]); + } + } else if (!strcmp(q, "cmyk")) { /* Handle cmyk color */ + nc = spc_util_read_numbers(cv, 4, spe, ap); + if (nc != 4) { + spc_warn(spe, "Invalid value for CMYK color specification."); + error = -1; + } else { + pdf_color_cmykcolor(colorspec, cv[0], cv[1], cv[2], cv[3]); + } + } else if (!strcmp(q, "gray")) { /* Handle gray */ + nc = spc_util_read_numbers(cv, 1, spe, ap); + if (nc != 1) { + spc_warn(spe, "Invalid value for gray color specification."); + error = -1; + } else { + pdf_color_graycolor(colorspec, cv[0]); + } + } else if (!strcmp(q, "hsb")) { + nc = spc_util_read_numbers(cv, 3, spe, ap); + if (nc != 3) { + spc_warn(spe, "Invalid value for HSB color specification."); + error = -1; + } else { + rgb_color_from_hsv(colorspec, cv[0], cv[1], cv[2]); + spc_warn(spe, "HSB color converted to RGB: hsb: <%g, %g, %g> ==> rgb: <%g, %g, %g>", + cv[0], cv[1], cv[2], + colorspec->values[0], colorspec->values[1], colorspec->values[2]); + } + } else { /* Must be a "named" color */ + error = pdf_color_namedcolor(colorspec, q); + if (error) + spc_warn(spe, "Unrecognized color name: %s", q); + } + RELEASE(q); + + return error; +} + +/* Argumaent for this is PDF_Number or PDF_Array. + * But we ignore that since we don't want to add + * dependency to pdfxxx and @foo can not be + * allowed for color specification. "pdf" here + * means pdf: special syntax. + */ +static int +spc_read_color_pdf (struct spc_env *spe, pdf_color *colorspec, struct spc_arg *ap) +{ + double cv[4]; /* at most four */ + int nc, isarry = 0; + int error = 0; + + skip_blank(&ap->curptr, ap->endptr); + + if (ap->curptr[0] == '[') { + ap->curptr++; skip_blank(&ap->curptr, ap->endptr); + isarry = 1; + } + + nc = spc_util_read_numbers(cv, 4, spe, ap); + switch (nc) { + case 1: + pdf_color_graycolor(colorspec, cv[0]); + break; + case 3: + pdf_color_rgbcolor (colorspec, cv[0], cv[1], cv[2]); + break; + case 4: + pdf_color_cmykcolor(colorspec, cv[0], cv[1], cv[2], cv[3]); + break; + default: + spc_warn(spe, "Expecting either gray level or RGB/CMYK color array: %d", nc); + error = -1; + break; + } + + if (!error && isarry) { + skip_blank(&ap->curptr, ap->endptr); + if (ap->curptr >= ap->endptr || ap->curptr[0] != ']') { + spc_warn(spe, "Unbalanced '[' and ']' in color specification."); + error = -1; + } else { + ap->curptr++; + } + } + + return error; +} + + +/* This is for reading *single* color specification. */ +int +spc_util_read_colorspec (struct spc_env *spe, pdf_color *colorspec, struct spc_arg *ap, int syntax) +{ + int error = 0; + + ASSERT(colorspec && spe && ap); + + skip_blank(&ap->curptr, ap->endptr); + if (ap->curptr >= ap->endptr) { + return -1; + } + + if (syntax) + error = spc_read_color_color(spe, colorspec, ap); + else + error = spc_read_color_pdf(spe, colorspec, ap); + + return error; +} + + +/* This need to allow 'true' prefix for unit and + * length value must be divided by current magnification. + */ +int +spc_util_read_length (struct spc_env *spe, double *vp /* ret. */, struct spc_arg *ap) +{ + char *q; + double v, u = 1.0; + const char *ukeys[] = { +#define K_UNIT__PT 0 +#define K_UNIT__IN 1 +#define K_UNIT__CM 2 +#define K_UNIT__MM 3 +#define K_UNIT__BP 4 + "pt", "in", "cm", "mm", "bp", NULL + }; + int k, error = 0; + + q = parse_float_decimal(&ap->curptr, ap->endptr); + if (!q) + return -1; + + v = atof(q); + RELEASE(q); + + q = parse_c_ident(&ap->curptr, ap->endptr); + if (q) { + if (strlen(q) > strlen("true") && + !memcmp(q, "true", strlen("true"))) { + u /= spe->mag != 0.0 ? spe->mag : 1.0; /* inverse magnify */ + q += strlen("true"); + } + for (k = 0; ukeys[k] && strcmp(ukeys[k], q); k++); + switch (k) { + case K_UNIT__PT: u *= 72.0 / 72.27; break; + case K_UNIT__IN: u *= 72.0; break; + case K_UNIT__CM: u *= 72.0 / 2.54 ; break; + case K_UNIT__MM: u *= 72.0 / 25.4 ; break; + case K_UNIT__BP: u *= 1.0 ; break; + default: + spc_warn(spe, "Unknown unit of measure: %s", q); + error = -1; + break; + } + RELEASE(q); + } + + *vp = v * u; + return error; +} + + +/* + * Compute a transformation matrix + * transformations are applied in the following + * order: scaling, rotate, displacement. + */ +static void +make_transmatrix (pdf_tmatrix *M, + double xoffset, double yoffset, + double xscale, double yscale, + double rotate) +{ + double c, s; + + c = cos(rotate); + s = sin(rotate); + + M->a = xscale * c; M->b = xscale * s; + M->c = -yscale * s; M->d = yscale * c; + M->e = xoffset; M->f = yoffset; +} + +static int +spc_read_dimtrns_dvips (struct spc_env *spe, transform_info *t, struct spc_arg *ap) +{ + static const char *_dtkeys[] = { +#define K_TRN__HOFFSET 0 +#define K_TRN__VOFFSET 1 + "hoffset", "voffset", +#define K_DIM__HSIZE 2 +#define K_DIM__VSIZE 3 + "hsize", "vsize", +#define K_TRN__HSCALE 4 +#define K_TRN__VSCALE 5 + "hscale", "vscale", +#define K_TRN__ANGLE 6 + "angle", +#define K__CLIP 7 + "clip", +#define K_DIM__LLX 8 +#define K_DIM__LLY 9 +#define K_DIM__URX 10 +#define K_DIM__URY 11 + "llx", "lly", "urx", "ury", +#define K_DIM__RWI 12 +#define K_DIM__RHI 13 + "rwi", "rhi", + NULL + }; + double xoffset, yoffset, xscale, yscale, rotate; + int error = 0; + + xoffset = yoffset = rotate = 0.0; xscale = yscale = 1.0; + + skip_blank(&ap->curptr, ap->endptr); + while (!error && ap->curptr < ap->endptr) { + char *kp, *vp; + int k; + + kp = parse_c_ident(&ap->curptr, ap->endptr); + if (!kp) + break; + + for (k = 0; _dtkeys[k] && strcmp(kp, _dtkeys[k]); k++); + if (!_dtkeys[k]) { + spc_warn(spe, "Unrecognized dimension/transformation key: %s", kp); + error = -1; + RELEASE(kp); + break; + } + + skip_blank(&ap->curptr, ap->endptr); + if (k == K__CLIP) { + t->flags |= INFO_DO_CLIP; + RELEASE(kp); + continue; /* not key-value */ + } + + if (ap->curptr < ap->endptr && ap->curptr[0] == '=') { + ap->curptr++; + skip_blank(&ap->curptr, ap->endptr); + } + + vp = NULL; + if (ap->curptr[0] == '\'' || ap->curptr[0] == '\"') { + char qchr = ap->curptr[0]; + ap->curptr++; + skip_blank(&ap->curptr, ap->endptr); + vp = parse_float_decimal(&ap->curptr, ap->endptr); + skip_blank(&ap->curptr, ap->endptr); + if (vp && qchr != ap->curptr[0]) { + spc_warn(spe, "Syntax error in dimension/transformation specification."); + error = -1; + RELEASE(vp); vp = NULL; + } + ap->curptr++; + } else { + vp = parse_float_decimal(&ap->curptr, ap->endptr); + } + if (!error && !vp) { + spc_warn(spe, "Missing value for dimension/transformation: %s", kp); + error = -1; + } + + if (!vp || error) { + RELEASE(kp); + break; + } + + switch (k) { + case K_TRN__HOFFSET: + xoffset = atof(vp); + break; + case K_TRN__VOFFSET: + yoffset = atof(vp); + break; + case K_DIM__HSIZE: + t->width = atof(vp); + t->flags |= INFO_HAS_WIDTH; + break; + case K_DIM__VSIZE: + t->height = atof(vp); + t->flags |= INFO_HAS_HEIGHT; + break; + case K_TRN__HSCALE: + xscale = atof(vp) / 100.0; + break; + case K_TRN__VSCALE: + yscale = atof(vp) / 100.0; + break; + case K_TRN__ANGLE: + rotate = M_PI * atof(vp) / 180.0; + break; + case K_DIM__LLX: + t->bbox.llx = atof(vp); + t->flags |= INFO_HAS_USER_BBOX; + break; + case K_DIM__LLY: + t->bbox.lly = atof(vp); + t->flags |= INFO_HAS_USER_BBOX; + break; + case K_DIM__URX: + t->bbox.urx = atof(vp); + t->flags |= INFO_HAS_USER_BBOX; + break; + case K_DIM__URY: + t->bbox.ury = atof(vp); + t->flags |= INFO_HAS_USER_BBOX; + break; + case K_DIM__RWI: + t->width = atof(vp) / 10.0; + t->flags |= INFO_HAS_WIDTH; + break; + case K_DIM__RHI: + t->height = atof(vp) / 10.0; + t->flags |= INFO_HAS_HEIGHT; + break; + } + skip_blank(&ap->curptr, ap->endptr); + RELEASE(vp); + } + make_transmatrix(&(t->matrix), xoffset, yoffset, xscale, yscale, rotate); + + return error; +} + + +static int +spc_read_dimtrns_pdfm (struct spc_env *spe, transform_info *p, struct spc_arg *ap) +{ + int has_scale, has_xscale, has_yscale, has_rotate, has_matrix; + const char *_dtkeys[] = { +#define K_DIM__WIDTH 0 +#define K_DIM__HEIGHT 1 +#define K_DIM__DEPTH 2 + "width", "height", "depth", +#define K_TRN__SCALE 3 +#define K_TRN__XSCALE 4 +#define K_TRN__YSCALE 5 +#define K_TRN__ROTATE 6 + "scale", "xscale", "yscale", "rotate", +#define K_TRN__BBOX 7 + "bbox", /* See "Dvipdfmx User's Manual", p.5 */ +#define K_TRN__MATRIX 8 + "matrix", + NULL + }; + double xscale, yscale, rotate; + int error = 0; + + has_xscale = has_yscale = has_scale = has_rotate = has_matrix = 0; + xscale = yscale = 1.0; rotate = 0.0; + + skip_blank(&ap->curptr, ap->endptr); + + while (!error && ap->curptr < ap->endptr) { + char *kp, *vp; + int k; + + kp = parse_c_ident(&ap->curptr, ap->endptr); + if (!kp) + break; + + skip_blank(&ap->curptr, ap->endptr); + for (k = 0; _dtkeys[k] && strcmp(_dtkeys[k], kp); k++); + switch (k) { + case K_DIM__WIDTH: + error = spc_util_read_length(spe, &p->width , ap); + p->flags |= INFO_HAS_WIDTH; + break; + case K_DIM__HEIGHT: + error = spc_util_read_length(spe, &p->height, ap); + p->flags |= INFO_HAS_HEIGHT; + break; + case K_DIM__DEPTH: + error = spc_util_read_length(spe, &p->depth , ap); + p->flags |= INFO_HAS_HEIGHT; + break; + case K_TRN__SCALE: + vp = parse_float_decimal(&ap->curptr, ap->endptr); + if (!vp) + error = -1; + else { + xscale = yscale = atof(vp); + has_scale = 1; + RELEASE(vp); + } + break; + case K_TRN__XSCALE: + vp = parse_float_decimal(&ap->curptr, ap->endptr); + if (!vp) + error = -1; + else { + xscale = atof(vp); + has_xscale = 1; + RELEASE(vp); + } + break; + case K_TRN__YSCALE: + vp = parse_float_decimal(&ap->curptr, ap->endptr); + if (!vp) + error = -1; + else { + yscale = atof(vp); + has_yscale = 1; + RELEASE(vp); + } + break; + case K_TRN__ROTATE: + vp = parse_float_decimal(&ap->curptr, ap->endptr); + if (!vp) + error = -1; + else { + rotate = M_PI * atof(vp) / 180.0; + has_rotate = 1; + RELEASE(vp); + } + break; + case K_TRN__BBOX: + { + double v[4]; + if (spc_util_read_numbers(v, 4, spe, ap) != 4) + error = -1; + else { + p->bbox.llx = v[0]; + p->bbox.lly = v[1]; + p->bbox.urx = v[2]; + p->bbox.ury = v[3]; + p->flags |= INFO_HAS_USER_BBOX; + p->flags |= INFO_DO_CLIP; /* always clip */ + } + } + break; + case K_TRN__MATRIX: + { + double v[6]; + if (spc_util_read_numbers(v, 6, spe, ap) != 6) + error = -1; + else { + pdf_setmatrix(&(p->matrix), v[0], v[1], v[2], v[3], v[4], v[5]); + has_matrix = 1; + } + } + break; + default: + error = -1; + break; + } + if (error) + spc_warn(spe, "Unrecognized key or invalid value for dimension/transformation: %s", kp); + else + skip_blank(&ap->curptr, ap->endptr); + RELEASE(kp); + } + + if (!error) { + /* Check consistency */ + if (has_xscale && (p->flags & INFO_HAS_WIDTH)) { + spc_warn(spe, "Can't supply both width and xscale. Ignore xscale."); + xscale = 1.0; + } else if (has_yscale && + (p->flags & INFO_HAS_HEIGHT)) { + spc_warn(spe, "Can't supply both height/depth and yscale. Ignore yscale."); + yscale = 1.0; + } else if (has_scale && + (has_xscale || has_yscale)) { + spc_warn(spe, "Can't supply overall scale along with axis scales."); + error = -1; + } else if (has_matrix && + (has_scale || has_xscale || has_yscale || has_rotate)) { + spc_warn(spe, "Can't supply transform matrix along with scales or rotate. Ignore scales and rotate."); + } + } + + if (!has_matrix) { + make_transmatrix(&(p->matrix), 0.0, 0.0, xscale, yscale, rotate); + } + + return error; +} + +int +spc_util_read_dimtrns (struct spc_env *spe, transform_info *ti, struct spc_arg *args, int syntax) +{ + ASSERT(ti && spe && args); + + if (syntax) { + return spc_read_dimtrns_dvips(spe, ti, args); + } else { + return spc_read_dimtrns_pdfm (spe, ti, args); + } + + return -1; +} + + +/* Color names */ +#ifdef rgb +#undef rgb +#endif +#ifdef cmyk +#undef cmyk +#endif +#define rgb8(r,g,b) {3, {((r)/255.0), ((g)/255.0), ((b)/255.0), 0.0}} +#define cmyk(c,m,y,k) {4, {(c), (m), (y), (k)}} + +static struct colordef_ +{ + const char *key; + pdf_color color; +} colordefs[] = { + {"GreenYellow", cmyk(0.15, 0.00, 0.69, 0.00)}, + {"Yellow", cmyk(0.00, 0.00, 1.00, 0.00)}, + {"Goldenrod", cmyk(0.00, 0.10, 0.84, 0.00)}, + {"Dandelion", cmyk(0.00, 0.29, 0.84, 0.00)}, + {"Apricot", cmyk(0.00, 0.32, 0.52, 0.00)}, + {"Peach", cmyk(0.00, 0.50, 0.70, 0.00)}, + {"Melon", cmyk(0.00, 0.46, 0.50, 0.00)}, + {"YellowOrange", cmyk(0.00, 0.42, 1.00, 0.00)}, + {"Orange", cmyk(0.00, 0.61, 0.87, 0.00)}, + {"BurntOrange", cmyk(0.00, 0.51, 1.00, 0.00)}, + {"Bittersweet", cmyk(0.00, 0.75, 1.00, 0.24)}, + {"RedOrange", cmyk(0.00, 0.77, 0.87, 0.00)}, + {"Mahogany", cmyk(0.00, 0.85, 0.87, 0.35)}, + {"Maroon", cmyk(0.00, 0.87, 0.68, 0.32)}, + {"BrickRed", cmyk(0.00, 0.89, 0.94, 0.28)}, + {"Red", cmyk(0.00, 1.00, 1.00, 0.00)}, + {"OrangeRed", cmyk(0.00, 1.00, 0.50, 0.00)}, + {"RubineRed", cmyk(0.00, 1.00, 0.13, 0.00)}, + {"WildStrawberry", cmyk(0.00, 0.96, 0.39, 0.00)}, + {"Salmon", cmyk(0.00, 0.53, 0.38, 0.00)}, + {"CarnationPink", cmyk(0.00, 0.63, 0.00, 0.00)}, + {"Magenta", cmyk(0.00, 1.00, 0.00, 0.00)}, + {"VioletRed", cmyk(0.00, 0.81, 0.00, 0.00)}, + {"Rhodamine", cmyk(0.00, 0.82, 0.00, 0.00)}, + {"Mulberry", cmyk(0.34, 0.90, 0.00, 0.02)}, + {"RedViolet", cmyk(0.07, 0.90, 0.00, 0.34)}, + {"Fuchsia", cmyk(0.47, 0.91, 0.00, 0.08)}, + {"Lavender", cmyk(0.00, 0.48, 0.00, 0.00)}, + {"Thistle", cmyk(0.12, 0.59, 0.00, 0.00)}, + {"Orchid", cmyk(0.32, 0.64, 0.00, 0.00)}, + {"DarkOrchid", cmyk(0.40, 0.80, 0.20, 0.00)}, + {"Purple", cmyk(0.45, 0.86, 0.00, 0.00)}, + {"Plum", cmyk(0.50, 1.00, 0.00, 0.00)}, + {"Violet", cmyk(0.79, 0.88, 0.00, 0.00)}, + {"RoyalPurple", cmyk(0.75, 0.90, 0.00, 0.00)}, + {"BlueViolet", cmyk(0.86, 0.91, 0.00, 0.04)}, + {"Periwinkle", cmyk(0.57, 0.55, 0.00, 0.00)}, + {"CadetBlue", cmyk(0.62, 0.57, 0.23, 0.00)}, + {"CornflowerBlue", cmyk(0.65, 0.13, 0.00, 0.00)}, + {"MidnightBlue", cmyk(0.98, 0.13, 0.00, 0.43)}, + {"NavyBlue", cmyk(0.94, 0.54, 0.00, 0.00)}, + {"RoyalBlue", cmyk(1.00, 0.50, 0.00, 0.00)}, + {"Blue", cmyk(1.00, 1.00, 0.00, 0.00)}, + {"Cerulean", cmyk(0.94, 0.11, 0.00, 0.00)}, + {"Cyan", cmyk(1.00, 0.00, 0.00, 0.00)}, + {"ProcessBlue", cmyk(0.96, 0.00, 0.00, 0.00)}, + {"SkyBlue", cmyk(0.62, 0.00, 0.12, 0.00)}, + {"Turquoise", cmyk(0.85, 0.00, 0.20, 0.00)}, + {"TealBlue", cmyk(0.86, 0.00, 0.34, 0.02)}, + {"Aquamarine", cmyk(0.82, 0.00, 0.30, 0.00)}, + {"BlueGreen", cmyk(0.85, 0.00, 0.33, 0.00)}, + {"Emerald", cmyk(1.00, 0.00, 0.50, 0.00)}, + {"JungleGreen", cmyk(0.99, 0.00, 0.52, 0.00)}, + {"SeaGreen", cmyk(0.69, 0.00, 0.50, 0.00)}, + {"Green", cmyk(1.00, 0.00, 1.00, 0.00)}, + {"ForestGreen", cmyk(0.91, 0.00, 0.88, 0.12)}, + {"PineGreen", cmyk(0.92, 0.00, 0.59, 0.25)}, + {"LimeGreen", cmyk(0.50, 0.00, 1.00, 0.00)}, + {"YellowGreen", cmyk(0.44, 0.00, 0.74, 0.00)}, + {"SpringGreen", cmyk(0.26, 0.00, 0.76, 0.00)}, + {"OliveGreen", cmyk(0.64, 0.00, 0.95, 0.40)}, + {"RawSienna", cmyk(0.00, 0.72, 1.00, 0.45)}, + {"Sepia", cmyk(0.00, 0.83, 1.00, 0.70)}, + {"Brown", cmyk(0.00, 0.81, 1.00, 0.60)}, + {"Tan", cmyk(0.14, 0.42, 0.56, 0.00)}, + {"Gray", cmyk(0.00, 0.00, 0.00, 0.50)}, + {"Black", cmyk(0.00, 0.00, 0.00, 1.00)}, + {"White", cmyk(0.00, 0.00, 0.00, 0.00)}, + {NULL} +}; + + +static int +pdf_color_namedcolor (pdf_color *color, const char *name) +{ + int i; + for (i = 0; colordefs[i].key; i++) { + if (!strcmp(colordefs[i].key, name)) { + pdf_color_copycolor(color, &colordefs[i].color); + return 0; + } + } + return -1; +} + diff --git a/Build/source/texk/xdvipdfmx/src/spc_util.h b/Build/source/texk/xdvipdfmx/src/spc_util.h new file mode 100644 index 00000000000..1c0bbc01119 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_util.h @@ -0,0 +1,44 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/spc_util.h,v 1.4 2005/07/30 11:44:18 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_UTIL_H_ +#define _SPC_UTIL_H_ + +#include "pdfcolor.h" +#include "pdfdev.h" + +#include "specials.h" + +/* syntax 1: ((rgb|cmyk|hsb|gray) colorvalues)|colorname + * syntax 0: pdf_number|pdf_array + * + * This is for reading *single* color specification. + */ +extern int spc_util_read_colorspec (struct spc_env *spe, pdf_color *colorspec, struct spc_arg *args, int syntax); +extern int spc_util_read_dimtrns (struct spc_env *spe, transform_info *dimtrns, struct spc_arg *args, int syntax); +extern int spc_util_read_length (struct spc_env *spe, double *length, struct spc_arg *ap); + +extern int spc_util_read_numbers (double *values, int num_values, struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_UTIL_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/spc_xtx.c b/Build/source/texk/xdvipdfmx/src/spc_xtx.c new file mode 100644 index 00000000000..8a7c4495d31 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_xtx.c @@ -0,0 +1,377 @@ +/* + This is xdvipdfmx, an extended version of dvipdfmx, + an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (c) 2006 SIL International + Written by Jonathan Kew + + This file based on spc_pdfm.c, part of the dvipdfmx project: + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "mfileio.h" + +#include "numbers.h" + +#include "fontmap.h" +#include "dpxutil.h" + +#include "pdfobj.h" +#include "pdfparse.h" + +#include "pdfdoc.h" + +#include "pdfdraw.h" +#include "pdfcolor.h" +#include "pdfdev.h" + +#include "specials.h" + +#include "spc_util.h" +#include "spc_xtx.h" + + +int +spc_xtx_at_begin_document (void) +{ + return 0; +} + +int +spc_xtx_at_end_document (void) +{ + return 0; +} + +int +spc_xtx_at_begin_page (void) +{ + return 0; +} + +int +spc_xtx_at_end_page (void) +{ + return 0; +} + +static int +spc_handler_xtx_scale (struct spc_env *spe, struct spc_arg *args) +{ + pdf_tmatrix M = { 0, 0, 0, 0, 0, 0 }; + double values[2]; + + if (spc_util_read_numbers(&values[0], 2, spe, args) < 2) { + return -1; + } + + /* Create transformation matrix */ + M.a = values[0]; + M.d = values[1]; + M.e = ((1.0 - M.a) * spe->x_user - M.c * spe->y_user); + M.f = ((1.0 - M.d) * spe->y_user - M.b * spe->x_user); + + pdf_dev_concat(&M); + + return 0; +} + +static int +spc_handler_xtx_rotate (struct spc_env *spe, struct spc_arg *args) +{ + pdf_tmatrix M = { 0, 0, 0, 0, 0, 0 }; + double value; + + if (spc_util_read_numbers(&value, 1, spe, args) < 1) { + return -1; + } + + /* Create transformation matrix */ + M.a = cos(value * M_PI / 180); + M.b = sin(value * M_PI / 180); + M.c = -M.b; + M.d = M.a; + M.e = ((1.0 - M.a) * spe->x_user - M.c * spe->y_user); + M.f = ((1.0 - M.d) * spe->y_user - M.b * spe->x_user); + + pdf_dev_concat(&M); + + return 0; +} + +static int +spc_handler_xtx_gsave (struct spc_env *spe, struct spc_arg *args) +{ + pdf_dev_gsave(); + + return 0; +} + +static int +spc_handler_xtx_grestore (struct spc_env *spe, struct spc_arg *args) +{ + pdf_dev_grestore(); + + /* + * Unfortunately, the following line is necessary in case + * of a font or color change inside of the save/restore pair. + * Anything that was done there must be redone, so in effect, + * we make no assumptions about what fonts. We act like we are + * starting a new page. + */ + pdf_dev_reset(); + + return 0; +} + +/* Please remove this. + * This should be handled before processing pages! + */ +static int +spc_handler_xtx_papersize (struct spc_env *spe, struct spc_arg *args) +{ + return 0; +} + +static int +spc_handler_xtx_backgroundcolor (struct spc_env *spe, struct spc_arg *args) +{ + int error; + pdf_color colorspec; + + error = spc_util_read_colorspec(spe, &colorspec, args, 0); + if (error) + spc_warn(spe, "No valid color specified?"); + else { + pdf_doc_set_bgcolor(&colorspec); + } + + return error; +} + +/* FIXME: xdv2pdf's x:fontmapline and x:fontmapfile may have slightly different syntax/semantics */ +static int +spc_handler_xtx_fontmapline (struct spc_env *spe, struct spc_arg *ap) +{ + fontmap_rec *mrec; + char *map_name, opchr; + int error = 0; + + skip_white(&ap->curptr, ap->endptr); + if (ap->curptr >= ap->endptr) { + spc_warn(spe, "Empty fontmapline special?"); + return -1; + } + + opchr = ap->curptr[0]; + if (opchr == '-' || opchr == '+') + ap->curptr++; + + skip_white(&ap->curptr, ap->endptr); + + switch (opchr) { + case '-': + map_name = parse_ident(&ap->curptr, ap->endptr); + if (map_name) { + pdf_remove_fontmap_record(map_name); + RELEASE(map_name); + } else { + spc_warn(spe, "Invalid fontmap line: Missing TFM name."); + error = -1; + } + break; + case '+': + mrec = NEW(1, fontmap_rec); + pdf_init_fontmap_record(mrec); + error = pdf_read_fontmap_line(mrec, ap->curptr, (long) (ap->endptr - ap->curptr)); + if (error) + spc_warn(spe, "Invalid fontmap line."); + else { + pdf_append_fontmap_record(mrec->map_name, mrec); + } + pdf_clear_fontmap_record(mrec); + RELEASE(mrec); + break; + default: + mrec = NEW(1, fontmap_rec); + pdf_init_fontmap_record(mrec); + error = pdf_read_fontmap_line(mrec, ap->curptr, (long) (ap->endptr - ap->curptr)); + if (error) + spc_warn(spe, "Invalid fontmap line."); + else { + pdf_insert_fontmap_record(mrec->map_name, mrec); + } + pdf_clear_fontmap_record(mrec); + RELEASE(mrec); + break; + } + if (!error) + ap->curptr = ap->endptr; + + return 0; +} + +static int +spc_handler_xtx_fontmapfile (struct spc_env *spe, struct spc_arg *args) +{ + char *mapfile; + int mode, error = 0; + + skip_white(&args->curptr, args->endptr); + if (args->curptr >= args->endptr) + return 0; + + switch (args->curptr[0]) { + case '-': + mode = FONTMAP_RMODE_REMOVE; + args->curptr++; + break; + case '+': + mode = FONTMAP_RMODE_APPEND; + args->curptr++; + break; + default: + mode = FONTMAP_RMODE_REPLACE; + break; + } + + mapfile = parse_val_ident(&args->curptr, args->endptr); + if (!mapfile) { + spc_warn(spe, "No fontmap file specified."); + return -1; + } else { + error = pdf_load_fontmap_file(mapfile, mode); + } + + return error; +} + +static int +spc_handler_xtx_unsupportedcolor (struct spc_env *spe, struct spc_arg *args) +{ + spc_warn(spe, "xetex-style \\special{x:%s} is not supported by this driver;\n" + "update document or driver to use \\special{color} instead.", args->command); + + args->curptr = args->endptr; + + return 0; +} + +static int +spc_handler_xtx_unsupported (struct spc_env *spe, struct spc_arg *args) +{ + spc_warn(spe, "xetex-style \\special{x:%s} is not supported by this driver.", args->command); + + args->curptr = args->endptr; + + return 0; +} + +static struct spc_handler xtx_handlers[] = { + {"textcolor", spc_handler_xtx_unsupportedcolor}, + {"textcolorpush", spc_handler_xtx_unsupportedcolor}, + {"textcolorpop", spc_handler_xtx_unsupportedcolor}, + + {"rulecolor", spc_handler_xtx_unsupportedcolor}, + {"rulecolorpush", spc_handler_xtx_unsupportedcolor}, + {"rulecolorpop", spc_handler_xtx_unsupportedcolor}, + + {"papersize", spc_handler_xtx_papersize}, + {"backgroundcolor", spc_handler_xtx_backgroundcolor}, + + {"gsave", spc_handler_xtx_gsave}, + {"grestore", spc_handler_xtx_grestore}, + + {"scale", spc_handler_xtx_scale}, + {"rotate", spc_handler_xtx_rotate}, + + {"fontmapline", spc_handler_xtx_fontmapline}, + {"fontmapfile", spc_handler_xtx_fontmapfile}, + + {"shadow", spc_handler_xtx_unsupported}, + {"colorshadow", spc_handler_xtx_unsupported}, +}; + +int +spc_xtx_check_special (const char *buf, long len) +{ + int r = 0; + char *p, *endptr; + + p = (char *) buf; + endptr = p + len; + + skip_white(&p, endptr); + if (p + strlen("x:") <= endptr && + !memcmp(p, "x:", strlen("x:"))) { + r = 1; + } + + return r; +} + +int +spc_xtx_setup_handler (struct spc_handler *sph, + struct spc_env *spe, struct spc_arg *ap) +{ + int error = -1, i; + char *q; + + ASSERT(sph && spe && ap); + + skip_white(&ap->curptr, ap->endptr); + if (ap->curptr + strlen("x:") >= ap->endptr || + memcmp(ap->curptr, "x:", strlen("x:"))) { + spc_warn(spe, "Not x: special???"); + return -1; + } + ap->curptr += strlen("x:"); + + skip_white(&ap->curptr, ap->endptr); + q = parse_c_ident(&ap->curptr, ap->endptr); + if (q) { + for (i = 0; + i < sizeof(xtx_handlers) / sizeof(struct spc_handler); i++) { + if (!strcmp(q, xtx_handlers[i].key)) { + ap->command = (char *) xtx_handlers[i].key; + sph->key = (char *) "x:"; + sph->exec = xtx_handlers[i].exec; + skip_white(&ap->curptr, ap->endptr); + error = 0; + break; + } + } + RELEASE(q); + } + + return error; +} + diff --git a/Build/source/texk/xdvipdfmx/src/spc_xtx.h b/Build/source/texk/xdvipdfmx/src/spc_xtx.h new file mode 100644 index 00000000000..c47ce06cf63 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/spc_xtx.h @@ -0,0 +1,42 @@ +/* + This is xdvipdfmx, an extended version of dvipdfmx, + an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (c) 2006 SIL International + Written by Jonathan Kew + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPC_XTX_H_ +#define _SPC_XTX_H_ + +#include "specials.h" + +extern int spc_xtx_at_begin_page (void); +extern int spc_xtx_at_end_page (void); +extern int spc_xtx_at_begin_document (void); +extern int spc_xtx_at_end_document (void); + +extern int spc_xtx_check_special (const char *buffer, long size); +extern int spc_xtx_setup_handler (struct spc_handler *handle, + struct spc_env *spe, struct spc_arg *args); + +#endif /* _SPC_XTX_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/specials.c b/Build/source/texk/xdvipdfmx/src/specials.c new file mode 100644 index 00000000000..ca8d3beeb1e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/specials.c @@ -0,0 +1,605 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/specials.c,v 1.9 2005/08/15 16:40:10 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "numbers.h" + +#include "dvi.h" + +#include "pdfobj.h" +#include "pdfparse.h" +#include "pdfdoc.h" +#include "pdfnames.h" + +#include "pdfdraw.h" +#include "pdfdev.h" + +#include "spc_pdfm.h" +#include "spc_tpic.h" +#include "spc_html.h" +#include "spc_misc.h" +#include "spc_color.h" +#include "spc_dvips.h" +#include "spc_xtx.h" + +#include "specials.h" + +static int verbose = 0; +void +spc_set_verbose (void) +{ + verbose++; +} + + +void +spc_warn (struct spc_env *spe, const char *fmt, ...) +{ + va_list ap; + static char buf[1024]; + + va_start(ap, fmt); + + vsprintf(buf, fmt, ap); + WARN(buf); + + va_end(ap); + + return; +} + + +/* This is currently just to make other spc_xxx to not directly + * call dvi_xxx. + */ +int +spc_begin_annot (struct spc_env *spe, pdf_obj *dict) +{ + pdf_doc_begin_annot(dict); + dvi_tag_depth(); /* Tell dvi interpreter to handle line-break. */ + return 0; +} + +int +spc_end_annot (struct spc_env *spe) +{ + dvi_untag_depth(); + pdf_doc_end_annot(); + return 0; +} + +int +spc_resume_annot (struct spc_env *spe) +{ + dvi_link_annot(1); + return 0; +} + +int +spc_suspend_annot (struct spc_env *spe) +{ + dvi_link_annot(0); + return 0; +} + + + +static struct ht_table *named_objects = NULL; + +/* reserved keys */ +static const char *_rkeys[] = { +#define K_OBJ__XPOS 0 +#define K_OBJ__YPOS 1 + "xpos", "ypos", +#define K_OBJ__THISPAGE 2 +#define K_OBJ__PREVPAGE 3 +#define K_OBJ__NEXTPAGE 4 + "thispage", "prevpage", "nextpage", +#define K_OBJ__RESOURCES 5 + "resources", +#define K_OBJ__PAGES 6 +#define K_OBJ__NAMES 7 + "pages", "names", +#define K_OBJ__CATALOG 8 +#define K_OBJ__DOCINFO 9 + "catalog", "docinfo", +#if 0 +#define K_OBJ__TRAILER 10 + "trailer", +#endif /* NYI */ + NULL +}; + +/* pageN where N is a positive integer. + * Note that page need not exist at this time. + */ +static int +ispageref (const char *key) +{ + const char *p; + if (strlen(key) <= strlen("page") || + memcmp(key, "page", strlen("page"))) + return 0; + else { + for (p = key + 4; *p && *p >= '0' && *p <= '9'; p++); + if (*p != '\0') + return 0; + } + return 1; +} + +/* + * The following routine returns copies, not the original object. + */ +pdf_obj * +spc_lookup_reference (const char *key) +{ + pdf_obj *value = NULL; + pdf_coord cp; + int k; + + ASSERT(named_objects); + + if (!key) + return NULL; + + for (k = 0; _rkeys[k] && strcmp(key, _rkeys[k]); k++); + switch (k) { + /* xpos and ypos must be position in device space here. */ + case K_OBJ__XPOS: + cp.x = dvi_dev_xpos(); cp.y = 0.0; + pdf_dev_transform(&cp, NULL); + value = pdf_new_number(ROUND(cp.x, .01)); + break; + case K_OBJ__YPOS: + cp.x = 0.0; cp.y = dvi_dev_ypos(); + pdf_dev_transform(&cp, NULL); + value = pdf_new_number(ROUND(cp.y, .01)); + break; + case K_OBJ__THISPAGE: + value = pdf_doc_this_page_ref(); + break; + case K_OBJ__PREVPAGE: + value = pdf_doc_prev_page_ref(); + break; + case K_OBJ__NEXTPAGE: + value = pdf_doc_next_page_ref(); + break; + case K_OBJ__PAGES: + value = pdf_ref_obj(pdf_doc_page_tree()); + break; + case K_OBJ__NAMES: + value = pdf_ref_obj(pdf_doc_names()); + break; + case K_OBJ__RESOURCES: + value = pdf_ref_obj(pdf_doc_current_page_resources()); + break; + case K_OBJ__CATALOG: + value = pdf_ref_obj(pdf_doc_catalog()); + break; + case K_OBJ__DOCINFO: + value = pdf_ref_obj(pdf_doc_docinfo()); + break; + default: + if (ispageref(key)) + value = pdf_doc_ref_page(atoi(key + 4)); + else { + value = pdf_names_lookup_reference(named_objects, key, strlen(key)); + } + break; + } + + if (!value) { + ERROR("Object reference %s not exist.", key); + } + + return value; +} + +pdf_obj * +spc_lookup_object (const char *key) +{ + pdf_obj *value = NULL; + pdf_coord cp; + int k; + + ASSERT(named_objects); + + if (!key) + return NULL; + + for (k = 0; _rkeys[k] && strcmp(key, _rkeys[k]); k++); + switch (k) { + case K_OBJ__XPOS: + cp.x = dvi_dev_xpos(); cp.y = 0.0; + pdf_dev_transform(&cp, NULL); + value = pdf_new_number(ROUND(cp.x, .01)); + break; + case K_OBJ__YPOS: + cp.x = 0.0; cp.y = dvi_dev_ypos(); + pdf_dev_transform(&cp, NULL); + value = pdf_new_number(ROUND(cp.y, .01)); + break; + case K_OBJ__THISPAGE: + value = pdf_doc_this_page(); + break; + case K_OBJ__PAGES: + value = pdf_doc_page_tree(); + break; + case K_OBJ__NAMES: + value = pdf_doc_names(); + break; + case K_OBJ__RESOURCES: + value = pdf_doc_current_page_resources(); + break; + case K_OBJ__CATALOG: + value = pdf_doc_catalog(); + break; + case K_OBJ__DOCINFO: + value = pdf_doc_docinfo(); + break; + default: + value = pdf_names_lookup_object(named_objects, key, strlen(key)); + break; + } + +/* spc_handler_pdfm_bead() in spc_pdfm.c controls NULL too. + if (!value) { + ERROR("Object reference %s not exist.", key); + } +*/ + + return value; +} + +void +spc_push_object (const char *key, pdf_obj *value) +{ + int error = 0; + + if (!key || !value) + return; + + if (PDF_OBJ_INDIRECTTYPE(value)) { + pdf_names_add_reference(named_objects, + key, strlen(key), value); + } else { + error = pdf_names_add_object(named_objects, + key, strlen(key), value); + if (!error) { + /* _FIXME_: + * Objects created by pdf:obj must always + * be written to output regardless of if + * they are actually used in document. + */ + pdf_obj *obj_ref = pdf_names_lookup_reference(named_objects, + key, strlen(key)); + if (obj_ref) + pdf_release_obj(obj_ref); + } + } + + return; +} + +void +spc_flush_object (const char *key) +{ + pdf_names_close_object(named_objects, key, strlen(key)); +} + +void +spc_clear_objects (void) +{ + pdf_delete_name_tree(&named_objects); + named_objects = pdf_new_name_tree(); +} + + +static int +spc_handler_unknown (struct spc_env *spe, + struct spc_arg *args) +{ + ASSERT(spe && args); + + args->curptr = args->endptr; + + return -1; +} + +static void +init_special (struct spc_handler *special, + struct spc_env *spe, + struct spc_arg *args, + const char *p, long size, + double x_user, double y_user, double mag) +{ + + special->key = NULL; + special->exec = (spc_handler_fn_ptr) &spc_handler_unknown; + + spe->x_user = x_user; + spe->y_user = y_user; + spe->mag = mag; + spe->pg = pdf_doc_current_page_number(); /* _FIXME_ */ + + args->curptr = (char *) p; + args->endptr = args->curptr + size; + args->base = args->curptr; + + return; +} + +static void +check_garbage (struct spc_arg *args) +{ + ASSERT(args); + + if (args->curptr >= args->endptr) + return; + + skip_white(&args->curptr, args->endptr); + if (args->curptr < args->endptr) { + WARN("Unparsed material at end of special ignored."); + dump(args->curptr, args->endptr); + } + + return; +} + +static struct { + const char *key; + int (*bodhk_func) (); + int (*eodhk_func) (); + int (*bophk_func) (); + int (*eophk_func) (); + int (*check_func) (const char *, long); + int (*setup_func) (struct spc_handler *, struct spc_env *, struct spc_arg *); +} known_specials[] = { + + {"pdf:", + spc_pdfm_at_begin_document, + spc_pdfm_at_end_document, + spc_pdfm_at_begin_page, + spc_pdfm_at_end_page, + spc_pdfm_check_special, + spc_pdfm_setup_handler + }, + + {"x:", + spc_xtx_at_begin_document, + spc_xtx_at_end_document, + spc_xtx_at_begin_page, + spc_xtx_at_end_page, + spc_xtx_check_special, + spc_xtx_setup_handler + }, + + {"ps:", + spc_dvips_at_begin_document, + spc_dvips_at_end_document, + spc_dvips_at_begin_page, + spc_dvips_at_end_page, + spc_dvips_check_special, + spc_dvips_setup_handler + }, + + {"color", + spc_color_at_begin_document, + spc_color_at_end_document, + spc_color_at_begin_page, + spc_color_at_end_page, + spc_color_check_special, + spc_color_setup_handler + }, + + {"tpic", + spc_tpic_at_begin_document, + spc_tpic_at_end_document, + spc_tpic_at_begin_page, + spc_tpic_at_end_page, + spc_tpic_check_special, + spc_tpic_setup_handler + }, + + {"html:", + spc_html_at_begin_document, + spc_html_at_end_document, + spc_html_at_begin_page, + spc_html_at_end_page, + spc_html_check_special, + spc_html_setup_handler + }, + + {"unknown", + spc_misc_at_begin_document, + spc_misc_at_end_document, + spc_misc_at_begin_page, + spc_misc_at_end_page, + spc_misc_check_special, + spc_misc_setup_handler + }, + + {NULL} /* end */ +}; + +int +spc_exec_at_begin_page (void) +{ + int error = 0; + int i; + + for (i = 0; known_specials[i].key != NULL; i++) { + if (known_specials[i].bophk_func) { + error = known_specials[i].bophk_func(); + } + } + + return error; +} + +int +spc_exec_at_end_page (void) +{ + int error = 0; + int i; + + for (i = 0; known_specials[i].key != NULL; i++) { + if (known_specials[i].eophk_func) { + error = known_specials[i].eophk_func(); + } + } + + return error; +} + +int +spc_exec_at_begin_document (void) +{ + int error = 0; + int i; + + ASSERT(!named_objects); + + named_objects = pdf_new_name_tree(); + + for (i = 0; known_specials[i].key != NULL; i++) { + if (known_specials[i].bodhk_func) { + error = known_specials[i].bodhk_func(); + } + } + + return error; +} + +int +spc_exec_at_end_document (void) +{ + int error = 0; + int i; + + for (i = 0; known_specials[i].key != NULL; i++) { + if (known_specials[i].eodhk_func) { + error = known_specials[i].eodhk_func(); + } + } + + if (named_objects) { + pdf_delete_name_tree(&named_objects); + } + + return error; +} + +static void +print_error (const char *name, struct spc_env *spe, struct spc_arg *ap) +{ + char *p, ebuf[64]; + int i; + long pg = spe->pg; + pdf_coord c; + + c.x = spe->x_user; c.y = spe->y_user; + pdf_dev_transform(&c, NULL); + + WARN("Interpreting special command %s (%s) failed.", ap->command, name); + WARN(">> at page=\"%ld\" position=\"(%g, %g)\" (in PDF)", pg, c.x, c.y); + for (i = 0, p = ap->base; i < 63 && p < ap->endptr; p++) { + if (isprint(*p)) + ebuf[i++] = *p; + else if (i + 4 < 63) + i += sprintf(ebuf + i, "\\x%02x", *p); + else + break; + } + ebuf[i] = '\0'; + if (ap->curptr < ap->endptr) { + while (i-- > 60) + ebuf[i] = '.'; + } + WARN(">> xxx \"%s\"", ebuf); + + if (ap->curptr < ap->endptr) { + for (i = 0, p = ap->curptr; i < 63 && p < ap->endptr; p++) { + if (isprint(*p)) + ebuf[i++] = *p; + else if (i + 4 < 63) + i += sprintf(ebuf + i, "\\x%02x", *p); + else + break; + } + ebuf[i] = '\0'; + if (ap->curptr < ap->endptr) { + while (i-- > 60) + ebuf[i] = '.'; + } + WARN(">> Reading special command stopped around >>%s<<", ebuf); + + ap->curptr = ap->endptr; + } +} + +int +spc_exec_special (const char *buffer, long size, + double x_user, double y_user, double mag) +{ + int error = -1; + int i, found; + struct spc_env spe; + struct spc_arg args; + struct spc_handler special; + + if (verbose > 3) { + dump((char *) buffer, (char *) buffer + size); + } + + init_special(&special, &spe, &args, buffer, size, x_user, y_user, mag); + + for (i = 0; known_specials[i].key != NULL; i++) { + found = known_specials[i].check_func(buffer, size); + if (found) { + error = known_specials[i].setup_func(&special, &spe, &args); + if (!error) { + error = special.exec(&spe, &args); + } + if (error) { + print_error(known_specials[i].key, &spe, &args); + } + break; + } + } + + check_garbage(&args); + + return error; +} + diff --git a/Build/source/texk/xdvipdfmx/src/specials.h b/Build/source/texk/xdvipdfmx/src/specials.h new file mode 100644 index 00000000000..a52570ae31d --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/specials.h @@ -0,0 +1,78 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/specials.h,v 1.3 2005/07/31 16:44:42 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SPECIALS_H_ +#define _SPECIALS_H_ + +struct spc_env { + double x_user, y_user; + double mag; + long pg; /* current page in PDF */ +}; + +struct spc_arg { + char *curptr; + char *endptr; + char *base; + + char *command; +}; + +typedef int (*spc_handler_fn_ptr) (struct spc_env *, struct spc_arg *); + +struct spc_handler { + const char *key; + spc_handler_fn_ptr exec; +} spc_handler; + +/* This should not use pdf_. */ +extern void spc_set_verbose (void); + +#include +extern void spc_warn (struct spc_env *spe, const char *fmt, ...); + +#include "pdfobj.h" +/* PDF parser shouldn't depend on this... + */ +extern pdf_obj *spc_lookup_reference (const char *ident); +extern pdf_obj *spc_lookup_object (const char *ident); + +extern int spc_begin_annot (struct spc_env *spe, pdf_obj *annot_dict); +extern int spc_end_annot (struct spc_env *spe); +extern int spc_resume_annot (struct spc_env *spe); +extern int spc_suspend_annot (struct spc_env *spe); + +extern void spc_push_object (const char *key, pdf_obj *value); +extern void spc_flush_object (const char *key); +extern void spc_clear_objects (void); + +extern int spc_exec_at_begin_page (void); +extern int spc_exec_at_end_page (void); +extern int spc_exec_at_begin_document (void); +extern int spc_exec_at_end_document (void); + +extern int spc_exec_special (const char *p, long size, + double x_user, double y_user, double mag); + +#endif /* _SPECIALS_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/subfont.c b/Build/source/texk/xdvipdfmx/src/subfont.c new file mode 100644 index 00000000000..7d7927e36b5 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/subfont.c @@ -0,0 +1,654 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/subfont.c,v 1.20 2005/07/28 13:19:00 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxfile.h" + +#include "subfont.h" + +static int verbose = 0; +void +subfont_set_verbose (void) +{ + verbose++; +} + +/* Don't forget fontmap reading now requires information + * from SFD files. You must initialize at least sfd_file_ + * cache before starting loading of fontmaps. + */ + +/* Subfont Definition File: + * struct sfd_file_ is for storing subfont identifiers + * contained in a SFD file and for mapping string pair + * to internal code mapping table + * ID which is index within an array of struct sfd_rec_. + * We store code mapping tables in different place than + * struct sfd_file_. + */ +struct sfd_file_ +{ + char *ident; /* SFD file name */ + char **sub_id; /* Subfont IDs */ + + int *rec_id; /* indices within struct sfd_rec_ array "sfd_record" */ + + int max_subfonts; + int num_subfonts; +}; + +/* Mapping table */ +struct sfd_rec_ +{ + /* unsigned char misbit[32]; */ + unsigned short vector[256]; /* 0 for undefined */ +}; + +static void +init_sfd_file_ (struct sfd_file_ *sfd) +{ + sfd->ident = NULL; + sfd->sub_id = NULL; + sfd->rec_id = NULL; + sfd->max_subfonts = sfd->num_subfonts = 0; +} + +static void +clean_sfd_file_ (struct sfd_file_ *sfd) +{ + int i; + if (sfd->ident) + RELEASE(sfd->ident); + if (sfd->sub_id) { + for (i = 0; i < sfd->num_subfonts; i++) { + if (sfd->sub_id[i]) + RELEASE(sfd->sub_id[i]); + } + RELEASE(sfd->sub_id); + } + if (sfd->rec_id) + RELEASE(sfd->rec_id); + init_sfd_file_(sfd); +} + +static struct sfd_file_ *sfd_files = NULL; +static int num_sfd_files = 0, max_sfd_files = 0; + +static struct sfd_rec_ *sfd_record = NULL; +static int num_sfd_records = 0, max_sfd_records = 0; + + + +/* Another buffer... + * We want buffer size at least 7 x 256 + a + * 4096 is usually enough. + */ +#define LINE_BUF_SIZE 4096 +static char line_buf[LINE_BUF_SIZE]; + +/* Each lines describes character code mapping for each + * subfonts. '#' is start of comment. + * SFD file format uses a '\' before newline sequence + * for line-continuation. + */ +static char * +readline (char *buf, int buf_len, FILE *fp) +{ + char *r, *q, *p = buf; + int n = 0, c = 0; + + while (buf_len - n > 0 && (q = mfgets(p, buf_len - n, fp))) { + c++; + r = strchr(q, '#'); + /* Comment is converted to single wsp (followed by a newline). */ + if (r) { + *r = ' '; + *(r + 1) = '\0'; + } + if (strlen(q) == 0) + break; /* empty line */ + n += strlen(q); + q += strlen(q) - 1; + if (*q != '\\') + break; + else { /* line continued */ + n -= 1; + p = buf + n; + } + } + if (n >= buf_len - 1) { + WARN("Possible buffer overflow in reading SFD file (buffer full, size=%d bytes)", + buf_len - 1); + } + + return (c > 0 ? buf : NULL); +} + +#define clear_vector(v) if ((v)) { \ + int __i; \ + for (__i = 0; __i < 256; __i++) \ + (v)[__i] = 0; \ +} + +/* subfont_id ( integer ':' | integer '_' integer | integer )* + * + * 0x32: ==> Subsequent integers are place into slots starting at 0x32. + * 0x32: 0xA1A1 0xA1A2 ... ==> 0x32 is mappned to 0xA1A1, 0x33 to 0xA1A2 + * 0xA1A1_0xA1A5 ==> Expanded to 0xA1A1 0xA1A2 ... 0xA1A5 + */ + +/* subfont_id is already consumed here. */ +static int +read_sfd_record (struct sfd_rec_ *rec, const char *lbuf) +{ + char *p = (char *) lbuf, *q; + int repos = 0; + long c, v1 = 0, v2 = 0; + int curpos = 0; + int error = 0; + +#define IS_TOKSEP(c) ((c) == '\0' || isspace((c))) + for ( ; *p && isspace(*p); p++); + while (!error && *p) { + repos = 0; q = p; + v1 = strtol(p, &q, 0); + if (q == p || + (!IS_TOKSEP(*q) && *q != ':' && *q != '_')) { + WARN("Unknown token in subfont mapping table: %c", *q); + return -1; + } + + switch (*q) { + case ':': + if (v1 < 0 || v1 > 0xff) { + WARN("Invalud value for subfont table offset: %ld", v1); + return -1; + } + repos = 1; + q++; + break; + case '_': + p = q + 1; + v2 = strtol(p, &q, 0); + if (v1 < 0 || v1 > 0xffffL || + v2 < 0 || v2 > 0xffffL) { + WARN("Invalid value in subfont mapping table: 0x%x_0x%x", v1, v2); + return -1; + } else if (q == p || !IS_TOKSEP(*q)) { + WARN("Invalid char in subfont mapping table: %c", *q); + return -1; + } + break; + default: + if (v1 < 0 || v1 > 0xffffL) { + WARN("Invalid character code in subfont mapping table: 0x%x", v1); + return -1; + } + v2 = v1; + break; + } + + if (repos) + curpos = v1; + else { + if (v2 < v1 || curpos + (v2 - v1) > 0xff) { + WARN("Invalid range in subfont mapping: curpos=\"0x%02x\" range=\"0x%04x,0x%04x\"", + curpos, v1, v2); + return -1; + } + for (c = v1; c <= v2; c++) { + if (rec->vector[curpos] != 0) { + WARN("Subfont mapping for slot=\"0x%02x\" already defined...", curpos); + return -1; + } + ASSERT( curpos >= 0 && curpos <= 255 ); + rec->vector[curpos++] = (unsigned short) c; + } + } + for (p = q; *p && isspace(*p); p++); + } + + return error; +} + +/* Scan for subfont IDs */ +static int +scan_sfd_file (struct sfd_file_ *sfd, FILE *fp) +{ + char *id; + char *q, *p; + int n, lpos = 0; + + ASSERT( sfd && fp ); + + if (verbose > 3) { + MESG("\nsubfont>> Scanning SFD file \"%s\"...\n", sfd->ident); + } + + rewind(fp); + sfd->max_subfonts = sfd->num_subfonts = 0; + while ((p = readline(line_buf, LINE_BUF_SIZE, fp)) != NULL) { + lpos++; + for ( ; *p && isspace(*p); p++); + if (*p == 0) + continue; /* empty */ + + /* Saw non-wsp here */ + for (n = 0, q = p; *p && !isspace(*p); p++, n++); + id = NEW(n + 1, char); + memcpy(id, q, n); id[n] = '\0'; + if (sfd->num_subfonts >= sfd->max_subfonts) { + sfd->max_subfonts += 16; + sfd->sub_id = RENEW(sfd->sub_id, sfd->max_subfonts, char *); + } + + if (verbose > 3) { + MESG("subfont>> id=\"%s\" at line=\"%d\"\n", id, lpos); + } + sfd->sub_id[sfd->num_subfonts] = id; + sfd->num_subfonts++; + } + + sfd->rec_id = NEW(sfd->num_subfonts, int); + for (n = 0; n < sfd->num_subfonts; n++) { + sfd->rec_id[n] = -1; /* Not loaded yet. We do lazy loading of map definitions. */ + } + + if (verbose > 3) { + MESG("subfont>> %d entries found in SFD file \"%s\".\n", sfd->num_subfonts, sfd->ident); + } + + return 0; +} + + +/* Open SFD file and gather subfont IDs. We do not read mapping tables + * here but only read subfont IDs used in SFD file. + */ +static int +find_sfd_file (const char *sfd_name) +{ + int id = -1; + int i, error = -1; + + /* Check if we already opened SFD file */ + for (i = 0; i < num_sfd_files; i++) { + if (!strcmp(sfd_files[i].ident, sfd_name)) { + id = i; + break; + } + } + + if (id < 0) { + struct sfd_file_ *sfd = NULL; + FILE *fp; + + if (num_sfd_files >= max_sfd_files) { + max_sfd_files += 8; + sfd_files = RENEW(sfd_files, max_sfd_files, struct sfd_file_); + } + sfd = &sfd_files[num_sfd_files]; + init_sfd_file_(sfd); + sfd->ident = NEW(strlen(sfd_name) + 1, char); + strcpy(sfd->ident, sfd_name); + fp = DPXFOPEN(sfd->ident, DPX_RES_TYPE_SFD); + if (!fp) { + clean_sfd_file_(sfd); + return -1; + } + error = scan_sfd_file(sfd, fp); + DPXFCLOSE(fp); + if (!error) + id = num_sfd_files++; + else { + WARN("Error occured while reading SFD file \"%s\"", sfd_name); + clean_sfd_file_(sfd); + id = -1; + } + } + + return id; +} + +char ** +sfd_get_subfont_ids (const char *sfd_name, int *num_ids) +{ + int sfd_id; + + if (!sfd_name) + return NULL; + + sfd_id = find_sfd_file(sfd_name); + if (sfd_id < 0) + return NULL; + + if (num_ids) + *num_ids = sfd_files[sfd_id].num_subfonts; + return sfd_files[sfd_id].sub_id; +} + +/* Make sure that sfd_name does not have the extension '.sfd'. + * Mapping tables are actually read here. + */ +int +sfd_load_record (const char *sfd_name, const char *subfont_id) +{ + int rec_id = -1; + struct sfd_file_ *sfd; + FILE *fp; + int sfd_id, i, error = 0; + char *p, *q; + + if (!sfd_name || !subfont_id) + return -1; + + sfd_id = find_sfd_file(sfd_name); + if (sfd_id < 0) + return -1; + + sfd = &sfd_files[sfd_id]; + /* Check if we already loaded mapping table. */ + for (i = 0; + i < sfd->num_subfonts && strcmp(sfd->sub_id[i], subfont_id); i++); + if (i == sfd->num_subfonts) { + WARN("Subfont id=\"%s\" not exist in SFD file \"%s\"...", + subfont_id, sfd->ident); + return -1; + } else if (sfd->rec_id[i] >= 0) { + return sfd->rec_id[i]; + } + + if (verbose > 3) { + MESG("\nsubfont>> Loading SFD mapping table for <%s,%s>...", + sfd->ident, subfont_id); + } + + /* reopen */ + fp = DPXFOPEN(sfd->ident, DPX_RES_TYPE_SFD); + if (!fp) { + return -1; + /* ERROR("Could not open SFD file \"%s\"", sfd_name); */ + } + + /* Seek to record for 'sub_name'. */ + while ((p = readline(line_buf, LINE_BUF_SIZE, fp))) { + for ( ; *p && isspace(*p); p++); + if (*p == 0) + continue; /* empty line */ + + /* q = parse_ident(&p, p + strlen(p)); */ + for (q = p; *p && !isspace(*p); p++); + *p = '\0'; p++; + if (!strcmp(q, subfont_id)) { + if (num_sfd_records >= max_sfd_records) { + max_sfd_records += 16; + sfd_record = RENEW(sfd_record, max_sfd_records, struct sfd_rec_); + } + clear_vector(sfd_record[num_sfd_records].vector); + error = read_sfd_record(&sfd_record[num_sfd_records], p); + if (error) + WARN("Error occured while reading SFD file: file=\"%s\" subfont_id=\"%s\"", + sfd->ident, subfont_id); + else { + rec_id = num_sfd_records++; + } + } + } + if (rec_id < 0) { + WARN("Failed to load subfont mapping table for SFD=\"%s\" subfont_id=\"%s\"", + sfd->ident, subfont_id); + } + sfd->rec_id[i] = rec_id; + DPXFCLOSE(fp); + + if (verbose > 3) { + int __i; + if (rec_id >= 0) { + MESG(" at id=\"%d\"", rec_id); + MESG("\nsubfont>> Content of mapping table:"); + for (__i = 0; __i < 256; __i++) { + if (__i % 16 == 0) + MESG("\nsubfont>> "); + MESG(" %04x", sfd_record[rec_id].vector[__i]); + } + } + MESG("\n"); + } + + return rec_id; +} + + +/* Lookup mapping table */ +unsigned short +lookup_sfd_record (int rec_id, unsigned char c) +{ + if (!sfd_record || + rec_id < 0 || rec_id >= num_sfd_records) + ERROR("Invalid subfont_id: %d", rec_id); + return sfd_record[rec_id].vector[c]; +} + +#if 0 +static void +release_sfd_record (void) +{ + int i; + + if (sfd_record) { + RELEASE(sfd_record); + } + if (sfd_files) { + for (i = 0; i < num_sfd_files; i++) { + clean_sfd_file_(&sfd_files[i]); + } + RELEASE(sfd_files); + } + sfd_record = NULL; + sfd_files = NULL; + num_sfd_records = max_sfd_records = 0; + num_sfd_files = max_sfd_files = 0; +} +#endif /* 0 */ + + +#if DPXTEST +/* SFD file dumper */ +#ifdef HAVE_ICONV +#include +#else +typedef int iconv_t; +#endif +#include + +static void +dump_table (const char *sfd_name, const char *sub_name, iconv_t cd) +{ + int rec_id, i; + + rec_id = sfd_load_record(sfd_name, sub_name); + if (rec_id < 0) { + WARN("Could not load SFD mapping for \"%s\"", sub_name); + return; + } + fprintf(stdout, " \n", sub_name); + for (i = 0; i < 256; i++) { + unsigned short c = lookup_sfd_record(rec_id, i); + char *p, inbuf[2]; + char *q, outbuf[32]; + size_t r, inbufleft = 2, outbufleft = 32; + + if (c == 0) + fprintf(stdout, " ", i); + else { + fprintf(stdout, " > 8) & 0xff, c & 0xff); + if (cd != (iconv_t) -1) { + p = inbuf; q = outbuf; + inbuf[0] = (c >> 8) & 0xff; + inbuf[1] = c & 0xff; +#ifdef HAVE_ICONV + r = iconv(cd, &p, &inbufleft, &q, &outbufleft); + if (r == -1) { + if (verbose) { + WARN("Conversion to Unicode failed for subfont-id=\"%s\" code=\"0x%02x\"", + sub_name, i); + WARN(">> with: %s", strerror(errno)); + } + } else { + outbuf[32-outbufleft] = 0; + fprintf(stdout, " uc=\"%s\"", outbuf); + } +#endif /* HAVE_ICONV */ + } + fprintf(stdout, " />"); + } + fprintf(stdout, "\n"); + } + fprintf(stdout, " \n"); + return; +} + +#define subfontDefinition_DTD "\ +\n\ +\n\ +\n\ +\n\ +\n\ +\ +" + +void +test_subfont_help (void) +{ + fprintf(stdout, "usage: subfont [options] SFD_name\n"); + fprintf(stdout, "-e, --encoding string\n"); + fprintf(stdout, " Target (output) encoding of SFD mapping is 'string'.\n"); + fprintf(stdout, " It must be an encoding name recognized by iconv.\n"); + fprintf(stdout, " With this option write Unicode character in auxiliary attribute 'uc'.\n"); + fprintf(stdout, "-s, --subfont-id string\n"); + fprintf(stdout, " Load and dump mapping table only for subfont 'string'.\n"); +} + +int +test_subfont_main (int argc, char *argv[]) +{ + char *sfd_name = NULL, *sub_name = NULL; + char *from = NULL; + int i; + iconv_t cd = (iconv_t) -1; + + for (;;) { + int c, optidx = 0; + static struct option long_options[] = { + {"encoding", 1, 0, 'e'}, /* for to-Unicode conversion */ + {"subfont-id", 1, 0, 's'}, + {"help", 0, 0, 'h'}, + {0, 0, 0, 0} + }; + c = getopt_long(argc, argv, "e:s:h", long_options, &optidx); + if (c == -1) + break; + + switch (c) { + case 'e': + from = optarg; + break; + case 's': + sub_name = optarg; + break; + case 'h': + test_subfont_help(); + return 0; + break; + default: + test_subfont_help(); + return -1; + break; + } + } + if (optind < argc) { + sfd_name = argv[optind++]; + } + + if (sfd_name == NULL) { + WARN("No SFD file name specified."); + test_subfont_help(); + return -1; + } + if (!from) + cd = (iconv_t) -1; + else { +#ifdef HAVE_ICONV + cd = iconv_open("utf-8", from); + if (cd == (iconv_t) -1) { + WARN("Can't open iconv conversion descriptor for %s --> utf-8", from); + return -1; + } +#else + WARN("Your system doesn't have iconv() in libc!"); +#endif + } + + fprintf(stdout, "\n"); + fprintf(stdout, "\n", + subfontDefinition_DTD); + fprintf(stdout, "\n", + sfd_name, from ? from : "unknown"); + if (sub_name == NULL || !strcmp(sub_name, "all")) { + char **sub_id; + int num_ids = 0; + sub_id = sfd_get_subfont_ids(sfd_name, &num_ids); + if (!sub_id) + WARN("Could not open SFD file: %s", sfd_name); + else { + for (i = 0; i < num_ids; i++) + dump_table(sfd_name, sub_id[i], cd); + } + } else { + dump_table(sfd_name, sub_name, cd); + } + fprintf(stdout, "\n"); + +#ifdef HAVE_ICONV + if (cd != (iconv_t) -1) + iconv_close(cd); +#endif + + return 0; +} + +#endif /* DPXTEST */ diff --git a/Build/source/texk/xdvipdfmx/src/subfont.h b/Build/source/texk/xdvipdfmx/src/subfont.h new file mode 100644 index 00000000000..e1c6010d5bc --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/subfont.h @@ -0,0 +1,33 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/subfont.h,v 1.8 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SUBFONT_H_ +#define _SUBFONT_H_ + +extern void subfont_set_verbose (void); + +extern unsigned short lookup_sfd_record(int rec_id, unsigned char code); + +extern int sfd_load_record (const char *sfd_name, const char *subfont_id); +extern char **sfd_get_subfont_ids (const char *sfd_name, int *num_subfonts); + +#endif /* _SUBFONT_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/system.h b/Build/source/texk/xdvipdfmx/src/system.h new file mode 100644 index 00000000000..b758ff14405 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/system.h @@ -0,0 +1,53 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/system.h,v 1.6 2004/01/11 02:51:33 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _SYSTEM_H_ +#define _SYSTEM_H_ + +#ifdef MIKTEX +#include "miktex.h" +#include "gnu-miktex.h" +#include "web2c-miktex.h" +#else +#include +#include +#endif + +#ifdef WIN32 +# undef ERROR +# undef NO_ERROR +# undef RGB +# undef CMYK +# undef SETLINECAP +# undef SETLINEJOIN +# undef SETMITERLIMIT +# pragma warning(disable : 4101 4018) +#else +# ifndef __cdecl +# define __cdecl +# endif +# define CDECL +#endif /* WIN32 */ + +#endif /* _SYSTEM_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/t1_char.c b/Build/source/texk/xdvipdfmx/src/t1_char.c new file mode 100644 index 00000000000..333d9b3d17a --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/t1_char.c @@ -0,0 +1,1590 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/t1_char.c,v 1.5 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "numbers.h" + +#include "pdfobj.h" +#include "pdffont.h" + +#include "pdfencoding.h" +#include "unicode.h" + +#include "dpxutil.h" + +#include "pst_obj.h" +#include "pst.h" + +#include "cff_limits.h" +#include "cff_types.h" +#include "cff_dict.h" +#include "cff.h" + +#include "t1_char.h" + +/* + * Type 1 -> Type 1C + */ + +/* Charstring decoder/encoder status codes */ +#define CS_OP_NOSUPPORT -4 +#define CS_BUFFER_ERROR -3 +#define CS_STACK_ERROR -2 +#define CS_PARSE_ERROR -1 +#define CS_PARSE_OK 0 +#define CS_PARSE_END 1 +#define CS_SUBR_RETURN 2 +#define CS_CHAR_END 3 + +static int status = CS_PARSE_ERROR; + +#define DST_NEED(a,b) {if ((a) < (b)) { status = CS_BUFFER_ERROR ; return ; }} +#define SRC_NEED(a,b) {if ((a) < (b)) { status = CS_PARSE_ERROR ; return ; }} +#define NEED(a,b) {if ((a) < (b)) { status = CS_STACK_ERROR ; return ; }} + +#define T1_CS_PHASE_INIT 0 +#define T1_CS_PHASE_HINT 1 +#define T1_CS_PHASE_PATH 2 +#define T1_CS_PHASE_FLEX 3 + +static int phase = -1; +static int nest = -1; + +#ifndef CS_STEM_ZONE_MAX +#define CS_STEM_ZONE_MAX 96 +#endif +#ifndef CS_STEM_GROUP_MAX +#define CS_STEM_GROUP_MAX CS_STEM_ZONE_MAX +#endif +#ifndef CS_ARG_STACK_MAX +#define CS_ARG_STACK_MAX 48 +#endif +#ifndef PS_ARG_STACK_MAX +/* + * Counter control may have CS_STEM_ZONE_MAX*2+2 arguments. + */ +#define PS_ARG_STACK_MAX (CS_STEM_ZONE_MAX*2+2) +#endif + +typedef struct t1_cpath { + int type; + int num_args; + double args[CS_ARG_STACK_MAX]; + struct t1_cpath *next; +} t1_cpath; + +#define HSTEM 0 +#define VSTEM 1 +typedef struct { + int id; + int dir; + double pos, del; +} t1_stem; + +typedef struct { + int num_stems; + double stems[CS_STEM_ZONE_MAX]; /* int */ +} t1_stemgroup; + +#define T1_CS_FLAG_NONE 0 +#define T1_CS_FLAG_USE_HINTMASK (1 << 0) +#define T1_CS_FLAG_USE_CNTRMASK (1 << 1) +#define T1_CS_FLAG_USE_SEAC (1 << 2) + +typedef struct { + int flags; + struct { + double sbx, sby, wx, wy; + } sbw; + struct { + double llx, lly, urx, ury; + } bbox; + struct { + double asb, adx, ady; + card8 bchar, achar; + } seac; + int num_stems; + t1_stem stems[CS_STEM_ZONE_MAX]; + t1_cpath *charpath; + t1_cpath *lastpath; +} t1_chardesc; + +static int cs_stack_top = 0; +static int ps_stack_top = 0; + +/* [vh]stem support require one more stack size. */ +static double cs_arg_stack[CS_ARG_STACK_MAX+1]; +static double ps_arg_stack[PS_ARG_STACK_MAX]; + +#define CS_HINT_DECL -1 +#define CS_FLEX_CTRL -2 +#define CS_CNTR_CTRL -3 + +/* + * Type 1/2 CharString encoding + */ + +/* + * 1-byte CharString operaotrs: + * cs_escape is first byte of two-byte operator + */ + +/* RESERVED 0 */ +#define cs_hstem 1 +/* RESERVED 2 */ +#define cs_vstem 3 +#define cs_vmoveto 4 +#define cs_rlineto 5 +#define cs_hlineto 6 +#define cs_vlineto 7 +#define cs_rrcurveto 8 +#define cs_closepath 9 +#define cs_callsubr 10 +#define cs_return 11 +#define cs_escape 12 +#define cs_hsbw 13 +#define cs_endchar 14 +/* RESERVED 15 */ +/* RESERVED 16 */ +/* RESERVED 17 */ +#define cs_hstemhm 18 +#define cs_hintmask 19 +#define cs_cntrmask 20 +#define cs_rmoveto 21 +#define cs_hmoveto 22 +#define cs_vstemhm 23 +#define cs_rcurveline 24 +#define cs_rlinecurve 25 +#define cs_vvcurveto 26 +#define cs_hhcurveto 27 +/* SHORTINT 28 : first byte of shortint*/ +#define cs_callgsubr 29 +#define cs_vhcurveto 30 +#define cs_hvcurveto 31 + +/* 2-byte op. flex 34-37 used. */ + +/* + * 2-byte CharString operaotrs: + * "dotsection" is obsoleted in Type 2 charstring. + */ + +#define cs_dotsection 0 +#define cs_vstem3 1 +#define cs_hstem3 2 +#define cs_and 3 +#define cs_or 4 +#define cs_not 5 +#define cs_seac 6 +#define cs_sbw 7 +/* RESERVED 8 */ +#define cs_abs 9 +#define cs_add 10 +#define cs_sub 11 +#define cs_div 12 +/* RESERVED 13 */ +#define cs_neg 14 +#define cs_eq 15 +#define cs_callothersubr 16 +#define cs_pop 17 +#define cs_drop 18 +/* RESERVED 19 */ +#define cs_put 20 +#define cs_get 21 +#define cs_ifelse 22 +#define cs_random 23 +#define cs_mul 24 +/* RESERVED 25 */ +#define cs_sqrt 26 +#define cs_dup 27 +#define cs_exch 28 +#define cs_index 29 +#define cs_roll 30 +/* RESERVED 31 */ +/* RESERVED 32 */ +#define cs_setcurrentpoint 33 +#define cs_hflex 34 +#define cs_flex 35 +#define cs_hflex1 36 +#define cs_flex1 37 + +#define IS_PATH_OPERATOR(o) (((o) >= cs_vmoveto && (o) <= cs_closepath) || \ + ((o) >= cs_rmoveto && (o) <= cs_hvcurveto && \ + (o) != cs_vstemhm && (o) != cs_callgsubr && (o) != 28)\ + ) + +/* + * Stem: + * + * 1. Stems must be sorted in the increasing bottom/left edge order. + * 2. The encoded values are all relative; The value x(y) of the first + * stem is relative to 0 for Type 2 charstring and is relative to + * the left(bottom) side-bearing for Type 1 charstring. + * 3. A width of -20(-21) specifies the top/right(bottom/left) edge + * of an edge hint in Type 2 charstring. But the width of 'ghost' + * hint in Type 1 charstring is positive with value 20 or 21. + * 4. The h(v)stemhm MUST be used instead of h(v)stem if charstring + * contains hintmask operator. + * + * TODO: + * + * Convert ghost hint to edge hint, Counter control for hstem3/vstem3. + */ + +static int CDECL +stem_compare (const void *v1, const void *v2) +{ + int cmp = 0; + t1_stem *s1, *s2; + + s1 = (t1_stem *) v1; + s2 = (t1_stem *) v2; + if (s1->dir == s2->dir) { + if (s1->pos == s2->pos) { + if (s1->del == s2->del) + cmp = 0; + else + cmp = (s1->del < s2->del) ? -1 : 1; + } else { + cmp = (s1->pos < s2->pos) ? -1 : 1; + } + } else { + cmp = (s1->dir == HSTEM) ? -1 : 1; + } + + return cmp; +} + +#define SORT_STEMS(cd) qsort((cd)->stems,(cd)->num_stems,sizeof(t1_stem),stem_compare) + +static int +get_stem (t1_chardesc *cd, int stem_id) +{ + int i; + + for (i = 0; i < cd->num_stems; i++) { + if (cd->stems[i].id == stem_id) + break; + } + + return ((i < cd->num_stems) ? i : -1); +} + +static int +add_stem (t1_chardesc *cd, double pos, double del, int dir) +{ + int i; + + ASSERT(cd); + + pos += (dir == HSTEM) ? cd->sbw.sby : cd->sbw.sbx; + for (i = 0; i < cd->num_stems; i++) { + if (cd->stems[i].dir == dir && + cd->stems[i].pos == pos && + cd->stems[i].del == del) + break; + } + if (i == cd->num_stems) { + if (cd->num_stems == CS_STEM_ZONE_MAX) + return -1; + cd->stems[i].dir = dir; + cd->stems[i].pos = pos; + cd->stems[i].del = del; + cd->stems[i].id = cd->num_stems; + (cd->num_stems)++; + } + + return cd->stems[i].id; +} + + +static void +copy_args (double *args1, double *args2, int count) +{ + while (count-- > 0) { + *args1 = *args2; + args1++; args2++; + } +} + +/* + * Stack: + */ +#define LIMITCHECK(n) do {\ + if (cs_stack_top+(n) > CS_ARG_STACK_MAX) {\ + status = CS_STACK_ERROR;\ + return;\ + }\ + } while (0) +#define CHECKSTACK(n) do {\ + if (cs_stack_top < (n)) {\ + status = CS_STACK_ERROR;\ + return;\ + }\ + } while (0) +#define CLEARSTACK() do {\ + cs_stack_top = 0;\ + } while (0) + +/* + * Path construction: + */ +/* Get operands from cs_arg_stack[] */ +static void +add_charpath (t1_chardesc *cd, int type, double *argv, int argn) +{ + t1_cpath *p; + + ASSERT(cd); + ASSERT(argn <= CS_ARG_STACK_MAX); + + p = NEW(1, t1_cpath); + p->type = type; + p->num_args = argn; + p->next = NULL; + + while (argn-- > 0) + p->args[argn] = argv[argn]; + + if (!cd->charpath) + cd->charpath = p; + if (cd->lastpath) + cd->lastpath->next = p; + cd->lastpath = p; + + if (type >= 0 && + phase != T1_CS_PHASE_FLEX && IS_PATH_OPERATOR(type)) + phase = T1_CS_PHASE_PATH; +} + +static void +init_charpath (t1_chardesc *cd) +{ + cd->flags = T1_CS_FLAG_NONE; + cd->num_stems = 0; + cd->sbw.wx = cd->sbw.wy = 0.0; + cd->sbw.sbx = cd->sbw.sby = 0.0; + cd->bbox.llx = cd->bbox.lly = cd->bbox.urx = cd->bbox.ury = 0.0; + cd->charpath = cd->lastpath = NULL; +} + +static void +release_charpath (t1_chardesc *cd) +{ + t1_cpath *curr, *next; + + ASSERT(cd); + + curr = cd->charpath; + while (curr != NULL) { + next = curr->next; + RELEASE(curr); + curr = next; + } + + cd->charpath = cd->lastpath = NULL; +} + +/* + * Type 1 charstring operators: + */ +#define ADD_PATH(p,t,n) add_charpath((p),(t),&(cs_arg_stack[cs_stack_top-(n)]),(n)) + +/* + * Single byte operators: + */ +static void +do_operator1 (t1_chardesc *cd, card8 **data, card8 *endptr) +{ + card8 op = **data; + + *data += 1; + + switch (op) { + case cs_closepath: + /* + * From T1 spec.: + * Note that, unlike the closepath command in the PostScript language, + * this command does not reposition the current point. Any subsequent + * rmoveto must be relative to the current point in force before the + * Type 1 font format closepath command was given. + */ + /* noop */ + CLEARSTACK(); + break; + case cs_hsbw: + CHECKSTACK(2); + cd->sbw.wx = cs_arg_stack[--cs_stack_top]; + cd->sbw.wy = 0; + cd->sbw.sbx = cs_arg_stack[--cs_stack_top]; + cd->sbw.sby = 0; + CLEARSTACK(); + /* hsbw does NOT set currentpoint. */ + break; + case cs_hstem: + case cs_vstem: + CHECKSTACK(2); + { + int stem_id; + stem_id = add_stem(cd, + cs_arg_stack[cs_stack_top-2], + cs_arg_stack[cs_stack_top-1], + ((op == cs_hstem) ? HSTEM : VSTEM)); + if (stem_id < 0) { + WARN("Too many hints..."); + status = CS_PARSE_ERROR; + return; + } + /* Put stem_id onto the stack... */ + cs_arg_stack[cs_stack_top++] = stem_id; + ADD_PATH(cd, CS_HINT_DECL, 1); + } + CLEARSTACK(); + break; + case cs_rmoveto: + /* + * Reference point is (0, 0) in Type 2 charstring. + */ + CHECKSTACK(2); + { + if (phase < T1_CS_PHASE_PATH) { + cs_arg_stack[cs_stack_top-2] += cd->sbw.sbx; + cs_arg_stack[cs_stack_top-1] += cd->sbw.sby; + } + ADD_PATH(cd, op, 2); + } + CLEARSTACK(); + break; + case cs_hmoveto: + case cs_vmoveto: + CHECKSTACK(1); + { + int argn = 1; + if (phase < T1_CS_PHASE_PATH) { + /* + * The reference point for the first moveto operator is diferrent + * between Type 1 charstring and Type 2 charstring. We compensate it. + */ + if (op == cs_hmoveto) { + cs_arg_stack[cs_stack_top-1] += cd->sbw.sbx; + if (cd->sbw.sby != 0.0) { + cs_arg_stack[cs_stack_top++] = cd->sbw.sby; + argn = 2; + op = cs_rmoveto; + } + } else { + cs_arg_stack[cs_stack_top-1] += cd->sbw.sby; + if (cd->sbw.sbx != 0.0) { + cs_arg_stack[cs_stack_top] = cs_arg_stack[cs_stack_top-1]; + cs_arg_stack[cs_stack_top-1] = cd->sbw.sbx; + cs_stack_top++; + argn = 2; + op = cs_rmoveto; + } + } + } + ADD_PATH(cd, op, argn); + } + CLEARSTACK(); + break; + case cs_endchar: + status = CS_CHAR_END; + CLEARSTACK(); + break; + /* above oprators are candidate for first stack-clearing operator */ + case cs_rlineto: + CHECKSTACK(2); + ADD_PATH(cd, op, 2); + CLEARSTACK(); + break; + case cs_hlineto: + case cs_vlineto: + CHECKSTACK(1); + ADD_PATH(cd, op, 1); + CLEARSTACK(); + break; + case cs_rrcurveto: + CHECKSTACK(6); + ADD_PATH(cd, op, 6); + CLEARSTACK(); + break; + case cs_vhcurveto: + case cs_hvcurveto: + CHECKSTACK(4); + ADD_PATH(cd, op, 4); + CLEARSTACK(); + break; + /* all operotors above are stack-clearing operator */ + /* no output */ + case cs_return: + break; + case cs_callsubr: + ERROR("Unexpected callsubr."); + break; + default: + /* no-op ? */ + WARN("Unknown charstring operator: 0x%02x", op); + status = CS_PARSE_ERROR; + break; + } + + return; +} + +/* + * OtherSubrs: + * + * arg0 arg1 ... argn n othersubr# callothersubr + * + * 0: Build flex: + * fd x y 3 0 callothersubr + * Othersubr #0 pushes x and y to PostScript interpreter operand stack. + * 1: Start flex + * 0 1 callothersubr + * 2: Mark flex control points + * 0 2 callothersubr + * 3: Discard hint + * subr# 1 3 callothersubr pop callsubr + * Subroutine subr# (only) contains stem declaration. + * Othersubr #3 pushes subr# to PostScript interpreter operand stack. + * 12: Counter control + * A subr to avoid stack overflow. + * 13: Counter control + */ + +/* + * Convert six control points marked as CS_FLEX_CTRL to a flex path. + */ +static void +do_othersubr0 (t1_chardesc *cd) +{ + t1_cpath *flex, *cur, *next; + + if (ps_stack_top < 1) { + status = CS_PARSE_ERROR; + return; + } + + /* Seek first CS_FLEX_CTRL mark */ + for (cur = cd->charpath; cur != NULL && cur->type != CS_FLEX_CTRL; cur = cur->next); + flex = cur; + { + int i; + cur = cur->next; + for (i = 1; i < 7; i++) { + if (cur == NULL || cur->type != CS_FLEX_CTRL || + cur->num_args != 2) { + status = CS_PARSE_ERROR; + return; + } + if (i == 1) { + flex->args[0] += cur->args[0]; + flex->args[1] += cur->args[1]; + } else { + copy_args(&(flex->args[2*i-2]), cur->args, 2); + } + next = cur->next; + RELEASE(cur); + cur = next; + } + } + if (cur != NULL) { + status = CS_PARSE_ERROR; + return; + } + /* + * Now 'flex' have all six control points, the first pair is relative + * from starting point. + */ + flex->type = cs_flex; + flex->args[12] = ps_arg_stack[--ps_stack_top]; /* flex depth */ + flex->num_args = 13; + flex->next = NULL; + cd->lastpath = flex; + + phase = T1_CS_PHASE_PATH; +} + +/* Start flex */ +static void +do_othersubr1 (t1_chardesc *cd) +{ + phase = T1_CS_PHASE_FLEX; +} + +/* Mark flex control point */ +static void +do_othersubr2 (t1_chardesc *cd) +{ + if (phase != T1_CS_PHASE_FLEX || !cd->lastpath) { + status = CS_PARSE_ERROR; + return; + } + + switch (cd->lastpath->type) { + case cs_rmoveto: + break; + case cs_hmoveto: + cd->lastpath->num_args = 2; + cd->lastpath->args[1] = 0.0; + break; + case cs_vmoveto: + cd->lastpath->num_args = 2; + cd->lastpath->args[1] = cd->lastpath->args[0]; + cd->lastpath->args[0] = 0.0; + break; + default: + status = CS_PARSE_ERROR; + return; + } + cd->lastpath->type = CS_FLEX_CTRL; +} + +/* + * Hint Replacement: + * "Adobe Type 1 Font Format", Chapter 8. + */ +static void +do_othersubr3 (t1_chardesc *cd) +{ + cd->flags |= T1_CS_FLAG_USE_HINTMASK; +} + +static void +do_othersubr12 (t1_chardesc *cd) +{ + /* Othersubr12 call must immediately follow the hsbw or sbw. */ + if (phase != T1_CS_PHASE_INIT) { + status = CS_PARSE_ERROR; + return; + } + /* noop */ +} + +static void +do_othersubr13 (t1_chardesc *cd) +{ + t1_stemgroup stemgroups[CS_STEM_GROUP_MAX]; + int num_hgroups, num_vgroups, n, stem_id; + double pos, del; + + /* After #12 callothersubr or hsbw or sbw. */ + if (phase != T1_CS_PHASE_INIT) { + status = CS_PARSE_ERROR; + return; + } + for (n = 0; n < CS_STEM_GROUP_MAX; n++) { + stemgroups[n].num_stems = 0; + } + + num_hgroups = (int) ps_arg_stack[--ps_stack_top]; + if (num_hgroups < 0 || num_hgroups > CS_STEM_GROUP_MAX) { + status = CS_PARSE_ERROR; + return; + } + n = 0; pos = 0.0; + while (ps_stack_top >= 2 && n < num_hgroups) { + /* add_stem() add sidebearing */ + pos += ps_arg_stack[--ps_stack_top]; + del = ps_arg_stack[--ps_stack_top]; + stem_id = add_stem(cd, + (del < 0.0) ? pos + del : pos, + (del < 0.0) ? -del : del, + HSTEM); + stemgroups[n].stems[stemgroups[n].num_stems] = stem_id; + stemgroups[n].num_stems += 1; + pos += del; + if (del < 0.0) { + pos = 0.0; + n++; + } + } + if (n != num_hgroups) { + status = CS_STACK_ERROR; + return; + } + + num_vgroups = (int) ps_arg_stack[--ps_stack_top]; + if (num_vgroups < 0 || num_vgroups > CS_STEM_GROUP_MAX) { + status = CS_PARSE_ERROR; + return; + } + n = 0; pos = 0.0; + while (ps_stack_top >= 2 && n < num_vgroups) { + /* add_stem() add sidebearing */ + pos += ps_arg_stack[--ps_stack_top]; + del = ps_arg_stack[--ps_stack_top]; + stem_id = add_stem(cd, + (del < 0.0) ? pos + del : pos, + (del < 0.0) ? -del : del, + VSTEM); + stemgroups[n].stems[stemgroups[n].num_stems] = stem_id; + stemgroups[n].num_stems += 1; + pos += del; + if (del < 0.0) { + pos = 0.0; + n++; + } + } + if (n != num_vgroups) { + status = CS_STACK_ERROR; + return; + } + + for (n = 0; n < MAX(num_hgroups, num_vgroups); n++) { + add_charpath(cd, cs_cntrmask, + stemgroups[n].stems, stemgroups[n].num_stems); + } + + cd->flags |= T1_CS_FLAG_USE_CNTRMASK; +} + +static void +do_callothersubr (t1_chardesc *cd) +{ + int argn, subrno; + + CHECKSTACK(2); + subrno = (int) cs_arg_stack[--cs_stack_top]; + argn = (int) cs_arg_stack[--cs_stack_top]; + + CHECKSTACK(argn); + if (ps_stack_top+argn > PS_ARG_STACK_MAX) { + status = CS_PARSE_ERROR; + return; + } + while (argn-- > 0) + ps_arg_stack[ps_stack_top++] = cs_arg_stack[--cs_stack_top]; + + switch (subrno) { + case 0: do_othersubr0(cd) ; break; + case 1: do_othersubr1(cd) ; break; + case 2: do_othersubr2(cd) ; break; + case 3: do_othersubr3(cd) ; break; + case 12: do_othersubr12(cd); break; + case 13: do_othersubr13(cd); break; + default: + ERROR("Unknown othersubr #%ld.", subrno); + break; + } +} + +/* + * Double byte operators: + */ +static void +do_operator2 (t1_chardesc *cd, card8 **data, card8 *endptr) +{ + card8 op; + + *data += 1; + + SRC_NEED(endptr, *data + 1); + + op = **data; + *data += 1; + + switch(op) { + case cs_sbw: + CHECKSTACK(4); + cd->sbw.wy = cs_arg_stack[--cs_stack_top]; + cd->sbw.wx = cs_arg_stack[--cs_stack_top]; + cd->sbw.sby = cs_arg_stack[--cs_stack_top]; + cd->sbw.sbx = cs_arg_stack[--cs_stack_top]; + CLEARSTACK(); + break; + case cs_hstem3: + case cs_vstem3: + /* + * TODO: + * The counter control can be used for hstem3 and vstem3 + * operator if LanguageGroup is not equal to 1. + */ + CHECKSTACK(6); + { + int i; + for (i = 2; i >= 0; i--) { + int stem_id; + stem_id = add_stem(cd, + cs_arg_stack[cs_stack_top-2*i-2], + cs_arg_stack[cs_stack_top-2*i-1], + ((op == cs_hstem3) ? HSTEM : VSTEM)); + if (stem_id < 0) { + WARN("Too many hints..."); + status = CS_PARSE_ERROR; + return; + } + /* Put stem_id onto the stack... */ + cs_arg_stack[cs_stack_top++] = stem_id; + ADD_PATH(cd, CS_HINT_DECL, 1); + cs_stack_top--; + } + } + CLEARSTACK(); + break; + case cs_setcurrentpoint: + CHECKSTACK(2); + /* noop */ + CLEARSTACK(); + break; + /* all operator above are stack-clearing */ + case cs_pop: + /* + * Transfer a operand from PS interpreter operand stack to BuildChar + * operand stack. + */ + if (ps_stack_top < 1) { + status = CS_PARSE_ERROR; + return; + } + LIMITCHECK(1); + cs_arg_stack[cs_stack_top++] = ps_arg_stack[--ps_stack_top]; + break; + case cs_dotsection: +#if 0 + /* + * If the hint replacement feature is used in the font, the + * "dotsection" operator exist only for compatibility to older + * (more than 10 years old) Type 1 font rasterizer which can't + * perform hint replacement. In this case, we silently ignore + * the "dotsection" operator. + * + * The following code will wrongly warn about "dotsection" when + * the charstring only contains dot (e.g., "bullet") where the + * hint replacement is not necessary. + * + * Adobe ATM renderers always treat this operator as a no-op. + * (See, Adobe Technical Note #5177, Appendix C) + */ + if (!(cd->flags & T1_CS_FLAG_USE_HINTMASK)) { + if (__verbose > 1) + WARN("Obsolete Type 1 charstring operator \"dotsection\" not supported."); + } +#endif + /* noop */ + break; + case cs_div: /* TODO: check overflow */ + CHECKSTACK(2); + cs_arg_stack[cs_stack_top-2] /= cs_arg_stack[cs_stack_top-1]; + cs_stack_top--; + break; + case cs_callothersubr: + do_callothersubr(cd); + break; + case cs_seac: + CHECKSTACK(5); + cd->flags |= T1_CS_FLAG_USE_SEAC; + cd->seac.achar = (card8) cs_arg_stack[--cs_stack_top]; + cd->seac.bchar = (card8) cs_arg_stack[--cs_stack_top]; + cd->seac.ady = cs_arg_stack[--cs_stack_top]; + cd->seac.adx = cs_arg_stack[--cs_stack_top]; + /* We must compensate the difference of the glyph origin. */ + cd->seac.ady += cd->sbw.sby; + cd->seac.adx += cd->sbw.sbx - cs_arg_stack[--cs_stack_top]; + CLEARSTACK(); + break; + default: + /* no-op ? */ + WARN("Unknown charstring operator: 0x0c%02x", op); + status = CS_PARSE_ERROR; + break; + } + + return; +} + +/* + * Charstring encoding: + * Copied from cs_type2.c + * Note: + * The Type 2 interpretation of a number encoded in five-bytes (those with + * an initial byte value of 255) differs from how it is interpreted in the + * Type 1 format. + */ + +/* Type 2 5-bytes encoding used. */ +static void +put_numbers (double *argv, int argn, card8 **dest, card8 *limit) +{ + int i; + + for (i = 0; i < argn; i++) { + double value; + long ivalue; + value = argv[i]; + /* Nearest integer value */ + ivalue = (long) floor(value+0.5); + if (value >= 0x8000L || value <= (-0x8000L - 1)) { + /* + * This number cannot be represented as a single operand. + * We must use `a b mul ...' or `a c div' to represent large values. + */ + ERROR("Argument value too large. (This is bug)"); + } else if (fabs(value - ivalue) > 3.0e-5) { + /* 16.16-bit signed fixed value */ + DST_NEED(limit, *dest + 5); + *(*dest)++ = 255; + ivalue = (long) floor(value); /* mantissa */ + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + ivalue = (long)((value - ivalue) * 0x10000l); /* fraction */ + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + /* Everything else are integers. */ + } else if (ivalue >= -107 && ivalue <= 107) { + DST_NEED(limit, *dest + 1); + *(*dest)++ = ivalue + 139; + } else if (ivalue >= 108 && ivalue <= 1131) { + DST_NEED(limit, *dest + 2); + ivalue = 0xf700u + ivalue - 108; + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + } else if (ivalue >= -1131 && ivalue <= -108) { + DST_NEED(limit, *dest + 2); + ivalue = 0xfb00u - ivalue - 108; + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = ivalue & 0xff; + } else if (ivalue >= -32768 && ivalue <= 32767) { /* shortint */ + DST_NEED(limit, *dest + 3); + *(*dest)++ = 28; + *(*dest)++ = (ivalue >> 8) & 0xff; + *(*dest)++ = (ivalue) & 0xff; + } else { /* Shouldn't come here */ + ERROR("Unexpected error."); + } + } + + return; +} + +static void +get_integer (card8 **data, card8 *endptr) +{ + long result = 0; + card8 b0 = **data, b1, b2; + + *data += 1; + + if (b0 == 28) { /* shortint */ + SRC_NEED(endptr, *data + 2); + b1 = **data; + b2 = *(*data+1); + result = b1*256+b2; + if (result > 0x7fff) + result -= 0x10000L; + *data += 2; + } else if (b0 >= 32 && b0 <= 246) { /* int (1) */ + result = b0 - 139; + } else if (b0 >= 247 && b0 <= 250) { /* int (2) */ + SRC_NEED(endptr, *data + 1); + b1 = **data; + result = (b0-247)*256+b1+108; + *data += 1; + } else if (b0 >= 251 && b0 <= 254) { + SRC_NEED(endptr, *data + 1); + b1 = **data; + result = -(b0-251)*256-b1-108; + *data += 1; + } else { + status = CS_PARSE_ERROR; + return; + } + + LIMITCHECK(1); + cs_arg_stack[cs_stack_top++] = (double) result; + + return; +} + +/* Type 1 */ +static void +get_longint (card8 **data, card8 *endptr) +{ + long result = 0; + int i; + + *data += 1; + SRC_NEED(endptr, *data + 4); + result = **data; + if (result >= 0x80L) + result -= 0x100L; + *data += 1; + for (i = 1; i < 4; i++) { + result = result*256 + (**data); + *data += 1; + } + + LIMITCHECK(1); + cs_arg_stack[cs_stack_top++] = (double) result; + + return; +} + +/* + * TODO: + * Check "seac" + * We cannot do backword parsing due to subroutine, div etc. + */ + +/* Parse charstring and build charpath. */ +static void +t1char_build_charpath (t1_chardesc *cd, + card8 **data, card8 *endptr, cff_index *subrs) +{ + card8 b0 = 0, *subr; + long len; + + if (nest > CS_SUBR_NEST_MAX) + ERROR("Subroutine nested too deeply."); + + nest++; + while (*data < endptr && status == CS_PARSE_OK) { + b0 = **data; + if (b0 == 255) { + get_longint(data, endptr); /* Type 1 */ + } else if (b0 == cs_return) { + status = CS_SUBR_RETURN; + } else if (b0 == cs_callsubr) { + if (cs_stack_top < 1) { + status = CS_STACK_ERROR; + } else { + int idx; + + idx = cs_arg_stack[--cs_stack_top]; + if (!subrs || idx >= subrs->count) + ERROR("Invalid Subr#."); + subr = subrs->data + subrs->offset[idx] - 1; + len = subrs->offset[idx+1] - subrs->offset[idx]; + t1char_build_charpath(cd, &subr, subr+len, subrs); + *data += 1; + } + } else if (b0 == cs_escape) { + do_operator2(cd, data, endptr); + } else if (b0 < 32 && b0 != 28) { /* 19, 20 need mask */ + do_operator1(cd, data, endptr); + } else if ((b0 <= 22 && b0 >= 27) || b0 == 31) { /* reserved */ + status = CS_PARSE_ERROR; /* not an error ? */ + } else { /* integer */ + get_integer(data, endptr); + } + } + + if (status == CS_SUBR_RETURN) { + status = CS_PARSE_OK; + } else if (status == CS_CHAR_END && *data < endptr) { + if (!(*data == endptr - 1 && **data == cs_return)) + WARN("Garbage after endchar. (%ld bytes)", (long) (endptr - *data)); + } else if (status < CS_PARSE_OK) { /* error */ + ERROR("Parsing charstring failed: (status=%d, stack=%d)", status, cs_stack_top); + } + + nest--; + + return; +} + +/* + * Calculate BoundingBox and compress path. + * The essentials of PDF size reduction is not Type 2 charstring compression + * but Type 1 charstring encryption. Encryption makes lossless compression + * useless. We will only do very simple charstring compression. + */ +static void +do_postproc (t1_chardesc *cd) +{ + int i; + t1_cpath *cur, *prev, *next; + double x, y; + + if (!cd->charpath) + return; + + /* Set dummy large value. */ + cd->bbox.llx = cd->bbox.lly = 100000.0; + cd->bbox.urx = cd->bbox.ury = -100000.0; + + cur = cd->charpath; + prev = NULL; + x = y = 0.0; + +#define UPDATE_BBOX(b,x,y) do {\ + if ((b).llx > (x)) (b).llx = (x);\ + if ((b).urx < (x)) (b).urx = (x);\ + if ((b).lly > (y)) (b).lly = (y);\ + if ((b).ury < (y)) (b).ury = (y);\ +} while (0) +#define TRY_COMPACT (prev && cur && ((prev->num_args + cur->num_args) <= CS_ARG_STACK_MAX)) + + while (cur != NULL) { + next = cur->next; + switch (cur->type) { + case cs_rmoveto: + x += cur->args[0]; y += cur->args[1]; + UPDATE_BBOX(cd->bbox, x, y); + break; + case cs_rlineto: + x += cur->args[0]; y += cur->args[1]; + UPDATE_BBOX(cd->bbox, x, y); + if (TRY_COMPACT) { + if (prev->type == cs_rlineto) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->next = next; + RELEASE(cur); cur = NULL; + } else if (prev->type == cs_rrcurveto) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->type = cs_rcurveline; + prev->next = next; + RELEASE(cur); cur = NULL; + } + } + break; + case cs_hmoveto: + x += cur->args[0]; + UPDATE_BBOX(cd->bbox, x, y); + break; + case cs_hlineto: + x += cur->args[0]; + UPDATE_BBOX(cd->bbox, x, y); + if (TRY_COMPACT) { + if ((prev->type == cs_vlineto && (prev->num_args % 2) == 1) || + (prev->type == cs_hlineto && (prev->num_args % 2) == 0)) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->next = next; + RELEASE(cur); cur = NULL; + } + } + break; + case cs_vmoveto: + y += cur->args[0]; + UPDATE_BBOX(cd->bbox, x, y); + break; + case cs_vlineto: + y += cur->args[0]; + UPDATE_BBOX(cd->bbox, x, y); + if (TRY_COMPACT) { + if ((prev->type == cs_hlineto && (prev->num_args % 2) == 1) || + (prev->type == cs_vlineto && (prev->num_args % 2) == 0)) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->next = next; + RELEASE(cur); cur = NULL; + } + } + break; + case cs_rrcurveto: + for (i = 0; i < 3; i++) { + x += cur->args[2*i]; y += cur->args[2*i+1]; + UPDATE_BBOX(cd->bbox, x, y); + } + if (TRY_COMPACT) { + if (prev->type == cs_rrcurveto) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->next = next; + RELEASE(cur); cur = NULL; + } else if (prev->type == cs_rlineto) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->type = cs_rlinecurve; + prev->next = next; + RELEASE(cur); cur = NULL; + } + } + break; + case cs_vhcurveto: + y += cur->args[0]; + UPDATE_BBOX(cd->bbox, x, y); + x += cur->args[1]; y += cur->args[2]; + UPDATE_BBOX(cd->bbox, x, y); + x += cur->args[3]; + UPDATE_BBOX(cd->bbox, x, y); + if (TRY_COMPACT) { + if ((prev->type == cs_hvcurveto && ((prev->num_args / 4) % 2) == 1) || + (prev->type == cs_vhcurveto && ((prev->num_args / 4) % 2) == 0)) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->next = next; + RELEASE(cur); cur = NULL; + } + } + break; + case cs_hvcurveto: + x += cur->args[0]; + UPDATE_BBOX(cd->bbox, x, y); + x += cur->args[1]; y += cur->args[2]; + UPDATE_BBOX(cd->bbox, x, y); + y += cur->args[3]; + UPDATE_BBOX(cd->bbox, x, y); + if (TRY_COMPACT) { + if ((prev->type == cs_vhcurveto && ((prev->num_args / 4) % 2) == 1) || + (prev->type == cs_hvcurveto && ((prev->num_args / 4) % 2) == 0)) { + copy_args(prev->args+prev->num_args, cur->args, cur->num_args); + prev->num_args += cur->num_args; + prev->next = next; + RELEASE(cur); cur = NULL; + } + } + break; + case cs_flex: + for (i = 0; i < 6; i++) { + x += cur->args[2*i]; y += cur->args[2*1+1]; + UPDATE_BBOX(cd->bbox, x, y); + } + if (cur->args[12] == 50.0) { + if (cur->args[1] == 0.0 && cur->args[11] == 0.0 && + cur->args[5] == 0.0 && cur->args[7] == 0.0 && + cur->args[3] + cur->args[9] == 0.0) { + /* cur->args[0] = cur->args[0]; dx1 */ + cur->args[1] = cur->args[2]; /* dx2 */ + cur->args[2] = cur->args[3]; /* dy2 */ + cur->args[3] = cur->args[4]; /* dx3 */ + cur->args[4] = cur->args[6]; /* dx4 */ + cur->args[5] = cur->args[8]; /* dx5 */ + cur->args[6] = cur->args[10]; /* dx6 */ + cur->num_args = 7; + cur->type = cs_hflex; + } else if (cur->args[5] == 0.0 && cur->args[7] == 0.0 && + (cur->args[1] + cur->args[3] + + cur->args[9] + cur->args[11]) == 0) { + /* cur->args[0] = cur->args[0]; dx1 */ + /* cur->args[1] = cur->args[1]; dy1 */ + /* cur->args[2] = cur->args[2]; dx2 */ + /* cur->args[3] = cur->args[3]; dy2 */ + /* cur->args[4] = cur->args[4]; dx3 */ + cur->args[5] = cur->args[6]; /* dx4 */ + cur->args[6] = cur->args[8]; /* dx5 */ + cur->args[7] = cur->args[9]; /* dy5 */ + cur->args[8] = cur->args[10]; /* dx6 */ + cur->num_args = 9; + cur->type = cs_hflex1; + } + } + break; + case CS_HINT_DECL: + case cs_cntrmask: + /* noop */ + break; + default: + ERROR("Unexpected Type 2 charstring command %d.", cur->type); + break; + } + if (cur != NULL) + prev = cur; + cur = next; + } + + /* Had no path. Fix lower-left point. */ + if (cd->bbox.llx > cd->bbox.urx) + cd->bbox.llx = cd->bbox.urx = cd->sbw.wx; + if (cd->bbox.lly > cd->bbox.ury) + cd->bbox.lly = cd->bbox.ury = cd->sbw.wy; + + return; +} + +#define RESET_STATE() do {\ + status = CS_PARSE_OK;\ + phase = T1_CS_PHASE_INIT;\ + nest = 0;\ + ps_stack_top = 0;\ +} while (0) + +int +t1char_get_metrics (card8 *src, long srclen, cff_index *subrs, t1_ginfo *ginfo) +{ + t1_chardesc t1char, *cd; + + cd = &t1char; + init_charpath(cd); + RESET_STATE(); + CLEARSTACK(); + t1char_build_charpath(cd, &src, src+srclen, subrs); + if (cs_stack_top != 0 || ps_stack_top != 0) + WARN("Stack not empty. (%d, %d)", cs_stack_top, ps_stack_top); + do_postproc(cd); + if (ginfo) { + ginfo->wx = cd->sbw.wx; + ginfo->wy = cd->sbw.wy; + ginfo->bbox.llx = cd->bbox.llx; + ginfo->bbox.lly = cd->bbox.lly; + ginfo->bbox.urx = cd->bbox.urx; + ginfo->bbox.ury = cd->bbox.ury; + if (cd->flags & T1_CS_FLAG_USE_SEAC) { + ginfo->use_seac = 1; + ginfo->seac.adx = cd->seac.adx; + ginfo->seac.ady = cd->seac.ady; + ginfo->seac.bchar = cd->seac.bchar; + ginfo->seac.achar = cd->seac.achar; + } else { + ginfo->use_seac = 0; + } + } + release_charpath(cd); + + return 0; +} + +#define CHECK_BUFFER(n) if (dst+(n) >= endptr) {\ + ERROR("Buffer overflow.");\ +} +#define CHECK_STATUS() if (status != CS_PARSE_OK) {\ + ERROR("Charstring encoder error: %d", status);\ +} + +/* + * Encode Charpath as a Type 2 Charstring + */ +static long +t1char_encode_charpath (t1_chardesc *cd, + double default_width, double nominal_width, + card8 *dst, card8 *endptr) +{ + card8 *save; + t1_cpath *curr; + + ASSERT(cd); + + save = dst; + curr = cd->charpath; + + RESET_STATE(); + CLEARSTACK(); + /* + * Advance Width + */ + if (cd->sbw.wx != default_width) { + double wx = cd->sbw.wx - nominal_width; + put_numbers(&wx, 1, &dst, endptr); + CHECK_STATUS(); + } + /* + * Hint Declaration + */ + { + int num_hstems = 0, num_vstems = 0; + int i, reset = 1; + double stem[2]; + + for (i = 0; i < cd->num_stems && cd->stems[i].dir == HSTEM; i++) { + num_hstems++; + stem[0] = (reset ? + (cd->stems[i].pos) : + (cd->stems[i].pos - (cd->stems[i-1].pos + cd->stems[i-1].del))); + stem[1] = cd->stems[i].del; + put_numbers(stem, 2, &dst, endptr); + CHECK_STATUS(); + reset = 0; + if (2*num_hstems == CS_ARG_STACK_MAX) { + CHECK_BUFFER(1); + *dst++ = (card8) ((cd->flags & T1_CS_FLAG_USE_HINTMASK) ? cs_hstemhm : cs_hstem); + reset = 1; + } + } + if (reset == 0) { + CHECK_BUFFER(1); + *dst++ = (card8) ((cd->flags & T1_CS_FLAG_USE_HINTMASK) ? cs_hstemhm : cs_hstem); + } + reset = 1; + if (cd->num_stems - num_hstems > 0) { + for (i = num_hstems; i < cd->num_stems; i++) { + num_vstems++; + stem[0] = (reset ? + (cd->stems[i].pos) : + (cd->stems[i].pos - (cd->stems[i-1].pos + cd->stems[i-1].del))); + stem[1] = cd->stems[i].del; + put_numbers(stem, 2, &dst, endptr); + CHECK_STATUS(); + reset = 0; + if (2*num_vstems == CS_ARG_STACK_MAX) { + CHECK_BUFFER(1); + *dst++ = (card8) ((cd->flags & T1_CS_FLAG_USE_HINTMASK) ? cs_vstemhm : cs_vstem); + reset = 1; + } + } + if (reset == 0) { + CHECK_BUFFER(1); + if ((cd->flags & T1_CS_FLAG_USE_HINTMASK) || + (cd->flags & T1_CS_FLAG_USE_CNTRMASK)) { + /* + * The vstem hint operator can be ommited if hstem and vstem hints + * are both declared at the beginning of a charstring, and is + * followed directly by the hintmask or cntrmask operators. + */ + if (curr->type != CS_HINT_DECL && + curr->type != cs_cntrmask) { + *dst++ = (card8) cs_vstemhm; + } + } else { + *dst++ = (card8) cs_vstem; + } + } + } + } + /* + * Path Construction and Hint Replacement + */ + while (curr != NULL && curr->type != cs_endchar) { + switch (curr->type) { + case CS_HINT_DECL: + { + card8 hintmask[(CS_STEM_ZONE_MAX+7)/8]; + + memset(hintmask, 0, (cd->num_stems+7)/8); + while (curr != NULL && curr->type == CS_HINT_DECL) { + int stem_idx; + + stem_idx = get_stem(cd, (int) curr->args[0]); + ASSERT(stem_idx < cd->num_stems); + hintmask[stem_idx/8] |= (1 << (7 - (stem_idx % 8))); + curr = curr->next; + } + if (cd->flags & T1_CS_FLAG_USE_HINTMASK) { + CHECK_BUFFER((cd->num_stems+7)/8 + 1); + *dst++ = (card8) cs_hintmask; + memcpy(dst, hintmask, (cd->num_stems+7)/8); + dst += (cd->num_stems+7)/8; + } + } + break; + case cs_cntrmask: + { + card8 cntrmask[(CS_STEM_ZONE_MAX+7)/8]; + int stem_idx, i; + + memset(cntrmask, 0, (cd->num_stems+7)/8); + for (i = 0; i < curr->num_args; i++) { + stem_idx = get_stem(cd, (int) curr->args[i]); + ASSERT(stem_idx < cd->num_stems); + cntrmask[stem_idx/8] |= (1 << (7 - (stem_idx % 8))); + } + CHECK_BUFFER((cd->num_stems+7)/8 + 1); + *dst++ = (card8) cs_cntrmask; + memcpy(dst, cntrmask, (cd->num_stems+7)/8); + dst += (cd->num_stems+7)/8; + curr = curr->next; + } + break; + case cs_rmoveto: case cs_hmoveto: case cs_vmoveto: + case cs_rlineto: case cs_hlineto: case cs_vlineto: + case cs_rrcurveto: case cs_hvcurveto: case cs_vhcurveto: + case cs_rlinecurve: case cs_rcurveline: + { + put_numbers(curr->args, curr->num_args, &dst, endptr); + CHECK_STATUS(); + CHECK_BUFFER(1); + *dst++ = (card8) curr->type; + curr = curr->next; + } + break; + case cs_flex: case cs_hflex: + case cs_hflex1: + { + put_numbers(curr->args, curr->num_args, &dst, endptr); + CHECK_STATUS(); + CHECK_BUFFER(2); + *dst++ = (card8) cs_escape; + *dst++ = (card8) curr->type; + curr = curr->next; + } + break; + default: + ERROR("Unknown Type 2 charstring command: %d", curr->type); + break; + } + } + + /* + * (adx ady bchar achar) endchar + */ + if (cd->flags & T1_CS_FLAG_USE_SEAC) { + double seac[4]; + seac[0] = cd->seac.adx; + seac[1] = cd->seac.ady; + seac[2] = cd->seac.bchar; + seac[3] = cd->seac.achar; + put_numbers(seac, 4, &dst, endptr); + CHECK_STATUS(); + CHECK_BUFFER(2); + WARN("Obsolete four arguments of \"endchar\" will be used for Type 1 \"seac\" operator."); + } + CHECK_BUFFER(1); + *dst++ = (card8) cs_endchar; + + return (long) (dst - save); +} + +long +t1char_convert_charstring (card8 *dst, long dstlen, + card8 *src, long srclen, cff_index *subrs, + double default_width, double nominal_width, + t1_ginfo *ginfo) +{ + long length; + t1_chardesc t1char, *cd; + + cd = &t1char; + init_charpath(cd); + RESET_STATE(); + CLEARSTACK(); + t1char_build_charpath(cd, &src, src+srclen, subrs); + if (cs_stack_top != 0 || ps_stack_top != 0) + WARN("Stack not empty. (%d, %d)", cs_stack_top, ps_stack_top); + do_postproc(cd); + SORT_STEMS(cd); + + length = t1char_encode_charpath(cd, default_width, nominal_width, dst, dst+dstlen); + + if (ginfo) { + ginfo->wx = cd->sbw.wx; + ginfo->wy = cd->sbw.wy; + ginfo->bbox.llx = cd->bbox.llx; + ginfo->bbox.lly = cd->bbox.lly; + ginfo->bbox.urx = cd->bbox.urx; + ginfo->bbox.ury = cd->bbox.ury; + if (cd->flags & T1_CS_FLAG_USE_SEAC) { + ginfo->use_seac = 1; + ginfo->seac.adx = cd->seac.adx; + ginfo->seac.ady = cd->seac.ady; + ginfo->seac.bchar = cd->seac.bchar; + ginfo->seac.achar = cd->seac.achar; + } else { + ginfo->use_seac = 0; + } + } + release_charpath(cd); + + return length; +} diff --git a/Build/source/texk/xdvipdfmx/src/t1_char.h b/Build/source/texk/xdvipdfmx/src/t1_char.h new file mode 100644 index 00000000000..5240a3a39cc --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/t1_char.h @@ -0,0 +1,26 @@ +#ifndef _T1_CSTR_H_ +#define _T1_CSTR_H_ + +#include "cff_types.h" + +typedef struct { + int use_seac; + double wx, wy; + struct { + double llx, lly, urx, ury; + } bbox; + struct { + double asb, adx, ady; + card8 bchar, achar; + } seac; +} t1_ginfo; + +extern int t1char_get_metrics (card8 *src, long srclen, + cff_index *subrs, t1_ginfo *ginfo); +extern long t1char_convert_charstring (card8 *dst, long dstlen, + card8 *src, long srclen, + cff_index *subrs, + double default_width, double nominal_width, + t1_ginfo *ginfo); + +#endif /* _T1_CSTR_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/t1_load.c b/Build/source/texk/xdvipdfmx/src/t1_load.c new file mode 100644 index 00000000000..ccb09703351 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/t1_load.c @@ -0,0 +1,1197 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/t1_load.c,v 1.9 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "mfileio.h" +#include "mem.h" +#include "error.h" +#include "numbers.h" + +#include "pdfobj.h" +#include "pdffont.h" + +#include "pdfencoding.h" +#include "unicode.h" + +#include "dpxutil.h" + +#include "pst_obj.h" +#include "pst.h" + +#include "cff_limits.h" +#include "cff_types.h" +#include "cff_dict.h" +#include "cff.h" + +#include "t1_load.h" + +/* Migrated from t1crypt */ +#define T1_EEKEY 55665u +#define T1_CHARKEY 4330u + +#if 0 +/* We no longer need encryption. */ +static unsigned char t1_encrypt (unsigned char plain); +#endif /* 0 */ +static void t1_crypt_init (unsigned short key); +static unsigned char t1_decrypt (unsigned char cipher); +static unsigned short r = T1_EEKEY, c1 = 52845, c2 = 22719; + +#if 0 +static unsigned char t1_encrypt (unsigned char plain) +{ + unsigned char cipher; + cipher = (plain ^ (r >> 8)); + r = (cipher + r) * c1 + c2; + return cipher; +} +#endif /* 0 */ + +static void t1_crypt_init (unsigned short key) +{ + r = key; +} + +static unsigned char t1_decrypt (unsigned char cipher) +{ + unsigned char plain; + plain = (cipher ^ (r >> 8)); + r = (cipher + r) * c1 + c2; + return plain; +} +/* T1CRYPT */ + +#define MATCH_NAME(t,n) ((t) && PST_NAMETYPE((t)) && !strncmp(pst_data_ptr((t)),(n),strlen((n)))) +#define MATCH_OP(t,n) ((t) && PST_UNKNOWNTYPE((t)) && !strncmp(pst_data_ptr((t)),(n),strlen((n)))) + +#define RELEASE_TOK(t) if ((t) != NULL) {\ + pst_release_obj((t));\ + (t) = NULL;\ +} + +static char * +get_next_key (unsigned char **start, unsigned char *end) +{ + char *key = NULL; + pst_obj *tok; + + while (*start < end && + (tok = pst_get_token(start, end)) != NULL) { + if (PST_NAMETYPE(tok)) { + key = (char *) pst_getSV(tok); + RELEASE_TOK(tok); + break; + } + RELEASE_TOK(tok); + } + + return key; +} + +static int +seek_operator (unsigned char **start, unsigned char *end, const char *op) +{ + pst_obj *tok = NULL; + + while (*start < end && + (tok = pst_get_token(start, end)) != NULL) { + if (MATCH_OP(tok, op)) { + break; + } + RELEASE_TOK(tok); + } + + if (tok == NULL) + return -1; + RELEASE_TOK(tok); + + return 0; +} + + +static int +parse_svalue (unsigned char **start, unsigned char *end, char **value) +{ + pst_obj *tok; + + tok = pst_get_token(start, end); + if (tok == NULL) + return -1; + else if (PST_NAMETYPE(tok) || PST_STRINGTYPE(tok)) + *value = (char *) pst_getSV(tok); + else { + RELEASE_TOK(tok); + return -1; + } + RELEASE_TOK(tok); + + return 1; +} + +static int +parse_bvalue (unsigned char **start, unsigned char *end, double *value) +{ + pst_obj *tok; + + tok = pst_get_token(start, end); + if (tok == NULL) + return -1; + else if (PST_BOOLEANTYPE(tok)) + *value = (double) pst_getIV(tok); + else { + RELEASE_TOK(tok); + return -1; + } + RELEASE_TOK(tok); + + return 1; +} + +static int +parse_nvalue (unsigned char **start, unsigned char *end, double *value, int max) +{ + int argn = 0; + pst_obj *tok; + + tok = pst_get_token(start, end); + if (tok == NULL) + return -1; + /* + * All array elements must be numeric token. (ATM compatible) + */ + if (PST_NUMBERTYPE(tok) && max > 0) { + value[0] = (double) pst_getRV(tok); + argn = 1; + } else if (PST_MARKTYPE(tok)) { + /* It does not distinguish '[' and '{'... */ + RELEASE_TOK(tok); + while (*start < end && + (tok = pst_get_token(start, end)) != NULL && + PST_NUMBERTYPE(tok) && argn < max) { + value[argn++] = (double) pst_getRV(tok); + RELEASE_TOK(tok); + } + if (tok == NULL) + return -1; + if (!MATCH_OP(tok, "]") && !MATCH_OP(tok, "}")) { + argn = -1; + } + } + RELEASE_TOK(tok); + + return argn; +} + +static const char *const StandardEncoding[256] = { + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", "space", "exclam", "quotedbl", + "numbersign", "dollar", "percent", "ampersand", "quoteright", + "parenleft", "parenright", "asterisk", "plus", "comma", + "hyphen", "period", "slash", "zero", "one", + "two", "three", "four", "five", "six", + "seven", "eight", "nine", "colon", "semicolon", + "less", "equal", "greater", "question", "at", + "A", "B", "C", "D", "E", + "F", "G", "H", "I", "J", + "K", "L", "M", "N", "O", + "P", "Q", "R", "S", "T", + "U", "V", "W", "X", "Y", + "Z", "bracketleft", "backslash", "bracketright", "asciicircum", + "underscore", "quoteleft", "a", "b", "c", + "d", "e", "f", "g", "h", + "i", "j", "k", "l", "m", + "n", "o", "p", "q", "r", + "s", "t", "u", "v", "w", + "x", "y", "z", "braceleft", "bar", + "braceright", "asciitilde", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", "exclamdown", "cent", "sterling", "fraction", + "yen", "florin", "section", "currency", "quotesingle", + "quotedblleft", "guillemotleft", "guilsinglleft", "guilsinglright", "fi", + "fl", ".notdef", "endash", "dagger", "daggerdbl", + "periodcentered", ".notdef", "paragraph", "bullet", "quotesinglbase", + "quotedblbase", "quotedblright", "guillemotright", "ellipsis", "perthousand", + ".notdef", "questiondown", ".notdef", "grave", "acute", + "circumflex", "tilde", "macron", "breve", "dotaccent", + "dieresis", ".notdef", "ring", "cedilla", ".notdef", + "hungarumlaut", "ogonek", "caron", "emdash", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + "AE", ".notdef", "ordfeminine", ".notdef", ".notdef", + ".notdef", ".notdef", "Lslash", "Oslash", "OE", + "ordmasculine", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", "ae", ".notdef", ".notdef", ".notdef", + "dotlessi", ".notdef", ".notdef", "lslash", "oslash", + "oe", "germandbls", ".notdef", ".notdef", ".notdef", + ".notdef" +}; + +static const char *const ISOLatin1Encoding[256] = { + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", "space", "exclam", "quotedbl", + "numbersign", "dollar", "percent", "ampersand", "quotesingle", + "parenleft", "parenright", "asterisk", "plus", "comma", + "hyphen", "period", "slash", "zero", "one", + "two", "three", "four", "five", "six", + "seven", "eight", "nine", "colon", "semicolon", + "less", "equal", "greater", "question", "at", + "A", "B", "C", "D", "E", + "F", "G", "H", "I", "J", + "K", "L", "M", "N", "O", + "P", "Q", "R", "S", "T", + "U", "V", "W", "X", "Y", + "Z", "bracketleft", "backslash", "bracketright", "asciicircum", + "underscore", "grave", "a", "b", "c", + "d", "e", "f", "g", "h", + "i", "j", "k", "l", "m", + "n", "o", "p", "q", "r", + "s", "t", "u", "v", "w", + "x", "y", "z", "braceleft", "bar", + "braceright", "asciitilde", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", ".notdef", + ".notdef", ".notdef", ".notdef", ".notdef", "dotlessi", + "quoteleft", "quoteright", "circumflex", "tilde", "macron", + "breve", "dotaccent", "dieresis", ".notdef", "ring", + "cedilla", ".notdef", "hungarumlaut", "ogonek", "caron", + "space", "exclamdown", "cent", "sterling", "currency", + "yen", "brokenbar", "section", "dieresis", "copyright", + "ordfeminine", "guillemotleft", "logicalnot", "hyphen", + "registered", + "macron", "degree", "plusminus", "twosuperior", "threesuperior", + "acute", "mu", "paragraph", "periodcentered", "cedilla", + "onesuperior", "ordmasculine", "guillemotright", "onequarter", + "onehalf", + "threequarters", "questiondown", "Agrave", "Aacute", "Acircumflex", + "Atilde", "Adieresis", "Aring", "AE", "Ccedilla", + "Egrave", "Eacute", "Ecircumflex", "Edieresis", "Igrave", + "Iacute", "Icircumflex", "Idieresis", "Eth", "Ntilde", + "Ograve", "Oacute", "Ocircumflex", "Otilde", "Odieresis", + "multiply", "Oslash", "Ugrave", "Uacute", "Ucircumflex", + "Udieresis", "Yacute", "Thorn", "germandbls", "agrave", + "aacute", "acircumflex", "atilde", "adieresis", "aring", + "ae", "ccedilla", "egrave", "eacute", "ecircumflex", + "edieresis", "igrave", "iacute", "icircumflex", "idieresis", + "eth", "ntilde", "ograve", "oacute", "ocircumflex", + "otilde", "odieresis", "divide", "oslash", "ugrave", + "uacute", "ucircumflex", "udieresis", "yacute", "thorn", + "ydieresis" +}; + +static int +parse_encoding (char **enc_vec, unsigned char **start, unsigned char *end, int mode) +{ + pst_obj *tok; + int code; + + /* + * StandardEncoding def + * or + * ISOLatin1Encoding def + * or + * 0 1 255 {1 index exch /.notdef put } for + * dup int name put + * ... + * [readonly] def + */ + tok = pst_get_token(start, end); + if (MATCH_OP(tok, "StandardEncoding")) { + RELEASE_TOK(tok); + if (enc_vec) { + for (code = 0; code < 256; code++) { + if (StandardEncoding[code] && + strcmp(StandardEncoding[code], ".notdef") != 0) { + enc_vec[code] = NEW(strlen(StandardEncoding[code])+1, char); + strcpy(enc_vec[code], StandardEncoding[code]); + } else { + enc_vec[code] = NULL; + } + } + } + } else if (MATCH_OP(tok, "ISOLatin1Encoding")) { + RELEASE_TOK(tok); + if (enc_vec) { + for (code = 0; code < 256; code++) { + if (ISOLatin1Encoding[code] && + strcmp(ISOLatin1Encoding[code], ".notdef") != 0) { + enc_vec[code] = NEW(strlen(ISOLatin1Encoding[code])+1, char); + strcpy(enc_vec[code], ISOLatin1Encoding[code]); + } else { + enc_vec[code] = NULL; + } + } + } + } else if (MATCH_OP(tok, "ExpertEncoding")) { + RELEASE_TOK(tok); + if (enc_vec) { + WARN("ExpertEncoding not supported."); + RELEASE_TOK(tok); + return -1; + } + /* + * Not supported yet. + */ + } else { + RELEASE_TOK(tok); + seek_operator(start, end, "array"); + /* + * Pick all seaquences that matches "dup n /Name put" until + * occurrence of "def" or "readonly". + */ + while (*start < end && + (tok = pst_get_token(start, end)) != NULL) { + if (MATCH_OP(tok, "def") || MATCH_OP(tok, "readonly")) { + RELEASE_TOK(tok); + break; + } else if (!MATCH_OP(tok, "dup")) { + RELEASE_TOK(tok); + continue; + } + RELEASE_TOK(tok); + + tok = pst_get_token(start, end); + if (!tok || !PST_INTEGERTYPE(tok) || + (code = pst_getIV(tok)) > 255 || code < 0) { + RELEASE_TOK(tok); + continue; + } + RELEASE_TOK(tok); + + tok = pst_get_token(start, end); + if (!tok || !PST_NAMETYPE(tok)) { + RELEASE_TOK(tok); + continue; + } + if (enc_vec) { + if (enc_vec[code]) + RELEASE(enc_vec[code]); + enc_vec[code] = (char *) pst_getSV(tok); + } + RELEASE_TOK(tok); + + tok = pst_get_token(start, end); + if (!MATCH_OP(tok, "put")) { + if (enc_vec[code]) { + RELEASE(enc_vec[code]); + enc_vec[code] = NULL; + } + RELEASE_TOK(tok); + continue; + } + RELEASE_TOK(tok); + } + } + + return 0; +} + +#ifndef CS_STR_LEN_MAX +#define CS_STR_LEN_MAX 65536UL +#endif +#ifndef CFF_GLYPH_MAX +#define CFF_GLYPH_MAX CFF_SID_MAX +#endif + +static int +parse_subrs (cff_font *font, + unsigned char **start, unsigned char *end, int lenIV, int mode) +{ + cff_index *subrs; + pst_obj *tok; + long i, count, offset, max_size; + long *offsets, *lengths; + card8 *data; + + tok = pst_get_token(start, end); + if (!PST_INTEGERTYPE(tok) || pst_getIV(tok) < 0) { + WARN("Parsing Subrs failed."); + RELEASE_TOK(tok); + return -1; + } + + count = pst_getIV(tok); + RELEASE_TOK(tok); + + if (count == 0) { + font->subrs[0] = NULL; + return 0; + } + + tok = pst_get_token(start, end); + if (!MATCH_OP(tok, "array")) { + RELEASE_TOK(tok); + return -1; + } + RELEASE_TOK(tok); + + if (mode != 1) { + max_size = CS_STR_LEN_MAX; + data = NEW(max_size, card8); + offsets = NEW(count, long); + lengths = NEW(count, long); + memset(offsets, 0, sizeof(long)*count); + memset(lengths, 0, sizeof(long)*count); + } else { + max_size = 0; + data = NULL; + offsets = NULL; + lengths = NULL; + } + + offset = 0; + /* dup subr# n-bytes RD n-binary-bytes NP */ + for (i = 0; i < count;) { + long idx, len; + + tok = pst_get_token(start, end); + if (!tok) { + if (data) RELEASE(data); + if (offsets) RELEASE(offsets); + if (lengths) RELEASE(lengths); + return -1; + } else if (MATCH_OP(tok, "ND") || + MATCH_OP(tok, "|-") || MATCH_OP(tok, "def")) { + RELEASE_TOK(tok); + break; + } else if (!MATCH_OP(tok, "dup")) { + RELEASE_TOK(tok); + continue; + } + RELEASE_TOK(tok); + + /* Found "dup" */ + tok = pst_get_token(start, end); + if (!PST_INTEGERTYPE(tok) || pst_getIV(tok) < 0 || + pst_getIV(tok) >= count) { + RELEASE_TOK(tok); + if (data) RELEASE(data); + if (offsets) RELEASE(offsets); + if (lengths) RELEASE(lengths); + return -1; + } + idx = pst_getIV(tok); + RELEASE_TOK(tok); + + tok = pst_get_token(start, end); + if (!PST_INTEGERTYPE(tok) || pst_getIV(tok) < 0 || + pst_getIV(tok) > CS_STR_LEN_MAX) { + RELEASE_TOK(tok); + return -1; + } + len = pst_getIV(tok); + RELEASE_TOK(tok); + + tok = pst_get_token(start, end); + if (!MATCH_OP(tok, "RD") && !MATCH_OP(tok, "-|") && + seek_operator(start, end, "readstring") < 0) { + RELEASE_TOK(tok); + if (data) RELEASE(data); + if (offsets) RELEASE(offsets); + if (lengths) RELEASE(lengths); + return -1; + } + RELEASE_TOK(tok); + + *start += 1; + if (*start + len >= end) { + if (data) RELEASE(data); + if (offsets) RELEASE(offsets); + if (lengths) RELEASE(lengths); + return -1; + } + if (mode != 1) { + if (offset + len >= max_size) { + max_size += CS_STR_LEN_MAX; + data = RENEW(data, max_size, card8); + } + if (lenIV >= 0) { + long j; + + offsets[idx] = offset; + lengths[idx] = len - lenIV; + t1_crypt_init(T1_CHARKEY); + for (j = 0; j < lenIV; j++) + t1_decrypt(*((*start)+j)); + for (j = lenIV; j < len ; j++) { + data[offset] = (card8) t1_decrypt(*((*start)+j)); + offset++; + } + } else if (len > 0) { + offsets[idx] = offset; + lengths[idx] = len; + memcpy(&data[offset], *start, len); + offset += len; + } + } + *start += len; + i++; + } + + if (mode != 1) { + subrs = font->subrs[0] = cff_new_index(count); + subrs->data = NEW(offset, card8); + offset = 0; + for (i = 0; i < count; i++) { + subrs->offset[i] = offset + 1; + if (lengths[i] > 0) { + memcpy(subrs->data + offset, data + offsets[i], lengths[i]); + offset += lengths[i]; + } + } + subrs->offset[count] = offset + 1; + + RELEASE(data); + RELEASE(offsets); + RELEASE(lengths); + } + + return 0; +} + +static int +parse_charstrings (cff_font *font, + unsigned char **start, unsigned char *end, int lenIV, int mode) +{ + cff_index *charstrings; + cff_charsets *charset; + pst_obj *tok; + long i, count, have_notdef; + long max_size, offset; + + /* /CharStrings n dict dup begin + * /GlyphName n-bytes RD -n-binary-bytes- ND + * ... + * end + * - stack - ... /CharStrings dict + */ + tok = pst_get_token(start, end); + if (!PST_INTEGERTYPE(tok) || + pst_getIV(tok) < 0 || pst_getIV(tok) > CFF_GLYPH_MAX) { + RELEASE_TOK(tok); + return -1; + } + count = pst_getIV(tok); + RELEASE_TOK(tok); + + if (mode != 1) { + charstrings = cff_new_index(count); + max_size = CS_STR_LEN_MAX; + charstrings->data = NEW(max_size, card8); + } else { + charstrings = NULL; + max_size = 0; + } + font->cstrings = charstrings; + + charset = font->charsets = NEW(1, cff_charsets); + charset->format = 0; + charset->num_entries = count-1; + charset->data.glyphs = NEW(count-1, s_SID); + memset(charset->data.glyphs, 0, sizeof(s_SID)*(count-1)); + +#ifdef XETEX + font->ft_to_gid = NEW(count, unsigned short); +#endif + + offset = 0; + have_notdef = 0; /* .notdef must be at gid = 0 in CFF */ + + seek_operator(start, end, "begin"); + for (i = 0; i < count; i++) { + char *glyph_name; + long len, gid, j; + + glyph_name = get_next_key(start, end); + if (!glyph_name) { + return -1; + } else if (!strcmp(glyph_name, ".notdef")) { + gid = 0; + have_notdef = 1; + } else if (have_notdef) { + gid = i; + } else if (i == count - 1) { + WARN("No .notdef glyph???"); + return -1; + } else { + gid = i+1; + } +#ifdef XETEX + font->ft_to_gid[i] = gid; +#endif + + if (gid > 0) + charset->data.glyphs[gid-1] = cff_add_string(font, glyph_name); + RELEASE(glyph_name); + + tok = pst_get_token(start, end); + if (!PST_INTEGERTYPE(tok) || + pst_getIV(tok) < 0 || pst_getIV(tok) > CS_STR_LEN_MAX) { + RELEASE_TOK(tok); + return -1; + } + len = pst_getIV(tok); + RELEASE_TOK(tok); + + tok = pst_get_token(start, end); + if (!MATCH_OP(tok, "RD") && + !MATCH_OP(tok, "-|") && + seek_operator(start, end, "readstring") < 0) { + RELEASE_TOK(tok); + return -1; + } + RELEASE_TOK(tok); + + if (*start + len + 1 >= end) { + return -1; + } + if (mode != 1) { + if (offset + len >= max_size) { + max_size += MAX(len, CS_STR_LEN_MAX); + charstrings->data = RENEW(charstrings->data, max_size, card8); + } + if (gid == 0) { + if (lenIV >= 0) { + memmove(charstrings->data + len - lenIV, charstrings->data, offset); + for (j = 1; j <= i; j++) { + charstrings->offset[j] += len - lenIV; + } + } else { + memmove(charstrings->data + len, charstrings->data, offset); + for (j = 1; j <= i; j++) { + charstrings->offset[j] += len; + } + } + } + } + + *start += 1; + if (mode != 1) { + if (lenIV >= 0) { + t1_crypt_init(T1_CHARKEY); + for (j = 0; j < lenIV; j++) + t1_decrypt(*((*start)+j)); + if (gid == 0) { + charstrings->offset[gid] = 1; /* start at 1 */ + for (j = lenIV; j < len; j++) { + charstrings->data[j-lenIV] = t1_decrypt(*((*start)+j)); + } + } else { + charstrings->offset[gid] = offset + 1; /* start at 1 */ + for (j = lenIV; j < len; j++) { + charstrings->data[offset+j-lenIV] = t1_decrypt(*((*start)+j)); + } + } + offset += len - lenIV; + } else { + if (gid == 0) { + charstrings->offset[gid] = 1; + memcpy(&charstrings->data[0], *start, len); + } else { + charstrings->offset[gid] = offset + 1; + memcpy(&charstrings->data[offset], *start, len); + } + offset += len; + } + } + *start += len; + } + if (mode != 1) + charstrings->offset[count] = offset + 1; + font->num_glyphs = count; + + return 0; +} + +#define CHECK_ARGN_EQ(n) if (argn != (n)) {\ + WARN("%d values expected but only %d read.", (n), argn);\ + RELEASE(key);\ + return -1;\ +} +#define CHECK_ARGN_GE(n) if (argn < (n)) {\ + WARN("%d values expected but only %d read.", (n), argn);\ + RELEASE(key);\ + return -1;\ +} + +#define MAX_ARGS 127 +static int +parse_part2 (cff_font *font, unsigned char **start, unsigned char *end, int mode) +{ + char *key; + double argv[MAX_ARGS]; + int argn, lenIV = 4; + + while (*start < end && + (key = get_next_key(start, end)) != NULL) { + if (!strcmp(key, "Subrs")) { + /* levIV must appear before Subrs */ + if (parse_subrs(font, start, end, lenIV, mode) < 0) { + RELEASE(key); + return -1; + } + } else if (!strcmp(key, "CharStrings")) { + if (parse_charstrings(font, start, end, lenIV, mode) < 0) { + RELEASE(key); + return -1; + } + } else if (!strcmp(key, "lenIV")) { + argn = parse_nvalue(start, end, argv, 1); + CHECK_ARGN_EQ(1); + lenIV = (int) argv[0]; + } else if (!strcmp(key, "BlueValues") || + !strcmp(key, "OtherBlues") || + !strcmp(key, "FamilyBlues") || + !strcmp(key, "FamilyOtherBlues") || + !strcmp(key, "StemSnapH") || + !strcmp(key, "StemSnapV")) { + /* + * Operand values are delta in CFF font dictionary encoding. + */ + argn = parse_nvalue(start, end, argv, MAX_ARGS); + CHECK_ARGN_GE(0); + cff_dict_add(font->private[0], key, argn); + while (argn-- > 0) { + cff_dict_set(font->private[0], key, argn, + (argn == 0) ? argv[argn] : argv[argn] - argv[argn-1]); + } + } else if (!strcmp(key, "StdHW") || + !strcmp(key, "StdVW") || + !strcmp(key, "BlueScale") || + !strcmp(key, "BlueShift") || + !strcmp(key, "BlueFuzz") || + !strcmp(key, "LanguageGroup") || + !strcmp(key, "ExpansionFactor")) { + /* + * Value of StdHW and StdVW is described as an array in the + * Type 1 Font Specification but is a number in CFF format. + */ + argn = parse_nvalue(start, end, argv, 1); + CHECK_ARGN_EQ(1); + cff_dict_add(font->private[0], key, 1); + cff_dict_set(font->private[0], key, 0, argv[0]); + } else if (!strcmp(key, "ForceBold")) { + argn = parse_bvalue(start, end, &(argv[0])); + CHECK_ARGN_EQ(1); + if (argv[0] != 0) { + cff_dict_add(font->private[0], key, 1); + cff_dict_set(font->private[0], key, 0, 1); + } + } + /* + * MinFeature, RndStemUp, UniqueID, Password ignored. + */ + RELEASE(key); + } + + return 0; +} + +#ifndef TYPE1_NAME_LEN_MAX +#define TYPE1_NAME_LEN_MAX 127 +#endif + +static long +parse_part1 (cff_font *font, char **enc_vec, + unsigned char **start, unsigned char *end, int mode) +{ + char *key, *strval; + double argv[MAX_ARGS]; + int argn; /* Macro CHECK_ARGN_XX assume 'argn' is used. */ + + /* + * We skip PostScript code inserted before the beginning of + * font dictionary so that parser will not be confused with + * it. See LMRoman10-Regular (lmr10.pfb) for example. + */ + if (seek_operator(start, end, "begin") < 0) + return -1; + + while (*start < end && + (key = get_next_key(start, end)) != NULL) { + if (!strcmp(key, "Encoding")) { + if (parse_encoding(enc_vec, start, end, mode) < 0) { + RELEASE(key); + return -1; + } + } else if (!strcmp(key, "FontName")) { + argn = parse_svalue(start, end, &strval); + CHECK_ARGN_EQ(1); + if (strlen(strval) > TYPE1_NAME_LEN_MAX) { + WARN("FontName too long: %s (%d bytes)", strval, strlen(strval)); + strval[TYPE1_NAME_LEN_MAX] = '\0'; + } + cff_set_name(font, strval); + RELEASE(strval); + } else if (!strcmp(key, "FontType")) { + argn = parse_nvalue(start, end, argv, 1); + CHECK_ARGN_EQ(1); + if (argv[0] != 1.0) { + WARN("FontType %d not supported.", (int) argv[0]); + RELEASE(key); + return -1; + } +#if 0 + /* DISABLED: + * + * Subsetted font shouldn't have UniqueID. + */ + } else if (!strcmp(key, "UniqueID")) { + argn = parse_nvalue(start, end, argv, 1); + CHECK_ARGN_EQ(1); + cff_dict_add(font->topdict, key, 1); + cff_dict_set(font->topdict, key, 0, argv[0]); +#endif + } else if (!strcmp(key, "ItalicAngle") || + !strcmp(key, "StrokeWidth") || + !strcmp(key, "PaintType")) { + argn = parse_nvalue(start, end, argv, 1); + CHECK_ARGN_EQ(1); + if (argv[0] != 0.0) { +#if 0 + /* + * Positive value in Bitstream CharterBT-Italic ??? + */ + if (!strcmp(key, "ItalicAngle") && argv[0] > 0) { + WARN("Positive ItalicAngle value: %g", argv[0]); + argv[0] *= -1; + } +#endif + cff_dict_add(font->topdict, key, 1); + cff_dict_set(font->topdict, key, 0, argv[0]); + } + } else if (!strcmp(key, "UnderLinePosition") || + !strcmp(key, "UnderLineThickness")) { + argn = parse_nvalue(start, end, argv, 1); + CHECK_ARGN_EQ(1); + cff_dict_add(font->topdict, key, 1); + cff_dict_set(font->topdict, key, 0, argv[0]); + } else if (!strcmp(key, "FontBBox")) { + argn = parse_nvalue(start, end, argv, 4); + CHECK_ARGN_EQ(4); + cff_dict_add(font->topdict, key, 4); + while (argn-- > 0) { + cff_dict_set(font->topdict, key, argn, argv[argn]); + } + } else if (!strcmp(key, "FontMatrix")) { + argn = parse_nvalue(start, end, argv, 6); + CHECK_ARGN_EQ(6); + if (argv[0] != 0.001 || argv[1] != 0.0 || argv[2] != 0.0 || + argv[3] != 0.001 || argv[4] != 0.0 || argv[5] != 0.0) { + cff_dict_add(font->topdict, key, 6); + while (argn-- > 0) { + cff_dict_set(font->topdict, key, argn, argv[argn]); + } + } + } else if (!strcmp(key, "version") || !strcmp(key, "Notice") || + !strcmp(key, "FullName") || !strcmp(key, "FamilyName") || + !strcmp(key, "Weight") || !strcmp(key, "Copyright")) { + /* + * FontInfo + */ + argn = parse_svalue(start, end, &strval); + CHECK_ARGN_EQ(1); + { + s_SID sid; + + cff_dict_add(font->topdict, key, 1); + if ((sid = cff_get_sid(font, strval)) == CFF_STRING_NOTDEF) + sid = cff_add_string(font, strval); /* FIXME */ + cff_dict_set(font->topdict, key, 0, sid); + } + RELEASE(strval); + } else if (!strcmp(key, "IsFixedPitch")) { + argn = parse_bvalue(start, end, &(argv[0])); + CHECK_ARGN_EQ(1); + if (argv[0] != 0.0) { + cff_dict_add(font->private[0], key, 1); + cff_dict_set(font->private[0], key, 0, 1); + } + } + RELEASE(key); + } + + return 0; +} + +int +is_pfb (FILE *fp) +{ + char sig[15]; + int i, ch; + + rewind(fp); + if ((ch = fgetc(fp)) != 128 || + (ch = fgetc (fp)) < 0 || ch > 3) { + return 0; + } + for (i = 0; i < 4; i++) { + if ((ch = fgetc(fp)) < 0) { + return 0; + } + } + for (i = 0; i < 14; i++) { + if ((ch = fgetc(fp)) < 0) { + return 0; + } + sig[i] = (char) ch; + } + if (!memcmp(sig, "%!PS-AdobeFont", 14) || + !memcmp(sig, "%!FontType1", 11)) { + return 1; + } else if (!memcmp(sig, "%!PS", 4)) { + sig[14] = '\0'; + WARN("Ambiguous PostScript resource type: %s", sig); + return 1; + } else { + WARN("Not a PFB font file?"); + return 0; + } + + return 0; +} + + +#define PFB_SEG_TYPE_ASCII 1 +#define PFB_SEG_TYPE_BINARY 2 + +static unsigned char * +get_pfb_segment (FILE *fp, int expected_type, long *length) +{ + unsigned char *buffer; + long bytesread; + + buffer = NULL; bytesread = 0; + for (;;) { + int ch; + + ch = fgetc(fp); + if (ch < 0) { + break; + } else if (ch != 128) { + ERROR("Not a pfb file?"); + } + ch = fgetc(fp); + if (ch < 0 || ch != expected_type) { + seek_relative(fp, -2); + break; + } + { + long slen, rlen; + int i; + + slen = 0; + for (i = 0; i < 4; i++) { + if ((ch = fgetc(fp)) < 0) { + if (buffer) + RELEASE(buffer); + return NULL; + } + slen = slen + (ch << (8*i)); + } + buffer = RENEW(buffer, bytesread + slen, unsigned char); + while (slen > 0) { + rlen = fread(buffer + bytesread, sizeof(unsigned char), slen, fp); + if (rlen < 0) { + if (buffer) + RELEASE(buffer); + return NULL; + } + slen -= rlen; + bytesread += rlen; + } + } + } + if (bytesread == 0) { + ERROR("PFB segment length zero?"); + } + + if (length) + *length = bytesread; + return buffer; +} + +char * +t1_get_standard_glyph (int code) +{ + if (!StandardEncoding[code]) + return NULL; + + return (char *) StandardEncoding[code]; +} + +int +t1_get_fontname (FILE *fp, char *fontname) +{ + unsigned char *buffer, *start, *end; + long length; + char *key; + int fn_found = 0; + + rewind(fp); + buffer = get_pfb_segment(fp, PFB_SEG_TYPE_ASCII, &length); + if (buffer == NULL || length == 0) + ERROR("Reading PFB (ASCII part) file failed."); + start = buffer; + end = buffer + length; + + if (seek_operator(&start, end, "begin") < 0) { + RELEASE(buffer); + return -1; + } + + while (!fn_found && start < end && + (key = get_next_key(&start, end)) != NULL) { + if (!strcmp(key, "FontName")) { + char *strval; + if (parse_svalue(&start, end, &strval) == 1) { + if (strlen(strval) > TYPE1_NAME_LEN_MAX) { + WARN("FontName \"%s\" too long. (%d bytes)", strval, strlen(strval)); + strval[TYPE1_NAME_LEN_MAX] = '\0'; + } + strcpy(fontname, strval); + RELEASE(strval); + fn_found = 1; + } + } + RELEASE(key); + } + RELEASE(buffer); + + return 0; +} + +static void +init_cff_font (cff_font *cff) +{ + cff->sfont = NULL; + cff->filter = 0; + cff->fontname = NULL; + cff->index = 0; + cff->flag = FONTTYPE_FONT; + + cff->header.major = 1; + cff->header.minor = 0; + cff->header.hdr_size = 4; + cff->header.offsize = 4; + cff->name = cff_new_index(1); + cff->topdict = cff_new_dict(); + cff->string = NULL; + cff->gsubr = cff_new_index(0); /* No Global Subr */ + cff->encoding = NULL; + cff->charsets = NULL; + cff->fdselect = NULL; + cff->cstrings = NULL; + cff->fdarray = NULL; + cff->private = NEW(1, cff_dict *); + cff->private[0] = cff_new_dict(); + cff->subrs = NEW(1, cff_index *); + cff->subrs[0] = NULL; + + cff->offset = 0; + cff->gsubr_offset = 0; + cff->num_glyphs = 0; + cff->num_fds = 1; + cff->_string = cff_new_index(0); +} + +cff_font * +t1_load_font (char **enc_vec, int mode, FILE *fp) +{ + long length; + cff_font *cff; + unsigned char *buffer, *start, *end; + + rewind(fp); + /* ASCII section */ + buffer = get_pfb_segment(fp, PFB_SEG_TYPE_ASCII, &length); + if (buffer == NULL || length == 0) { + ERROR("Reading PFB (ASCII part) file failed."); + return NULL; + } + + cff = NEW(1, cff_font); + init_cff_font(cff); + + start = buffer; end = buffer + length; + if (parse_part1(cff, enc_vec, &start, end, mode) < 0) { + cff_close(cff); + RELEASE(buffer); + ERROR("Reading PFB (ASCII part) file failed."); + return NULL; + } + RELEASE(buffer); + + /* Binary section */ + buffer = get_pfb_segment(fp, PFB_SEG_TYPE_BINARY, &length); + if (buffer == NULL || length == 0) { + cff_close(cff); + RELEASE(buffer); + ERROR("Reading PFB (BINARY part) file failed."); + return NULL; + } else { + long i; + + t1_crypt_init(T1_EEKEY); + for (i = 0; i < length; i++) { + buffer[i] = (unsigned char) t1_decrypt(buffer[i]); + } + } + start = buffer + 4; end = buffer + length; + if (parse_part2(cff, &start, end, mode) < 0) { + cff_close(cff); + RELEASE(buffer); + ERROR("Reading PFB (BINARY part) file failed."); + return NULL; + } + RELEASE(buffer); + + cff_update_string(cff); + + /* Remaining section ignored. */ + + return cff; +} diff --git a/Build/source/texk/xdvipdfmx/src/t1_load.h b/Build/source/texk/xdvipdfmx/src/t1_load.h new file mode 100644 index 00000000000..c1c7ca2ea9f --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/t1_load.h @@ -0,0 +1,11 @@ + +#ifndef _T1_LOAD_H_ +#define _T1_LOAD_H_ + +#include "cff.h" +extern cff_font *t1_load_font (char **enc_vec, int mode, FILE *fp); +extern int is_pfb (FILE *fp); +extern int t1_get_fontname (FILE *fp, char *fontname); +extern char *t1_get_standard_glyph (int code); + +#endif /* _T1_LOAD_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/tfm.c b/Build/source/texk/xdvipdfmx/src/tfm.c new file mode 100644 index 00000000000..cb2afbe4eb3 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tfm.c @@ -0,0 +1,1203 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tfm.c,v 1.21 2005/07/27 15:47:44 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "mfileio.h" +#include "error.h" + +#include "numbers.h" +#include "dpxutil.h" + +#include "tfm.h" + +#define TFM_FORMAT 1 +#define OFM_FORMAT 2 + +#define FWBASE ((double) (1<<20)) + +static int verbose = 0; + + +#ifndef WITHOUT_ASCII_PTEX +/* + * ID is 9 for vertical JFM file. + */ +#define JFM_ID 11 +#define JFMV_ID 9 +#define IS_JFM(i) ((i) == JFM_ID || (i) == JFMV_ID) +#endif /* !WITHOUT_ASCII_PTEX */ + +/* + * TFM Record structure: + * Multiple TFM's may be read in at once. + */ + +struct tfm_font +{ +#ifndef WITHOUT_ASCII_PTEX + UNSIGNED_BYTE id; + UNSIGNED_BYTE nt; +#endif /* !WITHOUT_ASCII_PTEX */ +#ifndef WITHOUT_OMEGA + SIGNED_QUAD level; +#endif /* !WITHOUT_OMEGA */ + UNSIGNED_QUAD wlenfile; + UNSIGNED_QUAD wlenheader; + UNSIGNED_QUAD bc, ec; + UNSIGNED_QUAD nwidths, nheights, ndepths; + UNSIGNED_QUAD nitcor, nlig, nkern, nextens; + UNSIGNED_QUAD nfonparm; +#ifndef WITHOUT_OMEGA + UNSIGNED_QUAD fontdir; + UNSIGNED_QUAD nco, ncw, npc; +#endif /* !WITHOUT_OMEGA */ + SIGNED_QUAD *header; +#ifndef WITHOUT_ASCII_PTEX + UNSIGNED_PAIR *chartypes; +#endif /* !WITHOUT_ASCII_PTEX */ + UNSIGNED_QUAD *char_info; + UNSIGNED_PAIR *width_index; + UNSIGNED_BYTE *height_index; + UNSIGNED_BYTE *depth_index; + SIGNED_QUAD *width; + SIGNED_QUAD *height; + SIGNED_QUAD *depth; +}; + +static void +tfm_font_init (struct tfm_font *tfm) +{ + tfm->header = NULL; +#ifndef WITHOUT_ASCII_PTEX + tfm->id = 0; + tfm->nt = 0; + tfm->chartypes = NULL; +#endif /* !WITHOUT_ASCII_PTEX */ +#ifndef WITHOUT_OMEGA + tfm->level = 0; + tfm->fontdir = 0; + tfm->nco = tfm->ncw = tfm->npc = 0; +#endif + tfm->char_info = NULL; + tfm->width_index = NULL; + tfm->height_index = NULL; + tfm->depth_index = NULL; + tfm->width = tfm->height = tfm->depth = NULL; +} + +static void +tfm_font_clear (struct tfm_font *tfm) +{ + if (tfm) { + if (tfm->header) { + RELEASE(tfm->header); + tfm->header = NULL; + } + if (tfm->char_info) { + RELEASE(tfm->char_info); + tfm->char_info = NULL; + } + if (tfm->width) { + RELEASE(tfm->width); + tfm->width = NULL; + } + if (tfm->height) { + RELEASE(tfm->height); + tfm->height = NULL; + } + if (tfm->depth) { + RELEASE(tfm->depth); + tfm->depth = NULL; + } +#ifndef WITHOUT_ASCII_PTEX + if (tfm->chartypes) { + RELEASE(tfm->chartypes); + tfm->chartypes = NULL; + } +#endif /* !WITHOUT_ASCII_PTEX */ + if (tfm->width_index) { + RELEASE(tfm->width_index); + tfm->width_index = NULL; + } + if (tfm->height_index) { + RELEASE(tfm->height_index); + tfm->height_index = NULL; + } + if (tfm->depth_index) { + RELEASE(tfm->depth_index); + tfm->depth_index = NULL; + } + } +} + + +struct coverage +{ + long first_char; + unsigned short num_chars; +}; + +/* + * All characters in the same range have same metrics. + */ + +struct range_map { + unsigned short num_coverages; + struct coverage *coverages; + unsigned short *indices; +}; + +/* Special case of num_coverages = 1 */ +struct char_map +{ + struct coverage coverage; + unsigned short *indices; +}; + +static void +release_char_map (struct char_map *map) +{ + if (map->indices) + RELEASE(map->indices); + map->indices = NULL; + RELEASE(map); +} + +static void +release_range_map (struct range_map *map) +{ + if (map->coverages) + RELEASE(map->coverages); + if (map->indices) + RELEASE(map->indices); + map->coverages = NULL; + map->indices = NULL; + RELEASE(map); +} + +static long +lookup_char (const struct char_map *map, long charcode) +{ + if (charcode >= map->coverage.first_char && + charcode <= map->coverage.first_char + map->coverage.num_chars) + return map->indices[charcode - map->coverage.first_char]; + else + return -1; + + return -1; +} + +static long +lookup_range (const struct range_map *map, long charcode) +{ + long idx; + + for (idx = map->num_coverages - 1; idx >= 0 && + charcode >= map->coverages[idx].first_char; idx--) { + if (charcode <= + map->coverages[idx].first_char + map->coverages[idx].num_chars) + return map->indices[idx]; + } + + return -1; +} + +#define SOURCE_TYPE_TFM 0 +#define SOURCE_TYPE_JFM 1 +#define SOURCE_TYPE_OFM 2 + +#define MAPTYPE_NONE 0 +#define MAPTYPE_CHAR 1 +#define MAPTYPE_RANGE 2 + +#define FONT_DIR_HORIZ 0 +#define FONT_DIR_VERT 1 + +struct font_metric +{ + char *tex_name; + fixword designsize; + char *codingscheme; + + int fontdir; + long firstchar, lastchar; + + fixword *widths; + fixword *heights; + fixword *depths; + + struct { + int type; + void *data; + } charmap; + + int source; +}; + +static void +fm_init (struct font_metric *fm) +{ + fm->tex_name = NULL; + fm->firstchar = 0; + fm->lastchar = 0; + fm->fontdir = FONT_DIR_HORIZ; + fm->codingscheme = NULL; + fm->designsize = 0; + + fm->widths = NULL; + fm->heights = NULL; + fm->depths = NULL; + + fm->charmap.type = MAPTYPE_NONE; + fm->charmap.data = NULL; + + fm->source = SOURCE_TYPE_TFM; +} + +static void +fm_clear (struct font_metric *fm) +{ + if (fm) { + if (fm->tex_name) + RELEASE(fm->tex_name); + if (fm->widths) + RELEASE(fm->widths); + if (fm->heights) + RELEASE(fm->heights); + if (fm->depths) + RELEASE(fm->depths); + if (fm->codingscheme) + RELEASE(fm->codingscheme); + + switch (fm->charmap.type) { + case MAPTYPE_CHAR: + release_char_map(fm->charmap.data); + break; + case MAPTYPE_RANGE: + release_range_map(fm->charmap.data); + break; + } + } +} + +#ifndef MAX_FONTS +#define MAX_FONTS 16 +#endif + +struct font_metric *fms = NULL; +static unsigned numfms = 0, max_fms = 0; + +static void +fms_need (unsigned n) +{ + if (n > max_fms) { + max_fms = MAX(max_fms + MAX_FONTS, n); + fms = RENEW(fms, max_fms, struct font_metric); + } +} + +void +tfm_set_verbose (void) +{ + verbose++; +} + + +static long +fread_fwords (SIGNED_QUAD *words, SIGNED_QUAD nmemb, FILE *fp) +{ + long i; + + for (i = 0; i < nmemb; i++) + words[i] = get_signed_quad(fp); + + return nmemb*4; +} + +static long +fread_uquads (UNSIGNED_QUAD *quads, SIGNED_QUAD nmemb, FILE *fp) +{ + long i; + + for (i = 0; i < nmemb; i++) { + quads[i] = get_unsigned_quad(fp); + } + + return nmemb*4; +} + +/* + * TFM and JFM + */ +static void +tfm_check_size (struct tfm_font *tfm, SIGNED_QUAD tfm_file_size) +{ + UNSIGNED_QUAD expected_size = 6; + + /* Removed the warning message caused by EC TFM metric files. + * + if (tfm->wlenfile != tfm_file_size / 4) { + WARN("TFM file size is %ld bytes but it says it is %ld bytes!", + tfm_file_size, tfm->wlenfile * 4); + if (tfm_file_size > tfm->wlenfile * 4) { + WARN("Proceeding nervously..."); + } else { + ERROR("Can't proceed..."); + } + } + */ + if (tfm_file_size < tfm->wlenfile * 4) { + ERROR("Can't proceed..."); + } + + expected_size += (tfm->ec - tfm->bc + 1); + expected_size += tfm->wlenheader; + expected_size += tfm->nwidths; + expected_size += tfm->nheights; + expected_size += tfm->ndepths; + expected_size += tfm->nitcor; + expected_size += tfm->nlig; + expected_size += tfm->nkern; + expected_size += tfm->nextens; + expected_size += tfm->nfonparm; +#ifndef WITHOUT_ASCII_PTEX + if (IS_JFM(tfm->id)) { + expected_size += tfm->nt + 1; + } +#endif /* !WITHOUT_ASCII_PTEX */ + if (expected_size != tfm->wlenfile) { + WARN("TFM file size is expected to be %ld bytes but it says it is %ld bytes!", + expected_size * 4, tfm->wlenfile * 4); + if (tfm_file_size > expected_size *4) { + WARN("Proceeding nervously..."); + } else { + ERROR("Can't proceed..."); + } + } +} + +static void +tfm_get_sizes (FILE *tfm_file, SIGNED_QUAD tfm_file_size, struct tfm_font *tfm) +{ +#ifndef WITHOUT_ASCII_PTEX + { + UNSIGNED_PAIR first_hword; + + /* + * The first half word of TFM/JFM is TFM ID for JFM or size of + * TFM file in word for TFM. TFM with 9*4 or 11*4 bytes is not + * expected to be a valid TFM. So, we always assume that TFMs + * starting with 00 09 or 00 0B is JFM. + */ + first_hword = get_unsigned_pair(tfm_file); + if (IS_JFM(first_hword)) { + tfm->id = first_hword; + tfm->nt = get_unsigned_pair(tfm_file); + tfm->wlenfile = get_unsigned_pair(tfm_file); + } else { + tfm->wlenfile = first_hword; + } + } +#else /* WITHOUT_ASCII_PTEX */ + tfm->wlenfile = get_unsigned_pair(tfm_file); +#endif /* !WITHOUT_ASCII_PTEX */ + + tfm->wlenheader = get_unsigned_pair(tfm_file); + tfm->bc = get_unsigned_pair(tfm_file); + tfm->ec = get_unsigned_pair(tfm_file); + if (tfm->ec < tfm->bc) { + ERROR("TFM file error: ec(%u) < bc(%u) ???", tfm->ec, tfm->bc); + } + tfm->nwidths = get_unsigned_pair(tfm_file); + tfm->nheights = get_unsigned_pair(tfm_file); + tfm->ndepths = get_unsigned_pair(tfm_file); + tfm->nitcor = get_unsigned_pair(tfm_file); + tfm->nlig = get_unsigned_pair(tfm_file); + tfm->nkern = get_unsigned_pair(tfm_file); + tfm->nextens = get_unsigned_pair(tfm_file); + tfm->nfonparm = get_unsigned_pair(tfm_file); + + tfm_check_size(tfm, tfm_file_size); + + return; +} + +#ifndef WITHOUT_ASCII_PTEX +static void +jfm_do_char_type_array (FILE *tfm_file, struct tfm_font *tfm) +{ + UNSIGNED_PAIR charcode; + UNSIGNED_PAIR chartype; + long i; + + tfm->chartypes = NEW(65536, UNSIGNED_PAIR); + for (i = 0; i < 65536; i++) { + tfm->chartypes[i] = 0; + } + for (i = 0; i < tfm->nt; i++) { + charcode = get_unsigned_pair(tfm_file); + chartype = get_unsigned_pair(tfm_file); + tfm->chartypes[charcode] = chartype; + } +} + +static void +jfm_make_charmap (struct font_metric *fm, struct tfm_font *tfm) +{ + if (tfm->nt > 1) { + struct char_map *map; + long code; + + fm->charmap.type = MAPTYPE_CHAR; + fm->charmap.data = map = NEW(1, struct char_map); + map->coverage.first_char = 0; + map->coverage.num_chars = 0xFFFFu; + map->indices = NEW(0x10000L, unsigned short); + + for (code = 0; code <= 0xFFFFu; code++) { + map->indices[code] = tfm->chartypes[code]; + } + } else { + struct range_map *map; + + fm->charmap.type = MAPTYPE_RANGE; + fm->charmap.data = map = NEW(1, struct range_map); + map->num_coverages = 1; + map->coverages = NEW(map->num_coverages, struct coverage); + map->coverages[0].first_char = 0; + map->coverages[0].num_chars = 0xFFFFu; + map->indices = NEW(1, unsigned short); + map->indices[0] = 0; /* Only default type used. */ + } +} +#endif /* !WITHOUT_ASCII_PTEX */ + +static void +tfm_unpack_arrays (struct font_metric *fm, struct tfm_font *tfm) +{ + UNSIGNED_QUAD charinfo; + UNSIGNED_PAIR width_index, height_index, depth_index; + int i; + + fm->widths = NEW(256, fixword); + fm->heights = NEW(256, fixword); + fm->depths = NEW(256, fixword); + for (i = 0; i < 256; i++) { + fm->widths [i] = 0; + fm->heights[i] = 0; + fm->depths [i] = 0; + } + + for (i = tfm->bc; i <= tfm->ec; i++ ) { + charinfo = tfm->char_info[i - tfm->bc]; + width_index = (charinfo / 16777216ul); + height_index = (charinfo / 0x100000ul) & 0xf; + depth_index = (charinfo / 0x10000ul) & 0xf; + fm->widths [i] = tfm->width [width_index]; + fm->heights[i] = tfm->height[height_index]; + fm->depths [i] = tfm->depth [depth_index]; + } + + return; +} + +static int +sput_bigendian (char *s, SIGNED_QUAD v, int n) +{ + int i; + + for (i = n-1; i >= 0; i--) { + s[i] = (char) (v & 0xff); + v >>= 8; + } + + return n; +} + +static void +tfm_unpack_header (struct font_metric *fm, struct tfm_font *tfm) +{ + if (tfm->wlenheader < 12) { + fm->codingscheme = NULL; + } else { + int i, len; + char *p; + + len = (tfm->header[2] >> 24); + if (len < 0 || len > 39) + ERROR("Invalid TFM header."); + if (len > 0) { + fm->codingscheme = NEW(40, char); + p = fm->codingscheme; + p += sput_bigendian(p, tfm->header[2], 3); + for (i = 1; i <= len / 4; i++) { + p += sput_bigendian(p, tfm->header[2+i], 4); + } + fm->codingscheme[len] = '\0'; + } else { + fm->codingscheme = NULL; + } + } + + fm->designsize = tfm->header[1]; +} + +#ifndef WITHOUT_OMEGA + +static void +ofm_check_size_one (struct tfm_font *tfm, SIGNED_QUAD ofm_file_size) +{ + UNSIGNED_QUAD ofm_size = 14; + + ofm_size += 2*(tfm->ec - tfm->bc + 1); + ofm_size += tfm->wlenheader; + ofm_size += tfm->nwidths; + ofm_size += tfm->nheights; + ofm_size += tfm->ndepths; + ofm_size += tfm->nitcor; + ofm_size += 2*(tfm->nlig); + ofm_size += tfm->nkern; + ofm_size += 2*(tfm->nextens); + ofm_size += tfm->nfonparm; + if (tfm->wlenfile != ofm_file_size / 4 || + tfm->wlenfile != ofm_size) { + ERROR("OFM file problem. Table sizes don't agree."); + } +} + +static void +ofm_get_sizes (FILE *ofm_file, UNSIGNED_QUAD ofm_file_size, struct tfm_font *tfm) +{ + tfm->level = get_signed_quad(ofm_file); + + tfm->wlenfile = get_signed_quad(ofm_file); + tfm->wlenheader = get_signed_quad(ofm_file); + tfm->bc = get_signed_quad(ofm_file); + tfm->ec = get_signed_quad(ofm_file); + if (tfm->ec < tfm->bc) { + ERROR("OFM file error: ec(%u) < bc(%u) ???", tfm->ec, tfm->bc); + } + tfm->nwidths = get_signed_quad(ofm_file); + tfm->nheights = get_signed_quad(ofm_file); + tfm->ndepths = get_signed_quad(ofm_file); + tfm->nitcor = get_signed_quad(ofm_file); + tfm->nlig = get_signed_quad(ofm_file); + tfm->nkern = get_signed_quad(ofm_file); + tfm->nextens = get_signed_quad(ofm_file); + tfm->nfonparm = get_signed_quad(ofm_file); + tfm->fontdir = get_signed_quad(ofm_file); + if (tfm->fontdir) { + WARN("I may be interpreting a font direction incorrectly."); + } + if (tfm->level == 0) { + ofm_check_size_one(tfm, ofm_file_size); + } else if (tfm->level == 1) { + tfm->nco = get_signed_quad(ofm_file); + tfm->ncw = get_signed_quad(ofm_file); + tfm->npc = get_signed_quad(ofm_file); + seek_absolute(ofm_file, 4*(tfm->nco - tfm->wlenheader)); + } else { + ERROR("Can't handle OFM files with level > 1"); + } + + return; +} + +static void +ofm_do_char_info_zero (FILE *tfm_file, struct tfm_font *tfm) +{ + UNSIGNED_QUAD num_chars; + + num_chars = tfm->ec - tfm->bc + 1; + if (num_chars != 0) { + UNSIGNED_QUAD i; + + tfm->width_index = NEW(num_chars, UNSIGNED_PAIR); + tfm->height_index = NEW(num_chars, UNSIGNED_BYTE); + tfm->depth_index = NEW(num_chars, UNSIGNED_BYTE); + for (i = 0; i < num_chars; i++) { + tfm->width_index [i] = get_unsigned_pair(tfm_file); + tfm->height_index[i] = get_unsigned_byte(tfm_file); + tfm->depth_index [i] = get_unsigned_byte(tfm_file); + /* Ignore remaining quad */ + get_unsigned_quad(tfm_file); + } + } +} + +static void +ofm_do_char_info_one (FILE *tfm_file, struct tfm_font *tfm) +{ + UNSIGNED_QUAD num_char_infos; + UNSIGNED_QUAD num_chars; + + num_char_infos = tfm->ncw / (3 + (tfm->npc / 2)); + num_chars = tfm->ec - tfm ->bc + 1; + + if (num_chars != 0) { + UNSIGNED_QUAD i; + UNSIGNED_QUAD char_infos_read; + + tfm->width_index = NEW(num_chars, UNSIGNED_PAIR); + tfm->height_index = NEW(num_chars, UNSIGNED_BYTE); + tfm->depth_index = NEW(num_chars, UNSIGNED_BYTE); + char_infos_read = 0; + for (i = 0; i < num_chars && + char_infos_read < num_char_infos; i++) { + int repeats, j; + + tfm->width_index [i] = get_unsigned_pair(tfm_file); + tfm->height_index[i] = get_unsigned_byte(tfm_file); + tfm->depth_index [i] = get_unsigned_byte(tfm_file); + /* Ignore next quad */ + get_unsigned_quad(tfm_file); + repeats = get_unsigned_pair(tfm_file); + /* Skip params */ + for (j = 0; j < tfm->npc; j++) { + get_unsigned_pair(tfm_file); + } + /* Remove word padding if necessary */ + if (ISEVEN(tfm->npc)){ + get_unsigned_pair(tfm_file); + } + char_infos_read++; + if (i + repeats > num_chars) { + ERROR("Repeats causes number of characters to be exceeded."); + } + for (j = 0; j < repeats; j++) { + tfm->width_index [i+j+1] = tfm->width_index [i]; + tfm->height_index[i+j+1] = tfm->height_index[i]; + tfm->depth_index [i+j+1] = tfm->depth_index [i]; + } + /* Skip ahead because we have already handled repeats */ + i += repeats; + } + } +} + +static void +ofm_unpack_arrays (struct font_metric *fm, + struct tfm_font *tfm, UNSIGNED_QUAD num_chars) +{ + long i; + + fm->widths = NEW(tfm->bc + num_chars, fixword); + fm->heights = NEW(tfm->bc + num_chars, fixword); + fm->depths = NEW(tfm->bc + num_chars, fixword); + for (i = 0; i < num_chars; i++) { + fm->widths [tfm->bc + i] = tfm->width [ tfm->width_index [i] ]; + fm->heights[tfm->bc + i] = tfm->height[ tfm->height_index[i] ]; + fm->depths [tfm->bc + i] = tfm->depth [ tfm->depth_index [i] ]; + } +} + +static void +read_ofm (struct font_metric *fm, FILE *ofm_file, UNSIGNED_QUAD ofm_file_size) +{ + struct tfm_font tfm; + + tfm_font_init(&tfm); + + ofm_get_sizes(ofm_file, ofm_file_size, &tfm); + + if (tfm.level < 0 || tfm.level > 1) + ERROR ("OFM level %d not supported.", tfm.level); + + if (tfm.wlenheader > 0) { + tfm.header = NEW(tfm.wlenheader, fixword); + fread_fwords(tfm.header, tfm.wlenheader, ofm_file); + } + if (tfm.level == 0) { + ofm_do_char_info_zero(ofm_file, &tfm); + } else if (tfm.level == 1) { + ofm_do_char_info_one(ofm_file, &tfm); + } + if (tfm.nwidths > 0) { + tfm.width = NEW(tfm.nwidths, fixword); + fread_fwords(tfm.width, tfm.nwidths, ofm_file); + } + if (tfm.nheights > 0) { + tfm.height = NEW(tfm.nheights, fixword); + fread_fwords(tfm.height, tfm.nheights, ofm_file); + } + if (tfm.ndepths > 0) { + tfm.depth = NEW(tfm.ndepths, fixword); + fread_fwords(tfm.depth, tfm.ndepths, ofm_file); + } + + ofm_unpack_arrays(fm, &tfm, tfm.ec - tfm.bc + 1); + tfm_unpack_header(fm, &tfm); + fm->firstchar = tfm.bc; + fm->lastchar = tfm.ec; + fm->source = SOURCE_TYPE_OFM; + + tfm_font_clear(&tfm); + + return; +} +#endif /* !WITHOUT_OMEGA */ + +static void +read_tfm (struct font_metric *fm, FILE *tfm_file, UNSIGNED_QUAD tfm_file_size) +{ + struct tfm_font tfm; + + tfm_font_init(&tfm); + + tfm_get_sizes(tfm_file, tfm_file_size, &tfm); + fm->firstchar = tfm.bc; + fm->lastchar = tfm.ec; + if (tfm.wlenheader > 0) { + tfm.header = NEW(tfm.wlenheader, fixword); + fread_fwords(tfm.header, tfm.wlenheader, tfm_file); + } +#ifndef WITHOUT_ASCII_PTEX + if (IS_JFM(tfm.id)) { + jfm_do_char_type_array(tfm_file, &tfm); + jfm_make_charmap(fm, &tfm); + fm->firstchar = 0; + fm->lastchar = 0xFFFFl; + fm->fontdir = (tfm.id == JFMV_ID) ? FONT_DIR_VERT : FONT_DIR_HORIZ; + fm->source = SOURCE_TYPE_JFM; + } +#endif /* !WITHOUT_ASCII_PTEX */ + if (tfm.ec - tfm.bc + 1 > 0) { + tfm.char_info = NEW(tfm.ec - tfm.bc + 1, UNSIGNED_QUAD); + fread_uquads(tfm.char_info, tfm.ec - tfm.bc + 1, tfm_file); + } + if (tfm.nwidths > 0) { + tfm.width = NEW(tfm.nwidths, fixword); + fread_fwords(tfm.width, tfm.nwidths, tfm_file); + } + if (tfm.nheights > 0) { + tfm.height = NEW(tfm.nheights, fixword); + fread_fwords(tfm.height, tfm.nheights, tfm_file); + } + if (tfm.ndepths > 0) { + tfm.depth = NEW(tfm.ndepths, fixword); + fread_fwords(tfm.depth, tfm.ndepths, tfm_file); + } + tfm_unpack_arrays(fm, &tfm); + tfm_unpack_header(fm, &tfm); + + tfm_font_clear(&tfm); + + return; +} + +int +tfm_open (const char *tfm_name, int must_exist) +{ + FILE *tfm_file; + int i, format = TFM_FORMAT; + UNSIGNED_QUAD tfm_file_size; + char *file_name = NULL; + + for (i = 0; i < numfms; i++) { + if (!strcmp(tfm_name, fms[i].tex_name)) + return i; + } + + /* + * The procedure to search tfm or ofm files: + * 1. Search tfm file with the given name with the must_exist flag unset. + * 2. Search ofm file with the given name with the must_exist flag unset. + * 3. If not found and must_exist flag is set, try again to search + * tfm file with the must_exist flag set. + * 4. If not found and must_exist flag is not set, return -1. + */ + + + /* + * We first look for OFM and then TFM. + * The reason for this change is incompatibility introduced when dvipdfmx + * started to write correct glyph metrics to output PDF for CID fonts. + * I'll not explain this in detail... This change is mostly specific to + * Japanese support. + */ +#if 0 + if ((file_name = kpse_find_file(tfm_name, kpse_tfm_format, 0))) { + format = TFM_FORMAT; + } else if ((file_name = kpse_find_file(tfm_name, kpse_ofm_format, 0))) { + format = OFM_FORMAT; + } +#endif + { + char *ofm_name, *suffix; + + suffix = strrchr(tfm_name, '.'); + if (!suffix || (strcmp(suffix, ".tfm") != 0 && + strcmp(suffix, ".ofm") != 0)) { + ofm_name = NEW(strlen(tfm_name) + strlen(".ofm") + 1, char); + strcpy(ofm_name, tfm_name); + strcat(ofm_name, ".ofm"); + } else { + ofm_name = NULL; + } + if (ofm_name && + (file_name = kpse_find_file(ofm_name, kpse_ofm_format, 0)) != NULL) { + format = OFM_FORMAT; + } else if ((file_name = + kpse_find_file(tfm_name, kpse_tfm_format, 0)) != NULL) { + format = TFM_FORMAT; + } else if ((file_name = + kpse_find_file(tfm_name, kpse_ofm_format, 0)) != NULL) { + format = OFM_FORMAT; + } + if (ofm_name) + RELEASE(ofm_name); + } + + /* + * In case that must_exist is set, MiKTeX returns always non-NULL value + * even if the tfm file is not found. + */ + if (file_name == NULL) { + if (must_exist) { + if ((file_name = kpse_find_file(tfm_name, kpse_tfm_format, 1)) != NULL) + format = TFM_FORMAT; + else { + ERROR("Unable to find TFM file \"%s\".", tfm_name); + } + } else { + return -1; + } + } + + tfm_file = MFOPEN(file_name, FOPEN_RBIN_MODE); + if (!tfm_file) { + ERROR("Could not open specified TFM/OFM file \"%s\".", tfm_name); + } + + if (verbose) { + if (format == TFM_FORMAT) + MESG("(TFM:%s", tfm_name); + else if (format == OFM_FORMAT) + MESG("(OFM:%s", tfm_name); + if (verbose > 1) + MESG("[%s]", file_name); + } + + tfm_file_size = file_size(tfm_file); + if (tfm_file_size < 24) { + ERROR("TFM/OFM file too small to be a valid file."); + } + + fms_need(numfms + 1); + fm_init(fms + numfms); + +#ifndef WITHOUT_OMEGA + if (format == OFM_FORMAT) + read_ofm(&fms[numfms], tfm_file, tfm_file_size); + else +#endif /* !WITHOUT_OMEGA */ + { + read_tfm(&fms[numfms], tfm_file, tfm_file_size); + } + + MFCLOSE(tfm_file); + + fms[numfms].tex_name = NEW(strlen(tfm_name)+1, char); + strcpy(fms[numfms].tex_name, tfm_name); + + if (verbose) + MESG(")"); + + return numfms++; +} + +void +tfm_close_all (void) +{ + int i; + + if (fms) { + for (i = 0; i < numfms; i++) { + fm_clear(&(fms[i])); + } + RELEASE(fms); + } +} + +#define CHECK_ID(n) do {\ + if ((n) < 0 || (n) >= numfms)\ + ERROR("TFM: Invalid TFM ID: %d", (n));\ +} while (0) + +fixword +tfm_get_fw_width (int font_id, SIGNED_QUAD ch) +{ + struct font_metric *fm; + long idx = 0; + + CHECK_ID(font_id); + + fm = &(fms[font_id]); + if (ch >= fm->firstchar && ch <= fm->lastchar) { + switch (fm->charmap.type) { + case MAPTYPE_CHAR: + idx = lookup_char(fm->charmap.data, ch); + if (idx < 0) + ERROR("Invalid char: %ld\n", ch); + break; + case MAPTYPE_RANGE: + idx = lookup_range(fm->charmap.data, ch); + if (idx < 0) + ERROR("Invalid char: %ld\n", ch); + break; + default: + idx = ch; + } + } else { + ERROR("Invalid char: %ld\n", ch); + } + + return fm->widths[idx]; +} + +fixword +tfm_get_fw_height (int font_id, SIGNED_QUAD ch) +{ + struct font_metric *fm; + long idx = 0; + + CHECK_ID(font_id); + + fm = &(fms[font_id]); + if (ch >= fm->firstchar && ch <= fm->lastchar) { + switch (fm->charmap.type) { + case MAPTYPE_CHAR: + idx = lookup_char(fm->charmap.data, ch); + if (idx < 0) + ERROR("Invalid char: %ld\n", ch); + break; + case MAPTYPE_RANGE: + idx = lookup_range(fm->charmap.data, ch); + if (idx < 0) + ERROR("Invalid char: %ld\n", ch); + break; + default: + idx = ch; + } + } else { + ERROR("Invalid char: %ld\n", ch); + } + + return fm->heights[idx]; +} + +fixword +tfm_get_fw_depth (int font_id, SIGNED_QUAD ch) +{ + struct font_metric *fm; + long idx = 0; + + CHECK_ID(font_id); + + fm = &(fms[font_id]); + if (ch >= fm->firstchar && ch <= fm->lastchar) { + switch (fm->charmap.type) { + case MAPTYPE_CHAR: + idx = lookup_char(fm->charmap.data, ch); + if (idx < 0) + ERROR("Invalid char: %ld\n", ch); + break; + case MAPTYPE_RANGE: + idx = lookup_range(fm->charmap.data, ch); + if (idx < 0) + ERROR("Invalid char: %ld\n", ch); + break; + default: + idx = ch; + } + } else { + ERROR("Invalid char: %ld\n", ch); + } + + return fm->depths[idx]; +} + + +/* + * tfm_get_width returns the width of the font + * as a (double) fraction of the design size. + */ +double +tfm_get_width (int font_id, SIGNED_QUAD ch) +{ + return ((double) tfm_get_fw_width(font_id, ch)/FWBASE); +} + +double +tfm_get_height (int font_id, SIGNED_QUAD ch) +{ + return ((double) tfm_get_fw_height(font_id, ch)/FWBASE); +} + +double +tfm_get_depth (int font_id, SIGNED_QUAD ch) +{ + return ((double) tfm_get_fw_depth(font_id, ch)/FWBASE); +} + +/* tfm_string_xxx() do not work for OFM... */ +fixword +tfm_string_width (int font_id, const unsigned char *s, unsigned len) +{ + fixword result = 0; + struct font_metric *fm; + unsigned i; + + CHECK_ID(font_id); + + fm = &(fms[font_id]); +#ifndef WITHOUT_ASCII_PTEX + if (fm->source == SOURCE_TYPE_JFM) { + for (i = 0; i < len/2; i++) { + SIGNED_QUAD ch; + + ch = (s[2*i] << 8)|s[2*i+1]; + result += tfm_get_fw_width(font_id, ch); + } + } else +#endif + for (i = 0; i < len; i++) { + result += tfm_get_fw_width(font_id, s[i]); + } + + return result; +} + +fixword +tfm_string_depth (int font_id, const unsigned char *s, unsigned len) +{ + fixword result = 0; + struct font_metric *fm; + unsigned i; + + CHECK_ID(font_id); + + fm = &(fms[font_id]); +#ifndef WITHOUT_ASCII_PTEX + if (fm->source == SOURCE_TYPE_JFM) { + for (i = 0; i < len/2; i++) { + SIGNED_QUAD ch; + + ch = (s[2*i] << 8)|s[2*i+1]; + result += tfm_get_fw_depth(font_id, ch); + } + } else +#endif + for (i = 0; i < len; i++) { + result = MAX(result, tfm_get_fw_depth(font_id, s[i])); + } + + return result; +} + +fixword +tfm_string_height (int font_id, const unsigned char *s, unsigned len) +{ + fixword result = 0; + struct font_metric *fm; + unsigned i; + + CHECK_ID(font_id); + + fm = &(fms[font_id]); +#ifndef WITHOUT_ASCII_PTEX + if (fm->source == SOURCE_TYPE_JFM) { + for (i = 0; i < len/2; i++) { + SIGNED_QUAD ch; + + ch = (s[2*i] << 8)|s[2*i+1]; + result += tfm_get_fw_height(font_id, ch); + } + } else +#endif + for (i = 0; i < len; i++) { + result = MAX(result, tfm_get_fw_height(font_id, s[i])); + } + + return result; +} + +double +tfm_get_design_size (int font_id) +{ + CHECK_ID(font_id); + + return (double) (fms[font_id].designsize)/FWBASE*(72.0/72.27); +} + +char * +tfm_get_codingscheme (int font_id) +{ + CHECK_ID(font_id); + + return fms[font_id].codingscheme; +} + +#ifndef WITHOUT_ASCII_PTEX +/* Vertical version of JFM */ +int +tfm_is_vert (int font_id) +{ + CHECK_ID(font_id); + + return (fms[font_id].fontdir == FONT_DIR_VERT) ? 1 : 0; +} +#else /* WITHOUT_ASCII_PTEX */ +int +tfm_is_vert (int font_id) +{ + return 0; +} +#endif /* !WITHOUT_ASCII_PTEX */ + +int +tfm_exists (const char *tfm_name) +{ + char *fullname; + + fullname = kpse_find_file(tfm_name, kpse_ofm_format, 0); + if (fullname) { + RELEASE(fullname); + return 1; + } + fullname = kpse_find_file(tfm_name, kpse_tfm_format, 0); + if (fullname) { + RELEASE(fullname); + return 1; + } + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/tfm.h b/Build/source/texk/xdvipdfmx/src/tfm.h new file mode 100644 index 00000000000..e3306a49e82 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tfm.h @@ -0,0 +1,57 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tfm.h,v 1.11 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TFM_H_ +#define _TFM_H_ + +#include "numbers.h" + +extern void tfm_set_verbose (void); + +extern int tfm_open (const char * tex_name, int must_exist); +extern void tfm_close_all (void); + +extern double tfm_get_width (int font_id, SIGNED_QUAD ch); +extern double tfm_get_height (int font_id, SIGNED_QUAD ch); +extern double tfm_get_depth (int font_id, SIGNED_QUAD ch); + +extern fixword tfm_get_fw_width (int font_id, SIGNED_QUAD ch); +extern fixword tfm_get_fw_height (int font_id, SIGNED_QUAD ch); +extern fixword tfm_get_fw_depth (int font_id, SIGNED_QUAD ch); + +extern fixword tfm_string_width (int font_id, const unsigned char *s, unsigned len); +extern fixword tfm_string_depth (int font_id, const unsigned char *s, unsigned len); +extern fixword tfm_string_height (int font_id, const unsigned char *s, unsigned len); + +extern double tfm_get_space (int font_id); + +/* From TFM header */ +extern double tfm_get_design_size (int font_id); +extern char *tfm_get_codingscheme (int font_id); + +extern int tfm_is_vert (int font_id); + +extern int tfm_exists (const char *tfm_name); + +#endif /* _TFM_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/truetype.c b/Build/source/texk/xdvipdfmx/src/truetype.c new file mode 100644 index 00000000000..f78fd3fdf75 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/truetype.c @@ -0,0 +1,999 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/truetype.c,v 1.4 2005/08/30 07:52:33 chofchof Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" + +#include "numbers.h" +#include "error.h" +#include "mem.h" + +#include "dpxfile.h" +#include "dpxutil.h" + +#include "pdfobj.h" +#include "pdfresource.h" +#include "pdffont.h" + +#include "pdfencoding.h" +#include "unicode.h" +#include "agl.h" + +/* TrueType */ +#include "sfnt.h" +#include "tt_cmap.h" +#include "tt_table.h" +#include "tt_glyf.h" +#include "tt_post.h" +#include "tt_gsub.h" +#include "tt_aux.h" + +#include "truetype.h" + +/* Modifying this has no effect :P */ +#ifdef ENABLE_NOEMBED +# undef ENABLE_NOEMBED +#endif + +int +pdf_font_open_truetype (pdf_font *font) +{ + char *ident; + int encoding_id; + pdf_obj *fontdict, *descriptor; + sfnt *sfont; + int embedding = 1; /* Must be embedded. */ + FILE *fp = NULL; + int length, error = 0; + + ASSERT( font ); + + ident = pdf_font_get_ident(font); + + ASSERT( ident ); + +#ifdef XETEX + sfont = sfnt_open(pdf_font_get_ft_face(font), SFNT_TYPE_TTC | SFNT_TYPE_TRUETYPE); + if (!sfont) + return -1; +#else + fp = DPXFOPEN(ident, DPX_RES_TYPE_TTFONT); + if (!fp) + return -1; + + sfont = sfnt_open(fp); +#endif + if (!sfont) { + WARN("Could not open TrueType font: %s", ident); + if (fp) + DPXFCLOSE(fp); + return -1; + } + + if (sfont->type == SFNT_TYPE_TTC) + error = sfnt_read_table_directory(sfont, ttc_read_offset(sfont, 0)); + else + error = sfnt_read_table_directory(sfont, 0); + if (error) { + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; /* Silently */ + } + + /* Reading fontdict before checking fonttype conflicts with PKFONT + * because pdf_font_get_resource() always makes a dictionary. + */ + encoding_id = pdf_font_get_encoding(font); + fontdict = pdf_font_get_resource(font); + descriptor = pdf_font_get_descriptor(font); +#ifdef ENABLE_NOEMBED + embedding = pdf_font_get_flag(font, PDF_FONT_FLAG_NOEMBED) ? 0 : 1; +#endif /* ENABLE_NOEMBED */ + + ASSERT( fontdict && descriptor ); + + { + pdf_obj *tmp; + tmp = tt_get_fontdesc(sfont, &embedding, 1); + if (!tmp) { + ERROR("Could not obtain neccesary font info."); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + } + ASSERT(pdf_obj_typeof(tmp) == PDF_DICT); + + pdf_merge_dict(descriptor, tmp); + pdf_release_obj(tmp); + } + + if (!embedding) { + if (encoding_id >= 0 && + !pdf_encoding_is_predefined(encoding_id)) { + ERROR("Custum encoding not allowed for non-embedded TrueType font."); + sfnt_close(sfont); + return -1; + } else { + /* There are basically no guarantee for font substitution + * can work with "symblic" fonts. At least all glyphs + * contained in the font must be identified; glyphs covers + * by this instance of font should contain glyphs only from + * Adobe Standard Latin Set. We allow non-embedded font + * only to predefined encodings for this reason. Note that + * "builtin" encoding means "MacRoman" here. + */ + pdf_obj *tmp; + long flags; + +#ifndef ENABLE_NOEMBED + ERROR("Font file=\"%s\" can't be embedded due to liscence restrictions.", ident); +#endif /* ENABLE_NOEMBED */ + pdf_font_set_flags(font, PDF_FONT_FLAG_NOEMBED); + tmp = pdf_lookup_dict(descriptor, "Flags"); + if (tmp && pdf_obj_typeof(tmp) == PDF_NUMBER) { + flags = (long) pdf_number_value(tmp); + flags &= (1 << 2); /* clear Symbolic */ + flags |= (1 << 5); /* set Nonsymbolic */ + pdf_add_dict(descriptor, pdf_new_name("Flags"), pdf_new_number(flags)); + } + } + } + + { + char fontname[256]; + int n; + + memset(fontname, 0, 256); + length = tt_get_ps_fontname(sfont, fontname, 255); + if (length < 1) { + length = MIN(strlen(ident), 255); + strncpy(fontname, ident, length); + } + fontname[length] = '\0'; + for (n = 0; n < length; n++) { + if (fontname[n] == 0) { + memmove(fontname + n, fontname + n + 1, length - n - 1); + } + } + if (strlen(fontname) == 0) + ERROR("Can't find valid fontname for \"%s\".", ident); + pdf_font_set_fontname(font, fontname); + } + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + pdf_add_dict(fontdict, + pdf_new_name("Type"), pdf_new_name("Font")); + pdf_add_dict(fontdict, + pdf_new_name("Subtype"), pdf_new_name("TrueType")); + + /* + * We use MacRoman as "default" encoding. + */ + if (encoding_id >= 0) + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), + pdf_new_name(pdf_encoding_get_name(encoding_id))); + else { + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), + pdf_new_name("MacRomanEncoding")); + } + + return 0; +} + +/* + * The 'name' table should be preserved since it contains copyright + * information, but it might cause problem when there are invalid + * table entries (wrongly encoded text which is often the case in + * CJK fonts). Acrobat does not use 'name' table. Unicode TrueType + * fonts may have 10K bytes 'name' table... + * + * We preserve the 'OS/2' table too, since it contains the license + * information. PDF applications should use this table to decide + * whether the font is embedded only for the purpose of preview & + * printing. Otherwise, we must encrypt the document. Acrobat does + * not use 'OS/2' table, though... + */ +static struct +{ + const char *name; + int must_exist; +} required_table[] = { + {"OS/2", 1}, {"head", 1}, {"hhea", 1}, {"loca", 1}, {"maxp", 1}, + {"name", 1}, {"glyf", 1}, {"hmtx", 1}, {"fpgm", 0}, {"cvt ", 0}, + {"prep", 0}, {"cmap", 1}, {NULL, 0} +}; + +static void +do_widths (pdf_font *font, double *widths) +{ + pdf_obj *fontdict = pdf_font_get_resource (font); + char *usedchars = pdf_font_get_usedchars(font); + pdf_obj *tmparray; + int code, firstchar, lastchar; + + firstchar = 255; lastchar = 0; + for (code = 0; code < 256; code++) { + if (usedchars[code]) { + if (code < firstchar) firstchar = code; + if (code > lastchar) lastchar = code; + } + } + if (firstchar > lastchar) { + WARN("No glyphs actually used???"); + return; + } + + tmparray = pdf_new_array(); + for (code = firstchar; code <= lastchar; code++) { + if (usedchars[code]) + pdf_add_array(tmparray, + pdf_new_number(ROUND(widths[code], 1))); + else { + pdf_add_array(tmparray, pdf_new_number(0.0)); + } + } + if (pdf_array_length(tmparray) > 0) { + pdf_add_dict(fontdict, + pdf_new_name("Widths"), pdf_ref_obj(tmparray)); /* _FIXME_ */ + } + pdf_release_obj(tmparray); + pdf_add_dict(fontdict, + pdf_new_name("FirstChar"), pdf_new_number(firstchar)); + pdf_add_dict(fontdict, + pdf_new_name("LastChar"), pdf_new_number(lastchar)); + + return; +} + +static int verbose = 0; + +#define PDFUNIT(v) ((double) (ROUND(1000.0*(v)/(glyphs->emsize), 1))) + +/* + * There are several issues in TrueType font support in PDF. + * How PDF viewers select TrueType cmap table is not so clear. + * Most reliable way seem to reencode font and sort glyphs as + * charcode == gid and to use Mac-Roman format 0 subtable. + * It does not work with encodings that uses full 256 range since + * GID = 0 is reserved for .notdef, so GID = 256 is not accessible. + */ +static int +do_builtin_encoding (pdf_font *font, const char *usedchars, sfnt *sfont) +{ + struct tt_glyphs *glyphs; + char *cmap_table; + tt_cmap *ttcm; + USHORT gid, idx; + int code, count; + double widths[256]; + + ttcm = tt_cmap_read(sfont, TT_MAC, TT_MAC_ROMAN); + if (!ttcm) { + WARN("Could not read Mac-Roman TrueType cmap table..."); + return -1; + } + + cmap_table = NEW(274, char); + memset(cmap_table, 0, 274); + sfnt_put_ushort(cmap_table, 0); /* Version */ + sfnt_put_ushort(cmap_table+2, 1); /* Number of subtables */ + sfnt_put_ushort(cmap_table+4, TT_MAC); /* Platform ID */ + sfnt_put_ushort(cmap_table+6, TT_MAC_ROMAN); /* Encoding ID */ + sfnt_put_ulong (cmap_table+8, 12); /* Offset */ + sfnt_put_ushort(cmap_table+12, 0); /* Format */ + sfnt_put_ushort(cmap_table+14, 262); /* Length */ + sfnt_put_ushort(cmap_table+16, 0); /* Language */ + + glyphs = tt_build_init(); + + if (verbose > 2) + MESG("[glyphs:/.notdef"); + + count = 1; /* .notdef */ + for (code = 0; code < 256; code++) { + if (!usedchars[code]) + continue; + + if (verbose > 2) + MESG("/.c0x%02x", code); + + gid = tt_cmap_lookup(ttcm, code); + if (gid == 0) { + WARN("Glyph for character code=0x%02x missing in font font-file=\"%s\".", + code, pdf_font_get_ident(font)); + idx = 0; + } else { + idx = tt_find_glyph(glyphs, gid); + if (idx == 0) + idx = tt_add_glyph(glyphs, gid, count); /* count returned. */ + } + cmap_table[18+code] = idx & 0xff; /* bug here */ + count++; + } + tt_cmap_release(ttcm); + + if (verbose > 2) + MESG("]"); + + if (tt_build_tables(sfont, glyphs) < 0) { + WARN("Packing TrueType font into SFNT failed!"); + tt_build_finish(glyphs); + RELEASE(cmap_table); + return -1; + } + + for (code = 0; code < 256; code++) { + if (usedchars[code]) { + idx = tt_get_index(glyphs, (USHORT) cmap_table[18+code]); + widths[code] = PDFUNIT(glyphs->gd[idx].advw); + } else { + widths[code] = 0.0; + } + } + do_widths(font, widths); + + if (verbose > 1) + MESG("[%d glyphs]", glyphs->num_glyphs); + + tt_build_finish(glyphs); + + sfnt_set_table(sfont, "cmap", cmap_table, 274); + + return 0; +} + +/* Order of lookup should be + * post, unicode+otl + */ +struct glyph_mapper +{ + tt_cmap *codetogid; + otl_gsub *gsub; + sfnt *sfont; + struct tt_post_table *nametogid; +}; + + +/* WARNING: This modifies glyphname itself */ +static int +agl_decompose_glyphname (char *glyphname, char **nptrs, int size, char **suffix) +{ + char *q, *p = glyphname; + int n; + + q = strchr(p, '.'); /* chop every thing after *first* dot */ + if (!q) + *suffix = NULL; + else { + *q = '\0'; q++; + *suffix = q; + } + + nptrs[0] = p; + for (n = 1; p && *p; n++) { + p = strchr(p, '_'); + if (!p || p[1] == '\0') + break; + if (n >= size) + ERROR("Uh ah..."); /* _FIXME_ */ + *p = '\0'; p++; + nptrs[n] = p; + } + + return n; +} + +static int +select_gsub (const char *feat, struct glyph_mapper *gm) +{ + int idx, error = 0; + + if (!feat || *feat == 0 || !gm || !gm->gsub) + return -1; + + /* First treat as is */ + idx = otl_gsub_select(gm->gsub, "*", "*", feat); + if (idx >= 0) + return 0; + + if (verbose > 1) + MESG("\ntrutype>> Try loading OTL GSUB for \"*.*.%s\"...", feat); + error = otl_gsub_add_feat(gm->gsub, "*", "*", feat, gm->sfont); + if (!error) { + idx = otl_gsub_select(gm->gsub, "*", "*", feat); + return (idx >= 0 ? 0 : -1); + } + + return -1; +} + +static int findparanoiac (const char *glyph_name, USHORT *gid, struct glyph_mapper *gm); +static int resolve_glyph (const char *glyph_name, USHORT *gid, struct glyph_mapper *gm); + +/* Apply GSUB. This is a bit tricky... */ +static int +selectglyph (USHORT in, const char *suffix, struct glyph_mapper *gm, USHORT *out) +{ + char *s, *q, t[5]; + int n, error = 0; + + ASSERT(suffix && gm && out); + ASSERT(suffix && *suffix != 0); + + s = NEW(strlen(suffix) + 1, char); + strcpy(s, suffix); + + /* First try converting suffix to feature tag. + * agl.c currently only knows less ambiguos cases; + * e.g., 'sc', 'superior', etc. + */ + q = (char *) agl_suffix_to_otltag(s); + if (q) { /* We found feature tag for 'suffix'. */ + error = select_gsub(q, gm); /* no fallback for this */ + if (!error) + error = otl_gsub_apply(gm->gsub, &in); + } else { /* 'suffix' may represent feature tag. */ + /* Try loading GSUB only when length of 'suffix' is less + * than or equal to 4. tt_gsub give a warning otherwise. + */ + if (strlen(s) > 4) + error = -1; /* Uh */ + else if (strlen(s) == 4) + error = select_gsub(s, gm); + else { /* less than 4. pad ' '. */ + memset(t, ' ', 4); t[4] = '\0'; + memcpy(t, s, strlen(s)); + error = select_gsub(t, gm); + } + if (!error) /* 'suffix' represents feature tag. */ + error = otl_gsub_apply(gm->gsub, &in); + else { /* other case: alt1, nalt10... (alternates) */ + for (q = s + strlen(s) - 1; q > s && *q >= '0' && *q <= '9'; q--); + if (q == s) + error = -1; + else { /* starting at 1 */ + n = atoi(q + 1) - 1; q[1] = '\0'; + if (strlen(s) > 4) + error = -1; + else { /* This may be alternate substitution. */ + memset(t, ' ', 4); t[4] = '\0'; + memcpy(t, s, strlen(s)); + error = select_gsub(s, gm); + if (!error) + error = otl_gsub_apply_alt(gm->gsub, n, &in); + } + } + } + } + RELEASE(s); + + *out = in; + return error; +} + + +/* Compose glyphs via ligature substitution. */ +static int +composeglyph (USHORT *glyphs, int n_glyphs, + const char *feat, struct glyph_mapper *gm, USHORT *gid) +{ + int error = 0; + char t[5] = {' ', ' ', ' ', ' ', 0}; + + ASSERT(glyphs && n_glyphs > 0 && gm && gid); + + if (!feat || feat[0] == '\0') /* meaning "Unknown" */ + error = select_gsub("(?lig|lig?|?cmp|cmp?|frac|afrc)", gm); + else { + if (strlen(feat) > 4) + error = -1; + else { + memcpy(t, feat, strlen(feat)); + error = select_gsub(t, gm); + } + } + + if (!error) + error = otl_gsub_apply_lig(gm->gsub, glyphs, n_glyphs, gid); + + return error; +} + +/* This may be called by findparanoiac(). */ +static int +composeuchar (long *unicodes, int n_unicodes, + const char *feat, struct glyph_mapper *gm, USHORT *gid) +{ + USHORT *gids; + int i, error = 0; + + if (!gm->codetogid) + return -1; + + gids = NEW(n_unicodes, USHORT); + for (i = 0; + !error && i < n_unicodes; i++) { + gids[i] = tt_cmap_lookup(gm->codetogid, unicodes[i]); + error = (gids[i] == 0) ? -1 : 0; + } + + if (!error) + error = composeglyph(gids, n_unicodes, feat, gm, gid); + + RELEASE(gids); + + return error; +} + +/* Search 'post' table. */ +static int +findposttable (const char *glyph_name, USHORT *gid, struct glyph_mapper *gm) +{ + if (!gm->nametogid) + return -1; + + *gid = tt_lookup_post_table(gm->nametogid, glyph_name); +#if 0 + if (verbose > 1) + { + if (*gid > 0) + MESG("%s =post=> 0x%04X\n", glyph_name, *gid); + } +#endif + + return (*gid == 0 ? -1 : 0); +} + +/* This is wrong. We must care about '.'. */ +#define is_comp(n) (strchr((n), '_') != NULL) + +/* Glyph names are concatinated with '_'. */ +static int +findcomposite (const char *glyphname, USHORT *gid, struct glyph_mapper *gm) +{ + char *gname, *suffix = NULL; + USHORT gids[32]; + char *nptrs[32]; + int i, n_comp; + int error = 0; + + error = findposttable(glyphname, gid, gm); + if (!error) + return 0; + + gname = NEW(strlen(glyphname) + 1, char); + strcpy(gname, glyphname); + + memset(gids, 0, 32 * sizeof(USHORT)); + n_comp = agl_decompose_glyphname(gname, nptrs, 32, &suffix); + for (error = 0, i = 0; !error && i < n_comp; i++) { + error = resolve_glyph(nptrs[i], &gids[i], gm); + if (error) + WARN("Could not resolve glyph \"%s\" (%dth component of glyph \"%s\").", + nptrs[i], i, glyphname); + } + + if (!error) { + if (suffix && + (!strcmp(suffix, "liga") || !strcmp(suffix, "dlig") || + !strcmp(suffix, "hlig") || !strcmp(suffix, "frac") || + !strcmp(suffix, "ccmp") || !strcmp(suffix, "afrc") + ) + ) { + error = composeglyph(gids, n_comp, suffix, gm, gid); + } else { /* first try composing glyph */ + error = composeglyph(gids, n_comp, NULL, gm, gid); + if (!error && suffix) /* a_b_c.vert */ + error = selectglyph(*gid, suffix, gm, gid); + } + } + RELEASE(gname); + + return error; +} + +/* glyphname should not have suffix here */ +static int +findparanoiac (const char *glyphname, USHORT *gid, struct glyph_mapper *gm) +{ + agl_name *agln; + USHORT idx = 0U; + int error = 0; + + agln = agl_lookup_list(glyphname); + while (agln && idx == 0) { + if (agln->suffix) { + error = findparanoiac(agln->name, &idx, gm); + if (error) + return error; + + error = selectglyph(idx, agln->suffix, gm, &idx); + if (error) { + WARN("Variant \"%s\" for glyph \"%s\" might not be found.", + agln->suffix, agln->name); + WARN("Using glyph name without suffix instead..."); + error = 0; /* ignore */ + } + } else { + if (agln->n_components == 1) + idx = tt_cmap_lookup(gm->codetogid, agln->unicodes[0]); + else if (agln->n_components > 1) { + if (verbose >= 0) /* give warning */ + WARN("Glyph \"%s\" looks like a composite glyph...", + agln->name); + error = composeuchar(agln->unicodes, agln->n_components, NULL, gm, &idx); + if (verbose >= 0) { + if (error) + WARN("Not found..."); + else { + int _i, _n = 0; + char *_p, _buf[256]; + WARN(">> Composite glyph glyph-name=\"%s\" found at glyph-id=\"%u\".", + agln->name, idx); + for (_p = _buf, _i = 0; _i < agln->n_components && _n < 245; _i++) { + _p[_n++] = _i == 0 ? '<' : ' '; + if (agln->unicodes[_i] >= 0x10000) + _n += sprintf(_p+_n, "U+%06lX", agln->unicodes[_i]); + else + _n += sprintf(_p+_n, "U+%04lX", agln->unicodes[_i]); + _p[_n++] = _i == agln->n_components - 1 ? '>' : ','; + } + _p[_n++] = '\0'; + WARN(">> Input Unicode seq.=\"%s\" ==> glyph-id=\"%u\" in font-file=\"_please_try_-v_\".", _buf, idx); + } + } + } else ASSERT(0); /* Boooo */ + } + agln = agln->alternate; + } + + *gid = idx; + return (idx == 0 ? -1 : 0); +} + +static int +resolve_glyph (const char *glyphname, USHORT *gid, struct glyph_mapper *gm) +{ + int error = 0; + char *name, *suffix = NULL; + long ucv; + + ASSERT(glyphname); + + /* + * First we try glyph name to GID mapping using post table if post table + * is available. If post table is not available or glyph is not listed + * in the post table, then we try Unicode if Windows-Unicode TrueType + * cmap is available. + */ + error = findposttable(glyphname, gid, gm); + if (!error) + return 0; + + if (!gm->codetogid) + return -1; + + name = agl_chop_suffix(glyphname, &suffix); + if (!name) /* .notdef, .foo */ + error = -1; + else if (agl_name_is_unicode(name)) { + ucv = agl_name_convert_unicode(name); + *gid = tt_cmap_lookup(gm->codetogid, ucv); + error = (*gid == 0) ? -1 : 0; + } else { + error = findparanoiac(name, gid, gm); + } + if (!error && suffix) { + error = selectglyph(*gid, suffix, gm, gid); + if (error) { + WARN("Variant \"%s\" for glyph \"%s\" might not be found.", + suffix, name); + WARN("Using glyph name without suffix instead..."); + error = 0; /* ignore */ + } + } + if (suffix) + RELEASE(suffix); + if (name) + RELEASE(name); + + return error; +} + +/* Things are complicated. We still need to use PostScript + * glyph names. But OpenType fonts may not have PS name to + * glyph mapping. We use Unicode plus OTL GSUB for finding + * glyphs in this case. + */ +static int +setup_glyph_mapper (struct glyph_mapper *gm, sfnt *sfont) +{ + gm->sfont = sfont; + gm->nametogid = tt_read_post_table(sfont); + gm->codetogid = tt_cmap_read(sfont, TT_WIN, TT_WIN_UCS4); + if (!gm->codetogid) + gm->codetogid = tt_cmap_read(sfont, TT_WIN, TT_WIN_UNICODE); + + if (!gm->nametogid && !gm->codetogid) + return -1; + + gm->gsub = otl_gsub_new(); + + return 0; +} + +static void +clean_glyph_mapper (struct glyph_mapper *gm) +{ + if (gm->gsub) + otl_gsub_release(gm->gsub); + if (gm->codetogid) + tt_cmap_release (gm->codetogid); + if (gm->nametogid) + tt_release_post_table(gm->nametogid); + + gm->gsub = NULL; + gm->codetogid = NULL; + gm->nametogid = NULL; + gm->sfont = NULL; + + return; +} + +static int +do_custum_encoding (pdf_font *font, + char **encoding, const char *usedchars, sfnt *sfont) +{ + struct tt_glyphs *glyphs; + char *cmap_table; + int code, count; + double widths[256]; + struct glyph_mapper gm; + USHORT idx, gid; + int error = 0; + + ASSERT(font && encoding && usedchars && sfont); + + error = setup_glyph_mapper(&gm, sfont); + if (error) { + WARN("No post table nor Unicode cmap found in font: %s", + pdf_font_get_ident(font)); + WARN(">> I can't find glyphs without this!"); + return -1; + } + + cmap_table = NEW(274, char); + memset(cmap_table, 0, 274); + sfnt_put_ushort(cmap_table, 0); /* Version */ + sfnt_put_ushort(cmap_table+2, 1); /* Number of subtables */ + sfnt_put_ushort(cmap_table+4, TT_MAC); /* Platform ID */ + sfnt_put_ushort(cmap_table+6, TT_MAC_ROMAN); /* Encoding ID */ + sfnt_put_ulong (cmap_table+8, 12); /* Offset */ + sfnt_put_ushort(cmap_table+12, 0); /* Format */ + sfnt_put_ushort(cmap_table+14, 262); /* Length */ + sfnt_put_ushort(cmap_table+16, 0); /* Language */ + + glyphs = tt_build_init(); + + count = 1; /* +1 for .notdef */ + for (code = 0; code < 256; code++) { + if (!usedchars[code]) + continue; + + if (!encoding[code] || !strcmp(encoding[code], ".notdef")) { + WARN("Character code=\"0x%02X\" mapped to \".notdef\" glyph used in font font-file=\"%s\"", + code, pdf_font_get_ident(font)); + WARN(">> Maybe incorrect encoding specified?"); + idx = 0; + } else { + if (is_comp(encoding[code])) + error = findcomposite(encoding[code], &gid, &gm); + else + error = resolve_glyph(encoding[code], &gid, &gm); + + /* + * Older versions of gs had problem with glyphs (other than .notdef) + * mapped to gid = 0. + */ + if (error) { + WARN("Glyph \"%s\" not available in font \"%s\".", + encoding[code], pdf_font_get_ident(font)); + } else { + if (verbose > 1) + MESG("truetype>> Glyph glyph-name=\"%s\" found at glyph-id=\"%u\".\n", encoding[code], gid); + } + idx = tt_find_glyph(glyphs, gid); + if (idx == 0) { + idx = tt_add_glyph(glyphs, gid, count); /* count returned. */ + count++; + } + } + cmap_table[18 + code] = idx & 0xff; /* bug here */ + } + clean_glyph_mapper(&gm); + + if (tt_build_tables(sfont, glyphs) < 0) { + WARN("Packing TrueType font into SFNT file faild..."); /* _FIXME_: wrong message */ + tt_build_finish(glyphs); + RELEASE(cmap_table); + return -1; + } + + for (code = 0; code < 256; code++) { + if (usedchars[code]) { + idx = tt_get_index(glyphs, (USHORT) cmap_table[18+code]); + widths[code] = PDFUNIT(glyphs->gd[idx].advw); + } else { + widths[code] = 0.0; + } + } + do_widths(font, widths); + + if (verbose > 1) + MESG("[%d glyphs]", glyphs->num_glyphs); + + tt_build_finish(glyphs); + + sfnt_set_table(sfont, "cmap", cmap_table, 274); + + return 0; +} + +int +pdf_font_load_truetype (pdf_font *font) +{ + pdf_obj *fontdict = pdf_font_get_resource(font); + pdf_obj *descriptor = pdf_font_get_descriptor(font); + char *ident = pdf_font_get_ident(font); + int encoding_id = pdf_font_get_encoding(font); + char *usedchars = pdf_font_get_usedchars(font); +#ifdef ENABLE_NOEMBED + int embedding = pdf_font_get_flag(font, PDF_FONT_FLAG_NOEMBED) ? 0 : 1; +#endif /* ENABLE_NOEMBED */ + char **enc_vec; + pdf_obj *fontfile; + FILE *fp = NULL; + sfnt *sfont; + int i, error = 0; + + if (!pdf_font_is_in_use(font)) + return 0; + + verbose = pdf_font_get_verbose(); + + if (!pdf_lookup_dict(fontdict, "ToUnicode")) { + if (encoding_id >= 0) + pdf_attach_ToUnicode_CMap(fontdict, + encoding_id, usedchars); + /* encoding_id < 0 means MacRoman here (but not really) */ + } + +#ifdef XETEX + sfont = sfnt_open(pdf_font_get_ft_face(font), SFNT_TYPE_TTC | SFNT_TYPE_TRUETYPE); +#else + fp = DPXFOPEN(ident, DPX_RES_TYPE_TTFONT); + if (!fp) + ERROR("Unable to open TrueType font file: %s", ident); /* Should find *truetype* here */ + + sfont = sfnt_open(fp); +#endif + if (!sfont) { + ERROR("Unable to open TrueType file: %s", ident); + if (fp) + DPXFCLOSE(fp); + return -1; + } else if (sfont->type != SFNT_TYPE_TRUETYPE && + sfont->type != SFNT_TYPE_TTC) { + ERROR("Font \"%s\" not a TrueType font?", ident); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + } + + if (sfont->type == SFNT_TYPE_TTC) + error = sfnt_read_table_directory(sfont, ttc_read_offset(sfont, 0)); + else + error = sfnt_read_table_directory(sfont, 0); + + if (error) { + ERROR("Reading SFND table dir failed for font-file=\"%s\"... Not a TrueType font?", ident); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + } + + /* + * Create new TrueType cmap table with MacRoman encoding. + */ + if (encoding_id < 0) + error = do_builtin_encoding(font, usedchars, sfont); + else { + enc_vec = pdf_encoding_get_encoding(encoding_id); + error = do_custum_encoding(font, enc_vec, usedchars, sfont); + } + if (error) { + ERROR("Error occured while creating font subfont for \"%s\"", ident); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + } + +#if ENABLE_NOEMBED + if (!embedding) { + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return 0; + } +#endif /* ENABLE_NOEMBED */ + + /* + * TODO: post table? + */ + + for (i = 0; required_table[i].name != NULL; i++) { + if (sfnt_require_table(sfont, + required_table[i].name, + required_table[i].must_exist) < 0) { + ERROR("Required TrueType table \"%s\" does not exist in font: %s", + required_table[i].name, ident); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + } + } + + /* + * FontFile2 + */ + fontfile = sfnt_create_FontFile_stream(sfont); + if (!fontfile) + ERROR("Could not created FontFile stream for \"%s\".", ident); + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + if (verbose > 1) + MESG("[%ld bytes]", pdf_stream_length(fontfile)); + + pdf_add_dict(descriptor, + pdf_new_name("FontFile2"), pdf_ref_obj(fontfile)); /* XXX */ + pdf_release_obj(fontfile); + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/truetype.h b/Build/source/texk/xdvipdfmx/src/truetype.h new file mode 100644 index 00000000000..d16b6860cfa --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/truetype.h @@ -0,0 +1,33 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/truetype.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TRUETYPE_H_ +#define _TRUETYPE_H_ + +#include "pdffont.h" + +extern int pdf_font_open_truetype (pdf_font *font); +extern int pdf_font_load_truetype (pdf_font *font); + +#endif /* _TRUETYPE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/tt_aux.c b/Build/source/texk/xdvipdfmx/src/tt_aux.c new file mode 100644 index 00000000000..45d9a233da0 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_aux.c @@ -0,0 +1,297 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_aux.c,v 1.7 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif /* HAVE_CONFIG_H */ + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "numbers.h" + +#include "pdfobj.h" + +#include "sfnt.h" +#include "tt_table.h" +#include "tt_post.h" +#include "tt_aux.h" + +extern int always_embed; /* flag declared in dvipdfmx.c */ + +ULONG ttc_read_offset (sfnt *sfont, int ttc_idx) +{ + LONG version; + ULONG offset = 0, num_dirs = 0; + + if (sfont == NULL || +#ifdef XETEX + sfont->ft_face == NULL +#else + sfont->stream == NULL +#endif + ) + ERROR("file not opened"); + + if (sfont->type != SFNT_TYPE_TTC) + ERROR("ttc_read_offset(): invalid font type"); + + sfnt_seek_set (sfont, 4); /* skip version tag */ + + version = sfnt_get_ulong(sfont); + num_dirs = sfnt_get_ulong(sfont); + if (ttc_idx < 0 || ttc_idx > num_dirs - 1) + ERROR("Invalid TTC index number"); + + sfnt_seek_set (sfont, 12 + ttc_idx * 4); + offset = sfnt_get_ulong (sfont); + + return offset; +} + +/* + Build FontDescriptor (except FontName) from TrueType tables: + + Most information found in FontDescriptor is used only when automatic + font substitution is needed. (in the case of missing/broken font data) + Some PDF viewers may ignore embedded TrueType glyph data. Especially, + any embedded TrueType data for CID-keyed (CIDFontType 2) font is ignored + by PDF viewers that only support PDF versions 1.2 or earlier. + + We use those tables to obtain various values of FontDescriptor. + + head: required + + xMin, xMax, yMin, yMax - FontBBox + unitsPerEm - conversion to PDF unit (points). see PDFUNIT bellow. + The head table must exist in any TrueType font. + + hhea: required + + When the OS/2 table (Windows and OS/2 only) is not available, + Ascender and Descender values can be used to estimate Ascent + and Descent. The hhea table is required for all TrueType fonts. + MaxWidth can be obtained from this table. + + OS/2: required for Windows and OS/2 TrueType, and OpenType + + fsType - liscensing information + sCapHeight - CapHeight (version 2 only) + + The sCapHeight is only available in newer TrueType fonts which has + version 2 OS/2 table and generally not available. Instead, we can + use height of uppercase letter `H'. But we don't use it, we simply + use Ascent value. + + sTypoAscender, sTypoDescender - Ascent and Descent + usWeightClass - roughly estimate StemV. + + Estimation is based on the following expression: + + stemv = (os2->usWeightClass/65)*(os2->usWeightClass/65)+50 + + . I've found this expression in some Adobe document (lost). We use + this expression also, otherwise, we must analyze glyph data. + + xAvgCharWidth - AvgWidth (optional) + sFamilyClass - Flags + sFamilyClass and panose - Panose in Style dictionary (optional) + + post: required + + italicAngle - ItalicAngle + +*/ + + +#ifndef PDFUNIT +#define PDFUNIT(v) (ROUND((1000.0*(v))/(head->unitsPerEm),1)) +#endif + +/* Flags: should not come here */ +#define FIXEDWIDTH (1 << 0) /* Fixed-width font */ +#define SERIF (1 << 1) /* Serif font */ +#define SYMBOLIC (1 << 2) /* Symbolic font */ +#define SCRIPT (1 << 3) /* Script font */ +#define STANDARD (1 << 5) /* Uses the Adobe Standard Character Set */ +#define ITALIC (1 << 6) /* Italic */ +#define ALLCAP (1 << 16) /* All-cap font */ +#define SMALLCAP (1 << 17) /* Small-cap font */ +#define FORCEBOLD (1 << 18) /* Force bold at small text sizes */ +pdf_obj *tt_get_fontdesc (sfnt *sfont, int *embed, int type) +{ + pdf_obj *descriptor = NULL; + pdf_obj *bbox = NULL; + int stemv = 0, flag = SYMBOLIC; + /* TrueType tables */ + struct tt_head_table *head; + struct tt_os2__table *os2; + struct tt_post_table *post; + + if (!sfont) { + ERROR("font file not opened"); + } + + os2 = tt_read_os2__table(sfont); + head = tt_read_head_table(sfont); + post = tt_read_post_table(sfont); + if (!post) { + RELEASE(os2); + RELEASE(head); + return NULL; + } + + descriptor = pdf_new_dict(); + pdf_add_dict (descriptor, + pdf_new_name ("Type"), + pdf_new_name ("FontDescriptor")); + + if (*embed && os2) { + /* + License: + + "Preview & Print embedding" (0x004) requires the document containing + Preview & Print font to be opened in read-only mode. However, licensing + information are lost when fonts are embedded in PDF document and + the only way to make the PDF document "read-only" is to encrypt it. + But we have no support for encryption yet. We do not embed any fonts + with "Preview & Print embedding" setting. + + 2001/11/22: Changed to allow `Preview & Print' only fonts embedding + + 2006/04/19: Added support for always_embed option + */ + if (os2->fsType == 0x0000 || (os2->fsType & 0x0008)) { + /* the least restrictive license granted takes precedence. */ + *embed = 1; + } else if (os2->fsType & 0x0004) { + static char previewWarningIssued = 0; + if (previewWarningIssued == 0) { + fprintf(stderr, + "\n** NOTICE: This document contains a `Preview & Print only' licensed font **\n"); + previewWarningIssued = 1; + } + *embed = 1; + } else { + if (always_embed) { + static char licenseWarningIssued = 0; + if (licenseWarningIssued == 0) { + fprintf(stderr, + "\n** NOTICE: This document contains an embedded font with licensing restrictions **\n"); + licenseWarningIssued = 1; + } + *embed = 1; + } + else { + fprintf(stderr, + "\n*** Embedding disabled due to licensing restriction ***\n"); + *embed = 0; + } + } + } + + if (os2) { + pdf_add_dict (descriptor, + pdf_new_name ("Ascent"), + pdf_new_number (PDFUNIT(os2->sTypoAscender))); + pdf_add_dict (descriptor, + pdf_new_name ("Descent"), + pdf_new_number (PDFUNIT(os2->sTypoDescender))); + stemv = (os2->usWeightClass/65)*(os2->usWeightClass/65)+50; /* arbitrary */ + pdf_add_dict (descriptor, + pdf_new_name ("StemV"), + pdf_new_number (stemv)); + if (os2->version == 0x0002) { + pdf_add_dict (descriptor, + pdf_new_name("CapHeight"), + pdf_new_number(PDFUNIT(os2->sCapHeight)) + ); + /* optional */ + pdf_add_dict (descriptor, + pdf_new_name("XHeight"), + pdf_new_number(PDFUNIT(os2->sxHeight)) + ); + } else { /* arbitrary */ + pdf_add_dict (descriptor, + pdf_new_name("CapHeight"), + pdf_new_number(PDFUNIT(os2->sTypoAscender)) + ); + } + /* optional */ + pdf_add_dict (descriptor, + pdf_new_name ("AvgWidth"), + pdf_new_number (PDFUNIT(os2->xAvgCharWidth))); + } + + /* BoundingBox (array) */ + bbox = pdf_new_array (); + pdf_add_array (bbox, pdf_new_number (PDFUNIT(head->xMin))); + pdf_add_array (bbox, pdf_new_number (PDFUNIT(head->yMin))); + pdf_add_array (bbox, pdf_new_number (PDFUNIT(head->xMax))); + pdf_add_array (bbox, pdf_new_number (PDFUNIT(head->yMax))); + pdf_add_dict (descriptor, pdf_new_name ("FontBBox"), bbox); + + /* post */ + pdf_add_dict (descriptor, + pdf_new_name ("ItalicAngle"), + pdf_new_number(fixed(post->italicAngle))); + + /* Flags */ + if (os2) { + if (os2->fsSelection & (1 << 0)) + flag |= ITALIC; + if (os2->fsSelection & (1 << 5)) + flag |= FORCEBOLD; + if (((os2->sFamilyClass >> 8) & 0xff) != 8) + flag |= SERIF; + if (((os2->sFamilyClass >> 8) & 0xff) == 10) + flag |= SCRIPT; + if (post->isFixedPitch) + flag |= FIXEDWIDTH; + } + pdf_add_dict (descriptor, + pdf_new_name ("Flags"), + pdf_new_number (flag)); + + /* insert panose if you want */ + if (type == 0 && os2) { /* cid-keyed font - add panose */ + pdf_obj *styledict = NULL; + unsigned char panose[12]; + + panose[0] = os2->sFamilyClass >> 8; + panose[1] = os2->sFamilyClass & 0xff; + memcpy(panose+2, os2->panose, 10); + + styledict = pdf_new_dict (); + pdf_add_dict (styledict, pdf_new_name ("Panose"), + pdf_new_string (panose, 12)); + pdf_add_dict (descriptor, pdf_new_name ("Style"), styledict); + } + + RELEASE(head); + if (os2) + RELEASE(os2); + tt_release_post_table(post); + + return descriptor; +} + diff --git a/Build/source/texk/xdvipdfmx/src/tt_aux.h b/Build/source/texk/xdvipdfmx/src/tt_aux.h new file mode 100644 index 00000000000..d2528d53335 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_aux.h @@ -0,0 +1,35 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_aux.h,v 1.5 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TT_AUX_H_ +#define _TT_AUX_H_ + +#include "pdfobj.h" +#include "sfnt.h" + +/* TTC (TrueType Collection) */ +extern ULONG ttc_read_offset (sfnt *sfont, int ttc_idx); + +/* FontDescriptor */ +extern pdf_obj *tt_get_fontdesc (sfnt *sfont, int *embed, int type); + +#endif /* _TT_AUX_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/tt_cmap.c b/Build/source/texk/xdvipdfmx/src/tt_cmap.c new file mode 100644 index 00000000000..1681dad8230 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_cmap.c @@ -0,0 +1,1906 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_cmap.c,v 1.24 2005/07/08 14:18:05 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * A large part of codes are brought from ttfdump-0.5.5. + */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "sfnt.h" + + +/* Sorry for placing this here. + * We need to rewrite TrueType font support code... + */ +#include "cmap.h" +#include "cmap_write.h" + +#include "tt_aux.h" +#include "tt_gsub.h" +#include "tt_post.h" + +#include "unicode.h" +#include "agl.h" +#include "pdfparse.h" +#include "pdfresource.h" +#include "otl_conf.h" + +#include "dpxfile.h" + +/* Hash */ +#include "dpxutil.h" + +#include "tt_cmap.h" + +#define VERBOSE_LEVEL_MIN 0 +static int verbose = 0; +void +otf_cmap_set_verbose (void) +{ + otl_gsub_set_verbose(); + verbose++; +} + +/* format 0: byte encoding table */ +struct cmap0 +{ + BYTE glyphIndexArray[256]; +}; + +static struct cmap0 * +read_cmap0 (sfnt *sfont, ULONG len) +{ + struct cmap0 *map; + int i; + + if (len < 256) + ERROR("invalid cmap subtable"); + + map = NEW(1, struct cmap0); + + for (i = 0; i < 256; i++) + map->glyphIndexArray[i] = sfnt_get_byte(sfont); + + return map; +} + +static void +release_cmap0(struct cmap0 *map) +{ + if (map) + RELEASE(map); +} + +static USHORT +lookup_cmap0 (struct cmap0 *map, USHORT cc) +{ + return ((cc > 255) ? 0 : map->glyphIndexArray[cc]); +} + +/* format 2: high-byte mapping through table */ +struct SubHeader +{ + USHORT firstCode; + USHORT entryCount; + SHORT idDelta; + USHORT idRangeOffset; +}; + +struct cmap2 +{ + USHORT subHeaderKeys[256]; + struct SubHeader *subHeaders; + USHORT *glyphIndexArray; +}; + +static struct cmap2 * +read_cmap2 (sfnt *sfont, ULONG len) +{ + struct cmap2 *map; + USHORT i, n; + + if (len < 512) + ERROR("invalid cmap subtable"); + + map = NEW(1, struct cmap2); + + for (i = 0; i < 256; i++) + map->subHeaderKeys[i] = sfnt_get_ushort(sfont); + + for (n = 0, i = 0; i < 256; i++) { + map->subHeaderKeys[i] /= 8; + if (n < map->subHeaderKeys[i]) + n = map->subHeaderKeys[i]; + } + n += 1; /* the number of subHeaders is one plus the max of subHeaderKeys */ + + map->subHeaders = NEW(n, struct SubHeader); + for (i = 0; i < n; i++) { + map->subHeaders[i].firstCode = sfnt_get_ushort(sfont); + map->subHeaders[i].entryCount = sfnt_get_ushort(sfont); + map->subHeaders[i].idDelta = sfnt_get_short(sfont); + map->subHeaders[i].idRangeOffset = sfnt_get_ushort(sfont); + + /* It makes things easier to let the offset starts from + * the beginning of glyphIndexArray. + */ + if (map->subHeaders[i].idRangeOffset != 0) + map->subHeaders[i].idRangeOffset -= (2 + (n - i - 1) * 8); + } + + /* Caculate the length of glyphIndexArray, this is ugly, + * there should be a better way to get this information. + */ + n = (USHORT) (len - 518 - n * 8) / 2; + + map->glyphIndexArray = NEW(n, USHORT); + for (i = 0; i < n; i++) + map->glyphIndexArray[i] = sfnt_get_ushort(sfont); + + return map; +} + +static void +release_cmap2 (struct cmap2 *map) +{ + if (map) { + if (map->subHeaders) + RELEASE(map->subHeaders); + if (map->glyphIndexArray) + RELEASE(map->glyphIndexArray); + RELEASE(map); + } +} + +static USHORT +lookup_cmap2 (struct cmap2 *map, USHORT cc) +{ + USHORT idx = 0; + SHORT idDelta; + USHORT firstCode, entryCount, idRangeOffset; + int hi, lo; + USHORT i; + + hi = (cc >> 8) & 0xff; + lo = cc & 0xff; + + /* select which subHeader to use */ + i = map->subHeaderKeys[hi]; + + firstCode = map->subHeaders[i].firstCode; + entryCount = map->subHeaders[i].entryCount; + idDelta = map->subHeaders[i].idDelta; + idRangeOffset = map->subHeaders[i].idRangeOffset / 2; + + if (lo >= firstCode && + lo < firstCode + entryCount) { + idRangeOffset += lo - firstCode; + idx = map->glyphIndexArray[idRangeOffset]; + if (idx != 0) + idx = (idx + idDelta) & 0xffff; + } + + return idx; +} + +/* + * format 4: segment mapping to delta values + * - Microsoft standard character to glyph index mapping table + */ +struct cmap4 +{ + USHORT segCountX2; + USHORT searchRange; + USHORT entrySelector; + USHORT rangeShift; + USHORT *endCount; + USHORT reservedPad; + USHORT *startCount; + USHORT *idDelta; + USHORT *idRangeOffset; + USHORT *glyphIndexArray; +}; + +static struct cmap4 * +read_cmap4(sfnt *sfont, ULONG len) +{ + struct cmap4 *map; + USHORT i, n, segCount; + + if (len < 8) + ERROR("invalid cmap subtable"); + + map = NEW(1, struct cmap4); + + map->segCountX2 = segCount = sfnt_get_ushort(sfont); + map->searchRange = sfnt_get_ushort(sfont); + map->entrySelector = sfnt_get_ushort(sfont); + map->rangeShift = sfnt_get_ushort(sfont); + + segCount /= 2; + + map->endCount = NEW(segCount, USHORT); + for (i = 0; i < segCount; i++) + map->endCount[i] = sfnt_get_ushort(sfont); + + map->reservedPad = sfnt_get_ushort(sfont); + + map->startCount = NEW(segCount, USHORT); + for (i = 0; i < segCount; i++) + map->startCount[i] = sfnt_get_ushort(sfont); + + map->idDelta = NEW(segCount, USHORT); + for (i = 0; i < segCount; i++) + map->idDelta[i] = sfnt_get_ushort(sfont); + + map->idRangeOffset = NEW(segCount, USHORT); + for (i = 0; i < segCount; i++) + map->idRangeOffset[i] = sfnt_get_ushort(sfont); + + n = (len - 16 - 8 * segCount) / 2; + if (n == 0) + map->glyphIndexArray = NULL; + else { + map->glyphIndexArray = NEW(n, USHORT); + for (i = 0; i < n; i++) + map->glyphIndexArray[i] = sfnt_get_ushort(sfont); + } + + return map; +} + +static void +release_cmap4 (struct cmap4 *map) +{ + if (map) { + if (map->endCount) RELEASE(map->endCount); + if (map->startCount) RELEASE(map->startCount); + if (map->idDelta) RELEASE(map->idDelta); + if (map->idRangeOffset) RELEASE(map->idRangeOffset); + if (map->glyphIndexArray) RELEASE(map->glyphIndexArray); + RELEASE(map); + } +} + +static USHORT +lookup_cmap4 (struct cmap4 *map, USHORT cc) +{ + USHORT gid = 0; + USHORT i, j, segCount; + + /* + * Segments are sorted in order of increasing endCode values. + * Last segment maps 0xffff to gid 0 (?) + */ + i = segCount = map->segCountX2 / 2; + while (i-- > 0 && cc <= map->endCount[i]) { + if (cc >= map->startCount[i]) { + if (map->idRangeOffset[i] == 0) { + gid = (cc + map->idDelta[i]) & 0xffff; + } else { + j = map->idRangeOffset[i] - (segCount - i) * 2; + j = (cc - map->startCount[i]) + (j / 2); + gid = map->glyphIndexArray[j]; + if (gid != 0) + gid = (gid + map->idDelta[i]) & 0xffff; + } + break; + } + } + + return gid; +} + +/* format 6: trimmed table mapping */ +struct cmap6 +{ + USHORT firstCode; + USHORT entryCount; + USHORT *glyphIndexArray; +}; + +static struct cmap6 * +read_cmap6 (sfnt *sfont, ULONG len) +{ + struct cmap6 *map; + USHORT i; + + if (len < 4) + ERROR("invalid cmap subtable"); + + map = NEW(1, struct cmap6); + map->firstCode = sfnt_get_ushort(sfont); + map->entryCount = sfnt_get_ushort(sfont); + map->glyphIndexArray = NEW(map->entryCount, USHORT); + + for (i = 0; i < map->entryCount; i++) + map->glyphIndexArray[i] = sfnt_get_ushort(sfont); + + return map; +} + +static void +release_cmap6 (struct cmap6 *map) +{ + if (map) { + if (map->glyphIndexArray) + RELEASE(map->glyphIndexArray); + RELEASE(map); + } +} + +static USHORT +lookup_cmap6 (struct cmap6 *map, USHORT cc) +{ + USHORT idx; + + idx = cc - map->firstCode; + if (idx < map->entryCount) + return map->glyphIndexArray[idx]; + else + return 0; + + return 0; +} + +/* Format 8 and 10 not supported... + * + * format 8: mixed 16-bit and 32-bit coverage + * format 10: trimmed array + */ + +/* + * format 12: segmented coverage + * + * startGlyphID is 32-bit long, however, GlyphID is still 16-bit long ! + */ + +struct charGroup +{ + ULONG startCharCode; + ULONG endCharCode; + ULONG startGlyphID; +}; + +struct cmap12 +{ + ULONG nGroups; + struct charGroup *groups; +}; + +/* ULONG length */ +static struct cmap12 * +read_cmap12 (sfnt *sfont, ULONG len) +{ + struct cmap12 *map; + ULONG i; + + if (len < 4) + ERROR("invalid cmap subtable"); + + map = NEW(1, struct cmap12); + map->nGroups = sfnt_get_ulong(sfont); + map->groups = NEW(map->nGroups, struct charGroup); + + for (i = 0; i < map->nGroups; i++) { + map->groups[i].startCharCode = sfnt_get_ulong(sfont); + map->groups[i].endCharCode = sfnt_get_ulong(sfont); + map->groups[i].startGlyphID = sfnt_get_ulong(sfont); + } + + return map; +} + +static void +release_cmap12 (struct cmap12 *map) +{ + if (map) { + if (map->groups) + RELEASE(map->groups); + RELEASE(map); + } +} + +static USHORT +lookup_cmap12 (struct cmap12 *map, ULONG cccc) +{ + USHORT gid = 0; + ULONG i; + + i = map->nGroups; + while (i-- >= 0 && + cccc <= map->groups[i].endCharCode) { + if (cccc >= map->groups[i].startCharCode) { + gid = (USHORT) ((cccc - + map->groups[i].startCharCode + + map->groups[i].startGlyphID) & 0xffff); + break; + } + } + + return gid; +} + +/* read cmap */ +tt_cmap * +tt_cmap_read (sfnt *sfont, USHORT platform, USHORT encoding) +{ + tt_cmap *cmap = NULL; + ULONG offset, length = 0; + USHORT version, p_id, e_id; + USHORT i, n_subtabs; + + ASSERT(sfont); + + offset = sfnt_locate_table(sfont, "cmap"); + version = sfnt_get_ushort(sfont); + n_subtabs = sfnt_get_ushort(sfont); + + for (i = 0; i < n_subtabs; i++) { + p_id = sfnt_get_ushort(sfont); + e_id = sfnt_get_ushort(sfont); + if (p_id != platform || e_id != encoding) + sfnt_get_ulong(sfont); + else { + offset += sfnt_get_ulong(sfont); + break; + } + } + + if (i == n_subtabs) + return NULL; + + cmap = NEW(1, tt_cmap); + cmap->map = NULL; + cmap->platform = platform; + cmap->encoding = encoding; + + sfnt_seek_set(sfont, offset); + cmap->format = sfnt_get_ushort(sfont); + /* Length and version (language) is ULONG for + * format 8, 10, 12 ! + */ + if (cmap->format <= 6) { + length = sfnt_get_ushort(sfont); + cmap->language = sfnt_get_ushort(sfont); /* language (Mac) */ + } else { + if (sfnt_get_ushort(sfont) != 0) { /* reverved - 0 */ + WARN("Unrecognized cmap subtable format."); + tt_cmap_release(cmap); + return NULL; + } else { + length = sfnt_get_ulong(sfont); + cmap->language = sfnt_get_ulong(sfont); + } + } + + switch(cmap->format) { + case 0: + cmap->map = read_cmap0(sfont, length); + break; + case 2: + cmap->map = read_cmap2(sfont, length); + break; + case 4: + cmap->map = read_cmap4(sfont, length); + break; + case 6: + cmap->map = read_cmap6(sfont, length); + break; + case 12: + /*WARN("UCS-4 TrueType cmap table...");*/ + cmap->map = read_cmap12(sfont, length); + break; + default: + WARN("Unrecognized TrueType cmap format."); + tt_cmap_release(cmap); + return NULL; + } + + if (!cmap->map) { + tt_cmap_release(cmap); + cmap = NULL; + } + + return cmap; +} + +void +tt_cmap_release (tt_cmap *cmap) +{ + + if (cmap) { + if (cmap->map) { + switch(cmap->format) { + case 0: + release_cmap0(cmap->map); + break; + case 2: + release_cmap2(cmap->map); + break; + case 4: + release_cmap4(cmap->map); + break; + case 6: + release_cmap6(cmap->map); + break; + case 12: + release_cmap12(cmap->map); + break; + default: + ERROR("Unrecognized TrueType cmap format."); + } + } + RELEASE(cmap); + } + + return; +} + + +USHORT +tt_cmap_lookup (tt_cmap *cmap, long cc) +{ + USHORT gid = 0; + + ASSERT(cmap); + + if (cc > 0xffffL && cmap->format < 12) { + WARN("Four bytes charcode not supported in TrueType cmap format 0...6."); + return 0; + } + + switch (cmap->format) { + case 0: + gid = lookup_cmap0(cmap->map, (USHORT) cc); + break; + case 2: + gid = lookup_cmap2(cmap->map, (USHORT) cc); + break; + case 4: + gid = lookup_cmap4(cmap->map, (USHORT) cc); + break; + case 6: + gid = lookup_cmap6(cmap->map, (USHORT) cc); + break; + case 12: + gid = lookup_cmap12(cmap->map, (ULONG) cc); + break; + default: + ERROR("Unrecognized TrueType cmap subtable format"); + break; + } + + return gid; +} + +/* Sorry for placing this here. + * We need to rewrite TrueType font support code... + */ + +#define WBUF_SIZE 1024 +static unsigned char wbuf[WBUF_SIZE]; + +static unsigned char srange_min[2] = {0x00, 0x00}; +static unsigned char srange_max[2] = {0xff, 0xff}; +static unsigned char lrange_min[4] = {0x00, 0x00, 0x00, 0x00}; +static unsigned char lrange_max[4] = {0x7f, 0xff, 0xff, 0xff}; + +static void +load_cmap4 (struct cmap4 *map, + unsigned char *GIDToCIDMap, CMap *cmap) +{ + USHORT c0, c1, gid, cid; + USHORT j, d, segCount; + USHORT ch; + long i; + + segCount = map->segCountX2 / 2; + for (i = segCount - 1; i >= 0 ; i--) { + c0 = map->startCount[i]; + c1 = map->endCount[i]; + d = map->idRangeOffset[i] / 2 - (segCount - i); + for (j = 0; j <= c1 - c0; j++) { + ch = c0 + j; + if (map->idRangeOffset[i] == 0) { + gid = (ch + map->idDelta[i]) & 0xffff; + } else { + gid = (map->glyphIndexArray[j+d] + + map->idDelta[i]) & 0xffff; + } + if (gid != 0 && gid != 0xffff) { + if (GIDToCIDMap) { + cid = ((GIDToCIDMap[2*gid] << 8)|GIDToCIDMap[2*gid+1]); + if (cid == 0) + WARN("GID %u does not have corresponding CID %u.", + gid, cid); + } else { + cid = gid; + } + wbuf[0] = 0; + wbuf[1] = 0; + wbuf[2] = (ch >> 8) & 0xff; + wbuf[3] = ch & 0xff; + CMap_add_cidchar(cmap, wbuf, 4, cid); + } + } + } + + return; +} + +static void +load_cmap12 (struct cmap12 *map, + unsigned char *GIDToCIDMap, CMap *cmap) +{ + ULONG i, ch; /* LONG ? */ + USHORT gid, cid; + + for (i = 0; i < map->nGroups; i++) { + for (ch = map->groups[i].startCharCode; + ch <= map->groups[i].endCharCode; + ch++) { + long d = ch - map->groups[i].startCharCode; + gid = (USHORT) ((map->groups[i].startGlyphID + d) & 0xffff); + if (GIDToCIDMap) { + cid = ((GIDToCIDMap[2*gid] << 8)|GIDToCIDMap[2*gid+1]); + if (cid == 0) + WARN("GID %u does not have corresponding CID %u.", gid, cid); + } else { + cid = gid; + } + wbuf[0] = (ch >> 24) & 0xff; + wbuf[1] = (ch >> 16) & 0xff; + wbuf[2] = (ch >> 8) & 0xff; + wbuf[3] = ch & 0xff; + CMap_add_cidchar(cmap, wbuf, 4, cid); + } + } + + return; +} + +/* OpenType CIDFont: + * + * We don't use GID for them. OpenType cmap table is for + * charcode to GID mapping rather than to-CID mapping. + */ +#include "cid.h" + +#include "tt_table.h" +#include "cff_types.h" +#include "cff_dict.h" +#include "cff.h" + +static int +handle_CIDFont (sfnt *sfont, + unsigned char **GIDToCIDMap, CIDSysInfo *csi) +{ + cff_font *cffont; + long offset, i; + card16 num_glyphs, gid; + cff_charsets *charset; + unsigned char *map; + struct tt_maxp_table *maxp; + + ASSERT(csi); + + offset = sfnt_find_table_pos(sfont, "CFF "); + if (offset == 0) { + csi->registry = NULL; + csi->ordering = NULL; + *GIDToCIDMap = NULL; + return 0; + } + + maxp = tt_read_maxp_table(sfont); + num_glyphs = (card16) maxp->numGlyphs; + RELEASE(maxp); + if (num_glyphs < 1) + ERROR("No glyph contained in this font..."); + + cffont = cff_open(sfont, offset, 0); + if (!cffont) + ERROR("Could not open CFF font..."); + + + if (!(cffont->flag & FONTTYPE_CIDFONT)) { + cff_close(cffont); + csi->registry = NULL; + csi->ordering = NULL; + *GIDToCIDMap = NULL; + return 0; + } + + if (!cff_dict_known(cffont->topdict, "ROS")) { + ERROR("No CIDSystemInfo???"); + } else { + card16 reg, ord; + + reg = (card16) cff_dict_get(cffont->topdict, "ROS", 0); + ord = (card16) cff_dict_get(cffont->topdict, "ROS", 1); + + csi->registry = cff_get_string(cffont, reg); + csi->ordering = cff_get_string(cffont, ord); + csi->supplement = (int) cff_dict_get(cffont->topdict, "ROS", 2); + } + + cff_read_charsets(cffont); + charset = cffont->charsets; + if (!charset) { + ERROR("No CFF charset data???"); + } + + map = NEW(num_glyphs * 2, unsigned char); + memset(map, 0, num_glyphs * 2); + switch (charset->format) { + case 0: + { + s_SID *cids; /* CID... */ + + cids = charset->data.glyphs; + for (gid = 1, i = 0; + i < charset->num_entries; i++) { + map[2*gid ] = (cids[i] >> 8) & 0xff; + map[2*gid+1] = cids[i] & 0xff; + gid++; + } + } + break; + case 1: + { + cff_range1 *ranges; + card16 cid, count; + + ranges = charset->data.range1; + for (gid = 1, i = 0; + i < charset->num_entries; i++) { + cid = ranges[i].first; + count = ranges[i].n_left + 1; /* card8 */ + while (count-- > 0 && + gid <= num_glyphs) { + map[2*gid ] = (cid >> 8) & 0xff; + map[2*gid + 1] = cid & 0xff; + gid++; + } + } + } + break; + case 2: + { + cff_range2 *ranges; + card16 cid, count; + + ranges = charset->data.range2; + if (charset->num_entries == 1 && + ranges[0].first == 1) { + /* "Complete" CIDFont */ + RELEASE(map); map = NULL; + } else { + /* Not trivial mapping */ + for (gid = 1, i = 0; + i < charset->num_entries; i++) { + cid = ranges[i].first; + count = ranges[i].n_left + 1; + while (count-- > 0 && + gid <= num_glyphs) { + map[gid] = (cid >> 8) & 0xff; + map[gid] = cid & 0xff; + gid++; + } + } + + } + } + break; + default: + RELEASE(map); map = NULL; + ERROR("Unknown CFF charset format...: %d", charset->format); + break; + } + cff_close(cffont); + + *GIDToCIDMap = map; + return 1; +} + +/* + * Substituted glyphs: + * + * Mapping information stored in cmap_add. + */ +#ifndef is_used_char2 +#define is_used_char2(b,c) (((b)[(c)/8]) & (1 << (7-((c)%8)))) +#endif + +static USHORT +handle_subst_glyphs (CMap *cmap, + CMap *cmap_add, const char *used_glyphs, + struct tt_post_table *post) +{ + USHORT count; + USHORT i, gid; + long ucv; + + for (count = 0, i = 0; i < 8192; i++) { + int j; + long len, inbytesleft, outbytesleft; + unsigned char *inbuf, *outbuf; + + if (used_glyphs[i] == 0) + continue; + + for (j = 0; j < 8; j++) { + gid = 8 * i + j; + + if (!is_used_char2(used_glyphs, gid)) + continue; + + if (!cmap_add && post) { + /* JK: try to look up Unicode values from the glyph name... + requires access to 'post' table */ +#define MAX_UNICODES 16 + long unicodes[MAX_UNICODES]; + int unicode_count = -1; + int k; + if (gid < post->numberOfGlyphs) { + unicode_count = agl_get_unicodes(post->glyphNamePtr[gid], unicodes, MAX_UNICODES); + } + if (unicode_count == -1) + WARN("No Unicode mapping available: GID=%u, name=%s", gid, + gid < post->numberOfGlyphs ? post->glyphNamePtr[gid] : "(none)"); + else { + /* the Unicode characters go into wbuf[2] and following, in UTF16BE */ + /* we rely on WBUF_SIZE being more than adequate for MAX_UNICODES */ + unsigned char* p = wbuf + 2; + len = 0; + for (k = 0; k < unicode_count; ++k) { + len += UC_sput_UTF16BE(unicodes[k], &p, wbuf+WBUF_SIZE); + } + CMap_add_bfchar(cmap, wbuf, 2, wbuf + 2, len); + } + } + else { + wbuf[0] = (gid >> 8) & 0xff; + wbuf[1] = gid & 0xff; + inbuf = wbuf; + inbytesleft = 2; + outbuf = inbuf + 2; + outbytesleft = WBUF_SIZE - 2; + CMap_decode(cmap_add, + (const unsigned char **) &inbuf , &inbytesleft, + &outbuf, &outbytesleft); + if (inbytesleft != 0) { + WARN("CMap conversion failed..."); + } else { + len = WBUF_SIZE - 2 - outbytesleft; + CMap_add_bfchar(cmap, wbuf, 2, wbuf + 2, len); + count++; + + if (verbose > VERBOSE_LEVEL_MIN) { + long _i; + + MESG("otf_cmap>> Additional ToUnicode mapping: <%04X> <", gid); + for (_i = 0; _i < len; _i++) { + MESG("%02X", wbuf[2 + _i]); + } + MESG(">\n"); + } + + } + } + + } + } + + return count; +} + +static pdf_obj * +create_ToUnicode_cmap4 (struct cmap4 *map, + const char *cmap_name, CMap *cmap_add, + const char *used_glyphs, + struct tt_post_table *post) +{ + pdf_obj *stream = NULL; + CMap *cmap; + USHORT c0, c1, gid, count, ch; + USHORT i, j, d, segCount; + char used_glyphs_copy[8192]; + + cmap = CMap_new(); + CMap_set_name (cmap, cmap_name); + CMap_set_wmode(cmap, 0); + CMap_set_type (cmap, CMAP_TYPE_TO_UNICODE); + CMap_set_CIDSysInfo(cmap, &CSI_UNICODE); + CMap_add_codespacerange(cmap, srange_min, srange_max, 2); + + memcpy(used_glyphs_copy, used_glyphs, 8192); + + segCount = map->segCountX2 / 2; + for (count = 0, i = 0; i < segCount; i++) { + c0 = map->startCount[i]; + c1 = map->endCount[i]; + d = map->idRangeOffset[i] / 2 - (segCount - i); + for (j = 0; j <= c1 - c0; j++) { + ch = c0 + j; + if (map->idRangeOffset[i] == 0) { + gid = (ch + map->idDelta[i]) & 0xffff; + } else { + gid = (map->glyphIndexArray[j+d] + + map->idDelta[i]) & 0xffff; + } + if (is_used_char2(used_glyphs_copy, gid)) { + count++; + + wbuf[0] = (gid >> 8) & 0xff; + wbuf[1] = (gid & 0xff); + + wbuf[2] = (ch >> 8) & 0xff; + wbuf[3] = ch & 0xff; + + CMap_add_bfchar(cmap, wbuf, 2, wbuf+2, 2); + + /* Avoid duplicate entry + * There are problem when two Unicode code is mapped to + * single glyph... + */ + used_glyphs_copy[gid/8] &= ~(1 << (7 - (gid % 8))); + count++; + } + } + } + + count += handle_subst_glyphs(cmap, cmap_add, used_glyphs_copy, post); + + if (count < 1) + stream = NULL; + else { + stream = CMap_create_stream(cmap, 0); + } + CMap_release(cmap); + + return stream; +} + + +static pdf_obj * +create_ToUnicode_cmap12 (struct cmap12 *map, + const char *cmap_name, CMap *cmap_add, + const char *used_glyphs, + struct tt_post_table *post) +{ + pdf_obj *stream = NULL; + CMap *cmap; + ULONG i, ch; + USHORT gid, count; + char used_glyphs_copy[8192]; + + cmap = CMap_new(); + CMap_set_name (cmap, cmap_name); + CMap_set_wmode(cmap, 0); + CMap_set_type (cmap, CMAP_TYPE_TO_UNICODE); + CMap_set_CIDSysInfo(cmap, &CSI_UNICODE); + CMap_add_codespacerange(cmap, srange_min, srange_max, 2); + + memcpy(used_glyphs_copy, used_glyphs, 8192); + for (count = 0, i = 0; i < map->nGroups; i++) { + for (ch = map->groups[i].startCharCode; + ch <= map->groups[i].endCharCode; ch++) { + unsigned char *p; + int len; + long d; + + p = wbuf + 2; + d = ch - map->groups[i].startCharCode; + gid = (USHORT) ((map->groups[i].startGlyphID + d) & 0xffff); + if (is_used_char2(used_glyphs_copy, gid)) { + count++; + wbuf[0] = (gid >> 8) & 0xff; + wbuf[1] = (gid & 0xff); + len = UC_sput_UTF16BE((long)ch, &p, wbuf+WBUF_SIZE); + + used_glyphs_copy[gid/8] &= ~(1 << (7 - (gid % 8))); + CMap_add_bfchar(cmap, wbuf, 2, wbuf+2, len); + } + } + } + + count += handle_subst_glyphs(cmap, cmap_add, used_glyphs_copy, post); + + if (count < 1) + stream = NULL; + else { + stream = CMap_create_stream(cmap, 0); + } + CMap_release(cmap); + + return stream; +} + +typedef struct { + short platform; + short encoding; +} cmap_plat_enc_rec; + +static cmap_plat_enc_rec cmap_plat_encs[] = { + { 3, 10 }, + { 0, 3 }, + { 0, 0 }, + { 3, 1 }, + { 0, 1 } +}; + +pdf_obj * +otf_create_ToUnicode_stream (const char *font_name, + int ttc_index, /* 0 for non-TTC */ + FT_Face face, + const char *used_glyphs) +{ + pdf_obj *cmap_ref = NULL; + long res_id; + pdf_obj *cmap_obj = NULL; + CMap *cmap_add; + int cmap_add_id; + tt_cmap *ttcmap; + char *cmap_name; + FILE *fp = NULL; + sfnt *sfont; + long offset = 0; + struct tt_post_table *ttpost = NULL; + int i; + + cmap_name = NEW(strlen(font_name)+strlen("-UTF16")+5, char); + sprintf(cmap_name, "%s,%03d-UTF16", font_name, ttc_index); + + res_id = pdf_findresource("CMap", cmap_name); + if (res_id >= 0) { + RELEASE(cmap_name); + cmap_ref = pdf_get_resource_reference(res_id); + return cmap_ref; + } + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("\n"); + MESG("otf_cmap>> Creating ToUnicode CMap for \"%s\"...\n", font_name); + } + +#ifdef XETEX + sfont = sfnt_open(face, -1); +#else + fp = DPXFOPEN(font_name, DPX_RES_TYPE_TTFONT); + if (!fp) { + fp = DPXFOPEN(font_name, DPX_RES_TYPE_OTFONT); + } + + if (!fp) { + RELEASE(cmap_name); + return NULL; + } + + sfont = sfnt_open(fp); +#endif + + if (!sfont) { + ERROR("Could not open TrueType font file \"%s\"", font_name); + } + + switch (sfont->type) { + case SFNT_TYPE_TTC: + offset = ttc_read_offset(sfont, ttc_index); + if (offset == 0) { + ERROR("Invalid TTC index"); + } + break; + default: + offset = 0; + break; + } + + if (sfnt_read_table_directory(sfont, offset) < 0) { + ERROR("Could not read TrueType table directory."); + } + + cmap_add_id = CMap_cache_find(cmap_name); + if (cmap_add_id < 0) { + cmap_add = NULL; + } else { + cmap_add = CMap_cache_get(cmap_add_id); + } + + ttpost = tt_read_post_table(sfont); + + CMap_set_silent(1); /* many warnings without this... */ + for (i = 0; i < sizeof(cmap_plat_encs) / sizeof(cmap_plat_enc_rec); ++i) { + ttcmap = tt_cmap_read(sfont, cmap_plat_encs[i].platform, cmap_plat_encs[i].encoding); + if (!ttcmap) + continue; + if (ttcmap->format == 4) { + cmap_obj = create_ToUnicode_cmap4(ttcmap->map, + cmap_name, cmap_add, used_glyphs, ttpost); + break; + } + if (ttcmap->format == 12) { + cmap_obj = create_ToUnicode_cmap12(ttcmap->map, + cmap_name, cmap_add, used_glyphs, ttpost); + break; + } + } + if (cmap_obj == NULL) + WARN("Unable to read TrueType Unicode cmap table."); + tt_cmap_release(ttcmap); + CMap_set_silent(0); + + if (ttpost != NULL) + tt_release_post_table(ttpost); + + if (cmap_obj) { + res_id = pdf_defineresource("CMap", cmap_name, + cmap_obj, PDF_RES_FLUSH_IMMEDIATE); + cmap_ref = pdf_get_resource_reference(res_id); + } else { + cmap_ref = NULL; + } + RELEASE(cmap_name); + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + return cmap_ref; +} + +/* Must be smaller than (WBUF_SIZE-2)/8 */ +#define MAX_UNICODES 16 + +struct gent +{ + USHORT gid; + long ucv; /* assigned PUA unicode */ + + int num_unicodes; + long unicodes[MAX_UNICODES]; +}; + +static void +create_cmaps (CMap *cmap, CMap *tounicode, + struct ht_table *unencoded, unsigned char *GIDToCIDMap) +{ + struct ht_iter iter; + + ASSERT(cmap && unencoded); + + if (ht_set_iter(unencoded, &iter) < 0) + return; + + CMap_set_silent(1); /* many warnings without this... */ + + do { + struct gent *glyph; + unsigned char *ucv; + int i, len; + unsigned char *p, *endptr; + CID cid; + + glyph = (struct gent *) ht_iter_getval(&iter); + ucv = (unsigned char *) ht_iter_getkey(&iter, &len); + + if (GIDToCIDMap) { + cid = ((GIDToCIDMap[2 * glyph->gid] << 8)|GIDToCIDMap[2 * glyph->gid + 1]); + if (cid == 0) + WARN("Glyph gid=%u does not have corresponding CID.", glyph->gid); + } else { + cid = glyph->gid; + } + + CMap_add_cidchar(cmap, ucv, 4, cid); + + if (tounicode) { + wbuf[0] = (cid >> 8) & 0xff; + wbuf[1] = cid & 0xff; + p = wbuf + 2; + endptr = wbuf + WBUF_SIZE; + len = 0; + for (i = 0; i < glyph->num_unicodes; i++) { + len += UC_sput_UTF16BE(glyph->unicodes[i], &p, endptr); + } + CMap_add_bfchar(tounicode, wbuf, 2, wbuf + 2, len); + } + } while (ht_iter_next(&iter) >= 0); + + CMap_set_silent(0); + + ht_clear_iter(&iter); +} + +static void +add_glyph (struct ht_table *unencoded, + USHORT gid, long ucv, int num_unicodes, long *unicodes) +{ + struct gent *glyph; + int i; + + ASSERT(unencoded); + + if (gid == 0 || num_unicodes < 1) { + return; + } + + wbuf[0] = (ucv >> 24) & 0xff; + wbuf[1] = (ucv >> 16) & 0xff; + wbuf[2] = (ucv >> 8) & 0xff; + wbuf[3] = ucv & 0xff; + + glyph = NEW(1, struct gent); + glyph->gid = gid; + glyph->num_unicodes = num_unicodes; + for (i = 0; + i < num_unicodes && i < MAX_UNICODES; i++) { + glyph->unicodes[i] = unicodes[i]; + } + + ht_append_table(unencoded, wbuf, 4, glyph); +} + +/* This seriously affects speed... */ +static struct gent * +find_glyph (struct ht_table *unencoded, long ucv) +{ + ASSERT(unencoded); + + wbuf[0] = (ucv >> 24) & 0xff; + wbuf[1] = (ucv >> 16) & 0xff; + wbuf[2] = (ucv >> 8) & 0xff; + wbuf[3] = ucv & 0xff; + + return (struct gent *) ht_lookup_table(unencoded, wbuf, 4); +} + +static void +handle_subst (pdf_obj *dst_obj, pdf_obj *src_obj, int flag, + otl_gsub *gsub_list, tt_cmap *ttcmap, + struct ht_table *unencoded) +{ + pdf_obj *tmp; + long i, j, src_size, dst_size; + long src, dst; + long src_start, src_end, dst_start, dst_end; + + src_size = pdf_array_length(src_obj); + dst_size = pdf_array_length(dst_obj); + + dst_start = dst_end = -1; dst = 0; + src_start = src_end = -1; src = 0; + for (i = 0, j = 0; + i < src_size && j < dst_size; i++) { + USHORT gid; + int rv; + struct gent *glyph; + + tmp = pdf_get_array(src_obj, i); + if (PDF_OBJ_ARRAYTYPE(tmp)) { + src_start = (long) pdf_number_value(pdf_get_array(tmp, 0)); + src_end = (long) pdf_number_value(pdf_get_array(tmp, 1)); + } else { + src_start = src_end = (long) pdf_number_value(tmp); + } + for (src = src_start; src <= src_end; src++) { + glyph = find_glyph(unencoded, src); + if (glyph) + gid = glyph->gid; + else { + gid = tt_cmap_lookup(ttcmap, src); + } + dst++; + if (dst > dst_end) { + tmp = pdf_get_array(dst_obj, j++); + if (PDF_OBJ_ARRAYTYPE(tmp)) { + dst_start = (long) pdf_number_value(pdf_get_array(tmp, 0)); + dst_end = (long) pdf_number_value(pdf_get_array(tmp, 1)); + } else { + dst_start = dst_end = (long) pdf_number_value(tmp); + } + dst = dst_start; + } + if (gid == 0) { + if (flag == 'r' || flag == 'p') { + if (src < 0x10000) { + WARN("Font does not have glyph for U+%04X.", src); + } else { + WARN("Font does not have glyph for U+%06X.", src); + } + } + if (flag == 'r') { + ERROR("Missing glyph found..."); + } + continue; + } + rv = otl_gsub_apply(gsub_list, &gid); + if (rv < 0) { + if (flag == 'p' || flag == 'r') { + if (src < 0x10000) { + WARN("No substituted glyph for U+%04X.", src); + } else { + WARN("No substituted glyph for U+%06X.", src); + } + } + if (flag == 'r') { + ERROR("Missing glyph found..."); + } + continue; + } + + if (glyph) { + glyph->gid = gid; + } else { + add_glyph(unencoded, gid, dst, 1, &src); + } + + if (verbose > VERBOSE_LEVEL_MIN) { + if (dst < 0x10000) { + MESG("otf_cmap>> Substituted glyph gid=%u assigned to U+%04X\n", + gid, dst); + } else { + MESG("otf_cmap>> Substituted glyph gid=%u assigned to U+%06X\n", + gid, dst); + } + } + + } + } + + if (dst < dst_end || src < src_end || + i < src_size || j < dst_size) { + WARN("Number of glyphs in left-side and right-side not equal..."); + WARN("Please check .otl file..."); + } +} + +static void +handle_assign (pdf_obj *dst, pdf_obj *src, int flag, + otl_gsub *gsub_list, tt_cmap *ttcmap, + struct ht_table *unencoded) +{ + long unicodes[MAX_UNICODES], ucv; + int i, n_unicodes, rv; + USHORT gid_in[MAX_UNICODES], lig; + + n_unicodes = pdf_array_length(src); /* FIXME */ + ucv = (long) pdf_number_value(pdf_get_array(dst, 0)); /* FIXME */ + if (!UC_is_valid(ucv)) { + if (flag == 'r' || flag == 'p') { + if (ucv < 0x10000) { + WARN("Invalid Unicode in: %04X", ucv); + } else { + WARN("Invalid Unicode in: %06X", ucv); + } + } + if (flag == 'r') { + ERROR("Invalid Unicode code specified.", ucv); + } + return; + } + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otf_cmap>> Ligature component:"); + } + + for (i = 0; i < n_unicodes; i++) { + unicodes[i] = + (long) pdf_number_value(pdf_get_array(src, i)); + gid_in[i] = tt_cmap_lookup(ttcmap, unicodes[i]); + + if (verbose > VERBOSE_LEVEL_MIN) { + if (unicodes[i] < 0x10000) { + MESG(" U+%04X (gid=%u)", unicodes[i], gid_in[i]); + } else { + MESG(" U+%06X (gid=%u)", unicodes[i], gid_in[i]); + } + } + + if (gid_in[i] == 0) { + if (flag == 'r' || flag == 'p') { + if (unicodes[i] < 0x10000) { + WARN("Unicode char U+%04X not exist in font...", unicodes[i]); + } else { + WARN("Unicode char U+%06X not exist in font...", unicodes[i]); + } + } + if (flag == 'r') { + ERROR("Missing glyph found..."); + } + return; + } + + } + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("\n"); + } + + rv = otl_gsub_apply_lig(gsub_list, + gid_in, n_unicodes, &lig); + if (rv < 0) { + if (flag == 'p') + WARN("No ligature found..."); + else if (flag == 'r') + ERROR("No ligature found..."); + return; + } + + add_glyph(unencoded, lig, ucv, n_unicodes, unicodes); + + if (verbose > VERBOSE_LEVEL_MIN) { + if (ucv < 0x10000) { + MESG("otf_cmap>> Ligature glyph gid=%u assigned to U+%04X\n", lig, ucv); + } else { + MESG("otf_cmap>> Ligature glyph gid=%u assigned to U+%06X\n", lig, ucv); + } + } + + return; +} + +static int +load_base_CMap (const char *cmap_name, int wmode, + CIDSysInfo *csi, unsigned char *GIDToCIDMap, + tt_cmap *ttcmap) +{ + int cmap_id; + + cmap_id = CMap_cache_find(cmap_name); + if (cmap_id < 0) { + CMap *cmap; + + cmap = CMap_new(); + CMap_set_name (cmap, cmap_name); + CMap_set_type (cmap, CMAP_TYPE_CODE_TO_CID); + CMap_set_wmode(cmap, wmode); + CMap_add_codespacerange(cmap, lrange_min, lrange_max, 4); + + if (csi) { /* CID */ + CMap_set_CIDSysInfo(cmap, csi); + } else { + CMap_set_CIDSysInfo(cmap, &CSI_IDENTITY); + } + + if (ttcmap->format == 12) { + load_cmap12(ttcmap->map, GIDToCIDMap, cmap); + } else if (ttcmap->format == 4) { + load_cmap4(ttcmap->map, GIDToCIDMap, cmap); + } + + cmap_id = CMap_cache_add(cmap); + } + + return cmap_id; +} + +static void +load_gsub (pdf_obj *conf, otl_gsub *gsub_list, sfnt *sfont) +{ + pdf_obj *rule; + char *script, *language, *feature; + long i, size; + + rule = otl_conf_get_rule(conf); + if (!rule) + return; + + script = otl_conf_get_script (conf); + language = otl_conf_get_language(conf); + + size = pdf_array_length(rule); + for (i = 0; i < size; i += 2) { + pdf_obj *tmp, *commands; + int flag; + long j, num_comms; + + tmp = pdf_get_array(rule, i); + flag = (int) pdf_number_value(tmp); + + commands = pdf_get_array(rule, i+1); + num_comms = pdf_array_length(commands); + + /* (assign|substitute) tag dst src */ + for (j = 0 ; j < num_comms; j += 4) { + tmp = pdf_get_array(commands, 1); + if (PDF_OBJ_STRINGTYPE(tmp)) { + feature = pdf_string_value(tmp); + if (otl_gsub_add_feat(gsub_list, + script, language, feature, sfont) < 0) { + if (flag == 'p') + WARN("No OTL feature matches \"%s.%s.%s\" found.", + script, language, feature); + else if (flag == 'r') + ERROR("No OTL feature matches \"%s.%s.%s\" found.", + script, language, feature); + } + } + + } + } + +} + +static void +handle_gsub (pdf_obj *conf, + tt_cmap *ttcmap, otl_gsub *gsub_list, + struct ht_table *unencoded) +{ + pdf_obj *rule; + char *script, *language, *feature; + long i, size; + + if (!conf) + return; + + rule = otl_conf_get_rule(conf); + if (!rule) { + return; + } + + if (!PDF_OBJ_ARRAYTYPE(rule)) { + WARN("Not arraytype?"); + return; + } + script = otl_conf_get_script (conf); + language = otl_conf_get_language(conf); + + size = pdf_array_length(rule); + for (i = 0; i < size; i += 2) { + pdf_obj *tmp, *commands; + long j, num_comms; + int flag; + + tmp = pdf_get_array(rule, i); + flag = (int) pdf_number_value(tmp); + + commands = pdf_get_array (rule, i+1); + num_comms = pdf_array_length(commands); + + for (j = 0; j < num_comms; j += 4) { + pdf_obj *operator; + pdf_obj *src, *dst, *feat; + int rv; + + /* (assing|substitute) tag dst src */ + operator = pdf_get_array(commands, j); + + feat = pdf_get_array(commands, j+1); + if (PDF_OBJ_STRINGTYPE(feat)) + feature = pdf_string_value(feat); + else + feature = NULL; + + dst = pdf_get_array(commands, j+2); + src = pdf_get_array(commands, j+3); + + rv = otl_gsub_select(gsub_list, script, language, feature); + if (rv < 0) { + if (flag == 'p') { + WARN("No GSUB featre %s.%s.%s loaded...", + script, language, feature); + } else if (flag == 'r') { + ERROR("No GSUB featre %s.%s.%s loaded...", + script, language, feature); + } + } else { + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otf_cmap>> %s:\n", pdf_name_value(operator)); + } + + if (!strcmp(pdf_name_value(operator), "assign")) { + handle_assign(dst, src, flag, + gsub_list, ttcmap, unencoded); + } else if (!strcmp(pdf_name_value(operator), "substitute")) { + handle_subst(dst, src, flag, + gsub_list, ttcmap, unencoded); + } + } + + } + + } + +} + +static void CDECL +hval_free (void *hval) +{ + RELEASE(hval); +} + +int +otf_load_Unicode_CMap (const char *map_name, int ttc_index, /* 0 for non-TTC font */ + const char *otl_tags, int wmode) +{ + int cmap_id = -1; + int tounicode_id = -1, is_cidfont = 0; + sfnt *sfont; + long offset = 0; + char *base_name = NULL, *cmap_name = NULL; + char *tounicode_name = NULL; + FILE *fp = NULL; + otl_gsub *gsub_list = NULL; + tt_cmap *ttcmap; + CMap *cmap, *base, *tounicode = NULL; + CIDSysInfo csi = {NULL, NULL, 0}; + unsigned char *GIDToCIDMap = NULL; + + if (!map_name) + return -1; + + if (ttc_index > 999 || ttc_index < 0) { + return -1; /* Sorry for this... */ + } + +fprintf(stderr, "otf_load_Unicode_CMap(%s, %d)\n", map_name, ttc_index); +#ifdef XETEX + sfont = NULL; /* FIXME */ +#else + fp = DPXFOPEN(map_name, DPX_RES_TYPE_TTFONT); + if (!fp) { + fp = DPXFOPEN(map_name, DPX_RES_TYPE_OTFONT); + } + if (!fp) + return -1; + + sfont = sfnt_open(fp, -1); +#endif + if (!sfont) { + ERROR("Could not open TrueType font file \"%s\"", map_name); + } + switch (sfont->type) { + case SFNT_TYPE_TTC: + offset = ttc_read_offset(sfont, ttc_index); + if (offset == 0) { + ERROR("Invalid TTC index"); + } + break; + case SFNT_TYPE_TRUETYPE: + case SFNT_TYPE_POSTSCRIPT: + offset = 0; + break; + default: + ERROR("Not a TrueType/TTC font?: %s", map_name); + break; + } + + if (sfnt_read_table_directory(sfont, offset) < 0) + ERROR("Could not read TrueType table directory."); + + base_name = NEW(strlen(map_name)+strlen("-UCS4-H")+5, char); + if (wmode) + sprintf(base_name, "%s,%03d-UCS4-V", map_name, ttc_index); + else { + sprintf(base_name, "%s,%03d-UCS4-H", map_name, ttc_index); + } + + if (otl_tags) { + cmap_name = NEW(strlen(map_name)+strlen(otl_tags)+strlen("-UCS4-H")+6, char); + if (wmode) + sprintf(cmap_name, "%s,%03d,%s-UCS4-V", map_name, ttc_index, otl_tags); + else + sprintf(cmap_name, "%s,%03d,%s-UCS4-H", map_name, ttc_index, otl_tags); + } else { + cmap_name = NEW(strlen(base_name)+1, char); + strcpy(cmap_name, base_name); + } + + if (sfont->type == SFNT_TYPE_POSTSCRIPT) { + is_cidfont = handle_CIDFont(sfont, &GIDToCIDMap, &csi); + } else { + is_cidfont = 0; + } + + if (is_cidfont) { + tounicode_name = NULL; + } else { + tounicode_name = NEW(strlen(map_name)+strlen("-UTF16")+5, char); + sprintf(tounicode_name, "%s,%03d-UTF16", map_name, ttc_index); + } + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("\n"); + MESG("otf_cmap>> Unicode charmap for font=\"%s\" layout=\"%s\"\n", + map_name, (otl_tags ? otl_tags : "none")); + } + + cmap_id = CMap_cache_find(cmap_name); + if (cmap_id >= 0) { + RELEASE(cmap_name); + RELEASE(base_name); + if (GIDToCIDMap) + RELEASE(GIDToCIDMap); + if (tounicode_name) + RELEASE(tounicode_name); + + sfnt_close(sfont); + DPXFCLOSE(fp); + + if (verbose > VERBOSE_LEVEL_MIN) + MESG("otf_cmap>> Found at cmap_id=%d.\n", cmap_id); + + return cmap_id; + } + + ttcmap = tt_cmap_read(sfont, 3, 10); + if (!ttcmap) { + ttcmap = tt_cmap_read(sfont, 3, 1); + } + if (!ttcmap) { + ERROR("Unable to read TrueType Unicode cmap table."); + } + cmap_id = load_base_CMap(base_name, wmode, + (is_cidfont ? &csi : NULL), + GIDToCIDMap, ttcmap); + if (cmap_id < 0) + ERROR("Failed to read TrueType cmap table."); + + if (!otl_tags) { + RELEASE(cmap_name); + RELEASE(base_name); + if (GIDToCIDMap) + RELEASE(GIDToCIDMap); + if (tounicode_name) + RELEASE(tounicode_name); + if (is_cidfont) { + if (csi.registry) + RELEASE(csi.registry); + if (csi.ordering) + RELEASE(csi.ordering); + } + tt_cmap_release(ttcmap); + sfnt_close(sfont); + DPXFCLOSE(fp); + + return cmap_id; + } + + base = CMap_cache_get(cmap_id); + + cmap = CMap_new(); + CMap_set_name (cmap, cmap_name); + CMap_set_type (cmap, CMAP_TYPE_CODE_TO_CID); + CMap_set_wmode(cmap, wmode); + /* CMap_add_codespacerange(cmap, lrange_min, lrange_max, 4); */ + CMap_set_usecmap(cmap, base); + CMap_add_cidchar(cmap, lrange_max, 4, 0); /* FIXME */ + + if (is_cidfont) { + CMap_set_CIDSysInfo(cmap, &csi); + if (csi.registry) + RELEASE(csi.registry); + if (csi.ordering) + RELEASE(csi.ordering); + } else { + CMap_set_CIDSysInfo(cmap, &CSI_IDENTITY); + } + + gsub_list = otl_gsub_new(); + + { + struct ht_table unencoded; + char *conf_name, *opt_tag; + pdf_obj *conf, *opt_conf; + + conf_name = NEW(strlen(otl_tags)+1, char); + memset (conf_name, 0, strlen(otl_tags)+1); + opt_tag = strchr(otl_tags, ':'); + if (opt_tag) { + opt_tag++; + strncpy(conf_name, otl_tags, + strlen(otl_tags) - strlen(opt_tag) - 1); + } else { + strcpy(conf_name, otl_tags); + } + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otf_cmap>> Read layout config. \"%s\"\n", conf_name); + } + + conf = otl_find_conf(conf_name); + if (!conf) + ERROR("Layout file \"%s\" not found...", conf_name); + + load_gsub(conf, gsub_list, sfont); + if (opt_tag) { + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otf_cmap>> Layout option \"%s\" enabled\n", opt_tag); + } + opt_conf = otl_conf_find_opt(conf, opt_tag); + if (!opt_conf) + ERROR("There are no option \"%s\" in \"%s\".", + opt_tag, conf_name); + load_gsub(opt_conf, gsub_list, sfont); + } + + ht_init_table(&unencoded); + + handle_gsub(conf, ttcmap, gsub_list, &unencoded); + if (opt_tag) { + opt_conf = otl_conf_find_opt(conf, opt_tag); + if (!opt_conf) + ERROR("There are no option \"%s\" in \"%s\".", + opt_tag, conf_name); + handle_gsub(opt_conf, ttcmap, gsub_list, &unencoded); + } + if (is_cidfont) { + tounicode_id = -1; + tounicode = NULL; + } else { + tounicode_id = CMap_cache_find(tounicode_name); + if (tounicode_id >= 0) + tounicode = CMap_cache_get(tounicode_id); + else { + tounicode = CMap_new(); + CMap_set_name (tounicode, tounicode_name); + CMap_set_type (tounicode, CMAP_TYPE_TO_UNICODE); + CMap_set_wmode(tounicode, 0); + CMap_add_codespacerange(tounicode, srange_min, srange_max, 2); + CMap_set_CIDSysInfo(tounicode, &CSI_UNICODE); + /* FIXME */ + CMap_add_bfchar(tounicode, srange_min, 2, srange_max, 2); + } + } + create_cmaps(cmap, tounicode, &unencoded, GIDToCIDMap); + + ht_clear_table(&unencoded, hval_free); + RELEASE(conf_name); + } + + cmap_id = CMap_cache_add(cmap); + if (!is_cidfont && tounicode_id < 0) /* New */ + CMap_cache_add(tounicode); + + tt_cmap_release(ttcmap); + if (gsub_list) + otl_gsub_release(gsub_list); + + if (verbose > VERBOSE_LEVEL_MIN) { + MESG("otf_cmap>> Overwrite CMap \"%s\" by \"%s\" with usecmap\n", + base_name, cmap_name); + } + + if (GIDToCIDMap) + RELEASE(GIDToCIDMap); + if (base_name) + RELEASE(base_name); + if (cmap_name) + RELEASE(cmap_name); + if (tounicode_name) + RELEASE(tounicode_name); + + sfnt_close(sfont); + DPXFCLOSE(fp); + + return cmap_id; +} diff --git a/Build/source/texk/xdvipdfmx/src/tt_cmap.h b/Build/source/texk/xdvipdfmx/src/tt_cmap.h new file mode 100644 index 00000000000..455ad4836ad --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_cmap.h @@ -0,0 +1,80 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_cmap.h,v 1.12 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TT_CMAP_H_ +#define _TT_CMAP_H_ + +#include "sfnt.h" + +extern void otf_cmap_set_verbose (void); + +/* TrueType cmap table */ +typedef struct +{ + USHORT format; + USHORT platform; + USHORT encoding; + ULONG language; /* or version, only for Mac */ + void *map; +} tt_cmap; + +/* Paltform ID */ +#define TT_MAC 1u +#define TT_WIN 3u + +/* Platform-specific encoding ID */ + +/* Windows */ +#define TT_WIN_SYMBOL 0u +#define TT_WIN_UNICODE 1u +#define TT_WIN_SJIS 2u +#define TT_WIN_RPC 3u +#define TT_WIN_BIG5 4u +#define TT_WIN_WANSUNG 5u +#define TT_WIN_JOHAB 6u +#define TT_WIN_UCS4 10u + +/* Mac */ +#define TT_MAC_ROMAN 0u +#define TT_MAC_JAPANESE 1u +#define TT_MAC_TRADITIONAL_CHINESE 2u +#define TT_MAC_KOREAN 3u +#define TT_MAC_SIMPLIFIED_CHINESE 25u + +extern tt_cmap *tt_cmap_read (sfnt *sfont, USHORT platform, USHORT encoding); + +extern USHORT tt_cmap_lookup (tt_cmap *cmap, long cc); +extern void tt_cmap_release (tt_cmap *cmap); + +#include "pdfobj.h" + +/* Indirect reference */ +extern pdf_obj *otf_create_ToUnicode_stream (const char *map_name, + int ttc_index, + FT_Face face, + const char *used_glyphs); +/* CMap ID */ +extern int otf_load_Unicode_CMap (const char *map_name, + int ttc_index, + const char *otl_opts, int wmode); + +#endif /* _TT_CMAP_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/tt_glyf.c b/Build/source/texk/xdvipdfmx/src/tt_glyf.c new file mode 100644 index 00000000000..3e3e5571281 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_glyf.c @@ -0,0 +1,670 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_glyf.c,v 1.2 2005/06/09 14:31:11 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * Subsetting glyf, updating loca, hmtx, ... + * + */ + +#include "config.h" + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "sfnt.h" +#include "tt_table.h" +#include "tt_glyf.h" + +#define NUM_GLYPH_LIMIT 65534 +#define TABLE_DATA_ALLOC_SIZE 40960 +#define GLYPH_ARRAY_ALLOC_SIZE 256 + +static USHORT +find_empty_slot (struct tt_glyphs *g) +{ + USHORT gid; + + ASSERT(g); + + for (gid = 0; gid < NUM_GLYPH_LIMIT; gid++) { + if (!(g->used_slot[gid/8] & (1 << (7 - (gid % 8))))) + break; + } + if (gid == NUM_GLYPH_LIMIT) + ERROR("No empty glyph slot available."); + + return gid; +} + +USHORT +tt_find_glyph (struct tt_glyphs *g, USHORT gid) +{ + USHORT idx, new_gid = 0; + + ASSERT(g); + + for (idx = 0; idx < g->num_glyphs; idx++) { + if (gid == g->gd[idx].ogid) { + new_gid = g->gd[idx].gid; + break; + } + } + + return new_gid; +} + +USHORT +tt_get_index (struct tt_glyphs *g, USHORT gid) +{ + USHORT idx; + + ASSERT(g); + + for (idx = 0; idx < g->num_glyphs; idx++) { + if (gid == g->gd[idx].gid) + break; + } + if (idx == g->num_glyphs) + idx = 0; + + return idx; +} + +USHORT +tt_add_glyph (struct tt_glyphs *g, USHORT gid, USHORT new_gid) +{ + ASSERT(g); + + if (g->used_slot[new_gid/8] & (1 << (7 - (new_gid % 8)))) { + WARN("Slot %u already used.", new_gid); + } else { + if (g->num_glyphs+1 >= NUM_GLYPH_LIMIT) + ERROR("Too many glyphs."); + + if (g->num_glyphs >= g->max_glyphs) { + g->max_glyphs += GLYPH_ARRAY_ALLOC_SIZE; + g->gd = RENEW(g->gd, g->max_glyphs, struct tt_glyph_desc); + } + g->gd[g->num_glyphs].gid = new_gid; + g->gd[g->num_glyphs].ogid = gid; + g->gd[g->num_glyphs].length = 0; + g->gd[g->num_glyphs].data = NULL; + g->used_slot[new_gid/8] |= (1 << (7 - (new_gid % 8))); + g->num_glyphs += 1; + } + + if (new_gid > g->last_gid) { + g->last_gid = new_gid; + } + + return new_gid; +} + +/* + * Initialization + */ +struct tt_glyphs * +tt_build_init (void) +{ + struct tt_glyphs *g; + + g = NEW(1, struct tt_glyphs); + + g->num_glyphs = 0; + g->max_glyphs = 0; + g->last_gid = 0; + g->emsize = 1; + g->default_advh = 0; + g->default_tsb = 0; + g->gd = NULL; + g->used_slot = NEW(8192, unsigned char); + memset(g->used_slot, 0, 8192); + tt_add_glyph(g, 0, 0); + + return g; +} + +void +tt_build_finish (struct tt_glyphs *g) +{ + if (g) { + if (g->gd) { + USHORT idx; + for (idx = 0; idx < g->num_glyphs; idx++) { + if (g->gd[idx].data) + RELEASE(g->gd[idx].data); + } + RELEASE(g->gd); + } + if (g->used_slot) + RELEASE(g->used_slot); + RELEASE(g); + } +} + +static int CDECL +glyf_cmp (const void *v1, const void *v2) +{ + int cmp = 0; + struct tt_glyph_desc *sv1, *sv2; + + sv1 = (struct tt_glyph_desc *) v1; + sv2 = (struct tt_glyph_desc *) v2; + + if (sv1->gid == sv2->gid) + cmp = 0; + else if (sv1->gid < sv2->gid) + cmp = -1; + else + cmp = 1; + + return cmp; +} + +/* + * TrueType outline data. + */ +#define ARG_1_AND_2_ARE_WORDS (1 << 0) +#define ARGS_ARE_XY_VALUES (1 << 1) +#define ROUND_XY_TO_GRID (1 << 2) +#define WE_HAVE_A_SCALE (1 << 3) +#define RESERVED (1 << 4) +#define MORE_COMPONENT (1 << 5) +#define WE_HAVE_AN_X_AND_Y_SCALE (1 << 6) +#define WE_HAVE_A_TWO_BY_TWO (1 << 7) +#define WE_HAVE_INSTRUCTIONS (1 << 8) +#define USE_MY_METRICS (1 << 9) + +int +tt_build_tables (sfnt *sfont, struct tt_glyphs *g) +{ + char *hmtx_table_data = NULL, *loca_table_data = NULL; + char *glyf_table_data = NULL; + ULONG hmtx_table_size, loca_table_size, glyf_table_size; + /* some information available from other TrueType table */ + struct tt_head_table *head = NULL; + struct tt_hhea_table *hhea = NULL; + struct tt_maxp_table *maxp = NULL; + struct tt_longMetrics *hmtx, *vmtx = NULL; + struct tt_os2__table *os2; + /* temp */ + ULONG *location, offset; + long i; + USHORT *w_stat; /* Estimate most frequently appeared width */ + + ASSERT(g); + + if (sfont == NULL || +#ifdef XETEX + sfont->ft_face == NULL +#else + sfont->stream == NULL +#endif + ) + ERROR("File not opened."); + + if (sfont->type != SFNT_TYPE_TRUETYPE && + sfont->type != SFNT_TYPE_TTC) + ERROR("Invalid font type"); + + if (g->num_glyphs > NUM_GLYPH_LIMIT) + ERROR("Too many glyphs."); + + /* + * Read head, hhea, maxp, loca: + * + * unitsPerEm --> head + * numHMetrics --> hhea + * indexToLocFormat --> head + * numGlyphs --> maxp + */ + head = tt_read_head_table(sfont); + hhea = tt_read_hhea_table(sfont); + maxp = tt_read_maxp_table(sfont); + + if (hhea->metricDataFormat != 0) + ERROR("Unknown metricDataFormat."); + + g->emsize = head->unitsPerEm; + + sfnt_locate_table(sfont, "hmtx"); + hmtx = tt_read_longMetrics(sfont, maxp->numGlyphs, hhea->numberOfHMetrics); + + os2 = tt_read_os2__table(sfont); + if (os2) { + g->default_advh = os2->sTypoAscender - os2->sTypoDescender; + g->default_tsb = g->default_advh - os2->sTypoAscender; + } + + if (sfnt_find_table_pos(sfont, "vmtx") > 0) { + struct tt_vhea_table *vhea; + vhea = tt_read_vhea_table(sfont); + sfnt_locate_table(sfont, "vmtx"); + vmtx = tt_read_longMetrics(sfont, maxp->numGlyphs, vhea->numOfLongVerMetrics); + RELEASE(vhea); + } else { + vmtx = NULL; + } + + sfnt_locate_table(sfont, "loca"); + location = NEW(maxp->numGlyphs + 1, ULONG); + if (head->indexToLocFormat == 0) { + for (i = 0; i <= maxp->numGlyphs; i++) + location[i] = 2*((ULONG) sfnt_get_ushort(sfont)); + } else if (head->indexToLocFormat == 1) { + for (i = 0; i <= maxp->numGlyphs; i++) + location[i] = sfnt_get_ulong(sfont); + } else { + ERROR("Unknown IndexToLocFormat."); + } + + w_stat = NEW(g->emsize+2, USHORT); + memset(w_stat, 0, sizeof(USHORT)*(g->emsize+2)); + /* + * Read glyf table. + */ + offset = sfnt_locate_table(sfont, "glyf"); + /* + * The num_glyphs may grow when composite glyph is found. + * A component of glyph refered by a composite glyph is appended + * to used_glyphs if it is not already registered in used_glyphs. + * Glyph programs of composite glyphs are modified so that it + * correctly refer to new gid of their components. + */ + for (i = 0; i < NUM_GLYPH_LIMIT; i++) { + USHORT gid; /* old gid */ + ULONG loc, len; + BYTE *p, *endptr; + SHORT number_of_contours; + + if (i >= g->num_glyphs) /* finished */ + break; + + gid = g->gd[i].ogid; + if (gid >= maxp->numGlyphs) + ERROR("Invalid glyph index (gid %u)", gid); + + loc = location[gid]; + len = location[gid+1] - loc; + g->gd[i].advw = hmtx[gid].advance; + g->gd[i].lsb = hmtx[gid].sideBearing; + if (vmtx) { + g->gd[i].advh = vmtx[gid].advance; + g->gd[i].tsb = vmtx[gid].sideBearing; + } else { + g->gd[i].advh = g->default_advh; + g->gd[i].tsb = g->default_tsb; + } + g->gd[i].length = len; + g->gd[i].data = NULL; + if (g->gd[i].advw <= g->emsize) { + w_stat[g->gd[i].advw] += 1; + } else { + w_stat[g->emsize+1] += 1; /* larger than em */ + } + + if (len == 0) { /* Does not contains any data. */ + continue; + } else if (len < 10) { + ERROR("Invalid TrueType glyph data (gid %u).", gid); + } + + g->gd[i].data = p = NEW(len, BYTE); + endptr = p + len; + + sfnt_seek_set(sfont, offset+loc); + number_of_contours = sfnt_get_short(sfont); + p += sfnt_put_short(p, number_of_contours); + + /* BoundingBox: FWord x 4 */ + g->gd[i].llx = sfnt_get_short(sfont); + g->gd[i].lly = sfnt_get_short(sfont); + g->gd[i].urx = sfnt_get_short(sfont); + g->gd[i].ury = sfnt_get_short(sfont); + /* _FIXME_ */ +#if 1 + if (!vmtx) /* vertOriginY == sTypeAscender */ + g->gd[i].tsb = g->default_advh - g->default_tsb - g->gd[i].ury; +#endif + p += sfnt_put_short(p, g->gd[i].llx); + p += sfnt_put_short(p, g->gd[i].lly); + p += sfnt_put_short(p, g->gd[i].urx); + p += sfnt_put_short(p, g->gd[i].ury); + + /* Read evrything else. */ + sfnt_read(p, len - 10, sfont); + /* + * Fix GIDs of composite glyphs. + */ + if (number_of_contours < 0) { + USHORT flags, cgid, new_gid; /* flag, gid of a component */ + do { + if (p >= endptr) + ERROR("Invalid TrueType glyph data (gid %u): %u bytes", gid, len); + /* + * Flags and gid of component glyph are both USHORT. + */ + flags = ((*p) << 8)| *(p+1); + p += 2; + cgid = ((*p) << 8)| *(p+1); + if (cgid >= maxp->numGlyphs) { + ERROR("Invalid gid (%u > %u) in composite glyph %u.", cgid, maxp->numGlyphs, gid); + } + new_gid = tt_find_glyph(g, cgid); + if (new_gid == 0) { + new_gid = tt_add_glyph(g, cgid, find_empty_slot(g)); + } + p += sfnt_put_ushort(p, new_gid); + /* + * Just skip remaining part. + */ + p += (flags & ARG_1_AND_2_ARE_WORDS) ? 4 : 2; + if (flags & WE_HAVE_A_SCALE) /* F2Dot14 */ + p += 2; + else if (flags & WE_HAVE_AN_X_AND_Y_SCALE) /* F2Dot14 x 2 */ + p += 4; + else if (flags & WE_HAVE_A_TWO_BY_TWO) /* F2Dot14 x 4 */ + p += 8; + } while (flags & MORE_COMPONENT); + /* + * TrueType instructions comes here: + * length_of_instruction (ushort) + * instruction (byte * length_of_instruction) + */ + } + } + RELEASE(location); + RELEASE(hmtx); + if (vmtx) + RELEASE(vmtx); + + { + int max_count = -1; + + g->dw = g->gd[0].advw; + for (i = 0; i < g->emsize + 1; i++) { + if (w_stat[i] > max_count) { + max_count = w_stat[i]; + g->dw = i; + } + } + } + RELEASE(w_stat); + + qsort(g->gd, g->num_glyphs, sizeof(struct tt_glyph_desc), glyf_cmp); + { + USHORT prev, last_advw; + char *p, *q; + int padlen, num_hm_known; + + glyf_table_size = 0UL; + num_hm_known = 0; + last_advw = g->gd[g->num_glyphs - 1].advw; + for (i = g->num_glyphs - 1; i >= 0; i--) { + padlen = (g->gd[i].length % 4) ? (4 - (g->gd[i].length % 4)) : 0; + glyf_table_size += g->gd[i].length + padlen; + if (!num_hm_known && last_advw != g->gd[i].advw) { + hhea->numberOfHMetrics = g->gd[i].gid + 2; + num_hm_known = 1; + } + } + /* All advance widths are same. */ + if (!num_hm_known) { + hhea->numberOfHMetrics = 1; + } + hmtx_table_size = hhea->numberOfHMetrics * 2 + (g->last_gid + 1) * 2; + + /* + * Choosing short format does not always give good result + * when compressed. Sometimes increases size. + */ + if (glyf_table_size < 0x20000UL) { + head->indexToLocFormat = 0; + loca_table_size = (g->last_gid + 2)*2; + } else { + head->indexToLocFormat = 1; + loca_table_size = (g->last_gid + 2)*4; + } + + hmtx_table_data = p = NEW(hmtx_table_size, char); + loca_table_data = q = NEW(loca_table_size, char); + glyf_table_data = NEW(glyf_table_size, char); + + offset = 0UL; prev = 0; + for (i = 0; i < g->num_glyphs; i++) { + long gap, j; + gap = (long) g->gd[i].gid - prev - 1; + for (j = 1; j <= gap; j++) { + if (prev + j == hhea->numberOfHMetrics - 1) { + p += sfnt_put_ushort(p, last_advw); + } else if (prev + j < hhea->numberOfHMetrics) { + p += sfnt_put_ushort(p, 0); + } + p += sfnt_put_short (p, 0); + if (head->indexToLocFormat == 0) { + q += sfnt_put_ushort(q, (USHORT) (offset/2)); + } else { + q += sfnt_put_ulong(q, offset); + } + } + padlen = (g->gd[i].length % 4) ? (4 - (g->gd[i].length % 4)) : 0; + if (g->gd[i].gid < hhea->numberOfHMetrics) { + p += sfnt_put_ushort(p, g->gd[i].advw); + } + p += sfnt_put_short (p, g->gd[i].lsb); + if (head->indexToLocFormat == 0) { + q += sfnt_put_ushort(q, (USHORT) (offset/2)); + } else { + q += sfnt_put_ulong(q, offset); + } + memset(glyf_table_data + offset, 0, g->gd[i].length + padlen); + memcpy(glyf_table_data + offset, g->gd[i].data, g->gd[i].length); + offset += g->gd[i].length + padlen; + prev = g->gd[i].gid; + /* free data here since it consume much memory */ + RELEASE(g->gd[i].data); + g->gd[i].length = 0; g->gd[i].data = NULL; + } + if (head->indexToLocFormat == 0) { + q += sfnt_put_ushort(q, (USHORT) (offset/2)); + } else { + q += sfnt_put_ulong(q, offset); + } + + sfnt_set_table(sfont, "hmtx", (char *) hmtx_table_data, hmtx_table_size); + sfnt_set_table(sfont, "loca", (char *) loca_table_data, loca_table_size); + sfnt_set_table(sfont, "glyf", (char *) glyf_table_data, glyf_table_size); + } + + head->checkSumAdjustment = 0; + maxp->numGlyphs = g->last_gid + 1; + + /* TODO */ + sfnt_set_table(sfont, "maxp", tt_pack_maxp_table(maxp), TT_MAXP_TABLE_SIZE); + sfnt_set_table(sfont, "hhea", tt_pack_hhea_table(hhea), TT_HHEA_TABLE_SIZE); + sfnt_set_table(sfont, "head", tt_pack_head_table(head), TT_HEAD_TABLE_SIZE); + RELEASE(maxp); + RELEASE(hhea); + RELEASE(head); + if (os2) + RELEASE(os2); + + return 0; +} + +int +tt_get_metrics (sfnt *sfont, struct tt_glyphs *g) +{ + struct tt_head_table *head = NULL; + struct tt_hhea_table *hhea = NULL; + struct tt_maxp_table *maxp = NULL; + struct tt_longMetrics *hmtx, *vmtx = NULL; + struct tt_os2__table *os2; + /* temp */ + ULONG *location, offset; + long i; + USHORT *w_stat; + + ASSERT(g); + + if (sfont == NULL || +#ifdef XETEX + sfont->ft_face == NULL +#else + sfont->stream == NULL +#endif + ) + ERROR("File not opened."); + + if (sfont->type != SFNT_TYPE_TRUETYPE && + sfont->type != SFNT_TYPE_TTC) + ERROR("Invalid font type"); + + /* + * Read head, hhea, maxp, loca: + * + * unitsPerEm --> head + * numHMetrics --> hhea + * indexToLocFormat --> head + * numGlyphs --> maxp + */ + head = tt_read_head_table(sfont); + hhea = tt_read_hhea_table(sfont); + maxp = tt_read_maxp_table(sfont); + + if (hhea->metricDataFormat != 0) + ERROR("Unknown metricDataFormat."); + + g->emsize = head->unitsPerEm; + + sfnt_locate_table(sfont, "hmtx"); + hmtx = tt_read_longMetrics(sfont, maxp->numGlyphs, hhea->numberOfHMetrics); + + os2 = tt_read_os2__table(sfont); + g->default_advh = os2->sTypoAscender - os2->sTypoDescender; + g->default_tsb = g->default_advh - os2->sTypoAscender; + + if (sfnt_find_table_pos(sfont, "vmtx") > 0) { + struct tt_vhea_table *vhea; + vhea = tt_read_vhea_table(sfont); + sfnt_locate_table(sfont, "vmtx"); + vmtx = tt_read_longMetrics(sfont, maxp->numGlyphs, vhea->numOfLongVerMetrics); + RELEASE(vhea); + } else { + vmtx = NULL; + } + + sfnt_locate_table(sfont, "loca"); + location = NEW(maxp->numGlyphs + 1, ULONG); + if (head->indexToLocFormat == 0) { + for (i = 0; i <= maxp->numGlyphs; i++) + location[i] = 2*((ULONG) sfnt_get_ushort(sfont)); + } else if (head->indexToLocFormat == 1) { + for (i = 0; i <= maxp->numGlyphs; i++) + location[i] = sfnt_get_ulong(sfont); + } else { + ERROR("Unknown IndexToLocFormat."); + } + + w_stat = NEW(g->emsize+2, USHORT); + memset(w_stat, 0, sizeof(USHORT)*(g->emsize+2)); + /* + * Read glyf table. + */ + offset = sfnt_locate_table(sfont, "glyf"); + for (i = 0; i < g->num_glyphs; i++) { + USHORT gid; /* old gid */ + ULONG loc, len; + SHORT number_of_contours; + + gid = g->gd[i].ogid; + if (gid >= maxp->numGlyphs) + ERROR("Invalid glyph index (gid %u)", gid); + + loc = location[gid]; + len = location[gid+1] - loc; + g->gd[i].advw = hmtx[gid].advance; + g->gd[i].lsb = hmtx[gid].sideBearing; + if (vmtx) { + g->gd[i].advh = vmtx[gid].advance; + g->gd[i].tsb = vmtx[gid].sideBearing; + } else { + g->gd[i].advh = g->default_advh; + g->gd[i].tsb = g->default_tsb; + } + g->gd[i].length = len; + g->gd[i].data = NULL; + + if (g->gd[i].advw <= g->emsize) { + w_stat[g->gd[i].advw] += 1; + } else { + w_stat[g->emsize+1] += 1; /* larger than em */ + } + + if (len == 0) { /* Does not contains any data. */ + continue; + } else if (len < 10) { + ERROR("Invalid TrueType glyph data (gid %u).", gid); + } + + sfnt_seek_set(sfont, offset+loc); + number_of_contours = sfnt_get_short(sfont); + + /* BoundingBox: FWord x 4 */ + g->gd[i].llx = sfnt_get_short(sfont); + g->gd[i].lly = sfnt_get_short(sfont); + g->gd[i].urx = sfnt_get_short(sfont); + g->gd[i].ury = sfnt_get_short(sfont); + /* _FIXME_ */ +#if 1 + if (!vmtx) /* vertOriginY == sTypeAscender */ + g->gd[i].tsb = g->default_advh - g->default_tsb - g->gd[i].ury; +#endif + } + RELEASE(location); + RELEASE(hmtx); + RELEASE(maxp); + RELEASE(hhea); + RELEASE(head); + RELEASE(os2); + + if (vmtx) + RELEASE(vmtx); + + { + int max_count = -1; + + g->dw = g->gd[0].advw; + for (i = 0; i < g->emsize + 1; i++) { + if (w_stat[i] > max_count) { + max_count = w_stat[i]; + g->dw = i; + } + } + } + RELEASE(w_stat); + + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/tt_glyf.h b/Build/source/texk/xdvipdfmx/src/tt_glyf.h new file mode 100644 index 00000000000..41e2aa23c75 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_glyf.h @@ -0,0 +1,60 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_glyf.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TT_GLYF_H_ +#define _TT_GLYF_H_ + +struct tt_glyph_desc +{ + USHORT gid; + USHORT ogid; /* GID in original font */ + USHORT advw, advh; + SHORT lsb, tsb; + SHORT llx, lly, urx, ury; + ULONG length; + BYTE *data; +}; + +struct tt_glyphs +{ + USHORT num_glyphs; + USHORT max_glyphs; + USHORT last_gid; + USHORT emsize; + USHORT dw; /* optimal value for DW */ + USHORT default_advh; /* default value */ + SHORT default_tsb; /* default value */ + struct tt_glyph_desc *gd; + unsigned char *used_slot; +}; + +extern struct tt_glyphs *tt_build_init (void); +extern void tt_build_finish (struct tt_glyphs *g); + +extern USHORT tt_add_glyph (struct tt_glyphs *g, USHORT gid, USHORT new_gid); +extern USHORT tt_get_index (struct tt_glyphs *g, USHORT gid); +extern USHORT tt_find_glyph (struct tt_glyphs *g, USHORT gid); + +extern int tt_build_tables (sfnt *sfont, struct tt_glyphs *g); +extern int tt_get_metrics (sfnt *sfont, struct tt_glyphs *g); + +#endif /* _TT_GLYF_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/tt_gsub.c b/Build/source/texk/xdvipdfmx/src/tt_gsub.c new file mode 100644 index 00000000000..20981c0b8cb --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_gsub.c @@ -0,0 +1,1666 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_gsub.c,v 1.14 2005/06/27 09:04:52 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * TrueType GSUB support: (incomplete) + */ + +#include "system.h" + +#include "error.h" +#include "mem.h" +#include "mfileio.h" + +#include "sfnt.h" + +#include "otl_opt.h" +#include "tt_gsub.h" + +#define VERBOSE_LEVEL_MIN 0 +static int verbose = 0; +void +otl_gsub_set_verbose (void) +{ + verbose++; +} + +typedef USHORT Offset; +typedef USHORT GlyphID; + +/* OpenType Common Layout Table */ +/* Records */ +struct clt_record +{ + char tag[5]; /* 4-byte identifier */ + Offset offset; +}; + +/* Ranges */ +/* RangeRecord */ +struct clt_range +{ + GlyphID Start; /* First GlyphID in the range */ + GlyphID End; /* Last GlyphID in the range */ + USHORT StartCoverageIndex; /* Converage Index of first GID */ +}; + +static long +clt_read_record (struct clt_record *rec, sfnt *sfont) +{ + int i; + + ASSERT(rec && sfont); + + for (i = 0; i < 4; i++) { + rec->tag[i] = sfnt_get_char(sfont); + } + rec->tag[4] = '\0'; + rec->offset = sfnt_get_ushort(sfont); + + return 6; +} + +static long +clt_read_range (struct clt_range *rec, sfnt *sfont) +{ + ASSERT(rec && sfont); + + rec->Start = sfnt_get_ushort(sfont); + rec->End = sfnt_get_ushort(sfont); + rec->StartCoverageIndex = sfnt_get_ushort(sfont); + + return 6; +} + +/* + List structure: + ScriptRecord (records), FeatureRecord (records), Lookup (offsets) +*/ + +struct clt_record_list +{ + USHORT count; + struct clt_record *record; +}; + +/* offset and index list, Offset is USHORT */ +struct clt_number_list +{ + USHORT count; + USHORT *value; +}; + +static long +clt_read_record_list (struct clt_record_list *list, sfnt *sfont) +{ + long len, i; + + ASSERT(list && sfont); + + list->count = sfnt_get_ushort(sfont); + len = 2; + + if (list->count == 0) + list->record = NULL; + else { + list->record = NEW(list->count, struct clt_record); + for (i = 0; i < list->count; i++) { + len += clt_read_record(&(list->record[i]), sfont); + } + } + + return len; +} + +static void +clt_release_record_list (struct clt_record_list *list) +{ + if (list) { + if (list->record) + RELEASE(list->record); + list->record = NULL; + list->count = 0; + } +} + +static long +clt_read_number_list (struct clt_number_list *list, sfnt *sfont) +{ + long i; + + ASSERT(list && sfont); + + list->count = sfnt_get_ushort(sfont); + + if (list->count == 0) + list->value = NULL; + else { + list->value = NEW(list->count, USHORT); + for (i = 0; i < list->count; i++) { + list->value[i] = sfnt_get_ushort(sfont); + } + } + + return (2 + 2 * list->count); +} + +static void +clt_release_number_list (struct clt_number_list *list) +{ + if (list) { + if (list->value) + RELEASE(list->value); + list->value = NULL; + list->count = 0; + } +} + +/* + * Tables + */ + + +/* Coverage Table: format 1 and format 2 */ +struct clt_coverage +{ + USHORT format; /* Format identifier: 1 (list), 2 (range) */ + USHORT count; /* Glyphs/Range Count */ + GlyphID *list; /* Array of GlyphIDs - in numerical order */ + struct clt_range *range; /* Array of glyph ranges + * - ordered by Start GlyphID + */ +}; + +/* GSUB - The Glyph Substitution Table */ +struct otl_gsub_header +{ + Fixed version; /* 0x00010000 */ + Offset ScriptList; /* offset */ + Offset FeatureList; /* offset */ + Offset LookupList; /* offset */ +}; + +/* Single Substitution Format 1 */ +struct otl_gsub_single1 +{ + SHORT DeltaGlyphID; /* Add to original GlyphID to get + * substitute GlyphID */ + struct clt_coverage coverage; /* Coverage table */ +}; + +/* Single Substitution Format 2 */ +struct otl_gsub_single2 +{ + USHORT GlyphCount; /* Number of GlyphIDs in the Substitute array */ + GlyphID *Substitute; /* Array of substitute GlyphIDs + * - ordered by Coverage Index */ + struct clt_coverage coverage; /* Coverage table */ +}; + +/* Alternate Subsutitution Format 1 */ +struct otl_gsub_altset +{ + USHORT GlyphCount; /* Number of GlyphIDs in the Alternate array */ + GlyphID *Alternate; /* Array of alternate GlyphIDs + * - in arbitrary order + */ +}; + +struct otl_gsub_alternate1 +{ + USHORT AlternateSetCount; + struct otl_gsub_altset *AlternateSet; + + struct clt_coverage coverage; +}; + +/* Faithfull */ +struct otl_gsub_ligtab +{ + GlyphID LigGlyph; /* GlyphID of ligature glyph */ + USHORT CompCount; + GlyphID *Component; /* CompCount - 1 elements + * First component excluded. + * Ordered in writing direction... + */ +}; + +struct otl_gsub_ligset +{ + USHORT LigatureCount; + struct otl_gsub_ligtab *Ligature; +}; + +struct otl_gsub_ligature1 +{ + USHORT LigSetCount; + struct otl_gsub_ligset *LigatureSet; + + struct clt_coverage coverage; +}; + +/* GSUB subtable (single) */ +struct otl_gsub_subtab +{ + USHORT LookupType; /* FIXME */ + + USHORT SubstFormat; + union { + struct otl_gsub_single1 *single1; + struct otl_gsub_single2 *single2; + struct otl_gsub_alternate1 *alternate1; + struct otl_gsub_ligature1 *ligature1; + } table; +}; + +/* Script Table */ +struct clt_script_table +{ + Offset DefaultLangSys; + struct clt_record_list LangSysRecord; +}; + +static long +clt_read_script_table (struct clt_script_table *tab, sfnt *sfont) +{ + long len; + + ASSERT(tab && sfont); + + tab->DefaultLangSys = sfnt_get_ushort(sfont); + len = 2; + len += clt_read_record_list(&tab->LangSysRecord, sfont); + + return len; +} + +static void +clt_release_script_table (struct clt_script_table *tab) +{ + if (tab) + clt_release_record_list(&tab->LangSysRecord); +} + +/* LangSys Table */ +struct clt_langsys_table +{ + Offset LookupOrder; /* reserved */ + USHORT ReqFeatureIndex; + struct clt_number_list FeatureIndex; /* Array of indices into the + * FeatureList in arbitary order. + */ +}; + +static long +clt_read_langsys_table (struct clt_langsys_table *tab, sfnt *sfont) +{ + long len; + + ASSERT(tab && sfont); + + tab->LookupOrder = sfnt_get_ushort(sfont); + tab->ReqFeatureIndex = sfnt_get_ushort(sfont); + len = 4; + len += clt_read_number_list(&tab->FeatureIndex, sfont); + + return len; +} + +static void +clt_release_langsys_table (struct clt_langsys_table *tab) +{ + if (tab) + clt_release_number_list(&tab->FeatureIndex); +} + + +/* Feature Table */ +struct clt_feature_table +{ + Offset FeatureParams; + struct clt_number_list LookupListIndex; /* LookupListIndex List */ +}; + +static long +clt_read_feature_table (struct clt_feature_table *tab, sfnt *sfont) +{ + long len; + + ASSERT(tab && sfont); + + tab->FeatureParams = sfnt_get_ushort(sfont); + len = 2; + len += clt_read_number_list(&tab->LookupListIndex, sfont); + + return len; +} + +static void +clt_release_feature_table (struct clt_feature_table *tab) +{ + if (tab) + clt_release_number_list(&tab->LookupListIndex); +} + +/* Lookup Table: + * Currently, only single substitution is supported. + * LookupFlag is ignored. + */ +struct clt_lookup_table +{ + USHORT LookupType; /* Different enumerations for GSUB and GPOS */ + USHORT LookupFlag; /* Lookup qualifiers */ + struct clt_number_list SubTableList; /* offset */ + /* offset is from beginning of Lookup table */ +}; + +static long +clt_read_lookup_table (struct clt_lookup_table *tab, sfnt *sfont) +{ + long len; + + ASSERT(tab && sfont); + + tab->LookupType = sfnt_get_ushort(sfont); + tab->LookupFlag = sfnt_get_ushort(sfont); + len = 4; + len += clt_read_number_list(&tab->SubTableList, sfont); + + return len; +} + +static void +clt_release_lookup_table (struct clt_lookup_table *tab) +{ + if (tab) + clt_release_number_list(&tab->SubTableList); +} + +static long +clt_read_coverage (struct clt_coverage *cov, sfnt *sfont) +{ + long len, i; + + ASSERT(cov && sfont); + + cov->format = sfnt_get_ushort(sfont); + cov->count = sfnt_get_ushort(sfont); + len = 4; + + switch (cov->format) { + case 1: /* list */ + if (cov->count == 0) + cov->list = NULL; + else { + cov->list = NEW(cov->count, USHORT); + for (i = 0; i < cov->count; i++) { + cov->list[i] = sfnt_get_ushort(sfont); + } + } + cov->range = NULL; + len += 2 * cov->count; + break; + case 2: /* range */ + if (cov->count == 0) + cov->range = NULL; + else { + cov->range = NEW(cov->count, struct clt_range); + for (i = 0; i < cov->count; i++) { + len += clt_read_range(&(cov->range[i]), sfont); + } + } + cov->list = NULL; + break; + default: + ERROR("Unknown coverage format"); + } + + return len; +} + +static void +clt_release_coverage (struct clt_coverage *cov) +{ + if (cov) { + switch (cov->format) { + case 1: /* list */ + if (cov->list) + RELEASE(cov->list); + cov->list = NULL; + break; + case 2: /* range */ + if (cov->range) + RELEASE(cov->range); + cov->range = NULL; + break; + default: + ERROR("Unknown coverage format"); + } + } + cov->count = 0; +} + +/* returns -1 if not found */ +static long +clt_lookup_coverage (struct clt_coverage *cov, USHORT gid) +{ + long i; + + ASSERT(cov); + + switch (cov->format) { + case 1: /* list */ + for (i = 0; i < cov->count; i++) { + if (cov->list[i] > gid) { + break; + } else if (cov->list[i] == gid) { + return i; /* found */ + } + } + break; + case 2: /* range */ + for (i = 0; i < cov->count; i++) { + if (gid < cov->range[i].Start) { + break; + } else if (gid <= cov->range[i].End) { /* found */ + return (cov->range[i].StartCoverageIndex + + gid - cov->range[i].Start); + } + } + break; + default: + ERROR("Unknown coverage format"); + } + + return -1; /* not found */ +} + +static long +otl_gsub_read_single (struct otl_gsub_subtab *subtab, sfnt *sfont) +{ + long len; + ULONG offset; /* not Offset which is USHORT */ + Offset cov_offset; /* subtable offset, offset to Coverage table */ + + ASSERT(subtab && sfont); + +#ifdef XETEX + offset = sfont->loc; +#else + offset = tell_position(sfont->stream); +#endif + + subtab->LookupType = OTL_GSUB_TYPE_SINGLE; + subtab->SubstFormat = sfnt_get_ushort(sfont); + len = 2; + + if (subtab->SubstFormat == 1) { + struct otl_gsub_single1 *data; + + subtab->table.single1 = data = NEW(1, struct otl_gsub_single1); + cov_offset = sfnt_get_ushort(sfont); + data->DeltaGlyphID = sfnt_get_short(sfont); + len += 4; + + sfnt_seek_set(sfont, offset + cov_offset); + len += clt_read_coverage(&data->coverage, sfont); + + } else if (subtab->SubstFormat == 2) { + struct otl_gsub_single2 *data; + USHORT count; + + subtab->table.single2 = data = NEW(1, struct otl_gsub_single2); + cov_offset = sfnt_get_ushort(sfont); + data->GlyphCount = sfnt_get_ushort(sfont); + len += 4; + + if (data->GlyphCount == 0) + data->Substitute = NULL; + else { + data->Substitute = NEW(data->GlyphCount, GlyphID); + for (count = 0; count < data->GlyphCount; count++) { + data->Substitute[count] = sfnt_get_ushort(sfont); + } + len += 2 * data->GlyphCount; + } + + sfnt_seek_set(sfont, offset + cov_offset); + len += clt_read_coverage(&data->coverage, sfont); + + } else { + ERROR("unexpected SubstFormat"); + } + /* not implemented yet */ + + return len; +} + +static long +otl_gsub_read_alternate (struct otl_gsub_subtab *subtab, sfnt *sfont) +{ + long len; + USHORT i, j; + ULONG offset; /* not Offset which is USHORT */ + Offset cov_offset; /* subtable offset, offset to Coverage table */ + struct clt_number_list altset_offsets; + struct otl_gsub_alternate1 *data; + + ASSERT(subtab && sfont); + +#ifdef XETEX + offset = sfont->loc; +#else + offset = tell_position(sfont->stream); +#endif + + subtab->LookupType = OTL_GSUB_TYPE_ALTERNATE; + subtab->SubstFormat = sfnt_get_ushort(sfont); /* Must be 1 */ + if (subtab->SubstFormat != 1) { + WARN("Unknown GSUB SubstFormat for Alternate: %u", + subtab->SubstFormat); + return -1; + } + + len = 2; + subtab->table.alternate1 = + data = NEW(1, struct otl_gsub_alternate1); + + cov_offset = sfnt_get_ushort(sfont); + len += 2; + len += clt_read_number_list(&altset_offsets, sfont); + data->AlternateSetCount = altset_offsets.count; + if (data->AlternateSetCount == 0) { + data->AlternateSet = NULL; + data->coverage.count = 0; + data->coverage.format = 0; + data->coverage.list = NULL; + return len; + } + data->AlternateSet = NEW(data->AlternateSetCount, + struct otl_gsub_altset); + for (i = 0; i < data->AlternateSetCount; i++) { + struct otl_gsub_altset *altset; + ULONG altset_offset; + + altset = &(data->AlternateSet[i]); + + altset_offset = offset + altset_offsets.value[i]; + sfnt_seek_set(sfont, altset_offset); + altset->GlyphCount = sfnt_get_ushort(sfont); + len += 2; + if (altset->GlyphCount == 0) { + altset->Alternate = NULL; + break; + } + altset->Alternate = NEW(altset->GlyphCount, GlyphID); + for (j = 0; j < altset->GlyphCount; j++) { + altset->Alternate[j] = sfnt_get_ushort(sfont); + len += 2; + } + } + clt_release_number_list(&altset_offsets); + + sfnt_seek_set(sfont, offset + cov_offset); + len += clt_read_coverage(&data->coverage, sfont); + + return len; +} + +static long +otl_gsub_read_ligature (struct otl_gsub_subtab *subtab, sfnt *sfont) +{ + long len; + USHORT i, j; + ULONG offset; /* not Offset which is USHORT */ + Offset cov_offset; /* subtable offset, offset to Coverage table */ + struct clt_number_list ligset_offsets; + struct otl_gsub_ligature1 *data; + + ASSERT(subtab && sfont); + +#ifdef XETEX + offset = sfont->loc; +#else + offset = tell_position(sfont->stream); +#endif + + subtab->LookupType = OTL_GSUB_TYPE_LIGATURE; + subtab->SubstFormat = sfnt_get_ushort(sfont); /* Must be 1 */ + if (subtab->SubstFormat != 1) { + WARN("Unknown GSUB SubstFormat for Ligature: %u", + subtab->SubstFormat); + return -1; + } + + len = 2; + subtab->table.ligature1 = + data = NEW(1, struct otl_gsub_ligature1); + + cov_offset = sfnt_get_ushort(sfont); + len += 2; + len += clt_read_number_list(&ligset_offsets, sfont); + data->LigSetCount = ligset_offsets.count; + if (data->LigSetCount == 0) { + data->LigatureSet = NULL; + data->coverage.count = 0; + data->coverage.format = 0; + data->coverage.list = NULL; + return len; + } + data->LigatureSet = NEW(data->LigSetCount, + struct otl_gsub_ligset); + for (i = 0; i < data->LigSetCount; i++) { + struct clt_number_list ligset_tab; + struct otl_gsub_ligset *ligset; + ULONG ligset_offset; + USHORT count; + + ligset = &(data->LigatureSet[i]); + + ligset_offset = offset + ligset_offsets.value[i]; + sfnt_seek_set(sfont, ligset_offset); + len += clt_read_number_list(&ligset_tab, sfont); + + ligset->LigatureCount = ligset_tab.count; + if (ligset_tab.count == 0) { + ligset->Ligature = NULL; + break; + } + ligset->Ligature = NEW(ligset_tab.count, + struct otl_gsub_ligtab); + for (j = 0; j < ligset_tab.count; j++) { + sfnt_seek_set(sfont, ligset_offset + ligset_tab.value[j]); + ligset->Ligature[j].LigGlyph = sfnt_get_ushort(sfont); + ligset->Ligature[j].CompCount = sfnt_get_ushort(sfont); + if (ligset->Ligature[j].CompCount == 0) { + ligset->Ligature[j].Component = NULL; + break; + } + ligset->Ligature[j].Component = + NEW(ligset->Ligature[j].CompCount - 1, GlyphID); + for (count = 0; + count < ligset->Ligature[j].CompCount - 1; count++) { + ligset->Ligature[j].Component[count] = sfnt_get_ushort(sfont); + } + len += 4 + count * 2; + } + clt_release_number_list(&ligset_tab); + } + clt_release_number_list(&ligset_offsets); + + sfnt_seek_set(sfont, offset + cov_offset); + len += clt_read_coverage(&data->coverage, sfont); + + return len; +} + +static void +otl_gsub_release_single (struct otl_gsub_subtab *subtab) +{ + if (subtab) { + switch((int) subtab->SubstFormat) { + case 1: + { + struct otl_gsub_single1 *data; + + data = subtab->table.single1; + if (data) { + clt_release_coverage(&data->coverage); + RELEASE(data); + } + subtab->table.single1 = NULL; + } + break; + case 2: + { + struct otl_gsub_single2 *data; + + data = subtab->table.single2; + if (data) { + if (data->Substitute) + RELEASE(data->Substitute); + clt_release_coverage(&data->coverage); + RELEASE(data); + } + subtab->table.single2 = NULL; + } + break; + default: + ERROR("Unknown format for single substitution"); + } + } +} + +static void +otl_gsub_release_ligature (struct otl_gsub_subtab *subtab) +{ + if (subtab) { + struct otl_gsub_ligature1 *data; + USHORT i, j; + + data = subtab->table.ligature1; + if (data && data->LigatureSet) { + for (i = 0; i < data->LigSetCount; i++) { + struct otl_gsub_ligset *ligset; + + ligset = &(data->LigatureSet[i]); + for (j = 0; + j < ligset->LigatureCount; j++) { + if (ligset->Ligature[j].Component) + RELEASE(ligset->Ligature[j].Component); + ligset->Ligature[j].Component = NULL; + } + RELEASE(ligset->Ligature); + ligset->Ligature = NULL; + } + RELEASE(data->LigatureSet); + } + clt_release_coverage(&data->coverage); + data->LigatureSet = NULL; + RELEASE(data); + subtab->table.ligature1 = NULL; + } +} + +static void +otl_gsub_release_alternate (struct otl_gsub_subtab *subtab) +{ + if (subtab) { + struct otl_gsub_alternate1 *data; + USHORT i; + + data = subtab->table.alternate1; + if (data && data->AlternateSet) { + for (i = 0; i < data->AlternateSetCount; i++) { + struct otl_gsub_altset *altset; + + altset = &(data->AlternateSet[i]); + if (altset->Alternate) + RELEASE(altset->Alternate); + altset->Alternate = NULL; + } + RELEASE(data->AlternateSet); + } + clt_release_coverage(&data->coverage); + data->AlternateSet = NULL; + RELEASE(data); + subtab->table.alternate1 = NULL; + } +} + +static long +otl_gsub_read_header (struct otl_gsub_header *head, sfnt *sfont) +{ + ASSERT(head && sfont); + + head->version = sfnt_get_ulong (sfont); + head->ScriptList = sfnt_get_ushort(sfont); + head->FeatureList = sfnt_get_ushort(sfont); + head->LookupList = sfnt_get_ushort(sfont); + + return 10; +} + +/* + * script -- langsys --> feature indices + * | + * +- langsys --> feature indices + * + * feature --> lookup indices + */ + +struct otl_gsub_tab +{ + char *script; + char *language; + char *feature; + + int num_subtables; + struct otl_gsub_subtab *subtables; +}; + + +static int +otl_gsub_read_feat (struct otl_gsub_tab *gsub, sfnt *sfont) +{ + long feat_idx, script_idx; + ULONG gsub_offset, offset; + struct otl_gsub_header head; + struct otl_gsub_subtab *subtab = NULL; + USHORT num_subtabs = 0; + unsigned char feat_bits[8192]; + struct clt_record_list feature_list; + struct clt_record_list script_list; + struct clt_number_list lookup_list ; + otl_opt *script, *language, *feature; + + ASSERT(gsub && sfont); + + gsub_offset = sfnt_find_table_pos(sfont, "GSUB"); + if (gsub_offset == 0) + return -1; /* not found */ + + script = otl_new_opt(); + otl_parse_optstring(script, gsub->script); + language = otl_new_opt(); + otl_parse_optstring(language, gsub->language); + feature = otl_new_opt(); + otl_parse_optstring(feature, gsub->feature); + + memset(feat_bits, 0, 8192); + + /* GSUB header */ + sfnt_seek_set(sfont, gsub_offset); + otl_gsub_read_header(&head, sfont); + + /* Script */ + offset = gsub_offset + head.ScriptList; + sfnt_seek_set(sfont, offset); + clt_read_record_list(&script_list, sfont); + +#define SET_BIT(b,p) do {\ + (b)[(p)/8] |= (1<<(7-((p) % 8)));\ +} while (0) +#define BIT_SET(b,p) (((b)[(p)/8]) & (1 << (7-((p)%8)))) + + for (script_idx = 0; + script_idx < script_list.count; script_idx++) { + if (otl_match_optrule(script, + script_list.record[script_idx].tag)) { + struct clt_script_table script_tab; + long langsys_idx; + + offset = gsub_offset + + head.ScriptList + script_list.record[script_idx].offset; + sfnt_seek_set(sfont, offset); + clt_read_script_table(&script_tab, sfont); + + if (otl_match_optrule(language, "dflt") && + script_tab.DefaultLangSys != 0) { + struct clt_langsys_table langsys_tab; + + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_gsub>> OTL script-language enabled: %c%c%c%c.dflt\n", + script_list.record[script_idx].tag[0], + script_list.record[script_idx].tag[1], + script_list.record[script_idx].tag[2], + script_list.record[script_idx].tag[3]); + } + + sfnt_seek_set(sfont, offset + script_tab.DefaultLangSys); + clt_read_langsys_table(&langsys_tab, sfont); + if (otl_match_optrule(feature, "____") && /* _FIXME_ */ + langsys_tab.ReqFeatureIndex != 0xFFFF) + SET_BIT(feat_bits, langsys_tab.ReqFeatureIndex); + for (feat_idx = 0; + feat_idx < langsys_tab.FeatureIndex.count; + feat_idx++) { + SET_BIT(feat_bits, + langsys_tab.FeatureIndex.value[feat_idx]); + } + clt_release_langsys_table(&langsys_tab); + } + for (langsys_idx = 0; + langsys_idx < script_tab.LangSysRecord.count; + langsys_idx++) { + struct clt_record *langsys_rec; + + langsys_rec = &(script_tab.LangSysRecord.record[langsys_idx]); + if (otl_match_optrule(language, langsys_rec->tag)) { + struct clt_langsys_table langsys_tab; + + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_gsub>> OTL script-language enabled: %c%c%c%c.%c%c%c%c\n", + script_list.record[script_idx].tag[0], + script_list.record[script_idx].tag[1], + script_list.record[script_idx].tag[2], + script_list.record[script_idx].tag[3], + langsys_rec->tag[0], langsys_rec->tag[1], + langsys_rec->tag[2], langsys_rec->tag[3]); + } + + sfnt_seek_set(sfont, offset + langsys_rec->offset); + clt_read_langsys_table(&langsys_tab, sfont); + if (otl_match_optrule(feature, "____") || /* _FIXME_ */ + langsys_tab.ReqFeatureIndex != 0xFFFF) + SET_BIT(feat_bits, langsys_tab.ReqFeatureIndex); + for (feat_idx = 0; + feat_idx < langsys_tab.FeatureIndex.count; + feat_idx++) { + SET_BIT(feat_bits, + langsys_tab.FeatureIndex.value[feat_idx]); + } + clt_release_langsys_table(&langsys_tab); + } + } + clt_release_script_table(&script_tab); + } + } + + /* Feature List */ + offset = gsub_offset + head.FeatureList; + sfnt_seek_set(sfont, offset); + clt_read_record_list(&feature_list, sfont); + + /* Lookup List */ + offset = gsub_offset + head.LookupList; + sfnt_seek_set(sfont, offset); + clt_read_number_list(&lookup_list, sfont); + + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_gsub>> Reading OTL feature(s):"); + } + + for (feat_idx = 0; + feat_idx < feature_list.count; feat_idx++) { + if (BIT_SET(feat_bits, feat_idx) && + (otl_match_optrule(feature, + feature_list.record[feat_idx].tag))) { + struct clt_feature_table feature_table; + long i; + + if(verbose > VERBOSE_LEVEL_MIN) { + MESG(" %c%c%c%c", + feature_list.record[feat_idx].tag[0], + feature_list.record[feat_idx].tag[1], + feature_list.record[feat_idx].tag[2], + feature_list.record[feat_idx].tag[3]); + } + + /* Feature Table */ + offset = gsub_offset + + head.FeatureList + feature_list.record[feat_idx].offset; + + sfnt_seek_set(sfont, offset); + clt_read_feature_table(&feature_table, sfont); + if (feature_table.FeatureParams != 0) { + ERROR("unrecognized FeatureParams"); + } + + /* Lookup table */ + for (i = 0; i < feature_table.LookupListIndex.count; i++) { + struct clt_lookup_table lookup_table; + long ll_idx, st_idx, r, n_st; + + ll_idx = feature_table.LookupListIndex.value[i]; + if (ll_idx >= lookup_list.count) + ERROR("invalid Lookup index."); + + offset = gsub_offset + + head.LookupList + (lookup_list.value)[ll_idx]; + sfnt_seek_set(sfont, offset); + clt_read_lookup_table(&lookup_table, sfont); + + if (lookup_table.LookupType != OTL_GSUB_TYPE_SINGLE && + lookup_table.LookupType != OTL_GSUB_TYPE_ALTERNATE && + lookup_table.LookupType != OTL_GSUB_TYPE_LIGATURE && + lookup_table.LookupType != OTL_GSUB_TYPE_ESUBST) { + if (verbose > VERBOSE_LEVEL_MIN) + WARN("Skipping unsupported GSUB subtable: LookupType=%d", lookup_table.LookupType); + continue; + } + + subtab = RENEW(subtab, + num_subtabs + lookup_table.SubTableList.count, + struct otl_gsub_subtab); + for (n_st = 0, st_idx = 0; + st_idx < lookup_table.SubTableList.count; st_idx++) { + + offset = gsub_offset + head.LookupList + + lookup_list.value[ll_idx] + + (lookup_table.SubTableList.value)[st_idx]; + + sfnt_seek_set(sfont, offset); + + switch ((int) lookup_table.LookupType) { + case OTL_GSUB_TYPE_SINGLE: + r = otl_gsub_read_single(&subtab[num_subtabs + n_st], + sfont); + if (r <= 0) + WARN("Reading GSUB subtable (single) failed..."); + else { + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("(single)"); + } + n_st++; + } + break; + + case OTL_GSUB_TYPE_ALTERNATE: + r = otl_gsub_read_alternate(&subtab[num_subtabs + n_st], + sfont); + if (r <= 0) + WARN("Reading GSUB subtable (alternate) failed..."); + else { + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("(alternate)"); + } + n_st++; + } + break; + + case OTL_GSUB_TYPE_LIGATURE: + r = otl_gsub_read_ligature(&subtab[num_subtabs + n_st], + sfont); + if (r <= 0) + WARN("Reading GSUB subtable (ligature) failed..."); + else { + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("(ligature)"); + } + n_st++; + } + break; + + case OTL_GSUB_TYPE_ESUBST: + { + USHORT SubstFormat; + USHORT ExtensionLookupType; + ULONG ExtensionOffset; + + SubstFormat = sfnt_get_ushort(sfont); + if (SubstFormat != 1) + break; + ExtensionLookupType = sfnt_get_ushort(sfont); + ExtensionOffset = sfnt_get_ulong (sfont); + + sfnt_seek_set(sfont, offset + ExtensionOffset); + switch (ExtensionLookupType) { + case OTL_GSUB_TYPE_SINGLE: + r = otl_gsub_read_single(&subtab[num_subtabs + n_st], + sfont); + if (r <= 0) + WARN("Reading GSUB subtable (ext:single) failed..."); + else { + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("(ext:single)"); + } + n_st++; + } + break; + + case OTL_GSUB_TYPE_ALTERNATE: + r = otl_gsub_read_alternate(&subtab[num_subtabs + n_st], + sfont); + if (r <= 0) + WARN("Reading GSUB subtable (alternate) failed..."); + else { + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("(alternate)"); + } + n_st++; + } + break; + + case OTL_GSUB_TYPE_LIGATURE: + r = otl_gsub_read_ligature(&subtab[num_subtabs + n_st], + sfont); + if (r <= 0) + WARN("Reading GSUB subtable (ext:ligature) failed..."); + else { + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("(ext:ligature)"); + } + n_st++; + } + break; + + } + } + break; + + default: + break; + } + } + num_subtabs += n_st; /* lookup_table.SubTableList.count; */ + clt_release_lookup_table(&lookup_table); + } + clt_release_feature_table(&feature_table); + } + } + + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("\n"); + MESG("otl_gsub>> %ld subtable(s) read.\n", num_subtabs); + } + + clt_release_number_list(&lookup_list); + clt_release_record_list(&feature_list); + clt_release_record_list(&script_list); + + otl_release_opt(script); + otl_release_opt(language); + otl_release_opt(feature); + + if (subtab != NULL) { + gsub->num_subtables = num_subtabs; + gsub->subtables = subtab; + } else { + return -1; + } + + return 0; +} + + +static int +otl_gsub_apply_single (struct otl_gsub_subtab *subtab, USHORT *gid) +{ + long idx; + + ASSERT(subtab && gid); + + if (subtab->SubstFormat == 1) { + struct otl_gsub_single1 *data; + + data = (subtab->table).single1; + idx = clt_lookup_coverage(&data->coverage, *gid); + if (idx >= 0) { + *gid += data->DeltaGlyphID; + return 0; /* found */ + } + } else if (subtab->SubstFormat == 2) { + struct otl_gsub_single2 *data; + + data = (subtab->table).single2; + idx = clt_lookup_coverage(&data->coverage, *gid); + if (idx >= 0 && + idx < data->GlyphCount) { + *gid = (data->Substitute)[idx]; + return 0; /* found */ + } + } + + return -1; +} + +static int +otl_gsub_apply_alternate (struct otl_gsub_subtab *subtab, + USHORT alt_idx, USHORT *gid) +{ + long idx; + + ASSERT(subtab && gid); + + if (subtab->SubstFormat == 1) { + struct otl_gsub_alternate1 *data; + + data = subtab->table.alternate1; + idx = clt_lookup_coverage(&data->coverage, *gid); + if (idx < 0 || idx >= data->AlternateSetCount) + return -1; + else { + struct otl_gsub_altset *altset; + altset = &(data->AlternateSet[idx]); + if (alt_idx >= altset->GlyphCount) + return -1; + else { + *gid = altset->Alternate[alt_idx]; + return 0; + } + } + } + + return -1; +} + +/* NOTE: Ligature table is in preference order */ +static int +glyph_seq_cmp (GlyphID *glyph_seq0, USHORT n_glyphs0, + GlyphID *glyph_seq1, USHORT n_glyphs1) +{ + USHORT i; + + if (n_glyphs0 != n_glyphs1) + return n_glyphs0 - n_glyphs1; + + for (i = 0; i < n_glyphs0; i++) { + if (glyph_seq0[i] != glyph_seq1[i]) + return glyph_seq0[i] - glyph_seq1[i]; + } + + return 0; +} + +static int +otl_gsub_apply_ligature (struct otl_gsub_subtab *subtab, + USHORT *gid_in, USHORT num_gids, + USHORT *gid_out) +{ + long idx; + + ASSERT(subtab && gid_out); + + if (!gid_in || num_gids < 1) + return -1; + + if (subtab->SubstFormat == 1) { + struct otl_gsub_ligature1 *data; + + data = subtab->table.ligature1; + idx = clt_lookup_coverage(&data->coverage, gid_in[0]); + if (idx >= 0 && idx < data->LigSetCount) { + struct otl_gsub_ligset *ligset; + USHORT j; + + ligset = &(data->LigatureSet[idx]); + for (j = 0; j < ligset->LigatureCount; j++) { + if (!glyph_seq_cmp(&gid_in[1], num_gids - 1, + ligset->Ligature[j].Component, + ligset->Ligature[j].CompCount - 1)) { + *gid_out = ligset->Ligature[j].LigGlyph; + return 0; /* found */ + } + } + } + } + + return -1; +} + +#define GSUB_LIST_MAX 32 +struct otl_gsub +{ + int num_gsubs; + int select; + struct otl_gsub_tab gsubs[GSUB_LIST_MAX]; +}; + +otl_gsub * +otl_gsub_new (void) +{ + struct otl_gsub *gsub_list; + + gsub_list = NEW(1, struct otl_gsub); + gsub_list->num_gsubs = 0; + gsub_list->select = -1; + + return (otl_gsub *) gsub_list; +} + +int +otl_gsub_add_feat (otl_gsub *gsub_list, + const char *script, + const char *language, + const char *feature, + sfnt *sfont) +{ + int retval = -1; + int i; + struct otl_gsub_tab *gsub; + + if (gsub_list->num_gsubs > GSUB_LIST_MAX) { + ERROR("Too many GSUB features..."); + return -1; + } + for (i = 0; i < gsub_list->num_gsubs; i++) { + gsub = &(gsub_list->gsubs[i]); + if (!strcmp(script, gsub->script) && + !strcmp(language, gsub->language) && + !strcmp(feature, gsub->feature)) { + gsub_list->select = i; + return 0; + } + } + gsub = &gsub_list->gsubs[i]; + + gsub->script = NEW(strlen(script) +1, char); + strcpy(gsub->script, script); + gsub->language = NEW(strlen(language)+1, char); + strcpy(gsub->language, language); + gsub->feature = NEW(strlen(feature) +1, char); + strcpy(gsub->feature, feature); + + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("\n"); + MESG("otl_gsub>> Reading \"%s.%s.%s\"...\n", script, language, feature); + } + + retval = otl_gsub_read_feat(gsub, sfont); + if (retval >= 0) { + gsub_list->select = i; + gsub_list->num_gsubs++; + } else { + if(verbose > VERBOSE_LEVEL_MIN) { + MESG("otl_gsub>> Failed\n"); + } + RELEASE(gsub->script); + RELEASE(gsub->language); + RELEASE(gsub->feature); + } + + return retval; +} + +void +otl_gsub_release (otl_gsub *gsub_list) +{ + struct otl_gsub_tab *gsub; + struct otl_gsub_subtab *subtab; + int i, j; + + if (!gsub_list) + return; + + for (i = 0; i < gsub_list->num_gsubs; i++) { + gsub = &(gsub_list->gsubs[i]); + + if (gsub->script) + RELEASE(gsub->script); + if (gsub->language) + RELEASE(gsub->language); + if (gsub->feature) + RELEASE(gsub->feature); + + for (j = 0; j < gsub->num_subtables; j++) { + subtab = &(gsub->subtables[j]); + switch ((int) subtab->LookupType) { + case OTL_GSUB_TYPE_SINGLE: + otl_gsub_release_single(subtab); + break; + case OTL_GSUB_TYPE_ALTERNATE: + otl_gsub_release_alternate(subtab); + break; + case OTL_GSUB_TYPE_LIGATURE: + otl_gsub_release_ligature(subtab); + break; + default: + ERROR("???"); + break; + } + } + RELEASE(gsub->subtables); + } + + RELEASE(gsub_list); +} + +int +otl_gsub_apply (otl_gsub *gsub_list, USHORT *gid) +{ + int retval = -1; + struct otl_gsub_tab *gsub; + struct otl_gsub_subtab *subtab; + int i, j; + + if (!gsub_list || !gid) + return retval; + + i = gsub_list->select; + if (i < 0 || i >= gsub_list->num_gsubs) { + ERROR("GSUB not selected..."); + return -1; + } + gsub = &(gsub_list->gsubs[i]); + + for (j = 0; + retval < 0 && j < gsub->num_subtables; j++) { + subtab = &(gsub->subtables[j]); + switch ((int) subtab->LookupType){ + case OTL_GSUB_TYPE_SINGLE: + retval = otl_gsub_apply_single(subtab, gid); + break; + default: + break; + } + } + + return retval; +} + +int +otl_gsub_apply_alt (otl_gsub *gsub_list, USHORT alt_idx, USHORT *gid) +{ + int retval = -1; + struct otl_gsub_tab *gsub; + struct otl_gsub_subtab *subtab; + int i, j; + + if (!gsub_list || !gid) + return retval; + + i = gsub_list->select; + if (i < 0 || i >= gsub_list->num_gsubs) { + ERROR("GSUB not selected..."); + return -1; + } + gsub = &(gsub_list->gsubs[i]); + + for (j = 0; + retval < 0 && j < gsub->num_subtables; j++) { + subtab = &(gsub->subtables[j]); + switch ((int) subtab->LookupType){ + case OTL_GSUB_TYPE_ALTERNATE: + retval = otl_gsub_apply_alternate(subtab, alt_idx, gid); + break; + default: + break; + } + } + + return retval; +} + +int +otl_gsub_apply_lig (otl_gsub *gsub_list, + USHORT *gid_in, USHORT num_gids, USHORT *gid_out) +{ + int retval = -1; + struct otl_gsub_tab *gsub; + struct otl_gsub_subtab *subtab; + int i, j; + + if (!gsub_list || !gid_out) + return retval; + + i = gsub_list->select; + if (i < 0 || i >= gsub_list->num_gsubs) { + ERROR("GSUB not selected..."); + return -1; + } + gsub = &(gsub_list->gsubs[i]); + + for (j = 0; + retval < 0 && j < gsub->num_subtables; j++) { + subtab = &(gsub->subtables[j]); + switch ((int) subtab->LookupType){ + case OTL_GSUB_TYPE_LIGATURE: + retval = otl_gsub_apply_ligature(subtab, + gid_in, num_gids, gid_out); + break; + default: + break; + } + } + + return retval; +} + +int +otl_gsub_select (otl_gsub *gsub_list, + const char *script, + const char *language, + const char *feature) +{ + int i; + struct otl_gsub_tab *gsub; + + for (i = 0; i < gsub_list->num_gsubs; i++) { + gsub = &(gsub_list->gsubs[i]); + if (!strcmp(gsub->script, script) && + !strcmp(gsub->language, language) && + !strcmp(gsub->feature, feature)) { + gsub_list->select = i; + return i; + } + } + + gsub_list->select = -1; + + return -1; +} + +#if 0 +static int +otl_gsub_dump_single (struct otl_gsub_subtab *subtab) +{ + long gid, idx; + + ASSERT(subtab); + + if (subtab->SubstFormat == 1) { + struct otl_gsub_single1 *data; + + data = (subtab->table).single1; + for (gid = 0; gid < 0x10000; gid++) { + idx = clt_lookup_coverage(&data->coverage, gid); + if (idx >= 0) { + fprintf(stdout, "substitute \\%u by \\%u;\n", + (USHORT) gid, (USHORT) (gid + data->DeltaGlyphID)); + } + } + } else if (subtab->SubstFormat == 2) { + struct otl_gsub_single2 *data; + + data = (subtab->table).single2; + for (gid = 0; gid < 0x10000; gid++) { + idx = clt_lookup_coverage(&data->coverage, gid); + if (idx >= 0 && + idx < data->GlyphCount) { + fprintf(stdout, "substitute \\%u by \\%u;\n", + (USHORT) gid, (data->Substitute)[idx]); + } + } + } + + return 0; +} + +static int +otl_gsub_dump_alternate (struct otl_gsub_subtab *subtab) +{ + long gid, idx; + + ASSERT(subtab); + + if (subtab->SubstFormat == 1) { + struct otl_gsub_alternate1 *data; + + data = subtab->table.alternate1; + for (gid = 0; gid < 0x10000; gid++) { + idx = clt_lookup_coverage(&data->coverage, gid); + if (idx >= 0 && idx < data->AlternateSetCount) { + struct otl_gsub_altset *altset; + USHORT i; + altset = &(data->AlternateSet[idx]); + if (altset->GlyphCount == 0) + continue; + fprintf(stdout, "substitute \\%u from [", (USHORT) gid); + for (i = 0; i < altset->GlyphCount; i++) { + fprintf(stdout, " \\%u", altset->Alternate[i]); + } + fprintf(stdout, " ];\n"); + } + } + } + + return 0; +} + +static int +otl_gsub_dump_ligature (struct otl_gsub_subtab *subtab) +{ + long gid, idx; + + ASSERT(subtab); + + if (subtab->SubstFormat == 1) { + struct otl_gsub_ligature1 *data; + + data = subtab->table.ligature1; + for (gid = 0; gid < 0x10000; gid++) { + idx = clt_lookup_coverage(&data->coverage, gid); + if (idx >= 0 && idx < data->LigSetCount) { + struct otl_gsub_ligset *ligset; + USHORT i, j; + ligset = &(data->LigatureSet[idx]); + for (j = 0; j < ligset->LigatureCount; j++) { + fprintf(stdout, "substitute \\%u", (USHORT) gid); + for (i = 0; i < ligset->Ligature[j].CompCount - 1; i++) { + fprintf(stdout, " \\%u", ligset->Ligature[j].Component[i]); + } + fprintf(stdout, " by \\%u;\n", ligset->Ligature[j].LigGlyph); + } + } + } + } + + return 0; +} + +int +otl_gsub_dump (otl_gsub *gsub_list, + const char *script, const char *language, const char *feature) +{ + int error = -1; + struct otl_gsub_tab *gsub; + struct otl_gsub_subtab *subtab; + int sel, i, j; + + if (!gsub_list) + return -1; + + sel = gsub_list->select; + error = otl_gsub_select(gsub_list, script, language, feature); + if (error < 0) { + ERROR("GSUB feature %s.%s.%s not found.", script, language, feature); + } + + i = gsub_list->select; + if (i < 0 || i >= gsub_list->num_gsubs) { + ERROR("GSUB not selected..."); + return -1; + } + gsub = &(gsub_list->gsubs[i]); + + for (j = 0; + !error && + j < gsub->num_subtables; j++) { + subtab = &(gsub->subtables[j]); + switch ((int) subtab->LookupType){ + case OTL_GSUB_TYPE_SINGLE: + error = otl_gsub_dump_single(subtab); + break; + case OTL_GSUB_TYPE_ALTERNATE: + error = otl_gsub_dump_alternate(subtab); + break; + case OTL_GSUB_TYPE_LIGATURE: + error = otl_gsub_dump_ligature(subtab); + break; + } + } + gsub_list->select = sel; + + return error; +} +#endif diff --git a/Build/source/texk/xdvipdfmx/src/tt_gsub.h b/Build/source/texk/xdvipdfmx/src/tt_gsub.h new file mode 100644 index 00000000000..2c2d3a43a4e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_gsub.h @@ -0,0 +1,67 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_gsub.h,v 1.9 2005/06/27 09:04:52 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TT_GSUB_H_ +#define _TT_GSUB_H_ + +#include "sfnt.h" +#include "otl_opt.h" + +extern void otl_gsub_set_verbose (void); + +typedef struct otl_gsub otl_gsub; + +/* LookupType for GSUB */ +#define OTL_GSUB_TYPE_SINGLE 1 +#define OTL_GSUB_TYPE_MULTIPLE 2 +#define OTL_GSUB_TYPE_ALTERNATE 3 +#define OTL_GSUB_TYPE_LIGATURE 4 +#define OTL_GSUB_TYPE_CONTEXT 5 +#define OTL_GSUB_TYPE_CCONTEXT 6 +#define OTL_GSUB_TYPE_ESUBST 7 + +extern otl_gsub *otl_gsub_new (void); +extern void otl_gsub_release (otl_gsub *gsub_list); + +extern int otl_gsub_select (otl_gsub *gsub_list, + const char *script, + const char *language, + const char *feature); +extern int otl_gsub_add_feat (otl_gsub *gsub_list, + const char *script, + const char *language, + const char *feature, + sfnt *sfont); +extern int otl_gsub_apply (otl_gsub *gsub_list, USHORT *gid); +extern int otl_gsub_apply_alt (otl_gsub *gsub_list, USHORT alt_idx, USHORT *gid); +extern int otl_gsub_apply_lig (otl_gsub *gsub_list, + USHORT *gid_in, USHORT num_gids, + USHORT *gid_out); + +#if 0 +extern int otl_gsub_dump (otl_gsub *gsub_list, + const char *script, + const char *language, + const char *feature); +#endif + +#endif /* _TT_GSUB_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/tt_post.c b/Build/source/texk/xdvipdfmx/src/tt_post.c new file mode 100644 index 00000000000..5a2b513e156 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_post.c @@ -0,0 +1,265 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_post.c,v 1.2 2004/09/11 15:23:48 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include "system.h" +#include "error.h" +#include "mem.h" + +#include "dpxfile.h" + +#include "sfnt.h" + +#include "tt_post.h" + +static const char *const macglyphorder[258]; + +/* offset from begenning of the post table */ +#define NAME_STR_OFFSET 32 + +static int +read_v2_post_names (struct tt_post_table *post, sfnt *sfont) +{ + USHORT i, idx, *indices; + int len; + + post->numberOfGlyphs = sfnt_get_ushort(sfont); + + indices = NEW(post->numberOfGlyphs, USHORT); + post->count = 0; + for (i = 0; + i < post->numberOfGlyphs; i++) { + idx = sfnt_get_ushort(sfont); + if (idx >= 258) { + if (idx > 32767) { + /* although this is strictly speaking out of spec, it seems to work + and there are real-life fonts that use it */ + static char warning_issued = 0; + if (!warning_issued) { + WARN("TrueType post table name index %u > 32767", idx); + warning_issued = 1; + } + /* don't zero the index - we assume it's valid */ + /* idx = 0; */ + } + post->count++; + } + indices[i] = idx; + } + + if (post->count < 1) { + post->names = NULL; + } else { + post->names = NEW(post->count, char *); + for (i = 0; i < post->count; i++) { /* read Pascal strings */ + len = sfnt_get_byte(sfont); + if (len > 0) { + post->names[i] = NEW(len + 1, char); + sfnt_read((unsigned char*)(post->names[i]), len, sfont); + post->names[i][len] = 0; + } else { + post->names[i] = NULL; + } + } + } + + post->glyphNamePtr = NEW(post->numberOfGlyphs, char *); + for (i = 0; i < post->numberOfGlyphs; i++) { + idx = indices[i]; + if (idx < 258) { + post->glyphNamePtr[i] = (char *) macglyphorder[idx]; + } else if (idx - 258 < post->count) { + post->glyphNamePtr[i] = post->names[idx - 258]; + } else { + WARN("Invalid glyph name index number: %u (>= %u)", + idx, post->count + 258); + RELEASE(indices); + return -1; + } + } + RELEASE(indices); + + return 0; +} + +struct tt_post_table * +tt_read_post_table (sfnt *sfont) +{ + struct tt_post_table *post; + ULONG offset; + + offset = sfnt_locate_table(sfont, "post"); + + post = NEW(1, struct tt_post_table); + + post->Version = sfnt_get_ulong(sfont); /* Fixed */ + post->italicAngle = sfnt_get_ulong(sfont); /* Fixed */ + post->underlinePosition = sfnt_get_short(sfont); /* FWord */ + post->underlineThickness = sfnt_get_short(sfont); /* FWord */ + post->isFixedPitch = sfnt_get_ulong(sfont); + post->minMemType42 = sfnt_get_ulong(sfont); + post->maxMemType42 = sfnt_get_ulong(sfont); + post->minMemType1 = sfnt_get_ulong(sfont); + post->maxMemType1 = sfnt_get_ulong(sfont); + + post->numberOfGlyphs = 0; + post->glyphNamePtr = NULL; + post->count = 0; + post->names = NULL; + + if (post->Version == 0x00010000UL) { + post->numberOfGlyphs = 258; /* wrong */ + post->glyphNamePtr = (char **) macglyphorder; + post->count = 0; + post->names = NULL; + } else if (post->Version == 0x00025000UL) { + WARN("TrueType 'post' version 2.5 found (deprecated)"); + post->numberOfGlyphs = 0; /* wrong */ + post->glyphNamePtr = NULL; + post->count = 0; + post->names = NULL; + } else if (post->Version == 0x00020000UL) { + if (read_v2_post_names(post, sfont) < 0) { + WARN("Invalid TrueType 'post' table..."); + tt_release_post_table(post); + post = NULL; + } + } else if (post->Version == 0x00030000UL) { + post->numberOfGlyphs = 0; /* wrong */ + post->glyphNamePtr = NULL; + post->count = 0; + post->names = NULL; + } else { + WARN("Unknown 'post' version: %08X", post->Version); + tt_release_post_table(post); + post = NULL; + } + + return post; +} + +USHORT +tt_lookup_post_table (struct tt_post_table *post, const char *glyphname) +{ + USHORT gid; + + ASSERT(post && glyphname); + + for (gid = 0; gid < post->count; gid++) { + if (post->glyphNamePtr[gid] && + !strcmp(glyphname, post->glyphNamePtr[gid])) { + return gid; + } + } + + return 0; +} + +void +tt_release_post_table (struct tt_post_table *post) +{ + USHORT i; + + ASSERT(post); + + if (post->glyphNamePtr) + RELEASE(post->glyphNamePtr); + if (post->names) { + for (i = 0; i < post->count; i++) { + if (post->names[i]) + RELEASE(post->names[i]); + } + RELEASE(post->names); + } + post->count = 0; + post->glyphNamePtr = NULL; + post->names = NULL; + + RELEASE(post); + + return; +} + +/* Macintosh glyph order - from apple's TTRefMan */ +static const char *const +macglyphorder[258] = { + /* 0x0000 */ + ".notdef", ".null", "nonmarkingreturn", "space", "exclam", "quotedbl", + "numbersign", "dollar", "percent", "ampersand", "quotesingle", + "parenleft", "parenright", "asterisk", "plus", "comma", + /* 0x0010 */ + "hyphen", "period", "slash", "zero", "one", "two", "three", "four", + "five", "six", "seven", "eight", "nine", "colon", "semicolon", "less", + /* 0x0020 */ + "equal", "greater", "question", "at", "A", "B", "C", "D", + "E", "F", "G", "H", "I", "J", "K", "L", + /* 0x0030 */ + "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", + "Y", "Z", "bracketleft", "backslash", + /* 0x0040 */ + "bracketright", "asciicircum", "underscore", "grave", + "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", + /* 0x0050 */ + "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", + "y", "z", "braceleft", "bar", + /* 0x0060 */ + "braceright", "asciitilde", "Adieresis", "Aring", "Ccedilla", + "Eacute", "Ntilde", "Odieresis", "Udieresis", "aacute", "agrave", + "acircumflex", "adieresis", "atilde", "aring", "ccedilla", + /* 0x0070 */ + "eacute", "egrave", "ecircumflex", "edieresis", "iacute", "igrave", + "icircumflex", "idieresis", "ntilde", "oacute", "ograve", "ocircumflex", + "odieresis", "otilde", "uacute", "ugrave", + /* 0x0080 */ + "ucircumflex", "udieresis", "dagger", "degree", "cent", "sterling", + "section", "bullet", "paragraph", "germandbls", "registered", + "copyright", "trademark", "acute", "dieresis", "notequal", + /* 0x0090 */ + "AE", "Oslash", "infinity", "plusminus", "lessequal", "greaterequal", + "yen", "mu", "partialdiff", "summation", "product", "pi", "integral", + "ordfeminine", "ordmasculine", "Omega", + /* 0x00a0 */ + "ae", "oslash", "questiondown", "exclamdown", "logicalnot", "radical", + "florin", "approxequal", "Delta", "guillemotleft", "guillemotright", + "ellipsis", "nonbreakingspace", "Agrave", "Atilde", "Otilde", + /* 0x00b0 */ + "OE", "oe", "endash", "emdash", "quotedblleft", "quotedblright", + "quoteleft", "quoteright", "divide", "lozenge", "ydieresis", + "Ydieresis", "fraction", "currency", "guilsinglleft", "guilsinglright", + /* 0x00c0 */ + "fi", "fl", "daggerdbl", "periodcentered", "quotesinglbase", + "quotedblbase", "perthousand", "Acircumflex", "Ecircumflex", "Aacute", + "Edieresis", "Egrave", "Iacute", "Icircumflex", "Idieresis", "Igrave", + /* 0x00d0 */ + "Oacute", "Ocircumflex", "apple", "Ograve", "Uacute", "Ucircumflex", + "Ugrave", "dotlessi", "circumflex", "tilde", "macron", "breve", + "dotaccent", "ring", "cedilla", "hungarumlaut", + /* 0x00e0 */ + "ogonek", "caron", "Lslash", "lslash", "Scaron", "scaron", "Zcaron", + "zcaron", "brokenbar", "Eth", "eth", "Yacute", "yacute", "Thorn", + "thorn", "minus", + /* 0x00f0 */ + "multiply", "onesuperior", "twosuperior", "threesuperior", "onehalf", + "onequarter", "threequarters", "franc", "Gbreve", "gbreve", "Idotaccent", + "Scedilla", "scedilla", "Cacute", "cacute", "Ccaron", + /* 0x0100 */ + "ccaron", "dcroat" +}; diff --git a/Build/source/texk/xdvipdfmx/src/tt_post.h b/Build/source/texk/xdvipdfmx/src/tt_post.h new file mode 100644 index 00000000000..4a9884524e9 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_post.h @@ -0,0 +1,53 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_post.h,v 1.1 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TT_POST_H_ +#define _TT_POST_H_ + +#include "sfnt.h" + +struct tt_post_table +{ + Fixed Version; + Fixed italicAngle; + FWord underlinePosition; + FWord underlineThickness; + ULONG isFixedPitch; + ULONG minMemType42; + ULONG maxMemType42; + ULONG minMemType1; + ULONG maxMemType1; + + USHORT numberOfGlyphs; + + char **glyphNamePtr; /* Glyph names (pointer to C string) */ + char **names; /* Non-standard glyph names */ + + USHORT count; /* Number of glyph names in names[] */ +}; + +extern struct tt_post_table *tt_read_post_table (sfnt *sfont); +extern void tt_release_post_table (struct tt_post_table *post); + +extern USHORT tt_lookup_post_table (struct tt_post_table *post, const char *glyphname); + +#endif /* _TT_POST_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/tt_table.c b/Build/source/texk/xdvipdfmx/src/tt_table.c new file mode 100644 index 00000000000..e76f0554d3f --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_table.c @@ -0,0 +1,479 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_table.c,v 1.7 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include + +#include "system.h" +#include "error.h" +#include "mem.h" +#include "mfileio.h" + +#include "sfnt.h" +#include "tt_table.h" + +/* + tables contains information refered by other tables + maxp->numGlyphs, etc --> loca, etc + hhea->numberOfHMetrics --> hmtx + head->indexToLocFormat --> loca + head->glyphDataFormat --> glyf +*/ + +char *tt_pack_head_table (struct tt_head_table *table) +{ + int i; + char *p, *data; + + if (table == NULL) + ERROR("passed NULL pointer\n"); + + p = data = NEW(TT_HEAD_TABLE_SIZE, char); + p += sfnt_put_ulong(p, table->version); + p += sfnt_put_ulong(p, table->fontRevision); + p += sfnt_put_ulong(p, table->checkSumAdjustment); + p += sfnt_put_ulong(p, table->magicNumber); + p += sfnt_put_ushort(p, table->flags); + p += sfnt_put_ushort(p, table->unitsPerEm); + for (i=0; i<8; i++) { + *(p++) = (table->created)[i]; + } + for (i=0; i<8; i++) { + *(p++) = (table->modified)[i]; + } + p += sfnt_put_short(p, table->xMin); + p += sfnt_put_short(p, table->yMin); + p += sfnt_put_short(p, table->xMax); + p += sfnt_put_short(p, table->yMax); + p += sfnt_put_ushort(p, table->macStyle); + p += sfnt_put_ushort(p, table->lowestRecPPEM); + p += sfnt_put_short(p, table->fontDirectionHint); + p += sfnt_put_short(p, table->indexToLocFormat); + p += sfnt_put_short(p, table->glyphDataFormat); + + return data; +} + +struct tt_head_table *tt_read_head_table (sfnt *sfont) +{ + int i; + struct tt_head_table *table = NULL; + + table = NEW(1, struct tt_head_table); + + sfnt_locate_table(sfont, "head"); + + table->version = sfnt_get_ulong(sfont); + table->fontRevision = sfnt_get_ulong(sfont); + table->checkSumAdjustment = sfnt_get_ulong(sfont); + table->magicNumber = sfnt_get_ulong(sfont); + table->flags = sfnt_get_ushort(sfont); + table->unitsPerEm = sfnt_get_ushort(sfont); + for (i=0; i<8; i++) { + (table->created)[i] = sfnt_get_byte (sfont); + } + for (i=0; i<8; i++) { + (table->modified)[i] = sfnt_get_byte (sfont); + } + table->xMin = sfnt_get_short(sfont); + table->yMin = sfnt_get_short(sfont); + table->xMax = sfnt_get_short(sfont); + table->yMax = sfnt_get_short(sfont); + table->macStyle = sfnt_get_short(sfont); + table->lowestRecPPEM = sfnt_get_short(sfont); + table->fontDirectionHint = sfnt_get_short(sfont); + table->indexToLocFormat = sfnt_get_short(sfont); + table->glyphDataFormat = sfnt_get_short(sfont); + + return table; +} + +char *tt_pack_maxp_table (struct tt_maxp_table *table) +{ + char *p, *data; + + p = data = NEW(TT_MAXP_TABLE_SIZE, char); + p += sfnt_put_ulong(p, table->version); + p += sfnt_put_ushort(p, table->numGlyphs); + p += sfnt_put_ushort(p, table->maxPoints); + p += sfnt_put_ushort(p, table->maxContours); + p += sfnt_put_ushort(p, table->maxComponentPoints); + p += sfnt_put_ushort(p, table->maxComponentContours); + p += sfnt_put_ushort(p, table->maxZones); + p += sfnt_put_ushort(p, table->maxTwilightPoints); + p += sfnt_put_ushort(p, table->maxStorage); + p += sfnt_put_ushort(p, table->maxFunctionDefs); + p += sfnt_put_ushort(p, table->maxInstructionDefs); + p += sfnt_put_ushort(p, table->maxStackElements); + p += sfnt_put_ushort(p, table->maxSizeOfInstructions); + p += sfnt_put_ushort(p, table->maxComponentElements); + p += sfnt_put_ushort(p, table->maxComponentDepth); + + return data; +} + +struct tt_maxp_table *tt_read_maxp_table (sfnt *sfont) +{ + struct tt_maxp_table *table = NULL; + + table = NEW(1, struct tt_maxp_table); + + sfnt_locate_table(sfont, "maxp"); + table->version = sfnt_get_ulong(sfont); + table->numGlyphs = sfnt_get_ushort(sfont); + table->maxPoints = sfnt_get_ushort(sfont); + table->maxContours = sfnt_get_ushort(sfont); + table->maxComponentPoints = sfnt_get_ushort(sfont); + table->maxComponentContours = sfnt_get_ushort(sfont); + table->maxZones = sfnt_get_ushort(sfont); + table->maxTwilightPoints = sfnt_get_ushort(sfont); + table->maxStorage = sfnt_get_ushort(sfont); + table->maxFunctionDefs = sfnt_get_ushort(sfont); + table->maxInstructionDefs = sfnt_get_ushort(sfont); + table->maxStackElements = sfnt_get_ushort(sfont); + table->maxSizeOfInstructions = sfnt_get_ushort(sfont); + table->maxComponentElements = sfnt_get_ushort(sfont); + table->maxComponentDepth = sfnt_get_ushort(sfont); + + return table; +} + +char *tt_pack_hhea_table (struct tt_hhea_table *table) +{ + int i; + char *p, *data; + + p = data = NEW(TT_HHEA_TABLE_SIZE, char); + p += sfnt_put_ulong(p, table->version); + p += sfnt_put_short(p, table->Ascender); + p += sfnt_put_short(p, table->Descender); + p += sfnt_put_short(p, table->LineGap); + p += sfnt_put_ushort(p, table->advanceWidthMax); + p += sfnt_put_short(p, table->minLeftSideBearing); + p += sfnt_put_short(p, table->minRightSideBearing); + p += sfnt_put_short(p, table->xMaxExtent); + p += sfnt_put_short(p, table->caretSlopeRise); + p += sfnt_put_short(p, table->caretSlopeRun); + for (i = 0; i < 5; i++) { + p += sfnt_put_short(p, table->reserved[i]); + } + p += sfnt_put_short(p, table->metricDataFormat); + p += sfnt_put_ushort(p, table->numberOfHMetrics); + + return data; +} + +struct tt_hhea_table * +tt_read_hhea_table (sfnt *sfont) +{ + int i; + struct tt_hhea_table *table = NULL; + + table = NEW(1, struct tt_hhea_table); + + sfnt_locate_table(sfont, "hhea"); + table->version = sfnt_get_ulong(sfont); + table->Ascender = sfnt_get_short (sfont); + table->Descender = sfnt_get_short(sfont); + table->LineGap = sfnt_get_short(sfont); + table->advanceWidthMax = sfnt_get_ushort(sfont); + table->minLeftSideBearing = sfnt_get_short(sfont); + table->minRightSideBearing = sfnt_get_short(sfont); + table->xMaxExtent = sfnt_get_short(sfont); + table->caretSlopeRise = sfnt_get_short(sfont); + table->caretSlopeRun = sfnt_get_short(sfont); + for(i = 0; i < 5; i++) { + table->reserved[i] = sfnt_get_short(sfont); + } + table->metricDataFormat = sfnt_get_short(sfont); + if (table->metricDataFormat != 0) + ERROR("unknown metricDaraFormat"); + table->numberOfHMetrics = sfnt_get_ushort(sfont); + + return table; +} + +/* vhea */ +char * +tt_pack_vhea_table (struct tt_vhea_table *table) +{ + int i; + char *p, *data; + + p = data = NEW(TT_VHEA_TABLE_SIZE, char); + p += sfnt_put_ulong(p, table->version); + p += sfnt_put_short(p, table->vertTypoAscender); + p += sfnt_put_short(p, table->vertTypoDescender); + p += sfnt_put_short(p, table->vertTypoLineGap); + p += sfnt_put_short(p, table->advanceHeightMax); /* ushort ? */ + p += sfnt_put_short(p, table->minTopSideBearing); + p += sfnt_put_short(p, table->minBottomSideBearing); + p += sfnt_put_short(p, table->yMaxExtent); + p += sfnt_put_short(p, table->caretSlopeRise); + p += sfnt_put_short(p, table->caretSlopeRun); + p += sfnt_put_short(p, table->caretOffset); + for(i = 0; i < 5; i++) { + p += sfnt_put_short(p, table->reserved[i]); + } + p += sfnt_put_ushort(p, table->numOfLongVerMetrics); + + return data; +} + +struct tt_vhea_table *tt_read_vhea_table (sfnt *sfont) +{ + int i; + struct tt_vhea_table *table = NULL; + + table = NEW(1, struct tt_vhea_table); + + sfnt_locate_table(sfont, "vhea"); + table->version = sfnt_get_ulong(sfont); + table->vertTypoAscender = sfnt_get_short (sfont); + table->vertTypoDescender = sfnt_get_short(sfont); + table->vertTypoLineGap = sfnt_get_short(sfont); + table->advanceHeightMax = sfnt_get_short(sfont); /* ushort ? */ + table->minTopSideBearing = sfnt_get_short(sfont); + table->minBottomSideBearing = sfnt_get_short(sfont); + table->yMaxExtent = sfnt_get_short(sfont); + table->caretSlopeRise = sfnt_get_short(sfont); + table->caretSlopeRun = sfnt_get_short(sfont); + table->caretOffset = sfnt_get_short(sfont); + for(i=0;i<5;i++) { + (table->reserved)[i] = sfnt_get_short(sfont); + } + table->numOfLongVerMetrics = sfnt_get_ushort(sfont); + + return table; +} + + +struct tt_VORG_table * +tt_read_VORG_table (sfnt *sfont) +{ + struct tt_VORG_table *vorg; + ULONG offset; + USHORT i; + + offset = sfnt_find_table_pos(sfont, "VORG"); + + if (offset > 0) { + vorg = NEW(1, struct tt_VORG_table); + + sfnt_locate_table(sfont, "VORG"); + if (sfnt_get_ushort(sfont) != 1 || + sfnt_get_ushort(sfont) != 0) + ERROR("Unsupported VORG version."); + + vorg->defaultVertOriginY = sfnt_get_short(sfont); + vorg->numVertOriginYMetrics = sfnt_get_ushort(sfont); + vorg->vertOriginYMetrics = NEW(vorg->numVertOriginYMetrics, + struct tt_vertOriginYMetrics); + /* + * The vertOriginYMetrics array must be sorted in increasing + * glyphIndex order. + */ + for (i = 0; + i < vorg->numVertOriginYMetrics; i++) { + vorg->vertOriginYMetrics[i].glyphIndex = sfnt_get_ushort(sfont); + vorg->vertOriginYMetrics[i].vertOriginY = sfnt_get_short(sfont); + } + } else { + vorg = NULL; + } + + return vorg; +} + +/* + * hmtx and vmtx + * + * Reading/writing hmtx and vmtx depend on other tables, maxp and hhea/vhea. + */ + +struct tt_longMetrics * +tt_read_longMetrics (sfnt *sfont, USHORT numGlyphs, USHORT numLongMetrics) +{ + struct tt_longMetrics *m; + USHORT gid, last_adv = 0; + + m = NEW(numGlyphs, struct tt_longMetrics); + for (gid = 0; gid < numGlyphs; gid++) { + if (gid < numLongMetrics) + last_adv = sfnt_get_ushort(sfont); + m[gid].sideBearing = sfnt_get_short(sfont); + m[gid].advance = last_adv; + } + + return m; +} + +/* OS/2 table */ +/* this table may not exist */ +struct tt_os2__table * +tt_read_os2__table (sfnt *sfont) +{ + struct tt_os2__table *table = NULL; + int i; + + if (sfnt_find_table_pos(sfont, "OS/2") == 0) + return NULL; + + sfnt_locate_table(sfont, "OS/2"); + + table = NEW(1, struct tt_os2__table); + + table->version = sfnt_get_ushort(sfont); + table->xAvgCharWidth = sfnt_get_short(sfont); + table->usWeightClass = sfnt_get_ushort(sfont); + table->usWidthClass = sfnt_get_ushort(sfont); + table->fsType = sfnt_get_short(sfont); + table->ySubscriptXSize = sfnt_get_short(sfont); + table->ySubscriptYSize = sfnt_get_short(sfont); + table->ySubscriptXOffset = sfnt_get_short(sfont); + table->ySubscriptYOffset = sfnt_get_short(sfont); + table->ySuperscriptXSize = sfnt_get_short(sfont); + table->ySuperscriptYSize = sfnt_get_short(sfont); + table->ySuperscriptXOffset = sfnt_get_short(sfont); + table->ySuperscriptYOffset = sfnt_get_short(sfont); + table->yStrikeoutSize = sfnt_get_short(sfont); + table->yStrikeoutPosition = sfnt_get_short(sfont); + table->sFamilyClass = sfnt_get_short(sfont); + for (i = 0; i < 10; i++) { + table->panose[i] = sfnt_get_byte(sfont); + } + table->ulUnicodeRange1 = sfnt_get_ulong(sfont); + table->ulUnicodeRange2 = sfnt_get_ulong(sfont); + table->ulUnicodeRange3 = sfnt_get_ulong(sfont); + table->ulUnicodeRange4 = sfnt_get_ulong(sfont); + for (i = 0; i < 4; i++) { + table->achVendID[i] = sfnt_get_char(sfont); + } + table->fsSelection = sfnt_get_ushort(sfont); + table->usFirstCharIndex = sfnt_get_ushort(sfont); + table->usLastCharIndex = sfnt_get_ushort(sfont); + table->sTypoAscender = sfnt_get_short(sfont); + table->sTypoDescender = sfnt_get_short(sfont); + table->sTypoLineGap = sfnt_get_short(sfont); + table->usWinAscent = sfnt_get_ushort(sfont); + table->usWinDescent = sfnt_get_ushort(sfont); + table->ulCodePageRange1 = sfnt_get_ulong(sfont); + table->ulCodePageRange2 = sfnt_get_ulong(sfont); + if (table->version == 0x0002) { + table->sxHeight = sfnt_get_short(sfont); + table->sCapHeight = sfnt_get_short(sfont); + table->usDefaultChar = sfnt_get_ushort(sfont); + table->usBreakChar = sfnt_get_ushort(sfont); + table->usMaxContext = sfnt_get_ushort(sfont); + } + + return table; +} + +USHORT +tt_get_name (sfnt *sfont, char *dest, USHORT destlen, + USHORT plat_id, USHORT enco_id, + USHORT lang_id, USHORT name_id) +{ + USHORT length = 0; + USHORT num_names, string_offset; + ULONG name_offset; + int i; + + name_offset = sfnt_locate_table (sfont, "name"); + + if (sfnt_get_ushort(sfont)) + ERROR ("Expecting zero"); + + num_names = sfnt_get_ushort(sfont); + string_offset = sfnt_get_ushort(sfont); + for (i=0;i destlen - 1) { + fprintf(stderr, "\n** Notice: Name string too long. Truncating **\n"); + length = destlen - 1; + } + sfnt_seek_set (sfont, name_offset+string_offset+offset); + sfnt_read((unsigned char*)dest, length, sfont); + dest[length] = '\0'; + break; + } + } + if (i == num_names) { + length = 0; + } + + return length; +} + +USHORT +tt_get_ps_fontname (sfnt *sfont, char *dest, USHORT destlen) +{ + USHORT namelen = 0; + +#ifdef XETEX + + const char* name = FT_Get_Postscript_Name(sfont->ft_face); + namelen = strlen(name); + if (namelen > destlen - 1) { + strncpy(dest, name, destlen - 1); + dest[destlen] = 0; + } + else + strcpy(dest, name); + +#else + + /* First try Mac-Roman PS name and then Win-Unicode PS name */ + if ((namelen = tt_get_name(sfont, dest, destlen, 1, 0, 0, 6)) != 0 || + (namelen = tt_get_name(sfont, dest, destlen, 3, 1, 0x409u, 6)) != 0 || + (namelen = tt_get_name(sfont, dest, destlen, 3, 5, 0x412u, 6)) != 0) + return namelen; + + fprintf(stderr, "\n** Warning: No valid PostScript name available **\n"); + /* + Wrokaround for some bad TTfonts: + Language ID value 0xffffu for `accept any language ID' + */ + if ((namelen = tt_get_name(sfont, dest, destlen, 1, 0, 0xffffu, 6)) == 0) { + /* + Finally falling back to Mac Roman name field. + Warning: Some bad Japanese TTfonts using SJIS encoded string in the + Mac Roman name field. + */ + namelen = tt_get_name(sfont, dest, destlen, 1, 0, 0, 1); + } + +#endif + + return namelen; +} diff --git a/Build/source/texk/xdvipdfmx/src/tt_table.h b/Build/source/texk/xdvipdfmx/src/tt_table.h new file mode 100644 index 00000000000..6bc73ca6808 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/tt_table.h @@ -0,0 +1,193 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/tt_table.h,v 1.6 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TT_TABLE_H_ +#define _TT_TABLE_H_ + +#include "sfnt.h" + +#define TT_HEAD_TABLE_SIZE 54UL +#define TT_MAXP_TABLE_SIZE 32UL +#define TT_HHEA_TABLE_SIZE 36UL +#define TT_VHEA_TABLE_SIZE 36UL + +struct tt_head_table +{ + Fixed version; + Fixed fontRevision; + ULONG checkSumAdjustment; + ULONG magicNumber; + USHORT flags; + USHORT unitsPerEm; + BYTE created[8]; + BYTE modified[8]; + FWord xMin, yMin, xMax, yMax; + USHORT macStyle; + USHORT lowestRecPPEM; + SHORT fontDirectionHint; + SHORT indexToLocFormat; + SHORT glyphDataFormat; +}; + +struct tt_hhea_table +{ + Fixed version; + FWord Ascender; + FWord Descender; + FWord LineGap; + uFWord advanceWidthMax; + FWord minLeftSideBearing; + FWord minRightSideBearing; + FWord xMaxExtent; + SHORT caretSlopeRise; + SHORT caretSlopeRun; + SHORT reserved[5]; /* set to 0 */ + SHORT metricDataFormat; + USHORT numberOfHMetrics; +}; + +struct tt_vhea_table +{ + Fixed version; + SHORT vertTypoAscender; /* v.1.1 name */ + SHORT vertTypoDescender; /* v.1.1 name */ + SHORT vertTypoLineGap; /* v.1.1 name */ + SHORT advanceHeightMax; + SHORT minTopSideBearing; + SHORT minBottomSideBearing; + SHORT yMaxExtent; + SHORT caretSlopeRise; + SHORT caretSlopeRun; + SHORT caretOffset; + SHORT reserved[5]; /* set to 0 */ + USHORT numOfLongVerMetrics; +}; + +struct tt_maxp_table +{ + Fixed version; + USHORT numGlyphs; + USHORT maxPoints; + USHORT maxContours; + USHORT maxComponentPoints; + USHORT maxComponentContours; + USHORT maxZones; + USHORT maxTwilightPoints; + USHORT maxStorage; + USHORT maxFunctionDefs; + USHORT maxInstructionDefs; + USHORT maxStackElements; + USHORT maxSizeOfInstructions; + USHORT maxComponentElements; + USHORT maxComponentDepth; +}; + +struct tt_os2__table +{ + USHORT version; /* 0x0001 or 0x0002 */ + SHORT xAvgCharWidth; + USHORT usWeightClass; + USHORT usWidthClass; + SHORT fsType; /* if (faType & 0x08) editable_embedding */ + SHORT ySubscriptXSize; + SHORT ySubscriptYSize; + SHORT ySubscriptXOffset; + SHORT ySubscriptYOffset; + SHORT ySuperscriptXSize; + SHORT ySuperscriptYSize; + SHORT ySuperscriptXOffset; + SHORT ySuperscriptYOffset; + SHORT yStrikeoutSize; + SHORT yStrikeoutPosition; + SHORT sFamilyClass; + BYTE panose[10]; + ULONG ulUnicodeRange1; + ULONG ulUnicodeRange2; + ULONG ulUnicodeRange3; + ULONG ulUnicodeRange4; + CHAR achVendID[4]; + USHORT fsSelection; + USHORT usFirstCharIndex; + USHORT usLastCharIndex; + SHORT sTypoAscender; /* TTF spec. from MS is wrong */ + SHORT sTypoDescender; /* TTF spec. from MS is wrong */ + SHORT sTypoLineGap; /* TTF spec. from MS is wrong */ + USHORT usWinAscent; + USHORT usWinDescent; + ULONG ulCodePageRange1; + ULONG ulCodePageRange2; + /* version 0x0002 */ + SHORT sxHeight; + SHORT sCapHeight; + USHORT usDefaultChar; + USHORT usBreakChar; + USHORT usMaxContext; +}; + +struct tt_vertOriginYMetrics { + USHORT glyphIndex; + SHORT vertOriginY; +}; + +struct tt_VORG_table { + SHORT defaultVertOriginY; + USHORT numVertOriginYMetrics; + struct tt_vertOriginYMetrics *vertOriginYMetrics; +}; + +/* hmtx and vmtx */ +struct tt_longMetrics +{ + USHORT advance; + SHORT sideBearing; +}; + + +/* head, hhea, maxp */ +extern char *tt_pack_head_table (struct tt_head_table *table); +extern struct tt_head_table *tt_read_head_table (sfnt *sfont); +extern char *tt_pack_hhea_table (struct tt_hhea_table *table); +extern struct tt_hhea_table *tt_read_hhea_table (sfnt *sfont); +extern char *tt_pack_maxp_table (struct tt_maxp_table *table); +extern struct tt_maxp_table *tt_read_maxp_table (sfnt *sfont); + +/* vhea */ +extern char *tt_pack_vhea_table (struct tt_vhea_table *table); +extern struct tt_vhea_table *tt_read_vhea_table (sfnt *sfont); + +/* VORG */ +extern struct tt_VORG_table *tt_read_VORG_table (sfnt *sfont); + +/* hmtx and vmtx */ +extern struct tt_longMetrics *tt_read_longMetrics (sfnt *sfont, + USHORT numGlyphs, USHORT numLongMetrics); + +/* OS/2 table */ +extern struct tt_os2__table *tt_read_os2__table (sfnt *sfont); + +/* name table */ +extern USHORT tt_get_name (sfnt *sfont, char *dest, USHORT destlen, + USHORT plat_id, USHORT enco_id, + USHORT lang_id, USHORT name_id); +extern USHORT tt_get_ps_fontname (sfnt *sfont, char *dest, USHORT destlen); + +#endif /* _TT_TABLE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/type0.c b/Build/source/texk/xdvipdfmx/src/type0.c new file mode 100644 index 00000000000..bb1b12f135b --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/type0.c @@ -0,0 +1,685 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/type0.c,v 1.23 2005/06/27 09:04:53 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * Type0 font support: + * + * TODO: + * + * Composite font (multiple descendants) - not supported in PDF + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxfile.h" + +#include "pdfobj.h" +#include "fontmap.h" + +#include "cmap.h" +#include "cid.h" + +#include "type0.h" + + +#define TYPE0FONT_DEBUG_STR "Type0" +#define TYPE0FONT_DEBUG 3 + +static int __verbose = 0; + +static pdf_obj *pdf_read_ToUnicode_file (const char *cmap_name); + +void +Type0Font_set_verbose(void) +{ + __verbose++; +} + +/* + * used_chars: + * + * Single bit is used for each CIDs since used_chars can be reused as a + * stream content of CIDSet by doing so. See, cid.h for add_to_used() and + * is_used(). + */ + +static char * +new_used_chars2(void) +{ + char *used_chars; + + used_chars = NEW(8192, char); + memset(used_chars, 0, 8192); + + return used_chars; +} + +#define FLAG_NONE 0 +#define FLAG_USED_CHARS_SHARED (1 << 0) + +struct Type0Font { + char *fontname; /* BaseFont */ + char *encoding; /* "Identity-H" or "Identity-V" (not ID) */ + char *used_chars; /* Used chars (CIDs) */ + + /* + * Type0 only + */ + CIDFont *descendant; /* Only single descendant is allowed. */ + int flags; + int wmode; + + /* + * PDF Font Resource + */ + pdf_obj *indirect; + pdf_obj *fontdict; + pdf_obj *descriptor; /* MUST BE NULL */ +}; + +static void +Type0Font_init_font_struct (Type0Font *font) +{ + ASSERT(font); + + font->fontname = NULL; + font->fontdict = NULL; + font->indirect = NULL; + font->descriptor = NULL; + font->encoding = NULL; + font->used_chars = NULL; + font->descendant = NULL; + font->wmode = -1; + font->flags = FLAG_NONE; + + return; +} + +static void +Type0Font_clean (Type0Font *font) +{ + if (font) { + if (font->fontdict) + ERROR("%s: Object not flushed.", TYPE0FONT_DEBUG_STR); + if (font->indirect) + ERROR("%s: Object not flushed.", TYPE0FONT_DEBUG_STR); + if (font->descriptor) + ERROR("%s: FontDescriptor unexpected for Type0 font.", TYPE0FONT_DEBUG_STR); + if (!(font->flags & FLAG_USED_CHARS_SHARED) && font->used_chars) + RELEASE(font->used_chars); + if (font->encoding) + RELEASE(font->encoding); + if (font->fontname) + RELEASE(font->fontname); + font->fontdict = NULL; + font->indirect = NULL; + font->descriptor = NULL; + font->used_chars = NULL; + font->encoding = NULL; + font->fontname = NULL; + } +} + +/* PLEASE FIX THIS */ +#include "tt_cmap.h" + +static void +add_ToUnicode (Type0Font *font) +{ + pdf_obj *tounicode; + CIDFont *cidfont; + CIDSysInfo *csi; + char *cmap_name, *fontname; + + /* + * ToUnicode CMap: + * + * ToUnicode CMaps are usually not required for standard character + * collections such as Adobe-Japan1. Identity-H is used for UCS + * ordering CID-keyed fonts. External resource must be loaded for + * others. + */ + + cidfont = font->descendant; + if (!cidfont) { + ERROR("%s: No descendant CID-keyed font.", TYPE0FONT_DEBUG_STR); + return; + } + + if (CIDFont_is_ACCFont(cidfont)) { + /* No need to embed ToUnicode */ + return; + } else if (CIDFont_is_UCSFont(cidfont)) { + /* + * Old version of dvipdfmx mistakenly used Adobe-Identity as Unicode. + */ + tounicode = pdf_read_ToUnicode_file("Adobe-Identity-UCS2"); + if (!tounicode) { /* This should work */ + tounicode = pdf_new_name("Identity-H"); + } + pdf_add_dict(font->fontdict, pdf_new_name("ToUnicode"), tounicode); + return; + } + + tounicode = NULL; + csi = CIDFont_get_CIDSysInfo(cidfont); + fontname = CIDFont_get_fontname(cidfont); + if (CIDFont_get_embedding(cidfont)) { + fontname += 7; /* FIXME */ + } + + if (!strcmp(csi->registry, "Adobe") && + !strcmp(csi->ordering, "Identity")) { + switch (CIDFont_get_subtype(cidfont)) { + case CIDFONT_TYPE2: + /* PLEASE FIX THIS */ + tounicode = otf_create_ToUnicode_stream(CIDFont_get_ident(cidfont), + CIDFont_get_opt_index(cidfont), + CIDFont_get_ft_face(cidfont), + Type0Font_get_usedchars(font)); + break; + default: + if (CIDFont_get_flag(cidfont, CIDFONT_FLAG_TYPE1C)) { /* FIXME */ + tounicode = otf_create_ToUnicode_stream(CIDFont_get_ident(cidfont), + CIDFont_get_opt_index(cidfont), + CIDFont_get_ft_face(cidfont), + Type0Font_get_usedchars(font)); + } else if (CIDFont_get_flag(cidfont, CIDFONT_FLAG_TYPE1)) { /* FIXME */ + /* Font loader will create ToUnicode and set. */ + return; + } else { + cmap_name = NEW(strlen(fontname) + 7, char); + sprintf(cmap_name, "%s-UTF16", fontname); + tounicode = pdf_read_ToUnicode_file(cmap_name); + if (!tounicode) { + sprintf(cmap_name, "%s-UCS2", fontname); + tounicode = pdf_read_ToUnicode_file(cmap_name); + } + RELEASE(cmap_name); + } + break; + } + } else { + cmap_name = NEW(strlen(csi->registry)+strlen(csi->ordering)+8, char); + sprintf(cmap_name, "%s-%s-UTF16", csi->registry, csi->ordering); + tounicode = pdf_read_ToUnicode_file(cmap_name); + if (!tounicode) { + sprintf(cmap_name, "%s-%s-UCS2", csi->registry, csi->ordering); + tounicode = pdf_read_ToUnicode_file(cmap_name); + } + RELEASE(cmap_name); + } + + if (tounicode) { + pdf_add_dict(font->fontdict, + pdf_new_name("ToUnicode"), tounicode); + } else { + WARN("Failed to load ToUnicode CMap for font \"%s\"", fontname); + } + + return; +} + +void +Type0Font_set_ToUnicode (Type0Font *font, pdf_obj *cmap_ref) +{ + ASSERT(font); + + pdf_add_dict(font->fontdict, + pdf_new_name("ToUnicode"), cmap_ref); +} + +static void +Type0Font_dofont (Type0Font *font) +{ + if (!font || !font->indirect) + return; + + if (!pdf_lookup_dict(font->fontdict, "ToUnicode")) { /* FIXME */ + add_ToUnicode(font); + } +} + +static void +Type0Font_flush (Type0Font *font) +{ + if (font) { + if (font->fontdict) + pdf_release_obj(font->fontdict); + font->fontdict = NULL; + if (font->indirect) + pdf_release_obj(font->indirect); + font->indirect = NULL; + if (font->descriptor) + ERROR("%s: FontDescriptor unexpected for Type0 font.", TYPE0FONT_DEBUG_STR); + font->descriptor = NULL; + } +} + +int +Type0Font_get_wmode (Type0Font *font) +{ + ASSERT(font); + + return font->wmode; +} + +char * +Type0Font_get_encoding (Type0Font *font) +{ + ASSERT(font); + + return font->encoding; +} + +char * +Type0Font_get_usedchars (Type0Font *font) +{ + ASSERT(font); + + return font->used_chars; +} + +pdf_obj * +Type0Font_get_resource (Type0Font *font) +{ + ASSERT(font); + + /* + * This looks somewhat strange. + */ + if (!font->indirect) { + pdf_obj *array; + + array = pdf_new_array(); + pdf_add_array(array, CIDFont_get_resource(font->descendant)); + pdf_add_dict(font->fontdict, pdf_new_name("DescendantFonts"), array); + font->indirect = pdf_ref_obj(font->fontdict); + } + + return pdf_link_obj(font->indirect); +} + +/******************************** CACHE ********************************/ + +#define CHECK_ID(n) do {\ + if ((n) < 0 || (n) >= __cache.count)\ + ERROR("%s: Invalid ID %d", TYPE0FONT_DEBUG_STR, (n));\ +} while (0) + +#define CACHE_ALLOC_SIZE 16u + +static struct font_cache { + int count; + int capacity; + Type0Font *fonts; +} __cache = { + 0, 0, NULL +}; + +void +Type0Font_cache_init (void) +{ + if (__cache.fonts) + ERROR("%s: Already initialized.", TYPE0FONT_DEBUG_STR); + __cache.count = 0; + __cache.capacity = 0; + __cache.fonts = NULL; +} + +Type0Font * +Type0Font_cache_get (int id) +{ + CHECK_ID(id); + + return &__cache.fonts[id]; +} + +#ifdef XETEX +unsigned short* +Type0Font_get_ft_to_gid(int id) +{ + return CIDFont_get_ft_to_gid(Type0Font_cache_get(id)->descendant); +} +#endif + +int +Type0Font_cache_find (const char *map_name, int cmap_id, fontmap_opt *fmap_opt) +{ + int font_id = -1; + Type0Font *font; + CIDFont *cidfont; + CMap *cmap; + CIDSysInfo *csi; + char *fontname = NULL; + int cid_id = -1, parent_id = -1, wmode = 0; + int pdf_ver; + + pdf_ver = pdf_get_version(); + if (!map_name || cmap_id < 0 || pdf_ver < 2) + return -1; + + /* + * Encoding is Identity-H or Identity-V according as thier WMode value. + * + * We do not use match against the map_name since fonts (TrueType) covers + * characters across multiple character collection (eg, Adobe-Japan1 and + * Adobe-Japan2) must be splited into multiple CID-keyed fonts. + */ + + cmap = CMap_cache_get(cmap_id); + csi = (CMap_is_Identity(cmap)) ? NULL : CMap_get_CIDSysInfo(cmap) ; + + cid_id = CIDFont_cache_find(map_name, csi, fmap_opt); + + if (cid_id < 0) + return -1; + + /* + * The descendant CID-keyed font has already been registerd. + * If CID-keyed font with ID = cid_id is new font, then create new parent + * Type 0 font. Otherwise, there already exists parent Type 0 font and + * then we find him and return his ID. We must check against their WMode. + */ + + cidfont = CIDFont_cache_get(cid_id); + wmode = CMap_get_wmode(cmap); + + /* Does CID-keyed font already have parent ? */ + parent_id = CIDFont_get_parent_id(cidfont, wmode); + if (parent_id >= 0) + return parent_id; /* If so, we don't need new one. */ + + /* + * CIDFont does not have parent or his parent's WMode does not matched with + * wmode. Create new Type0 font. + */ + + if (__cache.count >= __cache.capacity) { + __cache.capacity += CACHE_ALLOC_SIZE; + __cache.fonts = RENEW(__cache.fonts, __cache.capacity, struct Type0Font); + } + font_id = __cache.count; + font = &__cache.fonts[font_id]; + + Type0Font_init_font_struct(font); + + /* + * All CJK double-byte characters are mapped so that resulting + * character codes coincide with CIDs of given character collection. + * So, the Encoding is always Identity-H for horizontal fonts or + * Identity-V for vertical fonts. + */ + if (wmode) { + font->encoding = NEW(strlen("Identity-V")+1, char); + strcpy(font->encoding, "Identity-V"); + } else { + font->encoding = NEW(strlen("Identity-H")+1, char); + strcpy(font->encoding, "Identity-H"); + } + font->wmode = wmode; + + /* + * Now we start font dictionary. + */ + font->fontdict = pdf_new_dict(); + pdf_add_dict(font->fontdict, pdf_new_name ("Type"), pdf_new_name ("Font")); + pdf_add_dict(font->fontdict, pdf_new_name ("Subtype"), pdf_new_name ("Type0")); + + /* + * Type0 font does not have FontDescriptor because it is not a simple font. + * Instead, DescendantFonts appears here. + * + * Up to PDF version 1.5, Type0 font must have single descendant font which + * is a CID-keyed font. Future PDF spec. will allow multiple desecendant + * fonts. + */ + font->descendant = cidfont; + CIDFont_attach_parent(cidfont, font_id, wmode); + + /* + * PostScript Font name: + * + * Type0 font's fontname is usually descendant CID-keyed font's font name + * appended by -ENCODING. + */ + fontname = CIDFont_get_fontname(cidfont); + + if (__verbose) { + if (CIDFont_get_embedding(cidfont) && strlen(fontname) > 7) + MESG("(CID:%s)", fontname+7); /* skip XXXXXX+ */ + else + MESG("(CID:%s)", fontname); + } + + /* + * The difference between CID-keyed font and TrueType font appears here. + * + * Glyph substitution for vertical writing is done in CMap mapping process + * for CID-keyed fonts. But we must rely on OpenType layout table in the + * case of TrueType fonts. So, we must use different used_chars for each + * horizontal and vertical fonts in that case. + * + * In most PDF file, encoding name is not appended to fontname for Type0 + * fonts having CIDFontType 2 font as their descendant. + */ + + font->used_chars = NULL; + font->flags = FLAG_NONE; + + switch (CIDFont_get_subtype(cidfont)) { + case CIDFONT_TYPE0: + font->fontname = NEW(strlen(fontname)+strlen(font->encoding)+2, char); + sprintf(font->fontname, "%s-%s", fontname, font->encoding); + pdf_add_dict(font->fontdict, + pdf_new_name("BaseFont"), pdf_new_name(font->fontname)); + /* + * Need used_chars to write W, W2. + */ + if ((parent_id = CIDFont_get_parent_id(cidfont, wmode ? 0 : 1)) < 0) + font->used_chars = new_used_chars2(); + else { + /* Don't allocate new one. */ + font->used_chars = Type0Font_get_usedchars(Type0Font_cache_get(parent_id)); + font->flags |= FLAG_USED_CHARS_SHARED; + } + break; + case CIDFONT_TYPE2: + /* + * TrueType: + * + * Use different used_chars for H and V. + */ + pdf_add_dict(font->fontdict, + pdf_new_name("BaseFont"), pdf_new_name(fontname)); + font->used_chars = new_used_chars2(); + break; + default: + ERROR("Unrecognized CIDFont Type"); + break; + } + + pdf_add_dict(font->fontdict, + pdf_new_name("Encoding"), pdf_new_name(font->encoding)); + + __cache.count++; + + return font_id; +} + +void +Type0Font_cache_close (void) +{ + int font_id; + + /* + * This need to be fixed. + * + * CIDFont_cache_close() before Type0Font_release because of used_chars. + * ToUnicode support want descendant CIDFont's CSI and fontname. + */ + if (__cache.fonts) { + for (font_id = 0; font_id < __cache.count; font_id++) + Type0Font_dofont(&__cache.fonts[font_id]); + } + CIDFont_cache_close(); + if (__cache.fonts) { + for (font_id = 0; font_id < __cache.count; font_id++) { + Type0Font_flush(&__cache.fonts[font_id]); + Type0Font_clean(&__cache.fonts[font_id]); + } + RELEASE(__cache.fonts); + } + __cache.fonts = NULL; + __cache.count = 0; + __cache.capacity = 0; +} + + +/************************************************************************/ + +int +pdf_font_findfont0 (const char *font_name, int cmap_id, fontmap_opt *fmap_opt) +{ + return Type0Font_cache_find(font_name, cmap_id, fmap_opt); +} + +/******************************** COMPAT ********************************/ + +#ifndef WITHOUT_COMPAT + +#include "cmap_read.h" +#include "cmap_write.h" +#include "pdfresource.h" +#include "pdfencoding.h" + +static pdf_obj * +create_dummy_CMap (void) +{ + pdf_obj *stream; + char buf[32]; + int i, n; + +#define CMAP_PART0 "\ +%!PS-Adobe-3.0 Resource-CMap\n\ +%%DocumentNeededResources: ProcSet (CIDInit)\n\ +%%IncludeResource: ProcSet (CIDInit)\n\ +%%BeginResource: CMap (Adobe-Identity-UCS2)\n\ +%%Title: (Adobe-Identity-UCS2 Adobe UCS2 0)\n\ +%%Version: 1.0\n\ +%%Copyright:\n\ +%% ---\n\ +%%EndComments\n\n\ +" +#define CMAP_PART1 "\ +/CIDInit /ProcSet findresource begin\n\ +\n\ +12 dict begin\n\nbegincmap\n\n\ +/CIDSystemInfo 3 dict dup begin\n\ + /Registry (Adobe) def\n\ + /Ordering (UCS2) def\n\ + /Supplement 0 def\n\ +end def\n\n\ +/CMapName /Adobe-Identity-UCS2 def\n\ +/CMapVersion 1.0 def\n\ +/CMapType 2 def\n\n\ +2 begincodespacerange\n\ +<0000> \n\ +endcodespacerange\n\ +" +#define CMAP_PART3 "\ +endcmap\n\n\ +CMapName currentdict /CMap defineresource pop\n\n\ +end\nend\n\n\ +%%EndResource\n\ +%%EOF\n\ +" + + stream = pdf_new_stream(STREAM_COMPRESS); + pdf_add_stream(stream, CMAP_PART0, strlen(CMAP_PART0)); + pdf_add_stream(stream, CMAP_PART1, strlen(CMAP_PART1)); + pdf_add_stream(stream, "\n100 beginbfrange\n", strlen("\n100 beginbfrange\n")); + for (i = 0; i < 0x64; i++) { + n = sprintf(buf, + "<%02X00> <%02XFF> <%02X00>\n", i, i, i); + pdf_add_stream(stream, buf, n); + } + pdf_add_stream(stream, "endbfrange\n\n", strlen("endbfrange\n\n")); + + pdf_add_stream(stream, "\n100 beginbfrange\n", strlen("\n100 beginbfrange\n")); + for (i = 0x64; i < 0xc8; i++) { + n = sprintf(buf, + "<%02X00> <%02XFF> <%02X00>\n", i, i, i); + pdf_add_stream(stream, buf, n); + } + pdf_add_stream(stream, "endbfrange\n\n", strlen("endbfrange\n\n")); + + pdf_add_stream(stream, "\n48 beginbfrange\n", strlen("\n48 beginbfrange\n")); + for (i = 0xc8; i <= 0xd7; i++) { + n = sprintf(buf, + "<%02X00> <%02XFF> <%02X00>\n", i, i, i); + pdf_add_stream(stream, buf, n); + } + for (i = 0xe0; i <= 0xff; i++) { + n = sprintf(buf, + "<%02X00> <%02XFF> <%02X00>\n", i, i, i); + pdf_add_stream(stream, buf, n); + } + pdf_add_stream(stream, "endbfrange\n\n", strlen("endbfrange\n\n")); + + pdf_add_stream(stream, CMAP_PART3, strlen(CMAP_PART3)); + + return stream; +} + +static pdf_obj * +pdf_read_ToUnicode_file (const char *cmap_name) +{ + pdf_obj *stream; + long res_id = -1; + + ASSERT(cmap_name); + + res_id = pdf_findresource("CMap", cmap_name); + if (res_id < 0) { + if (!strcmp(cmap_name, "Adobe-Identity-UCS2")) + stream = create_dummy_CMap(); + else { + stream = pdf_load_ToUnicode_stream(cmap_name); + } + if (stream) { + res_id = pdf_defineresource("CMap", + cmap_name, + stream, PDF_RES_FLUSH_IMMEDIATE); + } + } + + return (res_id < 0 ? NULL : pdf_get_resource_reference(res_id)); +} +#endif /* !WITHOUT_COMPAT */ diff --git a/Build/source/texk/xdvipdfmx/src/type0.h b/Build/source/texk/xdvipdfmx/src/type0.h new file mode 100644 index 00000000000..c3999ecd977 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/type0.h @@ -0,0 +1,56 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/type0.h,v 1.12 2004/09/05 13:30:06 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TYPE0_H_ +#define _TYPE0_H_ + +#include "pdfobj.h" + +#define add_to_used_chars2(b,c) {(b)[(c)/8] |= (1 << (7-((c)%8)));} +#define is_used_char2(b,c) (((b)[(c)/8]) & (1 << (7-((c)%8)))) + +typedef struct Type0Font Type0Font; + +extern void Type0Font_set_verbose (void); + +extern int Type0Font_get_wmode (Type0Font *font); +extern char *Type0Font_get_encoding (Type0Font *font); +extern char *Type0Font_get_usedchars (Type0Font *font); + +extern pdf_obj *Type0Font_get_resource (Type0Font *font); + +extern void Type0Font_set_ToUnicode (Type0Font *font, pdf_obj *cmap_ref); + +#include "fontmap.h" +extern int pdf_font_findfont0 (const char *font_name, + int cmap_id, fontmap_opt *fmap_opt); + +extern unsigned short *Type0Font_get_ft_to_gid(int id); + +/******************************** CACHE ********************************/ + +extern void Type0Font_cache_init (void); +extern Type0Font *Type0Font_cache_get (int id); +extern int Type0Font_cache_find (const char *map_name, int cmap_id, fontmap_opt *fmap_opt); +extern void Type0Font_cache_close (void); + +#endif /* _TYPE0_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/type1.c b/Build/source/texk/xdvipdfmx/src/type1.c new file mode 100644 index 00000000000..e896508210e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/type1.c @@ -0,0 +1,811 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/type1.c,v 1.38 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxfile.h" + +#include "numbers.h" + +#include "pdfobj.h" +#include "pdffont.h" + +#include "pdfencoding.h" +#include "unicode.h" + +#include "dpxutil.h" + +#include "pst_obj.h" +#include "pst.h" + +#include "cff_limits.h" +#include "cff_types.h" +#include "cff_dict.h" +#include "cff.h" + +#include "t1_load.h" +#include "t1_char.h" + +#include "type1.h" + +#define FONT_FLAG_FIXEDPITCH (1 << 0) /* Fixed-width font */ +#define FONT_FLAG_SERIF (1 << 1) /* Serif font */ +#define FONT_FLAG_SYMBOLIC (1 << 2) /* Symbolic font */ +#define FONT_FLAG_SCRIPT (1 << 3) /* Script font */ +#define FONT_FLAG_STANDARD (1 << 5) /* Adobe Standard Character Set */ +#define FONT_FLAG_ITALIC (1 << 6) /* Italic */ +#define FONT_FLAG_ALLCAP (1 << 16) /* All-cap font */ +#define FONT_FLAG_SMALLCAP (1 << 17) /* Small-cap font */ +#define FONT_FLAG_FORCEBOLD (1 << 18) /* Force bold at small text sizes */ + +static int +is_basefont (const char *name) +{ + static const char *basefonts[] = { + "Courier", "Courier-Bold", "Courier-Oblique", + "Courier-BoldOblique", "Helvetica", "Helvetica-Bold", + "Helvetica-Oblique", "Helvetica-BoldOblique", "Symbol", + "Times-Roman", "Times-Bold", "Times-Italic", + "Times-BoldItalic", "ZapfDingbats" + }; + int i; + + for (i = 0; i < 14; i++) { + if (!strcmp(name, basefonts[i])) + return 1; + } + + return 0; +} + +int +pdf_font_open_type1 (pdf_font *font) +{ + char *ident; + FILE *fp; + char fontname[PDF_NAME_LEN_MAX+1]; + + ASSERT(font); + + ident = pdf_font_get_ident(font); + + if (is_basefont(ident)) { + pdf_font_set_fontname(font, ident); + pdf_font_set_subtype (font, PDF_FONT_FONTTYPE_TYPE1); + pdf_font_set_flags (font, + (PDF_FONT_FLAG_NOEMBED|PDF_FONT_FLAG_BASEFONT)); + } else { + fp = DPXFOPEN(ident, DPX_RES_TYPE_T1FONT); + if (!fp) + return -1; + + memset(fontname, 0, PDF_NAME_LEN_MAX+1); + if (!is_pfb(fp) || t1_get_fontname(fp, fontname) < 0) { + ERROR("Failed to read Type 1 font \"%s\".", ident); + } + DPXFCLOSE(fp); + + pdf_font_set_fontname(font, fontname); + pdf_font_set_subtype (font, PDF_FONT_FONTTYPE_TYPE1); + } + + return 0; +} + +static void +get_font_attr (pdf_font *font, cff_font *cffont) +{ + char *fontname; + pdf_obj *descriptor; + double capheight, ascent, descent; + double italicangle, stemv; + double defaultwidth, nominalwidth; + long flags = 0, gid, i; + static const char *L_c[] = { + "H", "P", "Pi", "Rho", NULL + }; + static const char *L_d[] = { + "p", "q", "mu", "eta", NULL + }; + static const char *L_a[] = { + "b", "h", "lambda", NULL + }; + t1_ginfo gm; + + defaultwidth = 500.0; + nominalwidth = 0.0; + + /* + * CapHeight, Ascent, and Descent is meaningfull only for Latin/Greek/Cyrillic. + * The BlueValues and OtherBlues also have those information. + */ + if (cff_dict_known(cffont->topdict, "FontBBox")) { + /* Default values */ + capheight = ascent = cff_dict_get(cffont->topdict, "FontBBox", 3); + descent = cff_dict_get(cffont->topdict, "FontBBox", 1); + } else { + capheight = 680.0; + ascent = 690.0; + descent = -190.0; + } + if (cff_dict_known(cffont->private[0], "StdVW")) { + stemv = cff_dict_get(cffont->private[0], "StdVW", 0); + } else { + /* + * We may use the following values for StemV: + * Thin - ExtraLight: <= 50 + * Light: 71 + * Regular(Normal): 88 + * Medium: 109 + * SemiBold(DemiBold): 135 + * Bold - Heavy: >= 166 + */ + stemv = 88.0; + } + if (cff_dict_known(cffont->topdict, "ItalicAngle")) { + italicangle = cff_dict_get(cffont->topdict, "ItalicAngle", 0); + if (italicangle != 0.0) + flags |= FONT_FLAG_ITALIC; + } else { + italicangle = 0.0; + } + + /* + * Use "space", "H", "p", and "b" for various values. + * Those characters should not "seac". (no accent) + */ + gid = cff_glyph_lookup(cffont, "space"); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + defaultwidth = gm.wx; + } + + for (i = 0; L_c[i] != NULL; i++) { + gid = cff_glyph_lookup(cffont, L_c[i]); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + capheight = gm.bbox.ury; + break; + } + } + + for (i = 0; L_d[i] != NULL; i++) { + gid = cff_glyph_lookup(cffont, L_d[i]); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + descent = gm.bbox.lly; + break; + } + } + + for (i = 0; L_a[i] != NULL; i++) { + gid = cff_glyph_lookup(cffont, L_a[i]); + if (gid >= 0 && gid < cffont->cstrings->count) { + t1char_get_metrics(cffont->cstrings->data + cffont->cstrings->offset[gid] - 1, + cffont->cstrings->offset[gid+1] - cffont->cstrings->offset[gid], + cffont->subrs[0], &gm); + ascent = gm.bbox.ury; + break; + } + } + + if (defaultwidth != 0.0) { + cff_dict_add(cffont->private[0], "defaultWidthX", 1); + cff_dict_set(cffont->private[0], "defaultWidthX", 0, defaultwidth); + } + if (nominalwidth != 0.0) { + cff_dict_add(cffont->private[0], "nominalWidthX", 1); + cff_dict_set(cffont->private[0], "nominalWidthX", 0, nominalwidth); + } + if (cff_dict_known(cffont->private[0], "ForceBold") && + cff_dict_get(cffont->private[0], "ForceBold", 0)) { + flags |= FONT_FLAG_FORCEBOLD; + } + if (cff_dict_known(cffont->private[0], "IsFixedPitch") && + cff_dict_get(cffont->private[0], "IsFixedPitch", 0)) { + flags |= FONT_FLAG_FIXEDPITCH; + } + + fontname = pdf_font_get_fontname (font); + descriptor = pdf_font_get_descriptor(font); + + if (fontname && !strstr(fontname, "Sans")) { + flags |= FONT_FLAG_SERIF; + } + if (fontname && strstr(fontname, "Caps")) { + flags |= FONT_FLAG_SMALLCAP; + } + flags |= FONT_FLAG_SYMBOLIC; /* FIXME */ + + pdf_add_dict(descriptor, + pdf_new_name("CapHeight"), pdf_new_number(capheight)); + pdf_add_dict(descriptor, + pdf_new_name("Ascent"), pdf_new_number(ascent)); + pdf_add_dict(descriptor, + pdf_new_name("Descent"), pdf_new_number(descent)); + pdf_add_dict(descriptor, + pdf_new_name("ItalicAngle"), pdf_new_number(italicangle)); + pdf_add_dict(descriptor, + pdf_new_name("StemV"), pdf_new_number(stemv)); + pdf_add_dict(descriptor, + pdf_new_name("Flags"), pdf_new_number(flags)); +} + +static void +add_metrics (pdf_font *font, cff_font *cffont, double *widths, long num_glyphs) +{ + pdf_obj *fontdict, *descriptor; + pdf_obj *tmp_array; + int code, firstchar, lastchar; + double val; + card16 gid; + int i; + char *usedchars; + + fontdict = pdf_font_get_resource (font); + descriptor = pdf_font_get_descriptor(font); + usedchars = pdf_font_get_usedchars (font); + + /* + * The original FontBBox of the font is preserved, instead + * of replacing it with tight bounding box calculated from + * charstrings, to prevent Acrobat 4 from greeking text as + * much as possible. + */ + if (!cff_dict_known(cffont->topdict, "FontBBox")) { + ERROR("No FontBBox?"); + } + + tmp_array = pdf_new_array(); + for (i = 0; i < 4; i++) { + val = cff_dict_get(cffont->topdict, "FontBBox", i); + pdf_add_array(tmp_array, pdf_new_number(ROUND(val, 1.0))); + } + pdf_add_dict(descriptor, pdf_new_name("FontBBox"), tmp_array); + + tmp_array = pdf_new_array(); + if (num_glyphs <= 1) { + /* This should be error. */ + firstchar = lastchar = 0; + pdf_add_array(tmp_array, pdf_new_number(0.0)); + } else { + for (firstchar = 255, lastchar = 0, code = 0; + code < 256; code++) { + if (usedchars[code]) { + if (code < firstchar) + firstchar = code; + if (code > lastchar) + lastchar = code; + } + } + if (firstchar > lastchar) { + WARN("No glyphs actually used???"); + pdf_release_obj(tmp_array); + return; + } + for (code = firstchar; code <= lastchar; code++) { + if (usedchars[code]) { + gid = cff_encoding_lookup(cffont, code); + pdf_add_array(tmp_array, + pdf_new_number(ROUND(widths[gid], 1.0))); + } else { + pdf_add_array(tmp_array, pdf_new_number(0.0)); + } + } + + } + if (pdf_array_length(tmp_array) > 0) { + pdf_add_dict(fontdict, + pdf_new_name("Widths"), pdf_ref_obj(tmp_array)); + } + pdf_release_obj(tmp_array); + + pdf_add_dict(fontdict, + pdf_new_name("FirstChar"), pdf_new_number(firstchar)); + pdf_add_dict(fontdict, + pdf_new_name("LastChar"), pdf_new_number(lastchar)); + + return; +} + +static long +write_fontfile (pdf_font *font, cff_font *cffont, long num_glyphs) +{ + pdf_obj *descriptor; + pdf_obj *fontfile, *stream_dict; + cff_index *topdict; + long private_size, stream_data_len, charstring_len; + long topdict_offset, offset; +#define WBUF_SIZE 1024 + card8 *stream_data_ptr, wbuf[WBUF_SIZE]; + + descriptor = pdf_font_get_descriptor(font); + + topdict = cff_new_index(1); + /* + * Force existence of Encoding. + */ + if (!cff_dict_known(cffont->topdict, "CharStrings")) + cff_dict_add(cffont->topdict, "CharStrings", 1); + if (!cff_dict_known(cffont->topdict, "charset")) + cff_dict_add(cffont->topdict, "charset", 1); + if (!cff_dict_known(cffont->topdict, "Encoding")) + cff_dict_add(cffont->topdict, "Encoding", 1); + private_size = cff_dict_pack((cffont->private)[0], wbuf, WBUF_SIZE); + if (private_size > 0 && !cff_dict_known(cffont->topdict, "Private")) + cff_dict_add(cffont->topdict, "Private", 2); + topdict->offset[1] = cff_dict_pack(cffont->topdict, wbuf, WBUF_SIZE) + 1; + + /* + * Estimate total size of fontfile. + */ + charstring_len = cff_index_size(cffont->cstrings); + + stream_data_len = 4; /* header size */ + stream_data_len += cff_index_size(cffont->name); + stream_data_len += cff_index_size(topdict); + stream_data_len += cff_index_size(cffont->string); + stream_data_len += cff_index_size(cffont->gsubr); + /* We are using format 1 for Encoding and format 0 for charset. + * TODO: Should implement cff_xxx_size(). + */ + stream_data_len += 2 + (cffont->encoding->num_entries)*2 + 1 + (cffont->encoding->num_supps)*3; + stream_data_len += 1 + (cffont->charsets->num_entries)*2; + stream_data_len += charstring_len; + stream_data_len += private_size; + + /* + * Now we create FontFile data. + */ + stream_data_ptr = NEW(stream_data_len, card8); + /* + * Data Layout order as described in CFF spec., sec 2 "Data Layout". + */ + offset = 0; + /* Header */ + offset += cff_put_header(cffont, + stream_data_ptr + offset, stream_data_len - offset); + /* Name */ + offset += cff_pack_index(cffont->name, + stream_data_ptr + offset, stream_data_len - offset); + /* Top DICT */ + topdict_offset = offset; + offset += cff_index_size(topdict); + /* Strings */ + offset += cff_pack_index(cffont->string, + stream_data_ptr + offset, stream_data_len - offset); + /* Global Subrs */ + offset += cff_pack_index(cffont->gsubr, + stream_data_ptr + offset, stream_data_len - offset); + /* Encoding */ + cff_dict_set(cffont->topdict, "Encoding", 0, offset); + offset += cff_pack_encoding(cffont, + stream_data_ptr + offset, stream_data_len - offset); + /* charset */ + cff_dict_set(cffont->topdict, "charset", 0, offset); + offset += cff_pack_charsets(cffont, + stream_data_ptr + offset, stream_data_len - offset); + /* CharStrings */ + cff_dict_set(cffont->topdict, "CharStrings", 0, offset); + offset += cff_pack_index(cffont->cstrings, + stream_data_ptr + offset, charstring_len); + /* Private */ + if ((cffont->private)[0] && private_size > 0) { + private_size = cff_dict_pack(cffont->private[0], + stream_data_ptr + offset, private_size); + cff_dict_set(cffont->topdict, "Private", 1, offset); + cff_dict_set(cffont->topdict, "Private", 0, private_size); + } + offset += private_size; + + /* Finally Top DICT */ + topdict->data = NEW(topdict->offset[1] - 1, card8); + cff_dict_pack (cffont->topdict, topdict->data, topdict->offset[1] - 1); + cff_pack_index(topdict, + stream_data_ptr + topdict_offset, cff_index_size(topdict)); + cff_release_index(topdict); + + /* Copyright and Trademark Notice ommited. */ + + /* Flush Font File */ + fontfile = pdf_new_stream(STREAM_COMPRESS); + stream_dict = pdf_stream_dict(fontfile); + pdf_add_dict(descriptor, + pdf_new_name("FontFile3"), pdf_ref_obj (fontfile)); + pdf_add_dict(stream_dict, + pdf_new_name("Subtype"), pdf_new_name("Type1C")); + pdf_add_stream (fontfile, (void *) stream_data_ptr, offset); + pdf_release_obj(fontfile); + + RELEASE(stream_data_ptr); + + return offset; +} + + +int +pdf_font_load_type1 (pdf_font *font) +{ + pdf_obj *fontdict, *descriptor; + int encoding_id; + char *usedchars, *ident; + char *fontname, *uniqueTag; + char *fullname; /* With pseudo unique tag */ + cff_font *cffont; + cff_charsets *charset; + char **enc_vec; + double defaultwidth, nominalwidth; + double *widths; + card16 *GIDMap, num_glyphs = 0; + FILE *fp; + long offset; + int code, verbose; + + ASSERT(font); + + if (!pdf_font_is_in_use(font)) { + return 0; + } + + verbose = pdf_font_get_verbose(); + + encoding_id = pdf_font_get_encoding (font); + fontdict = pdf_font_get_resource (font); + + if (pdf_font_get_flag(font, PDF_FONT_FLAG_BASEFONT)) { + if (encoding_id >= 0) { + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), + pdf_get_encoding_reference(encoding_id)); + } + return 0; + } + + descriptor = pdf_font_get_descriptor(font); + usedchars = pdf_font_get_usedchars (font); + ident = pdf_font_get_ident (font); + fontname = pdf_font_get_fontname (font); + uniqueTag = pdf_font_get_uniqueTag (font); + if (!usedchars || !ident || !fontname) { + ERROR("Type1: Unexpected error."); + } + + fp = DPXFOPEN(ident, DPX_RES_TYPE_T1FONT); + if (!fp) { + ERROR("Type1: Could not open Type1 font: %s", ident); + } + + GIDMap = NULL; + num_glyphs = 0; + + if (encoding_id >= 0) { + enc_vec = NULL; + } else { + enc_vec = NEW(256, char *); + for (code = 0; code <= 0xff; code++) { + enc_vec[code] = NULL; + } + } + + cffont = t1_load_font(enc_vec, 0, fp); + if (!cffont) { + ERROR("Could not load Type 1 font: %s", ident); + } + DPXFCLOSE(fp); + + fullname = NEW(strlen(fontname) + 8, char); + sprintf(fullname, "%6s+%s", uniqueTag, fontname); + + /* + * Encoding related things. + */ + if (encoding_id >= 0) { + if (pdf_encoding_is_predefined(encoding_id)) { + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), + pdf_new_name(pdf_encoding_get_name(encoding_id))); + } else { +#if 0 + /* + * Gs not working with this. + */ + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), + pdf_get_encoding_resource(enc)); +#endif + if (!pdf_lookup_dict(fontdict, "ToUnicode")) + pdf_attach_ToUnicode_CMap(fontdict, encoding_id, usedchars); + } + enc_vec = pdf_encoding_get_encoding(encoding_id); + } else { + pdf_obj *tounicode; + + /* + * Create enc_vec and ToUnicode CMap for built-in encoding. + */ + if (!pdf_lookup_dict(fontdict, "ToUnicode")) { + tounicode = pdf_create_ToUnicode_CMap(fullname, + enc_vec, usedchars); + if (tounicode) { + pdf_add_dict(fontdict, + pdf_new_name("ToUnicode"), + pdf_ref_obj (tounicode)); + pdf_release_obj(tounicode); + } + } + } + + cff_set_name(cffont, fullname); + RELEASE(fullname); + + /* defaultWidthX, CapHeight, etc. */ + get_font_attr(font, cffont); + if (cff_dict_known(cffont->private[0], "defaultWidthX")) { + defaultwidth = cff_dict_get(cffont->private[0], "defaultWidthX", 0); + } else { + defaultwidth = 0.0; + } + if (cff_dict_known(cffont->private[0], "nominalWidthX")) { + nominalwidth = cff_dict_get(cffont->private[0], "nominalWidthX", 0); + } else { + nominalwidth = 0.0; + } + + /* Create CFF encoding, charset, sort glyphs */ +#define MAX_GLYPHS 1024 + GIDMap = NEW(MAX_GLYPHS, card16); + { + int prev, duplicate; + long gid; + char *glyph; + s_SID sid; + + cffont->encoding = NEW(1, cff_encoding); + cffont->encoding->format = 1; + cffont->encoding->num_entries = 0; + cffont->encoding->data.range1 = NEW(256, cff_range1); + cffont->encoding->num_supps = 0; + cffont->encoding->supp = NEW(256, cff_map); + + charset = NEW(1, cff_charsets); + charset->format = 0; + charset->num_entries = 0; + charset->data.glyphs = NEW(MAX_GLYPHS, s_SID); + + gid = cff_glyph_lookup(cffont, ".notdef"); + if (gid < 0) + ERROR("Type 1 font with no \".notdef\" glyph???"); + GIDMap[0] = (card16) gid; + if (verbose > 2) + MESG("[glyphs:/.notdef"); + num_glyphs = 1; + for (prev = -2, code = 0; code <= 0xff; code++) { + glyph = enc_vec[code]; + + if (!usedchars[code]) + continue; + if (glyph && !strcmp(glyph, ".notdef")) { + WARN("Character mapped to .notdef used in font: %s", + fontname); + usedchars[code] = 0; + continue; + } + + gid = cff_glyph_lookup(cffont, glyph); + if (gid < 1 || gid >= cffont->cstrings->count) { + WARN("Glyph \"%s\" missing in font \"%s\".", glyph, fontname); + usedchars[code] = 0; + continue; + } + + for (duplicate = 0; duplicate < code; duplicate++) { + if (usedchars[duplicate] && + enc_vec[duplicate] && !strcmp(enc_vec[duplicate], glyph)) + break; + } + + sid = cff_add_string(cffont, glyph); /* FIXME */ + if (duplicate < code) { /* found duplicates */ + cffont->encoding->supp[cffont->encoding->num_supps].code = duplicate; + cffont->encoding->supp[cffont->encoding->num_supps].glyph = sid; + cffont->encoding->num_supps += 1; + } else { + GIDMap[num_glyphs] = (card16) gid; + charset->data.glyphs[charset->num_entries] = sid; + charset->num_entries += 1; + if (code != prev + 1) { + cffont->encoding->num_entries += 1; + cffont->encoding->data.range1[cffont->encoding->num_entries-1].first = code; + cffont->encoding->data.range1[cffont->encoding->num_entries-1].n_left = 0; + } else { + cffont->encoding->data.range1[cffont->encoding->num_entries-1].n_left += 1; + } + prev = code; + num_glyphs++; + + if (verbose > 2) { + MESG("/%s", glyph); + } + + } + } + if (cffont->encoding->num_supps > 0) { + cffont->encoding->format |= 0x80; + } else { + RELEASE(cffont->encoding->supp); /* FIXME */ + cffont->encoding->supp = NULL; + } + } + + widths = NEW(cffont->cstrings->count, double); + /* + * No more string will be added. + * The Type 1 seac operator may add another glyph but the glyph name of + * those glyphs are contained in standard string. The String Index will + * not be modified after here. + */ + cff_dict_update (cffont->topdict, cffont); + cff_dict_update (cffont->private[0], cffont); + cff_update_string(cffont); + + { + cff_index *cstring; + t1_ginfo gm; + card16 gid, gid_orig; + long dstlen_max, srclen; + int have_seac = 0; + card8 *srcptr, *dstptr; + + offset = dstlen_max = 0L; + cstring = cff_new_index(cffont->cstrings->count); + cstring->data = NULL; + cstring->offset[0] = 1; + + /* The num_glyphs increases if "seac" operators are used. */ + for (gid = 0; gid < num_glyphs; gid++) { + if (offset + CS_STR_LEN_MAX >= dstlen_max) { + dstlen_max += CS_STR_LEN_MAX * 2; + cstring->data = RENEW(cstring->data, dstlen_max, card8); + } + gid_orig = GIDMap[gid]; + + dstptr = cstring->data + cstring->offset[gid] - 1; + srcptr = cffont->cstrings->data + cffont->cstrings->offset[gid_orig] - 1; + srclen = cffont->cstrings->offset[gid_orig + 1] - cffont->cstrings->offset[gid_orig]; + + offset += t1char_convert_charstring(dstptr, CS_STR_LEN_MAX, + srcptr, srclen, + cffont->subrs[0], defaultwidth, nominalwidth, &gm); + cstring->offset[gid + 1] = offset + 1; + if (gm.use_seac) { + long bchar_gid, achar_gid, i; + char *bchar_name, *achar_name; + + /* + * NOTE: + * 1. seac.achar and seac.bchar must be contained in the CFF standard string. + * 2. Those characters need not to be encoded. + * 3. num_glyphs == charsets->num_entries + 1. + */ + achar_name = t1_get_standard_glyph(gm.seac.achar); + achar_gid = cff_glyph_lookup(cffont, achar_name); + bchar_name = t1_get_standard_glyph(gm.seac.bchar); + bchar_gid = cff_glyph_lookup(cffont, bchar_name); + if (achar_gid < 0) { + WARN("Accent char \"%s\" not found. Invalid use of \"seac\" operator.", + achar_name); + continue; + } + if (bchar_gid < 0) { + WARN("Base char \"%s\" not found. Invalid use of \"seac\" operator.", + bchar_name); + continue; + } + + for (i = 0; i < num_glyphs; i++) { + if (GIDMap[i] == achar_gid) + break; + } + if (i == num_glyphs) { + if (verbose > 2) + MESG("/%s", achar_name); + GIDMap[num_glyphs++] = achar_gid; + charset->data.glyphs[charset->num_entries] = cff_get_sid(cffont, achar_name); + charset->num_entries += 1; + } + + for (i = 0; i < num_glyphs; i++) { + if (GIDMap[i] == bchar_gid) + break; + } + if (i == num_glyphs) { + if (verbose > 2) + MESG("/%s", bchar_name); + GIDMap[num_glyphs++] = bchar_gid; + charset->data.glyphs[charset->num_entries] = cff_get_sid(cffont, bchar_name); + charset->num_entries += 1; + } + have_seac = 1; + } + widths[gid] = gm.wx; + } + cstring->count = num_glyphs; + + cff_release_index(cffont->subrs[0]); + cffont->subrs[0] = NULL; + RELEASE(cffont->subrs); + cffont->subrs = NULL; + + cff_release_index(cffont->cstrings); + cffont->cstrings = cstring; + + cff_release_charsets(cffont->charsets); + cffont->charsets = charset; + } + if (verbose > 2) + MESG("]"); + + add_metrics(font, cffont, widths, num_glyphs); + + offset = write_fontfile(font, cffont, num_glyphs); + if (verbose > 1) + MESG("[%u glyphs][%ld bytes]", num_glyphs, offset); + + cff_close(cffont); + + /* Cleanup */ + if (encoding_id < 0 && enc_vec) { + for (code = 0; code < 256; code++) { + if (enc_vec[code]) + RELEASE(enc_vec[code]); + enc_vec[code] = NULL; + } + RELEASE(enc_vec); + } + if (widths) + RELEASE(widths); + if (GIDMap) + RELEASE(GIDMap); + + /* + * Maybe writing Charset is recommended for subsetted font. + */ + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/type1.h b/Build/source/texk/xdvipdfmx/src/type1.h new file mode 100644 index 00000000000..d6ade0c55fe --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/type1.h @@ -0,0 +1,33 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/type1.h,v 1.6 2004/09/02 12:23:07 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TYPE1_H_ +#define _TYPE1_H_ + +#include "pdffont.h" + +extern int pdf_font_open_type1 (pdf_font *font); +extern int pdf_font_load_type1 (pdf_font *font); + +#endif /* _TYPE1_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/type1c.c b/Build/source/texk/xdvipdfmx/src/type1c.c new file mode 100644 index 00000000000..ae91baafe22 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/type1c.c @@ -0,0 +1,741 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/type1c.c,v 1.21 2005/07/17 09:53:38 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * CFF/OpenType Font support: + * + * Adobe Technical Note #5176, "The Compact Font Format Specfication" + * + * NOTE: + * + * Many CFF/OpenType does not have meaningful/correct CFF encoding. + * Encoding should be expilicitly supplied in the fontmap. + * + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" + +#include "dpxfile.h" + +#include "pdfobj.h" +#include "pdffont.h" + +#include "pdfencoding.h" +#include "unicode.h" + +/* Font info. from OpenType tables */ +#include "sfnt.h" +#include "tt_aux.h" + +#include "cff_types.h" +#include "cff_limits.h" +#include "cff.h" +#include "cff_dict.h" +#include "cs_type2.h" + +#include "type1c.h" + +int +pdf_font_open_type1c (pdf_font *font) +{ + char *ident, *fontname; + FILE *fp = NULL; + sfnt *sfont; + cff_font *cffont; + pdf_obj *descriptor, *tmp; + unsigned long offset = 0; + int encoding_id, embedding; + + ASSERT(font); + + ident = pdf_font_get_ident (font); + encoding_id = pdf_font_get_encoding(font); + +#ifdef XETEX + sfont = sfnt_open(pdf_font_get_ft_face(font), SFNT_TYPE_POSTSCRIPT); + if (!sfont) + return -1; +#else + fp = DPXFOPEN(ident, DPX_RES_TYPE_OTFONT); + if (!fp) + return -1; + + sfont = sfnt_open(fp); +#endif + if (!sfont || + sfont->type != SFNT_TYPE_POSTSCRIPT || + sfnt_read_table_directory(sfont, 0) < 0) { + ERROR("Not a CFF/OpenType font?"); + } + + offset = sfnt_find_table_pos(sfont, "CFF "); + if (offset < 1) { + ERROR("No \"CFF \" table found. Not a CFF/OpenType font?"); + } + + cffont = cff_open(sfont, offset, 0); + if (!cffont) { + ERROR("Could not read CFF font data"); + } + + if (cffont->flag & FONTTYPE_CIDFONT) { + cff_close (cffont); + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + return -1; + } + + fontname = cff_get_name(cffont); + if (!fontname) { + ERROR("No valid FontName found in CFF/OpenType font."); + } + pdf_font_set_fontname(font, fontname); + RELEASE(fontname); + + cff_close(cffont); + + /* + * Font like AdobePiStd does not have meaningful built-in encoding. + * Some software generate CFF/OpenType font with incorrect encoding. + */ + if (encoding_id < 0) { + WARN("Built-in encoding used for CFF/OpenType font."); + WARN("CFF font in OpenType font sometimes have strange built-in encoding."); + WARN("If you find text is not encoded properly in the generated PDF file,"); + WARN("please specify appropriate \".enc\" file in your fontmap."); + } + pdf_font_set_subtype (font, PDF_FONT_FONTTYPE_TYPE1C); + + embedding = pdf_font_get_flag(font, PDF_FONT_FLAG_NOEMBED) ? 0 : 1; + descriptor = pdf_font_get_descriptor(font); + /* + * Create font descriptor from OpenType tables. + * We can also use CFF TOP DICT/Private DICT for this. + */ + tmp = tt_get_fontdesc(sfont, &embedding, 1); + if (!tmp) { + ERROR("Could not obtain neccesary font info from OpenType table."); + return -1; + } + pdf_merge_dict (descriptor, tmp); /* copy */ + pdf_release_obj(tmp); + if (!embedding) { /* tt_get_fontdesc may have changed this */ + pdf_font_set_flags(font, PDF_FONT_FLAG_NOEMBED); + } + + sfnt_close(sfont); + if (fp) + DPXFCLOSE(fp); + + return 0; +} + +static void +add_SimpleMetrics (pdf_font *font, double *widths, card16 num_glyphs) +{ + pdf_obj *fontdict; + int code, firstchar, lastchar; + char *usedchars; + pdf_obj *tmp_array; + + fontdict = pdf_font_get_resource(font); + usedchars = pdf_font_get_usedchars(font); + + tmp_array = pdf_new_array(); + if (num_glyphs <= 1) { + /* This should be error. */ + firstchar = lastchar = 0; + pdf_add_array(tmp_array, pdf_new_number(0.0)); + } else { + firstchar = 255; lastchar = 0; + for (code = 0; code < 256; code++) { + if (usedchars[code]) { + if (code < firstchar) firstchar = code; + if (code > lastchar) lastchar = code; + } + } + if (firstchar > lastchar) { + ERROR("No glyphs used at all!"); + pdf_release_obj(tmp_array); + return; + } + for (code = firstchar; code <= lastchar; code++) { + if (usedchars[code]) { + pdf_add_array(tmp_array, + pdf_new_number(ROUND(widths[code], 1.0))); + } else { + pdf_add_array(tmp_array, pdf_new_number(0.0)); + } + } + } + if (pdf_array_length(tmp_array) > 0) { + pdf_add_dict(fontdict, + pdf_new_name("Widths"), pdf_ref_obj(tmp_array)); + } + pdf_release_obj(tmp_array); + + pdf_add_dict(fontdict, + pdf_new_name("FirstChar"), pdf_new_number(firstchar)); + pdf_add_dict(fontdict, + pdf_new_name("LastChar"), pdf_new_number(lastchar)); + + return; +} + +int +pdf_font_load_type1c (pdf_font *font) +{ + pdf_obj *fontdict, *descriptor; + char *usedchars; + char *fontname, *uniqueTag, *ident, *fullname; + FILE *fp = NULL; + int encoding_id; + pdf_obj *fontfile, *stream_dict; + char **enc_vec; + sfnt *sfont; + cff_font *cffont; + cff_index *charstrings, *topdict, *cs_idx; + cff_charsets *charset = NULL; + cff_encoding *encoding = NULL; + long topdict_offset, private_size; + long charstring_len, max_len; + long size, offset = 0; + long stream_data_len = 0; + card8 *stream_data_ptr, *data; + card16 num_glyphs, cs_count, code; + cs_ginfo ginfo; + double nominal_width, default_width, notdef_width; + double widths[256]; + int verbose; + + ASSERT(font); + + verbose = pdf_font_get_verbose(); + + if (!pdf_font_is_in_use(font)) { + return 0; + } + + if (pdf_font_get_flag(font, PDF_FONT_FLAG_NOEMBED)) { + ERROR("Only embedded font supported for CFF/OpenType font."); + } + + usedchars = pdf_font_get_usedchars (font); + fontname = pdf_font_get_fontname (font); + ident = pdf_font_get_ident (font); + uniqueTag = pdf_font_get_uniqueTag (font); + if (!usedchars || + !fontname || !ident) { + ERROR("Unexpected error...."); + } + + fontdict = pdf_font_get_resource (font); + descriptor = pdf_font_get_descriptor(font); + encoding_id = pdf_font_get_encoding (font); + +#ifdef XETEX + sfont = sfnt_open(pdf_font_get_ft_face(font), SFNT_TYPE_POSTSCRIPT); +#else + fp = DPXFOPEN(ident, DPX_RES_TYPE_OTFONT); + if (!fp) { + ERROR("Could not open OpenType font: %s", ident); + } + + sfont = sfnt_open(fp); +#endif + if (!sfont) { + ERROR("Could not open OpenType font: %s", ident); + } + if (sfnt_read_table_directory(sfont, 0) < 0) { + ERROR("Could not read OpenType table directory: %s", ident); + } + if (sfont->type != SFNT_TYPE_POSTSCRIPT || + (offset = sfnt_find_table_pos(sfont, "CFF ")) == 0) { + ERROR("Not a CFF/OpenType font ?"); + } + + cffont = cff_open(sfont, offset, 0); + if (!cffont) { + ERROR("Could not open CFF font."); + } + if (cffont->flag & FONTTYPE_CIDFONT) { + ERROR("This is CIDFont..."); + } + + fullname = NEW(strlen(fontname) + 8, char); + sprintf(fullname, "%6s+%s", uniqueTag, fontname); + + /* Offsets from DICTs */ + cff_read_charsets(cffont); + if (encoding_id < 0) + cff_read_encoding(cffont); + cff_read_private(cffont); + cff_read_subrs (cffont); + + /* FIXME */ + cffont->_string = cff_new_index(0); + + /* New Charsets data */ + charset = NEW(1, cff_charsets); + charset->format = 0; + charset->num_entries = 0; + charset->data.glyphs = NEW(256, s_SID); + + /* + * Encoding related things. + */ + enc_vec = NULL; + if (encoding_id >= 0) { + if (pdf_encoding_is_predefined(encoding_id)) { + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), + pdf_new_name(pdf_encoding_get_name(encoding_id))); + } else { +#if 0 + /* + * Gs not working with this. + */ + pdf_add_dict(fontdict, + pdf_new_name("Encoding"), + pdf_get_encoding_reference(encoding_id)); +#endif + if (!pdf_lookup_dict(fontdict, "ToUnicode")) + pdf_attach_ToUnicode_CMap(fontdict, encoding_id, usedchars); + } + enc_vec = pdf_encoding_get_encoding(encoding_id); + } else { + pdf_obj *tounicode; + + /* + * Create enc_vec and ToUnicode CMap for built-in encoding. + */ + enc_vec = NEW(256, char *); + for (code = 0; code < 256; code++) { + if (usedchars[code]) { + card16 gid; + + gid = cff_encoding_lookup(cffont, code); + enc_vec[code] = cff_get_string(cffont, + cff_charsets_lookup_inverse(cffont, gid)); + } else { + enc_vec[code] = NULL; + } + } + if (!pdf_lookup_dict(fontdict, "ToUnicode")) { + tounicode = pdf_create_ToUnicode_CMap(fullname, + enc_vec, usedchars); + if (tounicode) { + pdf_add_dict(fontdict, + pdf_new_name("ToUnicode"), + pdf_ref_obj (tounicode)); + pdf_release_obj(tounicode); + } + } + } + + /* + * New Encoding data: + * + * We should not use format 0 here. + * The number of encoded glyphs (num_entries) is limited to 255 in format 0, + * and hence it causes problem for encodings that uses full 256 code-points. + * As we always sort glyphs by encoding, we can avoid this problem simply + * by using format 1; Using full range result in a single range, 0 255. + * + * Creating actual encoding date is delayed to eliminate character codes to + * be mapped to .notdef and to handle multiply-encoded glyphs. + */ + encoding = NEW(1, cff_encoding); + encoding->format = 1; + encoding->num_entries = 0; + encoding->data.range1 = NEW(255, cff_range1); + encoding->num_supps = 0; + encoding->supp = NEW(255, cff_map); + + /* + * Charastrings. + */ + offset = (long) cff_dict_get(cffont->topdict, "CharStrings", 0); + cff_seek_set(cffont, offset); + cs_idx = cff_get_index_header(cffont); + + /* Offset is now absolute offset ... fixme */ + offset = cffont->sfont->loc; + cs_count = cs_idx->count; + if (cs_count < 2) { + ERROR("No valid charstring data found."); + } + + /* New CharStrings INDEX */ + charstrings = cff_new_index(256); + max_len = 2 * CS_STR_LEN_MAX; + charstrings->data = NEW(max_len, card8); + charstring_len = 0; + + /* + * Information from OpenType table is rough estimate. Replace with accurate value. + */ + if (cffont->private[0] && + cff_dict_known(cffont->private[0], "StdVW")) { + double stemv; + + stemv = cff_dict_get(cffont->private[0], "StdVW", 0); + pdf_add_dict(descriptor, + pdf_new_name("StemV"), pdf_new_number(stemv)); + } + + /* + * Widths + */ + if (cffont->private[0] && + cff_dict_known(cffont->private[0], "defaultWidthX")) { + default_width = (double) cff_dict_get(cffont->private[0], "defaultWidthX", 0); + } else { + default_width = CFF_DEFAULTWIDTHX_DEFAULT; + } + if (cffont->private[0] && + cff_dict_known(cffont->private[0], "nominalWidthX")) { + nominal_width = (double) cff_dict_get(cffont->private[0], "nominalWidthX", 0); + } else { + nominal_width = CFF_NOMINALWIDTHX_DEFAULT; + } + + data = NEW(CS_STR_LEN_MAX, card8); + + /* First we add .notdef glyph. + * All Type 1 font requires .notdef glyph to be present. + */ + if (verbose > 2) { + MESG("[glyphs:/.notdef"); + } + size = cs_idx->offset[1] - cs_idx->offset[0]; + if (size > CS_STR_LEN_MAX) { + ERROR("Charstring too long: gid=%u, %ld bytes", 0, size); + } + charstrings->offset[0] = charstring_len + 1; + sfnt_seek_set(cffont->sfont, offset + cs_idx->offset[0] - 1); + sfnt_read(data, size, cffont->sfont); + charstring_len += cs_copy_charstring(charstrings->data + charstring_len, + max_len - charstring_len, + data, size, + cffont->gsubr, cffont->subrs[0], + default_width, nominal_width, &ginfo); + notdef_width = ginfo.wx; + + /* + * Subset font + */ + num_glyphs = 1; + for (code = 0; code < 256; code++) { + card16 gid, j; + s_SID sid_orig, sid; + + widths[code] = notdef_width; + + if (!usedchars[code] || !enc_vec[code] || + !strcmp(enc_vec[code], ".notdef")) + continue; + + /* + * FIXME: + * cff_get_sid() obtain SID from original String INDEX. + * It should be cff_string_get_sid(string, ...). + * cff_add_string(cff, ...) -> cff_string_add(string, ...). + */ + sid_orig = cff_get_sid (cffont, enc_vec[code]); + sid = cff_add_string(cffont, enc_vec[code]); + + /* + * Check if multiply-encoded glyph. + */ + for (j = 0; j < charset->num_entries; j++) { + if (sid == charset->data.glyphs[j]) { + /* Already have this glyph. */ + encoding->supp[encoding->num_supps].code = code; + encoding->supp[encoding->num_supps].glyph = sid; + usedchars[code] = 0; /* Used but multiply-encoded. */ + encoding->num_supps += 1; + break; + } + } + if (j < charset->num_entries) { + continue; /* Prevent duplication. */ + } + + /* This is new encoding entry. */ + gid = cff_charsets_lookup(cffont, sid_orig); /* FIXME */ + if (gid == 0) { + WARN("Glyph \"%s\" missing in font \"%s\".", enc_vec[code], fontname); + WARN("Maybe incorrect encoding specified."); + usedchars[code] = 0; /* Set unused for writing correct encoding */ + continue; + } + if (verbose > 2) { + MESG("/%s", enc_vec[code]); + } + + size = cs_idx->offset[gid+1] - cs_idx->offset[gid]; + if (size > CS_STR_LEN_MAX) { + ERROR("Charstring too long: gid=%u, %ld bytes", gid, size); + } + + if (charstring_len + CS_STR_LEN_MAX >= max_len) { + max_len = charstring_len + 2 * CS_STR_LEN_MAX; + charstrings->data = RENEW(charstrings->data, max_len, card8); + } + charstrings->offset[num_glyphs] = charstring_len + 1; + sfnt_seek_set(cffont->sfont, offset + cs_idx->offset[gid] - 1); + sfnt_read(data, size, cffont->sfont); + charstring_len += cs_copy_charstring(charstrings->data + charstring_len, + max_len - charstring_len, + data, size, + cffont->gsubr, cffont->subrs[0], + default_width, nominal_width, &ginfo); + widths[code] = ginfo.wx; + charset->data.glyphs[charset->num_entries] = sid; + charset->num_entries += 1; + num_glyphs++; + } + if (verbose > 2) { + MESG("]"); + } + RELEASE(data); + + /* + * Now we create encoding data. + */ + if (encoding->num_supps > 0) + encoding->format |= 0x80; /* Have supplemantary data. */ + else { + RELEASE(encoding->supp); /* FIXME */ + } + for (code = 0; code < 256; code++) { + if (!usedchars[code] || + !enc_vec[code] || !strcmp(enc_vec[code], ".notdef")) + continue; + encoding->data.range1[encoding->num_entries].first = code; + encoding->data.range1[encoding->num_entries].n_left = 0; + code++; + while (code < 256 && usedchars[code] && + enc_vec[code] && strcmp(enc_vec[code], ".notdef")) { + encoding->data.range1[encoding->num_entries].n_left += 1; + code++; + } + encoding->num_entries += 1; + /* The above while() loop stopped at unused char or code == 256. */ + } + + /* cleanup */ + if (encoding_id < 0 && enc_vec) { + for (code = 0; code < 256; code++) { + if (enc_vec[code]) { + RELEASE(enc_vec[code]); + } + } + RELEASE(enc_vec); + } + + cff_release_index(cs_idx); + + charstrings->offset[num_glyphs] = charstring_len + 1; + charstrings->count = num_glyphs; + charstring_len = cff_index_size(charstrings); + cffont->num_glyphs = num_glyphs; + + /* + * Discard old one, set new data. + */ + if (cffont->charsets) + cff_release_charsets(cffont->charsets); + cffont->charsets = charset; + if (cffont->encoding) + cff_release_encoding(cffont->encoding); + cffont->encoding = encoding; + /* + * We don't use subroutines at all. + */ + if (cffont->gsubr) + cff_release_index(cffont->gsubr); + cffont->gsubr = cff_new_index(0); + if (cffont->subrs[0]) + cff_release_index(cffont->subrs[0]); + cffont->subrs[0] = NULL; + + /* + * Flag must be reset since cff_pack_encoding(charset) does not write + * encoding(charset) if HAVE_STANDARD_ENCODING(CHARSET) is set. We are + * re-encoding font. + */ + cffont->flag = FONTTYPE_FONT; + + /* + * FIXME: + * Update String INDEX to delete unused strings. + */ + cff_dict_update(cffont->topdict, cffont); + if (cffont->private[0]) + cff_dict_update(cffont->private[0], cffont); + cff_update_string(cffont); + + /* + * Calculate sizes of Top DICT and Private DICT. + * All offset values in DICT are set to long (32-bit) integer + * in cff_dict_pack(), those values are updated later. + */ + topdict = cff_new_index(1); + + cff_dict_remove(cffont->topdict, "UniqueID"); + cff_dict_remove(cffont->topdict, "XUID"); + + /* + * Force existence of Encoding. + */ + if (!cff_dict_known(cffont->topdict, "Encoding")) + cff_dict_add(cffont->topdict, "Encoding", 1); + topdict->offset[1] = cff_dict_pack(cffont->topdict, + (card8 *) work_buffer, + WORK_BUFFER_SIZE) + 1; + private_size = 0; + if (cffont->private[0]) { + cff_dict_remove(cffont->private[0], "Subrs"); /* no Subrs */ + private_size = cff_dict_pack(cffont->private[0], + (card8 *) work_buffer, WORK_BUFFER_SIZE); + } + + /* + * Estimate total size of fontfile. + */ + stream_data_len = 4; /* header size */ + + stream_data_len += cff_set_name(cffont, fullname); + RELEASE(fullname); + + stream_data_len += cff_index_size(topdict); + stream_data_len += cff_index_size(cffont->string); + stream_data_len += cff_index_size(cffont->gsubr); + + /* We are using format 1 for Encoding and format 0 for charset. + * TODO: Should implement cff_xxx_size(). + */ + stream_data_len += 2 + (encoding->num_entries)*2 + 1 + (encoding->num_supps)*3; + stream_data_len += 1 + (charset->num_entries)*2; + stream_data_len += charstring_len; + stream_data_len += private_size; + + /* + * Now we create FontFile data. + */ + stream_data_ptr = NEW(stream_data_len, card8); + + /* + * Data Layout order as described in CFF spec., sec 2 "Data Layout". + */ + offset = 0; + /* Header */ + offset += cff_put_header(cffont, stream_data_ptr + offset, stream_data_len - offset); + /* Name */ + offset += cff_pack_index(cffont->name, stream_data_ptr + offset, stream_data_len - offset); + /* Top DICT */ + topdict_offset = offset; + offset += cff_index_size(topdict); + /* Strings */ + offset += cff_pack_index(cffont->string, + stream_data_ptr + offset, stream_data_len - offset); + /* Global Subrs */ + offset += cff_pack_index(cffont->gsubr, + stream_data_ptr + offset, stream_data_len - offset); + /* Encoding */ + cff_dict_set(cffont->topdict, "Encoding", 0, offset); + offset += cff_pack_encoding(cffont, + stream_data_ptr + offset, stream_data_len - offset); + /* charset */ + cff_dict_set(cffont->topdict, "charset", 0, offset); + offset += cff_pack_charsets(cffont, + stream_data_ptr + offset, stream_data_len - offset); + /* CharStrings */ + cff_dict_set(cffont->topdict, "CharStrings", 0, offset); + offset += cff_pack_index(charstrings, + stream_data_ptr + offset, charstring_len); + cff_release_index(charstrings); + /* Private */ + cff_dict_set(cffont->topdict, "Private", 1, offset); + if (cffont->private[0] && private_size > 0) + private_size = cff_dict_pack(cffont->private[0], + stream_data_ptr + offset, private_size); + cff_dict_set(cffont->topdict, "Private", 0, private_size); + offset += private_size; + + /* Finally Top DICT */ + topdict->data = NEW(topdict->offset[1] - 1, card8); + cff_dict_pack (cffont->topdict, topdict->data, topdict->offset[1] - 1); + cff_pack_index(topdict, + stream_data_ptr + topdict_offset, cff_index_size(topdict)); + cff_release_index(topdict); + + /* Copyright and Trademark Notice ommited. */ + + /* Close font */ + cff_close (cffont); + sfnt_close(sfont); + + if (fp) + DPXFCLOSE(fp); + + if (verbose > 1) { + MESG("[%u/%u glyphs][%ld bytes]", num_glyphs, cs_count, offset); + } + + /* Handle Widths in fontdict. */ + add_SimpleMetrics(font, widths, num_glyphs); + + /* + * CharSet might be recommended for subsetted font, but it is meaningful + * only for Type 1 font... + */ + + /* + * Write PDF FontFile data. + */ + fontfile = pdf_new_stream(STREAM_COMPRESS); + stream_dict = pdf_stream_dict(fontfile); + pdf_add_dict(descriptor, + pdf_new_name("FontFile3"), pdf_ref_obj (fontfile)); + pdf_add_dict(stream_dict, + pdf_new_name("Subtype"), pdf_new_name("Type1C")); + pdf_add_stream (fontfile, (void *) stream_data_ptr, offset); + pdf_release_obj(fontfile); + + RELEASE(stream_data_ptr); + + return 0; +} diff --git a/Build/source/texk/xdvipdfmx/src/type1c.h b/Build/source/texk/xdvipdfmx/src/type1c.h new file mode 100644 index 00000000000..25186d8c9c0 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/type1c.h @@ -0,0 +1,33 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/type1c.h,v 1.5 2004/09/02 12:23:07 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _TYPE1C_H_ +#define _TYPE1C_H_ + +#include "pdffont.h" + +extern int pdf_font_open_type1c (pdf_font *font); +extern int pdf_font_load_type1c (pdf_font *font); + +#endif /* _TYPE1C_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/unicode.c b/Build/source/texk/xdvipdfmx/src/unicode.c new file mode 100644 index 00000000000..90edd566f6b --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/unicode.c @@ -0,0 +1,113 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/unicode.c,v 1.21 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +/* + * Unicode related: + * Conversion between UTF-* and UCS-*. + * ToUnicode CMap + * + * Normalization? + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" + +#include "pdfobj.h" +#include "pdfresource.h" + +#include "pdfencoding.h" +#include "agl.h" +#include "unicode.h" + +static int __verbose = 0; + +#define UC_DEBUG 3 +#define UC_DEBUG_STR "UC" + +void +UC_set_verbose (void) +{ + __verbose++; +} + +#define UC_REPLACEMENT_CHAR 0x0000FFFDL + +#define UC_SUR_SHIFT 10 +#define UC_SUR_MASK 0x3FFUL +#define UC_SUR_LOW_START 0xDC00UL +#define UC_SUR_HIGH_START 0xD800UL + +int +UC_sput_UTF16BE (long ucv, unsigned char **pp, unsigned char *limptr) +{ + int count = 0; + unsigned char *p = *pp; + + if (ucv >= 0 && ucv <= 0xFFFF) { + if (p + 2 >= limptr) + ERROR("Not enough space available..."); + p[0] = (ucv >> 8) & 0xff; + p[1] = ucv & 0xff; + count = 2; + } else if (ucv >= 0x010000L && ucv <= 0x10FFFFL) { + unsigned short high, low; + + if (p + 4 >= limptr) + ERROR("Not enough space available..."); + ucv -= 0x00010000L; + high = (ucv >> UC_SUR_SHIFT) + UC_SUR_HIGH_START; + low = (ucv & UC_SUR_MASK) + UC_SUR_LOW_START; + p[0] = (high >> 8) & 0xff; + p[1] = (high & 0xff); + p[2] = (low >> 8) & 0xff; + p[3] = (low & 0xff); + count = 4; + } else { + if (p + 2 >= limptr) + ERROR("Not enough space available..."); + p[0] = (UC_REPLACEMENT_CHAR >> 8) & 0xff; + p[1] = (UC_REPLACEMENT_CHAR & 0xff); + count = 2; + } + + *pp += count; + return count; +} + +int +UC_is_valid (long ucv) +{ + if (ucv < 0 || (ucv >= 0x0000D800L && ucv <= 0x0000DFFFL)) + return 0; + return 1; +} + diff --git a/Build/source/texk/xdvipdfmx/src/unicode.h b/Build/source/texk/xdvipdfmx/src/unicode.h new file mode 100644 index 00000000000..c5573f4429b --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/unicode.h @@ -0,0 +1,36 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/unicode.h,v 1.10 2004/09/11 14:50:29 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _UNICODE_H_ +#define _UNICODE_H_ + +#include "pdfobj.h" +#include "agl.h" + +extern void UC_set_verbose (void); + +extern int UC_sput_UTF16BE (long ucv, unsigned char **dstpp, unsigned char *endptr); +extern int UC_is_valid (long ucv); + +#endif /* _UNICODE_H_ */ diff --git a/Build/source/texk/xdvipdfmx/src/vf.c b/Build/source/texk/xdvipdfmx/src/vf.c new file mode 100644 index 00000000000..589c5907767 --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/vf.c @@ -0,0 +1,1045 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/vf.c,v 1.16 2005/07/20 10:41:54 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" +#include "numbers.h" +#include "error.h" +#include "mem.h" + +#include "dpxfile.h" +/* pdfdev... */ +#include "pdfdev.h" + +#include "tfm.h" +#include "dvi.h" +#include "vf.h" + +#include "dvicodes.h" + +#define VF_ALLOC_SIZE 16u + +#define VF_ID 202 +#define FIX_WORD_BASE 1048576.0 +#define TEXPT2PT (72.0/72.27) +#define FW2PT (TEXPT2PT/((double)(FIX_WORD_BASE))) + +static unsigned char verbose = 0; + +void vf_set_verbose(void) +{ + if (verbose < 255) verbose++; +} + +struct font_def { + signed long font_id /* id used internally in vf file */; + unsigned long checksum, size, design_size; + char *directory, *name; + int tfm_id; /* id returned by TFM module */ + int dev_id; /* id returned by DEV module */ +}; + +struct vf +{ + char *tex_name; + spt_t ptsize; + unsigned long design_size; /* A fixword-pts quantity */ + int num_dev_fonts, max_dev_fonts; + struct font_def *dev_fonts; + unsigned char **ch_pkt; + unsigned long *pkt_len; + unsigned num_chars; +}; + +struct vf *vf_fonts = NULL; +int num_vf_fonts = 0, max_vf_fonts = 0; + +static int read_header(FILE *vf_file, int thisfont) +{ + int i, result = 1, ch; + + /* Check for usual signature */ + if ((ch = get_unsigned_byte (vf_file)) == PRE && + (ch = get_unsigned_byte (vf_file)) == VF_ID) { + + /* If here, assume it's a legitimate vf file */ + ch = get_unsigned_byte (vf_file); + + /* skip comment */ + for (i=0; i max_vf_fonts) { + vf_fonts = RENEW (vf_fonts, size, struct vf); + for (i=max_vf_fonts; i (a_vf->num_chars)) { + size = MAX (size, a_vf->num_chars+256); + a_vf->ch_pkt = RENEW (a_vf->ch_pkt, size, unsigned char *); + a_vf->pkt_len = RENEW (a_vf->pkt_len, size, unsigned long); + for (i=a_vf->num_chars; ich_pkt)[i] = NULL; + (a_vf->pkt_len)[i] = 0; + } + a_vf->num_chars = size; + } +} + +static void read_a_char_def(FILE *vf_file, int thisfont, unsigned long pkt_len, + unsigned ch) +{ + unsigned char *pkt; +#ifdef DEBUG + fprintf (stderr, "read_a_char_def: len=%ld, ch=%d\n", pkt_len, ch); +#endif + /* Resize and initialize character arrays if necessary */ + if (ch >= vf_fonts[thisfont].num_chars) { + resize_one_vf_font (vf_fonts+thisfont, ch+1); + } + if (pkt_len > 0) { + pkt = NEW (pkt_len, unsigned char); + if (fread (pkt, 1, pkt_len, vf_file) != pkt_len) + ERROR ("VF file ended prematurely."); + (vf_fonts[thisfont].ch_pkt)[ch] = pkt; + } + (vf_fonts[thisfont].pkt_len)[ch] = pkt_len; + return; +} + +static void read_a_font_def(FILE *vf_file, signed long font_id, int thisfont) +{ + struct font_def *dev_font; + int dir_length, name_length; +#ifdef DEBUG + fprintf (stderr, "read_a_font_def: font_id = %ld\n", font_id); +#endif + if (vf_fonts[thisfont].num_dev_fonts >= + vf_fonts[thisfont].max_dev_fonts) { + vf_fonts[thisfont].max_dev_fonts += VF_ALLOC_SIZE; + vf_fonts[thisfont].dev_fonts = RENEW + (vf_fonts[thisfont].dev_fonts, + vf_fonts[thisfont].max_dev_fonts, + struct font_def); + } + dev_font = vf_fonts[thisfont].dev_fonts+ + vf_fonts[thisfont].num_dev_fonts; + dev_font -> font_id = font_id; + dev_font -> checksum = get_unsigned_quad (vf_file); + dev_font -> size = get_unsigned_quad (vf_file); + dev_font -> design_size = get_unsigned_quad (vf_file); + dir_length = get_unsigned_byte (vf_file); + name_length = get_unsigned_byte (vf_file); + dev_font -> directory = NEW (dir_length+1, char); + dev_font -> name = NEW (name_length+1, char); + fread (dev_font -> directory, 1, dir_length, vf_file); + fread (dev_font -> name, 1, name_length, vf_file); + (dev_font -> directory)[dir_length] = 0; + (dev_font -> name)[name_length] = 0; + vf_fonts[thisfont].num_dev_fonts += 1; + dev_font->tfm_id = tfm_open (dev_font -> name, 1); /* must exist */ + dev_font->dev_id = + dvi_locate_font (dev_font->name, + sqxfw (vf_fonts[thisfont].ptsize, + dev_font->size)); +#ifdef DEBUG + fprintf (stderr, "[%s/%s]\n", dev_font -> directory, dev_font -> name); +#endif + return; +} + + +static void process_vf_file (FILE *vf_file, int thisfont) +{ + int eof = 0, code; + unsigned long font_id; + while (!eof) { + code = get_unsigned_byte (vf_file); + switch (code) { + case FNT_DEF1: + font_id = get_unsigned_byte (vf_file); + read_a_font_def (vf_file, font_id, thisfont); + break; + case FNT_DEF2: + font_id = get_unsigned_pair (vf_file); + read_a_font_def (vf_file, font_id, thisfont); + break; + case FNT_DEF3: + font_id = get_unsigned_triple(vf_file); + read_a_font_def (vf_file, font_id, thisfont); + break; + case FNT_DEF4: + font_id = get_signed_quad(vf_file); + read_a_font_def (vf_file, font_id, thisfont); + break; + default: + if (code < 242) { + long ch; + /* For a short packet, code is the pkt_len */ + ch = get_unsigned_byte (vf_file); + /* Skip over TFM width since we already know it */ + get_unsigned_triple (vf_file); + read_a_char_def (vf_file, thisfont, code, ch); + break; + } + if (code == 242) { + unsigned long pkt_len, ch; + pkt_len = get_unsigned_quad(vf_file); + ch = get_unsigned_quad (vf_file); + /* Skip over TFM width since we already know it */ + get_unsigned_quad (vf_file); + if (ch < 65536L) + read_a_char_def (vf_file, thisfont, pkt_len, ch); + else { + fprintf (stderr, "char=%ld\n", ch); + ERROR ("Long character (>16 bits) in VF file.\nI can't handle long characters!\n"); + } + break; + } + if (code == POST) { + eof = 1; + break; + } + fprintf (stderr, "Quitting on code=%d\n", code); + eof = 1; + break; + } + } + return; +} + +/* Unfortunately, the following code isn't smart enough + to load the vf only once for multiple point sizes. + You will get a separate copy of each VF in memory (and a separate + opening and reading of the file) for + each point size. Since VFs are pretty small, I guess + this is tolerable for now. In any case, + the PDF file will never repeat a physical font name */ +/* Note: This code needs to be able to recurse */ +/* Global variables such as num_vf_fonts require careful attention */ +int vf_locate_font (const char *tex_name, spt_t ptsize) +{ + int thisfont = -1, i; + char *full_vf_file_name; + FILE *vf_file; + /* Has this name and ptsize already been loaded as a VF? */ + for (i=0; i 1) + fprintf (stderr, "(VF:%s", full_vf_file_name); + if (num_vf_fonts >= max_vf_fonts) { + resize_vf_fonts (max_vf_fonts + VF_ALLOC_SIZE); + } + thisfont = num_vf_fonts++; + { /* Initialize some pointers and such */ + vf_fonts[thisfont].tex_name = NEW (strlen(tex_name)+1, char); + strcpy (vf_fonts[thisfont].tex_name, tex_name); + vf_fonts[thisfont].ptsize = ptsize; + vf_fonts[thisfont].num_chars = 0; + vf_fonts[thisfont].ch_pkt = NULL; + vf_fonts[thisfont].pkt_len = NULL; + } + read_header(vf_file, thisfont); + process_vf_file (vf_file, thisfont); + if (verbose) + fprintf (stderr, ")"); + MFCLOSE (vf_file); + } + } + return thisfont; +} + +#define next_byte() (*((*start)++)) +static UNSIGNED_BYTE unsigned_byte (unsigned char **start, unsigned char *end) +{ + UNSIGNED_BYTE byte = 0; + if (*start < end) + byte = next_byte(); + else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return byte; +} + +static SIGNED_BYTE signed_byte (unsigned char **start, unsigned char *end) +{ + int byte = 0; + if (*start < end) { + byte = next_byte(); + if (byte >= 0x80) + byte -= 0x100; + } + else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return (SIGNED_BYTE) byte; +} + +static UNSIGNED_PAIR unsigned_pair (unsigned char **start, unsigned char *end) +{ + int i; + UNSIGNED_BYTE byte; + UNSIGNED_PAIR pair = 0; + if (end-*start > 1) { + for (i=0; i<2; i++) { + byte = next_byte(); + pair = pair*0x100u + byte; + } + } + else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return pair; +} + +static SIGNED_PAIR signed_pair (unsigned char **start, unsigned char *end) +{ + int i; + long pair = 0; + if (end - *start > 1) { + for (i=0; i<2; i++) { + pair = pair*0x100 + next_byte(); + } + if (pair >= 0x8000) { + pair -= 0x10000l; + } + } else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return (SIGNED_PAIR) pair; +} + +static UNSIGNED_TRIPLE unsigned_triple(unsigned char **start, unsigned + char *end) +{ + int i; + long triple = 0; + if (end-*start > 2) { + for (i=0; i<3; i++) { + triple = triple*0x100u + next_byte(); + } + } else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return (UNSIGNED_TRIPLE) triple; +} + +static SIGNED_TRIPLE signed_triple(unsigned char **start, unsigned char *end) +{ + int i; + long triple = 0; + if (end-*start > 2) { + for (i=0; i<3; i++) { + triple = triple*0x100 + next_byte(); + } + if (triple >= 0x800000l) + triple -= 0x1000000l; + } else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return (SIGNED_TRIPLE) triple; +} + +static SIGNED_QUAD signed_quad(unsigned char **start, unsigned char *end) +{ + int byte, i; + long quad = 0; + /* Check sign on first byte before reading others */ + if (end-*start > 3) { + byte = next_byte(); + quad = byte; + if (quad >= 0x80) + quad = byte - 0x100; + for (i=0; i<3; i++) { + quad = quad*0x100 + next_byte(); + } + } else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return (SIGNED_QUAD) quad; +} + +static UNSIGNED_QUAD unsigned_quad(unsigned char **start, unsigned char *end) +{ + int i; + unsigned long quad = 0; + if (end-*start > 3) { + for (i=0; i<4; i++) { + quad = quad*0x100u + next_byte(); + } + } else + ERROR ("Premature end of DVI byte stream in VF font\n"); + return (UNSIGNED_QUAD) quad; +} + +static void vf_set (SIGNED_QUAD ch) +{ + /* Defer to the dvi_set() defined in dvi.c */ + dvi_set (ch); + return; +} + +static void vf_set1(unsigned char **start, unsigned char *end) +{ + vf_set (unsigned_byte(start, end)); + return; +} + +static void vf_set2(unsigned char **start, unsigned char *end) +{ + vf_set (unsigned_pair(start, end)); + return; +} + +static void vf_putrule(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + SIGNED_QUAD width, height; + height = signed_quad (start, end); + width = signed_quad (start, end); + if (width > 0 && height > 0) { + dvi_rule (sqxfw(ptsize,width), sqxfw(ptsize, height)); + } + return; +} + +static void vf_setrule(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + SIGNED_QUAD width, height, s_width; + height = signed_quad (start, end); + width = signed_quad (start, end); + s_width = sqxfw(ptsize, width); + if (width > 0 && height > 0) { + dvi_rule (s_width, sqxfw(ptsize, height)); + } + dvi_right (s_width); + return; +} + +static void vf_put1(unsigned char **start, unsigned char *end) +{ + dvi_put (unsigned_byte(start, end)); + return; +} + +static void vf_put2(unsigned char **start, unsigned char *end) +{ + dvi_put (unsigned_pair(start, end)); + return; +} + +static void vf_push(void) +{ + dvi_push(); + return; +} + +static void vf_pop(void) +{ + dvi_pop(); + return; +} + +static void vf_right (SIGNED_QUAD x, spt_t ptsize) +{ + dvi_right ((SIGNED_QUAD) (sqxfw(ptsize, x))); + return; +} + + +static void vf_right1(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_right (signed_byte (start, end), ptsize); + return; +} + +static void vf_right2(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_right (signed_pair (start, end), ptsize); + return; +} + +static void vf_right3(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_right (signed_triple (start, end), ptsize); + return; +} + +static void vf_right4(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_right (signed_quad (start, end), ptsize); + return; +} + +static void vf_w0(void) +{ + dvi_w0(); + return; +} + +static void vf_w (SIGNED_QUAD w, spt_t ptsize) +{ + dvi_w ((SIGNED_QUAD) (sqxfw(ptsize, w))); + return; +} + +static void vf_w1(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_w (signed_byte(start, end), ptsize); + return; +} + +static void vf_w2(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_w (signed_pair(start, end), ptsize); + return; +} + +static void vf_w3(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_w (signed_triple(start, end), ptsize); + return; +} + +static void vf_w4(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_w (signed_quad(start, end), ptsize); + return; +} + +static void vf_x0(void) +{ + dvi_x0(); + return; +} + +static void vf_x (SIGNED_QUAD x, spt_t ptsize) +{ + dvi_x ((SIGNED_QUAD) (sqxfw(ptsize, x))); + return; +} + +static void vf_x1(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_x (signed_byte(start, end), ptsize); + return; +} + +static void vf_x2(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_x (signed_pair(start, end), ptsize); + return; +} + +static void vf_x3(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_x (signed_triple(start, end), ptsize); + return; +} + +static void vf_x4(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_x (signed_quad(start, end), ptsize); + return; +} + +static void vf_down (SIGNED_QUAD y, spt_t ptsize) +{ + dvi_down ((SIGNED_QUAD) (sqxfw(ptsize, y))); + return; +} + +static void vf_down1(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_down (signed_byte(start, end), ptsize); + return; +} + +static void vf_down2(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_down (signed_pair(start, end), ptsize); + return; +} + +static void vf_down3(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_down (signed_triple(start, end), ptsize); + return; +} + +static void vf_down4(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_down (signed_quad(start, end), ptsize); + return; +} + +static void vf_y0(void) +{ + dvi_y0(); + return; +} + +static void vf_y (SIGNED_QUAD y, spt_t ptsize) +{ + dvi_y ((SIGNED_QUAD) (sqxfw(ptsize, y))); + return; +} + + +static void vf_y1(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_y (signed_byte(start, end), ptsize); + return; +} + +static void vf_y2(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_y (signed_pair(start, end), ptsize); + return; +} + +static void vf_y3(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_y (signed_triple(start, end), ptsize); + return; +} + +static void vf_y4(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_y (signed_quad(start, end), ptsize); + return; +} + +static void vf_z0(void) +{ + dvi_z0(); + return; +} + +static void vf_z (SIGNED_QUAD z, spt_t ptsize) +{ + dvi_z ((SIGNED_QUAD) (sqxfw(ptsize, z))); + return; +} + +static void vf_z1(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_z (signed_byte(start, end), ptsize); + return; +} + +static void vf_z2(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_z (signed_pair(start, end), ptsize); + return; +} + +static void vf_z3(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_z (signed_triple(start, end), ptsize); + return; +} + +static void vf_z4(unsigned char **start, unsigned char *end, spt_t ptsize) +{ + vf_z (signed_quad(start, end), ptsize); + return; +} + +static void vf_fnt (SIGNED_QUAD font_id, unsigned long vf_font) +{ + int i; + for (i=0; i 0) + default_font = ((vf_fonts[vf_font].dev_fonts)[0]).dev_id; + dvi_vf_init (default_font); + if (ch >= vf_fonts[vf_font].num_chars || + !(start = (vf_fonts[vf_font].ch_pkt)[ch])) { + fprintf (stderr, "\nchar=0x%lx(%ld)\n", ch, ch); + fprintf (stderr, "Tried to set a nonexistent character in a virtual font"); + start = end = NULL; + } else { + end = start + (vf_fonts[vf_font].pkt_len)[ch]; + } + while (start && start < end) { + opcode = *(start++); +#ifdef DEBUG + fprintf (stderr, "VF opcode: %d", opcode); + if (isprint (opcode)) fprintf (stderr, " (\'%c\')\n", opcode); + else fprintf (stderr, "\n"); +#endif + switch (opcode) + { + case SET1: + vf_set1(&start, end); + break; + case SET2: + vf_set2(&start, end); + break; + case SET3: + case SET4: + ERROR ("Multibyte (>16 bits) character in VF packet.\nI can't handle this!"); + break; + case SET_RULE: + vf_setrule(&start, end, ptsize); + break; + case PUT1: + vf_put1(&start, end); + break; + case PUT2: + vf_put2(&start, end); + break; + case PUT3: + case PUT4: + ERROR ("Multibyte (>16 bits) character in VF packet.\nI can't handle this!"); + break; + case PUT_RULE: + vf_putrule(&start, end, ptsize); + break; + case NOP: + break; + case PUSH: + vf_push(); + break; + case POP: + vf_pop(); + break; + case RIGHT1: + vf_right1(&start, end, ptsize); + break; + case RIGHT2: + vf_right2(&start, end, ptsize); + break; + case RIGHT3: + vf_right3(&start, end, ptsize); + break; + case RIGHT4: + vf_right4(&start, end, ptsize); + break; + case W0: + vf_w0(); + break; + case W1: + vf_w1(&start, end, ptsize); + break; + case W2: + vf_w2(&start, end, ptsize); + break; + case W3: + vf_w3(&start, end, ptsize); + break; + case W4: + vf_w4(&start, end, ptsize); + break; + case X0: + vf_x0(); + break; + case X1: + vf_x1(&start, end, ptsize); + break; + case X2: + vf_x2(&start, end, ptsize); + break; + case X3: + vf_x3(&start, end, ptsize); + break; + case X4: + vf_x4(&start, end, ptsize); + break; + case DOWN1: + vf_down1(&start, end, ptsize); + break; + case DOWN2: + vf_down2(&start, end, ptsize); + break; + case DOWN3: + vf_down3(&start, end, ptsize); + break; + case DOWN4: + vf_down4(&start, end, ptsize); + break; + case Y0: + vf_y0(); + break; + case Y1: + vf_y1(&start, end, ptsize); + break; + case Y2: + vf_y2(&start, end, ptsize); + break; + case Y3: + vf_y3(&start, end, ptsize); + break; + case Y4: + vf_y4(&start, end, ptsize); + break; + case Z0: + vf_z0(); + break; + case Z1: + vf_z1(&start, end, ptsize); + break; + case Z2: + vf_z2(&start, end, ptsize); + break; + case Z3: + vf_z3(&start, end, ptsize); + break; + case Z4: + vf_z4(&start, end, ptsize); + break; + case FNT1: + vf_fnt1(&start, end, vf_font); + break; + case FNT2: + vf_fnt2(&start, end, vf_font); + break; + case FNT3: + vf_fnt3(&start, end, vf_font); + break; + case FNT4: + vf_fnt4(&start, end, vf_font); + break; + case XXX1: + vf_xxx1(&start, end); + break; + case XXX2: + vf_xxx2(&start, end); + break; + case XXX3: + vf_xxx3(&start, end); + break; + case XXX4: + vf_xxx4(&start, end); + break; + case DIR: + vf_dir(&start, end); + break; + default: + if (opcode <= SET_CHAR_127) { + vf_set (opcode); + } else if (opcode >= FNT_NUM_0 && opcode <= FNT_NUM_63) { + vf_fnt (opcode - FNT_NUM_0, vf_font); + } else { + fprintf (stderr, "Unexpected opcode: %d\n", opcode); + ERROR ("Unexpected opcode in vf file\n"); + } + } + } + dvi_vf_finish(); + } else { + fprintf (stderr, "vf_set_char: font: %d", vf_font); + ERROR ("Font not loaded\n"); + } + return; +} + + +void vf_close_all_fonts(void) +{ + unsigned long i; + int j; + struct font_def *one_font; +#ifdef MEM_DEBUG +MEM_START +#endif + for (i=0; i directory); + RELEASE (one_font -> name); + } + if (vf_fonts[i].dev_fonts != NULL) + RELEASE (vf_fonts[i].dev_fonts); + } + if (vf_fonts != NULL) + RELEASE (vf_fonts); +#ifdef MEM_DEBUG +MEM_END +#endif + return; +} diff --git a/Build/source/texk/xdvipdfmx/src/vf.h b/Build/source/texk/xdvipdfmx/src/vf.h new file mode 100644 index 00000000000..18e36bc1a3e --- /dev/null +++ b/Build/source/texk/xdvipdfmx/src/vf.h @@ -0,0 +1,35 @@ +/* $Header: /home/cvsroot/dvipdfmx/src/vf.h,v 1.5 2004/09/02 12:23:07 hirata Exp $ + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#ifndef _VF_H_ +#define _VF_H_ + +#include "pdfdev.h" + +extern void vf_set_verbose (void); +extern int vf_locate_font (const char *tex_name, spt_t ptsize); +extern void vf_set_char (SIGNED_QUAD ch, int vf_font); +extern void vf_close_all_fonts(void); + +#endif /* _VF_H_ */ -- cgit v1.2.3