Return to ts_syscall.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/System/ts_syscall.adb, Revision 1.1

1.1     ! maekawa     1: with text_io;                            use text_io;
        !             2: with System_Call;
        !             3:
        !             4: procedure ts_syscall is
        !             5:
        !             6: -- DESCRIPTION :
        !             7: --   Performs an "ls" to check the system call.
        !             8:
        !             9: begin
        !            10:   new_line;
        !            11:   put_line("Test of system call: execution of ls.");
        !            12:   new_line;
        !            13:   System_Call.Call("ls");
        !            14: end ts_syscall;