+++ /dev/null
-%
-% ltj-cctbreg.sty
-%
-
-%! luatexbase と luatex パッケージのカテゴリコードテーブルの割当に
-%! 関する衝突を回避する.
-%! この衝突に関して「外部のパッチ」で解決しようとするのは, あまり
-%! 筋が良くなく, できるなら避けたいが, 今のままだと LuaTeX-ja を
-%! LaTeX + fontspec で用いた時に確実に影響が出る. また衝突を残した
-%! ままだとカテゴリコードテーブルが実質的に使えない訳で, これも
-%! 残念なことである.
-%! 「近いうちに両パッケージの中で解決される」ことを期待しつつ,
-%! 「衝突がない」という前提で開発を行いたいので, 暫定的処置として,
-%! このモジュールを用意する.
-
-%! これは外から読まれない
-%% Avoid multiple loading.
-\csname luatexjacctbregLoaded\endcsname
-\edef\ltj@cctbreg@AtEnd{%
-\endlinechar=\the\endlinechar
-\relax}
-\endlinechar=-1 %
-\def\luatexjacctbregLoaded{\endinput}
-
-\ifltj@in@latex %<*LaTeX>
- \NeedsTeXFormat{LaTeX2e}
- \ProvidesPackage{ltj-cctbreg}[2013/05/14]
-\fi %</LaTeX>
-
-% LS = Size of storage reserved for luatex-pkg.
-\chardef\ltj@cctb@lower@stor@size=16384
-
-% LL = (upper bound of cctb index used by luatexbase.sty and luatex.sty) - 1
-\chardef\ltj@cctb@limit=32766
-
-%-------------------
-
-\newcount\ltj@@cctb@failure
-
-\ltj@@cctb@failure=0
-\def\ltj@@cctb@check@failure{
- \ifnum\ltj@@cctb@failure>0 %
- \@PackageWarningNoLine{ltj-cctbreg}
- {Cannot apply the patch (\the\ltj@@cctb@failure)}
- \ltj@cctbreg@AtEnd
- \expandafter\endinput\fi\relax
-}
-
-\chardef\ltj@@cctb@lower@stor@max=
- \numexpr\ltj@cctb@lower@stor@size-1\relax
-\chardef\ltj@@cctb@lower@stor@safemax=
- \numexpr\ltj@cctb@lower@stor@size-8\relax
-
-\chardef\ltj@@tempcctb@a=\ltj@cctb@lower@stor@size
-\chardef\ltj@@tempcctb@b=\numexpr\ltj@cctb@lower@stor@size+1\relax
-\def\ltj@@copy@cctb#1#2{%
- % Note: The current cctb number is supposed to be zero.
- \luatexcatcodetable#1\relax
- \luatexsavecatcodetable#2\relax
- \luatexcatcodetable0\relax
-}
-
-%-------------------
-
-% The luatexbase-cctb package stores its preset settings to
-% registers 1--6, and new user allocations go to number 7, 8, ....
-
-\ifdefined\lltxb@catcodetable@alloc
- \ifnum\lltxb@catcodetable@alloc>\ltj@@cctb@lower@stor@safemax
- % Failure: luatexbase-cctb alloc pointer is too high!
- \ltj@@cctb@failure=2 %
- \fi
-\else
- % Failure: luatexbase-cctb not loaded!
- \ltj@@cctb@failure=1 %
-\fi
-
-\begingroup
-\endlinechar=13
-\gdef\ltj@@cctb@org@def#1{%
- \ifnum\lltxb@catcodetable@alloc<65535\relax
- \global\advance\lltxb@catcodetable@alloc\tw@
- \allocationnumber\lltxb@catcodetable@alloc
- \global\chardef#1\allocationnumber
- \luatexinitcatcodetable\allocationnumber
- \begingroup\escapechar\m@ne
- \luatexbase@directlua{luatexbase.catcodetabledef_from_tex(
- '\luatexluaescapestring{\string#1}', '\number\allocationnumber')}%
- \endgroup
- \wlog{\string#1=\string\luatexcatcodetable\the\allocationnumber}%
- \else
- \errmessage{No room for a new \string\luatexcatcodetable}%
- \fi}
-\endgroup
-
-\unless\ifx\ltj@@cctb@org@def\newluatexcatcodetable
- % Failure: luatexbase-cctb is not of expected version!
-%%% \bebo <- the meaning of this control sequence?
- \ltj@@cctb@failure=3 %
-\fi
-
-\ifdefined\LuT@AllocAttribute
- \ifnum\LuT@AllocAttribute>\ltj@@cctb@lower@stor@safemax
- % Failure: luatex-pkg alloc pointer is too high!
- \ltj@@cctb@failure=4 %
- \fi
-\fi
-\ifdefined\CatcodeTableStack
- \ifnum\CatcodeTableStack>\ltj@@cctb@lower@stor@safemax
- % Failure: luatex-pkg cctb-stack pointer is too high!
- \ltj@@cctb@failure=5 %
- \fi
-\fi
-
-\ltj@@cctb@check@failure
-
-\ltx@firstofone{
- \newluatexcatcodetable\cctb@seven
- \catcode12345=14 %
- \luatexsavecatcodetable\cctb@seven
- \catcode12345=12 %
-}
-
-%% Save the register 7 (to a temporary register)
-\unless\ifnum\lltxb@catcodetable@alloc<7 %
- \ltj@@copy@cctb{7}{\ltj@@tempcctb@a}
-\fi
-
-%-------------------
-
-\begingroup
-\endlinechar=13
-\gdef\newluatexcatcodetable#1{%
- \ifnum\lltxb@catcodetable@alloc<\ltj@cctb@limit\relax
- \global\advance\lltxb@catcodetable@alloc\tw@
- \allocationnumber\lltxb@catcodetable@alloc
- \global\chardef#1\allocationnumber
- \luatexinitcatcodetable\allocationnumber
- \begingroup\escapechar\m@ne
- \luatexbase@directlua{luatexbase.catcodetabledef_from_tex(
- '\luatexluaescapestring{\string#1}', '\number\allocationnumber')}%
- \endgroup
- \wlog{\string#1=\string\luatexcatcodetable\the\allocationnumber}%
- \else
- \errmessage{No room for a new \string\luatexcatcodetable}%
- \fi}
-\endgroup
-
-%-------------------
-
-% The luatex package stores its preset settings to registers 1, 3, 5, 7
-% and new user allocations go to odd number 9, 11, 13, etc.; registers
-% with even number are reserved for the "category code table stack".
-
-% I relocate all the future allocation by luatexbase-cctb to the "higher"
-% area (number >= \ltj@cctb@lower@stor@size), which is simply done by
-% moving the allocation pointer. And all the preset settings of
-% luatexbase-cctb (those of luatex-pkg is a subset) are prepared again.
-% The colliding user allocation cannot be helped, but in the fortunate
-% case where luatex-pkg is not yet loaded or its allocating function
-% is never invoked, the only endangered user allocation is register 7
-% of luatexbase-cctb, which is rescued by simply reassining the table,
-% since the all presets are migrated to the higher area.
-
-\unless\ifdefined\LuT@AllocAttribute
- \ifltj@in@latex
- \RequirePackage{luatex}[2010/03/01]
- \else
- \input luatex.sty\relax
- \fi
-\fi
-
-\edef\ltj@@tempa{\meaning\LuT@AllocAttribute}
-\edef\ltj@@tempb{\meaning\lltxb@catcodetable@alloc}
-\ifx\ltj@@tempa\ltj@@tempb
- % Failure: luatexbase-cctb and luatex-pkg seem to be synchronized!
- \ltj@@cctb@failure=6 %
-\fi
-\ltj@@cctb@check@failure
-
-\unless\ifnum 7=
- \ifdefined\CatcodeTableLaTeX \CatcodeTableLaTeX
- \else 0 \fi
- % Failure: luatex-pkg is not of expected version!!
- \ltj@@cctb@failure=100 %
-\fi
-
-\def\ltj@@cctb@org@def#1{
- \ifnum\LuT@AllocCatcodeTable<1114110 %
- \global\advance\LuT@AllocCatcodeTable by\tw@
- \allocationnumber=\LuT@AllocCatcodeTable
- \global\chardef#1=\allocationnumber
- \wlog{
- \string#1=\string\catcodetable\the\allocationnumber
- }
- \else
- \errmessage{No room for a new \string\catcodetable}
- \fi
-}
-\unless\ifx\ltj@@cctb@org@def\newcatcodetable
- % Failure: luatex-pkg is not of expected version!!
- \ltj@@cctb@failure=100 %
-\fi
-
-\def\ltj@@cctb@org@def{%
- \ifnum\CatcodeTableStack<65534\relax
- \global\advance\CatcodeTableStack\tw@
- \else
- \errmessage{CatcodeTableStack overflow}%
- \fi}
-\unless\ifx\ltj@@cctb@org@def\IncCatcodeTableStack
- % Failure: luatex-pkg is not of expected version!!
- \ltj@@cctb@failure=100 %
-\fi
-\ltj@@cctb@check@failure
-
-%% Restore the register 7 which is overwritten by luatex-pkg.
-\unless\ifnum\lltxb@catcodetable@alloc<7 %
- \ltj@@copy@cctb{\ltj@@tempcctb@a}{7}
-\fi
-
-%% Move the pointer of luatexbase-cctb to higher area.
-\lltxb@catcodetable@alloc=\ltj@cctb@lower@stor@size
-
-%% Restrict the allocation by luatex-pkg to lower area.
-\chardef\ltj@@cctb@lower@stor@check=
- \numexpr\ltj@cctb@lower@stor@size-2\relax
-\def\newcatcodetable#1{
- \ifnum\LuT@AllocCatcodeTable<\ltj@@cctb@lower@stor@check
- \global\advance\LuT@AllocCatcodeTable by\tw@
- \allocationnumber=\LuT@AllocCatcodeTable
- \global\chardef#1=\allocationnumber
- \wlog{
- \string#1=\string\catcodetable\the\allocationnumber
- }
- \else
- \errmessage{No room for a new \string\catcodetable}
- \fi
-}
-\def\IncCatcodeTableStack{%
- \ifnum\CatcodeTableStack<\ltj@@cctb@lower@stor@check
- \global\advance\CatcodeTableStack by\tw@
- \else
- \@PackageError{luatex}{%
- Catcode table stack overflow%
- }\@ehd
- \fi
-}
-
-%------------------- Re-create the presets
-
-\newluatexcatcodetable\CatcodeTableIniTeX
-\newluatexcatcodetable\CatcodeTableString
-\setluatexcatcodetable\CatcodeTableString{%
- \luatexcatcodetable\CatcodeTableIniTeX
- \catcode0 12 % nul
- \catcode13 12 % carriage return
- \catcode37 12 % percent
- \SetCatcodeRange{65}{90}{12}% A-Z
- \SetCatcodeRange{97}{122}{12}% a-z
- \catcode92 12 % backslash
- \catcode127 12 }
-\newluatexcatcodetable\CatcodeTableOther
-\setluatexcatcodetable\CatcodeTableOther{%
- \luatexcatcodetable\CatcodeTableString
- \catcode32 12 }
-\newluatexcatcodetable\CatcodeTableLaTeX
-\setluatexcatcodetable\CatcodeTableLaTeX{%
- \luatexcatcodetable\CatcodeTableIniTeX
- \SetCatcodeRange{0}{31}{15}%
- \catcode9 10 % tab
- \catcode12 13 % form feed
- \catcode13 5 % carriage return
- \catcode35 6 % hash
- \catcode36 3 % dollar
- \catcode38 4 % ampersand
- \catcode94 7 % circumflex
- \catcode95 8 % underscore
- \catcode123 1 % brace left
- \catcode125 2 % brace right
- \catcode126 13 % tilde
- \catcode127 15 }
-\newluatexcatcodetable\CatcodeTableLaTeXAtLetter
-\setluatexcatcodetable\CatcodeTableLaTeXAtLetter{%
- \luatexcatcodetable\CatcodeTableLaTeX
- \catcode64=11 }
-\newluatexcatcodetable\CatcodeTableExpl
-\setluatexcatcodetable\CatcodeTableExpl{%
- \luatexcatcodetable\CatcodeTableLaTeX
- \catcode126 10 % tilde is a space char
- \catcode32 9 % space is ignored
- \catcode9 9 % tab also ignored
- \catcode95 11 % underscore letter
- \catcode58 11 % colon letter
- }
-\luatexbase@directlua{luatexbase.catcodetable_do_shortcuts()}
-
-%%------------------ all done
-\ltj@cctbreg@AtEnd
-\endinput
-%% EOF
%%%%%%%% 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@origchar %
+\newluatexattribute\ltj@charclass %
\newluatexattribute\ltj@autospc % attribute for autospacing
\newluatexattribute\ltj@autoxspc % attribute for autoxspacing
\newluatexattribute\ltj@yablshift % attribute for \yabaselineshift
%%%%%%%% Load all sub-packages.
\ifltj@in@latex %<*LaTeX>
- \RequirePackage{ltj-cctbreg}[2013/05/14]
\RequirePackage{ltj-base} [2013/05/14]
\else %<*!LaTeX>
- \input ltj-cctbreg.sty %
\input ltj-base.sty %
\fi %</LaTeX>
\def\ltj@@ihb{\relax\directlua{luatexja.jfmglue.create_inhibitglue_node()}}
%%%%%%%% \yoko, \tate, \ifydir, \iftdir
-%% At this moment, tategaki mode is not implemented;
+%% At this moment, tategaki mode is not implemented;
%% there is only yokogaki mode now.
\let\yoko\relax
\let\tate\relax
{\string#2 is not a control sequence that represents \MessageBreak
a Japanese font}{}%
\else
- \directlua{luatexja.stack.set_stack_font(luatexja.isglobal,
+ \directlua{luatexja.stack.set_stack_font(luatexja.isglobal,
luatexja.stack_table_index.#3,
\ltj@safe@num@or{nil}{#1}, \the\ltj@curjfnt)}%
\fi
% yalbaselineshift = <dimen>
% yjabaselineshift = <dimen>
\define@key[ltj]{japaram}{yalbaselineshift}{%
- \directlua{tex.setattribute(luatexja.isglobal,
+ \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,
+ \directlua{tex.setattribute(luatexja.isglobal,
luatexbase.attributes['ltj@ykblshift'],
\ltj@safe@dimen@or\ltj@defdimen{#1})}}
OSDN Git Service
