phcpack_2.4.88_e448e94a/src/Ada/System/ts_time.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
with text_io;                           use text_io;
with Ada.Real_Time;                     use Ada.Real_Time;

procedure ts_time is

  nowtime : constant Time := Clock;
  sc : Seconds_Count;
  ts : Time_Span;
 -- now : Duration;

  package sec_io is new text_io.integer_io(Seconds_Count);

begin
  Split(nowtime,sc,ts);
 -- now := To_Duration(ts);
  put("seconds count : "); sec_io.put(sc); new_line;
end ts_time;