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     ! 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;