1*dfc11533SChris Williamson /* 2*dfc11533SChris Williamson ** $Id: lstring.h,v 1.49.1.1 2013/04/12 18:48:47 roberto Exp $ 3*dfc11533SChris Williamson ** String table (keep all strings handled by Lua) 4*dfc11533SChris Williamson ** See Copyright Notice in lua.h 5*dfc11533SChris Williamson */ 6*dfc11533SChris Williamson 7*dfc11533SChris Williamson #ifndef lstring_h 8*dfc11533SChris Williamson #define lstring_h 9*dfc11533SChris Williamson 10*dfc11533SChris Williamson #include "lgc.h" 11*dfc11533SChris Williamson #include "lobject.h" 12*dfc11533SChris Williamson #include "lstate.h" 13*dfc11533SChris Williamson 14*dfc11533SChris Williamson 15*dfc11533SChris Williamson #define sizestring(s) (sizeof(union TString)+((s)->len+1)*sizeof(char)) 16*dfc11533SChris Williamson 17*dfc11533SChris Williamson #define sizeudata(u) (sizeof(union Udata)+(u)->len) 18*dfc11533SChris Williamson 19*dfc11533SChris Williamson #define luaS_newliteral(L, s) (luaS_newlstr(L, "" s, \ 20*dfc11533SChris Williamson (sizeof(s)/sizeof(char))-1)) 21*dfc11533SChris Williamson 22*dfc11533SChris Williamson #define luaS_fix(s) l_setbit((s)->tsv.marked, FIXEDBIT) 23*dfc11533SChris Williamson 24*dfc11533SChris Williamson 25*dfc11533SChris Williamson /* 26*dfc11533SChris Williamson ** test whether a string is a reserved word 27*dfc11533SChris Williamson */ 28*dfc11533SChris Williamson #define isreserved(s) ((s)->tsv.tt == LUA_TSHRSTR && (s)->tsv.extra > 0) 29*dfc11533SChris Williamson 30*dfc11533SChris Williamson 31*dfc11533SChris Williamson /* 32*dfc11533SChris Williamson ** equality for short strings, which are always internalized 33*dfc11533SChris Williamson */ 34*dfc11533SChris Williamson #define eqshrstr(a,b) check_exp((a)->tsv.tt == LUA_TSHRSTR, (a) == (b)) 35*dfc11533SChris Williamson 36*dfc11533SChris Williamson 37*dfc11533SChris Williamson LUAI_FUNC unsigned int luaS_hash (const char *str, size_t l, unsigned int seed); 38*dfc11533SChris Williamson LUAI_FUNC int luaS_eqlngstr (TString *a, TString *b); 39*dfc11533SChris Williamson LUAI_FUNC int luaS_eqstr (TString *a, TString *b); 40*dfc11533SChris Williamson LUAI_FUNC void luaS_resize (lua_State *L, int newsize); 41*dfc11533SChris Williamson LUAI_FUNC Udata *luaS_newudata (lua_State *L, size_t s, Table *e); 42*dfc11533SChris Williamson LUAI_FUNC TString *luaS_newlstr (lua_State *L, const char *str, size_t l); 43*dfc11533SChris Williamson LUAI_FUNC TString *luaS_new (lua_State *L, const char *str); 44*dfc11533SChris Williamson 45*dfc11533SChris Williamson 46*dfc11533SChris Williamson #endif 47