diff options
Diffstat (limited to 'src/grt/grt-fcvt.ads')
| -rw-r--r-- | src/grt/grt-fcvt.ads | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/grt/grt-fcvt.ads b/src/grt/grt-fcvt.ads index 9fad63c06..6b278fe60 100644 --- a/src/grt/grt-fcvt.ads +++ b/src/grt/grt-fcvt.ads @@ -56,6 +56,21 @@ package Grt.Fcvt is procedure Format_Image (Str : out String; Last : out Natural; N : IEEE_Float_64); + -- For To_String (Value : Real; Digits : Natural) + procedure Format_Digits (Str : out String; + Last : out Natural; + N : IEEE_Float_64; + Ndigits : Natural); + + -- Reduce the precision of STR to PREC digits after the point. If PREC is + -- too large, this is no-op. + -- STR, LEN, EXP are the output of To_String, that is: + -- 0.STR * 10**EXP + procedure Format_Precision (Str : in out String; + Len : in out Natural; + Exp : in out Integer; + Prec : Positive); + -- Input format is [+-]int[.int][e[+-]int] -- where int is digit { _ digit } -- and [+-] means optional + or -. |