src/luatexja/rmlgbm.lua

   1 --
   2 -- luatexja/rmlgbm.lua
   3 --
   4 luatexbase.provides_module({
   5   name = 'luatexja.rmlgbm',
   6   date = '2012/02/17',
   7   version = '0.2',
   8   description = 'Definitions of non-embedded Japanese fonts',
   9 })
  10 module('luatexja.rmlgbm', package.seeall)
  11 local err, warn, info, log = luatexbase.errwarinf(_NAME)
  12
  13 require('luatexja.base');      local ltjb = luatexja.base
  14
  15 local round = tex.round
  16 local cidfont_data = {}
  17 local cache_chars = {}
  18 local cid_reg, cid_order, cid_supp, cid_name
  19 local taux_dir = 'luatex-cache/luatexja'
  20 local path           = {
  21     localdir  = file.join(kpse.expand_var("$TEXMFVAR"), aux_dir),
  22     systemdir = file.join(kpse.expand_var("$TEXMFSYSVAR"), aux_dir),
  23 }
  24 local cid_replace = {
  25    ["Adobe-Japan1"] = "UniJISX0213-UTF32",
  26    ["Adobe-Korea1"] = "UniKS-UTF32",
  27    ["Adobe-GB1"]    = "UniGB-UTF32",
  28    ["Adobe-CNS1"]   = "UniCNS-UTF32",
  29 }
  30
  31 -- reading CID maps
  32 local line, fh, tt
  33
  34 local function load_bf_char()
  35    local cid, ucs, ucsa
  36    line = fh:read("*l")
  37    while line do
  38       if line == "endcidchar" then
  39          line = fh:read("*l"); return
  40       else -- WMA l is in the form "<%x+>%s%d+"
  41          ucs, cid = string.match(line, "<(%x+)>%s+(%d+)")
  42          cid = tonumber(cid, 10); ucs = tonumber(ucs, 16);
  43          if not tt[ucs]  then
  44             tt[ucs] = { index = cid, width = 655360 }
  45          end
  46       end
  47       line = fh:read("*l")
  48    end
  49 end
  50
  51 local function load_bf_range()
  52    local bucs, eucs, cid
  53    line = fh:read("*l")
  54    while line do
  55       if line == "endcidrange" then
  56          line = fh:read("*l"); return
  57       else -- WMA l is in the form "<%x+>%s+<%x+>"
  58          bucs, eucs, cid = string.match(line, "<(%x+)>%s+<(%x+)>%s+(%d+)")
  59          cid = tonumber(cid, 10); bucs = tonumber(bucs, 16); eucs = tonumber(eucs, 16);
  60          for ucs = bucs, eucs do
  61             if not tt[ucs]  then
  62                tt[ucs] = { index = cid, width = 655360 }
  63             end
  64             cid = cid+1
  65          end
  66       end
  67       line = fh:read("*l")
  68    end
  69 end
  70
  71 local function make_cid_font()
  72    cidfont_data[cid_name] = {
  73       cidinfo = { ordering=cid_order, registry=cid_reg, supplement=cid_supp },
  74       encodingbytes = 2, extend=1000, format = 'opentype',
  75       direction = 0, characters = {}, parameters = {}, embedding = "no", cache = "yes",
  76       ascender = 0, descender = 0, factor = 0, hfactor = 0, vfactor = 0,
  77    }
  78    tt = {}
  79
  80    -- Open
  81    -- TODO: vertical fonts?
  82    fh = io.open(kpse.find_file(cid_replace[cid_name] .. "-H", 'cmap files'), "r")
  83    line = fh:read("*l")
  84    while line do
  85       if string.find(line, "%x+%s+begincidchar") then
  86          load_bf_char()
  87       elseif string.find(line, "%x+%s+begincidrange") then
  88          load_bf_range()
  89       else
  90          line = fh:read("*l")
  91       end
  92    end
  93    fh:close();  cidfont_data[cid_name].characters = tt
  94    cache_chars[cid_name]  = { [655360] = cidfont_data[cid_name].characters }
  95
  96    -- Save
  97    local savepath  = path.localdir
  98    if not lfs.isdir(savepath) then
  99       dir.mkdirs(savepath)
 100    end
 101    savepath = file.join(savepath, "luatexja-cid-auto-"
 102                         .. string.lower(cid_name)  .. ".lua")
 103    if file.iswritable(savepath) then
 104       table.tofile(savepath, cidfont_data[cid_name],'return', false, true, false )
 105    else
 106       ltjb.package_warning('luatexja',
 107                            'failed to save informations of non-embedded 2-byte fonts', '')
 108    end
 109 end
 110
 111 --
 112 local function read_cid_font()
 113    local names = {
 114       "luatexja-cid-std-" .. string.lower(cid_name) .. ".lua",
 115       "luatexja-cid-auto-" .. string.lower(cid_name) .. ".lua",
 116    }
 117    local s
 118    for i,v in ipairs(names) do
 119       local localpath  = file.join(path.localdir, v)
 120       local systempath = file.join(path.systemdir, v)
 121       local kpsefound  = kpse.find_file(v)
 122       if kpsefound and file.isreadable(kpsefound) then
 123          cidfont_data[cid_name] = require(kpsefound)
 124          cache_chars[cid_name]  = { [655360] = cidfont_data[cid_name].characters }
 125          return
 126       elseif file.isreadable(localpath)  then
 127          cidfont_data[cid_name] = require(localpath)
 128          cache_chars[cid_name]  = { [655360] = cidfont_data[cid_name].characters }
 129          return
 130       elseif file.isreadable(systempath) then
 131          cidfont_data[cid_name] = require(systempath)
 132          cache_chars[cid_name]  = { [655360] = cidfont_data[cid_name].characters }
 133          return
 134       end
 135    end
 136    -- Now we must create the virtual metrics from CMap.
 137    ltjb.package_info('luatexja',
 138                         'I try to generate informations of non-embedded 2-byte fonts...', '')
 139    make_cid_font()
 140 end
 141
 142 -- High-level
 143 local function mk_rml(name, size, id)
 144    local specification = fonts.define.analyze(name,size)
 145    specification = fonts.define.specify[':'](specification)
 146    local features = specification.features.normal
 147
 148    local fontdata = {}
 149    local cachedata = {}
 150    local s = cidfont_data[cid_name]
 151    if not s then
 152       -- error message?
 153       s = cidfont_data["Adobe-Japan1"]
 154    end
 155    for k, v in pairs(s) do
 156       fontdata[k] = v
 157       cachedata[k] = v
 158    end
 159    fontdata.characters = nil
 160    cachedata.characters = nil
 161    fontdata.unicodes = nil
 162    fontdata.shared = nil
 163    cachedata.shared = nil
 164    if s.shared then
 165       cachedata.shared = {}
 166       local shared = cachedata.shared
 167       for k, v in pairs(s.shared) do
 168          shared[k] = v
 169       end
 170
 171       shared.set_dynamics = fonts.otf.set_dynamics
 172       shared.processes, shared.features = fonts.otf.set_features(cachedata,fonts.define.check(features,fonts.otf.features.default))
 173    end
 174
 175    -- characters & scaling
 176    if size < 0 then size = -size * 655.36 end
 177    local scale = size / 655360
 178    local def_height =  round(0.88 * size) -- character's default height (optimized for jfm-ujis.lua)
 179    local def_depth =  round(0.12 * size)  -- and depth.
 180    if not cache_chars[cid_name][size] then
 181       cache_chars[cid_name][size]  = {}
 182       for k, v in pairs(cache_chars[cid_name][655360]) do
 183          cache_chars[cid_name][size][k] = {
 184             index = v.index, width = round(v.width * scale),
 185             height = def_height, depth = def_depth, tounicode = v.tounicode,
 186          }
 187       end
 188    end
 189    fontdata.characters = cache_chars[cid_name][size]
 190    cachedata.characters = cache_chars[cid_name][size]
 191
 192    local parameters = {}
 193    for k, v in pairs(s.parameters) do
 194       parameters[k] = v * scale
 195    end
 196    fontdata.parameters = parameters;                cachedata.parameters = parameters
 197    fontdata.ascender = fontdata.ascender * scale;   cachedata.ascender = fontdata.ascender
 198    fontdata.descender = fontdata.descender * scale; cachedata.descender = fontdata.descender
 199    fontdata.factor = fontdata.factor * scale;       cachedata.factor = fontdata.factor
 200    fontdata.hfactor = fontdata.hfactor * scale;     cachedata.hfactor = fontdata.hfactor
 201    fontdata.vfactor = fontdata.vfactor * scale;     cachedata.vfactor = fontdata.vfactor
 202    fontdata.size = size;                            cachedata.size = size
 203
 204    -- no embedding
 205    local var = ''
 206    if features.slant then
 207       fontdata.slant = features.slant*1000;         cachedata.slant = fontdata.slant
 208       var = var .. 's' .. tostring(features.slant)
 209    end
 210    if features.extend then
 211       fontdata.extend = features.extend*1000;       cachedata.extend = fontdata.extend
 212        var = var .. 'x' .. tostring(features.extend)
 213   end
 214    fontdata.name = specification.name .. size .. var; cachedata.name = fontdata.name
 215    fontdata.fullname = specification.name .. var; cachedata.fullname = fontdata.fullname
 216    fontdata.psname = specification.name; cachedata.psname = fontdata.psname
 217    fonts.ids[id] = cachedata
 218
 219    return fontdata
 220 end
 221
 222 local dr_orig = fonts.define.read
 223 function fonts.define.read(name, size, id)
 224    local p = utf.find(name, ":") or utf.len(name)+1
 225    if utf.sub(name, 1, p-1) == 'psft' then
 226       local s = "Adobe-Japan1-6"
 227       local basename = utf.sub(name,p+1)
 228       local p = utf.find(basename, ":")
 229       if p then
 230          local xname = utf.sub(basename, p+1)
 231          p = 1
 232          while p do
 233             local q = utf.find(xname, ";", p+1) or utf.len(xname)+1
 234             if utf.sub(xname, p, p+3)=='cid=' and q>p+4 then
 235                s = utf.sub(xname, p+4, q-1)
 236             end
 237             if utf.len(xname)+1==q then p = nil else p = q + 1 end
 238          end
 239       end
 240       cid_reg, cid_order, cid_supp = string.match(s, "(.-)%-(.-)%-(%d-)")
 241       cid_name = cid_reg .. '-' .. cid_order
 242       if not cidfont_data[cid_name] then read_cid_font() end
 243       return mk_rml(basename, size, id)
 244    else
 245       return dr_orig(name, size, id)
 246    end
 247 end
 248