DataMuseum.dk

top - download

    Length: 2526 (0x9de)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Expertsystem;
use Expertsystem;
package body Ne_Brique2 is

    package Behavior is new Classbehavior (Object, "BRIQUES   ");

    function All_Bricks return Collection.Object is
    begin
        return Behavior.Allinstances;
    end All_Bricks;

    function Surtas (R : Reference) return Boolean is
    begin
        return Behavior.Get (R).Lieu = Tas;
    end Surtas;

    function Danspince (R : Reference) return Boolean is
    begin
        return Behavior.Get (R).Lieu = Pince;
    end Danspince;

    function Briquessurtas is new Collection.Restrict (Surtas);

    function Plusgrande (R, Any : Reference) return Boolean is
    begin
        return Behavior.Get (R).Taille > Behavior.Get (Any).Taille;
    end Plusgrande;

    function Laplusgrande is new Collection.Themost (Plusgrande);

    function Laplusgrandedutas (R : Reference) return Boolean is
    begin
        return Behavior.Get (R).Taille =
                  Behavior.Get
                     (Laplusgrande (Briquessurtas (Behavior.Instances))).Taille;
    end Laplusgrandedutas;

    function Taille (R : Reference) return Ttaille is
    begin
        return Behavior.Get (R).Taille;
    end Taille;

    function Couleur (R : Reference) return Tcouleur is
    begin
        return Behavior.Get (R).Couleur;
    end Couleur;

    procedure Creer is
    begin
        for I in 10 .. 30 loop
            Behavior.Allocate (Object'(Ttaille (I), Rose, Tas, Tcase (1)));
        end loop;
        Behavior.Allocate (Object'(Ttaille (100), Grise, Tas, Tcase (1)));
        Behavior.Allocate (Object'(Ttaille (150), Blanche, Tas, Tcase (1)));
        Behavior.Allocate (Object'(Ttaille (80), Grise, Tas, Tcase (1)));
        Behavior.Allocate (Object'(Ttaille (200), Blanche, Tas, Tcase (1)));
        Behavior.Allocate (Object'(Ttaille (111), Grise, Tas, Tcase (1)));
        Behavior.Allocate (Object'(Ttaille (400), Rose, Tas, Tcase (1)));
        Put_Line (" ");
        Put (" Nb briques : ");
        Put (Behavior.Cardinality);
        Put_Line ("  ");
    end Creer;

    procedure Modifierlieu (R : Reference; L : Tlieu) is
        Unebrique : Object;
    begin
        Unebrique      := Behavior.Get (R);
        Unebrique.Lieu := L;
        Behavior.Set (R, Unebrique);
    end Modifierlieu;

    procedure Modifierboite (R : Reference; C : Tcase) is
        Unebrique : Object;
    begin
        Unebrique       := Behavior.Get (R);
        Unebrique.Boite := C;
        Behavior.Set (R, Unebrique);
    end Modifierboite;
end Ne_Brique2;