luaur-analysis 0.1.3

use crate::functions::flatten_type_pack::flatten_type_pack_id;
use crate::functions::parse_format_string::parse_format_string;
use crate::records::count_mismatch::CountMismatch;
use crate::records::type_arena::TypeArena;
use crate::records::type_checker::TypeChecker;
use crate::records::type_error::TypeError;
use crate::records::with_predicate::WithPredicate;
use crate::type_aliases::scope_ptr_type_infer::ScopePtr;
use crate::type_aliases::type_id::TypeId;
use crate::type_aliases::type_pack_id::TypePackId;
use alloc::vec::Vec;
use luaur_ast::records::ast_expr_call::AstExprCall;
use luaur_ast::records::ast_expr_constant_string::AstExprConstantString;
use luaur_ast::records::ast_expr_group::AstExprGroup;
use luaur_ast::records::ast_expr_index_name::AstExprIndexName;
use luaur_ast::records::location::Location;
use luaur_ast::rtti::ast_node_as;

pub fn magic_format_handle_old_solver(
    typechecker: &mut TypeChecker,
    scope: &ScopePtr,
    expr: &AstExprCall,
    with_predicate: WithPredicate<TypePackId>,
) -> Option<WithPredicate<TypePackId>> {
    let (param_pack, _predicates) = (with_predicate.r#type, with_predicate.predicates);

    let module = typechecker.current_module.as_ref()?;
    let arena = unsafe {
        &mut (*(std::sync::Arc::as_ptr(module) as *mut crate::records::module::Module))
            .internal_types
    };

    let mut fmt: *mut AstExprConstantString = core::ptr::null_mut();

    if expr.self_ {
        let index = unsafe {
            ast_node_as::<AstExprIndexName>(expr.func as *mut luaur_ast::records::ast_node::AstNode)
        };
        if !index.is_null() {
            let group = unsafe {
                ast_node_as::<AstExprGroup>(
                    (*index).expr as *mut luaur_ast::records::ast_node::AstNode,
                )
            };
            if !group.is_null() {
                fmt = unsafe {
                    ast_node_as::<AstExprConstantString>(
                        (*group).expr as *mut luaur_ast::records::ast_node::AstNode,
                    )
                };
            } else {
                fmt = unsafe {
                    ast_node_as::<AstExprConstantString>(
                        (*index).expr as *mut luaur_ast::records::ast_node::AstNode,
                    )
                };
            }
        }
    }

    if !expr.self_ && expr.args.size > 0 {
        fmt = unsafe {
            ast_node_as::<AstExprConstantString>(
                unsafe { *expr.args.data.add(0) } as *mut luaur_ast::records::ast_node::AstNode
            )
        };
    }

    if fmt.is_null() {
        return None;
    }

    let expected: Vec<TypeId> = unsafe {
        parse_format_string(
            core::ptr::NonNull::new_unchecked(typechecker.builtin_types),
            (*fmt).value.data,
            (*fmt).value.size,
        )
    };

    let (params, tail) = flatten_type_pack_id(param_pack);

    let param_offset: usize = 1;
    let data_offset: usize = if expr.self_ { 0 } else { 1 };

    for i in 0..expected.len() {
        if i + param_offset >= params.len() {
            break;
        }

        let arg_index = std::cmp::min(i + data_offset, expr.args.size as usize - 1);
        let location = unsafe { &(*(*expr.args.data.add(arg_index as usize))).base.location };

        typechecker.unify_type_id_type_id_scope_ptr_location(
            params[i + param_offset],
            expected[i],
            scope,
            location,
        );
    }

    let num_actual_params = params.len();
    let num_expected_params = expected.len() + 1;

    if num_expected_params != num_actual_params
        && (!tail.is_some() || num_expected_params < num_actual_params)
    {
        let error = TypeError::type_error_location_type_error_data(
            expr.base.base.location,
            crate::records::type_error_data::TypeErrorData::CountMismatch(CountMismatch {
                expected: num_expected_params,
                maximum: None,
                actual: num_actual_params,
                context: crate::records::count_mismatch::CountMismatchContext::Arg,
                is_variadic: false,
                function: String::new(),
            }),
        );
        typechecker.report_error_type_error(&error);
    }

    Some(WithPredicate::with_predicate_t(
        arena.add_type_pack_initializer_list_type_id(&[typechecker.string_type]),
    ))
}