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

⟦4c4b30e6f⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Value, seg_049281

Derivation

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

E3 Source Code



with Ext_String, Our_Value, Lex;
use Ext_String, Our_Value, Lex;

procedure Test_Value is
    Var1, Var2 : Var_Value (Type_Token);
    Var3, Var4 : Var_Value (Type_Boolean);
    Var5, Var6 : Var_Value (Type_Integer);
    Var7, Var8 : Var_Value (Type_String);

    Val1 : Boolean;
    Val2 : Integer;
    Val3 : Ext_String.Var_String;

begin
    Set_Value (Var1, Dot);
    Set_Value (Var1, Coma);
    Set_Value (Var1, Left_Bracket);
    Set_Value (Var1, Right_Bracket);
    Set_Value (Var1, Equal);
    Set_Value (Var1, Not_Equal);
    Set_Value (Var1, Non);
    Set_Value (Var1, Et);
    Set_Value (Var1, Ou);
    Set_Value (Var1, Plus);
    Set_Value (Var2, Minus);
    Set_Value (Var1, Cross);
    Set_Value (Var1, Slash);
    Set_Value (Var1, Less);
    Set_Value (Var1, Less_Equal);
    Set_Value (Var1, Great);
    Set_Value (Var1, Great_Equal);


    Set_Value (Var3, Value ("TRUE"));
    Set_Value (Var4, Value ("FALSE"));

    Val1 := Op (Non, Var3);
    Val1 := Op (Non, Var4);
    Val1 := Op (Equal, Var3, Var4);
    Val1 := Op (Not_Equal, Var3, Var4);
    Val1 := Op (Et, Var3, Var4);
    Val1 := Op (Ou, Var3, Var4);


    Set_Value (Var5, Value ("150"));
    Set_Value (Var6, Value ("10"));

    Val2 := Op (Plus, Var5);
    Val2 := Op (Minus, Var5);

    Val2 := Op (Plus, Var5, Var6);
    Val2 := Op (Minus, Var5, Var6);
    Val2 := Op (Cross, Var5, Var6);
    Val2 := Op (Slash, Var5, Var6);

    Val1 := Op (Equal, Var5, Var6);
    Val1 := Op (Not_Equal, Var5, Var6);
    Val1 := Op (Less, Var5, Var6);
    Val1 := Op (Less, Var5, Var5);
    Val1 := Op (Less_Equal, Var5, Var6);
    Val1 := Op (Less_Equal, Var5, Var5);
    Val1 := Op (Great, Var5, Var6);
    Val1 := Op (Great, Var5, Var5);
    Val1 := Op (Great_Equal, Var5, Var6);
    Val1 := Op (Great_Equal, Var5, Var5);


    Set_Value (Var7, Value ("Premiere"));
    Set_Value (Var8, Value ("deuxieme"));

    Val3 := Op (Coma, Var7, Var8);
    Val1 := Op (Equal, Var7, Var8);
    Val1 := Op (Not_Equal, Var7, Var8);


end Test_Value;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=26 rec1=00 rec2=01 rec3=016
        [0x01] rec0=00 rec1=00 rec2=04 rec3=016
        [0x02] rec0=22 rec1=00 rec2=02 rec3=02c
        [0x03] rec0=06 rec1=00 rec2=03 rec3=000
    tail 0x2154685f2865b606ced2d 0x42a00088462060003