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: ┃ C T ┃

⟦6cc1a9294⟧ TextFile

    Length: 14315 (0x37eb)
    Types: TextFile
    Names: »COMPILER_EXTENSIONS_STUBS«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧

TextFile

WITH Log;
WITH Profile;
PACKAGE BODY Library_Extensions IS

   PACKAGE Naming RENAMES Directory.Naming;

   PROCEDURE Make_Path_Preprocess (Host_Path_Name : String;
                                   Remote_Machine : String;
                                   Remote_Directory : String;
                                   Remote_Program_Library : String;
                                   Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Make_Path_Preprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line
         (  
          Message =>
          "Make_Path_Preprocess (Host_Path_Name => " &
             Host_Path_Name & ", Remote_Machine => " &
             Remote_Machine & ", Remote_Directory => " & Remote_Directory &
             ", Remote_Program_Library => " & Remote_Program_Library & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Make_Path_Preprocess;


   PROCEDURE Make_Path_Postprocess (Host_Path_Name : String;
                                    Remote_Machine : String;
                                    Remote_Directory : String;
                                    Remote_Program_Library : String;
                                    Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Make_Path_Postprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line
         (  
          Message =>
          "Make_Path_Postprocess (Host_Path_Name => " &
             Host_Path_Name & ", Remote_Machine => " &
             Remote_Machine & ", Remote_Directory => " & Remote_Directory &
             ", Remote_Program_Library => " & Remote_Program_Library & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Make_Path_Postprocess;


   PROCEDURE Destroy_View_Preprocess
                (Host_Path_Name :        String;  
                 Status         : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Destroy_View_Preprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line
         (  
          Message => "Destroy_View_Preprocess (Host_Path_Name => " &
                         Host_Path_Name & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Destroy_View_Preprocess;


   PROCEDURE Destroy_View_Postprocess
                (Host_Path_Name :        String;  
                 Status         : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Destroy_View_Postprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line
         (  
          Message => "Destroy_View_Postprocess (Host_Path_Name => " &
                         Host_Path_Name & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Destroy_View_Postprocess;


   PROCEDURE Import_Preprocess (Views_To_Import : Directory.Naming.Iterator;
                                Into_View : String;
                                Status : IN OUT Simple_Status.Condition) IS

      Views_2_Import : Naming.Iterator := Views_To_Import;

   BEGIN
      Log.Put_Line (Message => "Import_Preprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line (Message => "Import_Preprocess (Views_To_Import => ",
                    Kind    => Profile.Sharp_Msg);

      Naming.Reset (Views_2_Import);

      WHILE NOT Naming.Done (Views_2_Import) LOOP
         Log.Put_Line (Message => Naming.Source_Name (Views_2_Import),
                       Kind    => Profile.Sharp_Msg);

         Naming.Next (Views_2_Import);
      END LOOP;

      Log.Put_Line (Message => ", Into_View => " & Into_View & ")",
                    Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Import_Preprocess;


   PROCEDURE Import_Postprocess (Views_To_Import : Directory.Naming.Iterator;
                                 Into_View : String;
                                 Status : IN OUT Simple_Status.Condition) IS

      Views_2_Import : Naming.Iterator := Views_To_Import;

   BEGIN
      Log.Put_Line (Message => "Import_Postprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line (Message => "Import_Postprocess (Views_To_Import => ",
                    Kind    => Profile.Sharp_Msg);

      Naming.Reset (Views_2_Import);

      WHILE NOT Naming.Done (Views_2_Import) LOOP
         Log.Put_Line (Message => Naming.Source_Name (Views_2_Import),
                       Kind    => Profile.Sharp_Msg);

         Naming.Next (Views_2_Import);
      END LOOP;

      Log.Put_Line (Message => ", Into_View => " & Into_View & ")",
                    Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Import_Postprocess;


   PROCEDURE Remove_Import_Preprocess
                (View_To_Remove :        Directory.Object;
                 From_View      :        String;
                 Status         : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Remove_Import_Preprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Remove_Import_Preprocess (View_To_Remove => " &
                        Naming.Get_Simple_Name (View_To_Remove) &
                        ", From_View => " & From_View & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Remove_Import_Preprocess;


   PROCEDURE Remove_Import_Postprocess
                (View_To_Remove :        Directory.Object;
                 From_View      :        String;
                 Status         : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Remove_Import_Postprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Remove_Import_Postprocess (View_To_Remove => " &
                        Naming.Get_Simple_Name (View_To_Remove) &
                        ", From_View => " & From_View & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Remove_Import_Postprocess;


   PROCEDURE Release_Preprocess (From_Working_View : String;
                                 Released_View : String;
                                 Remote_Machine : String;
                                 Remote_Directory : String;
                                 Remote_Program_Library : String;
                                 Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Release_Preprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Release_Preprocess (From_Working_View => " &
                        From_Working_View & ", Released_View => " &
                        Released_View & ", Remote_Machine => " &
                        Remote_Machine & ", Remote_Directory => " &
                        Remote_Directory & ", Remote_Program_Library => " &
                        Remote_Program_Library & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Release_Preprocess;


   PROCEDURE Release_Postprocess (View_To_Remove : String;
                                  Released_View : String;
                                  Remote_Machine : String;
                                  Remote_Directory : String;
                                  Remote_Program_Library : String;
                                  Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Release_Postprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Release_Postprocess (From_Working_View => " &
                        View_To_Remove & ", Released_View => " &
                        Released_View & ", Remote_Machine => " &
                        Remote_Machine & ", Remote_Directory => " &
                        Remote_Directory & ", Remote_Program_Library => " &
                        Remote_Program_Library & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Release_Postprocess;


   PROCEDURE Link_Preprocess (Main_Unit : String;
                              Executable_Name : String;
                              Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Link_Preprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Link_Preprocess (Main_Unit => " & Main_Unit &
                        ", Executable_Name => " & Executable_Name & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Link_Preprocess;


   PROCEDURE Link_Postprocess (Main_Unit : String;
                               Executable_Name : String;
                               Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Link_Postprocess called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Link_Postprocess (Main_Unit => " & Main_Unit &
                        ", Executable_Name => " & Executable_Name & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Link_Postprocess;


   PROCEDURE Download_File (Host_File_Name : String;
                            Target_File_Name : String;
                            Remote_Directory : String;
                            Remote_Machine : String;
                            Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Download_File called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Download_File (Host_File_Name => " & Host_File_Name &
                        ", Target_File_Name => " & Target_File_Name &  
                        ", Remote_Directory => " & Remote_Directory &  
                        ", Remote_Machine => " & Remote_Machine & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Download_File;


   PROCEDURE Upload_File (Host_File_Name   :        String;
                          Target_File_Name :        String;
                          Remote_Directory :        String;
                          Remote_Machine   :        String;
                          Status           : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Upload_File called", Kind => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Upload_File (Host_File_Name => " & Host_File_Name &
                        ", Target_File_Name => " & Target_File_Name &  
                        ", Remote_Directory => " & Remote_Directory &  
                        ", Remote_Machine => " & Remote_Machine & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Upload_File;


   PROCEDURE Build_List_File (Host_View : String;
                              Remote_Machine : String;
                              Remote_Directory : String;
                              Remote_Program_Library : String;
                              List_File_Name : String;
                              Status : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Build_List_File called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Build_List_File (Host_View => " & Host_View &
                        ", Remote_Machine => " & Remote_Machine &  
                        ", Remote_Directory => " & Remote_Directory &  
                        ", Remote_Program_Library => " &
                        Remote_Program_Library & 
                        ", List_File_Name => " & List_File_Name & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Build_List_File;


   PROCEDURE Create_Remote_Directory
                (Remote_Directory :        String;
                 Remote_Machine   :        String;
                 Status           : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Create_Remote_Directory called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message => "Create_Remote_Directory (Remote_Directory => " &
                        Remote_Directory &  
                        ", Remote_Machine => " & Remote_Machine & ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Create_Remote_Directory;


   PROCEDURE Create_Program_Library
                (Host_View              :        String;
                 Remote_Directory       :        String;
                 Remote_Program_Library :        String;
                 Remote_Machine         :        String;
                 Status                 : IN OUT Simple_Status.Condition) IS
   BEGIN
      Log.Put_Line (Message => "Create_Program_Library called",
                    Kind    => Profile.Note_Msg);

      Log.Put_Line  
         (Message =>
             "Create_Program_Library (Host_View => " & Host_View &
                ", Remote_Directory => " & Remote_Directory &  
                ", Remote_Program_Library => " & Remote_Program_Library &
                ", Remote_Machine => " & Remote_Machine &  
                ")",
          Kind    => Profile.Sharp_Msg);

      Simple_Status.Create_Condition (Status, "", "", Simple_Status.Normal);
   END Create_Program_Library;

END Library_Extensions;