pandoc2review 1.2.0

data/samples/reviewsample/sty/jumoline.sty

@@ -0,0 +1,310 @@
+%%
+%% This is file `jumoline.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% jumoline.dtx  (with options: `package')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from jumoline.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file jumoline.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% Style file `jumoline'.
+%% Copyright (C) 1999-2001  Hiroshi Nakashima
+%%        (Toyohashi Univ. of Tech.)
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt; either
+%% version 1 of the License, or any later version.
+%%
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+%%
+\def\next{LaTeX2e}
+\ifx\fmtname\next
+\def\next{
+\NeedsTeXFormat{LaTeX2e}[1994/12/01]
+\ProvidesPackage{jumoline}}
+\else\def\next[#1]{}\fi
+\next
+[2001/05/31 v1.2 ]
+
+\ifx\PackageError\undefined
+\def\PackageError#1#2#3{\@latexerr{#1:#2}{#3^^J\@ehc}}
+\fi
+
+%%^L
+
+%% Register Declaration
+
+\newdimen\UnderlineDepth \UnderlineDepth-\maxdimen
+\newdimen\MidlineHeight \MidlineHeight-\maxdimen
+\newdimen\OverlineHeight \OverlineHeight-\maxdimen
+\newdimen\UMOlineThickness \UMOlineThickness.4pt
+
+\newdimen\UMO@height \newdimen\UMO@depth
+\newdimen\UMO@dqspace \newdimen\UMO@tempdim
+
+\newskip\UMO@prejfmglue \newskip\UMO@postjfmglue
+
+\newcount\UMO@mode
+\let\UMO@afterblock\z@
+\let\UMO@afterword\@ne
+\let\UMO@afterchar\tw@
+
+\newcount\UMO@spacefactor
+\newcount\UMO@firstxspcode
+\newcount\UMO@lastxspcode
+\newcount\UMO@inhibitxspcode
+\newcount\UMO@prebreakpenalty
+\newcount\UMO@postbreakpenalty
+\newcount\UMO@kpostbreakpenalty
+
+\newif\ifUMO@nospace \newif\ifUMO@firstelem
+
+%%^L
+
+%% User Interface and Initialization
+
+\def\Underline{\UMO@line\UnderlineDepth{-\UnderlineDepth}{-\dp\strutbox}}
+\def\Midline{\setbox\@tempboxa\hbox{あ}%
+        \UMO@line\MidlineHeight\MidlineHeight{.5\ht\@tempboxa}}
+\def\Overline{\UMO@line\OverlineHeight\OverlineHeight{\ht\strutbox}}
+\def\UMOline{\UMO@line{-\maxdimen}\z@}
+
+\def\UMO@line#1#2#3#4{\begingroup \let\\\UMOnewline
+        \relax\ifdim#1<\z@ \UMO@height#3\relax
+        \else \UMO@height#2\relax \fi
+        \UMO@depth-\UMO@height
+        \ifdim\UMO@height<\z@ \advance\UMO@depth\UMOlineThickness
+        \else                 \advance\UMO@height\UMOlineThickness \fi
+        \settowidth\UMO@dqspace{“}\advance\UMO@dqspace-1zw
+        \UMO@dqspace-\UMO@dqspace \divide\UMO@dqspace\tw@
+        \UMO@nospacetrue \UMO@firstelemtrue
+        \UMO@mode\UMO@afterblock
+        \ifvmode\leavevmode\fi
+        \def\@tempa{#4 }\edef\@tempb{\noexpand\@nil\space}%
+        \expandafter\expandafter\expandafter\UMO@wordloop
+                \expandafter\@tempa\@tempb
+        \endgroup \UMO@aftergroup}
+
+%%^L
+
+%% Processing Word Elements
+
+\def\UMO@wordloop{\UMO@ifbgroup\UMO@wordblock\UMO@iwordloop}
+\def\UMO@ifbgroup#1#2{\let\@tempa#1\let\@tempb#2\futurelet\@tempc\UMO@ifnc}
+\def\UMO@ifnc{\ifx\@tempc\bgroup \let\next\@tempa \else\let\next\@tempb \fi
+        \next}
+\def\UMO@wordblock#1{\UMO@spaceskip
+        \UMO@putbox\relax{#1}\UMO@nospacetrue \UMO@mode\UMO@afterblock
+        \UMO@spacefactor\@m \UMO@wordloop}
+\def\UMO@iwordloop#1 {\def\@tempa{#1}\ifx\@tempa\@nnil \let\next\UMO@end
+        \else
+        \ifx\@tempa\empty \UMO@nospacefalse
+        \else
+                \UMO@spaceskip \UMO@mode\UMO@afterblock
+                \def\UMO@theword{}\UMO@firstxspcode\m@ne
+                \UMO@charloop#1\@nil \fi
+        \let\next\UMO@wordloop \fi
+        \next}
+
+%%^L
+
+%% Interword Spacing
+
+\def\UMO@spaceskip{\ifUMO@nospace \UMO@nospacefalse \else
+        \ifdim\spaceskip=\z@
+            \@tempdima\fontdimen3\font\relax
+                \multiply\@tempdima\UMO@spacefactor \divide\@tempdima\@m
+            \@tempdimb\fontdimen4\font\relax \multiply\@tempdimb\@m
+                \divide\@tempdimb\UMO@spacefactor
+            \@tempskipa\fontdimen2\font plus\@tempdima minus\@tempdimb\relax
+        \else
+            \edef\@tempa{\the\spaceskip\space @ @ @ @ }%
+            \expandafter\UMO@setspaceskip\@tempa\@nil
+        \fi
+        \ifnum\UMO@spacefactor<2000\else
+                \ifdim\xspaceskip=\z@ \advance\@tempskipa\fontdimen7\font
+                \else \@tempskipa\xspaceskip
+        \fi\fi
+        \UMO@skip\@tempskipa \fi}
+\def\UMO@setspaceskip#1 #2 #3 #4 #5 #6\@nil{\@tempdima\z@ \@tempdimb\z@
+        \def\@tempa{#2}\def\@tempb{#3}%
+        \ifx\@tempa\UMO@plus \@tempdima#3\def\@tempa{#4}\def\@tempb{#5}\fi
+        \ifx\@tempa\UMO@minus \@tempdimb\@tempb\relax\fi
+        \multiply\@tempdima\UMO@specefactor \divide\@tempdima\@m
+        \multiply\@tempdimb\@m \divide\UMO@spacefactor
+        \@tempskipa#1 plus\@tempdima minus\@tempdimb\relax}
+\def\@tempa#1 #2 #3 #4 #5\@nil{\def\UMO@plus{#2}\def\UMO@minus{#4}}
+\@tempskipa1pt plus 2pt minus 3pt
+\expandafter\@tempa\the\@tempskipa\@nil
+
+%%^L
+
+%% Processing Characters
+
+\def\UMO@charloop{\UMO@ifbgroup\UMO@charblock\UMO@icharloop}
+\def\UMO@charblock#1{\UMO@putword
+        \UMO@putbox\relax{#1}\UMO@mode\UMO@afterblock \UMO@spacefactor\@m
+        \UMO@charloop}
+\def\UMO@icharloop#1{\def\@tempa{#1}%
+        \ifx\@tempa\@nnil \UMO@putword \let\next\relax
+        \else\ifx\UMOspace#1\relax \UMO@putword \let\next\UMO@space
+        \else\ifx\UMOnewline#1\relax \UMO@putword \let\next\UMO@newline
+        \else
+        \ifnum`#1<256\relax \edef\UMO@theword{\UMO@theword#1}%
+                \ifnum\UMO@firstxspcode<\z@
+                        \UMO@firstxspcode\xspcode`#1\relax
+                        \UMO@prebreakpenalty\prebreakpenalty`#1\relax
+                        \fi
+                \UMO@lastxspcode\xspcode`#1\relax
+                \UMO@postbreakpenalty\postbreakpenalty`#1\relax
+        \else \UMO@putword \UMO@putchar{#1}\UMO@spacefactor\@m\fi
+        \let\next\UMO@charloop \fi\fi\fi \next}
+\def\UMOspace{\PackageError{jumoline}%
+        {\string\UMOspace\space cannot be used here.}%
+        {\string\UMOspace\space can be used only in the argument of
+                \string\Underline\space and its relatives.}}
+\def\UMOnewline{\PackageError{jumoline}%
+        {\string\UMOnewline\space cannot be used here.}%
+        {\string\UMOnewline\space can be used only in the argument of
+                \string\Underline\space and its relatives.}}
+
+%%^L
+
+%% Put ASCII String
+
+\def\UMO@putword{\ifx\UMO@theword\empty\else
+        \ifnum\UMO@mode=\UMO@afterchar
+                \advance\UMO@kpostbreakpenalty\UMO@prebreakpenalty
+                \penalty\UMO@kpostbreakpenalty
+                \ifdim\UMO@postjfmglue>\z@ \UMO@skip\UMO@postjfmglue
+                \else\ifodd\UMO@inhibitxspcode \ifodd\UMO@firstxspcode
+                        \UMO@skip\xkanjiskip \fi\fi\fi\fi
+        \setbox\@tempboxa\hbox{%
+                \UMO@theword\global\UMO@spacefactor\spacefactor}%
+        \UMO@putbox\relax\UMO@theword \UMO@mode\UMO@afterword
+        \def\UMO@theword{}\fi \UMO@firstxspcode\m@ne}
+
+%%^L
+
+%% Put Kanji Letter
+
+\def\UMO@putchar#1{%
+        \ifnum\UMO@mode=\UMO@afterchar \UMO@prejfmglue\UMO@postjfmglue
+        \else                          \UMO@prejfmglue\z@ \fi
+        \UMO@postjfmglue\z@
+        \ifnum`#1<\kuten"1001\relax\UMO@setjfmglue{#1}\fi
+        \@tempskipa\UMO@prejfmglue
+        \UMO@inhibitxspcode\inhibitxspcode`#1\relax
+        \@tempcnta\prebreakpenalty`#1\relax
+        \ifnum\UMO@mode=\UMO@afterchar
+                \advance\@tempcnta\UMO@kpostbreakpenalty
+                \ifdim\UMO@prejfmglue=\z@ \@tempskipa\kanjiskip \fi
+        \else\ifnum\UMO@mode=\UMO@afterword
+                \advance\@tempcnta\UMO@postbreakpenalty
+                \ifdim\UMO@prejfmglue=\z@
+                \ifnum\UMO@lastxspcode>\@ne \ifnum\UMO@inhibitxspcode>\@ne
+                        \@tempskipa\xkanjiskip \fi\fi\fi\fi\fi
+        \penalty\@tempcnta
+        \edef\@tempa{\the\@tempskipa}\ifx\@tempa\UMO@zskip\else
+                \UMO@skip\@tempskipa \fi
+        \UMO@putbox\inhibitglue{#1}%
+        \UMO@kpostbreakpenalty\postbreakpenalty`#1\relax
+        \UMO@mode\UMO@afterchar}
+\@tempskipa\z@
+\edef\UMO@zskip{\the\@tempskipa}
+\def\UMO@setjfmglue#1{%
+        \settowidth\@tempdima{あ#1}\settowidth\@tempdimb{あ\inhibitglue#1}%
+        \advance\@tempdima-\@tempdimb
+        \settowidth\UMO@tempdim{#1あ}\settowidth\@tempdimb{#1\inhibitglue あ}%
+        \advance\UMO@tempdim-\@tempdimb
+        \ifdim\@tempdima>\z@
+                \ifdim\UMO@tempdim>\z@
+                        \@tempskipa\@tempdima minus\@tempdima\relax
+                        \UMO@postjfmglue\UMO@tempdim minus\UMO@tempdim\relax
+                \else   \@tempskipa\@tempdima minus\UMO@dqspace\relax \fi
+                \advance\UMO@prejfmglue\@tempskipa
+        \else \UMO@postjfmglue\UMO@tempdim minus\UMO@dqspace \fi}
+
+%%^L
+
+%% Draw Under/Mid/Overline
+
+\def\UMO@putbox#1#2{\setbox\@tempboxa\hbox{#1#2#1}\@tempdima\wd\@tempboxa
+        \ifUMO@firstelem\else
+        \rlap{\vrule\@height\UMO@height\@depth\UMO@depth\@width\@tempdima}\fi
+        \box\@tempboxa
+        \ifUMO@firstelem \UMO@firstelemfalse
+        \llap{\vrule\@height\UMO@height\@depth\UMO@depth\@width\@tempdima}\fi}
+\def\UMO@skip#1{%
+        \leaders\hrule\@height\UMO@height\@depth\UMO@depth\hskip#1\relax}
+
+%%^L
+
+%% Explicit Spacing and Line Breaking
+
+\def\UMO@space{\UMO@mode\UMO@afterblock
+        \@ifstar\UMO@sspace\UMO@ispace}
+\def\UMO@sspace#1{\vrule width\z@\nobreak\UMO@skip{#1}\UMO@charloop}
+\def\UMO@ispace#1{\@tempskipa#1\relax
+        \@ifstar{\@tempswafalse\UMO@iispace}{\@tempswatrue\UMO@iispace}}
+\def\UMO@iispace{\@ifnextchar[%]
+                              {\UMO@penalty}%
+                              {\UMO@skip\@tempskipa \UMO@charloop}}
+\def\UMO@penalty[#1]{\@tempcnta#1\relax
+        \if@tempswa
+                \ifnum\@tempcnta<\z@ \@tempcnta-\@tempcnta \fi
+                \ifcase\@tempcnta \or
+                        \@tempcnta\@lowpenalty \or
+                        \@tempcnta\@medpenalty \or
+                        \@tempcnta\@highpenalty \else
+                        \@tempcnta\@M \fi
+                \ifnum#1<\z@ \@tempcnta-\@tempcnta \fi \fi
+        \penalty\@tempcnta \UMO@skip\@tempskipa \UMO@charloop}
+
+\def\UMO@newline{\UMO@mode\UMO@afterblock
+        \@ifstar{\UMO@skip{0pt plus1fil}\break \UMO@charloop}%
+                                 {\hfil \break \UMO@charloop}}
+
+%%^L
+
+%% Finalization
+
+\def\UMO@end{\ifnum\UMO@mode=\UMO@afterchar
+        \ifnum\UMO@kpostbreakpenalty>\z@
+                \penalty\UMO@kpostbreakpenalty \fi
+        \ifdim\UMO@postjfmglue>\z@
+                \UMO@skip\UMO@postjfmglue\fi \fi
+        \xdef\UMO@aftergroup{\ifnum\UMO@mode=\UMO@afterword
+                \spacefactor\number\UMO@spacefactor\fi}}
+\endinput
+%%
+%% End of file `jumoline.sty'.

data/samples/reviewsample/sty/plistings.sty

@@ -0,0 +1,326 @@
+%
+% plistings.sty
+%
+% lltjp-listings.sty ベース，コード未整理
+
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{plistings}[2015/12/07 v0.10 Japanese support of listings package]
+
+%%%%%%%% Package options
+\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{listings}}
+\ProcessOptions\relax
+\RequirePackage{listings,etoolbox}
+
+%%%%%%%% Japanese support
+%% whether letter-space in a fixed mode box is doubled or not
+\newif\if@ltj@lst@double
+\lst@Key{doubleletterspace}f[t]{\lstKV@SetIf{#1}\if@ltj@lst@double}
+
+% override \lst@FillFixed@
+\def\lst@FillFixed@#1{%
+  \ifx\@empty#1\else\ltj@lst@hss#1\expandafter\lst@FillFixed@\fi}
+\def\ltj@lst@hss@double{\lst@hss\lst@hss}
+
+% 最下層の処理
+\newif\if@ltj@lst@kanji
+\lst@AddToHook{InitVars}{\@ltj@lst@kanjifalse}
+
+\def\lst@AppendLetter{%
+    \ltj@lst@setletterflag\lst@Append}
+\def\lst@AppendOther{%
+    \lst@ifletter\lst@Output\lst@letterfalse\fi\@ltj@lst@kanjifalse
+    \futurelet\lst@lastother\lst@Append}
+
+\def\ltj@lst@setletterflag{%
+  \lst@ifletter
+    \if@ltj@lst@kanji\lst@Output\@ltj@lst@kanjifalse\fi
+  \else
+    \lst@lettertrue\if@ltj@lst@kanji\@ltj@lst@kanjifalse\else\lst@OutputOther\fi
+  \fi}
+
+\def\ltj@lst@setkanjiflag{%
+  \lst@ifletter
+    \lst@Output
+  \else
+    \if@ltj@lst@kanji\else\lst@OutputOther\fi\lst@lettertrue
+  \fi\@ltj@lst@kanjitrue}
+
+\def\ltj@lst@setopenflag{%
+  \lst@ifletter
+    \lst@letterfalse\lst@Output
+  \else
+    \if@ltj@lst@kanji\else\lst@OutputOther\fi
+  \fi\@ltj@lst@kanjitrue}
+
+\def\ltj@lst@setcloseflag{%
+  \lst@ifletter\else\lst@lettertrue\fi\@ltj@lst@kanjitrue}
+
+%%%% 和文文字の出力命令．
+%%%% 和文文字の前にこれが前置されることになる．
+\def\ltj@lst@ProcessJALetter#1{%
+  \lst@whitespacefalse
+  \ifnum`#1>255
+    \ifnum\postbreakpenalty`#1>0
+      \ltj@lst@setopenflag    % 開き括弧類
+    \else
+      \ifnum\prebreakpenalty`#1>0
+        \ltj@lst@setcloseflag % 閉じ括弧類，句読点
+      \else
+        \ltj@lst@setkanjiflag % 通常の和文文字
+    \fi\fi
+    \advance\lst@length\@ne   % 和文文字は通常の2倍の幅
+  \else
+    \ltj@lst@setletterflag
+  \fi
+  \lst@Append#1}
+
+
+%%%% \lst@InsideConvert の処理内容変更
+%%%% active 文字化に加え，^^@ を和文文字の前に前置
+\def\ltj@lst@MakeActive#1{%
+    \let\lst@temp\@empty \ltj@lst@MakeActive@#1\relax}
+\begingroup
+\catcode`\^^A=\active
+\catcode`\^^@=\active
+\lowercase{%
+\gdef\ltj@lst@MakeActive@#1{\let\lst@next\relax%
+    \ifx#1\relax
+    \else\let\lst@next\ltj@lst@MakeActive@
+    \ifnum`#1>255
+      \lst@lAddTo\lst@temp{^^@#1}%
+    \else
+      \lccode`\^^A=`#1 
+      \lowercase{\lst@lAddTo\lst@temp{^^A}}%
+    \fi\fi\lst@next}}
+\endgroup
+\begingroup \lccode`\~=`\ \relax \lowercase{%
+\gdef\lst@InsideConvert@#1 #2{%
+    \ltj@lst@MakeActive{#1}%
+    \ifx\@empty#2%
+        \lst@lExtend\lst@arg{\lst@temp}%
+    \else
+        \lst@lExtend\lst@arg{\lst@temp~}%
+        \expandafter\lst@InsideConvert@
+    \fi #2}
+}\endgroup
+
+
+%%%%%%%% \lstinline の再定義．
+%%%% 引数を全部読み込み，\lst@InsideConvert で変換
+\renewcommand\lstinline[1][]{%
+    \leavevmode\bgroup % \hbox\bgroup --> \bgroup
+      \def\lst@boxpos{b}%
+      \lsthk@PreSet\lstset{flexiblecolumns,#1}%
+      \lsthk@TextStyle
+      \@ifnextchar\bgroup \ltj@lst@InlineG \ltj@lstinline@}
+\def\ltj@lstinline@#1{%
+  \edef\ltj@lst@temp{\the\catcode`#1}\lst@Init\relax\catcode`#1\ltj@lst@temp
+  \lst@Def{13}{\lst@DeInit\egroup \global\let\lst@inlinechars\@empty
+     \PackageError{Listings}{lstinline ended by EOL}\@ehc}%
+  \lst@InlineJ#1}
+\def\ltj@lst@InlineG{%
+  \lst@Init\relax\edef\ltj@lst@temp{\the\catcode`\}}%
+  \catcode`\}=2 \catcode`\ =12\relax
+  \lst@Def{13}{\lst@DeInit\egroup \global\let\lst@inlinechars\@empty
+     \PackageError{Listings}{lstinline ended by EOL}\@ehc}%
+  \let\lst@arg\@empty\afterassignment\ltj@lst@InlineG@@\@temptokena}
+\def\ltj@lst@InlineG@@{%
+  \catcode`\}=\ltj@lst@temp
+  \expandafter\expandafter\expandafter\lst@InsideConvert%
+  \expandafter{\the\@temptokena}\lst@arg\lst@DeInit\egroup}
+
+%%%%%%%% \lstenv@process の再定義
+%%%% 基本的にはインライン時と同様に全トークンを読み込み→\lst@InsideConvert で変換
+%%%% その後，変換した中身は \scantokens で読み込み直される
+\begingroup \lccode`\~=`\^^M\lowercase{%
+\gdef\lstenv@Process#1{%
+    \ifx~#1%
+        \lstenv@DroppedWarning \let\lst@next\ltj@lstenv@ProcessM
+    \else\ifx^^J#1%
+        \lstenv@DroppedWarning \let\lst@next\lstenv@ProcessJ
+    \else
+        \let\lst@dropped#1\let\lst@next\lstenv@Process
+    \fi \fi
+    \lst@next}
+}\endgroup
+\begingroup\lccode`\[=`\{\lccode`\]=`\}\lccode`|=`\\\lowercase{%
+\gdef\ltj@lstenv@ProcessM{%
+    \let\lst@arg\@empty
+    \edef\lst@temp{|end[\lstenv@name]}%
+    \expandafter\expandafter\expandafter\lst@InsideConvert%
+        \expandafter{\lst@temp}%
+    \@temptokena{%
+        \expandafter\expandafter\expandafter\expandafter\expandafter\expandafter\expandafter
+        \lst@SkipToFirst\expandafter\expandafter\expandafter\scantokens\expandafter{\lst@arg}%
+    }
+    \expandafter\expandafter\expandafter\toks@\expandafter{\lst@arg}
+    \expandafter\edef\expandafter\lst@temp\expandafter##\expandafter1\lst@arg
+    {%
+        \noexpand\let\noexpand\lst@arg\noexpand\@empty%
+        \noexpand\lst@InsideConvert{\noexpand##1}
+        \the\@temptokena\the\toks@
+    }%
+    \lst@temp}
+}\endgroup
+
+\def\lst@BeginDropInput#1{%
+    \lst@EnterMode{#1}%
+    {\lst@modetrue
+     \let\lst@OutputBox\@gobble
+     \let\lst@ifdropinput\iftrue
+     \let\lst@ProcessLetter\@gobble
+     \let\lst@ProcessDigit\@gobble
+     \let\lst@ProcessOther\@gobble
+     \let\lst@ProcessSpace\@empty
+     \let\lst@ProcessTabulator\@empty
+     \let\lst@ProcessFormFeed\@empty
+     \let\ltj@lst@ProcessJALetter\@gobble     % added
+}}
+
+
+%%%% ^^@ を active 文字化 (\ltj@lst@ProcessJALetter)
+\begingroup\catcode`\^^@=\active
+\lst@AddTo\lst@SelectStdCharTable{\def^^@{\ltj@lst@ProcessJALetter}}
+\endgroup
+\lst@AddToHook{InitVars}{%
+  \catcode`\^^@=\active
+  \if@ltj@lst@double
+    \let\ltj@lst@hss=\ltj@lst@hss@double
+  \else
+    \let\ltj@lst@hss=\lst@hss
+  \fi
+}
+
+%%%% 白線対策のため，\lineskiplimit を負の値にする
+\newif\ifltj@lst@frame@top
+\newdimen\ltj@lst@frame@lslimit
+\gdef\lst@frameInit{%
+    \ltj@lst@frame@toptrue
+    \ifx\lst@framelshape\@empty \let\lst@frameL\@empty \fi
+    \ifx\lst@framershape\@empty \let\lst@frameR\@empty \fi
+    \def\lst@framevrule{\vrule\@width\lst@framerulewidth\relax}%
+    \lst@ifframeround
+        \lst@frameCalcDimA\z@ \@getcirc\@tempdima
+        \@tempdimb\@tempdima \divide\@tempdimb\tw@
+        \advance\@tempdimb -\@wholewidth
+        \edef\lst@frametextsep{\the\@tempdimb}%
+        \edef\lst@framerulewidth{\the\@wholewidth}%
+        \lst@frameCalcDimA\@ne \@getcirc\@tempdima
+        \@tempdimb\@tempdima \divide\@tempdimb\tw@
+        \advance\@tempdimb -\tw@\@wholewidth
+        \advance\@tempdimb -\lst@frametextsep
+        \edef\lst@rulesep{\the\@tempdimb}%
+    \fi
+    \lst@frameMakeBoxV\lst@framebox{\ht\strutbox}{\dp\strutbox}%
+    %%%%  ここから
+    \@tempdima\z@
+    \ifdim\ht\strutbox<\cht\@tempdima=\dimexpr\cht-\ht\strutbox\relax\fi
+    \ifdim\dp\strutbox<\cdp\advance\@tempdima=\dimexpr\cdp-\dp\strutbox\relax\fi
+    \ltj@lst@frame@lslimit=-\@tempdima
+    \def\lst@framelr{%
+      \ifltj@lst@frame@top\ltj@lst@frame@topfalse\else\lineskiplimit\ltj@lst@frame@lslimit\fi
+      \copy\lst@framebox}%
+    %%%% ここまで
+    \ifx\lst@frametshape\@empty\else
+        \lst@frameH T\lst@frametshape
+        \ifvoid\z@\else
+            \par\lst@parshape
+            \@tempdima-\baselineskip \advance\@tempdima\ht\z@
+            \ifdim\prevdepth<\@cclvi\p@\else
+                \advance\@tempdima\prevdepth
+            \fi
+            \ifdim\@tempdima<\z@
+                \vskip\@tempdima\vskip\lineskip
+            \fi
+            \noindent\box\z@\par
+            \lineskiplimit\maxdimen \lineskip\z@
+        \fi
+        \lst@frameSpreadV\lst@framextopmargin
+    \fi}
+
+% lstinputlisting
+% modified from jlisting.sty
+\def\lst@InputListing#1{%
+   \begingroup
+      \lsthk@PreSet \gdef\lst@intname{#1}%
+      \expandafter\lstset\expandafter{\lst@set}%
+      \lsthk@DisplayStyle
+      \catcode\active=\active
+      \lst@Init\relax \let\lst@gobble\z@
+      \lst@SkipToFirst
+      \lst@ifprint \def\lst@next{\lst@get@filecontents{#1}}%
+      \else        \let\lst@next\@empty
+      \fi
+      \lst@next
+      \lst@DeInit
+   \endgroup}
+\newread\lst@inputfile
+\def\lst@get@filecontents#1{%
+   \let\lst@filecontents\@empty
+   \openin\lst@inputfile=#1\relax
+   \let\@lst@get@filecontents@prevline\relax
+   \lst@get@filecontents@loop
+   \closein\lst@inputfile
+   \lst@filecontents\empty}
+\def\lst@get@filecontents@loop{%
+   \read\lst@inputfile to\lst@temp
+   \let\lst@arg\@empty\expandafter\expandafter\expandafter\lst@InsideConvert\expandafter{\lst@temp}%
+   \ifx\@lst@get@filecontents@prevline\relax\else
+      \expandafter\expandafter\expandafter\def
+      \expandafter\expandafter\expandafter\lst@filecontents
+      \expandafter\expandafter\expandafter{%
+         \expandafter\lst@filecontents\@lst@get@filecontents@prevline}%
+   \fi
+   \let\@lst@get@filecontents@prevline\lst@arg
+   \ifeof\lst@inputfile\else
+      \expandafter\lst@get@filecontents@loop
+   \fi}
+
+%%%%%%%% escape to \LaTeX
+%%%% 一旦中身を全部取得した後で，^^@ ( = \ltj@lst@ProcessJALetter) を
+%%%% トークン列から削除，その後 \scantokens で再読み込み
+\lstloadaspects{escape}
+\gdef\lst@Escape#1#2#3#4{%
+    \lst@CArgX #1\relax\lst@CDefX
+        {}%
+        {\lst@ifdropinput\else
+         \lst@TrackNewLines\lst@OutputLostSpace \lst@XPrintToken
+         \lst@InterruptModes
+         \lst@EnterMode{\lst@TeXmode}{\lst@modetrue}%
+         \ifx\^^M#2%
+             \lst@CArg #2\relax\lst@ActiveCDefX
+                 {}%
+                 {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes}%
+                 {\ltj@lst@MProcessListing}%
+         \else
+             \lst@CArg #2\relax\lst@ActiveCDefX
+                 {}%
+                 {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes
+                  \lst@newlines\z@ \lst@whitespacefalse}%
+                 {}%
+         \fi%
+         \ltj@lst@escape@setup#2
+         #3\lst@escapebegin\expandafter\lst@next%
+         \fi}%
+	 {}}
+\def\ltj@lst@escape@setup#1{%
+  \begingroup\lccode`\~=`#1\lowercase{%
+  \gdef\lst@next##1~{%
+     \let\lst@arg\@empty\ltj@lst@remove@jacmd{##1}%
+     \expandafter\expandafter\expandafter\scantokens\expandafter{\lst@arg}%
+     ~}%
+  }\endgroup
+}
+
+\begingroup
+  \catcode`\^^@=12 %
+  \gdef\ltj@lst@remove@jacmd#1{%
+    \expandafter\ltj@lst@remove@jacmd@\detokenize{#1}^^@\@nil^^@}
+  \gdef\ltj@lst@remove@jacmd@#1^^@{%
+    \ifx#1\@nil\else
+       \lst@lAddTo\lst@arg{#1}%
+       \expandafter\ltj@lst@remove@jacmd@
+    \fi}
+\endgroup
+
+\endinput