texlive[42446] Master/texmf-dist: bxjalipsum (6nov16)

Sun Nov 6 23:18:06 CET 2016

Revision: 42446
          http://tug.org/svn/texlive?view=revision&revision=42446
Author:   karl
Date:     2016-11-06 23:18:06 +0100 (Sun, 06 Nov 2016)
Log Message:
-----------
bxjalipsum (6nov16)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/latex/bxjalipsum/LICENSE
    trunk/Master/texmf-dist/doc/latex/bxjalipsum/README.md
    trunk/Master/texmf-dist/tex/latex/bxjalipsum/bxjalipsum.sty

Modified: trunk/Master/texmf-dist/doc/latex/bxjalipsum/LICENSE
===================================================================

--- trunk/Master/texmf-dist/doc/latex/bxjalipsum/LICENSE	2016-11-06 22:17:55 UTC (rev 42445)
+++ trunk/Master/texmf-dist/doc/latex/bxjalipsum/LICENSE	2016-11-06 22:18:06 UTC (rev 42446)
@@ -1,9 +1,3 @@
-$BK\%=%U%H%&%'%"$O(B MIT $B%i%$%;%s%9$N2<$GG[I[$5$l$^$9!#(B
-$BCx:n8"$O:n<T$G$"$k!VH,EP(B $B?rG7!JJLL>(B ZR$B!K!W$KB0$7$^$9!#(B
-$B$^$?K\%=%U%H%&%'%"$OL5J]>Z$G$9!#(B
-
-This software is distributed under the MIT License.
-
 The MIT License
 
 Copyright (c) 2016 Takayuki YATO (aka. "ZR")

Modified: trunk/Master/texmf-dist/doc/latex/bxjalipsum/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/latex/bxjalipsum/README.md	2016-11-06 22:17:55 UTC (rev 42445)
+++ trunk/Master/texmf-dist/doc/latex/bxjalipsum/README.md	2016-11-06 22:18:06 UTC (rev 42446)
@@ -12,7 +12,7 @@
 ### System requirement
 
   * TeX format: LaTeX.
-  * TeX engine: pTeX / upTeX / XeTeX / LuaTeX.
+  * TeX engine: pdfTeX / pTeX / upTeX / XeTeX / LuaTeX.
   * Dependent packages:
       - intcalc (when using non-e-TeX engines)
 
@@ -56,6 +56,13 @@
   * `\jalipsumjugemu`: The shorthand for `\jalipsum{jugemu}`.
   * `\jalipsumjugemuP`: The shorthand for `\jalipsum{jugemuP}`.
 
+### Notices on use with pdfTeX
+
+  * In using with pdfTeX, Japanese (non-ASCII) characters are represented
+    as UTF-8 byte sequences. Thus there must be some mechanism (such as
+    the CJKutf8 package) that will decode such sequences and display the
+    Japanese characters properly.
+
 ### Notices for the TeX-programmers
 
   * All the commands are fully expandable.
@@ -70,6 +77,8 @@
 Revision History
 ----------------
 
+  * Version 0.3  〈2016/11/06〉
+      - Added the support for pdfTeX.
   * Version 0.2  〈2016/08/15〉
       - The first public version.
 

Modified: trunk/Master/texmf-dist/tex/latex/bxjalipsum/bxjalipsum.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/bxjalipsum/bxjalipsum.sty	2016-11-06 22:17:55 UTC (rev 42445)
+++ trunk/Master/texmf-dist/tex/latex/bxjalipsum/bxjalipsum.sty	2016-11-06 22:18:06 UTC (rev 42446)
@@ -1,8 +1,16 @@
-% bxjalipsum.sty
+%%
+%% This is file 'bxjalipsum.sty'.
+%% 
+%% Copyright (c) 2016 Takayuki YATO (aka. "ZR")
+%%   GitHub:   https://github.com/zr-tex8r
+%%   Twitter:  @zr_tex8r
+%%
+%% This package is distributed under the MIT License.
+%%
 
 %% package declaration
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{bxjalipsum}[2016/08/15 v0.2]
+\ProvidesPackage{bxjalipsum}[2016/11/06 v0.3]
 \def\bxjl at pkgname{bxjalipsum}
 
 %% preparation
@@ -11,6 +19,34 @@
 \newif\ifbxjl at CJKtilde
 \providecommand\bxDebug[1]{}
 
+%% code guards
+\edef\bxjl at restore@codes{%
+  \catcode33=\the\catcode33%
+  \catcode34=\the\catcode34%
+  \catcode43=\the\catcode43%
+  \catcode45=\the\catcode45%
+  \catcode46=\the\catcode46%
+  \catcode47=\the\catcode47%
+  \catcode58=\the\catcode58%
+  \catcode60=\the\catcode60%
+  \catcode62=\the\catcode62%
+  \catcode96=\the\catcode96%
+  \catcode126=\the\catcode126%
+\relax}
+\catcode33=12 % <!>
+\catcode34=12 % <">
+\catcode43=12 % <+>
+\catcode45=12 % <->
+\catcode46=12 % <.>
+\catcode47=12 % </>
+\catcode58=12 % <:>
+\catcode60=12 % <<>
+\catcode62=12 % <>>
+\catcode96=12 % <`>
+\catcode126=13 % <~>
+\AtEndOfPackage{%
+  \bxjl at restore@codes \let\bxjl at restore@codes\relax}
+
 %--------------------------------------- package options
 
 % 'noCJKtilde'/'CJKtilde'
@@ -87,11 +123,6 @@
 \ifx b\bxjl at engine\else
   \bxjl at CJKtildefalse
 \fi
-\ifx b\bxjl at engine
-  \PackageError\bxjl at pkgname
-   {The pdfTeX engine is not (yet) supported}%
-   {Package loading is aborted.\MessageBreak\@ehc}
-\expandafter\endinput\fi\relax
 
 %--------------------------------------- error message
 \ifbxjl at etex        %---<*eTeX>
@@ -360,11 +391,11 @@
 %--------------------------------------- paipo decoder
 
 %% variables
-\let\bxjl at g@chr\relax
+\let\bxjl at chr\relax
 \let\bxjl@@cr\relax
 \let\bxjl@@iai\relax
 \let\bxjl at tbuf\relax
-\let\bxjl at edef@res\relax
+\let\bxjl at let@res\relax
 
 %% \bxjl at pdecode\CS{<p-code>}
 \chardef\bxjl at cst@x=10
@@ -372,10 +403,12 @@
 \chardef\bxjl at cst@cxxviii=128
 \chardef\bxjl at cst@clx=160
 \bxjl at preamble\def\bxjl at pdecode#1#2{%
-  \def\bxjl at edef@res{\edef#1}%
-  \let\bxjl@@iai\relax\let\bxjl@@cr\relax
-  \let\bxjl at tbuf\@empty\edef\bxjl at next{#2}%
-  \expandafter\bxjl at pdecode@a\bxjl at next00%
+  \def\bxjl at let@res{\let#1}%
+  \begingroup
+    \bxjl at set@activechar
+    \let\bxjl@@iai\relax\let\bxjl@@cr\relax
+    \let\bxjl at tbuf\@empty\edef\bxjl at next{#2}%
+    \expandafter\bxjl at pdecode@a\bxjl at next00%
 }
 \bxjl at preamble\def\bxjl at pdecode@a#1#2{%
   \bxjl at cc"#1#2\relax
@@ -413,13 +446,15 @@
   \expandafter\bxjl at pdecode@jacod\bxjl at next
 }
 \bxjl at preamble\def\bxjl at pdecode@e{%
-  \def\bxjl@@cr{\noexpand\\}%
-  \def\bxjl@@iai{\noexpand~}%
-  \ifbxjl at CJKtilde\else
-    \let\bxjl@@iai\@empty
-  \fi
-  \bxjl at edef@res{\bxjl at tbuf}%
-  \let\bxjl at tbuf\@empty
+    \def\bxjl@@cr{\noexpand\\}%
+    \def\bxjl@@iai{\noexpand~}%
+    \ifbxjl at CJKtilde\else
+      \let\bxjl@@iai\@empty
+    \fi
+    \xdef\bxjl at g@tmpa{\bxjl at tbuf}%
+  \endgroup
+  \bxjl at let@res\bxjl at g@tmpa
+  \let\bxjl at g@tmpa\@empty
 }
 %
 \bxjl at preamble\def\bxjl at pdecode@add#1{%
@@ -431,11 +466,11 @@
   \else
     \bxjl at get@alchr\bxjl at cc 0%
   \fi
-  \bxjl at pdecode@add\bxjl at g@chr
+  \bxjl at pdecode@add\bxjl at chr
 }
 \bxjl at preamble\def\bxjl at pdecode@jachr{%
   \bxjl at get@jachr\bxjl at cc
-  \bxjl at pdecode@add\bxjl at g@chr
+  \bxjl at pdecode@add\bxjl at chr
 }
 %
 \ifx l\bxjl at engine
@@ -457,24 +492,64 @@
     \bxjl at pdecode@nxt
   }
 \else
+  \chardef\bxjl at UERDX="40
+  \chardef\bxjl at UELDC="E0
+  \chardef\bxjl at UELDB="C0
+  \chardef\bxjl at UELDA="80
+  \mathchardef\bxjl at UEMDB="7FF
+  \bxjl at preamble\def\bxjl at pdecode@jacod#1#2#3#4#5#6#7#8{%
+    \bxjl at cc="#5#6#7#8\relax
+    \bxjl at get@utfchr
+    \bxjl at pdecode@add\bxjl at chr
+    \bxjl at pdecode@nxt
+  }
+  \bxjl at preamble\def\bxjl at get@utfchr{%
+    \let\bxjl at chr\@empty
+    \ifnum\bxjl at cc>\bxjl at UEMDB % 3-byte
+      \bxjl at get@utfchr at a
+      \bxjl at get@utfchr at a
+      \advance\bxjl at cc\bxjl at UELDC
+      \uccode`\~\bxjl at cc \uppercase{\edef\bxjl at chr{~\bxjl at chr}}%
+    \else % 2-byte
+      \bxjl at get@utfchr at a
+      \advance\bxjl at cc\bxjl at UELDB
+      \uccode`\~\bxjl at cc \uppercase{\edef\bxjl at chr{~\bxjl at chr}}%
+    \fi
+  }
+  \bxjl at preamble\def\bxjl at get@utfchr at a{%
+    \@tempcnta\bxjl at cc
+    \divide\bxjl at cc\bxjl at UERDX
+    \@tempcntb-\bxjl at cc \multiply\@tempcntb\bxjl at UERDX
+    \advance\@tempcnta\@tempcntb \advance\@tempcnta\bxjl at UELDA
+    \uccode`\~\@tempcnta \uppercase{\edef\bxjl at chr{~\bxjl at chr}}%
+  }
 \fi\fi\fi
 
 %% \bxjl at get@alchr
 \bxjl at preamble\def\bxjl at get@alchr#1#2{%
-  \begingroup
-    \uccode`#2=#1\relax
-    \uppercase{\gdef\bxjl at g@chr{#2}}%
-  \endgroup
+  \uccode`#2=#1\relax
+  \uppercase{\def\bxjl at chr{#2}}%
 }
 
 %% \bxjl at get@jachr
 \bxjl at preamble\def\bxjl at get@jachr#1{%
-  \begingroup
-    \kansujichar\@ne=#1\relax
-    \xdef\bxjl at g@chr{\kansuji\@ne}%
-  \endgroup
+  \kansujichar\@ne=#1\relax
+  \edef\bxjl at chr{\kansuji\@ne}%
 }
 
+%% \bxjl at set@activechar
+\ifx b\bxjl at engine
+  \bxjl at preamble\def\bxjl at set@activechar{%
+    \@tempcnta\bxjl at cst@cxxviii
+    \@whilenum{\@tempcnta<\@cclvi}\do{%
+      \catcode\@tempcnta\active
+      \uccode`\~\@tempcnta \uppercase{\let~\relax}% freeze
+      \advance\@tempcnta\@ne}%
+  }
+\else
+  \bxjl at preamble\def\bxjl at set@activechar{}
+\fi
+
 %% \bxjl at pc/<num>
 \def\do#1#2{\@namedef{bxjl at pc/\number"#1}{#2}}
 \do{A1}{81423002}
@@ -560,6 +635,7 @@
   \bxjl at pdecode#2{#3}%
 }
 
+
 %===============================
 %% text 'iroha'
 % The 'Iroha' poem

