{$HINTS OFF}

{$INCLUDE "options.inc"}

unit LuaPas;

(*

 * A complete Pascal wrapper for Lua 5.1 DLL module.

 *

 * Created by Geo Massar, 2006

 * Distributed as free/open source.

 *)

interface

uses uConsts;

{.$DEFINE LUA_GETHOOK}

{$IFNDEF WIN32}

    {$linklib lua}

{$ENDIF}

type

{$IFNDEF PAS2C}

    size_t   = Cardinal;

{$ENDIF}

    Psize_t  = ^size_t;

    PPointer = ^Pointer;

    lua_State = record end;

    Plua_State = ^lua_State;

(*****************************************************************************)

(*                               luaconfig.h                                 *)

(*****************************************************************************)

(*

** $Id: luaconf.h,v 1.81 2006/02/10 17:44:06 roberto Exp $

** Configuration file for Lua

** See Copyright Notice in lua.h

*)

(*

** {==================================================================

@@ LUA_NUMBER is the type of numbers in Lua.

** CHANGE the following definitions only if you want to build Lua

** with a number type different from double. You may also need to

** change lua_number2int & lua_number2integer.

** ===================================================================

*)

type

    LUA_NUMBER_  = Double;            // ending underscore is needed in Pascal

    LUA_INTEGER_ = PtrInt;

(*

@@ LUA_IDSIZE gives the maximum size for the description of the source

@* of a function in debug information.

** CHANGE it if you want a different size.

*)

const

    LUA_IDSIZE = 60;

(*

@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system.

*)

const

    LUAL_BUFFERSIZE = 1024;

(*

@@ LUA_PROMPT is the default prompt used by stand-alone Lua.

@@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua.

** CHANGE them if you want different prompts. (You can also change the

** prompts dynamically, assigning to globals _PROMPT/_PROMPT2.)

*)

const

    LUA_PROMPT  = '> ';

    LUA_PROMPT2 = '>> ';

(*

@@ lua_readline defines how to show a prompt and then read a line from

@* the standard input.

@@ lua_saveline defines how to "save" a read line in a "history".

@@ lua_freeline defines how to free a line read by lua_readline.

** CHANGE them if you want to improve this functionality (e.g., by using

** GNU readline and history facilities).

*)

{function  lua_readline(L : Plua_State;

var b : PChar; p : PChar): Boolean;}

procedure lua_saveline(L : Plua_State; idx : LongInt);

procedure lua_freeline(L : Plua_State; b : PChar);

(*

@@ lua_stdin_is_tty detects whether the standard input is a 'tty' (that

@* is, whether we're running lua interactively).

** CHANGE it if you have a better definition for non-POSIX/non-Windows

** systems.

*/

#include <io.h>

#include <stdio.h>

#define lua_stdin_is_tty()  _isatty(_fileno(stdin))

*)

const

    lua_stdin_is_tty = TRUE;

(*****************************************************************************)

(*                                  lua.h                                    *)

(*****************************************************************************)

(*

** $Id: lua.h,v 1.216 2006/01/10 12:50:13 roberto Exp $

** Lua - An Extensible Extension Language

** Lua.org, PUC-Rio, Brazil (https://www.lua.org)

** See Copyright Notice at the end of this file

*)

const

    LUA_VERSION     = 'Lua 5.1';

    LUA_VERSION_NUM = 501;

    LUA_COPYRIGHT   = 'Copyright (C) 1994-2006 Tecgraf, PUC-Rio';

    LUA_AUTHORS     = 'R. Ierusalimschy, L. H. de Figueiredo & W. Celes';

    (* mark for precompiled code (`<esc>Lua') *)

    //LUA_SIGNATURE = #27'Lua';

    (* 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(idx : LongInt) : LongInt;   // a marco

const

   (* thread status; 0 is OK *)

    LUA_YIELD_    = 1;     // Note: the ending underscore is needed in Pascal

    LUA_ERRRUN    = 2;

    LUA_ERRSYNTAX = 3;

    LUA_ERRMEM    = 4;

    LUA_ERRERR    = 5;

type

   lua_CFunction = function(L : Plua_State) : LongInt; cdecl;

    (*

    ** functions that read/write blocks when loading/dumping Lua chunks

    *)

    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) : LongInt; cdecl;

  (*

  ** prototype for memory-allocation functions

  *)

  lua_Alloc = function (ud, ptr : Pointer; osize, nsize : size_t) : Pointer; cdecl;

const

    (*

    ** basic types

    *)

    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 = LUA_NUMBER_;

    (* type for integer functions *)

    lua_Integer = LUA_INTEGER_;

(*

** state manipulation

*)

function  lua_newstate(f : lua_Alloc; ud : Pointer) : Plua_State;

    cdecl; external LuaLibName;

procedure lua_close(L: Plua_State);

    cdecl; external LuaLibName;

function  lua_newthread(L : Plua_State) : Plua_State;

    cdecl; external LuaLibName;

function  lua_atpanic(L : Plua_State; panicf : lua_CFunction) : lua_CFunction;

    cdecl; external LuaLibName;

(*

** basic stack manipulation

*)

function  lua_gettop(L : Plua_State) : LongInt;

    cdecl; external LuaLibName;

procedure lua_settop(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_pushvalue(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_remove(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_insert(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_replace(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

function  lua_checkstack(L : Plua_State; sz : LongInt) : LongBool;

    cdecl; external LuaLibName;

procedure lua_xmove(src, dest : Plua_State; n : LongInt);

    cdecl; external LuaLibName;

(*

** access functions (stack -> C)

*)

function lua_isnumber(L : Plua_State; idx : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_isstring(L : Plua_State; idx : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_iscfunction(L : Plua_State; idx : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_isuserdata(L : Plua_State; idx : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_type(L : Plua_State; idx : LongInt) : LongInt;

    cdecl; external LuaLibName;

function lua_typename(L : Plua_State; tp : LongInt) : PChar;

    cdecl; external LuaLibName;

function lua_equal(L : Plua_State; idx1, idx2 : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_rawequal(L : Plua_State; idx1, idx2 : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_lessthan(L : Plua_State; idx1, idx2 : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_tonumber(L : Plua_State; idx : LongInt) : lua_Number;

    cdecl; external LuaLibName;

function lua_tointeger(L : Plua_State; idx : LongInt) : lua_Integer;

    cdecl; external LuaLibName;

function lua_toboolean(L : Plua_State; idx : LongInt) : LongBool;

    cdecl; external LuaLibName;

function lua_tolstring(L : Plua_State; idx : LongInt; len : Psize_t) : PChar;

    cdecl; external LuaLibName;

function lua_objlen(L : Plua_State; idx : LongInt) : size_t;

    cdecl; external LuaLibName;

function lua_tocfunction(L : Plua_State; idx : LongInt) : lua_CFunction;

    cdecl; external LuaLibName;

function lua_touserdata(L : Plua_State; idx : LongInt) : Pointer;

    cdecl; external LuaLibName;

function lua_tothread(L : Plua_State; idx : LongInt) : Plua_State;

    cdecl; external LuaLibName;

function lua_topointer(L : Plua_State; idx : LongInt) : Pointer;

    cdecl; external LuaLibName;

(*

** push functions (C -> stack)

*)

procedure lua_pushnil(L : Plua_State);

    cdecl; external LuaLibName;

procedure lua_pushnumber(L : Plua_State; n : lua_Number);

    cdecl; external LuaLibName;

procedure lua_pushinteger(L : Plua_State; n : lua_Integer);

    cdecl; external LuaLibName;

procedure lua_pushlstring(L : Plua_State; const s : PChar; ls : size_t);

    cdecl; external LuaLibName;

procedure lua_pushstring(L : Plua_State; const s : PChar);

    cdecl; external LuaLibName;

function  lua_pushvfstring(L : Plua_State;

    const fmt : PChar; argp : Pointer) : PChar;

    cdecl; external LuaLibName;

function  lua_pushfstring(L : Plua_State; const fmt : PChar) : PChar; varargs;

    cdecl; external LuaLibName;

procedure lua_pushcclosure(L : Plua_State; fn : lua_CFunction; n : LongInt);

    cdecl; external LuaLibName;

procedure lua_pushboolean(L : Plua_State; b : LongBool);

    cdecl; external LuaLibName;

procedure lua_pushlightuserdata(L : Plua_State; p : Pointer);

    cdecl; external LuaLibName;

function  lua_pushthread(L : Plua_state) : Cardinal;

    cdecl; external LuaLibName;

(*

** get functions (Lua -> stack)

*)

procedure lua_gettable(L : Plua_State ; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_getfield(L : Plua_State; idx : LongInt; k : PChar);

    cdecl; external LuaLibName;

procedure lua_rawget(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_rawgeti(L : Plua_State; idx, n : LongInt);

    cdecl; external LuaLibName;

procedure lua_createtable(L : Plua_State; narr, nrec : LongInt);

    cdecl; external LuaLibName;

function  lua_newuserdata(L : Plua_State; sz : size_t) : Pointer;

    cdecl; external LuaLibName;

function  lua_getmetatable(L : Plua_State; objindex : LongInt) : LongBool;

    cdecl; external LuaLibName;

procedure lua_getfenv(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

(*

** set functions (stack -> Lua)

*)

procedure lua_settable(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_setfield(L : Plua_State; idx : LongInt; const k : PChar);

    cdecl; external LuaLibName;

procedure lua_rawset(L : Plua_State; idx : LongInt);

    cdecl; external LuaLibName;

procedure lua_rawseti(L : Plua_State; idx , n: LongInt);

    cdecl; external LuaLibName;

function lua_setmetatable(L : Plua_State; objindex : LongInt): LongBool;

    cdecl; external LuaLibName;

function lua_setfenv(L : Plua_State; idx : LongInt): LongBool;

    cdecl; external LuaLibName;

(*

** `load' and `call' functions (load and run Lua code)

*)

procedure lua_call(L : Plua_State; nargs, nresults : LongInt);

    cdecl; external LuaLibName;

function  lua_pcall(L : Plua_State; nargs, nresults, errfunc : LongInt) : LongInt;

    cdecl; external LuaLibName;

function  lua_cpcall(L : Plua_State; func : lua_CFunction; ud : Pointer) : LongInt;

    cdecl; external LuaLibName;

function  lua_load(L : Plua_State; reader : lua_Reader; dt : Pointer; const chunkname : PChar) : LongInt;

    cdecl; external LuaLibName;

function lua_dump(L : Plua_State; writer : lua_Writer; data: Pointer) : LongInt;

    cdecl; external LuaLibName;

(*

** coroutine functions

*)

function lua_yield(L : Plua_State; nresults : LongInt) : LongInt;

    cdecl; external LuaLibName;

function lua_resume(L : Plua_State; narg : LongInt) : LongInt;

    cdecl; external LuaLibName;

function lua_status(L : Plua_State) : LongInt;

    cdecl; external LuaLibName;

(*

** 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 : LongInt) : LongInt;

    cdecl; external LuaLibName;

(*

** miscellaneous functions

*)

function lua_error(L : Plua_State) : LongInt;

    cdecl; external LuaLibName;

function lua_next(L : Plua_State; idx : LongInt) : LongInt;

    cdecl; external LuaLibName;

procedure lua_concat(L : Plua_State; n : LongInt);

    cdecl; external LuaLibName;

function  lua_getallocf(L : Plua_State; ud : PPointer) : lua_Alloc;

    cdecl; external LuaLibName;

procedure lua_setallocf(L : Plua_State; f : lua_Alloc; ud : Pointer);

    cdecl; external LuaLibName;

(*

** ===============================================================

** some useful macros

** ===============================================================

*)

procedure lua_pop(L : Plua_State; n : LongInt);

procedure lua_newtable(L : Plua_State);

procedure lua_register(L : Plua_State; n : PChar; f : lua_CFunction);

procedure lua_pushcfunction(L : Plua_State; f : lua_CFunction);

function  lua_strlen(L : Plua_State; idx : LongInt) : LongInt;

function lua_isfunction(L : Plua_State; n : LongInt) : Boolean;

function lua_istable(L : Plua_State; n : LongInt) : Boolean;

function lua_islightuserdata(L : Plua_State; n : LongInt) : Boolean;

function lua_isnil(L : Plua_State; n : LongInt) : Boolean;

function lua_isboolean(L : Plua_State; n : LongInt) : Boolean;

function lua_isthread(L : Plua_State; n : LongInt) : Boolean;

function lua_isnone(L : Plua_State; n : LongInt) : Boolean;

function lua_isnoneornil(L : Plua_State; n : LongInt) : Boolean;

procedure lua_pushliteral(L : Plua_State; s : PChar);