superstrict

Rem
bbdoc: LUA Core
end Rem
Module axe.lua

ModuleInfo "Version: 1.24"
ModuleInfo "Author: Tecgraf,PUC-Rio"
ModuleInfo "License: MIT License"
ModuleInfo "Modserver: BRL"
ModuleInfo "Credit: Adapted for BlitzMax by Thomas Mayer, Noel Cower, Andreas Rozek and Simon Armstrong"

ModuleInfo "History: 1.24"
ModuleInfo "History: fixed int<->long discrepancies between Lua and BlitzMAX"
ModuleInfo "History: 1.23"
ModuleInfo "History: several bugfixes and extensions"
ModuleInfo "History: support for strings with embedded ~0 (and byte arrays)"
ModuleInfo "History: modifications for Lua 5.1.2"
ModuleInfo "History: source code is now 'superstrict'-compliant"
ModuleInfo "History: added some documentation"
ModuleInfo "History: 1.22"
ModuleInfo "History: added lots of definitions to support most of the official Lua 5.1.1 API"
ModuleInfo "History: 1.21"
ModuleInfo "History: removed luac.c from build list"
ModuleInfo "History: 1.20"
ModuleInfo "History: fixed missing paramters in lua_createtable definition"
ModuleInfo "History: 1.19"
ModuleInfo "History: updated with lua5.1.1 source"
ModuleInfo "History: 1.18"
ModuleInfo "History: added extra Imports and luaL_openlibs decl"
ModuleInfo "History: 1.17"
ModuleInfo "History: added luaL_loadstring fixed missing lua_dostring"
ModuleInfo "History: 1.16"
ModuleInfo "History: Added lua_newtable as a BMax function"
ModuleInfo "History: Changed extern'd lua_newtable to lua_createtable"
ModuleInfo "History: Added lua_load, lua_dostring and lua_dobuffer."
ModuleInfo "History: 1.15 Release"
ModuleInfo "History: New LUA 5.1 based build"
ModuleInfo "History: Modified constants and added new wrappers for 5.1 compatability"
ModuleInfo "History: 1.14 Release"
ModuleInfo "History: Added luaopen_debug and ldblib.c"
ModuleInfo "History: Replaced byte ptr with $z (CString) where a C string is expected"
ModuleInfo "History: 1.12 Release"
ModuleInfo "History: Removed lua.h import"

import "lua-5.1.2/src/lstate.c"
import "lua-5.1.2/src/llex.c"
import "lua-5.1.2/src/ltm.c"
import "lua-5.1.2/src/lstring.c"
import "lua-5.1.2/src/ltable.c"
import "lua-5.1.2/src/lfunc.c"
import "lua-5.1.2/src/ldo.c"
import "lua-5.1.2/src/lgc.c"
import "lua-5.1.2/src/lzio.c"
import "lua-5.1.2/src/lobject.c"
import "lua-5.1.2/src/lparser.c"
import "lua-5.1.2/src/lvm.c"
import "lua-5.1.2/src/lundump.c"
import "lua-5.1.2/src/lmem.c"
import "lua-5.1.2/src/lcode.c"
import "lua-5.1.2/src/ldebug.c"
import "lua-5.1.2/src/lopcodes.c"
import "lua-5.1.2/src/lapi.c"
import "lua-5.1.2/src/ldump.c"
import "lua-5.1.2/src/lbaselib.c"
import "lua-5.1.2/src/lauxlib.c"
import "lua-5.1.2/src/liolib.c"
import "lua-5.1.2/src/lmathlib.c"
import "lua-5.1.2/src/lstrlib.c"
import "lua-5.1.2/src/ltablib.c"
import "lua-5.1.2/src/ldblib.c"

import "lua-5.1.2/src/linit.c"
import "lua-5.1.2/src/loadlib.c"
import "lua-5.1.2/src/loslib.c"
'import "lua-5.1.2/src/lua.c"
import "lua-5.1.2/src/luac.c"
import "lua-5.1.2/src/print.c"

import BRL.Retro

' ******************************************************************************
' *                                                                            *
' *                            Constant Definitions                            *
' *                                                                            *
' ******************************************************************************

  const LUA_IDSIZE:int = 60

