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

⟦a725df093⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Method, seg_054707

Derivation

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

E3 Source Code



with Method;
use Method;  
with B_Constant;
with Bounded_String;
use Bounded_String;
with Liste_Parametre, Parametre_Defs;  
with Parametre;
with Text_Io;
use Text_Io;

procedure Test_Method is
    Meth : Object;
    N : Parametre.Variable_String;  
    N1 : String (1 .. 4) := "toto";
    N2 : String (1 .. 5) := "prems";

    N3 : String (1 .. 4) := "deux";  
    Sid1 : String (1 .. 6) := "ichbin";
    Sid2 : String (1 .. 6) := "dubist";
    Id1 : Parametre_Defs.Identificator;
    Id2 : Parametre_Defs.Identificator;



    Liste1 : Liste_Parametre.List;
    Liste : Liste_Parametre.List;


begin  
    N := Value (N1, B_Constant.Parametre_Max_Size);  
    Id1 := Parametre_Defs.Identificator (Sid1);
    Id2 := Parametre_Defs.Identificator (Sid2);
    Liste := Liste_Parametre.Make
                (Value (N2, B_Constant.Parametre_Max_Size), Liste);
    Liste := Liste_Parametre.Make
                (Value (N3, B_Constant.Parametre_Max_Size), Liste);
    Liste1 := Liste_Parametre.Make
                 (Value (Sid1, B_Constant.Parametre_Max_Size), Liste);
    Liste1 := Liste_Parametre.Make
                 (Value (N2, B_Constant.Parametre_Max_Size), Liste);
    Liste1 := Liste_Parametre.Make
                 (Value (Sid2, B_Constant.Parametre_Max_Size), Liste);





    Init (Meth, N, Liste, Liste1);  
    Text_Io.Put_Line (Image (Meth));
    Put_Line (Image (Get_Method_Name (Meth)));
    Put_Line (Natural'Image (Get_In_Parameter_Number (Meth)));
    Put_Line (Image (Get_In_Parameter (Meth)));
    Put_Line (Natural'Image (Get_Out_Parameter_Number (Meth)));
    Put_Line (Image (Get_Out_Parameter (Meth)));
    Add_Subscripted_Object (Meth, Id1);
    Add_Subscripted_Object (Meth, Id2);
    Put_Line ("souyscription" & Image (Get_Subscripted_Object (Meth)));
    Remove_Subscripted_Object (Meth, (Id1));
    Put_Line (Image (Get_Subscripted_Object (Meth)));
    if Is_Subscripted (Meth, Id1) then
        Put_Line ("hohohoho???");
    end if;
    if Is_Subscripted (Meth, Id2) then
        Put_Line ("it's allright");
    end if;
    Add_Filtration_Object (Meth, Id1);
    Add_Filtration_Object (Meth, Id2);
    Put_Line (Image (Get_Filtration_Object (Meth)));
    Remove_Filtration_Object (Meth, Id2);
    Put_Line (Image (Get_Filtration_Object (Meth)));

    if Is_Filtration (Meth, Id1) then
        Put_Line ("ok");
    end if;  
    if Is_Filtration (Meth, Id2) then
        Put_Line ("houps");
    end if;
    Text_Io.Put_Line (Image (Meth));
    Free (Meth);











end Test_Method;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=25 rec1=00 rec2=01 rec3=06c
        [0x01] rec0=18 rec1=00 rec2=02 rec3=04c
        [0x02] rec0=20 rec1=00 rec2=03 rec3=000
    tail 0x2175d861287b8850aced9 0x42a00088462060003