src/patches/lltjp-listings.sty

   1 %
   2 % lltjp-listings.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{lltjp-listings}[2015/01/07 Patch to listings for LuaTeX-ja]
   7 \RequirePackage{listings,luatexbase-cctb}
   8
   9 %%%%%%%%%%%%%%%% Japanese support
  10 %% IVS support
  11 \newif\if@ltj@lst@vsraw \@ltj@lst@vsrawfalse
  12 \def\ltj@lst@vscmd{}
  13 \lst@Key{vsraw}f[t]{\lstKV@SetIf{#1}\if@ltj@lst@vsraw}
  14 \lst@Key{vscmd}\relax{\def\ltj@lst@vscmd{#1}}
  15
  16 % 既定の IVS 出力コマンド
  17 \def\ltjlistingsvsstdcmd#1{\@tempdima=\f@size pt%
  18   \smash{\raisebox{.35\@tempdima}{\tt%
  19     \fboxsep=.1\@tempdima\fbox{\fontsize{.5\@tempdima}{\z@}\selectfont
  20       \oalign{\hss VS\hss\crcr\hss#1\hss\crcr}}}}}
  21 \def\ltj@lst@vscmd{\ltjlistingsvsstdcmd}
  22
  23 % override \lst@FillFixed@
  24 % \ltj@hst@hss is \ltj@lst@hss@ivs or \ltj@lst@hss@normal,
  25 % according to vsraw = true or not.
  26 \def\lst@FillFixed@#1{%
  27   \ifx\@empty#1\else\ltj@lst@hss#1\expandafter\lst@FillFixed@\fi}
  28
  29 \directlua{
  30   local cat_str = luatexbase.catcodetables['string']
  31   local cat_lp  = luatexbase.catcodetables['latex-package']
  32   local ubyte = unicode.utf8.byte
  33   luatexja.lst = {}
  34   function luatexja.lst.althss(t)
  35     t = ubyte(t)
  36     if not (t>=0xE0100 and t<0xE01F0) then
  37       tex.sprint(cat_lp, string.char(0x5C) .. 'lst@hss')
  38     end
  39   end
  40 }
  41 \gdef\ltj@lst@hss@ivs#1{%
  42   \directlua{luatexja.lst.althss('\luatexluaescapestring{#1}')}#1%
  43 }
  44
  45 % lowest level
  46 \newif\if@ltj@lst@kanji
  47 \lst@AddToHook{InitVars}{\@ltj@lst@kanjifalse}
  48
  49 \def\lst@AppendLetter{%
  50     \ltj@lst@setletterflag\lst@Append}
  51 \def\lst@AppendOther{%
  52     \lst@ifletter\lst@Output\lst@letterfalse\fi\@ltj@lst@kanjifalse
  53     \futurelet\lst@lastother\lst@Append}
  54
  55 \def\ltj@lst@setletterflag{%
  56   \lst@ifletter
  57     \if@ltj@lst@kanji\lst@Output\@ltj@lst@kanjifalse\fi
  58   \else
  59     \lst@lettertrue\if@ltj@lst@kanji\@ltj@lst@kanjifalse\else\lst@OutputOther\fi
  60   \fi}
  61
  62 \def\ltj@lst@setkanjiflag{%
  63   \lst@ifletter
  64     \lst@Output
  65   \else
  66     \if@ltj@lst@kanji\else\lst@OutputOther\fi\lst@lettertrue
  67   \fi}
  68
  69 \def\ltj@lst@setopenflag{%
  70   \lst@ifletter
  71     \lst@letterfalse\lst@Output
  72   \else
  73     \if@ltj@lst@kanji\else\lst@OutputOther\fi
  74   \fi\@ltj@lst@kanjitrue}
  75
  76 \def\ltj@lst@setcloseflag{%
  77   \lst@ifletter\else\lst@lettertrue\fi\@ltj@lst@kanjitrue}
  78
  79 % Processing Japanese characters
  80 \def\ltj@lst@ProcessJALetter#1{%
  81   \lst@whitespacefalse
  82   \ifnum\ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{`#1}}=0
  83     \ifnum\ltjgetparameter{postbreakpenalty}{`#1}>0
  84       \ltj@lst@setopenflag    % 開き括弧類
  85     \else
  86       \ifnum\ltjgetparameter{prebreakpenalty}{`#1}>0
  87         \ltj@lst@setcloseflag % 閉じ括弧類，句読点
  88       \else
  89         \ltj@lst@setkanjiflag % 通常の和文文字
  90     \fi\fi
  91     \advance\lst@length\@ne   % 和文文字は通常の2倍の幅
  92   \else
  93     \ltj@lst@setletterflag
  94   \fi
  95   \lst@Append#1}
  96
  97 % 半角カナ処理命令
  98 \def\ltj@lst@ProcessJALetterHalf#1{%
  99   \lst@whitespacefalse
 100   \ifnum\ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{`#1}}=0
 101     \ifnum\ltjgetparameter{postbreakpenalty}{`#1}>0
 102       \ltj@lst@setopenflag    % 開き括弧類
 103     \else
 104       \ifnum\ltjgetparameter{prebreakpenalty}{`#1}>0
 105         \ltj@lst@setcloseflag % 閉じ括弧類
 106       \else
 107         \ltj@lst@setkanjiflag % 通常の和文文字
 108     \fi\fi
 109     % 半角カナは欧文文字と同じ幅
 110   \else
 111     \ltj@lst@setletterflag
 112   \fi
 113   \lst@Append#1}
 114
 115 % 漢字用異体字セレクタ命令
 116 \def\ltj@lst@ProcessIVS#1{%
 117   \lst@whitespacefalse
 118   \if@ltj@lst@vsraw
 119     \lst@Append#1\advance\lst@length\m@ne
 120   \else
 121     \lst@TrackNewLines\lst@OutputLostSpace \lst@PrintToken
 122     \setbox\@tempboxa\hbox to 2\lst@width{\hss
 123        \expandafter\expandafter\expandafter\ltj@lst@vscmd
 124        \expandafter{\the\numexpr`#1-"E00EF\relax}%"
 125     \hss}%
 126     \lst@CalcLostSpaceAndOutput\lst@whitespacefalse
 127   \fi
 128 }
 129
 130 % Variation Selector
 131 \def\ltj@lst@ProcessVS#1{%
 132   \lst@whitespacefalse
 133   \if@ltj@lst@vsraw
 134     \lst@Append#1\advance\lst@length\m@ne
 135   \else
 136     \lst@TrackNewLines\lst@OutputLostSpace \lst@PrintToken
 137     \setbox\@tempboxa\hbox to 2\lst@width{\hss
 138        \expandafter\expandafter\expandafter\ltj@lst@vscmd
 139        \expandafter{\the\numexpr`#1-"FDFF\relax}%"
 140     \hss}%
 141     \lst@CalcLostSpaceAndOutput\lst@whitespacefalse
 142   \fi
 143 }
 144
 145
 146 % 半角カナ，異体字セレクタはアクティブ化
 147 \def\ltj@@listing@jpsetN#1#2#3{% for (not large) range
 148   \@tempcnta=\numexpr#1-1\relax\@tempcntb=\numexpr 1+#2\relax
 149   \loop \global\advance\@tempcnta\@ne\ifnum\@tempcnta<\@tempcntb\relax
 150     \ltj@@listing@jpsetN@{\@tempcnta}{#3}\repeat
 151 }
 152
 153 \def\ltj@@listing@jpsetN@#1#2{{%
 154     \@tempcnta=#1 \lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
 155     \lowercase{\gdef\@temp{\gdef~{#2/}}}}%
 156   \@temptokena\expandafter\expandafter\expandafter\expandafter%
 157   \expandafter\expandafter\expandafter{\expandafter\expandafter%
 158   \expandafter\the\expandafter\@temptokena\@temp}%
 159 }
 160 \@temptokena{}
 161 \ltj@@listing@jpsetN{65377}{65439}{\ltj@lst@ProcessJALetterHalf}
 162 \ltj@@listing@jpsetN{65024}{65039}{\ltj@lst@ProcessVS}
 163 \ltj@@listing@jpsetN{917760}{917999}{\ltj@lst@ProcessIVS}
 164 \xdef\ltj@@listing@jpcmd{\the\@temptokena}\@temptokena{}
 165
 166 % catcode 対策
 167 \newluatexcatcodetable\CatcodeTableLTJlistings
 168 \setluatexcatcodetable\CatcodeTableLTJlistings{%
 169   \luatexcatcodetable\CatcodeTableLaTeXAtLetter
 170   \catcode"FFFFF=13%"
 171   \SetCatcodeRange{"FF61}{"FF9F}{13}%     半角カナ
 172   \SetCatcodeRange{"E0100}{"E01EF}{13}%   漢字用異体字セレクタ
 173   \SetCatcodeRange{"FE00}{"FE0F}{13}%     Variation Selector
 174 }
 175
 176 % redefine \lstinline@ and \lst@InlineG
 177 % because \lstinline!あ...! causes ``Runaway argument?'' Error
 178 \def\lstinline@#1{%
 179     \lst@Init\relax
 180     \ltj@lst@check@inline{\lst@InlineM#1}{\lst@InlineJ#1}}
 181 \def\lst@InlineG{%
 182     \lst@Init\relax
 183     \ltj@lst@check@inline{\lst@InlineM\}}%
 184                          {\let\lst@arg\@empty \lst@InlineGJ}}
 185
 186 \def\ltj@lst@check@inline#1#2#3{%
 187     \begingroup \lccode`\~=`#3\lowercase{\endgroup
 188     \ifx~}#3%
 189         \def\lst@next{#1}%
 190     \else\ifnum`#3>127\relax
 191         \def\lst@next{#1}%
 192     \else
 193         \def\lst@next{#2}%
 194     \fi\fi\lst@next #3}
 195
 196 % We redefine \lst@BeginDropInput, since now we have
 197 % two additional `process macros'.
 198 \def\lst@BeginDropInput#1{%
 199     \lst@EnterMode{#1}%
 200     {\lst@modetrue
 201      \let\lst@OutputBox\@gobble
 202      \let\lst@ifdropinput\iftrue
 203      \let\lst@ProcessLetter\@gobble
 204      \let\lst@ProcessDigit\@gobble
 205      \let\lst@ProcessOther\@gobble
 206      \let\lst@ProcessSpace\@empty
 207      \let\lst@ProcessTabulator\@empty
 208      \let\lst@ProcessFormFeed\@empty
 209      \let\ltj@lst@ProcessJALetter\@gobble     % added
 210      \let\ltj@lst@ProcessJALetterHalf\@gobble % added
 211 }}
 212
 213
 214 % hook!
 215 \lst@AddToHook{Init}{%
 216   \luatexcatcodetable\CatcodeTableLTJlistings\ltj@@listing@jpcmd
 217   \lccode`\~="FFFFF\lowercase{\def~{\ltj@lst@ProcessJALetter}}%"
 218   \directlua{luatexbase.add_to_callback('process_input_buffer',
 219     function(buf)
 220       local ret = ''
 221       for i = 1, utf.len(buf) do
 222         local c = utf.sub(buf, i, i)
 223         local cu = utf.byte(c)
 224         if cu > 0x80 and tex.getcatcode(cu) \string~= 13 then
 225           ret = ret .. utf.char(1048575) % U+FFFFF
 226         end
 227         ret = ret .. c
 228       end
 229       return ret
 230     end, 'ltj.listings_unicode', 1)}%
 231   \if@ltj@lst@vsraw
 232     \let\ltj@lst@hss=\ltj@lst@hss@ivs
 233   \else
 234     \let\ltj@lst@hss=\lst@hss
 235   \fi
 236 }
 237 \lst@AddToHook{ExitVars}{%
 238   \directlua{luatexbase.remove_from_callback('process_input_buffer',
 239     'ltj.listings_unicode')}%
 240 }
 241
 242
 243 % 白線対策
 244 \def\lst@OutputToken{%
 245     \lst@TrackNewLines \lst@OutputLostSpace
 246     \lst@ifgobbledws
 247         \lst@gobbledwhitespacefalse
 248         \lst@@discretionary
 249     \fi
 250     \lst@CheckMerge
 251     {\lst@thestyle{\lst@FontAdjust
 252      \setbox\@tempboxa\lst@hbox
 253         {\lsthk@OutputBox
 254          \lst@lefthss
 255          \expandafter\lst@FillOutputBox\the\lst@token\@empty
 256          \lst@righthss}%
 257      \ht\@tempboxa=0pt\dp\@tempboxa=0pt
 258      \lst@CalcLostSpaceAndOutput}}%
 259     \lst@ResetToken}
 260
 261 %%%%%%%%%%%%%%%% escape to \LaTeX
 262 \lstloadaspects{escape}
 263 \gdef\lst@Escape#1#2#3#4{%
 264     \lst@CArgX #1\relax\lst@CDefX
 265         {}%
 266         {\lst@ifdropinput\else
 267          \lst@TrackNewLines\lst@OutputLostSpace \lst@XPrintToken
 268          \lst@InterruptModes
 269          \lst@EnterMode{\lst@TeXmode}{\lst@modetrue}%
 270          \ifx\^^M#2%
 271              \lst@CArg #2\relax\lst@ActiveCDefX
 272                  {}%
 273                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes}%
 274                  {\lst@MProcessListing}%
 275          \else
 276              \lst@CArg #2\relax\lst@ActiveCDefX
 277                  {}%
 278                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes
 279                   \lst@newlines\z@ \lst@whitespacefalse}%
 280                  {}%
 281          \fi
 282          #3\catcode"FFFFF=9\lst@escapebegin%"
 283          \fi}%
 284         {}}
 285
 286 %%%%%%%%%%%%%%%%
 287 \lstloadaspects{writefile}
 288 \begingroup \catcode`\^^I=11
 289 \gdef\lst@WFBegin#1#2{%
 290     \begingroup
 291     \let\lst@OutputBox#1%
 292     \def\lst@Append##1{%
 293         \advance\lst@length\@ne
 294         \expandafter\lst@token\expandafter{\the\lst@token##1}%
 295         \ifx ##1\lst@outputspace \else
 296             \lst@WFAppend##1%
 297         \fi}%
 298     \lst@lAddTo\lst@PreGotoTabStop{\lst@WFAppend{^^I}}%
 299     \lst@lAddTo\lst@ProcessSpace{\lst@WFAppend{ }}%
 300     \def\ltj@lst@ProcessIVS##1{\lst@whitespacefalse\lst@Append##1}%
 301     \def\ltj@lst@ProcessVS##1{\lst@whitespacefalse\lst@Append##1}%
 302     \let\lst@DeInit\lst@WFDeInit
 303     \let\lst@MProcessListing\lst@WFMProcessListing
 304     \lst@WFifopen\else
 305         \immediate\openout\lst@WF=#2\relax
 306         \global\let\lst@WFifopen\iftrue
 307         \@gobbletwo\fi\fi
 308     \fi}
 309 \endgroup
 310
 311
 312 %    \begin{修正事項}{1.3} from jlisting.sty
 313 % ちょっとした修正
 314 \gdef\lst@breakProcessOther#1{\lst@ProcessOther#1}
 315 % ソースコード目次における文字と番号の空き
 316 \let \l@lstlisting = \l@figure
 317 % キャプションとソースコード目次に対する日本語対応
 318 \def\lstlistingname{ソースコード}
 319 \def\lstlistlistingname{ソースコード目次}
 320 %    \end{修正事項}
 321 \endinput