Migrate ltm

Author: khvzak

build/build.rs

@@ -27,7 +27,6 @@ fn main() {
         .file("build/lstrlib.c")
         .file("build/ltable.c")
         .file("build/ltablib.c")
-        .file("build/ltm.c")
         .file("build/lua.c")
         .file("build/lundump.c")
         .file("build/lutf8lib.c")

build/ltm.c

@@ -0,0 +1,15 @@
+use libc::c_char;
+
+use crate::lobject::TValue;
+use crate::lstate::lua_State;
+
+extern "C" {
+    pub fn luaG_concaterror(L: *mut lua_State, p1: *const TValue, p2: *const TValue) -> !;
+    pub fn luaG_tointerror(L: *mut lua_State, p1: *const TValue, p2: *const TValue) -> !;
+    pub fn luaG_opinterror(
+        L: *mut lua_State,
+        p1: *const TValue,
+        p2: *const TValue,
+        msg: *const c_char,
+    ) -> !;
+}

src/ldebug.rs

@@ -1,4 +1,33 @@
-use libc::c_int;
+/*
+** Stack and Call structure of Lua
+*/
+
+use libc::{c_char, c_int, ptrdiff_t};
+
+use crate::lobject::{StkId, TValue};
+use crate::lstate::lua_State;
+
+/*
+** Macro to check stack size and grow stack if needed.  Parameters
+** 'pre'/'pos' allow the macro to preserve a pointer into the
+** stack across reallocations, doing the work only when needed.
+** 'condmovestack' is used in heavy tests to force a stack reallocation
+** at every check.
+*/
+// #define luaD_checkstackaux(L,n,pre,pos)  \
+// 	if (L->stack_last - L->top <= (n)) \
+// 	  { pre; luaD_growstack(L, n); pos; } else { condmovestack(L,pre,pos); }
+
+/* In general, 'pre'/'pos' are empty (nothing to save) */
+// #define luaD_checkstack(L,n)	luaD_checkstackaux(L,n,(void)0,(void)0)
+
+pub unsafe fn savestack(L: *mut lua_State, p: *const TValue) -> ptrdiff_t {
+    (p as *const c_char).offset_from((*L).stack as *const c_char)
+}
+
+pub unsafe fn restorestack(L: *mut lua_State, n: ptrdiff_t) -> *mut TValue {
+    ((*L).stack as *mut c_char).offset(n) as *mut TValue
+}
 
 pub type jmp_buf = [libc::c_int; 37];
 
@@ -10,3 +39,8 @@ pub struct lua_longjmp {
     pub b: jmp_buf,
     pub status: c_int,
 }
+
+extern "C" {
+    pub fn luaD_call(L: *mut lua_State, func: StkId, nResults: c_int);
+    pub fn luaD_callnoyield(L: *mut lua_State, func: StkId, nResults: c_int);
+}

src/ldo.rs

@@ -5,15 +5,19 @@
     non_upper_case_globals
 )]
 
+#[macro_use]
+pub(crate) mod lstate;
+
+pub(crate) mod ldebug;
 pub(crate) mod ldo;
 pub(crate) mod lfunc;
 pub(crate) mod lgc;
 pub(crate) mod llimits;
 pub(crate) mod lmem;
 pub(crate) mod lobject;
 pub(crate) mod lopcodes;
-pub(crate) mod lstate;
 pub(crate) mod ltemp;
 pub(crate) mod ltm;
+pub(crate) mod lvm;
 pub(crate) mod lzio;
 pub(crate) mod types;