OSDN Git Service
(root)
/
luatex-ja
/
luatexja.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ltjclasses: sync with platex/66fb7476
[luatex-ja/luatexja.git]
/
tool
/
ltj-unicode-ccfix_make2.pl
diff --git
a/tool/ltj-unicode-ccfix_make2.pl
b/tool/ltj-unicode-ccfix_make2.pl
index
d5db964
..
f559629
100755
(executable)
--- a/
tool/ltj-unicode-ccfix_make2.pl
+++ b/
tool/ltj-unicode-ccfix_make2.pl
@@
-74,12
+74,13
@@
__EOT__
print << '__EOT__';
print << '__EOT__';
-if tex.getcatcode(0x6F22)==12 then
- local tex_catcode = tex.setcatcode
- local function set_letter(b,e)
+local tex_catcode = tex.setcatcode
+local tex_getcc = tex.getcatcode
+local function set_letter(b,e)
+ if tex_getcc(b)~=11 then
for i=b,e do tex_catcode('global', i, 11) end
end
for i=b,e do tex_catcode('global', i, 11) end
end
-
+end
__EOT__
open LineBreak, $ARGV[0] or die "can't read $ARGV[0]";
__EOT__
open LineBreak, $ARGV[0] or die "can't read $ARGV[0]";
@@
-95,7
+96,7
@@
while (<LineBreak>) {
if (exists $lineBreakClass{$lb}) {
if ($lineBreakClass{$lb} == 1) {
# ideographs: set whole range to class 1
if (exists $lineBreakClass{$lb}) {
if ($lineBreakClass{$lb} == 1) {
# ideographs: set whole range to class 1
- print "
set_letter(0x$s,0x$e)\n";
+ print "set_letter(0x$s,0x$e)\n";
}
}
}
}
}
}
@@
-103,7
+104,4
@@
while (<LineBreak>) {
close LineBreak;
print << '__EOT__';
close LineBreak;
print << '__EOT__';
-
-end
-
__EOT__
__EOT__