path: root/macros/latex/contrib/siunitx/siunitx-symbol.dtx

% \iffalse meta-comment
%
% File: siunitx-symbol.dtx Copyright (C) 2018-2021 Joseph Wright
%
% It may be distributed and/or modified under the conditions of the
% LaTeX Project Public License (LPPL), either version 1.3c of this
% license or (at your option) any later version.  The latest version
% of this license is in the file
%
%    https://www.latex-project.org/lppl.txt
%
% This file is part of the "siunitx bundle" (The Work in LPPL)
% and all files in that bundle must be distributed together.
%
% The released version of this bundle is available from CTAN.
%
% -----------------------------------------------------------------------
%
% The development version of the bundle can be found at
%
%    https://github.com/josephwright/siunitx
%
% for those people who are interested.
%
% -----------------------------------------------------------------------
%
%<*driver>
\documentclass{l3doc}
% The next line is needed so that \GetFileInfo will be able to pick up
% version data
\usepackage{siunitx}
\begin{document}
  \DocInput{\jobname.dtx}
\end{document}
%</driver>
% \fi
%
% \GetFileInfo{siunitx.sty}
%
% \title{^^A
%   \pkg{siunitx-symbol} -- Symbol-related settings^^A
%   \thanks{This file describes \fileversion,
%     last revised \filedate.}^^A
% }
%
% \author{^^A
%  Joseph Wright^^A
%  \thanks{^^A
%    E-mail:
%    \href{mailto:joseph.wright@morningstar2.co.uk}
%      {joseph.wright@morningstar2.co.uk}^^A
%   }^^A
% }
%
% \date{Released \filedate}
%
% \maketitle
%
% \begin{documentation}
%
% \end{documentation}
%
% \begin{implementation}
%
% \section{\pkg{siunitx-symbol} implementation}
%
% Start the \pkg{DocStrip} guards.
%    \begin{macrocode}
%<*package>
%    \end{macrocode}
%
% Identify the internal prefix (\LaTeX3 \pkg{DocStrip} convention): only
% internal material in this \emph{submodule} should be used directly.
%    \begin{macrocode}
%<@@=siunitx_symbol>
%    \end{macrocode}
%
% \begin{variable}{\l_@@_tmpa_tl, \l_@@_tmpb_tl}
%   Scratch space.
%    \begin{macrocode}
\tl_new:N \l_@@_tmpa_tl
\tl_new:N \l_@@_tmpb_tl
%    \end{macrocode}
% \end{variable}
%
% A small number of commands are needed from the companion fonts when working
% with $8$-bit engines. These are loaded by modern \LaTeXe{} kernel, so for
% older ones, force loading them using \pkg{textcomp}.
%    \begin{macrocode}
\AtBeginDocument
  {
    \cs_if_free:cT { T@TS1 }
      { \RequirePackage { textcomp } }
  }
