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;

Task/Execute-a-system-command/AutoIt/execute-a-system-command.autoit

@@ -1 +0,0 @@
-Run(@ComSpec & " /c " & 'pause', "", @SW_HIDE)

Task/Execute-a-system-command/COBOL/execute-a-system-command.cobol

@@ -1 +0,0 @@
-CALL "SYSTEM" USING BY CONTENT "ls"

Task/Execute-a-system-command/Emacs-Lisp/execute-a-system-command-1.l

@@ -1 +0,0 @@
-(shell-command "ls")

Task/Execute-a-system-command/Emacs-Lisp/execute-a-system-command-2.l

@@ -1 +0,0 @@
-(async-shell-command "ls")

Task/Execute-a-system-command/Euphoria/execute-a-system-command.ex

@@ -1,32 +0,0 @@
- -- system --
--- the simplest way --
--- system spawns a new shell so I/O redirection is possible --
-
-system( "dir /w c:\temp\ " ) -- Microsoft --
-
-system( "/bin/ls -l /tmp" ) -- Linux BSD OSX --
-
-----
-
- -- system_exec() --
- -- system_exec does not spawn a new shell --
- -- ( like bash or cmd.exe ) --
-
-integer exit_code = 0
-sequence ls_command = ""
-
-ifdef UNIX or LINUX or OSX then
-    ls_command = "/bin/ls -l "
-elsifdef WINDOWS then
-    ls_command = "dir /w "
-end ifdef
-
-exit_code = system_exec( ls_command )
-
-if exit_code = -1 then
-    puts( STDERR, " could not execute " & ls_command & "\n" )
-elsif exit_code = 0 then
-    puts( STDERR, ls_command & " succeeded\n")
-else
-    printf( STDERR, "command %s failed with code %d\n", ls_command, exit_code)
-end if

Task/Execute-a-system-command/PowerShell/execute-a-system-command-1.psh

@@ -1,3 +0,0 @@
-dir
-ls
-Get-ChildItem

Task/Execute-a-system-command/PowerShell/execute-a-system-command-2.psh

@@ -1 +0,0 @@
-cmd /c dir

Task/Execute-a-system-command/REBOL/execute-a-system-command.rebol

@@ -1,15 +0,0 @@
-; Capture output to string variable:
-
-x: ""  call/output "dir" x
-print x
-
-; The 'console' refinement displays the command output on the REBOL command line.
-
-call/console "dir *.r"
-call/console "ls *.r"
-
-call/console "pause"
-
-; The 'shell' refinement may be necessary to launch some programs.
-
-call/shell "notepad.exe"

Task/Execute-a-system-command/VBScript/execute-a-system-command.vb

@@ -1,2 +0,0 @@
-Set objShell = CreateObject("WScript.Shell")
-objShell.Run "%comspec% /K dir",3,True