funkcje

library IEEE;
use IEEE.STD_LOGIC_1164.all;


--funkcje do obsługi godzin
package funkcje is

    procedure inc_sec
    (
        min1    :   inout   integer range 0 to 10;
        min0    :   inout   integer range 0 to 10;
        sec1    :   inout   integer range 0 to 10;
        sec0    :   inout   integer range 0 to 10 ;

        minuty  :   in  boolean := false
    );

    procedure inc_min
    (
        min1    :   inout   integer range 0 to 10;
        min0    :   inout   integer range 0 to 10
    );


end funkcje;

package body funkcje is

    procedure inc_sec
    (
        min1    :   inout   integer range 0 to 10;
        min0    :   inout   integer range 0 to 10;
        sec1    :   inout   integer range 0 to 10;
        sec0    :   inout   integer range 0 to 10;

        minuty  :   in  boolean := false
    ) is

    begin

        if sec0 = 9 then

            sec0 := 0;

            if sec1 = 5 then

                sec1 := 0;

                if minuty = true then

                    inc_min(min1, min0);

                end if;

            else

                sec1 := sec1 + 1;

            end if;

        else

            sec0 := sec0 + 1;

        end if;

    end inc_sec;

    procedure inc_min
    (
        min1    :   inout   integer range 0 to 10;
        min0    :   inout   integer range 0 to 10

    ) is

    begin

        if min1 = 5 and min0 = 9 then
            min0 := 0;
            min1 := 0;
        else
            if min0 = 9 then
                min0 := 0;
                min1 := min1+1;
            else
                min0 := min0 +1;
            end if;
        end if;

    end inc_min;



end funkcje;