From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Sat, 12 Dec 2015 04:19:38 +0000 (+0900)
Subject: Updated lltjp-listings.sty and other fix
X-Git-Tag: 20151212.0~2^2
X-Git-Url: http://git.osdn.net/view?p=luatex-ja%2Fluatexja.git;a=commitdiff_plain;h=a6d006f2f64e4a82ed4370aefa1cc017b2e95504

Updated lltjp-listings.sty and other fix
---

diff --git a/src/ltj-jfont.lua b/src/ltj-jfont.lua
index 3c028af..cfd544c 100644
--- a/src/ltj-jfont.lua
+++ b/src/ltj-jfont.lua
@@ -385,6 +385,7 @@ do
    function luatexja.font_callback(name, size, id)
       local new_name = is_def_jfont and extract_metric(name) or name
       is_def_jfont = false
+      --local res =  otfl_fdr(new_name, size, id)
       local res =  ltjr_font_callback(new_name, size, id, otfl_fdr)
       luatexbase.call_callback('luatexja.define_font', res, new_name, size, id)
       -- this callback processes variation selector, so we execute it always
diff --git a/src/luatexja-core.sty b/src/luatexja-core.sty
index e042890..bf39e78 100644
--- a/src/luatexja-core.sty
+++ b/src/luatexja-core.sty
@@ -65,7 +65,7 @@
   \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
     \csname iftrue\endcsname
   \NeedsTeXFormat{LaTeX2e}
-  \ProvidesPackage{luatexja-core}[2015/11/03 Core of LuaTeX-ja]
+  \ProvidesPackage{luatexja-core}[2015/12/11 Core of LuaTeX-ja]
 \fi                             %</LaTeX>
 
 %% Load prerequisite packages.
diff --git a/src/patches/lltjp-listings.sty b/src/patches/lltjp-listings.sty
index 1234e3f..40c71c8 100644
--- a/src/patches/lltjp-listings.sty
+++ b/src/patches/lltjp-listings.sty
@@ -3,7 +3,7 @@
 %
 
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{lltjp-listings}[2015/11/05 Patch to listings for LuaTeX-ja]
+\ProvidesPackage{lltjp-listings}[2015/12/11 Patch to listings for LuaTeX-ja]
 \RequirePackage{listings,luatexbase-cctb}
 
 %%%%%%%%%%%%%%%% Japanese support
@@ -35,8 +35,8 @@
   local cat_lp  = luatexbase.catcodetables['latex-package']
   local ubyte = unicode.utf8.byte
   local spccmd = string.char(0x5C) .. 'ltj@lst@hss@normal'
-  luatexja.lst = {}
-  function luatexja.lst.althss(t)
+  luatexja.listings = {}
+  function luatexja.listings.althss(t)
     t = ubyte(t)
     if not (t>=0xE0100 and t<0xE01F0) then
       tex.sprint(cat_lp, spccmd)
@@ -44,7 +44,7 @@
   end
 }
 \def\ltj@lst@hss@ivs#1{%
-  \directlua{luatexja.lst.althss('\luatexluaescapestring{#1}')}#1%
+  \directlua{luatexja.listings.althss('\luatexluaescapestring{#1}')}#1%
 }
 \def\ltj@lst@hss@double{\lst@hss\lst@hss}
 
@@ -188,21 +188,15 @@
       \@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}%
+  \lst@Init\relax\edef\ltj@lst@temp{\the\catcode`\}}\catcode`\}=2 \catcode`\ =12\relax
   \let\lst@arg\@empty\afterassignment\ltj@lst@InlineG@@\@temptokena}
 \def\ltj@lst@InlineG@@{%
-  \catcode`\}=\ltj@lst@temp
+  \catcode`\}=\ltj@lst@temp%
   \expandafter\expandafter\expandafter\lst@InsideConvert%
   \expandafter{\the\@temptokena}\lst@arg\lst@DeInit\egroup}
 
-
 % We redefine \lst@BeginDropInput, since now we have
 % two additional `process macros'.
 \def\lst@BeginDropInput#1{%
@@ -220,26 +214,38 @@
      \let\ltj@lst@ProcessJALetterHalf\@gobble % added
 }}
 
