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\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 % We redefine \lst@BeginDropInput, since now we have
 177 % two additional `process macros'.
 178 \def\lst@BeginDropInput#1{%
 179     \lst@EnterMode{#1}%
 180     {\lst@modetrue
 181      \let\lst@OutputBox\@gobble
 182      \let\lst@ifdropinput\iftrue
 183      \let\lst@ProcessLetter\@gobble
 184      \let\lst@ProcessDigit\@gobble
 185      \let\lst@ProcessOther\@gobble
 186      \let\lst@ProcessSpace\@empty
 187      \let\lst@ProcessTabulator\@empty
 188      \let\lst@ProcessFormFeed\@empty
 189      \let\ltj@lst@ProcessJALetter\@gobble     % added
 190      \let\ltj@lst@ProcessJALetterHalf\@gobble % added
 191 }}
 192
 193
 194 % hook!
 195 \lst@AddToHook{Init}{
 196   \luatexcatcodetable\CatcodeTableLTJlistings\ltj@@listing@jpcmd
 197   \lccode`\~="FFFFF\lowercase{\def~{\ltj@lst@ProcessJALetter}}%"
 198   \directlua{luatexbase.add_to_callback('process_input_buffer',
 199     function(buf)
 200       local ret = ''
 201       for i = 1, utf.len(buf) do
 202         local c = utf.sub(buf, i, i)
 203         local cu = utf.byte(c)
 204         if cu > 0x80 and tex.getcatcode(cu) \string~= 13 then
 205           ret = ret .. utf.char(1048575) % U+FFFFF
 206         end
 207         ret = ret .. c
 208       end
 209       return ret
 210     end, 'ltj.listings_unicode', 1)}%
 211   \if@ltj@lst@vsraw
 212     \let\ltj@lst@hss=\ltj@lst@hss@ivs
 213   \else
 214     \let\ltj@lst@hss=\lst@hss
 215   \fi
 216 }
 217 \lst@AddToHook{ExitVars}{%
 218   \directlua{luatexbase.remove_from_callback('process_input_buffer',
 219     'ltj.listings_unicode')}%
 220 }
 221
 222
 223 % 白線対策
 224 \def\lst@OutputToken{%
 225     \lst@TrackNewLines \lst@OutputLostSpace
 226     \lst@ifgobbledws
 227         \lst@gobbledwhitespacefalse
 228         \lst@@discretionary
 229     \fi
 230     \lst@CheckMerge
 231     {\lst@thestyle{\lst@FontAdjust
 232      \setbox\@tempboxa\lst@hbox
 233         {\lsthk@OutputBox
 234          \lst@lefthss
 235          \expandafter\lst@FillOutputBox\the\lst@token\@empty
 236          \lst@righthss}%
 237      \ht\@tempboxa=0pt\dp\@tempboxa=0pt
 238      \lst@CalcLostSpaceAndOutput}}%
 239     \lst@ResetToken}
 240
 241 %%%%%%%%%%%%%%%% escape to \LaTeX
 242 \lstloadaspects{escape}
 243 \gdef\lst@Escape#1#2#3#4{%
 244     \lst@CArgX #1\relax\lst@CDefX
 245         {}%
 246         {\lst@ifdropinput\else
 247          \lst@TrackNewLines\lst@OutputLostSpace \lst@XPrintToken
 248          \lst@InterruptModes
 249          \lst@EnterMode{\lst@TeXmode}{\lst@modetrue}%
 250          \ifx\^^M#2%
 251              \lst@CArg #2\relax\lst@ActiveCDefX
 252                  {}%
 253                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes}%
 254                  {\lst@MProcessListing}%
 255          \else
 256              \lst@CArg #2\relax\lst@ActiveCDefX
 257                  {}%
 258                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes
 259                   \lst@newlines\z@ \lst@whitespacefalse}%
 260                  {}%
 261          \fi
 262          #3\catcode"FFFFF=9\lst@escapebegin%"
 263          \fi}%
 264         {}}
 265
 266 %%%%%%%%%%%%%%%%
 267 \lstloadaspects{writefile}
 268 \begingroup \catcode`\^^I=11
 269 \gdef\lst@WFBegin#1#2{%
 270     \begingroup
 271     \let\lst@OutputBox#1%
 272     \def\lst@Append##1{%
 273         \advance\lst@length\@ne
 274         \expandafter\lst@token\expandafter{\the\lst@token##1}%
 275         \ifx ##1\lst@outputspace \else
 276             \lst@WFAppend##1%
 277         \fi}%
 278     \lst@lAddTo\lst@PreGotoTabStop{\lst@WFAppend{^^I}}%
 279     \lst@lAddTo\lst@ProcessSpace{\lst@WFAppend{ }}%
 280     \def\ltj@lst@ProcessIVS##1{\lst@whitespacefalse\lst@Append##1}%
 281     \def\ltj@lst@ProcessVS##1{\lst@whitespacefalse\lst@Append##1}%
 282     \let\lst@DeInit\lst@WFDeInit
 283     \let\lst@MProcessListing\lst@WFMProcessListing
 284     \lst@WFifopen\else
 285         \immediate\openout\lst@WF=#2\relax
 286         \global\let\lst@WFifopen\iftrue
 287         \@gobbletwo\fi\fi
 288     \fi}
 289 \endgroup
 290
 291
 292 %    \begin{修正事項}{1.3} from jlisting.sty
 293 % ちょっとした修正
 294 \gdef\lst@breakProcessOther#1{\lst@ProcessOther#1}
 295 % ソースコード目次における文字と番号の空き
 296 \let \l@lstlisting = \l@figure
 297 % キャプションとソースコード目次に対する日本語対応
 298 \def\lstlistingname{ソースコード}
 299 \def\lstlistlistingname{ソースコード目次}
 300 %    \end{修正事項}
 301 \endinput