From 3301423440393adfdbbcfa0d8471e4b4c63df1e6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 31 Aug 2012 17:58:55 +0000 Subject: l3kernel 3160 (31aug12) git-svn-id: svn://tug.org/texlive/trunk@27559 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/source/latex/l3kernel/l3fp-aux.dtx | 23 +++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) (limited to 'Master/texmf-dist/source/latex/l3kernel/l3fp-aux.dtx') diff --git a/Master/texmf-dist/source/latex/l3kernel/l3fp-aux.dtx b/Master/texmf-dist/source/latex/l3kernel/l3fp-aux.dtx index 2a26c63ada5..74bacd5d9d8 100644 --- a/Master/texmf-dist/source/latex/l3kernel/l3fp-aux.dtx +++ b/Master/texmf-dist/source/latex/l3kernel/l3fp-aux.dtx @@ -36,7 +36,7 @@ % %<*driver> \RequirePackage{l3bootstrap} -\GetIdInfo$Id: l3fp-aux.dtx 4089 2012-08-14 04:52:20Z bruno $ +\GetIdInfo$Id: l3fp-aux.dtx 4151 2012-08-28 11:51:52Z bruno $ {L3 Floating-point support functions} \documentclass[full]{l3doc} \begin{document} @@ -210,7 +210,7 @@ % \end{macrocode} % \end{variable} % -% \begin{variable}{\c_@@_max_exponent_int} +% \begin{variable}[int]{\c_@@_max_exponent_int} % Normal floating point numbers have an exponent at most % \texttt{max_exponent} in absolute value. Larger numbers are rounded % to $\pm\infty$. Smaller numbers are subnormal (not implemented yet), @@ -325,7 +325,7 @@ % \cs{exp_after:wN}) or \texttt{f}-expansion, and leaves the floating % point number unchanged. % -% We first distinguish normal floating points, which have a mantissa, +% We first distinguish normal floating points, which have a significand, % from the much simpler special floating points. % \begin{macrocode} \cs_new:Npn \@@_exp_after_o:w \s_@@ \@@_chk:w #1 @@ -464,8 +464,8 @@ % provide different sets of packing functions and shifts, depending on % ranges of input. % -% \begin{macro}[int, EXP]{\@@_pack:NNNNNw} -% \begin{variable} +% \begin{macro}[int, EXP]{\@@_pack:NNNNNw, \@@_pack:NNNNNwn} +% \begin{variable}[int] % { % \c_@@_trailing_shift_int , % \c_@@_middle_shift_int , @@ -473,18 +473,21 @@ % } % This set of shifts allows for computations involving results in the % range $[-4\cdot 10^{8}, 5\cdot 10^{8}-1]$. Shifted values all have -% exactly $9$ digits. +% exactly $9$ digits. The \cs{@@_pack:NNNNNwn} function brings a +% braced \meta{continuation} up through the levels of expansion. % \begin{macrocode} \int_const:Nn \c_@@_leading_shift_int { - 5 0000 } \int_const:Nn \c_@@_middle_shift_int { 5 0000 * 9999 } \int_const:Nn \c_@@_trailing_shift_int { 5 0000 * 10000 } \cs_new:Npn \@@_pack:NNNNNw #1 #2#3#4#5 #6; { + #1#2#3#4#5 ; {#6} } +\cs_new:Npn \@@_pack:NNNNNwn #1 #2#3#4#5 #6; #7 + { + #1#2#3#4#5 ; {#7} {#6} } % \end{macrocode} % \end{variable} % \end{macro} % -% \begin{macro}[int, EXP]{\@@_pack_big:NNNNNNw} -% \begin{variable} +% \begin{macro}[int, EXP]{\@@_pack_big:NNNNNNw, \@@_pack_big:NNNNNNwn} +% \begin{variable}[int] % { % \c_@@_big_trailing_shift_int , % \c_@@_big_middle_shift_int , @@ -502,12 +505,14 @@ \int_const:Nn \c_@@_big_trailing_shift_int { 15 2374 * 10000 } \cs_new:Npn \@@_pack_big:NNNNNNw #1#2 #3#4#5#6 #7; { + #1#2#3#4#5#6 ; {#7} } +\cs_new:Npn \@@_pack_big:NNNNNNwn #1#2 #3#4#5#6 #7; #8 + { + #1#2#3#4#5#6 ; {#8} {#7} } % \end{macrocode} % \end{variable} % \end{macro} % % \begin{macro}[int, EXP]{\@@_pack_Bigg:NNNNNNw} -% \begin{variable} +% \begin{variable}[int] % { % \c_@@_Bigg_trailing_shift_int , % \c_@@_Bigg_middle_shift_int , -- cgit v1.2.3