![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / System / ts_syscall.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:34 2000 UTC (23 years, 10 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with text_io; use text_io; with System_Call; procedure ts_syscall is -- DESCRIPTION : -- Performs an "ls" to check the system call. begin new_line; put_line("Test of system call: execution of ls."); new_line; System_Call.Call("ls"); end ts_syscall;