lualatex-math (19jun14)

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

2 files changed, 609 insertions, 5 deletions

diff --git a/Master/texmf-dist/source/lualatex/lualatex-math/lualatex-math.dtx b/Master/texmf-dist/source/lualatex/lualatex-math/lualatex-math.dtx
index ce72e35d7d2..261640bc78c 100644
--- a/Master/texmf-dist/source/lualatex/lualatex-math/lualatex-math.dtx
+++ b/Master/texmf-dist/source/lualatex/lualatex-math/lualatex-math.dtx
@@ -244,7 +244,7 @@
 %<@@=lltxmath>
 \NeedsTeXFormat{LaTeX2e}[2009/09/24]
 \RequirePackage{expl3}[2012/08/14]
-\ProvidesExplPackage{lualatex-math}{2013/08/03}{1.3}%
+\ProvidesExplPackage{lualatex-math}{2014/06/18}{1.3a}%
   {Patches for mathematics typesetting with LuaLaTeX}
 \RequirePackage { etoolbox } [ 2007/10/08 ]
 \RequirePackage { luatexbase } [ 2010/05/27 ]
@@ -441,10 +441,12 @@
 %   \cs{lua_now_x:n}}
 %   \changes{v1.1}{2012/10/13}{Update reasoning why \cs{Umathcharnumdef} is not
 %   used here}
+%   \changes{v1.3a}{2014/06/18}{\pkg{l3kernel} has (currently) dropped
+%     \cs{lua_now_x:n}}
 %    \begin{macrocode}
 \cs_new_protected_nopar:Npn \@@_set_mathchar:NN #1 #2 {
   \luatexUmathchardef #1
