![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / System / system_call.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 System; use System; package body System_Call is procedure Call ( Command: in string ) is function system(command: address) return natural; pragma Interface(C, system); cmd: constant string := command & ASCII.NUL; ret: Natural; begin ret := system(cmd'address); if ret /= 0 then raise System_Error; end if; end Call; end System_Call;