Add tasks for all the new languages

Task/Execute-a-system-command/ERRE/execute-a-system-command-1.erre

@@ -0,0 +1 @@
+ SHELL("DIR/W")

Task/Execute-a-system-command/ERRE/execute-a-system-command-2.erre

@@ -0,0 +1,2 @@
+cmd$="DIR/W"
+SHELL(cmd$)

Task/Execute-a-system-command/FreeBASIC/execute-a-system-command.freebasic

@@ -0,0 +1,4 @@
+' FB 1.05.0 Win64
+
+Shell "dir"
+Sleep

Task/Execute-a-system-command/FunL/execute-a-system-command.funl

@@ -0,0 +1,3 @@
+import sys.execute
+
+execute( if $os.startsWith('Windows') then 'dir' else 'ls' )

Task/Execute-a-system-command/FutureBasic/execute-a-system-command.futurebasic

@@ -0,0 +1,14 @@
+include "ConsoleWindow"
+
+local fn DoUnixCommand( cmd as str255 )
+  dim as str255 s
+
+  open "Unix", 2, cmd
+  while ( not eof(2) )
+    line input #2, s
+    print s
+  wend
+  close 2
+end fn
+
+fn DoUnixCommand( "ls -A" )

Task/Execute-a-system-command/LFE/execute-a-system-command-1.lfe

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

Task/Execute-a-system-command/LFE/execute-a-system-command-2.lfe

@@ -0,0 +1 @@
+> (io:format (os:cmd "ls -alrt"))

Task/Execute-a-system-command/Lasso/execute-a-system-command.lasso

@@ -0,0 +1,8 @@
+local(
+	path	= file_forceroot,
+	ls	= sys_process('/bin/ls', (:'-l', #path)),
+	lswait	= #ls -> wait
+)
+'<pre>'
+#ls -> read
+'</pre>'

Task/Execute-a-system-command/Lingo/execute-a-system-command.lingo

@@ -0,0 +1,6 @@
+sx = xtra("Shell").new()
+if the platform contains "win" then
+  put sx.shell_cmd("dir")
+else
+  put sx.shell_cmd("ls")
+end if

Task/Execute-a-system-command/Nim/execute-a-system-command.nim

@@ -0,0 +1,4 @@
+import osproc
+
+let exitCode = execCmd "ls"
+let (output, exitCode2) = execCmdEx "ls"

Task/Execute-a-system-command/Oforth/execute-a-system-command.oforth

@@ -0,0 +1 @@
+System cmd("pause")

Task/Execute-a-system-command/Phix/execute-a-system-command.phix

@@ -0,0 +1,3 @@
+string cmd = {"dir","ls"}[platform()-1]
+system(cmd)
+integer res = system_exec("pause",4)

Task/Execute-a-system-command/Ring/execute-a-system-command.ring

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

Task/Execute-a-system-command/Sidef/execute-a-system-command.sidef

@@ -0,0 +1,10 @@
+# Pipe in read-only mode
+%p(ls).open_r.each { |line|
+    print line;
+};
+
+var str1 = `ls`;         # backtick: returns a string
+var str2 = %x(ls);       # ditto, alternative syntax
+
+Sys.system('ls');   # system: executes a command and prints the result
+Sys.exec('ls');     # replaces current process with another

Task/Execute-a-system-command/Ursa/execute-a-system-command.ursa

@@ -0,0 +1,11 @@
+decl string<> arg
+decl string<> output
+decl iodevice iod
+
+append "ls" arg
+set iod (ursa.util.process.start arg)
+set output (iod.readlines)
+
+for (decl int i) (< i (size output)) (inc i)
+        out output<i> endl console
+end for

Task/Execute-a-system-command/Wart/execute-a-system-command.wart

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