mirror of
https://github.com/nim-lang/Nim.git
synced 2026-07-28 19:36:34 +00:00
74 lines
2.6 KiB
Nim
Executable File
74 lines
2.6 KiB
Nim
Executable File
#*****************************************************************************
|
|
# * *
|
|
# * File: lualib.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: Standard Lua libraries *
|
|
# * *
|
|
# *****************************************************************************
|
|
#
|
|
#** $Id: lualib.h,v 1.28 2003/03/18 12:24:26 roberto Exp $
|
|
#** Lua standard libraries
|
|
#** See Copyright Notice in lua.h
|
|
#
|
|
#
|
|
#** Translated to pascal by Lavergne Thomas
|
|
#** Bug reports :
|
|
#** - thomas.lavergne@laposte.net
|
|
#** In french or in english
|
|
#
|
|
|
|
import lua
|
|
|
|
const
|
|
LUA_COLIBNAME* = "coroutine"
|
|
LUA_TABLIBNAME* = "table"
|
|
LUA_IOLIBNAME* = "io"
|
|
LUA_OSLIBNAME* = "os"
|
|
LUA_STRLINAME* = "string"
|
|
LUA_MATHLIBNAME* = "math"
|
|
LUA_DBLIBNAME* = "debug"
|
|
LUA_LOADLIBNAME* = "package"
|
|
|
|
proc luaopen_base*(L: Plua_State): cint{.cdecl, dynlib: LUA_LIB_NAME,
|
|
importc.}
|
|
proc luaopen_table*(L: Plua_State): cint{.cdecl, dynlib: LUA_LIB_NAME,
|
|
importc.}
|
|
proc luaopen_io*(L: Plua_State): cint{.cdecl, dynlib: LUA_LIB_NAME, importc.}
|
|
proc luaopen_string*(L: Plua_State): cint{.cdecl, dynlib: LUA_LIB_NAME,
|
|
importc.}
|
|
proc luaopen_math*(L: Plua_State): cint{.cdecl, dynlib: LUA_LIB_NAME,
|
|
importc.}
|
|
proc luaopen_debug*(L: Plua_State): cint{.cdecl, dynlib: LUA_LIB_NAME,
|
|
importc.}
|
|
proc luaopen_package*(L: Plua_State): cint{.cdecl, dynlib: LUA_LIB_NAME,
|
|
importc.}
|
|
proc luaL_openlibs*(L: Plua_State){.cdecl, dynlib: LUA_LIB_NAME, importc.}
|
|
# compatibility code
|
|
proc lua_baselibopen*(L: Plua_State): Bool
|
|
proc lua_tablibopen*(L: Plua_State): Bool
|
|
proc lua_iolibopen*(L: Plua_State): Bool
|
|
proc lua_strlibopen*(L: Plua_State): Bool
|
|
proc lua_mathlibopen*(L: Plua_State): Bool
|
|
proc lua_dblibopen*(L: Plua_State): Bool
|
|
# implementation
|
|
|
|
proc lua_baselibopen(L: Plua_State): Bool =
|
|
Result = luaopen_base(L) != 0'i32
|
|
|
|
proc lua_tablibopen(L: Plua_State): Bool =
|
|
Result = luaopen_table(L) != 0'i32
|
|
|
|
proc lua_iolibopen(L: Plua_State): Bool =
|
|
Result = luaopen_io(L) != 0'i32
|
|
|
|
proc lua_strlibopen(L: Plua_State): Bool =
|
|
Result = luaopen_string(L) != 0'i32
|
|
|
|
proc lua_mathlibopen(L: Plua_State): Bool =
|
|
Result = luaopen_math(L) != 0'i32
|
|
|
|
proc lua_dblibopen(L: Plua_State): Bool =
|
|
Result = luaopen_debug(L) != 0'i32
|