DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦d36499914⟧ TextFile

    Length: 2684 (0xa7c)
    Types: TextFile
    Names: »B«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

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;