calisp 0.2.2

MAL clone, lisp language
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
55
56
57
58
59
60

use crate::types::CalispVal::{Func, Nil, Str};
use crate::types::{error, CalispArgs, CalispRet, CalispVal};

use std::collections::HashMap;
use std::sync::{Arc, RwLock};

lazy_static! {
  static ref VARIABLES: Arc<RwLock<HashMap<String, CalispVal>>> =
    Arc::new(RwLock::new(HashMap::default()));
  static ref FUNCTIONS: Arc<RwLock<HashMap<String, CalispVal>>> =
    Arc::new(RwLock::new(HashMap::default()));
}

pub struct CalispInterop {}

impl CalispInterop {
  /// Register rust function that can be called from within Calisp
  pub fn register_fn(f_name: String, f: fn(CalispArgs) -> CalispRet, docstring: String) {
    FUNCTIONS
      .write()
      .unwrap()
      .insert(f_name, Func(f, Arc::new(RwLock::new(Nil)), docstring));
  }

  pub(crate) fn eval_fn(a: CalispArgs) -> CalispRet {
    match &a[0] {
      Str(f_name) => match FUNCTIONS.read().unwrap().get(&f_name.clone()) {
        Some(function) => Ok(function.clone()),
        _ => error("rust-fn not found"),
      },
      _ => error("rust-fn name not string"),
    }
  }

  /// Register rust variable that can be set from within Calisp
  pub fn register_var(v_name: String, v: CalispVal) {
    VARIABLES.write().unwrap().insert(v_name, v);
  }

  pub(crate) fn set_var(a: CalispArgs) -> CalispRet {
    match &a[0] {
        Str(v_name) => match VARIABLES.write().unwrap().insert(v_name.to_string(), a[1].clone()) {
            None => error("rust-var not found"),
            Some(var) => Ok(var)
        },
        _ => error("rust-var name not string"),
    }
  }

    pub (crate) fn get_var(a: CalispArgs) -> CalispRet {
         match &a[0] {
             Str(v_name) => match VARIABLES.read().unwrap().get(&v_name.clone()) {
                 Some(variable) => Ok(variable.clone()),
                 _ => error("rust-var not found"),
             },
             _ => error("rust-var name not string"),
         }
    }    
}