rust_multistack 0.33.0

Support for two-dimentional stacks for the Rust programming 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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

use crate::ts::{TS};
use rust_dynamic::value::Value;
use easy_error::{Error, bail};

pub fn stdlib_dup_in_current(ts: &mut TS, value1: Option<Value>, _value2: Option<Value>) -> Result<&mut TS, Error> {
    match value1 {
        Some(ndup) => {
            match ndup.cast_int() {
                Ok(n) => {
                    return ts.dup_in_current_stack(n);
                }
                Err(err) => {
                    bail!("Operation dup() returned error: {}", err);
                }
            }
        }
        None => {
            bail!("Number of operations is missed for a dup() operation");
        }
    }
}

pub fn stdlib_dup_many_in_current_inline(ts: &mut TS) -> Result<&mut TS, Error> {
    if ts.current_stack_len() < 1 {
        bail!("Stack is too shallow for inline dup_many()");
    }
    let n = ts.pull();
    stdlib_dup_in_current(ts, n, None)
}

pub fn stdlib_dup_one_in_current_inline(ts: &mut TS) -> Result<&mut TS, Error> {
    stdlib_dup_in_current(ts, Some(Value::from(1).unwrap()), None)
}

pub fn stdlib_dup_in_stack(ts: &mut TS, value1: Option<Value>, value2: Option<Value>) -> Result<&mut TS, Error> {
    match value1 {
        Some(name_val) => {
            match name_val.cast_string() {
                Ok(name) => {
                    match value2 {
                        Some(ndup) => {
                            match ndup.cast_int() {
                                Ok(n) => {
                                    return ts.dup_in_stack(n, name);
                                }
                                Err(err) => {
                                    bail!("Operation dup_in() returned error: {}", err);
                                }
                            }
                        }
                        None => {
                            bail!("Number of operations is missed for a dup_in() operation");
                        }
                    }
                }
                Err(err) => {
                    bail!("Operation dup_in() returned error: {}", err);
                }
            }
        }
        None => {
            bail!("Name of stack is missed for a dup_in() operation");
        }
    }
}

pub fn stdlib_dup_many_in_stack_inline(ts: &mut TS) -> Result<&mut TS, Error> {
    if ts.current_stack_len() < 2 {
        bail!("Stack is too shallow for inline dup_many()");
    }
    let name = ts.pull();
    let n = ts.pull();
    stdlib_dup_in_stack(ts, name, n)
}

pub fn stdlib_dup_one_in_stack_inline(ts: &mut TS) -> Result<&mut TS, Error> {
    if ts.current_stack_len() < 1 {
        bail!("Stack is too shallow for inline dup_many()");
    }
    let name = ts.pull();
    stdlib_dup_in_stack(ts, name, Some(Value::from(1).unwrap()))
}

pub fn init_stdlib(ts: &mut TS) {
    let _ = ts.register_function("dup".to_string(), stdlib_dup_in_current);
    let _ = ts.register_inline("dup_many".to_string(), stdlib_dup_many_in_current_inline);
    let _ = ts.register_inline("dup_one".to_string(), stdlib_dup_one_in_current_inline);
    let _ = ts.register_function("dup_in".to_string(), stdlib_dup_in_stack);
    let _ = ts.register_inline("dup_many_in".to_string(), stdlib_dup_many_in_stack_inline);
    let _ = ts.register_inline("dup_one_in".to_string(), stdlib_dup_one_in_stack_inline);
}