src/patches/lltjp-listings.sty

   1 %
   2 % lltjp-listings.sty 2020-03-23
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \RequirePackage{etoolbox,listings,luatexbase-cctb}
   7
   8 %%%%%%%%%%%%%%%% Japanese support
   9 %% whether letter-space in a fixed mode box is doubled or not
  10 \newif\if@ltj@lst@double
  11 \lst@Key{doubleletterspace}f[t]{\lstKV@SetIf{#1}\if@ltj@lst@double}
  12
  13 %% IVS support
  14 \newif\if@ltj@lst@vsraw
  15 \def\ltj@lst@vscmd{}
  16 \lst@Key{vsraw}f[t]{\lstKV@SetIf{#1}\if@ltj@lst@vsraw}
  17 \lst@Key{vscmd}\relax{\def\ltj@lst@vscmd{#1}}
  18
  19 % 既定の IVS 出力コマンド
  20 \def\ltjlistingsvsstdcmd#1{\@tempdima=\f@size pt%
  21   \smash{\raisebox{.35\@tempdima}{\tt%
  22     \fboxsep=.1\@tempdima\fbox{\fontsize{.5\@tempdima}{\z@}\selectfont
  23       \oalign{\hss VS\hss\crcr\hss#1\hss\crcr}}}}}
  24 \def\ltj@lst@vscmd{\ltjlistingsvsstdcmd}
  25
  26 % override \lst@FillFixed@
  27 % \ltj@hst@hss is \ltj@lst@hss@ivs or \ltj@lst@hss@normal,
  28 % according to vsraw = true or not.
  29 \def\lst@FillFixed#1{{\null#1\null}\lst@FillFixed@}
  30 \def\lst@FillFixed@#1{%
  31   \ifx\@empty#1\else\ltj@lst@hss{\null#1\null}\expandafter\lst@FillFixed@\fi}
  32 \let\lst@FillOutputBox\lst@FillFixed
  33 % [space/full]flexiblemode (not much useful...)
  34 \def\ltj@lst@FillFlex#1\@empty{\null#1\null}
  35 \patchcmd\lst@column@flexible
  36   {\let\lst@FillOutputBox\@empty}{\let\lst@FillOutputBox\ltj@lst@FillFlex}{}{}
  37 \patchcmd\lst@column@fullflexible
  38   {\let\lst@FillOutputBox\@empty}{\let\lst@FillOutputBox\ltj@lst@FillFlex}{}{}
  39 \patchcmd\lst@column@spaceflexible
  40   {\let\lst@FillOutputBox\@empty}{\let\lst@FillOutputBox\ltj@lst@FillFlex}{}{}
  41
  42
  43 \directlua{
  44   local cat_str = luatexbase.catcodetables['string']
  45   local cat_lp  = luatexbase.catcodetables['latex-package']
  46   local ubyte = unicode.utf8.byte
  47   local spccmd = string.char(0x5C) .. 'ltj@lst@hss@normal'
  48   luatexja.listings = {}
  49   function luatexja.listings.althss(t)
  50     t = ubyte(t)
  51     if not (t>=0xE0100 and t<0xE01F0) then
  52       tex.sprint(cat_lp, spccmd)
  53     end
  54   end
  55 }
  56 \def\ltj@lst@hss@ivs#1{%
  57   \directlua{luatexja.listings.althss('\luatexluaescapestring{#1}')}#1%
  58 }
  59 \def\ltj@lst@hss@double{\lst@hss\lst@hss}
  60
  61 % lowest level
  62 \newif\if@ltj@lst@kanji
  63 \lst@AddToHook{InitVars}{\@ltj@lst@kanjifalse}
  64
  65 \def\lst@AppendLetter{%
  66     \ltj@lst@setletterflag\lst@Append}
  67 \def\lst@AppendOther{%
  68     \lst@ifletter\lst@Output\lst@letterfalse\fi\@ltj@lst@kanjifalse
  69     \futurelet\lst@lastother\lst@Append}
  70
  71 \def\ltj@lst@setletterflag{%
  72   \lst@ifletter
  73     \if@ltj@lst@kanji\lst@Output\@ltj@lst@kanjifalse\fi
  74   \else
  75     \lst@lettertrue\if@ltj@lst@kanji\@ltj@lst@kanjifalse\else\lst@OutputOther\fi
  76   \fi}
  77
  78 \def\ltj@lst@setkanjiflag{%
  79   \lst@ifletter
  80     \lst@Output
  81   \else
  82     \if@ltj@lst@kanji\else\lst@OutputOther\fi\lst@lettertrue
  83   \fi\@ltj@lst@kanjitrue}
  84
  85 \def\ltj@lst@setopenflag{%
  86   \lst@ifletter
  87     \lst@letterfalse\lst@Output
  88   \else
  89     \if@ltj@lst@kanji\else\lst@OutputOther\fi
  90   \fi\@ltj@lst@kanjitrue}
  91
  92 \def\ltj@lst@setcloseflag{%
  93   \lst@ifletter\else\lst@lettertrue\fi\@ltj@lst@kanjitrue}
  94
  95 % Processing Japanese characters
  96 \def\ltj@lst@ProcessJALetter#1{%
  97   \lst@whitespacefalse
  98   \ifnum\ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{`#1}}=0
  99     \ifnum\ltjgetparameter{postbreakpenalty}{`#1}>0
 100       \ltj@lst@setopenflag    % 開き括弧類
 101     \else
 102       \ifnum\ltjgetparameter{prebreakpenalty}{`#1}>0
 103         \ltj@lst@setcloseflag % 閉じ括弧類，句読点
 104       \else
 105         \ltj@lst@setkanjiflag % 通常の和文文字
 106     \fi\fi
 107     \advance\lst@length\@ne   % 和文文字は通常の2倍の幅
 108   \else
 109     \ltj@lst@setletterflag
 110   \fi
 111   \lst@Append#1%
 112 }
 113
 114 % 半角カナ処理命令
 115 \def\ltj@lst@ProcessJALetterHalf#1{%
 116   \lst@whitespacefalse
 117   \ifnum\ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{`#1}}=0
 118     \ifnum\ltjgetparameter{postbreakpenalty}{`#1}>0
 119       \ltj@lst@setopenflag    % 開き括弧類
 120     \else
 121       \ifnum\ltjgetparameter{prebreakpenalty}{`#1}>0
 122         \ltj@lst@setcloseflag % 閉じ括弧類
 123       \else
 124         \ltj@lst@setkanjiflag % 通常の和文文字
 125     \fi\fi
 126     % 半角カナは欧文文字と同じ幅
 127   \else
 128     \ltj@lst@setletterflag
 129   \fi
 130   \lst@Append#1}
 131
 132 % 漢字用異体字セレクタ命令
 133 \def\ltj@lst@ProcessIVS#1{%
 134   \lst@whitespacefalse
 135   \if@ltj@lst@vsraw
 136     \lst@Append#1\advance\lst@length\m@ne
 137   \else
 138     \lst@TrackNewLines\lst@OutputLostSpace \lst@PrintToken
 139     \setbox\@tempboxa\hbox to 2\lst@width{\hss
 140        \expandafter\expandafter\expandafter\ltj@lst@vscmd
 141        \expandafter{\the\numexpr`#1-"E00EF\relax}%"
 142     \hss}%
 143     \lst@CalcLostSpaceAndOutput\lst@whitespacefalse
 144   \fi
 145 }
 146
 147 % Variation Selector
 148 \def\ltj@lst@ProcessVS#1{%
 149   \lst@whitespacefalse
 150   \if@ltj@lst@vsraw
 151     \lst@Append#1\advance\lst@length\m@ne
 152   \else
 153     \lst@TrackNewLines\lst@OutputLostSpace \lst@PrintToken
 154     \setbox\@tempboxa\hbox to 2\lst@width{\hss
 155        \expandafter\expandafter\expandafter\ltj@lst@vscmd
 156        \expandafter{\the\numexpr`#1-"FDFF\relax}%"
 157     \hss}%
 158     \lst@CalcLostSpaceAndOutput\lst@whitespacefalse
 159   \fi
 160 }
 161
 162
 163 % 半角カナ，異体字セレクタはアクティブ化
 164 \def\ltj@@listing@jpsetN#1#2#3{% for (not large) range
 165   \@tempcnta=\numexpr#1-1\relax\@tempcntb=\numexpr 1+#2\relax
 166   \loop \global\advance\@tempcnta\@ne\ifnum\@tempcnta<\@tempcntb\relax
 167     \ltj@@listing@jpsetN@{\@tempcnta}{#3}\repeat
 168 }
 169
 170 \def\ltj@@listing@jpsetN@#1#2{{%
 171     \@tempcnta=#1 \lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
 172     \lowercase{\gdef\@temp{\gdef~{#2/}}}}%
 173   \@temptokena\expandafter\expandafter\expandafter\expandafter%
 174   \expandafter\expandafter\expandafter{\expandafter\expandafter%
 175   \expandafter\the\expandafter\@temptokena\@temp}%
 176 }
 177 \@temptokena{}
 178 \ltj@@listing@jpsetN{65377}{65439}{\ltj@lst@ProcessJALetterHalf}
 179 \ltj@@listing@jpsetN{65024}{65039}{\ltj@lst@ProcessVS}
 180 \ltj@@listing@jpsetN{917760}{917999}{\ltj@lst@ProcessIVS}
 181 \xdef\ltj@@listing@jpcmd{\the\@temptokena}\@temptokena{}
 182
 183 % catcode 対策
 184 \newluatexcatcodetable\CatcodeTableLTJlistings
 185 \setluatexcatcodetable\CatcodeTableLTJlistings{%
 186   \luatexcatcodetable\CatcodeTableLaTeXAtLetter
 187   \catcode\ltjlineendcomment=13%"
 188   \SetCatcodeRange{"FF61}{"FF9F}{13}%     半角カナ
 189   \SetCatcodeRange{"E0100}{"E01EF}{13}%   漢字用異体字セレクタ
 190   \SetCatcodeRange{"FE00}{"FE0F}{13}%     Variation Selector
 191 }
 192
 193 % redefine \lstinline and its inner commands to support Japanese characters
 194 \renewcommand\lstinline[1][]{%
 195     \leavevmode\bgroup % \hbox\bgroup --> \bgroup
 196       \def\lst@boxpos{b}%
 197       \lsthk@PreSet\lstset{flexiblecolumns,#1}%
 198       \lsthk@TextStyle
 199       \@ifnextchar\bgroup \ltj@lst@InlineG \ltj@lstinline@}
 200 \def\ltj@lstinline@#1{%
 201   \edef\ltj@lst@temp{\the\catcode`#1}\lst@Init\relax\catcode`#1\ltj@lst@temp
 202   \lst@InlineJ#1}
 203 \def\ltj@lst@InlineG{%
 204   \lst@Init\relax\edef\ltj@lst@temp{\the\catcode`\}}\catcode`\}=2 \catcode`\ =12\relax
 205   \let\lst@arg\@empty\afterassignment\ltj@lst@InlineG@@\@temptokena}
 206 \def\ltj@lst@InlineG@@{%
 207   \catcode`\}=\ltj@lst@temp%
 208   \expandafter\expandafter\expandafter\lst@InsideConvert%
 209   \expandafter{\the\@temptokena}\lst@arg\lst@DeInit\egroup}
 210
 211 %%%%%%%%%%%%%%%% \lstMakeShortInline
 212 \patchcmd\lstMakeShortInline@{\lst@shortinlinedef#1}{\lst@shortinlinedef~}{}{}
 213
 214 % We redefine \lst@BeginDropInput, since now we have
 215 % two additional `process macros'.
 216 \def\lst@BeginDropInput#1{%
 217     \lst@EnterMode{#1}%
 218     {\lst@modetrue
 219      \let\lst@OutputBox\@gobble
 220      \let\lst@ifdropinput\iftrue
 221      \let\lst@ProcessLetter\@gobble
 222      \let\lst@ProcessDigit\@gobble
 223      \let\lst@ProcessOther\@gobble
 224      \let\lst@ProcessSpace\@empty
 225      \let\lst@ProcessTabulator\@empty
 226      \let\lst@ProcessFormFeed\@empty
 227      \let\ltj@lst@ProcessJALetter\@gobble     % added
 228      \let\ltj@lst@ProcessJALetterHalf\@gobble % added
 229 }}
 230
 231 \directlua{
 232   local utfchar, getcount = unicode.utf8.char, tex.getcount
 233   luatexja.listings.insert_cb = function()
 234     if not luatexja.listings.patched then
 235       luatexja.listings.patched = 1
 236       luatexbase.add_to_callback('process_input_buffer',
 237          function(buf)
 238            local ret = ''
 239            for i = 1, utf.len(buf) do
 240               local c = utf.sub(buf, i, i)
 241               local cu = utf.byte(c)
 242               if cu >= 0x80 and tex.getcatcode(cu) \string~= 13 then
 243                 ret = ret .. utfchar(getcount('ltjlineendcomment'))
 244               end
 245               ret = ret .. c
 246             end
 247             return ret
 248           end, 'ltj.listings_unicode', 1)
 249     end
 250   end
 251   luatexja.listings.remove_cb = function()
 252     if luatexja.listings.patched then
 253       luatexja.listings.patched = nil
 254       luatexbase.remove_from_callback('process_input_buffer',
 255         'ltj.listings_unicode')%
 256     end
 257   end}
 258
 259 % hook!
 260 \lst@AddToHook{Init}{%
 261   \luatexcatcodetable\CatcodeTableLTJlistings\ltj@@listing@jpcmd
 262   \lccode`\~=\ltjlineendcomment\lowercase{\def~{\ltj@lst@ProcessJALetter}}%"
 263   \directlua{luatexja.listings.insert_cb()}%
 264   \if@ltj@lst@double
 265     \let\ltj@lst@hss@normal=\ltj@lst@hss@double
 266   \else
 267     \let\ltj@lst@hss@normal=\lst@hss
 268   \fi
 269   \if@ltj@lst@vsraw
 270     \let\ltj@lst@hss=\ltj@lst@hss@ivs
 271   \else
 272     \let\ltj@lst@hss=\ltj@lst@hss@normal
 273   \fi
 274 }
 275
 276 \def\ltj@lst@MakeActive#1{%
 277     \let\lst@temp\@empty \ltj@lst@MakeActive@#1\relax}
 278 \begingroup
 279 \catcode`\^^A=12
 280 \catcode`\^^@=\active
 281 \lccode`\$=\ltjlineendcomment \catcode`\$=13 %"
 282 \lowercase{%
 283 \gdef\ltj@lst@MakeActive@#1{\let\lst@next\relax%
 284     \ifx#1\relax
 285     \else\let\lst@next\ltj@lst@MakeActive@
 286     \ifnum`#1>127
 287       \lccode`\^^A=`#1
 288       \lowercase{\lst@lAddTo\lst@temp{$^^A}}%$
 289     \else
 290       \lccode`\^^@=`#1
 291       \lowercase{\lst@lAddTo\lst@temp{^^@}}%
 292     \fi\fi\lst@next}}
 293 \endgroup
 294
 295
 296 \begingroup \lccode`\~=`\ \relax \lowercase{%
 297 \gdef\lst@InsideConvert@#1 #2{%
 298     \ltj@lst@MakeActive{#1}%
 299     \ifx\@empty#2%
 300         \lst@lExtend\lst@arg{\lst@temp}%
 301     \else
 302         \lst@lExtend\lst@arg{\lst@temp~}%
 303         \expandafter\lst@InsideConvert@
 304     \fi#2}
 305 }\endgroup
 306
 307 \lst@AddToHook{ExitVars}{%
 308   \directlua{luatexja.listings.remove_cb()}%
 309 }
 310
 311 % 白線対策
 312 \newif\ifltj@lst@frame@top
 313 \newdimen\ltj@lst@frame@lslimit
 314 \gdef\lst@frameInit{%
 315     \ltj@lst@frame@toptrue
 316     \ifx\lst@framelshape\@empty \let\lst@frameL\@empty \fi
 317     \ifx\lst@framershape\@empty \let\lst@frameR\@empty \fi
 318     \def\lst@framevrule{\vrule\@width\lst@framerulewidth\relax}%
 319     \lst@ifframeround
 320         \lst@frameCalcDimA\z@ \@getcirc\@tempdima
 321         \@tempdimb\@tempdima \divide\@tempdimb\tw@
 322         \advance\@tempdimb -\@wholewidth
 323         \edef\lst@frametextsep{\the\@tempdimb}%
 324         \edef\lst@framerulewidth{\the\@wholewidth}%
 325         \lst@frameCalcDimA\@ne \@getcirc\@tempdima
 326         \@tempdimb\@tempdima \divide\@tempdimb\tw@
 327         \advance\@tempdimb -\tw@\@wholewidth
 328         \advance\@tempdimb -\lst@frametextsep
 329         \edef\lst@rulesep{\the\@tempdimb}%
 330     \fi
 331     \lst@frameMakeBoxV\lst@framebox{\ht\strutbox}{\dp\strutbox}%
 332     %%%%  ここから
 333     \@tempdima\z@
 334     \ifdim\ht\strutbox<\cht\@tempdima=\dimexpr\cht-\ht\strutbox\relax\fi
 335     \ifdim\dp\strutbox<\cdp\@tempdima=\dimexpr\cdp-\dp\strutbox\relax\fi
 336     \ltj@lst@frame@lslimit=-\@tempdima
 337     \def\lst@framelr{%
 338       \ifltj@lst@frame@top\ltj@lst@frame@topfalse\else\lineskiplimit\ltj@lst@frame@lslimit\fi
 339       \copy\lst@framebox}%
 340     %%%% ここまで
 341     \ifx\lst@frametshape\@empty\else
 342         \lst@frameH T\lst@frametshape
 343         \ifvoid\z@\else
 344             \par\lst@parshape
 345             \@tempdima-\baselineskip \advance\@tempdima\ht\z@
 346             \ifdim\prevdepth<\@cclvi\p@\else
 347                 \advance\@tempdima\prevdepth
 348             \fi
 349             \ifdim\@tempdima<\z@
 350                 \vskip\@tempdima\vskip\lineskip
 351             \fi
 352             \noindent\box\z@\par
 353             \lineskiplimit\maxdimen \lineskip\z@
 354         \fi
 355         \lst@frameSpreadV\lst@framextopmargin
 356     \fi}
 357
 358
 359
 360 %%%%%%%%%%%%%%%% escape to \LaTeX
 361 \lstloadaspects{escape}
 362 \gdef\lst@Escape#1#2#3#4{%
 363     \lst@CArgX #1\relax\lst@CDefX
 364         {}%
 365         {\lst@ifdropinput\else
 366          \lst@TrackNewLines\lst@OutputLostSpace \lst@XPrintToken
 367          \lst@InterruptModes
 368          \lst@EnterMode{\lst@TeXmode}{\lst@modetrue}%
 369          \ifx\^^M#2%
 370              \lst@CArg #2\relax\lst@ActiveCDefX
 371                  {}%
 372                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes}%
 373                  {\lst@MProcessListing}%
 374          \else
 375              \lst@CArg #2\relax\lst@ActiveCDefX
 376                  {}%
 377                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes
 378                   \lst@newlines\z@ \lst@whitespacefalse}%
 379                  {}%
 380          \fi%
 381          \ltj@lst@escape@setup#2%
 382          #3\catcode\ltjlineendcomment=9\lst@escapebegin\expandafter\lst@next%"
 383          \fi}%
 384         {}}
 385 \def\ltj@lst@emptygrp{{}}
 386 \def\ltj@lst@escape@setup#1{%
 387   \begingroup\lccode`\~=`#1\lowercase{%
 388   \gdef\lst@next##1~{%
 389      \let\lst@arg\@empty\ltj@lst@remove@jacmd{##1}%
 390      \expandafter\expandafter\expandafter\expandafter\expandafter\expandafter\expandafter
 391            \scantokens\expandafter\expandafter\expandafter{\expandafter\ltj@lst@emptygrp\lst@arg\empty}%
 392      ~}%
 393   }\endgroup
 394 }
 395 \begingroup
 396   \lccode`\|=\ltjlineendcomment \lowercase{%"
 397   \gdef\ltj@lst@remove@jacmd#1{%
 398     \expandafter\ltj@lst@remove@jacmd@\detokenize{#1}|\@nil|}
 399   \gdef\ltj@lst@remove@jacmd@#1|{%
 400     \ifx#1\@nil\else
 401        \lst@lAddTo\lst@arg{#1}%
 402        \expandafter\ltj@lst@remove@jacmd@
 403     \fi}}
 404 \endgroup
 405
 406 %%%%%%%%%%%%%%%% texcl
 407 \lst@AddToHook{AfterBeginComment}
 408    {\ifnum\lst@mode=\lst@TeXLmode
 409       \catcode`\^^M=13\relax
 410       \catcode\ltjlineendcomment=9\relax
 411     \fi}
 412
 413 %%%%%%%%%%%%%%%%
 414 \lstloadaspects{writefile}
 415 \begingroup \catcode`\^^I=11
 416 \gdef\lst@WFBegin#1#2{%
 417     \begingroup
 418     \let\lst@OutputBox#1%
 419     \def\lst@Append##1{%
 420         \advance\lst@length\@ne
 421         \expandafter\lst@token\expandafter{\the\lst@token##1}%
 422         \ifx ##1\lst@outputspace \else
 423             \lst@WFAppend##1%
 424         \fi}%
 425     \lst@lAddTo\lst@PreGotoTabStop{\lst@WFAppend{^^I}}%
 426     \lst@lAddTo\lst@ProcessSpace{\lst@WFAppend{ }}%
 427     \def\ltj@lst@ProcessIVS##1{\lst@whitespacefalse\lst@Append##1}%
 428     \def\ltj@lst@ProcessVS##1{\lst@whitespacefalse\lst@Append##1}%
 429     \let\lst@DeInit\lst@WFDeInit
 430     \let\lst@MProcessListing\lst@WFMProcessListing
 431     \lst@WFifopen\else
 432         \immediate\openout\lst@WF=#2\relax
 433         \global\let\lst@WFifopen\iftrue
 434         \@gobbletwo\fi\fi
 435     \fi}
 436 \endgroup
 437
 438 %    \begin{修正事項}{1.3} from jlisting.sty
 439 % ちょっとした修正
 440 \gdef\lst@breakProcessOther#1{\lst@ProcessOther#1}
 441 % ソースコード目次における文字と番号の空き
 442 \let \l@lstlisting = \l@figure
 443
 444 %%%%
 445 % キャプションとソースコード目次に対する日本語対応
 446 %\def\lstlistingname{ソースコード}
 447 %\def\lstlistlistingname{ソースコード目次}
 448 %    \end{修正事項}
 449 %%%%
 450
 451 \endinput