Return to machines.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Annotation of OpenXM_contrib/PHC/Ada/System/machines.ads, Revision 1.1

1.1     ! maekawa     1: package Machines is
        !             2:
        !             3: -- DESCRIPTION :
        !             4: --   This package offers some routines to obtain some information
        !             5: --   about the machines one wants to use.
        !             6:
        !             7:   function Process_ID return integer;
        !             8:
        !             9:   -- DESCRIPTION :
        !            10:   --   Returns the process ID of the program being executed.
        !            11:
        !            12:   function Process_ID return string;
        !            13:
        !            14:   -- DESCRIPTION :
        !            15:   --   Returns the process ID in the form of a string of characters.
        !            16:   --   This is useful to make unique tempory file names, as is done
        !            17:   --   in the following procedures.
        !            18:
        !            19:   function User_Name ( pid : string ) return string;
        !            20:
        !            21:   -- DESCRIPTION :
        !            22:   --   Returns the login-name of the user.
        !            23:   --   The parameter pid indicates the process ID of the calling routine.
        !            24:
        !            25:   function Architecture ( pid : string ) return string;
        !            26:   function Architecture ( pid : string; machine : string ) return string;
        !            27:
        !            28:   -- DESCRIPTION :
        !            29:   --   The architecture of the requested machine will be returned;
        !            30:   --   pid is the process ID of the process calling the routine.
        !            31:   --   By default, the type of the current machine is returned.
        !            32:
        !            33:   function Host_Name ( pid : string ) return string;
        !            34:
        !            35:   -- DESCRIPTION :
        !            36:   --   The name of the machine one is currently working on is returned;
        !            37:   --   pid is the ID of the process calling the routine.
        !            38:
        !            39:   function Date ( pid : string ) return string;
        !            40:
        !            41:   -- DESCRIPTION :
        !            42:   --   Returns the current date; pid contains the ID of the caller.
        !            43:
        !            44: end Machines;