lua头文件翻译之lauxlib

【 tulaoshi.com - 编程语言 】

　　{
　　** $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.