review 2.5.0 → 3.0.0.preview1

data/test/test_logger.rb

@@ -0,0 +1,20 @@
+require 'test_helper'
+require 'review/logger'
+
+class LoggerTest < Test::Unit::TestCase
+  def setup
+  end
+
+  def test_logging
+    old_stderr = STDERR.dup
+    IO.pipe do |r, w|
+      STDERR.reopen(w)
+      @logger = ReVIEW::Logger.new
+      @logger.warn('test')
+      msg = r.readline
+      STDERR.reopen(old_stderr)
+
+      assert_equal "WARN: test\n", msg
+    end
+  end
+end

data/test/test_markdownbuilder.rb

@@ -26,6 +26,16 @@ class MARKDOWNBuilderTest < Test::Unit::TestCase
     assert_equal %Q(\n> foobar\n> \n> buz\n\n), actual
   end
 
+  def test_memo
+    actual = compile_block("//memo[this is @<b>{test}<&>_]{\ntest1\n\ntest@<i>{2}\n//}\n")
+    assert_equal %Q(<div class="memo">\n<p class="caption">this is **test**<&>_</p>\ntest1\ntest*2*\n</div>\n), actual
+  end
+
+  def test_noindent
+    actual = compile_block("//noindent\nfoo\nbar\n\nfoo2\nbar2\n")
+    assert_equal %Q(<p class="noindent">foobar</p>\n\nfoo2bar2\n\n), actual
+  end
+
   def test_inline_em
     assert_equal 'test*foo*abc', compile_inline('test@<em>{foo}abc')
   end

data/test/test_pdfmaker.rb

