⟦d6c078406⟧

E3 Source Code



with Util_String;

package body Site is

    package Us renames Util_String;

    Debut_Site : constant String := "Debut Site";
    Fin_Site : constant String := "Fin Site";
    Sep_Site : constant Character := '#';

    function Image (O : Object) return String is
    begin
        return (Debut_Site & Natural'Image (O) & Sep_Site & Fin_Site);
    end Image;


    function Value (S : String) return Object is
        O : Object;
        Der_Car : Natural;
    begin
        Value (S, O, Der_Car);
        return O;
    end Value;


    procedure Value (S : String; O : in out Object; Der_Car : in out Natural) is
        P1, P2, P3 : Natural;
    begin

        Us.String_Contient (S, Debut_Site, P1);
        Us.Position (S (P1 .. S'Last), Sep_Site, P2);
        Us.String_Contient (S (P2 + 1 .. S'Last), Fin_Site, P3);

        -- recherche de Debut_Site au debut de S
        -- Recherche la premiere occurence de sep_site a la suite de DeBut_Site
        -- Recherche de Fin_site apres Sep_site

        O := Natural'Value (S (P1 + 1 .. P2 - 1));
        Der_Car := P3;

    exception
        when Us.Template_Non_Trouve =>
            raise Code_Site_Error;
    end Value;


    procedure Create (O : in out Object; N : Natural) is
    begin
        if N not in 0 .. Max_Code_Site then
            raise Code_Site_Error;
        end if;
        O := N;
    end Create;


    function Get_Id (O : Object) return Natural is
    begin
        return O;
    end Get_Id;

end Site;
DataMuseum.dk

Rational R1000/400

⟦d6c078406⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
