calendar - 如何在 Ada 中获得自 unix epoch 以来的秒数？

Question

我觉得很愚蠢，因为我似乎没有得到一个简单的自然数来表示自 Ada 中的 unix 时代(01/01/1970 00:00:00)以来的秒数。我已阅读 Ada.Calendar并且它的子包上下，但似乎没有找到实现这一目标的明智方法，即使 Ada.Calendar.Clock本身应该正是我想要的......

我没办法。在正确的方向上有任何插入吗？

Answer 1

使用 Ada.Calendar.Formatting , 构造一个 Time代表epoch .

Epoch : constant Time := Formatting.Time_Of(1970, 1, 1, 0.0);

检查 Ada.Calendar.Clock 之间的区别和 Epoch .

Put(Natural(Clock - Epoch)'Img);

对照此检查结果 epoch display或 Unix 命令 date +%s .
见 Rationale for Ada 2005: §7.3 Times and dates和 Rationale for Ada 2012: §6.6 General miscellanea了解更多详情。