dg_xch_core 2.1.1

Core library containing type/error definitions, CLVM tools, Consensus and Pool definitions
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

use crate::clvm::dialect::Dialect;
use crate::clvm::more_ops::BOOL_BASE_COST;
use crate::clvm::sexp::SExp;
use crate::constants::NULL_SEXP;
use log::info;
use std::io::Error;

pub fn op_print<D: Dialect>(
    args: &SExp,
    _max_cost: u64,
    _dialect: &D,
) -> Result<(u64, SExp), Error> {
    match args.clone().proper_list(true) {
        None => Ok((BOOL_BASE_COST, NULL_SEXP.clone())),
        Some(mut args) => {
            args.reverse();
            if args.is_empty() {
                Ok((BOOL_BASE_COST, NULL_SEXP.clone()))
            } else {
                let mut buffer = String::new();
                match args.first() {
                    Some(arg) => {
                        buffer.extend(format!("{}:", arg).chars());
                        let mut cost = BOOL_BASE_COST * 2;
                        let iter = args.iter().skip(1);
                        for arg in iter {
                            cost += BOOL_BASE_COST;
                            buffer.extend(format!(" {},", arg).chars());
                        }
                        buffer.remove(buffer.len() - 1);
                        info!("CLVM DEBUG: {}", buffer);
                        Ok((cost, NULL_SEXP.clone()))
                    }
                    None => Ok((BOOL_BASE_COST, NULL_SEXP.clone())),
                }
            }
        }
    }
}

#[test]
fn test_print_ops() {
    use crate::clvm::assemble::assemble_text;
    use crate::clvm::program::Program;
    use crate::clvm::utils::INFINITE_COST;
    use dg_logger::DruidGardenLogger;
    use log::Level;
    use std::io::ErrorKind;
    // (mod (num)
    //   (defun print (l x) (i (all "$print$" l x) x x))
    //
    //   (defun inc (N)
    //     (+ N 1)
    //   )
    //
    //   (print (list "Running" (q . (+ num 1)) " With " num) (inc num))
    // )
    let _logger = DruidGardenLogger::build()
        .use_colors(true)
        .current_level(Level::Info)
        .init()
        .map_err(|e| Error::new(ErrorKind::Other, format!("{e:?}")))
        .unwrap();
    let test_program = r#"(a (q 2 4 (c 2 (c 5 ()))) (c (q (a 6 (c 2 (c (c (q . "Running") (c (q 16 78 1) (c (q . " With ") (c 5 ())))) (c (+ 5 (q . 1)) ())))) 3 (all (q . "$print$") 5 11) 11 11) 1))"#;
    let assembled = assemble_text(test_program).unwrap();
    let results = assembled
        .to_program()
        .run(INFINITE_COST, 0, &Program::to(vec![50]))
        .unwrap();
    info!("Output {:?}", results);
}