-  \lua_now_x:n {
+  \luatex_directlua:D {
     lualatex.math.print_class_fam_slot( \int_eval:n { `#2 } )
   }
   \scan_stop:
@@ -593,10 +595,12 @@
 %   style font.
 %   \changes{v0.3c}{2012/08/23}{\pkg{l3kernel} renamed \cs{lua_now:x} to
 %   \cs{lua_now_x:n}}
+%   \changes{v1.3a}{2014/06/18}{\pkg{l3kernel} has (currently) dropped
+%     \cs{lua_now_x:n}}
 %    \begin{macrocode}
 \cs_new_nopar:Npn \@@_char_dim:NN #1 #2 {
   #1 \textfont
-  \lua_now_x:n {
+  \luatex_directlua:D {
     lualatex.math.print_fam_slot( \int_eval:n { `#2 } )
   }
 }
@@ -1310,11 +1314,13 @@ end
 %   \changes{v0.3c}{2012/08/23}{\pkg{l3kernel} renamed \cs{lua_now:x} to
 %   \cs{lua_now_x:n}}
 %   \changes{v1.1}{2012/10/13}{Allow testing for nonzero kern nodes}
+%   \changes{v1.3a}{2014/06/18}{\pkg{l3kernel} has (currently) dropped
+%     \cs{lua_now_x:n}}
 %    \begin{macrocode}
 \NewDocumentCommand \AssertNoSpace { s m } {
   \hbox_set:Nn \l_@@_tmpa_box { #2 }
   \int_if_odd:nTF {
-    \lua_now_x:n {
+    \luatex_directlua:D {
       local~ b = tex.getbox(\int_use:N \l_@@_tmpa_box)
       if~ contains_space(b.head,
           \IfBooleanTF { #1 } { "nonzero" } { nil }) then~
@@ -1344,13 +1350,15 @@ end
 %   one glue or kern node of with \meta{muskip}.
 %   \changes{v0.3c}{2012/08/23}{\pkg{l3kernel} renamed \cs{lua_now:x} to
 %   \cs{lua_now_x:n}}
+%   \changes{v1.3a}{2014/06/18}{\pkg{l3kernel} has (currently) dropped
+%     \cs{lua_now_x:n}}
 %    \begin{macrocode}
 \makeatletter
 \NewDocumentCommand \AssertMuSpace { m m } {
   \hbox_set:Nn \l_@@_tmpa_box { #1 }
   \hbox_set:Nn \l_@@_tmpb_box { $ \mskip #2 \m@th $ }
   \int_if_odd:nTF {
-    \lua_now_x:n {
+    \luatex_directlua:D {
       local~ b = tex.getbox(\int_use:N \l_@@_tmpa_box)
       local~ s = tex.getbox(\int_use:N \l_@@_tmpb_box)
       if~ contains_space(b.head, s.width) then~
diff --git a/Master/texmf-dist/source/lualatex/lualatex-math/phst-doc.cls b/Master/texmf-dist/source/lualatex/lualatex-math/phst-doc.cls
new file mode 100644
index 00000000000..93b8e64a6e6
--- /dev/null
+++ b/Master/texmf-dist/source/lualatex/lualatex-math/phst-doc.cls
@@ -0,0 +1,596 @@
+\NeedsTeXFormat{LaTeX2e}
+\RequirePackage{etex}
+\RequirePackage{expl3}
+\ProvidesExplClass{phst-doc}{2013/08/04}{0.3}{Documentation class for Philipp Stephani's packages}
+\LoadClassWithOptions{ltxdoc}
+\RequirePackage{xparse}[2012/08/29]
+\RequirePackage{scrbase}
+\RequirePackage{etoolbox}
+\RequirePackage{amsmath}
+\RequirePackage{amsfonts}
+\RequirePackage{mathtools}
+
+\luatex_if_engine:TF {
+  \RequirePackage{fontspec}
+  \RequirePackage{lualatex-math}
+} {
+  \RequirePackage{lmodern}
+  \RequirePackage{textcomp}
+  \RequirePackage[T5, T1]{fontenc}
+  \RequirePackage[utf8]{inputenc}
+}
+
+\RequirePackage{xspace}
+\RequirePackage{comment}
+\RequirePackage{babel}
+\RequirePackage[includemp=true, hmargin=20mm, vmargin=35mm, marginparwidth=40mm]{geometry}
+\RequirePackage{xcolor}
+\RequirePackage{graphicx}
+\RequirePackage{booktabs}
+\RequirePackage{csquotes}
+\RequirePackage{hologo}[2011/11/22]
+\RequirePackage{microtype}[2011/02/07]
+
+% Add missing functions to l3kernel
+\cs_new_protected_nopar:Nn \phstdoc_tl_new:Nn {
+  \tl_new:N #1
+  \tl_set:Nn #1 { #2 }
+}
+
+% The following line is a hack that prevents loading the thumbpdf package
+\tl_new:N \THB@name
+
+\RequirePackage{hypdoc}
+
+% scratch variables
+\tl_new:N \l_phstdoc_tmpa_tl
+\tl_new:N \l_phstdoc_tmpb_tl
+
+% additional xspace exceptions
+\group_begin:
+\char_set_catcode_other:n { `\~ }
+\luatex_if_engine:TF {
+  \xspaceaddexceptions { ~ ’ }
+} {
+  \xspaceaddexceptions { ~ ^^e2 }  % 0xE2 is the first UTF-8 octet of the right quote ’
+}
+\group_end:
+
+% non-monospaced URLs
+\urlstyle { same }
+
+% abbreviations
+\tl_const:Nn \eg  { e.\,g.\@\xspace }
+\tl_const:Nn \ie  { i.\,e.\@\xspace }
+\tl_const:Nn \etc { etc.  \@\xspace }
+
+\cs_new_protected_nopar:Nn \phstdoc_print:n {
+  \protected@edef \l_phstdoc_tmpa_tl { #1 }
+  \tl_set_rescan:Nno \l_phstdoc_tmpb_tl {
+    \char_set_catcode_other:N \:
+    \char_set_catcode_other:N \_
+  } \l_phstdoc_tmpa_tl
+  \texttt { \l_phstdoc_tmpb_tl }
+}
+
+\NewDocumentCommand \mail {m} { \href{mailto:#1}{\nolinkurl{#1}} }
+\RenewDocumentCommand \cmd {m} { \cs { \cs_to_str:N #1 } }
+\RenewDocumentCommand \cs {m} {
+  \texttt { \char`\\ \phstdoc_print:n { #1 } }
+}
+\NewDocumentCommand \env {m} { \phstdoc_print:n{#1} }
+\definecolor { term } { rgb } { 0.22, 0.58, 0.09 }
+\NewDocumentCommand \term {m} { \textcolor{term}{\meta{#1}} }
+
+\pdfstringdefDisableCommands {
+  \cs_set_nopar:Npn \mail #1 { \tl_to_str:n { #1 } }
+}
+
+\luatex_if_engine:T {
+  \NewDocumentCommand \textlangle { } { 〈 }
+  \NewDocumentCommand \textrangle { } { 〉 }
+}
+
+% allow hyphenation in metavariables
+\RenewDocumentCommand \meta { m } {
+  \mode_if_math:TF { \nfss@text } { \use:n } {
+    \nobreak \skip_horizontal:N \c_zero_skip
+    \textlangle
+    \group_begin:
+    \meta@font@select
+    #1
+    \/
+    \group_end:
+    \textrangle
+  }
+}
+
+% allow line breaks before and after argument names
+\cs_new_protected_nopar:Nn \phstdoc_renew_arg_cmd:Nnn {
+  \RenewDocumentCommand #1 { m } {
+    \allowbreak
+    \texttt { #2 }
+    \meta { ##1 }
+    \texttt { #3 }
+    \allowbreak
+  }
+}
+\phstdoc_renew_arg_cmd:Nnn \marg {\{} {\}}
+\phstdoc_renew_arg_cmd:Nnn \oarg {[} {]}
+\phstdoc_renew_arg_cmd:Nnn \parg {(} {)}
+
+% indexing
+\phstdoc_tl_new:Nn \idxformat { \hdpindex{usage} }
+\NewDocumentCommand \docindex { o m } {
+  \@bsphack
+  \IfValueTF { #1 } {
+    \index{#1 \actualchar #2 \encapchar idxformat}
+  } {
+    \index{#2 \encapchar idxformat}
+  }
+  \@esphack
+}
+\cs_new_protected_nopar:Nn \phstdoc_object_index:nnnN {
+  \@bsphack
+  \index {
+    #3
+    \actualchar \string #4 { #3 } ~ (#1)
+    \encapchar idxformat
+  }
+  \index {
+    #2 :
+    \levelchar #3
+    \actualchar \string #4 { #3 }
+    \encapchar idxformat
+  }
+  \@esphack
+}
+\pdfstringdefDisableCommands {
+  \cs_set_eq:NN \phstdoc_object_index:nnnN \use_none:nnnn
+}
+
+% one-column index
+\RenewDocumentEnvironment { theindex } { } {
+  \index@prologue
+  \par
+  \addvspace \multicolsep
+  \IndexParms
+  \cs_set_eq:NN \item \@idxitem
+  \ignorespaces
+} { }
+
+% one-column change list
+\RenewDocumentEnvironment { theglossary } { } {
+  \glossary@prologue
+  \par
+  \addvspace \multicolsep
+  \GlossaryParms
+  \cs_set_eq:NN \item \@idxitem
+  \ignorespaces
+} { }
+
+% units
+% <singular name> <plural name> <ref cmd> <format cmd>
+\cs_new_protected_nopar:Nn \phstdoc_new_unit_type:nnNN {
+  \NewDocumentCommand #3 { m } {
+    #4 { ##1 }
+    \phstdoc_object_index:nnnN { #1 } { #2 } { ##1 } #4
+  }
+  \pdfstringdefDisableCommands {
+    \cs_set_eq:NN #3 \use:n
+  }
+}
+\cs_new_protected_nopar:Nn \phstdoc_new_unit_type:nNN {
+  \phstdoc_new_unit_type:nnNN { #1 } { #1 s } #2 #3
+}
+\phstdoc_new_unit_type:nnNN {class} {classes} \cls  \textsf
+\phstdoc_new_unit_type:nNN  {package}         \pkg  \textsf
+\phstdoc_new_unit_type:nNN  {font}            \fnt  \textsf
+\phstdoc_new_unit_type:nNN  {tool}            \tool \texttt
+
+% definitions
+% <singular name> <plural name> <format cmd> <describe cmd>
+\cs_new_protected_nopar:Nn \phstdoc_new_definition_type:nnNN {
+  \NewDocumentCommand #4 { m } {
+    \leavevmode
+    \@bsphack
+    \marginpar {
+      \raggedleft
+      \PrintDescribeDefinition #3 { ##1 }
+    }
+    \SpecialDefinitionIndex { #1 } { #2 } #3 { ##1 }
+    \@esphack
+    \ignorespaces
+  }
+}
+\cs_new_protected_nopar:Nn \phstdoc_new_definition_type:nNN {
+  \phstdoc_new_definition_type:nnNN { #1 } { #1 s } #2 #3
+}
+\NewDocumentCommand \SpecialDefinitionIndex { m m m m } {
+  \@bsphack
+  \HD@target
+  \index {
+    #4
+    \actualchar \string #3 { #4 } ~ (#1)
+    \encapchar hdclindex{\the\c@HD@hypercount}{usage}
+  }
+  \index {
+    #2 :
+    \levelchar #4
+    \actualchar \string #3 { #4 }
+    \encapchar hdclindex{\the\c@HD@hypercount}{usage}
+  }
+  \@esphack
+}
+
+\phstdoc_new_definition_type:nNN { nonterminal~ symbol } \meta \DescribeNonterminal
+
+% members
+% <singular name> <plural name> <ref cmd> <describe cmd> <code env>
+\cs_new_protected_nopar:Nn \phstdoc_new_member_type:nnNNn {
+  \NewDocumentCommand #3 { m } {
+    \phstdoc_print:n { ##1 }
+    \phstdoc_object_index:nnnN { #1 } { #2 } { ##1 } \phstdoc_print:n
+  }
+  \pdfstringdefDisableCommands {
+    \cs_set_eq:NN #3 \use:n
+  }
+  \NewDocumentCommand #4 { } {
+    \leavevmode
+    \@bsphack
+    \group_begin:
+    \MakePrivateLetters
+    \phstdoc_describe_member:nnn { #1 } { #2 }
+  }
+  \NewDocumentEnvironment { #5 } { } {
+    \group_begin:
+    \MakePrivateLetters
+    \phstdoc_member_code:nnn { #1 } { #2 }
+  } {
+    \endtrivlist
+  }
+}
+\cs_new_protected_nopar:Nn \phstdoc_new_member_type:nNNn {
+  \phstdoc_new_member_type:nnNNn { #1 } { #1 s } #2 #3 { #4 }
+}
+\cs_new_protected_nopar:Nn \phstdoc_describe_member:nnn {
+  \group_end:
+  \marginpar {
+    \raggedleft
+    \PrintDescribeMember { #3 }
+  }
+  \SpecialMemberIndex { #1 } { #2 } { #3 }
+  \@esphack
+  \ignorespaces
+}
+  
+\cs_new_protected_nopar:Nn \phstdoc_member_code:nnn {
+  \group_end:
+  \topsep = \MacroTopsep
+  \trivlist
+  \tl_set:Nx \saved@macroname { #3 }
+  \cs_set:Npn \makelabel ##1 { \llap { ##1 } }
+  \if@inlabel
+    \cs_set:Npx \makelabel ##1 {
+      \llap {
+        \vtop to \baselineskip {
+          \prg_replicate:nn { \macro@cnt } { \hbox{\strut} }
+          \hbox { ##1 }
+          \vss
+        }
+      }
+    }
+    \int_incr:N \macro@cnt
+  \else:
+    \int_set:Nn \macro@cnt { \c_one }
+  \fi:
+  \protected@edef \l_phstdoc_tmpa_tl {
+    \exp_not:N \item [ \exp_not:N \PrintMemberName { #3 } ]
+  }
+  \tl_use:N \l_phstdoc_tmpa_tl
+  \int_gincr:N \c@CodelineNo
+  \SpecialMainMemberIndex { #1 } { #2 } { #3 }
+  \nobreak
+  \int_gdecr:N \c@CodelineNo
+  \ignorespaces
+}
+\NewDocumentCommand \SpecialMainMemberIndex { m m m } {
+  \@bsphack
+  \special@index {
+    #3
+    \actualchar \string \phstdoc_print:n { #3 } ~ (#1)
+    \encapchar main
+  }
+  \special@index {
+    #2 :
+    \levelchar #3
+    \actualchar \string \phstdoc_print:n { #3 }
+    \encapchar main
+  }
+  \@esphack
+}
+\NewDocumentCommand \SpecialMemberIndex { m m m } {
+  \@bsphack
+  \HD@target
+  \index {
+    #3
+    \actualchar \phstdoc_print:n { #3 } ~ (#1)
+    \encapchar hdclindex{\the\c@HD@hypercount}{usage}
+  }
+  \index {
+    #2 :
+    \levelchar #3
+    \actualchar \phstdoc_print:n { #3 }
+    \encapchar hdclindex{\the\c@HD@hypercount}{usage}
+  }
+  \@esphack
+}
+
+\phstdoc_new_member_type:nNNn {message}      \msg      \DescribeMessage    {l3message}
+\phstdoc_new_member_type:nNNn {option}       \opt      \DescribeOption     {option}
+\phstdoc_new_member_type:nNNn {object~ type} \objtype  \DescribeObjectType {l3objtype}
+\phstdoc_new_member_type:nNNn {template}     \template \DescribeTemplate   {l3template}
+\phstdoc_new_member_type:nNNn {instance}     \instance \DescribeInstance   {l3instance}
+\phstdoc_new_member_type:nNNn {variable}     \var      \DescribeVariable   {variable}
+\phstdoc_new_member_type:nNNn {function}     \func     \DescribeFunction   {function}
+
+% multiple macros in margin
+\NewDocumentCommand \DescribeMacros { } {
+  \leavevmode
+  \@bsphack
+  \group_begin:
+  \MakePrivateLetters
+  \phstdoc_describe_macros:n
+}
+\bool_new:N \l_phstdoc_first_bool
+\box_new:N \l_phstdoc_comma_box
+\cs_new_protected_nopar:Nn \phstdoc_describe_macros:n {
+  \group_end:
+  \marginpar {
+    \raggedleft
+    \hbox_set:Nn \l_phstdoc_comma_box { , ~ }
+    \bool_set_true:N \l_phstdoc_first_bool
+    \tl_map_inline:nn { #1 } {
+      \bool_if:NTF \l_phstdoc_first_bool {
+        \bool_set_false:N \l_phstdoc_first_bool
+      } {
+        \unskip
+        \discretionary { } { } { \box_use:N \l_phstdoc_comma_box }
+      }
+      \PrintDescribeMacro { ##1 }
+    }
+  }
+  \tl_map_function:nN { #1 } \SpecialUsageIndex
+  \@esphack
+  \ignorespaces
+}
+
+% product names
+\NewDocumentCommand \MiKTeX  { } { MiK \TeX \xspace }
+\NewDocumentCommand \TeXLive { } { \TeX \nobreakspace Live \xspace }
+
+% persons
+\luatex_if_engine:TF {
+  \NewDocumentCommand \vietnamese { m } { #1 }
+} {
+  \NewDocumentCommand \vietnamese { m } {
+    \group_begin:
+    \fontencoding { T5 }
+    \selectfont
+    #1
+    \group_end:
+  }
+}
+\NewDocumentCommand \genname { o m m } {
+  #3
+  \docindex[#1]{#2}
+}
+\cs_new_nopar:Npn \nametext  #1 #2 { #2  ~ #1 }
+\cs_new_nopar:Npn \nameindex #1 #2 { #1, ~ #2 }
+\NewDocumentCommand \name { m m } {
+  \genname {
+    \nameindex { #1 } { #2 }
+  } {
+    \nametext  { #1 } { #2 }
+  }
+}
+\NewDocumentCommand \extname { m m m m m } {
+  \genname [ \nameindex { #3 } { #5 } ] {
+    #1 { \nameindex { #2 } { #4 } }
+  } {
+    #1 { \nametext  { #2 } { #4 } }
+  }
+}
+\NewDocumentCommand \NewName { m m m } {
+  \NewDocumentCommand #1 { } { \name{#2}{#3} \xspace }
+}
+\NewDocumentCommand \NewExtName { m m m m m m } {
+  \NewDocumentCommand #1 { } { \extname{#2}{#3}{#4}{#5}{#6} \xspace }
+}
+\NewName \Knuth     {Knuth}     {Donald \nobreakspace E.}
+\NewName \Arseneau  {Arseneau}  {Donald}
+\NewName \Setzer    {Setzer}    {Nick}
+\NewName \Verna     {Verna}     {Didier}
+\NewName \Wilson    {Wilson}    {Peter}
+\NewName \Kohm      {Kohm}      {Markus}
+\NewName \Marvan    {Marvan}    {Michal}
+\NewName \Robertson {Robertson} {Will}
+\NewName \Breitfeld {Breitfeld} {Peter}
+\NewName \Hoekwater {Taco}      {Hoekwater}
+\NewExtName \Hogholm {\use:n}      {Høgholm}          {Hogholm}          {Morten}        {Morten}
+\NewExtName \MPG     {\use:n}      {Pégourié-Gonnard} {Pegourie-Gonnard} {Manuel}        {Manuel}
+\NewExtName \Thanh   {\vietnamese} {Thành}            {Thanh}            {Hàn Thế}       {Han The}
+\NewExtName \Burnol  {\use:n}      {Burnol}           {Burnol}           {Jean-François} {Jean-Francois}
+
+% boldface, normal width
+\phstdoc_tl_new:Nn \bndefault { b }
+\NewDocumentCommand \bnseries { } { \fontseries\bndefault \selectfont }
+\DeclareTextFontCommand \textbn \bnseries
+
+% light condensed monospaced
+\phstdoc_tl_new:Nn \lcdefault { lc }
+\NewDocumentCommand \lcseries { } { \fontseries\lcdefault \selectfont }
+\RenewDocumentCommand \HDorg@PrintDescribeMacro { m } {
+  \strut
+  \MacroFont
+  \lcseries
+  \string #1
+  \tex_space:D
+}
+\RenewDocumentCommand \HDorg@PrintMacroName { m } {
+  \strut
+  \MacroFont
+  \lcseries
+  \string #1
+  \tex_space:D
+}
+\RenewDocumentCommand \PrintDescribeEnv { m } {
+  \strut
+  \MacroFont
+  \lcseries
+  #1
+  \tex_space:D
+}
+\RenewDocumentCommand \PrintEnvName { m } {
+  \strut
+  \MacroFont
+  \lcseries
+  #1
+  \tex_space:D
+}
+\NewDocumentCommand \PrintDescribeDefinition { m m } {
+  \strut
+  \HD@target
+  #1 { #2 }
+  \tex_space:D
+}
+\NewDocumentCommand \PrintDescribeMember { m } {
+  \strut
+  \HD@target
+  \MacroFont
+  \lcseries
+  #1
+  \tex_space:D
+}
+\NewDocumentCommand \PrintMemberName { m } {
+  \strut
+  \HD@target
+  \MacroFont
+  \lcseries
+  #1
+  \tex_space:D
+}
+\cs_set_nopar:Npn \HDorg@theCodelineNo {
+  \normalfont
+  \scriptsize
+  \color{darkgray}
+  \arabic{CodelineNo}
+}
+
+
+\EnableCrossrefs         
+\CodelineIndex
+\RecordChanges
+
+\tl_put_right:Nn \IndexParms {
+  \RenewDocumentCommand \ttfamily { } {
+    \fontfamily\ttdefault
+    \fontseries\lcdefault
+    \selectfont
+  }
+  \phstdoc_expl_syntax_names_on:
+}
+
+\RenewDocumentCommand \MakePrivateLetters { } {
+  \makeatletter
+  \phstdoc_expl_syntax_names_on:
+}
+
+\cs_new_protected_nopar:Nn \phstdoc_expl_syntax_names_on: {
+  \char_set_catcode_letter:N :
+  \char_set_catcode_letter:N _
+}
+
+% special tables
+\NewDocumentCommand \tblhead { m } { \hfil \textbf{#1} \hfil }
+\NewDocumentCommand \tblmath { m } { \( #1 \vphantom{\underline{\overline{#1}}} \) }
+\NewDocumentEnvironment { doctable } { m o +m m } {
+  \table
+  \centering
+  \tabular{#4}
+  \toprule
+} {
+  \tabularnewline
+  \bottomrule
+  \endtabular
+  \IfValueTF { #2 } {
+    \caption[#2]{#3}
+  } {
+    \caption    {#3}
+  }
+  \label{#1}
+  \endtable
+}
+\NewDocumentEnvironment { narrowtable } { } {
+  \setlength{\tabcolsep}{2pt}
+  \doctable
+} {
+  \enddoctable
+}
+\setlength{\tabcolsep}{5pt}
+
+% special figures
+\NewDocumentEnvironment { docfigure } { m o m } {
+  \figure
+  \centering
+} {
+  \IfValueTF { #2 } {
+    \caption[#2]{#3}
+  } {
+    \caption    {#3}
+  }
+  \label{#1}
+  \endfigure
+}
+
+% multilingual documentation
+\group_begin:%
+\char_set_catcode_other:N\ %
+\tl_const:Nn\c__phstdoc_other_space_tl{ }%
+\group_end:%
+\RenewDocumentCommand \CommentEndDef { m } {
+  \tl_gset:cx { End #1 Test } {
+    \@percentchar
+    \tl_use:N \c__phstdoc_other_space_tl
+    \@backslashchar end
+    \token_to_str:N {
+      #1
+    \token_to_str:N }
+  }
+}
+\cs_new_protected_nopar:Nn \__phstdoc_language:nn {
+  \tl_new:c { #1 }
+  \specialcomment { #1 } { \begin{otherlanguage}{#2} } { \end{otherlanguage} }
+}
+\__phstdoc_language:nn { english } { american }
+\__phstdoc_language:nn { german  } { ngerman  }
+\newcaptionname { american } { \generalname } { General   }
+\newcaptionname { ngerman  } { \generalname } { Allgemein }
+\renewcaptionname { american } { \glossaryname } { Change~ History    }
+\renewcaptionname { ngerman  } { \glossaryname } { Versionsgeschichte }
+\GlossaryPrologue {
+  \section* { \glossaryname }
+  \markboth { \glossaryname } { \glossaryname }
+}
+
+\luatex_if_engine:T {
+  \setmainfont { Latin~ Modern~ Roman }
+}
+
+\setcounter { IndexColumns } { 2 }
+\hypersetup{
+  colorlinks   = true,
+  linkcolor    = blue,
+  pdfstartview = FitH
+}
+\endinput