summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luatexja/ltj-otf.lua
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-04-24 00:13:14 +0000
committerNorbert Preining <preining@logic.at>2012-04-24 00:13:14 +0000
commit8f29bdce0bdd08ec81df555e98692d1f288c3289 (patch)
treec4f9a6b00a587f635e55fc4068c1961780c90591 /Master/texmf-dist/tex/luatex/luatexja/ltj-otf.lua
parent74e624196144ae218a63a4c35672fc7a0e7b18dc (diff)
new package luatexja (24apr)
adapt ctan2tds to deal with it git-svn-id: svn://tug.org/texlive/trunk@26115 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-otf.lua')
-rw-r--r--Master/texmf-dist/tex/luatex/luatexja/ltj-otf.lua144
1 files changed, 144 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/ltj-otf.lua b/Master/texmf-dist/tex/luatex/luatexja/ltj-otf.lua
new file mode 100644
index 00000000000..e9e8f1c45ec
--- /dev/null
+++ b/Master/texmf-dist/tex/luatex/luatexja/ltj-otf.lua
@@ -0,0 +1,144 @@
+--
+-- luatexja/otf.lua
+--
+luatexbase.provides_module({
+ name = 'luatexja.otf',
+ date = '2011/09/09',
+ version = '0.1',
+ description = 'The OTF Lua module for LuaTeX-ja',
+})
+module('luatexja.otf', package.seeall)
+
+luatexja.load_module('base'); local ltjb = luatexja.base
+luatexja.load_module('jfont'); local ltjf = luatexja.jfont
+
+local id_glyph = node.id('glyph')
+local id_whatsit = node.id('whatsit')
+local sid_user = node.subtype('user_defined')
+
+local node_new = node.new
+local node_remove = node.remove
+local node_next = node.next
+local node_free = node.free
+local has_attr = node.has_attribute
+local set_attr = node.set_attribute
+local unset_attr = node.unset_attribute
+local node_insert_after = node.insert_after
+
+local attr_curjfnt = luatexbase.attributes['ltj@curjfnt']
+local attr_jchar_class = luatexbase.attributes['ltj@charclass']
+local attr_yablshift = luatexbase.attributes['ltj@yablshift']
+local attr_ykblshift = luatexbase.attributes['ltj@ykblshift']
+
+local ltjf_font_metric_table = ltjf.font_metric_table
+local ltjf_find_char_class = ltjf.find_char_class
+
+
+-- Append a whatsit node to the list.
+-- This whatsit node will be extracted to a glyph_node
+function append_jglyph(char)
+ local p = node_new(id_whatsit,sid_user)
+ local v = tex.attribute[attr_curjfnt]
+ p.user_id=30113; p.type=100; p.value=char
+ set_attr(p, attr_yablshift, tex.attribute[attr_ykblshift])
+ node.write(p)
+end
+
+function cid(key)
+ local curjfnt = fonts.ids[tex.attribute[attr_curjfnt]]
+ if curjfnt.cidinfo.ordering ~= "Japan1" then
+ ltjb.package_error('luatexja-otf',
+ 'Current Japanese font "'..curjfnt.psname..'" is not a CID-Keyed font (Adobe-Japan1)',
+ 'Select a CID-Keyed font using \jfont.')
+ return
+ end
+ local char = curjfnt.unicodes['Japan1.'..tostring(key)]
+ if not char then
+ ltjb.package_warning('luatexja-otf',
+ 'Current Japanese font "'..curjfnt.psname..'" does not include the specified CID character ('..tostring(key)..')',
+ 'Use a font including the specified CID character.')
+ return
+ end
+ append_jglyph(char)
+end
+
+function extract(head)
+ local p = head, v
+ while p do
+ if p.id==id_whatsit then
+ if p.subtype==sid_user and p.user_id==30113 then
+ local g = node_new(id_glyph)
+ g.subtype = 0; g.char = p.value
+ v = has_attr(p, attr_curjfnt); g.font = v
+ set_attr(g, attr_jchar_class,
+ ltjf_find_char_class(g.char, ltjf_font_metric_table[v]))
+ set_attr(g, attr_curjfnt, v)
+ v = has_attr(p, attr_yablshift)
+ if v then
+ set_attr(g, attr_yablshift, v)
+ else
+ unset_attr(g, attr_yablshift)
+ end
+ head = node_insert_after(head, p, g)
+ head = node_remove(head, p)
+ node_free(p); p = g
+ end
+ end
+ p = node_next(p)
+ end
+ return head
+end
+
+luatexbase.add_to_callback('hpack_filter',
+ function (head) return extract(head) end,'ltj.hpack_filter_otf',
+ luatexbase.priority_in_callback('pre_linebreak_filter',
+ 'ltj.pre_linebreak_filter'))
+luatexbase.add_to_callback('pre_linebreak_filter',
+ function (head) return extract(head) end, 'ltj.pre_linebreak_filter_otf',
+ luatexbase.priority_in_callback('pre_linebreak_filter',
+ 'ltj.pre_linebreak_filter'))
+
+
+-- additional callbacks
+-- 以下は,LuaTeX-ja に用意された callback のサンプルになっている.
+-- JFM の文字クラスの指定の所で,"AJ1-xxx" 形式での指定を可能とした.
+-- これらの文字指定は,和文フォント定義ごとに,それぞれのフォントの
+-- CID <-> グリフ 対応状況による変換テーブルが用意される.
+
+-- フォント読み込み時に,CID
+local function cid_to_char(fmtable, fn)
+ local fi = fonts.ids[fn]
+ if fi.cidinfo and fi.cidinfo.ordering == "Japan1" then
+ fmtable.cid_char_type = {}
+ for i, v in pairs(ltjf.metrics[fmtable.jfm].chars) do
+ local j = string.match(i, "^AJ1%-([0-9]*)")
+ if j then
+ j = tonumber(fi.unicodes['Japan1.'..tostring(j)])
+ if j then
+ fmtable.cid_char_type[j] = v
+ end
+ end
+ end
+ end
+ return fmtable
+end
+luatexbase.add_to_callback("luatexja.define_jfont",
+ cid_to_char, "ltj.otf.define_jfont", 1)
+-- 既に読み込まれているフォントに対しても,同じことをやらないといけない
+for fn, v in pairs(ltjf_font_metric_table) do
+ ltjf_font_metric_table[fn] = cid_to_char(v, fn)
+end
+
+
+local function cid_set_char_class(arg, fmtable, char)
+ if arg~=0 then return arg
+ elseif fmtable.cid_char_type then
+ return fmtable.cid_char_type[char] or 0
+ else return 0
+ end
+end
+luatexbase.add_to_callback("luatexja.find_char_class",
+ cid_set_char_class, "ltj.otf.find_char_class", 1)
+
+-------------------- all done
+-- EOF