src/patches/lltjp-listings.sty

   1 %
   2 % lltjp-listings.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \def\filedate{2012/02/02}
   7 \def\fileversion{0.51}
   8 \ProvidesPackage{lltjp-listings}[\filedate\space\fileversion]
   9 \RequirePackage{listings,luatexbase-cctb}
  10
  11 % catcode 対策
  12 \newluatexcatcodetable\CatcodeTableLTJlistings
  13 \setluatexcatcodetable\CatcodeTableLTJlistings{
  14   \luatexcatcodetable\CatcodeTableLaTeXAtLetter
  15   \catcode"FFFFF=9%"
  16   \setcatcoderange{"2000}{"FFFF}{13}%
  17   \setcatcoderange{"20000}{"2FFFF}{13}}
  18
  19 % lowest level
  20 \def\lst@kanjitrue{\let\lst@ifkanji\iftrue}
  21 \def\lst@kanjifalse{\let\lst@ifkanji\iffalse}
  22 \lst@AddToHook{InitVars}{\lst@kanjifalse}
  23
  24 \def\lst@AppendOther{%
  25     \lst@ifletter\lst@Output\lst@letterfalse\fi\lst@kanjifalse
  26     \futurelet\lst@lastother\lst@Append}
  27 \def\lst@AppendLetter{%
  28     \lst@ifletter
  29       \lst@ifkanji\lst@Output\lst@kanjifalse
  30       \fi
  31     \else
  32       \lst@lettertrue\lst@ifkanji\lst@kanjifalse\else\lst@OutputOther\fi
  33     \fi
  34     \lst@Append}
  35
  36 \def\lst@ProcessJALetter{\lst@whitespacefalse \lst@AppendJALetter}
  37 \def\lst@ProcessJALetterHalf{\lst@whitespacefalse \lst@AppendJALetterHalf}
  38 \def\lst@ProcessJALetter@inhibit@prebreak{%
  39   \lst@whitespacefalse \lst@AppendJALetter@inhibit@prebreak}
  40 \def\lst@ProcessJALetter@inhibit@postbreak{%
  41   \lst@whitespacefalse \lst@AppendJALetter@inhibit@postbreak}
  42
  43 \def\lst@AppendJALetter{%
  44     \lst@ifletter
  45       \lst@Output
  46     \else
  47       \lst@ifkanji\else\lst@OutputOther\fi\lst@lettertrue
  48     \fi\lst@kanjitrue
  49     \advance\lst@length\@ne\lst@Append}
  50 \def\lst@AppendJALetterHalf{%
  51     \lst@ifletter
  52       \lst@Output
  53     \else
  54       \lst@ifkanji\else\lst@OutputOther\fi\lst@lettertrue
  55     \fi\lst@kanjitrue
  56     \lst@Append}
  57 \def\lst@AppendJALetter@inhibit@prebreak{%
  58     \lst@ifletter\else\lst@lettertrue\fi\lst@kanjitrue
  59     \advance\lst@length\@ne\lst@Append}
  60 \def\lst@AppendJALetter@inhibit@postbreak{%
  61     \lst@ifletter
  62       \lst@Output
  63     \else
  64       \lst@ifkanji\else\lst@OutputOther\fi
  65     \fi\lst@letterfalse\lst@kanjitrue
  66     \advance\lst@length\@ne\lst@Append}
  67
  68
  69 % loading lltjp-listing-jpt.tex
  70 \def\ltj@@listing@jpset#1#2{% fast: #2-#1+1 must be a multiple of 16
  71   \@tempcnta=#1 \@tempcntb=#2 \@temptokena{}%
  72   \loop\relax\ifnum\@tempcnta<\@tempcntb\relax
  73     \ltj@@listing@jpset@\global\advance\@tempcnta\sixt@@n\repeat
  74   \ltj@@listing@jpset@after{#1}
  75 }
  76 \def\ltj@@listing@jpsetN#1#2#3{% for (not large) range
  77   \@tempcnta=#1 \@tempcntb=#2 \@temptokena{}%
  78   \loop \global\advance\@tempcnta\@ne\ifnum\@tempcnta<\@tempcntb\relax
  79     \ltj@@listing@jpsetN@{\@tempcnta}{#3}\repeat
  80   \ltj@@listing@jpset@after{#1}
  81 }
  82
  83 \def\ltj@@listing@jpset@after#1{%
  84   \expandafter\edef\csname ltj@@listing@jpcmd@i#1\endcsname{\the\@temptokena}%
  85   \toks@\expandafter\expandafter\expandafter\expandafter%
  86   \expandafter\expandafter\expandafter{\expandafter\expandafter%
  87   \expandafter\the\expandafter\toks@\csname ltj@@listing@jpcmd@i#1\endcsname}%
  88   \@temptokena{}%
  89 }
  90
  91 \begingroup
  92 \catcode`\^^a0=13\catcode`\^^a1=13\catcode`\^^a2=13\catcode`\^^a3=13
  93 \catcode`\^^a4=13\catcode`\^^a5=13\catcode`\^^a6=13\catcode`\^^a7=13
  94 \catcode`\^^a8=13\catcode`\^^a9=13\catcode`\^^aa=13\catcode`\^^ab=13
  95 \catcode`\^^ac=13\catcode`\^^ad=13\catcode`\^^ae=13\catcode`\^^af=13
  96 \catcode`\^^b0=12\catcode`\^^b1=12\catcode`\^^b2=12\catcode`\^^b3=12
  97 \catcode`\^^b4=12\catcode`\^^b5=12\catcode`\^^b6=12\catcode`\^^b7=12
  98 \catcode`\^^b8=12\catcode`\^^b9=12\catcode`\^^ba=12\catcode`\^^bb=12
  99 \catcode`\^^bc=12\catcode`\^^bd=12\catcode`\^^be=12\catcode`\^^bf=12
 100 \gdef\ltj@@listing@jpset@{%
 101    {\lccode`\^^a0=\@tempcnta \lccode`\^^b0=\@tempcnta
 102     \advance\@tempcnta\@ne\lccode`\^^a1=\@tempcnta \lccode`\^^b1=\@tempcnta
 103     \advance\@tempcnta\@ne\lccode`\^^a2=\@tempcnta \lccode`\^^b2=\@tempcnta
 104     \advance\@tempcnta\@ne\lccode`\^^a3=\@tempcnta \lccode`\^^b3=\@tempcnta
 105     \advance\@tempcnta\@ne\lccode`\^^a4=\@tempcnta \lccode`\^^b4=\@tempcnta
 106     \advance\@tempcnta\@ne\lccode`\^^a5=\@tempcnta \lccode`\^^b5=\@tempcnta
 107     \advance\@tempcnta\@ne\lccode`\^^a6=\@tempcnta \lccode`\^^b6=\@tempcnta
 108     \advance\@tempcnta\@ne\lccode`\^^a7=\@tempcnta \lccode`\^^b7=\@tempcnta
 109     \advance\@tempcnta\@ne\lccode`\^^a8=\@tempcnta \lccode`\^^b8=\@tempcnta
 110     \advance\@tempcnta\@ne\lccode`\^^a9=\@tempcnta \lccode`\^^b9=\@tempcnta
 111     \advance\@tempcnta\@ne\lccode`\^^aa=\@tempcnta \lccode`\^^ba=\@tempcnta
 112     \advance\@tempcnta\@ne\lccode`\^^ab=\@tempcnta \lccode`\^^bb=\@tempcnta
 113     \advance\@tempcnta\@ne\lccode`\^^ac=\@tempcnta \lccode`\^^bc=\@tempcnta
 114     \advance\@tempcnta\@ne\lccode`\^^ad=\@tempcnta \lccode`\^^bd=\@tempcnta
 115     \advance\@tempcnta\@ne\lccode`\^^ae=\@tempcnta \lccode`\^^be=\@tempcnta
 116     \advance\@tempcnta\@ne\lccode`\^^af=\@tempcnta \lccode`\^^bf=\@tempcnta
 117     \lowercase{\gdef\@temp{%
 118       \gdef^^a0{\lst@ProcessJALetter^^b0}\gdef^^a1{\lst@ProcessJALetter^^b1}%
 119       \gdef^^a2{\lst@ProcessJALetter^^b2}\gdef^^a3{\lst@ProcessJALetter^^b3}%
 120       \gdef^^a4{\lst@ProcessJALetter^^b4}\gdef^^a5{\lst@ProcessJALetter^^b5}%
 121       \gdef^^a6{\lst@ProcessJALetter^^b6}\gdef^^a7{\lst@ProcessJALetter^^b7}%
 122       \gdef^^a8{\lst@ProcessJALetter^^b8}\gdef^^a9{\lst@ProcessJALetter^^b9}%
 123       \gdef^^aa{\lst@ProcessJALetter^^ba}\gdef^^ab{\lst@ProcessJALetter^^bb}%
 124       \gdef^^ac{\lst@ProcessJALetter^^bc}\gdef^^ad{\lst@ProcessJALetter^^bd}%
 125       \gdef^^ae{\lst@ProcessJALetter^^be}\gdef^^af{\lst@ProcessJALetter^^bf}%
 126     }}%\message{\meaning\@temp}%
 127   }%
 128   \@temptokena\expandafter\expandafter\expandafter\expandafter%
 129   \expandafter\expandafter\expandafter{\expandafter\expandafter%
 130   \expandafter\the\expandafter\@temptokena\@temp}%
 131 }
 132 \gdef\ltj@@listing@jpsetN@#1#2{{%
 133     \@tempcnta=#1 \lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
 134     \lowercase{\gdef\@temp{\gdef~{#2/}}}}%
 135   \@temptokena\expandafter\expandafter\expandafter\expandafter%
 136   \expandafter\expandafter\expandafter{\expandafter\expandafter%
 137   \expandafter\the\expandafter\@temptokena\@temp}%
 138 }
 139 \endgroup
 140
 141
 142 \toks@{}
 143 \input lltjp-listings-jpt.tex
 144 \edef\ltj@@listing@jpcmd{\the\toks@}
 145 \toks@{}
 146 \lst@AddToHook{Init}{%
 147   \luatexcatcodetable\CatcodeTableLTJlistings
 148   \ltj@@listing@jpcmd}
 149
 150
 151 % 白線対策
 152 \def\lst@OutputToken{%
 153     \lst@TrackNewLines \lst@OutputLostSpace
 154     \lst@ifgobbledws
 155         \lst@gobbledwhitespacefalse
 156         \lst@@discretionary
 157     \fi
 158     \lst@CheckMerge
 159     {\lst@thestyle{\lst@FontAdjust
 160      \setbox\@tempboxa\lst@hbox
 161         {\lsthk@OutputBox
 162          \lst@lefthss
 163          \expandafter\lst@FillOutputBox\the\lst@token\@empty
 164          \lst@righthss}%
 165      \ht\@tempboxa=0pt\dp\@tempboxa=0pt
 166      \lst@CalcLostSpaceAndOutput}}%
 167     \lst@ResetToken}
 168
 169
 170 %    \begin{修正事項}{1.3} from jlisting.sty
 171 % ちょっとした修正
 172 \gdef\lst@breakProcessOther#1{\lst@ProcessOther#1}
 173 % ソースコード目次における文字と番号の空き
 174 \let \l@lstlisting = \l@figure
 175 % キャプションとソースコード目次に対する日本語対応
 176 \def\lstlistingname{ソースコード}
 177 \def\lstlistlistingname{ソースコード目次}
 178 %    \end{修正事項}
 179 \endinput