A Classic Fairytale: Harden all missions against missing campaign variables in team file and assume default values
This assumes the worst case in which the team file is missing all campaign variables except Progress.
This has been successfully tested with all 10 missions and still generates a logical storyline.
By default, the game assumes:
- The cyborg's offer in mission 2 was refused
- The traitor in mission 5 was killed
As a consequence, missions 8 and 10 use the princessScene cut scene.
{$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}
const LuaLibName = {$IFDEF LUA_INTERNAL}'libhwlua'{$ELSE}'liblua'{$ENDIF};
{$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 (http://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);
procedure lua_setglobal(L : Plua_State; s : PChar);
procedure lua_getglobal(L : Plua_State; s : PChar);
function lua_tostring(L : Plua_State; idx : LongInt) : shortstring;
function lua_tostringA(L : Plua_State; idx : LongInt) : ansistring;
(*
** compatibility macros and functions
*)
function lua_open : Plua_State;
procedure lua_getregistry(L : Plua_State);
function lua_getgccount(L : Plua_State) : LongInt;
type
lua_Chuckreader = lua_Reader;
lua_Chuckwriter = lua_Writer;
(* ====================================================================== *)
(*
** {======================================================================
** Debug API
** =======================================================================
*)
(*
** Event codes
*)
const
LUA_HOOKCALL = 0;
LUA_HOOKRET = 1;
LUA_HOOKLINE = 2;
LUA_HOOKCOUNT = 3;
LUA_HOOKTAILRET = 4;
(*
** Event masks
*)
LUA_MASKCALL = 1 shl LUA_HOOKCALL;
LUA_MASKRET = 1 shl LUA_HOOKRET;
LUA_MASKLINE = 1 shl LUA_HOOKLINE;
LUA_MASKCOUNT = 1 shl LUA_HOOKCOUNT;
type
lua_Debug = packed record
event : LUA_INTEGER_;
name : PChar; (* (n) *)
namewhat : PChar; (* (n) `global', `local', `field', `method' *)
what : PChar; (* (S) `Lua', `C', `main', `tail' *)
source : PChar; (* (S) *)
currentline : LUA_INTEGER_; (* (l) *)
nups : LUA_INTEGER_; (* (u) number of upvalues *)
linedefined : LUA_INTEGER_; (* (S) *)
short_src : array [0..LUA_IDSIZE-1] of Char; (* (S) *)
(* private part *)
i_ci : LUA_INTEGER_; (* active function *)
end;
Plua_Debug = ^lua_Debug;
(* Functions to be called by the debuger in specific events *)
lua_Hook = procedure (L : Plua_State; ar : Plua_Debug); cdecl;
function lua_getstack(L : Plua_State; level : LongInt; ar : Plua_Debug) : LongInt;
cdecl; external LuaLibName;
function lua_getinfo(L : Plua_State; const what : PChar; ar: Plua_Debug): LongInt;
cdecl; external LuaLibName;
function lua_getlocal(L : Plua_State; ar : Plua_Debug; n : LongInt) : PChar;
cdecl; external LuaLibName;
function lua_setlocal(L : Plua_State; ar : Plua_Debug; n : LongInt) : PChar;
cdecl; external LuaLibName;
function lua_getupvalue(L : Plua_State; funcindex, n : LongInt) : PChar;
cdecl; external LuaLibName;
function lua_setupvalue(L : Plua_State; funcindex, n : LongInt) : PChar;
cdecl; external LuaLibName;
function lua_sethook(L : Plua_State; func : lua_Hook; mask, count: LongInt): LongInt;
cdecl; external LuaLibName;
{$IFDEF LUA_GETHOOK}
function lua_gethook(L : Plua_State) : lua_Hook;
cdecl; external LuaLibName;
{$ENDIF}
function lua_gethookmask(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function lua_gethookcount(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
(*****************************************************************************)
(* lualib.h *)
(*****************************************************************************)
(*
** $Id: lualib.h,v 1.36 2005/12/27 17:12:00 roberto Exp $
** Lua standard libraries
** See Copyright Notice at the end of this file
*)
const
(* Key to file-handle type *)
LUA_FILEHANDLE = 'FILE*';
LUA_COLIBNAME = 'coroutine';
LUA_TABLIBNAME = 'table';
LUA_IOLIBNAME = 'io';
LUA_OSLIBNAME = 'os';
LUA_STRLIBNAME = 'string';
LUA_MATHLIBNAME = 'math';
LUA_DBLIBNAME = 'debug';
LUA_LOADLIBNAME = 'package';
function luaopen_base(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function luaopen_table(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function luaopen_io(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function luaopen_os(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function luaopen_string(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function luaopen_math(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function luaopen_debug(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
function luaopen_package(L : Plua_State) : LongInt;
cdecl; external LuaLibName;
procedure luaL_openlibs(L : Plua_State);
cdecl; external LuaLibName;
procedure lua_assert(x : Boolean); // a macro
(*****************************************************************************)
(* lauxlib.h *)
(*****************************************************************************)
(*
** $Id: lauxlib.h,v 1.87 2005/12/29 15:32:11 roberto Exp $
** Auxiliary functions for building Lua libraries
** See Copyright Notice at the end of this file.
*)
// not compatibility with the behavior of setn/getn in Lua 5.0
function luaL_getn(L : Plua_State; idx : LongInt) : LongInt;
procedure luaL_setn(L : Plua_State; i, j : LongInt);
const
LUA_ERRFILE = LUA_ERRERR + 1;
type
luaL_Reg = packed 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 : LongInt);
cdecl; external LuaLibName;
procedure luaL_register(L : Plua_State; const libname : PChar; const lr : PluaL_Reg);
cdecl; external LuaLibName;
function luaL_getmetafield(L : Plua_State; obj : LongInt; const e : PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_callmeta(L : Plua_State; obj : LongInt; const e : PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_typerror(L : Plua_State; narg : LongInt; const tname : PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_argerror(L : Plua_State; numarg : LongInt; const extramsg : PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_checklstring(L : Plua_State; numArg : LongInt; ls : Psize_t) : PChar;
cdecl; external LuaLibName;
function luaL_optlstring(L : Plua_State; numArg : LongInt; const def: PChar; ls: Psize_t) : PChar;
cdecl; external LuaLibName;
function luaL_checknumber(L : Plua_State; numArg : LongInt) : lua_Number;
cdecl; external LuaLibName;
function luaL_optnumber(L : Plua_State; nArg : LongInt; def : lua_Number) : lua_Number;
cdecl; external LuaLibName;
function luaL_checkinteger(L : Plua_State; numArg : LongInt) : lua_Integer;
cdecl; external LuaLibName;
function luaL_optinteger(L : Plua_State; nArg : LongInt; def : lua_Integer) : lua_Integer;
cdecl; external LuaLibName;
procedure luaL_checkstack(L : Plua_State; sz : LongInt; const msg : PChar);
cdecl; external LuaLibName;
procedure luaL_checktype(L : Plua_State; narg, t : LongInt);
cdecl; external LuaLibName;
procedure luaL_checkany(L : Plua_State; narg : LongInt);
cdecl; external LuaLibName;
function luaL_newmetatable(L : Plua_State; const tname : PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_checkudata(L : Plua_State; ud : LongInt; const tname : PChar) : Pointer;
cdecl; external LuaLibName;
procedure luaL_where(L : Plua_State; lvl : LongInt);
cdecl; external LuaLibName;
function luaL_error(L : Plua_State; const fmt : PChar) : LongInt; varargs;
cdecl; external LuaLibName;
function luaL_checkoption(L : Plua_State; narg : LongInt; const def : PChar; const lst : array of PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_ref(L : Plua_State; t : LongInt) : LongInt;
cdecl; external LuaLibName;
procedure luaL_unref(L : Plua_State; t, ref : LongInt);
cdecl; external LuaLibName;
function luaL_loadfile(L : Plua_State; const filename : PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_loadbuffer(L : Plua_State; const buff : PChar; sz : size_t; const name: PChar) : LongInt;
cdecl; external LuaLibName;
function luaL_loadstring(L : Plua_State; const s : Pchar) : LongInt;
cdecl; external LuaLibName;
function luaL_newstate : Plua_State;
cdecl; external LuaLibName;
function luaL_gsub(L : Plua_State; const s, p, r : PChar) : PChar;
cdecl; external LuaLibName;
function luaL_findtable(L : Plua_State; idx : LongInt; const fname : PChar; szhint : LongInt) : PChar;
cdecl; external LuaLibName;
(*
** ===============================================================
** some useful macros
** ===============================================================
*)
function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : LongInt; extramsg : PChar): LongInt;
function luaL_checkstring(L : Plua_State; n : LongInt) : PChar;
function luaL_optstring(L : Plua_State; n : LongInt; d : PChar) : PChar;
function luaL_checkint(L : Plua_State; n : LongInt) : lua_Integer;
function luaL_optint(L : Plua_State; n : LongInt; d : lua_Integer): lua_Integer;
function luaL_checklong(L : Plua_State; n : LongInt) : lua_Integer;
function luaL_optlong(L : Plua_State; n : LongInt; d : lua_Integer) : lua_Integer;
function luaL_typename(L : Plua_State; idx : LongInt) : PChar;
function luaL_dofile(L : Plua_State; fn : PChar) : LongInt;
function luaL_dostring(L : Plua_State; s : PChar) : LongInt;
procedure luaL_getmetatable(L : Plua_State; n : PChar);
(* not implemented yet
#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))
*)
(*
** {======================================================
** Generic Buffer manipulation
** =======================================================
*)
type
luaL_Buffer = packed record
p : PChar; (* current position in buffer *)
lvl : LongInt; (* number of strings in the stack (level) *)
L : Plua_State;
buffer : array [0..LUAL_BUFFERSIZE-1] of Char;
end;
PluaL_Buffer = ^luaL_Buffer;
procedure luaL_addchar(B : PluaL_Buffer; c : Char);
(* compatibility only *)
procedure luaL_putchar(B : PluaL_Buffer; c : Char);
procedure luaL_addsize(B : PluaL_Buffer; n : LongInt);
procedure luaL_buffinit(L : Plua_State; B : PluaL_Buffer);
cdecl; external LuaLibName;
function luaL_prepbuffer(B : PluaL_Buffer) : PChar;
cdecl; external LuaLibName;
procedure luaL_addlstring(B : PluaL_Buffer; const s : PChar; ls : size_t);
cdecl; external LuaLibName;
procedure luaL_addstring(B : PluaL_Buffer; const s : PChar);
cdecl; external LuaLibName;
procedure luaL_addvalue(B : PluaL_Buffer);
cdecl; external LuaLibName;
procedure luaL_pushresult(B : PluaL_Buffer);
cdecl; external LuaLibName;
(* ====================================================== *)
(* compatibility with ref system *)
(* pre-defined references *)
const
LUA_NOREF = -2;
LUA_REFNIL = -1;
function lua_ref(L : Plua_State; lock : Boolean) : LongInt;
procedure lua_unref(L : Plua_State; ref : LongInt);
procedure lua_getref(L : Plua_State; ref : LongInt);
(******************************************************************************)
(******************************************************************************)
(******************************************************************************)
implementation
uses
uUtils;
(*****************************************************************************)
(* luaconfig.h *)
(*****************************************************************************)
{
function lua_readline(L : Plua_State;
var
b : PChar; p : PChar): Boolean;
var
s : AnsiString;
begin
Write(p); // show prompt
ReadLn(s); // get line
b := PChar(s); // and return it
lua_readline := (b[0] <> #4); // test for ctrl-D
end;
}
procedure lua_saveline(L : Plua_State; idx : LongInt);
begin
end;
procedure lua_freeline(L : Plua_State; b : PChar);
begin
end;
(*****************************************************************************)
(* lua.h *)
(*****************************************************************************)
function lua_upvalueindex(idx : LongInt) : LongInt;
begin
lua_upvalueindex := LUA_GLOBALSINDEX - idx;
end;
procedure lua_pop(L : Plua_State; n : LongInt);
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; 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; idx : LongInt) : LongInt;
begin
lua_strlen := lua_objlen(L, idx);
end;
function lua_isfunction(L : Plua_State; n : LongInt) : Boolean;
begin
lua_isfunction := lua_type(L, n) = LUA_TFUNCTION;
end;
function lua_istable(L : Plua_State; n : LongInt) : Boolean;
begin
lua_istable := lua_type(L, n) = LUA_TTABLE;
end;
function lua_islightuserdata(L : Plua_State; n : LongInt) : Boolean;
begin
lua_islightuserdata := lua_type(L, n) = LUA_TLIGHTUSERDATA;
end;
function lua_isnil(L : Plua_State; n : LongInt) : Boolean;
begin
lua_isnil := lua_type(L, n) = LUA_TNIL;
end;
function lua_isboolean(L : Plua_State; n : LongInt) : Boolean;
begin
lua_isboolean := lua_type(L, n) = LUA_TBOOLEAN;
end;
function lua_isthread(L : Plua_State; n : LongInt) : Boolean;
begin
lua_isthread := lua_type(L, n) = LUA_TTHREAD;
end;
function lua_isnone(L : Plua_State; n : LongInt) : Boolean;
begin
lua_isnone := lua_type(L, n) = LUA_TNONE;
end;
function lua_isnoneornil(L : Plua_State; n : LongInt) : Boolean;
begin
lua_isnoneornil := lua_type(L, n) <= 0;
end;
procedure lua_pushliteral(L : Plua_State; s : PChar);
begin
lua_pushlstring(L, s, StrLen(s));
end;
procedure lua_setglobal(L : Plua_State; s : PChar);
begin
lua_setfield(L, LUA_GLOBALSINDEX, s);
end;
procedure lua_getglobal(L: Plua_State; s: PChar);
begin
lua_getfield(L, LUA_GLOBALSINDEX, s);
end;
function lua_tostring(L : Plua_State; idx : LongInt) : shortstring;
begin
lua_tostring := StrPas(lua_tolstring(L, idx, nil));
end;
function lua_tostringA(L : Plua_State; idx : LongInt) : ansistring;
var p: PChar;
begin
p:= lua_tolstring(L, idx, nil);
lua_tostringA := ansistring(p);
end;
function lua_open : Plua_State;
begin
lua_open := luaL_newstate;
end;
procedure lua_getregistry(L : Plua_State);
begin
lua_pushvalue(L, LUA_REGISTRYINDEX);
end;
function lua_getgccount(L : Plua_State) : LongInt;
begin
lua_getgccount := lua_gc(L, LUA_GCCOUNT, 0);
end;
(*****************************************************************************)
(* lualib.h *)
(*****************************************************************************)
procedure lua_assert(x : Boolean);
begin
end;
(*****************************************************************************)
(* lauxlib.h n *)
(*****************************************************************************)
function luaL_getn(L : Plua_State; idx : LongInt) : LongInt;
begin
luaL_getn := lua_objlen(L, idx);
end;
procedure luaL_setn(L : plua_State; i, j : LongInt);
begin
(* no op *)
end;
function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : LongInt; extramsg : PChar): LongInt;
begin
if not cond then
luaL_argcheck := luaL_argerror(L, numarg, extramsg)
else
luaL_argcheck := 0;
end;
function luaL_checkstring(L : Plua_State; n : LongInt) : PChar;
begin
luaL_checkstring := luaL_checklstring(L, n, nil);
end;
function luaL_optstring(L : Plua_State; n : LongInt; d : PChar) : PChar;
begin
luaL_optstring := luaL_optlstring(L, n, d, nil);
end;
function luaL_checkint(L : Plua_State; n : LongInt) : lua_Integer;
begin
luaL_checkint := luaL_checkinteger(L, n);
end;
function luaL_optint(L : Plua_State; n : LongInt; d : lua_Integer): lua_Integer;
begin
luaL_optint := luaL_optinteger(L, n, d);
end;
function luaL_checklong(L : Plua_State; n : LongInt) : lua_Integer;
begin
luaL_checklong := luaL_checkinteger(L, n);
end;
function luaL_optlong(L : Plua_State; n : LongInt; d : lua_Integer) : lua_Integer;
begin
luaL_optlong := luaL_optinteger(L, n, d);
end;
function luaL_typename(L : Plua_State; idx : LongInt) : PChar;
begin
luaL_typename := lua_typename( L, lua_type(L, idx) );
end;
function luaL_dofile(L : Plua_State; fn : PChar) : LongInt;
begin
luaL_dofile := luaL_loadfile(L, fn);
if luaL_dofile = 0 then
luaL_dofile := lua_pcall(L, 0, 0, 0);
end;
function luaL_dostring(L : Plua_State; s : PChar) : LongInt;
begin
luaL_dostring := luaL_loadstring(L, s);
if luaL_dostring = 0 then
luaL_dostring := lua_pcall(L, 0, 0, 0);
end;
procedure luaL_getmetatable(L : Plua_State; n : PChar);
begin
lua_getfield(L, LUA_REGISTRYINDEX, n);
end;
procedure luaL_addchar(B : PluaL_Buffer; c : Char);
begin
if not(B^.p < B^.buffer + LUAL_BUFFERSIZE) then
luaL_prepbuffer(B);
(B^.p^) := c;
Inc(B^.p);
end;
procedure luaL_putchar(B : PluaL_Buffer; c : Char);
begin
luaL_addchar(B, c);
end;
procedure luaL_addsize(B : PluaL_Buffer; n : LongInt);
begin
Inc(B^.p, n);
end;
function lua_ref(L : Plua_State; lock : Boolean) : LongInt;
begin
if lock then
lua_ref := luaL_ref(L, LUA_REGISTRYINDEX)
else
begin
lua_pushstring(L, _P'unlocked references are obsolete');
lua_error(L);
lua_ref := 0;
end;
end;
procedure lua_unref(L : Plua_State; ref : LongInt);
begin
luaL_unref(L, LUA_REGISTRYINDEX, ref);
end;
procedure lua_getref(L : Plua_State; ref : LongInt);
begin
lua_rawgeti(L, LUA_REGISTRYINDEX, ref);
end;
(******************************************************************************
* Original copyright for the lua source and headers:
* 1994-2004 Tecgraf, PUC-Rio.
* www.lua.org.
*
*
* 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.
{$HINTS ON}