|
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 Order, seg_048001, seg_048032, seg_0482b8, seg_048626
└─⟦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 Moving_String;
package Order is
subtype Index is Positive range 1 .. 5;
type Index_Array is array (Index) of Index;
type Object is private;
procedure Put_Place (Item : in out Object; Place : in String);
procedure Put_First_Complement
(Item : in out Object; Complement : in String);
procedure Put_Second_Complement
(Item : in out Object; Complement : in String);
procedure Put_Third_Complement
(Item : in out Object; Complement : in String);
procedure Put_Fourth_Complement
(Item : in out Object; Complement : in String);
procedure Put_Redirection (Item : in out Object;
Redirection : in Index_Array);
procedure Make_Redirection (Item : in out Object;
Complement : in String;
Position : in Index);
procedure Free (Item : in out Object);
procedure Show (Item : in Object);
function Image (Item : in Object) return String;
function Complement_Position
(Item : in Object; Complement : in String) return Natural;
function Contains_Complement
(Item : in Object; Complement : in String) return Boolean;
function Complement (Item : in Object; Position : in Index) return String;
function Redirected_Complement
(Item : in Object; Position : in Index) return String;
function Redirection (Item : in Object) return Index_Array;
Null_Object : constant Object;
Null_Index_Array : constant Index_Array := (1, 2, 3, 4, 5);
private
type Moving_String_Array is array (Index) of Moving_String.Object;
Null_Moving_String_Array : constant Moving_String_Array :=
(Moving_String.Null_Object, Moving_String.Null_Object,
Moving_String.Null_Object, Moving_String.Null_Object,
Moving_String.Null_Object);
type Object is
record
The_Order : Moving_String_Array := Null_Moving_String_Array;
Redirection : Index_Array := Null_Index_Array;
end record;
Null_Object : constant Object := (The_Order => Null_Moving_String_Array,
Redirection => Null_Index_Array);
end Order;
nblk1=4
nid=2
hdr6=6
[0x00] rec0=19 rec1=00 rec2=01 rec3=022
[0x01] rec0=19 rec1=00 rec2=04 rec3=024
[0x02] rec0=0a rec1=00 rec2=03 rec3=000
[0x03] rec0=0f rec1=00 rec2=02 rec3=000
tail 0x2174bf09086579aed1006 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 01 48 80 43 20 20 20 20 20 20 20 54 68 65 ┆ H C The┆