|
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 body Module, seg_010756, separate Actions
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
separate (Actions)
package body Module is
procedure Image_Name (Handle : Dc.Gateway_Handle;
Visible : Boolean;
Read_Only : Boolean;
No_Image : out Boolean;
Show_Property_Image : out Boolean;
Id : out Dc.Image_Identity) is
begin
Model.Image_Name (Handle => Handle,
Visible => Visible,
Read_Only => Read_Only,
No_Image => No_Image,
Show_Property_Image => Show_Property_Image,
Id => Id);
end Image_Name;
procedure Build_Image (Handle : Dc.Gateway_Handle;
Visible : Boolean;
In_Place : Boolean;
First_Time : Boolean;
Read_Only : in out Boolean;
Image : Dc.Image_Id;
No_Image : out Boolean;
Underlying_Object : out Directory.Object) is
begin
Model.Build_Image (Handle => Handle,
Visible => Visible,
In_Place => In_Place,
First_Time => First_Time,
Read_Only => Read_Only,
Image => Image,
No_Image => No_Image,
Underlying_Object => Underlying_Object);
end Build_Image;
procedure Pre_Check_In (Handle : Dc.Gateway_Handle;
Subobject : Directory.Object;
Response : Profile.Response_Profile;
Action_Id : Action.Id;
Errors : in out Dc.Error_Counts) is
begin
Model.Pre_Check_In (Handle => Handle,
Subobject => Subobject,
Response => Response,
Action_Id => Action_Id,
Errors => Errors);
end Pre_Check_In;
procedure Pre_Make_Controlled (Handle : Dc.Gateway_Handle;
Subobject : Directory.Object;
Save_Source : Boolean;
Allow_Controlled : out Boolean;
Response : Profile.Response_Profile;
Action_Id : Action.Id;
Errors : in out Dc.Error_Counts) is
begin
Model.Pre_Make_Controlled (Handle => Handle,
Subobject => Subobject,
Save_Source => Save_Source,
Allow_Controlled => Allow_Controlled,
Response => Response,
Action_Id => Action_Id,
Errors => Errors);
end Pre_Make_Controlled;
end Module;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=19 rec1=00 rec2=01 rec3=042
[0x01] rec0=15 rec1=00 rec2=02 rec3=064
[0x02] rec0=13 rec1=00 rec2=03 rec3=048
[0x03] rec0=07 rec1=00 rec2=04 rec3=001
tail 0x2170c8a76823076bf6c2b 0x42a00088462060003