X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=src%2Fluatexja-core.sty;h=853872ee939f4735c421c617fea21f71b0ca177a;hb=60c3a83c4cedcb7ff90f956165c843a1474d6fd6;hp=80728e3d3a01316dbfa795be97ee222ef0cc6c62;hpb=4020822f42038618f0ca8b4d36c6bbd79a50ab41;p=luatex-ja%2Fluatexja.git diff --git a/src/luatexja-core.sty b/src/luatexja-core.sty index 80728e3..853872e 100644 --- a/src/luatexja-core.sty +++ b/src/luatexja-core.sty @@ -1,88 +1,462 @@ -\input luaotfload.sty -\catcode`\@=11 +% +% 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}[2012/04/20 v0.2] +\fi % + +%% Load prerequisite packages. +%! 参考： W32TeX の LuaTeX +%! 2010/11/27 v0.65.0 r3988 (LuaTeX-ja の最低要件) +%! 2010/07/10 v0.60.2 r3735 (TL2010 とほぼ同じ) +\endlinechar=13 % +%! 外部パッケージは普通の \endlinechar で読まないと危険. +\ifltj@in@latex %<*LaTeX> + \RequirePackage{luaotfload} [2010/11/11] % v1.21 + \RequirePackage{infwarerr} [2010/04/08] % v1.3 + \RequirePackage{ltxcmds} [2010/04/26] % v1.7 + \RequirePackage{pdftexcmds} [2010/04/01] % v0.9 + \RequirePackage{xkeyval} [2008/08/13] % v2.6a +\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<65 + \@PackageError{luatexja-core} + {This LuaTeX engine is too old for this package;\MessageBreak + at least v0.65 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"FFFFF=14 %" -\ifdefined\luatexja@loaded\endinput\fi -\def\luatexja@loaded{hoge} +\def\ltj@loaded{hoge} -\newcount\luatexja@tempcnta -\newdimen\luatexja@tempdima -%\newcount\jcharwidowpenalty -\newskip\kanjiskip\kanjiskip=0pt minus.4pt -\newskip\xkanjiskip -\newdimen\zw -\newdimen\zh +\newdimen\ltj@zw +\newdimen\ltj@zh \newdimen\jQ \jQ=0.25mm -\newdimen\jH \jH=0.25mm -\newcount\luatexja@autospc -\newcount\luatexja@autoxspc +\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@origchar % +\newluatexattribute\ltj@charclass % +\newluatexattribute\ltj@autospc % attribute for autospacing +\newluatexattribute\ltj@autoxspc % attribute for autoxspacing +\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% + \csname ltj@kcat\the\ltj@tempcnta\endcsname + \csname ltj@kcat\the\ltj@tempcnta\endcsname=0 + \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{% - ltj = {} - function ltj.loadlua(file) - local path = assert(kpse.find_file(file, 'tex'), - "File '"..file.."' no found") - texio.write_nl("("..path..")") - dofile(path) - end - ltj.loadlua('luatexja-core.lua') - ltj.loadlua('luatexja-core-aux.lua') + 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-cctbreg}[2012/04/21] + \RequirePackage{ltj-base}[2012/04/21] +\else %<*!LaTeX> + \input ltj-cctbreg.sty % + \input ltj-base.sty % +\fi % + +%%%%%%%% \asluastring +\def\asluastring#1{'\luaescapestring{\detokenize{#1}}'} + +%%%%%%%% Redefine \/ +\protected\def\/{\relax\directlua{luatexja.jfont.append_italic()}} + +%%%%%%%% \jfont\CS={...:...;jfm=metric;...}, \globaljfont +\protected\def\jfont{\afterassignment\ltj@@jfont\directlua{luatexja.jfont.jfontdefX(false)}} +\protected\def\globaljfont{% + \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\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} +\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} +\def\ltj@@dcrangeA#1{\ltj@@dcrangeB#1--\@nil} +\def\ltj@@dcrangeB#1-#2-#3\@nil{\def\ltj@temp{#3}% + \ifx\ltj@temp\empty + \ltj@tempcnta=#1 \ltj@tempcntb=\ltj@tempcnta + \else + \def\ltj@temp{#1}% + \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\relax%" + \fi + \directlua{luatexja.charrange.add_char_range(\the\ltj@tempcnta,\the\ltj@tempcntb, + \the\ltj@tempcntc)}% + } + +%%%%%%%% \ltjsetparameter +\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}} +\define@key[ltj]{japaram}{prebreakpenalty}{% + \expandafter\ltj@@set@stack#1:{PRE}{-10000}{10000}} +\define@key[ltj]{japaram}{postbreakpenalty}{% + \expandafter\ltj@@set@stack#1:{POST}{-10000}{10000}} +\def\ltj@@set@stack#1,#2:#3#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}{% + \directlua{tex.setattribute(luatexja.isglobal, + luatexbase.attributes['ltj@yablshift'], + \ltj@safe@dimen@or\ltj@defdimen{#1})}} +\define@key[ltj]{japaram}{yjabaselineshift}{% + \directlua{tex.setattribute(luatexja.isglobal, + luatexbase.attributes['ltj@ykblshift'], + \ltj@safe@dimen@or\ltj@defdimen{#1})}} + +% jaxspmode = {, } +% mode: inhibit, preonly, postonly, allow +% 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{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 + \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 +% or 0 1 2 3 +\define@key[ltj]{japaram}{alxspmode}{% \inhibitxspcode + \expandafter\ltj@set@alxspmode#1:\relax} +\def\ltj@set@alxspmode#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{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 + \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{luatexja.ext_print_global()}\ltj@autospc=1 + \else + \directlua{luatexja.ext_print_global()}\ltj@autospc=0 + \fi} + +% autoxspacing = (default: true) +\define@boolkey[ltj]{japaram}{autoxspacing}[true]{% + \ifltj@japaram@autoxspacing + \directlua{luatexja.ext_print_global()}\ltj@autoxspc=1 + \else + \directlua{luatexja.ext_print_global()}\ltj@autoxspc=0 + \fi} + +% [x]]kanjiskip = +\define@key[ltj]{japaram}{kanjiskip}{% % SKIP + \directlua{luatexja.stack.set_stack_skip(luatexja.isglobal, 'kanjiskip', \ltj@safe@glue{#1})}} +\define@key[ltj]{japaram}{xkanjiskip}{% % SKIP + \directlua{luatexja.stack.set_stack_skip(luatexja.isglobal, 'xkanjiskip', \ltj@safe@glue{#1})}} + +% jcharwidowpenalty = +\define@key[ltj]{japaram}{jcharwidowpenalty}{% %COUNT + \ltj@@set@stack0,#1:{JWP}{-10000}{10000}} + +% differentjfm = { large | small | average | pleft | pright | paverage | both} +\define@choicekey*+[ltj]{japaram}{differentjfm}[\ltj@temp\ltj@tempr]% + {large,small,average,pleft,pright,paverage,both}{% + \ifcase\ltj@tempr + \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 +}{\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 = { +- } +\define@key[ltj]{japaram}{jacharrange}{\expandafter\ltj@@scrange#1,,} +\def\ltj@@scrange#1,{% + \edef\ltj@temp{#1}% + \ifx\ltj@temp\empty\let\next=\relax\else\let\next=\ltj@@scrange + \directlua{luatexja.charrange.toggle_char_range(% + luatexja.is_global,\ltj@safe@num@or{nil}{#1})}% + \fi\next +} + +\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% +} +\ltj@@decl@array@param{prebreakpenalty} +\ltj@@decl@array@param{postbreakpenalty} +\ltj@@decl@array@param{jaxspmode} +\ltj@@decl@array@param{alxspmode} +\ltj@@decl@array@param{kcatcode} +\ltj@@decl@array@param{jacharrange} +\ltj@@decl@array@param{chartorange} +\def\ltjgetparameter#1{% + \ifcsname ltj@@array@param/#1\endcsname + \expandafter\ltx@firstoftwo + \else + \expandafter\ltx@secondoftwo + \fi + {\ltj@@getparam@two{#1}}% + {\ltj@@getparam@one{#1}}% } +\def\ltj@@getparam@one#1{% + \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}[2012/04/21] +\else\ifltj@in@plain %<*plain> + \input ltj-plain.sty % +\fi\fi % -% Attributes for Japanese typesetting. -\newluatexattribute\luatexja@curjfnt % index for ``current Japanese font'' -\newluatexattribute\luatexja@charclass % -\newluatexattribute\luatexja@yablshift % attribute for \yabaselineshift -\newluatexattribute\luatexja@ykblshift % attribute for \ykbaselineshift - -% for italic correction -\newluatexattribute\luatexja@icflag -\let\luatexja@ic=\/ -\def\/{{\luatexja@icflag=1\luatexja@ic}} - -% for hyphenation -\newlanguage\luatexja@japanese -\directlua{ltj.ja_lang_number=\the\luatexja@japanese} - - -% \jfont : Regard as a Japanese font. -% must be defined by \font primitive already, and must be a control -% sequence defined by \loadjfontmetric below. -\def\jfont{\directlua{ltj.jfontdefA(true)}} -\def\@jfont#1{\directlua{ltj.jfontdefB('#1')}} - -% \loadjfontmetric : -% load which contains a font metric for a Japanese font. -\def\loadjfontmetric#1#2{% #1: key, #2: file name -\directlua{ - jfm.name='#1'; jfm.char_type={}; jfm.glue={}; jfm.kern={} - ltj.loadlua('luatj-#2.lua'); ltj.loadjfontmetric()} +\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 -% ybaselineshift -\let\yabaselineshift=\luatexja@yablshift % 欧文文字 -\let\ykbaselineshift=\luatexja@ykblshift % 和文文字 -\luatexja@yablshift=0 \luatexja@ykblshift=0 - -% \inhibitxspcode, \xspcode -\def\setinhibitxspcode#1#2{\directlua{ltj.set_inhibit_xsp_table(#1,#2)}} -\def\getinhibitxspcode#1{\directlua{ltj.get_inhibit_xsp_table(#1)}} -\let\setxspcode=\setinhibitxspcode -\let\getxspcode=\getinhibitxspcode -% \prebreakpenalty, \postbreakpenalty -\def\setprebreakpenalty#1#2{\directlua{ltj.set_penalty_table('pre',#1,#2)}} -\def\setpostbreakpenalty#1#2{\directlua{ltj.set_penalty_table('post',#1,#2)}} -\def\getprebreakpenalty#1{\directlua{ltj.get_penalty_table('pre',#1)}} -\def\getpostbreakpenalty#1{\directlua{ltj.get_penalty_table('post',#1)}} - -\def\autospacing{\luatexja@autospc=0 } -\def\noautospacing{\luatexja@autospc=1 } -\def\autoxspacing{\luatexja@autoxspc=0 } -\def\noautoxspacing{\luatexja@autoxspc=1 } -\autospacing\autoxspacing -% \inhibitglue -\def\inhibitglue{\directlua{ltj.create_ihb_node()}} - -\input luatexja-kinsoku.tex -\catcode`\@=12 +%%------------------ all done +\ltj@core@AtEnd \endinput +%% EOF