src/patches/lltjp-listings.sty

   1 %
   2 % lltjp-listings.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{lltjp-listings}[2014/01/09 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#1\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
 131 % 半角カナ，異体字セレクタはアクティブ化
 132 \def\ltj@@listing@jpsetN#1#2#3{% for (not large) range
 133   \@tempcnta=\numexpr#1-1\relax\@tempcntb=\numexpr 1+#2\relax
 134   \loop \global\advance\@tempcnta\@ne\ifnum\@tempcnta<\@tempcntb\relax
 135     \ltj@@listing@jpsetN@{\@tempcnta}{#3}\repeat
 136 }
 137
 138 \def\ltj@@listing@jpsetN@#1#2{{%
 139     \@tempcnta=#1 \lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
 140     \lowercase{\gdef\@temp{\gdef~{#2/}}}}%
 141   \@temptokena\expandafter\expandafter\expandafter\expandafter%
 142   \expandafter\expandafter\expandafter{\expandafter\expandafter%
 143   \expandafter\the\expandafter\@temptokena\@temp}%
 144 }
 145 \@temptokena{}
 146 \ltj@@listing@jpsetN{65377}{65439}{\ltj@lst@ProcessJALetterHalf}
 147 \ltj@@listing@jpsetN{917760}{917999}{\ltj@lst@ProcessIVS}
 148 \xdef\ltj@@listing@jpcmd{\the\@temptokena}\@temptokena{}
 149
 150 % catcode 対策
 151 \newluatexcatcodetable\CatcodeTableLTJlistings
 152 \setluatexcatcodetable\CatcodeTableLTJlistings{%
 153   \luatexcatcodetable\CatcodeTableLaTeXAtLetter
 154   \catcode"FFFFF=13%"
 155   \SetCatcodeRange{"FF61}{"FF9F}{13}%     半角カナ
 156   \SetCatcodeRange{"E0100}{"E01EF}{13}%   漢字用異体字セレクタ
 157 }
 158
 159 % We redefine \lst@BeginDropInput, since now we have
 160 % two additional `process macros'.
 161 \def\lst@BeginDropInput#1{%
 162     \lst@EnterMode{#1}%
 163     {\lst@modetrue
 164      \let\lst@OutputBox\@gobble
 165      \let\lst@ifdropinput\iftrue
 166      \let\lst@ProcessLetter\@gobble
 167      \let\lst@ProcessDigit\@gobble
 168      \let\lst@ProcessOther\@gobble
 169      \let\lst@ProcessSpace\@empty
 170      \let\lst@ProcessTabulator\@empty
 171      \let\lst@ProcessFormFeed\@empty
 172      \let\ltj@lst@ProcessJALetter\@gobble     % added
 173      \let\ltj@lst@ProcessJALetterHalf\@gobble % added
 174 }}
 175
 176
 177 % hook!
 178 \lst@AddToHook{Init}{
 179   \luatexcatcodetable\CatcodeTableLTJlistings\ltj@@listing@jpcmd
 180   \lccode`\~="FFFFF\lowercase{\def~{\ltj@lst@ProcessJALetter}}%"
 181   \directlua{luatexbase.add_to_callback('process_input_buffer',
 182     function(buf)
 183       local ret = ''
 184       for i = 1, utf.len(buf) do
 185         local c = utf.sub(buf, i, i)
 186         local cu = utf.byte(c)
 187         if cu > 0x80 and tex.getcatcode(cu) \string~= 13 then
 188           ret = ret .. utf.char(1048575) % U+FFFFF
 189         end
 190         ret = ret .. c
 191       end
 192       return ret
 193     end, 'ltj.listings_unicode', 1)}%
 194   \if@ltj@lst@vsraw
 195     \let\ltj@lst@hss=\ltj@lst@hss@ivs
 196   \else
 197     \let\ltj@lst@hss=\lst@hss
 198   \fi
 199 }
 200 \lst@AddToHook{ExitVars}{%
 201   \directlua{luatexbase.remove_from_callback('process_input_buffer',
 202     'ltj.listings_unicode')}%
 203 }
 204
 205
 206 % 白線対策
 207 \def\lst@OutputToken{%
 208     \lst@TrackNewLines \lst@OutputLostSpace
 209     \lst@ifgobbledws
 210         \lst@gobbledwhitespacefalse
 211         \lst@@discretionary
 212     \fi
 213     \lst@CheckMerge
 214     {\lst@thestyle{\lst@FontAdjust
 215      \setbox\@tempboxa\lst@hbox
 216         {\lsthk@OutputBox
 217          \lst@lefthss
 218          \expandafter\lst@FillOutputBox\the\lst@token\@empty
 219          \lst@righthss}%
 220      \ht\@tempboxa=0pt\dp\@tempboxa=0pt
 221      \lst@CalcLostSpaceAndOutput}}%
 222     \lst@ResetToken}
 223
 224 %%%%%%%%%%%%%%%% escape to \LaTeX
 225 \lstloadaspects{escape}
 226 \gdef\lst@Escape#1#2#3#4{%
 227     \lst@CArgX #1\relax\lst@CDefX
 228         {}%
 229         {\lst@ifdropinput\else
 230          \lst@TrackNewLines\lst@OutputLostSpace \lst@XPrintToken
 231          \lst@InterruptModes
 232          \lst@EnterMode{\lst@TeXmode}{\lst@modetrue}%
 233          \ifx\^^M#2%
 234              \lst@CArg #2\relax\lst@ActiveCDefX
 235                  {}%
 236                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes}%
 237                  {\lst@MProcessListing}%
 238          \else
 239              \lst@CArg #2\relax\lst@ActiveCDefX
 240                  {}%
 241                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes
 242                   \lst@newlines\z@ \lst@whitespacefalse}%
 243                  {}%
 244          \fi
 245          #3\catcode"FFFFF=9\lst@escapebegin%"
 246          \fi}%
 247         {}}
 248
 249 %%%%%%%%%%%%%%%%
 250 \lstloadaspects{writefile}
 251 \begingroup \catcode`\^^I=11
 252 \gdef\lst@WFBegin#1#2{%
 253     \begingroup
 254     \let\lst@OutputBox#1%
 255     \def\lst@Append##1{%
 256         \advance\lst@length\@ne
 257         \expandafter\lst@token\expandafter{\the\lst@token##1}%
 258         \ifx ##1\lst@outputspace \else
 259             \lst@WFAppend##1%
 260         \fi}%
 261     \lst@lAddTo\lst@PreGotoTabStop{\lst@WFAppend{^^I}}%
 262     \lst@lAddTo\lst@ProcessSpace{\lst@WFAppend{ }}%
 263     \def\ltj@lst@ProcessIVS##1{\lst@whitespacefalse\lst@Append##1}
 264     \let\lst@DeInit\lst@WFDeInit
 265     \let\lst@MProcessListing\lst@WFMProcessListing
 266     \lst@WFifopen\else
 267         \immediate\openout\lst@WF=#2\relax
 268         \global\let\lst@WFifopen\iftrue
 269         \@gobbletwo\fi\fi
 270     \fi}
 271 \endgroup
 272
 273
 274 %    \begin{修正事項}{1.3} from jlisting.sty
 275 % ちょっとした修正
 276 \gdef\lst@breakProcessOther#1{\lst@ProcessOther#1}
 277 % ソースコード目次における文字と番号の空き
 278 \let \l@lstlisting = \l@figure
 279 % キャプションとソースコード目次に対する日本語対応
 280 \def\lstlistingname{ソースコード}
 281 \def\lstlistlistingname{ソースコード目次}
 282 %    \end{修正事項}
 283 \endinput