%
% lltjp-listings.sty
%
-% Modified from jlisting.sty (by Thor) for LuaTeX-ja.
-%
\NeedsTeXFormat{LaTeX2e}
-\def\filedate{2006/02/20}
-\def\fileversion{0.2}
-\ProvidesPackage{lltjp-listings}[\filedate\space\fileversion\space(Thor)]
-\RequirePackage{listings}
-\newcount\lst@nextchar
-\let\lst@@ProcessSpace\lst@ProcessSpace
-\def\lst@ProcessSpace#1{%
- \lst@check@chartype{#1}%
- \lst@@ProcessSpace
- \lst@whitespacetrue}
-\let\lst@@ProcessLetter\lst@ProcessLetter
-\def\lst@ProcessLetter#1#2{%
- \lst@check@chartype{#2}%
- {\lst@@ProcessLetter{#1}}%
- \relax}
-\let\lst@@ProcessDigit\lst@ProcessDigit
-\def\lst@ProcessDigit#1#2{%
- \lst@check@chartype{#2}%
- {\lst@@ProcessDigit{#1}}%
- \relax}
-\let\lst@@ProcessOther\lst@ProcessOther
-\def\lst@ProcessOther#1#2{%
- \lst@check@chartype{#2}%
- {\lst@@ProcessOther{#1}}%
- \relax}
-\let\lst@@ProcessTabulator\lst@ProcessTabulator
-\def\lst@ProcessTabulator#1{%
- \lst@check@chartype{#1}%
- \lst@@ProcessTabulator
- \relax}
-\def\lst@check@chartype#1#2#3{%
- \edef\@tempa{\lst@nextchar=`\string#1\relax}%
- \afterassignment\remove@to@nnil
- \@tempa\@nnil
- #2%
- \ifnum\lst@nextchar<\@cclvi
- #3%
- \else
- \lst@ifletter \else \lst@OutputOther \fi
- \lst@whitespacefalse
- \expandafter\lst@AppendJchar
- \fi
- #1}
-\def\lst@AppendJchar#1#2{%
- \lst@check@chartype{#2}%
- {\advance\lst@length\@ne\lst@Append{#1}}%
- \relax}
-\def\lst@check@chartype@BOL#1{%
- \edef\@tempa{\lst@nextchar=`\string#1\relax}%
- \afterassignment\remove@to@nnil
- \@tempa\@nnil
- \ifnum\lst@nextchar<\@cclvi\else
- \lst@whitespacefalse
- \expandafter\lst@AppendJchar
- \fi
- #1}
-\def\lst@InputListing#1{%
- \begingroup
- \lsthk@PreSet \gdef\lst@intname{#1}%
- \expandafter\lstset\expandafter{\lst@set}%
- \lsthk@DisplayStyle
- \catcode\active=\active
- \lst@Init\relax \let\lst@gobble\z@
- \lst@SkipToFirst
- \lst@ifprint \def\lst@next{\lst@get@filecontents{#1}}%
- \else \let\lst@next\@empty
- \fi
- \catcode"FFFFF=12%"
- \lst@next
- \lst@DeInit
- \endgroup}
-\newread\lst@inputfile
-\def\lst@get@filecontents#1{%
- \let\lst@filecontents\@empty
- \openin\lst@inputfile=#1\relax
- \let\@lst@get@filecontents@prevline\relax
- \lst@get@filecontents@loop
- \closein\lst@inputfile
- \lst@filecontents\empty}
-\def\lst@get@filecontents@loop{%
- \read\lst@inputfile to\@lst@get@filecontents@currline
- \ifx\@lst@get@filecontents@prevline\relax\else
- \expandafter\expandafter\expandafter\def
- \expandafter\expandafter\expandafter\lst@filecontents
- \expandafter\expandafter\expandafter{%
- \expandafter\lst@filecontents\@lst@get@filecontents@prevline}%
- \fi
- \let\@lst@get@filecontents@prevline\@lst@get@filecontents@currline
- \ifeof\lst@inputfile\else
- \expandafter\lst@get@filecontents@loop
- \fi}
-%%% [この処理も，相当強引です．]
-\def\lst@BOLGobble{%
- \ifnum\lst@gobble>\z@
- \@tempcnta\lst@gobble\relax
- \expandafter\lst@BOLGobble@
- \else
- \expandafter\lst@check@chartype@BOL
- \fi}
-\def\lst@BOLGobble@#1{%
- \let\lst@next#1%
- \ifx \lst@next\relax\else
- \ifx \lst@next\lst@MProcessListing\else
- \ifx \lst@next\lst@ProcessFormFeed\else
- \ifx \lst@next\lstenv@backslash
- \let\lst@next\lstenv@BOLGobble@@
- \else
- \let\lst@next\lst@BOLGobble@@
- \ifx #1\lst@ProcessTabulator
- \advance\@tempcnta-\lst@tabsize\relax
- \ifnum\@tempcnta<\z@
- \lst@length-\@tempcnta \lst@PreGotoTabStop
- \fi
+\ProvidesPackage{lltjp-listings}[2013/05/14 Patch to listings for LuaTeX-ja]
+\RequirePackage{listings,luatexbase-cctb}
+
+% lowest level
+\def\lst@kanjitrue{\let\lst@ifkanji\iftrue}
+\def\lst@kanjifalse{\let\lst@ifkanji\iffalse}
+\lst@AddToHook{InitVars}{\lst@kanjifalse}
+
+\def\lst@AppendLetter{%
+ \ltj@lst@setletterflag\lst@Append}
+\def\lst@AppendOther{%
+ \lst@ifletter\lst@Output\lst@letterfalse\fi\lst@kanjifalse
+ \futurelet\lst@lastother\lst@Append}
+
+\def\ltj@lst@setletterflag{%
+ \lst@ifletter
+ \lst@ifkanji\lst@Output\lst@kanjifalse\fi
+ \else
+ \lst@lettertrue\lst@ifkanji\lst@kanjifalse\else\lst@OutputOther\fi
+ \fi}
+
+\def\ltj@lst@setkanjiflag{%
+ \lst@ifletter
+ \lst@Output
+ \else
+ \lst@ifkanji\else\lst@OutputOther\fi\lst@lettertrue
+ \fi}
+
+\def\ltj@lst@setopenflag{%
+ \lst@ifletter
+ \lst@letterfalse\lst@Output
+ \else
+ \lst@ifkanji\else\lst@OutputOther\fi
+ \fi\lst@kanjitrue}
+
+\def\ltj@lst@setcloseflag{%
+ \lst@ifletter\else\lst@lettertrue\fi\lst@kanjitrue}
+
+\def\lst@ProcessJALetter#1{%
+ \lst@whitespacefalse
+ \ifnum\ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{`#1}}=0
+ \ifnum\ltjgetparameter{postbreakpenalty}{`#1}>0
+ \ltj@lst@setopenflag % 開き括弧類
+ \else
+ \ifnum\ltjgetparameter{prebreakpenalty}{`#1}>0
+ \ltj@lst@setcloseflag % 閉じ括弧類，句読点
+ \else
+ \ltj@lst@setkanjiflag % 通常の和文文字
+ \fi\fi
+ \advance\lst@length\@ne % 和文文字は通常の2倍の幅
+ \else
+ \ltj@lst@setletterflag
+ \fi
+ \lst@Append#1}
+
+\def\lst@ProcessJALetterHalf#1{%
+ \lst@whitespacefalse
+ \ifnum\ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{`#1}}=0
+ \ifnum\ltjgetparameter{postbreakpenalty}{`#1}>0
+ \ltj@lst@setopenflag % 開き括弧類
+ \else
+ \ifnum\ltjgetparameter{prebreakpenalty}{`#1}>0
+ \ltj@lst@setcloseflag % 閉じ括弧類
\else
- \edef\@tempa{\lst@nextchar=`\string#1\relax}%
- \@tempa
- \ifnum\lst@nextchar<\@cclvi\else
- \advance\@tempcnta\m@ne
- \fi
- \advance\@tempcnta\m@ne
- \fi
- \fi \fi \fi \fi
- \lst@next}
-\def\lst@BOLGobble@@{%
- \ifnum\@tempcnta>\z@
- \expandafter\lst@BOLGobble@
- \else
- \expandafter\lst@check@chartype@BOL
- \fi
+ \ltj@lst@setkanjiflag % 通常の和文文字
+ \fi\fi
+ % 半角カナは欧文文字と同じ幅
+ \else
+ \ltj@lst@setletterflag
+ \fi
+ \lst@Append#1}
+
+
+% 半角カナの扱い
+
+\def\ltj@@listing@jpsetN#1#2#3{% for (not large) range
+ \@tempcnta=#1 \@tempcntb=\numexpr 1+#2\relax \@temptokena{}%
+ \loop \global\advance\@tempcnta\@ne\ifnum\@tempcnta<\@tempcntb\relax
+ \ltj@@listing@jpsetN@{\@tempcnta}{#3}\repeat
+ \ltj@@listing@jpset@after{#1}
}
-%
-% \begin{修正事項}{1.3}
+\def\ltj@@listing@jpset@after#1{%
+ \expandafter\edef\csname ltj@@listing@jpcmd@i#1\endcsname{\the\@temptokena}%
+ \toks@\expandafter\expandafter\expandafter\expandafter%
+ \expandafter\expandafter\expandafter{\expandafter\expandafter%
+ \expandafter\the\expandafter\toks@\csname ltj@@listing@jpcmd@i#1\endcsname}%
+ \@temptokena{}%
+}
+
+\def\ltj@@listing@jpsetN@#1#2{{%
+ \@tempcnta=#1 \lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
+ \lowercase{\gdef\@temp{\gdef~{#2/}}}}%
+ \@temptokena\expandafter\expandafter\expandafter\expandafter%
+ \expandafter\expandafter\expandafter{\expandafter\expandafter%
+ \expandafter\the\expandafter\@temptokena\@temp}%
+}
+
+\toks@{}
+\ltj@@listing@jpsetN{65377}{65439}{\lst@ProcessJALetterHalf}
+\edef\ltj@@listing@jpcmd{\the\toks@}\toks@{}
+
+% catcode 対策
+\newluatexcatcodetable\CatcodeTableLTJlistings
+\setluatexcatcodetable\CatcodeTableLTJlistings{
+ \luatexcatcodetable\CatcodeTableLaTeXAtLetter
+ \catcode"FFFFF=13%"
+ \setcatcoderange{"FF61}{"FF9F}{13}% 半角文字
+}
+
+% hook!
+\lst@AddToHook{Init}{
+ \luatexcatcodetable\CatcodeTableLTJlistings\ltj@@listing@jpcmd
+ \lccode`\~="FFFFF\lowercase{\let~\lst@ProcessJALetter}%"
+ \directlua{luatexbase.add_to_callback('process_input_buffer',
+ function(buf)
+ local ret = ''
+ for i = 1, utf.len(buf) do
+ local c = utf.sub(buf, i, i)
+ local cu = utf.byte(c)
+ if cu > 0x80 and tex.getcatcode(cu) \string~= 13 then
+ ret = ret .. utf.char(1048575) % U+FFFFF
+ end
+ ret = ret .. c
+ end
+ return ret
+ end, 'ltj.listings_unicode', 1)}}
+\lst@AddToHook{ExitVars}{\directlua{luatexbase.remove_from_callback('process_input_buffer', 'ltj.listings_unicode')}}
+
+
+% 白線対策
+\def\lst@OutputToken{%
+ \lst@TrackNewLines \lst@OutputLostSpace
+ \lst@ifgobbledws
+ \lst@gobbledwhitespacefalse
+ \lst@@discretionary
+ \fi
+ \lst@CheckMerge
+ {\lst@thestyle{\lst@FontAdjust
+ \setbox\@tempboxa\lst@hbox
+ {\lsthk@OutputBox
+ \lst@lefthss
+ \expandafter\lst@FillOutputBox\the\lst@token\@empty
+ \lst@righthss}%
+ \ht\@tempboxa=0pt\dp\@tempboxa=0pt
+ \lst@CalcLostSpaceAndOutput}}%
+ \lst@ResetToken}
+
+
+% \begin{修正事項}{1.3} from jlisting.sty
% ちょっとした修正
\gdef\lst@breakProcessOther#1{\lst@ProcessOther#1}
% ソースコード目次における文字と番号の空き
\def\lstlistingname{ソースコード}
\def\lstlistlistingname{ソースコード目次}
% \end{修正事項}
-
-
-% Changes for LuaTeX-ja:
-% 1. \char"FFFFF は通常行末用コメント文字として使われる．
-% だが，それはソースコードの組版には邪魔ものとなる．
-%\lst@AddToHook{Init}{\catcode"FFFFF=9 }
-%\lst@AddToHook{DeInit}{\catcode"FFFFF=14 }
-%\lst@Def{1048575}{}
-
-% 2. listing な環境の処理中に \DeclareFontShape の (s)sub が実行されると，なぜか
-% ! Use of set@size@funct@args@ doesn't match its definition.
-% のエラーが出る．
-% \ifnot@nil #1-> \def\reserved@a{#1}... の \reserved@a=\set@size@funct@args@
-% がなぜか実行される？
-% ad hoc な対策として事前に必要な (s)sub は実行しておくことにする．
-\lst@AddToHook{Init}{\begingroup\itshape\bfseries\upshape\endgroup}
-\endinput
+\endinput
\ No newline at end of file
OSDN Git Service
