CDE

Task/Execute-a-system-command/0DESCRIPTION

@@ -0,0 +1 @@
+In this task, the goal is to run either the <tt>ls</tt> (<tt>dir</tt> on Windows) system command, or the <tt>pause</tt> system command.

Task/Execute-a-system-command/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: Programming environment operations

Task/Execute-a-system-command/ALGOL-68/execute-a-system-command-1.alg

@@ -0,0 +1 @@
+system("ls")

Task/Execute-a-system-command/ALGOL-68/execute-a-system-command-2.alg

@@ -0,0 +1,5 @@
+OP ! = (STRING cmd)BOOL: system(cmd) = 0;
+
+IF ! "touch test.tmp" ANDF ( ! "ls test.tmp" ANDF ! "rm test.tmp" ) THEN
+  print (("test.tmp now gone!", new line))
+FI

Task/Execute-a-system-command/AWK/execute-a-system-command.awk

@@ -0,0 +1,3 @@
+BEGIN {
+  system("ls")
+}

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

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

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

@@ -0,0 +1,20 @@
+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/Aikido/execute-a-system-command-1.aikido

@@ -0,0 +1,4 @@
+var lines = system ("ls")
+foreach line lines {
+    println (line)
+}

Task/Execute-a-system-command/Aikido/execute-a-system-command-2.aikido

@@ -0,0 +1 @@
+exec ("ls")

Task/Execute-a-system-command/Aikido/execute-a-system-command-3.aikido

@@ -0,0 +1,8 @@
+var pid = fork()
+if (pid == 0) {
+    var args = ["/bin/ls"]
+    execv ("/bin/ls", args)
+    exit(1)
+}
+var status = 0
+waitpid (pid, status)

Task/Execute-a-system-command/Aime/execute-a-system-command.aime

@@ -0,0 +1,7 @@
+sshell ss;
+
+b_cast(ss_path(ss), "/bin/ls");
+
+lf_p_text(ss_argv(ss), "ls");
+
+o_text(ss_link(ss));

Task/Execute-a-system-command/AppleScript/execute-a-system-command.applescript

@@ -0,0 +1 @@
+do shell script "ls" without altering line endings

Task/Execute-a-system-command/AutoHotkey/execute-a-system-command.ahk

@@ -0,0 +1 @@
+Run, %comspec% /k dir & pause

Task/Execute-a-system-command/BASIC/execute-a-system-command.bas

@@ -0,0 +1 @@
+SHELL "dir"

Task/Execute-a-system-command/BBC-BASIC/execute-a-system-command-1.bbc

@@ -0,0 +1 @@
+OSCLI "CAT"

Task/Execute-a-system-command/BBC-BASIC/execute-a-system-command-2.bbc

@@ -0,0 +1 @@
+OSCLI "*dir":REM *dir to bypass BB4W's built-in dir command

Task/Execute-a-system-command/BBC-BASIC/execute-a-system-command-3.bbc

@@ -0,0 +1 @@
+OSCLI "ls"

Task/Execute-a-system-command/Bracmat/execute-a-system-command.bracmat

@@ -0,0 +1 @@
+sys$dir

Task/Execute-a-system-command/Brat/execute-a-system-command.brat

@@ -0,0 +1,3 @@
+include :subprocess
+
+p subprocess.run :ls  #Lists files in directory

Task/Execute-a-system-command/Brlcad/execute-a-system-command.brlcad

@@ -0,0 +1 @@
+exec ls

Task/Execute-a-system-command/C++/execute-a-system-command.cpp

@@ -0,0 +1 @@
+system("pause");

Task/Execute-a-system-command/C/execute-a-system-command.c

@@ -0,0 +1,7 @@
+#include <stdlib.h>
+
+int main()
+{
+    system("ls");
+    return 0;
+}

Task/Execute-a-system-command/CMake/execute-a-system-command-1.cmake

@@ -0,0 +1 @@
+execute_process(COMMAND ls)

Task/Execute-a-system-command/CMake/execute-a-system-command-2.cmake

@@ -0,0 +1,7 @@
+# Calculate pi to 40 digits after the decimal point.
+execute_process(
+  COMMAND printf "scale = 45; 4 * a(1) + 5 / 10 ^ 41\\n"
+  COMMAND bc -l
+  COMMAND sed -e "s/.\\{5\\}$//"
+  OUTPUT_VARIABLE pi OUTPUT_STRIP_TRAILING_WHITESPACE)
+message(STATUS "pi is ${pi}")

Task/Execute-a-system-command/Clojure/execute-a-system-command-1.clj

