|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Var_Tab, seg_046cd1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Dynamic_Value, Type_Table, Variable_Table, Text_Io;
procedure Test_Var_Tab is
V : Dynamic_Value.Object;
Vi : Dynamic_Value.Object;
Vb : Dynamic_Value.Object;
Vs : Dynamic_Value.Object;
begin
--_-_-_-_-_-_-_-_-_-_-_ Declaration des types
Type_Table.Declare_Type_Name ("premier type", 1, 1);
Type_Table.Append_Field_In_Current_Type
("v1", Dynamic_Value.Integer_Number, 2, 2);
Type_Table.Append_Field_In_Current_Type
("v2", Dynamic_Value.Integer_Number, 3, 3);
Type_Table.Declare_Type_Name ("deuxieme type", 4, 4);
Type_Table.Append_Field_In_Current_Type
("v3", Dynamic_Value.Integer_Number, 5, 5);
Type_Table.Append_Field_In_Current_Type
("v4", Dynamic_Value.Integer_Number, 6, 6);
Type_Table.Declare_Type_Name ("troisieme type", 7, 7);
Type_Table.Append_Field_In_Current_Type
("v5", Dynamic_Value.Integer_Number, 8, 8);
Type_Table.Append_Field_In_Current_Type
("v6", Dynamic_Value.Integer_Number, 9, 9);
Type_Table.Declare_Type_Name ("type herite", 98, 98);
Type_Table.Inherite_Type (Name => "le fiston",
Parent_Name => "deuxieme type",
L => 333,
C => 333);
Type_Table.Append_Field_In_Current_Type
("v8", Dynamic_Value.Boolean_Number, 99, 99);
Type_Table.Inherite_Type (Name => "le fiston2",
Parent_Name => "premier type",
L => 222,
C => 222);
Type_Table.Print;
--_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ Declaration de variables
Variable_Table.Create ("variable1", "type herite", 999, 999);
Variable_Table.Create ("variable2", Dynamic_Value.Boolean_Number, 888, 888);
Variable_Table.Create ("variable3", "type herite", 777, 777);
Variable_Table.Create ("variable4", "premier type", 666, 666);
Dynamic_Value.Set_Value (Vs, "essai de chaine");
Variable_Table.Create ("variable5",
Dynamic_Value.String_Of_Characters, 9, 8);
Variable_Table.Print;
Variable_Table.Init_Acces_Path;
Variable_Table.Append_To_Acces_Path ("v3");
Variable_Table.Append_To_Acces_Path ("le fiston");
Variable_Table.Append_To_Acces_Path ("variable1");
V := Variable_Table.Get_Access_Through_Path;
Dynamic_Value.Set_Value (V, 54);
Variable_Table.Print;
end Test_Var_Tab;
nblk1=6
nid=3
hdr6=6
[0x00] rec0=20 rec1=00 rec2=01 rec3=046
[0x01] rec0=18 rec1=00 rec2=05 rec3=080
[0x02] rec0=11 rec1=00 rec2=06 rec3=000
[0x03] rec0=14 rec1=00 rec2=06 rec3=000
[0x04] rec0=06 rec1=00 rec2=04 rec3=000
[0x05] rec0=43 rec1=1f rec2=41 rec3=561
tail 0x215439e8e86523810b89e 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 04 01 ea 80 01 3b 01 00 32 20 20 20 20 64 79 ┆ ; 2 dy┆
0x4: 0000 00 02 00 6f 80 12 69 6e 5f 49 6e 69 74 69 61 6c ┆ o in_Initial┆
0x2: 0000 00 00 00 64 80 0c 73 5f 4f 6e 20 28 22 76 33 22 ┆ d s_On ("v3"┆