|
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 - metrics - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Block_Class, seg_037dd3, seg_0393fe, seg_039533
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Block;
with Custom;
with Message;
with Object;
with Parameters;
with Scanner;
with Symbols;
package Block_Class is
procedure Create_Program_Block;
function Create return Object.Reference;
procedure Unparse (The_Block : Object.Reference);
procedure Close;
procedure New_Symbols_Table;
function Table_Created return Boolean;
procedure Set_Predefined_Identifiers;
procedure Init_Symbol (The_Symbol : Scanner.Lexeme);
procedure Set_Value (The_Symbol : Scanner.Lexeme;
The_Value : Object.Reference);
function Get_Value (The_Symbol : Scanner.Lexeme) return Object.Reference;
procedure New_Arg_List;
procedure Set_Node (For_Block : Object.Reference; The_Node : Block.Node);
procedure Set_Keyword (The_Keyword : Scanner.Lexeme);
procedure Set_Argument (The_Argument : Scanner.Lexeme);
function Send (To_Object : Object.Reference; The_Message : Scanner.Lexeme)
return Object.Reference;
procedure Send (To_Object : Object.Reference;
The_Message : in out Message.Selector;
With_Arguments : in out Parameters.List;
Back_Object : out Object.Reference);
private
type Size is range 0 .. Custom.Block_Max_Number;
type Block_Def is
record
Free : Boolean := True;
Parse_Node : Block.Node := Block.Empty_Node;
Local_Symb : Symbols.Table := Symbols.Nil;
Keywords : Message.Selector := Message.Nil;
Arguments : Message.Selector := Message.Nil;
Enclosing : Size := 0;
end record;
type Block_Map is array (Size) of Block_Def;
Blocks : Block_Map;
Current_Block : Size := 0;
end Block_Class;
nblk1=4
nid=3
hdr6=4
[0x00] rec0=1e rec1=00 rec2=01 rec3=010
[0x01] rec0=18 rec1=00 rec2=02 rec3=000
[0x02] rec0=0d rec1=00 rec2=03 rec3=000
[0x03] rec0=0c rec1=00 rec2=03 rec3=000
tail 0x2153129bc84e58994be5d 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 04 00 03 00 00 00 6e 74 5f 42 6c 6f 63 6b 20 ┆ nt_Block ┆
0x4: 0000 00 00 00 3b 80 0d 63 74 2e 52 65 66 65 72 65 6e ┆ ; ct.Referen┆