calcit 0.12.30

Interpreter and js codegen for Calcit
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

use std::fs;
use std::path::Path;

use cirru_parser::Cirru;

pub(super) fn write_file_if_changed(filename: &Path, content: &str) -> Result<bool, String> {
  if filename.exists() && fs::read_to_string(filename).map_err(|e| e.to_string())? == content {
    return Ok(false);
  }
  let _ = fs::write(filename, content);
  Ok(true)
}

pub(super) fn is_js_unavailable_procs(name: &str) -> bool {
  matches!(
    name,
    "&reset-gensym-index!" | "gensym" | "macroexpand" | "macroexpand-all" | "to-cirru-edn" | "extract-cirru-edn"
  )
}

pub(super) fn cirru_to_js(code: &Cirru) -> Result<String, String> {
  match code {
    Cirru::List(xs) => {
      let mut chunk = "[".to_owned();
      for x in xs {
        chunk.push_str(&cirru_to_js(x)?);
        chunk.push(',');
      }
      if chunk.ends_with(',') {
        chunk.pop();
      }
      chunk.push(']');
      Ok(chunk)
    }
    Cirru::Leaf(s) => Ok(format!("\"{}\"", s.escape_default())),
  }
}

#[cfg(test)]
mod tests {
  use super::*;

  #[test]
  fn unavailable_proc_list_contains_known_entries() {
    assert!(is_js_unavailable_procs("macroexpand"));
    assert!(!is_js_unavailable_procs("println"));
  }

  #[test]
  fn cirru_list_to_json_like_array() {
    let code = Cirru::List(vec![Cirru::Leaf("a".into()), Cirru::Leaf("b".into())]);
    assert_eq!(cirru_to_js(&code).expect("cirru js"), "[\"a\",\"b\"]");
  }
}