10 lines
236 B
Ada
10 lines
236 B
Ada
|
with Interfaces.C; use Interfaces.C;
|
||
|
|
|
||
|
|
procedure Execute_System is
|
||
|
|
function Sys (Arg : Char_Array) return Integer;
|
||
|
|
pragma Import(C, Sys, "system");
|
||
|
|
Ret_Val : Integer;
|
||
|
|
begin
|
||
|
|
Ret_Val := Sys(To_C("ls"));
|
||
|
|
end Execute_System;
|