[latex3-commits] [l3svn] r6921 - Use l3flag in some l3trial fp code (see #336)

[noreply at latex-project.org]

Author: bruno
Date: 2017-02-14 02:36:41 +0100 (Tue, 14 Feb 2017)
New Revision: 6921

Modified:
   trunk/l3trial/l3fp-extras/l3fp-symbolic.dtx
Log:
Use l3flag in some l3trial fp code (see #336)


Modified: trunk/l3trial/l3fp-extras/l3fp-symbolic.dtx
===================================================================
--- trunk/l3trial/l3fp-extras/l3fp-symbolic.dtx	2017-02-14 00:35:41 UTC (rev 6920)
+++ trunk/l3trial/l3fp-extras/l3fp-symbolic.dtx	2017-02-14 01:36:41 UTC (rev 6921)
@@ -1,39 +1,25 @@
 % \iffalse
 %
-%% File l3fp-symbolic.dtx (C) Copyright 2012-2013 The LaTeX3 Project
-%%
-%% 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
-%%
-%%    http://www.latex-project.org/lppl.txt
-%%
-%% This file is part of the "l3trial 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
-%%
-%%    http://www.latex-project.org/svnroot/experimental/trunk/
-%%
-%% for those people who are interested.
-%%
-%%%%%%%%%%%
-%% NOTE: %%
-%%%%%%%%%%%
-%%
-%%   Snapshots taken from the repository represent work in progress and may
-%%   not work or may contain conflicting material!  We therefore ask
-%%   people _not_ to put them into distributions, archives, etc. without
-%%   prior consultation with the LaTeX Project Team.
-%%
-%% -----------------------------------------------------------------------
-%%
+%% File l3fp-symbolic.dtx (C) Copyright 2012-2013,2017 The LaTeX3 Project
 %
+% 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
+%
+%    http://www.latex-project.org/lppl.txt
+%
+% This file is part of the "l3trial bundle" (The Work in LPPL)
+% and all files in that bundle must be distributed together.
+%
+% -----------------------------------------------------------------------
+%
+% The development version of the bundle can be found at
+%
+%    https://github.com/latex3/latex3
+%
+% for those people who are interested.
+%
 %<*driver|package>
 \RequirePackage{expl3}
 \GetIdInfo$Id$
@@ -653,12 +639,13 @@
 %     \cs{fp_set_variable:nn} |{A}| |{A}|\\
 %     \cs{fp_show:n} |{A}|
 %   \end{quote}
-%   To detect this, define |\l__fp_variable_#1_fp| to raise the
-%   |internal| flag and evaluate to \texttt{nan}.  Then re-evaluate
+%   To detect this, define |\l__fp_variable_#1_fp| to raise an
+%   internal flag and evaluate to \texttt{nan}.  Then re-evaluate
 %   \cs{l_@@_symbolic_fp}, and store the result in~|#1|.  If the flag is
 %   raised, |#1|~was present in \cs{l_@@_symbolic_fp}.  In all cases,
 %   the |#1|-free result ends up in |\l__fp_variable_#1_fp|.
 %    \begin{macrocode}
+\flag_new:n { l3fp-symbolic }
 \cs_new_protected:Npn \fp_set_variable:nn #1
   {
     \@@_id_if_invalid:nTF {#1}
@@ -670,10 +657,10 @@
     \@@_variable_set_parsing:Nn \cs_set_eq:NN {#1}
     \fp_set:Nn \l_@@_symbolic_fp {#2}
     \cs_set_nopar:cpn { l_@@_variable_#1_fp }
-      { \fp_flag_on:n { internal } \c_nan_fp }
-    \fp_flag_off:n { internal }
+      { \flag_raise:n { l3fp-symbolic } \c_nan_fp }
+    \flag_zero:n { l3fp-symbolic }
     \fp_set:cn { l_@@_variable_#1_fp } { \l_@@_symbolic_fp }
-    \fp_if_flag_on:nT { internal }
+    \flag_if_raised:nT { l3fp-symbolic }
       {
         \__msg_kernel_error:nnxxx { kernel } { fp-id-loop }
           { \tl_to_str:n {#1} }