Added test scripts

Author: hsamuelson

interpreter.R

@@ -18,7 +18,8 @@ loadScrit <- function(){
   }
   return(fileName)
 }
-
+if (!require("parallel")) install.packages("parallel") # The new parallel version requires library parallels
+library(parallel)
 script <- suppressWarnings(readLines("mainScript.interOp")) #This triggers a warning but not an concern
 # From loading from a file have to conver to table matrix
 script <- as.matrix(script)

scripts/bat.interOp

@@ -0,0 +1,7 @@
+testBat
+**bat
+echo hi
+echo hi again
+
+**/
+** testBat

scripts/dart.interOp

@@ -0,0 +1,7 @@
+testDart
+**dart
+void main() {
+  print('Hello, World! from dart');
+}
+**/
+** testDart

scripts/elixir.interOp

@@ -0,0 +1,6 @@
+testElixir
+**Elixir
+  IO.puts "Hello world from Elixir"
+**/
+
+** testElixir

scripts/go.interOp

@@ -0,0 +1,12 @@
+goTest
+**go
+  package main
+  import "os"
+  import "fmt"
+  func main() {
+      arg := os.Args[1]
+      fmt.Println(arg)
+  }
+**/
+
+** goTest 4

scripts/java.interOp

@@ -0,0 +1,13 @@
+HelloWorld
+**java
+public class HelloWorld {
+
+    public static void main(String[] args) {
+        // Prints "Hello, World" to the terminal window.
+        System.out.println("Hello, World from java");
+    }
+
+}
+**/
+
+** HelloWorld

scripts/js.interOp

@@ -0,0 +1,6 @@
+jsTest
+**js
+var x = 2;
+console.log(x);
+**/
+** jsTest

scripts/lua.interOp

@@ -0,0 +1,17 @@
+luaTest
+**lua
+function fact (n)
+    if n == 0 then
+      return 1
+    else
+      return n * fact(n-1)
+    end
+  end
+  
+--print("enter a number:")
+  --a = io.read("*number")
+  print(fact(arg[1]))
+--If you are using Lua 
+
+**/
+** luaTest 7

scripts/perl.interOp

@@ -0,0 +1,7 @@
+testPerl
+**perl
+print "Hello, world!\n";
+print qq=Did you say "Hello?"\n=;
+print "$ARGV[0]\n";
+**/
+** testPerl 3

scripts/python.interOp

@@ -0,0 +1,8 @@
+pythonTest
+**python
+
+x = 3
+print(x)
+**/
+
+** pythonTest