diff options
Diffstat (limited to 'lib/oldwrappers/lua/lauxlib.nim')
| -rwxr-xr-x | lib/oldwrappers/lua/lauxlib.nim | 224 |
1 files changed, 0 insertions, 224 deletions
diff --git a/lib/oldwrappers/lua/lauxlib.nim b/lib/oldwrappers/lua/lauxlib.nim deleted file mode 100755 index 477dd5874..000000000 --- a/lib/oldwrappers/lua/lauxlib.nim +++ /dev/null @@ -1,224 +0,0 @@ -#***************************************************************************** -# * * -# * File: lauxlib.pas * -# * Authors: TeCGraf (C headers + actual Lua libraries) * -# * Lavergne Thomas (original translation to Pascal) * -# * Bram Kuijvenhoven (update to Lua 5.1.1 for FreePascal) * -# * Description: Lua auxiliary library * -# * * -# ***************************************************************************** -# -#** $Id: lauxlib.h,v 1.59 2003/03/18 12:25:32 roberto Exp $ -#** Auxiliary functions for building Lua libraries -#** See Copyright Notice in lua.h -# -# -#** Translated to pascal by Lavergne Thomas -#** Notes : -#** - Pointers type was prefixed with 'P' -#** Bug reports : -#** - thomas.lavergne@laposte.net -#** In french or in english -# - -import lua - -proc lua_pushstring*(L: Plua_State, s: string) - # compatibilty macros -proc luaL_getn*(L: Plua_State, n: int): int - # calls lua_objlen -proc luaL_setn*(L: Plua_State, t, n: int) - # does nothing! -type - TLuaL_reg*{.final.} = object - name*: cstring - func*: lua_CFunction - - PluaL_reg* = ptr TLuaL_reg - -proc luaL_openlib*(L: Plua_State, libname: cstring, lr: PluaL_reg, nup: int){. - cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_register*(L: Plua_State, libname: cstring, lr: PluaL_reg){.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_getmetafield*(L: Plua_State, obj: int, e: cstring): int{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_callmeta*(L: Plua_State, obj: int, e: cstring): int{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_typerror*(L: Plua_State, narg: int, tname: cstring): int{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_argerror*(L: Plua_State, numarg: int, extramsg: cstring): int{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_checklstring*(L: Plua_State, numArg: int, len: Psize_t): cstring{. - cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_optlstring*(L: Plua_State, numArg: int, def: cstring, len: Psize_t): cstring{. - cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_checknumber*(L: Plua_State, numArg: int): lua_Number{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_optnumber*(L: Plua_State, nArg: int, def: lua_Number): lua_Number{. - cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_checkinteger*(L: Plua_State, numArg: int): lua_Integer{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_optinteger*(L: Plua_State, nArg: int, def: lua_Integer): lua_Integer{. - cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_checkstack*(L: Plua_State, sz: int, msg: cstring){.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_checktype*(L: Plua_State, narg, t: int){.cdecl, dynlib: LUA_LIB_NAME, - importc.} -proc luaL_checkany*(L: Plua_State, narg: int){.cdecl, dynlib: LUA_LIB_NAME, - importc.} -proc luaL_newmetatable*(L: Plua_State, tname: cstring): int{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_checkudata*(L: Plua_State, ud: int, tname: cstring): Pointer{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_where*(L: Plua_State, lvl: int){.cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_error*(L: Plua_State, fmt: cstring): int{.cdecl, varargs, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_checkoption*(L: Plua_State, narg: int, def: cstring, lst: cstringArray): int{. - cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_ref*(L: Plua_State, t: int): int{.cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_unref*(L: Plua_State, t, theref: int){.cdecl, dynlib: LUA_LIB_NAME, - importc.} -proc luaL_loadfile*(L: Plua_State, filename: cstring): int{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_loadbuffer*(L: Plua_State, buff: cstring, size: size_t, name: cstring): int{. - cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_loadstring*(L: Plua_State, s: cstring): int{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_newstate*(): Plua_State{.cdecl, dynlib: LUA_LIB_NAME, importc.} -proc lua_open*(): Plua_State - # compatibility; moved from unit lua to lauxlib because it needs luaL_newstate - # - #** =============================================================== - #** some useful macros - #** =============================================================== - # -proc luaL_argcheck*(L: Plua_State, cond: bool, numarg: int, extramsg: cstring) -proc luaL_checkstring*(L: Plua_State, n: int): cstring -proc luaL_optstring*(L: Plua_State, n: int, d: cstring): cstring -proc luaL_checkint*(L: Plua_State, n: int): int -proc luaL_checklong*(L: Plua_State, n: int): int32 -proc luaL_optint*(L: Plua_State, n: int, d: float64): int -proc luaL_optlong*(L: Plua_State, n: int, d: float64): int32 -proc luaL_typename*(L: Plua_State, i: int): cstring -proc lua_dofile*(L: Plua_State, filename: cstring): int -proc lua_dostring*(L: Plua_State, str: cstring): int -proc lua_Lgetmetatable*(L: Plua_State, tname: cstring) - # not translated: - # #define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n))) - # - #** ======================================================= - #** Generic Buffer manipulation - #** ======================================================= - # -const # note: this is just arbitrary, as it related to the BUFSIZ defined in stdio.h ... - LUAL_BUFFERSIZE* = 4096 - -type - luaL_Buffer*{.final.} = object - p*: cstring # current position in buffer - lvl*: int # number of strings in the stack (level) - L*: Plua_State - buffer*: array[0..LUAL_BUFFERSIZE - 1, Char] # warning: see note above about LUAL_BUFFERSIZE - - PluaL_Buffer* = ptr luaL_Buffer - -proc luaL_addchar*(B: PluaL_Buffer, c: Char) - # warning: see note above about LUAL_BUFFERSIZE - # compatibility only (alias for luaL_addchar) -proc luaL_putchar*(B: PluaL_Buffer, c: Char) - # warning: see note above about LUAL_BUFFERSIZE -proc luaL_addsize*(B: PluaL_Buffer, n: int) -proc luaL_buffinit*(L: Plua_State, B: PluaL_Buffer){.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_prepbuffer*(B: PluaL_Buffer): cstring{.cdecl, dynlib: LUA_LIB_NAME, - importc.} -proc luaL_addlstring*(B: PluaL_Buffer, s: cstring, L: size_t){.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_addstring*(B: PluaL_Buffer, s: cstring){.cdecl, dynlib: LUA_LIB_NAME, - importc.} -proc luaL_addvalue*(B: PluaL_Buffer){.cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_pushresult*(B: PluaL_Buffer){.cdecl, dynlib: LUA_LIB_NAME, importc.} -proc luaL_gsub*(L: Plua_State, s, p, r: cstring): cstring{.cdecl, - dynlib: LUA_LIB_NAME, importc.} -proc luaL_findtable*(L: Plua_State, idx: int, fname: cstring, szhint: int): cstring{. - cdecl, dynlib: LUA_LIB_NAME, importc.} - # compatibility with ref system - # pre-defined references -const - LUA_NOREF* = - 2 - LUA_REFNIL* = - 1 - -proc lua_unref*(L: Plua_State, theref: int) -proc lua_getref*(L: Plua_State, theref: int) - # - #** Compatibility macros and functions - # - -# implementation - -proc lua_pushstring(L: Plua_State, s: string) = - lua_pushlstring(L, cstring(s), len(s)) - -proc luaL_getn(L: Plua_State, n: int): int = - Result = lua_objlen(L, n) - -proc luaL_setn(L: Plua_State, t, n: int) = - # does nothing as this operation is deprecated - nil - -proc lua_open(): Plua_State = - Result = luaL_newstate() - -proc luaL_typename(L: Plua_State, i: int): cstring = - Result = lua_typename(L, lua_type(L, i)) - -proc lua_dofile(L: Plua_State, filename: cstring): int = - Result = luaL_loadfile(L, filename) - if Result == 0: Result = lua_pcall(L, 0, LUA_MULTRET, 0) - -proc lua_dostring(L: Plua_State, str: cstring): int = - Result = luaL_loadstring(L, str) - if Result == 0: Result = lua_pcall(L, 0, LUA_MULTRET, 0) - -proc lua_Lgetmetatable(L: Plua_State, tname: cstring) = - lua_getfield(L, LUA_REGISTRYINDEX, tname) - -proc luaL_argcheck(L: Plua_State, cond: bool, numarg: int, extramsg: cstring) = - if not cond: - discard luaL_argerror(L, numarg, extramsg) - -proc luaL_checkstring(L: Plua_State, n: int): cstring = - Result = luaL_checklstring(L, n, nil) - -proc luaL_optstring(L: Plua_State, n: int, d: cstring): cstring = - Result = luaL_optlstring(L, n, d, nil) - -proc luaL_checkint(L: Plua_State, n: int): int = - Result = toInt(luaL_checknumber(L, n)) - -proc luaL_checklong(L: Plua_State, n: int): int32 = - Result = int32(ToInt(luaL_checknumber(L, n))) - -proc luaL_optint(L: Plua_State, n: int, d: float64): int = - Result = int(ToInt(luaL_optnumber(L, n, d))) - -proc luaL_optlong(L: Plua_State, n: int, d: float64): int32 = - Result = int32(ToInt(luaL_optnumber(L, n, d))) - -proc luaL_addchar(B: PluaL_Buffer, c: Char) = - if cast[int](addr((B.p))) < (cast[int](addr((B.buffer[0]))) + LUAL_BUFFERSIZE): - discard luaL_prepbuffer(B) - B.p[1] = c - B.p = cast[cstring](cast[int](B.p) + 1) - -proc luaL_putchar(B: PluaL_Buffer, c: Char) = - luaL_addchar(B, c) - -proc luaL_addsize(B: PluaL_Buffer, n: int) = - B.p = cast[cstring](cast[int](B.p) + n) - -proc lua_unref(L: Plua_State, theref: int) = - luaL_unref(L, LUA_REGISTRYINDEX, theref) - -proc lua_getref(L: Plua_State, theref: int) = - lua_rawgeti(L, LUA_REGISTRYINDEX, theref) |