% \iffalse meta-comment  
%
% This file should be compiled with $lualatex$.
%
% Copyright (C) 2018-2024 by F. Pantigny
% ------------------------------------------
%
% This file may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in:
%
% http://www.latex-project.org/lppl.txt
%
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
%
% \fi
% \iffalse
\def\myfileversion{7.0a}
\def\myfiledate{2024/12/16}
%
%
%<*batchfile>  
\begingroup
\input l3docstrip.tex
\keepsilent
\usedir{tex/latex/nicematrix}
\preamble


Copyright (C) 2018-2024 by F. Pantigny
-----------------------------------

This file may be distributed and/or modified under the
conditions of the LaTeX Project Public License, either version 1.3
of this license or (at your option) any later version.
The latest version of this license is in:

http://www.latex-project.org/lppl.txt

and version 1.3 or later is part of all distributions of LaTeX
version 2005/12/01 or later.

\endpreamble
\askforoverwritefalse
\endgroup
%</batchfile>
%
%<*driver>
\documentclass[dvipsnames]{l3doc}% dvipsnames is for xcolor (loaded by Tikz)
\VerbatimFootnotes

\usepackage[luatex]{geometry}
\geometry{left=2.8cm,right=2.8cm,top=2.5cm,bottom=2.5cm,papersize={21cm,29.7cm}}

\usepackage{tikz}
\usetikzlibrary{fit}
\usepackage{nicematrix}

\NewDocumentEnvironment {scope} {} {} {}
\def\interitem{\vspace{7mm plus 2 mm minus 3mm}}          

\fvset{formatcom=\color{gray}}

\usepackage{upquote}

\usepackage{titlesec}
\titlespacing*{\section}{0pt}{6.5ex plus 1ex minus .2ex}{4.3ex plus .2ex}
\titlespacing*{\subsection}{0pt}{4.5ex plus 1ex minus .2ex}{2ex plus .2ex}
\parindent 0pt
\skip \footins = 2 \bigskipamount


\begin{document}
\DocInput{nicematrix-code.dtx}
\end{document}
%</driver>
% \fi 
% \title{The code of the package \pkg{nicematrix}\thanks{This document corresponds to the version~\myfileversion\space of \pkg{nicematrix},
% at the date of~\myfiledate.}} 
% \author{F. Pantigny \\ \texttt{fpantigny@wanadoo.fr}}
%
% \hypersetup
%   {
%     pdfinfo = 
%      {
%        Title = The code of the package 'nicematrix' ,
%        Subject = A LaTeX package ,
%        Author = F. Pantigny 
%      }
%   }
%
%
% \maketitle
%
% \begin{abstract}
% This document is the documented code of the LaTeX package \pkg{nicematrix}. It
% is \emph{not} its user's guide. The guide of utilisation is the document
% |nicematrix.pdf| (with a French traduction: |nicematrix-french.pdf|).
% \end{abstract}
%
%
% \bigskip
% The development of the extension \pkg{nicematrix} is done on the following GitHub
% depot:
%
% \verb|https://github.com/fpantigny/nicematrix|
%
% 
% \bigskip
% \section{Declaration of the package and packages loaded}
%
%
% The prefix |nicematrix| has been registred for this package.
%
% See: |http://mirrors.ctan.org/macros/latex/contrib/l3kernel/l3prefixes.pdf|
% 
%<@@=nicematrix>
% 
% \bigskip
% First, we load \pkg{pgfcore} and the module \pkg{shapes}. We do so because
% it's not possible to use |\usepgfmodule| in |\ExplSyntaxOn|.
%    \begin{macrocode}
\RequirePackage{pgfcore}
\usepgfmodule{shapes}
%    \end{macrocode}
%
% 
% We give the traditional declaration of a package written with the L3
% programming layer. 
%    \begin{macrocode}
\RequirePackage{l3keys2e}
\ProvidesExplPackage
  {nicematrix}
  {\myfiledate}
  {\myfileversion}
  {Enhanced arrays with the help of PGF/TikZ}
%    \end{macrocode}
%
%    \begin{macrocode}
\ProvideDocumentCommand{\IfPackageLoadedT}{mm}
  {\IfPackageLoadedTF{#1}{#2}{}}

\ProvideDocumentCommand{\IfPackageLoadedF}{mm}
  {\IfPackageLoadedTF{#1}{}{#2}}
%    \end{macrocode}
%
% \bigskip
% The command for the treatment of the options of |\usepackage| is at the end of
% this package for technical reasons. 
% 
% \bigskip
%    \begin{macrocode}
\RequirePackage { amsmath }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\RequirePackage { array }
%    \end{macrocode}
% In the version 2.6a of \pkg{array}, important modifications have been done for
% the Tagging Project. 
%    \begin{macrocode}
\bool_const:Nn \c_@@_recent_array_bool
  { \IfPackageAtLeastTF { array } { 2024/05/01 } \c_true_bool \c_false_bool }
\bool_const:Nn \c_@@_testphase_table_bool
  { \IfPackageLoadedTF { latex-lab-testphase-table } \c_true_bool \c_false_bool }
%    \end{macrocode}
% 
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_error:n { \msg_error:nn { nicematrix } }
\cs_new_protected:Npn \@@_warning:n { \msg_warning:nn { nicematrix } }
\cs_new_protected:Npn \@@_error:nn { \msg_error:nnn { nicematrix } }
\cs_generate_variant:Nn \@@_error:nn { n e } 
\cs_new_protected:Npn \@@_error:nnn { \msg_error:nnnn { nicematrix } }
\cs_new_protected:Npn \@@_fatal:n { \msg_fatal:nn { nicematrix } }
\cs_new_protected:Npn \@@_fatal:nn { \msg_fatal:nnn { nicematrix } }
\cs_new_protected:Npn \@@_msg_new:nn { \msg_new:nnn { nicematrix } }
%    \end{macrocode}
%
% With Overleaf, by default, a document is compiled in non-stop mode. When there
% is an error, there is no way to the user to use the key H in order to have
% more information. That's why we decide to put that piece of information (for
% the messages with such information) in the main part of the message when the
% key |messages-for-Overleaf| is used (at load-time).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_msg_new:nnn #1 #2 #3
  {
    \bool_if:NTF \g_@@_messages_for_Overleaf_bool
      { \msg_new:nnn { nicematrix } { #1 } { #2 \\ #3 } }
      { \msg_new:nnnn { nicematrix } { #1 } { #2 } { #3 } }
  }
%    \end{macrocode}
% 
% \bigskip
% We also create a command which will generate usually an error but only a
% warning on Overleaf. The argument is given by curryfication.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_error_or_warning:n 
  { \bool_if:NTF \g_@@_messages_for_Overleaf_bool \@@_warning:n \@@_error:n }
%    \end{macrocode}
% 
% We try to detect whether the compilation is done on Overleaf. We use
% |\c_sys_jobname_str| because, with Overleaf, the value of |\c_sys_jobname_str|
% is always ``|output|''.
%    \begin{macrocode}
\bool_new:N \g_@@_messages_for_Overleaf_bool
\bool_gset:Nn \g_@@_messages_for_Overleaf_bool
  { 
       \str_if_eq_p:on \c_sys_jobname_str { _region_ }  % for Emacs
    || \str_if_eq_p:ee \c_sys_jobname_str { output }   % for Overleaf
  }
%    \end{macrocode}
% 
% \bigskip 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_msg_redirect_name:nn 
  { \msg_redirect_name:nnn { nicematrix } }
\cs_new_protected:Npn \@@_gredirect_none:n #1 
  {
    \group_begin:
    \globaldefs = 1
    \@@_msg_redirect_name:nn { #1 } { none }
    \group_end:
  }
\cs_new_protected:Npn \@@_err_gredirect_none:n #1 
  {
    \@@_error:n { #1 }
    \@@_gredirect_none:n { #1 }
  }
\cs_new_protected:Npn \@@_warning_gredirect_none:n #1 
  {
    \@@_warning:n { #1 }
    \@@_gredirect_none:n { #1 }
  }
%    \end{macrocode}
%
% \bigskip
% We will delete in the future the following lines which are only a security.
%    \begin{macrocode}
\cs_set:Npn \int_if_zero:NT #1 { \int_compare:nNnT #1 = \c_zero_int }
\cs_set:Npn \int_if_zero:NTF #1 { \int_compare:nNnTF #1 = \c_zero_int }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\@@_msg_new:nn { mdwtab~loaded }
  { 
    The~packages~'mdwtab'~and~'nicematrix'~are~incompatible.~
    This~error~is~fatal.
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument / end } { . }
  { \IfPackageLoadedT { mdwtab } { \@@_fatal:n { mdwtab~loaded } } }
%    \end{macrocode}
%
% \bigskip
% \section{Collecting options}
%
% The following technic allows to create user commands with the ability to put 
% an arbitrary number of |[|\textsl{list of (key=val)}|]| after the name of the
% command.
%
% \medskip
% \emph{Exemple} :\par\nobreak
%
% |\@@_collect_options:n { \F } [x=a,y=b] [z=c,t=d] { arg }|
%
% will be transformed in :\quad |\F{x=a,y=b,z=c,t=d}{arg}|
%
% \smallskip
% Therefore, by writing : |\def\G{\@@_collect_options:n{\F}}|,
%
% the command |\G| takes in an arbitrary number of optional arguments between
% square brackets.
%
% Be careful: that command is \emph{not} ``fully expandable'' (because of
% |\peek_meaning:NTF|). 
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_collect_options:n #1 
  { 
    \peek_meaning:NTF [
      { \@@_collect_options:nw { #1 } }
      { #1 { } }
  }
%    \end{macrocode}
%
% \bigskip
% We use |\NewDocumentCommand| in order to be able to allow nested brackets
% within the argument between |[| and |]|.
%    \begin{macrocode}
\NewDocumentCommand \@@_collect_options:nw { m r[] }
  { \@@_collect_options:nn { #1 } { #2 } }

\cs_new_protected:Npn \@@_collect_options:nn #1 #2
  {
    \peek_meaning:NTF [
      { \@@_collect_options:nnw { #1 } { #2 } }
      { #1 { #2 } }
  }

\cs_new_protected:Npn \@@_collect_options:nnw #1#2[#3]
  { \@@_collect_options:nn { #1 } { #2 , #3 } }
%    \end{macrocode}
%
% 
% \bigskip
% \section{Technical  definitions}
%
% 
% The following constants are defined only for efficiency in the tests.
%   \begin{macrocode}
\tl_const:Nn \c_@@_b_tl { b }
\tl_const:Nn \c_@@_c_tl { c }
\tl_const:Nn \c_@@_l_tl { l }
\tl_const:Nn \c_@@_r_tl { r }
\tl_const:Nn \c_@@_all_tl { all }
\tl_const:Nn \c_@@_dot_tl { . }
\str_const:Nn \c_@@_r_str { r }
\str_const:Nn \c_@@_c_str { c }
\str_const:Nn \c_@@_l_str { l }
%    \end{macrocode}
%
%
% 
% \bigskip
% The following token list will be used for definitions of user commands (with
% |\NewDocumentCommand|) with an embellishment using an \emph{underscore} (there
% may be problems because of the catcode of the underscore).
%   \begin{macrocode}
\tl_new:N \l_@@_argspec_tl
%    \end{macrocode}
% 
%   \begin{macrocode}
\cs_generate_variant:Nn \seq_set_split:Nnn { N o }
\cs_generate_variant:Nn \str_lowercase:n { o }
\cs_generate_variant:Nn \str_set:Nn { N o }
\cs_generate_variant:Nn \tl_build_put_right:Nn { N o }
\prg_generate_conditional_variant:Nnn \clist_if_in:Nn { N e } { T , F, TF }
\prg_generate_conditional_variant:Nnn \tl_if_empty:n { e } { T }
\prg_generate_conditional_variant:Nnn \tl_if_head_eq_meaning:nN { o N } { TF }
\cs_generate_variant:Nn \dim_min:nn { v }
\cs_generate_variant:Nn \dim_max:nn { v }
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \IfPackageLoadedTF { tikz }
      { 
%    \end{macrocode}
% In some constructions, we will have to use a |{pgfpicture}| which \emph{must}
% be replaced by a |{tikzpicture}| if Tikz is loaded. However, this switch
% between |{pgfpicture}| and |{tikzpicture}| can't be done dynamically with a
% conditional because, when the Tikz library |external| is loaded by the user,
% the pair |\tikzpicture|-|\endtikpicture| (or
% |\begin{tikzpicture}-\end{tikzpicture}|) must be statically ``visible'' (even
% when externalization is not activated).
%
% That's why we create |\c_@@_pgfortikzpicture_tl| and
% |\c_@@_endpgfortikzpicture_tl| which will be used to construct in a
% |\hook_gput_code:nnn { begindocument } { . } | the correct version of some
% commands. The tokens |\exp_not:N| are mandatory.
%    \begin{macrocode}
        \tl_const:Nn \c_@@_pgfortikzpicture_tl { \exp_not:N \tikzpicture }
        \tl_const:Nn \c_@@_endpgfortikzpicture_tl { \exp_not:N \endtikzpicture }
      }
      { 
        \tl_const:Nn \c_@@_pgfortikzpicture_tl { \exp_not:N \pgfpicture }
        \tl_const:Nn \c_@@_endpgfortikzpicture_tl { \exp_not:N \endpgfpicture }
      }
  }
%    \end{macrocode}
% 
% We test whether the current class is \cls{revtex4-1} (deprecated) or
% \cls{revtex4-2} because these classes redefines |\array| (of \pkg{array}) in a
% way incompatible with our programmation. At the date April 2024, the current
% version \cls{revtex4-2} is 4.2f (compatible with \pkg{booktabs}).
%
%    \begin{macrocode}
\IfClassLoadedTF { revtex4-1 }
  { \bool_const:Nn \c_@@_revtex_bool \c_true_bool }
  {
    \IfClassLoadedTF { revtex4-2 }
      { \bool_const:Nn \c_@@_revtex_bool \c_true_bool }
      {
%    \end{macrocode}
% Maybe one of the previous classes will be loaded inside another class... We
% try to detect that situation.
%    \begin{macrocode}
        \cs_if_exist:NT \rvtx@ifformat@geq 
          { \bool_const:Nn \c_@@_revtex_bool \c_true_bool }
          { \bool_const:Nn \c_@@_revtex_bool \c_false_bool }
      }
  }
%    \end{macrocode}
%
%
% 
% \bigskip
% If the final user uses \pkg{nicematrix}, PGF/Tikz will write instruction
% |\pgfsyspdfmark| in the |aux| file. If he changes its mind and no longer loads
% \pkg{nicematrix}, an error may occur at the next compilation because of
% remanent instructions |\pgfsyspdfmark| in the |aux| file. With the following
% code, we try to avoid that situation.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_provide_pgfsyspdfmark:
  {
    \iow_now:Nn \@mainaux 
      {
        \ExplSyntaxOn
        \cs_if_free:NT \pgfsyspdfmark
          { \cs_set_eq:NN \pgfsyspdfmark \@gobblethree }
        \ExplSyntaxOff
      }
    \cs_gset_eq:NN \@@_provide_pgfsyspdfmark: \prg_do_nothing:
  }
%    \end{macrocode}
%
% 
% \bigskip
% We define a command |\iddots| similar to |\ddots| ($\ddots$) but with dots
% going forward ($\iddots$). We use |\ProvideDocumentCommand| and so, if the
% command |\iddots| has already been defined (for example by the package
% \pkg{mathdots}), we don't define it again.
% 
%    \begin{macrocode}
\ProvideDocumentCommand \iddots { }
  { 
    \mathinner
      { 
        \tex_mkern:D 1 mu 
        \box_move_up:nn { 1 pt } { \hbox { . } }
        \tex_mkern:D 2 mu
        \box_move_up:nn { 4 pt } { \hbox { . } }
        \tex_mkern:D 2 mu
        \box_move_up:nn { 7 pt } 
          { \vbox:n { \kern 7 pt \hbox { . } } } 
        \tex_mkern:D 1 mu 
      } 
  }
%    \end{macrocode}
%
% This definition is a variant of the standard definition of |\ddots|.
%
%
% \bigskip
% In the |aux| file, we will have the references of the PGF/Tikz nodes created
% by \pkg{nicematrix}. However, when \pkg{booktabs} is used, some nodes (more
% precisely, some |row| nodes) will be defined twice because their position will
% be modified. In order to avoid an error message in this case, we will redefine
% |\pgfutil@check@rerun| in the |aux| file.
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . } 
  {     
    \IfPackageLoadedT { booktabs } 
      { \iow_now:Nn \@mainaux \nicematrix@redefine@check@rerun } 
  }
\cs_set_protected:Npn \nicematrix@redefine@check@rerun
  {
    \cs_set_eq:NN \@@_old_pgfutil@check@rerun \pgfutil@check@rerun
%    \end{macrocode}
% The new version of |\pgfutil@check@rerun| will not check the PGF nodes whose
% names start with |nm-| (which is the prefix for the nodes created by
% \pkg{nicematrix}). 
%    \begin{macrocode}
    \cs_set_protected:Npn \pgfutil@check@rerun ##1 ##2
      {
%    \end{macrocode}
% |\str_if_eq:ee(TF)| is faster than |\str_if_eq:nn(TF)|.
%    \begin{macrocode}
        \str_if_eq:eeF { nm- } { \tl_range:nnn { ##1 } 1 3 }
          { \@@_old_pgfutil@check@rerun { ##1 } { ##2 } }
      }    
  }
%    \end{macrocode}
%
% \bigskip
% We have to know whether \pkg{colortbl} is loaded in particular for the
% redefinition of |\everycr|.
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . } 
  { 
    \IfPackageLoadedF { colortbl }
      { 
%    \end{macrocode}
% The command |\CT@arc@| is a command of \pkg{colortbl} which sets the color of
% the rules in the array. We will use it to store the instruction of color for
% the rules even if \pkg{colortbl} is not loaded. 
%    \begin{macrocode}
        \cs_set_protected:Npn \CT@arc@ { }
        \cs_set_nopar:Npn \arrayrulecolor #1 # { \CT@arc { #1 } }
        \cs_set_nopar:Npn \CT@arc #1 #2
          {
            \dim_compare:nNnT \baselineskip = \c_zero_dim \noalign 
              { \cs_gset_nopar:Npn \CT@arc@ { \color #1 { #2 } } } 
          }
%    \end{macrocode}
% Idem for |\CT@drs@|.
%    \begin{macrocode}
        \cs_set_nopar:Npn \doublerulesepcolor #1 # { \CT@drs { #1 } }
        \cs_set_nopar:Npn \CT@drs #1 #2 
          {
            \dim_compare:nNnT \baselineskip = \c_zero_dim \noalign 
              { \cs_gset:Npn \CT@drsc@ { \color #1 { #2 } } }
          }
        \cs_set_nopar:Npn \hline
          {
            \noalign { \ifnum 0 = `} \fi
            \cs_set_eq:NN \hskip \vskip
            \cs_set_eq:NN \vrule \hrule
            \cs_set_eq:NN \@width \@height
            { \CT@arc@ \vline } 
            \futurelet \reserved@a
            \@xhline
          }
      }
  } 
%    \end{macrocode}
% 
% \bigskip 
% We have to redefine |\cline| for several reasons. The command |\@@_cline| will
% be linked to |\cline| in the beginning of |{NiceArrayWithDelims}|. The
% following commands must \emph{not} be protected.
%    \begin{macrocode}
\cs_set_nopar:Npn \@@_standard_cline #1 { \@@_standard_cline:w #1 \q_stop }
\cs_set_nopar:Npn \@@_standard_cline:w #1-#2 \q_stop
  {
    \int_if_zero:nT \l_@@_first_col_int { \omit & }
    \int_compare:nNnT { #1 } > \c_one_int 
      { \multispan { \int_eval:n { #1 - 1 } } & }
    \multispan { \int_eval:n { #2 - #1 + 1 } } 
    { 
      \CT@arc@ 
      \leaders \hrule \@height \arrayrulewidth \hfill 
%    \end{macrocode}
% The following |\skip_horizontal:N \c_zero_dim| is to prevent a potential
% |\unskip| to delete the |\leaders|\footnote{See question 99041 on TeX
% StackExchange.} 
%    \begin{macrocode}
      \skip_horizontal:N \c_zero_dim
    }
%    \end{macrocode}
% Our |\everycr| has been modified. In particular, the creation of the |row|
% node is in the |\everycr| (maybe we should put it with the incrementation of
% |\c@iRow|). Since the following |\cr| correspond to a ``false row'', we have
% to nullify |\everycr|.
%    \begin{macrocode}
    \everycr { }
    \cr
    \noalign { \skip_vertical:N -\arrayrulewidth } 
  }
%    \end{macrocode}
%
% \bigskip
% The following version of |\cline| spreads the array of a quantity equal
% to |\arrayrulewidth| as does |\hline|. It will be loaded excepted if the key
% |standard-cline| has been used.
%    \begin{macrocode}
\cs_set:Npn \@@_cline 
%    \end{macrocode}
% We have to act in a fully expandable way since there may be |\noalign| (in the
% |\multispan|) to detect. That's why we use |\@@_cline_i:en|.
%    \begin{macrocode}
  { \@@_cline_i:en \l_@@_first_col_int }
%    \end{macrocode}
% The command |\cline_i:nn| has two arguments. The first is the number of the
% current column (it \emph{must} be used in that column). The second is a
% standard argument of |\cline| of the form \textsl{i}-\textsl{j} or the form
% \textsl{i}. 
%    \begin{macrocode}
\cs_set:Npn \@@_cline_i:nn #1 #2 { \@@_cline_i:w #1|#2- \q_stop }
\cs_generate_variant:Nn \@@_cline_i:nn { e }
\cs_set:Npn \@@_cline_i:w #1|#2-#3 \q_stop
  {
    \tl_if_empty:nTF { #3 } 
      { \@@_cline_iii:w #1|#2-#2 \q_stop }
      { \@@_cline_ii:w #1|#2-#3 \q_stop }
  }
\cs_set:Npn \@@_cline_ii:w #1|#2-#3-\q_stop
  { \@@_cline_iii:w #1|#2-#3 \q_stop }
\cs_set:Npn \@@_cline_iii:w #1|#2-#3 \q_stop
  {
%    \end{macrocode}
% Now, |#1| is the number of the current column and we have to draw a line from
% the column |#2| to the column |#3| (both included).
%    \begin{macrocode}
    \int_compare:nNnT { #1 } < { #2 }
      { \multispan { \int_eval:n { #2 - #1 } } & }
    \multispan { \int_eval:n { #3 - #2 + 1 } }
      { 
        \CT@arc@ 
        \leaders \hrule \@height \arrayrulewidth \hfill 
        \skip_horizontal:N \c_zero_dim
      }
%    \end{macrocode}
% You look whether there is another |\cline| to draw (the final user may put
% several |\cline|).
%    \begin{macrocode}
    \peek_meaning_remove_ignore_spaces:NTF \cline
      { & \@@_cline_i:en { \int_eval:n { #3 + 1 } } }
      { \everycr { } \cr }
  }
%    \end{macrocode}
% 
%
% \bigskip
% The following command will be nullified in the environment |{NiceTabular}|,
% |{NiceTabular*}| and |{NiceTabularX}|.
%    \begin{macrocode}
\cs_set_eq:NN \@@_math_toggle: \c_math_toggle_token 
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_set_CT@arc@:n { o }
\cs_new_protected:Npn \@@_set_CT@arc@:n #1 
  { 
    \tl_if_blank:nF { #1 }
      {
        \tl_if_head_eq_meaning:nNTF { #1 } [
          { \cs_set_nopar:Npn \CT@arc@ { \color #1 } }
          { \cs_set_nopar:Npn \CT@arc@ { \color { #1 } } }
      }
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_set_CT@drsc@:n { o }
\cs_new_protected:Npn \@@_set_CT@drsc@:n #1 
  { 
    \tl_if_head_eq_meaning:nNTF { #1 } [
      { \cs_set_nopar:Npn \CT@drsc@ { \color #1 } }
      { \cs_set_nopar:Npn \CT@drsc@ { \color { #1 } } }
  }
%    \end{macrocode}
% 
% \bigskip
% The following command must \emph{not} be protected since it will be used to
% write instructions in the |\g_@@_pre_code_before_tl|.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_exp_color_arg:Nn { N o }
\cs_new:Npn \@@_exp_color_arg:Nn #1 #2
  {
    \tl_if_head_eq_meaning:nNTF { #2 } [
      { #1 #2 }
      { #1 { #2 } } 
  }
%    \end{macrocode}
% 
% The following command must be protected because of its use of the command |\color|.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_color:n { o }
\cs_new_protected:Npn \@@_color:n #1 
  { \tl_if_blank:nF { #1 } { \@@_exp_color_arg:Nn \color { #1 } } }
%    \end{macrocode}
% 
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rescan_for_spanish:N #1
  { 
    \tl_set_rescan:Nno 
      #1 
      { 
        \char_set_catcode_other:N >
        \char_set_catcode_other:N <
      } 
      #1 
  }
%    \end{macrocode}
%
%
% \bigskip
% \section{Parameters}
%
% \bigskip 
% The following counter will count the environments |{NiceArray}|. The value of
% this counter will be used to prefix the names of the Tikz nodes created in the
% array. 
%    \begin{macrocode}
\int_new:N \g_@@_env_int
%    \end{macrocode}
%
% \bigskip
% The following command is only a syntaxic shortcut. It must \emph{not} be
% protected (it will be used in names of \textsc{pgf} nodes).
%    \begin{macrocode}
\cs_new:Npn \@@_env: { nm - \int_use:N \g_@@_env_int } 
%    \end{macrocode}
%
% \bigskip
% The command |\NiceMatrixLastEnv| is not used by the package \pkg{nicematrix}.
% It's only a facility given to the final user. It gives the number of the last
% environment (in fact the number of the current environment but it's meant to
% be used after the environment in order to refer to that environment --- and
% its nodes --- without having to give it a name). This command \emph{must} be
% expandable since it will be used in \pkg{pgf} nodes.
%    \begin{macrocode}
\NewExpandableDocumentCommand \NiceMatrixLastEnv { } 
  { \int_use:N \g_@@_env_int } 
%    \end{macrocode}
%
%
% \bigskip
% The following command is only a syntaxic shortcut. The |q| in |qpoint| means 
% \emph{quick}. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_qpoint:n #1 
  { \pgfpointanchor { \@@_env: - #1 } { center } } 
%    \end{macrocode}
%
% \bigskip
% If the user uses |{NiceTabular}|, |{NiceTabular*}| or |{NiceTabularX}|, we
% will raise the following flag. 
%    \begin{macrocode}
\bool_new:N \l_@@_tabular_bool
%    \end{macrocode}
%
% \bigskip
% |\g_@@_delims_bool| will be true for the environments with delimiters (ex. :
% |{pNiceMatrix}|, |{pNiceArray}|, |\pAutoNiceMatrix|, etc.).
%    \begin{macrocode}
\bool_new:N \g_@@_delims_bool
\bool_gset_true:N \g_@@_delims_bool
%    \end{macrocode}
% In fact, if there is delimiters in the preamble of |{NiceArray}| (eg:
% |[cccc]|), this boolean will be set to false.
%
% \medskip
% The following boolean will be equal to |true| in the environments which have
% a preamble (provided by the final user): |{NiceTabular}|, |{NiceArray}|,
% |{pNiceArray}|, etc. 
%    \begin{macrocode}
\bool_new:N \l_@@_preamble_bool
\bool_set_true:N \l_@@_preamble_bool
%    \end{macrocode}
%
% \medskip
% We need a special treatment for |{NiceMatrix}| when |vlines| is not used, in
% order to retrieve |\arraycolsep| on both sides.
%    \begin{macrocode}
\bool_new:N \l_@@_NiceMatrix_without_vlines_bool
%    \end{macrocode}
%
% \bigskip
% The following counter will count the environments |{NiceMatrixBlock}|.
%    \begin{macrocode}
\int_new:N \g_@@_NiceMatrixBlock_int
%    \end{macrocode}
%
% \bigskip
% It's possible to put tabular notes (with |\tabularnote|) in the caption if
% that caption is composed \emph{above} the tabular. In such case, we will count 
% in |\g_@@_notes_caption_int| the number of uses of the command
% |\tabularnote| \emph{without optional argument} in that caption.
%    \begin{macrocode}
\int_new:N \g_@@_notes_caption_int
%    \end{macrocode}
% 
% \bigskip
% The dimension |\l_@@_columns_width_dim| will be used when the options specify
% that all the columns must have the same width (but, if the key |columns-width|
% is used with the special value |auto|, the boolean
% |\l_@@_auto_columns_width_bool| also will be raised).
%    \begin{macrocode}
\dim_new:N \l_@@_columns_width_dim
%    \end{macrocode}
%
% \bigskip
% The dimension |\l_@@_col_width_dim| will be available in each cell which
% belongs to a column of fixed width: |w{...}{...}|, |W{...}{...}|, |p{...}|,
% |m{...}|, |b{...}| but also |X| (when the actual width of that column is known, that
% is to say after the first compilation). It's the width of that column. It will
% be used by some commands |\Block|. A non positive value means that the column
% has no fixed width (it's a column of type |c|, |r|, |l|, etc.).
%    \begin{macrocode}
\dim_new:N \l_@@_col_width_dim 
\dim_set:Nn \l_@@_col_width_dim { -1 cm }
%    \end{macrocode}
% 
% 
% \bigskip
% The following counters will be used to count the numbers of rows and columns
% of the array.
%    \begin{macrocode}
\int_new:N \g_@@_row_total_int
\int_new:N \g_@@_col_total_int
%    \end{macrocode}
%
% \bigskip
% The following parameter will be used by |\@@_create_row_node:| to avoid to
% create the same row-node twice (at the end of the array).
%    \begin{macrocode}
\int_new:N \g_@@_last_row_node_int 
%    \end{macrocode}
% 
% \bigskip
% The following counter corresponds to the key |nb-rows| of the command
% |\RowStyle|. 
%    \begin{macrocode}
\int_new:N \l_@@_key_nb_rows_int
%    \end{macrocode}
% 
% 
% \bigskip
% The following token list will contain the type of horizontal alignment of the
% current cell as provided by the corresponding column. The possible values are
% |r|, |l|, |c| and |j|. For example, a column |p[l]{3cm}| will provide the
% value |l| for all the cells of the column.
%    \begin{macrocode}
\tl_new:N \l_@@_hpos_cell_tl
\tl_set_eq:NN \l_@@_hpos_cell_tl \c_@@_c_tl
%    \end{macrocode}
%
% 
% \bigskip
% When there is a mono-column block (created by the command |\Block|), we want
% to take into account the width of that block for the width of the column.
% That's why we compute the width of that block in the |\g_@@_blocks_wd_dim|
% and, after the construction of the box |\l_@@_cell_box|, we change the width
% of that box to take into account the length |\g_@@_blocks_wd_dim|.
%    \begin{macrocode}
\dim_new:N \g_@@_blocks_wd_dim
%    \end{macrocode}
%
% \bigskip
% Idem for the mono-row blocks.
%    \begin{macrocode}
\dim_new:N \g_@@_blocks_ht_dim
\dim_new:N \g_@@_blocks_dp_dim
%    \end{macrocode}
% 
% \bigskip
% The following dimension correspond to the key |width| (which may be fixed in
% |\NiceMatrixOptions| but also in an environment |{NiceTabular}|).
%    \begin{macrocode}
\dim_new:N \l_@@_width_dim
%    \end{macrocode}
% 
% \bigskip
% The sequence |\g_@@_names_seq| will be the list of all the names of
% environments used (via the option |name|) in the document: two environments
% must not have the same name. However, it's possible to use the option
% |allow-duplicate-names|.
%    \begin{macrocode}
\seq_new:N \g_@@_names_seq
%    \end{macrocode}
%
% \bigskip
% We want to know whether we are in an environment of \pkg{nicematrix} because we
% will raise an error if the user tries to use nested environments.
%    \begin{macrocode}
\bool_new:N \l_@@_in_env_bool
%    \end{macrocode}
%
% \bigskip
% The following key corresponds to the key |notes/detect_duplicates|.
%    \begin{macrocode}
\bool_new:N \l_@@_notes_detect_duplicates_bool
\bool_set_true:N \l_@@_notes_detect_duplicates_bool
%    \end{macrocode}
%
% \bigskip
% If the user uses |{NiceTabular*}|, the width of the tabular (in the first
% argument of the environment |{NiceTabular*}|) will be stored in the following
% dimension.
%    \begin{macrocode}
\dim_new:N \l_@@_tabular_width_dim
%    \end{macrocode}
%
% \bigskip
% The following dimension will be used for the total width of composite rules
% (\emph{total} means that the spaces on both sides are included).
%    \begin{macrocode}
\dim_new:N \l_@@_rule_width_dim 
%    \end{macrocode}
%
% \bigskip
% The key |color| in a command of rule such as |\Hline| (or the specifier
% ``\verb+|+'' in the preamble of an environment).
%    \begin{macrocode}
\tl_new:N \l_@@_rule_color_tl
%    \end{macrocode}
% 
% \bigskip
% The following boolean will be raised when the command |\rotate| is used.
%    \begin{macrocode}
\bool_new:N \g_@@_rotate_bool
%    \end{macrocode}
%
%
% \bigskip
% The following boolean will be raise then the command |\rotate| is used with
% the key |c|.
%    \begin{macrocode}
\bool_new:N \g_@@_rotate_c_bool
%    \end{macrocode}
% 
% \bigskip
% In a cell, it will be possible to know whether we are in a cell of a column of
% type |X| thanks to that flag.
%    \begin{macrocode}
\bool_new:N \l_@@_X_bool 
%    \end{macrocode}
%
%    \begin{macrocode}
\bool_new:N \g_@@_caption_finished_bool
%    \end{macrocode}
% 
% \bigskip
% We will write in |\g_@@_aux_tl| all the instructions that we have to write on
% the |aux| file for the current environment. The contain of that token list
% will be written on the |aux| file at the end of the environment (in an
% instruction |\tl_gset:cn { c_@@_ \int_use:N \g_@@_env_int _ tl }|).
%    \begin{macrocode}
\tl_new:N \g_@@_aux_tl
%    \end{macrocode}  
%
% During the second run, if informations concerning the current environment has
% been found in the |aux| file, the following flag will be raised.
%    \begin{macrocode}
\bool_new:N \g_@@_aux_found_bool
%    \end{macrocode}
%
% \bigskip
% In particuler, in that |aux| file, there will be, for each environment of
% \pkg{nicematrix}, an affectation for the the following sequence that will
% contain informations about the size of the array.
%    \begin{macrocode}
\seq_new:N \g_@@_size_seq 
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\tl_new:N \g_@@_left_delim_tl 
\tl_new:N \g_@@_right_delim_tl
%    \end{macrocode}
%
% \bigskip
% The token list |\g_@@_user_preamble_tl| will contain the preamble provided by
% the the final user of \pkg{nicematrix} (eg the preamble of an environment
% |{NiceTabular}|). 
%    \begin{macrocode}
\tl_new:N \g_@@_user_preamble_tl
%    \end{macrocode}
% The token list |\g_@@_array_preamble_tl| will contain the preamble constructed
% by \pkg{nicematrix} for the environment |{array}| (of \pkg{array}).
%    \begin{macrocode}
\tl_new:N \g_@@_array_preamble_tl
%    \end{macrocode}
% For |\multicolumn|.
%    \begin{macrocode}
\tl_new:N \g_@@_preamble_tl
%    \end{macrocode}
% 
% \bigskip
% The following parameter corresponds to the key |columns-type| of the
% environments |{NiceMatrix}|, |{pNiceMatrix}|, etc. and also the key 
% |matrix / columns-type| of |\NiceMatrixOptions|. 
%    \begin{macrocode}
\tl_new:N \l_@@_columns_type_tl
\str_set:Nn \l_@@_columns_type_tl { c } 
%    \end{macrocode}
%
% \bigskip
% The following parameters correspond to the keys |down|, |up| and |middle| of a
% command such as |\Cdots|. Usually, the final user doesn't use that keys
% directly because he uses the syntax with the embellishments |_|, |^| and |:|.
%    \begin{macrocode}
\tl_new:N \l_@@_xdots_down_tl
\tl_new:N \l_@@_xdots_up_tl
\tl_new:N \l_@@_xdots_middle_tl
%    \end{macrocode}
% 
% \bigskip
% We will store in the following sequence informations provided by the
% instructions |\rowlistcolors| in the main array (not in the |\CodeBefore|). 
%    \begin{macrocode}
\seq_new:N \g_@@_rowlistcolors_seq
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_if_math_mode:
  { 
    \if_mode_math: \else:
      \@@_fatal:n { Outside~math~mode } 
    \fi:
  }
%    \end{macrocode}
%
% 
% The list of the columns where vertical lines in sub-matrices (vlism) must be
% drawn. Of course, the actual value of this sequence will be known after the
% analyse of the preamble of the array. 
%    \begin{macrocode}
\seq_new:N \g_@@_cols_vlism_seq
%    \end{macrocode}
% 
% \bigskip
% The following colors will be used to memorize the color of the potential ``first
% col'' and the potential ``first row''.
%    \begin{macrocode}
\colorlet { nicematrix-last-col } { . }
\colorlet { nicematrix-last-row } { . }
%    \end{macrocode}
% \bigskip
% The following string is the name of the current environment or the current
% command of \pkg{nicematrix} (despite its name which contains \textsl{env}).
%    \begin{macrocode}
\str_new:N \g_@@_name_env_str
%    \end{macrocode}
% 
% \bigskip
% The following string will contain the word \emph{command} or
% \emph{environment} whether we are in a command of \pkg{nicematrix} or in an
% environment of \pkg{nicematrix}. The default value is \emph{environment}.
%    \begin{macrocode} 
\tl_new:N \g_@@_com_or_env_str
\tl_gset:Nn \g_@@_com_or_env_str { environment }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\bool_new:N \l_@@_bold_row_style_bool
%    \end{macrocode}
% 
% \bigskip
% The following command will be able to reconstruct the full name of the current
% command or environment (despite its name which contains \textsl{env}). This
% command must \emph{not} be protected since it will be used in error messages
% and we have to use |\str_if_eq:eeTF| and not |\tl_if_eq:eeTF| because we need
% to be fully expandable). |\str_if_eq:ee(TF)| is faster than |\str_if_eq:nn(TF)|.
%    \begin{macrocode}
\cs_new:Npn \@@_full_name_env:
  { 
    \str_if_eq:eeTF \g_@@_com_or_env_str { command }
      { command \space \c_backslash_str \g_@@_name_env_str }
      { environment \space \{ \g_@@_name_env_str \} }
  }
%    \end{macrocode}
% 
% 
% \bigskip
% For the key |code| of the command |\SubMatrix| (itself in the main
% |\CodeAfter|), we will use the following token list.
%    \begin{macrocode}
\tl_new:N \l_@@_code_tl
%    \end{macrocode}
%
% \bigskip
% For the key |pgf-node-code|. That code will be used when the nodes of the
% cells (that is to say the nodes of the form |i-j|) will be created.
%    \begin{macrocode}
\tl_new:N \l_@@_pgf_node_code_tl
%    \end{macrocode}
% 
%
% \bigskip
% The so-called |\CodeBefore| is splitted in two parts because we want to control
% the order of execution of some instructions.
%    \begin{macrocode} 
\tl_new:N \g_@@_pre_code_before_tl
\tl_new:N \g_nicematrix_code_before_tl
%    \end{macrocode}
% The value of the key |code-before| will be added to the left of
% |\g_@@_pre_code_before_tl|. Idem for the code between |\CodeBefore| and
% |\Body|. 
% 
% \bigskip
% The so-called |\CodeAfter| is splitted in two parts because we want to control
% the order of execution of some instructions.
%    \begin{macrocode}
\tl_new:N \g_@@_pre_code_after_tl
\tl_new:N \g_nicematrix_code_after_tl
%    \end{macrocode}
% The |\CodeAfter| provided by the final user (with the key |code-after| or the
% keyword |\CodeAfter|) will be stored in the second token list.
%
% \bigskip
%    \begin{macrocode}
\bool_new:N \l_@@_in_code_after_bool
%    \end{macrocode}
% 
% 
% \bigskip
% The following parameter will be raised when a block content a |&| in its
% content (=label).
%    \begin{macrocode}
\bool_new:N \l_@@_ampersand_bool
%    \end{macrocode}
% 
% \bigskip
% The counters |\l_@@_old_iRow_int| and |\l_@@_old_jCol_int| will be used to
% save the values of the potential LaTeX counters |iRow| and |jCol|. These LaTeX
% counters will be restored at the end of the environment.
%    \begin{macrocode}
\int_new:N \l_@@_old_iRow_int
\int_new:N \l_@@_old_jCol_int
%    \end{macrocode}
% The TeX counters |\c@iRow| and |\c@jCol| will be created in the beginning of
% |{NiceArrayWithDelims}| (if they don't exist previously).
%
% \bigskip
% The following sequence will contain the names (without backslash) of the
% commands created by |custom-line| by the key |command| or |ccommand| (commands
% used by the final user in order to draw horizontal rules).
%    \begin{macrocode}
\seq_new:N \l_@@_custom_line_commands_seq
%    \end{macrocode}
% 
% \bigskip
% The following token list corresponds to the key |rules/color| available
% in the environments.
%    \begin{macrocode}
\tl_new:N \l_@@_rules_color_tl
%    \end{macrocode}
%
% \bigskip
% The sum of the weights of all the |X|-columns in the preamble. The weight of a
% |X|-column is given as an optional argument between square brackets. The
% default value, of course, is $1$.
%    \begin{macrocode}
\int_new:N \g_@@_total_X_weight_int
%    \end{macrocode}
% 
% If there is at least one |X|-column in the preamble of the array, the
% following flag will be raised via the |aux| file. The length
% |l_@@_x_columns_dim| will be the width of |X|-columns of weight $1$ (the width
% of a column of weigth $n$ will be that dimension multiplied by~$n$). That
% value is computed after the construction of the array during the first
% compilation in order to be used in the following run.
%    \begin{macrocode}
\bool_new:N \l_@@_X_columns_aux_bool
\dim_new:N \l_@@_X_columns_dim
%    \end{macrocode}
% 
% 
% \bigskip
% This boolean will be used only to detect in an expandable way whether we are
% at the beginning of the (potential) column zero, in order to raise an error if
% |\Hdotsfor| is used in that column.
%    \begin{macrocode}
\bool_new:N \g_@@_after_col_zero_bool
%    \end{macrocode}
% 
% \bigskip
% A kind of false row will be inserted at the end of the array for the
% construction of the |col| nodes (and also to fix the width of the columns when
% |columns-width| is used). When this special row will be created, we will raise
% the flag |\g_@@_row_of_col_done_bool| in order to avoid some actions set in
% the redefinition of |\everycr| when the last |\cr| of the |\halign| will occur
% (after that row of |col| nodes).
%    \begin{macrocode}
\bool_new:N \g_@@_row_of_col_done_bool
%    \end{macrocode}
%
% 
% \bigskip
% It's possible to use the command |\NotEmpty| to specify explicitely that a
% cell must be considered as non empty by \pkg{nicematrix} (the Tikz nodes are
% constructed only in the non empty cells).
%    \begin{macrocode}
\bool_new:N \g_@@_not_empty_cell_bool
%    \end{macrocode}
% 
% \bigskip
% The use of |\l_@@_code_before_tl| is not clear. Maybe that with the evolutions
% of \pkg{nicematrix}, it has become obsolete. We should have a look at that.
%    \begin{macrocode}
\tl_new:N \l_@@_code_before_tl
\bool_new:N \l_@@_code_before_bool
%    \end{macrocode} 
%
% 
% \bigskip
% The following token list will contain the code inserted in each cell of the
% current row (this token list will be cleared at the beginning of each row).
%    \begin{macrocode}
\tl_new:N \g_@@_row_style_tl
%    \end{macrocode}
% 
% \bigskip
% The following dimensions will be used when drawing the dotted lines.
%    \begin{macrocode}
\dim_new:N \l_@@_x_initial_dim
\dim_new:N \l_@@_y_initial_dim
\dim_new:N \l_@@_x_final_dim
\dim_new:N \l_@@_y_final_dim
%    \end{macrocode}
% 
% \bigskip
% The L3 programming layer provides scratch dimensions |\l_tmpa_dim| and
% |\l_tmpb_dim|. We creates several more in the same spirit.
%    \begin{macrocode}
\dim_new:N \l_@@_tmpc_dim 
\dim_new:N \l_@@_tmpd_dim
\dim_new:N \l_@@_tmpe_dim
\dim_new:N \l_@@_tmpf_dim
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\dim_new:N \g_@@_dp_row_zero_dim
\dim_new:N \g_@@_ht_row_zero_dim
\dim_new:N \g_@@_ht_row_one_dim
\dim_new:N \g_@@_dp_ante_last_row_dim
\dim_new:N \g_@@_ht_last_row_dim
\dim_new:N \g_@@_dp_last_row_dim
%    \end{macrocode}
% 
% \bigskip
% Some cells will be declared as ``empty'' (for example a cell with an
% instruction |\Cdots|).
%    \begin{macrocode}
\bool_new:N \g_@@_empty_cell_bool
%    \end{macrocode}
% 
% 
% \bigskip
% The following dimensions will be used internally to compute the width of the
% potential ``first column'' and ``last column''.
%    \begin{macrocode}
\dim_new:N \g_@@_width_last_col_dim
\dim_new:N \g_@@_width_first_col_dim
%    \end{macrocode}
%
% \bigskip
% The following sequence will contain the characteristics of the blocks of the
% array, specified by the command |\Block|. Each block is represented by 6
% components surrounded by curly braces:
%
% |{|\textsl{imin}|}{|\textsl{jmin}|}{|\textsl{imax}|}{|\textsl{jmax}|}{|\textsl{options}|}{|\textsl{contents}|}|.
%
% The variable is global because it will be modified in the cells of the array.
%    \begin{macrocode} 
\seq_new:N \g_@@_blocks_seq
%    \end{macrocode}
% We also manage a sequence of the \emph{positions} of the blocks. In that
% sequence, each block is represented by only five components:
% |{|\textsl{imin}|}{|\textsl{jmin}|}{|\textsl{imax}|}{|\textsl{jmax}|}{|%
% \textsl{name}|}|. A block with the key |hvlines| won't appear in that
% sequence (otherwise, the lines in that block would not be drawn!).
%    \begin{macrocode}
\seq_new:N \g_@@_pos_of_blocks_seq
%    \end{macrocode}
% In fact, this sequence will also contain the positions of the cells with a
% |\diagbox|. The sequence |\g_@@_pos_of_blocks_seq| will be used when we will
% draw the rules (which respect the blocks).
%
% \bigskip
% We will also manage a sequence for the positions of the dotted lines. These
% dotted lines are created in the array by |\Cdots|, |\Vdots|, |\Ddots|, etc.
% However, their positions, that is to say, their extremities, will be
% determined only after the construction of the array. In this sequence, each
% item contains five components: 
% |{|\textsl{imin}|}{|\textsl{jmin}|}{|\textsl{imax}|}{|\textsl{jmax}|}{|%
% \textsl{name}|}|.
%    \begin{macrocode}
\seq_new:N \g_@@_pos_of_xdots_seq
%    \end{macrocode}
% The sequence |\g_@@_pos_of_xdots_seq| will be used when we will draw the rules
% required by the key |hvlines| (these rules won't be drawn within the virtual
% blocks corresponding to the dotted lines).
%
% \medskip
% The final user may decide to ``stroke'' a block (using, for example, the key
% |draw=red!15| when using the command |\Block|). In that case, the rules
% specified, for instance, by |hvlines| must not be drawn around the block.
% That's why we keep the information of all that stroken blocks in the following
% sequence.
%    \begin{macrocode}
\seq_new:N \g_@@_pos_of_stroken_blocks_seq
%    \end{macrocode}
%
% 
% \medskip
% If the user has used the key |corners|, all the cells which are in an (empty)
% corner will be stored in the following list. We use a |clist| instead of a
% |seq| because we will frequently search in that list (and searching in a
% |clist| is faster than searching in a |seq|).
%    \begin{macrocode}
\clist_new:N \l_@@_corners_cells_clist
%    \end{macrocode}
% 
% \medskip
% The list of the names of the potential |\SubMatrix| in the |\CodeAfter| of an
% environment. Unfortunately, that list has to be global (we have to use it
% inside the group for the options of a given |\SubMatrix|).
%    \begin{macrocode}
\seq_new:N \g_@@_submatrix_names_seq
%    \end{macrocode}
% 
% \medskip
% The following flag will be raised if the key |width| is used in an environment
% |{NiceTabular}| (not in a command |\NiceMatrixOptions|). You use it to raise
% an error when this key is used while no column |X| is used.
%    \begin{macrocode}
\bool_new:N \l_@@_width_used_bool
%    \end{macrocode}
% 
% \medskip
% The sequence |\g_@@_multicolumn_cells_seq| will contain the list of the cells
% of the array where a command |\multicolumn{|$n$|}{...}{...}| with $n>1$ is
% issued. In |\g_@@_multicolumn_sizes_seq|, the ``sizes'' (that is to say the
% values of $n$) correspondant will be stored. These lists will be used for the
% creation of the ``medium nodes'' (if they are created). 
%    \begin{macrocode}
\seq_new:N \g_@@_multicolumn_cells_seq
\seq_new:N \g_@@_multicolumn_sizes_seq
%    \end{macrocode}
%
% \medskip
% The following counters will be used when searching the extremities of a dotted
% line (we need these counters because of the potential ``open'' lines in the
% |\SubMatrix|---the |\SubMatrix| in the |code-before|).
%    \begin{macrocode}
\int_new:N \l_@@_row_min_int
\int_new:N \l_@@_row_max_int
\int_new:N \l_@@_col_min_int
\int_new:N \l_@@_col_max_int
%    \end{macrocode}
% \medskip
% The following counters will be used when drawing the rules.
%    \begin{macrocode}
\int_new:N \l_@@_start_int
\int_set_eq:NN \l_@@_start_int \c_one_int
\int_new:N \l_@@_end_int 
\int_new:N \l_@@_local_start_int 
\int_new:N \l_@@_local_end_int 
%    \end{macrocode}
% 
% \medskip
% The following sequence will be used when the command |\SubMatrix| is used in
% the |\CodeBefore| (and not in the |\CodeAfter|). It will contain the position of
% all the sub-matrices specified in the |\CodeBefore|. Each sub-matrix is
% represented by an ``object'' of the form |{|$i$|}{|$j$|}{|$k$|}{|$l$|}| 
% where $i$ and $j$ are the number of row and column of the upper-left cell and 
% $k$ and $l$ the number of row and column of the lower-right cell.
%    \begin{macrocode}
\seq_new:N \g_@@_submatrix_seq
%    \end{macrocode}
% 
% \medskip
% We are able to determine the number of columns specified in the preamble (for
% the environments with explicit preamble of course and without the potential
% exterior columns).
%    \begin{macrocode}
\int_new:N \g_@@_static_num_of_col_int
%    \end{macrocode}
% 
% \medskip 
% The following parameters correspond to the keys |fill|, |opacity|, |draw|,
% |tikz|, |borders|, and |rounded-corners| of the command |\Block|.
%    \begin{macrocode}
\tl_new:N \l_@@_fill_tl
\tl_new:N \l_@@_opacity_tl 
\tl_new:N \l_@@_draw_tl
\seq_new:N \l_@@_tikz_seq
\clist_new:N \l_@@_borders_clist
\dim_new:N \l_@@_rounded_corners_dim
%    \end{macrocode}
% The last parameter has no direct link with the [empty] corners of the array
% (which are computed and taken into account by \pkg{nicematrix} when the key
% |corners| is used). 
% 
% \medskip
% The following dimension corresponds to the key |rounded-corners| available in
% an individual environment |{NiceTabular}|. When that key is used, a clipping
% is applied in the |\CodeBefore| of the environment in order to have rounded
% corners for the potential colored panels.
%    \begin{macrocode}
\dim_new:N \l_@@_tab_rounded_corners_dim
%    \end{macrocode}
% 
% \medskip
% The following token list correspond to the key |color| of the command |\Block|
% and also the key |color| of the command |\RowStyle|.
%    \begin{macrocode}
\tl_new:N \l_@@_color_tl
%    \end{macrocode}
%
% \medskip
% In the key |tikz| of a command |\Block| or in the argument of a command
% |\TikzEveryCell|, the final user puts a list of tikz keys. But, you have added
% another key, named |offset| (which means that an offset will be used for the
% frame of the block or the cell). The following parameter corresponds to that key.
%    \begin{macrocode}
\dim_new:N \l_@@_offset_dim 
%    \end{macrocode}
% 
% \medskip
% Here is the dimension for the width of the rule when a block (created by
% |\Block|) is stroked.
%    \begin{macrocode}
\dim_new:N \l_@@_line_width_dim
%    \end{macrocode}
% 
% \medskip
% The parameters of the horizontal position of the label of a block. If the user
% uses the key |c| or |C|, the value is |c|. If the user uses the key |l| or
% |L|, the value is |l|. If the user uses the key |r| or |R|, the value is |r|.
% If the user has used a capital letter, the boolean
% |\l_@@_hpos_of_block_cap_bool| will be raised (in the second pass of the
% analyze of the keys of the command |\Block|).
%    \begin{macrocode}
\str_new:N \l_@@_hpos_block_str
\str_set:Nn \l_@@_hpos_block_str { c }
\bool_new:N \l_@@_hpos_of_block_cap_bool
\bool_new:N \l_@@_p_block_bool
%    \end{macrocode}
%
% \medskip
% If the final user has used the special color ``|nocolor|'', the following flag 
% will be raised.
%    \begin{macrocode}
\bool_new:N \l_@@_nocolor_used_bool
%    \end{macrocode}
% 
% \medskip
% For the vertical position, the possible values are |c|, |t|, |b|, |T| and |B|
% (but |\l_@@_vpos_block_str| will remain empty if the user doesn't use a key
% for the vertical position).
%    \begin{macrocode}
\str_new:N \l_@@_vpos_block_str
%    \end{macrocode}
%
% 
% \medskip
% Used when the key |draw-first| is used for |\Ddots| or |\Iddots|.
%    \begin{macrocode}
\bool_new:N \l_@@_draw_first_bool
%    \end{macrocode}
%
% \medskip
% The following flag corresponds to the keys |vlines| and |hlines| of the
% command |\Block| (the key |hvlines| is the conjunction of both).
%    \begin{macrocode}
\bool_new:N \l_@@_vlines_block_bool
\bool_new:N \l_@@_hlines_block_bool
%    \end{macrocode}
% 
%
% \medskip
% The blocks which use the key |-| will store their content in a box. These
% boxes are numbered with the following counter.
%    \begin{macrocode}
\int_new:N \g_@@_block_box_int
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\dim_new:N \l_@@_submatrix_extra_height_dim
\dim_new:N \l_@@_submatrix_left_xshift_dim
\dim_new:N \l_@@_submatrix_right_xshift_dim
\clist_new:N \l_@@_hlines_clist 
\clist_new:N \l_@@_vlines_clist
\clist_new:N \l_@@_submatrix_hlines_clist 
\clist_new:N \l_@@_submatrix_vlines_clist 
%    \end{macrocode}
%
% \medskip
% The following key is set when the keys |hvlines| and |hvlines-except-borders|
% are used. It's used only to change slightly the clipping path set by the key
% |rounded-corners| (for a |{tabular}|).
%    \begin{macrocode}
\bool_new:N \l_@@_hvlines_bool
%    \end{macrocode}
%
%
% \bigskip
% The following flag will be used by (for instance) |\@@_vline_ii:|.
% When |\l_@@_dotted_bool| is |true|, a dotted line (with our system) will be drawn.
%    \begin{macrocode}
\bool_new:N \l_@@_dotted_bool
%    \end{macrocode}
%
% \bigskip
% The following flag will be set to true during the composition of a caption
% specified (by the key |caption|).
%    \begin{macrocode}
\bool_new:N \l_@@_in_caption_bool
%    \end{macrocode}
% 
% 
% \bigskip
% \textbf{Variables for the exterior rows and columns}\par\nobreak
%
% \medskip
% The keys for the exterior rows and columns are |first-row|, |first-col|,
% |last-row| and |last-col|. However, internally, these keys are not coded in a
% similar way. 
%
% \bigskip
% \begin{itemize} 
% \item \textbf{First row}\par\nobreak
% The integer |\l_@@_first_row_int| is the number of the first row of the
% array. The default value is $1$, but, if the option |first-row| is used,
% the value will be~$0$. 
%    \begin{macrocode}
\int_new:N \l_@@_first_row_int
\int_set:Nn \l_@@_first_row_int 1
%    \end{macrocode}
%
% \medskip
% \item \textbf{First column}\par\nobreak
% The integer |\l_@@_first_col_int| is the number of the first column of the
% array. The default value is $1$, but, if the option |first-col| is used, 
% the value will be~$0$. 
%    \begin{macrocode}
\int_new:N \l_@@_first_col_int
\int_set_eq:NN \l_@@_first_col_int \c_one_int
%    \end{macrocode}
% 
% \medskip
% \item \textbf{Last row}\par\nobreak
% The counter |\l_@@_last_row_int| is the number of the potential ``last row'',
% as specified by the key |last-row|. A value of $-2$ means that there is no
% ``last row''. A value of $-1$ means that there is a ``last row'' but we don't
% know the number of that row (the key |last-row| has been used without value
% and the actual value has not still been read in the |aux| file).
%    \begin{macrocode}
\int_new:N \l_@@_last_row_int 
\int_set:Nn \l_@@_last_row_int { -2 }
%    \end{macrocode}
%
% \smallskip
% If, in an environment like |{pNiceArray}|, the option |last-row| is used
% without value, we will globally raise the following flag. It will be used to
% know if we have, after the construction of the array, to write in the |aux|
% file the number of the ``last row''.\footnote{We can't use
% |\l_@@_last_row_int| for this usage because, if \pkg{nicematrix} has read its
% value from the |aux| file, the value of the counter won't be $-1$ any longer.}
%    \begin{macrocode}
\bool_new:N \l_@@_last_row_without_value_bool
%    \end{macrocode}
%
% \smallskip
% Idem for |\l_@@_last_col_without_value_bool|
%    \begin{macrocode}
\bool_new:N \l_@@_last_col_without_value_bool
%    \end{macrocode}
% 
% \medskip
% \item \textbf{Last column}\par\nobreak
%
% For the potential ``last column'', we use an integer. A value of $-2$ means
% that there is no last column. A value of $-1$ means that we are in an
% environment without preamble (e.g. |{bNiceMatrix}|) and there is a last column
% but we don't know its value because the user has used the option |last-col|
% without value. A value of $0$ means that the option |last-col| has been used
% in an environment with preamble (like |{pNiceArray}|): in this case, the key
% was necessary without argument. The command |\NiceMatrixOptions| also sets
% |\l_@@_last_col_int| to~$0$.
%    \begin{macrocode}
\int_new:N \l_@@_last_col_int
\int_set:Nn \l_@@_last_col_int { -2 }
%    \end{macrocode}
%
% However, we have also a boolean. Consider the following code: 
% \begin{center}
% \begin{BVerbatim}
% \begin{pNiceArray}{cc}[last-col]
% 1 & 2 \\
% 3 & 4
% \end{pNiceArray}
% \end{BVerbatim}
% \end{center}
% In such a code, the ``last column'' specified by the key |last-col| is not
% used. We want to be able to detect such a situation and we create a boolean
% for that job.
%    \begin{macrocode}
\bool_new:N \g_@@_last_col_found_bool
%    \end{macrocode}
% This boolean is set to |false| at the end of |\@@_pre_array_ii:|.
%
% \medskip
% In the last column, we will raise the following flag (it will be used by
% |\OnlyMainNiceMatrix|). 
%    \begin{macrocode}
\bool_new:N \l_@@_in_last_col_bool
%    \end{macrocode}
% \end{itemize}
%
% \bigskip 
% \textbf{Some utilities}
%
% \medskip
%    \begin{macrocode}
\cs_set_protected:Npn \@@_cut_on_hyphen:w #1-#2\q_stop
  {
%    \end{macrocode}
% Here, we use |\cs_set_nopar:Npn| instead of |\tl_set:Nn| for efficiency only.
%    \begin{macrocode}
    \cs_set_nopar:Npn \l_tmpa_tl { #1 }
    \cs_set_nopar:Npn \l_tmpb_tl { #2 }
  }
%    \end{macrocode}
%
% 
% The following takes as argument the name of a |clist| and which should be a
% list of intervals of integers. It \emph{expands} that list, that is to say,
% it replaces (by a sort of |mapcan| or |flat_map|) the interval by the explicit
% list of the integers.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_expand_clist:N #1 
  {
    \clist_if_in:NnF #1 { all }
      {
        \clist_clear:N \l_tmpa_clist 
        \clist_map_inline:Nn #1 
          {  
%    \end{macrocode}
% We recall thant |\tl_if_in:nnTF| is slightly faster than |\str_if_in:nnTF|.
%    \begin{macrocode}
            \tl_if_in:nnTF { ##1 } { - }
              { \@@_cut_on_hyphen:w ##1 \q_stop }
              { 
%    \end{macrocode}
% Here, we use |\cs_set_nopar:Npn| instead of |\tl_set:Nn| for efficiency only.
%    \begin{macrocode}
                \cs_set_nopar:Npn \l_tmpa_tl { ##1 } 
                \cs_set_nopar:Npn \l_tmpb_tl { ##1 } 
              }
            \int_step_inline:nnn \l_tmpa_tl \l_tmpb_tl 
              { \clist_put_right:Nn \l_tmpa_clist { ####1 } }
          }
        \tl_set_eq:NN #1 \l_tmpa_clist
      }
  }
%    \end{macrocode}
%
% \bigskip
% The following internal parameters are for:
% \begin{itemize}
% \item |\Ldots| \emph{with both extremities open} (and hence also |\Hdotsfor| in an
% exterior row;
% \item |\Vdots| \emph{with both extremities open} (and hence also |\Vdotsfor| in an 
% exterior column;
% \item when the special character ``|:|'' is used in order to put the label of
% a so-called ``dotted line'' \emph{on the line}, a margin of
% |\c_@@_innersep_middle_dim| will be added around the label.
% \end{itemize}
% 
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  { 
    \dim_const:Nn \c_@@_shift_Ldots_last_row_dim { 0.5 em } 
    \dim_const:Nn \c_@@_shift_exterior_Vdots_dim { 0.6 em } 
    \dim_const:Nn \c_@@_innersep_middle_dim { 0.17 em }
  }
%    \end{macrocode}
% 
%
% \bigskip
% \section{The command \textbackslash tabularnote}
%
% \bigskip
% Of course, it's possible to use |\tabularnote| in the main tabular. But there
% is also the possibility to use that command in the caption of the tabular. And
% the caption may be specified by two means:
%
% \begin{itemize}
% \item The caption may of course be provided by the command |\caption| in a
% floating environment. Of course, a command |\tabularnote| in that |\caption| 
% makes sens only if the |\caption| is \emph{before} the |{tabular}|.
% \item It's also possible to use |\tabularnote| in the value of the key
% |caption| of the |{NiceTabular}| when the key |caption-above| is in force.
% However, in that case, one must remind that the caption is composed
% \emph{after} the composition of the box which contains the main tabular
% (that's mandatory since that caption must be wrapped with a line width equal
% to the width ot the tabular). However, we want the labels of the successive
% tabular notes in the logical order. That's why:
% \begin{itemize}
% \item The number of tabular notes present in the caption will be written on
% the |aux| file and available in |\g_@@_notes_caption_int|.\footnote{More
% precisely, it's the number of tabular notes which do not use the optional
% argument of |\tabularnote|.}
% \item During the composition of the main tabular, the tabular notes will be
% numbered from |\g_@@_notes_caption_int|+1 and the notes will be stored in
% |\g_@@_notes_seq|. Each component of |\g_@@_notes_seq| will be a kind of
% couple of the form : \texttt{\{\textsl{label}\}\{\textsl{text of the
% tabularnote}\}}. The first component is the optional argument (between square
% brackets) of the command |\tabularnote| (if the optional argument is not used,
% the value will be the special marker expressed by |\c_novalue_tl|).
% \item During the composition of the caption (value of |\l_@@_caption_tl|), the
% tabular notes will be numbered from $1$ to |\g_@@_notes_caption_int| and the
% notes themselves will be stored in |\g_@@_notes_in_caption_seq|. The structure
% of the components of that sequence will be the same as for |\g_@@_notes_seq|.
% \item After the composition of the main tabular and after the composition of
% the caption, the sequences |\g_@@_notes_in_caption_seq| and |\g_@@_notes_seq|
% will be merged (in that order) and the notes will be composed.
% \end{itemize}
% \end{itemize}
% 
% 
% \bigskip
% The LaTeX counter |tabularnote| will be used to count the tabular notes during
% the construction of the array (this counter won't be used during the
% composition of the notes at the end of the array). You use a LaTeX counter
% because we will use |\refstepcounter| in order to have the tabular notes
% referenceable.
%    \begin{macrocode}
\newcounter { tabularnote }
%    \end{macrocode}
%
% We want to avoid error messages for duplicate labels when the package
% \pkg{hyperref} is used. That's why we will count all the tabular notes of the
% whole document with |\g_@@_tabularnote_int|.
%    \begin{macrocode}
\int_new:N \g_@@_tabularnote_int 
\cs_set:Npn \theHtabularnote { \int_use:N \g_@@_tabularnote_int } 
%    \end{macrocode}
%
%    \begin{macrocode}
\seq_new:N \g_@@_notes_seq
\seq_new:N \g_@@_notes_in_caption_seq
%    \end{macrocode}
%
% \bigskip
% Before the actual tabular notes, it's possible to put a text
% specified by the key |tabularnote| of the environment. The token list
% |\g_@@_tabularnote_tl| corresponds to the value of that key.
%    \begin{macrocode}
\tl_new:N \g_@@_tabularnote_tl
%    \end{macrocode}
% 
% \bigskip
% We prepare the tools for the formatting of the references of the footnotes (in
% the tabular itself). There may have several references of footnote at the same
% point and we have to take into account that point.
%    \begin{macrocode}
\seq_new:N \l_@@_notes_labels_seq
\newcounter { nicematrix_draft }
\cs_new_protected:Npn \@@_notes_format:n #1
  { 
    \setcounter { nicematrix_draft } { #1 }
    \@@_notes_style:n { nicematrix_draft }
  }
%    \end{macrocode}
% 
% \bigskip
% The following function can be redefined by using the key |notes/style|.
%    \begin{macrocode}
\cs_new:Npn \@@_notes_style:n #1 { \textit { \alph { #1 } } }
%    \end{macrocode}
% 
% \bigskip
% The following fonction can be redefined by using the key
% |notes/label-in-tabular|. 
%    \begin{macrocode}
\cs_new:Npn \@@_notes_label_in_tabular:n #1 { \textsuperscript { #1 } } 
%    \end{macrocode}
%
% \bigskip
% The following function can be redefined by using the key |notes/label-in-list|.
%    \begin{macrocode}
\cs_new:Npn \@@_notes_label_in_list:n #1 { \textsuperscript { #1 } } 
%    \end{macrocode}
% 
% \bigskip
% We define |\thetabularnote| because it will be used by LaTeX if the user want
% to reference a tabular  which has been marked by a |\label|. The TeX group is
% for the case where the user has put an instruction such as |\color{red}| in
% |\@@_notes_style:n|.
%    \begin{macrocode}
\cs_set:Npn \thetabularnote { { \@@_notes_style:n { tabularnote } } }
%    \end{macrocode}
%
% \bigskip
% The tabular notes will be available for the final user only when
% \pkg{enumitem} is loaded. Indeed, the tabular notes will be composed at the end
% of the array with a list customized by \pkg{enumitem} (a list |tabularnotes|
% in the general case and a list |tabularnotes*| if the key |para| is in force).
% However, we can test whether \pkg{enumitem} has been loaded only at the
% beginning of the document (we want to allow the user to load \pkg{enumitem}
% after \pkg{nicematrix}).
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \IfPackageLoadedTF { enumitem }
      { 
%    \end{macrocode}
% The type of list |tabularnotes| will be used to format the tabular notes at
% the end of the array in the general case and |tabularnotes*| will be used if
% the key |para| is in force.
%    \begin{macrocode}
        \newlist { tabularnotes } { enumerate } { 1 }
        \setlist [ tabularnotes ]
          {
            topsep = 0pt ,
            noitemsep , 
            leftmargin = * , 
            align = left , 
            labelsep = 0pt ,
            label = 
              \@@_notes_label_in_list:n { \@@_notes_style:n { tabularnotesi } } , 
          }
        \newlist { tabularnotes* } { enumerate* } { 1 }
        \setlist [ tabularnotes* ]
          { 
            afterlabel = \nobreak , 
            itemjoin = \quad ,
            label = 
              \@@_notes_label_in_list:n { \@@_notes_style:n { tabularnotes*i } }
          }
%    \end{macrocode}
% 
% \bigskip
% One must remind that we have allowed a |\tabular| in the caption and
% that caption may also be found in the list of tables (|\listoftables|). We
% want the command |\tabularnote| be no-op during the composition of that list.
% That's why we program |\tabularnote| to be no-op excepted in a floating
% environment or in an environment of \pkg{nicematrix}.
%    \begin{macrocode}
        \NewDocumentCommand \tabularnote { o m }
          {
            \bool_lazy_or:nnT { \cs_if_exist_p:N \@captype } \l_@@_in_env_bool 
              { 
                \bool_lazy_and:nnTF { ! \l_@@_tabular_bool } \l_@@_in_env_bool 
                  { \@@_error:n { tabularnote~forbidden } }
                  {
                    \bool_if:NTF \l_@@_in_caption_bool
                      \@@_tabularnote_caption:nn
                      \@@_tabularnote:nn 
                    { #1 } { #2 } 
                  }
              }
          }
      }
      { 
        \NewDocumentCommand \tabularnote { o m }
          { 
            \@@_error_or_warning:n { enumitem~not~loaded } 
            \@@_gredirect_none:n { enumitem~not~loaded } 
          }
      }
  }    
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_first_novalue:nnn #1 #2 #3
  { \tl_if_novalue:nT { #1 } { #3 } }
%    \end{macrocode}
%
% \bigskip 
% For the version in normal conditions, that is to say not in the |caption|.
% |#1| is the optional argument of |\tabularnote| (maybe equal to the special
% marker expressed by |\c_novalue_tl|) and |#2| is the mandatory argument of
% |\tabularnote|. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_tabularnote:nn #1 #2
  {
%    \end{macrocode}
% You have to see whether the argument of |\tabularnote| has yet been used as
% argument of another |\tabularnote| in the same tabular. In that case, there
% will be only one note (for both commands |\tabularnote|) at the end of the
% tabular. We search the argument of our command |\tabularnote| in 
% |\g_@@_notes_seq|. The position in the sequence will be stored in
% |\l_tmpa_int| (0 if the text is not in the sequence yet).
%    \begin{macrocode}
    \int_zero:N \l_tmpa_int
    \bool_if:NT \l_@@_notes_detect_duplicates_bool
      {
%    \end{macrocode}
% We recall that each component of |\g_@@_notes_seq| is a kind of couple of the form
% \begin{center}
% \texttt{\{\textsl{label}\}\{\textsl{text of the tabularnote}\}}.
% \end{center}
% If the user have used |\tabularnote| without the optional argument, the
% \texttt{\textsl{label}} will be the special marker expressed by |\c_novalue_tl|.
%
% When we will go through the sequence |\g_@@_notes_seq|, we will count in
% |\l_tmpb_int| the notes without explicit label in order to have the
% ``current'' value of the counter |\c@tabularnote|.
%    \begin{macrocode}
        \int_zero:N \l_tmpb_int
        \seq_map_indexed_inline:Nn \g_@@_notes_seq
          {
            \@@_test_first_novalue:nnn ##2 { \int_incr:N \l_tmpb_int }
            \tl_if_eq:nnT { { #1 } { #2 } } { ##2 } 
              {
                \tl_if_novalue:nTF { #1 } 
                  { \int_set_eq:NN \l_tmpa_int \l_tmpb_int }
                  { \int_set:Nn \l_tmpa_int { ##1 }  }
                \seq_map_break: 
              }
          }
        \int_if_zero:nF \l_tmpa_int 
          { \int_add:Nn \l_tmpa_int \g_@@_notes_caption_int }
      }
    \int_if_zero:nT \l_tmpa_int 
      {
        \seq_gput_right:Nn \g_@@_notes_seq { { #1 } { #2 } } 
        \tl_if_novalue:nT { #1 } { \int_gincr:N \c@tabularnote }
      }
    \seq_put_right:Ne \l_@@_notes_labels_seq
      {
        \tl_if_novalue:nTF { #1 }
          {
            \@@_notes_format:n
              {
                \int_eval:n 
                  { 
                    \int_if_zero:nTF \l_tmpa_int 
                      \c@tabularnote 
                      \l_tmpa_int  
                  }
              }
          }
          { #1 }
     }
    \peek_meaning:NF \tabularnote
      {
%    \end{macrocode}
% If the following token is \emph{not} a |\tabularnote|, we have finished the
% sequence of successive commands |\tabularnote| and we have to format the
% labels of these tabular notes (in the array). We compose those labels in a box
% |\l_tmpa_box| because we will do a special construction in order to have this
% box in an overlapping position if we are at the end of a cell when
% |\l_@@_hpos_cell_tl| is equal to |c| or |r|.
%    \begin{macrocode}
        \hbox_set:Nn \l_tmpa_box 
          { 
%    \end{macrocode}
% We remind that it is the command |\@@_notes_label_in_tabular:n| that will
% put the labels in a |\textsuperscript|.
%    \begin{macrocode}
            \@@_notes_label_in_tabular:n 
              { 
                \seq_use:Nnnn 
                  \l_@@_notes_labels_seq { , } { , } { , }
              } 
          }
%    \end{macrocode}
% We want the (last) tabular note referenceable (with the standard command |\label|).
%    \begin{macrocode}
        \int_gdecr:N \c@tabularnote
        \int_set_eq:NN \l_tmpa_int \c@tabularnote
%    \end{macrocode}
% The following line is only to avoid error messages for multipy defined labels
% when the package \pkg{hyperref} is used.
%    \begin{macrocode}
        \int_gincr:N \g_@@_tabularnote_int
        \refstepcounter { tabularnote } 
        \int_compare:nNnT \l_tmpa_int = \c@tabularnote
          { \int_gincr:N \c@tabularnote }
        \seq_clear:N \l_@@_notes_labels_seq 
        \bool_lazy_or:nnTF
          { \str_if_eq_p:ee \l_@@_hpos_cell_tl { c } }
          { \str_if_eq_p:ee \l_@@_hpos_cell_tl { r } }
          {
            \hbox_overlap_right:n { \box_use:N \l_tmpa_box }
%    \end{macrocode}
% If the command |\tabularnote| is used exactly at the end of the cell, the
% |\unskip| (inserted by \pkg{array}?) will delete the skip we insert now
% and the label of the footnote will be composed in an overlapping position (by
% design). 
%    \begin{macrocode}
            \skip_horizontal:n { \box_wd:N \l_tmpa_box }
          }
          { \box_use:N \l_tmpa_box }
      }
  } 
%    \end{macrocode}
%
% \bigskip
% Now the version when the command is used in the key |caption|. The main
% difficulty is that the argument of the command |\caption| is composed several
% times. In order to know the number of commands |\tabularnote| in the caption,
% we will consider that there should not be the same tabular note twice in the
% caption (in the main tabular, it's possible). Once we have found a tabular
% note which has yet been encountered, we consider that you are in a new
% composition of the argument of |\caption|. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_tabularnote_caption:nn #1 #2
  {
    \bool_if:NTF \g_@@_caption_finished_bool
      {
        \int_compare:nNnT \c@tabularnote = \g_@@_notes_caption_int
          { \int_gzero:N \c@tabularnote }
%    \end{macrocode}
% Now, we try to detect duplicate notes in the caption.
% Be careful! We must put |\tl_if_in:NnF| and not |\tl_if_in:NnT|!
%    \begin{macrocode}
        \seq_if_in:NnF \g_@@_notes_in_caption_seq { { #1 } { #2 } }
          { \@@_error:n { Identical~notes~in~caption } }
      }
      {
%    \end{macrocode}
% In the following code, we are in the first composition of the caption or at
% the first |\tabularnote| of the second composition. 
%    \begin{macrocode}
        \seq_if_in:NnTF \g_@@_notes_in_caption_seq { { #1 } { #2 } }
          {
%    \end{macrocode}
% Now, we know that are in the second composition of the caption since we are
% reading a tabular note which has yet been read. Now, the value of
% |\g_@@_notes_caption_int| won't change anymore: it's the number of uses
% \emph{without optional argument} of the command |\tabularnote| in the caption.
%    \begin{macrocode}
            \bool_gset_true:N \g_@@_caption_finished_bool
            \int_gset_eq:NN \g_@@_notes_caption_int \c@tabularnote
            \int_gzero:N \c@tabularnote 
          }
          { \seq_gput_right:Nn \g_@@_notes_in_caption_seq { { #1 } { #2 } } }  
      }
%    \end{macrocode}
% Now, we will compose the label of the footnote (in the caption). Even if we
% are not in the first composition, we have to compose that label!
%    \begin{macrocode}
    \tl_if_novalue:nT { #1 } { \int_gincr:N \c@tabularnote }
    \seq_put_right:Ne \l_@@_notes_labels_seq
      { 
        \tl_if_novalue:nTF { #1 }
          { \@@_notes_format:n { \int_use:N \c@tabularnote } }
          { #1 } 
      }
    \peek_meaning:NF \tabularnote
      {
        \@@_notes_label_in_tabular:n 
          { \seq_use:Nnnn \l_@@_notes_labels_seq { , } { , } { , } } 
        \seq_clear:N \l_@@_notes_labels_seq 
      }
  }
%    \end{macrocode}
%      
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_count_novalue_first:nn #1 #2 
  { \tl_if_novalue:nT { #1 } { \int_gincr:N \g_@@_notes_caption_int } }
%    \end{macrocode}
% 
% 
% \section{Command for creation of rectangle nodes}
% 
% The following command should be used in a |{pgfpicture}|. It creates a
% rectangle (empty but with a name).
% 
% |#1| is the name of the node which will be created;
% |#2| and |#3| are the coordinates of one of the corner of the rectangle;
% |#4| and |#5| are the coordinates of the opposite corner.
%   \begin{macrocode}
\cs_new_protected:Npn \@@_pgf_rect_node:nnnnn #1 #2 #3 #4 #5
  {
    \begin { pgfscope }
    \pgfset
      {
        inner~sep = \c_zero_dim ,
        minimum~size = \c_zero_dim 
      }
    \pgftransformshift { \pgfpoint { 0.5 * ( #2 + #4 ) } { 0.5 * ( #3 + #5 ) } } 
    \pgfnode
      { rectangle }
      { center }
      { 
        \vbox_to_ht:nn 
          { \dim_abs:n { #5 - #3 } }
          { 
            \vfill
            \hbox_to_wd:nn { \dim_abs:n { #4 - #2 } } { }
          }   
      }
      { #1 }
      { }
    \end { pgfscope }
  } 
%    \end{macrocode}
%
% \medskip
% The command |\@@_pgf_rect_node:nnn| is a variant of |\@@_pgf_rect_node:nnnnn|:
% it takes two \textsc{pgf} points as arguments instead of the four dimensions
% which are the coordinates.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_pgf_rect_node:nnn #1 #2 #3
  {
    \begin { pgfscope }
    \pgfset
      {
        inner~sep = \c_zero_dim ,
        minimum~size = \c_zero_dim 
      }
    \pgftransformshift { \pgfpointscale { 0.5 } { \pgfpointadd { #2 } { #3 } } } 
    \pgfpointdiff { #3 } { #2 }
    \pgfgetlastxy \l_tmpa_dim \l_tmpb_dim 
    \pgfnode
      { rectangle }
      { center }
      { 
        \vbox_to_ht:nn 
          { \dim_abs:n \l_tmpb_dim }
          { \vfill \hbox_to_wd:nn { \dim_abs:n \l_tmpa_dim } { } } 
      }
      { #1 }
      { }
    \end { pgfscope }
  }
%    \end{macrocode}
%
% 
% \bigskip 
% \section{The options}
% 
% The following parameter corresponds to the keys |caption|, |short-caption| and
% |label| of the environment |{NiceTabular}|. 
%    \begin{macrocode}
\tl_new:N \l_@@_caption_tl
\tl_new:N \l_@@_short_caption_tl 
\tl_new:N \l_@@_label_tl
%    \end{macrocode}
%
% \bigskip
% The following parameter corresponds to the key |caption-above| of
% |\NiceMatrixOptions|. When this paremeter is |true|, the captions of the
% environments |{NiceTabular}|, specified with the key |caption| are put above
% the tabular (and below elsewhere).
%    \begin{macrocode}
\bool_new:N \l_@@_caption_above_bool
%    \end{macrocode}
% 
% \bigskip
% By default, the behaviour of |\cline| is changed in the environments of
% \pkg{nicematrix}: a |\cline| spreads the array by an amount equal to
% |\arrayrulewidth|. It's possible to disable this feature with the key
% |\l_@@_standard_line_bool|. 
%    \begin{macrocode}
\bool_new:N \l_@@_standard_cline_bool
%    \end{macrocode}
% 
% \bigskip
% The following dimensions correspond to the options |cell-space-top-limit| and co
% (these parameters are inspired by the package \pkg{cellspace}). 
%    \begin{macrocode}
\dim_new:N \l_@@_cell_space_top_limit_dim
\dim_new:N \l_@@_cell_space_bottom_limit_dim
%    \end{macrocode}
%
% \bigskip
% The following parameter corresponds to the key |xdots/horizontal_labels|.
%    \begin{macrocode}
\bool_new:N \l_@@_xdots_h_labels_bool
%    \end{macrocode}
% \bigskip
% The following dimension is the distance between two dots for the dotted lines
% (when |line-style| is equal to |standard|, which is the initial value). The
% initial value is 0.45~em but it will be changed if the option |small| is used.
%    \begin{macrocode}
\dim_new:N \l_@@_xdots_inter_dim
\hook_gput_code:nnn { begindocument } { . } 
  { \dim_set:Nn \l_@@_xdots_inter_dim { 0.45 em } }
%    \end{macrocode}
% The unit is |em| and that's why we fix the dimension after the preamble.
%
% \bigskip
% The following dimension is the distance between a node (in fact an
% anchor of that node) and a dotted line (for real dotted lines, the actual
% distance may, of course, be a bit larger, depending of the exact position of
% the dots).
%    \begin{macrocode}
\dim_new:N \l_@@_xdots_shorten_start_dim
\dim_new:N \l_@@_xdots_shorten_end_dim
\hook_gput_code:nnn { begindocument } { . } 
  { 
    \dim_set:Nn \l_@@_xdots_shorten_start_dim { 0.3 em } 
    \dim_set:Nn \l_@@_xdots_shorten_end_dim { 0.3 em } 
  }
%    \end{macrocode}
% The unit is |em| and that's why we fix the dimension after the preamble.
% 
% \bigskip
% The following dimension is the radius of the dots for the dotted lines (when
% |line-style| is equal to |standard|, which is the initial value). The initial
% value is 0.53~pt but it will be changed if the option |small| is used.
%    \begin{macrocode}
\dim_new:N \l_@@_xdots_radius_dim
\hook_gput_code:nnn { begindocument } { . } 
  { \dim_set:Nn \l_@@_xdots_radius_dim { 0.53 pt } }
%    \end{macrocode}
% The unit is |em| and that's why we fix the dimension after the preamble.
%
%
% \bigskip
% The token list |\l_@@_xdots_line_style_tl| corresponds to the option |tikz| of the
% commands |\Cdots|, |\Ldots|, etc. and of the options |line-style| for the
% environments and |\NiceMatrixOptions|. The constant |\c_@@_standard_tl| will
% be used in some tests.
%    \begin{macrocode}
\tl_new:N \l_@@_xdots_line_style_tl
\tl_const:Nn \c_@@_standard_tl { standard }
\tl_set_eq:NN \l_@@_xdots_line_style_tl \c_@@_standard_tl
%    \end{macrocode}
%
% \bigskip
% The boolean |\l_@@_light_syntax_bool| corresponds to the option |light-syntax|
% and the boolean |\l_@@_light_syntax_expanded_bool| correspond to the the
% option |light-syntax-expanded|.
%    \begin{macrocode}
\bool_new:N \l_@@_light_syntax_bool
\bool_new:N \l_@@_light_syntax_expanded_bool
%    \end{macrocode}
% 
% \bigskip
% The string |\l_@@_baseline_tl| may contain one of the three values |t|,
% |c| or |b| as in the option of the environment |{array}|. However, it may also
% contain \textbf{an integer} (which represents the number of the row to which
% align the array). 
%    \begin{macrocode}
\tl_new:N \l_@@_baseline_tl 
\tl_set:Nn \l_@@_baseline_tl { c }
%    \end{macrocode}
%
% \bigskip
% The following parameter corresponds to the key |ampersand-in-blocks|
%    \begin{macrocode}
\bool_new:N \l_@@_amp_in_blocks_bool
%    \end{macrocode}
% 
% \bigskip
% The flag |\l_@@_exterior_arraycolsep_bool| corresponds to the option
% |exterior-arraycolsep|. If this option is set, a space equal to |\arraycolsep|
% will be put on both sides of an environment |{NiceArray}| (as it is done in
% |{array}| of \pkg{array}).
%    \begin{macrocode}
\bool_new:N \l_@@_exterior_arraycolsep_bool
%    \end{macrocode}
%
% \bigskip
% The flag |\l_@@_parallelize_diags_bool| controls whether the diagonals are
% parallelized. The initial value is~|true|.
%    \begin{macrocode}
\bool_new:N \l_@@_parallelize_diags_bool
\bool_set_true:N \l_@@_parallelize_diags_bool
%    \end{macrocode}
%
% \bigskip
% The following parameter correspond to the key |corners|. The elements of that
% |clist| must be within |NW|, |SW|, |NE| and |SE|.
%    \begin{macrocode}
\clist_new:N \l_@@_corners_clist
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\dim_new:N \l_@@_notes_above_space_dim 
\hook_gput_code:nnn { begindocument } { . } 
  { \dim_set:Nn \l_@@_notes_above_space_dim { 1 mm } }
%    \end{macrocode}
% We use a hook only by security in case \cls{revtex4-1} is used (even though it
% is obsolete).
% 
% \bigskip
% The flag |\l_@@_nullify_dots_bool| corresponds to the option |nullify-dots|.
% When the flag is down, the instructions like |\vdots| are inserted within a
% |\hphantom| (and so the constructed matrix has exactly the same size as a
% matrix constructed with the classical |{matrix}| and |\ldots|, |\vdots|,
% etc.). 
%    \begin{macrocode}
\bool_new:N \l_@@_nullify_dots_bool
%    \end{macrocode}
%
% \medskip
% When the key |respect-arraystretch| is used, the following command will be nullified.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_reset_arraystretch:
  { \cs_set_nopar:Npn \arraystretch { 1 } }
%    \end{macrocode}
%
%
% \bigskip
% The following flag will be used when the current options specify that all the
% columns of the array must have the same width equal to the largest width of a
% cell of the array (except the cells of the potential exterior columns).
%    \begin{macrocode}
\bool_new:N \l_@@_auto_columns_width_bool
%    \end{macrocode}
%
% \bigskip
% The following boolean corresponds to the key |create-cell-nodes| of the
% keyword |\CodeBefore|.
%    \begin{macrocode}
\bool_new:N \g_@@_recreate_cell_nodes_bool 
%    \end{macrocode}
% 
% \bigskip
% The string |\l_@@_name_str| will contain the optional name of the
% environment: this name can be used to access to the Tikz nodes created in the
% array from outside the environment.  
%    \begin{macrocode}
\str_new:N \l_@@_name_str
%    \end{macrocode}
%
% \bigskip
% The boolean |\l_@@_medium_nodes_bool| will be used to indicate whether the
% ``medium nodes'' are created in the array. Idem for the ``large nodes''.
%    \begin{macrocode}
\bool_new:N \l_@@_medium_nodes_bool
\bool_new:N \l_@@_large_nodes_bool
%    \end{macrocode}
%
% \bigskip
% The boolean |\l_@@_except_borders_bool| will be raised when the key
% |hvlines-except-borders| will be used (but that key has also other effects).
%    \begin{macrocode}
\bool_new:N \l_@@_except_borders_bool
%    \end{macrocode}
% 
%
% \bigskip
% The dimension |\l_@@_left_margin_dim| correspond to the option |left-margin|.
% Idem for the right margin. These parameters are involved in the creation of
% the ``medium nodes'' but also in the placement of the delimiters and the
% drawing of the horizontal dotted lines (|\hdottedline|).
%    \begin{macrocode}
\dim_new:N \l_@@_left_margin_dim
\dim_new:N \l_@@_right_margin_dim
%    \end{macrocode}
%
%                              
% \bigskip
% The dimensions |\l_@@_extra_left_margin_dim| and
% |\l_@@_extra_right_margin_dim| correspond to the options |extra-left-margin|
% and |extra-right-margin|.  
%    \begin{macrocode}
\dim_new:N \l_@@_extra_left_margin_dim
\dim_new:N \l_@@_extra_right_margin_dim
%    \end{macrocode}
% 
% \medskip
% The token list |\l_@@_end_of_row_tl| corresponds to the option |end-of-row|.
% It specifies the symbol used to mark the ends of rows when the light syntax is
% used. 
%    \begin{macrocode}
\tl_new:N \l_@@_end_of_row_tl
\tl_set:Nn \l_@@_end_of_row_tl { ; }
%    \end{macrocode}
%
% \medskip
% The following parameter is for the color the dotted lines drawn by |\Cdots|,
% |\Ldots|, |\Vdots|, |\Ddots|, |\Iddots| and |\Hdotsfor| but \emph{not} the
% dotted lines drawn by |\hdottedline| and ``|:|''.
%    \begin{macrocode} 
\tl_new:N \l_@@_xdots_color_tl
%    \end{macrocode}
% 
% \bigskip
% The following token list corresponds to the key |delimiters/color|.
%    \begin{macrocode}
\tl_new:N \l_@@_delimiters_color_tl
%    \end{macrocode}
%
% 
% \bigskip
% Sometimes, we want to have several arrays vertically juxtaposed in order to
% have an alignment of the columns of these arrays. To acheive this goal, one
% may wish to use the same width for all the columns (for example with the
% option |columns-width| or the option |auto-columns-width| of the environment
% |{NiceMatrixBlock}|). However, even if we use the same type of delimiters, the
% width of the delimiters may be different from an array to another because the
% width of the delimiter is fonction of its size. That's why we create an option
% called |delimiters/max-width| which will give to the delimiters the width of
% a delimiter (of the same type) of big size. The following boolean corresponds
% to this option.
%    \begin{macrocode}
\bool_new:N \l_@@_delimiters_max_width_bool
%    \end{macrocode}
% 
%
% \bigskip
%    \begin{macrocode}
\keys_define:nn { nicematrix / xdots }
  {
    shorten-start .code:n = 
      \hook_gput_code:nnn { begindocument } { . } 
        { \dim_set:Nn \l_@@_xdots_shorten_start_dim { #1 } } ,
    shorten-end .code:n = 
      \hook_gput_code:nnn { begindocument } { . } 
        { \dim_set:Nn \l_@@_xdots_shorten_end_dim { #1 } } ,
    shorten-start .value_required:n = true ,
    shorten-end .value_required:n = true ,
    shorten .code:n = 
      \hook_gput_code:nnn { begindocument } { . } 
        { 
          \dim_set:Nn \l_@@_xdots_shorten_start_dim { #1 } 
          \dim_set:Nn \l_@@_xdots_shorten_end_dim { #1 } 
        } ,
    shorten .value_required:n = true ,
    horizontal-labels .bool_set:N = \l_@@_xdots_h_labels_bool , 
    horizontal-labels .default:n = true , 
    line-style .code:n = 
      { 
        \bool_lazy_or:nnTF 
          { \cs_if_exist_p:N \tikzpicture }
          { \str_if_eq_p:nn { #1 } { standard } }
          { \tl_set:Nn \l_@@_xdots_line_style_tl { #1 } } 
          { \@@_error:n { bad~option~for~line-style } } 
      } ,
    line-style .value_required:n = true ,
    color .tl_set:N = \l_@@_xdots_color_tl ,
    color .value_required:n = true ,
    radius .code:n = 
      \hook_gput_code:nnn { begindocument } { . } 
        { \dim_set:Nn \l_@@_xdots_radius_dim { #1 } } ,
    radius .value_required:n = true ,
    inter .code:n = 
      \hook_gput_code:nnn { begindocument } { . } 
        { \dim_set:Nn \l_@@_xdots_inter_dim { #1 } } ,
    radius .value_required:n = true ,
%    \end{macrocode}
% The options |down|, |up| and |middle| are not documented for the final user
% because he should use the syntax with |^|, |_| and |:|. We use
% |\tl_put_right:Nn| and not |\tl_set:Nn| (or |.tl_set:N|) because we don't want
% a direct use of |up=...| erased by an absent |^{...}|.
%    \begin{macrocode}
    down .code:n = \tl_put_right:Nn \l_@@_xdots_down_tl { #1 } , 
    up .code:n = \tl_put_right:Nn \l_@@_xdots_up_tl { #1 } ,
    middle .code:n = \tl_put_right:Nn \l_@@_xdots_middle_tl { #1 } , 
%    \end{macrocode}
% The key |draw-first|, which is meant to be used only with |\Ddots| and
% |\Iddots|, will be catched when |\Ddots| or |\Iddots| is used (during the
% construction of the array and not when we draw the dotted lines).
%    \begin{macrocode}
    draw-first .code:n = \prg_do_nothing: ,
    unknown .code:n = \@@_error:n { Unknown~key~for~xdots } 
  }
%    \end{macrocode}
%
%
% \bigskip
%    \begin{macrocode}
\keys_define:nn { nicematrix / rules }
  {
    color .tl_set:N = \l_@@_rules_color_tl ,
    color .value_required:n = true ,
    width .dim_set:N = \arrayrulewidth ,
    width .value_required:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~rules }
  }
%    \end{macrocode}
%
%
% \bigskip 
% First, we define a set of keys ``|nicematrix / Global|'' which will be used
% (with the mechanism of |.inherit:n|) by other sets of keys.
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / Global }
  {
    color-inside .code:n = 
      \@@_warning_gredirect_none:n { key~color-inside } ,
    colortbl-like .code:n = 
      \@@_warning_gredirect_none:n { key~color-inside } ,
    ampersand-in-blocks .bool_set:N = \l_@@_amp_in_blocks_bool , 
    ampersand-in-blocks .default:n = true , 
    &-in-blocks .meta:n = ampersand-in-blocks ,
    no-cell-nodes .code:n = 
      \cs_set_protected:Npn \@@_node_for_cell: 
        { \box_use_drop:N \l_@@_cell_box } ,
    no-cell-nodes .value_forbidden:n = true ,
    rounded-corners .dim_set:N = \l_@@_tab_rounded_corners_dim ,
    rounded-corners .default:n = 4 pt ,
    custom-line .code:n = \@@_custom_line:n { #1 } ,
    rules .code:n = \keys_set:nn { nicematrix / rules } { #1 } ,
    rules .value_required:n = true ,
    standard-cline .bool_set:N = \l_@@_standard_cline_bool ,
    standard-cline .default:n = true ,
    cell-space-top-limit .dim_set:N = \l_@@_cell_space_top_limit_dim ,
    cell-space-top-limit .value_required:n = true ,
    cell-space-bottom-limit .dim_set:N = \l_@@_cell_space_bottom_limit_dim ,
    cell-space-bottom-limit .value_required:n = true ,
    cell-space-limits .meta:n = 
      {
        cell-space-top-limit = #1 ,
        cell-space-bottom-limit = #1 ,
      } ,
    cell-space-limits .value_required:n = true ,
    xdots .code:n = \keys_set:nn { nicematrix / xdots } { #1 } , 
    light-syntax .code:n = 
      \bool_set_true:N \l_@@_light_syntax_bool 
      \bool_set_false:N \l_@@_light_syntax_expanded_bool ,
    light-syntax .value_forbidden:n = true ,
    light-syntax-expanded .code:n = 
      \bool_set_true:N \l_@@_light_syntax_bool 
      \bool_set_true:N \l_@@_light_syntax_expanded_bool ,
    light-syntax-expanded .value_forbidden:n = true ,
    end-of-row .tl_set:N = \l_@@_end_of_row_tl ,
    end-of-row .value_required:n = true ,
    first-col .code:n = \int_zero:N \l_@@_first_col_int , 
    first-row .code:n = \int_zero:N \l_@@_first_row_int ,
    last-row .int_set:N = \l_@@_last_row_int ,
    last-row .default:n = -1 ,
    code-for-first-col .tl_set:N = \l_@@_code_for_first_col_tl ,
    code-for-first-col .value_required:n = true ,
    code-for-last-col .tl_set:N = \l_@@_code_for_last_col_tl ,
    code-for-last-col .value_required:n = true ,
    code-for-first-row .tl_set:N = \l_@@_code_for_first_row_tl ,
    code-for-first-row .value_required:n = true ,
    code-for-last-row .tl_set:N = \l_@@_code_for_last_row_tl ,
    code-for-last-row .value_required:n = true ,
    hlines .clist_set:N = \l_@@_hlines_clist ,
    vlines .clist_set:N = \l_@@_vlines_clist ,
    hlines .default:n = all ,
    vlines .default:n = all ,
    vlines-in-sub-matrix .code:n = 
      {
        \tl_if_single_token:nTF { #1 }
          { 
            \tl_if_in:NnTF \c_@@_forbidden_letters_tl { #1 }
              { \@@_error:nn { Forbidden~letter } { #1 } }
%    \end{macrocode}
% We write directly a command for the automata which reads the preamble provided
% by the final user.
%    \begin{macrocode}
              { \cs_set_eq:cN { @@ _ #1 } \@@_make_preamble_vlism:n }
          }
          { \@@_error:n { One~letter~allowed } } 
      } ,
    vlines-in-sub-matrix .value_required:n = true ,
    hvlines .code:n = 
      { 
        \bool_set_true:N \l_@@_hvlines_bool
        \tl_set_eq:NN \l_@@_vlines_clist \c_@@_all_tl
        \tl_set_eq:NN \l_@@_hlines_clist \c_@@_all_tl
      } ,
    hvlines-except-borders .code:n = 
      { 
        \tl_set_eq:NN \l_@@_vlines_clist \c_@@_all_tl
        \tl_set_eq:NN \l_@@_hlines_clist \c_@@_all_tl
        \bool_set_true:N \l_@@_hvlines_bool
        \bool_set_true:N \l_@@_except_borders_bool
      } ,
    parallelize-diags .bool_set:N = \l_@@_parallelize_diags_bool ,
%    \end{macrocode}
%
% \bigskip
% With the option |renew-dots|, the command |\cdots|, |\ldots|, |\vdots|,
% |\ddots|, etc. are redefined and behave like the commands |\Cdots|, |\Ldots|,
% |\Vdots|, |\Ddots|, etc.
%    \begin{macrocode}
    renew-dots .bool_set:N = \l_@@_renew_dots_bool ,
    renew-dots .value_forbidden:n = true ,
    nullify-dots .bool_set:N = \l_@@_nullify_dots_bool ,
    create-medium-nodes .bool_set:N = \l_@@_medium_nodes_bool ,
    create-large-nodes .bool_set:N = \l_@@_large_nodes_bool ,
    create-extra-nodes .meta:n = 
      { create-medium-nodes , create-large-nodes } ,
    left-margin .dim_set:N = \l_@@_left_margin_dim ,
    left-margin .default:n = \arraycolsep ,
    right-margin .dim_set:N = \l_@@_right_margin_dim ,
    right-margin .default:n = \arraycolsep ,
    margin .meta:n = { left-margin = #1 , right-margin = #1 } ,
    margin .default:n = \arraycolsep ,
    extra-left-margin .dim_set:N = \l_@@_extra_left_margin_dim ,
    extra-right-margin .dim_set:N = \l_@@_extra_right_margin_dim ,
    extra-margin .meta:n = 
      { extra-left-margin = #1 , extra-right-margin = #1 } ,
    extra-margin .value_required:n = true ,
    respect-arraystretch .code:n = 
      \cs_set_eq:NN \@@_reset_arraystretch: \prg_do_nothing: ,
    respect-arraystretch .value_forbidden:n = true , 
    pgf-node-code .tl_set:N = \l_@@_pgf_node_code_tl ,
    pgf-node-code .value_required:n = true 
  }
%    \end{macrocode}
%
% \bigskip
% We define a set of keys used by the environments of \pkg{nicematrix} (but not
% by the command |\NiceMatrixOptions|). 
%    \begin{macrocode}
\keys_define:nn { nicematrix / environments } 
  { 
    corners .clist_set:N = \l_@@_corners_clist ,
    corners .default:n = { NW , SW , NE , SE } ,
    code-before .code:n = 
      {
        \tl_if_empty:nF { #1 } 
          { 
            \tl_gput_left:Nn \g_@@_pre_code_before_tl { #1 }
            \bool_set_true:N \l_@@_code_before_bool 
          } 
      } ,
    code-before .value_required:n = true ,
%    \end{macrocode}
% \bigskip
% The options |c|, |t| and |b| of the environment |{NiceArray}| have the same
% meaning as the option of the classical environment |{array}|.
%    \begin{macrocode}
    c .code:n = \tl_set:Nn \l_@@_baseline_tl c ,
    t .code:n = \tl_set:Nn \l_@@_baseline_tl t ,
    b .code:n = \tl_set:Nn \l_@@_baseline_tl b ,
    baseline .tl_set:N = \l_@@_baseline_tl ,
    baseline .value_required:n = true ,
    columns-width .code:n = 
%    \end{macrocode}
% We use |\str_if_eq:nnTF| which is slightly faster than |\tl_if_eq:nnTF| (and
% is expandable). |\str_if_eq:ee(TF)| is faster than |\str_if_eq:nn(TF)|.
%    \begin{macrocode}
      \str_if_eq:eeTF { #1 } { auto }
        { \bool_set_true:N \l_@@_auto_columns_width_bool }
        { \dim_set:Nn \l_@@_columns_width_dim { #1 } } , 
    columns-width .value_required:n = true ,
    name .code:n = 
%    \end{macrocode}
% We test whether we are in the measuring phase of an environment of
% \pkg{amsmath} (always loaded by \pkg{nicematrix}) because we want to avoid a
% fallacious message of duplicate name in this case.
%    \begin{macrocode}
      \legacy_if:nF { measuring@ }
        {
          \str_set:Ne \l_tmpa_str { #1 }
          \seq_if_in:NoTF \g_@@_names_seq \l_tmpa_str
            { \@@_error:nn { Duplicate~name } { #1 } }
            { \seq_gput_left:No \g_@@_names_seq \l_tmpa_str }
          \str_set_eq:NN \l_@@_name_str \l_tmpa_str 
        } ,
    name .value_required:n = true ,
    code-after .tl_gset:N = \g_nicematrix_code_after_tl ,
    code-after .value_required:n = true ,
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / notes }
  {
    para .bool_set:N = \l_@@_notes_para_bool ,
    para .default:n = true ,
    code-before .tl_set:N = \l_@@_notes_code_before_tl ,
    code-before .value_required:n = true ,
    code-after .tl_set:N = \l_@@_notes_code_after_tl ,
    code-after .value_required:n = true ,
    bottomrule .bool_set:N = \l_@@_notes_bottomrule_bool ,
    bottomrule .default:n = true ,
    style .cs_set:Np = \@@_notes_style:n #1 , 
    style .value_required:n = true ,
    label-in-tabular .cs_set:Np = \@@_notes_label_in_tabular:n #1 ,
    label-in-tabular .value_required:n = true ,
    label-in-list .cs_set:Np = \@@_notes_label_in_list:n #1 , 
    label-in-list .value_required:n = true ,
    enumitem-keys .code:n = 
      { 
        \hook_gput_code:nnn { begindocument } { . } 
          { 
            \IfPackageLoadedT { enumitem }
              { \setlist* [ tabularnotes ] { #1 } }
          } 
      } ,
    enumitem-keys .value_required:n = true ,
    enumitem-keys-para .code:n = 
      { 
        \hook_gput_code:nnn { begindocument } { . } 
          { 
            \IfPackageLoadedT { enumitem }
              { \setlist* [ tabularnotes* ] { #1 } }
          } 
      } ,
    enumitem-keys-para .value_required:n = true ,
    detect-duplicates .bool_set:N = \l_@@_notes_detect_duplicates_bool ,  
    detect-duplicates .default:n = true , 
    unknown .code:n  = \@@_error:n { Unknown~key~for~notes } 
  }
%    \end{macrocode}  
%
%    \begin{macrocode} 
\keys_define:nn { nicematrix / delimiters }
  {
    max-width .bool_set:N = \l_@@_delimiters_max_width_bool ,
    max-width .default:n = true ,
    color .tl_set:N = \l_@@_delimiters_color_tl ,
    color .value_required:n = true ,
  }
%    \end{macrocode}
%
% \bigskip
% We begin the construction of the major sets of keys (used by the different
% user commands and environments). 
%    \begin{macrocode}
\keys_define:nn { nicematrix }
  { 
    NiceMatrixOptions .inherit:n = 
      { nicematrix / Global } ,
    NiceMatrixOptions / xdots .inherit:n = nicematrix / xdots ,
    NiceMatrixOptions / rules .inherit:n = nicematrix / rules ,
    NiceMatrixOptions / notes .inherit:n = nicematrix / notes ,
    NiceMatrixOptions / sub-matrix .inherit:n = nicematrix / sub-matrix ,  
    SubMatrix / rules .inherit:n = nicematrix / rules ,  
    CodeAfter / xdots .inherit:n = nicematrix / xdots ,
    CodeBefore / sub-matrix .inherit:n = nicematrix / sub-matrix ,
    CodeAfter / sub-matrix .inherit:n = nicematrix / sub-matrix ,
    NiceMatrix .inherit:n = 
      { 
        nicematrix / Global ,
        nicematrix / environments ,
      } ,
    NiceMatrix / xdots .inherit:n = nicematrix / xdots ,
    NiceMatrix / rules .inherit:n = nicematrix / rules ,
    NiceTabular .inherit:n = 
      {
        nicematrix / Global ,
        nicematrix / environments
      } ,
    NiceTabular / xdots .inherit:n = nicematrix / xdots ,
    NiceTabular / rules .inherit:n = nicematrix / rules ,
    NiceTabular / notes .inherit:n = nicematrix / notes ,
    NiceArray .inherit:n = 
      { 
        nicematrix / Global ,
        nicematrix / environments ,
      } ,
    NiceArray / xdots .inherit:n = nicematrix / xdots ,
    NiceArray / rules .inherit:n = nicematrix / rules ,
    pNiceArray .inherit:n = 
      { 
        nicematrix / Global ,
        nicematrix / environments ,
      } ,
    pNiceArray / xdots .inherit:n = nicematrix / xdots ,
    pNiceArray / rules .inherit:n = nicematrix / rules ,
  }
%    \end{macrocode}
% 
%
% \bigskip
% We finalise the definition of the set of keys 
% ``|nicematrix / NiceMatrixOptions|'' with the options specific to
% |\NiceMatrixOptions|.    
%    \begin{macrocode}
\keys_define:nn { nicematrix / NiceMatrixOptions }
  { 
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    delimiters / max-width .bool_set:N = \l_@@_delimiters_max_width_bool ,
    delimiters / max-width .default:n = true ,
    delimiters .code:n = \keys_set:nn { nicematrix / delimiters } { #1 } , 
    delimiters .value_required:n = true , 
    width .dim_set:N = \l_@@_width_dim ,
    width .value_required:n = true ,
    last-col .code:n = 
      \tl_if_empty:nF { #1 }
        { \@@_error:n { last-col~non~empty~for~NiceMatrixOptions } } 
        \int_zero:N \l_@@_last_col_int ,
    small .bool_set:N = \l_@@_small_bool ,
    small .value_forbidden:n = true ,
%    \end{macrocode}
%                              
% With the option |renew-matrix|, the environment |{matrix}| of \pkg{amsmath}
% and its variants are redefined to behave like the environment |{NiceMatrix}|
% and its variants. 
%    \begin{macrocode}
    renew-matrix .code:n = \@@_renew_matrix: ,
    renew-matrix .value_forbidden:n = true ,
%    \end{macrocode}
%
% \bigskip
% The option |exterior-arraycolsep| will have effect only in |{NiceArray}| for
% those who want to have for |{NiceArray}| the same behaviour as |{array}|.
%    \begin{macrocode}
    exterior-arraycolsep .bool_set:N = \l_@@_exterior_arraycolsep_bool ,
%    \end{macrocode}
%
% \bigskip
% If the option |columns-width| is used, all the columns will have the same
% width.  
%
% In |\NiceMatrixOptions|, the special value |auto| is not available.
%    \begin{macrocode}
    columns-width .code:n = 
%    \end{macrocode}
% We use |\str_if_eq:nnTF| which is slightly faster than |\tl_if_eq:nnTF|.
% |\str_if_eq:ee(TF)| is faster than |\str_if_eq:nn(TF)|.
%    \begin{macrocode}
      \str_if_eq:eeTF { #1 } { auto }
        { \@@_error:n { Option~auto~for~columns-width } }
        { \dim_set:Nn \l_@@_columns_width_dim { #1 } } ,
%    \end{macrocode}
%
% \bigskip
% Usually, an error is raised when the user tries to give the same name to two
% distincts environments of \pkg{nicematrix} (these names are global and not
% local to the current TeX scope). However, the option |allow-duplicate-names|
% disables this feature. 
%    \begin{macrocode}
    allow-duplicate-names .code:n = 
      \@@_msg_redirect_name:nn { Duplicate~name } { none } ,
    allow-duplicate-names .value_forbidden:n = true ,
    notes .code:n = \keys_set:nn { nicematrix / notes } { #1 } ,
    notes .value_required:n = true ,
    sub-matrix .code:n = \keys_set:nn { nicematrix / sub-matrix } { #1 } , 
    sub-matrix .value_required:n = true ,
    matrix / columns-type .tl_set:N = \l_@@_columns_type_tl ,
    matrix / columns-type .value_required:n = true ,
    caption-above .bool_set:N = \l_@@_caption_above_bool ,
    caption-above .default:n = true , 
    unknown .code:n  = \@@_error:n { Unknown~key~for~NiceMatrixOptions } 
  }
%    \end{macrocode}
%
%
%       
% \bigskip
% |\NiceMatrixOptions| is the command of the \pkg{nicematrix} package to fix
% options at the document level. The scope of these specifications is the
% current TeX group. 
%    \begin{macrocode}
\NewDocumentCommand \NiceMatrixOptions { m }
  { \keys_set:nn { nicematrix / NiceMatrixOptions } { #1 } }
%    \end{macrocode}
%
%
% \bigskip
% We finalise the definition of the set of keys ``|nicematrix / NiceMatrix|''. 
% That set of keys will be used by |{NiceMatrix}|, |{pNiceMatrix}|,
% |{bNiceMatrix}|, etc.
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / NiceMatrix }
  { 
    last-col .code:n = \tl_if_empty:nTF { #1 }
                         {  
                           \bool_set_true:N \l_@@_last_col_without_value_bool
                           \int_set:Nn \l_@@_last_col_int { -1 }
                         }
                         { \int_set:Nn \l_@@_last_col_int { #1 } } ,
    columns-type .tl_set:N = \l_@@_columns_type_tl , 
    columns-type .value_required:n = true , 
    l .meta:n = { columns-type = l } ,
    r .meta:n = { columns-type = r } ,
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    delimiters / max-width .bool_set:N = \l_@@_delimiters_max_width_bool ,
    delimiters / max-width .default:n = true ,
    delimiters .code:n = \keys_set:nn { nicematrix / delimiters } { #1 } , 
    delimiters .value_required:n = true , 
    small .bool_set:N = \l_@@_small_bool ,
    small .value_forbidden:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~NiceMatrix } 
  }
%    \end{macrocode}
%
%
% 
% \bigskip
% We finalise the definition of the set of keys ``|nicematrix / NiceArray|''
% with the options specific to |{NiceArray}|. 
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / NiceArray }
  {
%    \end{macrocode}
% 
% In the environments |{NiceArray}| and its variants, the option |last-col| must
% be used without value because the number of columns of the array is read
% from the preamble of the array.
%    \begin{macrocode}
    small .bool_set:N = \l_@@_small_bool ,
    small .value_forbidden:n = true ,
    last-col .code:n = \tl_if_empty:nF { #1 }
                         { \@@_error:n { last-col~non~empty~for~NiceArray } } 
                       \int_zero:N \l_@@_last_col_int ,
    r .code:n = \@@_error:n { r~or~l~with~preamble } ,
    l .code:n = \@@_error:n { r~or~l~with~preamble } ,
    unknown .code:n = \@@_error:n { Unknown~key~for~NiceArray } 
  }
%    \end{macrocode}
%
%
%    
%    \begin{macrocode}
\keys_define:nn { nicematrix / pNiceArray }
  { 
    first-col .code:n = \int_zero:N \l_@@_first_col_int , 
    last-col .code:n = \tl_if_empty:nF { #1 }
                         { \@@_error:n { last-col~non~empty~for~NiceArray } } 
                       \int_zero:N \l_@@_last_col_int ,
    first-row .code:n = \int_zero:N \l_@@_first_row_int ,
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    delimiters / max-width .bool_set:N = \l_@@_delimiters_max_width_bool ,
    delimiters / max-width .default:n = true ,
    delimiters .code:n = \keys_set:nn { nicematrix / delimiters } { #1 } , 
    delimiters .value_required:n = true , 
    small .bool_set:N = \l_@@_small_bool ,
    small .value_forbidden:n = true ,
    r .code:n = \@@_error:n { r~or~l~with~preamble } ,
    l .code:n = \@@_error:n { r~or~l~with~preamble } ,
    unknown .code:n = \@@_error:n { Unknown~key~for~NiceMatrix } 
  }
%    \end{macrocode}
%
% \bigskip
% We finalise the definition of the set of keys ``|nicematrix / NiceTabular|''
% with the options specific to |{NiceTabular}|. 
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / NiceTabular }
  {
%    \end{macrocode}
%  The dimension |width| will be used if at least a column of type |X| is used.
%  If there is no column of type |X|, an error will be raised.
%    \begin{macrocode}
    width .code:n = \dim_set:Nn \l_@@_width_dim { #1 } 
                    \bool_set_true:N \l_@@_width_used_bool ,
    width .value_required:n = true ,
    notes .code:n = \keys_set:nn { nicematrix / notes } { #1 } , 
    tabularnote .tl_gset:N = \g_@@_tabularnote_tl ,
    tabularnote .value_required:n = true ,
    caption .tl_set:N = \l_@@_caption_tl , 
    caption .value_required:n = true ,
    short-caption .tl_set:N = \l_@@_short_caption_tl , 
    short-caption .value_required:n = true ,
    label .tl_set:N = \l_@@_label_tl ,
    label .value_required:n = true ,
    last-col .code:n = \tl_if_empty:nF { #1 }
                         { \@@_error:n { last-col~non~empty~for~NiceArray } } 
                       \int_zero:N \l_@@_last_col_int ,
    r .code:n = \@@_error:n { r~or~l~with~preamble } ,
    l .code:n = \@@_error:n { r~or~l~with~preamble } ,
    unknown .code:n = \@@_error:n { Unknown~key~for~NiceTabular } 
  }
%    \end{macrocode}
%
%
% \bigskip
% The |\CodeAfter| (inserted with the key |code-after| or after the keyword
% |\CodeAfter|) may always begin with a list of pairs \textsl{key=value} between
% square brackets. Here is the corresponding set of keys.
%
% We \emph{must} put the following instructions \emph{after} the :
%
% \begin{verbatim}
% CodeAfter / sub-matrix .inherit:n = nicematrix / sub-matrix
% \end{verbatim}
% 
%    \begin{macrocode}
\keys_define:nn { nicematrix / CodeAfter }
  {
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    rules .code:n = \keys_set:nn { nicematrix / rules } { #1 } ,
    rules .value_required:n = true ,
    xdots .code:n = \keys_set:nn { nicematrix / xdots } { #1 } , 
    sub-matrix .code:n = \keys_set:nn { nicematrix / sub-matrix } { #1 } , 
    sub-matrix .value_required:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~CodeAfter }
  }
%    \end{macrocode}
% 
% \bigskip
% \section{Important code used by \{NiceArrayWithDelims\} }
%
% The pseudo-environment |\@@_cell_begin:|--|\@@_cell_end:| will be used to format the
% cells of the array. In the code, the affectations are global because this
% pseudo-environment will be used in the cells of a |\halign| (via an
% environment |{array}|). 
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cell_begin:
  { 
%    \end{macrocode}
% |\g_@@_cell_after_hook_tl| will be set during the composition of the box
% |\l_@@_cell_box| and will be used \emph{after} the composition in order to
% modify that box.
%    \begin{macrocode}
    \tl_gclear:N \g_@@_cell_after_hook_tl
%    \end{macrocode}
% At the beginning of the cell, we link |\CodeAfter| to a command which do
% begin with |\\| (whereas the standard version of |\CodeAfter| does
% not).
%    \begin{macrocode}
    \cs_set_eq:NN \CodeAfter \@@_CodeAfter_i:
%    \end{macrocode}
% We increment the LaTeX counter |jCol|, which is the counter of the columns. 
%    \begin{macrocode}
    \int_gincr:N \c@jCol 
%    \end{macrocode}
% Now, we increment the counter of the rows. We don't do this incrementation in
% the |\everycr| because some packages, like \pkg{arydshln}, create special rows
% in the |\halign| that we don't want to take into account. 
%    \begin{macrocode}
    \int_compare:nNnT \c@jCol = \c_one_int
      { \int_compare:nNnT \l_@@_first_col_int = \c_one_int \@@_begin_of_row: }
%    \end{macrocode}
% The content of the cell is composed in the box |\l_@@_cell_box|. The
% |\hbox_set_end:| corresponding to this |\hbox_set:Nw| is in the
% |\@@_cell_end:|.
%    \begin{macrocode}
    \hbox_set:Nw \l_@@_cell_box 
%    \end{macrocode}
% The following command is nullified in the tabulars.
%    \begin{macrocode}
    \@@_tuning_not_tabular_begin:
%    \end{macrocode}
%
%    \begin{macrocode}
    \@@_tuning_first_row:
    \@@_tuning_last_row: 
    \g_@@_row_style_tl
  }
%    \end{macrocode}
%
% The following command will be nullified unless there is a first row. 
%
% Here is a version with the standard syntax of L3.
%    \begin{Verbatim}
% \cs_new_protected:Npn \@@_tuning_first_row:
%   {
%     \int_if_zero:nT \c@iRow 
%       { 
%         \int_compare:nNnT \c@jCol > 0
%           { 
%             \l_@@_code_for_first_row_tl 
%             \xglobal \colorlet { nicematrix-first-row } { . }
%           }
%       }
%   }
%    \end{Verbatim}
%
% We will use a version a little more efficient.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_tuning_first_row:
  {
    \if_int_compare:w \c@iRow = \c_zero_int 
      \if_int_compare:w \c@jCol > \c_zero_int 
        \l_@@_code_for_first_row_tl 
        \xglobal \colorlet { nicematrix-first-row } { . }
      \fi:
    \fi:
  }
%    \end{macrocode}
% 
%
% The following command will be nullified unless there is a last row and we
% know its value (\emph{ie}: |\l_@@_lat_row_int > 0|).
%    \begin{Verbatim}
% \cs_new_protected:Npn \@@_tuning_last_row:
%   {
%     \int_compare:nNnT \c@iRow = \l_@@_last_row_int
%       {
%         \l_@@_code_for_last_row_tl 
%         \xglobal \colorlet { nicematrix-last-row } { . }
%       }
%   }
%    \end{Verbatim}
%
% We will use a version a little more efficient.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_tuning_last_row:
  {
    \if_int_compare:w \c@iRow = \l_@@_last_row_int
      \l_@@_code_for_last_row_tl 
      \xglobal \colorlet { nicematrix-last-row } { . }
    \fi:
  }
%    \end{macrocode}
% 
% A different value will be provided to the following command when the key
% |small| is in force.
%    \begin{macrocode}
\cs_set_eq:NN \@@_tuning_key_small: \prg_do_nothing:
%    \end{macrocode}
%
% The following commands are nullified in the tabulars.
%    \begin{macrocode}
\cs_set_nopar:Npn \@@_tuning_not_tabular_begin: 
  { 
    \m@th % added 2024/11/21
    \c_math_toggle_token 
%    \end{macrocode}
% A special value is provided by the following control sequence when the key
% |small| is in force.
%    \begin{macrocode}
    \@@_tuning_key_small:
  }
\cs_set_eq:NN \@@_tuning_not_tabular_end: \c_math_toggle_token
%    \end{macrocode}
% 
% \interitem
% The following macro |\@@_begin_of_row| is usually used in the cell
% number~$1$ of the row. However, when the key |first-col| is used,
% |\@@_begin_of_row| is executed in the cell number~$0$ of the row.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_begin_of_row:
  {
    \int_gincr:N \c@iRow 
    \dim_gset_eq:NN \g_@@_dp_ante_last_row_dim \g_@@_dp_last_row_dim 
    \dim_gset:Nn \g_@@_dp_last_row_dim { \box_dp:N \@arstrutbox }
    \dim_gset:Nn \g_@@_ht_last_row_dim { \box_ht:N \@arstrutbox }
    \pgfpicture 
    \pgfrememberpicturepositiononpagetrue
    \pgfcoordinate 
      { \@@_env: - row - \int_use:N \c@iRow - base } 
      { \pgfpoint \c_zero_dim { 0.5 \arrayrulewidth } }
    \str_if_empty:NF \l_@@_name_str
      {
        \pgfnodealias 
          { \l_@@_name_str - row - \int_use:N \c@iRow - base } 
          { \@@_env: - row - \int_use:N \c@iRow - base } 
      }
    \endpgfpicture
  }
%    \end{macrocode}
% Remark: If the key |recreate-cell-nodes| of the |\CodeBefore| is used, then we
% will add some lines to that command.
% 
%
% \interitem
% The following code is used in each cell of the array. It actualises quantities
% that, at the end of the array, will give informations about the vertical
% dimension of the two first rows and the two last rows. If the user uses the
% |last-row|, some lines of code will be dynamically added to this command.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_update_for_first_and_last_row:
  {
    \int_if_zero:nTF \c@iRow 
      { 
        \dim_compare:nNnT { \box_dp:N \l_@@_cell_box } > \g_@@_dp_row_zero_dim
          { \dim_gset:Nn \g_@@_dp_row_zero_dim { \box_dp:N \l_@@_cell_box } }
        \dim_compare:nNnT { \box_ht:N \l_@@_cell_box } > \g_@@_ht_row_zero_dim
          { \dim_gset:Nn \g_@@_ht_row_zero_dim { \box_ht:N \l_@@_cell_box } }
      }
      {
        \int_compare:nNnT \c@iRow = \c_one_int
          { 
            \dim_compare:nNnT { \box_ht:N \l_@@_cell_box } > \g_@@_ht_row_one_dim
              { \dim_gset:Nn \g_@@_ht_row_one_dim { \box_ht:N \l_@@_cell_box } }
          } 
      }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rotate_cell_box:
  {
    \box_rotate:Nn \l_@@_cell_box { 90 } 
    \bool_if:NTF \g_@@_rotate_c_bool
      {
        \hbox_set:Nn \l_@@_cell_box
          { 
            \m@th % add 2024/11/21
            \c_math_toggle_token 
            \vcenter { \box_use:N \l_@@_cell_box } 
            \c_math_toggle_token 
          } 
      }
      {
        \int_compare:nNnT \c@iRow = \l_@@_last_row_int 
          { 
            \vbox_set_top:Nn \l_@@_cell_box 
              { 
                \vbox_to_zero:n { }
                \skip_vertical:n { - \box_ht:N \@arstrutbox + 0.8 ex } 
                \box_use:N \l_@@_cell_box 
              } 
          } 
       }
    \bool_gset_false:N \g_@@_rotate_bool
    \bool_gset_false:N \g_@@_rotate_c_bool
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_adjust_size_box:
  {
    \dim_compare:nNnT \g_@@_blocks_wd_dim > \c_zero_dim
      {
        \box_set_wd:Nn \l_@@_cell_box
          { \dim_max:nn { \box_wd:N \l_@@_cell_box } \g_@@_blocks_wd_dim }  
        \dim_gzero:N \g_@@_blocks_wd_dim 
      }
    \dim_compare:nNnT \g_@@_blocks_dp_dim > \c_zero_dim
      {
        \box_set_dp:Nn \l_@@_cell_box
          { \dim_max:nn { \box_dp:N \l_@@_cell_box } \g_@@_blocks_dp_dim }  
        \dim_gzero:N \g_@@_blocks_dp_dim 
      }
    \dim_compare:nNnT \g_@@_blocks_ht_dim > \c_zero_dim
      {
        \box_set_ht:Nn \l_@@_cell_box
          { \dim_max:nn { \box_ht:N \l_@@_cell_box } \g_@@_blocks_ht_dim }  
        \dim_gzero:N \g_@@_blocks_ht_dim 
      }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cell_end:
  {
%    \end{macrocode}
% The following command is nullified in the tabulars.
%    \begin{macrocode}
    \@@_tuning_not_tabular_end:
    \hbox_set_end: 
    \@@_cell_end_i:
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cell_end_i:
  {
%    \end{macrocode}
% The token list |\g_@@_cell_after_hook_tl| is (potentially) set during the 
% composition of the box |\l_@@_cell_box| and is used now \emph{after} the
% composition in order to modify that box.
%    \begin{macrocode}
    \g_@@_cell_after_hook_tl
    \bool_if:NT \g_@@_rotate_bool \@@_rotate_cell_box:
    \@@_adjust_size_box:
%    \end{macrocode}
%
%    \begin{macrocode}
    \box_set_ht:Nn \l_@@_cell_box
      { \box_ht:N \l_@@_cell_box + \l_@@_cell_space_top_limit_dim }
    \box_set_dp:Nn \l_@@_cell_box
      { \box_dp:N \l_@@_cell_box + \l_@@_cell_space_bottom_limit_dim }
%    \end{macrocode}
%
% We want to compute in |\g_@@_max_cell_width_dim| the width of the widest cell
% of the array (except the cells of the ``first column'' and the ``last
% column''). 
%    \begin{macrocode}
    \@@_update_max_cell_width:
%    \end{macrocode}
%
% The following computations are for the ``first row'' and the ``last row''.
%    \begin{macrocode}
    \@@_update_for_first_and_last_row:
%    \end{macrocode}
% 
% \medskip
% If the cell is empty, or may be considered as if, we must not create the
% \textsc{pgf} node, for two reasons:
% \begin{itemize}
% \item it's a waste of time since such a node would be rather pointless;
% \item we test the existence of these nodes in order to determine whether a
% cell is empty when we search the extremities of a dotted line.
% \end{itemize}
% However, it's difficult to determine whether a cell is empty. Up to now
% we use the following technic:
% \begin{itemize}
% \item for the columns of type |p|, |m|, |b|, |V| (of \pkg{varwidth}) or |X|,
% we test whether the cell is syntactically empty with |\@@_test_if_empty:| and
% |\@@_test_if_empty_for_S:| 
% \item if the width of the box |\l_@@_cell_box| (created with the content of
% the cell) is equal to zero, we consider the cell as empty (however,
% this is not perfect since the user may have used a |\rlap|, |\llap|, |\clap|
% or a |\mathclap| of \pkg{mathtools}).
% \item the cells with a command |\Ldots| or |\Cdots|, |\Vdots|, etc.,
% should also be considered as empty; if |nullify-dots| is in force, there would
% be nothing to do (in this case the previous commands only write an instruction
% in a kind of |\CodeAfter|); however, if |nullify-dots| is not in force, a
% phantom of |\ldots|, |\cdots|, |\vdots| is inserted and its width is not equal
% to zero; that's why these commands raise a boolean |\g_@@_empty_cell_bool| and
% we begin by testing this boolean.
% \end{itemize}
%    \begin{macrocode}
    \bool_if:NTF \g_@@_empty_cell_bool
      { \box_use_drop:N \l_@@_cell_box } 
      {
        \bool_if:NTF \g_@@_not_empty_cell_bool
          \@@_node_for_cell:
          { 
            \dim_compare:nNnTF { \box_wd:N \l_@@_cell_box } > \c_zero_dim 
              \@@_node_for_cell:
              { \box_use_drop:N \l_@@_cell_box } 
          }
      }
    \int_compare:nNnT \c@jCol > \g_@@_col_total_int
      { \int_gset_eq:NN \g_@@_col_total_int \c@jCol }
    \bool_gset_false:N \g_@@_empty_cell_bool
    \bool_gset_false:N \g_@@_not_empty_cell_bool
  } 
%    \end{macrocode}
%
% \bigskip
% The following command will be nullified in our redefinition of |\multicolumn|. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_update_max_cell_width:
  {
    \dim_gset:Nn \g_@@_max_cell_width_dim
      { \dim_max:nn \g_@@_max_cell_width_dim { \box_wd:N \l_@@_cell_box } }
  }
%    \end{macrocode}
% 
% \bigskip
% The following variant of |\@@_cell_end:| is only for the columns of type
% |w{s}{...}| or |W{s}{...}| (which use the horizontal alignement key |s| of
% |\makebox|). 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cell_end_for_w_s:
  { 
    \@@_math_toggle: 
    \hbox_set_end: 
    \bool_if:NF \g_@@_rotate_bool
      {
        \hbox_set:Nn \l_@@_cell_box
          { 
            \makebox [ \l_@@_col_width_dim ] [ s ] 
              { \hbox_unpack_drop:N \l_@@_cell_box } 
          }
      }
    \@@_cell_end_i: 
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\pgfset 
  { 
    nicematrix / cell-node /.style = 
     {
       inner~sep = \c_zero_dim , 
       minimum~width = \c_zero_dim 
     }
  }
%    \end{macrocode}
% 
% \bigskip
% The following command creates the \textsc{pgf} name of the node with, of
% course, |\l_@@_cell_box| as the content.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_node_for_cell:
  {
    \pgfpicture 
    \pgfsetbaseline \c_zero_dim
    \pgfrememberpicturepositiononpagetrue
    \pgfset { nicematrix / cell-node } 
    \pgfnode 
      { rectangle } 
      { base } 
      {
%    \end{macrocode}
% The following instruction |\set@color| has been added on 2022/10/06. It's
% necessary only with XeLaTeX and not with the other engines (we don't know why).
%    \begin{macrocode}
        \set@color 
        \box_use_drop:N \l_@@_cell_box 
      }
      { \@@_env: - \int_use:N \c@iRow - \int_use:N \c@jCol }
      { \l_@@_pgf_node_code_tl }
    \str_if_empty:NF \l_@@_name_str
      {
        \pgfnodealias
          { \l_@@_name_str - \int_use:N \c@iRow - \int_use:N \c@jCol }
          { \@@_env: - \int_use:N \c@iRow - \int_use:N \c@jCol } 
      }
    \endpgfpicture
  }
%    \end{macrocode}
%
% \medskip
% As its name says, the following command is a patch for the command
% |\@@_node_for_cell:|. This patch will be appended on the left of 
% |\@@_node_for_the_cell:| when the construction of the cell nodes (of the form
% |(i-j)|) in the |\CodeBefore| is required.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_patch_node_for_cell:n #1
  {
    \cs_new_protected:Npn \@@_patch_node_for_cell:
      {
        \hbox_set:Nn \l_@@_cell_box 
          { 
            \box_move_up:nn { \box_ht:N \l_@@_cell_box} 
            \hbox_overlap_left:n 
              { 
                \pgfsys@markposition 
                  { \@@_env: - \int_use:N \c@iRow - \int_use:N \c@jCol - NW } 
%    \end{macrocode}
% I don't know why the following adjustement is needed when the compilation is
% done with XeLaTeX or with the classical way |latex|, |dvips|, |ps2pdf| (or
% Adobe Distiller). However, it seems to work.
%    \begin{macrocode}
                #1 
              }
            \box_use:N \l_@@_cell_box 
            \box_move_down:nn { \box_dp:N \l_@@_cell_box }
            \hbox_overlap_left:n 
              { 
                \pgfsys@markposition 
                  { \@@_env: - \int_use:N \c@iRow - \int_use:N \c@jCol - SE } 
                #1 
              }
          }
      }
  } 
%    \end{macrocode}
%
% \bigskip
% We have no explanation for the different behaviour between the TeX engines...
%    \begin{macrocode}
\bool_lazy_or:nnTF \sys_if_engine_xetex_p: \sys_if_output_dvi_p:
  {
    \@@_patch_node_for_cell:n 
      { \skip_horizontal:n { 0.5 \box_wd:N \l_@@_cell_box } }
  }
  { \@@_patch_node_for_cell:n { } }
%    \end{macrocode}
% 
% 
% \interitem
% The second argument of the following command |\@@_instruction_of_type:nnn|
% defined below is the type of the instruction (|Cdots|, |Vdots|, |Ddots|,
% etc.). The third argument is the list of options. This command writes in the
% corresponding |\g_@@_|\textsl{type}|_lines_tl| the instruction which will
% actually draw the line after the construction of the matrix.
%
% \medskip
% For example, for the following matrix,
% 
% \smallskip
% \begin{BVerbatim}[baseline=c,boxwidth=11cm]
% \begin{pNiceMatrix}
% 1 & 2 & 3 & 4 \\
% 5 & \Cdots & & 6 \\
% 7 & \Cdots[color=red] 
% \end{pNiceMatrix}
% \end{BVerbatim}
% $\begin{pNiceMatrix}
% 1 & 2 & 3 & 4 \\
% 5 & \Cdots & & 6 \\
% 7 & \Cdots[color=red] 
% \end{pNiceMatrix}$
%
% \smallskip
% the content of |\g_@@_Cdots_lines_tl| will be:
% 
% \smallskip
% \begin{scope}
% \color{gray}
% |\@@_draw_Cdots:nnn {2}{2}{}|
%
% |\@@_draw_Cdots:nnn {3}{2}{color=red}|
% \end{scope} 
% 
% 
% \bigskip
% The first argument is a boolean which indicates whether you must put the
% instruction on the left or on the right on the list of instructions (with
% consequences for the parallelisation of the diagonal lines).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_instruction_of_type:nnn #1 #2 #3
  { 
    \bool_if:nTF { #1 } \tl_gput_left:ce \tl_gput_right:ce 
      { g_@@_ #2 _ lines _ tl }
      { 
        \use:c { @@ _ draw _ #2 : nnn }
          { \int_use:N \c@iRow } 
          { \int_use:N \c@jCol }
          { \exp_not:n { #3 } } 
      }
  }  
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_array:n { o }
\cs_new_protected:Npn \@@_array:n
  {
%    \begin{macrocode}
    \dim_set:Nn \col@sep
      { \bool_if:NTF \l_@@_tabular_bool \tabcolsep \arraycolsep }
    \dim_compare:nNnTF \l_@@_tabular_width_dim = \c_zero_dim
      { \cs_set_nopar:Npn \@halignto { } }
      { \cs_set_nopar:Npe \@halignto { to \dim_use:N \l_@@_tabular_width_dim } }
%    \end{macrocode}
% It \pkg{colortbl} is loaded, |\@tabarray| has been redefined to incorporate
% |\CT@start|. 
%    \begin{macrocode}
    \@tabarray 
%    \end{macrocode}
% |\l_@@_baseline_tl| may have the value |t|, |c| or |b|. However, if the value
% is |b|, we compose the |\array| (of \pkg{array}) with the option |t| and the
% right translation will be done further. Remark that |\str_if_eq:eeTF| is
% fully expandable and we need something fully expandable here.
% |\str_if_eq:ee(TF)| is faster than |\str_if_eq:nn(TF)|.
%    \begin{macrocode}
    [ \str_if_eq:eeTF \l_@@_baseline_tl c c t ]
  }
%    \end{macrocode}
%
% \medskip
% We keep in memory the standard version of |\ialign| because we will redefine
% |\ialign| in the environment |{NiceArrayWithDelims}| but restore the standard
% version for use in the cells of the array. However, since version 2.6a
% (version for the Tagging Project), \pkg{array} uses |\ar@ialign| instead of
% |\ialign|. In that case, of course, you do a saving of |\ar@ialign|.
%    \begin{macrocode}
\bool_if:nTF 
  { \c_@@_recent_array_bool && ! \c_@@_revtex_bool }
  { \cs_set_eq:NN \@@_old_ar@ialign: \ar@ialign }
  { \cs_set_eq:NN \@@_old_ialign: \ialign }
%    \end{macrocode}
%
% 
%
% The following command creates a |row| node (and not a row of nodes!).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_row_node:
  {
    \int_compare:nNnT \c@iRow > \g_@@_last_row_node_int 
      { 
        \int_gset_eq:NN \g_@@_last_row_node_int \c@iRow
        \@@_create_row_node_i: 
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_row_node_i:
  {
%    \end{macrocode}
% The |\hbox:n| (or |\hbox|) is mandatory.
%    \begin{macrocode}
    \hbox
      {
        \bool_if:NT \l_@@_code_before_bool
          { 
            \vtop
              {
                \skip_vertical:N 0.5\arrayrulewidth 
                \pgfsys@markposition 
                  { \@@_env: - row - \int_eval:n { \c@iRow + 1 } } 
                \skip_vertical:N -0.5\arrayrulewidth 
              }
          }  
        \pgfpicture 
        \pgfrememberpicturepositiononpagetrue
        \pgfcoordinate { \@@_env: - row - \int_eval:n { \c@iRow + 1 } }  
          { \pgfpoint \c_zero_dim { - 0.5 \arrayrulewidth } } 
        \str_if_empty:NF \l_@@_name_str
          {
            \pgfnodealias 
              { \l_@@_name_str - row - \int_eval:n { \c@iRow + 1 } } 
              { \@@_env: - row - \int_eval:n { \c@iRow + 1 } } 
          }   
        \endpgfpicture  
      }  
  }
%    \end{macrocode}
%
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_in_everycr:
  { 
    \bool_if:NT \c_@@_recent_array_bool
      {
        \tbl_if_row_was_started:T { \UseTaggingSocket { tbl / row / end } }
        \tbl_update_cell_data_for_next_row:
      }
    \int_gzero:N \c@jCol 
    \bool_gset_false:N \g_@@_after_col_zero_bool
    \bool_if:NF \g_@@_row_of_col_done_bool
      {
        \@@_create_row_node:
%    \end{macrocode}
% We don't draw now the rules of the key |hlines| (or |hvlines|) but we reserve the
% vertical space for theses rules (the rules will be drawn by \textsc{pgf}).
%    \begin{macrocode}
        \clist_if_empty:NF \l_@@_hlines_clist 
          {
            \str_if_eq:eeF \l_@@_hlines_clist { all }
              { 
                \clist_if_in:NeT 
                  \l_@@_hlines_clist 
                  { \int_eval:n { \c@iRow + 1 } }
              } 
              {
%    \end{macrocode}
% The counter |\c@iRow| has the value $-1$ only if there is a ``first
% row'' and that we are before that ``first row'', i.e. just before the
% beginning of the array. 
%    \begin{macrocode}
                \int_compare:nNnT \c@iRow > { -1 }
                  {
                    \int_compare:nNnF \c@iRow = \l_@@_last_row_int 
%    \end{macrocode}
%
%    \begin{macrocode}
                      { \hrule height \arrayrulewidth width \c_zero_dim }
                  } 
              }
          }
      }
  }
%    \end{macrocode}
% 
%
% 
%
% \bigskip
% When the key |renew-dots| is used, the following code will be executed.
%    \begin{macrocode}
\cs_set_protected:Npn \@@_renew_dots:
  { 
    \cs_set_eq:NN \ldots \@@_Ldots
    \cs_set_eq:NN \cdots \@@_Cdots
    \cs_set_eq:NN \vdots \@@_Vdots
    \cs_set_eq:NN \ddots \@@_Ddots
    \cs_set_eq:NN \iddots \@@_Iddots
    \cs_set_eq:NN \dots \@@_Ldots
    \cs_set_eq:NN \hdotsfor \@@_Hdotsfor:
  }
%    \end{macrocode}
%
% 
% \bigskip
% The following code has been simplified in the version 6.29a. 
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \IfPackageLoadedTF { colortbl }
      {
        \cs_set_protected:Npn \@@_everycr:
          { \CT@everycr { \noalign { \@@_in_everycr: } } }
      }
      {
        \cs_new_protected:Npn \@@_everycr: 
          { \everycr { \noalign { \@@_in_everycr: } } } 
      }
  }
%    \end{macrocode}
% 
% If \pkg{booktabs} is loaded, we have to patch the macro |\@BTnormal| which is
% a macro of \pkg{booktabs}. The macro |\@BTnormal| draws an horizontal rule but
% it occurs after a vertical skip done by a low level TeX command. When this
% macro |\@BTnormal| occurs, the |row| node has yet been inserted by
% \pkg{nicematrix} \emph{before} the vertical skip (and thus, at a wrong place).
% That why we decide to create a new |row| node (for the same row). We patch the
% macro |\@BTnormal| to create this |row| node. This new |row| node will
% overwrite the previous definition of that |row| node and we have managed to
% avoid the error messages of that redefinition
% \footnote{cf. |\nicematrix@redefine@check@rerun|}.
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \IfPackageLoadedTF { booktabs }
      { 
        \cs_new_protected:Npn \@@_patch_booktabs: 
          { \tl_put_left:Nn \@BTnormal \@@_create_row_node_i: }
      }
      { \cs_new_protected:Npn \@@_patch_booktabs: { } }
  }
%    \end{macrocode}
%
% The box |\@arstrutbox| is a box constructed in the beginning of the
% environment |{array}|. The construction of that box takes into account the
% current value of |\arraystretch|\footnote{The option |small| of
% \pkg{nicematrix} changes (among others) the value of |\arraystretch|. This is
% done, of course, before the call of |{array}|.} and |\extrarowheight| (of
% \pkg{array}). That box is inserted (via |\@arstrut|) in the beginning of each
% row of the array. That's why we use the dimensions of that box to initialize
% the variables which will be the dimensions of the potential first and last row
% of the environment. This initialization must be done after the creation of
% |\@arstrutbox| and that's why we do it in the |\ialign|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_some_initialization:
  {
    \@@_everycr:
    \dim_gset:Nn \g_@@_dp_row_zero_dim { \box_dp:N \@arstrutbox }
    \dim_gset:Nn \g_@@_ht_row_zero_dim { \box_ht:N \@arstrutbox }
    \dim_gset_eq:NN \g_@@_ht_row_one_dim \g_@@_ht_row_zero_dim
    \dim_gzero:N \g_@@_dp_ante_last_row_dim
    \dim_gset:Nn \g_@@_ht_last_row_dim { \box_ht:N \@arstrutbox }
    \dim_gset:Nn \g_@@_dp_last_row_dim { \box_dp:N \@arstrutbox }
  }
%    \end{macrocode}
%
% \vspace{1cm}
% 
% \label{prearray}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_pre_array_ii:
  { 
%    \end{macrocode}
%
% \bigskip
% The number of letters |X| in the preamble of the array.
%    \begin{macrocode}
    \int_gzero:N \g_@@_total_X_weight_int
%    \end{macrocode}
%
%    \begin{macrocode}
    \@@_expand_clist:N \l_@@_hlines_clist
    \@@_expand_clist:N \l_@@_vlines_clist
    \@@_patch_booktabs:
    \box_clear_new:N \l_@@_cell_box
    \normalbaselines
%    \end{macrocode}
% If the option |small| is used, we have to do some tuning. In particular, we
% change the value of |\arraystretch| (this parameter is used in the
% construction of |\@arstrutbox| in the beginning of |{array}|).
%    \begin{macrocode}
    \bool_if:NT \l_@@_small_bool
      {
%    \end{macrocode}
%    \begin{macrocode}
        \cs_set_nopar:Npn \arraystretch { 0.47 }
        \dim_set:Nn \arraycolsep { 1.45 pt }
%    \end{macrocode}
% By default, |\@@_tuning_key_small:| is no-op.
%    \begin{macrocode}
        \cs_set_eq:NN \@@_tuning_key_small: \scriptstyle 
      }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \bool_if:NT \g_@@_recreate_cell_nodes_bool
      {
        \tl_put_right:Nn \@@_begin_of_row:
          {
            \pgfsys@markposition 
              { \@@_env: - row - \int_use:N \c@iRow - base } 
          }
      }
%    \end{macrocode}
% 
% \bigskip
% The environment |{array}| (since version 2.6) uses internally the command
% |\ar@ialign| (and previously, it was  |\ialign|). We change that command for
% several reasons. In particular, |\ar@ialign| sets |\everycr| to |{ }| and we
% \emph{need} to change the value of |\everycr|. 
%    \begin{macrocode}
    \bool_if:nTF 
      { \c_@@_recent_array_bool && ! \c_@@_revtex_bool }
      {
        \cs_set_nopar:Npn \ar@ialign 
          { 
            \bool_if:NT \c_@@_testphase_table_bool
              \tbl_init_cell_data_for_table:
            \@@_some_initialization:
            \dim_zero:N \tabskip 
%    \end{macrocode}
%
% After its first use, the definition of |\ar@ialign| will revert
% automatically to its default definition. With this programmation, we will
% have, in the cells of the array, a clean version of |\ar@ialign|.
%    \begin{macrocode}
            \cs_set_eq:NN \ar@ialign \@@_old_ar@ialign:
            \halign 
          }
      }
%    \end{macrocode}
% The following part should be deleted when we will delete the boolean
% |\c_@@_recent_array_bool| (when we consider the version 2.6a of \pkg{array}
% is required). Moreover, \cls{revtex4-2} modifies \pkg{array} and provides
% commands which are meant to be the standard version of \pkg{array} but, at the
% date of november 2024, these commands corresponds to the \emph{old} version of
% \pkg{array}, that is to say without the |\ar@ialign|.
%    \begin{macrocode}
      {
        \cs_set_nopar:Npn \ialign 
          { 
            \@@_some_initialization:
            \dim_zero:N \tabskip 
            \cs_set_eq:NN \ialign \@@_old_ialign:
            \halign 
          }
      }
%    \end{macrocode}
%
% \medskip
% It seems that there is a problem when \pkg{nicematrix} is used with in
% \cls{revtex4-2} with the package \pkg{colortbl} loaded. 
% The following code prevent that problem but it does \emph{not} treat the
% actual problem! It's only a patch \emph{ad hoc}.
%
% That patch has been added in version 7.0x, 2024-11-27 (question by mail of
% Tamra Nebabu).
%    \begin{macrocode}
     \bool_if:NT \c_@@_revtex_bool
       {
         \IfPackageLoadedT { colortbl }
           { \cs_set_protected:Npn \CT@setup { } }
       } 
%    \end{macrocode}
% 
% We keep in memory the old versions or |\ldots|, |\cdots|, etc. only because we
% use them inside |\phantom| commands in order that the new commands |\Ldots|,
% |\Cdots|, etc. give the same spacing (except when the option |nullify-dots| is
% used). 
%    \begin{macrocode}
    \cs_set_eq:NN \@@_old_ldots \ldots 
    \cs_set_eq:NN \@@_old_cdots \cdots 
    \cs_set_eq:NN \@@_old_vdots \vdots 
    \cs_set_eq:NN \@@_old_ddots \ddots 
    \cs_set_eq:NN \@@_old_iddots \iddots 
    \bool_if:NTF \l_@@_standard_cline_bool
      { \cs_set_eq:NN \cline \@@_standard_cline }
      { \cs_set_eq:NN \cline \@@_cline }
    \cs_set_eq:NN \Ldots \@@_Ldots
    \cs_set_eq:NN \Cdots \@@_Cdots
    \cs_set_eq:NN \Vdots \@@_Vdots
    \cs_set_eq:NN \Ddots \@@_Ddots
    \cs_set_eq:NN \Iddots \@@_Iddots
    \cs_set_eq:NN \Hline \@@_Hline:
    \cs_set_eq:NN \Hspace \@@_Hspace:
    \cs_set_eq:NN \Hdotsfor \@@_Hdotsfor:
    \cs_set_eq:NN \Vdotsfor \@@_Vdotsfor:
    \cs_set_eq:NN \Block \@@_Block:
    \cs_set_eq:NN \rotate \@@_rotate: 
    \cs_set_eq:NN \OnlyMainNiceMatrix \@@_OnlyMainNiceMatrix:n
    \cs_set_eq:NN \dotfill \@@_dotfill:
    \cs_set_eq:NN \CodeAfter \@@_CodeAfter:
    \cs_set_eq:NN \diagbox \@@_diagbox:nn
    \cs_set_eq:NN \NotEmpty \@@_NotEmpty:
    \cs_set_eq:NN \RowStyle \@@_RowStyle:n
    \seq_map_inline:Nn \l_@@_custom_line_commands_seq
      { \cs_set_eq:cc { ##1 } { nicematrix - ##1 } } 
    \cs_set_eq:NN \cellcolor \@@_cellcolor_tabular
    \cs_set_eq:NN \rowcolor \@@_rowcolor_tabular
    \cs_set_eq:NN \rowcolors \@@_rowcolors_tabular
    \cs_set_eq:NN \rowlistcolors \@@_rowlistcolors_tabular
    \int_compare:nNnT \l_@@_first_row_int > \c_zero_int
      { \cs_set_eq:NN \@@_tuning_first_row: \prg_do_nothing: }
    \int_compare:nNnT \l_@@_last_row_int < \c_zero_int
      { \cs_set_eq:NN \@@_tuning_last_row: \prg_do_nothing: }
    \bool_if:NT \l_@@_renew_dots_bool \@@_renew_dots:
%    \end{macrocode}
% We redefine |\multicolumn| and, since we want |\multicolumn| to be available
% in the potential environments |{tabular}| nested in the environments of
% \pkg{nicematrix}, we patch |{tabular}| to go back to the original definition.
% A |\hook_gremove_code:nn| will be put in |\@@_after_array:|.
%    \begin{macrocode}
    \cs_set_eq:NN \multicolumn \@@_multicolumn:nnn
    \hook_gput_code:nnn { env / tabular / begin } { nicematrix }
      { \cs_set_eq:NN \multicolumn \@@_old_multicolumn }
    \@@_revert_colortbl:
%    \end{macrocode}
% If there is one or several commands |\tabularnote| in the caption specified
% by the key |caption| and if that caption has to be composed above the tabular, 
% we have now that information because it has been written in the |aux| file at
% a previous run. We use that information to start counting the tabular notes in
% the main array at the right value (we remember that the caption will be
% composed \emph{after} the array!).
%    \begin{macrocode}
    \tl_if_exist:NT \l_@@_note_in_caption_tl
      {
        \tl_if_empty:NF \l_@@_note_in_caption_tl
          { 
            \int_gset_eq:NN \g_@@_notes_caption_int \l_@@_note_in_caption_tl 
            \int_gset:Nn \c@tabularnote { \l_@@_note_in_caption_tl } 
          }
      }
%    \end{macrocode}
% 
%
% The sequence |\g_@@_multicolumn_cells_seq| will contain the list of the cells
% of the array where a command |\multicolumn{|$n$|}{...}{...}| with $n>1$ is
% issued. In |\g_@@_multicolumn_sizes_seq|, the ``sizes'' (that is to say the
% values of $n$) correspondant will be stored. These lists will be used for the
% creation of the ``medium nodes'' (if they are created). 
%    \begin{macrocode}
    \seq_gclear:N \g_@@_multicolumn_cells_seq
    \seq_gclear:N \g_@@_multicolumn_sizes_seq
%    \end{macrocode}
% 
% The counter |\c@iRow| will be used to count the rows of the array (its
% incrementation will be in the first cell of the row). 
%    \begin{macrocode}
    \int_gset:Nn \c@iRow { \l_@@_first_row_int - 1 }
%    \end{macrocode}
%
% At the end of the environment |{array}|, |\c@iRow| will be the total
% number de rows.
%
% |\g_@@_row_total_int| will be the number or rows excepted the last row (if
% |\l_@@_last_row_bool| has been raised with the option |last-row|).
%    \begin{macrocode}
    \int_gzero_new:N \g_@@_row_total_int
%    \end{macrocode}
%
% The counter |\c@jCol| will be used to count the columns of the array.
% Since we want to know the total number of columns of the matrix, we also
% create a counter |\g_@@_col_total_int|. These counters are updated in the
% command |\@@_cell_begin:| executed at the beginning of each cell.  
%    \begin{macrocode}
    \int_gzero_new:N \g_@@_col_total_int
%    \end{macrocode}
%
%    \begin{macrocode}
    \cs_set_eq:NN \@ifnextchar \new@ifnextchar
%    \end{macrocode}
% 
%    \begin{macrocode}
    \bool_gset_false:N \g_@@_last_col_found_bool 
%    \end{macrocode}
%
% \medskip
% During the construction of the array, the instructions |\Cdots|, |\Ldots|,
% etc. will be written in token lists |\g_@@_Cdots_lines_tl|, etc. which will be
% executed after the construction of the array. 
%    \begin{macrocode}
    \tl_gclear_new:N \g_@@_Cdots_lines_tl
    \tl_gclear_new:N \g_@@_Ldots_lines_tl
    \tl_gclear_new:N \g_@@_Vdots_lines_tl
    \tl_gclear_new:N \g_@@_Ddots_lines_tl
    \tl_gclear_new:N \g_@@_Iddots_lines_tl
    \tl_gclear_new:N \g_@@_HVdotsfor_lines_tl
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
    \tl_gclear:N \g_nicematrix_code_before_tl
    \tl_gclear:N \g_@@_pre_code_before_tl
  }
%    \end{macrocode}
% This is the end of |\@@_pre_array_ii:|.
%
%
% \bigskip
% The command |\@@_pre_array:| will be executed after analyse of the keys of the
% environment. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_pre_array:
  {
    \cs_if_exist:NT \theiRow { \int_set_eq:NN \l_@@_old_iRow_int \c@iRow }
    \int_gzero_new:N \c@iRow
    \cs_if_exist:NT \thejCol { \int_set_eq:NN \l_@@_old_jCol_int \c@jCol }
    \int_gzero_new:N \c@jCol
%    \end{macrocode}
% 
% \bigskip
% We recall that |\l_@@_last_row_int| and |\l_@@_last_column_int| are \emph{not}
% the numbers of the last row and last column of the array. There are only the
% values of the keys |last-row| and |last-column| (maybe the user has provided
% erroneous values). The meaning of that counters does not change during the
% environment of \pkg{nicematrix}. There is only a slight adjustment: if the
% user have used one of those keys without value, we provide now the right value
% as read on the |aux| file (of course, it's possible only after the first compilation).
%    \begin{macrocode}
    \int_compare:nNnT \l_@@_last_row_int = { -1 }
      {
        \bool_set_true:N \l_@@_last_row_without_value_bool
        \bool_if:NT \g_@@_aux_found_bool
          { \int_set:Nn \l_@@_last_row_int { \seq_item:Nn \g_@@_size_seq 3 } }   
      }
    \int_compare:nNnT \l_@@_last_col_int = { -1 }
      {
        \bool_if:NT \g_@@_aux_found_bool
          { \int_set:Nn \l_@@_last_col_int { \seq_item:Nn \g_@@_size_seq 6 } }   
      }
%    \end{macrocode}
%
% \bigskip
% If there is an exterior row, we patch a command used in |\@@_cell_begin:| in order to
% keep track of some dimensions needed to the construction of that ``last row''.
%    \begin{macrocode}
    \int_compare:nNnT \l_@@_last_row_int > { -2 }
      {
        \tl_put_right:Nn \@@_update_for_first_and_last_row:
          {
            \dim_compare:nNnT \g_@@_ht_last_row_dim < { \box_ht:N \l_@@_cell_box }
              { \dim_gset:Nn \g_@@_ht_last_row_dim { \box_ht:N \l_@@_cell_box } }
            \dim_compare:nNnT \g_@@_dp_last_row_dim < { \box_dp:N \l_@@_cell_box }
              { \dim_gset:Nn \g_@@_dp_last_row_dim { \box_dp:N \l_@@_cell_box } }
          }
      }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \seq_gclear:N \g_@@_cols_vlism_seq
    \seq_gclear:N \g_@@_submatrix_seq
%    \end{macrocode}
% 
% \bigskip
% Now the |\CodeBefore|.
%   \begin{macrocode}
    \bool_if:NT \l_@@_code_before_bool \@@_exec_code_before:
%    \end{macrocode}
% 
% \bigskip
% The value of |\g_@@_pos_of_blocks_seq| has been written on the |aux| file and
% loaded before the (potential) execution of the |\CodeBefore|. Now, we clear
% that variable because it will be reconstructed during the creation of the
% array.
%    \begin{macrocode}
    \seq_gclear:N \g_@@_pos_of_blocks_seq
%    \end{macrocode}
% Idem for other sequences written on the |aux| file.
%    \begin{macrocode}
    \seq_gclear_new:N \g_@@_multicolumn_cells_seq
    \seq_gclear_new:N \g_@@_multicolumn_sizes_seq
%    \end{macrocode}
% 
% \bigskip
% The command |\create_row_node:| will create a row-node (and not a row of
% nodes!). However, at the end of the array we construct a ``false row'' (for
% the col-nodes) and it interfers with the construction of the last row-node
% of the array. We don't want to create such row-node twice (to avaid warnings
% or, maybe, errors). That's why the command |\@@_create_row_node:| will use the
% following counter to avoid such construction.
%    \begin{macrocode}
    \int_gset:Nn \g_@@_last_row_node_int { -2 } 
%    \end{macrocode}
% The value $-2$ is important.
% 
% 
% \interitem
% The code in |\@@_pre_array_ii:| is used only here.
%    \begin{macrocode}
    \@@_pre_array_ii:
%    \end{macrocode}
% 
% \medskip
% The array will be composed in a box (named |\l_@@_the_array_box|) because we
% have to do manipulations concerning the potential exterior rows.
%    \begin{macrocode}
    \box_clear_new:N \l_@@_the_array_box
%    \end{macrocode}
%
% \medskip
% We compute the width of both delimiters. We remind that, when the
% environment |{NiceArray}| is used, it's possible to specify the delimiters in
% the preamble (eg |[ccc]|).
%    \begin{macrocode}
    \dim_zero_new:N \l_@@_left_delim_dim
    \dim_zero_new:N \l_@@_right_delim_dim
    \bool_if:NTF \g_@@_delims_bool
      { 
%    \end{macrocode}
% The command |\bBigg@| is a command of \pkg{amsmath}.
%    \begin{macrocode}
        \hbox_set:Nn \l_tmpa_box { $ \bBigg@ 5 \g_@@_left_delim_tl $ }
        \dim_set:Nn \l_@@_left_delim_dim { \box_wd:N \l_tmpa_box }
        \hbox_set:Nn \l_tmpa_box { $ \bBigg@ 5 \g_@@_right_delim_tl $ }
        \dim_set:Nn \l_@@_right_delim_dim { \box_wd:N \l_tmpa_box }
      }
      { 
        \dim_gset:Nn \l_@@_left_delim_dim 
          { 2 \bool_if:NTF \l_@@_tabular_bool \tabcolsep \arraycolsep }
        \dim_gset_eq:NN \l_@@_right_delim_dim \l_@@_left_delim_dim 
      }
%    \end{macrocode}
% 
% \bigskip
% Here is the beginning of the box which will contain the array. The
% |\hbox_set_end:| corresponding to this |\hbox_set:Nw| will be in the second
% part of the environment (and the closing |\c_math_toggle_token| also).
%    \begin{macrocode}
    \hbox_set:Nw \l_@@_the_array_box
%    \end{macrocode}
%
%    \begin{macrocode}
    \skip_horizontal:N \l_@@_left_margin_dim 
    \skip_horizontal:N \l_@@_extra_left_margin_dim 
    \bool_if:NT \c_@@_recent_array_bool
      { \UseTaggingSocket { tbl / hmode / begin } }
%    \end{macrocode}
%
% The following code is a workaround to specify to the tagging system that the
% following code is \emph{fake math} (it raises |\l__math_fakemath_bool| in
% recent versions of LaTeX).
%    \begin{macrocode}
    \m@th
    \c_math_toggle_token
    \bool_if:NTF \l_@@_light_syntax_bool
      { \use:c { @@-light-syntax } }
      { \use:c { @@-normal-syntax } }
  }
%    \end{macrocode}
%
% \bigskip
% The following command |\@@_CodeBefore_Body:w| will be used when the keyword
% |\CodeBefore| is present at the beginning of the environment.
%    \begin{macrocode}
\cs_new_protected_nopar:Npn \@@_CodeBefore_Body:w #1 \Body
  {
    \tl_set:Nn \l_tmpa_tl { #1 }
    \int_compare:nNnT { \char_value_catcode:n { 60 } } = { 13 }
      { \@@_rescan_for_spanish:N \l_tmpa_tl }
    \tl_gput_left:No \g_@@_pre_code_before_tl \l_tmpa_tl
    \bool_set_true:N \l_@@_code_before_bool
%    \end{macrocode}
% We go on with |\@@_pre_array:| which will (among other) execute the
% |\CodeBefore| (specified in the key |code-before| or after the keyword
% |\CodeBefore|). By definition, the |\CodeBefore| must be executed before the
% body of the array...
%    \begin{macrocode}
    \@@_pre_array: 
  }
%    \end{macrocode}
%
% 
% 
% \bigskip
% \section{The \textbackslash CodeBefore}
% 
% The following command will be executed if the |\CodeBefore| has to be actually
% executed (that commmand will be used only once and is present alone only for legibility).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_pre_code_before:
  {
%    \end{macrocode}
% First, we give values to the LaTeX counters |iRow| and |jCol|. We remind that,
% in the |\CodeBefore| (and in the |\CodeAfter|) they represent the numbers of
% rows and columns of the array (without the potential last row and last
% column). The value of |\g_@@_row_total_int| is the number of the last row
% (with potentially a last exterior row) and |\g_@@_col_total_int| is the number
% of the last column (with potentially a last exterior column).
%    \begin{macrocode}
    \int_set:Nn \c@iRow { \seq_item:Nn \g_@@_size_seq 2 }
    \int_set:Nn \c@jCol { \seq_item:Nn \g_@@_size_seq 5 }
    \int_set_eq:NN \g_@@_row_total_int { \seq_item:Nn \g_@@_size_seq 3 }
    \int_set_eq:NN \g_@@_col_total_int { \seq_item:Nn \g_@@_size_seq 6 }
%    \end{macrocode}
%
%
% Now, we will create all the |col| nodes and |row| nodes with the informations
% written in the |aux| file. You use the technique described in the page~1247 of
% |pgfmanual.pdf|, version~3.1.10.
%    \begin{macrocode}
    \pgfsys@markposition { \@@_env: - position }
    \pgfsys@getposition { \@@_env: - position } \@@_picture_position: 
    \pgfpicture
    \pgf@relevantforpicturesizefalse
%    \end{macrocode}
% First, the recreation of the |row| nodes.
%    \begin{macrocode}
    \int_step_inline:nnn \l_@@_first_row_int { \g_@@_row_total_int + 1 }
      {
        \pgfsys@getposition { \@@_env: - row - ##1 } \@@_node_position:
        \pgfcoordinate { \@@_env: - row - ##1 }
          { \pgfpointdiff \@@_picture_position: \@@_node_position: }
      }
%    \end{macrocode}
% Now, the recreation of the |col| nodes.
%    \begin{macrocode}
    \int_step_inline:nnn \l_@@_first_col_int { \g_@@_col_total_int + 1 }
      {
        \pgfsys@getposition { \@@_env: - col - ##1 } \@@_node_position:
        \pgfcoordinate { \@@_env: - col - ##1 }
          { \pgfpointdiff \@@_picture_position: \@@_node_position: }
      }
%    \end{macrocode}
% Now, you recreate the diagonal nodes by using the |row| nodes and the |col| 
% nodes.
%    \begin{macrocode}
    \@@_create_diag_nodes:
%    \end{macrocode}
%
% \medskip 
% Now, the creation of the cell nodes |(i-j)|, and, maybe also the ``medium
% nodes'' and the ``large nodes''.
%    \begin{macrocode}
    \bool_if:NT \g_@@_recreate_cell_nodes_bool \@@_recreate_cell_nodes:
    \endpgfpicture
%    \end{macrocode}
%
% \medskip
% Now, the recreation of the nodes of the blocks \emph{which have a name}.
%    \begin{macrocode}
    \@@_create_blocks_nodes:
%    \end{macrocode}
%
%    \begin{macrocode}
    \IfPackageLoadedT { tikz }
      {  
        \tikzset
          { 
            every~picture / .style = 
              { overlay , name~prefix = \@@_env: - }
          }  
      }       
    \cs_set_eq:NN \cellcolor \@@_cellcolor
    \cs_set_eq:NN \rectanglecolor \@@_rectanglecolor
    \cs_set_eq:NN \roundedrectanglecolor \@@_roundedrectanglecolor
    \cs_set_eq:NN \rowcolor \@@_rowcolor
    \cs_set_eq:NN \rowcolors \@@_rowcolors
    \cs_set_eq:NN \rowlistcolors \@@_rowlistcolors
    \cs_set_eq:NN \arraycolor \@@_arraycolor
    \cs_set_eq:NN \columncolor \@@_columncolor
    \cs_set_eq:NN \chessboardcolors \@@_chessboardcolors
    \cs_set_eq:NN \SubMatrix \@@_SubMatrix_in_code_before
    \cs_set_eq:NN \ShowCellNames \@@_ShowCellNames
    \cs_set_eq:NN \TikzEveryCell \@@_TikzEveryCell
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_exec_code_before:
  { 
%    \end{macrocode}
% We mark the cells which are in the (empty) corners because those cells must
% not be colored. We should try to find a way to detected whether we actually
% have coloring instructions to execute...
%    \begin{macrocode}
    \clist_map_inline:Nn \l_@@_corners_cells_clist
      { \cs_set_nopar:cpn { @@ _ corner _ ##1 } { } }
%    \end{macrocode}
% 
%    \begin{macrocode}
    \seq_gclear_new:N \g_@@_colors_seq
%    \end{macrocode}
% The sequence |\g_@@_colors_seq| will always contain as first element the
% special color |nocolor|: when that color is used, no color will be applied in
% the corresponding cells by the other coloring commands of \pkg{nicematrix}.
%    \begin{macrocode}
    \@@_add_to_colors_seq:nn { { nocolor } } { } 
    \bool_gset_false:N \g_@@_recreate_cell_nodes_bool
    \group_begin:
%    \end{macrocode}
%
% We compose the |\CodeBefore| in math mode in order to nullify the spaces put
% by the user between instructions in the |\CodeBefore|.
%    \begin{macrocode}
    \bool_if:NT \l_@@_tabular_bool \c_math_toggle_token
%    \end{macrocode}
%
% \bigskip
% The following code is a security for the case the user has used \pkg{babel}
% with the option \pkg{spanish}: in that case, the characters |<| (de code
% \textsc{ascci} 60) and |>| are activated and Tikz is not able to solve the
% problem (even with the Tikz library \pkg{babel}).
%    \begin{macrocode}
      \int_compare:nNnT { \char_value_catcode:n { 60 } } = { 13 }
        { \@@_rescan_for_spanish:N \l_@@_code_before_tl }
%    \end{macrocode}
% 
% Here is the |\CodeBefore|. The construction is a bit complicated because
% |\g_@@_pre_code_before_tl| may begin with keys between square brackets. Moreover,
% after the analyze of those keys, we sometimes have to decide to do \emph{not}
% execute the rest of |\g_@@_pre_code_before_tl| (when it is asked for the creation
% of cell nodes in the |\CodeBefore|). That's why we use a |\q_stop|: it
% will be used to discard the rest of |\g_@@_pre_code_before_tl|.
%    \begin{macrocode}
    \exp_last_unbraced:No \@@_CodeBefore_keys: 
      \g_@@_pre_code_before_tl 
%    \end{macrocode}
% Now, all the cells which are specified to be colored by instructions in the
% |\CodeBefore| will actually be colored. It's a two-stages mechanism because we
% want to draw all the cells with the same color at the same time to absolutely
% avoid thin white lines in some \textsc{pdf} viewers.
%    \begin{macrocode}
      \@@_actually_color:
      \l_@@_code_before_tl 
      \q_stop 
    \bool_if:NT \l_@@_tabular_bool \c_math_toggle_token
    \group_end:
    \bool_if:NT \g_@@_recreate_cell_nodes_bool
      { \tl_put_left:Nn \@@_node_for_cell: \@@_patch_node_for_cell: } 
  } 
%    \end{macrocode}
%
% \bigskip 
%    \begin{macrocode}
\keys_define:nn { nicematrix / CodeBefore }
  {
    create-cell-nodes .bool_gset:N = \g_@@_recreate_cell_nodes_bool ,
    create-cell-nodes .default:n = true ,
    sub-matrix .code:n = \keys_set:nn { nicematrix / sub-matrix } { #1 } , 
    sub-matrix .value_required:n = true ,
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~CodeBefore }
  }
%    \end{macrocode}
%
%
%    \begin{macrocode}
\NewDocumentCommand \@@_CodeBefore_keys: { O { } }
  { 
    \keys_set:nn { nicematrix / CodeBefore } { #1 } 
    \@@_CodeBefore:w 
  }
%    \end{macrocode}
%
% We have extracted the options of the keyword |\CodeBefore| in order to see
% whether the key |create-cell-nodes| has been used. Now, you can execute the
% rest of the |\CodeBefore|, excepted, of course, if we are in the first
% compilation. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_CodeBefore:w #1 \q_stop
  { 
    \bool_if:NT \g_@@_aux_found_bool
      { 
        \@@_pre_code_before: 
        #1 
      } 
  }
%    \end{macrocode}
%
%
% \bigskip
% By default, if the user uses the |\CodeBefore|, only the |col| nodes, |row|
% nodes and |diag| nodes are available in that |\CodeBefore|. With the key
% |create-cell-nodes|, the cell nodes, that is to say the nodes of the form
% |(i-j)| (but not the extra nodes) are also available because those nodes also
% are recreated and that recreation is done by the following command. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_recreate_cell_nodes:
  {
    \int_step_inline:nnn \l_@@_first_row_int \g_@@_row_total_int
      {
        \pgfsys@getposition { \@@_env: - ##1 - base } \@@_node_position: 
        \pgfcoordinate { \@@_env: - row - ##1 - base }
          { \pgfpointdiff \@@_picture_position: \@@_node_position: }
        \int_step_inline:nnn \l_@@_first_col_int \g_@@_col_total_int
          {
            \cs_if_exist:cT
              { pgf @ sys @ pdf @ mark @ pos @ \@@_env: - ##1 - ####1 - NW }
              {
                \pgfsys@getposition 
                  { \@@_env: - ##1 - ####1 - NW }
                  \@@_node_position: 
                \pgfsys@getposition 
                  { \@@_env: - ##1 - ####1 - SE }
                  \@@_node_position_i: 
                \@@_pgf_rect_node:nnn
                  { \@@_env: - ##1 - ####1 }
                  { \pgfpointdiff \@@_picture_position: \@@_node_position: }
                  { \pgfpointdiff \@@_picture_position: \@@_node_position_i: }
              }
          }
      }
    \int_step_inline:nn \c@iRow
      { 
        \pgfnodealias 
          { \@@_env: - ##1 - last } 
          { \@@_env: - ##1 - \int_use:N \c@jCol } 
      }
    \int_step_inline:nn \c@jCol
      { 
        \pgfnodealias 
          { \@@_env: - last - ##1 } 
          { \@@_env: - \int_use:N \c@iRow - ##1 } 
      }
    \@@_create_extra_nodes:
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_blocks_nodes:
  {
    \pgfpicture
    \pgf@relevantforpicturesizefalse
    \pgfrememberpicturepositiononpagetrue
    \seq_map_inline:Nn \g_@@_pos_of_blocks_seq
      { \@@_create_one_block_node:nnnnn ##1 }
    \endpgfpicture
  }
%    \end{macrocode}
% 
% The following command is called |\@@_create_one_block_node:nnnnn| but, in
% fact, it creates a node only if the last argument (|#5|) which is the name of
% the block, is not empty.\footnote{Moreover, there is also in the list
% |\g_@@_pos_of_blocks_seq| the positions of the dotted lines (created by
% |\Cdots|, etc.) and, for these entries, there is, of course, no name (the
% fifth component is empty).}
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_one_block_node:nnnnn #1 #2 #3 #4 #5 
  {
    \tl_if_empty:nF { #5 }
      {
        \@@_qpoint:n { col - #2 }
        \dim_set_eq:NN \l_tmpa_dim \pgf@x 
        \@@_qpoint:n { #1 }
        \dim_set_eq:NN \l_tmpb_dim \pgf@y
        \@@_qpoint:n { col - \int_eval:n { #4 + 1 } }
        \dim_set_eq:NN \l_@@_tmpc_dim \pgf@x
        \@@_qpoint:n { \int_eval:n { #3 + 1 } }
        \dim_set_eq:NN \l_@@_tmpd_dim \pgf@y
        \@@_pgf_rect_node:nnnnn
          { \@@_env: - #5 }
          { \dim_use:N \l_tmpa_dim }
          { \dim_use:N \l_tmpb_dim }
          { \dim_use:N \l_@@_tmpc_dim }
          { \dim_use:N \l_@@_tmpd_dim }
      }
  }
%    \end{macrocode}
%
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_patch_for_revtex:
  {
    \cs_set_eq:NN \@addamp \@addamp@LaTeX
    \cs_set_eq:NN \@array \@array@array
    \cs_set_eq:NN \@tabular \@tabular@array
    \cs_set:Npn \@tabarray { \@ifnextchar [ { \@array } { \@array [ c ] } }
    \cs_set_eq:NN \array \array@array
    \cs_set_eq:NN \endarray \endarray@array
    \cs_set:Npn \endtabular { \endarray $\egroup} % $
    \cs_set_eq:NN \@mkpream \@mkpream@array
    \cs_set_eq:NN \@classx \@classx@array
    \cs_set_eq:NN \insert@column \insert@column@array
    \cs_set_eq:NN \@arraycr \@arraycr@array
    \cs_set_eq:NN \@xarraycr \@xarraycr@array
    \cs_set_eq:NN \@xargarraycr \@xargarraycr@array
  }
%    \end{macrocode}
%
% 
% \bigskip
% \section{The environment \{NiceArrayWithDelims\}}
%
%    \begin{macrocode}
\NewDocumentEnvironment { NiceArrayWithDelims } 
  { m m O { } m ! O { } t \CodeBefore }
  { 
    \bool_if:NT \c_@@_revtex_bool \@@_patch_for_revtex:
%    \end{macrocode}
%
%    \begin{macrocode}
    \@@_provide_pgfsyspdfmark:
    \bool_if:NT \g_@@_footnote_bool \savenotes 
%    \end{macrocode}
% 
% The aim of the following |\bgroup| (the corresponding |\egroup| is, of course,
% at the end of the environment) is to be able to put an exposant to a matrix in
% a mathematical formula.
%    \begin{macrocode}
    \bgroup
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \tl_gset:Nn \g_@@_left_delim_tl { #1 }
    \tl_gset:Nn \g_@@_right_delim_tl { #2 }
    \tl_gset:Nn \g_@@_user_preamble_tl { #4 }
    \tl_if_empty:NT \g_@@_user_preamble_tl { \@@_fatal:n { empty~preamble } } 
%    \end{macrocode}
%   
%
% \bigskip
%    \begin{macrocode}
    \int_gzero:N \g_@@_block_box_int
    \dim_zero:N \g_@@_width_last_col_dim
    \dim_zero:N \g_@@_width_first_col_dim
    \bool_gset_false:N \g_@@_row_of_col_done_bool
    \str_if_empty:NT \g_@@_name_env_str 
      { \str_gset:Nn \g_@@_name_env_str { NiceArrayWithDelims } } 
    \bool_if:NTF \l_@@_tabular_bool 
      \mode_leave_vertical:
      \@@_test_if_math_mode:
    \bool_if:NT \l_@@_in_env_bool { \@@_fatal:n { Yet~in~env } } 
    \bool_set_true:N \l_@@_in_env_bool
%    \end{macrocode}
% The command |\CT@arc@| contains the instruction of color for the rules of the
% array\footnote{e.g. |\color[rgb]{0.5,0.5,0}|}. This command is used by |\CT@arc@| but
% we use it also for compatibility with \pkg{colortbl}. But we want also to be
% able to use color for the rules of the array when \pkg{colortbl} is \emph{not}
% loaded. That's why we do the following instruction which is in the patch of
% the beginning of arrays done by \pkg{colortbl}. Of course, we restore the
% value of |\CT@arc@| at the end of our environment.
%    \begin{macrocode}
    \cs_gset_eq:NN \@@_old_CT@arc@ \CT@arc@ 
%    \end{macrocode}
%
% We deactivate Tikz externalization because we will use \textsc{pgf} pictures
% with the options |overlay| and |remember picture| (or equivalent forms). We
% deactivate with |\tikzexternaldisable| and not with
% |\tikzset{external/export=false}| which is \emph{not} equivalent.
%    \begin{macrocode}
    \cs_if_exist:NT \tikz@library@external@loaded
      {
        \tikzexternaldisable
        \cs_if_exist:NT \ifstandalone
          { \tikzset { external / optimize = false } }
      }
%    \end{macrocode}
%
% We increment the counter |\g_@@_env_int| which counts the environments
% of the package.
%    \begin{macrocode}
    \int_gincr:N \g_@@_env_int
    \bool_if:NF \l_@@_block_auto_columns_width_bool
      { \dim_gzero_new:N \g_@@_max_cell_width_dim }
%    \end{macrocode}
%
% 
% The sequence |\g_@@_blocks_seq| will contain the carateristics of the blocks
% (specified by |\Block|) of the array. The sequence |\g_@@_pos_of_blocks_seq|
% will contain only the position of the blocks (except the blocks with the key
% |hvlines|). 
%    \begin{macrocode}
    \seq_gclear:N \g_@@_blocks_seq
    \seq_gclear:N \g_@@_pos_of_blocks_seq
%    \end{macrocode}
% In fact, the sequence |\g_@@_pos_of_blocks_seq| will also contain the
% positions of the cells with a |\diagbox| and the |\multicolumn|.
%
%    \begin{macrocode}
    \seq_gclear:N \g_@@_pos_of_stroken_blocks_seq
    \seq_gclear:N \g_@@_pos_of_xdots_seq
    \tl_gclear_new:N \g_@@_code_before_tl 
    \tl_gclear:N \g_@@_row_style_tl
%    \end{macrocode}
%
% \bigskip
% We load all the informations written in the |aux| file during previous
% compilations corresponding to the current environment.
%    \begin{macrocode}
    \tl_if_exist:cTF { c_@@ _ \int_use:N \g_@@_env_int _ tl }
      { 
        \bool_gset_true:N \g_@@_aux_found_bool
        \use:c { c_@@ _ \int_use:N \g_@@_env_int _ tl } 
      }
      { \bool_gset_false:N \g_@@_aux_found_bool }
%    \end{macrocode}
% Now, we prepare the token list for the instructions that we will have to write
% on the |aux| file at the end of the environment.
%    \begin{macrocode}
    \tl_gclear:N \g_@@_aux_tl
%    \end{macrocode}
% 
%    \begin{macrocode}
    \tl_if_empty:NF \g_@@_code_before_tl 
      { 
        \bool_set_true:N \l_@@_code_before_bool
        \tl_put_right:No \l_@@_code_before_tl \g_@@_code_before_tl 
      }
    \tl_if_empty:NF \g_@@_pre_code_before_tl
      { \bool_set_true:N \l_@@_code_before_bool }
%    \end{macrocode}
% 
% The set of keys is not exactly the same for |{NiceArray}| and for the variants
% of |{NiceArray}| (|{pNiceArray}|, |{bNiceArray}|, etc.) because, for
% |{NiceArray}|, we have the options |t|, |c|, |b| and |baseline|.
%    \begin{macrocode}
    \bool_if:NTF \g_@@_delims_bool 
      { \keys_set:nn { nicematrix / pNiceArray } }
      { \keys_set:nn { nicematrix / NiceArray } }
    { #3 , #5 } 
%    \end{macrocode}
%
% \bigskip 
%    \begin{macrocode}
    \@@_set_CT@arc@:o \l_@@_rules_color_tl 
%    \end{macrocode}
%
% \bigskip
% The argument |#6| is the last argument of |{NiceArrayWithDelims}|. With that
% argument of type ``|t \CodeBefore|'', we test whether there is the keyword
% |\CodeBefore| at the beginning of the body of the environment. If that keyword
% is present, we have now to extract all the content between that keyword
% |\CodeBefore| and the (other) keyword |\Body|. It's the job that will do the
% command |\@@_CodeBefore_Body:w|. After that job, the command |\@@_CodeBefore_Body:w|
% will go on with |\@@_pre_array:|.
%    \begin{macrocode}
    \bool_if:nTF { #6 } \@@_CodeBefore_Body:w \@@_pre_array: 
  }
%    \end{macrocode}
% 
% Now, the second part of the environment |{NiceArrayWithDelims}|.
%    \begin{macrocode}
  { 
    \bool_if:NTF \l_@@_light_syntax_bool
      { \use:c { end @@-light-syntax } }
      { \use:c { end @@-normal-syntax } }
    \c_math_toggle_token
    \skip_horizontal:N \l_@@_right_margin_dim 
    \skip_horizontal:N \l_@@_extra_right_margin_dim 
 
    % awful workaround
    \int_compare:nNnT \g_@@_col_total_int = \c_one_int
      {
        \dim_compare:nNnT \l_@@_columns_width_dim > \c_zero_dim 
          { 
            \skip_horizontal:N - \l_@@_columns_width_dim 
            \bool_if:NTF \l_@@_tabular_bool 
              { \skip_horizontal:n { - 2 \tabcolsep } }
              { \skip_horizontal:n { - 2 \arraycolsep } }
          }
      }
    \hbox_set_end:
    \bool_if:NT \c_@@_recent_array_bool
      { \UseTaggingSocket { tbl / hmode / end } }
%    \end{macrocode}
% End of the construction of the array (in the box |\l_@@_the_array_box|).
%
% \bigskip
% If the user has used the key |width| without any column |X|, we raise an error.
%    \begin{macrocode}
    \bool_if:NT \l_@@_width_used_bool
      {
        \int_if_zero:nT \g_@@_total_X_weight_int  
          { \@@_error_or_warning:n { width~without~X~columns } }
      }
%    \end{macrocode}
%
% \bigskip
% Now, if there is at least one |X|-column in the environment, we compute the
% width that those columns will have (in the next compilation). In fact,
% |l_@@_X_columns_dim| will be the width of a column of weight $1$. For a
% |X|-column of weight~$n$, the width will be |\l_@@_X_columns_dim| multiplied
% by~$n$. 
%    \begin{macrocode}
    \int_compare:nNnT \g_@@_total_X_weight_int > \c_zero_int
      { \@@_compute_width_X: }
%    \end{macrocode}
% 
% \bigskip
% It the user has used the key |last-row| with a value, we control that the
% given value is correct (since we have just constructed the array, we know the
% actual number of rows of the array).
%    \begin{macrocode}
    \int_compare:nNnT \l_@@_last_row_int > { -2 }
      {
        \bool_if:NF \l_@@_last_row_without_value_bool
          {
            \int_compare:nNnF \l_@@_last_row_int = \c@iRow
              { 
                \@@_error:n { Wrong~last~row } 
                \int_gset_eq:NN \l_@@_last_row_int \c@iRow
              }
          } 
      } 
%    \end{macrocode}
%
% Now, the definition of |\c@jCol| and |\g_@@_col_total_int| change: |\c@jCol|
% will be the number of columns without the ``last column'';
% |\g_@@_col_total_int| will be the number of columns with this ``last
% column''.\footnote{We remind that the potential ``first column'' (exterior)
% has the number~$0$.} 
%    \begin{macrocode}
    \int_gset_eq:NN \c@jCol \g_@@_col_total_int
    \bool_if:NTF \g_@@_last_col_found_bool 
      { \int_gdecr:N \c@jCol } 
      {
        \int_compare:nNnT \l_@@_last_col_int > { -1 }
          { \@@_error:n { last~col~not~used } }
      }
%    \end{macrocode}
%
% We fix also the value of |\c@iRow| and |\g_@@_row_total_int| with the
% same principle.
%    \begin{macrocode}
    \int_gset_eq:NN \g_@@_row_total_int \c@iRow
    \int_compare:nNnT \l_@@_last_row_int > { -1 } { \int_gdecr:N \c@iRow } 
%    \end{macrocode}
%
% 
% \bigskip
% \textbf{Now, we begin the real construction in the output flow of TeX}. First, we take
% into account a potential ``first column'' (we remind that this ``first
% column'' has been constructed in an overlapping position and that we have
% computed its width in |\g_@@_width_first_col_dim|: see p.~\pageref{overlap-left}). 
%    \begin{macrocode}
    \int_if_zero:nT \l_@@_first_col_int
      { \skip_horizontal:N \g_@@_width_first_col_dim }
%    \end{macrocode}
%
% The construction of the real box is different whether we have delimiters to
% put.
%    \begin{macrocode}
    \bool_if:nTF { ! \g_@@_delims_bool }
      { 
        \str_if_eq:eeTF \l_@@_baseline_tl { c }
          \@@_use_arraybox_with_notes_c:
          {
            \str_if_eq:eeTF \l_@@_baseline_tl { b }
              \@@_use_arraybox_with_notes_b:
              \@@_use_arraybox_with_notes:
          }
      } 
%    \end{macrocode}
%
% Now, in the case of an environment with delimiters. We compute |\l_tmpa_dim|
% which is the total height of the ``first row'' above the array (when the key
% |first-row| is used).
%    \begin{macrocode}
      {
        \int_if_zero:nTF \l_@@_first_row_int
          { 
            \dim_set_eq:NN \l_tmpa_dim \g_@@_dp_row_zero_dim 
            \dim_add:Nn \l_tmpa_dim \g_@@_ht_row_zero_dim 
          } 
          { \dim_zero:N \l_tmpa_dim }
%    \end{macrocode}
%
% We compute |\l_tmpb_dim| which is the total height of the ``last row''
% below the array (when the key |last-row| is used). A value of $-2$ for
% |\l_@@_last_row_int| means that there is no ``last row''.\footnote{A value of
% $-1$ for |\l_@@_last_row_int| means that there is a ``last row'' but the
% the user have not set the value with the option |last row| (and we are in the
% first compilation).} 
%    \begin{macrocode}
        \int_compare:nNnTF \l_@@_last_row_int > { -2 }
          {
            \dim_set_eq:NN \l_tmpb_dim \g_@@_ht_last_row_dim 
            \dim_add:Nn \l_tmpb_dim \g_@@_dp_last_row_dim 
          }
          { \dim_zero:N \l_tmpb_dim }
%    \end{macrocode}
% 
%    \begin{macrocode}        
        \hbox_set:Nn \l_tmpa_box
          {
            \m@th % added 2024/11/21
            \c_math_toggle_token
            \@@_color:o \l_@@_delimiters_color_tl
            \exp_after:wN \left \g_@@_left_delim_tl
            \vcenter 
              { 
%    \end{macrocode}
% We take into account the ``first row'' (we have previously computed its total
% height in |\l_tmpa_dim|). The |\hbox:n| (or |\hbox|) is necessary here.
%    \begin{macrocode}
                \skip_vertical:n { -\l_tmpa_dim - \arrayrulewidth }
                \hbox
                  {
                    \bool_if:NTF \l_@@_tabular_bool
                      { \skip_horizontal:N -\tabcolsep }
                      { \skip_horizontal:N -\arraycolsep }
                    \@@_use_arraybox_with_notes_c:
                    \bool_if:NTF \l_@@_tabular_bool
                      { \skip_horizontal:N -\tabcolsep }
                      { \skip_horizontal:N -\arraycolsep }
                  }
%    \end{macrocode}
% We take into account the ``last row'' (we have previously computed its total
% height in |\l_tmpb_dim|). 
%    \begin{macrocode}
                \skip_vertical:N -\l_tmpb_dim 
                \skip_vertical:N \arrayrulewidth 
              }
            \exp_after:wN \right \g_@@_right_delim_tl
            \c_math_toggle_token
          }
%    \end{macrocode}
% Now, the box |\l_tmpa_box| is created with the correct delimiters.
%
% \smallskip
% We will put the box in the TeX flow. However, we have a small work to do 
% when the option |delimiters/max-width| is used.
%    \begin{macrocode}
        \bool_if:NTF \l_@@_delimiters_max_width_bool 
          { 
            \@@_put_box_in_flow_bis:nn 
              \g_@@_left_delim_tl 
              \g_@@_right_delim_tl
          } 
          \@@_put_box_in_flow: 
      } 
%    \end{macrocode}
%
% We take into account a potential ``last column'' (this ``last column'' has
% been constructed in an overlapping position and we have computed its width in
% |\g_@@_width_last_col_dim|: see p.~\pageref{overlap-right}).
%    \begin{macrocode}           
    \bool_if:NT \g_@@_last_col_found_bool 
      { \skip_horizontal:N \g_@@_width_last_col_dim }
    \bool_if:NT \l_@@_preamble_bool
      {
        \int_compare:nNnT \c@jCol < \g_@@_static_num_of_col_int 
          { \@@_warning_gredirect_none:n { columns~not~used } }
      }
    \@@_after_array:
%    \end{macrocode}
% The aim of the following |\egroup| (the corresponding |\bgroup| is, of course,
% at the beginning of the environment) is to be able to put an exposant to a matrix in
% a mathematical formula.
%    \begin{macrocode}
    \egroup 
%    \end{macrocode}
% 
% \bigskip
% We write on the |aux| file all the informations corresponding to the
% current environment.
%    \begin{macrocode}
    \iow_now:Nn \@mainaux { \ExplSyntaxOn }
    \iow_now:Nn \@mainaux { \char_set_catcode_space:n { 32 }  }
    \iow_now:Ne \@mainaux 
      {
        \tl_gset:cn { c_@@_ \int_use:N \g_@@_env_int _ tl } 
          { \exp_not:o \g_@@_aux_tl } 
      }
    \iow_now:Nn \@mainaux { \ExplSyntaxOff }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \bool_if:NT \g_@@_footnote_bool \endsavenotes 
  }
%    \end{macrocode}
% This is the end of the environment |{NiceArrayWithDelims}|.
%
%
% \bigskip
% The following command will be used only once. We have written that command for
% legibility. If there is at least one |X|-column in the environment, we compute
% the width that those columns will have (in the next compilation). In fact,
% |l_@@_X_columns_dim| will be the width of a column of weight $1$. For a
% |X|-column of weight~$n$, the width will be |\l_@@_X_columns_dim| multiplied
% by~$n$.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_compute_width_X:
  { 
    \tl_gput_right:Ne \g_@@_aux_tl
      {
        \bool_set_true:N \l_@@_X_columns_aux_bool
        \dim_set:Nn \l_@@_X_columns_dim 
          {
            \dim_compare:nNnTF 
              { 
                \dim_abs:n 
                  { \l_@@_width_dim - \box_wd:N \l_@@_the_array_box }  
              } 
              < 
              { 0.001 pt }
              { \dim_use:N \l_@@_X_columns_dim }
              {
                \dim_eval:n 
                  {
                    ( \l_@@_width_dim - \box_wd:N \l_@@_the_array_box ) 
                    / \int_use:N \g_@@_total_X_weight_int 
                    + \l_@@_X_columns_dim 
                  }
              }
          }
      }
  }
%    \end{macrocode}
% 
% \vspace{1cm}
% \section{Construction of the preamble of the array}
%
% \bigskip 
% The final user provides a preamble, but we must convert that preamble into a
% preamble which will be given to |{array}| (of the package \pkg{array}).
%
% \bigskip
% The preamble given by the final user is stored in |\g_@@_user_preamble_tl|.
% The modified version will be stored in |\g_@@_array_preamble_tl| also.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_transform_preamble:
  {
    \@@_transform_preamble_i:
    \@@_transform_preamble_ii:
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_transform_preamble_i:
  {
    \int_gzero:N \c@jCol
%    \end{macrocode}
% The sequence |\g_@@_cols_vlsim_seq| will contain the numbers of the columns
% where you will to have to draw vertical lines in the potential sub-matrices
% (hence the name |vlism|). 
%    \begin{macrocode}
    \seq_gclear:N \g_@@_cols_vlism_seq 
%    \end{macrocode}
% |\g_tmpb_bool| will be raised if you have a \verb+|+ at the end of the
% preamble provided by the final user.
%    \begin{macrocode}
    \bool_gset_false:N \g_tmpb_bool
%    \end{macrocode}
%
% The following sequence will store the arguments of the successive |>| in the
% preamble. 
%    \begin{macrocode}
    \tl_gclear_new:N \g_@@_pre_cell_tl
%    \end{macrocode}
% The counter |\l_tmpa_int| will count the number of consecutive occurrences
% of the symbol \verb+|+.
%    \begin{macrocode}
    \int_zero:N \l_tmpa_int
    \tl_gclear:N \g_@@_array_preamble_tl 
    \str_if_eq:eeTF \l_@@_vlines_clist { all }
      { 
        \tl_gset:Nn \g_@@_array_preamble_tl 
          { ! { \skip_horizontal:N \arrayrulewidth } }
      }
      {
        \clist_if_in:NnT \l_@@_vlines_clist 1 
          { 
            \tl_gset:Nn \g_@@_array_preamble_tl 
              { ! { \skip_horizontal:N \arrayrulewidth } }
          }
      }
%    \end{macrocode}
% 
% \bigskip
% Now, we actually make the preamble (which will be given to |{array}|). It will
% be stored in |\g_@@_array_preamble_tl|.
%    \begin{macrocode}
    \exp_last_unbraced:No \@@_rec_preamble:n \g_@@_user_preamble_tl \@@_stop:
    \int_gset_eq:NN \g_@@_static_num_of_col_int \c@jCol
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
    \@@_replace_columncolor: 
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \IfPackageLoadedTF { colortbl } 
      {
%    \end{macrocode}
% When \pkg{colortbl} is used, we have to catch the tokens |\columncolor| in the
% preamble because, otherwise, \pkg{colortbl} will catch them and the colored
% panels won't be drawn by \pkg{nicematrix} but by \pkg{colortbl} (with an
% output which is not perfect).
%    \begin{macrocode}
        \regex_const:Nn \c_@@_columncolor_regex { \c { columncolor } } 
        \cs_new_protected:Npn \@@_replace_columncolor:
          {
            \regex_replace_all:NnN 
              \c_@@_columncolor_regex
              { \c { @@_columncolor_preamble } }  
              \g_@@_array_preamble_tl
          }  
      }
      { 
        \cs_new_protected:Npn \@@_replace_columncolor: 
          { \cs_set_eq:NN \columncolor \@@_columncolor_preamble }
      }
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_transform_preamble_ii:
  {
%    \end{macrocode}
% 
% \medskip
% If there were delimiters at the beginning or at the end of the preamble, the
% environment |{NiceArray}| is transformed into an environment |{xNiceMatrix}|.
%    \begin{macrocode}
     \tl_if_eq:NNTF \g_@@_left_delim_tl \c_@@_dot_tl
       { 
         \tl_if_eq:NNF \g_@@_right_delim_tl \c_@@_dot_tl
           { \bool_gset_true:N \g_@@_delims_bool } 
       }
       { \bool_gset_true:N \g_@@_delims_bool } 
%    \end{macrocode}
%
% \medskip
% We want to remind whether there is a specifier \verb+|+ at the end of the preamble. 
%    \begin{macrocode}
    \bool_if:NT \g_tmpb_bool { \bool_set_true:N \l_@@_bar_at_end_of_pream_bool } 
%    \end{macrocode}
%
% \bigskip
% We complete the preamble with the potential ``exterior columns'' (on both sides).
%    \begin{macrocode}
    \int_if_zero:nTF \l_@@_first_col_int 
      { \tl_gput_left:No \g_@@_array_preamble_tl \c_@@_preamble_first_col_tl }
      {
        \bool_if:NF \g_@@_delims_bool 
          { 
            \bool_if:NF \l_@@_tabular_bool 
              { 
                \clist_if_empty:NT \l_@@_vlines_clist 
                  { 
                    \bool_if:NF \l_@@_exterior_arraycolsep_bool 
                      { \tl_gput_left:Nn \g_@@_array_preamble_tl { @ { } } }
                  }
              }
          }
      }
    \int_compare:nNnTF \l_@@_last_col_int > { -1 }
      { \tl_gput_right:No \g_@@_array_preamble_tl \c_@@_preamble_last_col_tl }
      { 
        \bool_if:NF \g_@@_delims_bool 
          { 
            \bool_if:NF \l_@@_tabular_bool 
              { 
                \clist_if_empty:NT \l_@@_vlines_clist 
                  { 
                    \bool_if:NF \l_@@_exterior_arraycolsep_bool 
                      { \tl_gput_right:Nn \g_@@_array_preamble_tl { @ { } } }
                  }
              } 
          }
      }
%    \end{macrocode}
% We add a last column to raise a good error message when the user puts more
% columns than allowed by its preamble. However, for technical reasons, it's not
% possible to do that in |{NiceTabular*}| (we control that with the value of 
% |\l_@@_tabular_width_dim|). 
%    \begin{macrocode}
  \dim_compare:nNnT \l_@@_tabular_width_dim = \c_zero_dim 
    {
%    \end{macrocode}
% If the tagging of the tabulars is done (part of the Tagging Project), you
% don't activate that mechanism because it would create a dummy column of tagged
% empty cells.
%    \begin{macrocode}
      \bool_if:NF \c_@@_testphase_table_bool
        { 
          \tl_gput_right:Nn \g_@@_array_preamble_tl 
            { > { \@@_error_too_much_cols: } l }
        } 
    }
  }
%    \end{macrocode}
%
% \bigskip
% The preamble provided by the final user will be read by a finite
% automata. The following function |\@@_rec_preamble:n| will read that preamble
% (usually letter by letter) in a recursive way (hence the name of that function). 
% in the preamble.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rec_preamble:n #1
  {
%    \end{macrocode}
% For the majority of the letters, we will trigger the corresponding action by
% calling directly a function in the main hashtable of TeX (thanks to the
% mechanism |\csname...\endcsname|. Be careful: all these functions take in as
% first argument the letter (or token) itself.\footnote{We do that because it's
% an easy way to insert the letter at some places in the code that we will add to
% |\g_@@_array_preamble_tl|.}
%    \begin{macrocode}
    \cs_if_exist:cTF { @@ _ \token_to_str:N #1 }
      { \use:c { @@ _ \token_to_str:N #1 } { #1 } }
      { 
%    \end{macrocode}
% Now, the columns defined by |\newcolumntype| of \pkg{array}.
%    \begin{macrocode}
        \cs_if_exist:cTF { NC @ find @ #1 }
          {
            \tl_set_eq:Nc \l_tmpb_tl { NC @ rewrite @ #1 }
            \exp_last_unbraced:No \@@_rec_preamble:n \l_tmpb_tl
          }
          { 
%    \end{macrocode}
%
%    \begin{macrocode}
            \str_if_eq:nnTF { #1 } { S }
              { \@@_fatal:n { unknown~column~type~S } }
              { \@@_fatal:nn { unknown~column~type } { #1 } }
          }
      }
  }
%    \end{macrocode}
%
%
% 
% \bigskip
% For |c|, |l| and |r|
%    \begin{macrocode}
\cs_new_protected:Npn \@@_c #1
  { 
    \tl_gput_right:No \g_@@_array_preamble_tl \g_@@_pre_cell_tl 
    \tl_gclear:N \g_@@_pre_cell_tl
    \tl_gput_right:Nn \g_@@_array_preamble_tl 
      { > \@@_cell_begin: c < \@@_cell_end: }  
%    \end{macrocode}
%
% We increment the counter of columns and then we test for the presence of a |<|.
%    \begin{macrocode}
    \int_gincr:N \c@jCol
    \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
%    \begin{macrocode}
\cs_new_protected:Npn \@@_l #1
  { 
    \tl_gput_right:No \g_@@_array_preamble_tl \g_@@_pre_cell_tl 
    \tl_gclear:N \g_@@_pre_cell_tl
    \tl_gput_right:Nn \g_@@_array_preamble_tl 
      { 
        > { \@@_cell_begin: \tl_set_eq:NN \l_@@_hpos_cell_tl \c_@@_l_tl } 
        l
        < \@@_cell_end:
      }  
    \int_gincr:N \c@jCol
    \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
%    \begin{macrocode}
\cs_new_protected:Npn \@@_r #1
  { 
    \tl_gput_right:No \g_@@_array_preamble_tl \g_@@_pre_cell_tl 
    \tl_gclear:N \g_@@_pre_cell_tl
    \tl_gput_right:Nn \g_@@_array_preamble_tl 
      { 
        > { \@@_cell_begin: \tl_set_eq:NN \l_@@_hpos_cell_tl \c_@@_r_tl }  
        r 
        < \@@_cell_end:
      }  
    \int_gincr:N \c@jCol
    \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
% 
% \medskip
% For |!| and |@|
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ \token_to_str:N ! } #1 #2
  {  
    \tl_gput_right:Nn \g_@@_array_preamble_tl { #1 { #2 } }
    \@@_rec_preamble:n
  }
\cs_set_eq:cc { @@ _ \token_to_str:N @ } { @@ _ \token_to_str:N ! }
%    \end{macrocode}
%
% 
% \medskip
% For \verb+|+
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ | } #1
  { 
%    \end{macrocode}
% |\l_tmpa_int| is the number of successive occurrences of \verb+|+
%    \begin{macrocode}
    \int_incr:N \l_tmpa_int 
    \@@_make_preamble_i_i:n
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_i_i:n #1
  {
    \str_if_eq:nnTF { #1 } { | }
      { \use:c { @@ _ | } | }
      { \@@_make_preamble_i_ii:nn { } #1 }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_i_ii:nn #1 #2
  {
    \str_if_eq:nnTF { #2 } { [ }
      { \@@_make_preamble_i_ii:nw { #1 } [ }
      { \@@_make_preamble_i_iii:nn { #2 } { #1 } }
  }
\cs_new_protected:Npn \@@_make_preamble_i_ii:nw #1 [ #2 ]  
  { \@@_make_preamble_i_ii:nn { #1 , #2 } }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_i_iii:nn #1 #2
  {
    \@@_compute_rule_width:n { multiplicity = \l_tmpa_int , #2 }
    \tl_gput_right:Ne \g_@@_array_preamble_tl
      { 
%    \end{macrocode}
% Here, the command |\dim_use:N| is mandatory.
%    \begin{macrocode}
        \exp_not:N ! { \skip_horizontal:N \dim_use:N \l_@@_rule_width_dim }   
      }
    \tl_gput_right:Ne \g_@@_pre_code_after_tl
      { 
        \@@_vline:n
          { 
            position = \int_eval:n { \c@jCol + 1 } ,
            multiplicity = \int_use:N \l_tmpa_int ,
            total-width = \dim_use:N \l_@@_rule_width_dim ,
            #2
          } 
%    \end{macrocode}
% We don't have provided value for |start| nor for |end|, which means that the
% rule will cover (potentially) all the rows of the array.
% 
%    \begin{macrocode}
      }
    \int_zero:N \l_tmpa_int
    \str_if_eq:nnT { #1 } { \@@_stop: } { \bool_gset_true:N \g_tmpb_bool } 
    \@@_rec_preamble:n #1 
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _  > } #1 #2
  { 
    \tl_gput_right:Nn \g_@@_pre_cell_tl { > { #2 } } 
    \@@_rec_preamble:n 
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\bool_new:N \l_@@_bar_at_end_of_pream_bool
%    \end{macrocode}
% 
% \bigskip 
% The specifier |p| (and also the specifiers |m|, |b|, |V| and |X|) have an
% optional argument between square brackets for a list of
% \emph{key}-\emph{value} pairs. Here are the corresponding keys.
%    \begin{macrocode}
\keys_define:nn { nicematrix / p-column }
  {
    r .code:n = \str_set_eq:NN \l_@@_hpos_col_str \c_@@_r_str ,
    r .value_forbidden:n = true ,
    c .code:n = \str_set_eq:NN \l_@@_hpos_col_str \c_@@_c_str ,
    c .value_forbidden:n = true ,
    l .code:n = \str_set_eq:NN \l_@@_hpos_col_str \c_@@_l_str ,
    l .value_forbidden:n = true ,
    S .code:n = \str_set:Nn \l_@@_hpos_col_str { si } ,
    S .value_forbidden:n = true ,
    p .code:n = \str_set:Nn \l_@@_vpos_col_str { p } ,
    p .value_forbidden:n = true ,
    t .meta:n = p ,
    m .code:n = \str_set:Nn \l_@@_vpos_col_str { m } ,
    m .value_forbidden:n = true ,
    b .code:n = \str_set:Nn \l_@@_vpos_col_str { b } ,
    b .value_forbidden:n = true 
  }
%    \end{macrocode}
% 
% 
% \medskip
% For |p| but also |b| and |m|. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_p #1
  { 
    \str_set:Nn \l_@@_vpos_col_str { #1 }
%    \end{macrocode}
% Now, you look for a potential character |[| after the letter of the specifier
% (for the options).
%    \begin{macrocode}
    \@@_make_preamble_ii_i:n 
  }
\cs_set_eq:NN \@@_b \@@_p
\cs_set_eq:NN \@@_m \@@_p
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_ii_i:n #1
  {
    \str_if_eq:nnTF { #1 } { [ }
      { \@@_make_preamble_ii_ii:w [ }
      { \@@_make_preamble_ii_ii:w [ ] { #1 } }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_ii_ii:w [ #1 ]
  { \@@_make_preamble_ii_iii:nn { #1 } }
%    \end{macrocode}
% 
% \medskip
% |#1| is the optional argument of the specifier (a list of
% \emph{key}-\emph{value} pairs).
%
% |#2| is the mandatory argument of the specifier: the width of the column.
%    \begin{macrocode}  
\cs_new_protected:Npn \@@_make_preamble_ii_iii:nn #1 #2 
  {  
%    \end{macrocode}
% The possible values of |\l_@@_hpos_col_str| are |j| (for \emph{justified} which is
% the initial value), |l|, |c|, |r|, |L|, |C| and |R| (when the user has used
% the corresponding key in the optional argument of the specifier).
%    \begin{macrocode}
    \str_set:Nn \l_@@_hpos_col_str { j }
    \@@_keys_p_column:n { #1 }
    \@@_make_preamble_ii_iv:nnn { #2 } { minipage } { }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_keys_p_column:n #1
  { \keys_set_known:nnN { nicematrix / p-column } { #1 } \l_tmpa_tl }
%    \end{macrocode}
% 
% \medskip
% The first argument is the width of the column. The second is the type of
% environment: |minipage| or |varwidth|. The third is some code added at the
% beginning of the cell.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_ii_iv:nnn #1 #2 #3
  {
    \use:e 
      { 
        \@@_make_preamble_ii_v:nnnnnnnn
          { \str_if_eq:eeTF \l_@@_vpos_col_str { p } { t } { b } }
          { \dim_eval:n { #1 } }
          {
%    \end{macrocode}
% The parameter |\l_@@_hpos_col_str| (as |\l_@@_vpos_col_str|) exists only
% during the construction of the preamble. During the composition of the array
% itself, you will have, in each cell, the parameter |\l_@@_hpos_cell_tl| which
% will provide the horizontal alignment of the column to which belongs the cell.
%    \begin{macrocode}
            \str_if_eq:eeTF \l_@@_hpos_col_str { j }
              { \tl_clear:N \exp_not:N \l_@@_hpos_cell_tl } 
              { 
%    \end{macrocode}
% Here, we use |\cs_set_nopar:Npn| instead of |\tl_set:Nn| for efficiency only.
%    \begin{macrocode}
                \cs_set_nopar:Npn \exp_not:N \l_@@_hpos_cell_tl 
                  { \str_lowercase:o \l_@@_hpos_col_str } 
              }
            \IfPackageLoadedTF { ragged2e } 
              {
                \str_case:on \l_@@_hpos_col_str 
                  {
                    c { \exp_not:N \Centering }
                    l { \exp_not:N \RaggedRight }
                    r { \exp_not:N \RaggedLeft }
                  }
              }
              {
                \str_case:on \l_@@_hpos_col_str 
                  {
                    c { \exp_not:N \centering }
                    l { \exp_not:N \raggedright }
                    r { \exp_not:N \raggedleft }
                  }
              }
            #3
          }
          { \str_if_eq:eeT \l_@@_vpos_col_str { m } \@@_center_cell_box: }
          { \str_if_eq:eeT \l_@@_hpos_col_str { si } \siunitx_cell_begin:w }
          { \str_if_eq:eeT \l_@@_hpos_col_str { si } \siunitx_cell_end: }
          { #2 }
          {         
            \str_case:onF \l_@@_hpos_col_str 
              { 
                { j } { c } 
                { si } { c }
              }
%    \end{macrocode}
% We use |\str_lowercase:n| to convert |R| to |r|, etc.
%    \begin{macrocode}
              { \str_lowercase:o \l_@@_hpos_col_str }
          }
      }
%    \end{macrocode}
%
% We increment the counter of columns, and then we test for the presence of a |<|.
%    \begin{macrocode}
    \int_gincr:N \c@jCol
    \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
% 
% \medskip
% |#1| is the optional argument of |{minipage}| (or |{varwidth}|): |t| or |b|.
% Indeed, for the columns of type |m|, we use the value |b| here because there
% is a special post-action in order to center vertically the box (see |#4|).
%
% |#2| is the width of the |{minipage}| (or |{varwidth}|), that is to say also
% the width of the column.
% 
% |#3| is the coding for the horizontal position of the content of the cell
% (|\centering|, |\raggedright|, |\raggedleft| or nothing). It's also possible
% to put in that |#3| some code to fix the value of |\l_@@_hpos_cell_tl| which
% will be available in each cell of the column.
%
% |#4| is an extra-code which contains |\@@_center_cell_box:| (when the column
% is a |m| column) or nothing (in the other cases).
%
% |#5| is a code put just before the |c| (or |r| or |l|: see |#8|).
%
% |#6| is a code put just after the |c| (or |r| or |l|: see |#8|).
%
% |#7| is the type of environment: |minipage| or |varwidth|.
%
% |#8| is the letter |c| or |r| or |l| which is the basic specifier of column
% which is used \emph{in fine}.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_ii_v:nnnnnnnn #1 #2 #3 #4 #5 #6 #7 #8
  {
    \str_if_eq:eeTF \l_@@_hpos_col_str { si }
      { 
        \tl_gput_right:Nn \g_@@_array_preamble_tl 
          { > \@@_test_if_empty_for_S: } 
      }
      { 
        \tl_gput_right:Nn \g_@@_array_preamble_tl 
          { > \@@_test_if_empty: } 
      }
    \tl_gput_right:No \g_@@_array_preamble_tl \g_@@_pre_cell_tl 
    \tl_gclear:N \g_@@_pre_cell_tl
    \tl_gput_right:Nn \g_@@_array_preamble_tl
      {
        > { 
%    \end{macrocode}
% The parameter |\l_@@_col_width_dim|, which is the width of the current column,
% will be available in each cell of the column. It will be used by the
% mono-column blocks.
%    \begin{macrocode}
            \dim_set:Nn \l_@@_col_width_dim { #2 }
            \bool_if:NT \c_@@_testphase_table_bool
              { \tag_struct_begin:n { tag = Div } }
            \@@_cell_begin: 
%    \end{macrocode}
% We use the form |\minipage|--|\endminipage| (|\varwidth|--|\endvarwidth|) for
% compatibility with \pkg{collcell} (2023-10-31).
%    \begin{macrocode}
            \use:c { #7 } [ #1 ] { #2 } 
%    \end{macrocode}
% The following lines have been taken from |array.sty|.
%    \begin{macrocode}
            \everypar
              {
                \vrule height \box_ht:N \@arstrutbox width \c_zero_dim
                \everypar { }
              }
            \bool_if:NT \c_@@_testphase_table_bool \tagpdfparaOn
%    \end{macrocode}
% Now, the potential code for the horizontal position of the content of the cell
% (|\centering|, |\raggedright|, |\RaggedRight|, etc.).
%    \begin{macrocode}
            #3
%    \end{macrocode}
% The following code is to allow something like |\centering| in |\RowStyle|.
%    \begin{macrocode}
            \g_@@_row_style_tl
            \arraybackslash
            #5 
          } 
        #8 
        < { 
            #6 
%    \end{macrocode}
% The following line has been taken from |array.sty|.
%    \begin{macrocode}
            \@finalstrut \@arstrutbox
            \use:c { end #7 } 
%    \end{macrocode}
% If the letter in the preamble is |m|, |#4| will be equal to
% |\@@_center_cell_box:| (see just below).
%    \begin{macrocode}
            #4
            \@@_cell_end: 
            \bool_if:NT \c_@@_testphase_table_bool \tag_struct_end:
          } 
      }
  }
%    \end{macrocode}
% 
% \bigskip
% The cell always begins with |\ignorespaces| with \pkg{array} and that's why we
% retrieve that token.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_if_empty: \ignorespaces 
  { 
%    \end{macrocode}
% We open a special group with |\group_align_safe_begin:|. Thus, when
% |\peek_meaning:NTF| will read the |&| (when the cell is empty), that lecture
% won't trigger the end of the cell (since we are in a lower group...). If the
% end of cell was trigerred, we would have other tokens in the TeX flow (and not
% |&|). 
%    \begin{macrocode}
    \group_align_safe_begin:
    \peek_meaning:NTF & 
      { 
        \group_align_safe_end: 
        \tl_gput_right:Nn \g_@@_cell_after_hook_tl 
          { 
%    \end{macrocode}
% Be careful: here, we can't merely use 
% |\bool_gset_true: \g_@@_empty_cell_bool|, 
% in particular because of the columns of type~|X|. 
%    \begin{macrocode}
            \box_set_wd:Nn \l_@@_cell_box \c_zero_dim 
            \skip_horizontal:N \l_@@_col_width_dim 
          }
      }
      { \group_align_safe_end: } 
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_if_empty_for_S: 
  {
    \peek_meaning:NT \__siunitx_table_skip:n
      { \bool_gset_true:N \g_@@_empty_cell_bool }
  }
%    \end{macrocode}
% 
%
% \bigskip
% The following command will be used in |m|-columns in order to center
% vertically the box. In fact, despite its name, the command does not always
% center the cell. Indeed, if there is only one row in the cell, it should not
% be centered vertically. It's not possible to know the number of rows of the
% cell. However, we consider (as in \pkg{array}) that if the height of the cell
% is no more that the height of |\strutbox|, there is only one row.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_center_cell_box:
  {
%    \end{macrocode}
% By putting instructions in |\g_@@_cell_after_hook_tl|, we require a
% post-action of the box |\l_@@_cell_box|.
%    \begin{macrocode}
    \tl_gput_right:Nn \g_@@_cell_after_hook_tl
      {
        \int_compare:nNnT 
          { \box_ht:N \l_@@_cell_box } 
          > 
%    \end{macrocode}
% Previously, we had |\@arstrutbox| and not |\strutbox| in the following line
% but the code in \pkg{array} has changed in v 2.5g and we follow the change
% (see \emph{array: Correctly identify single-line m-cells} in LaTeX~News~36).
%    \begin{macrocode}
          { \box_ht:N \strutbox }
          { 
            \hbox_set:Nn \l_@@_cell_box
              {
                \box_move_down:nn
                  { 
                    ( \box_ht:N \l_@@_cell_box - \box_ht:N \@arstrutbox 
                      + \baselineskip ) / 2 
                  }
                  { \box_use:N \l_@@_cell_box }
              }
          } 
      }
  }
%    \end{macrocode}
% 
% \medskip
% For |V| (similar to the |V| of \pkg{varwidth}).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_V #1 #2
  {
    \str_if_eq:nnTF { #1 } { [ } 
      { \@@_make_preamble_V_i:w [ }
      { \@@_make_preamble_V_i:w [ ] { #2 } }
  }
\cs_new_protected:Npn \@@_make_preamble_V_i:w [ #1 ]
  { \@@_make_preamble_V_ii:nn { #1 } }
\cs_new_protected:Npn \@@_make_preamble_V_ii:nn #1 #2
  {
    \str_set:Nn \l_@@_vpos_col_str { p }
    \str_set:Nn \l_@@_hpos_col_str { j }
    \@@_keys_p_column:n { #1 }
    \IfPackageLoadedTF { varwidth }
      { \@@_make_preamble_ii_iv:nnn { #2 } { varwidth } { } }
      { 
        \@@_error_or_warning:n { varwidth~not~loaded }
        \@@_make_preamble_ii_iv:nnn { #2 } { minipage } { } 
      }
  }
%    \end{macrocode}
% 
% \medskip
% For |w| and |W|
%    \begin{macrocode}
\cs_new_protected:Npn \@@_w { \@@_make_preamble_w:nnnn { } } 
\cs_new_protected:Npn \@@_W { \@@_make_preamble_w:nnnn { \@@_special_W: } } 
%    \end{macrocode}
%
% |#1| is a special argument: empty for |w| and equal to |\@@_special_W:| for |W|;
%
% |#2| is the type of column (|w| or |W|);
%
% |#3| is the type of horizontal alignment (|c|, |l|, |r| or |s|);
%
% |#4| is the width of the column.
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_w:nnnn #1 #2 #3 #4
  {  
    \str_if_eq:nnTF { #3 } { s }
      { \@@_make_preamble_w_i:nnnn { #1 } { #4 } }
      { \@@_make_preamble_w_ii:nnnn { #1 } { #2 } { #3 } { #4 } }
  }
%    \end{macrocode}
% 
% \bigskip
% First, the case of an horizontal alignment equal to |s| (for \emph{stretch}).
%
% |#1| is a special argument: empty for |w| and equal to |\@@_special_W:| for
% |W|;
%
% |#2| is the width of the column.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_w_i:nnnn #1 #2 
  {  
    \tl_gput_right:No \g_@@_array_preamble_tl \g_@@_pre_cell_tl 
    \tl_gclear:N \g_@@_pre_cell_tl
    \tl_gput_right:Nn \g_@@_array_preamble_tl
      {
        > {
            \dim_set:Nn \l_@@_col_width_dim { #2 }
            \@@_cell_begin:
            \tl_set_eq:NN \l_@@_hpos_cell_tl \c_@@_c_tl
          }
        c
        < {
            \@@_cell_end_for_w_s:
            #1
            \@@_adjust_size_box:
            \box_use_drop:N \l_@@_cell_box 
          }
      }
    \int_gincr:N \c@jCol
    \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
% 
% \bigskip
% Then, the most important version, for the horizontal alignments types of |c|,
% |l| and |r| (and not |s|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_w_ii:nnnn #1 #2 #3 #4
  {  
    \tl_gput_right:No \g_@@_array_preamble_tl \g_@@_pre_cell_tl 
    \tl_gclear:N \g_@@_pre_cell_tl
    \tl_gput_right:Nn \g_@@_array_preamble_tl
      {
        > {
%    \end{macrocode}
% The parameter |\l_@@_col_width_dim|, which is the width of the current column,
% will be available in each cell of the column. It will be used by the
% mono-column blocks.
%    \begin{macrocode}
            \dim_set:Nn \l_@@_col_width_dim { #4 }
            \hbox_set:Nw \l_@@_cell_box
            \@@_cell_begin:
            \cs_set_nopar:Npn \l_@@_hpos_cell_tl { #3 }
          }
        c
        < {
            \@@_cell_end:
            \hbox_set_end: 
            #1
            \@@_adjust_size_box:
            \makebox [ #4 ] [ #3 ] { \box_use_drop:N \l_@@_cell_box }  
          }
      }
%    \end{macrocode}
% We increment the counter of columns and then we test for the presence of a |<|.
%    \begin{macrocode}
    \int_gincr:N \c@jCol
    \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_special_W:
  {
    \dim_compare:nNnT { \box_wd:N \l_@@_cell_box } > \l_@@_col_width_dim
      { \@@_warning:n { W~warning } }
  }
%    \end{macrocode}
% 
% \medskip
% For |S| (of \pkg{siunitx}). 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_S #1 #2
  {
    \str_if_eq:nnTF { #2 } { [ } 
      { \@@_make_preamble_S:w [ }
      { \@@_make_preamble_S:w [ ] { #2 } }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_S:w [ #1 ]
  { \@@_make_preamble_S_i:n { #1 } }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_S_i:n #1
  { 
    \IfPackageLoadedF { siunitx } { \@@_fatal:n { siunitx~not~loaded } }
    \tl_gput_right:No \g_@@_array_preamble_tl \g_@@_pre_cell_tl 
    \tl_gclear:N \g_@@_pre_cell_tl
    \tl_gput_right:Nn \g_@@_array_preamble_tl 
      {
        > { 
            \@@_cell_begin: 
            \keys_set:nn { siunitx } { #1 } 
            \siunitx_cell_begin:w 
          }
        c
        < { \siunitx_cell_end: \@@_cell_end: }
      }
%    \end{macrocode}
% We increment the counter of columns and then we test for the presence of a |<|.
%    \begin{macrocode}
     \int_gincr:N \c@jCol
     \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
%
% 
% \medskip
% For |(|, |[| and |\{|.
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ \token_to_str:N ( } #1 #2
  {
    \bool_if:NT \l_@@_small_bool { \@@_fatal:n { Delimiter~with~small } }
%    \end{macrocode}
% If we are before the column 1 and not in |{NiceArray}|, we reserve space for
% the left delimiter. 
%    \begin{macrocode}
    \int_if_zero:nTF \c@jCol 
      { 
        \tl_if_eq:NNTF \g_@@_left_delim_tl \c_@@_dot_tl
          { 
%    \end{macrocode}
% In that case, in fact, the first letter of the preamble must be considered as
% the left delimiter of the array.
%    \begin{macrocode}
            \tl_gset:Nn \g_@@_left_delim_tl { #1 } 
            \tl_gset_eq:NN \g_@@_right_delim_tl \c_@@_dot_tl
            \@@_rec_preamble:n #2 
          }
          {  
            \tl_gput_right:Nn \g_@@_array_preamble_tl { ! { \enskip } } 
            \@@_make_preamble_iv:nn { #1 } { #2 }
          }
      }
      { \@@_make_preamble_iv:nn { #1 } { #2 } } 
  }
\cs_set_eq:cc { @@ _ \token_to_str:N [ } { @@ _ \token_to_str:N ( } 
\cs_set_eq:cc { @@ _ \token_to_str:N \{ } { @@ _ \token_to_str:N ( } 
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_iv:nn #1 #2
  {
    \tl_gput_right:Ne \g_@@_pre_code_after_tl
      { \@@_delimiter:nnn #1 { \int_eval:n { \c@jCol + 1 } } \c_true_bool }  
    \tl_if_in:nnTF { ( [ \{ ) ] \} \left \right } { #2 }
      {
        \@@_error:nn { delimiter~after~opening } { #2 } 
        \@@_rec_preamble:n
      }
      { \@@_rec_preamble:n #2 }
  }
%    \end{macrocode}
%
% In fact, if would be possible to define |\left| and |\right| as no-op.
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ \token_to_str:N \left } #1 
  { \use:c { @@ _ \token_to_str:N ( } }
%    \end{macrocode}
% 
% \bigskip
% For the closing delimiters. We have two arguments for the following command because
% we directly read the following letter in the preamble (we have to see whether
% we have a opening delimiter following and we also have to see whether we are
% at the end of the preamble because, in that case, our letter must be
% considered as the right delimiter of the environment if the environment is
% |{NiceArray}|). 
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ \token_to_str:N ) } #1 #2 
  {
    \bool_if:NT \l_@@_small_bool { \@@_fatal:n { Delimiter~with~small } }
    \tl_if_in:nnTF { ) ] \} } { #2 }
      { \@@_make_preamble_v:nnn #1 #2 }
      { 
        \str_if_eq:nnTF { \@@_stop: } { #2 }
          {
            \tl_if_eq:NNTF \g_@@_right_delim_tl \c_@@_dot_tl
              { \tl_gset:Nn \g_@@_right_delim_tl { #1 } }
              {
                \tl_gput_right:Nn \g_@@_array_preamble_tl { ! { \enskip } } 
                \tl_gput_right:Ne \g_@@_pre_code_after_tl
                  { \@@_delimiter:nnn #1 { \int_use:N \c@jCol } \c_false_bool }
                \@@_rec_preamble:n #2
              }
          }
          {
            \tl_if_in:nnT { ( [ \{ \left } { #2 }
              { \tl_gput_right:Nn \g_@@_array_preamble_tl { ! { \enskip } } }
            \tl_gput_right:Ne \g_@@_pre_code_after_tl
              { \@@_delimiter:nnn #1 { \int_use:N \c@jCol } \c_false_bool }
            \@@_rec_preamble:n #2
          }
      }
  }
\cs_set_eq:cc { @@ _ \token_to_str:N ] } { @@ _ \token_to_str:N ) } 
\cs_set_eq:cc { @@ _ \token_to_str:N \} } { @@ _ \token_to_str:N ) } 
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_v:nnn #1 #2 #3
  {
    \str_if_eq:nnTF { \@@_stop: } { #3 }
      {
        \tl_if_eq:NNTF \g_@@_right_delim_tl \c_@@_dot_tl
          {
            \tl_gput_right:Nn \g_@@_array_preamble_tl { ! { \enskip } } 
            \tl_gput_right:Ne \g_@@_pre_code_after_tl
              { \@@_delimiter:nnn #1 { \int_use:N \c@jCol } \c_false_bool }
            \tl_gset:Nn \g_@@_right_delim_tl { #2 }
          }
          {
            \tl_gput_right:Nn \g_@@_array_preamble_tl { ! { \enskip } } 
            \tl_gput_right:Ne \g_@@_pre_code_after_tl
              { \@@_delimiter:nnn #1 { \int_use:N \c@jCol } \c_false_bool }
            \@@_error:nn { double~closing~delimiter } { #2 } 
          }
      }
      {
        \tl_gput_right:Ne \g_@@_pre_code_after_tl
          { \@@_delimiter:nnn #1 { \int_use:N \c@jCol } \c_false_bool }
        \@@_error:nn { double~closing~delimiter } { #2 } 
        \@@_rec_preamble:n #3 
      }
  }
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ \token_to_str:N \right } #1 
  { \use:c { @@ _ \token_to_str:N ) } } 
%    \end{macrocode}
%
% 
% \bigskip
% After a specifier of column, we have to test whether there is one or several
% |<{..}| because, after those potential |<{...}|, we have to insert
% |!{\skip_horizontal:N ...}| when the key |vlines| is used. In fact, we have
% also to test whether there is, after the |<{...}|, a |@{...}|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rec_preamble_after_col:n #1
  { 
    \str_if_eq:nnTF { #1 } { < }
      \@@_rec_preamble_after_col_i:n
      { 
        \str_if_eq:nnTF { #1 } { @ }
          \@@_rec_preamble_after_col_ii:n
          {
            \str_if_eq:eeTF \l_@@_vlines_clist { all }
              { 
                \tl_gput_right:Nn \g_@@_array_preamble_tl 
                  { ! { \skip_horizontal:N \arrayrulewidth } }
              } 
              { 
                \clist_if_in:NeT \l_@@_vlines_clist 
                  { \int_eval:n { \c@jCol + 1 } }  
                  { 
                    \tl_gput_right:Nn \g_@@_array_preamble_tl 
                      { ! { \skip_horizontal:N \arrayrulewidth } }
                  } 
              }   
            \@@_rec_preamble:n { #1 }
          }
      }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rec_preamble_after_col_i:n #1
  {
    \tl_gput_right:Nn \g_@@_array_preamble_tl { < { #1 } }
    \@@_rec_preamble_after_col:n
  }
%    \end{macrocode}
%
% We have to catch a |@{...}| after a specifier of column because, if we have to
% draw a vertical rule, we have to add in that |@{...}| a |\hskip| corresponding
% to the width of the vertical rule.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rec_preamble_after_col_ii:n #1
  {
    \str_if_eq:eeTF \l_@@_vlines_clist { all }
      { 
        \tl_gput_right:Nn \g_@@_array_preamble_tl 
          { @ { #1 \skip_horizontal:N \arrayrulewidth } }
      } 
      { 
        \clist_if_in:NeTF \l_@@_vlines_clist { \int_eval:n { \c@jCol + 1 } }  
          { 
            \tl_gput_right:Nn \g_@@_array_preamble_tl 
              { @ { #1 \skip_horizontal:N \arrayrulewidth } }
          } 
          { \tl_gput_right:Nn \g_@@_array_preamble_tl { @ { #1 } } }
      }
    \@@_rec_preamble:n 
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ * } #1 #2 #3
  { 
    \tl_clear:N \l_tmpa_tl
    \int_step_inline:nn { #2 } { \tl_put_right:Nn \l_tmpa_tl { #3 } } 
    \exp_last_unbraced:No \@@_rec_preamble:n \l_tmpa_tl
  }
%    \end{macrocode}
%
% \bigskip
% The token |\NC@find| is at the head of the definition of the columns type done
% by |\newcolumntype|. We wan't that token to be no-op here.
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ \token_to_str:N \NC@find } #1 { \@@_rec_preamble:n }
%    \end{macrocode}
% 
% \bigskip
% For the case of a letter |X|. This specifier may take in an optional argument
% (between square brackets). That's why we test whether there is a |[| after the
% letter |X|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_X #1 #2
  {
    \str_if_eq:nnTF { #2 } { [ }
      { \@@_make_preamble_X:w [ }
      { \@@_make_preamble_X:w [ ] #2 }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_X:w [ #1 ]
  { \@@_make_preamble_X_i:n { #1 } }
%    \end{macrocode}
% |#1| is the optional argument of the |X| specifier (a list of
% \emph{key}-\emph{value} pairs).
%
% \medskip
% The following set of keys is for the specifier |X| in the preamble of the
% array. Such specifier may have as keys all the keys of 
% |{ nicematrix / p-column }| but also a key as 1, 2, 3, etc. The following set
% of keys will be used to retrieve that value (in the counter |\l_@@_weight_int|).
%    \begin{macrocode}
\keys_define:nn { nicematrix / X-column }
  { unknown .code:n = \int_set:Nn \l_@@_weight_int { \l_keys_key_str } }
%    \end{macrocode}
% 
% 
% \medskip
% In the following command, |#1| is the list of the options of the specifier |X|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_X_i:n #1
  {
%    \end{macrocode}
% The possible values of |\l_@@_hpos_col_str| are |j| (for \emph{justified} which is
% the initial value), |l|, |c| and |r| (when the user has used the corresponding
% key in the optional argument of the specifier |X|).
%    \begin{macrocode}
    \str_set:Nn \l_@@_hpos_col_str { j }
%    \end{macrocode}
% The possible values of |\l_@@_vpos_col_str| are |p| (the initial value), |m| and |b|
% (when the user has used the corresponding key in the optional argument of the
% specifier |X|). 
%    \begin{macrocode}
    \str_set:Nn \l_@@_vpos_col_str { p }
%    \end{macrocode}
%
% The integer |\l_@@_weight_int| will be the weight of the |X| column (the
% initial value is $1$). The user may specify a different value (such as $2$,
% $3$, etc.) by putting that value in the optional argument of the specifier.
% The weights of the |X| columns are used in the computation of the actual width
% of those columns as in \pkg{tabu} (now obsolete) or \pkg{tabularray}.
%    \begin{macrocode}
    \int_zero_new:N \l_@@_weight_int 
    \int_set_eq:NN \l_@@_weight_int \c_one_int
    \@@_keys_p_column:n { #1 }
%    \end{macrocode}
% The unknown keys are put in |\l_tmpa_tl|
%    \begin{macrocode}
    \keys_set:no { nicematrix / X-column } \l_tmpa_tl
    \int_compare:nNnT \l_@@_weight_int < \c_zero_int
      { 
        \@@_error_or_warning:n { negative~weight } 
        \int_set:Nn \l_@@_weight_int { - \l_@@_weight_int }
      }
    \int_gadd:Nn \g_@@_total_X_weight_int \l_@@_weight_int
%    \end{macrocode}
%
% We test whether we know the width of the |X|-columns by reading the |aux| file
% (after the first compilation, the width of the |X|-columns is computed and
% written in the |aux| file).
%    \begin{macrocode}
    \bool_if:NTF \l_@@_X_columns_aux_bool
      { 
        \@@_make_preamble_ii_iv:nnn 
          { \l_@@_weight_int \l_@@_X_columns_dim } 
          { minipage }
          { \@@_no_update_width: }
      }
      {
        \tl_gput_right:Nn \g_@@_array_preamble_tl 
          { 
            > { 
                \@@_cell_begin: 
                \bool_set_true:N \l_@@_X_bool 
%    \end{macrocode}
% You encounter a problem on 2023-03-04: for an environment with |X| columns,
% during the first compilations (which are not the definitive one), sometimes,
% some cells are declared empty even if they should not. That's a problem
% because user's instructions may use these nodes. That's why we have added the
% following |\NotEmpty|.
%    \begin{macrocode}
                \NotEmpty 
%    \end{macrocode}
% The following code will nullify the box of the cell.
%    \begin{macrocode}
                \tl_gput_right:Nn \g_@@_cell_after_hook_tl 
                  { \hbox_set:Nn \l_@@_cell_box { } }
%    \end{macrocode}
% We put a |{minipage}| to give to the user the ability to put a command such as
% |\centering| in the |\RowStyle|.
%    \begin{macrocode}
                \begin { minipage } { 5 cm } \arraybackslash
              } 
            c 
            < { 
                \end { minipage }
                \@@_cell_end: 
              }
          }  
        \int_gincr:N \c@jCol
        \@@_rec_preamble_after_col:n
      }
  }
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_no_update_width:
  {
    \tl_gput_right:Nn \g_@@_cell_after_hook_tl
      { \cs_set_eq:NN \@@_update_max_cell_width: \prg_do_nothing: }
  }
%    \end{macrocode}
% 
% \medskip
% For the letter set by the user with |vlines-in-sub-matrix| (vlism).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_preamble_vlism:n #1 
  {
    \seq_gput_right:Ne \g_@@_cols_vlism_seq 
      { \int_eval:n { \c@jCol + 1 } }
    \tl_gput_right:Ne \g_@@_array_preamble_tl
      { \exp_not:N ! { \skip_horizontal:N \arrayrulewidth } }
    \@@_rec_preamble:n
  }
%    \end{macrocode}
%
%  \medskip
% The token |\@@_stop:| is a marker that we have inserted to mark the end of the
% preamble (as provided by the final user) that we have inserted in the TeX flow.
%    \begin{macrocode}
\cs_set_eq:cN { @@ _ \token_to_str:N \@@_stop: } \use_none:n 
%    \end{macrocode}
%
%  \medskip
% The following lines try to catch some errors (when the final user has
% forgotten the preamble of its environment). 
%    \begin{macrocode}
\cs_new_protected:cpn { @@ _ \token_to_str:N \hline } 
  { \@@_fatal:n { Preamble~forgotten } }
\cs_set_eq:cc { @@ _ \token_to_str:N \Hline } { @@ _ \token_to_str:N \hline } 
\cs_set_eq:cc { @@ _ \token_to_str:N \toprule } { @@ _ \token_to_str:N \hline } 
\cs_set_eq:cc { @@ _ \token_to_str:N \CodeBefore } { @@ _ \token_to_str:N \hline } 
%    \end{macrocode}
% 
% \bigskip
% \section{The redefinition of \textbackslash multicolumn}
%
% \medskip
% The following command must \emph{not} be protected since it begins with
% |\multispan| (a TeX primitive).
%    \begin{macrocode}
\cs_new:Npn \@@_multicolumn:nnn #1 #2 #3
  { 
%    \end{macrocode}
% The following lines are from the definition of |\multicolumn| in \pkg{array}
% (and \emph{not} in standard LaTeX). The first line aims to raise an error if
% the user has put more that one column specifier in the preamble of
% |\multicolumn|. 
%    \begin{macrocode}
    \multispan { #1 }
    \cs_set_eq:NN \@@_update_max_cell_width: \prg_do_nothing: 
    \begingroup
    \bool_if:NT \c_@@_testphase_table_bool
      { \tbl_update_multicolumn_cell_data:n { #1 } }
    \cs_set_nopar:Npn \@addamp 
      { \legacy_if:nTF { @firstamp } { \@firstampfalse } { \@preamerr 5 } } 
%    \end{macrocode}
%
% \medskip
% Now, we patch the (small) preamble as we have done with the main preamble of
% the array.
%    \begin{macrocode}
    \tl_gclear:N \g_@@_preamble_tl
    \@@_make_m_preamble:n #2 \q_stop
%    \end{macrocode}
%
% \medskip
% The following lines are an adaptation of the definition of |\multicolumn| in
% \pkg{array}. 
%    \begin{macrocode}
    \exp_args:No \@mkpream \g_@@_preamble_tl
    \@addtopreamble \@empty
    \endgroup
    \bool_if:NT \c_@@_recent_array_bool
      { \UseTaggingSocket { tbl / colspan } { #1 } }
%    \end{macrocode}
%
% \medskip
% Now, we do a treatment specific to \pkg{nicematrix} which has no equivalent
% in the original definition of |\multicolumn|.
%    \begin{macrocode}
    \int_compare:nNnT { #1 } > \c_one_int
      {
        \seq_gput_left:Ne \g_@@_multicolumn_cells_seq
          { \int_use:N \c@iRow - \int_eval:n { \c@jCol + 1 } }
        \seq_gput_left:Nn \g_@@_multicolumn_sizes_seq { #1 } 
        \seq_gput_right:Ne \g_@@_pos_of_blocks_seq
          { 
            { 
              \int_if_zero:nTF \c@jCol
                { \int_eval:n { \c@iRow + 1 } }
                { \int_use:N \c@iRow }
            } 
            { \int_eval:n { \c@jCol + 1 } }
            { 
              \int_if_zero:nTF \c@jCol
                { \int_eval:n { \c@iRow + 1 } }
                { \int_use:N \c@iRow }
            } 
            { \int_eval:n { \c@jCol + #1 } }
            { } % for the name of the block
          }
      }
%    \end{macrocode}
%
% \bigskip
% We want |\cellcolor| to be available in |\multicolumn| because |\cellcolor| of
% \pkg{colortbl} is available in |\multicolumn|.
%    \begin{macrocode}
    \RenewDocumentCommand \cellcolor { O { } m }
      {
        \tl_gput_right:Ne \g_@@_pre_code_before_tl
          { 
            \@@_rectanglecolor [ ##1 ] 
              { \exp_not:n { ##2 } } 
              { \int_use:N \c@iRow - \int_use:N \c@jCol } 
              { \int_use:N \c@iRow - \int_eval:n { \c@jCol + #1 } }
          }   
         \ignorespaces
      }   
%    \end{macrocode}
% 
% \medskip
% The following lines were in the original definition of |\multicolumn|.
%    \begin{macrocode}
    \cs_set_nopar:Npn \@sharp { #3 } 
    \@arstrut 
    \@preamble
    \null
%    \end{macrocode}
% 
% \medskip
% We add some lines.
%    \begin{macrocode}
    \int_gadd:Nn \c@jCol { #1 - 1 }
    \int_compare:nNnT \c@jCol > \g_@@_col_total_int
      { \int_gset_eq:NN \g_@@_col_total_int \c@jCol } 
    \ignorespaces
  }
%    \end{macrocode}
%
% \bigskip
% The following commands will patch the (small) preamble of the |\multicolumn|.
% All those commands have a |m| in their name to recall that they deal with the
% redefinition of |\multicolumn|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_m_preamble:n #1
  {
    \str_case:nnF { #1 }
      {
        c { \@@_make_m_preamble_i:n #1 }
        l { \@@_make_m_preamble_i:n #1 }
        r { \@@_make_m_preamble_i:n #1 }
        > { \@@_make_m_preamble_ii:nn #1 }
        ! { \@@_make_m_preamble_ii:nn #1 }
        @ { \@@_make_m_preamble_ii:nn #1 }
        | { \@@_make_m_preamble_iii:n #1 }
        p { \@@_make_m_preamble_iv:nnn t #1 }
        m { \@@_make_m_preamble_iv:nnn c #1 }
        b { \@@_make_m_preamble_iv:nnn b #1 }
        w { \@@_make_m_preamble_v:nnnn { } #1 } 
        W { \@@_make_m_preamble_v:nnnn { \@@_special_W: } #1 } 
        \q_stop { }
      }
      { 
        \cs_if_exist:cTF { NC @ find @ #1 }
          {
            \tl_set_eq:Nc \l_tmpa_tl { NC @ rewrite @ #1 }
            \exp_last_unbraced:No \@@_make_m_preamble:n \l_tmpa_tl
          }
          { 
%    \end{macrocode}
%
%    \begin{macrocode}
            \str_if_eq:nnTF { #1 } { S } 
              { \@@_fatal:n { unknown~column~type~S } }
              { \@@_fatal:nn { unknown~column~type } { #1 } }
          }
      }
  }
%    \end{macrocode}
%
% \medskip
% For |c|, |l| and |r|
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_m_preamble_i:n #1
  { 
    \tl_gput_right:Nn \g_@@_preamble_tl 
      { 
        > { \@@_cell_begin: \cs_set_nopar:Npn \l_@@_hpos_cell_tl { #1 } } 
        #1 
        < \@@_cell_end:
      }  
%    \end{macrocode}
%
% We test for the presence of a |<|.
%    \begin{macrocode}
    \@@_make_m_preamble_x:n
  }
%    \end{macrocode}
% 
% \medskip
% For |>|, |!| and |@|
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_m_preamble_ii:nn #1 #2
  {  
    \tl_gput_right:Nn \g_@@_preamble_tl { #1 { #2 } }
    \@@_make_m_preamble:n
  }
%    \end{macrocode}
%
% 
% \medskip
% For \verb+|+
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_m_preamble_iii:n #1
  { 
    \tl_gput_right:Nn \g_@@_preamble_tl { #1 }
    \@@_make_m_preamble:n
  }
%    \end{macrocode}
%
% \medskip
% For |p|, |m| and |b|
%    \begin{macrocode}  
\cs_new_protected:Npn \@@_make_m_preamble_iv:nnn #1 #2 #3
  {  
    \tl_gput_right:Nn \g_@@_preamble_tl
      {
        > { 
            \@@_cell_begin: 
            \begin { minipage } [ #1 ] { \dim_eval:n { #3 } }
            \mode_leave_vertical: 
            \arraybackslash
            \vrule height \box_ht:N \@arstrutbox depth 0 pt width 0 pt
          } 
        c 
        < { 
            \vrule height 0 pt depth \box_dp:N \@arstrutbox width 0 pt
            \end { minipage } 
            \@@_cell_end: 
          } 
      }
%    \end{macrocode}
% We test for the presence of a |<|.
%    \begin{macrocode}
    \@@_make_m_preamble_x:n
  }
%    \end{macrocode}
% 
% \medskip
% For |w| and |W|
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_m_preamble_v:nnnn #1 #2 #3 #4
  {  
    \tl_gput_right:Nn \g_@@_preamble_tl
      {
        > {
            \dim_set:Nn \l_@@_col_width_dim { #4 }
            \hbox_set:Nw \l_@@_cell_box
            \@@_cell_begin:
            \cs_set_nopar:Npn \l_@@_hpos_cell_tl { #3 }
          }
        c
        < {
            \@@_cell_end:
            \hbox_set_end: 
            \bool_if:NT \g_@@_rotate_bool \@@_rotate_cell_box:
            #1
            \@@_adjust_size_box:
            \makebox [ #4 ] [ #3 ] { \box_use_drop:N \l_@@_cell_box } 
          }
      }
%    \end{macrocode}
% We test for the presence of a |<|.
%    \begin{macrocode}
    \@@_make_m_preamble_x:n
  }
%    \end{macrocode}
%
% 
% After a specifier of column, we have to test whether there is one or several
% |<{..}|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_m_preamble_x:n #1
  {
    \str_if_eq:nnTF { #1 } { < } 
      \@@_make_m_preamble_ix:n 
      { \@@_make_m_preamble:n { #1 } }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_make_m_preamble_ix:n #1
  {
    \tl_gput_right:Nn \g_@@_preamble_tl { < { #1 } }
    \@@_make_m_preamble_x:n
  }
%    \end{macrocode}
%
%
%
% \bigskip
% The command |\@@_put_box_in_flow:| puts the box |\l_tmpa_box| (which contains
% the array) in the flow. It is used for the environments with delimiters.
% First, we have to modify the height and the depth to take back into account
% the potential exterior rows (the total height of the first row has been
% computed in |\l_tmpa_dim| and the total height of the potential last row in
% |\l_tmpb_dim|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_put_box_in_flow:
  { 
    \box_set_ht:Nn \l_tmpa_box { \box_ht:N \l_tmpa_box + \l_tmpa_dim } 
    \box_set_dp:Nn \l_tmpa_box { \box_dp:N \l_tmpa_box + \l_tmpb_dim } 
    \str_if_eq:eeTF \l_@@_baseline_tl { c }
      { \box_use_drop:N \l_tmpa_box } 
      \@@_put_box_in_flow_i:
  }
%    \end{macrocode}
%
% \bigskip
% 
% \medskip
% The command |\@@_put_box_in_flow_i:| is used when the value of
% |\l_@@_baseline_tl| is different of |c| (the initial value).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_put_box_in_flow_i:
  {
    \pgfpicture
      \@@_qpoint:n { row - 1 } 
      \dim_gset_eq:NN \g_tmpa_dim \pgf@y
      \@@_qpoint:n { row - \int_eval:n { \c@iRow + 1 } }
      \dim_gadd:Nn \g_tmpa_dim \pgf@y
      \dim_gset:Nn \g_tmpa_dim { 0.5 \g_tmpa_dim }
%    \end{macrocode}
% Now, |\g_tmpa_dim| contains the $y$-value of the center of the array (the
% delimiters are centered in relation with this value).
%    \begin{macrocode}
      \tl_if_in:NnTF \l_@@_baseline_tl { line- }
        {
          \int_set:Nn \l_tmpa_int
            {
              \str_range:Nnn 
                \l_@@_baseline_tl 
                6 
                { \tl_count:o \l_@@_baseline_tl } 
            }
          \@@_qpoint:n { row - \int_use:N \l_tmpa_int }
        }
        {
          \str_if_eq:eeTF \l_@@_baseline_tl { t }
            { \int_set_eq:NN \l_tmpa_int \c_one_int }
            {  
              \str_if_eq:onTF \l_@@_baseline_tl { b }
                { \int_set_eq:NN \l_tmpa_int \c@iRow }
                { \int_set:Nn \l_tmpa_int \l_@@_baseline_tl }
            }
          \bool_lazy_or:nnT
            { \int_compare_p:nNn \l_tmpa_int < \l_@@_first_row_int }
            { \int_compare_p:nNn \l_tmpa_int > \g_@@_row_total_int }
            { 
              \@@_error:n { bad~value~for~baseline }
              \int_set_eq:NN \l_tmpa_int \c_one_int
            }
          \@@_qpoint:n { row - \int_use:N \l_tmpa_int - base }
%    \end{macrocode}
% We take into account the position of the mathematical axis.
%    \begin{macrocode}
          \dim_gsub:Nn \g_tmpa_dim { \fontdimen22 \textfont2 }
        }
      \dim_gsub:Nn \g_tmpa_dim \pgf@y
%    \end{macrocode}
% Now, |\g_tmpa_dim| contains the value of the $y$ translation we have to to.
%    \begin{macrocode}
    \endpgfpicture
    \box_move_up:nn \g_tmpa_dim { \box_use_drop:N \l_tmpa_box } 
    \box_use_drop:N \l_tmpa_box 
  }
%    \end{macrocode}
%
% \bigskip
% The following command is \emph{always} used by |{NiceArrayWithDelims}| (even
% if, in fact, there is no tabular notes: in fact, it's not possible to know
% whether there is tabular notes or not before the composition of the blocks).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_use_arraybox_with_notes_c:
  { 
%    \end{macrocode}
% With an environment |{Matrix}|, you want to remove the exterior |\arraycolsep| 
% but we don't know the number of columns (since there is no preamble) and
% that's why we can't put |@{}| at the end of the preamble. That's why we remove
% a |\arraycolsep| now.
%    \begin{macrocode}
    \bool_if:NT \l_@@_NiceMatrix_without_vlines_bool
      {
        \int_compare:nNnT \c@jCol > \c_one_int 
          {
            \box_set_wd:Nn \l_@@_the_array_box
              { \box_wd:N \l_@@_the_array_box - \arraycolsep }
          }
      }
%    \end{macrocode}
% We need a |{minipage}| because we will insert a LaTeX list for the tabular
% notes (that means that a |\vtop{\hsize=...}| is not enough).
%    \begin{macrocode}
    \begin { minipage } [ t ] { \box_wd:N \l_@@_the_array_box } 
    \bool_if:NT \l_@@_caption_above_bool
      { 
        \tl_if_empty:NF \l_@@_caption_tl 
          { 
%    \end{macrocode}
%    \begin{macrocode}
            \bool_set_false:N \g_@@_caption_finished_bool
            \int_gzero:N \c@tabularnote
            \@@_insert_caption:
%    \end{macrocode}
% If there is one or several commands |\tabularnote| in the caption, we will
% write in the |aux| file the number of such tabular notes... but only the
% tabular notes for which the command |\tabularnote| has been used without its
% optional argument (between square brackets).
%    \begin{macrocode}
            \int_compare:nNnT \g_@@_notes_caption_int > \c_zero_int
              {
                \tl_gput_right:Ne \g_@@_aux_tl
                  {
                    \tl_set:Nn \exp_not:N \l_@@_note_in_caption_tl 
                      { \int_use:N \g_@@_notes_caption_int }
                  }
                \int_gzero:N \g_@@_notes_caption_int
              }
          } 
      }
%    \end{macrocode}
% The |\hbox| avoids that the |pgfpicture| inside |\@@_draw_blocks| adds a extra
% vertical space before the notes.
%    \begin{macrocode}
    \hbox
      { 
        \box_use_drop:N \l_@@_the_array_box 
%    \end{macrocode}
% We have to draw the blocks right now because there may be tabular notes in
% some blocks (which are not mono-column: the blocks which are mono-column
% have been composed in boxes yet)... and we have to create (potentially) the
% extra nodes before creating the blocks since there are |medium| nodes to create
% for the blocks.
%    \begin{macrocode}
        \@@_create_extra_nodes:
        \seq_if_empty:NF \g_@@_blocks_seq \@@_draw_blocks: 
      }
%    \end{macrocode}
% We don't do the following test with |\c@tabularnote| because the value of that
% counter is not reliable when the command |\ttabbox| of \pkg{floatrow} is used
% (because |\ttabbox| de-activate |\stepcounter| because if compiles several
% twice its tabular).
%    \begin{macrocode}
    \bool_lazy_any:nT
      {
        { ! \seq_if_empty_p:N \g_@@_notes_seq }
        { ! \seq_if_empty_p:N \g_@@_notes_in_caption_seq }
        { ! \tl_if_empty_p:o \g_@@_tabularnote_tl }
      }
      \@@_insert_tabularnotes:
    \cs_set_eq:NN \tabularnote \@@_tabularnote_error:n
    \bool_if:NF \l_@@_caption_above_bool \@@_insert_caption:
    \end { minipage }
  }
%    \end{macrocode}
%
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_insert_caption:
  {
    \tl_if_empty:NF \l_@@_caption_tl 
      {
        \cs_if_exist:NTF \@captype
          { \@@_insert_caption_i: }
          { \@@_error:n { caption~outside~float } }
      }
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_insert_caption_i:
  {
    \group_begin:
%    \end{macrocode}
% The flag |\l_@@_in_caption_bool| affects only the behavior of the command
% |\tabularnote| when used in the caption.
%    \begin{macrocode}
    \bool_set_true:N \l_@@_in_caption_bool
%    \end{macrocode}
% The package \pkg{floatrow} does a redefinition of |\@makecaption| which will
% extract the caption from the tabular. However, the old version of
% |\@makecaption| has been stored by \pkg{floatrow} in |\FR@makecaption|. That's
% why we restore the old version.
%    \begin{macrocode}
    \IfPackageLoadedT { floatrow }
      { \cs_set_eq:NN \@makecaption \FR@makecaption }
    \tl_if_empty:NTF \l_@@_short_caption_tl 
      { \caption }
      { \caption [ \l_@@_short_caption_tl ] }
      { \l_@@_caption_tl } 
%    \end{macrocode}
% In some circonstancies (in particular when the package \pkg{caption} is
% loaded), the caption is composed several times. That's why, when the same
% tabular note is encountered (in the caption!), we consider that you are in the
% second compilation and you can give to |\g_@@_notes_caption_int| its final
% value, which is the number of tabular notes in the caption. But sometimes, the
% caption is composed only once. In that case, we fix the value of
% |\g_@@_caption_finished_bool| now. 
%    \begin{macrocode}
    \bool_if:NF \g_@@_caption_finished_bool
      { 
        \bool_gset_true:N \g_@@_caption_finished_bool
        \int_gset_eq:NN \g_@@_notes_caption_int \c@tabularnote
        \int_gzero:N \c@tabularnote 
      }
    \tl_if_empty:NF \l_@@_label_tl { \label { \l_@@_label_tl } }
    \group_end:
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_tabularnote_error:n #1
  { 
    \@@_error_or_warning:n { tabularnote~below~the~tabular } 
    \@@_gredirect_none:n { tabularnote~below~the~tabular } 
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_insert_tabularnotes:
  {
    \seq_gconcat:NNN \g_@@_notes_seq \g_@@_notes_in_caption_seq \g_@@_notes_seq  
    \int_set:Nn \c@tabularnote { \seq_count:N \g_@@_notes_seq }
    \skip_vertical:N 0.65ex 
%    \end{macrocode}
% The TeX group is for potential specifications in the
% |\l_@@_notes_code_before_tl|. 
%    \begin{macrocode}
    \group_begin:
    \l_@@_notes_code_before_tl
    \tl_if_empty:NF \g_@@_tabularnote_tl 
      { 
        \g_@@_tabularnote_tl \par 
        \tl_gclear:N \g_@@_tabularnote_tl
      }
%    \end{macrocode}
% We compose the tabular notes with a list of \pkg{enumitem}. The |\strut| and
% the |\unskip| are designed to give the ability to put a |\bottomrule| at the
% end of the notes with a good vertical space.
%    \begin{macrocode}
    \int_compare:nNnT \c@tabularnote > \c_zero_int
      {
        \bool_if:NTF \l_@@_notes_para_bool
          {
            \begin { tabularnotes* }
              \seq_map_inline:Nn \g_@@_notes_seq 
                { \@@_one_tabularnote:nn ##1 } 
              \strut 
            \end { tabularnotes* }
%    \end{macrocode}
% The following |\par| is mandatory for the event that the user has put
% |\footnotesize| (for example) in the |notes/code-before|.
%    \begin{macrocode}
            \par
          }
          {
            \tabularnotes 
              \seq_map_inline:Nn \g_@@_notes_seq 
                { \@@_one_tabularnote:nn ##1 } 
              \strut 
            \endtabularnotes
          }
      }
    \unskip
    \group_end:
    \bool_if:NT \l_@@_notes_bottomrule_bool
      {
        \IfPackageLoadedTF { booktabs }
          {
%    \end{macrocode}
% The two dimensions |\aboverulesep| et |\heavyrulewidth| are parameters defined
% by \pkg{booktabs}. 
%    \begin{macrocode}
            \skip_vertical:N \aboverulesep 
%    \end{macrocode}
% |\CT@arc@| is the specification of color defined by \pkg{colortbl} but you use it
% even if \pkg{colortbl} is not loaded.
%    \begin{macrocode}
            { \CT@arc@ \hrule height \heavyrulewidth } 
          }
          { \@@_error_or_warning:n { bottomrule~without~booktabs } }
      }
    \l_@@_notes_code_after_tl
    \seq_gclear:N \g_@@_notes_seq
    \seq_gclear:N \g_@@_notes_in_caption_seq
    \int_gzero:N \c@tabularnote
  }
%    \end{macrocode}
%
% \medskip
% The following command will format (after the main tabular) one tabularnote
% (with the command |\item|) . |#1| is the label (when the command
% |\tabularnote| has been used with an optional argument between square
% brackets) and |#2| is the text of the note. The second argument is provided by
% curryfication. 
%    \begin{macrocode}
\cs_set_protected:Npn \@@_one_tabularnote:nn #1 
  {
    \tl_if_novalue:nTF { #1 }
      { \item }
      { \item [ \@@_notes_label_in_list:n { #1 } ] }
  }
%    \end{macrocode}
% 
% \medskip
% The case of |baseline| equal to |b|. Remember that, when the key |b| is used,
% the |{array}| (of \pkg{array}) is constructed with the option |t| (and not
% |b|). Now, we do the translation to take into account the option |b|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_use_arraybox_with_notes_b:
  {
    \pgfpicture
      \@@_qpoint:n { row - 1 } 
      \dim_gset_eq:NN \g_tmpa_dim \pgf@y
      \@@_qpoint:n { row - \int_use:N \c@iRow - base }
      \dim_gsub:Nn \g_tmpa_dim \pgf@y
    \endpgfpicture
    \dim_gadd:Nn \g_tmpa_dim \arrayrulewidth 
    \int_if_zero:nT \l_@@_first_row_int
      {
        \dim_gadd:Nn \g_tmpa_dim \g_@@_ht_row_zero_dim 
        \dim_gadd:Nn \g_tmpa_dim \g_@@_dp_row_zero_dim 
      }
    \box_move_up:nn \g_tmpa_dim { \hbox { \@@_use_arraybox_with_notes_c: } }
  }
%    \end{macrocode}  
%
% \medskip
% Now, the general case.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_use_arraybox_with_notes:
  {
%    \end{macrocode}
% We convert a value of |t| to a value of |1|.
%    \begin{macrocode}
    \str_if_eq:eeT \l_@@_baseline_tl { t } 
      { \cs_set_nopar:Npn \l_@@_baseline_tl { 1 } } 
%    \end{macrocode}
% Now, we convert the value of |\l_@@_baseline_tl| (which should represent an
% integer) to an integer stored in |\l_tmpa_int|.
%    \begin{macrocode}
    \pgfpicture
    \@@_qpoint:n { row - 1 } 
    \dim_gset_eq:NN \g_tmpa_dim \pgf@y
    \tl_if_in:NnTF \l_@@_baseline_tl { line- }
      {
        \int_set:Nn \l_tmpa_int
          {
            \str_range:Nnn 
              \l_@@_baseline_tl 
              6 
              { \tl_count:o \l_@@_baseline_tl } 
          }
        \@@_qpoint:n { row - \int_use:N \l_tmpa_int }
      }
      {
        \int_set:Nn \l_tmpa_int \l_@@_baseline_tl
        \bool_lazy_or:nnT
          { \int_compare_p:nNn \l_tmpa_int < \l_@@_first_row_int }
          { \int_compare_p:nNn \l_tmpa_int > \g_@@_row_total_int }
          { 
            \@@_error:n { bad~value~for~baseline }
            \int_set:Nn \l_tmpa_int 1
          } 
        \@@_qpoint:n { row - \int_use:N \l_tmpa_int - base }
      }
    \dim_gsub:Nn \g_tmpa_dim \pgf@y
    \endpgfpicture
    \dim_gadd:Nn \g_tmpa_dim \arrayrulewidth
    \int_if_zero:nT \l_@@_first_row_int
      {
        \dim_gadd:Nn \g_tmpa_dim \g_@@_ht_row_zero_dim 
        \dim_gadd:Nn \g_tmpa_dim \g_@@_dp_row_zero_dim 
      }
    \box_move_up:nn \g_tmpa_dim { \hbox { \@@_use_arraybox_with_notes_c: } }  
  }
%    \end{macrocode}
% 
%
% 
% \bigskip
% The command |\@@_put_box_in_flow_bis:| is used when the option
% |delimiters/max-width| is used because, in this case, we have to adjust the
% widths of the delimiters. The arguments |#1| and |#2| are the delimiters
% specified by the user.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_put_box_in_flow_bis:nn #1 #2 
  { 
%    \end{macrocode}
% We will compute the real width of both delimiters used.
%    \begin{macrocode}
    \dim_zero_new:N \l_@@_real_left_delim_dim
    \dim_zero_new:N \l_@@_real_right_delim_dim
    \hbox_set:Nn \l_tmpb_box
      {
        \m@th % added 2024/11/21
        \c_math_toggle_token
        \left #1 
        \vcenter 
          { 
            \vbox_to_ht:nn 
              { \box_ht_plus_dp:N \l_tmpa_box }
              { }
          }
        \right .
        \c_math_toggle_token
      } 
    \dim_set:Nn \l_@@_real_left_delim_dim 
      { \box_wd:N \l_tmpb_box - \nulldelimiterspace }  
    \hbox_set:Nn \l_tmpb_box
      {
        \m@th % added 2024/11/21
        \c_math_toggle_token
        \left .
        \vbox_to_ht:nn 
          { \box_ht_plus_dp:N \l_tmpa_box }
          { }
        \right #2
        \c_math_toggle_token
      } 
    \dim_set:Nn \l_@@_real_right_delim_dim 
      { \box_wd:N \l_tmpb_box - \nulldelimiterspace } 
%    \end{macrocode}
% 
% Now, we can put the box in the TeX flow with the horizontal adjustments on
% both sides.
%    \begin{macrocode}
    \skip_horizontal:N  \l_@@_left_delim_dim 
    \skip_horizontal:N -\l_@@_real_left_delim_dim 
    \@@_put_box_in_flow:
    \skip_horizontal:N \l_@@_right_delim_dim 
    \skip_horizontal:N -\l_@@_real_right_delim_dim 
  }
%    \end{macrocode}
% 
% \interitem
% The construction of the array in the environment |{NiceArrayWithDelims}| is,
% in fact, done by the environment |{@@-light-syntax}| or by the environment
% |{@@-normal-syntax}| (whether the option |light-syntax| is in force or not).
% When the key |light-syntax| is not used, the construction is a standard
% environment (and, thus, it's possible to use verbatim in the array).
%    \begin{macrocode} 
\NewDocumentEnvironment { @@-normal-syntax } { }
%    \end{macrocode}
% First, we test whether the environment is empty. If it is empty, we raise a
% fatal error (it's only a security). In order to detect whether it is empty, we
% test whether the next token is |\end| and, if it's the case, we test if this
% is the end of the environment (if it is not, an standard error will be raised
% by LaTeX for incorrect nested environments).
%    \begin{macrocode}
  { 
    \peek_remove_spaces:n
      {
        \peek_meaning:NTF \end 
          \@@_analyze_end:Nn 
          { 
            \@@_transform_preamble: 
%    \end{macrocode}
% Here is the call to |\array| (we have a dedicated macro |\@@_array:n| because
% of compatibility with the classes \cls{revtex4-1} and \cls{revtex4-2}).
%    \begin{macrocode}
            \@@_array:o \g_@@_array_preamble_tl 
          }
      }
  }
  { 
    \@@_create_col_nodes:
    \endarray 
  }
%    \end{macrocode}
%
% 
% \bigskip
% When the key |light-syntax| is in force, we use an environment which takes its
% whole body as an argument (with the specifier |b|). 
% % \label{code-light-syntax}
%    \begin{macrocode}
\NewDocumentEnvironment { @@-light-syntax } { b }
  { 
%    \end{macrocode}
% First, we test whether the environment is empty. It's only a security. Of
% course, this test is more easy than the similar test for the ``normal syntax''
% because we have the whole body of the environment in |#1|.
%    \begin{macrocode}
    \tl_if_empty:nT { #1 } 
      { \@@_fatal:n { empty~environment } }
    \tl_if_in:nnT { #1 } { & } 
      { \@@_fatal:n { ampersand~in~light-syntax } }
    \tl_if_in:nnT { #1 } { \\ } 
      { \@@_fatal:n { double-backslash~in~light-syntax } }
%    \end{macrocode}
% Now, you extract the |\CodeAfter| of the body of the environment. Maybe, there
% is no command |\CodeAfter| in the body. That's why you put a marker
% |\CodeAfter| after |#1|. If there is yet a |\CodeAfter| in |#1|, this second
% (or third...) |\CodeAfter| will be catched in the value of
% |\g_nicematrix_code_after_tl|. That doesn't matter because |\CodeAfter| will
% be set to \textsl{no-op} before the execution of
% |\g_nicematrix_code_after_tl|.
%    \begin{macrocode}
    \@@_light_syntax_i:w #1 \CodeAfter \q_stop
%    \end{macrocode}
% The command |\array| is hidden somewhere in |\@@_light_syntax_i:w|.
%    \begin{macrocode}
  }
%    \end{macrocode}
% Now, the second part of the environment. We must leave these lines in the
% second part (and not put them in the first part even though we caught the
% whole body of the environment with an argument of type |b|) in order to have
% the columns |S| of \pkg{siunitx} working fine.
%    \begin{macrocode}
  { 
    \@@_create_col_nodes:
    \endarray 
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_light_syntax_i:w #1\CodeAfter #2\q_stop 
  {
    \tl_gput_right:Nn \g_nicematrix_code_after_tl { #2 } 
%    \end{macrocode}
% The body of the array, which is stored in the argument |#1|, is now
% splitted into items (and \emph{not} tokens).
%    \begin{macrocode}
    \seq_clear_new:N \l_@@_rows_seq
%    \end{macrocode}
% We rescan the character of end of line in order to have the correct catcode.
%    \begin{macrocode}
    \tl_set_rescan:Nno \l_@@_end_of_row_tl { } \l_@@_end_of_row_tl
    \bool_if:NTF \l_@@_light_syntax_expanded_bool
      \seq_set_split:Nee
      \seq_set_split:Non 
      \l_@@_rows_seq \l_@@_end_of_row_tl { #1 }
%    \end{macrocode}
% We delete the last row if it is empty.
%    \begin{macrocode}
    \seq_pop_right:NN \l_@@_rows_seq \l_tmpa_tl 
    \tl_if_empty:NF \l_tmpa_tl 
      { \seq_put_right:No \l_@@_rows_seq \l_tmpa_tl }
%    \end{macrocode}
% If the environment uses the option |last-row| without value (i.e. without
% saying the number of the rows), we have now the opportunity to compute that
% value. We do it, and so, if the token list |\l_@@_code_for_last_row_tl| is not
% empty, we will use directly where it should be.
%    \begin{macrocode}
    \int_compare:nNnT \l_@@_last_row_int = { -1 }
      { \int_set:Nn \l_@@_last_row_int { \seq_count:N \l_@@_rows_seq } }
%    \end{macrocode}
%
%
% \bigskip
% The new value of the body (that is to say after replacement of the separators
% of rows and columns by |\\| and |&|) of the environment will be stored in 
% |\l_@@_new_body_tl| in order to allow the use of commands such as
% |\hline| or |\hdottedline| with the key |light-syntax|).
%    \begin{macrocode}
    \tl_build_begin:N \l_@@_new_body_tl
    \int_zero_new:N \l_@@_nb_cols_int
%    \end{macrocode}
% First, we treat the first row.
%    \begin{macrocode}
    \seq_pop_left:NN \l_@@_rows_seq \l_tmpa_tl
    \@@_line_with_light_syntax:o \l_tmpa_tl
%    \end{macrocode}
% Now, the other rows (with the same treatment, excepted that we have to insert
% |\\| between the rows).
%    \begin{macrocode}
    \seq_map_inline:Nn \l_@@_rows_seq 
      { 
        \tl_build_put_right:Nn \l_@@_new_body_tl { \\ } 
        \@@_line_with_light_syntax:n { ##1 } 
      }
    \tl_build_end:N \l_@@_new_body_tl
%    \end{macrocode}
%
%    \begin{macrocode}
    \int_compare:nNnT \l_@@_last_col_int = { -1 }
      { 
        \int_set:Nn \l_@@_last_col_int 
          { \l_@@_nb_cols_int - 1 + \l_@@_first_col_int }
      }
%    \end{macrocode}
%
% Now, we can construct the preamble: if the user has used the key |last-col|,
% we have the correct number of columns even though the user has used |last-col|
% without value.
%    \begin{macrocode}
    \@@_transform_preamble:
%    \end{macrocode}
% \bigskip
%
% The call to |\array| is in the following command (we have a dedicated macro
% |\@@_array:| because of compatibility with the classes \cls{revtex4-1} and
% \cls{revtex4-2}). 
%    \begin{macrocode}
    \@@_array:o \g_@@_array_preamble_tl \l_@@_new_body_tl
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_line_with_light_syntax:n { o }
\cs_new_protected:Npn \@@_line_with_light_syntax:n #1
  {
    \seq_clear_new:N \l_@@_cells_seq
    \seq_set_split:Nnn \l_@@_cells_seq { ~ } { #1 }
    \int_set:Nn \l_@@_nb_cols_int
      {
        \int_max:nn
          \l_@@_nb_cols_int
          { \seq_count:N \l_@@_cells_seq }
      }
    \seq_pop_left:NN \l_@@_cells_seq \l_tmpa_tl
    \tl_build_put_right:No \l_@@_new_body_tl \l_tmpa_tl
    \seq_map_inline:Nn \l_@@_cells_seq 
      { \tl_build_put_right:Nn \l_@@_new_body_tl { & ##1 } }
  }
%    \end{macrocode}
%
%
% \bigskip
% The following command is used by the code which detects whether the
% environment is empty (we raise a fatal error in this case: it's only a
% security). When this command is used, |#1| is, in fact, always |\end|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_analyze_end:Nn #1 #2
  {
    \str_if_eq:eeT \g_@@_name_env_str { #2 }
      { \@@_fatal:n { empty~environment } }
%    \end{macrocode}
% We reput in the stream the |\end{...}| we have extracted and the user will
% have an error for incorrect nested environments.
%    \begin{macrocode}
    \end { #2 }
  }
%    \end{macrocode}
%
% \bigskip
% The command |\@@_create_col_nodes:| will construct a special last row.
% That last row is a false row used to create the |col| nodes and to fix the
% width of the columns (when the array is constructed with an option which
% specifies the width of the columns such as |columns-width|).
%    \begin{macrocode}
\cs_new:Npn \@@_create_col_nodes:
  {
    \crcr 
    \int_if_zero:nT \l_@@_first_col_int 
      { 
        \omit 
        \hbox_overlap_left:n
          {
            \bool_if:NT \l_@@_code_before_bool
              { \pgfsys@markposition { \@@_env: - col - 0 } } 
            \pgfpicture 
            \pgfrememberpicturepositiononpagetrue
            \pgfcoordinate { \@@_env: - col - 0 } \pgfpointorigin 
            \str_if_empty:NF \l_@@_name_str
              { \pgfnodealias { \l_@@_name_str - col - 0 } { \@@_env: - col - 0 } }  
            \endpgfpicture
            \skip_horizontal:N 2\col@sep 
            \skip_horizontal:N \g_@@_width_first_col_dim 
          }
        & 
      }
    \omit
%    \end{macrocode}
% The following instruction must be put after the instruction |\omit|.
%    \begin{macrocode}
    \bool_gset_true:N \g_@@_row_of_col_done_bool
%    \end{macrocode}
% First, we put a |col| node on the left of the first column (of course, we
% have to do that \emph{after} the |\omit|).
%    \begin{macrocode}
    \int_if_zero:nTF \l_@@_first_col_int
      {
        \bool_if:NT \l_@@_code_before_bool
          { 
            \hbox
              {
                \skip_horizontal:N -0.5\arrayrulewidth 
                \pgfsys@markposition { \@@_env: - col - 1 } 
                \skip_horizontal:N 0.5\arrayrulewidth 
              }
          } 
        \pgfpicture 
        \pgfrememberpicturepositiononpagetrue
        \pgfcoordinate { \@@_env: - col - 1 } 
          { \pgfpoint { - 0.5 \arrayrulewidth } \c_zero_dim } 
        \str_if_empty:NF \l_@@_name_str
          { \pgfnodealias { \l_@@_name_str - col - 1 } { \@@_env: - col - 1 } }  
        \endpgfpicture
      }
      {
        \bool_if:NT \l_@@_code_before_bool
          { 
            \hbox
              {
                \skip_horizontal:N 0.5\arrayrulewidth
                \pgfsys@markposition { \@@_env: - col - 1 } 
                \skip_horizontal:N -0.5\arrayrulewidth 
              }
          } 
        \pgfpicture 
        \pgfrememberpicturepositiononpagetrue
        \pgfcoordinate { \@@_env: - col - 1 } 
          { \pgfpoint { 0.5 \arrayrulewidth } \c_zero_dim }       
        \str_if_empty:NF \l_@@_name_str
          { \pgfnodealias { \l_@@_name_str - col - 1 } { \@@_env: - col - 1 } }  
        \endpgfpicture
      }
%    \end{macrocode}
% We compute in |\g_tmpa_skip| the common width of the columns (it's a skip and
% not a dimension). We use a global variable because we are in a cell of an
% |\halign| and because we have to use that variable in other cells (of the same
% row). The affectation of |\g_tmpa_skip|, like all the affectations, must be
% done after the |\omit| of the cell.
%
% \smallskip
% We give a default value for |\g_tmpa_skip| (|0 pt plus 1 fill|) but we will
% add some dimensions to it.
%    \begin{macrocode}
    \skip_gset:Nn \g_tmpa_skip { 0 pt~plus 1 fill } 
    \bool_if:NF \l_@@_auto_columns_width_bool
      { \dim_compare:nNnT \l_@@_columns_width_dim > \c_zero_dim }
      {
        \bool_lazy_and:nnTF 
          \l_@@_auto_columns_width_bool 
          { \bool_not_p:n \l_@@_block_auto_columns_width_bool }
          { \skip_gadd:Nn \g_tmpa_skip \g_@@_max_cell_width_dim } 
          { \skip_gadd:Nn \g_tmpa_skip \l_@@_columns_width_dim } 
        \skip_gadd:Nn \g_tmpa_skip { 2 \col@sep } 
      }
    \skip_horizontal:N \g_tmpa_skip 
    \hbox
      { 
        \bool_if:NT \l_@@_code_before_bool
          { 
            \hbox
              {
                \skip_horizontal:N -0.5\arrayrulewidth 
                \pgfsys@markposition { \@@_env: - col - 2 } 
                \skip_horizontal:N 0.5\arrayrulewidth 
              }
          }   
        \pgfpicture 
        \pgfrememberpicturepositiononpagetrue
        \pgfcoordinate { \@@_env: - col - 2 } 
          { \pgfpoint { - 0.5 \arrayrulewidth } \c_zero_dim } 
        \str_if_empty:NF \l_@@_name_str
          { \pgfnodealias { \l_@@_name_str - col - 2 } { \@@_env: - col - 2 } } 
        \endpgfpicture
      }
%    \end{macrocode}
% We begin a loop over the columns. The integer |\g_tmpa_int| will be the
% number of the current column. This integer is used for the Tikz nodes.
%    \begin{macrocode}
    \int_gset_eq:NN \g_tmpa_int \c_one_int
    \bool_if:NTF \g_@@_last_col_found_bool
      { \prg_replicate:nn { \int_max:nn { \g_@@_col_total_int - 3 } \c_zero_int } }
      { \prg_replicate:nn { \int_max:nn { \g_@@_col_total_int - 2 } \c_zero_int } }
      { 
        & 
        \omit
        \int_gincr:N \g_tmpa_int 
%    \end{macrocode}
% The incrementation of the counter |\g_tmpa_int| must be done after the |\omit|
% of the cell.
%    \begin{macrocode}
        \skip_horizontal:N \g_tmpa_skip 
        \bool_if:NT \l_@@_code_before_bool
          { 
            \hbox
              {
                \skip_horizontal:N -0.5\arrayrulewidth
                \pgfsys@markposition 
                  { \@@_env: - col - \int_eval:n { \g_tmpa_int + 1 } } 
                \skip_horizontal:N 0.5\arrayrulewidth 
              }
          }   
%    \end{macrocode}
% We create the |col| node on the right of the current column.
%    \begin{macrocode}
        \pgfpicture
          \pgfrememberpicturepositiononpagetrue
          \pgfcoordinate { \@@_env: - col - \int_eval:n { \g_tmpa_int + 1 } } 
            { \pgfpoint { - 0.5 \arrayrulewidth } \c_zero_dim } 
          \str_if_empty:NF \l_@@_name_str
            {
              \pgfnodealias 
                { \l_@@_name_str - col - \int_eval:n { \g_tmpa_int + 1 } }
                { \@@_env: - col - \int_eval:n { \g_tmpa_int + 1 } } 
            }   
        \endpgfpicture  
      }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
        & 
        \omit
%    \end{macrocode}
% The two following lines have been added on 2021-12-15 to solve a bug
% mentionned by Joao Luis Soares by mail.
%    \begin{macrocode}
        \int_if_zero:nT \g_@@_col_total_int 
          { \skip_gset:Nn \g_tmpa_skip { 0 pt~plus 1 fill } }
        \skip_horizontal:N \g_tmpa_skip 
        \int_gincr:N \g_tmpa_int 
        \bool_lazy_any:nF 
          { 
            \g_@@_delims_bool 
            \l_@@_tabular_bool 
            { ! \clist_if_empty_p:N \l_@@_vlines_clist } 
            \l_@@_exterior_arraycolsep_bool 
            \l_@@_bar_at_end_of_pream_bool 
          }
          { \skip_horizontal:N -\col@sep } 
        \bool_if:NT \l_@@_code_before_bool
          { 
            \hbox
              {
                \skip_horizontal:N -0.5\arrayrulewidth 
%    \end{macrocode}
% With an environment |{Matrix}|, you want to remove the exterior |\arraycolsep| 
% but we don't know the number of columns (since there is no preamble) and
% that's why we can't put |@{}| at the end of the preamble. That's why we remove
% a |\arraycolsep| now.
%    \begin{macrocode}
                \bool_if:NT \l_@@_NiceMatrix_without_vlines_bool
                  { \skip_horizontal:N -\arraycolsep }
                \pgfsys@markposition 
                  { \@@_env: - col - \int_eval:n { \g_tmpa_int + 1 } } 
                \skip_horizontal:N 0.5\arrayrulewidth 
                \bool_if:NT \l_@@_NiceMatrix_without_vlines_bool
                  { \skip_horizontal:N \arraycolsep }
              }
          }   
        \pgfpicture
          \pgfrememberpicturepositiononpagetrue
          \pgfcoordinate { \@@_env: - col - \int_eval:n { \g_tmpa_int + 1 } } 
            { 
              \bool_if:NT \l_@@_NiceMatrix_without_vlines_bool
                { 
                  \pgfpoint 
                    { - 0.5 \arrayrulewidth - \arraycolsep } 
                    \c_zero_dim 
                } 
                { \pgfpoint { - 0.5 \arrayrulewidth } \c_zero_dim }
            } 
          \str_if_empty:NF \l_@@_name_str
            {
              \pgfnodealias 
                { \l_@@_name_str - col - \int_eval:n { \g_tmpa_int + 1 } }
                { \@@_env: - col - \int_eval:n { \g_tmpa_int + 1 } } 
            }   
        \endpgfpicture  
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \bool_if:NT \g_@@_last_col_found_bool
      {
        \hbox_overlap_right:n
          {
            \skip_horizontal:N \g_@@_width_last_col_dim 
            \skip_horizontal:N \col@sep 
            \bool_if:NT \l_@@_code_before_bool
              { 
                \pgfsys@markposition 
                  { \@@_env: - col - \int_eval:n { \g_@@_col_total_int + 1 } }
              } 
            \pgfpicture 
            \pgfrememberpicturepositiononpagetrue
            \pgfcoordinate 
              { \@@_env: - col - \int_eval:n { \g_@@_col_total_int + 1 } }  
              \pgfpointorigin 
            \str_if_empty:NF \l_@@_name_str
              { 
                \pgfnodealias  
                  { 
                     \l_@@_name_str - col 
                     - \int_eval:n { \g_@@_col_total_int + 1 } 
                  }  
                  { \@@_env: - col - \int_eval:n { \g_@@_col_total_int + 1 } } 
              }  
            \endpgfpicture
          }
      }
  % \cr 
  }
%    \end{macrocode}
%
%
% \interitem
% Here is the preamble for the ``first column'' (if the user uses the key
% |first-col|) 
%    \begin{macrocode}
\tl_const:Nn \c_@@_preamble_first_col_tl
  {
    > 
      { 
%    \end{macrocode}
% At the beginning of the cell, we link |\CodeAfter| to a command which 
% begins with |\\| (whereas the standard version of |\CodeAfter| begins does
% not).
%    \begin{macrocode}
        \cs_set_eq:NN \CodeAfter \@@_CodeAfter_i:
        \bool_gset_true:N \g_@@_after_col_zero_bool
        \@@_begin_of_row:
        \hbox_set:Nw \l_@@_cell_box 
        \@@_math_toggle:
        \@@_tuning_key_small:
%    \end{macrocode}
% We insert |\l_@@_code_for_first_col_tl|... but we don't insert it in the
% potential ``first row'' and in the potential ``last row''.
%    \begin{macrocode}
        \int_compare:nNnT \c@iRow > \c_zero_int
          {
            \bool_lazy_or:nnT
              { \int_compare_p:nNn \l_@@_last_row_int < \c_zero_int }
              { \int_compare_p:nNn \c@iRow < \l_@@_last_row_int }
              { 
                \l_@@_code_for_first_col_tl 
                \xglobal \colorlet { nicematrix-first-col } { . }
              }
          }
      }
%    \end{macrocode}
% Be careful: despite this letter |l| the cells of the ``first column'' are
% composed in a |R| manner since they are composed in a |\hbox_overlap_left:n|.
%    \begin{macrocode}
    l
    < 
      { 
        \@@_math_toggle:
        \hbox_set_end:
        \bool_if:NT \g_@@_rotate_bool \@@_rotate_cell_box:
        \@@_adjust_size_box:
        \@@_update_for_first_and_last_row:
%    \end{macrocode}
% We actualise the width of the ``first column'' because we will use this width
% after the construction of the array.
%    \begin{macrocode}
        \dim_gset:Nn \g_@@_width_first_col_dim
          { \dim_max:nn \g_@@_width_first_col_dim { \box_wd:N \l_@@_cell_box } }
%    \end{macrocode}
% The content of the cell is inserted in an overlapping position.
% \label{overlap-left}
%    \begin{macrocode}
        \hbox_overlap_left:n
          { 
            \dim_compare:nNnTF { \box_wd:N \l_@@_cell_box } > \c_zero_dim
              \@@_node_for_cell:
              { \box_use_drop:N \l_@@_cell_box } 
            \skip_horizontal:N \l_@@_left_delim_dim
            \skip_horizontal:N \l_@@_left_margin_dim 
            \skip_horizontal:N \l_@@_extra_left_margin_dim
          }
        \bool_gset_false:N \g_@@_empty_cell_bool
        \skip_horizontal:N -2\col@sep 
      }
  }
%    \end{macrocode}
%
%
% Here is the preamble for the ``last column'' (if the user uses the key
% |last-col|).
%    \begin{macrocode}
\tl_const:Nn \c_@@_preamble_last_col_tl
  {
    > 
      { 
        \bool_set_true:N \l_@@_in_last_col_bool
%    \end{macrocode}
% At the beginning of the cell, we link |\CodeAfter| to a command which 
% begins with |\\| (whereas the standard version of |\CodeAfter| begins does
% not).
%    \begin{macrocode}
        \cs_set_eq:NN \CodeAfter \@@_CodeAfter_i:
%    \end{macrocode}
% With the flag |\g_@@_last_col_found_bool|, we will know that the ``last
% column'' is really used.
%    \begin{macrocode}           
        \bool_gset_true:N \g_@@_last_col_found_bool
        \int_gincr:N \c@jCol
        \int_gset_eq:NN \g_@@_col_total_int \c@jCol
        \hbox_set:Nw \l_@@_cell_box 
          \@@_math_toggle:
          \@@_tuning_key_small:
%    \end{macrocode}
% We insert |\l_@@_code_for_last_col_tl|... but we don't insert it in the
% potential ``first row'' and in the potential ``last row''.
%    \begin{macrocode}
        \int_compare:nNnT \c@iRow > \c_zero_int
          {
            \bool_lazy_or:nnT
              { \int_compare_p:nNn \l_@@_last_row_int < \c_zero_int }
              { \int_compare_p:nNn \c@iRow < \l_@@_last_row_int }
              { 
                \l_@@_code_for_last_col_tl 
                \xglobal \colorlet { nicematrix-last-col } { . }
              }  
          }
      }
    l
    < 
      { 
        \@@_math_toggle:
        \hbox_set_end:
        \bool_if:NT \g_@@_rotate_bool \@@_rotate_cell_box:
        \@@_adjust_size_box:
        \@@_update_for_first_and_last_row:
%    \end{macrocode}
% We actualise the width of the ``last column'' because we will use this width
% after the construction of the array.
%    \begin{macrocode}
        \dim_gset:Nn \g_@@_width_last_col_dim
          { \dim_max:nn \g_@@_width_last_col_dim { \box_wd:N \l_@@_cell_box } }
        \skip_horizontal:N -2\col@sep 
%    \end{macrocode}
% The content of the cell is inserted in an overlapping position.
% \label{overlap-right}
%    \begin{macrocode}
        \hbox_overlap_right:n
          { 
            \dim_compare:nNnT { \box_wd:N \l_@@_cell_box } > \c_zero_dim
              {
                \skip_horizontal:N \l_@@_right_delim_dim 
                \skip_horizontal:N \l_@@_right_margin_dim 
                \skip_horizontal:N \l_@@_extra_right_margin_dim
                \@@_node_for_cell:
              }
          } 
        \bool_gset_false:N \g_@@_empty_cell_bool
      }
  }
%    \end{macrocode}
%
%
% \interitem
% The environment |{NiceArray}| is constructed upon the environment
% |{NiceArrayWithDelims}|.
%    \begin{macrocode}
\NewDocumentEnvironment { NiceArray } { }
  { 
    \bool_gset_false:N \g_@@_delims_bool
    \str_if_empty:NT \g_@@_name_env_str 
      { \str_gset:Nn \g_@@_name_env_str { NiceArray } }  
%    \end{macrocode}
% We put . and . for the delimiters but, in fact, that doesn't matter because
% these arguments won't be used in |{NiceArrayWithDelims}| (because the flag
% |\g_@@_delims_bool| is set to false).
%    \begin{macrocode} 
    \NiceArrayWithDelims . . 
  }
  { \endNiceArrayWithDelims }
%    \end{macrocode}
%               
% 
% \interitem
% We create the variants of the environment |{NiceArrayWithDelims}|. 
%
%   \begin{macrocode}
\cs_new_protected:Npn \@@_def_env:nnn #1 #2 #3
  {
    \NewDocumentEnvironment { #1 NiceArray } { }
      {
        \bool_gset_true:N \g_@@_delims_bool 
        \str_if_empty:NT \g_@@_name_env_str 
          { \str_gset:Nn \g_@@_name_env_str { #1 NiceArray } } 
        \@@_test_if_math_mode:
        \NiceArrayWithDelims #2 #3
      }
      { \endNiceArrayWithDelims }
  }
%    \end{macrocode}
%               
%   \begin{macrocode}
\@@_def_env:nnn p ( ) 
\@@_def_env:nnn b [ ]
\@@_def_env:nnn B \{ \}
\@@_def_env:nnn v | |
\@@_def_env:nnn V \| \|
%    \end{macrocode}
% 
%
% \bigskip
% \section{The environment \{NiceMatrix\} and its variants}
%
% 
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_begin_of_NiceMatrix:nn { n o }
\cs_new_protected:Npn \@@_begin_of_NiceMatrix:nn #1 #2
  {
    \bool_set_false:N \l_@@_preamble_bool 
    \tl_clear:N \l_tmpa_tl 
    \bool_if:NT \l_@@_NiceMatrix_without_vlines_bool 
      { \tl_set:Nn \l_tmpa_tl { @ { } } }    
    \tl_put_right:Nn \l_tmpa_tl
      {  
        * 
          { 
            \int_case:nnF \l_@@_last_col_int 
              { 
                { -2 } { \c@MaxMatrixCols }
                { -1 } { \int_eval:n { \c@MaxMatrixCols + 1 } } 
%    \end{macrocode}
% The value $0$ can't occur here since we are in a matrix (which is an
% environment without preamble). 
%    \begin{macrocode}
              }
              { \int_eval:n { \l_@@_last_col_int - 1 } }
          } 
          { #2 }
      } 
    \tl_set:Nn \l_tmpb_tl { \use:c { #1 NiceArray } }
    \exp_args:No \l_tmpb_tl \l_tmpa_tl    
  }
%    \end{macrocode}
% 
% 
%    \begin{macrocode}
\clist_map_inline:nn { p , b , B , v , V }
  {
    \NewDocumentEnvironment { #1 NiceMatrix } { ! O { } }
      {
        \bool_gset_true:N \g_@@_delims_bool 
        \str_gset:Nn \g_@@_name_env_str { #1 NiceMatrix } 
        \int_if_zero:nT \l_@@_last_col_int
          {  
            \bool_set_true:N \l_@@_last_col_without_value_bool
            \int_set:Nn \l_@@_last_col_int { -1 }
          }                
        \keys_set:nn { nicematrix / NiceMatrix } { ##1 }
        \@@_begin_of_NiceMatrix:no { #1 } \l_@@_columns_type_tl 
      }
      { \use:c { end #1 NiceArray } }
  }
%    \end{macrocode}
%
% \bigskip
% We define also an environment |{NiceMatrix}|
%    \begin{macrocode}
\NewDocumentEnvironment { NiceMatrix } { ! O { } }
  {
    \str_gset:Nn \g_@@_name_env_str { NiceMatrix } 
    \int_if_zero:nT \l_@@_last_col_int
      {  
        \bool_set_true:N \l_@@_last_col_without_value_bool
        \int_set:Nn \l_@@_last_col_int { -1 }
      }                
    \keys_set:nn { nicematrix / NiceMatrix } { #1 }
    \bool_lazy_or:nnT
      { \clist_if_empty_p:N \l_@@_vlines_clist }
      { \l_@@_except_borders_bool }
      { \bool_set_true:N \l_@@_NiceMatrix_without_vlines_bool }
    \@@_begin_of_NiceMatrix:no { } \l_@@_columns_type_tl 
  }
  { \endNiceArray }
%    \end{macrocode}
% 
% \bigskip
% The following command will be linked to |\NotEmpty| in the environments of
% \pkg{nicematrix}. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_NotEmpty:
  { \bool_gset_true:N \g_@@_not_empty_cell_bool }
%    \end{macrocode}
%
% \bigskip
% \section{\{NiceTabular\}, \{NiceTabularX\} and \{NiceTabular*\}} 
%
%    \begin{macrocode}
\NewDocumentEnvironment { NiceTabular } { O { } m ! O { } }
  { 
%    \end{macrocode}
% If the dimension |\l_@@_width_dim| is equal to $0$~pt, that means that it has
% not been set by a previous use of |\NiceMatrixOptions|.
%    \begin{macrocode}
    \dim_compare:nNnT \l_@@_width_dim = \c_zero_dim 
      { \dim_set_eq:NN \l_@@_width_dim \linewidth }
    \str_gset:Nn \g_@@_name_env_str { NiceTabular }
    \keys_set:nn { nicematrix / NiceTabular } { #1 , #3 }
    \tl_if_empty:NF \l_@@_short_caption_tl
      {
        \tl_if_empty:NT \l_@@_caption_tl
          { 
            \@@_error_or_warning:n { short-caption~without~caption } 
            \tl_set_eq:NN \l_@@_caption_tl \l_@@_short_caption_tl
          }
      }
    \tl_if_empty:NF \l_@@_label_tl
      {
        \tl_if_empty:NT \l_@@_caption_tl
          { \@@_error_or_warning:n { label~without~caption } }
      }
    \NewDocumentEnvironment { TabularNote } { b }
      { 
        \bool_if:NTF \l_@@_in_code_after_bool
          { \@@_error_or_warning:n { TabularNote~in~CodeAfter } }
          {
            \tl_if_empty:NF \g_@@_tabularnote_tl
              { \tl_gput_right:Nn \g_@@_tabularnote_tl { \par } }
            \tl_gput_right:Nn \g_@@_tabularnote_tl { ##1 } 
          }
      }
      { }
    \@@_settings_for_tabular:
    \NiceArray { #2 }
  }
  { \endNiceArray }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_settings_for_tabular:
  {
    \bool_set_true:N \l_@@_tabular_bool 
    \cs_set_eq:NN \@@_math_toggle: \prg_do_nothing:
    \cs_set_eq:NN \@@_tuning_not_tabular_begin: \prg_do_nothing:
    \cs_set_eq:NN \@@_tuning_not_tabular_end: \prg_do_nothing:
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\NewDocumentEnvironment { NiceTabularX } { m O { } m ! O { } }
  { 
    \str_gset:Nn \g_@@_name_env_str { NiceTabularX }
    \dim_zero_new:N \l_@@_width_dim 
    \dim_set:Nn \l_@@_width_dim { #1 }
    \keys_set:nn { nicematrix / NiceTabular } { #2 , #4 }
    \@@_settings_for_tabular:
    \NiceArray { #3 }
  }
  { 
    \endNiceArray 
    \int_if_zero:nT \g_@@_total_X_weight_int 
      { \@@_error:n { NiceTabularX~without~X } }
  }
%    \end{macrocode}
%
% \bigskip 
%    \begin{macrocode}
\NewDocumentEnvironment { NiceTabular* } { m O { } m ! O { } }
  { 
    \str_gset:Nn \g_@@_name_env_str { NiceTabular* }
    \dim_set:Nn \l_@@_tabular_width_dim { #1 }
    \keys_set:nn { nicematrix / NiceTabular } { #2 , #4 }
    \@@_settings_for_tabular:
    \NiceArray { #3 }
  }
  { \endNiceArray }
%    \end{macrocode}
%
% 
% \bigskip
% \section{After the construction of the array}
%
%  \bigskip
% The following command will be used when the key |rounded-corners| is in force
% (this is the key |rounded-corners| for the whole environment and \emph{not}
% the key |rounded-corners| of a command |\Block|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_deal_with_rounded_corners:
  {
    \bool_lazy_all:nT 
      {
        { \int_compare_p:nNn \l_@@_tab_rounded_corners_dim > \c_zero_dim }
        \l_@@_hvlines_bool
        { ! \g_@@_delims_bool }
        { ! \l_@@_except_borders_bool }  
      }
      {
        \bool_set_true:N \l_@@_except_borders_bool
        \clist_if_empty:NF \l_@@_corners_clist
          { \@@_error:n { hvlines,~rounded-corners~and~corners } }
        \tl_gput_right:Nn \g_@@_pre_code_after_tl
          {
            \@@_stroke_block:nnn
              {
                rounded-corners = \dim_use:N \l_@@_tab_rounded_corners_dim ,
                draw = \l_@@_rules_color_tl
              }
              { 1-1 }
              { \int_use:N \c@iRow - \int_use:N \c@jCol }
          }
      }
  }
%    \end{macrocode}
% 
%
% \medskip 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_after_array:
  { 
%    \end{macrocode}
% There was a |\hook_gput_code:nnn { env / tabular / begin } { nicematrix }| in
% the command |\@@_pre_array_ii:| in order to come back to the standard
% definition of |\multicolumn| (in the tabulars used by the final user in the
% cells of our array of \pkg{nicematrix}) and maybe another linked to
% \pkg{colortbl}.
%    \begin{macrocode}
    \hook_gremove_code:nn { env / tabular / begin } { nicematrix }   
    \group_begin:
%    \end{macrocode}
% When the option |last-col| is used in the environments with explicit preambles
% (like |{NiceArray}|, |{pNiceArray}|, etc.) a special type of column is used at
% the end of the preamble in order to compose the cells in an overlapping
% position (with |\hbox_overlap_right:n|) but (if |last-col| has been used), we
% don't have the number of that last column. However, we have to know that
% number for the color of the potential |\Vdots| drawn in that last column.
% That's why we fix the correct value of |\l_@@_last_col_int| in that case.
%    \begin{macrocode}
    \bool_if:NT \g_@@_last_col_found_bool
      { \int_set_eq:NN \l_@@_last_col_int \g_@@_col_total_int } 
%    \end{macrocode}
%
% If we are in an environment without preamble (like |{NiceMatrix}| or
% |{pNiceMatrix}|) and if the option |last-col| has been used without value
% we also fix the real value of |\l_@@_last_col_int|.
%    \begin{macrocode}
    \bool_if:NT \l_@@_last_col_without_value_bool
      { \int_set_eq:NN \l_@@_last_col_int \g_@@_col_total_int }
%    \end{macrocode}
% 
% \medskip
% It's also time to give to |\l_@@_last_row_int| its real value. 
%    \begin{macrocode}
    \bool_if:NT \l_@@_last_row_without_value_bool
      { \int_set_eq:NN \l_@@_last_row_int \g_@@_row_total_int }
%    \end{macrocode}
% 
% \medskip
%    \begin{macrocode}
    \tl_gput_right:Ne \g_@@_aux_tl
      { 
        \seq_gset_from_clist:Nn \exp_not:N \g_@@_size_seq 
          { 
            \int_use:N \l_@@_first_row_int ,
            \int_use:N \c@iRow , 
            \int_use:N \g_@@_row_total_int ,
            \int_use:N \l_@@_first_col_int ,
            \int_use:N \c@jCol ,
            \int_use:N \g_@@_col_total_int 
          } 
      }
%    \end{macrocode}
% We write also the potential content of |\g_@@_pos_of_blocks_seq|. It will be
% used to recreate the blocks with a name in the |\CodeBefore| and also if the
% command |\rowcolors| is used with the key |respect-blocks|).
%    \begin{macrocode}
    \seq_if_empty:NF \g_@@_pos_of_blocks_seq
      {
        \tl_gput_right:Ne \g_@@_aux_tl
          { 
            \seq_gset_from_clist:Nn \exp_not:N \g_@@_pos_of_blocks_seq
              { \seq_use:Nnnn \g_@@_pos_of_blocks_seq , , , }
          }
      } 
    \seq_if_empty:NF \g_@@_multicolumn_cells_seq
      {
        \tl_gput_right:Ne \g_@@_aux_tl
          { 
            \seq_gset_from_clist:Nn \exp_not:N \g_@@_multicolumn_cells_seq
              { \seq_use:Nnnn \g_@@_multicolumn_cells_seq , , , }
            \seq_gset_from_clist:Nn \exp_not:N \g_@@_multicolumn_sizes_seq
              { \seq_use:Nnnn \g_@@_multicolumn_sizes_seq , , , }
          }
      }
%    \end{macrocode}
%
% \medskip
% Now, you create the diagonal nodes by using the |row| nodes and the |col|
% nodes.
%    \begin{macrocode}
    \@@_create_diag_nodes:
%    \end{macrocode}
%
% \medskip
% We create the aliases using |last| for the nodes of the cells in the last row
% and the last column.
%    \begin{macrocode}
    \pgfpicture
    \int_step_inline:nn \c@iRow
      { 
        \pgfnodealias 
          { \@@_env: - ##1 - last } 
          { \@@_env: - ##1 - \int_use:N \c@jCol } 
      }
    \int_step_inline:nn \c@jCol
      { 
        \pgfnodealias 
          { \@@_env: - last - ##1 } 
          { \@@_env: - \int_use:N \c@iRow - ##1 } 
      }
    \str_if_empty:NF \l_@@_name_str
      {
        \int_step_inline:nn \c@iRow
          { 
            \pgfnodealias 
              { \l_@@_name_str - ##1 - last } 
              { \@@_env: - ##1 - \int_use:N \c@jCol } 
          }
        \int_step_inline:nn \c@jCol
          { 
            \pgfnodealias 
              { \l_@@_name_str - last - ##1 } 
              { \@@_env: - \int_use:N \c@iRow - ##1 } 
          }
      }
    \endpgfpicture
%    \end{macrocode}
% 
% By default, the diagonal lines will be parallelized\footnote{It's possible to
% use the option |parallelize-diags| to disable this parallelization.}. There
% are two types of diagonals lines: the $|\Ddots|$ diagonals and the |\Iddots|
% diagonals. We have to count both types in order to know whether a diagonal is
% the first of its type in the current |{NiceArray}| environment.
%    \begin{macrocode}
    \bool_if:NT \l_@@_parallelize_diags_bool
      { 
        \int_gzero_new:N \g_@@_ddots_int
        \int_gzero_new:N \g_@@_iddots_int
%    \end{macrocode}
%
% The dimensions |\g_@@_delta_x_one_dim| and |\g_@@_delta_y_one_dim| will
% contain the $\Delta_x$ and $\Delta_y$ of the first |\Ddots| diagonal. We have
% to store these values in order to draw the others |\Ddots| diagonals parallel
% to the first one. Similarly |\g_@@_delta_x_two_dim| and
% |\g_@@_delta_y_two_dim| are the $\Delta_x$ and $\Delta_y$ of the first
% |\Iddots| diagonal. 
%    \begin{macrocode}
        \dim_gzero_new:N \g_@@_delta_x_one_dim
        \dim_gzero_new:N \g_@@_delta_y_one_dim
        \dim_gzero_new:N \g_@@_delta_x_two_dim
        \dim_gzero_new:N \g_@@_delta_y_two_dim
      }
%    \end{macrocode}
%
%    \begin{macrocode}
    \int_zero_new:N \l_@@_initial_i_int
    \int_zero_new:N \l_@@_initial_j_int
    \int_zero_new:N \l_@@_final_i_int
    \int_zero_new:N \l_@@_final_j_int
    \bool_set_false:N \l_@@_initial_open_bool
    \bool_set_false:N \l_@@_final_open_bool
%    \end{macrocode}
%
% If the option |small| is used, the values |\l_@@_xdots_radius_dim| and
% |\l_@@_xdots_inter_dim| (used to draw the dotted lines created by
% |\hdottedline| and |\vdottedline| and also for all the other dotted lines when
% |line-style| is equal to |standard|, which is the initial value) are changed.
%    \begin{macrocode}     
    \bool_if:NT \l_@@_small_bool 
      { 
        \dim_set:Nn \l_@@_xdots_radius_dim { 0.7 \l_@@_xdots_radius_dim }
        \dim_set:Nn \l_@@_xdots_inter_dim { 0.55 \l_@@_xdots_inter_dim } 
%    \end{macrocode}
% The dimensions |\l_@@_xdots_shorten_start_dim| and
% |\l_@@_xdots_shorten_start_dim| correspond to the options
% |xdots/shorten-start| and |xdots/shorten-end| available to the user. 
%    \begin{macrocode}
        \dim_set:Nn \l_@@_xdots_shorten_start_dim 
          { 0.6 \l_@@_xdots_shorten_start_dim }
        \dim_set:Nn \l_@@_xdots_shorten_end_dim 
          { 0.6 \l_@@_xdots_shorten_end_dim }
      }
%    \end{macrocode}
%
% \bigskip
% Now, we actually draw the dotted lines (specified by |\Cdots|, |\Vdots|,
% etc.). 
%    \begin{macrocode}
    \@@_draw_dotted_lines:
%    \end{macrocode}
%
% 
% \bigskip
% The following computes the ``corners'' (made up of empty cells) but if there
% is no corner to compute, it won't do anything. The corners are computed
% in |\l_@@_corners_cells_clist| which will contain all the cells which are empty
% (and not in a block) considered in the corners of the array.
%    \begin{macrocode}
    \clist_if_empty:NF \l_@@_corners_clist \@@_compute_corners:
%    \end{macrocode}
%
% \bigskip
% The sequence |\g_@@_pos_of_blocks_seq| must be ``adjusted'' (for the case
% where the user have written something like |\Block{1-*}|).
%    \begin{macrocode}
    \@@_adjust_pos_of_blocks_seq:
%    \end{macrocode}
% 
%    \begin{macrocode}
    \@@_deal_with_rounded_corners:
    \clist_if_empty:NF \l_@@_hlines_clist \@@_draw_hlines: 
    \clist_if_empty:NF \l_@@_vlines_clist \@@_draw_vlines: 
%    \end{macrocode}
%
% \bigskip
% Now, the pre-code-after and then, the |\CodeAfter|.
%    \begin{macrocode}
    \IfPackageLoadedT { tikz }
      {  
        \tikzset
          { 
            every~picture / .style = 
              { 
                overlay ,
                remember~picture ,
                name~prefix = \@@_env: - 
              }
          }  
      }
    \bool_if:NT \c_@@_recent_array_bool
      { \cs_set_eq:NN \ar@ialign \@@_old_ar@ialign: }
    \cs_set_eq:NN \SubMatrix \@@_SubMatrix
    \cs_set_eq:NN \UnderBrace \@@_UnderBrace
    \cs_set_eq:NN \OverBrace \@@_OverBrace
    \cs_set_eq:NN \ShowCellNames \@@_ShowCellNames
    \cs_set_eq:NN \TikzEveryCell \@@_TikzEveryCell
    \cs_set_eq:NN \line \@@_line
    \g_@@_pre_code_after_tl
    \tl_gclear:N \g_@@_pre_code_after_tl
%    \end{macrocode}
% When |light-syntax| is used, we insert systematically a |\CodeAfter| in the
% flow. Thus, it's possible to have two instructions |\CodeAfter| and the second
% may be in |\g_nicematrix_code_after_tl|. That's why we set
% |\Code-after| to be \textsl{no-op} now.
%    \begin{macrocode}
    \cs_set_eq:NN \CodeAfter \prg_do_nothing:
%    \end{macrocode}
%
% We clear the list of the names of the potential |\SubMatrix| that will appear
% in the |\CodeAfter| (unfortunately, that list has to be global).
%    \begin{macrocode}
    \seq_gclear:N \g_@@_submatrix_names_seq
%    \end{macrocode}
%
% \medskip
% The following code is a security for the case the user has used \pkg{babel}
% with the option \pkg{spanish}: in that case, the characters |>| and |<| are
% activated and Tikz is not able to solve the problem (even with the Tikz
% library \pkg{babel}).
%    \begin{macrocode}
    \int_compare:nNnT { \char_value_catcode:n { 60 } } = { 13 }
      { \@@_rescan_for_spanish:N \g_nicematrix_code_after_tl }
%    \end{macrocode}
% \medskip
% And here's the |\CodeAfter|. Since the |\CodeAfter| may begin with an
% ``argument'' between square brackets of the options, we extract and treat that
% potential ``argument'' with the command |\@@_CodeAfter_keys:|.
%    \begin{macrocode}
    \bool_set_true:N \l_@@_in_code_after_bool
    \exp_last_unbraced:No \@@_CodeAfter_keys: \g_nicematrix_code_after_tl
    \scan_stop: 
    \tl_gclear:N \g_nicematrix_code_after_tl
    \group_end:
%    \end{macrocode}
% 
% 
% \medskip
% |\g_@@_pre_code_before_tl| is for instructions in the cells of the array such as
% |\rowcolor| and |\cellcolor|. These instructions will be written on the |aux|
% file to be added to the |code-before| in the next run.
%    \begin{macrocode}
    \seq_if_empty:NF \g_@@_rowlistcolors_seq { \@@_clear_rowlistcolors_seq: }
    \tl_if_empty:NF \g_@@_pre_code_before_tl
      {
        \tl_gput_right:Ne \g_@@_aux_tl
          {
            \tl_gset:Nn \exp_not:N \g_@@_pre_code_before_tl 
              { \exp_not:o \g_@@_pre_code_before_tl }
          }
        \tl_gclear:N \g_@@_pre_code_before_tl 
      }
    \tl_if_empty:NF \g_nicematrix_code_before_tl
      {
        \tl_gput_right:Ne \g_@@_aux_tl
          {
            \tl_gset:Nn \exp_not:N \g_@@_code_before_tl 
              { \exp_not:o \g_nicematrix_code_before_tl }
          }
        \tl_gclear:N \g_nicematrix_code_before_tl
      }
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
    \str_gclear:N \g_@@_name_env_str
    \@@_restore_iRow_jCol:
%    \end{macrocode}
% The command |\CT@arc@| contains the instruction of color for the rules of the
% array\footnote{e.g. |\color[rgb]{0.5,0.5,0}|}. This command is used by
% |\CT@arc@| but we use it also for compatibility with \pkg{colortbl}. But we
% want also to be able to use color for the rules of the array when
% \pkg{colortbl} is \emph{not} loaded. That's why we do the following
% instruction which is in the patch of the end of arrays done by \pkg{colortbl}.
%    \begin{macrocode}
    \cs_gset_eq:NN \CT@arc@ \@@_old_CT@arc@ 
  }
%    \end{macrocode}
%
% \bigskip
% The following command will extract the potential options (between square
% brackets) at the beginning of the |\CodeAfter| (that is to say, when
% |\CodeAfter| is used, the options of that ``command'' |\CodeAfter|). Idem for
% the |\CodeBefore.|
%    \begin{macrocode}
\NewDocumentCommand \@@_CodeAfter_keys: { O { } }
  { \keys_set:nn { nicematrix / CodeAfter } { #1 } }
%    \end{macrocode}
%
%
% 
% \bigskip
% We remind that the first mandatory argument of the command |\Block| is the
% size of the block with the special format $i$|-|$j$. However, the user is
% allowed to omit $i$ or $j$ (or both). This will be interpreted as: the last
% row (resp. column) of the block will be the last row (resp. column) of the
% block (without the potential exterior row---resp. column---of the array). By
% convention, this is stored in |\g_@@_pos_of_blocks_seq| (and
% |\g_@@_blocks_seq|) as a number of rows (resp. columns) for the block equal to
% 100. It's possible, after the construction of the array, to replace these
% values by the correct ones (since we know the number of rows and columns of
% the array).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_adjust_pos_of_blocks_seq:
  {
    \seq_gset_map_e:NNn \g_@@_pos_of_blocks_seq \g_@@_pos_of_blocks_seq 
      { \@@_adjust_pos_of_blocks_seq_i:nnnnn ##1 }
  }
%    \end{macrocode}
% 
% The following command must \emph{not} be protected.
%    \begin{macrocode}
\cs_new:Npn \@@_adjust_pos_of_blocks_seq_i:nnnnn #1 #2 #3 #4 #5
  {
    { #1 } 
    { #2 } 
    {
      \int_compare:nNnTF { #3 } > { 99 }
        { \int_use:N \c@iRow }
        { #3 } 
    }
    {
      \int_compare:nNnTF { #4 } > { 99 }
        { \int_use:N \c@jCol }
        { #4 }
    }
    { #5 }
  }
%    \end{macrocode}
% 
% \bigskip
% We recall that, when externalization is used, |\tikzpicture| and
% |\endtikzpicture| (or |\pgfpicture| and |\endpgfpicture|) must be directly
% ``visible''. That's why we have to define the adequate version of
% |\@@_draw_dotted_lines:| whether Tikz is loaded or not (in that case, only
% \textsc{pgf} is loaded).
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \cs_new_protected:Npe \@@_draw_dotted_lines:
      {
        \c_@@_pgfortikzpicture_tl
        \@@_draw_dotted_lines_i:
        \c_@@_endpgfortikzpicture_tl
      }
  }
%    \end{macrocode}
%
% The following command \emph{must} be protected because it will appear in the
% construction of the command |\@@_draw_dotted_lines:|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_dotted_lines_i:
  {
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \g_@@_HVdotsfor_lines_tl
    \g_@@_Vdots_lines_tl
    \g_@@_Ddots_lines_tl
    \g_@@_Iddots_lines_tl
    \g_@@_Cdots_lines_tl
    \g_@@_Ldots_lines_tl
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_restore_iRow_jCol:
  {
    \cs_if_exist:NT \theiRow { \int_gset_eq:NN \c@iRow \l_@@_old_iRow_int } 
    \cs_if_exist:NT \thejCol { \int_gset_eq:NN \c@jCol \l_@@_old_jCol_int } 
  }
%    \end{macrocode}
%
% \bigskip
% We define a new \textsc{pgf} shape for the diag nodes because we want to
% provide an anchor called |.5| for those nodes.
%    \begin{macrocode}
\pgfdeclareshape { @@_diag_node }
  {
    \savedanchor { \five }
      {
        \dim_gset_eq:NN \pgf@x \l_tmpa_dim 
        \dim_gset_eq:NN \pgf@y \l_tmpb_dim 
      }
    \anchor { 5 } { \five }
    \anchor { center } { \pgfpointorigin }
    \anchor { 1 }  { \five \pgf@x = 0.2 \pgf@x \pgf@y = 0.2 \pgf@y }
    \anchor { 2 }  { \five \pgf@x = 0.4 \pgf@x \pgf@y = 0.4 \pgf@y }
    \anchor { 25 } { \five \pgf@x = 0.5 \pgf@x \pgf@y = 0.5 \pgf@y }
    \anchor { 3 }  { \five \pgf@x = 0.6 \pgf@x \pgf@y = 0.6 \pgf@y }
    \anchor { 4 }  { \five \pgf@x = 0.8 \pgf@x \pgf@y = 0.8 \pgf@y }
    \anchor { 6 }  { \five \pgf@x = 1.2 \pgf@x \pgf@y = 1.2 \pgf@y }
    \anchor { 7 }  { \five \pgf@x = 1.4 \pgf@x \pgf@y = 1.4 \pgf@y }
    \anchor { 75 } { \five \pgf@x = 1.5 \pgf@x \pgf@y = 1.5 \pgf@y }
    \anchor { 8 }  { \five \pgf@x = 1.6 \pgf@x \pgf@y = 1.6 \pgf@y }
    \anchor { 9 }  { \five \pgf@x = 1.8 \pgf@x \pgf@y = 1.8 \pgf@y }
  }
%    \end{macrocode}
% 
%
% 
% \bigskip
% The following command creates the diagonal nodes (in fact, if the matrix is
% not a square matrix, not all the nodes are on the diagonal).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_diag_nodes:
  {
    \pgfpicture
    \pgfrememberpicturepositiononpagetrue
    \int_step_inline:nn { \int_max:nn \c@iRow \c@jCol }
      {
        \@@_qpoint:n { col - \int_min:nn { ##1 } { \c@jCol + 1 } } 
        \dim_set_eq:NN \l_tmpa_dim \pgf@x
        \@@_qpoint:n { row - \int_min:nn { ##1 } { \c@iRow + 1 } } 
        \dim_set_eq:NN \l_tmpb_dim \pgf@y
        \@@_qpoint:n { col - \int_min:nn { ##1 + 1 } { \c@jCol + 1 } } 
        \dim_set_eq:NN \l_@@_tmpc_dim \pgf@x
        \@@_qpoint:n { row - \int_min:nn { ##1 + 1 } { \c@iRow + 1 } } 
        \dim_set_eq:NN \l_@@_tmpd_dim \pgf@y
        \pgftransformshift { \pgfpoint \l_tmpa_dim \l_tmpb_dim }
%    \end{macrocode}
% Now, |\l_tmpa_dim| and |\l_tmpb_dim| become the width and the height of the
% node (of shape |@@_diag_node|) that we will construct.
%    \begin{macrocode}
        \dim_set:Nn \l_tmpa_dim { ( \l_@@_tmpc_dim - \l_tmpa_dim ) / 2 } 
        \dim_set:Nn \l_tmpb_dim { ( \l_@@_tmpd_dim - \l_tmpb_dim ) / 2 } 
        \pgfnode { @@_diag_node } { center } { } { \@@_env: - ##1 } { }
        \str_if_empty:NF \l_@@_name_str
          { \pgfnodealias { \l_@@_name_str - ##1 } { \@@_env: - ##1 } }
      }
%    \end{macrocode}
% Now, the last node. Of course, that is only a |coordinate| because there is
% not |.5| anchor for that node.
%    \begin{macrocode}
    \int_set:Nn \l_tmpa_int { \int_max:nn \c@iRow \c@jCol + 1 }
    \@@_qpoint:n { row - \int_min:nn { \l_tmpa_int } { \c@iRow + 1 } } 
    \dim_set_eq:NN \l_tmpa_dim \pgf@y 
    \@@_qpoint:n { col - \int_min:nn { \l_tmpa_int } { \c@jCol + 1 } } 
    \pgfcoordinate 
      { \@@_env: - \int_use:N \l_tmpa_int } { \pgfpoint \pgf@x \l_tmpa_dim }  
    \pgfnodealias 
      { \@@_env: - last }
      { \@@_env: - \int_eval:n { \int_max:nn \c@iRow \c@jCol + 1 } }
    \str_if_empty:NF \l_@@_name_str
      { 
        \pgfnodealias 
          { \l_@@_name_str - \int_use:N \l_tmpa_int }
          { \@@_env: - \int_use:N \l_tmpa_int }
        \pgfnodealias 
          { \l_@@_name_str - last }
          { \@@_env: - last }
      }
    \endpgfpicture
  }
%    \end{macrocode}
%
% 
% \bigskip
% \section{We draw the dotted lines}
%
% A dotted line will be said \emph{open} in one of its extremities when it stops
% on the edge of the matrix and \emph{closed} otherwise. In the following
% matrix, the dotted line is closed on its left extremity and open on its right.
% \[ \begin{pNiceMatrix}
% a+b+c & a+b & a\\
% a & \Cdots \\
% a & a+b & a+b+c
% \end{pNiceMatrix}\]
%
% 
% \bigskip
% The command |\@@_find_extremities_of_line:nnnn| takes four arguments:
%
% \begin{itemize}
% \item the first argument is the row of the cell where the command was issued;
% \item the second argument is the column of the cell where the command was
% issued; 
% \item the third argument is the $x$-value of the orientation vector of the
% line; 
% \item the fourth argument is the $y$-value of the orientation vector of the
% line.
% \end{itemize}
%
% This command computes:
%
% \begin{itemize}
% \item |\l_@@_initial_i_int| and |\l_@@_initial_j_int| which are the
% coordinates of one extremity of the line; 
% \item |\l_@@_final_i_int| and |\l_@@_final_j_int| which are the coordinates of
% the other extremity of the line; 
% \item |\l_@@_initial_open_bool| and |\l_@@_final_open_bool| to indicate
% whether the extremities are open or not. 
% \end{itemize}
%
%    \begin{macrocode}       
\cs_new_protected:Npn \@@_find_extremities_of_line:nnnn #1 #2 #3 #4
  { 
%    \end{macrocode}
% First, we declare the current cell as ``dotted'' because we forbide
% intersections of dotted lines.
%    \begin{macrocode}         
    \cs_set_nopar:cpn { @@ _ dotted _ #1 - #2 } { }
%    \end{macrocode}
% Initialization of variables.
%    \begin{macrocode}
    \int_set:Nn \l_@@_initial_i_int { #1 }
    \int_set:Nn \l_@@_initial_j_int { #2 }
    \int_set:Nn \l_@@_final_i_int { #1 }
    \int_set:Nn \l_@@_final_j_int { #2 }
%    \end{macrocode}
% We will do two loops: one when determinating the initial cell and the other
% when determinating the final cell. The boolean |\l_@@_stop_loop_bool| will be
% used to control these loops. In the first loop, we search the ``final''
% extremity of the line.
%    \begin{macrocode}
    \bool_set_false:N \l_@@_stop_loop_bool
    \bool_do_until:Nn \l_@@_stop_loop_bool 
      { 
        \int_add:Nn \l_@@_final_i_int { #3 }
        \int_add:Nn \l_@@_final_j_int { #4 }
        \bool_set_false:N \l_@@_final_open_bool
%    \end{macrocode}
% 
% We test if we are still in the matrix. Since this is the core of the loop, we
% \textbf{optimize} the code by using a TeX-style of conditionals.
%    \begin{macrocode}
        \if_int_compare:w \l_@@_final_i_int > \l_@@_row_max_int
          \if_int_compare:w #3  = \c_one_int
            \bool_set_true:N \l_@@_final_open_bool 
          \else:
            \if_int_compare:w \l_@@_final_j_int > \l_@@_col_max_int
               \bool_set_true:N \l_@@_final_open_bool 
            \fi:
          \fi:
        \else:
          \if_int_compare:w \l_@@_final_j_int < \l_@@_col_min_int
             \if_int_compare:w #4 = -1 
                \bool_set_true:N \l_@@_final_open_bool 
             \fi:
          \else:
             \if_int_compare:w \l_@@_final_j_int > \l_@@_col_max_int
                \if_int_compare:w #4 = \c_one_int
                   \bool_set_true:N \l_@@_final_open_bool 
                \fi:
             \fi:
          \fi:
        \fi:
%    \end{macrocode}
% 
%    \begin{macrocode}
        \bool_if:NTF \l_@@_final_open_bool 
%    \end{macrocode}
% If we are outside the matrix, we have found the extremity of the dotted line
% and it's an \emph{open} extremity. 
%    \begin{macrocode}
          { 
%    \end{macrocode}
% We do a step backwards.
%    \begin{macrocode}  
            \int_sub:Nn \l_@@_final_i_int { #3 }
            \int_sub:Nn \l_@@_final_j_int { #4 }
            \bool_set_true:N \l_@@_stop_loop_bool
          }
%    \end{macrocode}
% If we are in the matrix, we test whether the cell is empty. If it's not the
% case, we stop the loop because we have found the correct values for
% |\l_@@_final_i_int| and |\l_@@_final_j_int|. 
%    \begin{macrocode}
          { 
            \cs_if_exist:cTF
              { 
                @@ _ dotted _ 
                \int_use:N \l_@@_final_i_int - 
                \int_use:N \l_@@_final_j_int 
              }
              {
                \int_sub:Nn \l_@@_final_i_int { #3 }
                \int_sub:Nn \l_@@_final_j_int { #4 }
                \bool_set_true:N \l_@@_final_open_bool
                \bool_set_true:N \l_@@_stop_loop_bool
              }
              { 
                \cs_if_exist:cTF 
                  { 
                    pgf @ sh @ ns @ \@@_env: 
                    - \int_use:N \l_@@_final_i_int 
                    - \int_use:N \l_@@_final_j_int 
                  }
                  { \bool_set_true:N \l_@@_stop_loop_bool }
%    \end{macrocode}
% If the case is empty, we declare that the cell as non-empty. Indeed, we will
% draw a dotted line and the cell will be on that dotted line. All the cells of
% a dotted line have to be marked as ``dotted'' because we don't want
% intersections between dotted lines. We recall that the research of the
% extremities of the lines are all done in the same TeX group (the group of the
% environment), even though, when the extremities are found, each line is
% drawn in a TeX group that we will open for the options of the line.
%    \begin{macrocode} 
                  { 
                    \cs_set_nopar:cpn 
                      { 
                        @@ _ dotted _
                        \int_use:N \l_@@_final_i_int - 
                        \int_use:N \l_@@_final_j_int 
                      } 
                      { }
                  }   
              }
          }
      }
%    \end{macrocode}
%
% \interitem
% For |\l_@@_initial_i_int| and |\l_@@_initial_j_int| the programmation is
% similar to the previous one.
%    \begin{macrocode}
    \bool_set_false:N \l_@@_stop_loop_bool
%    \end{macrocode}
% The following line of code is only for efficiency in the following loop.
%    \begin{macrocode}
    \int_set:Nn \l_tmpa_int { \l_@@_col_min_int - 1 }
%    \end{macrocode}
%    \begin{macrocode}
    \bool_do_until:Nn \l_@@_stop_loop_bool 
      { 
        \int_sub:Nn \l_@@_initial_i_int { #3 }
        \int_sub:Nn \l_@@_initial_j_int { #4 }
        \bool_set_false:N \l_@@_initial_open_bool
%    \end{macrocode}
% 
% We test if we are still in the matrix. Since this is the core of the loop, we
% \textbf{optimize} the code by using a TeX-style of conditionals.
%    \begin{macrocode}
        \if_int_compare:w \l_@@_initial_i_int < \l_@@_row_min_int
          \if_int_compare:w #3 = \c_one_int
            \bool_set_true:N \l_@@_initial_open_bool 
          \else:
%    \end{macrocode}
% |\l_tmpa_int| contains |\l_@@_col_min_int - 1| (only for efficiency).
%    \begin{macrocode}
            \if_int_compare:w \l_@@_initial_j_int = \l_tmpa_int
              \bool_set_true:N \l_@@_initial_open_bool
            \fi:
          \fi:
        \else:
          \if_int_compare:w \l_@@_initial_j_int < \l_@@_col_min_int
            \if_int_compare:w #4 = \c_one_int
              \bool_set_true:N \l_@@_initial_open_bool 
            \fi:
          \else:
            \if_int_compare:w \l_@@_initial_j_int > \l_@@_col_max_int
              \if_int_compare:w #4 = -1 
                \bool_set_true:N \l_@@_initial_open_bool 
              \fi:
            \fi:
          \fi:
        \fi:
%    \end{macrocode}
% 
%    \begin{macrocode}
        \bool_if:NTF \l_@@_initial_open_bool
          { 
            \int_add:Nn \l_@@_initial_i_int { #3 }
            \int_add:Nn \l_@@_initial_j_int { #4 }
            \bool_set_true:N \l_@@_stop_loop_bool
          }
          { 
            \cs_if_exist:cTF
              { 
                @@ _ dotted _ 
                \int_use:N \l_@@_initial_i_int - 
                \int_use:N \l_@@_initial_j_int 
              }
              {
                \int_add:Nn \l_@@_initial_i_int { #3 }
                \int_add:Nn \l_@@_initial_j_int { #4 }
                \bool_set_true:N \l_@@_initial_open_bool
                \bool_set_true:N \l_@@_stop_loop_bool
              }
              {
                \cs_if_exist:cTF 
                  { 
                    pgf @ sh @ ns @ \@@_env: 
                    - \int_use:N \l_@@_initial_i_int 
                    - \int_use:N \l_@@_initial_j_int 
                  }
                  { \bool_set_true:N \l_@@_stop_loop_bool }
                  {
                    \cs_set_nopar:cpn 
                      { 
                        @@ _ dotted _ 
                        \int_use:N \l_@@_initial_i_int - 
                        \int_use:N \l_@@_initial_j_int 
                      } 
                      { }
                  } 
              } 
          }
      }
%    \end{macrocode}
% We remind the rectangle described by all the dotted lines in order to respect
% the corresponding virtual ``block'' when drawing the horizontal and vertical
% rules.
%    \begin{macrocode}
    \seq_gput_right:Ne \g_@@_pos_of_xdots_seq
      { 
        { \int_use:N \l_@@_initial_i_int }
%    \end{macrocode}
% Be careful: with |\Iddots|, |\l_@@_final_j_int| is inferior to
% |\l_@@_initial_j_int|. That's why we use |\int_min:nn| and |\int_max:nn|.
%    \begin{macrocode}
        { \int_min:nn \l_@@_initial_j_int \l_@@_final_j_int }
        { \int_use:N \l_@@_final_i_int }
        { \int_max:nn \l_@@_initial_j_int \l_@@_final_j_int }
        { } % for the name of the block
      }
  } 
%    \end{macrocode}
%
% \medskip
% If the final user uses the key |xdots/shorten| in |\NiceMatrixOptions| or at the
% level of an environment (such as |{pNiceMatrix}|, etc.), only the so called
% ``closed extremities'' will be shortened by that key. The following command
% will be used \emph{after} the detection of the extremities of a dotted line
% (hence at a time when we known wheter the extremities are closed or open) but
% before the analyse of the keys of the individual command |\Cdots|, |\Vdots|.
% Hence, the keys |shorten|, |shorten-start| and |shorten-end| of that
% individual command will be applied.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_open_shorten:
  {
    \bool_if:NT \l_@@_initial_open_bool
      { \dim_zero:N \l_@@_xdots_shorten_start_dim }
    \bool_if:NT \l_@@_final_open_bool
      { \dim_zero:N \l_@@_xdots_shorten_end_dim }
  }
%    \end{macrocode}
% 
% \medskip
% The following commmand (\emph{when it will be written}) will set the four
% counters |\l_@@_row_min_int|, |\l_@@_row_max_int|, |\l_@@_col_min_int| and
% |\l_@@_col_max_int| to the intersections of the sub-matrices which contains
% the cell of row |#1| and column |#2|. As of now, it's only the whole array
% (excepted exterior rows and columns).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_adjust_to_submatrix:nn #1 #2
  {
    \int_set_eq:NN \l_@@_row_min_int \c_one_int
    \int_set_eq:NN \l_@@_col_min_int \c_one_int
    \int_set_eq:NN \l_@@_row_max_int \c@iRow
    \int_set_eq:NN \l_@@_col_max_int \c@jCol 
%    \end{macrocode}
% We do a loop over all the submatrices specified in the |code-before|. We have
% stored the position of all those submatrices in |\g_@@_submatrix_seq|.
%    \begin{macrocode}
    \seq_if_empty:NF \g_@@_submatrix_seq 
      {
        \seq_map_inline:Nn \g_@@_submatrix_seq 
          { \@@_adjust_to_submatrix:nnnnnn { #1 } { #2 } ##1 }
      }
  }
%    \end{macrocode}
% 
% \medskip
% |#1| and |#2| are the numbers of row and columns of the cell where the command
% of dotted line (ex.: |\Vdots|) has been issued. |#3|, |#4|, |#5| and |#6| are
% the specification (in $i$ and $j$) of the submatrix we are analyzing.
%
%
% Here is the programmation of that command with the the standard syntax of L3.
% \begin{Verbatim}
% \cs_new_protected:Npn \@@_adjust_to_submatrix:nnnnnn #1 #2 #3 #4 #5 #6
%   {
%     \bool_if:nT 
%       { 
%         \int_compare_p:n { #3 <= #1 <= #5 } 
%         && 
%         \int_compare_p:n { #4 <= #2 <= #6 }
%       }
%       { 
%         \int_set:Nn \l_@@_row_min_int { \int_max:nn \l_@@_row_min_int { #3 } } 
%         \int_set:Nn \l_@@_col_min_int { \int_max:nn \l_@@_col_min_int { #4 } }
%         \int_set:Nn \l_@@_row_max_int { \int_min:nn \l_@@_row_max_int { #5 } }
%         \int_set:Nn \l_@@_col_max_int { \int_min:nn \l_@@_col_max_int { #6 } }
%       }
%   }
% \end{Verbatim}
%
% \medskip
% However, for efficiency, we will use the following version.
% \begin{macrocode}
\cs_new_protected:Npn \@@_adjust_to_submatrix:nnnnnn #1 #2 #3 #4 #5 #6
  {
    \if_int_compare:w #3 > #1 
    \else:
      \if_int_compare:w #1 > #5 
      \else:
        \if_int_compare:w #4 > #2  
        \else:
          \if_int_compare:w #2 > #6 
          \else: 
            \if_int_compare:w \l_@@_row_min_int < #3 \l_@@_row_min_int = #3 \fi:
            \if_int_compare:w \l_@@_col_min_int < #4 \l_@@_col_min_int = #4 \fi:
            \if_int_compare:w \l_@@_row_max_int < #5 \l_@@_row_max_int = #5 \fi:
            \if_int_compare:w \l_@@_col_max_int < #6 \l_@@_col_max_int = #6 \fi:
          \fi:
        \fi:
      \fi:
    \fi:
  }
%    \end{macrocode}
% 
% \medskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_set_initial_coords:
  { 
    \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x
    \dim_set_eq:NN \l_@@_y_initial_dim \pgf@y
  }
\cs_new_protected:Npn \@@_set_final_coords:
  { 
    \dim_set_eq:NN \l_@@_x_final_dim \pgf@x
    \dim_set_eq:NN \l_@@_y_final_dim \pgf@y
  }
\cs_new_protected:Npn \@@_set_initial_coords_from_anchor:n #1
  {
    \pgfpointanchor 
      { 
        \@@_env: 
        - \int_use:N \l_@@_initial_i_int 
        - \int_use:N \l_@@_initial_j_int 
      }   
      { #1 } 
    \@@_set_initial_coords:
  }
\cs_new_protected:Npn \@@_set_final_coords_from_anchor:n #1
  {
    \pgfpointanchor 
      { 
        \@@_env: 
        - \int_use:N \l_@@_final_i_int 
        - \int_use:N \l_@@_final_j_int 
      }   
      { #1 } 
    \@@_set_final_coords:
  }
%    \end{macrocode}
%
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_open_x_initial_dim:
  {
    \dim_set_eq:NN \l_@@_x_initial_dim \c_max_dim
    \int_step_inline:nnn \l_@@_first_row_int \g_@@_row_total_int 
      {
        \cs_if_exist:cT 
          { pgf @ sh @ ns @ \@@_env: - ##1 - \int_use:N \l_@@_initial_j_int }
          {
            \pgfpointanchor 
              { \@@_env: - ##1 - \int_use:N \l_@@_initial_j_int } 
              { west }
            \dim_set:Nn \l_@@_x_initial_dim
              { \dim_min:nn \l_@@_x_initial_dim \pgf@x }
          }
      }
%    \end{macrocode}
% If, in fact, all the cells of the column are empty (no PGF/Tikz nodes in
% those cells).
%    \begin{macrocode}
    \dim_compare:nNnT \l_@@_x_initial_dim = \c_max_dim
      {
        \@@_qpoint:n { col - \int_use:N \l_@@_initial_j_int } 
        \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x 
        \dim_add:Nn \l_@@_x_initial_dim \col@sep
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_open_x_final_dim:
  {
    \dim_set:Nn \l_@@_x_final_dim { - \c_max_dim }
    \int_step_inline:nnn \l_@@_first_row_int \g_@@_row_total_int 
      {
        \cs_if_exist:cT 
          { pgf @ sh @ ns @ \@@_env: - ##1 - \int_use:N \l_@@_final_j_int }
          {
            \pgfpointanchor 
              { \@@_env: - ##1 - \int_use:N \l_@@_final_j_int } 
              { east } 
            \dim_compare:nNnT \pgf@x > \l_@@_x_final_dim
               { \dim_set_eq:NN \l_@@_x_final_dim \pgf@x }
          }
      }
%    \end{macrocode}
% If, in fact, all the cells of the columns are empty (no PGF/Tikz nodes in
% those cells).
%    \begin{macrocode}
    \dim_compare:nNnT \l_@@_x_final_dim = { - \c_max_dim }
      {
        \@@_qpoint:n { col - \int_eval:n { \l_@@_final_j_int + 1 } }
        \dim_set_eq:NN \l_@@_x_final_dim \pgf@x 
        \dim_sub:Nn \l_@@_x_final_dim \col@sep
      }
  }
%    \end{macrocode}
%
%
%
% \interitem
% The first and the second arguments are the coordinates of the cell where the
% command has been issued. The third argument is the list of the options.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_Ldots:nnn #1 #2 #3
  { 
    \@@_adjust_to_submatrix:nn { #1 } { #2 }
    \cs_if_free:cT { @@ _ dotted _ #1 - #2 }
      {
        \@@_find_extremities_of_line:nnnn { #1 } { #2 } 0 1
%    \end{macrocode}
% The previous command may have changed the current environment by marking some
% cells as ``dotted'', but, fortunately, it is outside the group for the options
% of the line.
%    \begin{macrocode}
        \group_begin:
          \@@_open_shorten:
          \int_if_zero:nTF { #1 } 
            { \color { nicematrix-first-row } }
            { 
%    \end{macrocode}
% We remind that, when there is a ``last row'' |\l_@@_last_row_int| will always
% be (after the construction of the array) the number of that ``last row'' even
% if the option |last-row| has been used without value.
%    \begin{macrocode}
              \int_compare:nNnT { #1 } = \l_@@_last_row_int
                { \color { nicematrix-last-row } }
            }
          \keys_set:nn { nicematrix / xdots } { #3 }
          \@@_color:o \l_@@_xdots_color_tl
          \@@_actually_draw_Ldots:
        \group_end:
      }
  }
%    \end{macrocode}
% 
% 
% \medskip
% The command |\@@_actually_draw_Ldots:| has the following implicit arguments: 
% \begin{itemize}
% \item |\l_@@_initial_i_int|
% \item |\l_@@_initial_j_int|
% \item |\l_@@_initial_open_bool|
% \item |\l_@@_final_i_int|
% \item |\l_@@_final_j_int| 
% \item |\l_@@_final_open_bool|. 
% \end{itemize}
%
% The following function is also used by |\Hdotsfor|. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_actually_draw_Ldots:
  { 
    \bool_if:NTF \l_@@_initial_open_bool
      {
        \@@_open_x_initial_dim:
        \@@_qpoint:n { row - \int_use:N \l_@@_initial_i_int - base }
        \dim_set_eq:NN \l_@@_y_initial_dim \pgf@y
      }
      { \@@_set_initial_coords_from_anchor:n { base~east } }
    \bool_if:NTF \l_@@_final_open_bool
      {
        \@@_open_x_final_dim:
        \@@_qpoint:n { row - \int_use:N \l_@@_final_i_int - base }
        \dim_set_eq:NN \l_@@_y_final_dim \pgf@y
      }
      { \@@_set_final_coords_from_anchor:n { base~west } } 
%    \end{macrocode}
% Now the case of a |\Hdotsfor| (or when there is only a |\Ldots|) in the ``last
% row'' (that case will probably arise when the final user draws an arrow to
% indicate the number of columns of the matrix). In the ``first row'', we don't
% need any adjustment.
%    \begin{macrocode}
    \bool_lazy_all:nTF 
      {
        \l_@@_initial_open_bool
        \l_@@_final_open_bool
        { \int_compare_p:nNn \l_@@_initial_i_int = \l_@@_last_row_int }
      }
      {
        \dim_add:Nn \l_@@_y_initial_dim \c_@@_shift_Ldots_last_row_dim
        \dim_add:Nn \l_@@_y_final_dim \c_@@_shift_Ldots_last_row_dim
      }
%    \end{macrocode}
% We raise the line of a quantity equal to the radius of the dots because we
% want the dots really ``on'' the line of texte. Of course, maybe we should not
% do that when the option |line-style| is used (?).
%    \begin{macrocode}
     {
       \dim_add:Nn \l_@@_y_initial_dim \l_@@_xdots_radius_dim
       \dim_add:Nn \l_@@_y_final_dim \l_@@_xdots_radius_dim
     }
    \@@_draw_line:
  }
%    \end{macrocode}
%
% \interitem
% The first and the second arguments are the coordinates of the cell where the
% command has been issued. The third argument is the list of the options.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_Cdots:nnn #1 #2 #3
  { 
    \@@_adjust_to_submatrix:nn { #1 } { #2 }
    \cs_if_free:cT { @@ _ dotted _ #1 - #2 }
      {
        \@@_find_extremities_of_line:nnnn { #1 } { #2 } 0 1
%    \end{macrocode}
% The previous command may have changed the current environment by marking some
% cells as ``dotted'', but, fortunately, it is outside the group for the options
% of the line.
%    \begin{macrocode}
        \group_begin:
          \@@_open_shorten:
          \int_if_zero:nTF { #1 } 
            { \color { nicematrix-first-row } }
            { 
%    \end{macrocode}
% We remind that, when there is a ``last row'' |\l_@@_last_row_int| will always
% be (after the construction of the array) the number of that ``last row'' even
% if the option |last-row| has been used without value.
%    \begin{macrocode}
              \int_compare:nNnT { #1 } = \l_@@_last_row_int
                { \color { nicematrix-last-row } }
            }
          \keys_set:nn { nicematrix / xdots } { #3 }
          \@@_color:o \l_@@_xdots_color_tl
          \@@_actually_draw_Cdots: 
        \group_end:
      }
  }
%    \end{macrocode}
%
% 
% \medskip
% The command |\@@_actually_draw_Cdots:| has the following implicit arguments: 
% \begin{itemize}
% \item |\l_@@_initial_i_int|
% \item |\l_@@_initial_j_int|
% \item |\l_@@_initial_open_bool|
% \item |\l_@@_final_i_int|
% \item |\l_@@_final_j_int| 
% \item |\l_@@_final_open_bool|. 
% \end{itemize}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_actually_draw_Cdots:
  {
    \bool_if:NTF \l_@@_initial_open_bool
      { \@@_open_x_initial_dim: }
      { \@@_set_initial_coords_from_anchor:n { mid~east } }
    \bool_if:NTF \l_@@_final_open_bool
      { \@@_open_x_final_dim: }
      { \@@_set_final_coords_from_anchor:n { mid~west } }
    \bool_lazy_and:nnTF
      \l_@@_initial_open_bool 
      \l_@@_final_open_bool 
      {
        \@@_qpoint:n { row - \int_use:N \l_@@_initial_i_int }
        \dim_set_eq:NN \l_tmpa_dim \pgf@y
        \@@_qpoint:n { row - \int_eval:n { \l_@@_initial_i_int + 1 } }
        \dim_set:Nn \l_@@_y_initial_dim { ( \l_tmpa_dim + \pgf@y ) / 2 } 
        \dim_set_eq:NN \l_@@_y_final_dim \l_@@_y_initial_dim
      }     
      {
        \bool_if:NT \l_@@_initial_open_bool
          { \dim_set_eq:NN \l_@@_y_initial_dim \l_@@_y_final_dim }
        \bool_if:NT \l_@@_final_open_bool
          { \dim_set_eq:NN \l_@@_y_final_dim \l_@@_y_initial_dim }
      }
    \@@_draw_line:
  } 
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_open_y_initial_dim:
  {
    \dim_set:Nn \l_@@_y_initial_dim { - \c_max_dim }
    \int_step_inline:nnn \l_@@_first_col_int \g_@@_col_total_int 
      {
        \cs_if_exist:cT 
          { pgf @ sh @ ns @ \@@_env: - \int_use:N \l_@@_initial_i_int - ##1 }
          {
            \pgfpointanchor 
              { \@@_env: - \int_use:N \l_@@_initial_i_int - ##1 } 
              { north }
            \dim_compare:nNnT \pgf@y > \l_@@_y_initial_dim
              { \dim_set_eq:NN \l_@@_y_initial_dim \pgf@y }
          }
      }
    \dim_compare:nNnT \l_@@_y_initial_dim = { - \c_max_dim }
      {
        \@@_qpoint:n { row - \int_use:N \l_@@_initial_i_int - base }
        \dim_set:Nn \l_@@_y_initial_dim 
          { 
            \fp_to_dim:n 
              { 
                \pgf@y 
                + ( \box_ht:N \strutbox + \extrarowheight ) * \arraystretch 
              } 
          } 
      }
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_open_y_final_dim:
  {
    \dim_set_eq:NN \l_@@_y_final_dim \c_max_dim
    \int_step_inline:nnn \l_@@_first_col_int \g_@@_col_total_int 
      {
        \cs_if_exist:cT 
          { pgf @ sh @ ns @ \@@_env: - \int_use:N \l_@@_final_i_int - ##1 }
          {
            \pgfpointanchor 
              { \@@_env: - \int_use:N \l_@@_final_i_int - ##1 } 
              { south }
            \dim_compare:nNnT \pgf@y < \l_@@_y_final_dim
              { \dim_set_eq:NN \l_@@_y_final_dim \pgf@y }
          }
      }
    \dim_compare:nNnT \l_@@_y_final_dim = \c_max_dim
      {
        \@@_qpoint:n { row - \int_use:N \l_@@_final_i_int - base }
        \dim_set:Nn \l_@@_y_final_dim 
          { \fp_to_dim:n { \pgf@y - ( \box_dp:N \strutbox ) * \arraystretch } } 
      }
  }
%    \end{macrocode}
% 
% The first and the second arguments are the coordinates of the cell where the
% command has been issued. The third argument is the list of the options.
%    \begin{macrocode}      
\cs_new_protected:Npn \@@_draw_Vdots:nnn #1 #2 #3
  { 
    \@@_adjust_to_submatrix:nn { #1 } { #2 }
    \cs_if_free:cT { @@ _ dotted _ #1 - #2 }
      {
        \@@_find_extremities_of_line:nnnn { #1 } { #2 } 1 0
%    \end{macrocode}
% The previous command may have changed the current environment by marking some
% cells as ``dotted'', but, fortunately, it is outside the group for the options
% of the line.
%    \begin{macrocode}
        \group_begin:
          \@@_open_shorten:
          \int_if_zero:nTF { #2 } 
            { \color { nicematrix-first-col } }
            {
              \int_compare:nNnT { #2 } = \l_@@_last_col_int
                { \color { nicematrix-last-col } }
            }
          \keys_set:nn { nicematrix / xdots } { #3 }
          \@@_color:o \l_@@_xdots_color_tl
          \@@_actually_draw_Vdots:
        \group_end:
      }
  }
%    \end{macrocode}
%
% \bigskip
% The command |\@@_actually_draw_Vdots:| has the following implicit arguments: 
% \begin{itemize}
% \item |\l_@@_initial_i_int|
% \item |\l_@@_initial_j_int|
% \item |\l_@@_initial_open_bool|
% \item |\l_@@_final_i_int|
% \item |\l_@@_final_j_int| 
% \item |\l_@@_final_open_bool|. 
% \end{itemize}
%
% The following function is also used by |\Vdotsfor|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_actually_draw_Vdots:
  {
%    \end{macrocode}
% 
% First, the case of a dotted line open on both sides.
%    \begin{macrocode}
    \bool_lazy_and:nnTF \l_@@_initial_open_bool \l_@@_final_open_bool
%    \end{macrocode}
%
% We have to determine the $x$-value of the vertical rule that we will have
% to draw. 
%    \begin{macrocode}
      {
        \@@_open_y_initial_dim: 
        \@@_open_y_final_dim: 
        \int_if_zero:nTF \l_@@_initial_j_int 
%    \end{macrocode}
% We have a dotted line open on both sides in the ``first column''.
%    \begin{macrocode}
          {
            \@@_qpoint:n { col - 1 }
            \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x
            \dim_sub:Nn \l_@@_x_initial_dim \l_@@_left_margin_dim 
            \dim_sub:Nn \l_@@_x_initial_dim \l_@@_extra_left_margin_dim 
            \dim_sub:Nn \l_@@_x_initial_dim \c_@@_shift_exterior_Vdots_dim 
          } 
          {
            \bool_lazy_and:nnTF
              { \int_compare_p:nNn \l_@@_last_col_int > { -2 } }
              { \int_compare_p:nNn \l_@@_initial_j_int = \g_@@_col_total_int }
%    \end{macrocode}
% We have a dotted line open on both sides in the ``last column''.
%    \begin{macrocode}
              {
                \@@_qpoint:n { col - \int_use:N \l_@@_initial_j_int }
                \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x
                \dim_add:Nn \l_@@_x_initial_dim \l_@@_right_margin_dim 
                \dim_add:Nn \l_@@_x_initial_dim \l_@@_extra_right_margin_dim 
                \dim_add:Nn \l_@@_x_initial_dim \c_@@_shift_exterior_Vdots_dim
              }
%    \end{macrocode}
% We have a dotted line open on both sides which is \emph{not} in an exterior column.
%    \begin{macrocode}
              {
                \@@_qpoint:n { col - \int_use:N \l_@@_initial_j_int }
                \dim_set_eq:NN \l_tmpa_dim \pgf@x
                \@@_qpoint:n { col - \int_eval:n { \l_@@_initial_j_int + 1 } }
                \dim_set:Nn \l_@@_x_initial_dim { ( \pgf@x + \l_tmpa_dim ) / 2 } 
              }            
          }
      }
%    \end{macrocode}
% 
% Now, the dotted line is \emph{not} open on both sides (maybe open on only one side).
%
% The boolean |\l_tmpa_bool| will indicate whether the column is of type |l| or
% may be considered as if.
%    \begin{macrocode}      
      {
        \bool_set_false:N \l_tmpa_bool 
        \bool_if:NF \l_@@_initial_open_bool 
          { 
            \bool_if:NF \l_@@_final_open_bool 
              {
                \@@_set_initial_coords_from_anchor:n { south~west } 
                \@@_set_final_coords_from_anchor:n { north~west } 
                \bool_set:Nn \l_tmpa_bool 
                  { \dim_compare_p:nNn \l_@@_x_initial_dim = \l_@@_x_final_dim }
              }
          }
%    \end{macrocode}
% Now, we try to determine whether the column is of type |c| or may be
% considered as if.
%    \begin{macrocode}
        \bool_if:NTF \l_@@_initial_open_bool
          { 
            \@@_open_y_initial_dim: 
            \@@_set_final_coords_from_anchor:n { north } 
            \dim_set_eq:NN \l_@@_x_initial_dim \l_@@_x_final_dim
          } 
          { 
            \@@_set_initial_coords_from_anchor:n { south } 
            \bool_if:NTF \l_@@_final_open_bool
              \@@_open_y_final_dim: 
%    \end{macrocode}
% Now the case where both extremities are closed. The first conditional tests
% whether the column is of type |c| or may be considered as if.
%    \begin{macrocode}      
              { 
                \@@_set_final_coords_from_anchor:n { north } 
                \dim_compare:nNnF \l_@@_x_initial_dim = \l_@@_x_final_dim 
                  { 
                    \dim_set:Nn \l_@@_x_initial_dim
                      { 
                        \bool_if:NTF \l_tmpa_bool \dim_min:nn \dim_max:nn
                          \l_@@_x_initial_dim \l_@@_x_final_dim
                      }
                  }
              }     
          }
      }
    \dim_set_eq:NN \l_@@_x_final_dim \l_@@_x_initial_dim 
    \@@_draw_line:
  }
%    \end{macrocode}
%
% \interitem
% For the diagonal lines, the situation is a bit more complicated because, by
% default, we parallelize the diagonals lines. The first diagonal line is drawn
% and then, all the other diagonal lines are drawn parallel to the first one.
%
% The first and the second arguments are the coordinates of the cell where the
% command has been issued. The third argument is the list of the options.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_Ddots:nnn #1 #2 #3
  { 
    \@@_adjust_to_submatrix:nn { #1 } { #2 }
    \cs_if_free:cT { @@ _ dotted _ #1 - #2 }
      { 
        \@@_find_extremities_of_line:nnnn { #1 } { #2 } 1 1 
%    \end{macrocode}
% The previous command may have changed the current environment by marking some
% cells as ``dotted'', but, fortunately, it is outside the group for the options
% of the line.
%    \begin{macrocode}
        \group_begin:
          \@@_open_shorten:
          \keys_set:nn { nicematrix / xdots } { #3 }
          \@@_color:o \l_@@_xdots_color_tl
          \@@_actually_draw_Ddots:
        \group_end:
      }
  }
%    \end{macrocode}
%
% \bigskip
% The command |\@@_actually_draw_Ddots:| has the following implicit arguments: 
% \begin{itemize}
% \item |\l_@@_initial_i_int|
% \item |\l_@@_initial_j_int|
% \item |\l_@@_initial_open_bool|
% \item |\l_@@_final_i_int|
% \item |\l_@@_final_j_int| 
% \item |\l_@@_final_open_bool|. 
% \end{itemize}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_actually_draw_Ddots:
  {
    \bool_if:NTF \l_@@_initial_open_bool
      {
        \@@_open_y_initial_dim:
        \@@_open_x_initial_dim:
      }
      { \@@_set_initial_coords_from_anchor:n { south~east } }
    \bool_if:NTF \l_@@_final_open_bool
      {
        \@@_open_x_final_dim:
        \dim_set_eq:NN \l_@@_x_final_dim \pgf@x
      }
      { \@@_set_final_coords_from_anchor:n { north~west } }     
%    \end{macrocode}
% We have retrieved the coordinates in the usual way (they are stored in
% |\l_@@_x_initial_dim|, etc.). If the parallelization of the diagonals is set,
% we will have (maybe) to adjust the fourth coordinate. 
%    \begin{macrocode}
    \bool_if:NT \l_@@_parallelize_diags_bool
      { 
        \int_gincr:N \g_@@_ddots_int
%    \end{macrocode}
% We test if the diagonal line is the first one (the counter |\g_@@_ddots_int|
% is created for this usage). 
%    \begin{macrocode}
        \int_compare:nNnTF \g_@@_ddots_int = \c_one_int
%    \end{macrocode}
% If the diagonal line is the first one, we have no adjustment of the line to do
% but we store the $\Delta_x$ and the $\Delta_y$ of the line because these
% values will be used to draw the others diagonal lines parallels to the first
% one. 
%    \begin{macrocode}
          { 
            \dim_gset:Nn \g_@@_delta_x_one_dim 
              { \l_@@_x_final_dim - \l_@@_x_initial_dim }
            \dim_gset:Nn \g_@@_delta_y_one_dim 
              { \l_@@_y_final_dim - \l_@@_y_initial_dim }
          }
%    \end{macrocode}
% If the diagonal line is not the first one, we have to adjust the second
% extremity of the line by modifying the coordinate |\l_@@_x_initial_dim|.
%    \begin{macrocode}
          { 
            \dim_compare:nNnF \g_@@_delta_x_one_dim = \c_zero_dim 
              {
                \dim_set:Nn \l_@@_y_final_dim          
                  { 
                    \l_@@_y_initial_dim +
                    ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) * 
                    \dim_ratio:nn \g_@@_delta_y_one_dim \g_@@_delta_x_one_dim 
                  }
              }
          }
      }
    \@@_draw_line:
  }
%    \end{macrocode}
%
% \bigskip
% We draw the |\Iddots| diagonals in the same way.
%
% The first and the second arguments are the coordinates of the cell where the
% command has been issued. The third argument is the list of the options.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_Iddots:nnn #1 #2 #3 
  {
    \@@_adjust_to_submatrix:nn { #1 } { #2 }
    \cs_if_free:cT { @@ _ dotted _ #1 - #2 }
      { 
        \@@_find_extremities_of_line:nnnn { #1 } { #2 } 1 { -1 } 
%    \end{macrocode}
% The previous command may have changed the current environment by marking some
% cells as ``dotted'', but, fortunately, it is outside the group for the options
% of the line.
%    \begin{macrocode}
        \group_begin:
          \@@_open_shorten:
          \keys_set:nn { nicematrix / xdots } { #3 }
          \@@_color:o \l_@@_xdots_color_tl
          \@@_actually_draw_Iddots:
        \group_end:
      }
  }
%    \end{macrocode}
%
% \bigskip
% The command |\@@_actually_draw_Iddots:| has the following implicit arguments: 
% \begin{itemize}
% \item |\l_@@_initial_i_int|
% \item |\l_@@_initial_j_int|
% \item |\l_@@_initial_open_bool|
% \item |\l_@@_final_i_int|
% \item |\l_@@_final_j_int| 
% \item |\l_@@_final_open_bool|. 
% \end{itemize}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_actually_draw_Iddots:
  {
    \bool_if:NTF \l_@@_initial_open_bool
      {
        \@@_open_y_initial_dim:
        \@@_open_x_initial_dim:
      }
      { \@@_set_initial_coords_from_anchor:n { south~west } }
    \bool_if:NTF \l_@@_final_open_bool
      {
        \@@_open_y_final_dim:
        \@@_open_x_final_dim:
      }
      { \@@_set_final_coords_from_anchor:n { north~east } } 
    \bool_if:NT \l_@@_parallelize_diags_bool
      { 
        \int_gincr:N \g_@@_iddots_int
        \int_compare:nNnTF \g_@@_iddots_int = \c_one_int
          { 
            \dim_gset:Nn \g_@@_delta_x_two_dim 
              { \l_@@_x_final_dim - \l_@@_x_initial_dim }
            \dim_gset:Nn \g_@@_delta_y_two_dim 
              { \l_@@_y_final_dim - \l_@@_y_initial_dim }
          }
          { 
            \dim_compare:nNnF \g_@@_delta_x_two_dim = \c_zero_dim 
              {
                \dim_set:Nn \l_@@_y_final_dim
                  { 
                    \l_@@_y_initial_dim +
                    ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) *
                    \dim_ratio:nn \g_@@_delta_y_two_dim \g_@@_delta_x_two_dim 
                  }
              }
          }
      }
    \@@_draw_line:
  }
%    \end{macrocode}
%
% 
% \bigskip
% \section{The actual instructions for drawing the dotted lines with Tikz}
%
% The command |\@@_draw_line:| should be used in a |{pgfpicture}|. It has six
% implicit arguments:
%
% \begin{itemize}
% \item |\l_@@_x_initial_dim| 
% \item |\l_@@_y_initial_dim| 
% \item |\l_@@_x_final_dim|
% \item |\l_@@_y_final_dim|
% \item |\l_@@_initial_open_bool|
% \item |\l_@@_final_open_bool|
% \end{itemize}
%
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_line:
  {
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \bool_lazy_or:nnTF
      { \tl_if_eq_p:NN \l_@@_xdots_line_style_tl \c_@@_standard_tl }
      \l_@@_dotted_bool
      \@@_draw_standard_dotted_line:
      \@@_draw_unstandard_dotted_line:
  }
%    \end{macrocode}
% 
% \medskip
% We have to do a special construction with |\exp_args:No| to be able to put in
% the list of options in the correct place in the Tikz instruction.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_unstandard_dotted_line:
  { 
    \begin { scope }
    \@@_draw_unstandard_dotted_line:o
      { \l_@@_xdots_line_style_tl , \l_@@_xdots_color_tl } 
  }
%    \end{macrocode}
% We have used the fact that, in \textsc{pgf}, un color name can be put directly
% in a list of options (that's why we have put diredtly |\l_@@_xdots_color_tl|).
%
% \smallskip
% The argument of |\@@_draw_unstandard_dotted_line:n| is, in fact, the list of options.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_draw_unstandard_dotted_line:n { o } 
\cs_new_protected:Npn \@@_draw_unstandard_dotted_line:n #1
  {
    \@@_draw_unstandard_dotted_line:nooo
      { #1 } 
      \l_@@_xdots_up_tl
      \l_@@_xdots_down_tl
      \l_@@_xdots_middle_tl 
  }
%    \end{macrocode}
%
%
% \bigskip
% The following Tikz styles are for the three labels (set by the symbols |_|,
% |^| and |=|) of a continous line with a non-standard style.
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \IfPackageLoadedT { tikz }
      { 
        \tikzset 
          { 
            @@_node_above / .style = { sloped , above } ,
            @@_node_below / .style = { sloped , below } ,
            @@_node_middle / .style = 
              { 
                sloped , 
                inner~sep = \c_@@_innersep_middle_dim 
              }  
          }           
      }
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_draw_unstandard_dotted_line:nnnn { n o o o }
\cs_new_protected:Npn \@@_draw_unstandard_dotted_line:nnnn #1 #2 #3 #4
  {
%    \end{macrocode}
% We take into account the parameters |xdots/shorten-start| and
% |xdots/shorten-end| ``by hand'' because, when we use the key |shorten >| and
% |shorten <| of TikZ in the command |\draw|, we don't have the expected output
% with |{decorate,decoration=brace}| is used.
%
% \medskip
% The dimension |\l_@@_l_dim| is the length $\ell$ of the line to draw. We use
% the floating point reals of the L3 programming layer to compute this length.
%    \begin{macrocode}
    \dim_zero_new:N \l_@@_l_dim
    \dim_set:Nn \l_@@_l_dim
      { 
        \fp_to_dim:n 
          { 
            sqrt 
             ( 
               ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) ^ 2
                  +
               ( \l_@@_y_final_dim - \l_@@_y_initial_dim ) ^ 2 
             )
          }
      }
%    \end{macrocode}
% It seems that, during the first compilations, the value of |\l_@@_l_dim| may
% be erroneous (equal to zero or very large). We must detect these cases
% because they would cause errors during the drawing of the dotted line. Maybe
% we should also write something in the |aux| file to say that one more
% compilation should be done.
%    \begin{macrocode}
    \dim_compare:nNnT \l_@@_l_dim < \c_@@_max_l_dim 
      {
        \dim_compare:nNnT \l_@@_l_dim  > { 1 pt } 
          \@@_draw_unstandard_dotted_line_i:
      }
%    \end{macrocode}
% 
% If the key |xdots/horizontal-labels| has been used.
%    \begin{macrocode}
    \bool_if:NT \l_@@_xdots_h_labels_bool
      { 
        \tikzset 
          { 
            @@_node_above / .style = { auto = left } ,
            @@_node_below / .style = { auto = right } ,
            @@_node_middle / .style = { inner~sep = \c_@@_innersep_middle_dim } 
          }
      }
    \tl_if_empty:nF { #4 }
      { \tikzset { @@_node_middle / .append~style = { fill = white } } }
    \draw 
      [ #1 ]
          ( \l_@@_x_initial_dim , \l_@@_y_initial_dim )
%    \end{macrocode}
% Be careful: We can't put |\c_math_toggle_token| instead of |$| in the
% following lines because we are in the contents of Tikz nodes (and they will be
% \emph{rescanned} if the Tikz library \pkg{babel} is loaded).
%    \begin{macrocode}
       -- node [ @@_node_middle] { $ \scriptstyle #4 $ }  
          node [ @@_node_below ] { $ \scriptstyle #3 $ }
          node [ @@_node_above ] { $ \scriptstyle #2 $ }
          ( \l_@@_x_final_dim , \l_@@_y_final_dim ) ;
    \end { scope }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_unstandard_dotted_line_i:
  {
    \dim_set:Nn \l_tmpa_dim 
      {
        \l_@@_x_initial_dim
        + ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) 
        * \dim_ratio:nn \l_@@_xdots_shorten_start_dim \l_@@_l_dim 
      }
    \dim_set:Nn \l_tmpb_dim 
      {
        \l_@@_y_initial_dim
        + ( \l_@@_y_final_dim - \l_@@_y_initial_dim ) 
        * \dim_ratio:nn \l_@@_xdots_shorten_start_dim \l_@@_l_dim 
      }
    \dim_set:Nn \l_@@_tmpc_dim 
      {
        \l_@@_x_final_dim
        - ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) 
        * \dim_ratio:nn \l_@@_xdots_shorten_end_dim \l_@@_l_dim 
      }
    \dim_set:Nn \l_@@_tmpd_dim 
      {
        \l_@@_y_final_dim
        - ( \l_@@_y_final_dim - \l_@@_y_initial_dim ) 
        * \dim_ratio:nn \l_@@_xdots_shorten_end_dim \l_@@_l_dim 
      }
    \dim_set_eq:NN \l_@@_x_initial_dim \l_tmpa_dim 
    \dim_set_eq:NN \l_@@_y_initial_dim \l_tmpb_dim 
    \dim_set_eq:NN \l_@@_x_final_dim \l_@@_tmpc_dim 
    \dim_set_eq:NN \l_@@_y_final_dim \l_@@_tmpd_dim 
  }
%    \end{macrocode}
%
% 
% \bigskip
% The command |\@@_draw_standard_dotted_line:| draws the line with our system of dots
% (which gives a dotted line with real rounded dots).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_standard_dotted_line: 
  {
    \group_begin:
%    \end{macrocode}
% The dimension |\l_@@_l_dim| is the length $\ell$ of the line to draw. We use
% the floating point reals of the L3 programming layer to compute this length.
%    \begin{macrocode}
      \dim_zero_new:N \l_@@_l_dim
      \dim_set:Nn \l_@@_l_dim
        { 
          \fp_to_dim:n 
            { 
              sqrt 
               ( 
                 ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) ^ 2
                    +
                 ( \l_@@_y_final_dim - \l_@@_y_initial_dim ) ^ 2 
               )
            }
        }
%    \end{macrocode}
% It seems that, during the first compilations, the value of |\l_@@_l_dim| may
% be erroneous (equal to zero or very large). We must detect these cases
% because they would cause errors during the drawing of the dotted line. Maybe
% we should also write something in the |aux| file to say that one more
% compilation should be done.
%    \begin{macrocode}
    \dim_compare:nNnT \l_@@_l_dim < \c_@@_max_l_dim 
      {
        \dim_compare:nNnT \l_@@_l_dim  > { 1 pt } 
          \@@_draw_standard_dotted_line_i:
      }
    \group_end:
%    \end{macrocode}
%    \begin{macrocode}
    \bool_lazy_all:nF
      {
        { \tl_if_empty_p:N \l_@@_xdots_up_tl }
        { \tl_if_empty_p:N \l_@@_xdots_down_tl }
        { \tl_if_empty_p:N \l_@@_xdots_middle_tl }
      }
      \l_@@_labels_standard_dotted_line:
  } 
%    \end{macrocode}
%
%    \begin{macrocode}
\dim_const:Nn \c_@@_max_l_dim { 50 cm }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_standard_dotted_line_i:
  { 
%    \end{macrocode}
% The number of dots will be |\l_tmpa_int + 1|.
%    \begin{macrocode}
    \int_set:Nn \l_tmpa_int 
      { 
        \dim_ratio:nn 
          { 
            \l_@@_l_dim 
            - \l_@@_xdots_shorten_start_dim 
            - \l_@@_xdots_shorten_end_dim
          } 
          \l_@@_xdots_inter_dim
      }
%    \end{macrocode}
%
% \medskip
% The dimensions |\l_tmpa_dim| and |\l_tmpb_dim| are the coordinates of the
% vector between two dots in the dotted line.
%    \begin{macrocode}
    \dim_set:Nn \l_tmpa_dim 
      { 
        ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) *
        \dim_ratio:nn \l_@@_xdots_inter_dim \l_@@_l_dim 
      }
    \dim_set:Nn \l_tmpb_dim 
      { 
        ( \l_@@_y_final_dim - \l_@@_y_initial_dim ) *
        \dim_ratio:nn \l_@@_xdots_inter_dim \l_@@_l_dim
      }
%    \end{macrocode}
%
% In the loop over the dots, the dimensions |\l_@@_x_initial_dim| and
% |\l_@@_y_initial_dim| will be used for the coordinates of the dots. But,
% before the loop, we must move until the first dot.
%
%    \begin{macrocode}
    \dim_gadd:Nn \l_@@_x_initial_dim
      {  
        ( \l_@@_x_final_dim - \l_@@_x_initial_dim ) *
        \dim_ratio:nn 
          { 
            \l_@@_l_dim - \l_@@_xdots_inter_dim * \l_tmpa_int 
            + \l_@@_xdots_shorten_start_dim - \l_@@_xdots_shorten_end_dim 
          }
          { 2 \l_@@_l_dim }
      }
    \dim_gadd:Nn \l_@@_y_initial_dim 
      {   
        ( \l_@@_y_final_dim - \l_@@_y_initial_dim ) * 
        \dim_ratio:nn 
          { 
            \l_@@_l_dim - \l_@@_xdots_inter_dim * \l_tmpa_int 
            + \l_@@_xdots_shorten_start_dim  - \l_@@_xdots_shorten_end_dim 
          }
          { 2 \l_@@_l_dim } 
      }
    \pgf@relevantforpicturesizefalse
    \int_step_inline:nnn \c_zero_int \l_tmpa_int
      { 
        \pgfpathcircle 
          { \pgfpoint \l_@@_x_initial_dim \l_@@_y_initial_dim } 
          { \l_@@_xdots_radius_dim }
        \dim_add:Nn \l_@@_x_initial_dim \l_tmpa_dim
        \dim_add:Nn \l_@@_y_initial_dim \l_tmpb_dim
      }
    \pgfusepathqfill
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \l_@@_labels_standard_dotted_line:
  { 
    \pgfscope
    \pgftransformshift 
      { 
        \pgfpointlineattime { 0.5 }
          { \pgfpoint \l_@@_x_initial_dim \l_@@_y_initial_dim }
          { \pgfpoint \l_@@_x_final_dim \l_@@_y_final_dim }
      } 
    \fp_set:Nn \l_tmpa_fp
      {
        atand 
         ( 
           \l_@@_y_final_dim - \l_@@_y_initial_dim ,
           \l_@@_x_final_dim - \l_@@_x_initial_dim 
          ) 
      }
    \pgftransformrotate { \fp_use:N \l_tmpa_fp }
    \bool_if:NF \l_@@_xdots_h_labels_bool { \fp_zero:N \l_tmpa_fp }
    \tl_if_empty:NF \l_@@_xdots_middle_tl
      {
        \begin { pgfscope }
        \pgfset { inner~sep = \c_@@_innersep_middle_dim } 
        \pgfnode 
          { rectangle } 
          { center } 
          {
            \rotatebox { \fp_eval:n { - \l_tmpa_fp } }
              {
                \c_math_toggle_token 
                \scriptstyle \l_@@_xdots_middle_tl
                \c_math_toggle_token 
              }
          }
          { } 
          { 
            \pgfsetfillcolor { white } 
            \pgfusepath { fill }
          } 
        \end { pgfscope }
      }
    \tl_if_empty:NF \l_@@_xdots_up_tl
      {
        \pgfnode 
          { rectangle } 
          { south } 
          { 
            \rotatebox { \fp_eval:n { - \l_tmpa_fp } }
              {
                \c_math_toggle_token 
                \scriptstyle \l_@@_xdots_up_tl 
                \c_math_toggle_token
              }
          }
          { } 
          { \pgfusepath { } }
      }
    \tl_if_empty:NF \l_@@_xdots_down_tl
      {
        \pgfnode 
          { rectangle } 
          { north } 
          {
            \rotatebox { \fp_eval:n { - \l_tmpa_fp } }
              {
                \c_math_toggle_token 
                \scriptstyle \l_@@_xdots_down_tl
                \c_math_toggle_token 
              }
          }
          { } 
          { \pgfusepath { } }
      }
    \endpgfscope
  }
%    \end{macrocode}
%
% \bigskip
% \section{User commands available in the new environments}
%
%
% The commands |\@@_Ldots|, |\@@_Cdots|, |\@@_Vdots|, |\@@_Ddots| and
% |\@@_Iddots| will be linked to |\Ldots|, |\Cdots|, |\Vdots|, |\Ddots| and
% |\Iddots| in the environments |{NiceArray}| (the other environments of
% \pkg{nicematrix} rely upon |{NiceArray}|). 
%
% 
% \medskip 
% The syntax of these commands uses the character |_| as embellishment and
% thats' why we have to insert a character |_| in the \emph{arg spec} of these
% commands. However, we don't know the future catcode of |_| in the main
% document (maybe the user will use \pkg{underscore}, and, in that case, the
% catcode is $13$ because \pkg{underscore} activates |_|). That's why these
% commands will be defined in a |\hook_gput_code:nnn { begindocument } { . }|
% and the \emph{arg spec} will be rescanned.
%
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . } 
  {
    \cs_set_nopar:Npn \l_@@_argspec_tl { m  E { _ ^ : } { { } { } { } } }
    \tl_set_rescan:Nno \l_@@_argspec_tl { } \l_@@_argspec_tl
    \cs_new_protected:Npn \@@_Ldots 
      { \@@_collect_options:n { \@@_Ldots_i } }
    \exp_args:NNo \NewDocumentCommand \@@_Ldots_i \l_@@_argspec_tl 
      { 
        \int_if_zero:nTF \c@jCol
          { \@@_error:nn { in~first~col } \Ldots }
          { 
            \int_compare:nNnTF \c@jCol = \l_@@_last_col_int
              { \@@_error:nn { in~last~col } \Ldots }
              { 
                \@@_instruction_of_type:nnn \c_false_bool { Ldots } 
                  { #1 , down = #2 , up = #3 , middle = #4 } 
              }  
          }
        \bool_if:NF \l_@@_nullify_dots_bool 
          { \phantom { \ensuremath { \@@_old_ldots } } }
        \bool_gset_true:N \g_@@_empty_cell_bool
      } 
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \cs_new_protected:Npn \@@_Cdots 
      { \@@_collect_options:n { \@@_Cdots_i } }
    \exp_args:NNo \NewDocumentCommand \@@_Cdots_i \l_@@_argspec_tl
      { 
        \int_if_zero:nTF \c@jCol
          { \@@_error:nn { in~first~col } \Cdots }
          { 
            \int_compare:nNnTF \c@jCol = \l_@@_last_col_int
              { \@@_error:nn { in~last~col } \Cdots }
              { 
                \@@_instruction_of_type:nnn \c_false_bool { Cdots } 
                  { #1 , down = #2 , up = #3 , middle = #4 } 
              }  
          }
        \bool_if:NF \l_@@_nullify_dots_bool 
          { \phantom { \ensuremath { \@@_old_cdots } } }
        \bool_gset_true:N \g_@@_empty_cell_bool
      } 
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \cs_new_protected:Npn \@@_Vdots 
      { \@@_collect_options:n { \@@_Vdots_i } }
    \exp_args:NNo \NewDocumentCommand \@@_Vdots_i \l_@@_argspec_tl
      {
        \int_if_zero:nTF \c@iRow 
          { \@@_error:nn { in~first~row } \Vdots }
          { 
            \int_compare:nNnTF \c@iRow = \l_@@_last_row_int
              { \@@_error:nn { in~last~row } \Vdots }
              { 
                \@@_instruction_of_type:nnn \c_false_bool { Vdots } 
                  { #1 , down = #2 , up = #3 , middle = #4 } 
              }  
          }
        \bool_if:NF \l_@@_nullify_dots_bool 
          { \phantom { \ensuremath { \@@_old_vdots } } }
        \bool_gset_true:N \g_@@_empty_cell_bool
      } 
%    \end{macrocode}
%
%
% \bigskip
%    \begin{macrocode}
    \cs_new_protected:Npn \@@_Ddots 
      { \@@_collect_options:n { \@@_Ddots_i } }
    \exp_args:NNo \NewDocumentCommand \@@_Ddots_i \l_@@_argspec_tl
      { 
        \int_case:nnF \c@iRow
          {
            0                  { \@@_error:nn { in~first~row } \Ddots } 
            \l_@@_last_row_int { \@@_error:nn { in~last~row } \Ddots }
          }
          { 
            \int_case:nnF \c@jCol
              {
                0                  { \@@_error:nn { in~first~col } \Ddots }  
                \l_@@_last_col_int { \@@_error:nn { in~last~col } \Ddots }  
              }
              {
                \keys_set_known:nn { nicematrix / Ddots } { #1 } 
                \@@_instruction_of_type:nnn \l_@@_draw_first_bool { Ddots } 
                  { #1 , down = #2 , up = #3 , middle = #4 } 
              } 
       
          }
        \bool_if:NF \l_@@_nullify_dots_bool 
          { \phantom { \ensuremath { \@@_old_ddots } } }
        \bool_gset_true:N \g_@@_empty_cell_bool
      } 
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \cs_new_protected:Npn \@@_Iddots
      { \@@_collect_options:n { \@@_Iddots_i } }
    \exp_args:NNo \NewDocumentCommand \@@_Iddots_i \l_@@_argspec_tl
      { 
        \int_case:nnF \c@iRow
          {
            0                  { \@@_error:nn { in~first~row } \Iddots } 
            \l_@@_last_row_int { \@@_error:nn { in~last~row } \Iddots }
          }
          { 
            \int_case:nnF \c@jCol
              {
                0                  { \@@_error:nn { in~first~col } \Iddots }  
                \l_@@_last_col_int { \@@_error:nn { in~last~col } \Iddots }  
              }
              {
                \keys_set_known:nn { nicematrix / Ddots } { #1 } 
                \@@_instruction_of_type:nnn \l_@@_draw_first_bool { Iddots } 
                  { #1 , down = #2 , up = #3 , middle = #4 } 
              } 
          }
        \bool_if:NF \l_@@_nullify_dots_bool 
          { \phantom { \ensuremath { \@@_old_iddots } } }
        \bool_gset_true:N \g_@@_empty_cell_bool
      } 
  }
%    \end{macrocode}
% End of the |\AddToHook|.
%
%
% \bigskip
% Despite its name, the following set of keys will be used for |\Ddots| but also
% for |\Iddots|.
%    \begin{macrocode}
\keys_define:nn { nicematrix / Ddots }
  { 
    draw-first .bool_set:N = \l_@@_draw_first_bool ,
    draw-first .default:n = true ,
    draw-first .value_forbidden:n = true
  }
%    \end{macrocode}
% 
% \bigskip
% The command |\@@_Hspace:| will be linked to |\hspace| in |{NiceArray}|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_Hspace:
  { 
   \bool_gset_true:N \g_@@_empty_cell_bool
   \hspace
  }
%    \end{macrocode}
%
% \bigskip
% In the environments of |nicematrix|, the command |\multicolumn| is redefined.
% We will patch the environment |{tabular}| to go back to the previous value of
% |\multicolumn|.
%    \begin{macrocode}
\cs_set_eq:NN \@@_old_multicolumn \multicolumn
%    \end{macrocode}
% 
%
%
% \bigskip
% The command |\@@_Hdotsfor| will be linked to |\Hdotsfor| in
% |{NiceArrayWithDelims}|. Tikz nodes are created also in the implicit cells of
% the |\Hdotsfor| (maybe we should modify that point).
%
% \medskip
% This command must \emph{not} be protected since it begins with |\multicolumn|. 
%    \begin{macrocode}
\cs_new:Npn \@@_Hdotsfor:
  {
    \bool_lazy_and:nnTF
      { \int_if_zero_p:n \c@jCol }
      { \int_if_zero_p:n \l_@@_first_col_int }
      { 
        \bool_if:NTF \g_@@_after_col_zero_bool 
          {        
            \multicolumn { 1 } { c } { }
            \@@_Hdotsfor_i
          }
          { \@@_fatal:n { Hdotsfor~in~col~0 } } 
      }
      { 
        \multicolumn { 1 } { c } { }
        \@@_Hdotsfor_i
      }
  }
%    \end{macrocode}
%
%
% The command |\@@_Hdotsfor_i| is defined with |\NewDocumentCommand| because it
% has an optional argument. Note that such a command defined by
% |\NewDocumentCommand| is protected and that's why we have put the
% |\multicolumn| before (in the definition of |\@@_Hdotsfor:|).
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \cs_set_nopar:Npn \l_@@_argspec_tl { m m O { } E { _ ^ : } { { } { } { } } }
    \tl_set_rescan:Nno \l_@@_argspec_tl { } \l_@@_argspec_tl
%    \end{macrocode}
% We don't put |!| before the last optionnal argument for homogeneity with
% |\Cdots|, etc. which have only one optional argument.
%    \begin{macrocode}
    \cs_new_protected:Npn \@@_Hdotsfor_i 
      { \@@_collect_options:n { \@@_Hdotsfor_ii } }
    \exp_args:NNo \NewDocumentCommand \@@_Hdotsfor_ii \l_@@_argspec_tl
      {
        \tl_gput_right:Ne \g_@@_HVdotsfor_lines_tl
          {
            \@@_Hdotsfor:nnnn 
              { \int_use:N \c@iRow } 
              { \int_use:N \c@jCol } 
              { #2 }  
              { 
                #1 , #3 , 
                down = \exp_not:n { #4 } , 
                up = \exp_not:n { #5 } ,
                middle = \exp_not:n { #6 }
              } 
          }   
        \prg_replicate:nn { #2 - 1 } 
          { 
            & 
            \multicolumn { 1 } { c } { }
            \cs_set_eq:NN \CodeAfter \@@_CodeAfter_i: 
          }
      } 
  }
%    \end{macrocode}
% 
% \medskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_Hdotsfor:nnnn #1 #2 #3 #4
  { 
    \bool_set_false:N \l_@@_initial_open_bool
    \bool_set_false:N \l_@@_final_open_bool
%    \end{macrocode}
% For the row, it's easy.
%    \begin{macrocode}
    \int_set:Nn \l_@@_initial_i_int { #1 }
    \int_set_eq:NN \l_@@_final_i_int \l_@@_initial_i_int
%    \end{macrocode}
% For the column, it's a bit more complicated.
%    \begin{macrocode}
    \int_compare:nNnTF { #2 } = \c_one_int
      { 
        \int_set_eq:NN \l_@@_initial_j_int \c_one_int
        \bool_set_true:N \l_@@_initial_open_bool
      }
      {
        \cs_if_exist:cTF 
          { 
            pgf @ sh @ ns @ \@@_env: 
            - \int_use:N \l_@@_initial_i_int
            - \int_eval:n { #2 - 1 }
          }
          { \int_set:Nn \l_@@_initial_j_int { #2 - 1 } }
          { 
            \int_set:Nn \l_@@_initial_j_int { #2 }
            \bool_set_true:N \l_@@_initial_open_bool
          }
      }
    \int_compare:nNnTF { #2 + #3 -1 } = \c@jCol
      { 
        \int_set:Nn \l_@@_final_j_int { #2 + #3 - 1 }
        \bool_set_true:N \l_@@_final_open_bool
      }
      {
        \cs_if_exist:cTF 
          { 
            pgf @ sh @ ns @ \@@_env: 
            - \int_use:N \l_@@_final_i_int
            - \int_eval:n { #2 + #3 }
          }
          { \int_set:Nn \l_@@_final_j_int { #2 + #3 } }
          { 
            \int_set:Nn \l_@@_final_j_int { #2 + #3 - 1 }
            \bool_set_true:N \l_@@_final_open_bool
          }
      }
%    \end{macrocode}
%
%    \begin{macrocode}
    \group_begin:
    \@@_open_shorten:
    \int_if_zero:nTF { #1 } 
      { \color { nicematrix-first-row } }
      { 
        \int_compare:nNnT { #1 } = \g_@@_row_total_int
          { \color { nicematrix-last-row } }
      }

    \keys_set:nn { nicematrix / xdots } { #4 }
    \@@_color:o \l_@@_xdots_color_tl
    \@@_actually_draw_Ldots:
    \group_end:
%    \end{macrocode}
%
% \medskip
% We declare all the cells concerned by the |\Hdotsfor| as ``dotted'' (for the
% dotted lines created by |\Cdots|, |\Ldots|, etc., this job is done by
% |\@@_find_extremities_of_line:nnnn|). This declaration is done by defining a
% special control sequence (to nil).
%    \begin{macrocode}
    \int_step_inline:nnn { #2 } { #2 + #3 - 1 }
      { \cs_set_nopar:cpn { @@ _ dotted _ #1 - ##1 } { } }
  }
%    \end{macrocode}
%
% \bigskip 
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \cs_set_nopar:Npn \l_@@_argspec_tl { m m O { } E { _ ^ : } { { } { } { } } }
    \tl_set_rescan:Nno  \l_@@_argspec_tl { } \l_@@_argspec_tl
    \cs_new_protected:Npn \@@_Vdotsfor:
      { \@@_collect_options:n { \@@_Vdotsfor_i } }
    \exp_args:NNo \NewDocumentCommand \@@_Vdotsfor_i \l_@@_argspec_tl
      {
        \bool_gset_true:N \g_@@_empty_cell_bool 
        \tl_gput_right:Ne \g_@@_HVdotsfor_lines_tl
          {
            \@@_Vdotsfor:nnnn 
              { \int_use:N \c@iRow } 
              { \int_use:N \c@jCol } 
              { #2 }  
              { 
                #1 , #3 ,
                down = \exp_not:n { #4 } , 
                up = \exp_not:n { #5 } , 
                middle = \exp_not:n { #6 }
              } 
          }
      } 
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_Vdotsfor:nnnn #1 #2 #3 #4
  { 
    \bool_set_false:N \l_@@_initial_open_bool
    \bool_set_false:N \l_@@_final_open_bool
%    \end{macrocode}
% For the column, it's easy.
%    \begin{macrocode}
    \int_set:Nn \l_@@_initial_j_int { #2 }
    \int_set_eq:NN \l_@@_final_j_int \l_@@_initial_j_int
%    \end{macrocode}
% For the row, it's a bit more complicated.
%    \begin{macrocode}
    \int_compare:nNnTF { #1 } = \c_one_int
      { 
        \int_set_eq:NN \l_@@_initial_i_int \c_one_int
        \bool_set_true:N \l_@@_initial_open_bool
      }
      {
        \cs_if_exist:cTF 
          { 
            pgf @ sh @ ns @ \@@_env: 
            - \int_eval:n { #1 - 1 }
            - \int_use:N \l_@@_initial_j_int
          }
          { \int_set:Nn \l_@@_initial_i_int { #1 - 1 } }
          { 
            \int_set:Nn \l_@@_initial_i_int { #1 }
            \bool_set_true:N \l_@@_initial_open_bool
          }
      }
    \int_compare:nNnTF { #1 + #3 -1 } = \c@iRow
      { 
        \int_set:Nn \l_@@_final_i_int { #1 + #3 - 1 }
        \bool_set_true:N \l_@@_final_open_bool
      }
      {
        \cs_if_exist:cTF 
          { 
            pgf @ sh @ ns @ \@@_env: 
            - \int_eval:n { #1 + #3 }
            - \int_use:N \l_@@_final_j_int
          }
          { \int_set:Nn \l_@@_final_i_int { #1 + #3 } }
          { 
            \int_set:Nn \l_@@_final_i_int { #1 + #3 - 1 }
            \bool_set_true:N \l_@@_final_open_bool
          }
      }
%    \end{macrocode}
%
%    \begin{macrocode}
    \group_begin:
    \@@_open_shorten:
    \int_if_zero:nTF { #2 } 
      { \color { nicematrix-first-col } }
      { 
        \int_compare:nNnT { #2 } = \g_@@_col_total_int
          { \color { nicematrix-last-col } }
      }
    \keys_set:nn { nicematrix / xdots } { #4 }
    \@@_color:o \l_@@_xdots_color_tl
    \@@_actually_draw_Vdots:
    \group_end:
%    \end{macrocode}
%
% \medskip
% We declare all the cells concerned by the |\Vdotsfor| as ``dotted'' (for the
% dotted lines created by |\Cdots|, |\Ldots|, etc., this job is done by
% |\@@_find_extremities_of_line:nnnn|). This declaration is done by defining a
% special control sequence (to nil).
%    \begin{macrocode}
    \int_step_inline:nnn { #1 } { #1 + #3 - 1 }
      { \cs_set_nopar:cpn { @@ _ dotted _ ##1 - #2 } { } }
  }
%    \end{macrocode}
%
%
% \vspace{1cm}
% The command |\@@_rotate:| will be linked to |\rotate| in
% |{NiceArrayWithDelims}|.  
%    \begin{macrocode}
\NewDocumentCommand \@@_rotate: { O { } }
  { 
    \peek_remove_spaces:n
      {
        \bool_gset_true:N \g_@@_rotate_bool 
        \keys_set:nn { nicematrix / rotate } { #1 }
      }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\keys_define:nn { nicematrix / rotate }
  {
    c .code:n = \bool_gset_true:N \g_@@_rotate_c_bool ,
    c .value_forbidden:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~rotate } 
  }
%    \end{macrocode}
% 
% \bigskip
% \section{The command \textbackslash line accessible in code-after}
%
% In the |\CodeAfter|, the command |\@@_line:nn| will be linked to |\line|. This
% command takes two arguments which are the specifications of two cells in the
% array (in the format $i$-$j$) and draws a dotted line between these cells. In
% fact, if also works with names of blocks.
% 
% \medskip
% First, we write a command with the following behaviour:
% \begin{itemize}
% \item If the argument is of the format $i$-$j$, our command applies
% the command |\int_eval:n| to $i$ and~$j$ ; 
% \item If not (that is to say, when it's a name of a |\Block|), the argument is
% left unchanged. 
% \end{itemize}
% This must \emph{not} be protected (and is, of course fully
% expandable).\footnote{Indeed, we want that the user may use the command
% |\line| in |\CodeAfter| with LaTeX counters in the arguments --- with the
% command |\value|.}
%    \begin{macrocode}
\cs_new:Npn \@@_double_int_eval:n #1-#2 \q_stop
  { 
    \tl_if_empty:nTF { #2 }
      { #1 }
      { \@@_double_int_eval_i:n #1-#2 \q_stop }
  }
\cs_new:Npn \@@_double_int_eval_i:n #1-#2- \q_stop
  { \int_eval:n { #1 } - \int_eval:n { #2 } }
%    \end{macrocode}
%
%
% \medskip
% With the following construction, the command |\@@_double_int_eval:n| is
% applied to both arguments before the application of |\@@_line_i:nn| (the
% construction uses the fact the |\@@_line_i:nn| is protected and that
% |\@@_double_int_eval:n| is fully expandable).
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \cs_set_nopar:Npn \l_@@_argspec_tl 
      { O { } m m ! O { } E { _ ^ : } { { } { } { } } } 
    \tl_set_rescan:Nno  \l_@@_argspec_tl { } \l_@@_argspec_tl
    \exp_args:NNo \NewDocumentCommand \@@_line \l_@@_argspec_tl
      {
        \group_begin:
        \keys_set:nn { nicematrix / xdots } { #1 , #4 , down = #5 , up = #6 }
        \@@_color:o \l_@@_xdots_color_tl 
        \use:e
          {
            \@@_line_i:nn 
              { \@@_double_int_eval:n #2 - \q_stop }
              { \@@_double_int_eval:n #3 - \q_stop }
          }
        \group_end:
      } 
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_line_i:nn #1 #2
  {
    \bool_set_false:N \l_@@_initial_open_bool
    \bool_set_false:N \l_@@_final_open_bool
    \bool_lazy_or:nnTF
      { \cs_if_free_p:c { pgf @ sh @ ns @ \@@_env: - #1 } }
      { \cs_if_free_p:c { pgf @ sh @ ns @ \@@_env: - #2 } }
      { \@@_error:nnn { unknown~cell~for~line~in~CodeAfter } { #1 } { #2 } }  
%    \end{macrocode}
% The test of |measuring@| is a security (cf. question 686649 on TeX StackExchange). 
%    \begin{macrocode}
      { \legacy_if:nF { measuring@ } { \@@_draw_line_ii:nn { #1 } { #2 } } }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \cs_new_protected:Npe \@@_draw_line_ii:nn #1 #2
      {
%    \end{macrocode}
% We recall that, when externalization is used, |\tikzpicture| and
% |\endtikzpicture| (or |\pgfpicture| and |\endpgfpicture|) must be directly
% ``visible'' and that why we do this static construction of the command
% |\@@_draw_line_ii:|. 
%    \begin{macrocode}
        \c_@@_pgfortikzpicture_tl
        \@@_draw_line_iii:nn { #1 } { #2 }
        \c_@@_endpgfortikzpicture_tl
      }
  }
%    \end{macrocode}
% 
% \bigskip
% The following command \emph{must} be protected (it's used in the
% construction of |\@@_draw_line_ii:nn|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_line_iii:nn #1 #2 
  {
    \pgfrememberpicturepositiononpagetrue
    \pgfpointshapeborder { \@@_env: - #1 } { \@@_qpoint:n { #2 } }
    \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x
    \dim_set_eq:NN \l_@@_y_initial_dim \pgf@y
    \pgfpointshapeborder { \@@_env: - #2 } { \@@_qpoint:n { #1 } }
    \dim_set_eq:NN \l_@@_x_final_dim \pgf@x
    \dim_set_eq:NN \l_@@_y_final_dim \pgf@y
    \@@_draw_line:
  }
%    \end{macrocode}
% 
% 
% The commands |\Ldots|, |\Cdots|, |\Vdots|, |\Ddots|, and |\Iddots| don't use
% this command because they have to do other settings (for example, the diagonal
% lines must be parallelized). 
%
%
% 
% \bigskip
% \section{The command \textbackslash RowStyle}
% 
%
%  |\g_@@_row_style_tl| may contain several instructions of the form:
% 
% \qquad |\@@_if_row_less_than:nn { number } { instructions }|
%
% \smallskip
% Then, |\g_@@_row_style_tl| will be inserted in all the cells of the array (and
% also in both components of a |\diagbox| in a cell of in a mono-row block). 
%
% The test |\@@_if_row_less_then:nn| ensures that the instructions are inserted
% only if you are in a row which is (still) in the scope of that instructions
% (which depends on the value of the key |nb-rows| of |\RowStyle|). 
%
% That test will be active even in an expandable context because
% |\@@_if_row_less_then:nn| is \emph{not} protected.
%
% |#1| is the first row \emph{after} the scope of the instructions in |#2|
%    \begin{macrocode}
\cs_new:Npn \@@_if_row_less_than:nn #1 #2
  { \int_compare:nNnT { \c@iRow } < { #1 } { #2 } }  
%    \end{macrocode}
%
% \bigskip
% |\@@_put_in_row_style| will be used several times in |\RowStyle|.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_put_in_row_style:n { e }
\cs_set_protected:Npn \@@_put_in_row_style:n #1
  {
    \tl_gput_right:Ne \g_@@_row_style_tl 
      { 
%    \end{macrocode}
% Be careful, |\exp_not:N \@@_if_row_less_than:nn| can't be replaced by a
% protected version of |\@@_if_row_less_than:nn|.
%    \begin{macrocode}
        \exp_not:N 
        \@@_if_row_less_than:nn  
          { \int_eval:n { \c@iRow + \l_@@_key_nb_rows_int } } 
%    \end{macrocode}
% The |\scan_stop:| is mandatory (for ex. for the case where |\rotate| is used
% in the argument of |\RowStyle|).
%    \begin{macrocode}
          { \exp_not:n { #1 } \scan_stop: }
      }
  }
%    \end{macrocode}
% \medskip
%    \begin{macrocode}
\keys_define:nn { nicematrix / RowStyle }
  {
    cell-space-top-limit .dim_set:N = \l_tmpa_dim ,
    cell-space-top-limit .value_required:n = true ,
    cell-space-bottom-limit .dim_set:N = \l_tmpb_dim ,
    cell-space-bottom-limit .value_required:n = true ,
    cell-space-limits .meta:n = 
      {
        cell-space-top-limit = #1 ,
        cell-space-bottom-limit = #1 ,
      } ,
    color .tl_set:N = \l_@@_color_tl ,
    color .value_required:n = true ,
    bold .bool_set:N = \l_@@_bold_row_style_bool ,
    bold .default:n = true ,
    nb-rows .code:n = 
      \str_if_eq:eeTF { #1 } { * } 
        { \int_set:Nn \l_@@_key_nb_rows_int { 500 } } 
        { \int_set:Nn \l_@@_key_nb_rows_int { #1 } } ,
    nb-rows .value_required:n = true ,
    fill .tl_set:N = \l_@@_fill_tl ,
    fill .value_required:n = true , 
    opacity .tl_set:N = \l_@@_opacity_tl , 
    opacity .value_required:n = true , 
    rowcolor .tl_set:N = \l_@@_fill_tl ,
    rowcolor .value_required:n = true , 
    rounded-corners .dim_set:N = \l_@@_rounded_corners_dim ,
    rounded-corners .default:n = 4 pt ,
    unknown .code:n = \@@_error:n { Unknown~key~for~RowStyle } 
  }
%    \end{macrocode}
%
%
% \bigskip
%    \begin{macrocode}
\NewDocumentCommand \@@_RowStyle:n { O { } m }
  { 
    \group_begin:
    \tl_clear:N \l_@@_fill_tl 
    \tl_clear:N \l_@@_opacity_tl
    \tl_clear:N \l_@@_color_tl
    \int_set_eq:NN \l_@@_key_nb_rows_int \c_one_int
    \dim_zero:N \l_@@_rounded_corners_dim 
    \dim_zero:N \l_tmpa_dim
    \dim_zero:N \l_tmpb_dim 
    \keys_set:nn { nicematrix / RowStyle } { #1 }
%    \end{macrocode}
% If the key |rowcolor| (of its alias |fill|) has been used.
%    \begin{macrocode}
    \tl_if_empty:NF \l_@@_fill_tl
      { 
        \@@_add_opacity_to_fill:
        \tl_gput_right:Ne \g_@@_pre_code_before_tl
          { 
%    \end{macrocode}
% First, the case when the command |\RowStyle| is \emph{not} issued in the first
% column of the array. In that case, the commande applies to the end of the row
% in the row where the command |\RowStyle| is issued, but in the other whole
% rows, if the key |nb-rows| is used.
%    \begin{macrocode}
            \int_compare:nNnTF \c@jCol > \c_one_int 
              {
%    \end{macrocode}
% First, the end of the current row (we remind that |\RowStyle| applies to the
% \emph{end} of the current row). The command |\@@_exp_color_arg:No| is
% \emph{fully expandable}. 
%    \begin{macrocode}
                \@@_exp_color_arg:No \@@_roundedrectanglecolor \l_@@_fill_tl 
                  { \int_use:N \c@iRow - \int_use:N \c@jCol }
                  { \int_use:N \c@iRow - * }
                  { \dim_use:N \l_@@_rounded_corners_dim }
%    \end{macrocode}
% Then, the other rows (if there are several rows).
%    \begin{macrocode}
                \int_compare:nNnT \l_@@_key_nb_rows_int > \c_one_int
                  { \@@_rounded_from_row:n { \c@iRow + 1 } }
              }
%    \end{macrocode}
% Now, directly all the rows in the case of a command |\RowStyle| issued in the
% first column of the array.
%    \begin{macrocode}
              { \@@_rounded_from_row:n { \c@iRow } }   
          }
      }
    \@@_put_in_row_style:n { \exp_not:n { #2 } }
%    \end{macrocode}
% |\l_tmpa_dim| is the value of the key |cell-space-top-limit| of |\RowStyle|.
%    \begin{macrocode}
    \dim_compare:nNnT \l_tmpa_dim > \c_zero_dim
      {
        \@@_put_in_row_style:e 
          {
            \tl_gput_right:Nn \exp_not:N \g_@@_cell_after_hook_tl 
              { 
%    \end{macrocode}
% It's not possible to chanage the following code by using |\dim_set_eq:NN|
% (because of expansion).
%    \begin{macrocode}
                \dim_set:Nn \l_@@_cell_space_top_limit_dim 
                  { \dim_use:N \l_tmpa_dim } 
              }
          }
      }
%    \end{macrocode}
% |\l_tmpb_dim| is the value of the key |cell-space-bottom-limit| of |\RowStyle|.
%    \begin{macrocode}
    \dim_compare:nNnT \l_tmpb_dim > \c_zero_dim
      {
        \@@_put_in_row_style:e
          {
            \tl_gput_right:Nn \exp_not:N \g_@@_cell_after_hook_tl 
              { 
                \dim_set:Nn \l_@@_cell_space_bottom_limit_dim 
                  { \dim_use:N \l_tmpb_dim } 
              }
          }
      }
%    \end{macrocode}
% 
%
% |\l_@@_color_tl| is the value of the key |color| of |\RowStyle|.
%    \begin{macrocode}
    \tl_if_empty:NF \l_@@_color_tl
      {
        \@@_put_in_row_style:e
          { 
            \mode_leave_vertical: 
            \@@_color:n { \l_@@_color_tl }
          }
      }
%    \end{macrocode}
% |\l_@@_bold_row_style_bool| is the value of the key |bold|.
%    \begin{macrocode}
    \bool_if:NT \l_@@_bold_row_style_bool
      {
        \@@_put_in_row_style:n
          {
            \exp_not:n
              {
                \if_mode_math:
                  \c_math_toggle_token
                  \bfseries \boldmath 
                  \c_math_toggle_token
                \else:
                  \bfseries \boldmath
                \fi:
              }
          }
      }
    \group_end:
    \g_@@_row_style_tl
    \ignorespaces
  }
%    \end{macrocode}
%
% \medskip
% The following commande must \emph{not} be protected.
%    \begin{macrocode}
\cs_new:Npn \@@_rounded_from_row:n #1 
  {
    \@@_exp_color_arg:No \@@_roundedrectanglecolor \l_@@_fill_tl 
%    \end{macrocode}
% In the following code, the ``|- 1|'' is \emph{not} a subtraction.
%    \begin{macrocode}
      { \int_eval:n { #1 } - 1 }
      {
        \int_eval:n { \c@iRow + \l_@@_key_nb_rows_int - 1 } 
        - \exp_not:n { \int_use:N \c@jCol }
      }
      { \dim_use:N \l_@@_rounded_corners_dim }
  }
%    \end{macrocode}
% 
% \bigskip
% \section{Colors of cells, rows and columns}
%
% We want to avoid the thin white lines that are shown in some \textsc{pdf}
% viewers (eg: with the engine MuPDF used by SumatraPDF). That's why we try to
% draw rectangles of the same color in the same instruction |\pgfusepath { fill }|
% (and they will be in the same instruction |fill|---coded |f|---in the
% resulting \textsc{pdf}).
%
% The commands |\@@_rowcolor|, |\@@_columncolor|, |\@@_rectanglecolor| and
% |\@@_rowlistcolors| don't directly draw the corresponding rectangles. Instead,
% they store their instructions color by color:
% \begin{itemize}
% \item A sequence |\g_@@_colors_seq| will be built containing all the colors
% used by at least one of these instructions. Each \emph{color} may be prefixed
% by its color model (eg: |[gray]{0.5}|).
% \item For the color whose index in |\g_@@_colors_seq| is equal to~$i$, a list of
% instructions which use that color will be constructed in the token list
% |\g_@@_color_|$i$|_tl|. In that token list, the instructions will be written
% using |\@@_cartesian_color:nn| and |\@@_rectanglecolor:nn|.
% \end{itemize}
%
% 
% \bigskip
% |#1| is the color and |#2| is an instruction using that color. Despite its
% name, the command |\@@_add_to_colors_seq:nn| doesn't only add a color to
% |\g_@@_colors_seq|: it also updates the corresponding token list
% |\g_@@_color_|$i$|_tl|. We add in a global way because the final user may use
% the instructions such as |\cellcolor| in a loop of \pkg{pgffor} in the
% |\CodeBefore| (and we recall that a loop of \pkg{pgffor} is encapsulated in a
% group). 
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_add_to_colors_seq:nn { e }
\cs_generate_variant:Nn \@@_add_to_colors_seq:nn { e e }
\cs_new_protected:Npn \@@_add_to_colors_seq:nn #1 #2
  {
%    \end{macrocode}
% Firt, we look for the number of the color and, if it's found, we store it in
% |\l_tmpa_int|. If the color is not present in |\l_@@_colors_seq|,
% |\l_tmpa_int| will remain equal to $0$.
%    \begin{macrocode}
    \int_zero:N \l_tmpa_int
%    \end{macrocode}
% We don't take into account the colors like |myserie!!+| because those colors
% are special color from a |\definecolorseries| of \pkg{xcolor}.
% |\str_if_in:nnF| is mandatory: don't use |\tl_if_in:nnF|.
%    \begin{macrocode}
    \str_if_in:nnF { #1 } { !! }
      {
        \seq_map_indexed_inline:Nn \g_@@_colors_seq
%    \end{macrocode}
% We use |\str_if_eq:eeTF| which is slightly faster than |\tl_if_eq:nnTF|.
%    \begin{macrocode}
          { \str_if_eq:eeT { #1 } { ##2 } { \int_set:Nn \l_tmpa_int { ##1 } } }
      }
    \int_if_zero:nTF \l_tmpa_int 
%    \end{macrocode}
% First, the case where the color is a \emph{new} color (not in the sequence).
%    \begin{macrocode}
      {
        \seq_gput_right:Nn \g_@@_colors_seq { #1 }
        \tl_gset:ce { g_@@_color _ \seq_count:N \g_@@_colors_seq _ tl } { #2 }
      }
%    \end{macrocode}
% Now, the case where the color is \emph{not} a new color (the color is in the
% sequence at the position |\l_tmpa_int|).
%    \begin{macrocode}
     { \tl_gput_right:ce { g_@@_color _ \int_use:N \l_tmpa_int _tl } { #2 } }
  }
%    \end{macrocode}
%
%
% \bigskip
% The following command must be used within a |\pgfpicture|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_clip_with_rounded_corners:
  { 
    \dim_compare:nNnT \l_@@_tab_rounded_corners_dim > \c_zero_dim
      {
%    \end{macrocode}
% The TeX group is for |\pgfsetcornersarced| (whose scope is the TeX scope).
%    \begin{macrocode}
        \group_begin:
        \pgfsetcornersarced
          {
            \pgfpoint
              { \l_@@_tab_rounded_corners_dim } 
              { \l_@@_tab_rounded_corners_dim }
          }
%    \end{macrocode}
% Because we want \pkg{nicematrix} compatible with arrays constructed by
% \pkg{array}, the nodes for the rows and columns (that is to say the nodes
% |row-|\textsl{i} and |col-|\textsl{j}) have not always the expected position,
% that is to say, there is sometimes a slight shifting of something such as
% |\arrayrulewidth|. Now, for the clipping, we have to change slightly the
% position of that clipping whether a rounded rectangle around the array is
% required. That's the point which is tested in the following line.
%    \begin{macrocode}
        \bool_if:NTF \l_@@_hvlines_bool 
          {
            \pgfpathrectanglecorners
              { 
                \pgfpointadd
                  { \@@_qpoint:n { row-1 } }
                  { \pgfpoint { 0.5 \arrayrulewidth } { \c_zero_dim } }
              }
              { 
                \pgfpointadd
                  {
                    \@@_qpoint:n 
                      { \int_eval:n { \int_max:nn \c@iRow \c@jCol + 1 } } 
                  }
                  { \pgfpoint \c_zero_dim { 0.5 \arrayrulewidth } }
              }
          }
          {
            \pgfpathrectanglecorners
              { \@@_qpoint:n { row-1 } }
              { 
                \pgfpointadd
                  {
                    \@@_qpoint:n 
                      { \int_eval:n { \int_max:nn \c@iRow \c@jCol + 1 } } 
                  }
                  { \pgfpoint \c_zero_dim \arrayrulewidth } 
              }
          }
        \pgfusepath { clip }
        \group_end:
%    \end{macrocode}
% The TeX group was for |\pgfsetcornersarced|.
%    \begin{macrocode}
      }
  } 
%    \end{macrocode}
% 
% \bigskip
% The macro |\@@_actually_color:| will actually fill all the rectangles, color by
% color (using the sequence |\l_@@_colors_seq| and all the token lists of the
% form |\l_@@_color_|$i$|_tl|). 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_actually_color:
  {
    \pgfpicture
    \pgf@relevantforpicturesizefalse
%    \end{macrocode}
% If the final user has used the key |rounded-corners| for the environment
% |{NiceTabular}|, we will clip to a rectangle with rounded corners before
% filling the rectangles.
%    \begin{macrocode}
    \@@_clip_with_rounded_corners:
    \seq_map_indexed_inline:Nn \g_@@_colors_seq
      {
        \int_compare:nNnTF { ##1 } = \c_one_int
          { 
            \cs_set_eq:NN \@@_cartesian_path:n \@@_cartesian_path_nocolor:n 
            \use:c { g_@@_color _ 1 _tl }
            \cs_set_eq:NN \@@_cartesian_path:n \@@_cartesian_path_normal:n
          }
          {
            \begin { pgfscope }
              \@@_color_opacity ##2
              \use:c { g_@@_color _ ##1 _tl }
              \tl_gclear:c { g_@@_color _ ##1 _tl }
              \pgfusepath { fill }
            \end { pgfscope }
         }
      }
    \endpgfpicture
  }
%    \end{macrocode}
%
% 
% \bigskip
% The following command will extract the potential key |opacity| in its optional
% argument (between square brackets) and (of course) then apply the command |\color|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_color_opacity
  {
    \peek_meaning:NTF [
      { \@@_color_opacity:w }
      { \@@_color_opacity:w [ ] }
  }
%    \end{macrocode}
%
% \bigskip
% The command |\@@_color_opacity:w| takes in as argument only the optional
% argument. One may consider that the second argument (the actual definition of
% the color) is provided by curryfication.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_color_opacity:w [ #1 ] 
  {
    \tl_clear:N \l_tmpa_tl
    \keys_set_known:nnN { nicematrix / color-opacity } { #1 } \l_tmpb_tl 
%    \end{macrocode}
% |\l_tmpa_tl| (if not empty) is now the opacity and |\l_tmpb_tl| (if not empty) is now the colorimetric space.
%    \begin{macrocode}
    \tl_if_empty:NF \l_tmpa_tl { \exp_args:No \pgfsetfillopacity \l_tmpa_tl }
    \tl_if_empty:NTF \l_tmpb_tl 
      { \@declaredcolor }
      { \use:e { \exp_not:N \@undeclaredcolor [ \l_tmpb_tl ] } }
  }
%    \end{macrocode}
%
% \bigskip
% The following set of keys is used by the command |\@@_color_opacity:wn|.
%    \begin{macrocode}
\keys_define:nn { nicematrix / color-opacity }
  {
    opacity .tl_set:N         = \l_tmpa_tl ,
    opacity .value_required:n = true 
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cartesian_color:nn #1 #2
  {
    \cs_set_nopar:Npn \l_@@_rows_tl { #1 }
    \cs_set_nopar:Npn \l_@@_cols_tl { #2 }
    \@@_cartesian_path:
  }
%    \end{macrocode}
% 
% \bigskip
% Here is an example : |\@@_rowcolor {red!15} {1,3,5-7,10-}|
%    \begin{macrocode}
\NewDocumentCommand \@@_rowcolor { O { } m m }
  { 
    \tl_if_blank:nF { #2 }
      {
        \@@_add_to_colors_seq:en 
          { \tl_if_blank:nF { #1 } { [ #1 ] } { #2 } }
          { \@@_cartesian_color:nn { #3 } { - } }
      }
  }
%    \end{macrocode}
%
% \bigskip
% Here an example : |\@@_columncolor:nn {red!15} {1,3,5-7,10-}|
%    \begin{macrocode}
\NewDocumentCommand \@@_columncolor { O { } m m }
  { 
    \tl_if_blank:nF { #2 }
      {
        \@@_add_to_colors_seq:en 
          { \tl_if_blank:nF { #1 } { [ #1 ] } { #2 } }
          { \@@_cartesian_color:nn { - } { #3 } }
      }
  }
%    \end{macrocode}
%
% \bigskip
% Here is an example : |\@@_rectanglecolor{red!15}{2-3}{5-6}|
%    \begin{macrocode}
\NewDocumentCommand \@@_rectanglecolor { O { } m m m }
  {
    \tl_if_blank:nF { #2 }
      { 
        \@@_add_to_colors_seq:en 
          { \tl_if_blank:nF { #1 } { [ #1 ] } { #2 } }
          { \@@_rectanglecolor:nnn { #3 } { #4 } { \c_zero_dim } } 
      }
  }
%    \end{macrocode}
%
% \bigskip
% The last argument is the radius of the corners of the rectangle.
%    \begin{macrocode}
\NewDocumentCommand \@@_roundedrectanglecolor { O { } m m m m }
  {
    \tl_if_blank:nF { #2 }
      { 
        \@@_add_to_colors_seq:en 
          { \tl_if_blank:nF { #1 } { [ #1 ] } { #2 } }
          { \@@_rectanglecolor:nnn { #3 } { #4 } { #5 } } 
      }
  }
%    \end{macrocode}
%
% \bigskip
% The last argument is the radius of the corners of the rectangle.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rectanglecolor:nnn #1 #2 #3
  {
    \@@_cut_on_hyphen:w #1 \q_stop
    \tl_clear_new:N \l_@@_tmpc_tl
    \tl_clear_new:N \l_@@_tmpd_tl
    \tl_set_eq:NN \l_@@_tmpc_tl \l_tmpa_tl
    \tl_set_eq:NN \l_@@_tmpd_tl \l_tmpb_tl
    \@@_cut_on_hyphen:w #2 \q_stop
    \tl_set:Ne \l_@@_rows_tl { \l_@@_tmpc_tl - \l_tmpa_tl } 
    \tl_set:Ne \l_@@_cols_tl { \l_@@_tmpd_tl - \l_tmpb_tl }
%    \end{macrocode}
% The command |\@@_cartesian_path:n| takes in two implicit arguments:
% |\l_@@_cols_tl| and |\l_@@_rows_tl|.
%    \begin{macrocode}
    \@@_cartesian_path:n { #3 }
  }
%    \end{macrocode}
%
% 
% \bigskip
% Here is an example : |\@@_cellcolor[rgb]{0.5,0.5,0}{2-3,3-4,4-5,5-6}|
%    \begin{macrocode}
\NewDocumentCommand \@@_cellcolor { O { } m m }
  {
    \clist_map_inline:nn { #3 } 
      { \@@_rectanglecolor [ #1 ] { #2 } { ##1 } { ##1 } }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\NewDocumentCommand \@@_chessboardcolors { O { } m m  }
  {
    \int_step_inline:nn \c@iRow 
      {
        \int_step_inline:nn \c@jCol 
          {
            \int_if_even:nTF { ####1 + ##1 }
              { \@@_cellcolor [ #1 ] { #2 } }
              { \@@_cellcolor [ #1 ] { #3 } }
            { ##1 - ####1 }
          }
      } 
  }
%    \end{macrocode}
%
% \bigskip
% The command |\@@_arraycolor| (linked to |\arraycolor| at the beginning of
% the |\CodeBefore|) will color the whole tabular (excepted the potential
% exterior rows and columns) and the cells in the ``corners''.
%    \begin{macrocode}
\NewDocumentCommand \@@_arraycolor { O { } m }
  {
    \@@_rectanglecolor [ #1 ] { #2 } 
      { 1 - 1 } 
      { \int_use:N \c@iRow - \int_use:N \c@jCol } 
  }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\keys_define:nn { nicematrix / rowcolors }
  {
    respect-blocks .bool_set:N = \l_@@_respect_blocks_bool ,
    respect-blocks .default:n = true ,
    cols .tl_set:N = \l_@@_cols_tl ,
    restart .bool_set:N = \l_@@_rowcolors_restart_bool ,
    restart .default:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~rowcolors } 
  }
%    \end{macrocode}
%
% \medskip
% The command |\rowcolors| (accessible in the |\CodeBefore|) is inspired by the
% command |\rowcolors| of the package \pkg{xcolor} (with the option |table|).
% However, the command |\rowcolors| of \pkg{nicematrix} has \emph{not} the
% optional argument of the command |\rowcolors| of \pkg{xcolor}. 
%
% Here is an example: |\rowcolors{1}{blue!10}{}[respect-blocks]|.
%
% In \pkg{nicematrix}, the commmand |\@@_rowcolors| appears as a special case of
% |\@@_rowlistcolors|. 
% 
% |#1| (optional) is the color space;
% |#2| is a list of intervals of rows;
% |#3| is the list of colors;
% |#4| is for the optional list of pairs \textsl{key=value}.
%    \begin{macrocode}
\NewDocumentCommand \@@_rowlistcolors { O { } m m O { } }
  {
%    \end{macrocode}
% The group is for the options. |\l_@@_colors_seq| will be the list of colors.
%    \begin{macrocode}
    \group_begin:
    \seq_clear_new:N \l_@@_colors_seq
    \seq_set_split:Nnn \l_@@_colors_seq { , } { #3 }
    \tl_clear_new:N \l_@@_cols_tl
    \cs_set_nopar:Npn \l_@@_cols_tl { - }
    \keys_set:nn { nicematrix / rowcolors } { #4 }
%    \end{macrocode}
% The counter |\l_@@_color_int| will be the rank of the current color in the list of
% colors (modulo the length of the list).
%    \begin{macrocode}
    \int_zero_new:N \l_@@_color_int
    \int_set_eq:NN \l_@@_color_int \c_one_int 
    \bool_if:NT \l_@@_respect_blocks_bool
      {
%    \end{macrocode}
% We don't want to take into account a block which is completely in the ``first
% column'' (number~$0$) or in the ``last column'' and that's why we filter
% the sequence of the blocks (in the sequence |\l_tmpa_seq|).
%    \begin{macrocode}
        \seq_set_eq:NN \l_tmpb_seq \g_@@_pos_of_blocks_seq 
        \seq_set_filter:NNn \l_tmpa_seq \l_tmpb_seq
          { \@@_not_in_exterior_p:nnnnn ##1 }
      }
    \pgfpicture
    \pgf@relevantforpicturesizefalse
%    \end{macrocode}
% |#2| is the list of intervals of rows.
%    \begin{macrocode}
    \clist_map_inline:nn { #2 }
      {
        \cs_set_nopar:Npn \l_tmpa_tl { ##1 }
        \tl_if_in:NnTF \l_tmpa_tl { - } 
          { \@@_cut_on_hyphen:w ##1 \q_stop }  
          { \tl_set:No \l_tmpb_tl { \int_use:N \c@iRow } }  
%    \end{macrocode}
% Now, |l_tmpa_tl| and |l_tmpb_tl| are the first row and the last row of the
% interval of rows that we have to treat. The counter |\l_tmpa_int| will be the
% index of the loop over the rows.
%    \begin{macrocode}
        \int_set:Nn \l_tmpa_int \l_tmpa_tl
        \int_set:Nn \l_@@_color_int 
          { \bool_if:NTF \l_@@_rowcolors_restart_bool 1 \l_tmpa_tl }
        \int_zero_new:N \l_@@_tmpc_int
        \int_set:Nn \l_@@_tmpc_int \l_tmpb_tl
        \int_do_until:nNnn \l_tmpa_int > \l_@@_tmpc_int
          {
%    \end{macrocode}
% We will compute in |\l_tmpb_int| the last row of the ``block''.
%    \begin{macrocode}
            \int_set_eq:NN \l_tmpb_int \l_tmpa_int
%    \end{macrocode}
% If the key |respect-blocks| is in force, we have to adjust that value (of
% course). 
%    \begin{macrocode}
            \bool_if:NT \l_@@_respect_blocks_bool
              {
                \seq_set_filter:NNn \l_tmpb_seq \l_tmpa_seq 
                  { \@@_intersect_our_row_p:nnnnn ####1 }
                \seq_map_inline:Nn \l_tmpb_seq { \@@_rowcolors_i:nnnnn ####1 }
%    \end{macrocode}
% Now, the last row of the block is computed in |\l_tmpb_int|.
%    \begin{macrocode}
              }
            \tl_set:No \l_@@_rows_tl 
              { \int_use:N \l_tmpa_int - \int_use:N \l_tmpb_int } 
%    \end{macrocode}
% |\l_@@_tmpc_tl| will be the color that we will use.
%    \begin{macrocode}
            \tl_clear_new:N \l_@@_color_tl
            \tl_set:Ne \l_@@_color_tl
              { 
                \@@_color_index:n 
                  { 
                    \int_mod:nn 
                      { \l_@@_color_int - 1 } 
                      { \seq_count:N \l_@@_colors_seq } 
                    + 1 
                  }
              }
            \tl_if_empty:NF \l_@@_color_tl
              {
                \@@_add_to_colors_seq:ee
                  { \tl_if_blank:nF { #1 } { [ #1 ] } { \l_@@_color_tl } }
                  { \@@_cartesian_color:nn { \l_@@_rows_tl } { \l_@@_cols_tl } }
              }
            \int_incr:N \l_@@_color_int
            \int_set:Nn \l_tmpa_int { \l_tmpb_int + 1 }
          }
      }
    \endpgfpicture
    \group_end:
  }
%    \end{macrocode}
%
% \medskip
% The command |\@@_color_index:n| peeks in |\l_@@_colors_seq| the color at the
% index |#1|. However, if that color is the symbol |=|, the previous one is
% poken. This macro is recursive.
%    \begin{macrocode}
\cs_new:Npn \@@_color_index:n #1
  {
%    \end{macrocode}
% Be careful: this command |\@@_color_index:n| must be ``\emph{fully expandable}''.
%    \begin{macrocode}
    \str_if_eq:eeTF { \seq_item:Nn \l_@@_colors_seq { #1 } } { = }
      { \@@_color_index:n { #1 - 1 } }
      { \seq_item:Nn \l_@@_colors_seq { #1 } }
  }
%    \end{macrocode}
% 
% \bigskip
% The command |\rowcolors| (available in the |\CodeBefore|) is a specialisation
% of the more general command |\rowlistcolors|. The last argument, which is a
% optional argument between square brackets is provided by curryfication.
%    \begin{macrocode}
\NewDocumentCommand \@@_rowcolors { O { } m m m }
  { \@@_rowlistcolors [ #1 ] { #2 } { { #3 } , { #4 } } }
%    \end{macrocode}
% The braces around |#3| and |#4| are mandatory.
% 
% \bigskip 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rowcolors_i:nnnnn #1 #2 #3 #4 #5
  { 
    \int_compare:nNnT { #3 } > \l_tmpb_int
      { \int_set:Nn \l_tmpb_int { #3 } }
  }
%    \end{macrocode}
%
%
% \bigskip 
%    \begin{macrocode}
\prg_new_conditional:Nnn \@@_not_in_exterior:nnnnn p
  {
    \int_if_zero:nTF { #4 }
      \prg_return_false:
      { 
        \int_compare:nNnTF { #2 } > \c@jCol 
          \prg_return_false:
          \prg_return_true:
      }
  }
%    \end{macrocode}
%
% \bigskip
% The following command return |true| when the block intersects the row
% |\l_tmpa_int|. 
%    \begin{macrocode}
\prg_new_conditional:Nnn \@@_intersect_our_row:nnnnn p
  {
    \int_compare:nNnTF { #1 } > \l_tmpa_int 
      \prg_return_false:
      {
        \int_compare:nNnTF \l_tmpa_int > { #3 }
          \prg_return_false:
          \prg_return_true:
      }
  }
%    \end{macrocode}
%
% \bigskip
% The following command uses two implicit arguments: |\l_@@_rows_tl| and
% |\l_@@_cols_tl| which are specifications for a set of rows and a set of
% columns. It creates a path but does \emph{not} fill it. It must be filled by
% another command after. The argument is the radius of the corners. We define
% below a command |\@@_cartesian_path:| which corresponds to a value $0$~pt for
% the radius of the corners.
%
% This command is, in particular, used in |\@@_rectanglecolor:nnn| (used in 
% |\@@_rectanglecolor|, itself used in |\@@_cellcolor|). 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cartesian_path_normal:n #1 
  { 
    \dim_compare:nNnTF { #1 } = \c_zero_dim 
      {
        \bool_if:NTF
          \l_@@_nocolor_used_bool 
          \@@_cartesian_path_normal_ii: 
          { 
            \clist_if_empty:NTF \l_@@_corners_cells_clist 
              { \@@_cartesian_path_normal_i:n { #1 } }
              \@@_cartesian_path_normal_ii: 
          }
      }
      { \@@_cartesian_path_normal_i:n { #1 } }
  }
%    \end{macrocode}
%    
%
% \bigskip
% First, the situation where is a rectangular zone of cells will be colored as a
% whole (in the instructions of the resulting \textsc{pdf}). The argument is the
% radius of the corners. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cartesian_path_normal_i:n #1 
  {
    \pgfsetcornersarced { \pgfpoint { #1 } { #1 } } 
%    \end{macrocode}
% We begin the loop over the columns.
%    \begin{macrocode}
    \clist_map_inline:Nn \l_@@_cols_tl
      {
        \cs_set_nopar:Npn \l_tmpa_tl { ##1 }
        \tl_if_in:NnTF \l_tmpa_tl { - } 
          { \@@_cut_on_hyphen:w ##1 \q_stop }  
          { \@@_cut_on_hyphen:w ##1 - ##1 \q_stop }  
        \tl_if_empty:NTF \l_tmpa_tl 
          { \cs_set_nopar:Npn \l_tmpa_tl { 1 } }  
          {
            \str_if_eq:eeT \l_tmpa_tl { * }
              { \cs_set_nopar:Npn \l_tmpa_tl { 1 } }  
          }
        \tl_if_empty:NTF \l_tmpb_tl 
          { \tl_set:No \l_tmpb_tl { \int_use:N \c@jCol } }
          { 
            \str_if_eq:eeT \l_tmpb_tl { * }
              { \tl_set:No \l_tmpb_tl { \int_use:N \c@jCol } }
          }
        \int_compare:nNnT \l_tmpb_tl > \g_@@_col_total_int
          { \tl_set:No \l_tmpb_tl { \int_use:N \g_@@_col_total_int } }
%    \end{macrocode}
% |\l_@@_tmpc_tl| will contain the number of column.
%    \begin{macrocode}
        \tl_set_eq:NN \l_@@_tmpc_tl \l_tmpa_tl
        \@@_qpoint:n { col - \l_tmpa_tl }
        \int_compare:nNnTF \l_@@_first_col_int = \l_tmpa_tl
          { \dim_set:Nn \l_@@_tmpc_dim { \pgf@x - 0.5 \arrayrulewidth } }
          { \dim_set:Nn \l_@@_tmpc_dim { \pgf@x + 0.5 \arrayrulewidth } }
        \@@_qpoint:n { col - \int_eval:n { \l_tmpb_tl + 1 }  }
        \dim_set:Nn \l_tmpa_dim { \pgf@x + 0.5 \arrayrulewidth }
%    \end{macrocode}
% We begin the loop over the rows.
%    \begin{macrocode}
        \clist_map_inline:Nn \l_@@_rows_tl
          { 
            \cs_set_nopar:Npn \l_tmpa_tl { ####1 }
            \tl_if_in:NnTF \l_tmpa_tl { - } 
              { \@@_cut_on_hyphen:w ####1 \q_stop }  
              { \@@_cut_on_hyphen:w ####1 - ####1 \q_stop }  
            \tl_if_empty:NTF \l_tmpa_tl 
              { \cs_set_nopar:Npn \l_tmpa_tl { 1 } }  
              {
                \str_if_eq:eeT \l_tmpa_tl { * }
                  { \cs_set_nopar:Npn \l_tmpa_tl { 1 } }  
              }
            \tl_if_empty:NTF \l_tmpb_tl
              { \tl_set:No \l_tmpb_tl { \int_use:N \c@iRow } }
              {
                \str_if_eq:eeT \l_tmpb_tl { * }
                  { \tl_set:No \l_tmpb_tl { \int_use:N \c@iRow } }
              }
            \int_compare:nNnT \l_tmpb_tl > \g_@@_row_total_int
              { \tl_set:No \l_tmpb_tl { \int_use:N \g_@@_row_total_int } }
%    \end{macrocode}
% Now, the numbers of both rows are in |\l_tmpa_tl| and |\l_tmpb_tl|.
%    \begin{macrocode}
            \cs_if_exist:cF 
              { @@ _ nocolor _ \l_tmpa_tl - \l_@@_tmpc_tl }
              {
                \@@_qpoint:n { row - \int_eval:n { \l_tmpb_tl + 1 } }
                \dim_set:Nn \l_tmpb_dim { \pgf@y + 0.5 \arrayrulewidth }
                \@@_qpoint:n { row - \l_tmpa_tl }
                \dim_set:Nn \l_@@_tmpd_dim { \pgf@y + 0.5 \arrayrulewidth }
                \pgfpathrectanglecorners
                  { \pgfpoint \l_@@_tmpc_dim \l_@@_tmpd_dim }
                  { \pgfpoint \l_tmpa_dim \l_tmpb_dim } 
              }
          }
      }
  }
%    \end{macrocode}
%
%
% Now, the case where the cells will be colored cell by cell (it's mandatory for
% example if the key |corners| is used).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cartesian_path_normal_ii:
  {
    \@@_expand_clist:NN \l_@@_cols_tl \c@jCol
    \@@_expand_clist:NN \l_@@_rows_tl \c@iRow
%    \end{macrocode}
% We begin the loop over the columns.
%    \begin{macrocode}
    \clist_map_inline:Nn \l_@@_cols_tl
      {
        \@@_qpoint:n { col - ##1 }
        \int_compare:nNnTF \l_@@_first_col_int = { ##1 }
          { \dim_set:Nn \l_@@_tmpc_dim { \pgf@x - 0.5 \arrayrulewidth } }
          { \dim_set:Nn \l_@@_tmpc_dim { \pgf@x + 0.5 \arrayrulewidth } }
        \@@_qpoint:n { col - \int_eval:n { ##1 + 1 }  }
        \dim_set:Nn \l_tmpa_dim { \pgf@x + 0.5 \arrayrulewidth }
%    \end{macrocode}
% We begin the loop over the rows.
%    \begin{macrocode}
        \clist_map_inline:Nn \l_@@_rows_tl
          { 
            \@@_if_in_corner:nF { ####1 - ##1 } 
              {
                \@@_qpoint:n { row - \int_eval:n { ####1 + 1 } }
                \dim_set:Nn \l_tmpb_dim { \pgf@y + 0.5 \arrayrulewidth }
                \@@_qpoint:n { row - ####1 }
                \dim_set:Nn \l_@@_tmpd_dim { \pgf@y + 0.5 \arrayrulewidth }
                \cs_if_exist:cF { @@ _ nocolor _ ####1 - ##1 }
                  {
                    \pgfpathrectanglecorners
                      { \pgfpoint \l_@@_tmpc_dim \l_@@_tmpd_dim }
                      { \pgfpoint \l_tmpa_dim \l_tmpb_dim } 
                  }
              }
          }
      }
  }
%    \end{macrocode}
%
%
%
% \bigskip
% The following command corresponds to a radius of the corners equal to $0$~pt.
% This command is used by the commands |\@@_rowcolors|, |\@@_columncolor| and
% |\@@_rowcolor:n| (used in |\@@_rowcolor|). 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cartesian_path: { \@@_cartesian_path:n \c_zero_dim }
%    \end{macrocode}
%
%
% \bigskip
% Despite its name, the following command does not create a PGF path. It
% declares as colored by the ``empty color'' all the cells in what would be the
% path. Hence, the other coloring instructions of \pkg{nicematrix} won't put
% color in those cells.
% the 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_cartesian_path_nocolor:n #1 
  { 
    \bool_set_true:N \l_@@_nocolor_used_bool
    \@@_expand_clist:NN \l_@@_cols_tl \c@jCol
    \@@_expand_clist:NN \l_@@_rows_tl \c@iRow
%    \end{macrocode}
% We begin the loop over the columns.
%    \begin{macrocode}
    \clist_map_inline:Nn \l_@@_rows_tl
      {
        \clist_map_inline:Nn \l_@@_cols_tl 
          { \cs_set_nopar:cpn { @@ _ nocolor _ ##1 - ####1 } { } }
      }
  }
%    \end{macrocode}
% 
%
% \bigskip
% The following command will be used only with |\l_@@_cols_tl| and |\c@jCol| (first
% case) or with |\l_@@_rows_tl| and |\c@iRow| (second case). For instance, with
% |\l_@@_cols_tl| equal to |2,4-6,8-*| and |\c@jCol| equal to |10|, the clist
% |\l_@@_cols_tl| will be replaced by |2,4,5,6,8,9,10|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_expand_clist:NN #1 #2
  {
    \clist_set_eq:NN \l_tmpa_clist #1 
    \clist_clear:N #1
    \clist_map_inline:Nn \l_tmpa_clist
      {
        \cs_set_nopar:Npn \l_tmpa_tl { ##1 } 
        \tl_if_in:NnTF \l_tmpa_tl { - } 
          { \@@_cut_on_hyphen:w ##1 \q_stop }  
          { \@@_cut_on_hyphen:w ##1 - ##1 \q_stop }  
        \bool_lazy_or:nnT
          { \str_if_eq_p:ee \l_tmpa_tl { * } }
          { \tl_if_blank_p:o \l_tmpa_tl }
          { \cs_set_nopar:Npn \l_tmpa_tl { 1 } }  
        \bool_lazy_or:nnT
          { \str_if_eq_p:ee \l_tmpb_tl { * } }
          { \tl_if_blank_p:o \l_tmpb_tl }
          { \tl_set:No \l_tmpb_tl { \int_use:N #2 } }
        \int_compare:nNnT \l_tmpb_tl > #2
          { \tl_set:No \l_tmpb_tl { \int_use:N #2 } }
        \int_step_inline:nnn \l_tmpa_tl \l_tmpb_tl
          { \clist_put_right:Nn #1 { ####1 } }
      }
  }
%    \end{macrocode}
% 
% \bigskip
% The following command will be linked to |\cellcolor| in the tabular.
%    \begin{macrocode}
\NewDocumentCommand \@@_cellcolor_tabular { O { } m }
  {
    \tl_gput_right:Ne \g_@@_pre_code_before_tl
      { 
%    \end{macrocode}
% We must not expand the color (|#2|) because the color may contain the token
% |!| which may be activated by some packages (ex.: \pkg{babel} with the option
% |french| on latex and pdflatex).
%    \begin{macrocode}
        \@@_cellcolor [ #1 ] { \exp_not:n { #2 } } 
          { \int_use:N \c@iRow - \int_use:N \c@jCol } 
      }   
     \ignorespaces
  }
%    \end{macrocode}
% 
% \bigskip
% The following command will be linked to |\rowcolor| in the tabular.
%    \begin{macrocode}
\NewDocumentCommand \@@_rowcolor_tabular { O { } m }
  {
    \tl_gput_right:Ne \g_@@_pre_code_before_tl
      { 
        \@@_rectanglecolor [ #1 ] { \exp_not:n { #2 } } 
          { \int_use:N \c@iRow - \int_use:N \c@jCol } 
          { \int_use:N \c@iRow - \exp_not:n { \int_use:N \c@jCol } }
      }
    \ignorespaces
  }
%    \end{macrocode}
%
% \bigskip
% The following command will be linked to |\rowcolors| in the tabular. The last
% argument (an optional argument between square brackets is taken by
% curryfication).
%    \begin{macrocode}
\NewDocumentCommand { \@@_rowcolors_tabular } { O { } m m }
  { \@@_rowlistcolors_tabular [ #1 ] { { #2 } , { #3 } } }
%    \end{macrocode}
% The braces around |#2| and |#3| are mandatory.
%
% \bigskip
% The following command will be linked to |\rowlistcolors| in the tabular.
%    \begin{macrocode}
\NewDocumentCommand { \@@_rowlistcolors_tabular } { O { } m O { } }
  {
    \peek_remove_spaces:n 
      { \@@_rowlistcolors_tabular:nnn { #1 } { #2 } { #3 } }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rowlistcolors_tabular:nnn #1 #2 #3 
  {
%    \end{macrocode}
% A use of |\rowlistcolors| in the tabular erases the instructions
% |\rowlistcolors| which are in force. However, it's possible to put \emph{several}
% instructions |\rowlistcolors| in the same row of a tabular: it may be useful
% when those instructions |\rowlistcolors| concerns different columns of the
% tabular (thanks to the key |cols| of |\rowlistcolors|). That's why we store
% the different instructions |\rowlistcolors| which are in force in a sequence
% |\g_@@_rowlistcolors_seq|. Now, we will filter that sequence to keep only the
% elements which have been issued on the actual row. We will store the elements
% to keep in the |\g_tmpa_seq|.
%    \begin{macrocode}
    \seq_gclear:N \g_tmpa_seq
    \seq_map_inline:Nn \g_@@_rowlistcolors_seq
      { \@@_rowlistcolors_tabular_i:nnnn ##1 }
    \seq_gset_eq:NN \g_@@_rowlistcolors_seq \g_tmpa_seq 
%    \end{macrocode}
% Now, we add to the sequence |\g_@@_rowlistcolors_seq| (which is the list of
% the commands |\rowlistcolors| which are in force) the current instruction
% |\rowlistcolors|. 
%    \begin{macrocode}
    \seq_gput_right:Ne \g_@@_rowlistcolors_seq 
      {
        { \int_use:N \c@iRow }
        { \exp_not:n { #1 } }
        { \exp_not:n { #2 } }
        { restart , cols = \int_use:N \c@jCol - , \exp_not:n { #3 } }
      }
  }
%    \end{macrocode}
%
% 
% \bigskip
% The following command will be applied to each component of
% |\g_@@_rowlistcolors_seq|. Each component of that sequence is a kind of 4-uple
% of the form |{#1}{#2}{#3}{#4}|.
% 
% |#1| is the number of the row where the command |\rowlistcolors| has been
% issued.
% 
% |#2| is the colorimetric space (optional argument of the |\rowlistcolors|).
%
% |#3| is the list of colors (mandatory argument of |\rowlistcolors|). 
%
% |#4| is the list of \textsl{key=value} pairs (last optional argument of
% |\rowlistcolors|). 
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rowlistcolors_tabular_i:nnnn #1 #2 #3 #4
  {
    \int_compare:nNnTF { #1 } = \c@iRow 
%    \end{macrocode}
% We (temporary) keep in memory in |\g_tmpa_seq| the instructions which will
% still be in force after the current instruction (because they have been issued
% in the same row of the tabular).
%    \begin{macrocode}
      { \seq_gput_right:Nn \g_tmpa_seq { { #1 } { #2 } { #3 } { #4 } } }
      {
        \tl_gput_right:Ne \g_@@_pre_code_before_tl 
          { 
            \@@_rowlistcolors 
               [ \exp_not:n { #2 } ] 
               { #1 - \int_eval:n { \c@iRow - 1 } } 
               { \exp_not:n { #3 } } 
               [ \exp_not:n { #4 } ]
          }
      }
  }
%    \end{macrocode}
%
% \bigskip
% The following command will be used at the end of the tabular, just before the
% execution of the |\g_@@_pre_code_before_tl|. It clears the sequence
% |\g_@@_rowlistcolors_seq| of all the commands |\rowlistcolors| which are
% (still) in force.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_clear_rowlistcolors_seq:
  {
    \seq_map_inline:Nn \g_@@_rowlistcolors_seq 
      { \@@_rowlistcolors_tabular_ii:nnnn ##1 }
    \seq_gclear:N \g_@@_rowlistcolors_seq
  }
%    \end{macrocode}
% 
% \medskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rowlistcolors_tabular_ii:nnnn #1 #2 #3 #4
  {
    \tl_gput_right:Nn \g_@@_pre_code_before_tl 
      { \@@_rowlistcolors [ #2 ] { #1 } { #3 } [ #4 ] }
  }
%    \end{macrocode}
% The first mandatory argument of the command |\@@_rowlistcolors| which is
% writtent in the pre-|\CodeBefore| is of the form |i|: it means that the
% command must be applied to all the rows from the row~$i$ until the end of the
% tabular. 
% 
% \bigskip
%    \begin{macrocode}
\NewDocumentCommand \@@_columncolor_preamble { O { } m }
  { 
%    \end{macrocode}
% With the following line, we test whether the cell is the first one we
% encounter in its column (don't forget that some rows may be incomplete).
%    \begin{macrocode}
    \int_compare:nNnT \c@jCol > \g_@@_col_total_int
      {
%    \end{macrocode}
% You use |gput_left| because we want the specification of colors for the
% columns drawn before the specifications of color for the rows (and the cells).
% Be careful: maybe this is not effective since we have an analyze of the
% instructions in the |\CodeBefore| in order to fill color by color (to avoid
% the thin white lines).
%    \begin{macrocode}
        \tl_gput_left:Ne \g_@@_pre_code_before_tl
          { 
            \exp_not:N \columncolor [ #1 ] 
              { \exp_not:n { #2 } } { \int_use:N \c@jCol } 
          }
      }
  }
%    \end{macrocode}
%
% 
% \bigskip
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . } 
  { 
    \IfPackageLoadedTF { colortbl }
      { 
        \cs_set_eq:NN \@@_old_cellcolor \cellcolor
        \cs_set_eq:NN \@@_old_rowcolor \rowcolor
        \cs_new_protected:Npn \@@_revert_colortbl:
          {
            \hook_gput_code:nnn { env / tabular / begin } { nicematrix }
              { 
                \cs_set_eq:NN \cellcolor \@@_old_cellcolor 
                \cs_set_eq:NN \rowcolor \@@_old_rowcolor 
              }
          }    
      }
      { \cs_new_protected:Npn \@@_revert_colortbl: { } }
  }
%    \end{macrocode}
% 
% \bigskip
% \section{The vertical and horizontal rules}
%
% 
% \bigskip
% \subsubsection*{OnlyMainNiceMatrix}
%
% We give to the user the possibility to define new types of columns (with
% |\newcolumntype| of \pkg{array}) for special vertical rules (\emph{e.g.} rules
% thicker than the standard ones) which will not extend in the potential
% exterior rows of the array.
%
% We provide the command |\OnlyMainNiceMatrix| in that goal. However, that
% command must be no-op outside the environments of \pkg{nicematrix} (and so the
% user will be allowed to use the same new type of column in the environments
% of \pkg{nicematrix} and in the standard environments of \pkg{array}).
%
% That's why we provide first a global definition of |\OnlyMainNiceMatrix|.
%    \begin{macrocode}
\cs_set_eq:NN \OnlyMainNiceMatrix \use:n
%    \end{macrocode}
%
% \medskip
% Another definition of |\OnlyMainNiceMatrix| will be linked to the command in
% the environments of \pkg{nicematrix}. Here is that definition, called
% |\@@_OnlyMainNiceMatrix:n|. 
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_OnlyMainNiceMatrix:n #1
  { 
    \int_if_zero:nTF \l_@@_first_col_int 
      { \@@_OnlyMainNiceMatrix_i:n { #1 } }
      { 
        \int_if_zero:nTF \c@jCol 
          {
            \int_compare:nNnF \c@iRow = { -1 }
              { \int_compare:nNnF \c@iRow = { \l_@@_last_row_int - 1 } { #1 } }  
          }
          { \@@_OnlyMainNiceMatrix_i:n { #1 } }    
      }   
  } 
%    \end{macrocode}
% This definition may seem complicated but we must remind that the number of row
% |\c@iRow| is incremented in the first cell of the row, \emph{after} a
% potential vertical rule on the left side of the first cell.
%
% \smallskip
% The command |\@@_OnlyMainNiceMatrix_i:n| is only a short-cut which is used
% twice in the above command. This command must \emph{not} be protected.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_OnlyMainNiceMatrix_i:n #1
  {
    \int_if_zero:nF \c@iRow 
      { 
        \int_compare:nNnF \c@iRow = \l_@@_last_row_int 
          { 
            \int_compare:nNnT \c@jCol > \c_zero_int 
              { \bool_if:NF \l_@@_in_last_col_bool { #1 } }
          } 
      }
  }
%    \end{macrocode}
% Remember that |\c@iRow| is not always inferior to |\l_@@_last_row_int| because
% |\l_@@_last_row_int| may be equal to $-2$ or $-1$ (we can't write 
% |\int_compare:nNnT \c@iRow < \l_@@_last_row_int|).
% 
%
% \bigskip
% \subsubsection*{General system for drawing rules}
%
% When a command, environment or ``subsystem'' of \pkg{nicematrix} wants to draw
% a rule, it will write in the internal |\CodeAfter| a command |\@@_vline:n| or
% |\@@_hline:n|. Both commands take in as argument a list of \textsl{key=value}
% pairs. That list will first be analyzed with the following set of keys.
% However, unknown keys will be analyzed further with another set of keys.
% 
%    \begin{macrocode}
\keys_define:nn { nicematrix / Rules }
  {
    position .int_set:N = \l_@@_position_int , 
    position .value_required:n = true ,
    start .int_set:N = \l_@@_start_int ,
    end .code:n = 
      \bool_lazy_or:nnTF
        { \tl_if_empty_p:n { #1 } }
        { \str_if_eq_p:ee { #1 } { last } }
        { \int_set_eq:NN \l_@@_end_int \c@jCol }
        { \int_set:Nn \l_@@_end_int { #1 } } 
  }
%    \end{macrocode}
%
% \bigskip
% It's possible that the rule won't be drawn continuously from |start| ot |end|
% because of the blocks (created with the command |\Block|), the virtual blocks
% (created by |\Cdots|, etc.), etc. That's why an analyse is done and the rule
% is cut in small rules which will actually be drawn. The small continuous rules
% will be drawn by |\@@_vline_ii:| and |\@@_hline_ii:|. Those commands use the
% following set of keys.
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / RulesBis }
  {
    multiplicity .int_set:N = \l_@@_multiplicity_int , 
    multiplicity .initial:n = 1 , 
    dotted .bool_set:N = \l_@@_dotted_bool ,
    dotted .initial:n = false , 
    dotted .default:n = true ,
%    \end{macrocode}
% We want that, even when the rule has been defined with TikZ by the key |tikz|,
% the user has still the possibility to change the color of the rule with the key
% |color| (in the command |\Hline|, not in the key |tikz| of the command
% |\Hline|). The main use is, when the user has defined its own command
% |\MyDashedLine| by |\newcommand{\MyDashedRule}{\Hline[tikz=dashed]}|, to give
% the ability to write |\MyDashedRule[color=red]|.
%    \begin{macrocode}
    color .code:n = 
      \@@_set_CT@arc@:n { #1 } 
      \tl_set:Nn \l_@@_rule_color_tl { #1 } , 
    color .value_required:n = true ,
    sep-color .code:n = \@@_set_CT@drsc@:n { #1 } ,
    sep-color .value_required:n = true ,
%    \end{macrocode}
% If the user uses the key |tikz|, the rule (or more precisely: the different
% sub-rules since a rule may be broken by blocks or others) will be drawn with
% Tikz. 
%    \begin{macrocode}
    tikz .code:n = 
      \IfPackageLoadedTF { tikz }
        { \clist_put_right:Nn \l_@@_tikz_rule_tl { #1 } }
        { \@@_error:n { tikz~without~tikz } } ,
    tikz .value_required:n = true ,
    total-width .dim_set:N = \l_@@_rule_width_dim ,
    total-width .value_required:n = true ,
    width .meta:n = { total-width = #1 } ,
    unknown .code:n = \@@_error:n { Unknow~key~for~RulesBis }
  }
%    \end{macrocode}
% 
%
% \subsubsection*{The vertical rules}
% 
% The following command will be executed in the internal |\CodeAfter|. The
% argument |#1| is a list of \textsl{key=value} pairs.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_vline:n #1
  {  
%    \end{macrocode}
% The group is for the options.
%    \begin{macrocode}
    \group_begin:
    \int_set_eq:NN \l_@@_end_int \c@iRow
    \keys_set_known:nnN { nicematrix / Rules } { #1 } \l_@@_other_keys_tl
%    \end{macrocode}
% The following test is for the case where the user does not use all the columns
% specified in the preamble of the environment (for instance, a preamble of
% \verb+|c|c|c|+ but only two columns used).
%    \begin{macrocode}
    \int_compare:nNnT \l_@@_position_int < { \c@jCol + 2 }
      \@@_vline_i:
    \group_end:
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_vline_i:
  {
%    \end{macrocode}
% |\l_tmpa_tl| is the number of row and |\l_tmpb_tl| the number of column. When
% we have found a row corresponding to a rule to draw, we note its number in
% |\l_@@_tmpc_tl|. 
%    \begin{macrocode}
    \tl_set:No \l_tmpb_tl { \int_use:N \l_@@_position_int }
    \int_step_variable:nnNn \l_@@_start_int \l_@@_end_int 
      \l_tmpa_tl
      {
%    \end{macrocode}
% The boolean |\g_tmpa_bool| indicates whether the small vertical rule will be
% drawn. If we find that it is in a block (a real block, created by |\Block| or
% a virtual block corresponding to a dotted line, created by |\Cdots|, |\Vdots|,
% etc.), we will set |\g_tmpa_bool| to |false| and the small vertical rule won't
% be drawn.
%    \begin{macrocode}
        \bool_gset_true:N \g_tmpa_bool
%    \end{macrocode}
% 
%    \begin{macrocode}
        \seq_map_inline:Nn \g_@@_pos_of_blocks_seq
          { \@@_test_vline_in_block:nnnnn ##1 }
        \seq_map_inline:Nn \g_@@_pos_of_xdots_seq
          { \@@_test_vline_in_block:nnnnn ##1 }
        \seq_map_inline:Nn \g_@@_pos_of_stroken_blocks_seq
          { \@@_test_vline_in_stroken_block:nnnn ##1 }
        \clist_if_empty:NF \l_@@_corners_clist \@@_test_in_corner_v:
        \bool_if:NTF \g_tmpa_bool
          { 
            \int_if_zero:nT \l_@@_local_start_int 
%    \end{macrocode}
% We keep in memory that we have a rule to draw. |\l_@@_local_start_int| will be 
% the starting row of the rule that we will have to draw.
%    \begin{macrocode}
              { \int_set:Nn \l_@@_local_start_int \l_tmpa_tl }
          }
          {
            \int_compare:nNnT \l_@@_local_start_int > \c_zero_int
              { 
                \int_set:Nn \l_@@_local_end_int { \l_tmpa_tl - 1 } 
                \@@_vline_ii: 
                \int_zero:N \l_@@_local_start_int 
              }
          }
      }
    \int_compare:nNnT \l_@@_local_start_int > \c_zero_int
      { 
        \int_set_eq:NN \l_@@_local_end_int \l_@@_end_int 
        \@@_vline_ii:
      }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_in_corner_v:
   {
     \int_compare:nNnTF \l_tmpb_tl = { \c@jCol + 1 } 
       {
         \@@_if_in_corner:nT { \l_tmpa_tl - \int_eval:n { \l_tmpb_tl - 1 } }
           { \bool_set_false:N \g_tmpa_bool }
       }
       {
         \@@_if_in_corner:nT { \l_tmpa_tl - \l_tmpb_tl }
           { 
             \int_compare:nNnTF \l_tmpb_tl = \c_one_int
               { \bool_set_false:N \g_tmpa_bool }
               {
                 \@@_if_in_corner:nT 
                   { \l_tmpa_tl - \int_eval:n { \l_tmpb_tl - 1 } }
                   { \bool_set_false:N \g_tmpa_bool }
               }
           } 
       }
   }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_vline_ii:
  {
    \tl_clear:N \l_@@_tikz_rule_tl 
    \keys_set:no { nicematrix / RulesBis } \l_@@_other_keys_tl 
    \bool_if:NTF \l_@@_dotted_bool
      \@@_vline_iv: 
      {
        \tl_if_empty:NTF \l_@@_tikz_rule_tl
          \@@_vline_iii:
          \@@_vline_v:
      }
  }
%    \end{macrocode}
% 
% \bigskip
% First the case of a standard rule: the user has not used the key |dotted| nor
% the key |tikz|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_vline_iii:
  {
    \pgfpicture
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \@@_qpoint:n { row - \int_use:N \l_@@_local_start_int }
    \dim_set_eq:NN \l_tmpa_dim \pgf@y
    \@@_qpoint:n { col - \int_use:N \l_@@_position_int }
    \dim_set:Nn \l_tmpb_dim 
      { 
        \pgf@x  
        - 0.5 \l_@@_rule_width_dim 
        + 
        ( \arrayrulewidth * \l_@@_multiplicity_int  
           + \doublerulesep * ( \l_@@_multiplicity_int - 1 ) ) / 2
      }
    \@@_qpoint:n { row - \int_eval:n { \l_@@_local_end_int + 1 } }
    \dim_set_eq:NN \l_@@_tmpc_dim \pgf@y
    \bool_lazy_all:nT
      {
        { \int_compare_p:nNn \l_@@_multiplicity_int > \c_one_int }
        { \cs_if_exist_p:N \CT@drsc@ } 
        { ! \tl_if_blank_p:o \CT@drsc@ }
      }
      {
        \group_begin:
        \CT@drsc@
        \dim_add:Nn \l_tmpa_dim { 0.5 \arrayrulewidth }
        \dim_sub:Nn \l_@@_tmpc_dim { 0.5 \arrayrulewidth }
        \dim_set:Nn \l_@@_tmpd_dim
          { 
            \l_tmpb_dim - ( \doublerulesep + \arrayrulewidth ) 
            * ( \l_@@_multiplicity_int - 1 ) 
          } 
        \pgfpathrectanglecorners
          { \pgfpoint \l_tmpb_dim \l_tmpa_dim }
          { \pgfpoint \l_@@_tmpd_dim \l_@@_tmpc_dim }
        \pgfusepath { fill }
        \group_end:
      } 
    \pgfpathmoveto { \pgfpoint \l_tmpb_dim \l_tmpa_dim }
    \pgfpathlineto { \pgfpoint \l_tmpb_dim \l_@@_tmpc_dim }
    \prg_replicate:nn { \l_@@_multiplicity_int - 1 }
      {
        \dim_sub:Nn \l_tmpb_dim \arrayrulewidth
        \dim_sub:Nn \l_tmpb_dim \doublerulesep
        \pgfpathmoveto { \pgfpoint \l_tmpb_dim \l_tmpa_dim }
        \pgfpathlineto { \pgfpoint \l_tmpb_dim \l_@@_tmpc_dim }
      }
    \CT@arc@
    \pgfsetlinewidth { 1.1 \arrayrulewidth }
    \pgfsetrectcap
    \pgfusepathqstroke
    \endpgfpicture
  }
%    \end{macrocode}
%
%
% \bigskip
% The following code is for the case of a dotted rule (with our system of
% rounded dots).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_vline_iv:
  {
    \pgfpicture
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \@@_qpoint:n { col - \int_use:N \l_@@_position_int }
    \dim_set:Nn \l_@@_x_initial_dim { \pgf@x - 0.5 \l_@@_rule_width_dim }
    \dim_set_eq:NN \l_@@_x_final_dim \l_@@_x_initial_dim 
    \@@_qpoint:n { row - \int_use:N \l_@@_local_start_int }
    \dim_set_eq:NN \l_@@_y_initial_dim \pgf@y
    \@@_qpoint:n { row - \int_eval:n { \l_@@_local_end_int + 1 } }
    \dim_set_eq:NN \l_@@_y_final_dim \pgf@y
    \CT@arc@
    \@@_draw_line:
    \endpgfpicture
  }
%    \end{macrocode}
%
% \bigskip
% The following code is for the case when the user uses the key |tikz|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_vline_v:
  {
    \begin {tikzpicture }
%    \end{macrocode}
% By default, the color defined by |\arrayrulecolor| or by |rules/color| will be
% used, but it's still possible to change the color by using the key |color| or,
% of course, the key |color| inside the key |tikz| (that is to say the key
% |color| provided by \textsc{pgf}.
%    \begin{macrocode}
    \CT@arc@
    \tl_if_empty:NF \l_@@_rule_color_tl
      { \tl_put_right:Ne \l_@@_tikz_rule_tl { , color = \l_@@_rule_color_tl } }  
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \@@_qpoint:n { row - \int_use:N \l_@@_local_start_int }
    \dim_set_eq:NN \l_tmpa_dim \pgf@y
    \@@_qpoint:n { col - \int_use:N \l_@@_position_int }
    \dim_set:Nn \l_tmpb_dim { \pgf@x - 0.5 \l_@@_rule_width_dim }
    \@@_qpoint:n { row - \int_eval:n { \l_@@_local_end_int + 1 } }
    \dim_set_eq:NN \l_@@_tmpc_dim \pgf@y
    \exp_args:No \tikzset \l_@@_tikz_rule_tl
    \use:e { \exp_not:N \draw [ \l_@@_tikz_rule_tl ] } 
      ( \l_tmpb_dim , \l_tmpa_dim ) --
      ( \l_tmpb_dim , \l_@@_tmpc_dim ) ;
    \end { tikzpicture }
  }
%    \end{macrocode}
%
%
% \bigskip
% The command |\@@_draw_vlines:| draws all the vertical rules excepted in the
% blocks, in the virtual blocks (determined by a command such as |\Cdots|) and in
% the corners (if the key |corners| is used).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_vlines:
  {
    \int_step_inline:nnn 
      { \bool_lazy_or:nnTF \g_@@_delims_bool \l_@@_except_borders_bool 2 1 }
      { 
        \bool_lazy_or:nnTF \g_@@_delims_bool \l_@@_except_borders_bool 
          \c@jCol 
          { \int_eval:n { \c@jCol + 1 } } 
      }
      { 
        \str_if_eq:eeF \l_@@_vlines_clist { all }
          { \clist_if_in:NnT \l_@@_vlines_clist { ##1 } }
          { \@@_vline:n { position = ##1 , total-width = \arrayrulewidth } }
      }
  }
%    \end{macrocode}
%
%
% 
% \subsubsection*{The horizontal rules}
%
% \bigskip
% The following command will be executed in the internal |\CodeAfter|. The
% argument |#1| is a list of \textsl{key=value} pairs of the form
% |{nicematrix/Rules}|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_hline:n #1 
  {
%    \end{macrocode}
% The group is for the options.
%    \begin{macrocode}
    \group_begin:
    \int_zero_new:N \l_@@_end_int 
    \int_set_eq:NN \l_@@_end_int \c@jCol
    \keys_set_known:nnN { nicematrix / Rules } { #1 } \l_@@_other_keys_tl
    \@@_hline_i:
    \group_end:
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_hline_i:
  { 
    \int_zero_new:N \l_@@_local_start_int 
    \int_zero_new:N \l_@@_local_end_int 
%    \end{macrocode}
% |\l_tmpa_tl| is the number of row and |\l_tmpb_tl| the number of column. When
% we have found a column corresponding to a rule to draw, we note its number in
% |\l_@@_tmpc_tl|. 
%    \begin{macrocode}
    \tl_set:No \l_tmpa_tl { \int_use:N \l_@@_position_int }
    \int_step_variable:nnNn \l_@@_start_int \l_@@_end_int
      \l_tmpb_tl
      {
%    \end{macrocode}
% The boolean |\g_tmpa_bool| indicates whether the small horizontal rule will be
% drawn. If we find that it is in a block (a real block, created by |\Block| or
% a virtual block corresponding to a dotted line, created by |\Cdots|, |\Vdots|,
% etc.), we will set |\g_tmpa_bool| to |false| and the small horizontal rule won't
% be drawn.
%    \begin{macrocode}
         \bool_gset_true:N \g_tmpa_bool
%    \end{macrocode}
% 
% We test whether we are in a block.
%    \begin{macrocode}
        \seq_map_inline:Nn \g_@@_pos_of_blocks_seq
          { \@@_test_hline_in_block:nnnnn ##1 }
%    \end{macrocode}
% 
%    \begin{macrocode}
         \seq_map_inline:Nn \g_@@_pos_of_xdots_seq
           { \@@_test_hline_in_block:nnnnn ##1 }
         \seq_map_inline:Nn \g_@@_pos_of_stroken_blocks_seq
           { \@@_test_hline_in_stroken_block:nnnn ##1 }
         \clist_if_empty:NF \l_@@_corners_clist \@@_test_in_corner_h: 
         \bool_if:NTF \g_tmpa_bool
           { 
             \int_if_zero:nT \l_@@_local_start_int 
%    \end{macrocode}
% We keep in memory that we have a rule to draw. |\l_@@_local_start_int| will be
% the starting row of the rule that we will have to draw.
%    \begin{macrocode}
               { \int_set:Nn \l_@@_local_start_int \l_tmpb_tl }
           }
           {
             \int_compare:nNnT \l_@@_local_start_int > \c_zero_int
               { 
                 \int_set:Nn \l_@@_local_end_int { \l_tmpb_tl - 1 }  
                 \@@_hline_ii:
                 \int_zero:N \l_@@_local_start_int 
               }
           }
      }
    \int_compare:nNnT \l_@@_local_start_int > \c_zero_int
      { 
        \int_set_eq:NN \l_@@_local_end_int \l_@@_end_int
        \@@_hline_ii:
      }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_in_corner_h:
   {
     \int_compare:nNnTF \l_tmpa_tl = { \c@iRow + 1 }
       {
         \@@_if_in_corner:nT { \int_eval:n { \l_tmpa_tl - 1 } - \l_tmpb_tl }
           { \bool_set_false:N \g_tmpa_bool }
       }
       {
         \@@_if_in_corner:nT { \l_tmpa_tl - \l_tmpb_tl }
           { 
             \int_compare:nNnTF \l_tmpa_tl = \c_one_int
               { \bool_set_false:N \g_tmpa_bool }
               {
                 \@@_if_in_corner:nT 
                   { \int_eval:n { \l_tmpa_tl - 1 } - \l_tmpb_tl }
                   { \bool_set_false:N \g_tmpa_bool }
               }
           } 
       }
   }
%    \end{macrocode}
%
% 
% \bigskip 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_hline_ii:
  {
    \tl_clear:N \l_@@_tikz_rule_tl 
    \keys_set:no { nicematrix / RulesBis } \l_@@_other_keys_tl 
    \bool_if:NTF \l_@@_dotted_bool
      \@@_hline_iv: 
      {
        \tl_if_empty:NTF \l_@@_tikz_rule_tl
          \@@_hline_iii:
          \@@_hline_v:
      }
  }
%    \end{macrocode}
%
% \bigskip
% First the case of a standard rule (without the keys |dotted| and |tikz|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_hline_iii:
  {
    \pgfpicture
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \@@_qpoint:n { col - \int_use:N \l_@@_local_start_int }
    \dim_set_eq:NN \l_tmpa_dim \pgf@x
    \@@_qpoint:n { row - \int_use:N \l_@@_position_int }
    \dim_set:Nn \l_tmpb_dim 
      { 
        \pgf@y
        - 0.5 \l_@@_rule_width_dim 
        + 
        ( \arrayrulewidth * \l_@@_multiplicity_int  
           + \doublerulesep * ( \l_@@_multiplicity_int - 1 ) ) / 2
      }
    \@@_qpoint:n { col - \int_eval:n { \l_@@_local_end_int + 1 } }
    \dim_set_eq:NN \l_@@_tmpc_dim \pgf@x
    \bool_lazy_all:nT
      { 
        { \int_compare_p:nNn \l_@@_multiplicity_int > \c_one_int }
        { \cs_if_exist_p:N \CT@drsc@ } 
        { ! \tl_if_blank_p:o \CT@drsc@ }
      }
      {
        \group_begin:
        \CT@drsc@
        \dim_set:Nn \l_@@_tmpd_dim
          { 
            \l_tmpb_dim - ( \doublerulesep + \arrayrulewidth ) 
            * ( \l_@@_multiplicity_int - 1 ) 
          } 
        \pgfpathrectanglecorners
          { \pgfpoint \l_tmpa_dim \l_tmpb_dim }
          { \pgfpoint \l_@@_tmpc_dim \l_@@_tmpd_dim }
        \pgfusepathqfill
        \group_end:
      } 
    \pgfpathmoveto { \pgfpoint \l_tmpa_dim \l_tmpb_dim }
    \pgfpathlineto { \pgfpoint \l_@@_tmpc_dim \l_tmpb_dim }
    \prg_replicate:nn { \l_@@_multiplicity_int - 1 }
      {
        \dim_sub:Nn \l_tmpb_dim \arrayrulewidth
        \dim_sub:Nn \l_tmpb_dim \doublerulesep
        \pgfpathmoveto { \pgfpoint \l_tmpa_dim \l_tmpb_dim }
        \pgfpathlineto { \pgfpoint \l_@@_tmpc_dim \l_tmpb_dim }
      }
    \CT@arc@
    \pgfsetlinewidth { 1.1 \arrayrulewidth }
    \pgfsetrectcap
    \pgfusepathqstroke
    \endpgfpicture
  }
%    \end{macrocode}
%
% \bigskip
% The following code is for the case of a dotted rule (with our system of
% rounded dots).
% The aim is that, by standard the dotted line fits between square brackets
% (|\hline| doesn't).
%
% \smallskip
% \begin{BVerbatim}[baseline=c,boxwidth=10cm]
% \begin{bNiceMatrix}
% 1 & 2 & 3 & 4 \\
% \hline 
% 1 & 2 & 3 & 4 \\
% \hdottedline 
% 1 & 2 & 3 & 4 
% \end{bNiceMatrix}
% \end{BVerbatim}
% $\begin{bNiceMatrix}
% 1 & 2 & 3 & 4 \\
% \hline 
% 1 & 2 & 3 & 4 \\
% \hdottedline 
% 1 & 2 & 3 & 4 
% \end{bNiceMatrix}$
%
% \smallskip
% But, if the user uses |margin|, the dotted line extends to have the same width
% as a |\hline|.
% 
% \smallskip
% \begin{BVerbatim}[baseline=c,boxwidth=10cm]
% \begin{bNiceMatrix}[margin]
% 1 & 2 & 3 & 4 \\
% \hline 
% 1 & 2 & 3 & 4 \\
% \hdottedline 
% 1 & 2 & 3 & 4 
% \end{bNiceMatrix}
% \end{BVerbatim}
% $\begin{bNiceMatrix}[margin]
% 1 & 2 & 3 & 4 \\
% \hline 
% 1 & 2 & 3 & 4 \\
% \hdottedline 
% 1 & 2 & 3 & 4 
% \end{bNiceMatrix}$
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_hline_iv:
  {
    \pgfpicture
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \@@_qpoint:n { row - \int_use:N \l_@@_position_int }
    \dim_set:Nn \l_@@_y_initial_dim { \pgf@y - 0.5 \l_@@_rule_width_dim } 
    \dim_set_eq:NN \l_@@_y_final_dim \l_@@_y_initial_dim
    \@@_qpoint:n { col - \int_use:N \l_@@_local_start_int }
    \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x
    \int_compare:nNnT \l_@@_local_start_int = \c_one_int
      {
        \dim_sub:Nn \l_@@_x_initial_dim \l_@@_left_margin_dim 
        \bool_if:NF \g_@@_delims_bool 
          { \dim_sub:Nn \l_@@_x_initial_dim \arraycolsep }
%    \end{macrocode}
% For reasons purely aesthetic, we do an adjustment in the case of a rounded
% bracket. The correction by |0.5 \l_@@_xdots_inter_dim| is \emph{ad hoc} for a
% better result.
%    \begin{macrocode}
        \tl_if_eq:NnF \g_@@_left_delim_tl ( 
          { \dim_add:Nn \l_@@_x_initial_dim  { 0.5 \l_@@_xdots_inter_dim } }
      }        
    \@@_qpoint:n { col - \int_eval:n { \l_@@_local_end_int + 1 } }
    \dim_set_eq:NN \l_@@_x_final_dim \pgf@x
    \int_compare:nNnT \l_@@_local_end_int = \c@jCol
      {
        \dim_add:Nn \l_@@_x_final_dim \l_@@_right_margin_dim 
        \bool_if:NF \g_@@_delims_bool 
          { \dim_add:Nn \l_@@_x_final_dim \arraycolsep }
        \tl_if_eq:NnF \g_@@_right_delim_tl ) 
          { \dim_gsub:Nn \l_@@_x_final_dim { 0.5 \l_@@_xdots_inter_dim } }
      }
    \CT@arc@
    \@@_draw_line:
    \endpgfpicture
  }
%    \end{macrocode}
%
% \bigskip
% The following code is for the case when the user uses the key |tikz| (in the
% definition of a customized rule by using the key |custom-line|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_hline_v:
  {
    \begin { tikzpicture }
%    \end{macrocode}
% By default, the color defined by |\arrayrulecolor| or by |rules/color| will be
% used, but it's still possible to change the color by using the key |color| or,
% of course, the key |color| inside the key |tikz| (that is to say the key
% |color| provided by \textsc{pgf}.
%    \begin{macrocode}
    \CT@arc@
    \tl_if_empty:NF \l_@@_rule_color_tl
      { \tl_put_right:Ne \l_@@_tikz_rule_tl { , color = \l_@@_rule_color_tl } }  
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \@@_qpoint:n { col - \int_use:N \l_@@_local_start_int }
    \dim_set_eq:NN \l_tmpa_dim \pgf@x
    \@@_qpoint:n { row - \int_use:N \l_@@_position_int }
    \dim_set:Nn \l_tmpb_dim { \pgf@y - 0.5 \l_@@_rule_width_dim }
    \@@_qpoint:n { col - \int_eval:n { \l_@@_local_end_int + 1 } }
    \dim_set_eq:NN \l_@@_tmpc_dim \pgf@x
    \exp_args:No \tikzset \l_@@_tikz_rule_tl
    \use:e { \exp_not:N \draw [ \l_@@_tikz_rule_tl ] } 
      ( \l_tmpa_dim , \l_tmpb_dim ) --
      ( \l_@@_tmpc_dim , \l_tmpb_dim ) ;
    \end { tikzpicture }
  }
%    \end{macrocode}
%
%
% \bigskip
% The command |\@@_draw_hlines:| draws all the horizontal rules excepted in the
% blocks (even the virtual blocks determined by commands such as |\Cdots| and in
% the corners --- if the key |corners| is used).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_hlines:
  {
    \int_step_inline:nnn 
      { \bool_lazy_or:nnTF \g_@@_delims_bool \l_@@_except_borders_bool 2 1 }
      { 
        \bool_lazy_or:nnTF \g_@@_delims_bool \l_@@_except_borders_bool 
          \c@iRow
          { \int_eval:n { \c@iRow + 1 } } 
      }
      { 
        \str_if_eq:eeF \l_@@_hlines_clist { all }
          { \clist_if_in:NnT \l_@@_hlines_clist { ##1 } }
          { \@@_hline:n { position = ##1 , total-width = \arrayrulewidth } }
      }
  }
%    \end{macrocode}
%
%
% \medskip
% The command |\@@_Hline:| will be linked to |\Hline| in the environments of
% \pkg{nicematrix}. 
%    \begin{macrocode}
\cs_set:Npn \@@_Hline: { \noalign \bgroup \@@_Hline_i:n { 1 } }
%    \end{macrocode}
%
% \medskip
% The argument of the command |\@@_Hline_i:n| is the number of successive
% |\Hline| found.
%    \begin{macrocode}
\cs_set:Npn \@@_Hline_i:n #1
  { 
    \peek_remove_spaces:n
      {
       \peek_meaning:NTF \Hline
         { \@@_Hline_ii:nn { #1 + 1 } } 
         { \@@_Hline_iii:n { #1 } } 
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_set:Npn \@@_Hline_ii:nn #1 #2 { \@@_Hline_i:n { #1 } }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_set:Npn \@@_Hline_iii:n #1  
  { \@@_collect_options:n { \@@_Hline_iv:nn { #1 } } }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\cs_set:Npn \@@_Hline_iv:nn #1 #2 
  {
    \@@_compute_rule_width:n { multiplicity = #1 , #2 }
    \skip_vertical:N \l_@@_rule_width_dim 
    \tl_gput_right:Ne \g_@@_pre_code_after_tl
      { 
        \@@_hline:n 
          { 
            multiplicity = #1 , 
            position = \int_eval:n { \c@iRow + 1 } ,
            total-width = \dim_use:N \l_@@_rule_width_dim ,
            #2
          } 
      }
    \egroup 
  }
%    \end{macrocode}
% 
% \subsubsection*{Customized rules defined by the final user}
%
% The final user can define a customized rule by using the key |custom-line| in
% |\NiceMatrixOptions|. That key takes in as value a list of \textsl{key=value}
% pairs. 
% 
%
% 
% \medskip
% The following command will create the customized rule (it is executed when the
% final user uses the key |custom-line|, for example in |\NiceMatrixOptions|). 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_custom_line:n #1 
  {
    \str_clear_new:N \l_@@_command_str
    \str_clear_new:N \l_@@_ccommand_str
    \str_clear_new:N \l_@@_letter_str
    \tl_clear_new:N \l_@@_other_keys_tl
    \keys_set_known:nnN { nicematrix / custom-line } { #1 } \l_@@_other_keys_tl
%    \end{macrocode}
% If the final user only wants to draw horizontal rules, he does not need to
% specify a letter (for the vertical rules in the preamble of the array). On the
% other hand, if he only wants to draw vertical rules, he does not need to
% define a command (which is the tool to draw horizontal rules in the array). Of
% course, a definition of custom lines with no letter and no command would be point-less.
% 
%    \begin{macrocode}
    \bool_lazy_all:nTF 
      {
        { \str_if_empty_p:N \l_@@_letter_str }
        { \str_if_empty_p:N \l_@@_command_str }
        { \str_if_empty_p:N \l_@@_ccommand_str }
      }
      { \@@_error:n { No~letter~and~no~command } }
      { \@@_custom_line_i:o \l_@@_other_keys_tl }
  }
%    \end{macrocode}
% 
% 
%    \begin{macrocode}
\keys_define:nn { nicematrix / custom-line }
  {
    letter .str_set:N = \l_@@_letter_str , 
    letter .value_required:n = true ,
    command .str_set:N = \l_@@_command_str , 
    command .value_required:n = true ,
    ccommand .str_set:N = \l_@@_ccommand_str , 
    ccommand .value_required:n = true ,
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_custom_line_i:n { o }
\cs_new_protected:Npn \@@_custom_line_i:n #1 
  {
%    \end{macrocode}
% The following flags will be raised when the keys |tikz|, |dotted| and |color|
% are used (in the |custom-line|).
%    \begin{macrocode}
    \bool_set_false:N \l_@@_tikz_rule_bool
    \bool_set_false:N \l_@@_dotted_rule_bool
    \bool_set_false:N \l_@@_color_bool
%    \end{macrocode}
%    \begin{macrocode}
    \keys_set:nn { nicematrix / custom-line-bis } { #1 } 
    \bool_if:NT \l_@@_tikz_rule_bool
      {
        \IfPackageLoadedF { tikz }
          { \@@_error:n { tikz~in~custom-line~without~tikz } } 
        \bool_if:NT \l_@@_color_bool
          { \@@_error:n { color~in~custom-line~with~tikz } }
      }
    \bool_if:NT \l_@@_dotted_rule_bool
      { 
        \int_compare:nNnT \l_@@_multiplicity_int > \c_one_int
          { \@@_error:n { key~multiplicity~with~dotted } }
      }
    \str_if_empty:NF \l_@@_letter_str 
      {
        \int_compare:nTF { \str_count:N \l_@@_letter_str != 1 }
          { \@@_error:n { Several~letters } }
          {
            \tl_if_in:NoTF 
              \c_@@_forbidden_letters_str 
              \l_@@_letter_str  
              { \@@_error:ne { Forbidden~letter } \l_@@_letter_str }
              { 
%    \end{macrocode}
% During the analyse of the preamble provided by the final user, our automaton,
% for the letter corresponding at the custom line, will directly use the
% following command that you define in the main hash table of TeX.
%    \begin{macrocode}
                \cs_set_nopar:cpn { @@ _ \l_@@_letter_str } ##1 
                  { \@@_v_custom_line:n { #1 } }
              } 
          }
      }
    \str_if_empty:NF \l_@@_command_str { \@@_h_custom_line:n { #1 } }
    \str_if_empty:NF \l_@@_ccommand_str { \@@_c_custom_line:n { #1 } }
  } 
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\tl_const:Nn \c_@@_forbidden_letters_tl { lcrpmbVX|()[]!@<> }
\str_const:Nn \c_@@_forbidden_letters_str { lcrpmbVX|()[]!@<> }
%    \end{macrocode}
% 
% \medskip
% The previous command |\@@_custom_line_i:n| uses the following set of keys.
% However, the whole definition of the customized lines (as provided by the
% final user as argument of |custom-line|) will also be used further with
% other sets of keys (for instance |{nicematrix/Rules}|). That's why the
% following set of keys has some keys which are no-op.
%    \begin{macrocode}
\keys_define:nn { nicematrix / custom-line-bis }
  {
    multiplicity .int_set:N = \l_@@_multiplicity_int , 
    multiplicity .initial:n = 1 , 
    multiplicity .value_required:n = true ,
    color .code:n = \bool_set_true:N \l_@@_color_bool ,
    color .value_required:n = true ,
    tikz .code:n = \bool_set_true:N \l_@@_tikz_rule_bool ,
    tikz .value_required:n = true ,
    dotted .code:n = \bool_set_true:N \l_@@_dotted_rule_bool ,
    dotted .value_forbidden:n = true ,
    total-width .code:n = { } , 
    total-width .value_required:n = true ,
    width .code:n = { } , 
    width .value_required:n = true ,
    sep-color .code:n = { } , 
    sep-color .value_required:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~custom-line }
  }
%    \end{macrocode}
%
% The following keys will indicate whether the keys |dotted|, |tikz| and |color|
% are used in the use of a |custom-line|.
%    \begin{macrocode}
\bool_new:N \l_@@_dotted_rule_bool
\bool_new:N \l_@@_tikz_rule_bool
\bool_new:N \l_@@_color_bool
%    \end{macrocode}
% 
% \bigskip
% The following keys are used to determine the total width of the line
% (including the spaces on both sides of the line). The key |width| is
% deprecated and has been replaced by the key |total-width|.
% 
%    \begin{macrocode}
\keys_define:nn { nicematrix / custom-line-width }
  {
    multiplicity .int_set:N = \l_@@_multiplicity_int , 
    multiplicity .initial:n = 1 , 
    multiplicity .value_required:n = true ,
    tikz .code:n = \bool_set_true:N \l_@@_tikz_rule_bool ,
    total-width .code:n = \dim_set:Nn \l_@@_rule_width_dim { #1 } 
                          \bool_set_true:N \l_@@_total_width_bool ,
    total-width .value_required:n = true , 
    width .meta:n = { total-width = #1 } ,
    dotted .code:n = \bool_set_true:N \l_@@_dotted_rule_bool ,
  }
%    \end{macrocode}
% 
% \bigskip
% The following command will create the command that the final user will use in
% its array to draw an horizontal rule (hence the `|h|` in the name) with the
% full width of the array. |#1| is the whole set of keys to pass to the command
% |\@@_hline:n| (which is in the internal |\CodeAfter|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_h_custom_line:n #1
  {
%    \end{macrocode}
% We use |\cs_set:cpn| and not |\cs_new:cpn| because we want a local definition.
% Moreover, the command must \emph{not} be protected since it begins with
% |\noalign| (which is in |\Hline|). 
%    \begin{macrocode}
    \cs_set_nopar:cpn { nicematrix - \l_@@_command_str } { \Hline [ #1 ] }
    \seq_put_left:No \l_@@_custom_line_commands_seq \l_@@_command_str
  }
%    \end{macrocode}
%
% \bigskip
% \bigskip
% The following command will create the command that the final user will use in
% its array to draw an horizontal rule on only some of the columns of the array
% (hence the letter |c| as in |\cline|). |#1| is the whole set of keys to pass
% to the command |\@@_hline:n| (which is in the internal |\CodeAfter|).
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_c_custom_line:n #1
  {
%    \end{macrocode}
% Here, we need an expandable command since it begins with an |\noalign|.
%    \begin{macrocode}
    \exp_args:Nc \NewExpandableDocumentCommand 
      { nicematrix - \l_@@_ccommand_str } 
      { O { } m }
      { 
        \noalign
          {
            \@@_compute_rule_width:n { #1 , ##1 }
            \skip_vertical:n { \l_@@_rule_width_dim }
            \clist_map_inline:nn
              { ##2 }
              { \@@_c_custom_line_i:nn { #1 , ##1 } { ####1 } }
          }
      }
    \seq_put_left:No \l_@@_custom_line_commands_seq \l_@@_ccommand_str
  }
%    \end{macrocode}
% The first argument is the list of key-value pairs characteristic of the line.
% The second argument is the specification of columns for the |\cline| with the
% syntax $a$-$b$.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_c_custom_line_i:nn #1 #2
  {
    \tl_if_in:nnTF { #2 } { - } 
      { \@@_cut_on_hyphen:w #2 \q_stop }  
      { \@@_cut_on_hyphen:w #2 - #2 \q_stop }  
    \tl_gput_right:Ne \g_@@_pre_code_after_tl
      { 
        \@@_hline:n 
          { 
            #1 , 
            start = \l_tmpa_tl , 
            end = \l_tmpb_tl , 
            position = \int_eval:n { \c@iRow + 1 } ,
            total-width = \dim_use:N \l_@@_rule_width_dim
          } 
      }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_compute_rule_width:n #1 
  {
    \bool_set_false:N \l_@@_tikz_rule_bool
    \bool_set_false:N \l_@@_total_width_bool
    \bool_set_false:N \l_@@_dotted_rule_bool
    \keys_set_known:nn { nicematrix / custom-line-width } { #1 }
    \bool_if:NF \l_@@_total_width_bool
      { 
        \bool_if:NTF \l_@@_dotted_rule_bool
          { \dim_set:Nn \l_@@_rule_width_dim { 2 \l_@@_xdots_radius_dim } }
          {
            \bool_if:NF \l_@@_tikz_rule_bool
              { 
                \dim_set:Nn \l_@@_rule_width_dim 
                  { 
                    \arrayrulewidth * \l_@@_multiplicity_int 
                    + \doublerulesep * ( \l_@@_multiplicity_int - 1 ) 
                  }
              }
          }
      }
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_v_custom_line:n #1 
  {
    \@@_compute_rule_width:n { #1 }
%    \end{macrocode}
% In the following line, the |\dim_use:N| is mandatory since we do an expansion.
%    \begin{macrocode}
    \tl_gput_right:Ne \g_@@_array_preamble_tl
      { \exp_not:N ! { \skip_horizontal:n { \dim_use:N \l_@@_rule_width_dim } } }
    \tl_gput_right:Ne \g_@@_pre_code_after_tl
      { 
        \@@_vline:n 
          { 
            #1 , 
            position = \int_eval:n { \c@jCol + 1 } ,
            total-width = \dim_use:N \l_@@_rule_width_dim 
          } 
      }
    \@@_rec_preamble:n
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_custom_line:n 
  { letter = : , command = hdottedline , ccommand = cdottedline, dotted }
%    \end{macrocode}
%
% \subsubsection*{The key hvlines}
%
% The following command tests whether the current position in the array (given by
% |\l_tmpa_tl| for the row and |\l_tmpb_tl| for the column) would provide an
% horizontal rule towards the right in the block delimited by the four arguments
% |#1|, |#2|, |#3| and |#4|. If this rule would be in the block (it must not be
% drawn), the boolean |\l_tmpa_bool| is set to |false|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_hline_in_block:nnnnn #1 #2 #3 #4 #5
  {
    \int_compare:nNnT \l_tmpa_tl > { #1 } 
      {
        \int_compare:nNnT \l_tmpa_tl < { #3 + 1 } 
          { 
            \int_compare:nNnT \l_tmpb_tl > { #2 - 1 } 
              { 
                \int_compare:nNnT \l_tmpb_tl < { #4 + 1 } 
                  { \bool_gset_false:N \g_tmpa_bool }
              }
          }
      }
  }
%    \end{macrocode}
%
% The same for vertical rules.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_vline_in_block:nnnnn #1 #2 #3 #4 #5
  {
    \int_compare:nNnT \l_tmpa_tl > { #1 - 1 } 
      { 
        \int_compare:nNnT \l_tmpa_tl < { #3 + 1 } 
          { 
            \int_compare:nNnT \l_tmpb_tl > { #2 } 
              { 
                \int_compare:nNnT \l_tmpb_tl < { #4 + 1 } 
                  { \bool_gset_false:N \g_tmpa_bool }
              }
          }
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_hline_in_stroken_block:nnnn #1 #2 #3 #4
  {
    \int_compare:nNnT \l_tmpb_tl > { #2 - 1 } 
      { 
        \int_compare:nNnT \l_tmpb_tl < { #4 + 1 } 
          {
            \int_compare:nNnTF \l_tmpa_tl = { #1 } 
              { \bool_gset_false:N \g_tmpa_bool }
              { 
                \int_compare:nNnT \l_tmpa_tl = { #3 + 1 } 
                  { \bool_gset_false:N \g_tmpa_bool }
              }
          }
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_test_vline_in_stroken_block:nnnn #1 #2 #3 #4
  {
    \int_compare:nNnT \l_tmpa_tl > { #1 - 1 } 
      {
        \int_compare:nNnT \l_tmpa_tl < { #3 + 1 } 
          {
            \int_compare:nNnTF \l_tmpb_tl = { #2 } 
              { \bool_gset_false:N \g_tmpa_bool }
              { 
                \int_compare:nNnT \l_tmpb_tl = { #4 + 1 } 
                  { \bool_gset_false:N \g_tmpa_bool }
              }
          }
      }
  }
%    \end{macrocode}
% 
% \bigskip
% \section{The empty corners}
%
% When the key |corners| is raised, the rules are not drawn in the corners; they
% are not colored and |\TikzEveryCell| does not apply. Of course, we have to
% compute the corners before we begin to draw the rules.
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_compute_corners:
  {
    \seq_map_inline:Nn \g_@@_pos_of_blocks_seq
      { \@@_mark_cells_of_block:nnnnn ##1 }
%    \end{macrocode}
% The list |\l_@@_corners_cells_clist| will be the list of all the
% empty cells (and not in a block) considered in the corners of the array. We
% use a |clist| instead of a |seq| because we will frequently search in that
% list (and searching in a |clist| is faster than searching in a |seq|).
%    \begin{macrocode}
    \clist_clear:N \l_@@_corners_cells_clist
    \clist_map_inline:Nn \l_@@_corners_clist 
      {
        \str_case:nnF { ##1 }
          {
            { NW } 
            { \@@_compute_a_corner:nnnnnn 1 1 1 1 \c@iRow \c@jCol }
            { NE } 
            { \@@_compute_a_corner:nnnnnn 1 \c@jCol 1 { -1 } \c@iRow 1 }
            { SW } 
            { \@@_compute_a_corner:nnnnnn \c@iRow 1 { -1 } 1 1 \c@jCol }
            { SE } 
            { \@@_compute_a_corner:nnnnnn \c@iRow \c@jCol { -1 } { -1 } 1 1 } 
          }
          { \@@_error:nn { bad~corner } { ##1 } }
      }
%    \end{macrocode}
% Even if the user has used the key |corners| the list of cells in the corners
% may be empty. 
%    \begin{macrocode}
    \clist_if_empty:NF \l_@@_corners_cells_clist
      {
%    \end{macrocode}
% You write on the |aux| file the list of the cells which are in the (empty)
% corners because you need that information in the |\CodeBefore| since the
% commands which colors the |rows|, |columns| and |cells| must not color the
% cells in the corners.
%    \begin{macrocode}
        \tl_gput_right:Ne \g_@@_aux_tl
          {
            \cs_set_nopar:Npn \exp_not:N \l_@@_corners_cells_clist 
              { \l_@@_corners_cells_clist }
          }
      }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_mark_cells_of_block:nnnnn #1 #2 #3 #4 #5 
  {
    \int_step_inline:nnn { #1 } { #3 }
      {
        \int_step_inline:nnn { #2 } { #4 }
          { \cs_set_nopar:cpn { @@ _ block _ ##1 - ####1 } { } }
      }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\prg_new_conditional:Npnn \@@_if_in_block:nn #1 #2 { p }
  {
    \cs_if_exist:cTF 
      { @@ _ block _ \int_eval:n { #1 } - \int_eval:n { #2 } }
      \prg_return_true: 
      \prg_return_false: 
  }
%    \end{macrocode}
% 
% \bigskip
% ``Computing a corner'' is determining all the empty cells (which are not in a
% block) that belong to that corner. These cells will be added to the sequence 
% |\l_@@_corners_cells_clist|.
% 
% \medskip
% The six arguments of |\@@_compute_a_corner:nnnnnn| are as follow:
% \begin{itemize}
% \item |#1| and |#2| are the number of row and column of the cell which is
% actually in the corner;
% \item |#3| and |#4| are the steps in rows and the step in columns when moving
% from the corner;
% \item |#5| is the number of the final row when scanning the rows from the
% corner;
% \item |#6| is the number of the final column when scanning the columns from
% the corner.
% \end{itemize}
%    \begin{macrocode}
\cs_new_protected:Npn \@@_compute_a_corner:nnnnnn #1 #2 #3 #4 #5 #6
  {
%    \end{macrocode}
% For the explanations and the name of the variables, we consider that we are
% computing the left-upper corner.
% 
% First, we try to determine which is the last empty cell (and not in a block:
% we won't add that precision any longer) in the column of number~$1$. The flag
% |\l_tmpa_bool| will be raised when a non-empty cell is found.
%    \begin{macrocode}
    \bool_set_false:N \l_tmpa_bool
    \int_zero_new:N \l_@@_last_empty_row_int 
    \int_set:Nn \l_@@_last_empty_row_int { #1 }
    \int_step_inline:nnnn { #1 } { #3 } { #5 }
      {
        \bool_lazy_or:nnTF
          {
            \cs_if_exist_p:c
              { pgf @ sh @ ns @ \@@_env: - ##1 - \int_eval:n { #2 } }
          }
          { \@@_if_in_block_p:nn { ##1 } { #2 } }
          { \bool_set_true:N \l_tmpa_bool }
          { 
            \bool_if:NF \l_tmpa_bool
              { \int_set:Nn \l_@@_last_empty_row_int { ##1 } }
          }
      }
%    \end{macrocode}
% Now, you determine the last empty cell in the row of number~$1$.
%    \begin{macrocode}
    \bool_set_false:N \l_tmpa_bool
    \int_zero_new:N \l_@@_last_empty_column_int 
    \int_set:Nn \l_@@_last_empty_column_int { #2 }
    \int_step_inline:nnnn { #2 } { #4 } { #6 }
      {
        \bool_lazy_or:nnTF 
          {
            \cs_if_exist_p:c
              { pgf @ sh @ ns @ \@@_env: - \int_eval:n { #1 } - ##1 }
          }
          { \@@_if_in_block_p:nn { #1 } { ##1 } }
          { \bool_set_true:N \l_tmpa_bool }
          { 
            \bool_if:NF \l_tmpa_bool
              { \int_set:Nn \l_@@_last_empty_column_int { ##1 } }
          }  
      }
%    \end{macrocode}
% Now, we loop over the rows.
%    \begin{macrocode}
    \int_step_inline:nnnn { #1 } { #3 } \l_@@_last_empty_row_int
      {
%    \end{macrocode}
% We treat the row number |##1| with another loop.
%    \begin{macrocode}
        \bool_set_false:N \l_tmpa_bool
        \int_step_inline:nnnn { #2 } { #4 } \l_@@_last_empty_column_int
          {
            \bool_lazy_or:nnTF
              { \cs_if_exist_p:c { pgf @ sh @ ns @ \@@_env: - ##1 - ####1 } }
              { \@@_if_in_block_p:nn  { ##1 } { ####1 } }
              { \bool_set_true:N \l_tmpa_bool }
              { 
                \bool_if:NF \l_tmpa_bool
                  { 
                    \int_set:Nn \l_@@_last_empty_column_int { ####1 } 
                    \clist_put_right:Nn 
                      \l_@@_corners_cells_clist 
                      { ##1 - ####1 }
                    \cs_set_nopar:cpn { @@ _ corner _ ##1 - ####1 } { }
                  }
              }
          }
      }
  }
%    \end{macrocode}
%
% 
% \bigskip
% Of course, instead of the following lines, we could have use
% |\prg_new_conditional:Npnn|. 
%    \begin{macrocode}
\cs_new:Npn \@@_if_in_corner:nT #1 { \cs_if_exist:cT { @@ _ corner _ #1 } }
\cs_new:Npn \@@_if_in_corner:nF #1 { \cs_if_exist:cF { @@ _ corner _ #1 } }
%    \end{macrocode}
%
% Instead of the previous lines, we could have used |\l_@@_corners_cells_clist|
% but it's less efficient:
% 
% \verb|\clist_if_in:NeT \l_@@_corners_cells_clist { #1 } ...|
%
% \bigskip 
% \section{The environment \{NiceMatrixBlock\}}
%
% The following flag will be raised when all the columns of the environments of
% the block must have the same width in ``auto'' mode.
%    \begin{macrocode}
\bool_new:N \l_@@_block_auto_columns_width_bool
%    \end{macrocode}
%
% \bigskip
% Up to now, there is only one option available for the environment
% |{NiceMatrixBlock}|. 
%    \begin{macrocode}
\keys_define:nn { nicematrix / NiceMatrixBlock } 
  {
    auto-columns-width .code:n = 
      { 
        \bool_set_true:N \l_@@_block_auto_columns_width_bool
        \dim_gzero_new:N \g_@@_max_cell_width_dim
        \bool_set_true:N \l_@@_auto_columns_width_bool
      }
  }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\NewDocumentEnvironment { NiceMatrixBlock } { ! O { } }
  {
    \int_gincr:N \g_@@_NiceMatrixBlock_int
    \dim_zero:N \l_@@_columns_width_dim
    \keys_set:nn { nicematrix / NiceMatrixBlock } { #1 }
    \bool_if:NT \l_@@_block_auto_columns_width_bool
      {
        \cs_if_exist:cT 
          { @@_max_cell_width_ \int_use:N \g_@@_NiceMatrixBlock_int }
          {
            \dim_set:Nn \l_@@_columns_width_dim
              { 
                \use:c 
                  { @@_max_cell_width _ \int_use:N \g_@@_NiceMatrixBlock_int }
              } 
          } 
      }
  }
%    \end{macrocode}
%
% \medskip
% At the end of the environment |{NiceMatrixBlock}|, we write in the main |aux|
% file instructions for the column width of all the environments of the block
% (that's why we have stored the number of the first environment of the block in
% the counter |\l_@@_first_env_block_int|). 
%    \begin{macrocode}
  { 
    \legacy_if:nTF { measuring@ }
%    \end{macrocode}
% If |{NiceMatrixBlock}| is used in an environment of \pkg{amsmath} such as
% |{align}|: cf. question 694957 on TeX StackExchange. The most important line
% in that case is the following one.
%    \begin{macrocode}
      { \int_gdecr:N \g_@@_NiceMatrixBlock_int }
      {
        \bool_if:NT \l_@@_block_auto_columns_width_bool
          {
            \iow_shipout:Nn \@mainaux \ExplSyntaxOn
            \iow_shipout:Ne \@mainaux         
              { 
                \cs_gset:cpn 
                  { @@ _ max _ cell _ width _ \int_use:N \g_@@_NiceMatrixBlock_int } 
%    \end{macrocode}
% For technical reasons, we have to include the width of a potential rule on the
% right side of the cells.
%    \begin{macrocode}
                  { \dim_eval:n { \g_@@_max_cell_width_dim + \arrayrulewidth } }
              }
            \iow_shipout:Nn \@mainaux \ExplSyntaxOff
          }
      }
    \ignorespacesafterend
  }
%    \end{macrocode}
%
% 
%
% \section{The extra nodes}
%
%
% 
% \bigskip
% The following command is called in |\@@_use_arraybox_with_notes_c:| just
% before the construction of the blocks (if the creation of medium nodes is
% required, medium nodes are also created for the blocks and that construction
% uses the standard medium nodes).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_extra_nodes:
  {
    \bool_if:nTF \l_@@_medium_nodes_bool
      { 
        \bool_if:NTF \l_@@_large_nodes_bool
          \@@_create_medium_and_large_nodes:
          \@@_create_medium_nodes:
      }
      { \bool_if:NT \l_@@_large_nodes_bool \@@_create_large_nodes: }
  }
%    \end{macrocode}
%
%
% \bigskip
% We have three macros of creation of nodes: |\@@_create_medium_nodes:|,
% |\@@_create_large_nodes:| and |\@@_create_medium_and_large_nodes:|. 
%
%
% \bigskip
% We have to compute the mathematical coordinates of the ``medium nodes''. These
% mathematical coordinates are also used to compute the mathematical coordinates
% of the ``large nodes''. That's why we write a command
% |\@@_computations_for_medium_nodes:| to do these computations.
% 
% \bigskip
% The command |\@@_computations_for_medium_nodes:| must be used in a
% |{pgfpicture}|.
%
% \medskip
% For each row $i$, we compute two dimensions
% \texttt{l_@@_row_\textsl{i}_min_dim} and \texttt{l_@@_row_\textsl{i}_max_dim}.
% The dimension \texttt{l_@@_row_\textsl{i}_min_dim} is the minimal 
% $y$-value of all the cells of the row~$i$. The dimension
% \texttt{l_@@_row_\textsl{i}_max_dim} is the maximal $y$-value of all the cells
% of the row~$i$. 
%
% Similarly, for each column $j$, we compute two dimensions
% \texttt{l_@@_column_\textsl{j}_min_dim} and
% \texttt{l_@@_column_\textsl{j}_max_dim}. The dimension
% \texttt{l_@@_column_\textsl{j}_min_dim} is the minimal $x$-value of all the
% cells of the column~$j$. The dimension \texttt{l_@@_column_\textsl{j}_max_dim}
% is the maximal $x$-value of all the cells of the column~$j$.
%
% Since these dimensions will be computed as maximum or minimum, we initialize
% them to |\c_max_dim| or |-\c_max_dim|. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_computations_for_medium_nodes:
  {
    \int_step_variable:nnNn \l_@@_first_row_int \g_@@_row_total_int \@@_i:
      { 
        \dim_zero_new:c { l_@@_row_\@@_i: _min_dim } 
        \dim_set_eq:cN { l_@@_row_\@@_i: _min_dim } \c_max_dim
        \dim_zero_new:c { l_@@_row_\@@_i: _max_dim } 
        \dim_set:cn { l_@@_row_\@@_i: _max_dim } { - \c_max_dim }
      }
    \int_step_variable:nnNn \l_@@_first_col_int \g_@@_col_total_int \@@_j:
      {
        \dim_zero_new:c { l_@@_column_\@@_j: _min_dim } 
        \dim_set_eq:cN { l_@@_column_\@@_j: _min_dim } \c_max_dim
        \dim_zero_new:c { l_@@_column_\@@_j: _max_dim } 
        \dim_set:cn { l_@@_column_\@@_j: _max_dim } { - \c_max_dim }
      }
%    \end{macrocode}
% We begin the two nested loops over the rows and the columns of the array.
%    \begin{macrocode}
    \int_step_variable:nnNn \l_@@_first_row_int \g_@@_row_total_int \@@_i:
      { 
        \int_step_variable:nnNn 
          \l_@@_first_col_int \g_@@_col_total_int \@@_j: 
%    \end{macrocode}
% If the cell ($i$-$j$) is empty or an implicit cell (that is to say a cell
% after implicit ampersands |&|) we don't update the dimensions we want to
% compute.
%    \begin{macrocode}
          { 
            \cs_if_exist:cT 
              { pgf @ sh @ ns @ \@@_env: - \@@_i: - \@@_j: }
%    \end{macrocode}
% We retrieve the coordinates of the anchor |south west| of the (normal) node of
% the cell ($i$-$j$). They will be stored in |\pgf@x| and |\pgf@y|.
%    \begin{macrocode}
              {
                \pgfpointanchor { \@@_env: - \@@_i: - \@@_j: } { south~west }
                \dim_set:cn { l_@@_row_\@@_i: _min_dim}
                  { \dim_min:vn { l_@@_row _ \@@_i: _min_dim } \pgf@y }  
                \seq_if_in:NeF \g_@@_multicolumn_cells_seq { \@@_i: - \@@_j: }
                  { 
                    \dim_set:cn { l_@@_column _ \@@_j: _min_dim}
                      { \dim_min:vn { l_@@_column _ \@@_j: _min_dim } \pgf@x }
                  }
%    \end{macrocode}
% We retrieve the coordinates of the anchor |north east| of the (normal) node of
% the cell ($i$-$j$). They will be stored in |\pgf@x| and |\pgf@y|.
%    \begin{macrocode}
                \pgfpointanchor { \@@_env: - \@@_i: - \@@_j: } { north~east }
                \dim_set:cn { l_@@_row _ \@@_i: _ max_dim }
                  { \dim_max:vn { l_@@_row _ \@@_i: _ max_dim } \pgf@y }
                \seq_if_in:NeF \g_@@_multicolumn_cells_seq { \@@_i: - \@@_j: }
                  { 
                    \dim_set:cn { l_@@_column _ \@@_j: _ max_dim }
                      { \dim_max:vn { l_@@_column _ \@@_j: _max_dim } \pgf@x }
                  } 
              }
          }
      }
%    \end{macrocode}
% Now, we have to deal with empty rows or empty columns since we don't have
% created nodes in such rows and columns.
%    \begin{macrocode}
    \int_step_variable:nnNn \l_@@_first_row_int \g_@@_row_total_int \@@_i:
      { 
        \dim_compare:nNnT 
          { \dim_use:c { l_@@_row _ \@@_i: _ min _ dim } } = \c_max_dim
          { 
            \@@_qpoint:n { row - \@@_i: - base }
            \dim_set:cn { l_@@_row _ \@@_i: _ max _ dim } \pgf@y 
            \dim_set:cn { l_@@_row _ \@@_i: _ min _ dim } \pgf@y 
          }
      }
    \int_step_variable:nnNn \l_@@_first_col_int \g_@@_col_total_int \@@_j:
      {
        \dim_compare:nNnT 
          { \dim_use:c { l_@@_column _ \@@_j: _ min _ dim } } = \c_max_dim 
          { 
            \@@_qpoint:n { col - \@@_j: }
            \dim_set:cn { l_@@_column _ \@@_j: _ max _ dim } \pgf@y 
            \dim_set:cn { l_@@_column _ \@@_j: _ min _ dim } \pgf@y 
          }
      }
  }
%    \end{macrocode}
%
%
% \bigskip
% Here is the command |\@@_create_medium_nodes:|. When this command is used, the
% ``medium nodes'' are created. 
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_medium_nodes:
  {
    \pgfpicture
      \pgfrememberpicturepositiononpagetrue
      \pgf@relevantforpicturesizefalse
      \@@_computations_for_medium_nodes:
%    \end{macrocode}
% Now, we can create the ``medium nodes''. We use a command |\@@_create_nodes:|
% because this command will also be used for the creation of the ``large nodes''.
%    \begin{macrocode} 
      \cs_set_nopar:Npn \l_@@_suffix_tl { -medium }
      \@@_create_nodes:
      \endpgfpicture
  }
%    \end{macrocode}
% 
%
% \medskip
% The command |\@@_create_large_nodes:| must be used when we want to create only
% the ``large nodes'' and not the medium ones\footnote{If we want to create
% both, we have to use |\@@_create_medium_and_large_nodes:|}. However, the
% computation of the mathematical coordinates of the ``large nodes'' needs the
% computation of the mathematical coordinates of the ``medium nodes''. Hence, we
% use first |\@@_computations_for_medium_nodes:| and then the command
% |\@@_computations_for_large_nodes:|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_large_nodes:
  {
    \pgfpicture 
      \pgfrememberpicturepositiononpagetrue
      \pgf@relevantforpicturesizefalse
      \@@_computations_for_medium_nodes:
      \@@_computations_for_large_nodes:
      \cs_set_nopar:Npn \l_@@_suffix_tl { - large }
      \@@_create_nodes:
    \endpgfpicture
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_create_medium_and_large_nodes:
  {
    \pgfpicture 
      \pgfrememberpicturepositiononpagetrue
      \pgf@relevantforpicturesizefalse
      \@@_computations_for_medium_nodes:
%    \end{macrocode}
% Now, we can create the ``medium nodes''. We use a command |\@@_create_nodes:|
% because this command will also be used for the creation of the ``large nodes''.
%    \begin{macrocode} 
      \cs_set_nopar:Npn \l_@@_suffix_tl { - medium }
      \@@_create_nodes:
      \@@_computations_for_large_nodes:
      \cs_set_nopar:Npn \l_@@_suffix_tl { - large }
      \@@_create_nodes: 
    \endpgfpicture
  }
%    \end{macrocode}
%
%
% \bigskip
% For ``large nodes'', the exterior rows and columns don't interfer. That's why
% the loop over the columns will start at 1 and stop at $|\c@jCol|$ (and not
% |\g_@@_col_total_int|). Idem for the rows.
%     \begin{macrocode}
\cs_new_protected:Npn \@@_computations_for_large_nodes:
  {
    \int_set_eq:NN \l_@@_first_row_int \c_one_int
    \int_set_eq:NN \l_@@_first_col_int \c_one_int
%    \end{macrocode}
% We have to change the values of all the dimensions
% \texttt{l_@@_row_\textsl{i}_min_dim}, \texttt{l_@@_row_\textsl{i}_max_dim},
% \texttt{l_@@_column_\textsl{j}_min_dim} and
% \texttt{l_@@_column_\textsl{j}_max_dim}.  
%    \begin{macrocode} 
    \int_step_variable:nNn { \c@iRow - 1 } \@@_i:
      { 
        \dim_set:cn { l_@@_row _ \@@_i: _ min _ dim }  
          {
            (  
              \dim_use:c { l_@@_row _ \@@_i: _ min _ dim } + 
              \dim_use:c { l_@@_row _ \int_eval:n { \@@_i: + 1 }  _ max _ dim }
            ) 
            / 2
          }
        \dim_set_eq:cc { l_@@_row _ \int_eval:n { \@@_i: + 1 } _ max _ dim } 
          { l_@@_row_\@@_i: _min_dim } 
      }
    \int_step_variable:nNn { \c@jCol - 1 } \@@_j:
      { 
        \dim_set:cn { l_@@_column _ \@@_j: _ max _ dim }  
          { 
            (  
              \dim_use:c { l_@@_column _ \@@_j: _ max _ dim } + 
              \dim_use:c 
                { l_@@_column _ \int_eval:n { \@@_j: + 1 } _ min _ dim }
            ) 
            / 2
          }
        \dim_set_eq:cc { l_@@_column _ \int_eval:n { \@@_j: + 1 } _ min _ dim }
          { l_@@_column _ \@@_j: _ max _ dim } 
      }
%    \end{macrocode}
% Here, we have to use |\dim_sub:cn| because of the number 1 in the name.
%    \begin{macrocode}
    \dim_sub:cn 
      { l_@@_column _ 1 _ min _ dim } 
      \l_@@_left_margin_dim
    \dim_add:cn 
      { l_@@_column _ \int_use:N \c@jCol _ max _ dim }
      \l_@@_right_margin_dim  
  }
%    \end{macrocode}
%
%
%
% \bigskip
% The command |\@@_create_nodes:| is used twice: for the construction
% of the ``medium nodes'' and for the construction of the ``large nodes''. The
% nodes are constructed with the value of all the dimensions
% \texttt{l_@@_row_\textsl{i}_min_dim}, \texttt{l_@@_row_\textsl{i}_max_dim},
% \texttt{l_@@_column_\textsl{j}_min_dim} and
% \texttt{l_@@_column_\textsl{j}_max_dim}. Between the construction of the
% ``medium nodes'' and the ``large nodes'', the values of these dimensions are
% changed. 
%
% The function also uses |\l_@@_suffix_tl| (|-medium| or |-large|).
%     \begin{macrocode}
\cs_new_protected:Npn \@@_create_nodes:
  { 
    \int_step_variable:nnNn \l_@@_first_row_int \g_@@_row_total_int \@@_i:
      { 
        \int_step_variable:nnNn \l_@@_first_col_int \g_@@_col_total_int \@@_j:
          {
%    \end{macrocode}
% We draw the rectangular node for the cell (|\@@_i|-|\@@_j|).
%    \begin{macrocode}
            \@@_pgf_rect_node:nnnnn
              { \@@_env: - \@@_i: - \@@_j: \l_@@_suffix_tl } 
              { \dim_use:c { l_@@_column_ \@@_j: _min_dim } }
              { \dim_use:c { l_@@_row_ \@@_i: _min_dim } }
              { \dim_use:c { l_@@_column_ \@@_j: _max_dim } }
              { \dim_use:c { l_@@_row_ \@@_i: _max_dim } }
            \str_if_empty:NF \l_@@_name_str
              {
                \pgfnodealias
                  { \l_@@_name_str - \@@_i: - \@@_j: \l_@@_suffix_tl }
                  { \@@_env: - \@@_i: - \@@_j: \l_@@_suffix_tl }
              }
          }
      }
%    \end{macrocode}
% Now, we create the nodes for the cells of the |\multicolumn|. We recall that
% we have stored in |\g_@@_multicolumn_cells_seq| the list of the cells where a
% |\multicolumn{|$n$|}{...}{...}| with $n$>1 was issued and in
% |\g_@@_multicolumn_sizes_seq| the correspondant values of $n$. 
%    \begin{macrocode}
      \seq_map_pairwise_function:NNN 
      \g_@@_multicolumn_cells_seq 
      \g_@@_multicolumn_sizes_seq
      \@@_node_for_multicolumn:nn
  }
%    \end{macrocode}
%
%
% \bigskip
%    \begin{macrocode}
\cs_new_protected:Npn \@@_extract_coords_values: #1 - #2 \q_stop
  { 
    \cs_set_nopar:Npn \@@_i: { #1 } 
    \cs_set_nopar:Npn \@@_j: { #2 }
  }
%    \end{macrocode}
%
% The command |\@@_node_for_multicolumn:nn| takes two arguments. The first is
% the position of the cell where the command |\multicolumn{|$n$|}{...}{...}| was
% issued in the format $i$|-|$j$ and the second is the value of~$n$ (the length
% of the ``multi-cell''). 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_node_for_multicolumn:nn #1 #2
  { 
    \@@_extract_coords_values: #1 \q_stop
    \@@_pgf_rect_node:nnnnn
      { \@@_env: - \@@_i: - \@@_j: \l_@@_suffix_tl }
      { \dim_use:c { l_@@_column _ \@@_j: _ min _ dim } }
      { \dim_use:c { l_@@_row _ \@@_i: _ min _ dim } }
      { \dim_use:c { l_@@_column _ \int_eval:n { \@@_j: +#2-1 } _ max _ dim } }  
      { \dim_use:c { l_@@_row _ \@@_i: _ max _ dim } }
    \str_if_empty:NF \l_@@_name_str
      {
        \pgfnodealias
          { \l_@@_name_str - \@@_i: - \@@_j: \l_@@_suffix_tl }
          { \int_use:N \g_@@_env_int - \@@_i: - \@@_j: \l_@@_suffix_tl}
      }
  }
%    \end{macrocode}
%
% \bigskip
% \section{The blocks}
%
% The following code deals with the command |\Block|. This command has no direct
% link with the environment |{NiceMatrixBlock}|.
%
% \bigskip
% The options of the command |\Block| will be analyzed first in the cell of the
% array (and once again when the block will be put in the array).
% Here is the set of keys for the first pass (in the cell of the array).
%    \begin{macrocode}
\keys_define:nn { nicematrix / Block / FirstPass }
  {
    j .code:n = \str_set:Nn \l_@@_hpos_block_str j 
                \bool_set_true:N \l_@@_p_block_bool , 
    j .value_forbidden:n = true ,
    l .code:n = \str_set:Nn \l_@@_hpos_block_str l ,
    l .value_forbidden:n = true ,
    r .code:n = \str_set:Nn \l_@@_hpos_block_str r ,
    r .value_forbidden:n = true ,
    c .code:n = \str_set:Nn \l_@@_hpos_block_str c ,
    c .value_forbidden:n = true ,
    L .code:n = \str_set:Nn \l_@@_hpos_block_str l ,
    L .value_forbidden:n = true ,
    R .code:n = \str_set:Nn \l_@@_hpos_block_str r ,
    R .value_forbidden:n = true ,
    C .code:n = \str_set:Nn \l_@@_hpos_block_str c ,
    C .value_forbidden:n = true ,
    t .code:n = \str_set:Nn \l_@@_vpos_block_str t ,
    t .value_forbidden:n = true ,
    T .code:n = \str_set:Nn \l_@@_vpos_block_str T ,
    T .value_forbidden:n = true ,
    b .code:n = \str_set:Nn \l_@@_vpos_block_str b ,
    b .value_forbidden:n = true ,
    B .code:n = \str_set:Nn \l_@@_vpos_block_str B ,
    B .value_forbidden:n = true ,
    m .code:n = \str_set:Nn \l_@@_vpos_block_str c , 
    m .value_forbidden:n = true ,
    v-center .meta:n = m ,
    p .code:n = \bool_set_true:N \l_@@_p_block_bool , 
    p .value_forbidden:n = true ,
    color .code:n = 
      \@@_color:n { #1 }
      \tl_set_rescan:Nnn 
        \l_@@_draw_tl 
        { \char_set_catcode_other:N ! }
        { #1 } ,
    color .value_required:n = true ,
    respect-arraystretch .code:n = 
      \cs_set_eq:NN \@@_reset_arraystretch: \prg_do_nothing: ,
    respect-arraystretch .value_forbidden:n = true , 
  }
%    \end{macrocode}
%
% 
% 
% The following command |\@@_Block:| will be linked to |\Block| in the
% environments of \pkg{nicematrix}. We define it with
% |\NewExpandableDocumentCommand| because it has an optional argument between~
% |<| and~|>|. It's mandatory to use an expandable command.
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_Block: { \@@_collect_options:n { \@@_Block_i: } }
%    \end{macrocode}
% 
% \bigskip
%    \begin{macrocode}
\NewExpandableDocumentCommand \@@_Block_i: { m m D < > { } +m }
  { 
%    \end{macrocode}
% If the first mandatory argument of the command (which is the size of the block
% with the syntax $i$|-|$j$) has not been provided by the user, you use |1-1|
% (that is to say a block of only one cell).
%    \begin{macrocode}
    \peek_remove_spaces:n
      {
        \tl_if_blank:nTF { #2 } 
          { \@@_Block_ii:nnnnn \c_one_int \c_one_int } 
          { 
            \int_compare:nNnTF { \char_value_catcode:n { 45 } } = { 13 }
            \@@_Block_i_czech \@@_Block_i 
            #2 \q_stop  
          }
        { #1 } { #3 } { #4 } 
      }
  }
%    \end{macrocode}
% 
% \medskip
% With the following construction, we extract the values of $i$ and $j$ in the
% first mandatory argument of the command.
%    \begin{macrocode}
\cs_new:Npn \@@_Block_i #1-#2 \q_stop { \@@_Block_ii:nnnnn { #1 } { #2 } }
%    \end{macrocode}
%
% With \pkg{babel} with the key |czech|, the character |-| (hyphen) is active.
% That's why we need a special version. Remark that we could not use a
% preprocessor in the command |\@@_Block:| to do the job because the command
% |\@@_Block:| is defined with the command |\NewExpandableDocumentCommand|.
%    \begin{macrocode}
{
  \char_set_catcode_active:N - 
  \cs_new:Npn \@@_Block_i_czech #1-#2 \q_stop { \@@_Block_ii:nnnnn { #1 } { #2 } }
}
%    \end{macrocode}
%
% \medskip
% Now, the arguments have been extracted: 
% |#1| is $i$ (the number of rows of the block), |#2| is $j$ (the number of
% columns of the block), |#3| is the list of \textsl{key=values} pairs, |#4| are
% the tokens to put before the math mode and before the composition of the block
% and |#5| is the label (=content) of the block.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_Block_ii:nnnnn #1 #2 #3 #4 #5
  {
%    \end{macrocode}
%
% \medskip
% We recall that |#1| and |#2| have been extracted from the first mandatory
% argument of |\Block| (which is of the syntax $i$|-|$j$). However, the user is
% allowed to omit $i$ or $j$ (or both). We detect that situation by replacing a
% missing value by 100 (it's a convention: when the block will actually be drawn
% these values will be detected and interpreted as \emph{maximal possible
% value} according to the actual size of the array).
%    \begin{macrocode}
    \bool_lazy_or:nnTF
      { \tl_if_blank_p:n { #1 } }
      { \str_if_eq_p:ee { * } { #1 } }
      { \int_set:Nn \l_tmpa_int { 100 } }
      { \int_set:Nn \l_tmpa_int { #1 } }
    \bool_lazy_or:nnTF
      { \tl_if_blank_p:n { #2 } }
      { \str_if_eq_p:ee { * } { #2 } }
      { \int_set:Nn \l_tmpb_int { 100 } }
      { \int_set:Nn \l_tmpb_int { #2 } }
%    \end{macrocode}
%
% \medskip
% If the block is mono-column.
%    \begin{macrocode}
    \int_compare:nNnTF \l_tmpb_int = \c_one_int
      {
        \tl_if_empty:NTF \l_@@_hpos_cell_tl
          { \str_set_eq:NN \l_@@_hpos_block_str \c_@@_c_str }
          { \str_set:No \l_@@_hpos_block_str \l_@@_hpos_cell_tl }
      }
      { \str_set_eq:NN \l_@@_hpos_block_str \c_@@_c_str }
%    \end{macrocode}
% The value of |\l_@@_hpos_block_str| may be modified by the keys of the
% command |\Block| that we will analyze now.
%
% \medskip
%    \begin{macrocode}
    \keys_set_known:nn { nicematrix / Block / FirstPass } { #3 } 
%    \end{macrocode}
%
%    \begin{macrocode}
    \tl_set:Ne \l_tmpa_tl
      {
        { \int_use:N \c@iRow }
        { \int_use:N \c@jCol }
        { \int_eval:n { \c@iRow + \l_tmpa_int - 1 } }
        { \int_eval:n { \c@jCol + \l_tmpb_int - 1 } }
      }
%    \end{macrocode}
% Now, |\l_tmpa_tl|  contains an ``object'' corresponding to the position of the
% block with four components, each of them surrounded by curly brackets:
%
% |{|\textsl{imin}|}{|\textsl{jmin}|}{|\textsl{imax}|}{|\textsl{jmax}|}|.
% 
%
% \medskip
% We have different treatments when the key |p| is used and when the block is
% mono-column or mono-row, etc. That's why we have several macros:
% |\@@_Block_iv:nnnnn|, |\@@_Block_v:nnnnn|, |\@@_Block_vi:nnnn|, etc. (the five
% arguments of those macros are provided by curryfication).
%    \begin{macrocode}
    \bool_set_false:N \l_tmpa_bool
    \bool_if:NT \l_@@_amp_in_blocks_bool
%    \end{macrocode}
% |\tl_if_in:nnT| is slightly faster than |\str_if_in:nnT|.
%    \begin{macrocode}
      { \tl_if_in:nnT { #5 } { & } { \bool_set_true:N \l_tmpa_bool } }
    \bool_case:nF
      { 
        \l_tmpa_bool                                    { \@@_Block_vii:eennn }
        \l_@@_p_block_bool                              { \@@_Block_vi:eennn } 
%    \end{macrocode}
% For the blocks mono-column, we will compose right now in a box in order to
% compute its width and take that width into account for the width of the
% column. However, if the column is a |X| column, we should not do that since
% the width is determined by another way. This should be the same for the |p|,
% |m| and |b| columns and we should modify that point. However, for the |X|
% column, it's imperative. Otherwise, the process for the determination of the
% widths of the columns will be wrong.
%    \begin{macrocode}
        \l_@@_X_bool                                    { \@@_Block_v:eennn }
        { \tl_if_empty_p:n { #5 } }                     { \@@_Block_v:eennn }
        { \int_compare_p:nNn \l_tmpa_int = \c_one_int } { \@@_Block_iv:eennn } 
        { \int_compare_p:nNn \l_tmpb_int = \c_one_int } { \@@_Block_iv:eennn } 
      }       
      { \@@_Block_v:eennn }
    { \l_tmpa_int } { \l_tmpb_int } { #3 } { #4 } { #5 } 
  }
%    \end{macrocode}
%
% 
% \bigskip
% The following macro is for the case of a |\Block| which is mono-row or
% mono-column (or both) and don't use the key~|p|. In that case, the content of
% the block is composed right now in a box (because we have to take into account
% the dimensions of that box for the width of the current column or the height
% and the depth of the current row). However, that box will be put in the array
% \emph{after the construction of the array} (by using \textsc{pgf}) with
% |\@@_draw_blocks:| and above all |\@@_Block_v:nnnnnn| which will do the main
% job.
%
% |#1| is $i$ (the number of rows of the block), |#2| is $j$ (the number of
% columns of the block), |#3| is the list of \textsl{key=values} pairs, |#4| are
% the tokens to put before the potential math mode and before the composition of
% the block and |#5| is the label (=content) of the block.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_Block_iv:nnnnn { e e }
\cs_new_protected:Npn \@@_Block_iv:nnnnn #1 #2 #3 #4 #5
  {  
    \int_gincr:N \g_@@_block_box_int
    \cs_set_protected_nopar:Npn \diagbox ##1 ##2
      {
        \tl_gput_right:Ne \g_@@_pre_code_after_tl    
          { 
            \@@_actually_diagbox:nnnnnn 
              { \int_use:N \c@iRow }
              { \int_use:N \c@jCol }
              { \int_eval:n { \c@iRow + #1 - 1 } }
              { \int_eval:n { \c@jCol + #2 - 1 } }
              { \g_@@_row_style_tl \exp_not:n { ##1 } } 
              { \g_@@_row_style_tl \exp_not:n { ##2 } }
          }
      }  
    \box_gclear_new:c 
      { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box }
%    \end{macrocode}
% Now, we will actually compose the content of the |\Block| in a TeX box.
% \emph{Be careful}: if after the construction of the box, the boolean
% |\g_@@_rotate_bool| is raised (which means that the command |\rotate| was
% present in the content of the |\Block|) we will rotate the box but also,
% maybe, change the position of the baseline!
%    \begin{macrocode}
    \hbox_gset:cn 
      { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box }
      { 
%    \end{macrocode}
% For a mono-column block, if the user has specified a color for the column in
% the preamble of the array, we want to fix that color in the box we construct.
% We do that with |\set@color| and not |\color_ensure_current:| (in order to use
% |\color_ensure_current:| safely, you should load \pkg{l3backend} before the
% |\documentclass| with |\RequirePackage{expl3}|).
%    \begin{macrocode}
        \tl_if_empty:NTF \l_@@_color_tl
          { \int_compare:nNnT { #2 } = \c_one_int \set@color }
          { \@@_color:o \l_@@_color_tl }
%    \end{macrocode}
% If the block is mono-row, we use |\g_@@_row_style_tl| even if it has yet been
% used in the beginning of the cell where the command |\Block| has been issued
% because we want to be able to take into account a potential instruction of
% color of the font in |\g_@@_row_style_tl|.
%    \begin{macrocode}
        \int_compare:nNnT { #1 } = \c_one_int
          {
            \int_if_zero:nTF \c@iRow 
              { 
%    \end{macrocode}
%
% \bigskip
% In the following code, the value of |code-for-first-row| contains a |\Block|
% (in order to have the ``first row'' centered). But, that block will be
% executed, since it is entirely contained in the first row, the value of
% |code-for-first-row| will be inserted once again... with the same command
% |\Block|. That's why we have to nullify the command |\Block.|
% \begin{Verbatim}
% $\begin{bNiceMatrix}%
%   [
%     r,
%     first-row,
%     last-col,
%     code-for-first-row = \Block{}{\scriptstyle\color{blue} \arabic{jCol}},
%     code-for-last-col = \scriptstyle \color{blue} \arabic{iRow}
%   ]
%      &   &    &   & \\
%   -2 & 3 & -4 & 5 & \\
%   3 & -4 & 5 & -6 & \\
%   -4 & 5 & -6 & 7 & \\
%   5 & -6 & 7 & -8 & \\
% \end{bNiceMatrix}$
% \end{Verbatim}
% 
%    \begin{macrocode}
                \cs_set_eq:NN \Block \@@_NullBlock:
                \l_@@_code_for_first_row_tl
              }
              {
                \int_compare:nNnT \c@iRow = \l_@@_last_row_int 
                  {
                    \cs_set_eq:NN \Block \@@_NullBlock:
                    \l_@@_code_for_last_row_tl
                  }
              }
            \g_@@_row_style_tl
          }
%    \end{macrocode}
% The following command will be no-op when |respect-arraystretch| is in force.
%    \begin{macrocode}
        \@@_reset_arraystretch:
        \dim_zero:N \extrarowheight 
%    \end{macrocode}
% |#4| is the optional argument of the command |\Block|, provided with the
% syntax |<...>|. 
%    \begin{macrocode}
        #4
%    \end{macrocode}
% We adjust |\l_@@_hpos_block_str| when |\rotate| has been used (in the cell
% where the command |\Block| is used but maybe in |#4|, |\RowStyle|,
% |code-for-first-row|, etc.).
%    \begin{macrocode}
        \@@_adjust_hpos_rotate:
%    \end{macrocode}
% The boolean |\g_@@_rotate_bool| will be also considered \emph{after the composition
% of the box} (in order to rotate the box). 
% 
% \medskip
% Remind that we are in the command of composition of the box of the block.
% Previously, we have only done some tuning. Now, we will actually compose the
% content with a |{tabular}|, an |{array}| or a |{minipage}|.
%    \begin{macrocode}
        \bool_if:NTF \l_@@_tabular_bool
          { 
            \bool_lazy_all:nTF
              {
                { \int_compare_p:nNn { #2 } = \c_one_int }
%    \end{macrocode}
% Remind that, when the column has not a fixed width, the dimension
% |\l_@@_col_width_dim| has the conventional value of $-1$~cm.
%    \begin{macrocode}
                { ! \dim_compare_p:nNn \l_@@_col_width_dim < \c_zero_dim } 
                { ! \g_@@_rotate_bool } 
              }
%    \end{macrocode}
% When the block is mono-column in a column with a fixed width (e.g. |p{3cm}|), we
% use a |{minipage}|.
%    \begin{macrocode}
              { 
                \use:e
                  {
%    \end{macrocode}
% The |\exp_not:N| is mandatory before |\begin|.
%    \begin{macrocode}
                    \exp_not:N \begin { minipage }% 
                      [ \str_lowercase:o \l_@@_vpos_block_str ] 
                      { \l_@@_col_width_dim }
                     \str_case:on \l_@@_hpos_block_str
                       { c \centering r \raggedleft l \raggedright }
                  }
                  #5 
                \end { minipage }
              }
%    \end{macrocode}
% In the other cases, we use a |{tabular}|.
%    \begin{macrocode}
              { 
                \bool_if:NT \c_@@_testphase_table_bool
                  { \tagpdfsetup { table / tagging = presentation } }
                \use:e 
                  { 
                    \exp_not:N \begin { tabular }%
                      [ \str_lowercase:o \l_@@_vpos_block_str ] 
                      { @ { } \l_@@_hpos_block_str @ { } }
                  }  
                  #5 
                \end { tabular } 
              }
          } 
%    \end{macrocode}
% If we are in a mathematical array (|\l_@@_tabular_bool| is |false|). The
% composition is always done with an |{array}| (never with a |{minipage}|). 
%    \begin{macrocode}
          { 
            \c_math_toggle_token
            \use:e 
              { 
                \exp_not:N \begin { array }% 
                  [ \str_lowercase:o \l_@@_vpos_block_str ] 
                  { @ { } \l_@@_hpos_block_str @ { } } 
              }
              #5 
            \end { array } 
            \c_math_toggle_token 
          }
      }
%    \end{macrocode}
% The box which will contain the content of the block has now been composed. 
%
% \bigskip
% If there were |\rotate| (which raises |\g_@@_rotate_bool|) in the content of
% the |\Block|, we do a rotation of the box (and we also adjust the
% baseline of the rotated box).
%    \begin{macrocode}
    \bool_if:NT \g_@@_rotate_bool \@@_rotate_box_of_block:
%    \end{macrocode}
%
% If we are in a mono-column block, we take into account the width of that block
% for the width of the column.
%    \begin{macrocode}
    \int_compare:nNnT { #2 } = \c_one_int
      {
        \dim_gset:Nn \g_@@_blocks_wd_dim
          {
            \dim_max:nn
              \g_@@_blocks_wd_dim
              {
                \box_wd:c 
                  { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box } 
              }
          } 
      }
%    \end{macrocode}
% If we are in a mono-row block we take into account the height and the depth of
% that block for the height and the depth of the row, excepted when the block
% uses explicitely an option of vertical position.
%    \begin{macrocode}
     \bool_lazy_and:nnT
       { \int_compare_p:nNn { #1 } = \c_one_int }
%    \end{macrocode}
% If the user has not used a key for the vertical position of the block, then
% |\l_@@_vpos_block_str| remains empty.
%    \begin{macrocode}
       { \str_if_empty_p:N \l_@@_vpos_block_str }
       {
         \dim_gset:Nn \g_@@_blocks_ht_dim
           {
             \dim_max:nn
               \g_@@_blocks_ht_dim
               {
                 \box_ht:c 
                   { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box } 
               }
           } 
         \dim_gset:Nn \g_@@_blocks_dp_dim
           {
             \dim_max:nn
               \g_@@_blocks_dp_dim
               {
                 \box_dp:c 
                   { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box } 
               }
           } 
       }
    \seq_gput_right:Ne \g_@@_blocks_seq
      {   
        \l_tmpa_tl
%    \end{macrocode}
% In the list of options |#3|, maybe there is a key for the horizontal alignment
% (|l|, |r| or |c|). In that case, that key has been read and stored in
% |\l_@@_hpos_block_str|. However, maybe there were no key of the horizontal
% alignment and that's why we put a key corresponding to the value of
% |\l_@@_hpos_block_str|, which is fixed by the type of current column.
%    \begin{macrocode}
        { 
          \exp_not:n { #3 } , 
          \l_@@_hpos_block_str , 
%    \end{macrocode}
% Now, we put a key for the vertical alignment.
%    \begin{macrocode}
          \bool_if:NT \g_@@_rotate_bool 
            { 
              \bool_if:NTF \g_@@_rotate_c_bool 
                { m }
                { \int_compare:nNnT \c@iRow = \l_@@_last_row_int T }
            }
        }
        { 
          \box_use_drop:c 
            { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box } 
        }
      } 
    \bool_set_false:N \g_@@_rotate_c_bool
  }
%    \end{macrocode}
%
%
%
% \bigskip
%    \begin{macrocode}
\cs_new:Npn \@@_adjust_hpos_rotate:
  {
    \bool_if:NT \g_@@_rotate_bool
      {
        \str_set:Ne \l_@@_hpos_block_str  
          {
            \bool_if:NTF \g_@@_rotate_c_bool 
              { c }
              { 
                \str_case:onF \l_@@_vpos_block_str
                  { b l B l t r T r }
                  { \int_compare:nNnTF \c@iRow = \l_@@_last_row_int r l }  
              }
          }
      }
  }
%    \end{macrocode}
% 
% \bigskip
% Despite its name the following command rotates the box of the block \emph{but
% also does vertical adjustement of the baseline of the block}.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_rotate_box_of_block:
  {
    \box_grotate:cn  
      { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box }
      { 90 } 
    \int_compare:nNnT \c@iRow = \l_@@_last_row_int 
      {
        \vbox_gset_top:cn
          { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box }
          {
            \skip_vertical:n { 0.8 ex } 
            \box_use:c
              { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box }
          }
      }
    \bool_if:NT \g_@@_rotate_c_bool
      {
        \hbox_gset:cn
          { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box }
          {
            \c_math_toggle_token
            \vcenter 
              { 
                \box_use:c
                { g_@@_ block _ box _ \int_use:N \g_@@_block_box_int _ box }
              } 
            \c_math_toggle_token
          }
      } 
  }
%    \end{macrocode}
% 
% \bigskip
% The following macro is for the standard case, where the block is not mono-row
% and not mono-column and does not use the key |p|). In that case, the content of
% the block is \emph{not} composed right now in a box. The composition in a box
% will be done further, just after the construction of the array (cf.
% |\@@_draw_blocks:| and above all |\@@_Block_v:nnnnnn|).
%
% |#1| is $i$ (the number of rows of the block), |#2| is $j$ (the number of
% columns of the block), |#3| is the list of \textsl{key=values} pairs, |#4| are
% the tokens to put before the math mode and before the composition of the block
% and |#5| is the label (=content) of the block.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_Block_v:nnnnn { e e }
\cs_new_protected:Npn \@@_Block_v:nnnnn #1 #2 #3 #4 #5
  {
    \seq_gput_right:Ne \g_@@_blocks_seq
      {   
        \l_tmpa_tl
        { \exp_not:n { #3 } }
        {
          \bool_if:NTF \l_@@_tabular_bool
            { 
              \group_begin:
%    \end{macrocode}
% The following command will be no-op when |respect-arraystretch| is in force.
%    \begin{macrocode}
              \@@_reset_arraystretch:
              \exp_not:n
                {
                  \dim_zero:N \extrarowheight 
                  #4  
%    \end{macrocode}
% If the box is rotated (the key |\rotate| may be in the previous |#4|), the
% tabular used for the content of the cell will be constructed with a format
% |c|. In the other cases, the tabular will be constructed with a format equal
% to the key of position of the box. In other words: the alignment internal to
% the tabular is the same as the external alignment of the tabular (that is to
% say the position of the block in its zone of merged cells).
%    \begin{macrocode}
                  \bool_if:NT \c_@@_testphase_table_bool 
                     { \tag_stop:n { table } } 
                  \use:e 
                    { 
                      \exp_not:N \begin { tabular } [ \l_@@_vpos_block_str ] 
                      { @ { } \l_@@_hpos_block_str @ { } } 
                    }
                    #5 
                  \end { tabular } 
                }
              \group_end:
            } 
%    \end{macrocode}
% When we are \emph{not} in an environment |{NiceTabular}| (or similar).
%    \begin{macrocode}
            { 
              \group_begin:
%    \end{macrocode}
% The following will be no-op when |respect-arraystretch| is in force.
%    \begin{macrocode}
              \@@_reset_arraystretch:
              \exp_not:n
                {
                  \dim_zero:N \extrarowheight 
                  #4 
                  \c_math_toggle_token  
                  \use:e 
                    { 
                      \exp_not:N \begin { array } [ \l_@@_vpos_block_str ]
                      { @ { } \l_@@_hpos_block_str @ { } }
                    } 
                    #5 
                  \end { array } 
                  \c_math_toggle_token
                }
              \group_end:
            }
        }
      }  
  } 
%    \end{macrocode}
%
% \bigskip
% The following macro is for the case of a |\Block| which uses the key~|p|.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_Block_vi:nnnnn { e e }
\cs_new_protected:Npn \@@_Block_vi:nnnnn #1 #2 #3 #4 #5 
  {
    \seq_gput_right:Ne \g_@@_blocks_seq
      {   
        \l_tmpa_tl
        { \exp_not:n { #3 } }
        {
          \group_begin:
          \exp_not:n { #4 #5 }
          \group_end:
        }
      }
  }
%    \end{macrocode}
%
%
% \bigskip
% The following macro is for the case of a |\Block| which uses the key~|p|.
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_Block_vii:nnnnn { e e }
\cs_new_protected:Npn \@@_Block_vii:nnnnn #1 #2 #3 #4 #5 
  {
    \seq_gput_right:Ne \g_@@_blocks_seq
      {   
        \l_tmpa_tl
        { \exp_not:n { #3 } }
        { \exp_not:n { #4 #5 } }
      }
  }
%    \end{macrocode}
%
% 
% \bigskip
% We recall that the options of the command |\Block| are analyzed twice: first
% in the cell of the array and once again when the block will be put in the
% array \emph{after the construction of the array} (by using \textsc{pgf}).
% 
% \medskip
%   \begin{macrocode}
\keys_define:nn { nicematrix / Block / SecondPass }
  {
    ampersand-in-blocks .bool_set:N = \l_@@_amp_in_blocks_bool , 
    ampersand-in-blocks .default:n = true , 
    &-in-blocks .meta:n = ampersand-in-blocks ,
%    \end{macrocode}
% The sequence |\l_@@_tikz_seq| will contain a sequence of comma-separated lists
% of keys.
%    \begin{macrocode}
    tikz .code:n = 
      \IfPackageLoadedTF { tikz }
        { \seq_put_right:Nn \l_@@_tikz_seq { { #1 } } }
        { \@@_error:n { tikz~key~without~tikz } } ,
    tikz .value_required:n = true ,
    fill .code:n = 
      \tl_set_rescan:Nnn 
        \l_@@_fill_tl 
        { \char_set_catcode_other:N ! }
        { #1 } ,
    fill .value_required:n = true ,
    opacity .tl_set:N = \l_@@_opacity_tl , 
    opacity .value_required:n = true ,
    draw .code:n = 
      \tl_set_rescan:Nnn 
        \l_@@_draw_tl 
        { \char_set_catcode_other:N ! }
        { #1 } ,
    draw .default:n = default ,
    rounded-corners .dim_set:N = \l_@@_rounded_corners_dim ,
    rounded-corners .default:n = 4 pt ,
    color .code:n = 
      \@@_color:n { #1 }
      \tl_set_rescan:Nnn 
        \l_@@_draw_tl 
        { \char_set_catcode_other:N ! }
        { #1 } ,
    borders .clist_set:N = \l_@@_borders_clist ,
    borders .value_required:n = true ,
    hvlines .meta:n = { vlines , hlines } , 
    vlines .bool_set:N = \l_@@_vlines_block_bool,
    vlines .default:n = true , 
    hlines .bool_set:N = \l_@@_hlines_block_bool,
    hlines .default:n = true , 
    line-width .dim_set:N = \l_@@_line_width_dim ,
    line-width .value_required:n = true ,
%    \end{macrocode}
% Some keys have not a property |.value_required:n| (or similar) because they
% are in |FirstPass|. 
%    \begin{macrocode}
    j .code:n = \str_set:Nn \l_@@_hpos_block_str j 
                \bool_set_true:N \l_@@_p_block_bool ,
    l .code:n = \str_set:Nn \l_@@_hpos_block_str l ,
    r .code:n = \str_set:Nn \l_@@_hpos_block_str r ,
    c .code:n = \str_set:Nn \l_@@_hpos_block_str c ,
    L .code:n = \str_set:Nn \l_@@_hpos_block_str l 
                \bool_set_true:N \l_@@_hpos_of_block_cap_bool ,
    R .code:n = \str_set:Nn \l_@@_hpos_block_str r 
                \bool_set_true:N \l_@@_hpos_of_block_cap_bool ,
    C .code:n = \str_set:Nn \l_@@_hpos_block_str c 
                \bool_set_true:N \l_@@_hpos_of_block_cap_bool ,
    t .code:n = \str_set:Nn \l_@@_vpos_block_str t ,
    T .code:n = \str_set:Nn \l_@@_vpos_block_str T ,
    b .code:n = \str_set:Nn \l_@@_vpos_block_str b ,
    B .code:n = \str_set:Nn \l_@@_vpos_block_str B ,
    m .code:n = \str_set:Nn \l_@@_vpos_block_str c , 
    m .value_forbidden:n = true ,
    v-center .meta:n = m ,
    p .code:n = \bool_set_true:N \l_@@_p_block_bool ,
    p .value_forbidden:n = true ,
    name .tl_set:N = \l_@@_block_name_str ,
    name .value_required:n = true ,
    name .initial:n = ,
    respect-arraystretch .code:n = 
      \cs_set_eq:NN \@@_reset_arraystretch: \prg_do_nothing: ,
    respect-arraystretch .value_forbidden:n = true , 
    transparent .bool_set:N = \l_@@_transparent_bool ,
    transparent .default:n = true , 
    transparent .initial:n = false ,
    unknown .code:n = \@@_error:n { Unknown~key~for~Block }
  }
%    \end{macrocode}
%
% \bigskip
% The command |\@@_draw_blocks:| will draw all the blocks. This command is used
% after the construction of the array. We have to revert to a clean version of
% |\ialign| because there may be tabulars in the |\Block| instructions that will
% be composed now.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_draw_blocks:
  { 
    \bool_if:NTF \c_@@_recent_array_bool
      { \cs_set_eq:NN \ar@ialign \@@_old_ar@ialign: }
      { \cs_set_eq:NN \ialign \@@_old_ialign: }
    \seq_map_inline:Nn \g_@@_blocks_seq { \@@_Block_iv:nnnnnn ##1 } 
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_Block_v:nnnnnn { n n e e }
\cs_new_protected:Npn \@@_Block_iv:nnnnnn #1 #2 #3 #4 #5 #6
  {
%    \end{macrocode}
% The integer |\l_@@_last_row_int| will be the last row of the block and
% |\l_@@_last_col_int| its last column.
%    \begin{macrocode}
    \int_zero_new:N \l_@@_last_row_int 
    \int_zero_new:N \l_@@_last_col_int 
%    \end{macrocode}
%
% We remind that the first mandatory argument of the command |\Block| is the
% size of the block with the special format $i$|-|$j$. However, the user is
% allowed to omit $i$ or $j$ (or both). This will be interpreted as: the last
% row (resp. column) of the block will be the last row (resp. column) of the
% block (without the potential exterior row---resp. column---of the array). By
% convention, this is stored in |\g_@@_blocks_seq| as a number of rows (resp.
% columns) for the block equal to 100. That's what we detect now.
%    \begin{macrocode}
    \int_compare:nNnTF { #3 } > { 99 }
      { \int_set_eq:NN \l_@@_last_row_int \c@iRow }
      { \int_set:Nn \l_@@_last_row_int { #3 } }
    \int_compare:nNnTF { #4 } > { 99 }
      { \int_set_eq:NN \l_@@_last_col_int \c@jCol }
      { \int_set:Nn \l_@@_last_col_int { #4 } }
    \int_compare:nNnTF \l_@@_last_col_int > \g_@@_col_total_int 
      {
        \bool_lazy_and:nnTF
          \l_@@_preamble_bool
          { 
            \int_compare_p:n 
             { \l_@@_last_col_int <= \g_@@_static_num_of_col_int } 
          }
          { 
            \msg_error:nnnn { nicematrix } { Block~too~large~2 } { #1 } { #2 } 
            \@@_msg_redirect_name:nn { Block~too~large~2 } { none }
            \@@_msg_redirect_name:nn { columns~not~used } { none }
          }
          { \msg_error:nnnn { nicematrix } { Block~too~large~1 } { #1 } { #2 } }
      } 
      {  
        \int_compare:nNnTF \l_@@_last_row_int > \g_@@_row_total_int
          { \msg_error:nnnn { nicematrix } { Block~too~large~1 } { #1 } { #2 } } 
          { 
            \@@_Block_v:nneenn 
              { #1 } 
              { #2 } 
              { \int_use:N \l_@@_last_row_int }
              { \int_use:N \l_@@_last_col_int }
              { #5 } 
              { #6 } 
          }
      }
  }
%    \end{macrocode}
%
%
% \medskip
% The following command |\@@_Block_v:nnnnnn| will actually draw the block.
% |#1| is the first row of the block;
% |#2| is the first column of the block;
% |#3| is the last row of the block;
% |#4| is the last column of the block;
% |#5| is a list of \textsl{key=value} options;
% |#6| is the label
%    \begin{macrocode}
\cs_new_protected:Npn \@@_Block_v:nnnnnn #1 #2 #3 #4 #5 #6
  {  
%    \end{macrocode}
% The group is for the keys.
%    \begin{macrocode}
    \group_begin:
    \int_compare:nNnT { #1 } = { #3 }
      { \str_set:Nn \l_@@_vpos_block_str { t } }
    \keys_set:nn { nicematrix / Block / SecondPass } { #5 }
%    \end{macrocode}
% 
%
% If the content of the block contains |&|, we will have a special treatement
% (since the cell must be divided in several sub-cells). Remark that
% |\tl_if_in:nnT| is faster then |\str_if_in:nnT|.
%    \begin{macrocode}
    \tl_if_in:nnT { #6 } { & } { \bool_set_true:N \l_@@_ampersand_bool }
%    \end{macrocode}
%
%    \begin{macrocode}
    \bool_lazy_and:nnT 
      \l_@@_vlines_block_bool 
      { ! \l_@@_ampersand_bool }
      {
        \tl_gput_right:Ne \g_nicematrix_code_after_tl
          { 
            \@@_vlines_block:nnn
              { \exp_not:n { #5 } } 
              { #1 - #2 } 
              { \int_use:N \l_@@_last_row_int - \int_use:N \l_@@_last_col_int } 
          }  
      }
    \bool_if:NT \l_@@_hlines_block_bool
      {
        \tl_gput_right:Ne \g_nicematrix_code_after_tl
          { 
            \@@_hlines_block:nnn
              { \exp_not:n { #5 } } 
              { #1 - #2 } 
              { \int_use:N \l_@@_last_row_int - \int_use:N \l_@@_last_col_int } 
          }  
      }
    \bool_if:NF \l_@@_transparent_bool 
      { 
        \bool_lazy_and:nnF \l_@@_vlines_block_bool \l_@@_hlines_block_bool 
          {
%    \end{macrocode}
% The sequence of the positions of the blocks (excepted the blocks with the key
% |hvlines|) will be used when drawing the rules (in fact, there is also the
% |\multicolumn| and the |\diagbox| in that sequence).
%    \begin{macrocode}
            \seq_gput_left:Ne \g_@@_pos_of_blocks_seq 
              { { #1 } { #2 } { #3 } { #4 } { \l_@@_block_name_str } }  
          }
      }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
    \tl_if_empty:NF \l_@@_draw_tl
      {
        \bool_lazy_or:nnT \l_@@_hlines_block_bool \l_@@_vlines_block_bool 
          { \@@_error:n { hlines~with~color } }
        \tl_gput_right:Ne \g_nicematrix_code_after_tl
          { 
            \@@_stroke_block:nnn
%    \end{macrocode}
% |#5| are the options
%    \begin{macrocode}
              { \exp_not:n { #5 } } 
              { #1 - #2 } 
              { \int_use:N \l_@@_last_row_int - \int_use:N \l_@@_last_col_int } 
          }  
        \seq_gput_right:Nn \g_@@_pos_of_stroken_blocks_seq 
          { { #1 } { #2 } { #3 } { #4 } }
      }
%    \end{macrocode}
%
%    \begin{macrocode}
    \clist_if_empty:NF \l_@@_borders_clist
      {
        \tl_gput_right:Ne \g_nicematrix_code_after_tl
          { 
            \@@_stroke_borders_block:nnn
              { \exp_not:n { #5 } } 
              { #1 - #2 } 
              { \int_use:N \l_@@_last_row_int - \int_use:N \l_@@_last_col_int } 
          }  
      }
%    \end{macrocode}
%
%    \begin{macrocode}
    \tl_if_empty:NF \l_@@_fill_tl
      {
        \@@_add_opacity_to_fill:
        \tl_gput_right:Ne \g_@@_pre_code_before_tl
          { 
            \@@_exp_color_arg:No \@@_roundedrectanglecolor \l_@@_fill_tl
              { #1 - #2 } 
              { \int_use:N \l_@@_last_row_int - \int_use:N \l_@@_last_col_int } 
              { \dim_use:N \l_@@_rounded_corners_dim }
          }  
      }
%    \end{macrocode}
%
%    \begin{macrocode}
    \seq_if_empty:NF \l_@@_tikz_seq
      {
        \tl_gput_right:Ne \g_nicematrix_code_before_tl
          {
            \@@_block_tikz:nnnnn
              { \seq_use:Nn \l_@@_tikz_seq { , } }
              { #1 }
              { #2 }
              { \int_use:N \l_@@_last_row_int }
              { \int_use:N \l_@@_last_col_int }
%    \end{macrocode}
% We will have in that last field a list of lists of Tikz keys.
%    \begin{macrocode}
          }
      }
%    \end{macrocode}
% 
% \medskip
%    \begin{macrocode}
    \cs_set_protected_nopar:Npn \diagbox ##1 ##2
      {
        \tl_gput_right:Ne \g_@@_pre_code_after_tl    
          { 
            \@@_actually_diagbox:nnnnnn 
              { #1 } 
              { #2 }
              { \int_use:N \l_@@_last_row_int } 
              { \int_use:N \l_@@_last_col_int } 
              { \exp_not:n { ##1 } } 
              { \exp_not:n { ##2 } }
          }
      }  
%    \end{macrocode}
% 
%
% \bigskip
% Let's consider the following |{NiceTabular}|. Because of the instruction
% |!{\hspace{1cm}}| in the preamble which increases the space between the
% columns (by adding, in fact, that space to the previous column, that is to say
% the second column of the tabular), we will create \emph{two} nodes relative to
% the block: the node |1-1-block| and the node |1-1-block-short|. 
% 
% \begin{Verbatim}
% \begin{NiceTabular}{cc!{\hspace{1cm}}c}
% \Block{2-2}{our block} &      & one    \\
%                        &      & two    \\
% three                  & four & five   \\
% six                    & seven & eight \\
% \end{NiceTabular}
% \end{Verbatim}
% 
% \tikzset{highlight/.style={rectangle,
%                            fill=red!15,
%                            blend mode = multiply, 
%                            rounded corners = 0pt,
%                            inner sep=0pt,
%                            fit = #1}}
%
% \begin{tabular}{c@{\hspace{1cm}}c}
% We highlight the node |1-1-block| 
% & 
% We highlight the node |1-1-block-short| \\[2mm]
% \begin{NiceTabular}{cc!{\hspace{1cm}}c}
% \Block{2-2}{our block} &      & one    \\
%                        &      & two    \\
% three                  & four & five   \\
% six                    & seven & eight \\
% \CodeAfter
% \tikz \node [highlight = (1-1-block)] { } ;
% \end{NiceTabular} 
% & 
% \begin{NiceTabular}{cc!{\hspace{1cm}}c}
% \Block{2-2}{our block} &      & one    \\
%                        &      & two    \\
% three                  & four & five   \\
% six                    & seven & eight \\
% \CodeAfter
% \tikz \node [highlight = (1-1-block-short)] { } ;
% \end{NiceTabular} 
% \end{tabular}
%   
%
% \bigskip
% The construction of the node corresponding to the merged cells.
%    \begin{macrocode}
    \pgfpicture 
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse 
    \@@_qpoint:n { row - #1 } 
    \dim_set_eq:NN \l_tmpa_dim \pgf@y
    \@@_qpoint:n { col - #2 } 
    \dim_set_eq:NN \l_tmpb_dim \pgf@x
    \@@_qpoint:n { row - \int_eval:n { \l_@@_last_row_int + 1 } } 
    \dim_set_eq:NN \l_@@_tmpc_dim \pgf@y
    \@@_qpoint:n { col - \int_eval:n { \l_@@_last_col_int + 1 } } 
    \dim_set_eq:NN \l_@@_tmpd_dim \pgf@x
%    \end{macrocode}
%
%
%
% We construct the node for the block with the name |(#1-#2-block)|.
%
% The function |\@@_pgf_rect_node:nnnnn| takes in as arguments the name of the node
% and the four coordinates of two opposite corner points of the rectangle.
%    \begin{macrocode}
    \@@_pgf_rect_node:nnnnn
      { \@@_env: - #1 - #2 - block }
      \l_tmpb_dim \l_tmpa_dim \l_@@_tmpd_dim \l_@@_tmpc_dim 
    \str_if_empty:NF \l_@@_block_name_str
      {
        \pgfnodealias 
          { \@@_env: - \l_@@_block_name_str }
          { \@@_env: - #1 - #2 - block }
        \str_if_empty:NF \l_@@_name_str
          {
            \pgfnodealias 
              { \l_@@_name_str - \l_@@_block_name_str }
              { \@@_env: - #1 - #2 - block }
          }
      }
%    \end{macrocode}
% 
% \medskip
% Now, we create the ``short node'' which, in general, will be used to put the
% label (that is to say the content of the node). However, if one the keys |L|, |C| or
% |R| is used (that information is provided by the boolean 
% |\l_@@_hpos_of_block_cap_bool|), we don't need to create that node since the
% normal node is used to put the label.
%
%    \begin{macrocode}
    \bool_if:NF \l_@@_hpos_of_block_cap_bool
      {
        \dim_set_eq:NN \l_tmpb_dim \c_max_dim 
%    \end{macrocode}
% The short node is constructed by taking into account the \emph{contents} of
% the columns involved in at least one cell of the block. That's why we have to
% do a loop over the rows of the array.
%    \begin{macrocode}
        \int_step_inline:nnn \l_@@_first_row_int \g_@@_row_total_int
          {
%    \end{macrocode}
% We recall that, when a cell is empty, no (normal) node is created in that
% cell. That's why we test the existence of the node before using it.
%    \begin{macrocode}
            \cs_if_exist:cT
              { pgf @ sh @ ns @ \@@_env: - ##1 - #2 }
              {
                \seq_if_in:NnF \g_@@_multicolumn_cells_seq { ##1 - #2 }
                  {
                    \pgfpointanchor { \@@_env: - ##1 - #2 } { west }
                    \dim_set:Nn \l_tmpb_dim { \dim_min:nn \l_tmpb_dim \pgf@x }  
                  }
              }
          }
%    \end{macrocode}
% If all the cells of the column were empty, |\l_tmpb_dim| has still the same
% value |\c_max_dim|. In that case, you use for |\l_tmpb_dim| the value of the
% position of the vertical rule. 
%    \begin{macrocode}
        \dim_compare:nNnT \l_tmpb_dim = \c_max_dim
          {
            \@@_qpoint:n { col - #2 } 
            \dim_set_eq:NN \l_tmpb_dim \pgf@x
          }
        \dim_set:Nn \l_@@_tmpd_dim { - \c_max_dim }
        \int_step_inline:nnn \l_@@_first_row_int \g_@@_row_total_int
          {
            \cs_if_exist:cT
              { pgf @ sh @ ns @ \@@_env: - ##1 - \int_use:N \l_@@_last_col_int } 
              {
                \seq_if_in:NnF \g_@@_multicolumn_cells_seq { ##1 - #2 }
                  {
                    \pgfpointanchor 
                      { \@@_env: - ##1 - \int_use:N \l_@@_last_col_int }  
                      { east } 
                    \dim_set:Nn \l_@@_tmpd_dim { \dim_max:nn \l_@@_tmpd_dim \pgf@x }
                  }
              }
          }
        \dim_compare:nNnT \l_@@_tmpd_dim = { - \c_max_dim }
          {
            \@@_qpoint:n { col - \int_eval:n { \l_@@_last_col_int + 1 } } 
            \dim_set_eq:NN \l_@@_tmpd_dim \pgf@x
          }
        \@@_pgf_rect_node:nnnnn
          { \@@_env: - #1 - #2 - block - short }
          \l_tmpb_dim \l_tmpa_dim \l_@@_tmpd_dim \l_@@_tmpc_dim 
      }
%    \end{macrocode}
% 
% \medskip
% If the creation of the ``medium nodes'' is required, we create a ``medium
% node'' for the block. The function |\@@_pgf_rect_node:nnn| takes in as
% arguments the name of the node and two \textsc{pgf} points.
%    \begin{macrocode}
    \bool_if:NT \l_@@_medium_nodes_bool
      {
        \@@_pgf_rect_node:nnn
          { \@@_env: - #1 - #2 - block - medium }
          { \pgfpointanchor { \@@_env: - #1 - #2 - medium } { north~west } }
          { 
            \pgfpointanchor 
              { \@@_env: 
                - \int_use:N \l_@@_last_row_int 
                - \int_use:N \l_@@_last_col_int - medium 
              } 
              { south~east }  
          } 
      }
    \endpgfpicture
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
  \bool_if:NTF \l_@@_ampersand_bool
    { 
      \seq_set_split:Nnn \l_tmpa_seq { & } { #6 }
      \int_zero_new:N \l_@@_split_int 
      \int_set:Nn \l_@@_split_int { \seq_count:N \l_tmpa_seq } 
      \pgfpicture 
      \pgfrememberpicturepositiononpagetrue
      \pgf@relevantforpicturesizefalse 

      \@@_qpoint:n { row - #1 }
      \dim_set_eq:NN \l_@@_tmpc_dim \pgf@y
      \@@_qpoint:n { row - \int_eval:n { #3 + 1 } }
      \dim_set_eq:NN \l_@@_tmpd_dim \pgf@y
      \@@_qpoint:n { col - #2 }
      \dim_set_eq:NN \l_tmpa_dim \pgf@x
      \@@_qpoint:n { col - \int_eval:n { #4 + 1 } } 
      \dim_set:Nn \l_tmpb_dim 
        { ( \pgf@x - \l_tmpa_dim ) / \int_use:N \l_@@_split_int }
      \bool_lazy_or:nnT 
        \l_@@_vlines_block_bool 
        { \str_if_eq_p:ee \l_@@_vlines_clist { all } }
        {
          \int_step_inline:nn { \l_@@_split_int - 1 } 
            { 
              \pgfpathmoveto 
                { 
                  \pgfpoint 
                    { \l_tmpa_dim + ##1 \l_tmpb_dim }
                    \l_@@_tmpc_dim 
                }
              \pgfpathlineto
                { 
                  \pgfpoint 
                    { \l_tmpa_dim + ##1 \l_tmpb_dim }
                    \l_@@_tmpd_dim 
                }
              \CT@arc@
              \pgfsetlinewidth { 1.1 \arrayrulewidth }
              \pgfsetrectcap
              \pgfusepathqstroke
            }
        }
      \@@_qpoint:n { row - #1 - base }
      \dim_set_eq:NN \l_@@_tmpc_dim \pgf@y 
      \int_step_inline:nn \l_@@_split_int 
        { 
          \group_begin:
          \dim_set:Nn \col@sep
            { \bool_if:NTF \l_@@_tabular_bool \tabcolsep \arraycolsep }
          \pgftransformshift
            {
              \pgfpoint
                {
                  \l_tmpa_dim + ##1 \l_tmpb_dim -
                  \str_case:on \l_@@_hpos_block_str
                    {
                      l { \l_tmpb_dim + \col@sep}
                      c { 0.5 \l_tmpb_dim }
                      r { \col@sep }
                    }
                }
                { \l_@@_tmpc_dim }
            }      
          \pgfset { inner~sep = \c_zero_dim } 
          \pgfnode 
            { rectangle }
            {
              \str_case:on \l_@@_hpos_block_str
                {
                  c { base }
                  l { base~west }
                  r { base~east }
                }
            }
            { \seq_item:Nn \l_tmpa_seq { ##1 } } { } { }
           \group_end:
        }
      \endpgfpicture
    }
%    \end{macrocode}
% Now the case where there is no ampersand |&| in the content of the block.
%    \begin{macrocode}
    {
      \bool_if:NTF \l_@@_p_block_bool
        { 
%    \end{macrocode}
% When the final user has used the key~|p|, we have to compute the width.
%    \begin{macrocode}
            \pgfpicture 
              \pgfrememberpicturepositiononpagetrue
              \pgf@relevantforpicturesizefalse 
              \bool_if:NTF \l_@@_hpos_of_block_cap_bool
                {
                  \@@_qpoint:n { col - #2 } 
                  \dim_gset_eq:NN \g_tmpa_dim \pgf@x
                  \@@_qpoint:n { col - \int_eval:n { \l_@@_last_col_int + 1 } } 
                }
                {
                  \pgfpointanchor { \@@_env: - #1 - #2 - block - short } { west }
                  \dim_gset_eq:NN \g_tmpa_dim \pgf@x
                  \pgfpointanchor { \@@_env: - #1 - #2 - block - short } { east }
                }
              \dim_gset:Nn \g_tmpb_dim { \pgf@x - \g_tmpa_dim }
            \endpgfpicture
            \hbox_set:Nn \l_@@_cell_box 
              {
                \begin { minipage } [ \str_lowercase:o \l_@@_vpos_block_str ] 
                  { \g_tmpb_dim }
                \str_case:on \l_@@_hpos_block_str
                  { c \centering r \raggedleft l \raggedright j { } }
                #6
                \end { minipage }
              }
          }
          { \hbox_set:Nn \l_@@_cell_box { \set@color #6 } }
        \bool_if:NT \g_@@_rotate_bool \@@_rotate_cell_box:
%    \end{macrocode}
%
% \bigskip
% Now, we will put the label of the block. We recall that |\l_@@_vpos_block_str|
% is empty when the user has not used a key for the vertical position of the block.
%    \begin{macrocode}
        \pgfpicture
        \pgfrememberpicturepositiononpagetrue
        \pgf@relevantforpicturesizefalse 
        \bool_lazy_any:nTF
          {
            { \str_if_empty_p:N \l_@@_vpos_block_str } % added 2024/06/29
            { \str_if_eq_p:ee \l_@@_vpos_block_str { c } }
            { \str_if_eq_p:ee \l_@@_vpos_block_str { T } }
            { \str_if_eq_p:ee \l_@@_vpos_block_str { B } }
          }
%    \end{macrocode}
% \medskip
%    \begin{macrocode}
          { 
%    \end{macrocode}
% If we are in the first column, we must put the block as if it was with the key~|r|.
%    \begin{macrocode}
            \int_if_zero:nT { #2 } { \str_set_eq:NN \l_@@_hpos_block_str \c_@@_r_str }
%    \end{macrocode}
% If we are in the last column, we must put the block as if it was with the key~|l|.
%    \begin{macrocode}
            \bool_if:nT \g_@@_last_col_found_bool 
              {
                \int_compare:nNnT { #2 } = \g_@@_col_total_int
                  { \str_set_eq:NN \l_@@_hpos_block_str \c_@@_l_str }
              }
%    \end{macrocode}
% |\l_tmpa_tl| will contain the anchor of the \textsc{pgf} node which will be used.
%    \begin{macrocode}
            \tl_set:Ne \l_tmpa_tl 
              {
                \str_case:on \l_@@_vpos_block_str
                  {
%    \end{macrocode}
% We recall that |\l_@@_vpos_block_str| is empty when the user has not used a key
% for the vertical position of the block.
%    \begin{macrocode}
                    { } { % added 2024-06-29
                          \str_case:on \l_@@_hpos_block_str
                            {
                              c { center } 
                              l { west } 
                              r { east } 
                              j { center }
                            }
                        } 
                    c { 
                        \str_case:on \l_@@_hpos_block_str
                          {
                            c { center } 
                            l { west } 
                            r { east } 
                            j { center }
                          }

                      } 
                    T { 
                        \str_case:on \l_@@_hpos_block_str
                          {
                            c { north } 
                            l { north~west } 
                            r { north~east } 
                            j { north }
                          }

                      } 
                    B { 
                        \str_case:on \l_@@_hpos_block_str
                          {
                            c { south } 
                            l { south~west } 
                            r { south~east }
                            j { south }
                          }

                      } 
                  }
              }
%    \end{macrocode}
%    \begin{macrocode}
            \pgftransformshift
              {
                \pgfpointanchor 
                  { 
                    \@@_env: - #1 - #2 - block 
                    \bool_if:NF \l_@@_hpos_of_block_cap_bool { - short }
                  }
                  { \l_tmpa_tl }
              }
            \pgfset { inner~sep = \c_zero_dim } 
            \pgfnode 
              { rectangle } 
              { \l_tmpa_tl }
              { \box_use_drop:N \l_@@_cell_box } { } { }
          }   
%    \end{macrocode}
% End of the case when |\l_@@_vpos_block_str| is equal to |c|, |T| or |B|.
% Now, the other cases.
%    \begin{macrocode}
          { 
%    \end{macrocode}
%
%    \begin{macrocode}
            \pgfextracty \l_tmpa_dim 
              { 
                \@@_qpoint:n 
                  { 
                    row - \str_if_eq:eeTF \l_@@_vpos_block_str { b } { #3 } { #1 }  
                    - base 
                  } 
              } 
            \dim_sub:Nn \l_tmpa_dim { 0.5 \arrayrulewidth } 
%    \end{macrocode}
% We retrieve (in |\pgf@x|) the $x$-value of the center of the block.
%    \begin{macrocode}
            \pgfpointanchor 
              { 
                \@@_env: - #1 - #2 - block 
                \bool_if:NF \l_@@_hpos_of_block_cap_bool { - short }
              } 
              {
                \str_case:on \l_@@_hpos_block_str
                  {
                    c { center } 
                    l { west } 
                    r { east } 
                    j { center }
                  }
              } 
%    \end{macrocode}
% We put the label of the block which has been composed in |\l_@@_cell_box|.
%    \begin{macrocode}
            \pgftransformshift { \pgfpoint \pgf@x \l_tmpa_dim }
            \pgfset { inner~sep = \c_zero_dim }
            \pgfnode 
              { rectangle } 
              {
                 \str_case:on \l_@@_hpos_block_str
                  {
                    c { base } 
                    l { base~west } 
                    r { base~east } 
                    j { base }
                  } 
              } 
              { \box_use_drop:N \l_@@_cell_box } { } { }
          }
%    \end{macrocode}
%
%    \begin{macrocode}
        \endpgfpicture
      }
    \group_end:
  }
%    \end{macrocode}
%
% 
% \bigskip
% For the command |\cellcolor| used within a sub-cell of a |\Block| (when the
% character |&| is used inside the cell).
%    \begin{macrocode}
\cs_set_protected:Npn \@@_fill:nnnnn #1 #2 #3 #4 #5
  {
    \pgfpicture
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \pgfpathrectanglecorners 
      { \pgfpoint { #2 } { #3 } } 
      { \pgfpoint { #4 } { #5 } } 
    \pgfsetfillcolor { #1 }
    \pgfusepath { fill }
    \endpgfpicture
  }
%    \end{macrocode}
% 
% \bigskip
% The following command adds the value of |\l_@@_opacity_tl| (if not empty) to
% the specification of color set in |\l_@@_fill_tl| (the information of opacity
% is added in between square brackets before the color itself).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_add_opacity_to_fill:
  {
    \tl_if_empty:NF \l_@@_opacity_tl
      {
        \tl_if_head_eq_meaning:oNTF \l_@@_fill_tl [
          { 
            \tl_set:Ne \l_@@_fill_tl
              {
                [ opacity = \l_@@_opacity_tl ,
                \tl_tail:o \l_@@_fill_tl
              }
          }
          { 
            \tl_set:Ne \l_@@_fill_tl
              { [ opacity = \l_@@_opacity_tl ] { \exp_not:o \l_@@_fill_tl } }
          }
      }
  }
%    \end{macrocode}
% 
% \bigskip
% The first argument of |\@@_stroke_block:nnn| is a list of options for the
% rectangle that you will stroke. The second argument is the upper-left cell of
% the block (with, as usual, the syntax $i$|-|$j$) and the third is the last
% cell of the block (with the same syntax).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_stroke_block:nnn #1 #2 #3
  {
    \group_begin:
    \tl_clear:N \l_@@_draw_tl
    \dim_set_eq:NN \l_@@_line_width_dim \arrayrulewidth
    \keys_set_known:nn { nicematrix / BlockStroke } { #1 }
    \pgfpicture
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \tl_if_empty:NF \l_@@_draw_tl 
      { 
%    \end{macrocode}
% If the user has used the key |color| of the command |\Block| without value,
% the color fixed by |\arrayrulecolor| is used.
%    \begin{macrocode}
        \tl_if_eq:NnTF \l_@@_draw_tl { default }
          { \CT@arc@ } 
          { \@@_color:o \l_@@_draw_tl }
      }
    \pgfsetcornersarced  
      { 
        \pgfpoint 
          { \l_@@_rounded_corners_dim } 
          { \l_@@_rounded_corners_dim } 
      } 
    \@@_cut_on_hyphen:w #2 \q_stop
    \int_compare:nNnF \l_tmpa_tl > \c@iRow 
      { 
        \int_compare:nNnF \l_tmpb_tl > \c@jCol 
          {
            \@@_qpoint:n { row - \l_tmpa_tl } 
            \dim_set_eq:NN \l_tmpb_dim \pgf@y 
            \@@_qpoint:n { col - \l_tmpb_tl }
            \dim_set_eq:NN \l_@@_tmpc_dim \pgf@x 
            \@@_cut_on_hyphen:w #3 \q_stop
            \int_compare:nNnT \l_tmpa_tl > \c@iRow
              { \tl_set:No \l_tmpa_tl { \int_use:N \c@iRow } }
            \int_compare:nNnT \l_tmpb_tl > \c@jCol
              { \tl_set:No \l_tmpb_tl { \int_use:N \c@jCol } }
            \@@_qpoint:n { row - \int_eval:n { \l_tmpa_tl + 1 } }
            \dim_set_eq:NN \l_tmpa_dim \pgf@y 
            \@@_qpoint:n { col - \int_eval:n { \l_tmpb_tl + 1 } }
            \dim_set_eq:NN \l_@@_tmpd_dim \pgf@x 
            \pgfsetlinewidth { 1.1 \l_@@_line_width_dim }
            \pgfpathrectanglecorners
              { \pgfpoint \l_@@_tmpc_dim \l_tmpb_dim }
              { \pgfpoint \l_@@_tmpd_dim \l_tmpa_dim }
            \dim_compare:nNnTF \l_@@_rounded_corners_dim = \c_zero_dim
              { \pgfusepathqstroke }
              { \pgfusepath { stroke } }
          }
      }
    \endpgfpicture
    \group_end:
  }
%    \end{macrocode}
%
% Here is the set of keys for the command |\@@_stroke_block:nnn|.
%    \begin{macrocode}
\keys_define:nn { nicematrix / BlockStroke }
  {
    color .tl_set:N = \l_@@_draw_tl ,
    draw .code:n = 
      \tl_if_empty:eF { #1 } { \tl_set:Nn \l_@@_draw_tl { #1 } } ,
    draw .default:n = default ,
    line-width .dim_set:N = \l_@@_line_width_dim ,
    rounded-corners .dim_set:N = \l_@@_rounded_corners_dim ,
    rounded-corners .default:n = 4 pt
  }
%    \end{macrocode}
% 
%
% \bigskip
% The first argument of |\@@_vlines_block:nnn| is a list of options for the
% rules that we will draw. The second argument is the upper-left cell of the
% block (with, as usual, the syntax $i$|-|$j$) and the third is the last cell of
% the block (with the same syntax).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_vlines_block:nnn #1 #2 #3
  {
    \dim_set_eq:NN \l_@@_line_width_dim \arrayrulewidth
    \keys_set_known:nn { nicematrix / BlockBorders } { #1 }
    \@@_cut_on_hyphen:w #2 \q_stop
    \tl_set_eq:NN \l_@@_tmpc_tl \l_tmpa_tl
    \tl_set_eq:NN \l_@@_tmpd_tl \l_tmpb_tl
    \@@_cut_on_hyphen:w #3 \q_stop
    \tl_set:Ne \l_tmpa_tl { \int_eval:n { \l_tmpa_tl + 1 } }
    \tl_set:Ne \l_tmpb_tl { \int_eval:n { \l_tmpb_tl + 1 } }
    \int_step_inline:nnn \l_@@_tmpd_tl \l_tmpb_tl
      { 
        \use:e 
          { 
            \@@_vline:n
              { 
                position = ##1 ,
                start = \l_@@_tmpc_tl ,
                end = \int_eval:n { \l_tmpa_tl - 1 } ,
                total-width = \dim_use:N \l_@@_line_width_dim 
              }
          } 
      }
  }
\cs_new_protected:Npn \@@_hlines_block:nnn #1 #2 #3
  {
    \dim_set_eq:NN \l_@@_line_width_dim \arrayrulewidth
    \keys_set_known:nn { nicematrix / BlockBorders } { #1 }
    \@@_cut_on_hyphen:w #2 \q_stop
    \tl_set_eq:NN \l_@@_tmpc_tl \l_tmpa_tl
    \tl_set_eq:NN \l_@@_tmpd_tl \l_tmpb_tl
    \@@_cut_on_hyphen:w #3 \q_stop
    \tl_set:Ne \l_tmpa_tl { \int_eval:n { \l_tmpa_tl + 1 } }
    \tl_set:Ne \l_tmpb_tl { \int_eval:n { \l_tmpb_tl + 1 } }
    \int_step_inline:nnn \l_@@_tmpc_tl \l_tmpa_tl
      { 
        \use:e 
          { 
            \@@_hline:n 
              { 
                position = ##1 , 
                start = \l_@@_tmpd_tl , 
                end = \int_eval:n { \l_tmpb_tl - 1 } ,
                total-width = \dim_use:N \l_@@_line_width_dim 
              } 
          }
      }
  }
%    \end{macrocode}
%
% \bigskip
% The first argument of |\@@_stroke_borders_block:nnn| is a list of options for
% the borders that you will stroke. The second argument is the upper-left cell
% of the block (with, as usual, the syntax $i$|-|$j$) and the third is the last
% cell of the block (with the same syntax).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_stroke_borders_block:nnn #1 #2 #3
  {
    \dim_set_eq:NN \l_@@_line_width_dim \arrayrulewidth
    \keys_set_known:nn { nicematrix / BlockBorders } { #1 }
    \dim_compare:nNnTF \l_@@_rounded_corners_dim > \c_zero_dim 
      { \@@_error:n { borders~forbidden } }
      {
        \tl_clear_new:N \l_@@_borders_tikz_tl
        \keys_set:no
          { nicematrix / OnlyForTikzInBorders } 
          \l_@@_borders_clist 
        \@@_cut_on_hyphen:w #2 \q_stop
        \tl_set_eq:NN \l_@@_tmpc_tl \l_tmpa_tl
        \tl_set_eq:NN \l_@@_tmpd_tl \l_tmpb_tl
        \@@_cut_on_hyphen:w #3 \q_stop
        \tl_set:Ne \l_tmpa_tl { \int_eval:n { \l_tmpa_tl + 1 } }
        \tl_set:Ne \l_tmpb_tl { \int_eval:n { \l_tmpb_tl + 1 } }
        \@@_stroke_borders_block_i:
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \cs_new_protected:Npe \@@_stroke_borders_block_i:
      {
        \c_@@_pgfortikzpicture_tl
        \@@_stroke_borders_block_ii:
        \c_@@_endpgfortikzpicture_tl
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_stroke_borders_block_ii:
  {
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
    \CT@arc@
    \pgfsetlinewidth { 1.1 \l_@@_line_width_dim }
    \clist_if_in:NnT \l_@@_borders_clist { right }  
      { \@@_stroke_vertical:n \l_tmpb_tl }
    \clist_if_in:NnT \l_@@_borders_clist { left }  
      { \@@_stroke_vertical:n \l_@@_tmpd_tl }
    \clist_if_in:NnT \l_@@_borders_clist { bottom }  
      { \@@_stroke_horizontal:n \l_tmpa_tl }
    \clist_if_in:NnT \l_@@_borders_clist { top }  
      { \@@_stroke_horizontal:n \l_@@_tmpc_tl }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / OnlyForTikzInBorders }
  { 
    tikz .code:n = 
      \cs_if_exist:NTF \tikzpicture
        { \tl_set:Nn \l_@@_borders_tikz_tl { #1 } }
        { \@@_error:n { tikz~in~borders~without~tikz } } ,
    tikz .value_required:n = true ,
    top .code:n = ,
    bottom .code:n = , 
    left .code:n = ,
    right .code:n = ,
    unknown .code:n = \@@_error:n { bad~border } 
  }
%    \end{macrocode}
%
% 
% \medskip
% The following command is used to stroke the left border and the right border.
% The argument |#1| is the number of column (in the sense of the |col| node).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_stroke_vertical:n #1
  {
    \@@_qpoint:n \l_@@_tmpc_tl 
    \dim_set:Nn \l_tmpb_dim { \pgf@y + 0.5 \l_@@_line_width_dim }
    \@@_qpoint:n \l_tmpa_tl 
    \dim_set:Nn \l_@@_tmpc_dim { \pgf@y + 0.5 \l_@@_line_width_dim }
    \@@_qpoint:n { #1 }
    \tl_if_empty:NTF \l_@@_borders_tikz_tl
      {
        \pgfpathmoveto { \pgfpoint \pgf@x \l_tmpb_dim }
        \pgfpathlineto { \pgfpoint \pgf@x \l_@@_tmpc_dim }
        \pgfusepathqstroke
      }
      {
        \use:e { \exp_not:N \draw [ \l_@@_borders_tikz_tl ] }
          ( \pgf@x , \l_tmpb_dim ) -- ( \pgf@x , \l_@@_tmpc_dim ) ; 
      }
  }
%    \end{macrocode}
% 
% \medskip
% The following command is used to stroke the top border and the bottom border.
% The argument |#1| is the number of row (in the sense of the |row| node).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_stroke_horizontal:n #1
  {
    \@@_qpoint:n \l_@@_tmpd_tl 
    \clist_if_in:NnTF \l_@@_borders_clist { left }
      { \dim_set:Nn \l_tmpa_dim { \pgf@x - 0.5 \l_@@_line_width_dim } }
      { \dim_set:Nn \l_tmpa_dim { \pgf@x + 0.5 \l_@@_line_width_dim } }
    \@@_qpoint:n \l_tmpb_tl 
    \dim_set:Nn \l_tmpb_dim { \pgf@x + 0.5 \l_@@_line_width_dim }
    \@@_qpoint:n { #1 }
    \tl_if_empty:NTF \l_@@_borders_tikz_tl
      {
        \pgfpathmoveto { \pgfpoint \l_tmpa_dim \pgf@y }
        \pgfpathlineto { \pgfpoint \l_tmpb_dim \pgf@y }
        \pgfusepathqstroke
      }
      {
        \use:e { \exp_not:N \draw [ \l_@@_borders_tikz_tl ] }
          ( \l_tmpa_dim , \pgf@y ) -- ( \l_tmpb_dim , \pgf@y ) ; 
      }
  }
%    \end{macrocode}
% 
% \bigskip
% Here is the set of keys for the command |\@@_stroke_borders_block:nnn|. 
%    \begin{macrocode}
\keys_define:nn { nicematrix / BlockBorders }
  { 
    borders .clist_set:N = \l_@@_borders_clist ,
    rounded-corners .dim_set:N = \l_@@_rounded_corners_dim ,
    rounded-corners .default:n = 4 pt ,
    line-width .dim_set:N = \l_@@_line_width_dim 
  }
%    \end{macrocode}
%
% \bigskip
% The following command will be used if the key |tikz| has been used for the
% command |\Block|. 

% |#1| is a \emph{list of lists} of Tikz keys used with the path. 
% 
% \emph{Example}: |{{offset=1pt,draw,red},{offset=2pt,draw,blue}}|
%
% which arises from a command such as : 
%
% |\Block[tikz={offset=1pt,draw,red},tikz={offset=2pt,draw,blue}]{2-2}{}|
% 
% The arguments |#2| and |#3| are the coordinates of the first
% cell and |#4| and |#5| the coordinates of the last cell of the block. 
%
%    \begin{macrocode}
\cs_generate_variant:Nn \@@_block_tikz:nnnnn { o }
\cs_new_protected:Npn \@@_block_tikz:nnnnn #1 #2 #3 #4 #5 
  {
    \begin { tikzpicture }
    \@@_clip_with_rounded_corners:
%    \end{macrocode}
% We use |clist_map_inline:nn| because |#5| is a list of lists.
%    \begin{macrocode}
    \clist_map_inline:nn { #1 }
      {
%    \end{macrocode}
% We extract the key |offset| which is \emph{not} a key of TikZ but a key added
% by \pkg{nicematrix}.
%    \begin{macrocode}
        \keys_set_known:nnN { nicematrix / SpecialOffset } { ##1 } \l_tmpa_tl
        \use:e { \exp_not:N \path [ \l_tmpa_tl ] }
              ( 
                [ 
                  xshift = \dim_use:N \l_@@_offset_dim , 
                  yshift = - \dim_use:N \l_@@_offset_dim 
                ] 
                #2 -| #3
              ) 
              rectangle 
              ( 
                [ 
                  xshift = - \dim_use:N \l_@@_offset_dim , 
                  yshift = \dim_use:N \l_@@_offset_dim 
                ] 
                \int_eval:n { #4 + 1 } -| \int_eval:n { #5 + 1 } 
              ) ; 
      }
    \end { tikzpicture }
  }
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\keys_define:nn { nicematrix / SpecialOffset }
  { offset .dim_set:N = \l_@@_offset_dim }
%    \end{macrocode}
%
% \bigskip
% In some circonstancies, we want to nullify the command |\Block|. In order to
% reach that goal, we will link the command |\Block| to the following command
% |\@@_NullBlock:| which has the same syntax as the standard command |\Block|
% but which is no-op.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_NullBlock: 
  { \@@_collect_options:n { \@@_NullBlock_i: } } 
\NewExpandableDocumentCommand \@@_NullBlock_i: { m m D < > { } +m }
  { }
%    \end{macrocode}
% 
% 
% \section{How to draw the dotted lines transparently}
%    \begin{macrocode}
\cs_set_protected:Npn \@@_renew_matrix:
  { 
    \RenewDocumentEnvironment { pmatrix } { }
      { \pNiceMatrix } 
      { \endpNiceMatrix }
    \RenewDocumentEnvironment { vmatrix } { }
      { \vNiceMatrix }
      { \endvNiceMatrix }
    \RenewDocumentEnvironment { Vmatrix } { }
      { \VNiceMatrix }
      { \endVNiceMatrix }
    \RenewDocumentEnvironment { bmatrix } { }
      { \bNiceMatrix }
      { \endbNiceMatrix }
    \RenewDocumentEnvironment { Bmatrix } { }
      { \BNiceMatrix }
      { \endBNiceMatrix }
  }
%    \end{macrocode}
%
%
% \bigskip
% \section{Automatic arrays}
%
%
%
% We will extract some keys and pass the other keys to the environment
% |{NiceArrayWithDelims}|.
%    \begin{macrocode} 
\keys_define:nn { nicematrix / Auto }
  {
    columns-type .tl_set:N = \l_@@_columns_type_tl ,
    columns-type .value_required:n = true ,
    l .meta:n = { columns-type = l } ,
    r .meta:n = { columns-type = r } , 
    c .meta:n = { columns-type = c } ,
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    delimiters / max-width .bool_set:N = \l_@@_delimiters_max_width_bool ,
    delimiters / max-width .default:n = true ,
    delimiters .code:n = \keys_set:nn { nicematrix / delimiters } { #1 } , 
    delimiters .value_required:n = true , 
    rounded-corners .dim_set:N = \l_@@_tab_rounded_corners_dim ,
    rounded-corners .default:n = 4 pt 
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\NewDocumentCommand \AutoNiceMatrixWithDelims 
  { m m O { } > { \SplitArgument { 1 } { - } } m O { } m ! O { } } 
  { \@@_auto_nice_matrix:nnnnnn { #1 } { #2 } #4 { #6 } { #3 , #5 , #7  } }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_auto_nice_matrix:nnnnnn #1 #2 #3 #4 #5 #6
  {
%    \end{macrocode}
% The group is for the protection of the keys.
%    \begin{macrocode}
    \group_begin:
    \keys_set_known:nnN { nicematrix / Auto } { #6 } \l_tmpa_tl
    \use:e 
      {
        \exp_not:N \begin { NiceArrayWithDelims } { #1 } { #2 } 
          { * { #4 } { \exp_not:o \l_@@_columns_type_tl } }  
          [ \exp_not:o \l_tmpa_tl ] 
      }
    \int_if_zero:nT \l_@@_first_row_int 
      { 
        \int_if_zero:nT \l_@@_first_col_int { & } 
        \prg_replicate:nn { #4 - 1 } { & } 
        \int_compare:nNnT \l_@@_last_col_int > { -1 } { & } \\ 
      }
    \prg_replicate:nn { #3 }
      { 
        \int_if_zero:nT \l_@@_first_col_int { & }
%    \end{macrocode}
% We put |{ }| before |#6| to avoid a hasty expansion of a potential
% |\arabic{iRow}| at the beginning of the row which would result in an incorrect
% value of that |iRow| (since |iRow| is incremented in the first cell of the row
% of the |\halign|).
%    \begin{macrocode}
        \prg_replicate:nn { #4 - 1 } { { } #5 & } #5
        \int_compare:nNnT \l_@@_last_col_int > { -1 } { & } \\  
      }
    \int_compare:nNnT \l_@@_last_row_int > { -2 }
      { 
        \int_if_zero:nT \l_@@_first_col_int { & }
        \prg_replicate:nn { #4 - 1 } { & } 
        \int_compare:nNnT \l_@@_last_col_int > { -1 } { & } \\  
      }
    \end { NiceArrayWithDelims }
    \group_end:
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_set_protected:Npn \@@_define_com:nnn #1 #2 #3
  { 
    \cs_set_protected:cpn { #1 AutoNiceMatrix }
      {
        \bool_gset_true:N \g_@@_delims_bool 
        \str_gset:Ne \g_@@_name_env_str { #1 AutoNiceMatrix } 
        \AutoNiceMatrixWithDelims { #2 } { #3 }
      }  
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_define_com:nnn p ( ) 
\@@_define_com:nnn b [ ]
\@@_define_com:nnn v | |
\@@_define_com:nnn V \| \|
\@@_define_com:nnn B \{ \}
%    \end{macrocode}
%
% \bigskip
% We define also a command |\AutoNiceMatrix| similar to the environment |{NiceMatrix}|.
%    \begin{macrocode}
\NewDocumentCommand \AutoNiceMatrix { O { } m O { } m ! O { } } 
  { 
    \group_begin:
    \bool_gset_false:N \g_@@_delims_bool 
    \AutoNiceMatrixWithDelims . . { #2 } { #4 } [ #1 , #3 , #5 ] 
    \group_end:
  }
%    \end{macrocode}
%
% 
% \bigskip
% \section{The redefinition of the command \textbackslash dotfill }
%
%    \begin{macrocode}
\cs_set_eq:NN \@@_old_dotfill \dotfill
\cs_new_protected:Npn \@@_dotfill: 
  { 
%    \end{macrocode}
% First, we insert |\@@_dotfill| (which is the saved version of |\dotfill|) in
% case of use of |\dotfill| ``internally'' in the cell (e.g. |\hbox to 1cm {\dotfill}|).
%    \begin{macrocode}
    \@@_old_dotfill
    \tl_gput_right:Nn \g_@@_cell_after_hook_tl \@@_dotfill_i:
  }
%    \end{macrocode}
% Now, if the box if not empty (unfornately, we can't actually test whether the
% box is empty and that's why we only consider it's width), we insert
% |\@@_dotfill| (which is the saved version of |\dotfill|) in the cell of the
% array, and it will extend, since it is no longer in |\l_@@_cell_box|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_dotfill_i: 
  { \dim_compare:nNnT { \box_wd:N \l_@@_cell_box } = \c_zero_dim \@@_old_dotfill } 
%    \end{macrocode}
% 
% \bigskip
% \section{The command \textbackslash diagbox}
%
% The command |\diagbox| will be linked to |\diagbox:nn| in the environments of
% \pkg{nicematrix}. However, there are also redefinitions of |\diagbox| in other
% circonstancies.
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_diagbox:nn #1 #2
  {
    \tl_gput_right:Ne \g_@@_pre_code_after_tl    
      { 
        \@@_actually_diagbox:nnnnnn
          { \int_use:N \c@iRow } 
          { \int_use:N \c@jCol } 
          { \int_use:N \c@iRow } 
          { \int_use:N \c@jCol } 
%    \end{macrocode}
% |\g_@@_row_style_tl| contains several instructions of the form:
% 
% \qquad |\@@_if_row_less_than:nn { number } { instructions }|
%
% The command |\@@_if_row_less:nn| is fully expandable and, thus, the
% instructions will be inserted in the |\g_@@_pre_code_after_tl| only if
% |\diagbox| is used in a row which is the scope of that chunck of instructions.
%    \begin{macrocode}
          { \g_@@_row_style_tl \exp_not:n { #1 } } 
          { \g_@@_row_style_tl \exp_not:n { #2 } }
      }
%    \end{macrocode}
% We put the cell with |\diagbox| in the sequence |\g_@@_pos_of_blocks_seq|
% because a cell with |\diagbox| must be considered as non empty by the key 
% |corners|.
%    \begin{macrocode}
    \seq_gput_right:Ne \g_@@_pos_of_blocks_seq
      {
        { \int_use:N \c@iRow } 
        { \int_use:N \c@jCol } 
        { \int_use:N \c@iRow } 
        { \int_use:N \c@jCol } 
%    \end{macrocode}
% The last argument is for the name of the block.
%    \begin{macrocode}
        { } 
      }
  }
%    \end{macrocode}
%
% \medskip
% The command |\diagbox| is also redefined locally when we draw a block.
% 
% \medskip
% The first four arguments of |\@@_actually_diagbox:nnnnnn| correspond to the
% rectangle (=block) to slash (we recall that it's possible to use |\diagbox| in
% a |\Block|). The other two are the elements to draw below and above the
% diagonal line.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_actually_diagbox:nnnnnn #1 #2 #3 #4 #5 #6
  {
    \pgfpicture
    \pgf@relevantforpicturesizefalse
    \pgfrememberpicturepositiononpagetrue
    \@@_qpoint:n { row - #1 }
    \dim_set_eq:NN \l_tmpa_dim \pgf@y
    \@@_qpoint:n { col - #2 }
    \dim_set_eq:NN \l_tmpb_dim \pgf@x
    \pgfpathmoveto { \pgfpoint \l_tmpb_dim \l_tmpa_dim }
    \@@_qpoint:n { row - \int_eval:n { #3 + 1 } }
    \dim_set_eq:NN \l_@@_tmpc_dim \pgf@y 
    \@@_qpoint:n { col - \int_eval:n { #4 + 1 } }
    \dim_set_eq:NN \l_@@_tmpd_dim \pgf@x
    \pgfpathlineto { \pgfpoint \l_@@_tmpd_dim \l_@@_tmpc_dim }
    {
%    \end{macrocode}
% The command |\CT@arc@| is a command of \pkg{colortbl} which sets the color of
% the rules in the array. The package \pkg{nicematrix} uses it even if \pkg{colortbl} is not
% loaded.
%    \begin{macrocode}
       \CT@arc@
       \pgfsetroundcap
       \pgfusepathqstroke
    }
    \pgfset { inner~sep = 1 pt }
    \pgfscope
    \pgftransformshift { \pgfpoint \l_tmpb_dim \l_@@_tmpc_dim }
    \pgfnode { rectangle } { south~west } 
      { 
        \begin { minipage } { 20 cm }
%    \end{macrocode}
% The |\scan_stop:| avoids an error in math mode when the argument |#5| is empty.
%    \begin{macrocode}
        \@@_math_toggle: \scan_stop: #5 \@@_math_toggle: 
        \end { minipage } 
      } 
      { } 
      { }
    \endpgfscope
    \pgftransformshift { \pgfpoint \l_@@_tmpd_dim \l_tmpa_dim }
    \pgfnode { rectangle } { north~east } 
      {
        \begin { minipage } { 20 cm }
        \raggedleft
        \@@_math_toggle: \scan_stop: #6 \@@_math_toggle: 
        \end { minipage } 
      } 
      { } 
      { }
    \endpgfpicture
  }
%    \end{macrocode}
%
% 
%
% 
% \bigskip
% \section{The keyword \textbackslash CodeAfter}
%
% 
% 
% \medskip
% In fact, in this subsection, we define the user command |\CodeAfter| for the
% case of the ``normal syntax''. For the case of ``light-syntax'', see the
% definition of the environment |{@@-light-syntax}| on
% p.~\pageref{code-light-syntax}. 
% 
%
% \medskip
% In the environments of \pkg{nicematrix}, |\CodeAfter| will be linked to 
% |\@@_CodeAfter:|. That macro must \emph{not} be protected since it begins with
% |\omit|. 
%    \begin{macrocode}
\cs_new:Npn \@@_CodeAfter: { \omit \@@_CodeAfter_ii:n }
%    \end{macrocode}
%
% \medskip
% However, in each cell of the environment, the command |\CodeAfter| will be
% linked to the following command |\@@_CodeAfter_ii:n| which begins
% with |\\|.
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_CodeAfter_i: { \\ \omit \@@_CodeAfter_ii:n }
%    \end{macrocode}
%
% \smallskip
% We have to catch everything until the end of the current environment (of
% \pkg{nicematrix}). First, we go until the next command |\end|. 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_CodeAfter_ii:n #1 \end
  {
    \tl_gput_right:Nn \g_nicematrix_code_after_tl { #1 } 
    \@@_CodeAfter_iv:n
  }
%    \end{macrocode}
%
% We catch the argument of the command |\end| (in |#1|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_CodeAfter_iv:n #1
  {
%    \end{macrocode}
% If this is really the end of the current environment (of \pkg{nicematrix}), we
% put back the command |\end| and its argument in the TeX flow.
%    \begin{macrocode}
    \str_if_eq:eeTF \@currenvir { #1 } 
      { \end { #1 } }
%    \end{macrocode}
% If this is not the |\end| we are looking for, we put those tokens in
% |\g_nicematrix_code_after_tl| and we go on searching for the next command
% |\end| with a recursive call to the command |\@@_CodeAfter:n|.
%    \begin{macrocode}
      { 
        \tl_gput_right:Nn \g_nicematrix_code_after_tl { \end { #1 } } 
        \@@_CodeAfter_ii:n
      } 
  }
%    \end{macrocode}
%
% 
%
% \section{The delimiters in the preamble}
%
% The command |\@@_delimiter:nnn| will be used to draw delimiters inside the
% matrix when delimiters are specified in the preamble of the array. It does
% \emph{not} concern the exterior delimiters added by |{NiceArrayWithDelims}|
% (and |{pNiceArray}|, |{pNiceMatrix}|, etc.).
% 
% A delimiter in the preamble of the array will write an instruction
% |\@@_delimiter:nnn| in the |\g_@@_pre_code_after_tl| (and also
% potentially add instructions in the preamble provided to |\array| in order to
% add space between columns).
% 
% \smallskip
% The first argument is the type of delimiter (|(|, |[|, |\{|, |)|, |]| or
% |\}|). The second argument is the number of colummn. The third argument is a
% boolean equal to |\c_true_bool| (resp. |\c_false_true|) when the delimiter
% must be put on the left (resp. right) side.
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_delimiter:nnn #1 #2 #3
  {
    \pgfpicture 
    \pgfrememberpicturepositiononpagetrue
    \pgf@relevantforpicturesizefalse
%    \end{macrocode}
%
% \medskip
% |\l_@@_y_initial_dim| and |\l_@@_y_final_dim| will be the $y$-values of the
% extremities of the delimiter we will have to construct.
%    \begin{macrocode}
    \@@_qpoint:n { row - 1 }
    \dim_set_eq:NN \l_@@_y_initial_dim \pgf@y
    \@@_qpoint:n { row - \int_eval:n { \c@iRow + 1 } }
    \dim_set_eq:NN \l_@@_y_final_dim \pgf@y
%    \end{macrocode}
% 
% \medskip
% We will compute in |\l_tmpa_dim| the $x$-value where we will have to put our
% delimiter (on the left side or on the right side).
%    \begin{macrocode}
    \bool_if:nTF { #3 }
      { \dim_set_eq:NN \l_tmpa_dim \c_max_dim }
      { \dim_set:Nn \l_tmpa_dim { - \c_max_dim } }
    \int_step_inline:nnn \l_@@_first_row_int \g_@@_row_total_int 
      {
        \cs_if_exist:cT 
          { pgf @ sh @ ns @ \@@_env: - ##1 - #2 }
          {
            \pgfpointanchor 
              { \@@_env: - ##1 - #2 } 
              { \bool_if:nTF { #3 } { west } { east } }
            \dim_set:Nn \l_tmpa_dim 
              { \bool_if:nTF { #3 } \dim_min:nn \dim_max:nn \l_tmpa_dim \pgf@x } 
          }
      }
%    \end{macrocode}
%
%
% Now we can put the delimiter with a node of \textsc{pgf}.
%    \begin{macrocode}
    \pgfset { inner~sep = \c_zero_dim }
    \dim_zero:N \nulldelimiterspace
    \pgftransformshift 
      { 
        \pgfpoint 
          { \l_tmpa_dim }
          { ( \l_@@_y_initial_dim + \l_@@_y_final_dim + \arrayrulewidth ) / 2 }
      } 
    \pgfnode
      { rectangle }
      { \bool_if:nTF { #3 } { east } { west } }
      {
%    \end{macrocode}
% Here is the content of the \textsc{pgf} node, that is to say the delimiter,
% constructed with its right size.
%    \begin{macrocode}
        \nullfont
        \c_math_toggle_token
        \@@_color:o \l_@@_delimiters_color_tl 
        \bool_if:nTF { #3 } { \left #1 } { \left . }
        \vcenter 
          { 
            \nullfont 
            \hrule \@height 
                   \dim_eval:n { \l_@@_y_initial_dim - \l_@@_y_final_dim } 
                   \@depth \c_zero_dim 
                   \@width \c_zero_dim 
          }
        \bool_if:nTF { #3 } { \right . } { \right #1 }
        \c_math_toggle_token
      } 
      { }
      { }
    \endpgfpicture 
  } 
%    \end{macrocode}
%
% \section{The command \textbackslash SubMatrix}
%
% 
%    \begin{macrocode}
\keys_define:nn { nicematrix / sub-matrix }
  {
    extra-height .dim_set:N = \l_@@_submatrix_extra_height_dim ,
    extra-height .value_required:n = true ,
    left-xshift .dim_set:N = \l_@@_submatrix_left_xshift_dim ,
    left-xshift .value_required:n = true ,
    right-xshift .dim_set:N = \l_@@_submatrix_right_xshift_dim ,
    right-xshift .value_required:n = true ,
    xshift .meta:n = { left-xshift = #1, right-xshift = #1 } ,
    xshift .value_required:n = true ,
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    slim .bool_set:N = \l_@@_submatrix_slim_bool ,
    slim .default:n = true ,
    hlines .clist_set:N = \l_@@_submatrix_hlines_clist ,
    hlines .default:n = all ,
    vlines .clist_set:N = \l_@@_submatrix_vlines_clist ,
    vlines .default:n = all ,
    hvlines .meta:n = { hlines, vlines } ,
    hvlines .value_forbidden:n = true 
  }
\keys_define:nn { nicematrix }
  { 
    SubMatrix .inherit:n = nicematrix / sub-matrix ,
    NiceArray / sub-matrix .inherit:n = nicematrix / sub-matrix ,
    pNiceArray / sub-matrix .inherit:n = nicematrix / sub-matrix ,
    NiceMatrixOptions / sub-matrix .inherit:n = nicematrix / sub-matrix , 
  }
%    \end{macrocode}
%
% \medskip
% The following keys set is for the command |\SubMatrix| itself (not the tuning
% of |\SubMatrix| that can be done elsewhere).
%    \begin{macrocode}
\keys_define:nn { nicematrix / SubMatrix }
  {
    delimiters / color .tl_set:N = \l_@@_delimiters_color_tl ,
    delimiters / color .value_required:n = true ,
    hlines .clist_set:N = \l_@@_submatrix_hlines_clist ,
    hlines .default:n = all ,
    vlines .clist_set:N = \l_@@_submatrix_vlines_clist ,
    vlines .default:n = all ,
    hvlines .meta:n = { hlines, vlines } ,
    hvlines .value_forbidden:n = true ,
    name .code:n = 
      \tl_if_empty:nTF { #1 } 
        { \@@_error:n { Invalid~name } }
        {
          \regex_match:nnTF { \A[A-Za-z][A-Za-z0-9]*\Z } { #1 }
            { 
              \seq_if_in:NnTF \g_@@_submatrix_names_seq { #1 }
                { \@@_error:nn { Duplicate~name~for~SubMatrix } { #1 } }
                { 
                  \str_set:Nn \l_@@_submatrix_name_str { #1 } 
                  \seq_gput_right:Nn \g_@@_submatrix_names_seq { #1 }
                }
            }
            { \@@_error:n { Invalid~name } }
        } ,
    name .value_required:n = true ,
    rules .code:n = \keys_set:nn { nicematrix / rules } { #1 } ,
    rules .value_required:n = true ,
    code .tl_set:N = \l_@@_code_tl ,
    code .value_required:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~SubMatrix }
  }
%    \end{macrocode}
%
% 
% 
% \bigskip
%    \begin{macrocode}
\NewDocumentCommand \@@_SubMatrix_in_code_before { m m m m ! O { } }
  {
    \peek_remove_spaces:n
      { 
        \tl_gput_right:Ne \g_@@_pre_code_after_tl
          { 
            \SubMatrix { #1 } { #2 } { #3 } { #4 } 
              [ 
                delimiters / color = \l_@@_delimiters_color_tl , 
                hlines = \l_@@_submatrix_hlines_clist ,
                vlines = \l_@@_submatrix_vlines_clist ,
                extra-height = \dim_use:N \l_@@_submatrix_extra_height_dim ,
                left-xshift = \dim_use:N \l_@@_submatrix_left_xshift_dim ,
                right-xshift = \dim_use:N \l_@@_submatrix_right_xshift_dim ,
                slim = \bool_to_str:N \l_@@_submatrix_slim_bool ,
                #5 
              ] 
          }
        \@@_SubMatrix_in_code_before_i { #2 } { #3 }
      }
  }
%    \end{macrocode}
%    
%    \begin{macrocode}
\NewDocumentCommand \@@_SubMatrix_in_code_before_i 
  { > { \SplitArgument { 1 } { - } } m > { \SplitArgument { 1 } { - } } m }
  { \@@_SubMatrix_in_code_before_i:nnnn #1 #2 }
%    \end{macrocode}
%
%    \begin{macrocode}
\cs_new_protected:Npn \@@_SubMatrix_in_code_before_i:nnnn #1 #2 #3 #4
  { 
    \seq_gput_right:Ne \g_@@_submatrix_seq 
      { 
%    \end{macrocode}
% We use |\str_if_eq:eeTF| because it is fully expandable (and slightly faster
% than |\tl_if_eq:nnTF|).
%    \begin{macrocode}
        { \str_if_eq:eeTF { #1 } { last } { \int_use:N \c@iRow } { #1 } } 
        { \str_if_eq:eeTF { #2 } { last } { \int_use:N \c@jCol } { #2 } } 
        { \str_if_eq:eeTF { #3 } { last } { \int_use:N \c@iRow } { #3 } } 
        { \str_if_eq:eeTF { #4 } { last } { \int_use:N \c@jCol } { #4 } } 
      }
  }
%    \end{macrocode}
% 
%
% \bigskip
% In the pre-code-after and in the |\CodeAfter| the following command
% |\@@_SubMatrix| will be linked to |\SubMatrix|. 
% \begin{itemize}
% \item |#1| is the left delimiter;
% \item |#2| is the upper-left cell of the matrix with the format $i$-$j$;
% \item |#3| is the lower-right cell of the matrix with the format $i$-$j$;
% \item |#4| is the right delimiter;
% \item |#5| is the list of options of the command;
% \item |#6| is the potential subscript;
% \item |#7| is the potential superscript.
% \end{itemize}
% For explanations about the construction with rescanning of the preamble, see
% the documentation for the user command |\Cdots|.
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . } 
  {
    \cs_set_nopar:Npn \l_@@_argspec_tl { m m m m O { } E { _ ^ } { { } { } } }
    \tl_set_rescan:Nno  \l_@@_argspec_tl { } \l_@@_argspec_tl
    \exp_args:NNo \NewDocumentCommand \@@_SubMatrix \l_@@_argspec_tl 
      {
        \peek_remove_spaces:n
          { 
            \@@_sub_matrix:nnnnnnn
              { #1 } { #2 } { #3 } { #4 } { #5 } { #6 } { #7 } 
          }
      }
  }
%    \end{macrocode}
%
% \medskip
% The following macro will compute |\l_@@_first_i_tl|, |\l_@@_first_j_tl|,
% |\l_@@_last_i_tl| and |\l_@@_last_j_tl| from the arguments of the command as
% provided by the user (for example |2-3| and |5-last|).
%    \begin{macrocode}
\NewDocumentCommand \@@_compute_i_j:nn 
  { > { \SplitArgument { 1 } { - } } m > { \SplitArgument { 1 } { - } } m }
  { \@@_compute_i_j:nnnn #1 #2 }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_compute_i_j:nnnn #1 #2 #3 #4 
  {
    \cs_set_nopar:Npn \l_@@_first_i_tl { #1 }
    \cs_set_nopar:Npn \l_@@_first_j_tl { #2 }
    \cs_set_nopar:Npn \l_@@_last_i_tl { #3 }
    \cs_set_nopar:Npn \l_@@_last_j_tl { #4 }
    \tl_if_eq:NnT \l_@@_first_i_tl { last }
      { \tl_set:NV \l_@@_first_i_tl \c@iRow }
    \tl_if_eq:NnT \l_@@_first_j_tl { last }
      { \tl_set:NV \l_@@_first_j_tl \c@jCol }
    \tl_if_eq:NnT \l_@@_last_i_tl { last }
      { \tl_set:NV \l_@@_last_i_tl \c@iRow }
    \tl_if_eq:NnT \l_@@_last_j_tl { last }
      { \tl_set:NV \l_@@_last_j_tl \c@jCol }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\cs_new_protected:Npn \@@_sub_matrix:nnnnnnn #1 #2 #3 #4 #5 #6 #7
  {
    \group_begin:
%    \end{macrocode}
% The four following token lists correspond to the position of the |\SubMatrix|.
%    \begin{macrocode}
    \@@_compute_i_j:nn { #2 } { #3 }
    \int_compare:nNnT \l_@@_first_i_tl = \l_@@_last_i_tl
      { \cs_set_nopar:Npn \arraystretch { 1 } }
    \bool_lazy_or:nnTF
      { \int_compare_p:nNn \l_@@_last_i_tl > \g_@@_row_total_int } 
      { \int_compare_p:nNn \l_@@_last_j_tl > \g_@@_col_total_int }
      { \@@_error:nn { Construct~too~large } { \SubMatrix } }
      {
        \str_clear_new:N \l_@@_submatrix_name_str
        \keys_set:nn { nicematrix / SubMatrix } { #5 }
        \pgfpicture 
        \pgfrememberpicturepositiononpagetrue
        \pgf@relevantforpicturesizefalse
        \pgfset { inner~sep = \c_zero_dim }
        \dim_set_eq:NN \l_@@_x_initial_dim \c_max_dim
        \dim_set:Nn \l_@@_x_final_dim { - \c_max_dim }
%    \end{macrocode}
% The last value of |\int_step_inline:nnn| is provided by currifycation.
%    \begin{macrocode}
        \bool_if:NTF \l_@@_submatrix_slim_bool
          { \int_step_inline:nnn \l_@@_first_i_tl \l_@@_last_i_tl }
          { \int_step_inline:nnn \l_@@_first_row_int \g_@@_row_total_int }
          {
            \cs_if_exist:cT 
              { pgf @ sh @ ns @ \@@_env: - ##1 - \l_@@_first_j_tl }
              {
                \pgfpointanchor { \@@_env: - ##1 - \l_@@_first_j_tl } { west }
                \dim_compare:nNnT \pgf@x < \l_@@_x_initial_dim
                  { \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x }
              }
            \cs_if_exist:cT 
              { pgf @ sh @ ns @ \@@_env: - ##1 - \l_@@_last_j_tl }
              {
                \pgfpointanchor { \@@_env: - ##1 - \l_@@_last_j_tl } { east }
                \dim_compare:nNnT \pgf@x > \l_@@_x_final_dim
                  { \dim_set_eq:NN \l_@@_x_final_dim \pgf@x }
              }
          }
        \dim_compare:nNnTF \l_@@_x_initial_dim = \c_max_dim
          { \@@_error:nn { Impossible~delimiter } { left } }
          {
            \dim_compare:nNnTF \l_@@_x_final_dim = { - \c_max_dim }
              { \@@_error:nn { Impossible~delimiter } { right } }
              { \@@_sub_matrix_i:nnnn { #1 } { #4 } { #6 } { #7 } }
          }
        \endpgfpicture
      }
    \group_end:
  }
%    \end{macrocode}
% 
% \bigskip
% |#1| is the left delimiter, |#2| is the right one, |#3| is the subscript and
% |#4| is the superscript.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_sub_matrix_i:nnnn #1 #2 #3 #4
  { 
    \@@_qpoint:n { row - \l_@@_first_i_tl - base }
    \dim_set:Nn \l_@@_y_initial_dim 
      { 
        \fp_to_dim:n 
          { 
            \pgf@y 
            + ( \box_ht:N \strutbox + \extrarowheight ) * \arraystretch 
          } 
      } 
    \@@_qpoint:n { row - \l_@@_last_i_tl - base }
    \dim_set:Nn \l_@@_y_final_dim 
      { \fp_to_dim:n { \pgf@y - ( \box_dp:N \strutbox ) * \arraystretch } } 
    \int_step_inline:nnn \l_@@_first_col_int \g_@@_col_total_int 
      {
        \cs_if_exist:cT 
          { pgf @ sh @ ns @ \@@_env: - \l_@@_first_i_tl - ##1 }
          {
            \pgfpointanchor { \@@_env: - \l_@@_first_i_tl - ##1 } { north }
            \dim_set:Nn \l_@@_y_initial_dim
              { \dim_max:nn \l_@@_y_initial_dim \pgf@y }
          }
        \cs_if_exist:cT 
          { pgf @ sh @ ns @ \@@_env: - \l_@@_last_i_tl - ##1 }
          {
            \pgfpointanchor { \@@_env: - \l_@@_last_i_tl - ##1 } { south }
            \dim_compare:nNnT \pgf@y < \l_@@_y_final_dim
              { \dim_set_eq:NN \l_@@_y_final_dim \pgf@y }
          }
      }
    \dim_set:Nn \l_tmpa_dim 
      { 
        \l_@@_y_initial_dim - \l_@@_y_final_dim +
        \l_@@_submatrix_extra_height_dim - \arrayrulewidth 
      }
    \dim_zero:N \nulldelimiterspace 
%    \end{macrocode}
%
% \bigskip
% We will draw the rules in the |\SubMatrix|.
%    \begin{macrocode}
    \group_begin:
    \pgfsetlinewidth { 1.1 \arrayrulewidth }
    \@@_set_CT@arc@:o \l_@@_rules_color_tl 
    \CT@arc@ 
%    \end{macrocode}
% Now, we draw the potential vertical rules specified in the preamble of the
% environments with the letter fixed with the key |vlines-in-sub-matrix|. The
% list of the columns where there is such rule to draw is in |\g_@@_cols_vlism_seq|.
%    \begin{macrocode}
    \seq_map_inline:Nn \g_@@_cols_vlism_seq 
      {
        \int_compare:nNnT \l_@@_first_j_tl < { ##1 } 
          { 
            \int_compare:nNnT 
              { ##1 } < { \int_eval:n { \l_@@_last_j_tl + 1 } }
              {
%    \end{macrocode}
% First, we extract the value of the abscissa of the rule we have to draw.
%    \begin{macrocode}
                \@@_qpoint:n { col - ##1 }
                \pgfpathmoveto { \pgfpoint \pgf@x \l_@@_y_initial_dim }
                \pgfpathlineto { \pgfpoint \pgf@x \l_@@_y_final_dim }
                \pgfusepathqstroke
              }
          }
      }
%    \end{macrocode} 
%
% \medskip
% Now, we draw the vertical rules specified in the key |vlines| of |\SubMatrix|.
% The last argument of |\int_step_inline:nn| or |\clist_map_inline:Nn| is given
% by curryfication.
%    \begin{macrocode}
    \str_if_eq:eeTF \l_@@_submatrix_vlines_clist { all }
      { \int_step_inline:nn { \l_@@_last_j_tl - \l_@@_first_j_tl } }
      { \clist_map_inline:Nn \l_@@_submatrix_vlines_clist }
      {
        \bool_lazy_and:nnTF
          { \int_compare_p:nNn { ##1 } > \c_zero_int }
          { 
             \int_compare_p:nNn 
               { ##1 } < { \l_@@_last_j_tl - \l_@@_first_j_tl + 1 } } 
          {
            \@@_qpoint:n { col - \int_eval:n { ##1 + \l_@@_first_j_tl } }
            \pgfpathmoveto { \pgfpoint \pgf@x \l_@@_y_initial_dim }
            \pgfpathlineto { \pgfpoint \pgf@x \l_@@_y_final_dim }
            \pgfusepathqstroke
          }
          { \@@_error:nnn { Wrong~line~in~SubMatrix } { vertical } { ##1 } }
      }
%    \end{macrocode}
%
% \medskip
% Now, we draw the horizontal rules specified in the key |hlines| of
% |\SubMatrix|.
% The last argument of |\int_step_inline:nn| or |\clist_map_inline:Nn| is given
% by curryfication.
%    \begin{macrocode}
    \str_if_eq:eeTF \l_@@_submatrix_hlines_clist { all }
      { \int_step_inline:nn { \l_@@_last_i_tl - \l_@@_first_i_tl } }
      { \clist_map_inline:Nn \l_@@_submatrix_hlines_clist }
      {
        \bool_lazy_and:nnTF
          { \int_compare_p:nNn { ##1 } > \c_zero_int }
          { 
            \int_compare_p:nNn 
              { ##1 } < { \l_@@_last_i_tl - \l_@@_first_i_tl + 1 } } 
          {
            \@@_qpoint:n { row - \int_eval:n { ##1 + \l_@@_first_i_tl } }
%    \end{macrocode}
% We use a group to protect |\l_tmpa_dim| and |\l_tmpb_dim|.
%    \begin{macrocode}
            \group_begin:
%    \end{macrocode}
% We compute in |\l_tmpa_dim| the $x$-value of the left end of the rule.
%    \begin{macrocode}
            \dim_set:Nn \l_tmpa_dim 
              { \l_@@_x_initial_dim - \l_@@_submatrix_left_xshift_dim }
            \str_case:nn { #1 }
              {    
                (  { \dim_sub:Nn \l_tmpa_dim { 0.9 mm } }
                [  { \dim_sub:Nn \l_tmpa_dim { 0.2 mm } }
                \{ { \dim_sub:Nn \l_tmpa_dim { 0.9 mm } }
              }
            \pgfpathmoveto { \pgfpoint \l_tmpa_dim \pgf@y }
%    \end{macrocode}
% We compute in |\l_tmpb_dim| the $x$-value of the right end of the rule.
%    \begin{macrocode}
            \dim_set:Nn \l_tmpb_dim 
              { \l_@@_x_final_dim + \l_@@_submatrix_right_xshift_dim }
            \str_case:nn { #2 }
              {    
                )  { \dim_add:Nn \l_tmpb_dim { 0.9 mm } }
                ]  { \dim_add:Nn \l_tmpb_dim { 0.2 mm } }
                \} { \dim_add:Nn \l_tmpb_dim { 0.9 mm } }
              }
            \pgfpathlineto { \pgfpoint \l_tmpb_dim \pgf@y }
            \pgfusepathqstroke
            \group_end:
          }
          { \@@_error:nnn { Wrong~line~in~SubMatrix } { horizontal } { ##1 } }
      }
%    \end{macrocode}
% 
% \medskip 
% If the key |name| has been used for the command |\SubMatrix|, we create a PGF
% node with that name for the submatrix (this node does not encompass the
% delimiters that we will put after).
%    \begin{macrocode}
    \str_if_empty:NF \l_@@_submatrix_name_str
      {
        \@@_pgf_rect_node:nnnnn \l_@@_submatrix_name_str
          \l_@@_x_initial_dim \l_@@_y_initial_dim
          \l_@@_x_final_dim \l_@@_y_final_dim
      }
    \group_end:
%    \end{macrocode}
% The group was for |\CT@arc@| (the color of the rules).
%
% \medskip
% Now, we deal with the left delimiter. Of course, the environment
% |{pgfscope}| is for the |\pgftransformshift|.
%    \begin{macrocode}
    \begin { pgfscope }
    \pgftransformshift 
      { 
        \pgfpoint 
          { \l_@@_x_initial_dim - \l_@@_submatrix_left_xshift_dim }
          { ( \l_@@_y_initial_dim + \l_@@_y_final_dim ) / 2 }
      } 
    \str_if_empty:NTF \l_@@_submatrix_name_str
      { \@@_node_left:nn #1 { } }
      { \@@_node_left:nn #1 { \@@_env: - \l_@@_submatrix_name_str - left } } 
    \end { pgfscope }
%    \end{macrocode}
%
% \medskip
% Now, we deal with the right delimiter.
%    \begin{macrocode}
    \pgftransformshift 
      { 
        \pgfpoint 
          { \l_@@_x_final_dim + \l_@@_submatrix_right_xshift_dim } 
          { ( \l_@@_y_initial_dim + \l_@@_y_final_dim ) / 2 }
      } 
    \str_if_empty:NTF \l_@@_submatrix_name_str
      { \@@_node_right:nnnn #2 { } { #3 } { #4 } }
      { 
        \@@_node_right:nnnn #2 
          { \@@_env: - \l_@@_submatrix_name_str - right } { #3 } { #4 }
      } 
%    \end{macrocode}
%
%    \begin{macrocode}
    \cs_set_eq:NN \pgfpointanchor \@@_pgfpointanchor:n
    \flag_clear_new:N \l_@@_code_flag
    \l_@@_code_tl
  }
%    \end{macrocode}
%
% \bigskip
% In the key |code| of the command |\SubMatrix| there may be Tikz instructions.
% We want that, in these instructions, the $i$ and $j$ in specifications of
% nodes of the forms $i$|-|$j$, |row-|$i$, |col-|$j$ and $i$\verb+-|+$j$ refer
% to the number of row and columm \emph{relative} of the current |\SubMatrix|.
% That's why we will patch (locally in the |\SubMatrix|) the command
% |\pgfpointanchor|. 
%    \begin{macrocode}
\cs_set_eq:NN \@@_old_pgfpointanchor \pgfpointanchor
%    \end{macrocode}
%
% \bigskip
% The following command will be linked to |\pgfpointanchor| just before the
% execution of the option |code| of the command |\SubMatrix|. In this command,
% we catch the argument |#1| of |\pgfpointanchor| and we apply to it the command
% |\@@_pgfpointanchor_i:nn| before passing it to the original |\pgfpointanchor|.
% We have to act in an expandable way because the command |\pgfpointanchor| is
% used in names of Tikz nodes which are computed in an expandable way.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_pgfpointanchor:n #1 
  { 
    \use:e 
      { \exp_not:N \@@_old_pgfpointanchor { \@@_pgfpointanchor_i:nn #1 } }
  } 
%    \end{macrocode}
%
% \bigskip
% In fact, the argument of |\pgfpointanchor| is always of the form 
% |\a_command { name_of_node }| where ``|name_of_node|'' is the name of the Tikz
% node without the potential prefix and suffix. That's why we catch two
% arguments and work only on the second by trying (first) to extract an hyphen |-|.
%    \begin{macrocode}
\cs_new:Npn \@@_pgfpointanchor_i:nn #1 #2 
  { #1 { \@@_pgfpointanchor_ii:w #2 - \q_stop } } 
%    \end{macrocode}
%
% \bigskip
% Since |\seq_if_in:NnTF| and |\clist_if_in:NnTF| are not expandable, we will
% use the following token list and |\str_case:nVTF| to test whether we have an
% integer or not.
%    \begin{macrocode}
\tl_const:Nn \c_@@_integers_alist_tl
  { 
    { 1 } { } { 2 } { } { 3 } { } { 4 } { } { 5 } { } 
    { 6 } { } { 7 } { } { 8 } { } { 9 } { } { 10 } { } 
    { 11 } { } { 12 } { } { 13 } { } { 14 } { } { 15 } { } 
    { 16 } { } { 17 } { } { 18 } { } { 19 } { } { 20 } { } 
  }  
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\cs_new:Npn \@@_pgfpointanchor_ii:w #1-#2\q_stop
  { 
%    \end{macrocode}
% If there is no hyphen, that means that the node is of the form of a single
% number (ex.: |5| or |11|). In that case, we are in an analysis which result
% from a specification of node of the form $i$\verb+-|+$j$. In that case, the
% $i$ of the number of row arrives first (and alone) in a |\pgfpointanchor| and,
% the, the $j$ arrives (alone) in the following |\pgfpointanchor|. In order to
% know whether we have a number of row or a number of column, we keep track of
% the number of such treatments by the expandable flag called |nicematrix|.
%    \begin{macrocode}
    \tl_if_empty:nTF { #2 }
      { 
        \str_case:nVTF { #1 } \c_@@_integers_alist_tl
          {
            \flag_raise:N \l_@@_code_flag
            \int_if_even:nTF { \flag_height:N \l_@@_code_flag } 
              { \int_eval:n { #1 + \l_@@_first_i_tl - 1 } }
              { \int_eval:n { #1 + \l_@@_first_j_tl - 1 } }
         }
         { #1 }
      }
%    \end{macrocode}
% If there is an hyphen, we have to see whether we have a node of the form
% $i$|-|$j$, |row-|$i$ or |col-|$j$.
%    \begin{macrocode}
      { \@@_pgfpointanchor_iii:w { #1 } #2 }
  }
%    \end{macrocode}
%
% \bigskip
% There was an hyphen in the name of the node and that's why we have to retrieve
% the extra hyphen we have put (cf. |\@@_pgfpointanchor_i:nn|).
%    \begin{macrocode}
\cs_new:Npn \@@_pgfpointanchor_iii:w #1 #2 - 
  {
    \str_case:nnF { #1 }
      { 
        { row } { row - \int_eval:n { #2 + \l_@@_first_i_tl - 1 } } 
        { col } { col - \int_eval:n { #2 + \l_@@_first_j_tl - 1 } } 
      }
%    \end{macrocode}
% Now the case of a node of the form $i$|-|$j$.
%    \begin{macrocode}
      { 
        \int_eval:n { #1 + \l_@@_first_i_tl - 1 } 
        - \int_eval:n { #2 + \l_@@_first_j_tl - 1 } 
      }
  }
%    \end{macrocode}
% 
% \medskip
% The command |\@@_node_left:nn| puts the left delimiter with the correct size.
% The argument |#1| is the delimiter to put. The argument |#2| is the name we
% will give to this PGF node (if the key |name| has been used in |\SubMatrix|).
%    \begin{macrocode}
\cs_new_protected:Npn \@@_node_left:nn #1 #2
  {
    \pgfnode
      { rectangle }
      { east }
      {
        \nullfont
        \c_math_toggle_token
        \@@_color:o \l_@@_delimiters_color_tl 
        \left #1
        \vcenter 
          { 
            \nullfont 
            \hrule \@height \l_tmpa_dim 
                   \@depth \c_zero_dim 
                   \@width \c_zero_dim 
          }
        \right .
        \c_math_toggle_token
      } 
      { #2 }
      { }
  }
%    \end{macrocode}
%
% \medskip
% The command |\@@_node_right:nn| puts the right delimiter with the correct size.
% The argument |#1| is the delimiter to put. The argument |#2| is the name we
% will give to this PGF node (if the key |name| has been used in |\SubMatrix|).
% The argument |#3| is the subscript and |#4| is the superscript.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_node_right:nnnn #1 #2 #3 #4
  {
    \pgfnode
      { rectangle }
      { west }
      {
        \nullfont
        \c_math_toggle_token
        \colorlet { current-color } { . }
        \@@_color:o \l_@@_delimiters_color_tl 
        \left .
        \vcenter 
          { 
            \nullfont 
            \hrule \@height \l_tmpa_dim 
                   \@depth \c_zero_dim
                   \@width \c_zero_dim
          } 
        \right #1 
        \tl_if_empty:nF { #3 } { _ { \smash { #3 } } }
        ^ { \color { current-color } \smash { #4 } } 
        \c_math_toggle_token
      } 
      { #2 }
      { }
  }
%    \end{macrocode}
% 
%
% \bigskip
% \section{Les commandes \textbackslash UnderBrace et \textbackslash
% OverBrace}
%
% The following commands will be linked to |\UnderBrace| and |\OverBrace| in the
% |\CodeAfter|. 
% 
%    \begin{macrocode}
\NewDocumentCommand \@@_UnderBrace { O { } m m m O { } }
  { 
    \peek_remove_spaces:n 
      { \@@_brace:nnnnn { #2 } { #3 } { #4 } { #1 , #5 } { under } } 
  } 
%    \end{macrocode}
%
%    \begin{macrocode}
\NewDocumentCommand \@@_OverBrace { O { } m m m O { } }
  { 
    \peek_remove_spaces:n 
      { \@@_brace:nnnnn { #2 } { #3 } { #4 } { #1 , #5 } { over } } 
  } 
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\keys_define:nn { nicematrix / Brace } 
  {
    left-shorten .bool_set:N = \l_@@_brace_left_shorten_bool ,
    left-shorten .default:n = true ,
    left-shorten .value_forbidden:n = true ,
    right-shorten .bool_set:N = \l_@@_brace_right_shorten_bool ,
    right-shorten .default:n = true ,
    right-shorten .value_forbidden:n = true ,
    shorten .meta:n = { left-shorten , right-shorten } , 
    shorten .value_forbidden:n = true ,
    yshift .dim_set:N = \l_@@_brace_yshift_dim , 
    yshift .value_required:n = true ,
    yshift .initial:n = \c_zero_dim ,
    color .tl_set:N = \l_tmpa_tl , 
    color .value_required:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~Brace }
  }
%    \end{macrocode}
%
% \medskip
% |#1| is the first cell of the rectangle (with the syntax $i$\verb+-|+$j$;
% |#2| is the last cell of the rectangle;
% |#3| is the label of the text;
% |#4| is the optional argument (a list of \textsl{key}-\textsl{value} pairs);
% |#5| is equal to |under| or |over|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_brace:nnnnn #1 #2 #3 #4 #5
  {
    \group_begin:
%    \end{macrocode}
% The four following token lists correspond to the position of the sub-matrix to
% which a brace will be attached.
%    \begin{macrocode}
    \@@_compute_i_j:nn { #1 } { #2 }
    \bool_lazy_or:nnTF
      { \int_compare_p:nNn \l_@@_last_i_tl > \g_@@_row_total_int } 
      { \int_compare_p:nNn \l_@@_last_j_tl > \g_@@_col_total_int }
      { 
        \str_if_eq:eeTF { #5 } { under }
          { \@@_error:nn { Construct~too~large } { \UnderBrace } }
          { \@@_error:nn { Construct~too~large } { \OverBrace } }
      }
      {
        \tl_clear:N \l_tmpa_tl 
        \keys_set:nn { nicematrix / Brace } { #4 }
        \tl_if_empty:NF \l_tmpa_tl { \color { \l_tmpa_tl } } 
        \pgfpicture 
        \pgfrememberpicturepositiononpagetrue
        \pgf@relevantforpicturesizefalse
        \bool_if:NT \l_@@_brace_left_shorten_bool 
          {
            \dim_set_eq:NN \l_@@_x_initial_dim \c_max_dim
            \int_step_inline:nnn \l_@@_first_i_tl \l_@@_last_i_tl 
              {
                \cs_if_exist:cT 
                  { pgf @ sh @ ns @ \@@_env: - ##1 - \l_@@_first_j_tl }
                  {
                    \pgfpointanchor { \@@_env: - ##1 - \l_@@_first_j_tl } { west }
              
                    \dim_compare:nNnT \pgf@x < \l_@@_x_initial_dim
                      { \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x }
                  }
              }
          }
        \bool_lazy_or:nnT
          { \bool_not_p:n \l_@@_brace_left_shorten_bool }
          { \dim_compare_p:nNn \l_@@_x_initial_dim = \c_max_dim }
          {
            \@@_qpoint:n { col - \l_@@_first_j_tl }
            \dim_set_eq:NN \l_@@_x_initial_dim \pgf@x 
          }
        \bool_if:NT \l_@@_brace_right_shorten_bool 
          {
            \dim_set:Nn \l_@@_x_final_dim { - \c_max_dim }
            \int_step_inline:nnn \l_@@_first_i_tl \l_@@_last_i_tl 
              {
                \cs_if_exist:cT 
                  { pgf @ sh @ ns @ \@@_env: - ##1 - \l_@@_last_j_tl }
                  {
                    \pgfpointanchor { \@@_env: - ##1 - \l_@@_last_j_tl } { east }
                    \dim_compare:nNnT \pgf@x > \l_@@_x_final_dim
                      { \dim_set_eq:NN \l_@@_x_final_dim \pgf@x }
                  }
              }
          }
        \bool_lazy_or:nnT
          { \bool_not_p:n \l_@@_brace_right_shorten_bool }
          { \dim_compare_p:nNn \l_@@_x_final_dim = { - \c_max_dim } }
          {
            \@@_qpoint:n { col - \int_eval:n { \l_@@_last_j_tl + 1 } }
            \dim_set_eq:NN \l_@@_x_final_dim \pgf@x 
          }
        \pgfset { inner~sep = \c_zero_dim } 
        \str_if_eq:eeTF { #5 } { under }
          { \@@_underbrace_i:n { #3 } }
          { \@@_overbrace_i:n { #3 } }
        \endpgfpicture
      }
    \group_end:
  }
%    \end{macrocode}
%
% \medskip
% The argument is the text to put above the brace.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_overbrace_i:n #1
  { 
    \@@_qpoint:n { row - \l_@@_first_i_tl }
    \pgftransformshift 
      { 
        \pgfpoint 
          { ( \l_@@_x_initial_dim + \l_@@_x_final_dim) / 2 }
          { \pgf@y + \l_@@_brace_yshift_dim - 3 pt}
      } 
    \pgfnode
      { rectangle }
      { south }
      {
        \vtop
          {
            \group_begin:
            \everycr { }
            \halign
              { 
                \hfil ## \hfil \crcr 
                \bool_if:NTF \l_@@_tabular_bool 
                  { \begin { tabular } { c } #1 \end { tabular } }
                  { $ \begin { array } { c } #1 \end { array } $ }
                \cr 
                \c_math_toggle_token
                \overbrace 
                  { 
                    \hbox_to_wd:nn 
                      { \l_@@_x_final_dim - \l_@@_x_initial_dim } 
                      { } 
                  } 
                \c_math_toggle_token
              \cr
              }
            \group_end:
          }
      } 
      { }
      { }
  }
%    \end{macrocode}
%
%
% \medskip
% The argument is the text to put under the brace.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_underbrace_i:n #1
  { 
    \@@_qpoint:n { row - \int_eval:n { \l_@@_last_i_tl + 1 } }
    \pgftransformshift 
      { 
        \pgfpoint 
          { ( \l_@@_x_initial_dim + \l_@@_x_final_dim) / 2 }
          { \pgf@y  - \l_@@_brace_yshift_dim + 3 pt }
      } 
    \pgfnode
      { rectangle }
      { north }
      {
        \group_begin:
        \everycr { }
        \vbox
          { 
            \halign
              { 
                \hfil ## \hfil \crcr 
                \c_math_toggle_token
                \underbrace 
                  { 
                    \hbox_to_wd:nn 
                      { \l_@@_x_final_dim - \l_@@_x_initial_dim } 
                      { }
                  } 
                \c_math_toggle_token
                \cr
                \bool_if:NTF \l_@@_tabular_bool 
                  { \begin { tabular } { c } #1 \end { tabular } }
                  { $ \begin { array } { c } #1 \end { array } $ }
                \cr 
              }
          }
        \group_end:
      } 
      { }
      { }
  }
%    \end{macrocode}
%
% \bigskip
% \section{The command TikzEveryCell}
%
%    \begin{macrocode}
\bool_new:N \l_@@_not_empty_bool 
\bool_new:N \l_@@_empty_bool 

\keys_define:nn { nicematrix / TikzEveryCell }
  { 
    not-empty .code:n = 
      \bool_lazy_or:nnTF 
        \l_@@_in_code_after_bool 
        \g_@@_recreate_cell_nodes_bool 
        { \bool_set_true:N \l_@@_not_empty_bool }
        { \@@_error:n { detection~of~empty~cells } } ,
    not-empty .value_forbidden:n = true ,
    empty .code:n = 
      \bool_lazy_or:nnTF 
        \l_@@_in_code_after_bool 
        \g_@@_recreate_cell_nodes_bool 
        { \bool_set_true:N \l_@@_empty_bool }
        { \@@_error:n { detection~of~empty~cells } } ,
    empty .value_forbidden:n = true ,
    unknown .code:n = \@@_error:n { Unknown~key~for~TikzEveryCell }
  }


\NewDocumentCommand { \@@_TikzEveryCell } { O { } m }
  {
    \IfPackageLoadedTF { tikz } 
      {
        \group_begin:
        \keys_set:nn { nicematrix / TikzEveryCell } { #1 }
%    \end{macrocode}
% The inner pair of braces in the following line is mandatory because, the last
% argument of |\@@_tikz:nnnnn| is \emph{a list of lists} of TikZ keys.
%    \begin{macrocode}
        \tl_set:Nn \l_tmpa_tl { { #2 } }
        \seq_map_inline:Nn \g_@@_pos_of_blocks_seq 
          { \@@_for_a_block:nnnnn ##1 }  
        \@@_all_the_cells:
        \group_end:
      }
      { \@@_error:n { TikzEveryCell~without~tikz } }
  }

\tl_new:N \@@_i_tl
\tl_new:N \@@_j_tl


\cs_new_protected:Nn \@@_all_the_cells:
  {
    \int_step_variable:nNn \c@iRow \@@_i_tl
      {
        \int_step_variable:nNn \c@jCol \@@_j_tl
          { 
            \cs_if_exist:cF { cell - \@@_i_tl - \@@_j_tl } 
              {
                \clist_if_in:NeF \l_@@_corners_cells_clist 
                  { \@@_i_tl - \@@_j_tl }
                  {
                    \bool_set_false:N \l_tmpa_bool
                    \cs_if_exist:cTF
                      { pgf @ sh @ ns @ \@@_env: - \@@_i_tl - \@@_j_tl }
                      { 
                        \bool_if:NF \l_@@_empty_bool 
                          { \bool_set_true:N \l_tmpa_bool }
                      }
                      { 
                        \bool_if:NF \l_@@_not_empty_bool 
                          { \bool_set_true:N \l_tmpa_bool }
                      }                   
                    \bool_if:NT \l_tmpa_bool
                      {
                        \@@_block_tikz:onnnn
                        \l_tmpa_tl \@@_i_tl \@@_j_tl \@@_i_tl \@@_j_tl  
                      }
                  }
              }
          }
      }
  }

\cs_new_protected:Nn \@@_for_a_block:nnnnn
  { 
    \bool_if:NF \l_@@_empty_bool
      {
        \@@_block_tikz:onnnn
          \l_tmpa_tl { #1 } { #2 } { #3 } { #4 }  
      }
    \@@_mark_cells_of_block:nnnn { #1 } { #2 } { #3 } { #4 }
  }

\cs_new_protected:Nn \@@_mark_cells_of_block:nnnn 
  {
    \int_step_inline:nnn { #1 } { #3 }
      {
        \int_step_inline:nnn { #2 } { #4 }
          { \cs_set_nopar:cpn { cell - ##1 - ####1 } { } }
      }
  }
%    \end{macrocode}
% 
% 
% \bigskip
% \section{The command \textbackslash ShowCellNames}
%
%    \begin{macrocode}
\NewDocumentCommand \@@_ShowCellNames { }
 {
   \bool_if:NT \l_@@_in_code_after_bool
     { 
       \pgfpicture
       \pgfrememberpicturepositiononpagetrue
       \pgf@relevantforpicturesizefalse
       \pgfpathrectanglecorners
         { \@@_qpoint:n { 1 } }
         { 
           \@@_qpoint:n
             { \int_eval:n { \int_max:nn \c@iRow \c@jCol + 1 } } 
         }
       \pgfsetfillopacity { 0.75 }
       \pgfsetfillcolor { white }
       \pgfusepathqfill
       \endpgfpicture
     }
   \dim_gzero_new:N \g_@@_tmpc_dim
   \dim_gzero_new:N \g_@@_tmpd_dim
   \dim_gzero_new:N \g_@@_tmpe_dim
   \int_step_inline:nn \c@iRow
     {
       \bool_if:NTF \l_@@_in_code_after_bool
         {
           \pgfpicture
           \pgfrememberpicturepositiononpagetrue
           \pgf@relevantforpicturesizefalse
         }
         { \begin { pgfpicture } }
       \@@_qpoint:n { row - ##1 } 
       \dim_set_eq:NN \l_tmpa_dim \pgf@y
       \@@_qpoint:n { row - \int_eval:n { ##1 + 1 } } 
       \dim_gset:Nn \g_tmpa_dim { ( \l_tmpa_dim + \pgf@y ) / 2 }
       \dim_gset:Nn \g_tmpb_dim { \l_tmpa_dim - \pgf@y }
       \bool_if:NTF \l_@@_in_code_after_bool
         { \endpgfpicture }
         { \end { pgfpicture } }
       \int_step_inline:nn \c@jCol
         {
           \hbox_set:Nn \l_tmpa_box 
             { 
               \normalfont \Large \sffamily \bfseries
               \bool_if:NTF \l_@@_in_code_after_bool
                 { \color { red } }
                 { \color { red ! 50 } }
               ##1 - ####1 
             } 
           \bool_if:NTF \l_@@_in_code_after_bool
             {
               \pgfpicture
               \pgfrememberpicturepositiononpagetrue
               \pgf@relevantforpicturesizefalse
             }
             { \begin { pgfpicture } }
           \@@_qpoint:n { col - ####1 } 
           \dim_gset_eq:NN \g_@@_tmpc_dim \pgf@x
           \@@_qpoint:n { col - \int_eval:n { ####1 + 1 } } 
           \dim_gset:Nn \g_@@_tmpd_dim { \pgf@x - \g_@@_tmpc_dim }
           \dim_gset_eq:NN \g_@@_tmpe_dim \pgf@x
           \bool_if:NTF \l_@@_in_code_after_bool
             { \endpgfpicture }
             { \end { pgfpicture } }
           \fp_set:Nn \l_tmpa_fp 
             { 
               \fp_min:nn
                 {
                   \fp_min:nn 
                     { \dim_ratio:nn \g_@@_tmpd_dim { \box_wd:N \l_tmpa_box } }
                     { \dim_ratio:nn \g_tmpb_dim { \box_ht_plus_dp:N \l_tmpa_box } } 
                 }
                 { 1.0 }
             }
           \box_scale:Nnn \l_tmpa_box { \fp_use:N \l_tmpa_fp } { \fp_use:N \l_tmpa_fp }
           \pgfpicture
           \pgfrememberpicturepositiononpagetrue
           \pgf@relevantforpicturesizefalse
           \pgftransformshift 
             { 
               \pgfpoint 
                 { 0.5 * ( \g_@@_tmpc_dim + \g_@@_tmpe_dim ) } 
                 { \dim_use:N \g_tmpa_dim } 
             } 
           \pgfnode
             { rectangle }
             { center }
             { \box_use:N \l_tmpa_box }
             { }
             { }
           \endpgfpicture
         }
     }
 }
%    \end{macrocode}
% 
% \bigskip
% \section{We process the options at package loading}
%
% 
% We process the options when the package is loaded (with |\usepackage|) but we
% recommend to use |\NiceMatrixOptions| instead. 
%
% We must process these options after the definition of the environment
% |{NiceMatrix}| because the option |renew-matrix| executes the code
% |\cs_set_eq:NN \env@matrix \NiceMatrix|.  
%
% Of course, the command |\NiceMatrix| must be defined before such an
% instruction is executed. 
%
% 
% \medskip
% The boolean |\g_@@_footnotehyper_bool| will indicate if the option
% |footnotehyper| is used.
%    \begin{macrocode}
\bool_new:N \g_@@_footnotehyper_bool
%    \end{macrocode}
%
% \medskip
% The boolean |\g_@@_footnote_bool| will indicate if the option |footnote| is
% used, but quicky, it will also be set to |true| if the option |footnotehyper|
% is used.
%    \begin{macrocode}
\bool_new:N \g_@@_footnote_bool
%    \end{macrocode}
%
%    \begin{macrocode}
\msg_new:nnnn { nicematrix } { Unknown~key~for~package } 
  { 
    The~key~'\l_keys_key_str'~is~unknown. \\
    That~key~will~be~ignored. \\
    For~a~list~of~the~available~keys,~type~H~<return>.
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    footnote,~
    footnotehyper,~
    messages-for-Overleaf,~
    renew-dots,~and~
    renew-matrix.
  }
%    \end{macrocode}
%
%
%    \begin{macrocode}
\keys_define:nn { nicematrix / Package }
  {
    renew-dots .bool_set:N = \l_@@_renew_dots_bool ,
    renew-dots .value_forbidden:n = true ,
    renew-matrix .code:n = \@@_renew_matrix: ,
    renew-matrix .value_forbidden:n = true ,
    messages-for-Overleaf .bool_set:N = \g_@@_messages_for_Overleaf_bool , 
    footnote .bool_set:N = \g_@@_footnote_bool ,
    footnotehyper .bool_set:N = \g_@@_footnotehyper_bool ,
%    \end{macrocode}
% The test for a potential modification of \pkg{array} has been deleted. You
% keep the following key only for compatibility but maybe we will delete it.
%    \begin{macrocode}
    no-test-for-array .code:n =  \prg_do_nothing: ,
    unknown .code:n = \@@_error:n { Unknown~key~for~package } 
  }
\ProcessKeysOptions { nicematrix / Package }
%    \end{macrocode}
%
% \bigskip
%    \begin{macrocode}
\@@_msg_new:nn { footnote~with~footnotehyper~package }
  { 
    You~can't~use~the~option~'footnote'~because~the~package~
    footnotehyper~has~already~been~loaded.~
    If~you~want,~you~can~use~the~option~'footnotehyper'~and~the~footnotes~  
    within~the~environments~of~nicematrix~will~be~extracted~with~the~tools~
    of~the~package~footnotehyper.\\
    The~package~footnote~won't~be~loaded.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { footnotehyper~with~footnote~package }
  { 
    You~can't~use~the~option~'footnotehyper'~because~the~package~
    footnote~has~already~been~loaded.~
    If~you~want,~you~can~use~the~option~'footnote'~and~the~footnotes~  
    within~the~environments~of~nicematrix~will~be~extracted~with~the~tools~
    of~the~package~footnote.\\ 
    The~package~footnotehyper~won't~be~loaded.
  }
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\bool_if:NT \g_@@_footnote_bool 
  { 
%    \end{macrocode}
% The class \cls{beamer} has its own system to extract footnotes and that's why
% we have nothing to do if \cls{beamer} is used. 
%    \begin{macrocode}
    \IfClassLoadedTF { beamer }
      { \bool_set_false:N \g_@@_footnote_bool }
      { 
        \IfPackageLoadedTF { footnotehyper }
          { \@@_error:n { footnote~with~footnotehyper~package } }
          { \usepackage { footnote } }
      }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\bool_if:NT \g_@@_footnotehyper_bool
  { 
%    \end{macrocode}
% The class \cls{beamer} has its own system to extract footnotes and that's why
% we have nothing to do if \cls{beamer} is used. 
%    \begin{macrocode}
    \IfClassLoadedTF { beamer }
      { \bool_set_false:N \g_@@_footnote_bool }
      { 
        \IfPackageLoadedTF { footnote }
          { \@@_error:n { footnotehyper~with~footnote~package } }
          { \usepackage { footnotehyper } }
      }
    \bool_set_true:N \g_@@_footnote_bool 
  }
%    \end{macrocode}
% The flag |\g_@@_footnote_bool| is raised and so, we will only have to test
% |\g_@@_footnote_bool| in order to know if we have to insert an environment
% |{savenotes}|.
%
% \bigskip
% \section{About the package underscore}
%
% If the user loads the package \pkg{underscore}, it must be loaded
% \emph{before} the package \pkg{nicematrix}. If it is loaded after, we raise an
% error. 
% 
%    \begin{macrocode}
\bool_new:N \l_@@_underscore_loaded_bool
\IfPackageLoadedT { underscore }
  { \bool_set_true:N \l_@@_underscore_loaded_bool }
%    \end{macrocode}
% 
%    \begin{macrocode}
\hook_gput_code:nnn { begindocument } { . }
  {
    \bool_if:NF \l_@@_underscore_loaded_bool
      {
        \IfPackageLoadedT { underscore }
          { \@@_error:n { underscore~after~nicematrix } }
      }
  }
%    \end{macrocode}
% 
% \bigskip
% \section{Error messages of the package}
%
%    \begin{macrocode}
\bool_if:NTF \g_@@_messages_for_Overleaf_bool
  { \str_const:Nn \c_@@_available_keys_str { } }
  {
    \str_const:Nn \c_@@_available_keys_str
      { For~a~list~of~the~available~keys,~type~H~<return>. }
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\seq_new:N \g_@@_types_of_matrix_seq
\seq_gset_from_clist:Nn \g_@@_types_of_matrix_seq
  { 
    NiceMatrix ,
    pNiceMatrix , bNiceMatrix , vNiceMatrix, BNiceMatrix, VNiceMatrix 
  } 
\seq_gset_map_e:NNn \g_@@_types_of_matrix_seq \g_@@_types_of_matrix_seq 
  { \tl_to_str:n { #1 } }
%    \end{macrocode}
% 
% \bigskip
% If the user uses too much columns, the command |\@@_error_too_much_cols:| is
% triggered. This command raises an error but also tries to give the best
% information to the user in the error message. The command |\seq_if_in:NoF| is
% not expandable and that's why we can't put it in the error message itself. We
% have to do the test before the |\@@_fatal:n|.
%    \begin{macrocode}
\cs_new_protected:Npn \@@_error_too_much_cols:
  { 
    \seq_if_in:NoF \g_@@_types_of_matrix_seq \g_@@_name_env_str
      { \@@_fatal:nn { too~much~cols~for~array } }
    \int_compare:nNnT \l_@@_last_col_int = { -2 }
      { \@@_fatal:n { too~much~cols~for~matrix } }
    \int_compare:nNnT \l_@@_last_col_int = { -1 }
      { \@@_fatal:n { too~much~cols~for~matrix } }
    \bool_if:NF \l_@@_last_col_without_value_bool
      { \@@_fatal:n { too~much~cols~for~matrix~with~last~col } }
  }
%    \end{macrocode}
%
% 
% The following command must \emph{not} be protected since it's used in an error message.
%    \begin{macrocode}
\cs_new:Npn \@@_message_hdotsfor:
  {
    \tl_if_empty:oF \g_@@_HVdotsfor_lines_tl
      { ~Maybe~your~use~of~\token_to_str:N \Hdotsfor\ is~incorrect.}
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { hvlines,~rounded-corners~and~corners }
  {
    Incompatible~options.\\
    You~should~not~use~'hvlines',~'rounded-corners'~and~'corners'~at~this~time.\\
    The~output~will~not~be~reliable.
  }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\@@_msg_new:nn { key~color-inside }
  {
    Key~deprecated.\\
    The~key~'color-inside'~(and~its~alias~'colortbl-like')~is~now~point-less~
    and~have~been~deprecated.\\
    You~won't~have~similar~message~till~the~end~of~the~document.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { negative~weight }
  {
    Negative~weight.\\
    The~weight~of~the~'X'~columns~must~be~positive~and~you~have~used~
    the~value~'\int_use:N \l_@@_weight_int'.\\
    The~absolute~value~will~be~used.
  }  
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { last~col~not~used }
  {
    Column~not~used.\\
    The~key~'last-col'~is~in~force~but~you~have~not~used~that~last~column~
    in~your~\@@_full_name_env:.~However,~you~can~go~on.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { too~much~cols~for~matrix~with~last~col }
  { 
    Too~much~columns.\\
    In~the~row~\int_eval:n { \c@iRow },~
    you~try~to~use~more~columns~
    than~allowed~by~your~\@@_full_name_env:.\@@_message_hdotsfor:\ 
    The~maximal~number~of~columns~is~\int_eval:n { \l_@@_last_col_int - 1 }~
    (plus~the~exterior~columns).~This~error~is~fatal.
  }
%    \end{macrocode}
% 
% 
%    \begin{macrocode}
\@@_msg_new:nn { too~much~cols~for~matrix }
  { 
    Too~much~columns.\\
    In~the~row~\int_eval:n { \c@iRow },~
    you~try~to~use~more~columns~than~allowed~by~your~
    \@@_full_name_env:.\@@_message_hdotsfor:\ Recall~that~the~maximal~
    number~of~columns~for~a~matrix~(excepted~the~potential~exterior~
    columns)~is~fixed~by~the~LaTeX~counter~'MaxMatrixCols'.~
    Its~current~value~is~\int_use:N \c@MaxMatrixCols\ (use~
    \token_to_str:N \setcounter\ to~change~that~value).~
    This~error~is~fatal.
  }
%    \end{macrocode}
%
% \medskip
%    \begin{macrocode}
\@@_msg_new:nn { too~much~cols~for~array }
  { 
    Too~much~columns.\\
    In~the~row~\int_eval:n { \c@iRow },~
    ~you~try~to~use~more~columns~than~allowed~by~your~
    \@@_full_name_env:.\@@_message_hdotsfor:\ The~maximal~number~of~columns~is~ 
    \int_use:N \g_@@_static_num_of_col_int\ 
    ~(plus~the~potential~exterior~ones).~
    This~error~is~fatal.
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\@@_msg_new:nn { columns~not~used }
  {
    Columns~not~used.\\
    The~preamble~of~your~\@@_full_name_env:\ announces~\int_use:N
    \g_@@_static_num_of_col_int\ columns~but~you~use~only~\int_use:N \c@jCol.\\ 
    The~columns~you~did~not~used~won't~be~created.\\
    You~won't~have~similar~error~message~till~the~end~of~the~document.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { empty~preamble }
  {
    Empty~preamble.\\
    The~preamble~of~your~\@@_full_name_env:\ is~empty.\\
    This~error~is~fatal.
  }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\@@_msg_new:nn { in~first~col }
  {
    Erroneous~use.\\
    You~can't~use~the~command~#1 in~the~first~column~(number~0)~of~the~array.\\
    That~command~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { in~last~col }
  {
    Erroneous~use.\\
    You~can't~use~the~command~#1 in~the~last~column~(exterior)~of~the~array.\\
    That~command~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { in~first~row }
  {
    Erroneous~use.\\
    You~can't~use~the~command~#1 in~the~first~row~(number~0)~of~the~array.\\
    That~command~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { in~last~row }
  {
    You~can't~use~the~command~#1 in~the~last~row~(exterior)~of~the~array.\\
    That~command~will~be~ignored.
  }
%    \end{macrocode}
%
%
%    \begin{macrocode}
\@@_msg_new:nn { caption~outside~float }
  {
    Key~caption~forbidden.\\
    You~can't~use~the~key~'caption'~because~you~are~not~in~a~floating~
    environment.~This~key~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { short-caption~without~caption }
  {
    You~should~not~use~the~key~'short-caption'~without~'caption'.~
    However,~your~'short-caption'~will~be~used~as~'caption'.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { double~closing~delimiter }
  {
    Double~delimiter.\\
    You~can't~put~a~second~closing~delimiter~"#1"~just~after~a~first~closing~
    delimiter.~This~delimiter~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { delimiter~after~opening }
  {
    Double~delimiter.\\
    You~can't~put~a~second~delimiter~"#1"~just~after~a~first~opening~
    delimiter.~That~delimiter~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}  
\@@_msg_new:nn { bad~option~for~line-style }
  {
    Bad~line~style.\\
    Since~you~haven't~loaded~Tikz,~the~only~value~you~can~give~to~'line-style'~
    is~'standard'.~That~key~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { Identical~notes~in~caption }
  {
    Identical~tabular~notes.\\
    You~can't~put~several~notes~with~the~same~content~in~
    \token_to_str:N \caption\ (but~you~can~in~the~main~tabular).\\
    If~you~go~on,~the~output~will~probably~be~erroneous.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { tabularnote~below~the~tabular }
  { 
    \token_to_str:N \tabularnote\ forbidden\\
    You~can't~use~\token_to_str:N \tabularnote\ in~the~caption~
    of~your~tabular~because~the~caption~will~be~composed~below~
    the~tabular.~If~you~want~the~caption~above~the~tabular~use~the~
    key~'caption-above'~in~\token_to_str:N \NiceMatrixOptions.\\
    Your~\token_to_str:N \tabularnote\ will~be~discarded~and~
    no~similar~error~will~raised~in~this~document.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { Unknown~key~for~rules }
  {
    Unknown~key.\\
    There~is~only~two~keys~available~here:~width~and~color.\\
    Your~key~'\l_keys_key_str'~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Unknown~key~for~TikzEveryCell }
  {
    Unknown~key.\\
    There~is~only~two~keys~available~here:~
    'empty'~and~'not-empty'.\\
    Your~key~'\l_keys_key_str'~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { Unknown~key~for~rotate }
  {
    Unknown~key.\\
    The~only~key~available~here~is~'c'.\\
    Your~key~'\l_keys_key_str'~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~custom-line }
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~in~a~'custom-line'.~
    It~you~go~on,~you~will~probably~have~other~errors. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    ccommand,~
    color,~
    command,~
    dotted,~
    letter,~
    multiplicity,~
    sep-color,~
    tikz,~and~total-width.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~xdots } 
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~a~command~for~drawing~dotted~rules.\\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    'color',~
    'horizontal-labels',~
    'inter',~
    'line-style',~
    'radius',~
    'shorten',~
    'shorten-end'~and~'shorten-start'.
  }
%    \end{macrocode}
%
%
%    \begin{macrocode}
\@@_msg_new:nn { Unknown~key~for~rowcolors } 
  {
    Unknown~key.\\
    As~for~now,~there~is~only~two~keys~available~here:~'cols'~and~'respect-blocks'~ 
    (and~you~try~to~use~'\l_keys_key_str')\\
    That~key~will~be~ignored. 
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { label~without~caption }
  {
    You~can't~use~the~key~'label'~in~your~'{NiceTabular}'~because~
    you~have~not~used~the~key~'caption'.~The~key~'label'~will~be~ignored.
  }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\@@_msg_new:nn { W~warning }
  { 
    Line~\msg_line_number:.~The~cell~is~too~wide~for~your~column~'W'~
    (row~\int_use:N \c@iRow). 
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Construct~too~large }
  {
    Construct~too~large.\\
    Your~command~\token_to_str:N #1
    can't~be~drawn~because~your~matrix~is~too~small.\\
    That~command~will~be~ignored. 
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { underscore~after~nicematrix }
  {
    Problem~with~'underscore'.\\
    The~package~'underscore'~should~be~loaded~before~'nicematrix'.~
    You~can~go~on~but~you~won't~be~able~to~write~something~such~as:\\
    '\token_to_str:N \Cdots\token_to_str:N _{n~\token_to_str:N \text{~times}}'.
  }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\@@_msg_new:nn { ampersand~in~light-syntax }
  {
    Ampersand~forbidden.\\
    You~can't~use~an~ampersand~(\token_to_str:N &)~to~separate~columns~because~
    ~the~key~'light-syntax'~is~in~force.~This~error~is~fatal.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { double-backslash~in~light-syntax }
  {
    Double~backslash~forbidden.\\
    You~can't~use~\token_to_str:N
    \\~to~separate~rows~because~the~key~'light-syntax'~
    is~in~force.~You~must~use~the~character~'\l_@@_end_of_row_tl'~
    (set~by~the~key~'end-of-row').~This~error~is~fatal.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { hlines~with~color }
  {
    Incompatible~keys.\\
    You~can't~use~the~keys~'hlines',~'vlines'~or~'hvlines'~for~a~
    '\token_to_str:N \Block'~when~the~key~'color'~or~'draw'~is~used.\\
    However,~you~can~put~several~commands~\token_to_str:N \Block.\\
    Your~key~will~be~discarded.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { bad~value~for~baseline }
  {
    Bad~value~for~baseline.\\
    The~value~given~to~'baseline'~(\int_use:N \l_tmpa_int)~is~not~
    valid.~The~value~must~be~between~\int_use:N \l_@@_first_row_int\ and~
    \int_use:N \g_@@_row_total_int\ or~equal~to~'t',~'c'~or~'b'~or~of~
    the~form~'line-i'.\\
    A~value~of~1~will~be~used.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { detection~of~empty~cells }
  {
    Problem~with~'not-empty'\\
    For~technical~reasons,~you~must~activate~
    'create-cell-nodes'~in~\token_to_str:N \CodeBefore\ 
    in~order~to~use~the~key~'\l_keys_key_str'.\\
    That~key~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { siunitx~not~loaded } 
  {
    siunitx~not~loaded\\
    You~can't~use~the~columns~'S'~because~'siunitx'~is~not~loaded.\\
    That~error~is~fatal.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { Invalid~name }
  {
    Invalid~name.\\
    You~can't~give~the~name~'\l_keys_value_tl'~to~a~\token_to_str:N
    \SubMatrix\ of~your~\@@_full_name_env:.\\ 
    A~name~must~be~accepted~by~the~regular~expression~[A-Za-z][A-Za-z0-9]*.\\
    This~key~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Wrong~line~in~SubMatrix } 
  { 
    Wrong~line.\\
    You~try~to~draw~a~#1~line~of~number~'#2'~in~a~
    \token_to_str:N \SubMatrix\ of~your~\@@_full_name_env:\ but~that~  
    number~is~not~valid.~It~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Impossible~delimiter }
  {
    Impossible~delimiter.\\
    It's~impossible~to~draw~the~#1~delimiter~of~your~
    \token_to_str:N \SubMatrix\ because~all~the~cells~are~empty~
    in~that~column.
    \bool_if:NT \l_@@_submatrix_slim_bool
      { ~Maybe~you~should~try~without~the~key~'slim'. } \\
    This~\token_to_str:N \SubMatrix\ will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nnn { width~without~X~columns }
  {
    You~have~used~the~key~'width'~but~you~have~put~no~'X'~column.~
    That~key~will~be~ignored.
  }
  {
    This~message~is~the~message~'width~without~X~columns'~
    of~the~module~'nicematrix'.~
    The~experimented~users~can~disable~that~message~with~
    \token_to_str:N \msg_redirect_name:nnn.\\
  }

%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { key~multiplicity~with~dotted }
  {
    Incompatible~keys. \\
    You~have~used~the~key~'multiplicity'~with~the~key~'dotted'~
    in~a~'custom-line'.~They~are~incompatible. \\
    The~key~'multiplicity'~will~be~discarded.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { empty~environment }
  { 
    Empty~environment.\\
    Your~\@@_full_name_env:\ is~empty.~This~error~is~fatal. 
  }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\@@_msg_new:nn { No~letter~and~no~command }
  { 
    Erroneous~use.\\
    Your~use~of~'custom-line'~is~no-op~since~you~don't~have~used~the~
    key~'letter'~(for~a~letter~for~vertical~rules)~nor~the~keys~'command'~or~
    ~'ccommand'~(to~draw~horizontal~rules).\\
    However,~you~can~go~on.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Forbidden~letter }
  {
    Forbidden~letter.\\
    You~can't~use~the~letter~'#1'~for~a~customized~line.\\
    It~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Several~letters }
  {
    Wrong~name.\\
    You~must~use~only~one~letter~as~value~for~the~key~'letter'~(and~you~
    have~used~'\l_@@_letter_str').\\
    It~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { Delimiter~with~small }
  { 
    Delimiter~forbidden.\\
    You~can't~put~a~delimiter~in~the~preamble~of~your~\@@_full_name_env:\ 
    because~the~key~'small'~is~in~force.\\
    This~error~is~fatal.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { unknown~cell~for~line~in~CodeAfter }
  {
    Unknown~cell.\\
    Your~command~\token_to_str:N\line\{#1\}\{#2\}~in~
    the~\token_to_str:N \CodeAfter\ of~your~\@@_full_name_env:\ 
    can't~be~executed~because~a~cell~doesn't~exist.\\
    This~command~\token_to_str:N \line\ will~be~ignored.
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\@@_msg_new:nnn { Duplicate~name~for~SubMatrix }
  {
    Duplicate~name.\\
    The~name~'#1'~is~already~used~for~a~\token_to_str:N \SubMatrix\ 
    in~this~\@@_full_name_env:.\\
    This~key~will~be~ignored.\\
    \bool_if:NF \g_@@_messages_for_Overleaf_bool
      { For~a~list~of~the~names~already~used,~type~H~<return>. }
  }
  {
    The~names~already~defined~in~this~\@@_full_name_env:\ are:~
    \seq_use:Nnnn \g_@@_submatrix_names_seq { ~and~ } { ,~ } { ~and~ }.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { r~or~l~with~preamble }
  {
    Erroneous~use.\\
    You~can't~use~the~key~'\l_keys_key_str'~in~your~\@@_full_name_env:.~
    You~must~specify~the~alignment~of~your~columns~with~the~preamble~of~
    your~\@@_full_name_env:.\\
    This~key~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { Hdotsfor~in~col~0 }
  {
    Erroneous~use.\\
    You~can't~use~\token_to_str:N \Hdotsfor\ in~an~exterior~column~of~
    the~array.~This~error~is~fatal.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { bad~corner }
  {
    Bad~corner.\\
    #1~is~an~incorrect~specification~for~a~corner~(in~the~key~
    'corners').~The~available~values~are:~NW,~SW,~NE~and~SE.\\
    This~specification~of~corner~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { bad~border }
  {
    Bad~border.\\
    \l_keys_key_str\space~is~an~incorrect~specification~for~a~border~
    (in~the~key~'borders'~of~the~command~\token_to_str:N \Block).~
    The~available~values~are:~left,~right,~top~and~bottom~(and~you~can~
    also~use~the~key~'tikz' 
    \IfPackageLoadedF { tikz }
      {~if~you~load~the~LaTeX~package~'tikz'}).\\ 
    This~specification~of~border~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { TikzEveryCell~without~tikz }
  {
    TikZ~not~loaded.\\
    You~can't~use~\token_to_str:N \TikzEveryCell\
    because~you~have~not~loaded~tikz.~
    This~command~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { tikz~key~without~tikz }
  {
    TikZ~not~loaded.\\
    You~can't~use~the~key~'tikz'~for~the~command~'\token_to_str:N
    \Block'~because~you~have~not~loaded~tikz.~
    This~key~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { last-col~non~empty~for~NiceArray }
  {
    Erroneous~use.\\
    In~the~\@@_full_name_env:,~you~must~use~the~key~
    'last-col'~without~value.\\
    However,~you~can~go~on~for~this~time~
    (the~value~'\l_keys_value_tl'~will~be~ignored). 
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\@@_msg_new:nn { last-col~non~empty~for~NiceMatrixOptions }
  {
    Erroneous~use.\\
    In~\token_to_str:N \NiceMatrixOptions,~you~must~use~the~key~ 
    'last-col'~without~value.\\
    However,~you~can~go~on~for~this~time~
    (the~value~'\l_keys_value_tl'~will~be~ignored). 
  }
%    \end{macrocode}
%
% 
%    \begin{macrocode}
\@@_msg_new:nn { Block~too~large~1 }
  {
    Block~too~large.\\
    You~try~to~draw~a~block~in~the~cell~#1-#2~of~your~matrix~but~the~matrix~is~
    too~small~for~that~block. \\
    This~block~and~maybe~others~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Block~too~large~2 }
  {
    Block~too~large.\\
    The~preamble~of~your~\@@_full_name_env:\ announces~\int_use:N
    \g_@@_static_num_of_col_int\
    columns~but~you~use~only~\int_use:N \c@jCol\ and~that's~why~a~block~
    specified~in~the~cell~#1-#2~can't~be~drawn.~You~should~add~some~ampersands~
    (&)~at~the~end~of~the~first~row~of~your~\@@_full_name_env:.\\
    This~block~and~maybe~others~will~be~ignored.
  }
%    \end{macrocode}
%
%
%    \begin{macrocode}
\@@_msg_new:nn { unknown~column~type }
  {
    Bad~column~type.\\
    The~column~type~'#1'~in~your~\@@_full_name_env:\ 
    is~unknown. \\
    This~error~is~fatal.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { unknown~column~type~S }
  {
    Bad~column~type.\\
    The~column~type~'S'~in~your~\@@_full_name_env:\ is~unknown. \\
    If~you~want~to~use~the~column~type~'S'~of~siunitx,~you~should~
    load~that~package. \\
    This~error~is~fatal.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { tabularnote~forbidden }
  {
    Forbidden~command.\\
    You~can't~use~the~command~\token_to_str:N\tabularnote\ 
    ~here.~This~command~is~available~only~in~
    \{NiceTabular\},~\{NiceTabular*\}~and~\{NiceTabularX\}~or~in~
    the~argument~of~a~command~\token_to_str:N \caption\ included~
    in~an~environment~{table}. \\
    This~command~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { borders~forbidden }
  {
    Forbidden~key.\\
    You~can't~use~the~key~'borders'~of~the~command~\token_to_str:N \Block\ 
    because~the~option~'rounded-corners'~
    is~in~force~with~a~non-zero~value.\\
    This~key~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { bottomrule~without~booktabs }
  {
    booktabs~not~loaded.\\
    You~can't~use~the~key~'tabular/bottomrule'~because~you~haven't~
    loaded~'booktabs'.\\
    This~key~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { enumitem~not~loaded }
  {
    enumitem~not~loaded.\\
    You~can't~use~the~command~\token_to_str:N\tabularnote\ 
    ~because~you~haven't~loaded~'enumitem'.\\
    All~the~commands~\token_to_str:N\tabularnote\ will~be~
    ignored~in~the~document.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { tikz~without~tikz } 
  {
    Tikz~not~loaded.\\
    You~can't~use~the~key~'tikz'~here~because~Tikz~is~not~
    loaded.~If~you~go~on,~that~key~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { tikz~in~custom-line~without~tikz } 
  {
    Tikz~not~loaded.\\
    You~have~used~the~key~'tikz'~in~the~definition~of~a~
    customized~line~(with~'custom-line')~but~tikz~is~not~loaded.~
    You~can~go~on~but~you~will~have~another~error~if~you~actually~
    use~that~custom~line.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { tikz~in~borders~without~tikz }
  {
    Tikz~not~loaded.\\
    You~have~used~the~key~'tikz'~in~a~key~'borders'~(of~a~
    command~'\token_to_str:N\Block')~but~tikz~is~not~loaded.~
    That~key~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { color~in~custom-line~with~tikz }
  {
    Erroneous~use.\\
    In~a~'custom-line',~you~have~used~both~'tikz'~and~'color',~
    which~is~forbidden~(you~should~use~'color'~inside~the~key~'tikz').~
    The~key~'color'~will~be~discarded.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { Wrong~last~row }
  { 
    Wrong~number.\\
    You~have~used~'last-row=\int_use:N \l_@@_last_row_int'~but~your~
    \@@_full_name_env:\ seems~to~have~\int_use:N \c@iRow \ rows.~
    If~you~go~on,~the~value~of~\int_use:N \c@iRow \ will~be~used~for~
    last~row.~You~can~avoid~this~problem~by~using~'last-row'~  
    without~value~(more~compilations~might~be~necessary).
  }
%    \end{macrocode}     
%
%
%    \begin{macrocode}
\@@_msg_new:nn { Yet~in~env }
  { 
    Nested~environments.\\
    Environments~of~nicematrix~can't~be~nested.\\ 
    This~error~is~fatal. 
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Outside~math~mode }
  {
    Outside~math~mode.\\
    The~\@@_full_name_env:\ can~be~used~only~in~math~mode~
    (and~not~in~\token_to_str:N \vcenter).\\
    This~error~is~fatal.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { One~letter~allowed }
  { 
    Bad~name.\\
    The~value~of~key~'\l_keys_key_str'~must~be~of~length~1.\\
    It~will~be~ignored. 
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { TabularNote~in~CodeAfter }
  {
    Environment~{TabularNote}~forbidden.\\
    You~must~use~{TabularNote}~at~the~end~of~your~{NiceTabular}~
    but~*before*~the~\token_to_str:N \CodeAfter.\\
    This~environment~{TabularNote}~will~be~ignored.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nn { varwidth~not~loaded }
  {
    varwidth~not~loaded.\\
    You~can't~use~the~column~type~'V'~because~'varwidth'~is~not~
    loaded.\\
    Your~column~will~behave~like~'p'.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nnn { Unknow~key~for~RulesBis }
  {
    Unkown~key.\\
    Your~key~'\l_keys_key_str'~is~unknown~for~a~rule.\\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    color,~
    dotted,~
    multiplicity,~
    sep-color,~
    tikz,~and~total-width.
  }

%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~Block } 
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~the~command~\token_to_str:N
    \Block.\\ It~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~&-in-blocks,~ampersand-in-blocks,~
    b,~B,~borders,~c,~draw,~fill,~hlines,~hvlines,~l,~line-width,~name,~
    opacity,~rounded-corners,~r,~respect-arraystretch,~t,~T,~tikz,~transparent~
    and~vlines.  
  }
%    \end{macrocode}
% 
%
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~Brace }
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~the~commands~\token_to_str:N
    \UnderBrace\ and~\token_to_str:N \OverBrace.\\
    It~will~be~ignored. \\ 
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~color,~left-shorten,~
    right-shorten,~shorten~(which~fixes~both~left-shorten~and~
    right-shorten)~and~yshift.
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~CodeAfter }
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown.\\
    It~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    delimiters/color,~
    rules~(with~the~subkeys~'color'~and~'width'),~
    sub-matrix~(several~subkeys)~
    and~xdots~(several~subkeys).~
    The~latter~is~for~the~command~\token_to_str:N \line.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~CodeBefore }
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown.\\
    It~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    create-cell-nodes,~
    delimiters/color~and~
    sub-matrix~(several~subkeys).
  }
%    \end{macrocode}
% 
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~SubMatrix }
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown.\\
    That~key~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    'delimiters/color',~
    'extra-height',~
    'hlines',~
    'hvlines',~
    'left-xshift',~
    'name',~
    'right-xshift',~
    'rules'~(with~the~subkeys~'color'~and~'width'),~
    'slim',~
    'vlines'~and~'xshift'~(which~sets~both~'left-xshift'~
    and~'right-xshift').\\
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~notes } 
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown.\\
    That~key~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    bottomrule,~
    code-after,~
    code-before,~
    detect-duplicates,~
    enumitem-keys,~
    enumitem-keys-para,~
    para,~
    label-in-list,~
    label-in-tabular~and~
    style.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~RowStyle } 
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~the~command~
    \token_to_str:N \RowStyle. \\
    That~key~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  { 
    The~available~keys~are~(in~alphabetic~order):~
    bold,~
    cell-space-top-limit,~
    cell-space-bottom-limit,~
    cell-space-limits,~
    color,~
    fill~(alias:~rowcolor),~
    nb-rows,
    opacity~and~
    rounded-corners.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~NiceMatrixOptions }
  {
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~the~command~
    \token_to_str:N \NiceMatrixOptions. \\
    That~key~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  { 
    The~available~keys~are~(in~alphabetic~order):~
    &-in-blocks,~
    allow-duplicate-names,~
    ampersand-in-blocks,~
    caption-above,~
    cell-space-bottom-limit,~
    cell-space-limits,~
    cell-space-top-limit,~
    code-for-first-col,~
    code-for-first-row,~
    code-for-last-col,~
    code-for-last-row,~
    corners,~
    custom-key,~
    create-extra-nodes,~
    create-medium-nodes,~
    create-large-nodes,~
    custom-line,~
    delimiters~(several~subkeys),~
    end-of-row,~
    first-col,~
    first-row,~
    hlines,~
    hvlines,~
    hvlines-except-borders,~
    last-col,~
    last-row,~
    left-margin,~
    light-syntax,~
    light-syntax-expanded,~
    matrix/columns-type,~
    no-cell-nodes,~
    notes~(several~subkeys),~
    nullify-dots,~
    pgf-node-code,~
    renew-dots,~
    renew-matrix,~
    respect-arraystretch,~
    rounded-corners,~
    right-margin,~
    rules~(with~the~subkeys~'color'~and~'width'),~
    small,~
    sub-matrix~(several~subkeys),~
    vlines,~
    xdots~(several~subkeys).
  }
%    \end{macrocode}
%
% For `|{NiceArray}|`, the set of keys is the same as for |{NiceMatrix}|
% excepted that there is no |l| and |r|.
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~NiceArray }
  { 
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~the~environment~
    \{NiceArray\}. \\
    That~key~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    &-in-blocks,~
    ampersand-in-blocks,~
    b,~
    baseline,~
    c,~
    cell-space-bottom-limit,~
    cell-space-limits,~
    cell-space-top-limit,~
    code-after,~
    code-for-first-col,~
    code-for-first-row,~
    code-for-last-col,~
    code-for-last-row,~
    columns-width,~
    corners,~
    create-extra-nodes,~
    create-medium-nodes,~
    create-large-nodes,~
    extra-left-margin,~
    extra-right-margin,~
    first-col,~
    first-row,~
    hlines,~
    hvlines,~
    hvlines-except-borders,~
    last-col,~
    last-row,~
    left-margin,~
    light-syntax,~
    light-syntax-expanded,~
    name,~
    no-cell-nodes,~
    nullify-dots,~
    pgf-node-code,~
    renew-dots,~
    respect-arraystretch,~
    right-margin,~
    rounded-corners,~
    rules~(with~the~subkeys~'color'~and~'width'),~
    small,~
    t,~
    vlines,~
    xdots/color,~
    xdots/shorten-start,~
    xdots/shorten-end,~
    xdots/shorten~and~
    xdots/line-style.
  }
%    \end{macrocode}
%
% \medskip
% This error message is used for the set of keys |nicematrix/NiceMatrix| and
% |nicematrix/pNiceArray| (but not by |nicematrix/NiceArray| because, for this
% set of keys, there is no |l| and |r|).
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~NiceMatrix }
  { 
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~the~
    \@@_full_name_env:. \\
    That~key~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    &-in-blocks,~
    ampersand-in-blocks,~
    b,~
    baseline,~
    c,~
    cell-space-bottom-limit,~
    cell-space-limits,~
    cell-space-top-limit,~
    code-after,~
    code-for-first-col,~
    code-for-first-row,~
    code-for-last-col,~
    code-for-last-row,~
    columns-type,~
    columns-width,~
    corners,~
    create-extra-nodes,~
    create-medium-nodes,~
    create-large-nodes,~
    extra-left-margin,~
    extra-right-margin,~
    first-col,~
    first-row,~
    hlines,~
    hvlines,~
    hvlines-except-borders,~
    l,~
    last-col,~
    last-row,~
    left-margin,~
    light-syntax,~
    light-syntax-expanded,~
    name,~
    no-cell-nodes,~
    nullify-dots,~
    pgf-node-code,~
    r,~
    renew-dots,~
    respect-arraystretch,~
    right-margin,~
    rounded-corners,~
    rules~(with~the~subkeys~'color'~and~'width'),~
    small,~
    t,~
    vlines,~
    xdots/color,~
    xdots/shorten-start,~
    xdots/shorten-end,~
    xdots/shorten~and~
    xdots/line-style.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nnn { Unknown~key~for~NiceTabular }
  { 
    Unknown~key.\\
    The~key~'\l_keys_key_str'~is~unknown~for~the~environment~
    \{NiceTabular\}. \\
    That~key~will~be~ignored. \\
    \c_@@_available_keys_str
  }
  {
    The~available~keys~are~(in~alphabetic~order):~
    &-in-blocks,~
    ampersand-in-blocks,~
    b,~
    baseline,~
    c,~
    caption,~
    cell-space-bottom-limit,~
    cell-space-limits,~
    cell-space-top-limit,~
    code-after,~
    code-for-first-col,~
    code-for-first-row,~
    code-for-last-col,~
    code-for-last-row,~
    columns-width,~
    corners,~
    custom-line,~
    create-extra-nodes,~
    create-medium-nodes,~
    create-large-nodes,~
    extra-left-margin,~
    extra-right-margin,~
    first-col,~
    first-row,~
    hlines,~
    hvlines,~
    hvlines-except-borders,~
    label,~
    last-col,~
    last-row,~
    left-margin,~
    light-syntax,~
    light-syntax-expanded,~
    name,~
    no-cell-nodes,~
    notes~(several~subkeys),~
    nullify-dots,~
    pgf-node-code,~
    renew-dots,~
    respect-arraystretch,~
    right-margin,~
    rounded-corners,~
    rules~(with~the~subkeys~'color'~and~'width'),~
    short-caption,~
    t,~
    tabularnote,~
    vlines,~
    xdots/color,~
    xdots/shorten-start,~
    xdots/shorten-end,~
    xdots/shorten~and~
    xdots/line-style.
  }
%    \end{macrocode}
%
%
%    \begin{macrocode}
\@@_msg_new:nnn { Duplicate~name }
  { 
    Duplicate~name.\\
    The~name~'\l_keys_value_tl'~is~already~used~and~you~shouldn't~use~
    the~same~environment~name~twice.~You~can~go~on,~but,~
    maybe,~you~will~have~incorrect~results~especially~ 
    if~you~use~'columns-width=auto'.~If~you~don't~want~to~see~this~
    message~again,~use~the~key~'allow-duplicate-names'~in~
    '\token_to_str:N \NiceMatrixOptions'.\\
    \bool_if:NF \g_@@_messages_for_Overleaf_bool
      { For~a~list~of~the~names~already~used,~type~H~<return>. }
  }
  {
    The~names~already~defined~in~this~document~are:~
    \seq_use:Nnnn \g_@@_names_seq { ~and~ } { ,~ } { ~and~ }.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Option~auto~for~columns-width }
  { 
    Erroneous~use.\\
    You~can't~give~the~value~'auto'~to~the~key~'columns-width'~here.~
    That~key~will~be~ignored.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { NiceTabularX~without~X }
  {
    NiceTabularX~without~X.\\
    You~should~not~use~{NiceTabularX}~without~X~columns.\\
    However,~you~can~go~on.
  }
%    \end{macrocode}
%
%    \begin{macrocode}
\@@_msg_new:nn { Preamble~forgotten }
  {
    Preamble~forgotten.\\
    You~have~probably~forgotten~the~preamble~of~your~
    \@@_full_name_env:. \\
    This~error~is~fatal.
  }
%    \end{macrocode}
% 
% \newpage
% \tableofcontents
%
% \endinput
% Local Variables:
% TeX-fold-mode: t
% TeX-fold-preserve-comments: nil
% fill-column: 80
% End: