mumu-string 0.1.0

use mumu::parser::types::Value;
use crate::common::{is_placeholder, make_two_arg_partial};

pub fn string_repeat_bridge(_interp: &mut mumu::parser::interpreter::Interpreter, args: Vec<Value>) -> Result<Value, String> {
    match args.len() {
        0 => Ok(make_two_arg_partial(string_repeat_finalize, None, None)),
        1 => Ok(make_two_arg_partial(string_repeat_finalize, Some(args[0].clone()), None)),
        2 => {
            let s = &args[0];
            let n = &args[1];
            let s_pl = is_placeholder(s);
            let n_pl = is_placeholder(n);
            if !s_pl && !n_pl {
                string_repeat_finalize(vec![s.clone(), n.clone()])
            } else {
                Ok(make_two_arg_partial(
                    string_repeat_finalize,
                    if s_pl { None } else { Some(s.clone()) },
                    if n_pl { None } else { Some(n.clone()) },
                ))
            }
        }
        n => Err(format!("string:repeat => expected up to 2 arguments, got {}", n)),
    }
}

fn string_repeat_finalize(mut args: Vec<Value>) -> Result<Value, String> {
    if args.len() != 2 {
        return Err(format!("string:repeat => finalize => expected 2 real args, got {}", args.len()));
    }
    let s_val = args.remove(0);
    let n_val = args.remove(0);
    let s = match s_val {
        Value::SingleString(s) => s,
        Value::StrArray(ss) if ss.len() == 1 => ss[0].clone(),
        other => return Err(format!("string:repeat => first arg must be string, got {:?}", other)),
    };
    let n = match n_val {
        Value::Int(i) => i,
        other => return Err(format!("string:repeat => second arg must be int, got {:?}", other)),
    };
    if n < 0 || n > 8192 {
        return Err("string:repeat => repeat count must be in 0..8192".to_string());
    }
    Ok(Value::SingleString(s.repeat(n as usize)))
}