DataMuseum.dk

top - download

    Length: 1448 (0x5a8)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Calendar;
package body Chronometre is

    Time_Init : constant Duration := 0.0;
    Time_Start : Calendar.Time;
    Time_Stop : Calendar.Time;

    procedure Reset (The_Chrono : in out Chronometre.Object) is
    begin
        if The_Chrono.The_State = Off then
            The_Chrono.The_Value := Time_Init;
        end if;
    end Reset;

    procedure Start (The_Chrono : in out Chronometre.Object) is
        use Calendar;
    begin
        if The_Chrono.The_State = Off then
            The_Chrono.The_State := On;  
            if The_Chrono.The_Value /= Time_Init then
                Time_Start := Calendar.Clock - The_Chrono.The_Value;
            else
                Time_Start := Calendar.Clock;
            end if;
        end if;
    end Start;


    procedure Stop (The_Chrono : in out Chronometre.Object) is  
        use Calendar; -- lisibilite pour l operateur "-" de calendar
    begin
        if The_Chrono.The_State = On then
            The_Chrono.The_State := Off;
            Time_Stop := Calendar.Clock;
            The_Chrono.The_Value := Time_Stop - Time_Start;
        end if;
    end Stop;


    function Get (The_Chrono : Chronometre.Object) return Duration is
        use Calendar; -- lisibilite pour l operateur "-" de calendar
    begin
        if The_Chrono.The_State = Off then
            return The_Chrono.The_Value;
        end if;
        return Calendar.Clock - Time_Start;
    end Get;
end Chronometre;