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 - download
Index: ┃ T V

⟦e46e89d58⟧ TextFile

    Length: 6474 (0x194a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Action;
with Device_Independent_Io;
with Directory;
with Dtia_Client;
with Profile;
package Actions is

    package Dc renames Dtia_Client;

    package Model is

        procedure Image_Name (Handle : Dc.Gateway_Handle;
                              Visible : Boolean;
                              Read_Only : Boolean;
                              No_Image : out Boolean;
                              Show_Property_Image : out Boolean;
                              Id : out Dc.Image_Identity);

        procedure Build_Image (Handle : Dc.Gateway_Handle;
                               Visible : Boolean;
                               In_Place : Boolean;
                               First_Time : Boolean;
                               Read_Only : in out Boolean;
                               Image : Dc.Image_Id;
                               No_Image : out Boolean;
                               Underlying_Object : out Directory.Object);

        procedure Pre_Check_In (Handle : Dc.Gateway_Handle;
                                Subobject : Directory.Object;
                                Response : Profile.Response_Profile;
                                Action_Id : Action.Id;
                                Errors : in out Dc.Error_Counts);

        procedure Pre_Make_Controlled (Handle : Dc.Gateway_Handle;
                                       Subobject : Directory.Object;
                                       Save_Source : Boolean;
                                       Allow_Controlled : out Boolean;
                                       Response : Profile.Response_Profile;
                                       Action_Id : Action.Id;
                                       Errors : in out Dc.Error_Counts);

        procedure Pre_Cmvc_Copy (Handle : Dc.Gateway_Handle;
                                 Subobject : Directory.Object;
                                 Release : Boolean;
                                 Controlled : Boolean;
                                 Joined : Boolean;
                                 Source_View : Directory.Object;
                                 Destination_View : Directory.Object;
                                 First_Call : Boolean;
                                 Do_Not_Copy : out Boolean;
                                 Response : Profile.Response_Profile;
                                 Action_Id : Action.Id;
                                 Errors : in out Dc.Error_Counts);

        procedure Post_Cmvc_Copy (Handle : Dc.Gateway_Handle;
                                  Subobject : Directory.Object;
                                  Source_Object : Directory.Object;
                                  Release : Boolean;  
                                  Controlled : Boolean;
                                  Joined : Boolean;
                                  Source_View : Directory.Object;
                                  Destination_View : Directory.Object;
                                  First_Call : Boolean;
                                  Response : Profile.Response_Profile;
                                  Action_Id : Action.Id;
                                  Errors : in out Dc.Error_Counts);

        procedure Terminate_Server (Reason : in Dc.Termination_Condition);

    end Model;

    package Module is

        procedure Image_Name (Handle : Dc.Gateway_Handle;
                              Visible : Boolean;
                              Read_Only : Boolean;
                              No_Image : out Boolean;
                              Show_Property_Image : out Boolean;
                              Id : out Dc.Image_Identity);

        procedure Build_Image (Handle : Dc.Gateway_Handle;
                               Visible : Boolean;
                               In_Place : Boolean;
                               First_Time : Boolean;
                               Read_Only : in out Boolean;
                               Image : Dc.Image_Id;
                               No_Image : out Boolean;
                               Underlying_Object : out Directory.Object);

        procedure Pre_Check_In (Handle : Dc.Gateway_Handle;
                                Subobject : Directory.Object;
                                Response : Profile.Response_Profile;
                                Action_Id : Action.Id;
                                Errors : in out Dc.Error_Counts);

        procedure Pre_Make_Controlled (Handle : Dc.Gateway_Handle;
                                       Subobject : Directory.Object;
                                       Save_Source : Boolean;
                                       Allow_Controlled : out Boolean;
                                       Response : Profile.Response_Profile;
                                       Action_Id : Action.Id;
                                       Errors : in out Dc.Error_Counts);

    end Module;

    package Requirement is

        procedure Image_Name (Handle : Dc.Gateway_Handle;
                              Visible : Boolean;
                              Read_Only : Boolean;
                              No_Image : out Boolean;
                              Show_Property_Image : out Boolean;
                              Id : out Dc.Image_Identity);

        procedure Build_Image (Handle : Dc.Gateway_Handle;
                               Visible : Boolean;
                               In_Place : Boolean;
                               First_Time : Boolean;
                               Read_Only : in out Boolean;
                               Image : Dc.Image_Id;
                               No_Image : out Boolean;
                               Underlying_Object : out Directory.Object);

        procedure Post_Commit (Handle : Dc.Gateway_Handle;  
                               Image : Dc.Image_Id);

        procedure Edit (Handle : Dc.Gateway_Handle;
                        Image : Dc.Image_Id;
                        S : Dc.Selection;
                        C : Dc.Cursor;
                        Visible : Boolean;
                        Allow_Edit : out Boolean);

        procedure Io_Open (File : in out Device_Independent_Io.File_Type;
                           Mode : Device_Independent_Io.File_Mode;
                           Handle : Dc.Gateway_Handle;
                           Form : String;
                           Action_Id : Action.Id);

    end Requirement;

end Actions;