9 lines
236 B
Ada
9 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;
|