From: "Norman H. Cohen" <ncohen@watson.ibm.com>
Subject: Re: How to convert an Fixed_Point to to an Integer ?
Date: 1996/12/24
Date: 1996-12-24T00:00:00+00:00 [thread overview]
Message-ID: <32C02A1E.6268@watson.ibm.com> (raw)
In-Reply-To: dewar.851441337@merv
Robert Dewar wrote:
> The proper way to get the number of seconds from the epoch to now is
>
> Integer (Calendar.Clock - Epoch_Time);
>
> where Epoch_Time is a constant declared as something like
>
> Epoch_Time : constant Time := Calendar.Time_Of (1970,1,1,0.0);
>
> This approach is clean, and correct Ada and completely portable.
Well, it was completely portable on New Year's Day in 1970, but hasn't
been since then, since Calendar.Clock - Epoch_Time is of type Duration,
whose range is allowed to be as small as -86_400.0 .. 86_400.0, i.e.
plus or minus one day (RM 9.6(27)).
(Then again, before 1983, I suppose ANY Ada program was vacuously
portable to all existing Ada compilers! ;-) )
--
Norman H. Cohen
mailto:ncohen@watson.ibm.com
http://www.research.ibm.com/people/n/ncohen
next prev parent reply other threads:[~1996-12-24 0:00 UTC|newest]
Thread overview: 25+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-12-22 0:00 How to convert an Fixed_Point to to an Integer ? Jerry van Dijk
1996-12-23 0:00 ` Larry Kilgallen
1996-12-23 0:00 ` Robert Dewar
1996-12-24 0:00 ` Jerry van Dijk
1996-12-24 0:00 ` Robert Dewar
1996-12-24 0:00 ` Norman H. Cohen [this message]
1996-12-24 0:00 ` Robert Dewar
1996-12-26 0:00 ` Keith Thompson
1996-12-26 0:00 ` Robert Dewar
1996-12-25 0:00 ` Jerry van Dijk
1996-12-25 0:00 ` Robert Dewar
1996-12-26 0:00 ` Norman H. Cohen
1996-12-27 0:00 ` Jerry van Dijk
1996-12-27 0:00 ` Leap seconds in Unix time (was: Re: How to convert an Fixed_Point to to an Integer ?) Norman H. Cohen
1996-12-30 0:00 ` How to convert an Fixed_Point to to an Integer ? Mike Young
1996-12-30 0:00 ` 2000 is a leap year (was: How to convert an Fixed_Point to to an Inte) Larry Kilgallen
1996-12-30 0:00 ` How to convert an Fixed_Point to to an Integer ? Michael F Brenner
1996-12-31 0:00 ` Keith Thompson
1997-01-02 0:00 ` 2000 is a leap year (was: How to convert an Fixed_Point to to an Inte) Mike Paley
1996-12-23 0:00 ` How to convert an Fixed_Point to to an Integer ? Jerry van Dijk
1996-12-23 0:00 ` Eric Miller
1996-12-30 0:00 ` Dave Barnes
1996-12-30 0:00 ` Steve Jones - JON
1996-12-30 0:00 ` Steve Jones - JON
1996-12-30 0:00 ` Jacques Rouillard
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox