Rust Compatibility!

Author: hsamuelson

README.md

@@ -17,8 +17,8 @@ lua:
 https://github.com/rjpcomputing/luaforwindows/releases <br>
 GO:
 https://golang.org/doc/install?download=go1.10.3.windows-amd64.msi <br>
-Elixir: https://repo.hex.pm/elixir-websetup.exe
-
+Elixir: https://repo.hex.pm/elixir-websetup.exe <br>
+Rust : https://win.rustup.rs/ <br>
 ## Language Support
 Other Versions of the langauges work, these are just the tested versions
 <center>
@@ -32,6 +32,7 @@ Other Versions of the langauges work, these are just the tested versions
 | Go |1.10.3| X | X |  |  
 | Elixir |1.6.6| X | |    |
 | Batch |win10| X |X |    |
+| Rust |1.27.0| X | |    |
 </center>
 
 

interpreter.R

@@ -36,7 +36,7 @@ findBounds <- function(script, startingVal = 1){
   upperBound <- 0
   moduleName <- 0
   for(i in startingVal:length(script[,1])){
-    if(script[i,] == "**R" || script[i,] == "**python" || script[i,] == "**js" || script[i,] == "**lua" || script[i,]== "**go" || script[i,] == "**Elixir" || script[i,] == "**bat"){
+    if(script[i,] == "**R" || script[i,] == "**python" || script[i,] == "**js" || script[i,] == "**lua" || script[i,]== "**go" || script[i,] == "**Elixir" || script[i,] == "**bat" || script[i,] == "**rust"){
       lowerBound <- i
       moduleName <- script[i-1,]
       for(j in i:length(script[,1])){

logos.png

@@ -73,6 +73,17 @@ echo hi again
 
 **/
 
+testRust
+**rust
+fn main() {
+    // The statements here will be executed when the compiled binary is called
+
+    // Print text to the console
+    println!("Hello World! from rust");
+}
+**/
+
+
 ** name1 
 ** module2
 ** rtester 4
@@ -82,6 +93,8 @@ module2 **<< rtester
 ** goMod 4
 ** testElixir
 ** testBat
+** testRust
+
 
 testname
 **js

mainScript.txt

@@ -56,14 +56,25 @@ processFunction <- function(indexIn, argument = ""){
     writeLines(as.character(w), con = "runner.bat", sep = "\n", useBytes = FALSE)
     result <- shell(paste("runner.bat", argument), intern = T)
     file.remove("runner.bat")
-    try( 
-      for(i in 1:length(result)){
+    try(
+      for(i in 1:length(result)){  #This is to remove the spacing & console prompt output
         if(result[i] == ""){
           result = result[-(i:(i+1))]
         }
       },
       silent=TRUE)
     return(result)
   }
+  if(script[titleRows[indexIn],] == "**rust"){
+    file.create("runner.rs")
+    writeLines(as.character(w), con = "runner.rs", sep = "\n", useBytes = FALSE)
+    shell("rustc runner.rs", intern = T)
+    result <- shell(paste("runner.exe", argument), intern = T)
+    
+    file.remove("runner.exe") # .rs files compile into .exe and .pdb which tha can be run
+    file.remove("runner.pdb")
+    file.remove("runner.rs")
+    return(result)
+  }
 }