hakorune/src/backend/llvm/compiler/codegen/instructions/maps.rs

use std::collections::HashMap;

use inkwell::{values::BasicValueEnum as BVE, AddressSpace};

use crate::backend::llvm::context::CodegenContext;
use crate::mir::{function::MirFunction, ValueId};

/// Handle MapBox fast-paths (core-first). Returns true if handled.
pub(super) fn try_handle_map_method<'ctx>(
    codegen: &CodegenContext<'ctx>,
    func: &MirFunction,
    vmap: &mut HashMap<ValueId, inkwell::values::BasicValueEnum<'ctx>>,
    dst: &Option<ValueId>,
    box_val: &ValueId,
    method: &str,
    args: &[ValueId],
    recv_h: inkwell::values::IntValue<'ctx>,
) -> Result<bool, String> {
    // Only when receiver is annotated as MapBox
    let is_map_annot = matches!(func.metadata.value_types.get(box_val), Some(crate::mir::MirType::Box(b)) if b == "MapBox");
    if !is_map_annot {
        return Ok(false);
    }
    let i64t = codegen.context.i64_type();
    match method {
        "size" => {
            if std::env::var("NYASH_CLI_VERBOSE").ok().as_deref() == Some("1") {
                eprintln!("[LLVM] lower Map.size (core)");
            }
            if !args.is_empty() {
                return Err("MapBox.size expects 0 arg".to_string());
            }
            let fnty = i64t.fn_type(&[i64t.into()], false);
            let callee = codegen
                .module
                .get_function("nyash.map.size_h")
                .unwrap_or_else(|| codegen.module.add_function("nyash.map.size_h", fnty, None));
            let call = codegen
                .builder
                .build_call(callee, &[recv_h.into()], "msize")
                .map_err(|e| e.to_string())?;
            if let Some(d) = dst {
                let rv = call
                    .try_as_basic_value()
                    .left()
                    .ok_or("map.size_h returned void".to_string())?;
                vmap.insert(*d, rv);
            }
            Ok(true)
        }
        "has" => {
            if std::env::var("NYASH_CLI_VERBOSE").ok().as_deref() == Some("1") {
                eprintln!("[LLVM] lower Map.has (core)");
            }
            if args.len() != 1 {
                return Err("MapBox.has expects 1 arg".to_string());
            }
            let key_v = *vmap.get(&args[0]).ok_or("map.has key missing")?;
            let key_i = match key_v {
                BVE::IntValue(iv) => iv,
                BVE::PointerValue(pv) => codegen
                    .builder
                    .build_ptr_to_int(pv, i64t, "key_p2i")
                    .map_err(|e| e.to_string())?,
                _ => return Err("map.has key must be int or handle ptr".to_string()),
            };
            let fnty = i64t.fn_type(&[i64t.into(), i64t.into()], false);
            let callee = codegen
                .module
                .get_function("nyash.map.has_h")
                .unwrap_or_else(|| codegen.module.add_function("nyash.map.has_h", fnty, None));
            let call = codegen
                .builder
                .build_call(callee, &[recv_h.into(), key_i.into()], "mhas")
                .map_err(|e| e.to_string())?;
            if let Some(d) = dst {
                let rv = call
                    .try_as_basic_value()
                    .left()
                    .ok_or("map.has_h returned void".to_string())?;
                vmap.insert(*d, rv);
            }
            Ok(true)
        }
        "get" => {
            if std::env::var("NYASH_CLI_VERBOSE").ok().as_deref() == Some("1") {
                eprintln!("[LLVM] lower Map.get (core)");
            }
            if args.len() != 1 {
                return Err("MapBox.get expects 1 arg".to_string());
            }
            let key_v = *vmap.get(&args[0]).ok_or("map.get key missing")?;
            let call = match key_v {
                BVE::IntValue(iv) => {
                    let fnty = i64t.fn_type(&[i64t.into(), i64t.into()], false);
                    let callee = codegen
                        .module
                        .get_function("nyash.map.get_h")
                        .unwrap_or_else(|| codegen.module.add_function("nyash.map.get_h", fnty, None));
                    codegen
                        .builder
                        .build_call(callee, &[recv_h.into(), iv.into()], "mget")
                        .map_err(|e| e.to_string())?
                }
                BVE::PointerValue(pv) => {
                    // key: i8* -> i64 handle via from_i8_string (string key)
                    let fnty_conv = i64t
                        .fn_type(&[codegen.context.ptr_type(AddressSpace::from(0)).into()], false);
                    let conv = codegen
                        .module
                        .get_function("nyash.box.from_i8_string")
                        .unwrap_or_else(|| codegen.module.add_function("nyash.box.from_i8_string", fnty_conv, None));
                    let kcall = codegen
                        .builder
                        .build_call(conv, &[pv.into()], "key_i8_to_handle")
                        .map_err(|e| e.to_string())?;
                    let kh = kcall
                        .try_as_basic_value()
                        .left()
                        .ok_or("from_i8_string returned void".to_string())?
                        .into_int_value();
                    let fnty = i64t.fn_type(&[i64t.into(), i64t.into()], false);
                    let callee = codegen
                        .module
                        .get_function("nyash.map.get_hh")
                        .unwrap_or_else(|| codegen.module.add_function("nyash.map.get_hh", fnty, None));
                    codegen
                        .builder
                        .build_call(callee, &[recv_h.into(), kh.into()], "mget_hh")
                        .map_err(|e| e.to_string())?
                }
                _ => return Err("map.get key must be int or pointer".to_string()),
            };
            if let Some(d) = dst {
                let rv = call
                    .try_as_basic_value()
                    .left()
                    .ok_or("map.get returned void".to_string())?;
                vmap.insert(*d, rv);
            }
            Ok(true)
        }
        "set" => {
            if std::env::var("NYASH_CLI_VERBOSE").ok().as_deref() == Some("1") {
                eprintln!("[LLVM] lower Map.set (core)");
            }
            if args.len() != 2 {
                return Err("MapBox.set expects 2 args (key, value)".to_string());
            }
            let key_v = *vmap.get(&args[0]).ok_or("map.set key missing")?;
            let val_v = *vmap.get(&args[1]).ok_or("map.set value missing")?;
            let key_i = match key_v {
                BVE::IntValue(iv) => iv,
                BVE::PointerValue(pv) => codegen
                    .builder
                    .build_ptr_to_int(pv, i64t, "key_p2i")
                    .map_err(|e| e.to_string())?,
                _ => return Err("map.set key must be int or handle ptr".to_string()),
            };
            let val_i = match val_v {
                BVE::IntValue(iv) => iv,
                BVE::PointerValue(pv) => codegen
                    .builder
                    .build_ptr_to_int(pv, i64t, "val_p2i")
                    .map_err(|e| e.to_string())?,
                _ => return Err("map.set value must be int or handle ptr".to_string()),
            };
            let fnty = i64t.fn_type(&[i64t.into(), i64t.into(), i64t.into()], false);
            let callee = codegen
                .module
                .get_function("nyash.map.set_h")
                .unwrap_or_else(|| codegen.module.add_function("nyash.map.set_h", fnty, None));
            let _ = codegen
                .builder
                .build_call(callee, &[recv_h.into(), key_i.into(), val_i.into()], "mset")
                .map_err(|e| e.to_string())?;
            Ok(true)
        }
        _ => Ok(false),
    }
}