Annotation of OpenXM_contrib/PHC/Ada/System/system_call.adb, Revision 1.1
1.1 ! maekawa 1: with System; use System;
! 2:
! 3: package body System_Call is
! 4:
! 5: procedure Call ( Command: in string ) is
! 6:
! 7: function system(command: address) return natural;
! 8: pragma Interface(C, system);
! 9: cmd: constant string := command & ASCII.NUL;
! 10: ret: Natural;
! 11:
! 12: begin
! 13: ret := system(cmd'address);
! 14: if ret /= 0 then
! 15: raise System_Error;
! 16: end if;
! 17: end Call;
! 18:
! 19: end System_Call;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>