' **** (lua.h) some basic definitions - just to be complete ****

  const LUA_VERSION:string   = "Lua 5.1"
  const LUA_RELEASE:string   = "Lua 5.1.2"
  const LUA_VERSION_NUM:int  = 501
  const LUA_COPYRIGHT:string = "Copyright (C) 1994-2006 Lua.org, PUC-Rio"
  const LUA_AUTHORS:string   = "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"

' **** (lua.h) option for multiple returns in `lua_pcall' and `lua_call' ****

  const LUA_MULTRET:int = -1

' **** (lua.h) pseudo-indices ****

  const LUA_REGISTRYINDEX:int = -10000
  const LUA_ENVIRONINDEX:int  = -10001
  const LUA_GLOBALSINDEX:int  = -10002

' **** (lua.h) thread status (0 is OK) ****

  const LUA_YIELD_:int    = 1   ' added _ after LUA_YIELD because of lua_yield function
  const LUA_ERRRUN:int    = 2
  const LUA_ERRSYNTAX:int = 3
  const LUA_ERRMEM:int    = 4
  const LUA_ERRERR:int    = 5

' **** (lua.h) basic types ****

  const LUA_TNONE:int          = -1
  const LUA_TNIL:int           =  0
  const LUA_TBOOLEAN:int       =  1
  const LUA_TLIGHTUSERDATA:int =  2
  const LUA_TNUMBER:int        =  3
  const LUA_TSTRING:int        =  4
  const LUA_TTABLE:int         =  5
  const LUA_TFUNCTION:int      =  6
  const LUA_TUSERDATA:int      =  7
  const LUA_TTHREAD:int        =  8

' **** (lua.h) garbage-collection options ****

  const LUA_GCSTOP:int       = 0
  const LUA_GCRESTART:int    = 1
  const LUA_GCCOLLECT:int    = 2
  const LUA_GCCOUNT:int      = 3
  const LUA_GCCOUNTB:int     = 4
  const LUA_GCSTEP:int       = 5
  const LUA_GCSETPAUSE:int   = 6
  const LUA_GCSETSTEPMUL:int = 7

' **** (lua.h) event codes ****

  const LUA_HOOKCALL:int    = 0
  const LUA_HOOKRET:int     = 1
  const LUA_HOOKLINE:int    = 2
  const LUA_HOOKCOUNT:int   = 3
  const LUA_HOOKTAILRET:int = 4

' **** (lua.h) event masks ****

  const LUA_MASKCALL:int  = (1 shl LUA_HOOKCALL)
  const LUA_MASKRET:int   = (1 shl LUA_HOOKRET)
  const LUA_MASKLINE:int  = (1 shl LUA_HOOKLINE)
  const LUA_MASKCOUNT:int = (1 shl LUA_HOOKCOUNT)

' ******************************************************************************
' *                                                                            *
' *                          The Lua API (Functions)                           *
' *                                                                            *
' ******************************************************************************

extern
  type lua_Debug
    field event:int
    field name:byte ptr                                         ' no ~0 expected
    field namewhat:byte ptr                                               ' dto.
    field what:byte ptr                                                   ' dto.
    field source:byte ptr                                                 ' dto.
    field currentline:int
    field nups:int
    field linedefined:int
    field lastlinedefined:int
'   field short_src:byte[LUA_IDSIZE]         ' we use padding to occupy 60 bytes
    field short_src:byte, short_src_01:byte, short_src_02:byte, short_src_03:byte
    field short_src_04:long, short_src_12:long, short_src_20:long
    field short_src_28:long, short_src_36:long, short_src_44:long
    field short_src_52:long
    field i_ci:int      ' "private" field - mentioned here to get the right size
  end type
end extern

extern
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_atpanic">Lua Reference Manual</a>
end rem
  function lua_atpanic:byte ptr (lua_state:byte ptr, panicf:int(ls:byte ptr))
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_call">Lua Reference Manual</a>
end rem
  function lua_call (lua_state:byte ptr, nargs:int, nresults:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_checkstack">Lua Reference Manual</a>
end rem
  function lua_checkstack:int (lua_state:byte ptr, extra:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_close">Lua Reference Manual</a>
end rem
  function lua_close (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_concat">Lua Reference Manual</a>
end rem
  function lua_concat (lua_state:byte ptr, n:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_cpcall">Lua Reference Manual</a>
end rem
  function lua_cpcall:int (lua_state:byte ptr, func:int(ls:byte ptr), ud:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_createtable">Lua Reference Manual</a>
end rem
  function lua_createtable (lua_state:byte ptr, narr:int, nrec:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_dump">Lua Reference Manual</a>
end rem
  function lua_dump:int (lua_state:byte ptr, writer:int(ls:byte ptr,p:byte ptr,sz:int,ud:byte ptr), data:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_equal">Lua Reference Manual</a>
end rem
  function lua_equal:int (lua_state:byte ptr, index1:int, index2:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_error">Lua Reference Manual</a>
end rem
  function lua_error:int (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_gc">Lua Reference Manual</a>
end rem
  function lua_gc:int (lua_state:byte ptr, what:int, data:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getallocf">Lua Reference Manual</a>
end rem
  function lua_getallocf:byte ptr (lua_state:byte ptr, ud:byte ptr ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getfenv">Lua Reference Manual</a>
end rem
  function lua_getfenv (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getfield">Lua Reference Manual</a>
end rem
  function lua_getfield (lua_state:byte ptr, index:int, k$z)              ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_gethook">Lua Reference Manual</a>
end rem
  function lua_gethook:byte ptr (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_gethookcount">Lua Reference Manual</a>
end rem
  function lua_gethookcount:int (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_gethookmask">Lua Reference Manual</a>
end rem
  function lua_gethookmask:int (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getinfo">Lua Reference Manual</a>
end rem
  function lua_getinfo:int (lua_state:byte ptr, what$z, ar:lua_Debug ptr)    ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getlocal">Lua Reference Manual</a>
end rem
  function lua_getlocal$z (lua_state:byte ptr, ar:lua_Debug ptr, n:int)     ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getmetatable">Lua Reference Manual</a>
end rem
  function lua_getmetatable:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getstack">Lua Reference Manual</a>
end rem
  function lua_getstack:int (lua_state:byte ptr, level:int, ar:lua_Debug ptr) ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_gettable">Lua Reference Manual</a>
end rem
  function lua_gettable (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_gettop">Lua Reference Manual</a>
end rem
  function lua_gettop:int (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getupvalue">Lua Reference Manual</a>
end rem
  function lua_getupvalue$z (lua_state:byte ptr, funcindex:int, n:int)        ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_insert">Lua Reference Manual</a>
end rem
  function lua_insert (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_iscfunction">Lua Reference Manual</a>
end rem
  function lua_iscfunction:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isnumber">Lua Reference Manual</a>
end rem
  function lua_isnumber:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isstring">Lua Reference Manual</a>
end rem
  function lua_isstring:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isuserdata">Lua Reference Manual</a>
end rem
  function lua_isuserdata:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_lessthan">Lua Reference Manual</a>
end rem
  function lua_lessthan:int (lua_state:byte ptr, index1:int, index2:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_load">Lua Reference Manual</a>
end rem
  function lua_load:int (lua_state:byte ptr, reader:byte ptr(ls:byte ptr,data:byte ptr,sz:int ptr), data:byte ptr, chunkname$z) ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_newstate">Lua Reference Manual</a>
end rem
  function lua_newstate:byte ptr (f:byte ptr(ud:byte ptr, p:byte ptr, osize:int, nsize:int), ud:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_newthread">Lua Reference Manual</a>
end rem
  function lua_newthread:byte ptr (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_newuserdata">Lua Reference Manual</a>
end rem
  function lua_newuserdata:byte ptr (lua_state:byte ptr, size:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_next">Lua Reference Manual</a>
end rem
  function lua_next:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_objlen">Lua Reference Manual</a>
end rem
  function lua_objlen:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pcall">Lua Reference Manual</a>
end rem
  function lua_pcall:int (lua_state:byte ptr, nargs:int, nresults:int, errfunc:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushboolean">Lua Reference Manual</a>
end rem
  function lua_pushboolean (lua_state:byte ptr, b:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushcclosure">Lua Reference Manual</a>
end rem
  function lua_pushcclosure (lua_state:byte ptr, fn:int(ls:byte ptr), n:int)
' function lua_pushfstring$z (lua_state:byte ptr, fmt$z, ...)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushinteger">Lua Reference Manual</a>
end rem
  function lua_pushinteger (lua_state:byte ptr, n:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushlightuserdata">Lua Reference Manual</a>
end rem
  function lua_pushlightuserdata (lua_state:byte ptr, p:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushlstring">Lua Reference Manual</a>
end rem
  function lua_pushlstring (lua_state:byte ptr, s:byte ptr, size:int)    ' without any conversion!
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushnil">Lua Reference Manual</a>
end rem
  function lua_pushnil (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushnumber">Lua Reference Manual</a>
end rem
  function lua_pushnumber (lua_state:byte ptr, n:double)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushstring">Lua Reference Manual</a>
end rem
  function lua_pushstring (lua_state:byte ptr, s$z)                         ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushthread">Lua Reference Manual</a>
end rem
  function lua_pushthread:int (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushvalue">Lua Reference Manual</a>
end rem
  function lua_pushvalue (lua_state:byte ptr, index:int)
' function lua_pushvfstring$z (lua_state:byte ptr, fmt$z, argp:???)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_rawequal">Lua Reference Manual</a>
end rem
  function lua_rawequal:int (lua_state:byte ptr, index1:int, index2:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_rawget">Lua Reference Manual</a>
end rem
  function lua_rawget (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_rawgeti">Lua Reference Manual</a>
end rem
  function lua_rawgeti (lua_state:byte ptr, index:int, n:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_rawset">Lua Reference Manual</a>
end rem
  function lua_rawset (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_rawseti">Lua Reference Manual</a>
end rem
  function lua_rawseti (lua_state:byte ptr, index:int, n:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_remove">Lua Reference Manual</a>
end rem
  function lua_remove (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_replace">Lua Reference Manual</a>
end rem
  function lua_replace (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_resume">Lua Reference Manual</a>
end rem
  function lua_resume:int (lua_state:byte ptr, narg:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_setallocf">Lua Reference Manual</a>
end rem
  function lua_setallocf (lua_state:byte ptr, f:byte ptr(ud:byte ptr, p:byte ptr, osize:int, nsize:int), ud:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_setfenv">Lua Reference Manual</a>
end rem
  function lua_setfenv:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_setfield">Lua Reference Manual</a>
end rem
  function lua_setfield (lua_state:byte ptr, index:int, k$z)              ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_sethook">Lua Reference Manual</a>
end rem
  function lua_sethook:int (lua_state:byte ptr, f(ls:byte ptr,ar:lua_Debug ptr), mask:int, count:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_setlocal">Lua Reference Manual</a>
end rem
  function lua_setlocal$z (lua_state:byte ptr, ar:lua_Debug ptr, n:int)     ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_setmetatable">Lua Reference Manual</a>
end rem
  function lua_setmetatable:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_settable">Lua Reference Manual</a>
end rem
  function lua_settable (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_settop">Lua Reference Manual</a>
end rem
  function lua_settop (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_setupvalue">Lua Reference Manual</a>
end rem
  function lua_setupvalue$z (lua_state:byte ptr, funcindex:int, n:int)        ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_status">Lua Reference Manual</a>
end rem
  function lua_status:int (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_toboolean">Lua Reference Manual</a>
end rem
  function lua_toboolean:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_tocfunction">Lua Reference Manual</a>
end rem
  function lua_tocfunction:byte ptr (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_tointeger">Lua Reference Manual</a>
end rem
  function lua_tointeger:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_tolstring">Lua Reference Manual</a>
end rem
  function lua_tolstring:byte ptr (lua_state:byte ptr, index:int, size:int ptr) ' without any conversion!
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_tonumber">Lua Reference Manual</a>
end rem
  function lua_tonumber:double (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_topointer">Lua Reference Manual</a>
end rem
  function lua_topointer:byte ptr (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_tothread">Lua Reference Manual</a>
end rem
  function lua_tothread:byte ptr (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_touserdata">Lua Reference Manual</a>
end rem
  function lua_touserdata:byte ptr (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_type">Lua Reference Manual</a>
end rem
  function lua_type:int (lua_state:byte ptr, index:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_typename">Lua Reference Manual</a>
end rem
  function lua_typename$z (lua_state:byte ptr, tp:int)                      ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_xmove">Lua Reference Manual</a>
end rem
  function lua_xmove                (fromState:byte ptr, toState:byte ptr, n:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_yield">Lua Reference Manual</a>
end rem
  function lua_yield:int (lua_state:byte ptr, nresults:int)
end extern

' ******************************************************************************
' *                                                                            *
' *                            The Lua API (Macros)                            *
' *                                                                            *
' ******************************************************************************

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_getglobal">Lua Reference Manual</a>
end rem
  function lua_getglobal (lua_state:byte ptr, name:string)
    lua_getfield(lua_state, LUA_GLOBALSINDEX, name)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isboolean">Lua Reference Manual</a>
end rem
  function lua_isboolean:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) = LUA_TBOOLEAN)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isfunction">Lua Reference Manual</a>
end rem
  function lua_isfunction:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) = LUA_TFUNCTION)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_islightuserdata">Lua Reference Manual</a>
end rem
  function lua_islightuserdata:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) = LUA_TLIGHTUSERDATA)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isnil">Lua Reference Manual</a>
end rem
  function lua_isnil:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) = LUA_TNIL)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isnone">Lua Reference Manual</a>
end rem
  function lua_isnone:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) = LUA_TNONE)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isnoneornil">Lua Reference Manual</a>
end rem
  function lua_isnoneornil:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) <= 0)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_istable">Lua Reference Manual</a>
end rem
  function lua_istable:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) = LUA_TTABLE)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_isthread">Lua Reference Manual</a>
end rem
  function lua_isthread:int (lua_state:byte ptr, index:int)
    return (lua_type(lua_state,index) = LUA_TTHREAD)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_newtable">Lua Reference Manual</a>
end rem
  function lua_newtable (lua_state:byte ptr)
    lua_createtable(lua_state,0,0)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pop">Lua Reference Manual</a>
end rem
  function lua_pop (lua_state:byte ptr, n:int)
    lua_settop(lua_state,-(n)-1)
  end function

  function lua_pushbytearray (lua_state:byte ptr, Buffer:byte[])
    lua_pushlstring(lua_state, VarPtr Buffer[0], Buffer.length)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_pushcfunction">Lua Reference Manual</a>
end rem
  function lua_pushcfunction (lua_state:byte ptr, fn:int(ls:byte ptr))
    lua_pushcclosure(lua_state, fn, 0)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_register">Lua Reference Manual</a>
end rem
  function lua_register (lua_state:byte ptr, name:string, f:int(ls:byte ptr))
    lua_pushcfunction(lua_state, f)
    lua_setglobal    (lua_state, name)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_setglobal">Lua Reference Manual</a>
end rem
  function lua_setglobal (lua_state:byte ptr, name:string)
    lua_setfield(lua_state, LUA_GLOBALSINDEX, name)
  end function

  function lua_tobytearray:byte[] (lua_state:byte ptr, index:int)
    local Length:int
    local DataPtr:byte ptr = lua_tolstring(lua_state, index, VarPtr Length)
    if (DataPtr = null) then
      return null
    else
      local Result:byte[] = new byte[Length]
        MemCopy(VarPtr Result[0], DataPtr, Length);
      return Result
    end if
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#lua_tostring">Lua Reference Manual</a>
end rem
  function lua_tostring:string (lua_state:byte ptr, index:int)
    local Length:int
    local StringPtr:byte ptr = lua_tolstring(lua_state, index, VarPtr Length)
    if (StringPtr = null) then
      return null
    else
      return String.fromBytes(StringPtr,Length)
    end if
  end function

' ******************************************************************************
' *                                                                            *
' *                     The Auxiliary Library (Functions)                      *
' *                                                                            *
' ******************************************************************************

extern
  type lua_Reg
    field name:byte ptr                                         ' no ~0 expected
    field func:int(ls:byte ptr)
  end type
end extern

extern
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_addlstring">Lua Reference Manual</a>
end rem
  function luaL_addlstring (B:byte ptr, s:byte ptr, l:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_addsize">Lua Reference Manual</a>
end rem
  function luaL_addsize (B:byte ptr, size:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_addstring">Lua Reference Manual</a>
end rem
  function luaL_addstring (B:byte ptr, s$z)                                 ' no ~0 allowed!
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_addvalue">Lua Reference Manual</a>
end rem
  function luaL_addvalue (B:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_argerror">Lua Reference Manual</a>
end rem
  function luaL_argerror:int (lua_state:byte ptr, narg:int, extramsg$z)     ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_buffinit">Lua Reference Manual</a>
end rem
  function luaL_buffinit (lua_state:byte ptr, B:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_callmeta">Lua Reference Manual</a>
end rem
  function luaL_callmeta:int (lua_state:byte ptr, obj:int, e$z)             ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checkany">Lua Reference Manual</a>
end rem
  function luaL_checkany (lua_state:byte ptr, narg:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checkinteger">Lua Reference Manual</a>
end rem
  function luaL_checkinteger:int (lua_state:byte ptr, narg:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checklstring">Lua Reference Manual</a>
end rem
  function luaL_checklstring:byte ptr (lua_state:byte ptr, narg:int, size:int ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checknumber">Lua Reference Manual</a>
end rem
  function luaL_checknumber:double (lua_state:byte ptr, narg:int)
' function luaL_checkoption:int (lua_state:byte ptr, narg:int, def$z, lst$z[])
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checkstack">Lua Reference Manual</a>
end rem
  function luaL_checkstack (lua_state:byte ptr, sz:int, msg$z)                     ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checktype">Lua Reference Manual</a>
end rem
  function luaL_checktype (lua_state:byte ptr, narg:int, t:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checkudata">Lua Reference Manual</a>
end rem
  function luaL_checkudata:byte ptr (lua_state:byte ptr, narg:int, tname$z)        ' no ~0 expected
' function luaL_error:int (lua_state:byte ptr, fmt$z, ...)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_getmetafield">Lua Reference Manual</a>
end rem
  function luaL_getmetafield:int (lua_state:byte ptr, obj:int, e$z)                ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_gsub">Lua Reference Manual</a>
end rem
  function luaL_gsub$z (lua_state:byte ptr, s$z, p$z, r$z)                         ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_loadbuffer">Lua Reference Manual</a>
end rem
  function luaL_loadbuffer:int (lua_state:byte ptr, buff:byte ptr, sz:int, name$z) ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_loadfile">Lua Reference Manual</a>
end rem
  function luaL_loadfile:int (lua_state:byte ptr, filename$z)                      ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_loadstring">Lua Reference Manual</a>
end rem
  function luaL_loadstring:int (lua_state:byte ptr, s$z)                           ' no ~0 allowed!
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_newmetatable">Lua Reference Manual</a>
end rem
  function luaL_newmetatable:int (lua_state:byte ptr, tname$z)                     ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_newstate">Lua Reference Manual</a>
end rem
  function luaL_newstate:byte ptr ()
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_openlibs">Lua Reference Manual</a>
end rem
  function luaL_openlibs (lua_state:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_optinteger">Lua Reference Manual</a>
end rem
  function luaL_optinteger:int (lua_state:byte ptr, narg:int, d:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_optlstring">Lua Reference Manual</a>
end rem
  function luaL_optlstring:byte ptr (lua_state:byte ptr, narg:int, d$z, size:int ptr) ' no ~0 expected in "d"
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_optnumber">Lua Reference Manual</a>
end rem
  function luaL_optnumber:double (lua_state:byte ptr, narg:int, d:double)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_prepbuffer">Lua Reference Manual</a>
end rem
  function luaL_prepbuffer:byte ptr (B:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_pushresult">Lua Reference Manual</a>
end rem
  function luaL_pushresult (B:byte ptr)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_ref">Lua Reference Manual</a>
end rem
  function luaL_ref:int (lua_state:byte ptr, t:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_register">Lua Reference Manual</a>
end rem
  function luaL_register (lua_state:byte ptr, libname$z, l:lua_Reg ptr)            ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_typerror">Lua Reference Manual</a>
end rem
  function luaL_typerror:int (lua_state:byte ptr, narg:int, tname$z)               ' no ~0 expected
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_unref">Lua Reference Manual</a>
end rem
  function luaL_unref (lua_state:byte ptr, t:int, ref:int)
rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_where">Lua Reference Manual</a>
end rem
  function luaL_where (lua_state:byte ptr, lvl:int)
end extern

' ******************************************************************************
' *                                                                            *
' *                       The Auxiliary Library (Macros)                       *
' *                                                                            *
' ******************************************************************************

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_addchar">Lua Reference Manual</a>
end rem
  function luaL_addchar (B:byte ptr, c:string)
    luaL_addstring(B,left$(c,1))     ' not really efficient, just to be complete
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_argcheck">Lua Reference Manual</a>
end rem
  function luaL_argcheck (lua_state:byte ptr, cond:int, narg:int, extramsg:string)
    if (not cond) then luaL_argerror(lua_state, narg, extramsg)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checkint">Lua Reference Manual</a>
end rem
  function luaL_checkint:int (lua_state:byte ptr, narg:int)
    return int(luaL_checkinteger(lua_state, narg))   ' Lua itself does the same!
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checklong">Lua Reference Manual</a>
end rem
  function luaL_checklong:long (lua_state:byte ptr, narg:int)
    return luaL_checkinteger(lua_state, narg)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_checkstring">Lua Reference Manual</a>
end rem
  function luaL_checkstring:string (lua_state:byte ptr, narg:int)
    local Size:int
    local StringPtr:byte ptr = luaL_checklstring(lua_state, narg, VarPtr Size)
    if (StringPtr = null) then
      return null
    else
      return String.fromBytes(StringPtr,Size)
    end if
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_dofile">Lua Reference Manual</a>
end rem
  function luaL_dofile:int (lua_state:byte ptr, filename:string)
    if (luaL_loadfile(lua_state,filename) <> 0) then
      return 1
    else
      return lua_pcall(lua_state, 0, LUA_MULTRET, 0)
    end if
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_dostring">Lua Reference Manual</a>
end rem
  function luaL_dostring:int (lua_state:byte ptr, str:string)
    if (luaL_loadstring(lua_state,str) <> 0) then
      return 1
    else
      return lua_pcall(lua_state, 0, LUA_MULTRET, 0)
    end if
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_getmetatable">Lua Reference Manual</a>
end rem
  function luaL_getmetatable (lua_state:byte ptr, tname:string)
    lua_getfield(lua_state, LUA_REGISTRYINDEX, tname)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_optint">Lua Reference Manual</a>
end rem
  function luaL_optint:int (lua_state:byte ptr, narg:int, d:int)
    return luaL_optinteger(lua_state, narg, d)
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_optlong">Lua Reference Manual</a>
end rem
  function luaL_optlong:long (lua_state:byte ptr, narg:int, d:long)
    if ((abs(narg) > lua_gettop(lua_state)) or lua_isnil(lua_state,narg)) then
      return d
    else
      return luaL_checklong(lua_state,narg)
    end if
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_optstring">Lua Reference Manual</a>
end rem
  function luaL_optstring:string (lua_state:byte ptr, narg:int, d:string)
    local Size:int
    local StringPtr:byte ptr = luaL_optlstring(lua_state, narg, d, VarPtr Size)
    if (StringPtr = null) then
      return null
    else
      return string.fromBytes(StringPtr,Size)
    end if
  end function

rem
bbdoc: see <a href="../lua-5.1.2/doc/manual.html#luaL_typename">Lua Reference Manual</a>
end rem
  function luaL_typename:string (lua_state:byte ptr, idx:int)
    return lua_typename(lua_state, lua_type (lua_state,idx))
  end function

' ******************************************************************************
' *                                                                            *
' *     compatibility extensions (not to break existing axe.lua programs)      *
' *                                                                            *
' ******************************************************************************

extern
  function luaopen_base:int    (lua_state:byte ptr)
  function luaopen_debug:int   (lua_state:byte ptr)
  function luaopen_io:int      (lua_state:byte ptr)
  function luaopen_math:int    (lua_state:byte ptr)
  function luaopen_os:int      (lua_state:byte ptr)
  function luaopen_package:int (lua_state:byte ptr)
  function luaopen_string:int  (lua_state:byte ptr)
  function luaopen_table:int   (lua_state:byte ptr)
end extern

  function lua_dobuffer:int (lua_state:byte ptr, buff:string, sz:int, name:string)
    if (luaL_loadbuffer(lua_state,buff,sz,name) <> 0) then
      return 1
    else
      return lua_pcall(lua_state, 0, LUA_MULTRET, 0)
    end if
  end function

  function lua_dofile:int (lua_state:byte ptr, filename:string)
    return luaL_dofile(lua_state,filename)
  end function

  function lua_dostring:int (lua_state:byte ptr, str:string)
    return luaL_dostring(lua_state,str)
  end function

  function lua_strlen:int (lua_state:byte ptr, index:int)
    return lua_objlen(lua_state,index)
  end function