#![allow(dead_code)]

use uniplate::{derive::Uniplate, Biplate};

#[derive(Eq, PartialEq, Clone, Debug, Uniplate)]
#[biplate(to=Expr)]
#[biplate(to=String,walk_into=[Expr])]
#[uniplate(walk_into=[Expr])]
enum Stmt {
    Assign(String, Expr),
    Sequence(Vec<Stmt>),
    If(Expr, Box<Stmt>, Box<Stmt>),
    While(Expr, Box<Stmt>),
}

#[derive(Eq, PartialEq, Clone, Debug, Uniplate)]
#[uniplate(walk_into=[Stmt])]
#[biplate(to=String)]
#[biplate(to=Stmt)]
enum Expr {
    Nothing,
    Add(Box<Expr>, Box<Expr>),
    Sub(Box<Expr>, Box<Expr>),
    Mul(Box<Expr>, Box<Expr>),
    Div(Box<Expr>, Box<Expr>),
    Val(i32),
    Var(String),
    Neg(Box<Expr>),
}

pub fn main() {
    use Expr::*;
    use Stmt::*;

    let stmt_1 = Assign("x".into(), Div(Box::new(Val(2)), Box::new(Var("y".into()))));

    let strings_in_stmt_1 = <Stmt as Biplate<String>>::universe_bi(&stmt_1);

    // Test multi-type traversals
    assert_eq!(strings_in_stmt_1.len(), 2);
    assert!(strings_in_stmt_1.contains(&"x".into()));
    assert!(strings_in_stmt_1.contains(&"y".into()));

    // same type property
    let children = <Stmt as Biplate<Stmt>>::children_bi(&stmt_1);
    assert_eq!(children.len(),1);
    assert_eq!(children[0],stmt_1);

    // test with_children_bi
    let children = <Stmt as Biplate<String>>::children_bi(&stmt_1);
    let reconstructed = <Stmt as Biplate<String>>::with_children_bi(&stmt_1,children);
    assert_eq!(reconstructed,stmt_1);
}