bxjaprnind (10jun17)

git-svn-id: svn://tug.org/texlive/trunk@44554 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 359 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/bxjaprnind/bxjaprnind.sty b/Master/texmf-dist/tex/latex/bxjaprnind/bxjaprnind.sty
new file mode 100644
index 00000000000..ac2b9028950
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/bxjaprnind/bxjaprnind.sty
@@ -0,0 +1,359 @@
+%
+% bxjaprnind.sty
+%
+
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{bxjaprnind}[2013/05/05 v0.3a]
+
+\def\bxpi@pkgname{bxjaprnind}
+\def\bxpi@error{\PackageError\bxpi@pkgname}
+
+%% definitions
+\newdimen\bxpi@dima
+
+%% code guards
+\edef\bxpi@restore@codes{%
+\catcode33=\the\catcode33%<!>
+\catcode34=\the\catcode34%<">
+\catcode62=\the\catcode62%<>>
+\endlinechar=\the\endlinechar%
+\relax}%
+\catcode33=12 %
+\catcode34=12 %
+\catcode62=12 %
+\AtEndOfPackage{%
+\bxpi@restore@codes
+\undef\bxpi@restore@codes}
+
+%------------------- setting the everypar hook
+
+\RequirePackage{bxtoolbox}
+
+%% Checks if everyhook package is available
+\@tempswafalse
+\ifbxineTeX
+  \IfFileExists{everyhook.sty}{%
+    \@tempswatrue
+  }{}
+\fi
+
+\if@tempswa
+  % if everyhook is available...
+  \RequirePackage{everyhook}[2011/02/04]
+
+  % register the hook
+  \PushPostHook{par}{\bxpi@par@hook}
+
+\else
+  % otherwise...
+  % makes a hook to \everypar for myself
+  \let\bxpi@everypar\everypar
+  \newtoks\everypar
+  \everypar\bxpi@everypar
+  \bxpi@everypar{\the\expandafter\everypar\bxpi@par@hook}%
+
+\fi
+\endlinechar=-1 %
+%------------------- setting the newline hook
+
+%% adds hooks to (subcommands of) \\
+\preto\@xnewline{\bxpi@init@param}
+\let\bxpi@org@@newline\@newline
+\def\@newline[#1]{
+  \bxpi@parse@arg{#1}
+  \expandafter\bxpi@org@@newline\expandafter[\bxpi@res]
+}
+\begingroup
+  \toks@\expandafter{\@gnewline{#1}}
+  \edef\bxpi@next{
+    \gdef\noexpand\@gnewline##1{
+      \the\toks@
+      \noexpand\bxpi@paren@indent
+    }
+  }
+  \bxpi@next
+\endgroup
+
+%------------------- helpers
+
+%% \bxpi@inhibitglue
+\ifdef\inhibitglue{
+  \let\bxpi@inhibitglue\inhibitglue
+}{%else
+  \let\bxpi@inhibitglue\relax
+  \bxpi@warn{
+    \string\inhibitglue\space unavailable in current settings;
+    \MessageBreak the package may not work properly
+  }
+}
+
+%------------------- main
+
+%% \def\bxpi@parhead
+\def\bxpi@parhead{0}
+%% \def\bxpi@linehead
+\def\bxpi@linehead{0}
+%% \def\bxpi@dialogue
+\def\bxpi@dialogue{0.5}
+%% \def\bxpi@lineheadforce
+\def\bxpi@lineheadforce{1}
+%% \ifbxpi@d@parprnind
+\newbool{bxpi@d@parprnind}\bxpi@d@parprnindtrue
+%% \ifbxpi@d@lineprnind
+\newbool{bxpi@d@lineprnind}\bxpi@d@lineprnindtrue
+%% \ifbxpi@diaprnind
+\newbool{bxpi@diaprnind}\bxpi@diaprnindfalse
+%% \ifbxpi@prnind
+\newbool{bxpi@prnind}
+%% \ifbxpi@forceind
+\newbool{bxpi@forceind}
+%% \bxpi@choice
+\let\bxpi@choice\relax
+
+%%<*> \useparheadparenindent
+\bxNewrobustcmd*{\useparheadparenindent}{
+  \bxpi@d@parprnindtrue
+}
+
+%%<*> \nouseparheadparenindent
+\bxNewrobustcmd*{\nouseparheadparenindent}{
+  \bxpi@d@parprnindfalse
+}
+
+%%<*> \uselineheadparenindent
+\bxNewrobustcmd*{\uselineheadparenindent}{
+  \bxpi@d@lineprnindtrue
+}
+
+%%<*> \nouselineheadparenindent
+\bxNewrobustcmd*{\nouselineheadparenindent}{
+  \bxpi@d@lineprnindfalse
+}
+
+%%<*> \usedialogueparenindent
+\bxNewrobustcmd*{\usedialogueparenindent}{
+  \bxpi@diaprnindtrue
+}
+
+%%<*> \nousedialogueparenindent
+\bxNewrobustcmd*{\nousedialogueparenindent}{
+  \bxpi@diaprnindfalse
+}
+
+%%<*> \parheadparenindentamount
+% Sets the value of \bxpi@parhead.
+\bxNewrobustcmd*{\parheadparenindentamount}[1]{
+  \edef\bxpi@parhead{#1}
+}
+
+%<*> \lineheadparenindentamount
+% Sets the value of \bxpi@linehead.
+\bxNewrobustcmd*{\lineheadparenindentamount}[1]{
+  \edef\bxpi@linehead{#1}
+}
+
+%<*> \lineheadforceindentamount
+% Sets the value of \bxpi@lineheadforce.
+\bxNewrobustcmd*{\lineheadforceindentamount}[1]{
+  \edef\bxpi@lineheadforce{#1}
+}
+
+%%<*> \prnind
+%
+\bxNewrobustcmd*{\prnind}{
+  \leavevmode\relax
+  \bxpi@prnindtrue
+  \bxpi@forceindfalse
+  \let\bxpi@choice=m
+  \kernel@ifnextchar[{
+    \bxpi@prnind@a
+  }{%else
+    \let\bxpi@value\bxpi@parhead
+    \bxpi@paren@indent
+  }
+}
+\def\bxpi@prnind@a[#1]{
+  \def\bxpi@value{#1}
+  \bxpi@paren@indent
+}
+
+%% \bxpi@init@param
+% Initializes the parameters.
+% (Invoked at every \\.)
+\def\bxpi@init@param{
+  \bxpi@prnind@linedflt
+  \bxpi@forceindfalse
+  \let\bxpi@choice=l
+  \let\bxpi@value\bxpi@linehead
+}
+
+%% \bxpi@parse@arg{<str>}
+% Parses the option argument of \\. It reads the prefix > and !
+% and sets the switches bxpi@forceind and bxpi@prnind, then
+% sets the remaining string to \bxpi@res, which is passed to
+% the original argument parser (\@newline).
+\def\bxpi@parse@arg#1{%
+  \bxpi@parse@arg@a#1\bxpi@end
+}
+\def\bxpi@parse@arg@a{
+  \futurelet\bxpi@tok\bxpi@parse@arg@b
+}
+\def\bxpi@parse@arg@b{
+  \bxIfx{\bxpi@tok\bgroup}{
+    \bxpi@parse@arg@c
+  }{%else
+    \bxpi@parse@arg@d
+  }
+}
+\def\bxpi@parse@arg@c#1\bxpi@end{
+  \ifstrempty{#1}{
+    \def\bxpi@res{\z@}
+  }{%else
+    \def\bxpi@res{#1}
+  }
+}
+\def\bxpi@parse@arg@d#1{%
+  \bxIfx{,#1}{
+    \bxpi@parse@arg@a
+  }{\bxIfx{!#1}{
+    \ifbxpi@prnind \bxpi@prnindfalse
+    \else \bxpi@prnindtrue
+    \fi
+    \bxpi@parse@arg@a
+  }{\bxIfx{>#1}{
+    \bxpi@forceindtrue
+    \bxpi@parse@arg@a
+  }{
+    \bxpi@parse@arg@c#1
+  }}}
+}
+
+%% \bxpi@par@hook
+\def\bxpi@par@hook{
+  \bxpi@prnind@pardflt
+  \bxpi@forceindfalse
+  \let\bxpi@choice=p
+  \let\bxpi@value\bxpi@parhead
+  \bxpi@paren@indent
+}
+
+%% \bxpi@paren@indent
+\def\bxpi@paren@indent{
+  \bxpi@dima=-\maxdimen
+  \ifbxpi@forceind
+    \bxGetZenkakuWidth
+    \bxpi@dima=\bxResDim
+    % empty boxes never warn undefhull
+    \hb@xt@\bxpi@lineheadforce\bxpi@dima{}
+\bxDebug{forceind:\bxpi@lineheadforce}
+  \fi
+  \ifbool{bxpi@prnind}{
+    \futurelet\bxpi@tok\bxpi@prnindent@a
+  }{%else
+    \ignorespaces
+  }
+}
+\expandafter\def\expandafter\bxpi@prnindent@space\space{
+  \futurelet\bxpi@tok\bxpi@prnindent@a
+}
+\def\bxpi@prnindent@a{
+  \bxIf{\@sptoken\bxpi@tok}{
+    \bxpi@prnindent@space
+  }{\bxIfCharToken\bxpi@tok{
+    \bxpi@prnindent@b
+  }{%else
+    \ignorespaces
+  }}
+}
+\def\bxpi@prnindent@b#1{
+  \bxpi@if@open@paren#1{
+    \ifbxpi@diaprnind
+      \if m\bxpi@choice \else
+        \bxpi@if@dia@open@paren#1{
+          \let\bxpi@value\bxpi@dialogue
+          \if p\bxpi@choice
+            {\setbox0=\lastbox}
+\bxDebug{cancel parindent}
+          \fi
+        }
+      \fi
+    \fi
+    \bxpi@prnindent@c
+  }
+  #1
+}
+\def\bxpi@prnindent@c{
+  \ifdim \bxpi@dima<\z@
+    \bxGetZenkakuWidth
+    \bxpi@dima=\bxResDim
+  \fi
+  \kern\bxpi@value\bxpi@dima
+\bxDebug{parind:\bxpi@value}
+  \bxpi@inhibitglue
+}
+
+%% \bxpi@if@open@paren
+\def\bxpi@if@open@paren#1{
+  \bxIfcsundef{bxpi@P/#1}
+   {\@gobble}
+   {\@firstofone}
+}
+
+%% \bxpi@if@dia@open@paren
+\def\bxpi@if@dia@open@paren#1{
+  \bxIfcsundef{bxpi@DP/#1}
+   {\@gobble}
+   {\@firstofone}
+}
+
+%% \bxpi@prnind@pardflt
+\edef\bxpi@prnind@pardflt{
+  \let\bxCsNoexpand{ifbxpi@prnind}
+   \bxCsNoexpand{ifbxpi@d@parprnind}
+}
+%% \bxpi@prnind@linedflt
+\edef\bxpi@prnind@linedflt{
+  \let\bxCsNoexpand{ifbxpi@prnind}
+   \bxCsNoexpand{ifbxpi@d@lineprnind}
+}
+
+%------------------- character table
+
+%% \bxpi@P/<char>
+\def\do#1#2{%
+  \bxToUcsCharDual{"#1}{"#2}
+  \cslet{bxpi@P/\bxRes}{t}
+}
+\do{2146}{2018}
+\do{2148}{201C}
+\do{214A}{FF08}
+\do{214C}{3014}
+\do{214E}{FF3B}
+\do{2150}{FF5B}
+\do{2152}{3008}
+\do{2154}{300A}
+\do{2156}{300C}
+\do{2158}{300E}
+\do{215A}{3010}
+\ifbxHasUcsChar
+  \def\do#1{
+    \bxToUcsChar{"#1}
+    \cslet{bxpi@P/\bxRes}{t}
+  }
+\do{2985}
+\do{3018}
+\do{3016}
+\do{00AB}
+\do{301D}
+\fi
+
+%% \bxpi@DP/<char>
+\def\do#1#2{%
+  \bxToUcsCharDual{"#1}{"#2}
+  \cslet{bxpi@DP/\bxRes}{t}
+}
+\do{2156}{300C}
+\do{2158}{300E}
+
+%------------------- all done
+\endinput