DataMuseum.dk

top - metrics - download

    Length: 2530 (0x9e2)
    Types: TextFile
    Names: »V«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

package Tar is

    -- This package lets you read and write magnetic tapes
    -- in the UNIX 'tar' format.  Tar is a UNIX utility program
    -- for archiving and interchanging files.

    -- Owing to a limitation of the Rational tape I/O software,
    -- this package can only read or write tapes with a physical
    -- block size less than or equal to 4Kbytes.  If the record
    -- size = 512 bytes (the default), this means that there
    -- can be no more than 8 records per block.  On some UNIX
    -- systems, the default is 20 records per block, so be sure
    -- to specify the option -b8 when writing your tar tape.

    -- This package can also read and write files or other
    -- devices in 'tar' format: give the file or device name
    -- as the Archive parameter.

    subtype Name is String;

    Tape : constant Name := "!Machine.Devices.Tape_0";
    Tblock : constant := 512;

    procedure Write (Files : Name := "";
                     Archive : Name := Tar.Tape;
                     Record_Size : Positive := Tar.Tblock;
                     Records_Per_Block : Positive := 8;
                     Swap_Bytes : Boolean := False);

    -- Write the named Files into Target.

    procedure Read (Files : Name := "?";
                    Archive : Name := Tar.Tape;
                    Record_Size : Positive := Tar.Tblock;
                    Records_Per_Block : Positive := 8;
                    Swap_Bytes : Boolean := False);

    -- Read the named Files from Source, and copy them to files
    -- in the current context.  The names of the target files
    -- are generated algorithmically from the names on the tape,
    -- by changing puncutation characters to "_".  This is not
    -- always optimal: feel free to rewrite the algorithm if
    -- you would prefer some other strategy.

    procedure List (Files : Name := "?";
                    Archive : Name := Tar.Tape;
                    Record_Size : Positive := Tar.Tblock;
                    Records_Per_Block : Positive := 8;
                    Swap_Bytes : Boolean := False);

    -- Find the named Files in the Source, and write their names
    -- to the current output.

    procedure Dump (Files : Name := "?";
                    Archive : Name := Tar.Tape;
                    Record_Size : Positive := Tar.Tblock;
                    Records_Per_Block : Positive := 8;
                    Swap_Bytes : Boolean := False);

    -- Read the named Files from Source, and write a hex dump of them
    -- to the current output.

end Tar;