luaur_vm/functions/
str_upper.rs1use crate::functions::lua_l_buffinitsize::lua_l_buffinitsize;
6use crate::functions::lua_l_checklstring::lua_l_checklstring;
7use crate::functions::lua_l_pushresultsize::lua_l_pushresultsize;
8use crate::macros::uchar::uchar;
9use crate::records::lua_l_strbuf::LuaLStrbuf;
10use crate::type_aliases::lua_state::lua_State;
11use core::ffi::c_char;
12use core::ffi::c_int;
13
14pub fn str_upper(L: *mut lua_State) -> c_int {
15 unsafe {
16 let mut len: usize = 0;
17 let s = lua_l_checklstring(L, 1, &mut len);
18
19 let mut b: LuaLStrbuf = LuaLStrbuf {
20 p: core::ptr::null_mut(),
21 end: core::ptr::null_mut(),
22 L: core::ptr::null_mut(),
23 storage: core::ptr::null_mut(),
24 buffer: [0; 512],
25 };
26 let ptr = lua_l_buffinitsize(L, &mut b, len);
27
28 for i in 0..len {
29 *ptr.add(i) = (uchar(*s.add(i) as c_int) as u8).to_ascii_uppercase() as c_char;
30 }
31
32 lua_l_pushresultsize(&mut b, len);
33 1
34 }
35}