@@ -10,7 +10,7 @@ class PDFMakerTest < Test::Unit::TestCase
     @config.merge!(
       'bookname' => 'sample',
       'title' => 'Sample Book',
-      'version' => 2,
+      'review_version' => 3,
       'urnid' => 'http://example.jp/',
       'date' => '2011-01-01',
       'language' => 'ja',
@@ -141,6 +141,7 @@ class PDFMakerTest < Test::Unit::TestCase
   def test_template_content
     Dir.mktmpdir do
       @maker.basedir = Dir.pwd
+      @maker.erb_config
       tmpl = @maker.template_content
       expect = File.read(File.join(assets_dir, 'test_template.tex'))
       assert_equal(expect, tmpl)
@@ -149,9 +150,9 @@ class PDFMakerTest < Test::Unit::TestCase
 
   def test_gettemplate_with_backmatter
     @config.merge!(
-      'backcover' => 'backcover.html',
-      'profile' => 'profile.html',
-      'advfile' => 'advfile.html'
+      'backcover' => 'backcover.tex',
+      'profile' => 'profile.tex',
+      'advfile' => 'advfile.tex'
     )
     Dir.mktmpdir do |dir|
       Dir.chdir(dir) do
@@ -161,12 +162,10 @@ class PDFMakerTest < Test::Unit::TestCase
         File.open(File.join(dir, 'advfile.tex'), 'w') { |f| f.write(advfile) }
         backcover = "\\clearpage\n\\thispagestyle{empty}\\AddToShipoutPictureBG{%\n\\AtPageLowerLeft{\\includegraphics[width=\\paperwidth,height=\\paperheight]{images/backcover.png}}\n}\n\\null"
         File.open(File.join(dir, 'backcover.tex'), 'w') { |f| f.write(backcover) }
-
         expect = File.read(File.join(assets_dir, 'test_template_backmatter.tex'))
-
         @maker.basedir = Dir.pwd
+        @maker.erb_config
         tmpl = @maker.template_content
-        tmpl.gsub!(/\A.*%% backmatter begins\n/m, '')
         assert_equal(expect, tmpl)
       end
     end

data/test/test_plaintextbuilder.rb

@@ -12,7 +12,7 @@ class PLAINTEXTBuidlerTest < Test::Unit::TestCase
     @config = ReVIEW::Configure.values
     @config['secnolevel'] = 2
     @config['language'] = 'ja'
-    @book = Book::Base.new(nil)
+    @book = Book::Base.new
     @book.config = @config
     @compiler = ReVIEW::Compiler.new(@builder)
     @chapter = Book::Chapter.new(@book, 1, '-', nil, StringIO.new)

data/test/test_review_ext.rb

@@ -18,7 +18,6 @@ module ReVIEW
 end
     EOB
 
-    ReVIEW::Book::Base.clear_rubyenv ## to load review-ext.rb
     mktmpbookdir('CHAPS' => "ch01.re\n",
                  'ch01.re' => "= test\n\ntest.\n",
                  'review-ext.rb' => review_ext) do |_dir, _book, _files|

data/test/test_rstbuilder.rb

@@ -12,7 +12,7 @@ class RSTBuidlerTest < Test::Unit::TestCase
     @config = ReVIEW::Configure.values
     @config['secnolevel'] = 2
     @config['language'] = 'ja'
-    @book = Book::Base.new(nil)
+    @book = Book::Base.new
     @book.config = @config
     @compiler = ReVIEW::Compiler.new(@builder)
     @chapter = Book::Chapter.new(@book, 1, '-', nil, StringIO.new)

data/test/test_topbuilder.rb

@@ -12,19 +12,13 @@ class TOPBuidlerTest < Test::Unit::TestCase
     @config = ReVIEW::Configure.values
     @config['secnolevel'] = 2
     @config['language'] = 'ja'
-    @book = Book::Base.new(nil)
+    @book = Book::Base.new
     @book.config = @config
     @compiler = ReVIEW::Compiler.new(@builder)
     @chapter = Book::Chapter.new(@book, 1, '-', nil, StringIO.new)
     location = Location.new(nil, nil)
     @builder.bind(@compiler, @chapter, location)
 
-    @builder.instance_eval do
-      # to ignore lineno in original method
-      def warn(msg)
-        puts msg
-      end
-    end
     I18n.setup(@config['language'])
   end
 
@@ -297,6 +291,24 @@ class TOPBuidlerTest < Test::Unit::TestCase
     assert_equal %Q(◆→開始:TeX式←◆\n\\sin\n1^{2}\n◆→終了:TeX式←◆\n\n), actual
   end
 
+  def test_inline_w
+    Dir.mktmpdir do |dir|
+      File.open(File.join(dir, 'words.csv'), 'w') do |f|
+        f.write <<EOB
+"F","foo"
+"B","bar""\\<>_@<b>{BAZ}"
+EOB
+      end
+      @book.config['words_file'] = File.join(dir, 'words.csv')
+
+      io = StringIO.new
+      @builder.instance_eval{ @logger = ReVIEW::Logger.new(io) }
+      actual = compile_block('@<w>{F} @<w>{B} @<wb>{B} @<w>{N}')
+      assert_equal %Q(foo bar"\\<>_@<b>{BAZ} ★bar"\\<>_@<b>{BAZ}☆ [missing word: N]\n), actual
+      assert_match(/WARN -- : :1: word not bound: N/, io.string)
+    end
+  end
+
   def test_inline_unknown
     e = assert_raises(ReVIEW::ApplicationError) { compile_block "@<img>{n}\n" }
     assert_equal ':1: error: unknown image: n', e.message

data/test/test_webtocprinter.rb

@@ -35,8 +35,8 @@ EOB
       expect = <<-EOB
 <ul class="book-toc">
 <li><a href="index.html">TOP</a></li>
-<li><a href="./ch1.html">1 ch. 1</a></li>
-<li><a href="./ch2.html">2 ch. 2</a></li>
+<li><a href="ch1.html">1 ch. 1</a></li>
+<li><a href="ch2.html">2 ch. 2</a></li>
 </ul>
 EOB
       assert_equal expect, str
@@ -60,12 +60,12 @@ EOB
 <li><a href="index.html">TOP</a></li>
 <li>I part1
 <ul>
-<li><a href="./ch1.html">1 ch. 1</a></li>
+<li><a href="ch1.html">1 ch. 1</a></li>
 </ul>
 </li>
 <li>II part2
 <ul>
-<li><a href="./ch2.html">2 ch. 2</a></li>
+<li><a href="ch2.html">2 ch. 2</a></li>
 </ul>
 </li>
 </ul>
@@ -93,12 +93,12 @@ EOB
 <li><a href="index.html">TOP</a></li>
 <li><a href="p1.html">I This is PART1</a>
 <ul>
-<li><a href="./ch1.html">1 ch. 1</a></li>
+<li><a href="ch1.html">1 ch. 1</a></li>
 </ul>
 </li>
 <li><a href="p2.html">II This is PART2</a>
 <ul>
-<li><a href="./ch2.html">2 ch. 2</a></li>
+<li><a href="ch2.html">2 ch. 2</a></li>
 </ul>
 </li>
 </ul>
@@ -139,22 +139,22 @@ EOB
       expect = <<-EOB
 <ul class="book-toc">
 <li><a href="index.html">TOP</a></li>
-<li><a href="./pre1.html">PRE1</a></li>
-<li><a href="./pre2.html">PRE2</a></li>
+<li><a href="pre1.html">PRE1</a></li>
+<li><a href="pre2.html">PRE2</a></li>
 <li><a href="part1.html">I PART1</a>
 <ul>
-<li><a href="./ch1.html">1 ch. 1</a></li>
+<li><a href="ch1.html">1 ch. 1</a></li>
 </ul>
 </li>
 <li><a href="part2.html">II PART2</a>
 <ul>
-<li><a href="./ch2.html">2 ch. 2</a></li>
+<li><a href="ch2.html">2 ch. 2</a></li>
 </ul>
 </li>
-<li><a href="./app1.html">APP1</a></li>
-<li><a href="./app2.html">APP2</a></li>
-<li><a href="./post1.html">POST1</a></li>
-<li><a href="./post2.html">POST2</a></li>
+<li><a href="app1.html">APP1</a></li>
+<li><a href="app2.html">APP2</a></li>
+<li><a href="post1.html">POST1</a></li>
+<li><a href="post2.html">POST2</a></li>
 </ul>
 EOB
       assert_equal expect, str

data/vendor/plistings/.gitignore

@@ -0,0 +1,9 @@
+*.dvi
+*.aux
+*.tmp
+*.out
+*.pdf
+*.log
+*~
+*.synctex*
+

data/vendor/plistings/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2015--2017 Hironori Kitagawa
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

data/vendor/plistings/README.md

@@ -0,0 +1,18 @@
+#`plistings` パッケージ
+
+`plistings` パッケージは，`listings` パッケージを pLaTeX 上で用いる際の日本語対応処理を
+強化するためのパッケージである．
+[LuaTeX-ja](https://osdn.jp/projects/luatex-ja/wiki/FrontPage) 中の `lltjp-listings.sty` を
+ベースとしている．
+
+ライセンスは今まで明記していなかったが，MIT License とした (2010-10-11)．
+
+## 注意点（と，現在の制約）
+
+* 実行には e-TeX 拡張が必要である（`\scantokens`, `\detokenize` 利用のため）．
+  最近の TeX Live, W32TeX では `platex` と打つと標準で e-TeX 拡張が有効になっている．
+* 内部で文字コード 0 の文字 (`^^@`, NUL) を日本語処理命令として用いている．
+  そのため，NUL を含んだソースリストを出力することは出来なくなる．
+* 「LaTeX へのエスケープ」内では，和文文字を含んだ制御綴が試験的にできるようになったが，
+   エスケープ内に書かれた NUL は自動的に取り除かれる．
+

data/vendor/plistings/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