[latex3-commits] [l3svn] r6034 - Remove some uses of kernel internals

[noreply at latex-project.org]

Author: bruno
Date: 2015-09-22 21:55:59 +0200 (Tue, 22 Sep 2015)
New Revision: 6034

Modified:
   trunk/l3trial/l3bigint/l3bigint.dtx
Log:
Remove some uses of kernel internals


Modified: trunk/l3trial/l3bigint/l3bigint.dtx
===================================================================
--- trunk/l3trial/l3bigint/l3bigint.dtx	2015-09-22 19:48:51 UTC (rev 6033)
+++ trunk/l3trial/l3bigint/l3bigint.dtx	2015-09-22 19:55:59 UTC (rev 6034)
@@ -625,6 +625,13 @@
 % In particular, copies of primitives and internal commands from other
 % packages.
 %
+% \begin{macro}[int]{\@@_str_cmp_x:nn}
+%   This is a wrapper around the primitive \tn{pdfstrcmp} or \tn{strcmp} or some equivalent Lua code.
+%    \begin{macrocode}
+\cs_new_eq:NN \@@_str_cmp_x:nn \__str_if_eq_x:nn
+%    \end{macrocode}
+% \end{macro}
+%
 % \begin{macro}{\use:nff, \use:nooo}
 %   These functions are preferred to chains of \cs{exp_after:wN} when
 %   implementing for instance multiplication, because otherwise we
@@ -640,7 +647,7 @@
 % \end{macro}
 %
 % \begin{macro}[int]{\@@_scan_new:N}
-%   A poor man's version of \cs{__scan_new:N}
+%   A poor man's version of the kernel's \cs{__scan_new:N}.
 %    \begin{macrocode}
 \cs_new_protected:Npn \@@_scan_new:N #1
   { \cs_new_eq:NN #1 \scan_stop: }
@@ -2454,7 +2461,7 @@
     \int_compare:nNnTF { #2 1 } = { #5 1 }
       {
         \int_compare:nNnTF {#1} = {#4}
-          { \__str_if_eq_x:nn {#3} {#6} }
+          { \@@_str_cmp_x:nn {#3} {#6} }
           { \int_compare:nNnF {#1} > {#4} { - } 1 }
       }
       { \int_compare:nNnF { #2 1 } > { #5 1 } { - } 1 }
@@ -2499,6 +2506,7 @@
 %   comparison is not done with \cs{bigint_compare:nNnTF} because it
 %   would repeatedly parse the number to compare.  Instead, we rely on
 %   uniqueness of the decimal representation.
+%   This code is inspired from the code of \cs{tl_case:Nn}(TF).
 %    \begin{macrocode}
 \cs_new:Npn \bigint_case:nnTF #1
   {
@@ -2528,7 +2536,8 @@
       { \@@_case_end:nw {#3} }
       { \@@_case:nw {#1} }
   }
-\cs_new_eq:NN \@@_case_end:nw \__prg_case_end:nw
+\cs_new:Npn \@@_case_end:nw #1#2#3 \q_mark #4#5 \q_stop
+  { \exp_end: #1 #4 }
 %    \end{macrocode}
 % \end{macro}
 % \end{macro}
@@ -2585,7 +2594,7 @@
     \or: \prg_return_true:
     \or:
       \if_int_compare:w
-          \__str_if_eq_x:nn {#3} { 00000021 47483648 }
+          \@@_str_cmp_x:nn {#3} { 00000021 47483648 }
           = \c_minus_one
         \prg_return_true:
       \else: