DataMuseum.dk

top - download

    Length: 4449 (0x1161)
    Types: TextFile
    Names: »V«

└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦a5bbbb819⟧ 
                └─⟦this⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦eec0a994f⟧ 
                └─⟦this⟧ 

TextFile

package Install_Tools is

    -- All of the tools in this package require operator privilege to
    -- be used.  Only one job can use these tools at a time (a lock is
    -- taken out on Install_Tools_Lock_File), and all file access must
    -- be from the local machine.

    Install_Tools_Lock_File : constant String := "!Machine.Dfs_Write";

    procedure Fs_Backup (Drive : Natural := 0;
                         Write_Tape_Marks : Boolean := False;
                         Response : String := "<PROFILE>");

    -- Save the entire Dfs file system on a bootable tape.

    procedure Fs_Archive (Files : String := ">>Script File<<";
                          Drive : Natural := 0;
                          Write_Tape_Marks : Boolean := False;
                          Response : String := "<PROFILE>";
                          Effort_Only : Boolean := True);

    -- This procedure creates a Dfs dump tape containing the file(s)
    -- specified in Files.  The resulting tape is not necessarily
    -- bootable, but is usable by Fs_Download and is readable directly
    -- from the Dfs.

    procedure Read_Tape  
                 (Image : String := ">>NAME OF IMAGE FILE<<";
                  Drive : Natural := 0;
                  Exclude : String := "";
                  Mloads_Indirect : Boolean := False;
                  Append_To_Image : Boolean := False;
                  Response : String := "<PROFILE>");

    -- Read a tape in Mt Image format and create an Mt Image Environment
    -- object.

    procedure Fs_Download (Env_File : String := ">>NAME OF ENVIRONMENT FILE<<";
                           Dfs_File : String := ">>NAME OF Dfs FILE<<";
                           Context : String := "";
                           Overwrite_Programs : Boolean := False;
                           Response : String := "<PROFILE>";
                           Effort_Only : Boolean := True);

    -- Read the specified Environment file and write it as the specified
    -- Dfs file

    procedure Fs_Download (Image : String := ">>NAME OF IMAGE FILE<<";
                           Context : String := "";
                           Overwrite_Programs : Boolean := False;
                           Response : String := "<PROFILE>";
                           Effort_Only : Boolean := True);

    -- Download the contents of an image file in the Environment to the
    -- Dfs file system.  This is morally equivalent to reading a tape
    -- into the Dfs at the Dfs level.  If the format of the image file
    -- name is: <Image File Name>:<pattern>[/<exclude>], the files with
    -- names that match <pattern> will be extracted out of the image file
    -- and written to the Dfs.  However, any files with name that matches
    -- <exclude> (if present) will be skipped.

    procedure Fs_Download (Image : String := ">>NAME OF IMAGE FILE<<";
                           Drive : Natural;  
                           Context : String := "";
                           Overwrite_Programs : Boolean := False;
                           Response : String := "<PROFILE>";
                           Effort_Only : Boolean := True);

    -- This does the same as the above, but reads the image file from the
    -- tape drive specified, creates a image file on disk and then writes
    -- the files in the image to the Dfs.
    -- This procedure will always create the Environment Image file object,
    -- but based on the Effort_Only parameter, may or may not write any
    -- files to the Dfs.

    procedure Fs_Copy (Existing : String := ">>Dfs File Name<<";
                       New_Name : String := ">>New Dfs File Name<<";
                       Overwrite_Existing : Boolean := False;
                       Response : String := "<PROFILE>";
                       Effort_Only : Boolean := True);

    -- Copy a file in the Dfs file system to another Dfs file.

    procedure Fs_Rename (Existing : String := ">>Existing Dfs File Name<<";
                         New_Name : String := ">>New Dfs File Name<<";
                         Response : String := "<PROFILE>";
                         Effort_Only : Boolean := True);

    -- Rename an existing file in the Dfs file system.

    procedure Fs_Delete (Existing : String := ">>Dfs File Name<<";
                         Response : String := "<PROFILE>";
                         Effort_Only : Boolean := True);

    -- Delete a file in the Dfs file system.

end Install_Tools;