Return to ts_mach.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/System/ts_mach.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                        use text_io;
                      2: with Machines;                       use Machines;
                      3:
                      4: procedure ts_mach is
                      5:
                      6: -- DESCRIPTION :
                      7: --   Prints system information about the current process.
                      8:
                      9:   pid : constant string := Process_ID;
                     10:   username : constant string := User_Name(pid);
                     11:   hostname : constant string := Host_Name(pid);
                     12:   archi : constant string := Architecture(pid);
                     13:   today : constant string := Date(pid);
                     14:
                     15: begin
                     16:   put_line("Hello " & username & " !");
                     17:   put_line("This is " & hostname & ".");
                     18:   put_line(archi);
                     19:   put_line("Running process with ID : " & pid & ".");
                     20:   put_line("Today date is " & today & ".");
                     21: end ts_mach;