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@ProcessJALetter{\lst@whitespacefalse \lst@AppendJALetter}
  21 \def\lst@AppendJALetter{%
  22     \lst@ifletter \lst@Output\else\lst@OutputOther\fi\lst@lettertrue
  23     \advance\lst@length\@ne\lst@Append}
  24 \def\lst@ProcessJALetterHalf{\lst@whitespacefalse \lst@AppendJALetterHalf}
  25 \def\lst@AppendJALetterHalf{%
  26     \lst@ifletter \lst@Output\else\lst@OutputOther\fi\lst@lettertrue
  27     \lst@Append}
  28
  29 % loading lltjp-listing-jpt.tex
  30 \def\ltj@@listing@jpset#1#2{% fast: #2-#1+1 must be a multiple of 16
  31   \@tempcnta=#1 \@tempcntb=#2 \@temptokena{}%
  32   \loop\relax\ifnum\@tempcnta<\@tempcntb\relax
  33     \ltj@@listing@jpset@\global\advance\@tempcnta\sixt@@n\repeat
  34   \expandafter\edef\csname ltj@@listing@jpcmd@i#1\endcsname{\the\@temptokena}%
  35   \toks@\expandafter\expandafter\expandafter\expandafter%
  36   \expandafter\expandafter\expandafter{\expandafter\expandafter%
  37   \expandafter\the\expandafter\toks@\csname ltj@@listing@jpcmd@i#1\endcsname}%
  38 }
  39 \def\ltj@@listing@jpsetN#1#2#3{%
  40   \@tempcnta=#1 \@tempcntb=#2 \@temptokena{}%
  41   \loop \global\advance\@tempcnta\@ne\ifnum\@tempcnta<\@tempcntb\relax
  42     \ltj@@listing@jpsetN@#3\repeat
  43   \expandafter\edef\csname ltj@@listing@jpcmd@i#1\endcsname{\the\@temptokena}%
  44   \toks@\expandafter\expandafter\expandafter\expandafter%
  45   \expandafter\expandafter\expandafter{\expandafter\expandafter%
  46   \expandafter\the\expandafter\toks@\csname ltj@@listing@jpcmd@i#1\endcsname}%
  47 }
  48
  49 \begingroup
  50 \catcode`\^^a0=13\catcode`\^^a1=13\catcode`\^^a2=13\catcode`\^^a3=13
  51 \catcode`\^^a4=13\catcode`\^^a5=13\catcode`\^^a6=13\catcode`\^^a7=13
  52 \catcode`\^^a8=13\catcode`\^^a9=13\catcode`\^^aa=13\catcode`\^^ab=13
  53 \catcode`\^^ac=13\catcode`\^^ad=13\catcode`\^^ae=13\catcode`\^^af=13
  54 \catcode`\^^b0=12\catcode`\^^b1=12\catcode`\^^b2=12\catcode`\^^b3=12
  55 \catcode`\^^b4=12\catcode`\^^b5=12\catcode`\^^b6=12\catcode`\^^b7=12
  56 \catcode`\^^b8=12\catcode`\^^b9=12\catcode`\^^ba=12\catcode`\^^bb=12
  57 \catcode`\^^bc=12\catcode`\^^bd=12\catcode`\^^be=12\catcode`\^^bf=12
  58 \gdef\ltj@@listing@jpset@{%
  59    {\lccode`\^^a0=\@tempcnta \lccode`\^^b0=\@tempcnta
  60     \advance\@tempcnta\@ne\lccode`\^^a1=\@tempcnta \lccode`\^^b1=\@tempcnta
  61     \advance\@tempcnta\@ne\lccode`\^^a2=\@tempcnta \lccode`\^^b2=\@tempcnta
  62     \advance\@tempcnta\@ne\lccode`\^^a3=\@tempcnta \lccode`\^^b3=\@tempcnta
  63     \advance\@tempcnta\@ne\lccode`\^^a4=\@tempcnta \lccode`\^^b4=\@tempcnta
  64     \advance\@tempcnta\@ne\lccode`\^^a5=\@tempcnta \lccode`\^^b5=\@tempcnta
  65     \advance\@tempcnta\@ne\lccode`\^^a6=\@tempcnta \lccode`\^^b6=\@tempcnta
  66     \advance\@tempcnta\@ne\lccode`\^^a7=\@tempcnta \lccode`\^^b7=\@tempcnta
  67     \advance\@tempcnta\@ne\lccode`\^^a8=\@tempcnta \lccode`\^^b8=\@tempcnta
  68     \advance\@tempcnta\@ne\lccode`\^^a9=\@tempcnta \lccode`\^^b9=\@tempcnta
  69     \advance\@tempcnta\@ne\lccode`\^^aa=\@tempcnta \lccode`\^^ba=\@tempcnta
  70     \advance\@tempcnta\@ne\lccode`\^^ab=\@tempcnta \lccode`\^^bb=\@tempcnta
  71     \advance\@tempcnta\@ne\lccode`\^^ac=\@tempcnta \lccode`\^^bc=\@tempcnta
  72     \advance\@tempcnta\@ne\lccode`\^^ad=\@tempcnta \lccode`\^^bd=\@tempcnta
  73     \advance\@tempcnta\@ne\lccode`\^^ae=\@tempcnta \lccode`\^^be=\@tempcnta
  74     \advance\@tempcnta\@ne\lccode`\^^af=\@tempcnta \lccode`\^^bf=\@tempcnta
  75     \lowercase{\gdef\@temp{%
  76       \gdef^^a0{\lst@ProcessJALetter^^b0}\gdef^^a1{\lst@ProcessJALetter^^b1}%
  77       \gdef^^a2{\lst@ProcessJALetter^^b2}\gdef^^a3{\lst@ProcessJALetter^^b3}%
  78       \gdef^^a4{\lst@ProcessJALetter^^b4}\gdef^^a5{\lst@ProcessJALetter^^b5}%
  79       \gdef^^a6{\lst@ProcessJALetter^^b6}\gdef^^a7{\lst@ProcessJALetter^^b7}%
  80       \gdef^^a8{\lst@ProcessJALetter^^b8}\gdef^^a9{\lst@ProcessJALetter^^b9}%
  81       \gdef^^aa{\lst@ProcessJALetter^^ba}\gdef^^ab{\lst@ProcessJALetter^^bb}%
  82       \gdef^^ac{\lst@ProcessJALetter^^bc}\gdef^^ad{\lst@ProcessJALetter^^bd}%
  83       \gdef^^ae{\lst@ProcessJALetter^^be}\gdef^^af{\lst@ProcessJALetter^^bf}%
  84     }}%\message{\meaning\@temp}%
  85   }%
  86   \@temptokena\expandafter\expandafter\expandafter\expandafter%
  87   \expandafter\expandafter\expandafter{\expandafter\expandafter%
  88   \expandafter\the\expandafter\@temptokena\@temp}%
  89 }
  90 \gdef\ltj@@listing@jpsetN@#1{{%
  91     \lccode`\~=\@tempcnta \lccode`\/=\@tempcnta
  92     \lowercase{\gdef\@temp{\gdef~{#1/}}}}%
  93   \@temptokena\expandafter\expandafter\expandafter\expandafter%
  94   \expandafter\expandafter\expandafter{\expandafter\expandafter%
  95   \expandafter\the\expandafter\@temptokena\@temp}%
  96 }
  97 \endgroup
  98
  99
 100 \toks@{}
 101 \input lltjp-listings-jpt.tex
 102 \edef\ltj@@listing@jpcmd{\the\toks@}
 103 \toks@{}
 104 \lst@AddToHook{Init}{%
 105   \luatexcatcodetable\CatcodeTableLTJlistings
 106   \ltj@@listing@jpcmd}
 107
 108
 109 % 白線対策
 110 \def\lst@OutputToken{%
 111     \lst@TrackNewLines \lst@OutputLostSpace
 112     \lst@ifgobbledws
 113         \lst@gobbledwhitespacefalse
 114         \lst@@discretionary
 115     \fi
 116     \lst@CheckMerge
 117     {\lst@thestyle{\lst@FontAdjust
 118      \setbox\@tempboxa\lst@hbox
 119         {\lsthk@OutputBox
 120          \lst@lefthss
 121          \expandafter\lst@FillOutputBox\the\lst@token\@empty
 122          \lst@righthss}%
 123      \ht\@tempboxa=0pt\dp\@tempboxa=0pt
 124      \lst@CalcLostSpaceAndOutput}}%
 125     \lst@ResetToken}
 126
 127
 128 %    \begin{修正事項}{1.3} from jlisting.sty
 129 % ちょっとした修正
 130 \gdef\lst@breakProcessOther#1{\lst@ProcessOther#1}
 131 % ソースコード目次における文字と番号の空き
 132 \let \l@lstlisting = \l@figure
 133 % キャプションとソースコード目次に対する日本語対応
 134 \def\lstlistingname{ソースコード}
 135 \def\lstlistlistingname{ソースコード目次}
 136 %    \end{修正事項}
 137 \endinput