|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Install, seg_01074e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Archive;
with Asa_Definitions;
with Directory_Tools;
with Io;
with Gateway_Class;
procedure Install (Response : in String := "<PROFILE>") is
Procedure_Name : constant String := "INSTALL";
package Dna renames Directory_Tools.Naming;
package Dto renames Directory_Tools;
Activate_File : Io.File_Type;
Gateway_Class_Definitions : constant String :=
Dna.Full_Name ("\" & Procedure_Name &
"$$^$$'VIEW.UNITS.GATEWAY_DEFINITIONS");
Gateway_Classes : constant String := "!MACHINE.GATEWAY_CLASSES";
File_Definitions : constant String :=
Dna.Full_Name ("\" & Procedure_Name & "$$^$$'VIEW.UNITS.FILES");
begin
for C in Asa_Definitions.Gateway_Class loop
Gateway_Class.Deactivate
(Gateway_Class_Name => Asa_Definitions.Gateway_Class'Image (C),
Response => Response);
end loop;
for C in Asa_Definitions.Gateway_Class loop
Archive.Copy (Objects => Gateway_Class_Definitions & '.' &
Asa_Definitions.Gateway_Class'Image (C),
Use_Prefix => Gateway_Classes & '.' &
Asa_Definitions.Gateway_Class'Image (C) &
".GATEWAY_DEFINITION",
For_Prefix => Gateway_Class_Definitions & '.' &
Asa_Definitions.Gateway_Class'Image (C),
Options => "REPLACE",
Response => Response);
Gateway_Class.Build (Gateway_Class_Directory =>
Gateway_Classes & '.' &
Asa_Definitions.Gateway_Class'Image (C),
Gateway_Text_Description => "GATEWAY_DEFINITION",
Gateway_Binary_Description => "GATEWAY_CLASS",
Response => Response);
end loop;
for C in Asa_Definitions.Gateway_Class loop
Io.Create (File => Activate_File,
Mode => Io.Out_File,
Name => Gateway_Classes & '.' &
Asa_Definitions.Gateway_Class'Image (C) &
".ACTIVATE_ON_BOOT");
Io.Close (Activate_File);
Gateway_Class.Activate
(Gateway_Class_Name => Asa_Definitions.Gateway_Class'Image (C),
Response => Response);
end loop;
Archive.Copy (Objects => File_Definitions & ".@",
Use_Prefix => Asa_Definitions.Main_Class_Directory,
For_Prefix => File_Definitions,
Options => "REPLACE",
Response => Response);
end Install;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1d rec1=00 rec2=01 rec3=046
[0x01] rec0=11 rec1=00 rec2=02 rec3=02c
[0x02] rec0=13 rec1=00 rec2=03 rec3=000
tail 0x2170c8a54823076aa667d 0x42a00088462060003