equal
deleted
inserted
replaced
474 procedure lua_pushliteral(L : Plua_State; s : PChar); |
474 procedure lua_pushliteral(L : Plua_State; s : PChar); |
475 |
475 |
476 procedure lua_setglobal(L : Plua_State; s : PChar); |
476 procedure lua_setglobal(L : Plua_State; s : PChar); |
477 procedure lua_getglobal(L : Plua_State; s : PChar); |
477 procedure lua_getglobal(L : Plua_State; s : PChar); |
478 |
478 |
479 function lua_tostring(L : Plua_State; idx : LongInt) : AnsiString; |
479 function lua_tostring(L : Plua_State; idx : LongInt) : shortstring; |
|
480 function lua_tostringA(L : Plua_State; idx : LongInt) : ansistring; |
480 |
481 |
481 |
482 |
482 (* |
483 (* |
483 ** compatibility macros and functions |
484 ** compatibility macros and functions |
484 *) |
485 *) |
919 procedure lua_getglobal(L: Plua_State; s: PChar); |
920 procedure lua_getglobal(L: Plua_State; s: PChar); |
920 begin |
921 begin |
921 lua_getfield(L, LUA_GLOBALSINDEX, s); |
922 lua_getfield(L, LUA_GLOBALSINDEX, s); |
922 end; |
923 end; |
923 |
924 |
924 function lua_tostring(L : Plua_State; idx : LongInt) : AnsiString; |
925 function lua_tostring(L : Plua_State; idx : LongInt) : shortstring; |
925 begin |
926 begin |
926 lua_tostring := StrPas(lua_tolstring(L, idx, nil)); |
927 lua_tostring := StrPas(lua_tolstring(L, idx, nil)); |
|
928 end; |
|
929 |
|
930 function lua_tostringA(L : Plua_State; idx : LongInt) : ansistring; |
|
931 begin |
|
932 lua_tostringA := ansistring(lua_tolstring(L, idx, nil)); |
927 end; |
933 end; |
928 |
934 |
929 function lua_open : Plua_State; |
935 function lua_open : Plua_State; |
930 begin |
936 begin |
931 lua_open := luaL_newstate; |
937 lua_open := luaL_newstate; |