|
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: 6144 (0x1800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Install_Tools, seg_012b31
└─⟦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