@@ -0,0 +1 @@
+(.. Runtime getRuntime (exec "cmd /C dir"))

Task/Execute-a-system-command/Clojure/execute-a-system-command-2.clj

@@ -0,0 +1,18 @@
+user=> (use '[clojure.java.shell :only [sh]])
+
+user=> (sh "ls" "-aul")
+
+{:exit 0,
+ :out total 64
+drwxr-xr-x  11 zkim  staff    374 Jul  5 13:21 .
+drwxr-xr-x  25 zkim  staff    850 Jul  5 13:02 ..
+drwxr-xr-x  12 zkim  staff    408 Jul  5 13:02 .git
+-rw-r--r--   1 zkim  staff     13 Jul  5 13:02 .gitignore
+-rw-r--r--   1 zkim  staff  12638 Jul  5 13:02 LICENSE.html
+-rw-r--r--   1 zkim  staff   4092 Jul  5 13:02 README.md
+drwxr-xr-x   2 zkim  staff     68 Jul  5 13:15 classes
+drwxr-xr-x   5 zkim  staff    170 Jul  5 13:15 lib
+-rw-r--r--@  1 zkim  staff   3396 Jul  5 13:03 pom.xml
+-rw-r--r--@  1 zkim  staff    367 Jul  5 13:15 project.clj
+drwxr-xr-x   4 zkim  staff    136 Jul  5 13:15 src
+, :err }

Task/Execute-a-system-command/Clojure/execute-a-system-command-3.clj

@@ -0,0 +1,14 @@
+user=> (use '[clojure.java.shell :only [sh]])
+
+user=> (println (:out (sh "cowsay" "Printing a command-line output")))
+
+ _________________________________
+< Printing a command-line output. >
+ ---------------------------------
+        \   ^__^
+         \  (oo)\_______
+            (__)\       )\/\
+                ||----w |
+                ||     ||
+
+nil

Task/Execute-a-system-command/Common-Lisp/execute-a-system-command-1.lisp

@@ -0,0 +1 @@
+(with-output-to-string (stream) (extensions:run-program "ls" nil :output stream))

Task/Execute-a-system-command/Common-Lisp/execute-a-system-command-2.lisp

@@ -0,0 +1 @@
+(system:call-system "ls")

Task/Execute-a-system-command/Common-Lisp/execute-a-system-command-3.lisp

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

Task/Execute-a-system-command/D/execute-a-system-command.d

@@ -0,0 +1 @@
+std.process.system("ls");

Task/Execute-a-system-command/DCL/execute-a-system-command-1.dcl

@@ -0,0 +1 @@
+Directory

Task/Execute-a-system-command/DCL/execute-a-system-command-2.dcl

@@ -0,0 +1 @@
+dir

Task/Execute-a-system-command/Delphi/execute-a-system-command.delphi

@@ -0,0 +1,9 @@
+program ExecuteSystemCommand;
+
+{$APPTYPE CONSOLE}
+
+uses Windows, ShellApi;
+
+begin
+  ShellExecute(0, nil, 'cmd.exe', ' /c dir', nil, SW_HIDE);
+end.

Task/Execute-a-system-command/E/execute-a-system-command.e

@@ -0,0 +1,10 @@
+def ls := makeCommand("ls")
+ls("-l")
+
+def [results, _, _] := ls.exec(["-l"])
+when (results) -> {
+  def [exitCode, out, err] := results
+  print(out)
+} catch problem {
+  print(`failed to execute ls: $problem`)
+}

Task/Execute-a-system-command/Erlang/execute-a-system-command.erl

@@ -0,0 +1 @@
+os:cmd("ls").

Task/Execute-a-system-command/Forth/execute-a-system-command.fth

@@ -0,0 +1 @@
+s" ls" system

Task/Execute-a-system-command/Fortran/execute-a-system-command.f

@@ -0,0 +1,3 @@
+program SystemTest
+  call system("ls")
+end program SystemTest

Task/Execute-a-system-command/Go/execute-a-system-command.go

@@ -0,0 +1,13 @@
+package main
+import "fmt"
+import "os/exec"
+
+func main() {
+  cmd := exec.Command("ls", "-l")
+  output, err := cmd.Output()
+  if (err != nil) {
+    fmt.Println(err)
+    return
+  }
+  fmt.Print(string(output))
+}

Task/Execute-a-system-command/Haskell/execute-a-system-command.hs

@@ -0,0 +1,3 @@
+import System.Cmd
+
+main = system "ls"

Task/Execute-a-system-command/Java/execute-a-system-command-1.java

@@ -0,0 +1,15 @@
+import java.util.Scanner;
+import java.io.*;
+
+public class Program {
+    public static void main(String[] args) {    	
+    	try {
+    		Process p = Runtime.getRuntime().exec("cmd /C dir");//Windows command, use "ls -oa" for UNIX
+    		Scanner sc = new Scanner(p.getInputStream());    		
+    		while (sc.hasNext()) System.out.println(sc.nextLine());
+    	}
+    	catch (IOException e) {
+    		System.out.println(e.getMessage());
+    	}
+    }
+}

Task/Execute-a-system-command/Java/execute-a-system-command-2.java

@@ -0,0 +1,39 @@
+import java.io.IOException;
+import java.io.InputStream;
+
+public class MainEntry {
+    public static void main(String[] args) {
+        executeCmd("ls -oa");
+    }
+
+    private static void executeCmd(String string) {
+        InputStream pipedOut = null;
+        try {
+            Process aProcess = Runtime.getRuntime().exec(string);
+            aProcess.waitFor();
+
+            pipedOut = aProcess.getInputStream();
+            byte buffer[] = new byte[2048];
+            int read = pipedOut.read(buffer);
+            // Replace following code with your intends processing tools
+            while(read >= 0) {
+                System.out.write(buffer, 0, read);
+
+                read = pipedOut.read(buffer);
+            }
+        } catch (IOException e) {
+            e.printStackTrace();
+        } catch (InterruptedException ie) {
+            ie.printStackTrace();
+        } finally {
+            if(pipedOut != null) {
+                try {
+                    pipedOut.close();
+                } catch (IOException e) {
+                }
+            }
+        }
+    }
+
+
+}

Task/Execute-a-system-command/Java/execute-a-system-command-3.java

@@ -0,0 +1,64 @@
+import java.io.IOException;
+import java.io.InputStream;
+
+public class MainEntry {
+    public static void main(String[] args) {
+        // the command to execute
+        executeCmd("ls -oa");
+    }
+
+    private static void executeCmd(String string) {
+        InputStream pipedOut = null;
+        try {
+            Process aProcess = Runtime.getRuntime().exec(string);
+
+            // These two thread shall stop by themself when the process end
+            Thread pipeThread = new Thread(new StreamGobber(aProcess.getInputStream()));
+            Thread errorThread = new Thread(new StreamGobber(aProcess.getErrorStream()));
+
+            pipeThread.start();
+            errorThread.start();
+
+            aProcess.waitFor();
+        } catch (IOException e) {
+            e.printStackTrace();
+        } catch (InterruptedException ie) {
+            ie.printStackTrace();
+        }
+    }
+}
+
+//Replace the following thread with your intends reader
+class StreamGobber implements Runnable {
+
+    private InputStream Pipe;
+
+    public StreamGobber(InputStream pipe) {
+        if(pipe == null) {
+            throw new NullPointerException("bad pipe");
+        }
+        Pipe = pipe;
+    }
+
+    public void run() {
+        try {
+            byte buffer[] = new byte[2048];
+
+            int read = Pipe.read(buffer);
+            while(read >= 0) {
+                System.out.write(buffer, 0, read);
+
+                read = Pipe.read(buffer);
+            }
+        } catch (IOException e) {
+            e.printStackTrace();
+        } finally {
+            if(Pipe != null) {
+                try {
+                    Pipe.close();
+                } catch (IOException e) {
+                }
+            }
+        }
+    }
+}

Task/Execute-a-system-command/JavaScript/execute-a-system-command-1.js

@@ -0,0 +1,2 @@
+var shell = new ActiveXObject("WScript.Shell");
+shell.run("cmd /c dir & pause");

Task/Execute-a-system-command/JavaScript/execute-a-system-command-2.js

@@ -0,0 +1,10 @@
+runCommand("cmd", "/c", "dir", "d:\\");
+print("===");
+var options = {
+    // can specify arguments here in the options object
+    args: ["/c", "dir", "d:\\"],
+    // capture stdout to the options.output property
+    output: ''
+};
+runCommand("cmd", options);
+print(options.output);

Task/Execute-a-system-command/Lua/execute-a-system-command.lua

@@ -0,0 +1,6 @@
+-- just executing the command
+os.execute("ls")
+
+-- to execute and capture the output, use io.popen
+local f = io.popen("ls") -- store the output in a "file"
+print( f:read("*a") )    -- print out the "file"'s content

Task/Execute-a-system-command/MATLAB/execute-a-system-command.m

@@ -0,0 +1,8 @@
+>> system('PAUSE')
+
+Press any key to continue . . .
+
+
+ans =
+
+     0

Task/Execute-a-system-command/PHP/execute-a-system-command-1.php

@@ -0,0 +1,2 @@
+@exec($command,$output);
+echo nl2br($output);

Task/Execute-a-system-command/PHP/execute-a-system-command-2.php

@@ -0,0 +1,11 @@
+$results = `ls`;
+# runs command and returns its STDOUT as a string
+
+system("ls");
+# runs command and returns its exit status; its STDOUT gets output to our STDOUT
+
+echo `ls`;
+# the same, but with back quotes
+
+passthru("ls");
+# like system() but binary-safe

Task/Execute-a-system-command/Perl/execute-a-system-command.pl

@@ -0,0 +1,13 @@
+my @results = qx(ls);
+# runs command and returns its STDOUT as a string
+my @results = `ls`;
+# ditto, alternative syntax
+
+system "ls";
+# runs command and returns its exit status; its STDOUT gets output to our STDOUT
+
+print `ls`;
+#The same, but with back quotes
+
+exec "ls";
+# replace current process with another

Task/Execute-a-system-command/PicoLisp/execute-a-system-command.l

@@ -0,0 +1 @@
+(call "ls")

Task/Execute-a-system-command/Prolog/execute-a-system-command.pro

@@ -0,0 +1 @@
+shell('ls').

Task/Execute-a-system-command/Python/execute-a-system-command-1.py

@@ -0,0 +1,3 @@
+import os
+exit_code = os.system('ls')       # Just execute the command, return a success/fail code
+output    = os.popen('ls').read() # If you want to get the output data. Deprecated.

Task/Execute-a-system-command/Python/execute-a-system-command-2.py

@@ -0,0 +1,5 @@
+import subprocess
+# if the exit code was non-zero these commands raise a CalledProcessError
+exit_code = subprocess.check_call(['ls', '-l'])   # Python 2.5+
+assert exit_code == 0
+output    = subprocess.check_output(['ls', '-l']) # Python 2.7+

Task/Execute-a-system-command/Python/execute-a-system-command-3.py

@@ -0,0 +1,3 @@
+from subprocess import PIPE, Popen, STDOUT
+p = Popen('ls', stdout=PIPE, stderr=STDOUT)
+print p.communicate()[0]

Task/Execute-a-system-command/Python/execute-a-system-command-4.py

@@ -0,0 +1,4 @@
+import commands
+stat, out = commands.getstatusoutput('ls')
+if not stat:
+    print out

Task/Execute-a-system-command/R/execute-a-system-command.r

@@ -0,0 +1,2 @@
+system("ls")
+output=system("ls",intern=TRUE)

Task/Execute-a-system-command/REXX/execute-a-system-command.rexx

@@ -0,0 +1 @@
+"dir /a:d"

Task/Execute-a-system-command/Ruby/execute-a-system-command.rb

@@ -0,0 +1,18 @@
+string = `ls`
+# runs command and returns its STDOUT as a string
+string = %x{ls}
+# ditto, alternative syntax
+
+system "ls"
+# runs command and returns its exit status; its STDOUT gets output to our STDOUT
+
+print `ls`
+#The same, but with back quotes
+
+exec "ls"
+# replace current process with another
+
+# call system command and read output asynchronously
+io = IO.popen('ls')
+# ... later
+io.each {|line| puts line}

Task/Execute-a-system-command/Scala/execute-a-system-command.scala

@@ -0,0 +1,2 @@
+import scala.sys.process.Process
+Process("ls", Seq("-oa"))!

Task/Execute-a-system-command/Scheme/execute-a-system-command.ss

@@ -0,0 +1 @@
+(system "ls")

Task/Execute-a-system-command/Smalltalk/execute-a-system-command.st

@@ -0,0 +1 @@
+Smalltalk system: 'ls'.

Task/Execute-a-system-command/Tcl/execute-a-system-command-1.tcl

@@ -0,0 +1 @@
+puts [exec ls]

Task/Execute-a-system-command/Tcl/execute-a-system-command-2.tcl

@@ -0,0 +1 @@
+set io [open "|ls" r]

Task/Execute-a-system-command/Tcl/execute-a-system-command-3.tcl

@@ -0,0 +1 @@
+set nextline [gets $io]

Task/Execute-a-system-command/Tcl/execute-a-system-command-4.tcl

@@ -0,0 +1 @@
+set lsoutput [read $io]