DevComp/lei
1
0
Fork 0
mirror of https://github.com/CompeyDev/lei.git synced 2024-12-12 12:50:42 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: complete all lua.h bindings

Browse source
This commit is contained in:
Erica Marigold 2024-07-20 17:17:02 +05:30
parent 33572b82ab
commit 7c8932710f
No known key found for this signature in database
GPG key ID: 2768CC0C23D245D1
1 changed files with 48 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
internal/lua.go
View file

@ -773,13 +773,7 @@ func StackDepth(L *LuaState) int32 {
return int32(C.lua_stackdepth(L))
}
// Errors if invalid LuaDebug provided, returns -1
func GetInfo(L *LuaState, level int32, what string, ar *LuaDebug) (int32, error) {
cwhat := C.CString(what)
defer C.free(unsafe.Pointer(cwhat))
car := C.malloc(C.size_t(unsafe.Sizeof(*ar)))
defer C.free(car)
func (ar *LuaDebug) toCLuaDebug() (*C.lua_Debug, error) {
cname := C.CString(ar.Name)
defer C.free(unsafe.Pointer(cname))
carwhat := C.CString(ar.What)
@ -789,12 +783,12 @@ func GetInfo(L *LuaState, level int32, what string, ar *LuaDebug) (int32, error)
cshortsrc := C.CString(ar.ShortSrc)
defer C.free(unsafe.Pointer(cshortsrc))
if len(ar.SSbuf)+1 != LUA_IDSIZE { // contains null delimeter, so LUA_IDSIZE is one greater than the string len
return -1, errors.New("lua.GetInfo: SSbuf must be exactly " + strconv.Itoa(LUA_IDSIZE) + " bytes long")
return nil, errors.New("lua.GetInfo: SSbuf must be exactly " + strconv.Itoa(LUA_IDSIZE) + " bytes long")
}
cssbuf := C.CString(ar.SSbuf)
defer C.free(unsafe.Pointer(cssbuf))
*(**C.lua_Debug)(car) = &C.lua_Debug{
return &C.lua_Debug{
name: cname,
what: carwhat,
source: csource,
@ -806,9 +800,24 @@ func GetInfo(L *LuaState, level int32, what string, ar *LuaDebug) (int32, error)
isvararg: C.char(ar.IsVarArg),
userdata: ar.Userdata,
ssbuf: *(*[LUA_IDSIZE]C.char)(unsafe.Pointer(cssbuf)),
}, nil
}
return int32(C.lua_getinfo(L, C.int(level), cwhat, (*C.lua_Debug)(car))), nil
// Errors if invalid LuaDebug provided, returns -1
func GetInfo(L *LuaState, level int32, what string, ar *LuaDebug) (int32, error) {
cwhat := C.CString(what)
defer C.free(unsafe.Pointer(cwhat))
car, err := ar.toCLuaDebug()
if err != nil {
return -1, err
}
carp := C.malloc(C.size_t(unsafe.Sizeof(*ar)))
defer C.free(carp)
*(**C.lua_Debug)(carp) = car
return int32(C.lua_getinfo(L, C.int(level), cwhat, (*C.lua_Debug)(carp))), nil
}
func GetArgument(L *LuaState, level int32, n int32) int32 {
@ -861,6 +870,35 @@ func DebugTrace(L *LuaState) string {
return C.GoString(C.lua_debugtrace(L))
}
type LuaCallbacks struct {
Userdata unsafe.Pointer
Interrupt func(L *LuaState, gc int32)
Panic func(L *LuaState, errcode int32)
UserThread func(LP *LuaState, L *LuaState)
UserAtom func(s string, l uint64)
DebugBreak func(L *LuaState, ar *LuaDebug)
DebugStep func(L *LuaState, ar *LuaDebug)
DebugInterrupt func(L *LuaState, ar *LuaDebug)
DebugProtectedError func(L *LuaState)
}
func Callbacks(L *LuaState) *LuaCallbacks {
ccallbacks := C.lua_callbacks(L)
// sorry
return &LuaCallbacks{
Userdata: ccallbacks.userdata,
Interrupt: *(*func(L *LuaState, gc int32))(unsafe.Pointer(ccallbacks.interrupt)),
Panic: *(*func(L *LuaState, errcode int32))(unsafe.Pointer(ccallbacks.panic)),
UserThread: *(*func(LP *LuaState, L *LuaState))(unsafe.Pointer(ccallbacks.userthread)),
UserAtom: *(*func(s string, l uint64))(unsafe.Pointer(ccallbacks.useratom)),
DebugBreak: *(*func(L *LuaState, ar *LuaDebug))(unsafe.Pointer(ccallbacks.debugbreak)),
DebugStep: *(*func(L *LuaState, ar *LuaDebug))(unsafe.Pointer(ccallbacks.debugstep)),
DebugInterrupt: *(*func(L *LuaState, ar *LuaDebug))(unsafe.Pointer(ccallbacks.debugstep)),
DebugProtectedError: *(*func(L *LuaState))(unsafe.Pointer(ccallbacks.debugstep)),
}
}
func ToNumber(L *LuaState, i int32) LuaNumber {
return ToNumberX(L, i, new(bool))
}
@ -960,5 +998,3 @@ func GetGlobal(L *LuaState, global string) int32 {
func ToString(L *LuaState, i int32) string {
return ToLString(L, i, new(uint64))
}
// TODO: lua_Callbacks and related stuff