a demo of running command

Author: tiye

Cargo.lock

@@ -1,11 +1,11 @@
 [package]
-name = "calcit_dylib"
+name = "calcit_command"
 version = "0.0.1"
 authors = ["jiyinyiyong <[email protected]>"]
 edition = "2021"
 
 [lib]
-name = "calcit_std"
+name = "calcit_command"
 path = "src/lib.rs"
 crate-type = ["dylib"] # Creates dynamic lib
 

Cargo.toml

@@ -1,21 +1,21 @@
 
-{} (:package |lib)
-  :configs $ {} (:init-fn |lib.test/main!) (:reload-fn |lib.test/reload!) (:version |0.0.1)
+{} (:package |command)
+  :configs $ {} (:init-fn |command.test/main!) (:reload-fn |command.test/reload!) (:version |0.0.1)
     :modules $ []
   :entries $ {}
   :files $ {}
-    |lib.core $ %{} :FileEntry
+    |command.core $ %{} :FileEntry
       :defs $ {}
-        |path-exists? $ %{} :CodeEntry (:doc |)
+        |run-command $ %{} :CodeEntry (:doc |)
           :code $ quote
-            defn path-exists? (name)
-              &call-dylib-edn (get-dylib-path "\"/dylibs/libcalcit_std") "\"path_exists" name
+            defn run-command (name & args)
+              &call-dylib-edn (get-dylib-path "\"/dylibs/libcalcit_command") "\"run_command" name & args
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
-          ns lib.core $ :require
-            lib.$meta :refer $ calcit-dirname
-            lib.util :refer $ get-dylib-path
-    |lib.test $ %{} :FileEntry
+          ns command.core $ :require
+            command.$meta :refer $ calcit-dirname
+            command.util :refer $ get-dylib-path
+    |command.test $ %{} :FileEntry
       :defs $ {}
         |main! $ %{} :CodeEntry (:doc |)
           :code $ quote
@@ -26,13 +26,13 @@
         |run-tests $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn run-tests () (println "\"%%%% test for lib") (println calcit-filename calcit-dirname)
-              println (path-exists? "\"README.md") (path-exists? "\"build.js")
+              println $ run-command "\"ls"
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
-          ns lib.test $ :require
-            lib.core :refer $ path-exists?
-            lib.$meta :refer $ calcit-dirname calcit-filename
-    |lib.util $ %{} :FileEntry
+          ns command.test $ :require
+            command.core :refer $ run-command
+            command.$meta :refer $ calcit-dirname calcit-filename
+    |command.util $ %{} :FileEntry
       :defs $ {}
         |get-dylib-ext $ %{} :CodeEntry (:doc |)
           :code $ quote
@@ -47,5 +47,5 @@
               if (blank? p) "\"." p
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
-          ns lib.util $ :require
-            lib.$meta :refer $ calcit-dirname calcit-filename
+          ns command.util $ :require
+            command.$meta :refer $ calcit-dirname calcit-filename

calcit.cirru

@@ -1,5 +1,6 @@
 use cirru_edn::Edn;
 use std::path::Path;
+use std::process::Command;
 
 #[no_mangle]
 pub fn abi_version() -> String {
@@ -18,3 +19,36 @@ pub fn path_exists(args: Vec<Edn>) -> Result<Edn, String> {
     Err(format!("path-exists? expected 1 arg, got {:?}", args))
   }
 }
+
+
+/// simple command to run a command, without options
+#[no_mangle]
+pub fn run_command(args: Vec<Edn>) -> Result<Edn, String> {
+  let mut xs = vec![];
+  for arg in args.iter() {
+    if let Edn::Str(name) = arg {
+      xs.push((*name).to_owned());
+    } else {
+      return Err(format!("run-command expected 1 filename, got {:?}", args))
+    }
+  }
+  if xs.is_empty()  {
+    Err(format!("run-command expected at least 1 arg, got {:?}", args))
+  } else {
+    let name = xs.remove(0);
+    let mut command = Command::new(&(*name));
+    for arg in xs.iter() {
+      command.arg(&*(*arg).to_owned());
+    }
+
+    let output = command.output()
+      .expect("failed to execute process");
+    if output.status.success() {
+
+      Ok(Edn::str(String::from_utf8_lossy(&output.stdout).to_string()))
+    } else {
+      Err(format!("run-command failed: {}", String::from_utf8_lossy(&output.stderr)))
+    }
+  }
+}
+