{ ** $Id: lauxlib.h,v 1.60 2003/04/03 13:35:34 roberto Exp $ ** Auxiliary functions for building Lua libraries ** See Copyright Notice in lua.h } { this .h header file is translated by melice }
unit lauxlib;
interface
uses lua;
type luaL_reg = record name: pchar; func: lua_CFunction; end;
procedure luaL_openlib(L: lua_State; libname: pchar; lr: luaL_reg; nup: int); stdcall; external Luadll;
function luaL_getmetafield(L: lua_State; obj: int; e: pchar): int; stdcall; external Luadll; function luaL_callmeta(L: lua_State; obj: int; e: pchar): int; stdcall; external Luadll; function luaL_typerror(L: lua_State; narg: int; tname: pchar): int; stdcall; external Luadll; function luaL_argerror(L: lua_State; numarg: int; extramsg: pchar): int; stdcall; external Luadll; function luaL_checklstring(L: lua_State; numArg: int; st: size_t): pchar; stdcall; external Luadll;
function luaL_optlstring(L: lua_State; numArg: int; def: pchar; sz: size_t): pchar; stdcall; external Luadll;
function luaL_checknumber(L: lua_State; numArg: int): lua_Number; stdcall; external Luadll; function luaL_optnumber(L: lua_State; nArg: int; def: lua_Number): lua_Number; stdcall; external Luadll;
procedure luaL_checkstack(L: lua_State; sz: int; msg: pchar); stdcall; external Luadll; procedure luaL_checktype(L: lua_State; narg: int; t: int); stdcall; external Luadll; procedure luaL_checkany(L: lua_State; narg: int); stdcall; external Luadll;
function luaL_newmetatable(L: lua_State; tname: pchar): int; stdcall; external Luadll; procedure luaL_getmetatable(L: lua_State; tname: pchar); stdcall; external Luadll; procedure luaL_checkudata(L: lua_State; ud: int; tname: pchar); stdcall; external Luadll;
procedure luaL_where(L: lua_State; lvl: int); stdcall; external Luadll; function luaL_error(L: lua_State; fmt: pchar): int; stdcall; external Luadll;
function luaL_findstring(st: pchar; lst: pchar): int; stdcall; external Luadll;
function luaL_ref(L: lua_State; t: int): int; stdcall; external Luadll; procedure luaL_unref(L: lua_State; t: int; ref: int); stdcall; external Luadll;
function luaL_getn(L: lua_State; t: int): int; stdcall; external Luadll; procedure luaL_setn(L: lua_State; t: int; n: int); stdcall; external Luadll;
function luaL_loadfile(L: lua_State; filename: pchar): int; stdcall; external Luadll; function luaL_loadbuffer(L: lua_State; buff: pchar; sz: size_t; name: pchar): int; stdcall; external Luadll;
{ ** =============================================================== ** some useful macros ** =============================================================== } { #define luaL_argcheck(L, cond,numarg,extramsg) if (!(cond)) \ luaL_argerror(L, numarg,extramsg) #define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) #define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) #define luaL_checkint(L,n) ((int)luaL_checknumber(L, n)) #define luaL_checklong(L,n) ((long)luaL_checknumber(L, n)) #define luaL_optint(L,n,d) ((int)luaL_optnumber(L, n,(lua_Number)(d))) #define luaL_optlong(L,n,d) ((long)luaL_optnumber(L, n,(lua_Number)(d))) }
{ ** {====================================================== ** Generic Buffer manipulation ** ======================================================= } const BUFSIZ = 60; LUAL_BUFFERSIZE = BUFSIZ;
type luaL_Buffer = record p: pchar; { current position in buffer } lvl: int; { number of strings in the stack (level) } L: lua_State; buffer: array[0..LUAL_BUFFERSIZE] of pchar; end;
var LualBuffer: luaL_Buffer;
{ #define luaL_putchar(B,c) \ ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \ (*(B)->p++ = (pchar)(c)))
#define luaL_addsize(B,n) ((B)->p += (n)) }
procedure luaL_buffinit(L: lua_State; B: luaL_Buffer); stdcall; external Luadll; function luaL_prepbuffer(B: luaL_Buffer): pchar; stdcall; external Luadll; procedure luaL_addlstring(B: luaL_Buffer; s: pchar; l: size_t); stdcall; external Luadll; procedure luaL_addstring(B: luaL_Buffer; s: pchar); stdcall; external Luadll; procedure luaL_addvalue(B: luaL_Buffer); stdcall; external Luadll; procedure luaL_pushresult(B: luaL_Buffer); stdcall; external Luadll;
{ ====================================================== }
{ ** Compatibility macros and functions }
function lua_dofile(L: lua_State; filename: pchar): int; stdcall; external Luadll; function lua_dostring(L: lua_State; str: pchar): int; stdcall; external Luadll; function lua_dobuffer(L: lua_State; buff: pchar; sz: size_t; n: pchar): int; stdcall; external Luadll;
{ const luaL_check_lstr=luaL_checklstring; luaL_opt_lstr=luaL_optlstring; luaL_check_number=luaL_checknumber; luaL_opt_number=luaL_optnumber; luaL_arg_check=luaL_argcheck; luaL_check_string=luaL_checkstring; luaL_opt_string=luaL_optstring; luaL_check_int=luaL_checkint; luaL_check_long=luaL_checklong; luaL_opt_int=luaL_optint; luaL_opt_long=luaL_optlong;
}
implementation
end.
没有相关教程
|