DataMuseum.dk

top - download

    Length: 1291 (0x50b)
    Types: TextFile
    Names: »B«

└─⟦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 Aleatoire;
package body Boite_A_Images is
    type Des_Images     is array (Positive range <>) of Contenu;  
    type Cle_Des_Images is access Des_Images;
    Le_Contenu : Cle_Des_Images;

    function Magique return Contenu is  
        Premier      : Natural := Contenu'Pos (Contenu'First);
        Dernier      : Natural := Contenu'Pos (Contenu'Last);
        Quantite     : Natural := Dernier - Premier + 1;
        Une_Position : Natural;
    begin
        Une_Position := Premier + Aleatoire mod (Quantite);
        return Contenu'Val (Une_Position);
    end Magique;

    procedure Garnir (Quantite : Natural) is
    begin
        if Quantite = 0 then
            Le_Contenu := null;
        else
            Le_Contenu := new Des_Images'(1 .. Quantite => Magique);
        end if;
    end Garnir;

    function Nombre_D_Elements return Natural is
    begin
        if Le_Contenu = null then
            return 0;
        else
            return Le_Contenu'Length;
        end if;
    end Nombre_D_Elements;


    function Image (De_L_Element : Positive) return String is
    begin
        if Le_Contenu = null then
            return "rien de magique";
        else
            return Contenu'Image (Le_Contenu (De_L_Element));
        end if;
    end Image;
end Boite_A_Images;