RosettaCodeData/Task/Execute-a-system-command/Ada/execute-a-system-command-1.ada
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

8 lines
254 B
Ada

with POSIX.Unsafe_Process_Primitives;
procedure Execute_A_System_Command is
Arguments : POSIX.POSIX_String_List;
begin
POSIX.Append (Arguments, "ls");
POSIX.Unsafe_Process_Primitives.Exec_Search ("ls", Arguments);
end Execute_A_System_Command;