+\directlua{
+  luatexja.listings.insert_cb = function()
+    if not luatexja.listings.patched then
+      luatexja.listings.patched = 1
+      luatexbase.add_to_callback('process_input_buffer',
+         function(buf)
+           local ret = ''
+           for i = 1, utf.len(buf) do
+              local c = utf.sub(buf, i, i)
+              local cu = utf.byte(c)
+              if cu >= 0x80 and tex.getcatcode(cu) \string~= 13 then
+                ret = ret .. utf.char(1048575) % U+FFFFF
+              end
+              ret = ret .. c
+            end
+            return ret
+          end, 'ltj.listings_unicode', 1)
+    end
+  end
+  luatexja.listings.remove_cb = function()
+    if luatexja.listings.patched then
+      luatexja.listings.patched = nil
+      luatexbase.remove_from_callback('process_input_buffer', 
+        'ltj.listings_unicode')%
+    end
+  end}
 
 % hook!
 \lst@AddToHook{Init}{%
   \luatexcatcodetable\CatcodeTableLTJlistings\ltj@@listing@jpcmd
   \lccode`\~="FFFFF\lowercase{\def~{\ltj@lst@ProcessJALetter}}%"
-  \directlua{%
-    luatexja.patch_listings = 1
-    luatexbase.add_to_callback('process_input_buffer',
-      function(buf)
-        local ret = ''
-        for i = 1, utf.len(buf) do
-          local c = utf.sub(buf, i, i)
-          local cu = utf.byte(c)
-          if cu >= 0x80 and tex.getcatcode(cu) \string~= 13 then
-            ret = ret .. utf.char(1048575) % U+FFFFF
-          end
-          ret = ret .. c
-        end
-        return ret
-      end, 'ltj.listings_unicode', 1)}%
+  \directlua{luatexja.listings.insert_cb()}%
   \if@ltj@lst@double
     \let\ltj@lst@hss@normal=\ltj@lst@hss@double
   \else
@@ -284,13 +290,8 @@
 }\endgroup
 
 \lst@AddToHook{ExitVars}{%
-  \directlua{%
-    if luatexja.patch_listings then
-      luatexja.patch_listings=nil
-      luatexbase.remove_from_callback('process_input_buffer', 
-        'ltj.listings_unicode')%
-    end}}
-
+  \directlua{luatexja.listings.remove_cb()}%
+}
 
 % 白線対策
 \newif\ifltj@lst@frame@top
@@ -343,7 +344,7 @@
 
 %%%%%%%%%%%%%%%% escape to \LaTeX
 \lstloadaspects{escape}
-\gdef\lst@Escape#1#2#3#4{%
+\gdef\lst@Escape#1#2#3#4{
     \lst@CArgX #1\relax\lst@CDefX
         {}%
         {\lst@ifdropinput\else
@@ -361,10 +362,29 @@
                  {\lst@escapeend #4\lst@LeaveAllModes\lst@ReenterModes
                   \lst@newlines\z@ \lst@whitespacefalse}%
                  {}%
-         \fi
-         #3\catcode"FFFFF=9\lst@escapebegin%"
+         \fi%
+         \ltj@lst@escape@setup#2%
+         #3\catcode"FFFFF=9\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
+  \lccode`\|="FFFFF \lowercase{%"
+  \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
 
 %%%%%%%%%%%%%%%%
 \lstloadaspects{writefile}
diff --git a/test/test51-vtest.pdf b/test/test51-vtest.pdf
index ccbf190..9165281 100644
Binary files a/test/test51-vtest.pdf and b/test/test51-vtest.pdf differ
diff --git a/test/test51-vtest.tex b/test/test51-vtest.tex
index e440988..7b658f3 100644
--- a/test/test51-vtest.tex
+++ b/test/test51-vtest.tex
@@ -211,6 +211,37 @@
 \vfill\eject
 
 \vbox{\tate\hsize100mm
+\tfont\f=KozMinPr6N-Regular.otf:-vert;jfm=ujisv \f
+
+\ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt\parindent\zw
+\LaTeX の特徴として、テキストファイルであるソースコードを入力として処理することでDVIや
+PDFなどの表示形式を出力として得ることが挙げられる。
+
+\LaTeX の最大の長所は、\TeX に由来する高品質で自由度の高い組版処理能力である。組版処理能力
+は一般向けの出版物の作成にも充分に耐えられるものであり、実際の出版例もある。
+中でも数式組版の品質が高い。さらに、数式専用の命令文（コマンド）が用意されているので、
+単純なソースコードで高品質な数式表示を得られる。そのため、数式を多く含む自然科学系や工学系
+の出版物などでは、\LaTeX 形式での投稿が標準的なフォーマットとされていることも多い。
+
+くわえて、ソースコードに詳細な設定を記述することで、文書のスタイル（表示形式、見栄え、たと
+えばレイアウトやフォントなど）を自在に調節できる。また、ソースコード上で文書内容・文書構造
+（章・節・段落や強調箇所など）と文書スタイルの設定との分離が可能である。そのため、同一文書
+内で終始一貫したスタイをル保つことができる。また、同じ文書内容でレイアウトやフォントだけを
+変えることができるなど、文書内容データの再利用性が高い。一度スタイル設定を決めてしまえば、
+あとは文書内容の記述に専念することができるという利点もある。論文などの投稿では、学術雑
+誌のスタイルを記述したファイル（パッケージファイル）を Web からダウンロードして利用するこ
+とで、統一されたスタイルで論文を投稿することができ、論文の投稿者と雑誌の編集者とのやり取り
+を簡略化できる。Kile、TeXShop、TeXworks、EasyTeX、WinShell などの \TeX 用エ
+ディタや、野鳥（やてふ、YaTeX）、TeXlipse、KaTeX（花鳥、かてふ）、祝鳥
+（のりてふ）、M's TeX Helper 2など の\TeX 用テキストエディタマクロを兼用することに
+よって、より効率的な文章作成が可能ともなる。またMapleやMathematicaなどでドキュメントを
+作成し、\TeX 形式で出力することも可能である。
+
+\null\hfill
+（Wikipediaの「\LaTeX」の記事より．8/13現在）
+}
+
+\vbox{\tate\hsize100mm
 \tfont\f=KozMinPr6N-Regular.otf:jfm=ujisv \f
 
 \ltjsetparameter{yalbaselineshift=.25em}\baselineskip15pt\parindent\zw
@@ -429,4 +460,11 @@ $$
 \leavevmode\hbox{A}%
 \setbox0\hbox{}%
 \setbox1=\lastbox\the\wd1
+
+\leavevmode
+\hbox{\tate\tentmin ―(U+2015)と—(U+2014)，「」あ}
+\hbox{\tate\tfont\g=IPAexMincho:-vert;jfm=ujisv\g%
+  ―(U+2015)と—(U+2014)，「」あ}
+
+
 \end