luars 0.17.0

/*----------------------------------------------------------------------
  String Concatenation - Lua 5.5 Style (luaV_concat)

  Direct port of lua-5.5.0/src/lvm.c luaV_concat.

  Concatenates 'total' values on the stack from top-total to top-1.
  Numbers are converted to strings; __concat metamethod is tried
  for non-string/non-number values.
----------------------------------------------------------------------*/

use crate::{
    gc::StringInterner,
    lua_value::LuaValue,
    lua_vm::{
        LuaResult, LuaState,
        execute::{
            helper::{self, get_binop_metamethod},
            metamethod::{TmKind, call_tm_res},
        },
    },
    stdlib::{basic::lua_float_to_string, debug::typeerror},
};

#[inline(always)]
fn utf8_piece_len(v: &LuaValue) -> Option<usize> {
    if let Some(s) = v.as_str() {
        Some(s.len())
    } else if v.ttisinteger() {
        let mut buf = itoa::Buffer::new();
        Some(buf.format(v.ivalue()).len())
    } else if v.ttisfloat() {
        Some(lua_float_to_string(v.fltvalue()).len())
    } else {
        None
    }
}

fn append_utf8_piece_to_string(output: &mut String, v: &LuaValue) {
    if let Some(s) = v.as_str() {
        output.push_str(s);
    } else if v.ttisinteger() {
        let mut buf = itoa::Buffer::new();
        output.push_str(buf.format(v.ivalue()));
    } else {
        output.push_str(&lua_float_to_string(v.fltvalue()));
    }
}

fn append_utf8_piece_to_bytes(output: &mut [u8], offset: &mut usize, v: &LuaValue) {
    if let Some(s) = v.as_str() {
        let end = *offset + s.len();
        output[*offset..end].copy_from_slice(s.as_bytes());
        *offset = end;
    } else if v.ttisinteger() {
        let mut buf = itoa::Buffer::new();
        let s = buf.format(v.ivalue());
        let end = *offset + s.len();
        output[*offset..end].copy_from_slice(s.as_bytes());
        *offset = end;
    } else {
        let s = lua_float_to_string(v.fltvalue());
        let end = *offset + s.len();
        output[*offset..end].copy_from_slice(s.as_bytes());
        *offset = end;
    }
}

pub fn try_concat_pair_utf8(
    lua_state: &mut LuaState,
    left: LuaValue,
    right: LuaValue,
) -> LuaResult<Option<LuaValue>> {
    let Some(left_len) = utf8_piece_len(&left) else {
        return Ok(None);
    };
    let Some(right_len) = utf8_piece_len(&right) else {
        return Ok(None);
    };

    let total_len = left_len + right_len;
    let result = if total_len <= StringInterner::SHORT_STRING_LIMIT {
        let mut bytes = [0u8; StringInterner::SHORT_STRING_LIMIT];
        let mut offset = 0usize;
        append_utf8_piece_to_bytes(&mut bytes, &mut offset, &left);
        append_utf8_piece_to_bytes(&mut bytes, &mut offset, &right);
        let s = unsafe { std::str::from_utf8_unchecked(&bytes[..total_len]) };
        lua_state.create_string(s)?
    } else {
        let mut combined = String::with_capacity(total_len);
        append_utf8_piece_to_string(&mut combined, &left);
        append_utf8_piece_to_string(&mut combined, &right);
        lua_state.create_string_owned(combined)?
    };

    Ok(Some(result))
}

fn concat_utf8_run(lua_state: &mut LuaState, top: usize, total: usize) -> LuaResult<Option<usize>> {
    let stack = lua_state.stack();
    let mut total_len = 0usize;
    let mut nn = 0usize;

    while nn < total {
        let value = unsafe { stack.get_unchecked(top - nn - 1) };
        let Some(len) = utf8_piece_len(value) else {
            break;
        };
        if len >= usize::MAX - total_len {
            return Err(lua_state.error("string length overflow".to_string()));
        }
        total_len += len;
        nn += 1;
    }

    if nn < 2 {
        return Ok(None);
    }

    let result = if total_len <= StringInterner::SHORT_STRING_LIMIT {
        let mut bytes = [0u8; StringInterner::SHORT_STRING_LIMIT];
        let mut offset = 0usize;
        for idx in (top - nn)..top {
            let value = unsafe { stack.get_unchecked(idx) };
            append_utf8_piece_to_bytes(&mut bytes, &mut offset, value);
        }
        let s = unsafe { std::str::from_utf8_unchecked(&bytes[..total_len]) };
        lua_state.create_string(s)?
    } else {
        let mut combined = String::with_capacity(total_len);
        for idx in (top - nn)..top {
            let value = unsafe { stack.get_unchecked(idx) };
            append_utf8_piece_to_string(&mut combined, value);
        }
        lua_state.create_string_owned(combined)?
    };

    unsafe {
        *lua_state.stack_mut().get_unchecked_mut(top - nn) = result;
    }
    Ok(Some(nn))
}

/// Check whether a value can be converted to string for concat:
/// strings and numbers (integer/float) are convertible.
#[inline(always)]
fn cvt2str(v: &LuaValue) -> bool {
    v.ttisinteger() || v.ttisfloat()
}

