AUnit.Time_Measure

More...

Entities

Simple types

AUnit_Duration

Record types

Null_Time
Time

Subprograms

Gen_Put_Measure
Gen_Put_Measure_In_Seconds
Get_Measure
Start_Measure
Stop_Measure

Description

AUnit_Duration [source]

42 type AUnit_Duration is private;

Null_Time [source]

44 Null_Time : constant Time := (Start => Ada.Calendar.Time_Of (1901, 1, 1),
45 Stop => Ada.Calendar.Time_Of (1901, 1, 1));

Time [source]

37 type Time is record
38 Start : Ada.Calendar.Time;
39 Stop : Ada.Calendar.Time;
40 end record;
Start of type Time
Stop of type Time

Gen_Put_Measure [source]

58 procedure Gen_Put_Measure (File : AUnit.IO.File_Type; Measure : AUnit_Duration);

Put the image of the measure

File of type AUnit.IO.File_Type
Measure of type AUnit.Time_Measure.AUnit_Duration

Gen_Put_Measure_In_Seconds [source]

63 procedure Gen_Put_Measure_In_Seconds (File : AUnit.IO.File_Type; Measure : AUnit_Duration);

Unlike Gen_Put_Measure, puts the measure in seconds only, also puts 9 digits after decimal point.

File of type AUnit.IO.File_Type
Measure of type AUnit.Time_Measure.AUnit_Duration

Get_Measure [source]

53 function Get_Measure (T : Time) return AUnit_Duration;

Get the measure

T of type AUnit.Time_Measure.Time
Return value

Start_Measure [source]

47 procedure Start_Measure (T : in out Time);

Start a new measure

T of type AUnit.Time_Measure.Time

Stop_Measure [source]

50 procedure Stop_Measure (T : in out Time);

Stop the measure

T of type AUnit.Time_Measure.Time