DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦47a21664b⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Ne_Brique2, seg_011ea0

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

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;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=23 rec1=00 rec2=01 rec3=036
        [0x01] rec0=18 rec1=00 rec2=02 rec3=092
        [0x02] rec0=19 rec1=00 rec2=03 rec3=001
    tail 0x2170df15082466d0b5dce 0x42a00088462063c03