mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-02 21:30:19 +02:00
* lua headers, donated by Bram Kuijvenhoven. Headers are Modified LGPL
git-svn-id: trunk@6895 -
This commit is contained in:
michael
parent
2e3833cd7a
commit
2eb6ef9d52
7
.gitattributes
vendored
7
.gitattributes
vendored
@ -2887,6 +2887,13 @@ packages/extra/libpng/Makefile.fpc svneol=native#text/plain
|
||||
packages/extra/libpng/fpmake.inc svneol=native#text/plain
|
||||
packages/extra/libpng/fpmake.pp svneol=native#text/plain
|
||||
packages/extra/libpng/png.pp svneol=native#text/plain
|
||||
packages/extra/lua/Makefile svneol=native#text/plain
|
||||
packages/extra/lua/Makefile.fpc svneol=native#text/plain
|
||||
packages/extra/lua/fpmake.inc svneol=native#text/plain
|
||||
packages/extra/lua/fpmake.pp svneol=native#text/plain
|
||||
packages/extra/lua/lauxlib.pas svneol=native#text/plain
|
||||
packages/extra/lua/lua.pas svneol=native#text/plain
|
||||
packages/extra/lua/lualib.pas svneol=native#text/plain
|
||||
packages/extra/mad/Makefile svneol=native#text/plain
|
||||
packages/extra/mad/Makefile.fpc svneol=native#text/plain
|
||||
packages/extra/mad/mad.pas svneol=native#text/plain
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
#
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2007/03/16]
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2007/02/27]
|
||||
#
|
||||
default: all
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-embedded
|
||||
BSDs = freebsd netbsd openbsd darwin
|
||||
UNIXs = linux $(BSDs) solaris qnx
|
||||
LIMIT83fs = go32v2 os2 emx watcom
|
||||
@ -231,13 +231,13 @@ UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET))
|
||||
endif
|
||||
PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages $(FPCDIR)/packages/base $(FPCDIR)/packages/extra)
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk newt uuid ldap openal mad oggvorbis a52 modplug dts openssl pcap libcurl cairo sdl unixutil
|
||||
override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk newt uuid ldap openal mad oggvorbis a52 modplug dts openssl pcap libcurl cairo sdl unixutil lua
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-go32v2)
|
||||
override TARGET_DIRS+=unzip
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-win32)
|
||||
override TARGET_DIRS+=unzip opengl gtk gtk2 zlib tcl cdrom fpgtk fftw mad openal oggvorbis a52 libpng openssl pcap sdl
|
||||
override TARGET_DIRS+=unzip opengl gtk gtk2 zlib tcl cdrom fpgtk fftw mad openal oggvorbis a52 libpng openssl pcap sdl lua lua
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-os2)
|
||||
override TARGET_DIRS+=os2units rexx unzip zlib x11 gtk libpng tcl imlib fpgtk
|
||||
@ -329,9 +329,6 @@ endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-linux)
|
||||
override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk newt uuid ldap openal mad oggvorbis a52 modplug dts openssl pcap libcurl cairo sdl
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-darwin)
|
||||
override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1 openssl libcurl cairo sdl
|
||||
endif
|
||||
override INSTALL_FPCPACKAGE=y
|
||||
override INSTALL_FPCSUBDIR=packages/extra
|
||||
ifdef REQUIRE_UNITSDIR
|
||||
@ -1445,6 +1442,7 @@ TARGET_DIRS_LIBCURL=1
|
||||
TARGET_DIRS_CAIRO=1
|
||||
TARGET_DIRS_SDL=1
|
||||
TARGET_DIRS_UNIXUTIL=1
|
||||
TARGET_DIRS_LUA=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-go32v2)
|
||||
TARGET_DIRS_UNZIP=1
|
||||
@ -1467,6 +1465,8 @@ TARGET_DIRS_LIBPNG=1
|
||||
TARGET_DIRS_OPENSSL=1
|
||||
TARGET_DIRS_PCAP=1
|
||||
TARGET_DIRS_SDL=1
|
||||
TARGET_DIRS_LUA=1
|
||||
TARGET_DIRS_LUA=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-os2)
|
||||
TARGET_DIRS_OS2UNITS=1
|
||||
@ -2113,31 +2113,6 @@ TARGET_DIRS_LIBCURL=1
|
||||
TARGET_DIRS_CAIRO=1
|
||||
TARGET_DIRS_SDL=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-darwin)
|
||||
TARGET_DIRS_UNZIP=1
|
||||
TARGET_DIRS_ZLIB=1
|
||||
TARGET_DIRS_FFTW=1
|
||||
TARGET_DIRS_X11=1
|
||||
TARGET_DIRS_OPENGL=1
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_SYSLOG=1
|
||||
TARGET_DIRS_FORMS=1
|
||||
TARGET_DIRS_LIBPNG=1
|
||||
TARGET_DIRS_LIBGD=1
|
||||
TARGET_DIRS_UTMP=1
|
||||
TARGET_DIRS_BFD=1
|
||||
TARGET_DIRS_GDBM=1
|
||||
TARGET_DIRS_NCURSES=1
|
||||
TARGET_DIRS_FPGTK=1
|
||||
TARGET_DIRS_TCL=1
|
||||
TARGET_DIRS_IMLIB=1
|
||||
TARGET_DIRS_GNOME1=1
|
||||
TARGET_DIRS_OPENSSL=1
|
||||
TARGET_DIRS_LIBCURL=1
|
||||
TARGET_DIRS_CAIRO=1
|
||||
TARGET_DIRS_SDL=1
|
||||
endif
|
||||
ifdef TARGET_DIRS_UNZIP
|
||||
unzip_all:
|
||||
$(MAKE) -C unzip all
|
||||
@ -3803,6 +3778,51 @@ unixutil:
|
||||
$(MAKE) -C unixutil all
|
||||
.PHONY: unixutil_all unixutil_debug unixutil_smart unixutil_release unixutil_units unixutil_examples unixutil_shared unixutil_install unixutil_sourceinstall unixutil_exampleinstall unixutil_distinstall unixutil_zipinstall unixutil_zipsourceinstall unixutil_zipexampleinstall unixutil_zipdistinstall unixutil_clean unixutil_distclean unixutil_cleanall unixutil_info unixutil_makefiles unixutil
|
||||
endif
|
||||
ifdef TARGET_DIRS_LUA
|
||||
lua_all:
|
||||
$(MAKE) -C lua all
|
||||
lua_debug:
|
||||
$(MAKE) -C lua debug
|
||||
lua_smart:
|
||||
$(MAKE) -C lua smart
|
||||
lua_release:
|
||||
$(MAKE) -C lua release
|
||||
lua_units:
|
||||
$(MAKE) -C lua units
|
||||
lua_examples:
|
||||
$(MAKE) -C lua examples
|
||||
lua_shared:
|
||||
$(MAKE) -C lua shared
|
||||
lua_install:
|
||||
$(MAKE) -C lua install
|
||||
lua_sourceinstall:
|
||||
$(MAKE) -C lua sourceinstall
|
||||
lua_exampleinstall:
|
||||
$(MAKE) -C lua exampleinstall
|
||||
lua_distinstall:
|
||||
$(MAKE) -C lua distinstall
|
||||
lua_zipinstall:
|
||||
$(MAKE) -C lua zipinstall
|
||||
lua_zipsourceinstall:
|
||||
$(MAKE) -C lua zipsourceinstall
|
||||
lua_zipexampleinstall:
|
||||
$(MAKE) -C lua zipexampleinstall
|
||||
lua_zipdistinstall:
|
||||
$(MAKE) -C lua zipdistinstall
|
||||
lua_clean:
|
||||
$(MAKE) -C lua clean
|
||||
lua_distclean:
|
||||
$(MAKE) -C lua distclean
|
||||
lua_cleanall:
|
||||
$(MAKE) -C lua cleanall
|
||||
lua_info:
|
||||
$(MAKE) -C lua info
|
||||
lua_makefiles:
|
||||
$(MAKE) -C lua makefiles
|
||||
lua:
|
||||
$(MAKE) -C lua all
|
||||
.PHONY: lua_all lua_debug lua_smart lua_release lua_units lua_examples lua_shared lua_install lua_sourceinstall lua_exampleinstall lua_distinstall lua_zipinstall lua_zipsourceinstall lua_zipexampleinstall lua_zipdistinstall lua_clean lua_distclean lua_cleanall lua_info lua_makefiles lua
|
||||
endif
|
||||
ifdef TARGET_DIRS_OS2UNITS
|
||||
os2units_all:
|
||||
$(MAKE) -C os2units all
|
||||
|
||||
@ -9,7 +9,8 @@ dirs_linux=unzip zlib fftw \
|
||||
imlib gnome1 fpgtk newt uuid \
|
||||
ldap openal mad oggvorbis a52 \
|
||||
modplug dts openssl pcap libcurl cairo sdl
|
||||
dirs_i386_linux=unixutil
|
||||
dirs_i386_linux=unixutil lua
|
||||
dirs_i386_win32=lua
|
||||
dirs_netbsd=unzip zlib \
|
||||
x11 opengl gtk syslog \
|
||||
forms svgalib ggi libpng libgd \
|
||||
@ -27,7 +28,7 @@ dirs_openbsd=unzip zlib \
|
||||
tcl imlib gnome1 openssl pcap libcurl cairo sdl
|
||||
# libcurl should work on Win32 too, but I haven't tested this. Skip it for now. MVC.
|
||||
dirs_win32=unzip opengl gtk gtk2 zlib tcl cdrom fpgtk fftw \
|
||||
mad openal oggvorbis a52 libpng openssl pcap sdl
|
||||
mad openal oggvorbis a52 libpng openssl pcap sdl lua
|
||||
dirs_win64=unzip opengl gtk gtk2 zlib tcl cdrom fpgtk fftw openssl sdl
|
||||
dirs_wince=unzip zlib tcl fftw
|
||||
dirs_os2=os2units \
|
||||
|
||||
1905
packages/extra/lua/Makefile
Normal file
1905
packages/extra/lua/Makefile
Normal file
File diff suppressed because it is too large
Load Diff
32
packages/extra/lua/Makefile.fpc
Normal file
32
packages/extra/lua/Makefile.fpc
Normal file
@ -0,0 +1,32 @@
|
||||
#
|
||||
# Makefile.fpc for BFD library
|
||||
#
|
||||
|
||||
[package]
|
||||
name=bfd
|
||||
version=2.3
|
||||
|
||||
[target]
|
||||
units=lua lualib lauxlib
|
||||
examples=
|
||||
|
||||
[require]
|
||||
package=rtl
|
||||
|
||||
[install]
|
||||
fpcpackage=y
|
||||
|
||||
[default]
|
||||
fpcdir=../../..
|
||||
|
||||
[shared]
|
||||
build=n
|
||||
|
||||
[rules]
|
||||
.NOTPARALLEL:
|
||||
|
||||
lua$(PPUEXT) : lua.pas
|
||||
|
||||
lualib$(PPUEXT) : lualib.pas lua$(PPUEXT)
|
||||
|
||||
lauxlib$(PPUEXT) : lauxlib.pas lua$(PPUEXT)
|
||||
14
packages/extra/lua/fpmake.inc
Normal file
14
packages/extra/lua/fpmake.inc
Normal file
@ -0,0 +1,14 @@
|
||||
StartPackage('lua');
|
||||
{$IF defined(ALLPACKAGES)}
|
||||
Directory:='extra/lua';
|
||||
{$ELSEIF defined(EXTRAPACKAGES)}
|
||||
Directory:='lua';
|
||||
{$ENDIF}
|
||||
OS:=[linux,windows];
|
||||
CPU:=[i386];
|
||||
T:=Targets.AddUnit('lua');
|
||||
T:=Targets.AddUnit('lualib');
|
||||
T.Dependencies.Add('lua');
|
||||
T:=Targets.AddUnit('lauxlib');
|
||||
T.Dependencies.Add('lua');
|
||||
EndPackage;
|
||||
17
packages/extra/lua/fpmake.pp
Normal file
17
packages/extra/lua/fpmake.pp
Normal file
@ -0,0 +1,17 @@
|
||||
{$mode objfpc}{$H+}
|
||||
program fpmake;
|
||||
|
||||
uses fpmkunit;
|
||||
|
||||
Var
|
||||
T : TTarget;
|
||||
|
||||
begin
|
||||
With Installer do
|
||||
begin
|
||||
{ Base packages }
|
||||
{$i fpmake.inc}
|
||||
Run;
|
||||
end;
|
||||
end.
|
||||
|
||||
380
packages/extra/lua/lauxlib.pas
Normal file
380
packages/extra/lua/lauxlib.pas
Normal file
@ -0,0 +1,380 @@
|
||||
(******************************************************************************
|
||||
* *
|
||||
* 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
|
||||
*)
|
||||
|
||||
{$IFDEF FPC}{$MODE OBJFPC}{$H+}{$ENDIF}
|
||||
|
||||
unit lauxlib;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Lua;
|
||||
|
||||
// functions added for Pascal
|
||||
procedure lua_pushstring(L: Plua_State; const s: string);
|
||||
|
||||
// compatibilty macros
|
||||
function luaL_getn(L: Plua_State; n: Integer): Integer; // calls lua_objlen
|
||||
procedure luaL_setn(L: Plua_State; t, n: Integer); // does nothing!
|
||||
|
||||
type
|
||||
luaL_reg = record
|
||||
name: PChar;
|
||||
func: lua_CFunction;
|
||||
end;
|
||||
PluaL_reg = ^luaL_reg;
|
||||
|
||||
procedure luaL_openlib(L: Plua_State; const libname: PChar; const lr: PluaL_reg; nup: Integer); cdecl;
|
||||
procedure luaL_register(L: Plua_State; const libname: PChar; const lr: PluaL_reg); cdecl;
|
||||
function luaL_getmetafield(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl;
|
||||
function luaL_callmeta(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl;
|
||||
function luaL_typerror(L: Plua_State; narg: Integer; const tname: PChar): Integer; cdecl;
|
||||
function luaL_argerror(L: Plua_State; numarg: Integer; const extramsg: PChar): Integer; cdecl;
|
||||
function luaL_checklstring(L: Plua_State; numArg: Integer; l_: Psize_t): PChar; cdecl;
|
||||
function luaL_optlstring(L: Plua_State; numArg: Integer; const def: PChar; l_: Psize_t): PChar; cdecl;
|
||||
function luaL_checknumber(L: Plua_State; numArg: Integer): lua_Number; cdecl;
|
||||
function luaL_optnumber(L: Plua_State; nArg: Integer; def: lua_Number): lua_Number; cdecl;
|
||||
function luaL_checkinteger(L: Plua_State; numArg: Integer): lua_Integer; cdecl;
|
||||
function luaL_optinteger(L: Plua_State; nArg: Integer; def: lua_Integer): lua_Integer; cdecl;
|
||||
|
||||
procedure luaL_checkstack(L: Plua_State; sz: Integer; const msg: PChar); cdecl;
|
||||
procedure luaL_checktype(L: Plua_State; narg, t: Integer); cdecl;
|
||||
procedure luaL_checkany(L: Plua_State; narg: Integer); cdecl;
|
||||
|
||||
function luaL_newmetatable(L: Plua_State; const tname: PChar): Integer; cdecl;
|
||||
function luaL_checkudata(L: Plua_State; ud: Integer; const tname: PChar): Pointer; cdecl;
|
||||
|
||||
procedure luaL_where(L: Plua_State; lvl: Integer); cdecl;
|
||||
function luaL_error(L: Plua_State; const fmt: PChar; args: array of const): Integer; cdecl; // note: C's ... to array of const conversion is not portable to Delphi
|
||||
|
||||
function luaL_checkoption(L: Plua_State; narg: Integer; def: PChar; lst: PPChar): Integer; cdecl;
|
||||
|
||||
function luaL_ref(L: Plua_State; t: Integer): Integer; cdecl;
|
||||
procedure luaL_unref(L: Plua_State; t, ref: Integer); cdecl;
|
||||
|
||||
function luaL_loadfile(L: Plua_State; const filename: PChar): Integer; cdecl;
|
||||
function luaL_loadbuffer(L: Plua_State; const buff: PChar; size: size_t; const name: PChar): Integer; cdecl;
|
||||
function luaL_loadstring(L: Plua_State; const s: PChar): Integer; cdecl;
|
||||
|
||||
function luaL_newstate: Plua_State; cdecl;
|
||||
function lua_open: Plua_State; // compatibility; moved from unit lua to lauxlib because it needs luaL_newstate
|
||||
|
||||
function luaL_gsub(L: Plua_State; const s, p, r: PChar): PChar; cdecl;
|
||||
function luaL_findtable(L: Plua_State; idx: Integer; const fname: PChar; szhint: Integer): PChar; cdecl;
|
||||
|
||||
(*
|
||||
** ===============================================================
|
||||
** some useful macros
|
||||
** ===============================================================
|
||||
*)
|
||||
|
||||
procedure luaL_argcheck(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
|
||||
function luaL_checkstring(L: Plua_State; n: Integer): PChar;
|
||||
function luaL_optstring(L: Plua_State; n: Integer; d: PChar): PChar;
|
||||
function luaL_checkint(L: Plua_State; n: Integer): Integer;
|
||||
function luaL_checklong(L: Plua_State; n: Integer): LongInt;
|
||||
function luaL_optint(L: Plua_State; n: Integer; d: Double): Integer;
|
||||
function luaL_optlong(L: Plua_State; n: Integer; d: Double): LongInt;
|
||||
|
||||
function luaL_typename(L: Plua_State; i: Integer): PChar;
|
||||
|
||||
function lua_dofile(L: Plua_State; const filename: PChar): Integer;
|
||||
function lua_dostring(L: Plua_State; const str: PChar): Integer;
|
||||
|
||||
procedure lua_Lgetmetatable(L: Plua_State; tname: PChar);
|
||||
|
||||
// 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 = record
|
||||
p: PChar; (* current position in buffer *)
|
||||
lvl: Integer; (* number of strings in the stack (level) *)
|
||||
L: Plua_State;
|
||||
buffer: array [0..LUAL_BUFFERSIZE - 1] of Char; // warning: see note above about LUAL_BUFFERSIZE
|
||||
end;
|
||||
PluaL_Buffer = ^luaL_Buffer;
|
||||
|
||||
procedure luaL_addchar(B: PluaL_Buffer; c: Char); // warning: see note above about LUAL_BUFFERSIZE
|
||||
|
||||
(* compatibility only (alias for luaL_addchar) *)
|
||||
procedure luaL_putchar(B: PluaL_Buffer; c: Char); // warning: see note above about LUAL_BUFFERSIZE
|
||||
|
||||
procedure luaL_addsize(B: PluaL_Buffer; n: Integer);
|
||||
|
||||
procedure luaL_buffinit(L: Plua_State; B: PluaL_Buffer); cdecl;
|
||||
function luaL_prepbuffer(B: PluaL_Buffer): PChar; cdecl;
|
||||
procedure luaL_addlstring(B: PluaL_Buffer; const s: PChar; l: size_t); cdecl;
|
||||
procedure luaL_addstring(B: PluaL_Buffer; const s: PChar); cdecl;
|
||||
procedure luaL_addvalue(B: PluaL_Buffer); cdecl;
|
||||
procedure luaL_pushresult(B: PluaL_Buffer); cdecl;
|
||||
|
||||
|
||||
(* compatibility with ref system *)
|
||||
|
||||
(* pre-defined references *)
|
||||
const
|
||||
LUA_NOREF = -2;
|
||||
LUA_REFNIL = -1;
|
||||
|
||||
procedure lua_unref(L: Plua_State; ref: Integer);
|
||||
procedure lua_getref(L: Plua_State; ref: Integer);
|
||||
|
||||
(*
|
||||
** Compatibility macros and functions
|
||||
*)
|
||||
|
||||
function luaL_check_lstr(L: Plua_State; numArg: Integer; len: Psize_t): PChar;
|
||||
function luaL_opt_lstr(L: Plua_State; numArg: Integer; const def: PChar; len: Psize_t): PChar;
|
||||
function luaL_check_number(L: Plua_State; numArg: Integer): lua_Number;
|
||||
function luaL_opt_number(L: Plua_State; nArg: Integer; def: lua_Number): lua_Number;
|
||||
procedure luaL_arg_check(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
|
||||
function luaL_check_string(L: Plua_State; n: Integer): PChar;
|
||||
function luaL_opt_string(L: Plua_State; n: Integer; d: PChar): PChar;
|
||||
function luaL_check_int(L: Plua_State; n: Integer): Integer;
|
||||
function luaL_check_long(L: Plua_State; n: Integer): LongInt;
|
||||
function luaL_opt_int(L: Plua_State; n: Integer; d: Double): Integer;
|
||||
function luaL_opt_long(L: Plua_State; n: Integer; d: Double): LongInt;
|
||||
|
||||
implementation
|
||||
|
||||
procedure lua_pushstring(L: Plua_State; const s: string);
|
||||
begin
|
||||
lua_pushlstring(L, PChar(s), Length(s));
|
||||
end;
|
||||
|
||||
function luaL_getn(L: Plua_State; n: Integer): Integer;
|
||||
begin
|
||||
Result := lua_objlen(L, n);
|
||||
end;
|
||||
|
||||
procedure luaL_setn(L: Plua_State; t, n: Integer);
|
||||
begin
|
||||
// does nothing as this operation is deprecated
|
||||
end;
|
||||
|
||||
procedure luaL_openlib(L: Plua_State; const libname: PChar; const lr: PluaL_reg; nup: Integer); cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_register(L: Plua_State; const libname: PChar; const lr: PluaL_reg); cdecl; external LUA_LIB_NAME;
|
||||
function luaL_getmetafield(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_callmeta(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_typerror(L: Plua_State; narg: Integer; const tname: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_argerror(L: Plua_State; numarg: Integer; const extramsg: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_checklstring(L: Plua_State; numArg: Integer; l_: Psize_t): PChar; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_optlstring(L: Plua_State; numArg: Integer; const def: PChar; l_: Psize_t): PChar; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_checknumber(L: Plua_State; numArg: Integer): lua_Number; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_optnumber(L: Plua_State; nArg: Integer; def: lua_Number): lua_Number; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_checkinteger(L: Plua_State; numArg: Integer): lua_Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_optinteger(L: Plua_State; nArg: Integer; def: lua_Integer): lua_Integer; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
procedure luaL_checkstack(L: Plua_State; sz: Integer; const msg: PChar); cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_checktype(L: Plua_State; narg, t: Integer); cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_checkany(L: Plua_State; narg: Integer); cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function luaL_newmetatable(L: Plua_State; const tname: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_checkudata(L: Plua_State; ud: Integer; const tname: PChar): Pointer; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
procedure luaL_where(L: Plua_State; lvl: Integer); cdecl; external LUA_LIB_NAME;
|
||||
function luaL_error(L: Plua_State; const fmt: PChar; args: array of const): Integer; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function luaL_checkoption(L: Plua_State; narg: Integer; def: PChar; lst: PPChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function luaL_ref(L: Plua_State; t: Integer): Integer; cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_unref(L: Plua_State; t, ref: Integer); cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function luaL_loadfile(L: Plua_State; const filename: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_loadbuffer(L: Plua_State; const buff: PChar; size: size_t; const name: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_loadstring(L: Plua_State; const s: PChar): Integer; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function luaL_newstate: Plua_State; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function lua_open: Plua_State;
|
||||
begin
|
||||
Result := luaL_newstate;
|
||||
end;
|
||||
|
||||
function luaL_gsub(L: Plua_State; const s, p, r: PChar): PChar; cdecl; external LUA_LIB_NAME;
|
||||
function luaL_findtable(L: Plua_State; idx: Integer; const fname: PChar; szhint: Integer): PChar; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function luaL_typename(L: Plua_State; i: Integer): PChar;
|
||||
begin
|
||||
Result := lua_typename(L, lua_type(L, i));
|
||||
end;
|
||||
|
||||
function lua_dofile(L: Plua_State; const filename: PChar): Integer;
|
||||
begin
|
||||
Result := luaL_loadfile(L, filename);
|
||||
if Result = 0 then
|
||||
Result := lua_pcall(L, 0, LUA_MULTRET, 0);
|
||||
end;
|
||||
|
||||
function lua_dostring(L: Plua_State; const str: PChar): Integer;
|
||||
begin
|
||||
Result := luaL_loadstring(L, str);
|
||||
if Result = 0 then
|
||||
Result := lua_pcall(L, 0, LUA_MULTRET, 0);
|
||||
end;
|
||||
|
||||
procedure lua_Lgetmetatable(L: Plua_State; tname: PChar);
|
||||
begin
|
||||
lua_getfield(L, LUA_REGISTRYINDEX, tname);
|
||||
end;
|
||||
|
||||
procedure luaL_argcheck(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
|
||||
begin
|
||||
if not cond then
|
||||
luaL_argerror(L, numarg, extramsg)
|
||||
end;
|
||||
|
||||
function luaL_checkstring(L: Plua_State; n: Integer): PChar;
|
||||
begin
|
||||
Result := luaL_checklstring(L, n, nil)
|
||||
end;
|
||||
|
||||
function luaL_optstring(L: Plua_State; n: Integer; d: PChar): PChar;
|
||||
begin
|
||||
Result := luaL_optlstring(L, n, d, nil)
|
||||
end;
|
||||
|
||||
function luaL_checkint(L: Plua_State; n: Integer): Integer;
|
||||
begin
|
||||
Result := Integer(Trunc(luaL_checknumber(L, n)))
|
||||
end;
|
||||
|
||||
function luaL_checklong(L: Plua_State; n: Integer): LongInt;
|
||||
begin
|
||||
Result := LongInt(Trunc(luaL_checknumber(L, n)))
|
||||
end;
|
||||
|
||||
function luaL_optint(L: Plua_State; n: Integer; d: Double): Integer;
|
||||
begin
|
||||
Result := Integer(Trunc(luaL_optnumber(L, n, d)))
|
||||
end;
|
||||
|
||||
function luaL_optlong(L: Plua_State; n: Integer; d: Double): LongInt;
|
||||
begin
|
||||
Result := LongInt(Trunc(luaL_optnumber(L, n, d)))
|
||||
end;
|
||||
|
||||
procedure luaL_addchar(B: PluaL_Buffer; c: Char);
|
||||
begin
|
||||
if Cardinal(@(B^.p)) < (Cardinal(@(B^.buffer[0])) + LUAL_BUFFERSIZE) then
|
||||
luaL_prepbuffer(B);
|
||||
B^.p[1] := c;
|
||||
B^.p := B^.p + 1;
|
||||
end;
|
||||
|
||||
procedure luaL_putchar(B: PluaL_Buffer; c: Char);
|
||||
begin
|
||||
luaL_addchar(B, c);
|
||||
end;
|
||||
|
||||
procedure luaL_addsize(B: PluaL_Buffer; n: Integer);
|
||||
begin
|
||||
B^.p := B^.p + n;
|
||||
end;
|
||||
|
||||
procedure luaL_buffinit(L: Plua_State ; B: PluaL_Buffer); cdecl; external LUA_LIB_NAME;
|
||||
function luaL_prepbuffer(B: PluaL_Buffer): PChar; cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_addlstring(B: PluaL_Buffer; const s: PChar; l: size_t); cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_addstring(B: PluaL_Buffer; const s: PChar); cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_addvalue(B: PluaL_Buffer); cdecl; external LUA_LIB_NAME;
|
||||
procedure luaL_pushresult(B: PluaL_Buffer); cdecl; external LUA_LIB_NAME;
|
||||
|
||||
procedure lua_unref(L: Plua_State; ref: Integer);
|
||||
begin
|
||||
luaL_unref(L, LUA_REGISTRYINDEX, ref);
|
||||
end;
|
||||
|
||||
procedure lua_getref(L: Plua_State; ref: Integer);
|
||||
begin
|
||||
lua_rawgeti(L, LUA_REGISTRYINDEX, ref);
|
||||
end;
|
||||
|
||||
function luaL_check_lstr(L: Plua_State; numArg: Integer; len: Psize_t): PChar;
|
||||
begin
|
||||
Result := luaL_checklstring(L, numArg, len);
|
||||
end;
|
||||
|
||||
function luaL_opt_lstr(L: Plua_State; numArg: Integer; const def: PChar; len: Psize_t): PChar;
|
||||
begin
|
||||
Result := luaL_optlstring(L, numArg, def, len);
|
||||
end;
|
||||
|
||||
function luaL_check_number(L: Plua_State; numArg: Integer): lua_Number;
|
||||
begin
|
||||
Result := luaL_checknumber(L, numArg);
|
||||
end;
|
||||
|
||||
function luaL_opt_number(L: Plua_State; nArg: Integer; def: lua_Number): lua_Number;
|
||||
begin
|
||||
Result := luaL_optnumber(L, nArg, def);
|
||||
end;
|
||||
|
||||
procedure luaL_arg_check(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
|
||||
begin
|
||||
luaL_argcheck(L, cond, numarg, extramsg);
|
||||
end;
|
||||
|
||||
function luaL_check_string(L: Plua_State; n: Integer): PChar;
|
||||
begin
|
||||
Result := luaL_checkstring(L, n);
|
||||
end;
|
||||
|
||||
function luaL_opt_string(L: Plua_State; n: Integer; d: PChar): PChar;
|
||||
begin
|
||||
Result := luaL_optstring(L, n, d);
|
||||
end;
|
||||
|
||||
function luaL_check_int(L: Plua_State; n: Integer): Integer;
|
||||
begin
|
||||
Result := luaL_checkint(L, n);
|
||||
end;
|
||||
|
||||
function luaL_check_long(L: Plua_State; n: Integer): LongInt;
|
||||
begin
|
||||
Result := luaL_checklong(L, n);
|
||||
end;
|
||||
|
||||
function luaL_opt_int(L: Plua_State; n: Integer; d: Double): Integer;
|
||||
begin
|
||||
Result := luaL_optint(L, n, d);
|
||||
end;
|
||||
|
||||
function luaL_opt_long(L: Plua_State; n: Integer; d: Double): LongInt;
|
||||
begin
|
||||
Result := luaL_optlong(L, n, d);
|
||||
end;
|
||||
|
||||
end.
|
||||
575
packages/extra/lua/lua.pas
Normal file
575
packages/extra/lua/lua.pas
Normal file
@ -0,0 +1,575 @@
|
||||
(******************************************************************************
|
||||
* *
|
||||
* File: lua.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: Basic Lua library *
|
||||
* *
|
||||
******************************************************************************)
|
||||
|
||||
(*
|
||||
** $Id: lua.h,v 1.175 2003/03/18 12:31:39 roberto Exp $
|
||||
** Lua - An Extensible Extension Language
|
||||
** TeCGraf: Computer Graphics Technology Group, PUC-Rio, Brazil
|
||||
** http://www.lua.org mailto:info@lua.org
|
||||
** See Copyright Notice at the end of this file
|
||||
*)
|
||||
(*
|
||||
** Updated to Lua 5.1.1 by Bram Kuijvenhoven (bram at kuijvenhoven dot net),
|
||||
** Hexis BV (http://www.hexis.nl), the Netherlands
|
||||
** Notes:
|
||||
** - Only tested with FPC (FreePascal Compiler)
|
||||
** - Using LuaBinaries styled DLL/SO names, which include version names
|
||||
** - LUA_YIELD was suffixed by '_' for avoiding name collision
|
||||
*)
|
||||
(*
|
||||
** Translated to pascal by Lavergne Thomas
|
||||
** Notes :
|
||||
** - Pointers type was prefixed with 'P'
|
||||
** - lua_upvalueindex constant was transformed to function
|
||||
** - Some compatibility function was isolated because with it you must have
|
||||
** lualib.
|
||||
** - LUA_VERSION was suffixed by '_' for avoiding name collision.
|
||||
** Bug reports :
|
||||
** - thomas.lavergne@laposte.net
|
||||
** In french or in english
|
||||
*)
|
||||
|
||||
{$IFDEF FPC}{$MODE OBJFPC}{$H+}{$ENDIF}
|
||||
|
||||
unit lua;
|
||||
|
||||
interface
|
||||
|
||||
const
|
||||
{$IFDEF UNIX}
|
||||
LUA_NAME = 'liblua5.1.so';
|
||||
LUA_LIB_NAME = 'liblua5.1.so';
|
||||
{$ELSE}
|
||||
LUA_NAME = 'lua5.1.dll';
|
||||
LUA_LIB_NAME = 'lua5.1.dll';
|
||||
{$ENDIF}
|
||||
|
||||
type
|
||||
size_t = Cardinal;
|
||||
Psize_t = ^size_t;
|
||||
|
||||
const
|
||||
LUA_VERSION = 'Lua 5.1';
|
||||
LUA_RELEASE = 'Lua 5.1.1';
|
||||
LUA_VERSION_NUM = 501;
|
||||
LUA_COPYRIGHT = 'Copyright (C) 1994-2006 Lua.org, PUC-Rio';
|
||||
LUA_AUTHORS = 'R. Ierusalimschy, L. H. de Figueiredo & W. Celes';
|
||||
|
||||
(* option for multiple returns in `lua_pcall' and `lua_call' *)
|
||||
LUA_MULTRET = -1;
|
||||
|
||||
(*
|
||||
** pseudo-indices
|
||||
*)
|
||||
LUA_REGISTRYINDEX = -10000;
|
||||
LUA_ENVIRONINDEX = -10001;
|
||||
LUA_GLOBALSINDEX = -10002;
|
||||
|
||||
function lua_upvalueindex(I: Integer): Integer;
|
||||
|
||||
const
|
||||
(* thread status; 0 is OK *)
|
||||
LUA_YIELD_ = 1;
|
||||
LUA_ERRRUN = 2;
|
||||
LUA_ERRSYNTAX = 3;
|
||||
LUA_ERRMEM = 4;
|
||||
LUA_ERRERR = 5;
|
||||
|
||||
type
|
||||
Plua_State = Pointer;
|
||||
|
||||
lua_CFunction = function(L: Plua_State): Integer; cdecl;
|
||||
|
||||
(*
|
||||
** functions that read/write blocks when loading/dumping Lua chunks
|
||||
*)
|
||||
type
|
||||
lua_Reader = function(L: Plua_State; ud: Pointer; sz: Psize_t): PChar; cdecl;
|
||||
lua_Writer = function(L: Plua_State; const p: Pointer; sz: size_t; ud: Pointer): Integer; cdecl;
|
||||
|
||||
(*
|
||||
** prototype for memory-allocation functions
|
||||
*)
|
||||
lua_Alloc = procedure(ud, ptr: Pointer; osize, nsize: size_t); cdecl;
|
||||
|
||||
(*
|
||||
** basic types
|
||||
*)
|
||||
const
|
||||
LUA_TNONE = -1;
|
||||
|
||||
LUA_TNIL = 0;
|
||||
LUA_TBOOLEAN = 1;
|
||||
LUA_TLIGHTUSERDATA = 2;
|
||||
LUA_TNUMBER = 3;
|
||||
LUA_TSTRING = 4;
|
||||
LUA_TTABLE = 5;
|
||||
LUA_TFUNCTION = 6;
|
||||
LUA_TUSERDATA = 7;
|
||||
LUA_TTHREAD = 8;
|
||||
|
||||
(* minimum Lua stack available to a C function *)
|
||||
LUA_MINSTACK = 20;
|
||||
|
||||
type
|
||||
(* Type of Numbers in Lua *)
|
||||
lua_Number = Double;
|
||||
lua_Integer = PtrInt;
|
||||
|
||||
(*
|
||||
** state manipulation
|
||||
*)
|
||||
function lua_newstate(f: lua_Alloc; ud: Pointer): Plua_state; cdecl;
|
||||
procedure lua_close(L: Plua_State); cdecl;
|
||||
function lua_newthread(L: Plua_State): Plua_State; cdecl;
|
||||
|
||||
function lua_atpanic(L: Plua_State; panicf: lua_CFunction): lua_CFunction; cdecl;
|
||||
|
||||
(*
|
||||
** basic stack manipulation
|
||||
*)
|
||||
function lua_gettop(L: Plua_State): Integer; cdecl;
|
||||
procedure lua_settop(L: Plua_State; idx: Integer); cdecl;
|
||||
procedure lua_pushvalue(L: Plua_State; Idx: Integer); cdecl;
|
||||
procedure lua_remove(L: Plua_State; idx: Integer); cdecl;
|
||||
procedure lua_insert(L: Plua_State; idx: Integer); cdecl;
|
||||
procedure lua_replace(L: Plua_State; idx: Integer); cdecl;
|
||||
function lua_checkstack(L: Plua_State; sz: Integer): LongBool; cdecl;
|
||||
|
||||
procedure lua_xmove(from, to_: Plua_State; n: Integer); cdecl;
|
||||
|
||||
(*
|
||||
** access functions (stack -> C)
|
||||
*)
|
||||
function lua_isnumber(L: Plua_State; idx: Integer): LongBool; cdecl;
|
||||
function lua_isstring(L: Plua_State; idx: Integer): LongBool; cdecl;
|
||||
function lua_iscfunction(L: Plua_State; idx: Integer): LongBool; cdecl;
|
||||
function lua_isuserdata(L: Plua_State; idx: Integer): LongBool; cdecl;
|
||||
function lua_type(L: Plua_State; idx: Integer): Integer; cdecl;
|
||||
function lua_typename(L: Plua_State; tp: Integer): PChar; cdecl;
|
||||
|
||||
function lua_equal(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl;
|
||||
function lua_rawequal(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl;
|
||||
function lua_lessthan(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl;
|
||||
|
||||
function lua_tonumber(L: Plua_State; idx: Integer): lua_Number; cdecl;
|
||||
function lua_tointeger(L: Plua_State; idx: Integer): lua_Integer; cdecl;
|
||||
function lua_toboolean(L: Plua_State; idx: Integer): LongBool; cdecl;
|
||||
function lua_tolstring(L: Plua_State; idx: Integer; len: Psize_t): PChar; cdecl;
|
||||
function lua_objlen(L: Plua_State; idx: Integer): size_t; cdecl;
|
||||
function lua_tocfunction(L: Plua_State; idx: Integer): lua_CFunction; cdecl;
|
||||
function lua_touserdata(L: Plua_State; idx: Integer): Pointer; cdecl;
|
||||
function lua_tothread(L: Plua_State; idx: Integer): Plua_State; cdecl;
|
||||
function lua_topointer(L: Plua_State; idx: Integer): Pointer; cdecl;
|
||||
|
||||
(*
|
||||
** push functions (C -> stack)
|
||||
*)
|
||||
procedure lua_pushnil(L: Plua_State); cdecl;
|
||||
procedure lua_pushnumber(L: Plua_State; n: lua_Number); cdecl;
|
||||
procedure lua_pushinteger(L: Plua_State; n: lua_Integer); cdecl;
|
||||
procedure lua_pushlstring(L: Plua_State; const s: PChar; l_: size_t); cdecl;
|
||||
procedure lua_pushstring(L: Plua_State; const s: PChar); cdecl;
|
||||
function lua_pushvfstring(L: Plua_State; const fmt: PChar; argp: Pointer): PChar; cdecl;
|
||||
function lua_pushfstring(L: Plua_State; const fmt: PChar): PChar; cdecl; varargs;
|
||||
procedure lua_pushcclosure(L: Plua_State; fn: lua_CFunction; n: Integer); cdecl;
|
||||
procedure lua_pushboolean(L: Plua_State; b: LongBool); cdecl;
|
||||
procedure lua_pushlightuserdata(L: Plua_State; p: Pointer); cdecl;
|
||||
procedure lua_pushthread(L: Plua_State); cdecl;
|
||||
|
||||
(*
|
||||
** get functions (Lua -> stack)
|
||||
*)
|
||||
procedure lua_gettable(L: Plua_State; idx: Integer); cdecl;
|
||||
procedure lua_getfield(L: Plua_state; idx: Integer; k: PChar); cdecl;
|
||||
procedure lua_rawget(L: Plua_State; idx: Integer); cdecl;
|
||||
procedure lua_rawgeti(L: Plua_State; idx, n: Integer); cdecl;
|
||||
procedure lua_createtable(L: Plua_State; narr, nrec: Integer); cdecl;
|
||||
function lua_newuserdata(L: Plua_State; sz: size_t): Pointer; cdecl;
|
||||
function lua_getmetatable(L: Plua_State; objindex: Integer): Integer; cdecl;
|
||||
procedure lua_getfenv(L: Plua_State; idx: Integer); cdecl;
|
||||
|
||||
(*
|
||||
** set functions (stack -> Lua)
|
||||
*)
|
||||
procedure lua_settable(L: Plua_State; idx: Integer); cdecl;
|
||||
procedure lua_setfield(L: Plua_State; idx: Integer; k: PChar); cdecl;
|
||||
procedure lua_rawset(L: Plua_State; idx: Integer); cdecl;
|
||||
procedure lua_rawseti(L: Plua_State; idx, n: Integer); cdecl;
|
||||
function lua_setmetatable(L: Plua_State; objindex: Integer): Integer; cdecl;
|
||||
function lua_setfenv(L: Plua_State; idx: Integer): Integer; cdecl;
|
||||
|
||||
(*
|
||||
** `load' and `call' functions (load and run Lua code)
|
||||
*)
|
||||
procedure lua_call(L: Plua_State; nargs, nresults: Integer); cdecl;
|
||||
function lua_pcall(L: Plua_State; nargs, nresults, errf: Integer): Integer; cdecl;
|
||||
function lua_cpcall(L: Plua_State; func: lua_CFunction; ud: Pointer): Integer; cdecl;
|
||||
function lua_load(L: Plua_State; reader: lua_Reader; dt: Pointer; const chunkname: PChar): Integer; cdecl;
|
||||
|
||||
function lua_dump(L: Plua_State; writer: lua_Writer; data: Pointer): Integer; cdecl;
|
||||
|
||||
(*
|
||||
** coroutine functions
|
||||
*)
|
||||
function lua_yield(L: Plua_State; nresults: Integer): Integer; cdecl;
|
||||
function lua_resume(L: Plua_State; narg: Integer): Integer; cdecl;
|
||||
function lua_status(L: Plua_State): Integer; cdecl;
|
||||
|
||||
(*
|
||||
** Garbage-collection functions and options
|
||||
*)
|
||||
const
|
||||
LUA_GCSTOP = 0;
|
||||
LUA_GCRESTART = 1;
|
||||
LUA_GCCOLLECT = 2;
|
||||
LUA_GCCOUNT = 3;
|
||||
LUA_GCCOUNTB = 4;
|
||||
LUA_GCSTEP = 5;
|
||||
LUA_GCSETPAUSE = 6;
|
||||
LUA_GCSETSTEPMUL = 7;
|
||||
|
||||
function lua_gc(L: Plua_State; what, data: Integer): Integer; cdecl;
|
||||
|
||||
(*
|
||||
** miscellaneous functions
|
||||
*)
|
||||
function lua_error(L: Plua_State): Integer; cdecl;
|
||||
|
||||
function lua_next(L: Plua_State; idx: Integer): Integer; cdecl;
|
||||
|
||||
procedure lua_concat(L: Plua_State; n: Integer); cdecl;
|
||||
|
||||
function lua_getallocf(L: Plua_State; ud: PPointer): lua_Alloc; cdecl;
|
||||
procedure lua_setallocf(L: Plua_State; f: lua_Alloc; ud: Pointer); cdecl;
|
||||
|
||||
(*
|
||||
** ===============================================================
|
||||
** some useful macros
|
||||
** ===============================================================
|
||||
*)
|
||||
|
||||
procedure lua_pop(L: Plua_State; n: Integer);
|
||||
|
||||
procedure lua_newtable(L: Plua_state);
|
||||
|
||||
procedure lua_register(L: Plua_State; const n: PChar; f: lua_CFunction);
|
||||
procedure lua_pushcfunction(L: Plua_State; f: lua_CFunction);
|
||||
|
||||
function lua_strlen(L: Plua_state; i: Integer): size_t;
|
||||
|
||||
function lua_isfunction(L: Plua_State; n: Integer): Boolean;
|
||||
function lua_istable(L: Plua_State; n: Integer): Boolean;
|
||||
function lua_islightuserdata(L: Plua_State; n: Integer): Boolean;
|
||||
function lua_isnil(L: Plua_State; n: Integer): Boolean;
|
||||
function lua_isboolean(L: Plua_State; n: Integer): Boolean;
|
||||
function lua_isthread(L: Plua_State; n: Integer): Boolean;
|
||||
function lua_isnone(L: Plua_State; n: Integer): Boolean;
|
||||
function lua_isnoneornil(L: Plua_State; n: Integer): Boolean;
|
||||
|
||||
procedure lua_pushliteral(L: Plua_State; s: PChar);
|
||||
|
||||
procedure lua_setglobal(L: Plua_State; const s: PChar);
|
||||
procedure lua_getglobal(L: Plua_State; const s: PChar);
|
||||
|
||||
function lua_tostring(L: Plua_State; i: Integer): PChar;
|
||||
|
||||
(*
|
||||
** compatibility macros and functions
|
||||
*)
|
||||
|
||||
procedure lua_getregistry(L: Plua_State);
|
||||
|
||||
function lua_getgccount(L: Plua_State): Integer;
|
||||
|
||||
type
|
||||
lua_Chunkreader = lua_Reader;
|
||||
lua_Chunkwriter = lua_Writer;
|
||||
|
||||
(*
|
||||
** {======================================================================
|
||||
** Debug API
|
||||
** =======================================================================
|
||||
*)
|
||||
|
||||
const
|
||||
LUA_HOOKCALL = 0;
|
||||
LUA_HOOKRET = 1;
|
||||
LUA_HOOKLINE = 2;
|
||||
LUA_HOOKCOUNT = 3;
|
||||
LUA_HOOKTAILRET = 4;
|
||||
|
||||
const
|
||||
LUA_MASKCALL = 1 shl Ord(LUA_HOOKCALL);
|
||||
LUA_MASKRET = 1 shl Ord(LUA_HOOKRET);
|
||||
LUA_MASKLINE = 1 shl Ord(LUA_HOOKLINE);
|
||||
LUA_MASKCOUNT = 1 shl Ord(LUA_HOOKCOUNT);
|
||||
|
||||
const
|
||||
LUA_IDSIZE = 60;
|
||||
|
||||
type
|
||||
lua_Debug = record (* activation record *)
|
||||
event: Integer;
|
||||
name: PChar; (* (n) *)
|
||||
namewhat: PChar; (* (n) `global', `local', `field', `method' *)
|
||||
what: PChar; (* (S) `Lua', `C', `main', `tail'*)
|
||||
source: PChar; (* (S) *)
|
||||
currentline: Integer; (* (l) *)
|
||||
nups: Integer; (* (u) number of upvalues *)
|
||||
linedefined: Integer; (* (S) *)
|
||||
lastlinedefined: Integer; (* (S) *)
|
||||
short_src: array[0..LUA_IDSIZE - 1] of Char; (* (S) *)
|
||||
(* private part *)
|
||||
i_ci: Integer; (* active function *)
|
||||
end;
|
||||
Plua_Debug = ^lua_Debug;
|
||||
|
||||
lua_Hook = procedure(L: Plua_State; ar: Plua_Debug); cdecl;
|
||||
|
||||
function lua_getstack(L: Plua_State; level: Integer; ar: Plua_Debug): Integer; cdecl;
|
||||
function lua_getinfo(L: Plua_State; const what: PChar; ar: Plua_Debug): Integer; cdecl;
|
||||
function lua_getlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl;
|
||||
function lua_setlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl;
|
||||
function lua_getupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl;
|
||||
function lua_setupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl;
|
||||
|
||||
function lua_sethook(L: Plua_State; func: lua_Hook; mask: Integer; count: Integer): Integer; cdecl;
|
||||
//function lua_gethook(L: Plua_State): lua_Hook; cdecl;
|
||||
function lua_gethookmask(L: Plua_State): Integer; cdecl;
|
||||
function lua_gethookcount(L: Plua_State): Integer; cdecl;
|
||||
|
||||
implementation
|
||||
|
||||
function lua_upvalueindex(I: Integer): Integer;
|
||||
begin
|
||||
Result := LUA_GLOBALSINDEX - i;
|
||||
end;
|
||||
|
||||
function lua_newstate(f: lua_Alloc; ud: Pointer): Plua_State; cdecl; external LUA_NAME;
|
||||
procedure lua_close(L: Plua_State); cdecl; external LUA_NAME;
|
||||
function lua_newthread(L: Plua_State): Plua_State; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_atpanic(L: Plua_State; panicf: lua_CFunction): lua_CFunction; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_gettop(L: Plua_State): Integer; cdecl; external LUA_NAME;
|
||||
procedure lua_settop(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_pushvalue(L: Plua_State; Idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_remove(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_insert(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_replace(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
function lua_checkstack(L: Plua_State; sz: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
procedure lua_xmove(from, to_: Plua_State; n: Integer); cdecl; external LUA_NAME;
|
||||
|
||||
function lua_isnumber(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
function lua_isstring(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
function lua_iscfunction(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
function lua_isuserdata(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
function lua_type(L: Plua_State; idx: Integer): Integer; cdecl; external LUA_NAME;
|
||||
function lua_typename(L: Plua_State; tp: Integer): PChar; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_equal(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
function lua_rawequal(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
function lua_lessthan(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_tonumber(L: Plua_State; idx: Integer): lua_Number; cdecl; external LUA_NAME;
|
||||
function lua_tointeger(L: Plua_State; idx: Integer): lua_Integer; cdecl; external LUA_NAME;
|
||||
function lua_toboolean(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
|
||||
function lua_tolstring(L: Plua_State; idx: Integer; len: Psize_t): PChar; cdecl; external LUA_NAME;
|
||||
function lua_objlen(L: Plua_State; idx: Integer): size_t; cdecl; external LUA_NAME;
|
||||
function lua_tocfunction(L: Plua_State; idx: Integer): lua_CFunction; cdecl; external LUA_NAME;
|
||||
function lua_touserdata(L: Plua_State; idx: Integer): Pointer; cdecl; external LUA_NAME;
|
||||
function lua_tothread(L: Plua_State; idx: Integer): Plua_State; cdecl; external LUA_NAME;
|
||||
function lua_topointer(L: Plua_State; idx: Integer): Pointer; cdecl; external LUA_NAME;
|
||||
|
||||
procedure lua_pushnil(L: Plua_State); cdecl; external LUA_NAME;
|
||||
procedure lua_pushnumber(L: Plua_State; n: lua_Number); cdecl; external LUA_NAME;
|
||||
procedure lua_pushinteger(L: Plua_State; n: lua_Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_pushlstring(L: Plua_State; const s: PChar; l_: size_t); cdecl; external LUA_NAME;
|
||||
procedure lua_pushstring(L: Plua_State; const s: PChar); cdecl; external LUA_NAME;
|
||||
function lua_pushvfstring(L: Plua_State; const fmt: PChar; argp: Pointer): PChar; cdecl; external LUA_NAME;
|
||||
function lua_pushfstring(L: Plua_State; const fmt: PChar): PChar; cdecl; varargs; external LUA_NAME;
|
||||
procedure lua_pushcclosure(L: Plua_State; fn: lua_CFunction; n: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_pushboolean(L: Plua_State; b: LongBool); cdecl; external LUA_NAME;
|
||||
procedure lua_pushlightuserdata(L: Plua_State; p: Pointer); cdecl; external LUA_NAME;
|
||||
procedure lua_pushthread(L: Plua_State); cdecl; external LUA_NAME;
|
||||
|
||||
procedure lua_gettable(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_getfield(L: Plua_state; idx: Integer; k: PChar); cdecl; external LUA_NAME;
|
||||
procedure lua_rawget(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_rawgeti(L: Plua_State; idx, n: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_createtable(L: Plua_State; narr, nrec: Integer); cdecl; external LUA_NAME;
|
||||
function lua_newuserdata(L: Plua_State; sz: size_t): Pointer; cdecl; external LUA_NAME;
|
||||
function lua_getmetatable(L: Plua_State; objindex: Integer): Integer; cdecl; external LUA_NAME;
|
||||
procedure lua_getfenv(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
|
||||
procedure lua_settable(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_setfield(L: Plua_State; idx: Integer; k: PChar); cdecl; external LUA_NAME;
|
||||
procedure lua_rawset(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
|
||||
procedure lua_rawseti(L: Plua_State; idx, n: Integer); cdecl; external LUA_NAME;
|
||||
function lua_setmetatable(L: Plua_State; objindex: Integer): Integer; cdecl; external LUA_NAME;
|
||||
function lua_setfenv(L: Plua_State; idx: Integer): Integer; cdecl; external LUA_NAME;
|
||||
|
||||
procedure lua_call(L: Plua_State; nargs, nresults: Integer); cdecl; external LUA_NAME;
|
||||
function lua_pcall(L: Plua_State; nargs, nresults, errf: Integer): Integer; cdecl; external LUA_NAME;
|
||||
function lua_cpcall(L: Plua_State; func: lua_CFunction; ud: Pointer): Integer; cdecl; external LUA_NAME;
|
||||
function lua_load(L: Plua_State; reader: lua_Reader; dt: Pointer; const chunkname: PChar): Integer; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_dump(L: Plua_State; writer: lua_Writer; data: Pointer): Integer; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_yield(L: Plua_State; nresults: Integer): Integer; cdecl; external LUA_NAME;
|
||||
function lua_resume(L: Plua_State; narg: Integer): Integer; cdecl; external LUA_NAME;
|
||||
function lua_status(L: Plua_State): Integer; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_gc(L: Plua_State; what, data: Integer): Integer; cdecl; external LUA_NAME;
|
||||
|
||||
function lua_error(L: Plua_State): Integer; cdecl; external LUA_NAME;
|
||||
function lua_next(L: Plua_State; idx: Integer): Integer; cdecl; external LUA_NAME;
|
||||
procedure lua_concat(L: Plua_State; n: Integer); cdecl; external LUA_NAME;
|
||||
|
||||
function lua_getallocf(L: Plua_State; ud: PPointer): lua_Alloc; cdecl; external LUA_NAME;
|
||||
procedure lua_setallocf(L: Plua_State; f: lua_Alloc; ud: Pointer); cdecl; external LUA_NAME;
|
||||
|
||||
procedure lua_pop(L: Plua_State; n: Integer);
|
||||
begin
|
||||
lua_settop(L, -n - 1);
|
||||
end;
|
||||
|
||||
procedure lua_newtable(L: Plua_State);
|
||||
begin
|
||||
lua_createtable(L, 0, 0);
|
||||
end;
|
||||
|
||||
procedure lua_register(L: Plua_State; const n: PChar; f: lua_CFunction);
|
||||
begin
|
||||
lua_pushcfunction(L, f);
|
||||
lua_setglobal(L, n);
|
||||
end;
|
||||
|
||||
procedure lua_pushcfunction(L: Plua_State; f: lua_CFunction);
|
||||
begin
|
||||
lua_pushcclosure(L, f, 0);
|
||||
end;
|
||||
|
||||
function lua_strlen(L: Plua_State; i: Integer): size_t;
|
||||
begin
|
||||
Result := lua_objlen(L, i);
|
||||
end;
|
||||
|
||||
function lua_isfunction(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) = LUA_TFUNCTION;
|
||||
end;
|
||||
|
||||
function lua_istable(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) = LUA_TTABLE;
|
||||
end;
|
||||
|
||||
function lua_islightuserdata(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) = LUA_TLIGHTUSERDATA;
|
||||
end;
|
||||
|
||||
function lua_isnil(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) = LUA_TNIL;
|
||||
end;
|
||||
|
||||
function lua_isboolean(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) = LUA_TBOOLEAN;
|
||||
end;
|
||||
|
||||
function lua_isthread(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) = LUA_TTHREAD;
|
||||
end;
|
||||
|
||||
function lua_isnone(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) = LUA_TNONE;
|
||||
end;
|
||||
|
||||
function lua_isnoneornil(L: Plua_State; n: Integer): Boolean;
|
||||
begin
|
||||
Result := lua_type(L, n) <= 0;
|
||||
end;
|
||||
|
||||
procedure lua_pushliteral(L: Plua_State; s: PChar);
|
||||
begin
|
||||
lua_pushlstring(L, s, Length(s));
|
||||
end;
|
||||
|
||||
procedure lua_setglobal(L: Plua_State; const s: PChar);
|
||||
begin
|
||||
lua_setfield(L, LUA_GLOBALSINDEX, s);
|
||||
end;
|
||||
|
||||
procedure lua_getglobal(L: Plua_State; const s: PChar);
|
||||
begin
|
||||
lua_getfield(L, LUA_GLOBALSINDEX, s);
|
||||
end;
|
||||
|
||||
function lua_tostring(L: Plua_State; i: Integer): PChar;
|
||||
begin
|
||||
Result := lua_tolstring(L, i, nil);
|
||||
end;
|
||||
|
||||
|
||||
procedure lua_getregistry(L: Plua_State);
|
||||
begin
|
||||
lua_pushvalue(L, LUA_REGISTRYINDEX);
|
||||
end;
|
||||
|
||||
function lua_getgccount(L: Plua_State): Integer;
|
||||
begin
|
||||
Result := lua_gc(L, LUA_GCCOUNT, 0);
|
||||
end;
|
||||
|
||||
(*
|
||||
** {======================================================================
|
||||
** Debug API
|
||||
** =======================================================================
|
||||
*)
|
||||
|
||||
function lua_getstack(L: Plua_State; level: Integer; ar: Plua_Debug): Integer; cdecl; external LUA_NAME;
|
||||
function lua_getinfo(L: Plua_State; const what: PChar; ar: Plua_Debug): Integer; cdecl; external LUA_NAME;
|
||||
function lua_getlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl; external LUA_NAME;
|
||||
function lua_setlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl; external LUA_NAME;
|
||||
function lua_getupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl; external LUA_NAME;
|
||||
function lua_setupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl; external LUA_NAME;
|
||||
function lua_sethook(L: Plua_State; func: lua_Hook; mask: Integer; count: Integer): Integer; cdecl; external LUA_NAME;
|
||||
//function lua_gethook(L: Plua_State): lua_Hook; cdecl; external LUA_NAME;
|
||||
function lua_gethookmask(L: Plua_State): Integer; cdecl; external LUA_NAME;
|
||||
function lua_gethookcount(L: Plua_State): Integer; cdecl; external LUA_NAME;
|
||||
(******************************************************************************
|
||||
* Copyright (C) 1994-2003 Tecgraf, PUC-Rio. All rights reserved.
|
||||
*
|
||||
* Permission is hereby granted, free of charge, to any person obtaining
|
||||
* a copy of this software and associated documentation files (the
|
||||
* "Software"), to deal in the Software without restriction, including
|
||||
* without limitation the rights to use, copy, modify, merge, publish,
|
||||
* distribute, sublicense, and/or sell copies of the Software, and to
|
||||
* permit persons to whom the Software is furnished to do so, subject to
|
||||
* the following conditions:
|
||||
*
|
||||
* The above copyright notice and this permission notice shall be
|
||||
* included in all copies or substantial portions of the Software.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
||||
* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
||||
* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
||||
* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
||||
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||
******************************************************************************)
|
||||
end.
|
||||
104
packages/extra/lua/lualib.pas
Normal file
104
packages/extra/lua/lualib.pas
Normal file
@ -0,0 +1,104 @@
|
||||
(******************************************************************************
|
||||
* *
|
||||
* 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
|
||||
*)
|
||||
|
||||
{$IFDEF FPC}{$MODE OBJFPC}{$H+}{$ENDIF}
|
||||
|
||||
unit lualib;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
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';
|
||||
|
||||
function luaopen_base(L: Plua_State): LongBool; cdecl;
|
||||
function luaopen_table(L: Plua_State): LongBool; cdecl;
|
||||
function luaopen_io(L: Plua_State): LongBool; cdecl;
|
||||
function luaopen_string(L: Plua_State): LongBool; cdecl;
|
||||
function luaopen_math(L: Plua_State): LongBool; cdecl;
|
||||
function luaopen_debug(L: Plua_State): LongBool; cdecl;
|
||||
function luaopen_package(L: Plua_State): LongBool; cdecl;
|
||||
|
||||
(* open all previous libraries *)
|
||||
procedure luaL_openlibs(L: Plua_State); cdecl;
|
||||
|
||||
(* compatibility code *)
|
||||
|
||||
function lua_baselibopen(L: Plua_State): LongBool;
|
||||
function lua_tablibopen(L: Plua_State): LongBool;
|
||||
function lua_iolibopen(L: Plua_State): LongBool;
|
||||
function lua_strlibopen(L: Plua_State): LongBool;
|
||||
function lua_mathlibopen(L: Plua_State): LongBool;
|
||||
function lua_dblibopen(L: Plua_State): LongBool;
|
||||
|
||||
implementation
|
||||
|
||||
function luaopen_base(L: Plua_State): LongBool; cdecl; external LUA_LIB_NAME;
|
||||
function luaopen_table(L: Plua_State): LongBool; cdecl; external LUA_LIB_NAME;
|
||||
function luaopen_io(L: Plua_State): LongBool; cdecl; external LUA_LIB_NAME;
|
||||
function luaopen_string(L: Plua_State): LongBool; cdecl; external LUA_LIB_NAME;
|
||||
function luaopen_math(L: Plua_State): LongBool; cdecl; external LUA_LIB_NAME;
|
||||
function luaopen_debug(L: Plua_State): LongBool; cdecl; external LUA_LIB_NAME;
|
||||
function luaopen_package(L: Plua_State): LongBool; cdecl; external LUA_LIB_NAME;
|
||||
|
||||
procedure luaL_openlibs(L: Plua_State); cdecl; external LUA_LIB_NAME;
|
||||
|
||||
function lua_baselibopen(L: Plua_State): LongBool;
|
||||
begin
|
||||
Result := luaopen_base(L);
|
||||
end;
|
||||
|
||||
function lua_tablibopen(L: Plua_State): LongBool;
|
||||
begin
|
||||
Result := luaopen_table(L);
|
||||
end;
|
||||
|
||||
function lua_iolibopen(L: Plua_State): LongBool;
|
||||
begin
|
||||
Result := luaopen_io(L);
|
||||
end;
|
||||
|
||||
function lua_strlibopen(L: Plua_State): LongBool;
|
||||
begin
|
||||
Result := luaopen_string(L);
|
||||
end;
|
||||
|
||||
function lua_mathlibopen(L: Plua_State): LongBool;
|
||||
begin
|
||||
Result := luaopen_math(L);
|
||||
end;
|
||||
|
||||
function lua_dblibopen(L: Plua_State): LongBool;
|
||||
begin
|
||||
Result := luaopen_debug(L);
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user