Re: Simple Real_Time.Time_Span question

[stt@houdini.camb.inmet.com (Tucker Taft)]

dennison@telepath.com wrote:

: ...
: Even though this code has to be portable, I probably would have considered
: cheating and using Duration if I could have found any documentation from my
: compiler vendor on how it is implemented. Unfortunately, there seem to be
: *no* documentation requirements on Duration (unlike all *other* predefined
: types), so my vendor didn't bother to document it. Lucky me.

There should be an "annex M" which contains such information.

But even without it, it is pretty trivial to found out information
about predefined types.  E.g.:

   with Ada.Text_IO; use Ada.Text_IO;
   procedure Tell_Me_About_Duration is
   begin
       Put_Line("Duration'Size = " & Integer'Image(Duration'Size));
       Put_Line("Duration'Small = " & Float'Image(Duration'Small));
       Put_Line("Duration'First = " & Duration'Image(Duration'First));
       Put_Line("Duration'Last = " & Duration'Image(Duration'Last));
   end;

On one of our compilers, this produces the following:

    Duration'Size =  32
    Duration'Small =  6.10352E-05
    Duration'First = -131072.0000
    Duration'Last =  131071.9999

I suspect a number of Ada 95 compilers will produce the same result.

In any case, I sympathize with your goal.
The simplest solution I have heard suggested is the following:

    function To_Float(TS : Time_Span) return Float is
        SC : Seconds_Count;
        Frac : Time_Span;
    begin
        Split(Time_Of(0, TS), SC, Frac);
        return Float(SC) + Time_Unit * Float(Frac/Time_Span_Unit);
    end To_Float;

: --
: T.E.D.

--
-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
Intermetrics, Inc.  Burlington, MA  USA
An AverStar Company