DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦e68531a68⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Install_Tools, seg_012b31

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

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;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=18 rec1=00 rec2=01 rec3=042
        [0x01] rec0=16 rec1=00 rec2=02 rec3=048
        [0x02] rec0=13 rec1=00 rec2=03 rec3=024
        [0x03] rec0=14 rec1=00 rec2=04 rec3=028
        [0x04] rec0=10 rec1=00 rec2=05 rec3=000
    tail 0x2150da1c882b14dc33f63 0x42a00088462060003