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

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;