Another optimization in jfmglue.lua.

[luatex-ja/luatexja.git] / src / luatexja-plain.sty

diff --git a/src/luatexja-plain.sty b/src/luatexja-plain.sty
index 29610c1..d38ab95 100644 (file)
--- a/src/luatexja-plain.sty
+++ b/src/luatexja-plain.sty
@@ -40,51 +40,27 @@
   jcharwidowpenalty=500, differentjfm=average
 }
 
-\ltj@tempcnta="0%"
-\loop\ifnum\ltj@tempcnta<"100%"
-  \ltjsetparameter{alxspmode={\ltj@tempcnta,0}}%
-  \advance\ltj@tempcnta by1
-\repeat
-
-\ltj@tempcnta=`\0%"
-\loop\ifnum\ltj@tempcnta<`\:%"
-  \ltjsetparameter{alxspmode={\ltj@tempcnta,3}}%
-  \advance\ltj@tempcnta by1
-\repeat
-
-\ltj@tempcnta=`\A%"
-\loop\ifnum\ltj@tempcnta<`\[%"
-  \ltjsetparameter{alxspmode={\ltj@tempcnta,3}}%
-  \advance\ltj@tempcnta by1
-\repeat
-
-\ltj@tempcnta=`\a%"
-\loop\ifnum\ltj@tempcnta<`\{%"
-  \ltjsetparameter{alxspmode={\ltj@tempcnta,3}}%
-  \advance\ltj@tempcnta by1
-\repeat
-
 \input luatexja-kinsoku.tex
 
-\ltj@tempcnta="2000%"
-\loop\ifnum\ltj@tempcnta<"2070%"
-  \ltjsetparameter{kcatcode={\ltj@tempcnta,1}}%
-  \advance\ltj@tempcnta by1
-\repeat
-
-\ltj@tempcnta="3000%"
-\loop\ifnum\ltj@tempcnta<"3040%"
-  \ltjsetparameter{kcatcode={\ltj@tempcnta,1}}%
-  \advance\ltj@tempcnta by1
-\repeat
 
-\ltj@tempcnta="FF00%"
-\loop\ifnum\ltj@tempcnta<"FFF0%"
-  \ltjsetparameter{kcatcode={\ltj@tempcnta,1}}%
-  \advance\ltj@tempcnta by1
-\repeat
-%\endinput
-%! ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
+\ltjdefcharrange{1}{"80-"36F, "1E00-"1EFF} 
+\ltjdefcharrange{2}{"370-"4FF, "1F00-"1FFF} 
+\ltjdefcharrange{3}{%
+  "2000-"243F, "2500-"27BF, "2900-"29FF, "2B00-"2BFF, "E000-"F8FF, 
+  "FB00-"FB4F} 
+\ltjdefcharrange{4}{%
+   "500-"10FF, "1200-"1DFF, "2440-"245F, "27C0-"28FF, "2A00-"2AFF, 
+  "2C00-"2E7F, "4DC0-"4DFF, "A4D0-"A82F, "A840-"ABFF, "FB50-"FE0F, 
+  "FE20-"FE2F, "FE70-"FEFF, "10000-"1FFFF} % non-Japanese
+\ltjdefcharrange{5}{"D800-"DFFF, "E0000-"10FFFF} 
+\ltjdefcharrange{6}{%
+  "2460-"24FF, "2E80-"2EFF, "3000-"30FF, "3190-"319F, "31F0-"4DBF, 
+  "4E00-"9FFF, "F900-"FAFF, "FE10-"FE6F, "20000-"2FFFF}
+\ltjdefcharrange{7}{
+  "1100-"11FF, "2F00-"2FFF, "3100-"31EF, "A000-"A4CF, "A830-"A83F, 
+  "AC00-"D7FF}
+\ltjdefcharrange{8}{"B4, "A8, "B1, "D7, "F7, "B0, "A7, "B6}
+\ltjsetparameter{jacharrange={-1, +2, +3, -4, -5, +6, +7, +8}}
 
 %%------------------ all done
 \ltj@plain@AtEnd