%
\NeedsTeXFormat{LaTeX2e}
-\def\filedate{2012/02/01}
-\def\fileversion{0.5}
+\def\filedate{2012/09/22}
+\def\fileversion{0.6}
\ProvidesPackage{lltjp-listings}[\filedate\space\fileversion]
\RequirePackage{listings,luatexbase-cctb}
-% catcode 対策
-\newluatexcatcodetable\CatcodeTableLTJlistings
-\setluatexcatcodetable\CatcodeTableLTJlistings{
- \luatexcatcodetable\CatcodeTableLaTeXAtLetter
- \catcode"FFFFF=9%"
- \setcatcoderange{"3000}{"65535}{13}}
-
-% lower level
-\def\lst@ProcessJALetter{\lst@whitespacefalse \lst@AppendJALetter}
-\def\lst@AppendJALetter{%
- \lst@ifletter \lst@Output\else\lst@OutputOther\fi\lst@lettertrue
- \advance\lst@length\@ne\lst@Append}
-\def\lst@ProcessJALetterHalf{\lst@whitespacefalse \lst@AppendJALetterHalf}
-\def\lst@AppendJALetterHalf{%
- \lst@ifletter \lst@Output\else\lst@OutputOther\fi\lst@lettertrue
- \lst@Append}
-
-% loading lltjp-listing-jpt.tex
-\def\ltj@@listing@jpset#1#2{%
- \@tempcnta=#1 \@tempcntb=#2 \@temptokena{}%
- \loop \global\advance\@tempcnta8\ifnum\@tempcnta<\@tempcntb\relax
- \ltj@@listing@jpset@\repeat
- \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}%
-}
-\def\ltj@@listing@jpsetN#1#2#3{%
- \@tempcnta=#1 \@tempcntb=#2 \@temptokena{}%
+% 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
+ \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@#3\repeat
+ \ltj@@listing@jpsetN@{\@tempcnta}{#3}\repeat
+ \ltj@@listing@jpset@after{#1}
+}
+
+\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{}%
}
-\begingroup
-\catcode`\^^A=13\catcode`\^^B=13\catcode`\^^C=13
-\catcode`\^^D=13\catcode`\^^E=13\catcode`\^^F=13\catcode`\^^G=13
-\gdef\ltj@@listing@jpset@{%
- {\lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
- \advance\@tempcnta\@ne\lccode`\^^A=\@tempcnta \lccode`0=\@tempcnta
- \advance\@tempcnta\@ne\lccode`\^^B=\@tempcnta \lccode`2=\@tempcnta
- \advance\@tempcnta\@ne\lccode`\^^C=\@tempcnta \lccode`3=\@tempcnta
- \advance\@tempcnta\@ne\lccode`\^^D=\@tempcnta \lccode`4=\@tempcnta
- \advance\@tempcnta\@ne\lccode`\^^E=\@tempcnta \lccode`5=\@tempcnta
- \advance\@tempcnta\@ne\lccode`\^^F=\@tempcnta \lccode`6=\@tempcnta
- \advance\@tempcnta\@ne\lccode`\^^G=\@tempcnta \lccode`7=\@tempcnta
- \lowercase{\gdef\@temp{%
- \gdef~{\lst@ProcessJALetter/}\gdef^^A{\lst@ProcessJALetter0}%
- \gdef^^B{\lst@ProcessJALetter2}\gdef^^C{\lst@ProcessJALetter3}%
- \gdef^^D{\lst@ProcessJALetter4}\gdef^^E{\lst@ProcessJALetter5}%
- \gdef^^F{\lst@ProcessJALetter6}\gdef^^G{\lst@ProcessJALetter7}}}%
- }%
- \@temptokena\expandafter\expandafter\expandafter\expandafter%
- \expandafter\expandafter\expandafter{\expandafter\expandafter%
- \expandafter\the\expandafter\@temptokena\@temp}%
-}
-\gdef\ltj@@listing@jpsetN@#1{{%
- \lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
- \lowercase{\gdef\@temp{\gdef~{#1/}}}}%
+\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}%
}
-\endgroup
-
-\input lltjp-listings-jpt.tex
-\edef\ltj@@listing@jpcmd{\the\toks@}
\toks@{}
-\lst@AddToHook{Init}{%
- \luatexcatcodetable\CatcodeTableLTJlistings
- \ltj@@listing@jpcmd}
+\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')}}
% 白線対策