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

use crate::clvm::program::Program;
use crate::clvm::sexp::SExp;
use crate::clvm::sexp::{AtomBuf, IntoSExp};
use std::io::Error;
use std::io::ErrorKind;

pub fn concat(sexps: &[SExp]) -> Result<SExp, Error> {
    let mut buf = AtomBuf::new(vec![]);
    for sexp in sexps {
        match sexp {
            SExp::Atom(a) => {
                buf.data.extend(&a.data);
            }
            SExp::Pair(_) => {
                return Err(Error::new(
                    ErrorKind::InvalidInput,
                    "(internal error) concat expected atom, got pair",
                ));
            }
        }
    }
    Ok(SExp::Atom(buf))
}

pub fn curry(program: &Program, args: &[Program]) -> Program {
    let mut fixed_args = Program::to(1);
    for arg in args.iter().map(IntoSExp::to_sexp).rev() {
        fixed_args = Program::to(vec![
            4.to_sexp(),
            (1.to_sexp(), arg).to_sexp(),
            fixed_args.to_sexp(),
        ]);
    }
    Program::to(vec![
        Program::to(2),
        Program::to((1.to_sexp(), program.to_sexp())),
        fixed_args,
    ])
}