A-M baby

Task/Execute-a-system-command/Factor/execute-a-system-command.factor

@@ -0,0 +1 @@
+"ls" run-process wait-for-process

Task/Execute-a-system-command/Fantom/execute-a-system-command.fantom

@@ -0,0 +1,8 @@
+class Main
+{
+  public static Void main ()
+  {
+    p := Process (["ls"])
+    p.run
+  }
+}

Task/Execute-a-system-command/GUISS/execute-a-system-command.guiss

@@ -0,0 +1 @@
+Start,Programs,Accessories,MSDOS Prompt,Type:dir[enter]

Task/Execute-a-system-command/HicEst/execute-a-system-command.hicest

@@ -0,0 +1,2 @@
+SYSTEM(CoMmand='pause')
+SYSTEM(CoMmand='dir & pause')

Task/Execute-a-system-command/IDL/execute-a-system-command-1.idl

@@ -0,0 +1 @@
+$ls

Task/Execute-a-system-command/IDL/execute-a-system-command-2.idl

@@ -0,0 +1 @@
+spawn,"ls",result

Task/Execute-a-system-command/IDL/execute-a-system-command-3.idl

@@ -0,0 +1 @@
+spawn,"ls",unit=unit

Task/Execute-a-system-command/Icon/execute-a-system-command-1.icon

@@ -0,0 +1,6 @@
+procedure main()
+
+write("Trying command ",cmd := if &features == "UNIX" then "ls" else "dir")
+system(cmd)
+
+end

Task/Execute-a-system-command/Icon/execute-a-system-command-2.icon

@@ -0,0 +1,2 @@
+  pid := system(command_string,&input,&output,&errout,"wait")
+  pid := system(command_string,&input,&output,&errout,"nowait")

Task/Execute-a-system-command/Io/execute-a-system-command.io

@@ -0,0 +1 @@
+System runCommand("ls") stdout println

Task/Execute-a-system-command/J/execute-a-system-command.j

@@ -0,0 +1,15 @@
+load'task'
+
+NB.  Execute a command and wait for it to complete
+shell 'dir'
+
+NB.  Execute a command but don't wait for it to complete
+fork 'notepad'
+
+NB.  Execute a command and capture its stdout
+stdout   =:  shell 'dir'
+
+NB.  Execute a command, provide it with stdin,
+NB.  and capture its stdout
+stdin    =:  'blahblahblah'
+stdout   =:  stdin spawn 'grep blah'

Task/Execute-a-system-command/Joy/execute-a-system-command.joy

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

Task/Execute-a-system-command/K/execute-a-system-command-1.k

@@ -0,0 +1 @@
+    \ls

Task/Execute-a-system-command/K/execute-a-system-command-2.k

@@ -0,0 +1 @@
+   r: 4:"ls"

Task/Execute-a-system-command/Lang5/execute-a-system-command.lang5

@@ -0,0 +1 @@
+'ls system

Task/Execute-a-system-command/Liberty-BASIC/execute-a-system-command.liberty

@@ -0,0 +1,2 @@
+ drive1$ = left$(Drives$,1)
+run "cmd.exe /";drive1$;" dir & pause"

Task/Execute-a-system-command/Locomotive-Basic/execute-a-system-command.bas

@@ -0,0 +1 @@
+LIST

Task/Execute-a-system-command/Logo/execute-a-system-command.logo

@@ -0,0 +1 @@
+print first butfirst shell [ls -a]   ; ..

Task/Execute-a-system-command/M4/execute-a-system-command.m4

@@ -0,0 +1 @@
+syscmd(ifdef(`__windows__',`dir',`ls'))

Task/Execute-a-system-command/MAXScript/execute-a-system-command.max

@@ -0,0 +1 @@
+dosCommand "pause"

Task/Execute-a-system-command/MUMPS/execute-a-system-command-1.mumps

@@ -0,0 +1 @@
+Set X=$ZF(-1,"DIR")

Task/Execute-a-system-command/MUMPS/execute-a-system-command-2.mumps

@@ -0,0 +1 @@
+ZSY "DIR"

Task/Execute-a-system-command/MUMPS/execute-a-system-command-3.mumps

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

Task/Execute-a-system-command/Make/execute-a-system-command-1.make

@@ -0,0 +1,2 @@
+contents=$(shell cat foo)
+curdir=`pwd`

Task/Execute-a-system-command/Make/execute-a-system-command-2.make

@@ -0,0 +1,2 @@
+mytarget:
+   cat foo | grep mytext

Task/Execute-a-system-command/Mathematica/execute-a-system-command.mathematica

@@ -0,0 +1 @@
+Run["ls"]

Task/Execute-a-system-command/Maxima/execute-a-system-command.maxima

@@ -0,0 +1 @@
+system("dir > list.txt")$

Task/Execute-a-system-command/Mercury/execute-a-system-command.mercury

@@ -0,0 +1,10 @@
+:- module execute_sys_cmd.
+:- interface.
+:- import_module io.
+
+:- pred main(io::di, io::uo) is det.
+
+:- implementation.
+
+main(!IO) :-
+   io.call_system("ls", _Result, !IO).

Task/Execute-a-system-command/Modula-2/execute-a-system-command.mod2

@@ -0,0 +1,34 @@
+MODULE tri;
+
+FROM   SYSTEM           IMPORT  ADR;
+FROM   SysLib           IMPORT  system;
+
+IMPORT TextIO, InOut, ASCII;
+
+VAR   fd                : TextIO.File;
+      ch                : CHAR;
+
+PROCEDURE SystemCommand (VAR  command : ARRAY OF CHAR) : BOOLEAN;
+
+BEGIN
+   IF  system (ADR (command) ) = 0  THEN
+      RETURN TRUE
+   ELSE
+      RETURN FALSE
+   END
+END SystemCommand;
+
+BEGIN
+   IF  SystemCommand ("ls -1 tri.mod | ") = TRUE  THEN
+      InOut.WriteString ("No error reported.")
+   ELSE
+      InOut.WriteString ("Error reported!")
+   END;
+   LOOP
+      InOut.Read (ch);
+      InOut.Write (ch);
+      IF  ch < ' '  THEN  EXIT  END
+   END;
+   InOut.WriteLn;
+   InOut.WriteBf
+END tri.

Task/Execute-a-system-command/Modula-3/execute-a-system-command.mod3

@@ -0,0 +1,10 @@
+UNSAFE MODULE Exec EXPORTS Main;
+
+IMPORT Unix, M3toC;
+
+VAR command := M3toC.CopyTtoS("ls");
+
+BEGIN
+  EVAL Unix.system(command);
+  M3toC.FreeCopiedS(command);
+END Exec.