|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1670 (0x686)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Symbol;
with Lexical;
with Text_Io;
with Bounded_Strings;
procedure Test_Symbol is
use Symbol;
use Bounded_Strings;
L, L1 : Lexical.Lexeme;
begin
New_Table (7);
Set (L, "CD");
Add (L, Kind'(Category));
New_Table (2);
Set (L, "Act1");
Add (L, Kind'(Actor));
Set (L, "Act2");
Add (L, Kind'(Actor));
Release_Table;
Set (L, "Cd1");
Set (L1, "CD");
Add (L, Kind'(Station));
Set_Type (L, L1);
Set (L1, "100");
Set_Value (L, 100);
Set (L, "Cd2");
Set (L1, "CD");
Add (L, Kind'(Station));
Set_Type (L, L1);
Set (L1, "120");
Set_Value (L, 120);
Set (L, "Act1");
Set (L1, "Cd1");
Text_Io.Put_Line (Integer'Image (Get_Actor_Number (L1, L)));
Set (L, "Id1");
Add (L, Kind'(Variable));
Set (L1, "11");
Set_Value (L, 11);
Set (L, "Id2");
Add (L, Kind'(Variable));
Set (L1, "22");
Set_Value (L, 22);
Set (L, "Scene1");
Add (L, Kind'(Scene));
New_Table (4);
Set (L, "Arg1");
Add (L, Kind'(Argument));
Set (L1, "Cd1");
Set_Arg_Value (L1, 1);
Set (L, "Act2");
Set (L1, "Arg1");
Text_Io.Put_Line (Integer'Image (Get_Actor_Number (L1, L)));
Set (L, "Arg2");
Add (L, Kind'(Argument));
Set (L1, "Cd2");
Set_Arg_Value (L1, 2);
Set (L, "Arg3");
Add (L, Kind'(Argument));
Set (L1, "Cd1");
Set_Arg_Value (L1, 3);
Set (L, "Id11");
Add (L, Kind'(Variable));
Set (L1, "11");
Set_Value (L, 11);
Release_Table;
Set (L, "Id3");
Add (L, Kind'(Variable));
Set (L1, "33");
Set_Value (L, 33);
Print;
Release_Table;
end Test_Symbol;