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

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;