Return to system_call.adb CVS log

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

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;