add append-file function; tag 0.0.20

Cargo.toml

@@ -1,6 +1,6 @@
 [package]
 name = "calcit_std"
-version = "0.0.19"
+version = "0.0.20"
 authors = ["jiyinyiyong <[email protected]>"]
 edition = "2021"
 

README.md

@@ -16,6 +16,7 @@ Providing:
 ```cirru
 calcit.std.fs/read-file! a
 calcit.std.fs/write-file! a b
+calcit.std.fs/append-file! a b
 calcit.std.fs/check-write-file! a b
 calcit.std.fs/path-exists? a
 calcit.std.fs/read-dir! a

compact.cirru

@@ -1,6 +1,6 @@
 
 {} (:package |calcit.std)
-  :configs $ {} (:init-fn |calcit.std.test/main!) (:reload-fn |calcit.std.test/reload!) (:version |0.0.19)
+  :configs $ {} (:init-fn |calcit.std.test/main!) (:reload-fn |calcit.std.test/reload!) (:version |0.0.20)
     :modules $ []
   :entries $ {}
   :files $ {}
@@ -50,6 +50,9 @@
           calcit.std.util :refer $ get-dylib-path
     |calcit.std.fs $ {}
       :defs $ {}
+        |append-file! $ quote
+          defn append-file! (name content)
+            &call-dylib-edn (get-dylib-path "\"/dylibs/libcalcit_std") "\"append_file" name content
         |check-write-file! $ quote
           defn check-write-file! (name content)
             &call-dylib-edn (get-dylib-path "\"/dylibs/libcalcit_std") "\"check_write_file" name content
@@ -238,10 +241,11 @@
             rename! "\"target/dir1" "\"target/dir4"
             create-dir-all! "\"target/dir2/dir3"
             check-write-file! "\"target/dir8/dir9/file.text" "\"TODO"
+            append-file! "\"target/dir8/dir9/file.text" $ str &newline "\"NEWLINE TODO"
       :ns $ quote
         ns calcit.std.test.fs $ :require
           calcit.std.$meta :refer $ calcit-filename calcit-dirname
-          calcit.std.fs :refer $ read-file! write-file! path-exists? read-dir! create-dir! create-dir-all! rename! check-write-file! walk-dir! glob!
+          calcit.std.fs :refer $ read-file! append-file! write-file! path-exists? read-dir! create-dir! create-dir-all! rename! check-write-file! walk-dir! glob!
           calcit.std.process :refer $ execute!
     |calcit.std.test.json $ {}
       :defs $ {}

src/fs.rs

@@ -41,6 +41,29 @@ pub fn write_file(args: Vec<Edn>) -> Result<Edn, String> {
   }
 }
 
+#[no_mangle]
+pub fn append_file(args: Vec<Edn>) -> Result<Edn, String> {
+  use std::fs::OpenOptions;
+  use std::io::prelude::*;
+
+  if args.len() == 2 {
+    match (&args[0], &args[1]) {
+      (Edn::Str(name), Edn::Str(content)) => {
+        let mut file = OpenOptions::new().write(true).append(true).open(&**name).unwrap();
+
+        if let Err(e) = writeln!(file, "{}", content) {
+          Err(format!("Failed to append to file {name:?}: {e}"))
+        } else {
+          Ok(Edn::Nil)
+        }
+      }
+      (_, _) => Err(format!("append-file expected 2 strings, got {args:?}")),
+    }
+  } else {
+    Err(format!("append-file expected 2 args, got {args:?}"))
+  }
+}
+
 #[no_mangle]
 pub fn path_exists(args: Vec<Edn>) -> Result<Edn, String> {
   if args.len() == 1 {

src/lib.rs

@@ -11,7 +11,7 @@ mod random;
 mod time;
 
 pub use date::{add_duration, format_time, now_bang, parse_time};
-pub use fs::{glob_call, path_exists, read_dir, read_file, walk_dir, write_file};
+pub use fs::{append_file, glob_call, path_exists, read_dir, read_file, walk_dir, write_file};
 pub use json::{parse_json, stringify_json};
 pub use path::join_path;
 pub use process::execute_command;