X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fluatexja-core.sty;h=d4487af2d7fa72b4b14bce6836fa2b5d9322d279;hb=1051d04eb2b5f8f657ee3bb1bfb5b97ba4201707;hp=6ad407c304412e0da2a0ef32d8180fcc67b5f88b;hpb=758f2ea699a9424c6d0e40f6209e408f290c9ff2;p=luatex-ja%2Fluatexja.git diff --git a/src/luatexja-core.sty b/src/luatexja-core.sty index 6ad407c..d4487af 100644 --- a/src/luatexja-core.sty +++ b/src/luatexja-core.sty @@ -1,60 +1,147 @@ +% +% luatexja-core.sty +% + +%! 外から読まれるので仰々しくなってます +%% Avoid multiple loading. +\csname\if11luatexjacoreLoaded\fi\endcsname +\edef\x{% +\catcode32=\the\catcode32% +\catcode33=\the\catcode33% +\catcode35=\the\catcode35% +\catcode40=\the\catcode40% +\catcode41=\the\catcode41% +\catcode42=\the\catcode42% +\catcode43=\the\catcode43% +\catcode44=\the\catcode44% +\catcode45=\the\catcode45% +\catcode46=\the\catcode46% +\catcode58=\the\catcode58% +\catcode59=\the\catcode59% +\catcode60=\the\catcode60% +\catcode61=\the\catcode61% +\catcode62=\the\catcode62% +\catcode64=\the\catcode64% +\catcode91=\the\catcode91% +\catcode93=\the\catcode93% +\catcode94=\the\catcode94% +\catcode95=\the\catcode95% +\catcode126=\the\catcode126% +\endlinechar=\the\endlinechar +\relax} +\catcode32=10 %< > +\catcode33=12 %<"> +\catcode35=6 %<#> +\catcode40=12 %<(> +\catcode41=12 %<)> +\catcode42=12 %<*> +\catcode43=12 %<+> +\catcode44=12 %<,> +\catcode45=12 %<-> +\catcode46=12 %<.> +\catcode58=12 %<:> +\catcode59=12 %<;> +\catcode60=12 %<<> +\catcode61=12 %<=> +\catcode62=12 %<>> +\catcode64=11 %<@> +\catcode91=12 %<[> +\catcode93=12 %<]> +\catcode94=7 %<^> +\catcode95=8 %<_> +\catcode126=13 %<~> +\endlinechar=-1 % +%! なお, 上のcatcode設定はcoreとcompatで同一にしておく. +\edef\ltj@core@AtEnd{\x + \noexpand\let\noexpand\ltj@core@AtEnd\relax} +\def\luatexjacoreLoaded{\endinput} + +%% Check if LaTeX is used. +\begingroup\expandafter\expandafter\expandafter\endgroup +\expandafter\ifx\csname RequirePackage\endcsname\relax %<*!LaTeX> + \expandafter\let\csname ifltj@in@latex\expandafter\endcsname + \csname iffalse\endcsname +\else %<*LaTeX> + \expandafter\let\csname ifltj@in@latex\expandafter\endcsname + \csname iftrue\endcsname + \NeedsTeXFormat{LaTeX2e} + \ProvidesPackage{luatexja-core}[2013/05/14 Core of LuaTeX-ja] +\fi % + +%% Load prerequisite packages. +\endlinechar=13 % +%! 外部パッケージは普通の \endlinechar で読まないと危険. +\ifltj@in@latex %<*LaTeX> + \RequirePackage{luaotfload} [2013/05/10] % v2.2 + \RequirePackage{infwarerr} [2010/04/08] % v1.3 + \RequirePackage{ltxcmds} [2011/11/09] % v1.22 + \RequirePackage{pdftexcmds} [2011/11/29] % v0.20 + \RequirePackage{xkeyval} [2012/10/14] % v2.6b +\else %<*!LaTeX> + \input luaotfload.sty + \input infwarerr.sty + \input ltxcmds.sty + \input pdftexcmds.sty + \input xkeyval +\fi % +\endlinechar=-1 % + +%% Check if LuaTeX is used +\ltx@LocalExpandAfter\ifx\csname directlua\endcsname\relax + % Loading is silently aborted, since the notice of the wrong + % engine is aldready shown in otfluaload. + \ltj@core@AtEnd +\expandafter\endinput\fi\relax + +%% Check LuaTeX version. +\ifnum\luatexversion<74 + \@PackageError{luatexja-core} + {This LuaTeX engine is too old for this package;\MessageBreak + at least beta-0.74.0 is needed} + {Package loading is aborted now.\MessageBreak} +\expandafter\endinput\fi\relax + +%! なお、luatexbase-compat の説明に従うと、LuaTeX 拡張プリミティブは +%! plain/LaTeX の両方で \luatex 付の名前（\directlua はそのまま) +%! で使えると考えてよい。 + +%% \LuaTeXjaAvailable +%! 環境検査にパスした時に定義される. +\let\LuaTeXjaAvailable=t % + +%%------------------ +\endlinechar=13 +%! この中に master の luatexja-core.sty の内容を挿入する +%! ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ % LuaTeX-ja core TeX source -\catcode`\@=11 \catcode"FFFFF=14 %" -\input luaotfload.sty -\input ltxcmds.sty -\input xkeyval.tex -\input infwarerr.sty -\ifdefined\ltj@loaded\endinput\fi \def\ltj@loaded{hoge} -\newcount\ltj@tempcnta -\newcount\ltj@tempcntb -\newcount\ltj@tempcntc -\newdimen\ltj@tempdima - - -\newcount\jcharwidowpenalty -\newskip\kanjiskip -\newskip\xkanjiskip -\newdimen\zw -\newdimen\zh +\newdimen\ltj@zw +\newdimen\ltj@zh \newdimen\jQ \jQ=0.25mm -\newdimen\jH \jH=0.25mm +\let\jH=\jQ + +%%%%%%%% error message +\def\ltj@defnum{0} +\def\ltj@defdimen{0} %%%%%%%% Attributes for Japanese typesetting. +\newluatexattribute\ltj@icflag % attribute for italic correction \newluatexattribute\ltj@curjfnt % index for ``current Japanese font'' -\newluatexattribute\ltj@charclass % -\newluatexattribute\ltj@yablshift % attribute for \yabaselineshift -\newluatexattribute\ltj@ykblshift % attribute for \ykbaselineshift +\newluatexattribute\ltj@origchar % +\newluatexattribute\ltj@charclass % \newluatexattribute\ltj@autospc % attribute for autospacing \newluatexattribute\ltj@autoxspc % attribute for autoxspacing -\newluatexattribute\ltj@icflag % attribute for italic correction -\newlanguage\ltj@japanese - -%%%%%%%% Loading lua files -\directlua{% - utf = unicode.utf8 - ltj = {} - function ltj.loadlua(file) - local path = assert(kpse.find_file(file, 'tex'), - "File '"..file.."' not found") - texio.write_nl("("..path..")") - dofile(path) - end - require('lualibs') - ltj.loadlua('luatexja-rmlgbm.lua') - % For Ryumin-Light and GothicBBB-Medium. - ltj.loadlua('luatexja-jfont.lua') - ltj.loadlua('luatexja-core.lua') - ltj.loadlua('luatexja-jfmglue.lua') - ltj.loadlua('luatexja-xkanji.lua') -} - +\newluatexattribute\ltj@yablshift % attribute for \yabaselineshift +\newluatexattribute\ltj@ykblshift % attribute for \ykbaselineshift +\newluatexattribute\jfam % index for current jfam +\ltj@icflag=0\ltj@origchar=0 %%%%%%%% Attributes for character ranges +\newcount\ltj@tempcnta \ltj@tempcnta=0 \loop\ifnum\ltj@tempcnta<7 \expandafter\newluatexattribute% @@ -63,25 +150,70 @@ \advance\ltj@tempcnta by1 \repeat + +%%%%%%%% Loading luatexja.lua +%% Quark tokens needed in ltj-base +\protected\def\ltj@@q@escape{\ltj@@q@escape@} +\protected\def\ltj@@q@escapenum{\ltj@@q@escapenum@} + +\directlua{% + luatexja = {} + dofile(assert(kpse.find_file('luatexja.lua', 'tex'), + "File `luatexja.lua' not found")) +} + +%% \RequireLuaTeXjaSubmodule{name}[date] +% A TeX version of luatexja.load_module(name) +% The second optional argument [date] is simply ignored. +\def\RequireLuaTeXjaSubmodule#1{% + \@ifnextchar[{\ltj@requirelua@submod{#1}}{\ltj@requirelua@submod{#1}[]}} +\def\ltj@requirelua@submod#1[#2]{% + \directlua{luatexja.load_module( + "\luatexluaescapestring{#1}")}} + + +%%%%%%%% Load all sub-packages. +\ifltj@in@latex %<*LaTeX> + \RequirePackage{ltj-base} [2013/05/14] +\else %<*!LaTeX> + \input ltj-base.sty % +\fi % + %%%%%%%% \asluastring \def\asluastring#1{'\luaescapestring{\detokenize{#1}}'} %%%%%%%% Redefine \/ -%\let\ltj@ic=\/ \protected\def\/{{\ltj@icflag=1\ltj@ic}} -\protected\def\/{\directlua{ltj.ext_append_italic()}} +\protected\def\/{\relax\directlua{luatexja.jfont.append_italic()}} %%%%%%%% \jfont\CS={...:...;jfm=metric;...}, \globaljfont -\protected\def\jfont{\afterassignment\ltj@@jfont\directlua{ltj.ext_jfontdefX(false)}} +\protected\def\jfont{\afterassignment\ltj@@jfont\directlua{luatexja.jfont.jfontdefX(false)}} \protected\def\globaljfont{% - \afterassignment\ltj@@jfont\directlua{ltj.ext_jfontdefX(true)}} -\def\ltj@@jfont{\directlua{ltj.ext_jfontdefY()}} + \afterassignment\ltj@@jfont\directlua{luatexja.jfont.jfontdefX(true)}} +\def\ltj@@jfont{\directlua{luatexja.jfont.jfontdefY()}} + +%%%%%%%% \zw, \zh +\protected\def\zw{\directlua{luatexja.jfont.load_zw()}\ltj@zw} +\protected\def\zh{\directlua{luatexja.jfont.load_zh()}\ltj@zh} + %%%%%%%% \inhibitglue -\protected\def\inhibitglue{\directlua{ltj.ext_create_inhibitglue_node()}} +\protected\def\ltj@reset@globaldefs{% + \directlua{luatexja.global_temp = tex.globaldefs; tex.globaldefs = 0}} +\protected\def\ltj@restore@globaldefs{\directlua{tex.globaldefs = luatexja.global_temp}} +\protected\def\inhibitglue{\ifhmode\ltj@@ihb\fi} +\def\ltj@@ihb{\relax\directlua{luatexja.jfmglue.create_inhibitglue_node()}} + +%%%%%%%% \yoko, \tate, \ifydir, \iftdir +%% At this moment, tategaki mode is not implemented; +%% there is only yokogaki mode now. +\let\yoko\relax +\let\tate\relax +\newif\ifydir\ydirtrue +\newif\iftdir\tdirfalse %%%%%%%% \ltjdefcharrange{100-200,3000-,5000,...} \protected\def\ltjdefcharrange#1#2{% - \ltj@tempcntc=#1 \expandafter\ltj@@dcrange#2,,\ignorespaces} + {\ltj@tempcntc=#1 \expandafter\ltj@@dcrange#2,,}\ignorespaces} \def\ltj@@dcrange#1,{\def\ltj@temp{#1}% \ifx\ltj@temp\empty\let\@next=\relax\else \ltj@@dcrangeA{#1}\let\@next=\ltj@@dcrange\fi\@next} @@ -91,11 +223,11 @@ \ltj@tempcnta=#1 \ltj@tempcntb=\ltj@tempcnta \else \def\ltj@temp{#1}% - \ifx\ltj@temp\empty\ltj@tempcnta='200 \else\ltj@tempcnta=#1 \fi + \ifx\ltj@temp\empty\ltj@tempcnta='200\else\ltj@tempcnta=#1\fi\relax \def\ltj@temp{#2}% - \ifx\ltj@temp\empty\ltj@tempcntb="10FFFF \else\ltj@tempcntb=#2 \fi%" + \ifx\ltj@temp\empty\ltj@tempcntb="10FFFF\else\ltj@tempcntb=#2\fi\relax%" \fi - \directlua{ltj.ext_add_char_range(\the\ltj@tempcnta,\the\ltj@tempcntb, + \directlua{luatexja.charrange.add_char_range(\the\ltj@tempcnta,\the\ltj@tempcntb, \the\ltj@tempcntc)}% } @@ -103,45 +235,72 @@ \newcount\ltj@@stack \newcount\ltj@@group@level \ltj@@group@level=0 \ltj@@stack=0 +\setbox0\hbox{% + \directlua{% This value depends on the version of LuaTeX. + luatexja.stack.hmode = -tex.nest[tex.nest.ptr].mode + } +} + % prebreakpenalty = {, } \define@key[ltj]{japaram}{kcatcode}{% - \expandafter\ltj@@set@stack#1:{kcat}{0}{0x7FFFFFFF}} + \expandafter\ltj@@set@stack#1:{KCAT}{0}{0x7FFFFFFF}} \define@key[ltj]{japaram}{prebreakpenalty}{% - \expandafter\ltj@@set@stack#1:{pre}{-10000}{10000}} + \expandafter\ltj@@set@stack#1:{PRE}{-10000}{10000}} \define@key[ltj]{japaram}{postbreakpenalty}{% - \expandafter\ltj@@set@stack#1:{post}{-10000}{10000}} + \expandafter\ltj@@set@stack#1:{POST}{-10000}{10000}} \def\ltj@@set@stack#1,#2:#3#4#5{% - \ltj@tempcnta=#1\relax \ltj@tempcntb=#2\relax - \directlua{ltj.ext_set_stack_table(ltj.isglobal, \asluastring{#3}, - \the\ltj@tempcnta,tex.getcount('ltj@tempcntb'),#4,#5)}} + \directlua{luatexja.stack.set_stack_table(luatexja.isglobal, luatexja.stack_table_index.#3, + \ltj@safe@num@or{nil}{#1},\ltj@safe@num@or{nil}{#2},#4,#5)}} + +% jatextfont = {, } +\define@key[ltj]{japaram}{jatextfont}{% + \expandafter\ltj@@set@stackfont#1:{MJT}} +\define@key[ltj]{japaram}{jascriptfont}{% + \expandafter\ltj@@set@stackfont#1:{MJS}} +\define@key[ltj]{japaram}{jascriptscriptfont}{% + \expandafter\ltj@@set@stackfont#1:{MJSS}} +\protected\def\ltj@@set@stackfont#1,#2:#3{% + \ltj@reset@globaldefs + \ltj@tempcnta=\ltj@curjfnt\ltj@curjfnt=-1 #2% + \ifnum\ltj@curjfnt=-1 + \@PackageError{luatexja-core}% + {\string#2 is not a control sequence that represents \MessageBreak + a Japanese font}{}% + \else + \directlua{luatexja.stack.set_stack_font(luatexja.isglobal, + luatexja.stack_table_index.#3, + \ltj@safe@num@or{nil}{#1}, \the\ltj@curjfnt)}% + \fi + \ltj@curjfnt=\ltj@tempcnta + \ltj@restore@globaldefs + } % yalbaselineshift = % yjabaselineshift = \define@key[ltj]{japaram}{yalbaselineshift}{% - \ltj@tempdima=#1\relax% - \directlua{tex.setattribute(ltj.isglobal, + \directlua{tex.setattribute(luatexja.isglobal, luatexbase.attributes['ltj@yablshift'], - tex.getdimen('ltj@tempdima'))}} + \ltj@safe@dimen@or\ltj@defdimen{#1})}} \define@key[ltj]{japaram}{yjabaselineshift}{% - \ltj@tempdima=#1\relax% - \directlua{tex.setattribute(ltj.isglobal, + \directlua{tex.setattribute(luatexja.isglobal, luatexbase.attributes['ltj@ykblshift'], - tex.getdimen('ltj@tempdima'))}} + \ltj@safe@dimen@or\ltj@defdimen{#1})}} % jaxspmode = {, } % mode: inhibit, preonly, postonly, allow -% or 0 2 1 3 +% or 0 1 2 3 \define@key[ltj]{japaram}{jaxspmode}{% \inhibitxspcode \expandafter\ltj@set@jaxspmode#1:\relax} \def\ltj@set@jaxspmode#1,#2:{% \lowercase{\edef\ltj@temp{#2}}% \def\ltj@tempa{inhibit}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{0}\fi - \def\ltj@tempa{preonly}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{2}\fi - \def\ltj@tempa{postonly}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{1}\fi + \def\ltj@tempa{preonly}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{1}\fi + \def\ltj@tempa{postonly}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{2}\fi \def\ltj@tempa{allow}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{3}\fi - \ltj@tempcnta=#1\relax\ltj@tempcntb=\ltj@temp\relax - \directlua{ltj.ext_set_stack_table(ltj.isglobal, 'xsp', \the\ltj@tempcnta, - \the\ltj@tempcntb,0,3)}} + \directlua{luatexja.stack.set_stack_table(luatexja.isglobal, + luatexja.stack_table_index.XSP, + \ltj@safe@num@or{nil}{#1}, + \ltj@safe@num@or{nil}{\ltj@temp},0,3)}} % alxspmode = {, } % mode: inhibit, preonly, postonly, allow @@ -154,44 +313,53 @@ \def\ltj@tempa{preonly}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{1}\fi \def\ltj@tempa{postonly}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{2}\fi \def\ltj@tempa{allow}\ifx\ltj@temp\ltj@tempa\def\ltj@temp{3}\fi - \ltj@tempcnta=#1\relax\ltj@tempcntb=\ltj@temp\relax - \directlua{ltj.ext_set_stack_table(ltj.isglobal, 'xsp', \the\ltj@tempcnta, - \the\ltj@tempcntb,0,3)}} + \directlua{luatexja.stack.set_stack_table(luatexja.isglobal, + luatexja.stack_table_index.XSP, + \ltj@safe@num@or{nil}{#1}, + \ltj@safe@num@or{nil}{\ltj@temp},0,3)}} % autospacing = (default: true) \define@boolkey[ltj]{japaram}{autospacing}[true]{% \ifltj@japaram@autospacing - \directlua{ltj.ext_print_global()}\ltj@autospc=1 + \directlua{luatexja.ext_print_global()}\ltj@autospc=1 \else - \directlua{ltj.ext_print_global()}\ltj@autospc=0 + \directlua{luatexja.ext_print_global()}\ltj@autospc=0 \fi} % autoxspacing = (default: true) \define@boolkey[ltj]{japaram}{autoxspacing}[true]{% \ifltj@japaram@autoxspacing - \directlua{ltj.ext_print_global()}\ltj@autoxspc=1 + \directlua{luatexja.ext_print_global()}\ltj@autoxspc=1 \else - \directlua{ltj.ext_print_global()}\ltj@autoxspc=0 + \directlua{luatexja.ext_print_global()}\ltj@autoxspc=0 \fi} +% [x]]kanjiskip = \define@key[ltj]{japaram}{kanjiskip}{% % SKIP - \directlua{ltj.ext_print_global()}\kanjiskip=#1 } + \directlua{luatexja.stack.set_stack_skip(luatexja.isglobal, 'kanjiskip', \ltj@safe@glue{#1})}} \define@key[ltj]{japaram}{xkanjiskip}{% % SKIP - \directlua{ltj.ext_print_global()}\xkanjiskip=#1 } + \directlua{luatexja.stack.set_stack_skip(luatexja.isglobal, 'xkanjiskip', \ltj@safe@glue{#1})}} + +% jcharwidowpenalty = \define@key[ltj]{japaram}{jcharwidowpenalty}{% %COUNT - \directlua{ltj.ext_print_global()}\jcharwidowpenalty=#1 } + \ltj@@set@stack0,#1:{JWP}{-10000}{10000}} -% differentjfm = { large | small | average | both } +% differentjfm = { large | small | average | pleft | pright | paverage | both} \define@choicekey*+[ltj]{japaram}{differentjfm}[\ltj@temp\ltj@tempr]% - {large,small,average,both}{% + {large,small,average,pleft,pright,paverage,both}{% \ifcase\ltj@tempr - \directlua{ltj.ja_diffmet_rule = math.max}\or - \directlua{ltj.ja_diffmet_rule = math.min}\or - \directlua{ltj.ja_diffmet_rule = math.two_average}\or - \directlua{ltj.ja_diffmet_rule = math.two_add} + \directlua{luatexja.jfmglue.diffmet_rule = math.max}\or + \directlua{luatexja.jfmglue.diffmet_rule = math.min}\or + \directlua{luatexja.jfmglue.diffmet_rule = math.two_average}\or + \directlua{luatexja.jfmglue.diffmet_rule = math.two_pleft}\or + \directlua{luatexja.jfmglue.diffmet_rule = math.two_pright}\or + \directlua{luatexja.jfmglue.diffmet_rule = math.two_paverage}\or + \directlua{luatexja.jfmglue.diffmet_rule = math.two_add} \fi -}{\@PackageWarning{luatexja}{ignored invalid argument '#1' for 'differentjfm'}} - % large, small, average, both +}{\ltj@PackageError{luatexja}{invalid argument `#1' for `differentjfm'}{% + Argument for `differentjfm' must be one of `large', `small', `average',^^J% + `pleft', `pright', 'paverage' or `both'. }} + % large, small, average, pleft, pright, paverage, both % jacharrange = { +- } @@ -199,17 +367,21 @@ \def\ltj@@scrange#1,{% \edef\ltj@temp{#1}% \ifx\ltj@temp\empty\let\next=\relax\else\let\next=\ltj@@scrange - \ltj@tempcnta=#1 \directlua{ltj.ext_toggle_char_range(% - ltj.is_global,\the\ltj@tempcnta)}% + \directlua{luatexja.charrange.toggle_char_range(% + luatexja.is_global,\ltj@safe@num@or{nil}{#1})}% \fi\next } -\protected\def\ltjsetparameter#1{\directlua{ltj.isglobal=''}% - \setkeys[ltj]{japaram}{#1}\ignorespaces} -\protected\def\ltjglobalsetparameter#1{\directlua{ltj.isglobal='global'}% +\protected\def\ltj@setpar@global{% + \ifnum\globaldefs>0\directlua{luatexja.isglobal='global'}\else\directlua{luatexja.isglobal=''}\fi +} +\protected\def\ltjsetparameter#1{% + \ltj@setpar@global\setkeys[ltj]{japaram}{#1}\ignorespaces} +\protected\def\ltjglobalsetparameter#1{% + \ifnum\globaldefs<0\directlua{luatexja.isglobal=''}\else\directlua{luatexja.isglobal='global'}\fi \setkeys[ltj]{japaram}{#1}\ignorespaces} -%%%%%%%% +%%%%%%%% \ltjgetparameter \def\ltj@@decl@array@param#1{% \expandafter\let\csname ltj@@array@param/#1\endcsname=t% } @@ -230,17 +402,57 @@ {\ltj@@getparam@one{#1}}% } \def\ltj@@getparam@one#1{% - \directlua{ltj.ext_get_parameter_unary('#1')}}% -\def\ltj@@getparam@two#1#2{\ltj@tempcnta=#2 - \directlua{ltj.ext_get_parameter_binary('#1', \the\ltj@tempcnta)}% + \directlua{luatexja.ext_get_parameter_unary('#1')}}% +\def\ltj@@getparam@two#1#2{% + \directlua{luatexja.ext_get_parameter_binary('#1', \ltj@safe@num@or{nil}{#2})}% } +%%%%%%%% \ltjalchar, \ltjjachar +\let\ltj@@origchar=\char +\protected\def\ltj@alljachar{\relax + \csname ltj@kcat0\endcsname=0 + \csname ltj@kcat1\endcsname=0 + \csname ltj@kcat2\endcsname=0 + \csname ltj@kcat3\endcsname=0 + \csname ltj@kcat4\endcsname=0 + \csname ltj@kcat5\endcsname=0 + \csname ltj@kcat6\endcsname=0 } +\protected\def\ltj@allalchar{\relax + \csname ltj@kcat0\endcsname="7FFFFFFF %" + \csname ltj@kcat1\endcsname="7FFFFFFF %" + \csname ltj@kcat2\endcsname="7FFFFFFF %" + \csname ltj@kcat3\endcsname="7FFFFFFF %" + \csname ltj@kcat4\endcsname="7FFFFFFF %" + \csname ltj@kcat5\endcsname="7FFFFFFF %" + \csname ltj@kcat6\endcsname="7FFFFFFF }%" + +\protected\def\ltjjachar{\afterassignment\ltj@@jachar\ltj@tempcnta} +\def\ltj@@jachar{{\directlua{tex.globaldefs = 0}\ltj@alljachar\ltj@@origchar\ltj@tempcnta}} +\protected\def\ltjalchar{\afterassignment\ltj@@alchar\ltj@tempcnta} +\def\ltj@@alchar{{\directlua{tex.globaldefs = 0}\ltj@allalchar\ltj@@origchar\ltj@tempcnta}} + +%%%%%%%% \ltjsetmathletter, \ltjunsetmathletter +\protected\def\ltjsetmathletter#1{\directlua{luatexja.math.is_math_letters[#1]=true}} +\protected\def\ltjunsetmathletter#1{\directlua{luatexja.math.is_math_letters[#1]=false}} +%%------------------ Load module for the format + +\ifltj@in@latex %<*LaTeX> + \RequirePackage{ltj-latex}[2013/05/14] +\else\ifltj@in@plain %<*plain> + \input ltj-plain.sty % +\fi\fi % + +\newluatexcatcodetable\ltj@temp@cctb +\def\ltj@overwrite@catcodetable#1{% + \setluatexcatcodetable\ltj@temp@cctb{\luatexcatcodetable#1}% + \setluatexcatcodetable#1{\luatexcatcodetable\ltj@temp@cctb\catcode"FFFFF=14}% +} +\ltj@overwrite@catcodetable\CatcodeTableLaTeX +\ltj@overwrite@catcodetable\CatcodeTableLaTeXAtLetter +\ltj@overwrite@catcodetable\CatcodeTableExpl -\def\ltj@temp{plain} -\ifx\fmtname\ltj@temp - \message{plain format: loading luatexja-plain.tex} -\fi -\input luatexja-plain.tex -\catcode`\@=12 +%%------------------ all done +\ltj@core@AtEnd \endinput +%% EOF