/// Convert a number value on the stack to a string value in-place.
/// Equivalent to C Lua's luaO_tostring.
fn tostring_inplace(lua_state: &mut LuaState, idx: usize) -> LuaResult<bool> {
    let v = unsafe { *lua_state.stack().get_unchecked(idx) };
    if v.ttisstring() {
        return Ok(true);
    }
    if v.ttisinteger() {
        let mut buf = itoa::Buffer::new();
        let s = buf.format(v.ivalue());
        let sv = lua_state.create_string(s)?;
        unsafe { *lua_state.stack_mut().get_unchecked_mut(idx) = sv };
        return Ok(true);
    }
    if v.ttisfloat() {
        let s = lua_float_to_string(v.fltvalue());
        let sv = lua_state.create_string(&s)?;
        unsafe { *lua_state.stack_mut().get_unchecked_mut(idx) = sv };
        return Ok(true);
    }
    Ok(false)
}

/// Check if value is a short empty string (optimization: skip empty operands).
#[inline(always)]
fn isemptystr(v: &LuaValue) -> bool {
    v.is_short_string() && v.as_str().is_some_and(|s| s.is_empty())
}

/// Copy string bytes from stack positions [top-n .. top-1] into buffer.
/// All values at these positions must already be strings.
fn copy2buff(stack: &[LuaValue], top: usize, n: usize, buff: &mut Vec<u8>) {
    for i in (1..=n).rev() {
        let v = unsafe { stack.get_unchecked(top - i) };
        if let Some(bytes) = v.as_bytes() {
            buff.extend_from_slice(bytes);
        }
    }
}

/// Main operation for concatenation: concat 'total' values in the stack,
/// from `top - total` up to `top - 1`.
///
/// Direct port of Lua 5.5's luaV_concat (lvm.c).
#[inline(never)]
pub fn concat(lua_state: &mut LuaState, mut total: usize) -> LuaResult<()> {
    if total == 1 {
        return Ok(()); // "all" values already concatenated
    }
    loop {
        let top = lua_state.get_top();
        let n;

        if let Some(nn) = concat_utf8_run(lua_state, top, total)? {
            n = nn;
        } else {
            let v1 = unsafe { lua_state.stack().get_unchecked(top - 2) };

            if (!v1.ttisstring() && !cvt2str(v1)) || !tostring_inplace(lua_state, top - 1)? {
                // Cannot convert to string — try __concat metamethod
                tryconcattm(lua_state, top)?;
                n = 2;
            } else if isemptystr(unsafe { lua_state.stack().get_unchecked(top - 1) }) {
                // Second operand is empty string — result is first operand (just convert it)
                tostring_inplace(lua_state, top - 2)?;
                n = 2;
            } else if isemptystr(unsafe { lua_state.stack().get_unchecked(top - 2) }) {
                // First operand is empty string — result is second operand
                helper::setobjs2s(lua_state, top - 2, top - 1);
                n = 2;
            } else {
                // At least two string values; collect as many consecutive convertible values as possible
                let mut tl: usize = {
                    let s = unsafe { lua_state.stack().get_unchecked(top - 1) };
                    s.as_bytes().map_or(0, |b| b.len())
                };

                let mut nn = 1usize;
                while nn < total && tostring_inplace(lua_state, top - nn - 1)? {
                    let l = unsafe { lua_state.stack().get_unchecked(top - nn - 1) }
                        .as_bytes()
                        .map_or(0, |b| b.len());
                    if l >= usize::MAX - tl {
                        return Err(lua_state.error("string length overflow".to_string()));
                    }
                    tl += l;
                    nn += 1;
                }

                // Build the concatenated string
                let mut buff = Vec::with_capacity(tl);
                copy2buff(lua_state.stack(), top, nn, &mut buff);

                let result = lua_state.create_bytes(&buff)?;
                unsafe {
                    *lua_state.stack_mut().get_unchecked_mut(top - nn) = result;
                }
                n = nn;
            }
        }

        total -= n - 1; // got 'n' strings to create one new
        lua_state.set_top_raw(top - (n - 1)); // popped 'n' strings and pushed one

        if total <= 1 {
            break;
        }
    }
    Ok(())
}

/// Try __concat metamethod on the top two stack values.
/// Equivalent to C Lua's luaT_tryconcatTM.
/// `top` is the stack top at the time of the call (operands at top-2 and top-1).
fn tryconcattm(lua_state: &mut LuaState, top: usize) -> LuaResult<()> {
    let p1 = unsafe { *lua_state.stack().get_unchecked(top - 2) };
    let p2 = unsafe { *lua_state.stack().get_unchecked(top - 1) };

    if let Some(mm) = get_binop_metamethod(lua_state, &p1, &p2, TmKind::Concat) {
        let result = call_tm_res(lua_state, mm, p1, p2)?;
        // Store result at top - 2 (replaces first operand)
        unsafe {
            *lua_state.stack_mut().get_unchecked_mut(top - 2) = result;
        }
        Ok(())
    } else {
        // No metamethod found — generate error
        let bad = if p1.ttisstring() || cvt2str(&p1) {
            &p2
        } else {
            &p1
        };
        Err(typeerror(lua_state, bad, "concatenate"))
    }
}