diff options
author | Karl Berry <karl@freefriends.org> | 2013-05-15 21:51:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-05-15 21:51:27 +0000 |
commit | c293cc5e64a5575b0b22a373061569bacf92ee76 (patch) | |
tree | d0431b0c920cde04479ecc42fcb2fec28b394a8f /Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua | |
parent | 7125751ebd8f93429724b73226f3350a0e0e7635 (diff) |
luatexja (15may13)
git-svn-id: svn://tug.org/texlive/trunk@30485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua')
-rw-r--r-- | Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua | 44 |
1 files changed, 23 insertions, 21 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua b/Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua index acb37ec604b..6f66b99891a 100644 --- a/Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua +++ b/Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua @@ -1,20 +1,12 @@ -- --- luatexja/compat.lua +-- luatexja/ltj-compat.lua -- -luatexbase.provides_module({ - name = 'luatexja.compat', - date = '2011/06/03', - version = '0.1', - description = 'Partial implementation of primitives of pTeX', -}) -module('luatexja.compat', package.seeall) -local err, warn, info, log = luatexbase.errwarinf(_NAME) -luatexja.load_module('base'); local ltjb = luatexja.base -luatexja.load_module('stack'); local ltjs = luatexja.stack +luatexja.load_module('base'); local ltjb = luatexja.base +luatexja.load_module('stack'); local ltjs = luatexja.stack -- \kuten, \jis, \euc, \sjis, \ucs, \kansuji -function to_kansuji(num) +local function to_kansuji(num) if not num then num=0; return elseif num<0 then num = -num; tex.write('-') @@ -30,7 +22,7 @@ function to_kansuji(num) end -- \ucs: 単なる identity -function from_ucs(i) +local function from_ucs(i) if type(i)~='number' then ltjb.package_error('luatexja', "invalid character code (".. tostring(i) .. ")", @@ -40,8 +32,8 @@ function from_ucs(i) tex.write(i) end --- \kuten: 面区点 (それぞれで16進2桁を使用)=> Unicharacter code 符号位置 -function from_kuten(i) +-- \kuten: 面区点 (それぞれで16進2桁を使用)=> Unicode 符号位置 +local function from_kuten(i) if type(i)~='number' then ltjb.package_error('luatexja', "invalid character code (".. tostring(i) .. ")", @@ -51,8 +43,8 @@ function from_kuten(i) tex.write(tostring(luatexja.jisx0208.table_jisx0208_uptex[i] or 0)) end --- \euc: EUC-JP による符号位置 => Unicharacter code 符号位置 -function from_euc(i) +-- \euc: EUC-JP による符号位置 => Unicode 符号位置 +local function from_euc(i) if type(i)~='number' then ltjb.package_error('luatexja', "invalid character code (".. tostring(i) .. ")", @@ -64,8 +56,8 @@ function from_euc(i) from_kuten(i-0xa0a0) end --- \jis: ISO-2022-JP による符号位置 => Unicharacter code 符号位置 -function from_jis(i) +-- \jis: ISO-2022-JP による符号位置 => Unicode 符号位置 +local function from_jis(i) if (type(i)~='number') or i>=0x10000 or i<0 then ltjb.package_error('luatexja', "invalid character code (".. tostring(i) .. ")", @@ -75,8 +67,8 @@ function from_jis(i) from_kuten(i-0x2020) end --- \sjis: Shift_JIS による符号位置 => Unicharacter code 符号位置 -function from_sjis(i) +-- \sjis: Shift_JIS による符号位置 => Unicode 符号位置 +local function from_sjis(i) if (type(i)~='number') or i>=0x10000 or i<0 then ltjb.package_error('luatexja', "invalid character code (".. tostring(i) .. ")", @@ -111,3 +103,13 @@ function from_sjis(i) from_kuten(c2*256+c1) end end + +local t = { + from_euc = from_euc, + from_kuten = from_kuten, + from_jis = from_jis, + from_sjis = from_sjis, + from_ucs = from_ucs, + to_kansuji = to_kansuji, +} +luatexja.compat = t |