DataMuseum.dk

top - download

    Length: 2538 (0x9ea)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Class_Behavior;
with Collection;
with Instance;

package body Point_D is

    type Etat_Structure is
        record
            X, Y : Natural;
        end record;


    package Behavior is new Class_Behavior (Element        => Etat_Structure,
                                            With_Name      => Class_Name,
                                            With_Dates     => Is_Dated,
                                            With_Date_Mode => Date_Mode);

------------------------------------------------------------------------------
    function X (O : Object) return Natural is
    begin
        return Behavior.Get (O).X;
    end X;

------------------------------------------------------------------------------
    function Y (O : Object) return Natural is
    begin
        return Behavior.Get (O).Y;
    end Y;

------------------------------------------------------------------------------

    function Instances return Collection.Object is
    begin
        return Behavior.Instances;  
    end Instances;

------------------------------------------------------------------------------
    function Exist (With_X, With_Y : Natural) return Boolean is
        function Is_Value (O : Object) return Boolean is
        begin
            return Behavior.Get (O).X = With_X and Behavior.Get (O).Y = With_Y;
        end Is_Value;  
        function Exist_Value is new Collection.Exist (Is_Value);
    begin
        return Exist_Value (Instances);
    end Exist;


------------------------------------------------------------------------------
    function Add (With_X, With_Y : Natural) return Object is
        Un_Etat : Etat_Structure;
    begin
        Un_Etat.X := With_X;
        Un_Etat.Y := With_Y;
        return Behavior.Allocate (The_Element => Un_Etat);
    end Add;


------------------------------------------------------------------------------
    procedure Change (O : Object; With_X, With_Y : Natural) is
        Un_Etat : Etat_Structure;
    begin
        Un_Etat   := Behavior.Get (The_Reference => O);
        Un_Etat.X := With_X;
        Un_Etat.Y := With_Y;
        Behavior.Set (The_Reference => O, With_Value => Un_Etat);
    end Change;


------------------------------------------------------------------------------
    procedure Delete (O : Object) is
    begin
        Behavior.Dispose (The_Reference => O);
    end Delete;

------------------------------------------------------------------------------
    procedure Clean is
    begin
        Behavior.Clear;
    end Clean;

end Point_D;