hedgewars/LuaPas.pas
author koda
Wed, 10 Feb 2010 22:00:49 +0000
changeset 2799 558b29bf00c5
parent 2786 85f6425a4d74
child 2809 b8956af350c1
permissions -rw-r--r--
add a new way to fetch version info from pascal to c complete the stubs for the new lua section fixed a glitch in the ifrontend
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     1
unit LuaPas;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     2
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     3
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     4
 * A complete Pascal wrapper for Lua 5.1 DLL module.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     5
 *
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     6
 * Created by Geo Massar, 2006
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     7
 * Distributed as free/open source.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     8
 *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
     9
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    10
interface
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    11
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    12
{.$DEFINE LUA_GETHOOK}
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    13
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    14
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    15
  size_t   = type Cardinal;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    16
  Psize_t  = ^size_t;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    17
  PPointer = ^Pointer;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    18
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    19
  lua_State = record end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    20
  Plua_State = ^lua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    21
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    22
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    23
{$IFDEF UNIX}
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
    24
  LuaLibName = 'lua5.1.so';
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
    25
{$IFDEF DARWIN}
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
    26
    LuaLibName = 'lua5.1.a';
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
    27
{$ENDIF}
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    28
{$ELSE}
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
    29
  LuaLibName = 'lua5.1.dll';
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    30
{$ENDIF}
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    31
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    32
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    33
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    34
(*                               luaconfig.h                                 *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    35
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    36
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    37
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    38
** $Id: luaconf.h,v 1.81 2006/02/10 17:44:06 roberto Exp $
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    39
** Configuration file for Lua
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    40
** See Copyright Notice in lua.h
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    41
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    42
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    43
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    44
** {==================================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    45
@@ LUA_NUMBER is the type of numbers in Lua.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    46
** CHANGE the following definitions only if you want to build Lua
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    47
** with a number type different from double. You may also need to
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    48
** change lua_number2int & lua_number2integer.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    49
** ===================================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    50
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    51
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    52
  LUA_NUMBER_  = type Double;            // ending underscore is needed in Pascal
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    53
  LUA_INTEGER_ = type LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    54
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    55
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    56
@@ LUA_IDSIZE gives the maximum size for the description of the source
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    57
@* of a function in debug information.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    58
** CHANGE it if you want a different size.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    59
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    60
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    61
  LUA_IDSIZE = 60;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    62
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    63
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    64
@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    65
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    66
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    67
  LUAL_BUFFERSIZE = 1024;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    68
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    69
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    70
@@ LUA_PROMPT is the default prompt used by stand-alone Lua.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    71
@@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    72
** CHANGE them if you want different prompts. (You can also change the
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    73
** prompts dynamically, assigning to globals _PROMPT/_PROMPT2.)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    74
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    75
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    76
  LUA_PROMPT  = '> ';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    77
  LUA_PROMPT2 = '>> ';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    78
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    79
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    80
@@ lua_readline defines how to show a prompt and then read a line from
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    81
@* the standard input.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    82
@@ lua_saveline defines how to "save" a read line in a "history".
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    83
@@ lua_freeline defines how to free a line read by lua_readline.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    84
** CHANGE them if you want to improve this functionality (e.g., by using
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    85
** GNU readline and history facilities).
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    86
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    87
function  lua_readline(L : Plua_State; var b : PChar; p : PChar): Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    88
procedure lua_saveline(L : Plua_State; idx : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    89
procedure lua_freeline(L : Plua_State; b : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    90
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    91
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    92
@@ lua_stdin_is_tty detects whether the standard input is a 'tty' (that
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    93
@* is, whether we're running lua interactively).
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    94
** CHANGE it if you have a better definition for non-POSIX/non-Windows
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    95
** systems.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    96
*/
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    97
#include <io.h>
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    98
#include <stdio.h>
85f6425a4d74 Engine:
smxx
parents:
diff changeset
    99
#define lua_stdin_is_tty()	_isatty(_fileno(stdin))
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   100
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   101
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   102
  lua_stdin_is_tty = TRUE;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   103
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   104
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   105
(*                                  lua.h                                    *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   106
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   107
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   108
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   109
** $Id: lua.h,v 1.216 2006/01/10 12:50:13 roberto Exp $
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   110
** Lua - An Extensible Extension Language
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   111
** Lua.org, PUC-Rio, Brazil (http://www.lua.org)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   112
** See Copyright Notice at the end of this file
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   113
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   114
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   115
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   116
  LUA_VERSION     = 'Lua 5.1';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   117
  LUA_VERSION_NUM = 501;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   118
  LUA_COPYRIGHT   = 'Copyright (C) 1994-2006 Tecgraf, PUC-Rio';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   119
  LUA_AUTHORS     = 'R. Ierusalimschy, L. H. de Figueiredo & W. Celes';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   120
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   121
  (* mark for precompiled code (`<esc>Lua') *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   122
  LUA_SIGNATURE = #27'Lua';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   123
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   124
  (* option for multiple returns in `lua_pcall' and `lua_call' *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   125
  LUA_MULTRET = -1;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   126
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   127
  (*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   128
  ** pseudo-indices
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   129
  *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   130
  LUA_REGISTRYINDEX = -10000;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   131
  LUA_ENVIRONINDEX  = -10001;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   132
  LUA_GLOBALSINDEX  = -10002;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   133
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   134
function lua_upvalueindex(idx : LongInt) : LongInt;   // a marco
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   135
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   136
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   137
  (* thread status; 0 is OK *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   138
  LUA_YIELD_    = 1;     // Note: the ending underscore is needed in Pascal
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   139
  LUA_ERRRUN    = 2;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   140
  LUA_ERRSYNTAX = 3;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   141
  LUA_ERRMEM    = 4;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   142
  LUA_ERRERR    = 5;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   143
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   144
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   145
  lua_CFunction = function(L : Plua_State) : LongInt; cdecl;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   146
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   147
  (*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   148
  ** functions that read/write blocks when loading/dumping Lua chunks
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   149
  *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   150
  lua_Reader = function (L : Plua_State; ud : Pointer;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   151
                         sz : Psize_t) : PChar; cdecl;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   152
  lua_Writer = function (L : Plua_State; const p : Pointer; sz : size_t;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   153
                         ud : Pointer) : LongInt; cdecl;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   154
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   155
  (*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   156
  ** prototype for memory-allocation functions
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   157
  *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   158
  lua_Alloc = function (ud, ptr : Pointer;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   159
                        osize, nsize : size_t) : Pointer; cdecl;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   160
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   161
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   162
  (*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   163
  ** basic types
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   164
  *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   165
  LUA_TNONE          = -1;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   166
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   167
  LUA_TNIL           = 0;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   168
  LUA_TBOOLEAN       = 1;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   169
  LUA_TLIGHTUSERDATA = 2;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   170
  LUA_TNUMBER        = 3;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   171
  LUA_TSTRING        = 4;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   172
  LUA_TTABLE         = 5;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   173
  LUA_TFUNCTION      = 6;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   174
  LUA_TUSERDATA	     = 7;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   175
  LUA_TTHREAD        = 8;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   176
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   177
  (* minimum Lua stack available to a C function *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   178
  LUA_MINSTACK = 20;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   179
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   180
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   181
  (* type of numbers in Lua *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   182
  lua_Number = LUA_NUMBER_;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   183
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   184
  (* type for integer functions *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   185
  lua_Integer = LUA_INTEGER_;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   186
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   187
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   188
** state manipulation
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   189
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   190
function  lua_newstate(f : lua_Alloc; ud : Pointer) : Plua_State;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   191
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   192
procedure lua_close(L: Plua_State);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   193
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   194
function  lua_newthread(L : Plua_State) : Plua_State;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   195
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   196
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   197
function  lua_atpanic(L : Plua_State; panicf : lua_CFunction) : lua_CFunction;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   198
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   199
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   200
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   201
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   202
** basic stack manipulation
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   203
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   204
function  lua_gettop(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   205
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   206
procedure lua_settop(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   207
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   208
procedure lua_pushvalue(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   209
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   210
procedure lua_remove(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   211
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   212
procedure lua_insert(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   213
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   214
procedure lua_replace(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   215
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   216
function  lua_checkstack(L : Plua_State; sz : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   217
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   218
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   219
procedure lua_xmove(src, dest : Plua_State; n : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   220
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   221
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   222
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   223
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   224
** access functions (stack -> C)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   225
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   226
function lua_isnumber(L : Plua_State; idx : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   227
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   228
function lua_isstring(L : Plua_State; idx : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   229
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   230
function lua_iscfunction(L : Plua_State; idx : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   231
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   232
function lua_isuserdata(L : Plua_State; idx : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   233
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   234
function lua_type(L : Plua_State; idx : LongInt) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   235
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   236
function lua_typename(L : Plua_State; tp : LongInt) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   237
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   238
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   239
function lua_equal(L : Plua_State; idx1, idx2 : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   240
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   241
function lua_rawequal(L : Plua_State; idx1, idx2 : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   242
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   243
function lua_lessthan(L : Plua_State; idx1, idx2 : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   244
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   245
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   246
function lua_tonumber(L : Plua_State; idx : LongInt) : lua_Number;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   247
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   248
function lua_tointeger(L : Plua_State; idx : LongInt) : lua_Integer;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   249
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   250
function lua_toboolean(L : Plua_State; idx : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   251
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   252
function lua_tolstring(L : Plua_State; idx : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   253
                       len : Psize_t) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   254
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   255
function lua_objlen(L : Plua_State; idx : LongInt) : size_t;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   256
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   257
function lua_tocfunction(L : Plua_State; idx : LongInt) : lua_CFunction;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   258
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   259
function lua_touserdata(L : Plua_State; idx : LongInt) : Pointer;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   260
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   261
function lua_tothread(L : Plua_State; idx : LongInt) : Plua_State;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   262
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   263
function lua_topointer(L : Plua_State; idx : LongInt) : Pointer;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   264
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   265
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   266
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   267
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   268
** push functions (C -> stack)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   269
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   270
procedure lua_pushnil(L : Plua_State);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   271
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   272
procedure lua_pushnumber(L : Plua_State; n : lua_Number);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   273
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   274
procedure lua_pushinteger(L : Plua_State; n : lua_Integer);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   275
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   276
procedure lua_pushlstring(L : Plua_State; const s : PChar; ls : size_t);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   277
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   278
procedure lua_pushstring(L : Plua_State; const s : PChar);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   279
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   280
function  lua_pushvfstring(L : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   281
                           const fmt : PChar; argp : Pointer) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   282
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   283
function  lua_pushfstring(L : Plua_State; const fmt : PChar) : PChar; varargs;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   284
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   285
procedure lua_pushcclosure(L : Plua_State; fn : lua_CFunction; n : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   286
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   287
procedure lua_pushboolean(L : Plua_State; b : LongBool);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   288
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   289
procedure lua_pushlightuserdata(L : Plua_State; p : Pointer);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   290
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   291
function  lua_pushthread(L : Plua_state) : Cardinal;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   292
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   293
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   294
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   295
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   296
** get functions (Lua -> stack)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   297
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   298
procedure lua_gettable(L : Plua_State ; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   299
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   300
procedure lua_getfield(L : Plua_State; idx : LongInt; k : PChar);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   301
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   302
procedure lua_rawget(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   303
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   304
procedure lua_rawgeti(L : Plua_State; idx, n : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   305
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   306
procedure lua_createtable(L : Plua_State; narr, nrec : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   307
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   308
function  lua_newuserdata(L : Plua_State; sz : size_t) : Pointer;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   309
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   310
function  lua_getmetatable(L : Plua_State; objindex : LongInt) : LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   311
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   312
procedure lua_getfenv(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   313
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   314
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   315
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   316
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   317
** set functions (stack -> Lua)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   318
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   319
procedure lua_settable(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   320
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   321
procedure lua_setfield(L : Plua_State; idx : LongInt; const k : PChar);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   322
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   323
procedure lua_rawset(L : Plua_State; idx : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   324
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   325
procedure lua_rawseti(L : Plua_State; idx , n: LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   326
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   327
function lua_setmetatable(L : Plua_State; objindex : LongInt): LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   328
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   329
function lua_setfenv(L : Plua_State; idx : LongInt): LongBool;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   330
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   331
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   332
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   333
** `load' and `call' functions (load and run Lua code)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   334
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   335
procedure lua_call(L : Plua_State; nargs, nresults : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   336
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   337
function  lua_pcall(L : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   338
                    nargs, nresults, errfunc : LongInt) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   339
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   340
function  lua_cpcall(L : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   341
                     func : lua_CFunction; ud : Pointer) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   342
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   343
function  lua_load(L : Plua_State; reader : lua_Reader;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   344
                   dt : Pointer; const chunkname : PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   345
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   346
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   347
function lua_dump(L : Plua_State; writer : lua_Writer; data: Pointer) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   348
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   349
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   350
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   351
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   352
** coroutine functions
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   353
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   354
function lua_yield(L : Plua_State; nresults : LongInt) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   355
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   356
function lua_resume(L : Plua_State; narg : LongInt) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   357
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   358
function lua_status(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   359
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   360
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   361
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   362
** garbage-collection functions and options
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   363
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   364
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   365
  LUA_GCSTOP       = 0;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   366
  LUA_GCRESTART    = 1;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   367
  LUA_GCCOLLECT    = 2;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   368
  LUA_GCCOUNT      = 3;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   369
  LUA_GCCOUNTB	   = 4;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   370
  LUA_GCSTEP       = 5;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   371
  LUA_GCSETPAUSE   = 6;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   372
  LUA_GCSETSTEPMUL = 7;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   373
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   374
function lua_gc(L : Plua_State; what, data : LongInt) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   375
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   376
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   377
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   378
** miscellaneous functions
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   379
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   380
function lua_error(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   381
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   382
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   383
function lua_next(L : Plua_State; idx : LongInt) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   384
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   385
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   386
procedure lua_concat(L : Plua_State; n : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   387
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   388
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   389
function  lua_getallocf(L : Plua_State; ud : PPointer) : lua_Alloc;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   390
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   391
procedure lua_setallocf(L : Plua_State; f : lua_Alloc; ud : Pointer);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   392
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   393
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   394
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   395
** ===============================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   396
** some useful macros
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   397
** ===============================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   398
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   399
procedure lua_pop(L : Plua_State; n : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   400
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   401
procedure lua_newtable(L : Plua_State);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   402
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   403
procedure lua_register(L : Plua_State; n : PChar; f : lua_CFunction);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   404
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   405
procedure lua_pushcfunction(L : Plua_State; f : lua_CFunction);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   406
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   407
function  lua_strlen(L : Plua_State; idx : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   408
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   409
function lua_isfunction(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   410
function lua_istable(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   411
function lua_islightuserdata(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   412
function lua_isnil(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   413
function lua_isboolean(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   414
function lua_isthread(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   415
function lua_isnone(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   416
function lua_isnoneornil(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   417
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   418
procedure lua_pushliteral(L : Plua_State; s : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   419
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   420
procedure lua_setglobal(L : Plua_State; s : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   421
procedure lua_getglobal(L : Plua_State; s : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   422
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   423
function lua_tostring(L : Plua_State; idx : LongInt) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   424
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   425
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   426
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   427
** compatibility macros and functions
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   428
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   429
function lua_open : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   430
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   431
procedure lua_getregistry(L : Plua_State);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   432
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   433
function lua_getgccount(L : Plua_State) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   434
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   435
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   436
  lua_Chuckreader = type lua_Reader;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   437
  lua_Chuckwriter = type lua_Writer;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   438
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   439
(* ====================================================================== *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   440
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   441
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   442
** {======================================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   443
** Debug API
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   444
** =======================================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   445
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   446
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   447
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   448
** Event codes
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   449
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   450
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   451
  LUA_HOOKCALL    = 0;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   452
  LUA_HOOKRET     = 1;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   453
  LUA_HOOKLINE    = 2;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   454
  LUA_HOOKCOUNT   = 3;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   455
  LUA_HOOKTAILRET = 4;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   456
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   457
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   458
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   459
** Event masks
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   460
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   461
  LUA_MASKCALL  = 1 shl LUA_HOOKCALL;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   462
  LUA_MASKRET   = 1 shl LUA_HOOKRET;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   463
  LUA_MASKLINE  = 1 shl LUA_HOOKLINE;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   464
  LUA_MASKCOUNT = 1 shl LUA_HOOKCOUNT;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   465
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   466
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   467
  lua_Debug = packed record
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   468
    event : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   469
    name : PChar;          (* (n) *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   470
    namewhat : PChar;      (* (n) `global', `local', `field', `method' *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   471
    what : PChar;          (* (S) `Lua', `C', `main', `tail' *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   472
    source : PChar;        (* (S) *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   473
    currentline : LongInt; (* (l) *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   474
    nups : LongInt;        (* (u) number of upvalues *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   475
    linedefined : LongInt; (* (S) *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   476
    short_src : array [0..LUA_IDSIZE-1] of Char; (* (S) *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   477
    (* private part *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   478
    i_ci : LongInt;        (* active function *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   479
  end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   480
  Plua_Debug = ^lua_Debug;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   481
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   482
  (* Functions to be called by the debuger in specific events *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   483
  lua_Hook = procedure (L : Plua_State; ar : Plua_Debug); cdecl;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   484
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   485
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   486
function lua_getstack(L : Plua_State; level : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   487
                      ar : Plua_Debug) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   488
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   489
function lua_getinfo(L : Plua_State; const what : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   490
                     ar: Plua_Debug): LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   491
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   492
function lua_getlocal(L : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   493
                      ar : Plua_Debug; n : LongInt) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   494
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   495
function lua_setlocal(L : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   496
                      ar : Plua_Debug; n : LongInt) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   497
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   498
function lua_getupvalue(L : Plua_State; funcindex, n : LongInt) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   499
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   500
function lua_setupvalue(L : Plua_State; funcindex, n : LongInt) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   501
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   502
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   503
function lua_sethook(L : Plua_State; func : lua_Hook;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   504
                     mask, count: LongInt): LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   505
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   506
{$IFDEF LUA_GETHOOK}
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   507
function lua_gethook(L : Plua_State) : lua_Hook;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   508
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   509
{$ENDIF}
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   510
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   511
function lua_gethookmask(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   512
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   513
function lua_gethookcount(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   514
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   515
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   516
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   517
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   518
(*                                  lualib.h                                 *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   519
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   520
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   521
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   522
** $Id: lualib.h,v 1.36 2005/12/27 17:12:00 roberto Exp $
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   523
** Lua standard libraries
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   524
** See Copyright Notice at the end of this file
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   525
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   526
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   527
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   528
  (* Key to file-handle type *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   529
  LUA_FILEHANDLE  = 'FILE*';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   530
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   531
  LUA_COLIBNAME   = 'coroutine';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   532
  LUA_TABLIBNAME  = 'table';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   533
  LUA_IOLIBNAME   = 'io';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   534
  LUA_OSLIBNAME   = 'os';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   535
  LUA_STRLIBNAME  = 'string';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   536
  LUA_MATHLIBNAME = 'math';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   537
  LUA_DBLIBNAME   = 'debug';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   538
  LUA_LOADLIBNAME = 'package';
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   539
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   540
function luaopen_base(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   541
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   542
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   543
function luaopen_table(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   544
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   545
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   546
function luaopen_io(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   547
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   548
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   549
function luaopen_os(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   550
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   551
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   552
function luaopen_string(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   553
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   554
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   555
function luaopen_math(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   556
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   557
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   558
function luaopen_debug(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   559
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   560
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   561
function luaopen_package(L : Plua_State) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   562
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   563
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   564
procedure luaL_openlibs(L : Plua_State);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   565
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   566
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   567
procedure lua_assert(x : Boolean);    // a macro
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   568
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   569
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   570
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   571
(*                                  lauxlib.h                                *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   572
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   573
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   574
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   575
** $Id: lauxlib.h,v 1.87 2005/12/29 15:32:11 roberto Exp $
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   576
** Auxiliary functions for building Lua libraries
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   577
** See Copyright Notice at the end of this file.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   578
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   579
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   580
// not compatibility with the behavior of setn/getn in Lua 5.0
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   581
function  luaL_getn(L : Plua_State; idx : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   582
procedure luaL_setn(L : Plua_State; i, j : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   583
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   584
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   585
  LUA_ERRFILE = LUA_ERRERR + 1;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   586
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   587
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   588
  luaL_Reg = packed record
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   589
    name : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   590
    func : lua_CFunction;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   591
  end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   592
  PluaL_Reg = ^luaL_Reg;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   593
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   594
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   595
procedure luaL_openlib(L : Plua_State; const libname : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   596
                       const lr : PluaL_Reg; nup : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   597
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   598
procedure luaL_register(L : Plua_State; const libname : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   599
                       const lr : PluaL_Reg);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   600
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   601
function luaL_getmetafield(L : Plua_State; obj : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   602
                           const e : PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   603
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   604
function luaL_callmeta(L : Plua_State; obj : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   605
                       const e : PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   606
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   607
function luaL_typerror(L : Plua_State; narg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   608
                       const tname : PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   609
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   610
function luaL_argerror(L : Plua_State; numarg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   611
                       const extramsg : PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   612
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   613
function luaL_checklstring(L : Plua_State; numArg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   614
                           ls : Psize_t) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   615
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   616
function luaL_optlstring(L : Plua_State; numArg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   617
                         const def: PChar; ls: Psize_t) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   618
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   619
function luaL_checknumber(L : Plua_State; numArg : LongInt) : lua_Number;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   620
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   621
function luaL_optnumber(L : Plua_State; nArg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   622
                        def : lua_Number) : lua_Number;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   623
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   624
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   625
function luaL_checkinteger(L : Plua_State; numArg : LongInt) : lua_Integer;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   626
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   627
function luaL_optinteger(L : Plua_State; nArg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   628
                        def : lua_Integer) : lua_Integer;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   629
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   630
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   631
procedure luaL_checkstack(L : Plua_State; sz : LongInt; const msg : PChar);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   632
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   633
procedure luaL_checktype(L : Plua_State; narg, t : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   634
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   635
procedure luaL_checkany(L : Plua_State; narg : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   636
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   637
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   638
function luaL_newmetatable(L : Plua_State; const tname : PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   639
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   640
function luaL_checkudata(L : Plua_State; ud : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   641
                         const tname : PChar) : Pointer;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   642
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   643
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   644
procedure luaL_where(L : Plua_State; lvl : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   645
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   646
function  luaL_error(L : Plua_State; const fmt : PChar) : LongInt; varargs;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   647
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   648
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   649
function luaL_checkoption(L : Plua_State; narg : LongInt; const def : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   650
                          const lst : array of PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   651
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   652
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   653
function  luaL_ref(L : Plua_State; t : LongInt) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   654
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   655
procedure luaL_unref(L : Plua_State; t, ref : LongInt);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   656
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   657
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   658
function luaL_loadfile(L : Plua_State; const filename : PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   659
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   660
function luaL_loadbuffer(L : Plua_State; const buff : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   661
                         sz : size_t; const name: PChar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   662
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   663
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   664
function luaL_loadstring(L : Plua_State; const s : Pchar) : LongInt;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   665
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   666
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   667
function luaL_newstate : Plua_State;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   668
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   669
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   670
function luaL_gsub(L : Plua_State; const s, p, r : PChar) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   671
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   672
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   673
function luaL_findtable(L : Plua_State; idx : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   674
                        const fname : PChar; szhint : LongInt) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   675
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   676
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   677
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   678
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   679
** ===============================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   680
** some useful macros
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   681
** ===============================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   682
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   683
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   684
function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   685
                       extramsg : PChar): LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   686
function luaL_checkstring(L : Plua_State; n : LongInt) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   687
function luaL_optstring(L : Plua_State; n : LongInt; d : PChar) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   688
function luaL_checkint(L : Plua_State; n : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   689
function luaL_optint(L : Plua_State; n, d : LongInt): LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   690
function luaL_checklong(L : Plua_State; n : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   691
function luaL_optlong(L : Plua_State; n : LongInt; d : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   692
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   693
function luaL_typename(L : Plua_State; idx : LongInt) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   694
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   695
function luaL_dofile(L : Plua_State; fn : PChar) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   696
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   697
function luaL_dostring(L : Plua_State; s : PChar) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   698
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   699
procedure luaL_getmetatable(L : Plua_State; n : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   700
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   701
(* not implemented yet
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   702
#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   703
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   704
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   705
(*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   706
** {======================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   707
** Generic Buffer manipulation
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   708
** =======================================================
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   709
*)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   710
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   711
type
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   712
  luaL_Buffer = packed record
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   713
    p : PChar;       (* current position in buffer *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   714
    lvl : LongInt;   (* number of strings in the stack (level) *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   715
    L : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   716
    buffer : array [0..LUAL_BUFFERSIZE-1] of Char;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   717
  end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   718
  PluaL_Buffer = ^luaL_Buffer;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   719
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   720
procedure luaL_addchar(B : PluaL_Buffer; c : Char);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   721
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   722
(* compatibility only *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   723
procedure luaL_putchar(B : PluaL_Buffer; c : Char);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   724
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   725
procedure luaL_addsize(B : PluaL_Buffer; n : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   726
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   727
procedure luaL_buffinit(L : Plua_State; B : PluaL_Buffer);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   728
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   729
function  luaL_prepbuffer(B : PluaL_Buffer) : PChar;
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   730
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   731
procedure luaL_addlstring(B : PluaL_Buffer; const s : PChar; ls : size_t);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   732
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   733
procedure luaL_addstring(B : PluaL_Buffer; const s : PChar);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   734
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   735
procedure luaL_addvalue(B : PluaL_Buffer);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   736
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   737
procedure luaL_pushresult(B : PluaL_Buffer);
2799
558b29bf00c5 add a new way to fetch version info from pascal to c
koda
parents: 2786
diff changeset
   738
  cdecl; external LuaLibName;
2786
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   739
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   740
(* ====================================================== *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   741
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   742
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   743
(* compatibility with ref system *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   744
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   745
(* pre-defined references *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   746
const
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   747
  LUA_NOREF  = -2;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   748
  LUA_REFNIL = -1;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   749
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   750
function lua_ref(L : Plua_State; lock : Boolean) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   751
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   752
procedure lua_unref(L : Plua_State; ref : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   753
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   754
procedure lua_getref(L : Plua_State; ref : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   755
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   756
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   757
(******************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   758
(******************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   759
(******************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   760
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   761
implementation
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   762
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   763
uses
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   764
  SysUtils;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   765
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   766
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   767
(*                            luaconfig.h                                    *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   768
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   769
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   770
function  lua_readline(L : Plua_State; var b : PChar; p : PChar): Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   771
var
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   772
  s : AnsiString;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   773
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   774
  Write(p);                        // show prompt
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   775
  ReadLn(s);                       // get line
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   776
  b := PChar(s);                   //   and return it
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   777
  lua_readline := (b[0] <> #4);          // test for ctrl-D
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   778
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   779
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   780
procedure lua_saveline(L : Plua_State; idx : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   781
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   782
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   783
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   784
procedure lua_freeline(L : Plua_State; b : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   785
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   786
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   787
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   788
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   789
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   790
(*                                  lua.h                                    *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   791
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   792
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   793
function lua_upvalueindex(idx : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   794
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   795
  lua_upvalueindex := LUA_GLOBALSINDEX - idx;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   796
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   797
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   798
procedure lua_pop(L : Plua_State; n : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   799
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   800
  lua_settop(L, -n - 1);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   801
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   802
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   803
procedure lua_newtable(L : Plua_State);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   804
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   805
  lua_createtable(L, 0, 0);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   806
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   807
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   808
procedure lua_register(L : Plua_State; n : PChar; f : lua_CFunction);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   809
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   810
  lua_pushcfunction(L, f);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   811
  lua_setglobal(L, n);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   812
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   813
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   814
procedure lua_pushcfunction(L : Plua_State; f : lua_CFunction);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   815
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   816
  lua_pushcclosure(L, f, 0);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   817
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   818
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   819
function  lua_strlen(L : Plua_State; idx : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   820
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   821
  lua_strlen := lua_objlen(L, idx);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   822
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   823
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   824
function lua_isfunction(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   825
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   826
  lua_isfunction := lua_type(L, n) = LUA_TFUNCTION;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   827
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   828
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   829
function lua_istable(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   830
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   831
  lua_istable := lua_type(L, n) = LUA_TTABLE;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   832
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   833
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   834
function lua_islightuserdata(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   835
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   836
  lua_islightuserdata := lua_type(L, n) = LUA_TLIGHTUSERDATA;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   837
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   838
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   839
function lua_isnil(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   840
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   841
  lua_isnil := lua_type(L, n) = LUA_TNIL;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   842
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   843
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   844
function lua_isboolean(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   845
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   846
  lua_isboolean := lua_type(L, n) = LUA_TBOOLEAN;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   847
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   848
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   849
function lua_isthread(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   850
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   851
  lua_isthread := lua_type(L, n) = LUA_TTHREAD;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   852
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   853
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   854
function lua_isnone(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   855
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   856
  lua_isnone := lua_type(L, n) = LUA_TNONE;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   857
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   858
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   859
function lua_isnoneornil(L : Plua_State; n : LongInt) : Boolean;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   860
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   861
  lua_isnoneornil := lua_type(L, n) <= 0;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   862
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   863
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   864
procedure lua_pushliteral(L : Plua_State; s : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   865
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   866
  lua_pushlstring(L, s, StrLen(s));
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   867
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   868
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   869
procedure lua_setglobal(L : Plua_State; s : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   870
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   871
  lua_setfield(L, LUA_GLOBALSINDEX, s);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   872
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   873
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   874
procedure lua_getglobal(L: Plua_State; s: PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   875
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   876
  lua_getfield(L, LUA_GLOBALSINDEX, s);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   877
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   878
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   879
function lua_tostring(L : Plua_State; idx : LongInt) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   880
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   881
  lua_tostring := lua_tolstring(L, idx, nil);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   882
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   883
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   884
function lua_open : Plua_State;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   885
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   886
  lua_open := luaL_newstate;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   887
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   888
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   889
procedure lua_getregistry(L : Plua_State);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   890
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   891
  lua_pushvalue(L, LUA_REGISTRYINDEX);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   892
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   893
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   894
function lua_getgccount(L : Plua_State) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   895
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   896
  lua_getgccount := lua_gc(L, LUA_GCCOUNT, 0);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   897
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   898
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   899
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   900
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   901
(*                                  lualib.h                                 *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   902
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   903
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   904
procedure lua_assert(x : Boolean);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   905
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   906
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   907
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   908
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   909
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   910
(*                                  lauxlib.h    n                           *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   911
(*****************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   912
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   913
function luaL_getn(L : Plua_State; idx : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   914
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   915
  luaL_getn := lua_objlen(L, idx);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   916
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   917
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   918
procedure luaL_setn(L : plua_State; i, j : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   919
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   920
  (* no op *)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   921
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   922
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   923
function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   924
                       extramsg : PChar): LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   925
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   926
  if not cond then
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   927
    luaL_argcheck := luaL_argerror(L, numarg, extramsg)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   928
  else
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   929
    luaL_argcheck := 0;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   930
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   931
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   932
function luaL_checkstring(L : Plua_State; n : LongInt) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   933
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   934
  luaL_checkstring := luaL_checklstring(L, n, nil);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   935
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   936
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   937
function luaL_optstring(L : Plua_State; n : LongInt; d : PChar) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   938
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   939
  luaL_optstring := luaL_optlstring(L, n, d, nil);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   940
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   941
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   942
function luaL_checkint(L : Plua_State; n : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   943
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   944
  luaL_checkint := luaL_checkinteger(L, n);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   945
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   946
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   947
function luaL_optint(L : Plua_State; n, d : LongInt): LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   948
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   949
  luaL_optint := luaL_optinteger(L, n, d);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   950
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   951
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   952
function luaL_checklong(L : Plua_State; n : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   953
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   954
  luaL_checklong := luaL_checkinteger(L, n);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   955
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   956
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   957
function luaL_optlong(L : Plua_State; n : LongInt; d : LongInt) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   958
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   959
  luaL_optlong := luaL_optinteger(L, n, d);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   960
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   961
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   962
function luaL_typename(L : Plua_State; idx : LongInt) : PChar;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   963
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   964
  luaL_typename := lua_typename( L, lua_type(L, idx) );
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   965
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   966
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   967
function luaL_dofile(L : Plua_State; fn : PChar) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   968
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   969
  luaL_dofile := luaL_loadfile(L, fn);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   970
  if luaL_dofile = 0 then
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   971
    luaL_dofile := lua_pcall(L, 0, 0, 0);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   972
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   973
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   974
function luaL_dostring(L : Plua_State; s : PChar) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   975
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   976
  luaL_dostring := luaL_loadstring(L, s);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   977
  if luaL_dostring = 0 then
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   978
    luaL_dostring := lua_pcall(L, 0, 0, 0);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   979
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   980
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   981
procedure luaL_getmetatable(L : Plua_State; n : PChar);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   982
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   983
  lua_getfield(L, LUA_REGISTRYINDEX, n);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   984
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   985
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   986
procedure luaL_addchar(B : PluaL_Buffer; c : Char);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   987
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   988
  if not(B^.p < B^.buffer + LUAL_BUFFERSIZE) then
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   989
    luaL_prepbuffer(B);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   990
  B^.p^ := c;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   991
  Inc(B^.p);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   992
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   993
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   994
procedure luaL_putchar(B : PluaL_Buffer; c : Char);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   995
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   996
  luaL_addchar(B, c);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   997
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   998
85f6425a4d74 Engine:
smxx
parents:
diff changeset
   999
procedure luaL_addsize(B : PluaL_Buffer; n : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1000
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1001
  Inc(B^.p, n);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1002
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1003
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1004
function lua_ref(L : Plua_State; lock : Boolean) : LongInt;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1005
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1006
  if lock then
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1007
    lua_ref := luaL_ref(L, LUA_REGISTRYINDEX)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1008
  else begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1009
    lua_pushstring(L, 'unlocked references are obsolete');
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1010
    lua_error(L);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1011
    lua_ref := 0;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1012
  end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1013
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1014
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1015
procedure lua_unref(L : Plua_State; ref : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1016
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1017
  luaL_unref(L, LUA_REGISTRYINDEX, ref);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1018
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1019
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1020
procedure lua_getref(L : Plua_State; ref : LongInt);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1021
begin
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1022
  lua_rawgeti(L, LUA_REGISTRYINDEX, ref);
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1023
end;
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1024
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1025
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1026
(******************************************************************************
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1027
* Original copyright for the lua source and headers:
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1028
*  1994-2004 Tecgraf, PUC-Rio.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1029
*  www.lua.org.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1030
*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1031
*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1032
* Permission is hereby granted, free of charge, to any person obtaining
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1033
* a copy of this software and associated documentation files (the
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1034
* "Software"), to deal in the Software without restriction, including
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1035
* without limitation the rights to use, copy, modify, merge, publish,
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1036
* distribute, sublicense, and/or sell copies of the Software, and to
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1037
* permit persons to whom the Software is furnished to do so, subject to
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1038
* the following conditions:
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1039
*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1040
* The above copyright notice and this permission notice shall be
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1041
* included in all copies or substantial portions of the Software.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1042
*
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1043
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1044
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1045
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1046
* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1047
* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1048
* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1049
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1050
******************************************************************************)
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1051
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1052
end.
85f6425a4d74 Engine:
smxx
parents:
diff changeset
  1053