%    \end{macrocode}
%
% \begin{macro}{\@@_non_latin:n}
% \begin{macro}{\@@_non_latin:nnnn}
%   As in \pkg{siunitx-unit}, but internal in both cases as it's rather
%   specialised.
%    \begin{macrocode}
\bool_lazy_or:nnTF
  { \sys_if_engine_luatex_p: }
  { \sys_if_engine_xetex_p: }
  {
    \cs_new:Npn \@@_non_latin:n #1
      { \char_generate:nn {#1} { \char_value_catcode:n {#1} } }
  }
  {
    \cs_new:Npn \@@_non_latin:n #1
      {
        \exp_last_unbraced:Nf \@@_non_latin:nnnn
          { \char_to_utfviii_bytes:n {#1} }
      }
    \cs_new:Npn \@@_non_latin:nnnn #1#2#3#4
      {
        \exp_after:wN \exp_after:wN \exp_after:wN
          \exp_not:N \char_generate:nn {#1} { 13 }
        \exp_after:wN \exp_after:wN \exp_after:wN
          \exp_not:N \char_generate:nn {#2} { 13 }
      }
  }
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\@@_if_replace:NnT}
%   A test to see if the unit definition which applies is still one we expect:
%   here that means it is just using a (Unicode) codepoint. The comparison
%   is string-based as \pkg{unicode-math} (at least) can alter some of them.
%    \begin{macrocode}
\prg_new_protected_conditional:Npnn \@@_if_replace:Nn #1#2 { T , TF }
  {
    \group_begin:
      \tl_set:Nx \l_@@_tmpa_tl { \@@_non_latin:n {#2} }
      \protected@edef \l_@@_tmpa_tl
        { \exp_not:N \mathrm { \l_@@_tmpa_tl } }
      \keys_set:nn { siunitx } { parse-units = false }
      \siunitx_unit_format:nN {#1} \l_@@_tmpb_tl
      \str_if_eq:VVTF \l_@@_tmpa_tl \l_@@_tmpb_tl
        {
          \group_end:
          \prg_return_true:
        }
        {
          \group_end:
          \prg_return_false:
        }
  }
%    \end{macrocode}
% \end{macro}
%
% At the start of the document, fonts are fixed and the user may have
% altered unit set up. If things are unchanged, we can alter the settings
% such that they use something \enquote{more sensible}.
%    \begin{macrocode}
\AtBeginDocument
  {
    \@@_if_replace:NnT \arcminute { "02B9 }
      {
        \siunitx_declare_unit:Nn \arcminute
          { \exp_not:N \ensuremath { { } ' } }
      }
    \@@_if_replace:NnT \arcsecond { "02BA }
      {
        \siunitx_declare_unit:Nn \arcsecond
          { \exp_not:N \ensuremath { { } '' } }
      }
%    \end{macrocode}
%   For |\degree|, direct input works in text mode so there is
%   only a need to tidy up for math mode. If \pkg{fontspec} is loaded then that
%   problem goes away, so nothing needs to be done.
%    \begin{macrocode}
    \@@_if_replace:NnT \degree { "00B0 }
      {
        \@ifpackageloaded { fontspec }
          { }
          {
            \siunitx_declare_unit:Nxn \degree
              {
                \siunitx_print_text:n
                  { \@@_non_latin:n { "00B0 } }
              }
              { quantity-product = { } }
         }
      }
%    \end{macrocode}
%   For |\degreeCelsius|, much the same to think about but the comparison
%   must be done by hand.
%    \begin{macrocode}
    \group_begin:
      \tl_set:Nx \l_@@_tmpa_tl { \@@_non_latin:n { "00B0 } C }
      \protected@edef \l_@@_tmpa_tl
        { \exp_not:N \mathrm { \l_@@_tmpa_tl } }
      \keys_set:nn { siunitx } { parse-units = false }
      \siunitx_unit_format:nN { \degreeCelsius } \l_@@_tmpb_tl
      \str_if_eq:VVTF \l_@@_tmpa_tl \l_@@_tmpb_tl
        {
          \group_end:
          \@ifpackageloaded { fontspec }
            { }
            {
              \siunitx_declare_unit:Nx \degreeCelsius
                {
                  \siunitx_print_text:n
                    { \@@_non_latin:n { "00B0 } } C
                }
           }
        }
        { \group_end: }
%    \end{macrocode}
%   For |\ohm|, there is a math mode symbol we can use, so there has to be
%   a mode-dependent definition.
%    \begin{macrocode}
    \@@_if_replace:NnT \ohm { "03A9 }
      {
        \siunitx_declare_unit:Nx \ohm
          {
            \exp_not:N \ifmmode
              \cs_if_exist:NTF \upOmega
                { \exp_not:N \upOmega }
                { \exp_not:N \Omega }
            \exp_not:N \else
              \siunitx_print_text:n
                {
                  \bool_lazy_or:nnTF
                    { \sys_if_engine_luatex_p: }
                    { \sys_if_engine_xetex_p: }
                    { \@@_non_latin:n { "03A9 } }
                    { \exp_not:N \textohm }
                }
            \exp_not:N \fi
          }
      }
%    \end{macrocode}
%   Only a text mode command is available for |\micro| in the standard
%   set up.
%    \begin{macrocode}
    \@@_if_replace:NnT \micro { "03BC }
      {
        \siunitx_declare_prefix:Nnx \micro { -6 }
          {
            \siunitx_print_text:n
              {
                \bool_lazy_or:nnTF
                  { \sys_if_engine_luatex_p: }
                  { \sys_if_engine_xetex_p: }
                  { \@@_non_latin:n { "00B5 } }
                  { \exp_not:N \textmu }
              }
          }
      }
  }
%    \end{macrocode}
%
%   For the times symbol, only \LuaTeX{} allows us to use the math mode symbol
%   directly. However, that likely won't follow the surrounding font appearance,
%   so in all cases we use the |TS1| version for text. Otherwise much the
%   same as |\textmu| support. It's hard to check for the product symbol, so
%   we just go with it an hope for the best!
%    \begin{macrocode}
\keys_set:nn { siunitx }
  { product-symbol  = \ifmmode \times \else \texttimes \fi }
\AtBeginDocument
  {
    \group_begin:
        \tl_set:Nn \l_@@_tmpa_tl
          { { } { } { 2 } { } { } { } { 1 } }
        \tl_set:Nx \l_@@_tmpa_tl
          { \siunitx_number_output:N \l_@@_tmpa_tl }
        \tl_set:Nn \l_@@_tmpb_tl { 2 \times 10 ^ { 1 } }
        \tl_if_eq:NNTF \l_@@_tmpa_tl \l_@@_tmpb_tl
          {
            \group_end:
            \keys_set:nn { siunitx }
              {
                exponent-product =
                  \ifmmode \times \else \texttimes \fi
              }
          }
          {
            \tl_set:Nn \l_@@_tmpb_tl { 2 \cdot 10 ^ { 1 } }
            \tl_if_eq:NNTF \l_@@_tmpa_tl \l_@@_tmpb_tl
              {
                \group_end:
                \keys_set:nn { siunitx }
                  {
                    exponent-product =
                      \ifmmode \cdot \else \textperiodcentered \fi
                  }
              }
              { \group_end: }
          }
    \group_begin:
      \tl_set:Nn \l_@@_tmpa_tl { \mathrm { m } \cdot \mathrm { s } }
      \tl_set:Nn \l_siunitx_unit_font_tl { \mathrm }
      \siunitx_unit_format:nN { m . s } \l_@@_tmpb_tl
      \tl_if_eq:NNTF \l_@@_tmpa_tl \l_@@_tmpb_tl
        {
          \group_end:
          \keys_set:nn { siunitx }
            {
              inter-unit-product =
                \ifmmode \cdot \else \textperiodcentered \fi
            }
        }
        { \group_end: }
  }
%    \end{macrocode}
%
% \subsection{Bookmark definitions}
%
% Inside PDF strings we disable the text printing function. The definition of
% |\ohm| is also reset as otherwise engine-dependent strings are generated
% (\XeTeX{} and \LuaTeX{} give different outcomes using for example
% |\textohm|).
%    \begin{macrocode}
\AtBeginDocument
  {
    \@ifpackageloaded { hyperref }
      {
        \exp_args:Nx \pdfstringdefDisableCommands
          {
            \cs_set_eq:NN \siunitx_print_text:n \exp_not:N \use:n
            \siunitx_declare_unit:Nn \exp_not:N \ohm
              { \@@_non_latin:n { "03A9 } }
          }
      }
      { }
  }
%    \end{macrocode}
%
%    \begin{macrocode}
%</package>
%    \end{macrocode}
%
% \end{implementation}
%
% \PrintIndex