Data update

Task/Execute-a-system-command/Ada/execute-a-system-command-1.ada

@@ -1,8 +0,0 @@
-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;

Task/Execute-a-system-command/Ada/execute-a-system-command-2.ada

@@ -1,9 +0,0 @@
-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;

Task/Execute-a-system-command/Ada/execute-a-system-command-3.ada

@@ -1,20 +0,0 @@
-with Ada.Text_IO;     use Ada.Text_IO;
-with System.OS_Lib;   use System.OS_Lib;
-
-procedure Execute_Synchronously is
-   Result    : Integer;
-   Arguments : Argument_List :=
-                 (  1=> new String'("cmd.exe"),
-                    2=> new String'("/C dir c:\temp\*.adb")
-                 );
-begin
-   Spawn
-   (  Program_Name           => "cmd.exe",
-      Args                   => Arguments,
-      Output_File_Descriptor => Standout,
-      Return_Code            => Result
-   );
-   for Index in Arguments'Range loop
-      Free (Arguments (Index)); -- Free the argument list
-   end loop;
-end Execute_Synchronously;