summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-05-15 21:51:27 +0000
committerKarl Berry <karl@freefriends.org>2013-05-15 21:51:27 +0000
commitc293cc5e64a5575b0b22a373061569bacf92ee76 (patch)
treed0431b0c920cde04479ecc42fcb2fec28b394a8f /Master/texmf-dist/tex/luatex/luatexja/ltj-compat.lua
parent7125751ebd8f93429724b73226f3350a0e0e7635 (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.lua44
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