* PChar -> PAnsiChar

packages/lua/src/lauxlib.pas

@@ -32,7 +32,7 @@ uses
   Lua;
 
 // functions added for Pascal
-procedure lua_pushstring(L: Plua_State; const s: string);
+procedure lua_pushstring(L: Plua_State; const s: ansistring);
 
 // compatibilty macros
 function luaL_getn(L: Plua_State; n: Integer): Integer; // calls lua_objlen
@@ -40,48 +40,48 @@ procedure luaL_setn(L: Plua_State; t, n: Integer); // does nothing!
 
 type
   luaL_reg = record
-    name: PChar;
+    name: PAnsiChar;
     func: lua_CFunction;
   end;
   PluaL_reg = ^luaL_reg;
 
-procedure luaL_openlib(L: Plua_State; const libname: PChar; const lr: PluaL_reg; nup: Integer); cdecl;
-procedure luaL_register(L: Plua_State; const libname: PChar; const lr: PluaL_reg); cdecl;
-function luaL_getmetafield(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl;
-function luaL_callmeta(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl;
-function luaL_typerror(L: Plua_State; narg: Integer; const tname: PChar): Integer; cdecl;
-function luaL_argerror(L: Plua_State; numarg: Integer; const extramsg: PChar): Integer; cdecl;
-function luaL_checklstring(L: Plua_State; numArg: Integer; l_: Psize_t): PChar; cdecl;
-function luaL_optlstring(L: Plua_State; numArg: Integer; const def: PChar; l_: Psize_t): PChar; cdecl;
+procedure luaL_openlib(L: Plua_State; const libname: PAnsiChar; const lr: PluaL_reg; nup: Integer); cdecl;
+procedure luaL_register(L: Plua_State; const libname: PAnsiChar; const lr: PluaL_reg); cdecl;
+function luaL_getmetafield(L: Plua_State; obj: Integer; const e: PAnsiChar): Integer; cdecl;
+function luaL_callmeta(L: Plua_State; obj: Integer; const e: PAnsiChar): Integer; cdecl;
+function luaL_typerror(L: Plua_State; narg: Integer; const tname: PAnsiChar): Integer; cdecl;
+function luaL_argerror(L: Plua_State; numarg: Integer; const extramsg: PAnsiChar): Integer; cdecl;
+function luaL_checklstring(L: Plua_State; numArg: Integer; l_: Psize_t): PAnsiChar; cdecl;
+function luaL_optlstring(L: Plua_State; numArg: Integer; const def: PAnsiChar; l_: Psize_t): PAnsiChar; cdecl;
 function luaL_checknumber(L: Plua_State; numArg: Integer): lua_Number; cdecl;
 function luaL_optnumber(L: Plua_State; nArg: Integer; def: lua_Number): lua_Number; cdecl;
 function luaL_checkinteger(L: Plua_State; numArg: Integer): lua_Integer; cdecl;
 function luaL_optinteger(L: Plua_State; nArg: Integer; def: lua_Integer): lua_Integer; cdecl;
 
-procedure luaL_checkstack(L: Plua_State; sz: Integer; const msg: PChar); cdecl;
+procedure luaL_checkstack(L: Plua_State; sz: Integer; const msg: PAnsiChar); cdecl;
 procedure luaL_checktype(L: Plua_State; narg, t: Integer); cdecl;
 procedure luaL_checkany(L: Plua_State; narg: Integer); cdecl;
 
-function luaL_newmetatable(L: Plua_State; const tname: PChar): Integer; cdecl;
-function luaL_checkudata(L: Plua_State; ud: Integer; const tname: PChar): Pointer; cdecl;
+function luaL_newmetatable(L: Plua_State; const tname: PAnsiChar): Integer; cdecl;
+function luaL_checkudata(L: Plua_State; ud: Integer; const tname: PAnsiChar): Pointer; cdecl;
 
 procedure luaL_where(L: Plua_State; lvl: Integer); cdecl;
-function luaL_error(L: Plua_State; const fmt: PChar; args: array of const): Integer; cdecl; external LUA_LIB_NAME; // note: C's ... to array of const conversion is not portable to Delphi
+function luaL_error(L: Plua_State; const fmt: PAnsiChar; args: array of const): Integer; cdecl; external LUA_LIB_NAME; // note: C's ... to array of const conversion is not portable to Delphi
 
-function luaL_checkoption(L: Plua_State; narg: Integer; def: PChar; lst: PPChar): Integer; cdecl;
+function luaL_checkoption(L: Plua_State; narg: Integer; def: PAnsiChar; lst: PPAnsiChar): Integer; cdecl;
 
 function luaL_ref(L: Plua_State; t: Integer): Integer; cdecl;
 procedure luaL_unref(L: Plua_State; t, ref: Integer); cdecl;
 
-function luaL_loadfile(L: Plua_State; const filename: PChar): Integer; cdecl;
-function luaL_loadbuffer(L: Plua_State; const buff: PChar; size: size_t; const name: PChar): Integer; cdecl;
-function luaL_loadstring(L: Plua_State; const s: PChar): Integer; cdecl;
+function luaL_loadfile(L: Plua_State; const filename: PAnsiChar): Integer; cdecl;
+function luaL_loadbuffer(L: Plua_State; const buff: PAnsiChar; size: size_t; const name: PAnsiChar): Integer; cdecl;
+function luaL_loadstring(L: Plua_State; const s: PAnsiChar): Integer; cdecl;
 
 function luaL_newstate: Plua_State; cdecl;
 function lua_open: Plua_State; // compatibility; moved from unit lua to lauxlib because it needs luaL_newstate
 
-function luaL_gsub(L: Plua_State; const s, p, r: PChar): PChar; cdecl;
-function luaL_findtable(L: Plua_State; idx: Integer; const fname: PChar; szhint: Integer): PChar; cdecl;
+function luaL_gsub(L: Plua_State; const s, p, r: PAnsiChar): PAnsiChar; cdecl;
+function luaL_findtable(L: Plua_State; idx: Integer; const fname: PAnsiChar; szhint: Integer): PAnsiChar; cdecl;
 
 (*
 ** ===============================================================
@@ -89,20 +89,20 @@ function luaL_findtable(L: Plua_State; idx: Integer; const fname: PChar; szhint:
 ** ===============================================================
 *)
 
-procedure luaL_argcheck(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
-function luaL_checkstring(L: Plua_State; n: Integer): PChar;
-function luaL_optstring(L: Plua_State; n: Integer; d: PChar): PChar;
+procedure luaL_argcheck(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PAnsiChar);
+function luaL_checkstring(L: Plua_State; n: Integer): PAnsiChar;
+function luaL_optstring(L: Plua_State; n: Integer; d: PAnsiChar): PAnsiChar;
 function luaL_checkint(L: Plua_State; n: Integer): Integer;
 function luaL_checklong(L: Plua_State; n: Integer): LongInt;
 function luaL_optint(L: Plua_State; n: Integer; d: Double): Integer;
 function luaL_optlong(L: Plua_State; n: Integer; d: Double): LongInt;
 
-function luaL_typename(L: Plua_State; i: Integer): PChar;
+function luaL_typename(L: Plua_State; i: Integer): PAnsiChar;
 
-function lua_dofile(L: Plua_State; const filename: PChar): Integer;
-function lua_dostring(L: Plua_State; const str: PChar): Integer;
+function lua_dofile(L: Plua_State; const filename: PAnsiChar): Integer;
+function lua_dostring(L: Plua_State; const str: PAnsiChar): Integer;
 
-procedure lua_Lgetmetatable(L: Plua_State; tname: PChar);
+procedure lua_Lgetmetatable(L: Plua_State; tname: PAnsiChar);
 
 // not translated:
 // #define luaL_opt(L,f,n,d)	(lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))
@@ -120,24 +120,24 @@ const
 
 type
   luaL_Buffer = record
-    p: PChar;       (* current position in buffer *)
+    p: PAnsiChar;       (* current position in buffer *)
     lvl: Integer;   (* number of strings in the stack (level) *)
     L: Plua_State;
-    buffer: array [0..LUAL_BUFFERSIZE - 1] of Char; // warning: see note above about LUAL_BUFFERSIZE
+    buffer: array [0..LUAL_BUFFERSIZE - 1] of AnsiChar; // warning: see note above about LUAL_BUFFERSIZE
   end;
   PluaL_Buffer = ^luaL_Buffer;
 
-procedure luaL_addchar(B: PluaL_Buffer; c: Char); // warning: see note above about LUAL_BUFFERSIZE
+procedure luaL_addchar(B: PluaL_Buffer; c: AnsiChar); // warning: see note above about LUAL_BUFFERSIZE
 
 (* compatibility only (alias for luaL_addchar) *)
-procedure luaL_putchar(B: PluaL_Buffer; c: Char); // warning: see note above about LUAL_BUFFERSIZE
+procedure luaL_putchar(B: PluaL_Buffer; c: AnsiChar); // warning: see note above about LUAL_BUFFERSIZE
 
 procedure luaL_addsize(B: PluaL_Buffer; n: Integer);
 
 procedure luaL_buffinit(L: Plua_State; B: PluaL_Buffer); cdecl;
-function luaL_prepbuffer(B: PluaL_Buffer): PChar; cdecl;
-procedure luaL_addlstring(B: PluaL_Buffer; const s: PChar; l: size_t); cdecl;
-procedure luaL_addstring(B: PluaL_Buffer; const s: PChar); cdecl;
+function luaL_prepbuffer(B: PluaL_Buffer): PAnsiChar; cdecl;
+procedure luaL_addlstring(B: PluaL_Buffer; const s: PAnsiChar; l: size_t); cdecl;
+procedure luaL_addstring(B: PluaL_Buffer; const s: PAnsiChar); cdecl;
 procedure luaL_addvalue(B: PluaL_Buffer); cdecl;
 procedure luaL_pushresult(B: PluaL_Buffer); cdecl;
 
@@ -156,13 +156,13 @@ procedure lua_getref(L: Plua_State; ref: Integer);
 ** Compatibility macros and functions
 *)
 
-function luaL_check_lstr(L: Plua_State; numArg: Integer; len: Psize_t): PChar;
-function luaL_opt_lstr(L: Plua_State; numArg: Integer; const def: PChar; len: Psize_t): PChar;
+function luaL_check_lstr(L: Plua_State; numArg: Integer; len: Psize_t): PAnsiChar;
+function luaL_opt_lstr(L: Plua_State; numArg: Integer; const def: PAnsiChar; len: Psize_t): PAnsiChar;
 function luaL_check_number(L: Plua_State; numArg: Integer): lua_Number;
 function luaL_opt_number(L: Plua_State; nArg: Integer; def: lua_Number): lua_Number;
-procedure luaL_arg_check(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
-function luaL_check_string(L: Plua_State; n: Integer): PChar;
-function luaL_opt_string(L: Plua_State; n: Integer; d: PChar): PChar;
+procedure luaL_arg_check(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PAnsiChar);
+function luaL_check_string(L: Plua_State; n: Integer): PAnsiChar;
+function luaL_opt_string(L: Plua_State; n: Integer; d: PAnsiChar): PAnsiChar;
 function luaL_check_int(L: Plua_State; n: Integer): Integer;
 function luaL_check_long(L: Plua_State; n: Integer): LongInt;
 function luaL_opt_int(L: Plua_State; n: Integer; d: Double): Integer;
@@ -170,9 +170,9 @@ function luaL_opt_long(L: Plua_State; n: Integer; d: Double): LongInt;
 
 implementation
 
-procedure lua_pushstring(L: Plua_State; const s: string);
+procedure lua_pushstring(L: Plua_State; const s: ansistring);
 begin
-  lua_pushlstring(L, PChar(s), Length(s));
+  lua_pushlstring(L, PAnsiChar(s), Length(s));
 end;
 
 function luaL_getn(L: Plua_State; n: Integer): Integer;
@@ -185,37 +185,37 @@ begin
   // does nothing as this operation is deprecated
 end;
 
-procedure luaL_openlib(L: Plua_State; const libname: PChar; const lr: PluaL_reg; nup: Integer); cdecl; external LUA_LIB_NAME;
-procedure luaL_register(L: Plua_State; const libname: PChar; const lr: PluaL_reg); cdecl; external LUA_LIB_NAME;
-function luaL_getmetafield(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl; external LUA_LIB_NAME;
-function luaL_callmeta(L: Plua_State; obj: Integer; const e: PChar): Integer; cdecl; external LUA_LIB_NAME;
-function luaL_typerror(L: Plua_State; narg: Integer; const tname: PChar): Integer; cdecl; external LUA_LIB_NAME;
-function luaL_argerror(L: Plua_State; numarg: Integer; const extramsg: PChar): Integer; cdecl; external LUA_LIB_NAME;
-function luaL_checklstring(L: Plua_State; numArg: Integer; l_: Psize_t): PChar; cdecl; external LUA_LIB_NAME;
-function luaL_optlstring(L: Plua_State; numArg: Integer; const def: PChar; l_: Psize_t): PChar; cdecl; external LUA_LIB_NAME;
+procedure luaL_openlib(L: Plua_State; const libname: PAnsiChar; const lr: PluaL_reg; nup: Integer); cdecl; external LUA_LIB_NAME;
+procedure luaL_register(L: Plua_State; const libname: PAnsiChar; const lr: PluaL_reg); cdecl; external LUA_LIB_NAME;
+function luaL_getmetafield(L: Plua_State; obj: Integer; const e: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_callmeta(L: Plua_State; obj: Integer; const e: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_typerror(L: Plua_State; narg: Integer; const tname: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_argerror(L: Plua_State; numarg: Integer; const extramsg: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_checklstring(L: Plua_State; numArg: Integer; l_: Psize_t): PAnsiChar; cdecl; external LUA_LIB_NAME;
+function luaL_optlstring(L: Plua_State; numArg: Integer; const def: PAnsiChar; l_: Psize_t): PAnsiChar; cdecl; external LUA_LIB_NAME;
 function luaL_checknumber(L: Plua_State; numArg: Integer): lua_Number; cdecl; external LUA_LIB_NAME;
 function luaL_optnumber(L: Plua_State; nArg: Integer; def: lua_Number): lua_Number; cdecl; external LUA_LIB_NAME;
 function luaL_checkinteger(L: Plua_State; numArg: Integer): lua_Integer; cdecl; external LUA_LIB_NAME;
 function luaL_optinteger(L: Plua_State; nArg: Integer; def: lua_Integer): lua_Integer; cdecl; external LUA_LIB_NAME;
 
-procedure luaL_checkstack(L: Plua_State; sz: Integer; const msg: PChar); cdecl; external LUA_LIB_NAME;
+procedure luaL_checkstack(L: Plua_State; sz: Integer; const msg: PAnsiChar); cdecl; external LUA_LIB_NAME;
 procedure luaL_checktype(L: Plua_State; narg, t: Integer); cdecl; external LUA_LIB_NAME;
 procedure luaL_checkany(L: Plua_State; narg: Integer); cdecl; external LUA_LIB_NAME;
 
-function luaL_newmetatable(L: Plua_State; const tname: PChar): Integer; cdecl; external LUA_LIB_NAME;
-function luaL_checkudata(L: Plua_State; ud: Integer; const tname: PChar): Pointer; cdecl; external LUA_LIB_NAME;
+function luaL_newmetatable(L: Plua_State; const tname: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_checkudata(L: Plua_State; ud: Integer; const tname: PAnsiChar): Pointer; cdecl; external LUA_LIB_NAME;
 
 procedure luaL_where(L: Plua_State; lvl: Integer); cdecl; external LUA_LIB_NAME;
-// function luaL_error(L: Plua_State; const fmt: PChar; args: array of const): Integer; cdecl; external LUA_LIB_NAME;
+// function luaL_error(L: Plua_State; const fmt: PAnsiChar; args: array of const): Integer; cdecl; external LUA_LIB_NAME;
 
-function luaL_checkoption(L: Plua_State; narg: Integer; def: PChar; lst: PPChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_checkoption(L: Plua_State; narg: Integer; def: PAnsiChar; lst: PPAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
 
 function luaL_ref(L: Plua_State; t: Integer): Integer; cdecl; external LUA_LIB_NAME;
 procedure luaL_unref(L: Plua_State; t, ref: Integer); cdecl; external LUA_LIB_NAME;
 
-function luaL_loadfile(L: Plua_State; const filename: PChar): Integer; cdecl; external LUA_LIB_NAME;
-function luaL_loadbuffer(L: Plua_State; const buff: PChar; size: size_t; const name: PChar): Integer; cdecl; external LUA_LIB_NAME;
-function luaL_loadstring(L: Plua_State; const s: PChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_loadfile(L: Plua_State; const filename: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_loadbuffer(L: Plua_State; const buff: PAnsiChar; size: size_t; const name: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
+function luaL_loadstring(L: Plua_State; const s: PAnsiChar): Integer; cdecl; external LUA_LIB_NAME;
 
 function luaL_newstate: Plua_State; cdecl; external LUA_LIB_NAME;
 
@@ -224,45 +224,45 @@ begin
   Result := luaL_newstate;
 end;
 
-function luaL_gsub(L: Plua_State; const s, p, r: PChar): PChar; cdecl; external LUA_LIB_NAME;
-function luaL_findtable(L: Plua_State; idx: Integer; const fname: PChar; szhint: Integer): PChar; cdecl; external LUA_LIB_NAME;
+function luaL_gsub(L: Plua_State; const s, p, r: PAnsiChar): PAnsiChar; cdecl; external LUA_LIB_NAME;
+function luaL_findtable(L: Plua_State; idx: Integer; const fname: PAnsiChar; szhint: Integer): PAnsiChar; cdecl; external LUA_LIB_NAME;
 
-function luaL_typename(L: Plua_State; i: Integer): PChar;
+function luaL_typename(L: Plua_State; i: Integer): PAnsiChar;
 begin
   Result := lua_typename(L, lua_type(L, i));
 end;
 
-function lua_dofile(L: Plua_State; const filename: PChar): Integer;
+function lua_dofile(L: Plua_State; const filename: PAnsiChar): Integer;
 begin
   Result := luaL_loadfile(L, filename);
   if Result = 0 then
     Result := lua_pcall(L, 0, LUA_MULTRET, 0);
 end;
 
-function lua_dostring(L: Plua_State; const str: PChar): Integer;
+function lua_dostring(L: Plua_State; const str: PAnsiChar): Integer;
 begin
   Result := luaL_loadstring(L, str);
   if Result = 0 then
     Result := lua_pcall(L, 0, LUA_MULTRET, 0);
 end;
 
-procedure lua_Lgetmetatable(L: Plua_State; tname: PChar);
+procedure lua_Lgetmetatable(L: Plua_State; tname: PAnsiChar);
 begin
   lua_getfield(L, LUA_REGISTRYINDEX, tname);
 end;
 
-procedure luaL_argcheck(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
+procedure luaL_argcheck(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PAnsiChar);
 begin
   if not cond then
     luaL_argerror(L, numarg, extramsg)
 end;
 
-function luaL_checkstring(L: Plua_State; n: Integer): PChar;
+function luaL_checkstring(L: Plua_State; n: Integer): PAnsiChar;
 begin
   Result := luaL_checklstring(L, n, nil)
 end;
 
-function luaL_optstring(L: Plua_State; n: Integer; d: PChar): PChar;
+function luaL_optstring(L: Plua_State; n: Integer; d: PAnsiChar): PAnsiChar;
 begin
   Result := luaL_optlstring(L, n, d, nil)
 end;
@@ -287,7 +287,7 @@ begin
   Result := LongInt(Trunc(luaL_optnumber(L, n, d)))
 end;
 
-procedure luaL_addchar(B: PluaL_Buffer; c: Char);
+procedure luaL_addchar(B: PluaL_Buffer; c: AnsiChar);
 begin
   if Cardinal(@(B^.p)) < (Cardinal(@(B^.buffer[0])) + LUAL_BUFFERSIZE) then
     luaL_prepbuffer(B);
@@ -295,7 +295,7 @@ begin
   B^.p := B^.p + 1;
 end;
 
-procedure luaL_putchar(B: PluaL_Buffer; c: Char);
+procedure luaL_putchar(B: PluaL_Buffer; c: AnsiChar);
 begin
   luaL_addchar(B, c);
 end;
@@ -306,9 +306,9 @@ begin
 end;
 
 procedure luaL_buffinit(L: Plua_State ; B: PluaL_Buffer); cdecl; external LUA_LIB_NAME;
-function luaL_prepbuffer(B: PluaL_Buffer): PChar; cdecl; external LUA_LIB_NAME;
-procedure luaL_addlstring(B: PluaL_Buffer; const s: PChar; l: size_t); cdecl; external LUA_LIB_NAME;
-procedure luaL_addstring(B: PluaL_Buffer; const s: PChar); cdecl; external LUA_LIB_NAME;
+function luaL_prepbuffer(B: PluaL_Buffer): PAnsiChar; cdecl; external LUA_LIB_NAME;
+procedure luaL_addlstring(B: PluaL_Buffer; const s: PAnsiChar; l: size_t); cdecl; external LUA_LIB_NAME;
+procedure luaL_addstring(B: PluaL_Buffer; const s: PAnsiChar); cdecl; external LUA_LIB_NAME;
 procedure luaL_addvalue(B: PluaL_Buffer); cdecl; external LUA_LIB_NAME;
 procedure luaL_pushresult(B: PluaL_Buffer); cdecl; external LUA_LIB_NAME;
 
@@ -322,12 +322,12 @@ begin
   lua_rawgeti(L, LUA_REGISTRYINDEX, ref);
 end;
 
-function luaL_check_lstr(L: Plua_State; numArg: Integer; len: Psize_t): PChar;
+function luaL_check_lstr(L: Plua_State; numArg: Integer; len: Psize_t): PAnsiChar;
 begin
   Result := luaL_checklstring(L, numArg, len);
 end;
 
-function luaL_opt_lstr(L: Plua_State; numArg: Integer; const def: PChar; len: Psize_t): PChar;
+function luaL_opt_lstr(L: Plua_State; numArg: Integer; const def: PAnsiChar; len: Psize_t): PAnsiChar;
 begin
   Result := luaL_optlstring(L, numArg, def, len);
 end;
@@ -342,17 +342,17 @@ begin
   Result := luaL_optnumber(L, nArg, def);
 end;
 
-procedure luaL_arg_check(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PChar);
+procedure luaL_arg_check(L: Plua_State; cond: Boolean; numarg: Integer; extramsg: PAnsiChar);
 begin
   luaL_argcheck(L, cond, numarg, extramsg);
 end;
 
-function luaL_check_string(L: Plua_State; n: Integer): PChar;
+function luaL_check_string(L: Plua_State; n: Integer): PAnsiChar;
 begin
   Result := luaL_checkstring(L, n);
 end;
 
-function luaL_opt_string(L: Plua_State; n: Integer; d: PChar): PChar;
+function luaL_opt_string(L: Plua_State; n: Integer; d: PAnsiChar): PAnsiChar;
 begin
   Result := luaL_optstring(L, n, d);
 end;

packages/lua/src/lua.pas

@@ -91,7 +91,7 @@ type
 ** functions that read/write blocks when loading/dumping Lua chunks
 *)
 type
-  lua_Reader = function(L: Plua_State; ud: Pointer; sz: Psize_t): PChar; cdecl;
+  lua_Reader = function(L: Plua_State; ud: Pointer; sz: Psize_t): PAnsiChar; cdecl;
   lua_Writer = function(L: Plua_State; const p: Pointer; sz: size_t; ud: Pointer): Integer; cdecl;
 
 (*
@@ -153,7 +153,7 @@ function lua_isstring(L: Plua_State; idx: Integer): LongBool; cdecl; external LU
 function lua_iscfunction(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
 function lua_isuserdata(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
 function lua_type(L: Plua_State; idx: Integer): Integer; cdecl; external LUA_NAME;
-function lua_typename(L: Plua_State; tp: Integer): PChar; cdecl; external LUA_NAME;
+function lua_typename(L: Plua_State; tp: Integer): PAnsiChar; cdecl; external LUA_NAME;
 
 function lua_equal(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl; external LUA_NAME;
 function lua_rawequal(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl; external LUA_NAME;
@@ -162,7 +162,7 @@ function lua_lessthan(L: Plua_State; idx1, idx2: Integer): LongBool; cdecl; exte
 function lua_tonumber(L: Plua_State; idx: Integer): lua_Number; cdecl; external LUA_NAME;
 function lua_tointeger(L: Plua_State; idx: Integer): lua_Integer; cdecl; external LUA_NAME;
 function lua_toboolean(L: Plua_State; idx: Integer): LongBool; cdecl; external LUA_NAME;
-function lua_tolstring(L: Plua_State; idx: Integer; len: Psize_t): PChar; cdecl; external LUA_NAME;
+function lua_tolstring(L: Plua_State; idx: Integer; len: Psize_t): PAnsiChar; cdecl; external LUA_NAME;
 function lua_objlen(L: Plua_State; idx: Integer): size_t; cdecl; external LUA_NAME;
 function lua_tocfunction(L: Plua_State; idx: Integer): lua_CFunction; cdecl; external LUA_NAME;
 function lua_touserdata(L: Plua_State; idx: Integer): Pointer; cdecl; external LUA_NAME;
@@ -175,10 +175,10 @@ function lua_topointer(L: Plua_State; idx: Integer): Pointer; cdecl; external LU
 procedure lua_pushnil(L: Plua_State); cdecl; external LUA_NAME;
 procedure lua_pushnumber(L: Plua_State; n: lua_Number); cdecl; external LUA_NAME;
 procedure lua_pushinteger(L: Plua_State; n: lua_Integer); cdecl; external LUA_NAME;
-procedure lua_pushlstring(L: Plua_State; const s: PChar; l_: size_t); cdecl; external LUA_NAME;
-procedure lua_pushstring(L: Plua_State; const s: PChar); cdecl; external LUA_NAME;
-function lua_pushvfstring(L: Plua_State; const fmt: PChar; argp: Pointer): PChar; cdecl; external LUA_NAME;
-function lua_pushfstring(L: Plua_State; const fmt: PChar): PChar; cdecl; varargs; external LUA_NAME;
+procedure lua_pushlstring(L: Plua_State; const s: PAnsiChar; l_: size_t); cdecl; external LUA_NAME;
+procedure lua_pushstring(L: Plua_State; const s: PAnsiChar); cdecl; external LUA_NAME;
+function lua_pushvfstring(L: Plua_State; const fmt: PAnsiChar; argp: Pointer): PAnsiChar; cdecl; external LUA_NAME;
+function lua_pushfstring(L: Plua_State; const fmt: PAnsiChar): PAnsiChar; cdecl; varargs; external LUA_NAME;
 procedure lua_pushcclosure(L: Plua_State; fn: lua_CFunction; n: Integer); cdecl; external LUA_NAME;
 procedure lua_pushboolean(L: Plua_State; b: LongBool); cdecl; external LUA_NAME;
 procedure lua_pushlightuserdata(L: Plua_State; p: Pointer); cdecl; external LUA_NAME;
@@ -188,7 +188,7 @@ procedure lua_pushthread(L: Plua_State); cdecl; external LUA_NAME;
 ** get functions (Lua -> stack)
 *)
 procedure lua_gettable(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
-procedure lua_getfield(L: Plua_state; idx: Integer; k: PChar); cdecl; external LUA_NAME;
+procedure lua_getfield(L: Plua_state; idx: Integer; k: PAnsiChar); cdecl; external LUA_NAME;
 procedure lua_rawget(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
 procedure lua_rawgeti(L: Plua_State; idx, n: Integer); cdecl; external LUA_NAME;
 procedure lua_createtable(L: Plua_State; narr, nrec: Integer); cdecl; external LUA_NAME;
@@ -200,7 +200,7 @@ procedure lua_getfenv(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
 ** set functions (stack -> Lua)
 *)
 procedure lua_settable(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
-procedure lua_setfield(L: Plua_State; idx: Integer; k: PChar); cdecl; external LUA_NAME;
+procedure lua_setfield(L: Plua_State; idx: Integer; k: PAnsiChar); cdecl; external LUA_NAME;
 procedure lua_rawset(L: Plua_State; idx: Integer); cdecl; external LUA_NAME;
 procedure lua_rawseti(L: Plua_State; idx, n: Integer); cdecl; external LUA_NAME;
 function lua_setmetatable(L: Plua_State; objindex: Integer): Integer; cdecl; external LUA_NAME;
@@ -212,7 +212,7 @@ function lua_setfenv(L: Plua_State; idx: Integer): Integer; cdecl; external LUA_
 procedure lua_call(L: Plua_State; nargs, nresults: Integer); cdecl; external LUA_NAME;
 function lua_pcall(L: Plua_State; nargs, nresults, errf: Integer): Integer; cdecl; external LUA_NAME;
 function lua_cpcall(L: Plua_State; func: lua_CFunction; ud: Pointer): Integer; cdecl; external LUA_NAME;
-function lua_load(L: Plua_State; reader: lua_Reader; dt: Pointer; const chunkname: PChar): Integer; cdecl; external LUA_NAME;
+function lua_load(L: Plua_State; reader: lua_Reader; dt: Pointer; const chunkname: PAnsiChar): Integer; cdecl; external LUA_NAME;
 
 function lua_dump(L: Plua_State; writer: lua_Writer; data: Pointer): Integer; cdecl; external LUA_NAME;
 
@@ -260,7 +260,7 @@ procedure lua_pop(L: Plua_State; n: Integer);
 
 procedure lua_newtable(L: Plua_state);
 
-procedure lua_register(L: Plua_State; const n: PChar; f: lua_CFunction);
+procedure lua_register(L: Plua_State; const n: PAnsiChar; f: lua_CFunction);
 procedure lua_pushcfunction(L: Plua_State; f: lua_CFunction);
 
 function lua_strlen(L: Plua_state; i: Integer): size_t;
@@ -274,12 +274,12 @@ function lua_isthread(L: Plua_State; n: Integer): Boolean;
 function lua_isnone(L: Plua_State; n: Integer): Boolean;
 function lua_isnoneornil(L: Plua_State; n: Integer): Boolean;
 
-procedure lua_pushliteral(L: Plua_State; s: PChar);
+procedure lua_pushliteral(L: Plua_State; s: PAnsiChar);
 
-procedure lua_setglobal(L: Plua_State; const s: PChar);
-procedure lua_getglobal(L: Plua_State; const s: PChar);
+procedure lua_setglobal(L: Plua_State; const s: PAnsiChar);
+procedure lua_getglobal(L: Plua_State; const s: PAnsiChar);
 
-function lua_tostring(L: Plua_State; i: Integer): PChar;
+function lua_tostring(L: Plua_State; i: Integer): PAnsiChar;
 
 (*
 ** compatibility macros and functions
@@ -318,15 +318,15 @@ const
 type
   lua_Debug = record           (* activation record *)
     event: Integer;
-    name: PChar;               (* (n) *)
-    namewhat: PChar;           (* (n) `global', `local', `field', `method' *)
-    what: PChar;               (* (S) `Lua', `C', `main', `tail'*)
-    source: PChar;             (* (S) *)
+    name: PAnsiChar;               (* (n) *)
+    namewhat: PAnsiChar;           (* (n) `global', `local', `field', `method' *)
+    what: PAnsiChar;               (* (S) `Lua', `C', `main', `tail'*)
+    source: PAnsiChar;             (* (S) *)
     currentline: Integer;      (* (l) *)
     nups: Integer;             (* (u) number of upvalues *)
     linedefined: Integer;      (* (S) *)
     lastlinedefined: Integer;  (* (S) *)
-    short_src: array[0..LUA_IDSIZE - 1] of Char; (* (S) *)
+    short_src: array[0..LUA_IDSIZE - 1] of AnsiChar; (* (S) *)
     (* private part *)
     i_ci: Integer;              (* active function *)
   end;
@@ -335,11 +335,11 @@ type
   lua_Hook = procedure(L: Plua_State; ar: Plua_Debug); cdecl;
 
 function lua_getstack(L: Plua_State; level: Integer; ar: Plua_Debug): Integer; cdecl;
-function lua_getinfo(L: Plua_State; const what: PChar; ar: Plua_Debug): Integer; cdecl;
-function lua_getlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl;
-function lua_setlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl;
-function lua_getupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl;
-function lua_setupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl;
+function lua_getinfo(L: Plua_State; const what: PAnsiChar; ar: Plua_Debug): Integer; cdecl;
+function lua_getlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PAnsiChar; cdecl;
+function lua_setlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PAnsiChar; cdecl;
+function lua_getupvalue(L: Plua_State; funcindex: Integer; n: Integer): PAnsiChar; cdecl;
+function lua_setupvalue(L: Plua_State; funcindex: Integer; n: Integer): PAnsiChar; cdecl;
 
 function lua_sethook(L: Plua_State; func: lua_Hook; mask: Integer; count: Integer): Integer; cdecl;
 //function lua_gethook(L: Plua_State): lua_Hook; cdecl;
@@ -363,7 +363,7 @@ begin
   lua_createtable(L, 0, 0);
 end;
 
-procedure lua_register(L: Plua_State; const n: PChar; f: lua_CFunction);
+procedure lua_register(L: Plua_State; const n: PAnsiChar; f: lua_CFunction);
 begin
   lua_pushcfunction(L, f);
   lua_setglobal(L, n);
@@ -419,22 +419,22 @@ begin
   Result := lua_type(L, n) <= 0;
 end;
 
-procedure lua_pushliteral(L: Plua_State; s: PChar);
+procedure lua_pushliteral(L: Plua_State; s: PAnsiChar);
 begin
   lua_pushlstring(L, s, Length(s));
 end;
 
-procedure lua_setglobal(L: Plua_State; const s: PChar);
+procedure lua_setglobal(L: Plua_State; const s: PAnsiChar);
 begin
   lua_setfield(L, LUA_GLOBALSINDEX, s);
 end;
 
-procedure lua_getglobal(L: Plua_State; const s: PChar);
+procedure lua_getglobal(L: Plua_State; const s: PAnsiChar);
 begin
   lua_getfield(L, LUA_GLOBALSINDEX, s);
 end;
 
-function lua_tostring(L: Plua_State; i: Integer): PChar;
+function lua_tostring(L: Plua_State; i: Integer): PAnsiChar;
 begin
   Result := lua_tolstring(L, i, nil);
 end;
@@ -457,11 +457,11 @@ end;
 *)
 
 function lua_getstack(L: Plua_State; level: Integer; ar: Plua_Debug): Integer; cdecl; external LUA_NAME;
-function lua_getinfo(L: Plua_State; const what: PChar; ar: Plua_Debug): Integer; cdecl; external LUA_NAME;
-function lua_getlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl; external LUA_NAME;
-function lua_setlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PChar; cdecl; external LUA_NAME;
-function lua_getupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl; external LUA_NAME;
-function lua_setupvalue(L: Plua_State; funcindex: Integer; n: Integer): PChar; cdecl; external LUA_NAME;
+function lua_getinfo(L: Plua_State; const what: PAnsiChar; ar: Plua_Debug): Integer; cdecl; external LUA_NAME;
+function lua_getlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PAnsiChar; cdecl; external LUA_NAME;
+function lua_setlocal(L: Plua_State; const ar: Plua_Debug; n: Integer): PAnsiChar; cdecl; external LUA_NAME;
+function lua_getupvalue(L: Plua_State; funcindex: Integer; n: Integer): PAnsiChar; cdecl; external LUA_NAME;
+function lua_setupvalue(L: Plua_State; funcindex: Integer; n: Integer): PAnsiChar; cdecl; external LUA_NAME;
 function lua_sethook(L: Plua_State; func: lua_Hook; mask: Integer; count: Integer): Integer; cdecl; external LUA_NAME;
 //function lua_gethook(L: Plua_State): lua_Hook; cdecl; external LUA_NAME;
 function lua_gethookmask(L: Plua_State): Integer; cdecl; external LUA_NAME;