|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Symbol, seg_038bab
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Binary_Tree;
package Symbol is
type Symbol_Type is (Binary_Actor, Discrete_Actor, Fugitive_Actor,
Sub_Prog, Integer_Var, Material,
Theatre, Time_Var, Time_Actor, No_Type);
function Get_Actor_Value
(Theatre_Name : String; Actor_Name : String) return Natural;
function Get_Current_Level return Natural;
function Get_Function_Value (Function_Name : String) return Natural;
function Get_Start_Point (Function_Name : String) return Binary_Tree.Node;
function Get_Theatre_Adress (Theatre_Name : String) return Natural;
function Tmp_Var_Name return String;
procedure Add_Actor (Actor_Name : String; T : Symbol_Type);
procedure Add_Function (Function_Name : String);
procedure Add_Material (Material_Name : String);
procedure Add_Parameter (Variable_Name : String;
The_Type : Symbol_Type := No_Type;
The_Value : Natural := 0);
procedure Add_Theatre
(Theatre_Name, Material_Name : String; Adress : Natural);
procedure Add_Variable (Variable_Name : String;
The_Type : Symbol_Type := No_Type;
The_Value : Natural := 0);
procedure Get_Variable (Variable_Name : String;
The_Type : out Symbol_Type;
The_Value : out Natural;
Success : out Boolean);
procedure Get_Variable_From_1 (Variable_Name : String;
The_Type : out Symbol_Type;
The_Value : out Natural;
Success : out Boolean);
procedure Get_Variable_From_2 (Variable_Name : String;
The_Type : out Symbol_Type;
The_Value : out Natural;
Success : out Boolean);
procedure Initialize;
procedure Put;
procedure Set_Current_Level (To : Natural; Function_Name : String);
procedure Set_Function_Value
(Function_Name : String; The_Value : Natural := 0);
procedure Set_Parameter_Value
(Parameter_Number : Natural; The_Value : Natural := 0);
procedure Set_Start_Point (Function_Name : String;
The_Node : Binary_Tree.Node);
procedure Set_Var_Type (Variable_Name : String; The_Type : Symbol_Type);
procedure Set_Var_Value (Variable_Name : String; The_Value : Natural := 0);
end Symbol;
nblk1=4
nid=4
hdr6=6
[0x00] rec0=17 rec1=00 rec2=01 rec3=03c
[0x01] rec0=11 rec1=00 rec2=03 rec3=064
[0x02] rec0=0d rec1=00 rec2=02 rec3=000
[0x03] rec0=03 rec1=00 rec2=04 rec3=000
tail 0x217366ba684e83b1f9539 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 00 00 97 80 31 28 56 61 72 69 61 62 6c 65 5f ┆ 1(Variable_┆