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

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;