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: T V

⟦8b86d1bf1⟧ TextFile

    Length: 1203 (0x4b3)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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

with Directory_Tools;
package Object_Operations is

    -- This package exports various operations for obtaining objects
    -- to work on, and returning objects to a protected state. Error
    -- handling and error reporting is performed.
    --
    -- These operations are very useful when used in conjunction with
    -- operations from the File_Operations package. For instance:
    --
    --    Object_Operations.Get...
    --    File_Operations.Open_To_Write...
    --       ...
    --    File_Operations.Close...
    --    Object_Operations.Put...

    procedure Unprotect (This_Object : in Directory_Tools.Object.Handle;
                         Response : in String := "<PROFILE>");
    -- This procedure will unfreeze an object if it is frozen, check
    -- it in if it is checked out, and then check it out.

    procedure Protect (This_Object : in Directory_Tools.Object.Handle;
                       Response : in String := "<PROFILE>");
    -- This procedure will check an object back in. If the object
    -- is not already controlled and it is in the units directory of
    -- a view, it will attempt to make it controlled. Then it will
    -- freeze the object.

end Object_Operations;