<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1"> <title>rpm: lua/lstring.c Source File</title> <link href="doxygen.css" rel="stylesheet" type="text/css"> <link href="tabs.css" rel="stylesheet" type="text/css"> </head><body> <!-- Generated by Doxygen 1.4.7 --> <div class="tabs"> <ul> <li><a href="index.html"><span>Main Page</span></a></li> <li><a href="modules.html"><span>Modules</span></a></li> <li><a href="annotated.html"><span>Data Structures</span></a></li> <li id="current"><a href="files.html"><span>Files</span></a></li> <li><a href="pages.html"><span>Related Pages</span></a></li> </ul></div> <div class="tabs"> <ul> <li><a href="files.html"><span>File List</span></a></li> <li><a href="globals.html"><span>Globals</span></a></li> </ul></div> <h1>lua/lstring.c</h1><a href="lstring_8c.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/*</span> <a name="l00002"></a>00002 <span class="comment">** $Id: lstring.c,v 1.2 2004/03/23 05:09:14 jbj Exp $</span> <a name="l00003"></a>00003 <span class="comment">** String table (keeps all strings handled by Lua)</span> <a name="l00004"></a>00004 <span class="comment">** See Copyright Notice in lua.h</span> <a name="l00005"></a>00005 <span class="comment">*/</span> <a name="l00006"></a>00006 <a name="l00007"></a>00007 <a name="l00008"></a>00008 <span class="preprocessor">#include <string.h></span> <a name="l00009"></a>00009 <a name="l00010"></a><a class="code" href="lstring_8c.html#8d6ed28dd5a5754c79aff7a4d92fd4ae">00010</a> <span class="preprocessor">#define lstring_c</span> <a name="l00011"></a>00011 <span class="preprocessor"></span> <a name="l00012"></a>00012 <span class="preprocessor">#include "lua.h"</span> <a name="l00013"></a>00013 <a name="l00014"></a>00014 <span class="preprocessor">#include "<a class="code" href="lmem_8h.html">lmem.h</a>"</span> <a name="l00015"></a>00015 <span class="preprocessor">#include "<a class="code" href="lobject_8h.html">lobject.h</a>"</span> <a name="l00016"></a>00016 <span class="preprocessor">#include "<a class="code" href="lstate_8h.html">lstate.h</a>"</span> <a name="l00017"></a>00017 <span class="preprocessor">#include "<a class="code" href="lstring_8h.html">lstring.h</a>"</span> <a name="l00018"></a>00018 <a name="l00019"></a>00019 <a name="l00020"></a>00020 <a name="l00021"></a><a class="code" href="lstring_8h.html#22d02ad801dbe66035cb3f3f2ee1a003">00021</a> <span class="keywordtype">void</span> <a class="code" href="lstring_8c.html#22d02ad801dbe66035cb3f3f2ee1a003">luaS_freeall</a> (<a class="code" href="structlua__State.html">lua_State</a> *L) { <a name="l00022"></a>00022 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.nuse==0); <a name="l00023"></a>00023 <a class="code" href="lmem_8h.html#0e7e8302eb92be56c1043f086deed39a">luaM_freearray</a>(L, <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.hash, <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.size, <a class="code" href="unionTString.html">TString</a> *); <a name="l00024"></a>00024 } <a name="l00025"></a>00025 <a name="l00026"></a>00026 <a name="l00027"></a><a class="code" href="lstring_8h.html#88a409a2e7eee2106940f69d7884c471">00027</a> <span class="keywordtype">void</span> <a class="code" href="lstring_8c.html#88a409a2e7eee2106940f69d7884c471">luaS_resize</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <span class="keywordtype">int</span> newsize) { <a name="l00028"></a>00028 <a class="code" href="unionGCObject.html">GCObject</a> **newhash = <a class="code" href="lmem_8h.html#715cc368a85506c7a104cda58f270f3e">luaM_newvector</a>(L, newsize, <a class="code" href="unionGCObject.html">GCObject</a> *); <a name="l00029"></a>00029 <a class="code" href="structstringtable.html">stringtable</a> *tb = &<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt; <a name="l00030"></a>00030 <span class="keywordtype">int</span> i; <a name="l00031"></a>00031 <span class="keywordflow">for</span> (i=0; i<newsize; i++) newhash[i] = NULL; <a name="l00032"></a>00032 <span class="comment">/* rehash */</span> <a name="l00033"></a>00033 <span class="keywordflow">for</span> (i=0; i<tb-><a class="code" href="structstringtable.html#10674affaad79ff819b6aa3b4618b94e">size</a>; i++) { <a name="l00034"></a>00034 <a class="code" href="unionGCObject.html">GCObject</a> *p = tb-><a class="code" href="structstringtable.html#132ba77978bbf9852ad840e11975e347">hash</a>[i]; <a name="l00035"></a>00035 while (p) { <span class="comment">/* for each node in the list */</span> <a name="l00036"></a>00036 <a class="code" href="unionGCObject.html">GCObject</a> *<a class="code" href="llex_8c.html#63a4975e63fa906cd2432d0e7b65d304">next</a> = p->gch.next; <span class="comment">/* save next */</span> <a name="l00037"></a>00037 <a class="code" href="llimits_8h.html#6bd8ffeee8032212306017a8f3dda6c6">lu_hash</a> h = <a class="code" href="lstate_8h.html#ccac69fd582898bfa9fe9067c17a1948">gcotots</a>(p)->tsv.hash; <a name="l00038"></a>00038 <span class="keywordtype">int</span> h1 = <a class="code" href="lobject_8h.html#528d710ddad324002e3cb47992740b6a">lmod</a>(h, newsize); <span class="comment">/* new position */</span> <a name="l00039"></a>00039 <a class="code" href="llimits_8h.html#5978f5fda715bd80e845df1e16ad7780">lua_assert</a>(<a class="code" href="llimits_8h.html#f17d62ec9e237a7644de6b9b34a48a34">cast</a>(<span class="keywordtype">int</span>, h%newsize) == <a class="code" href="lobject_8h.html#528d710ddad324002e3cb47992740b6a">lmod</a>(h, newsize)); <a name="l00040"></a>00040 p->gch.next = newhash[h1]; <span class="comment">/* chain it */</span> <a name="l00041"></a>00041 newhash[h1] = p; <a name="l00042"></a>00042 p = <a class="code" href="llex_8c.html#63a4975e63fa906cd2432d0e7b65d304">next</a>; <a name="l00043"></a>00043 } <a name="l00044"></a>00044 } <a name="l00045"></a>00045 <a class="code" href="lmem_8h.html#0e7e8302eb92be56c1043f086deed39a">luaM_freearray</a>(L, tb-><a class="code" href="structstringtable.html#132ba77978bbf9852ad840e11975e347">hash</a>, tb-><a class="code" href="structstringtable.html#10674affaad79ff819b6aa3b4618b94e">size</a>, <a class="code" href="unionTString.html">TString</a> *); <a name="l00046"></a>00046 tb-><a class="code" href="structstringtable.html#10674affaad79ff819b6aa3b4618b94e">size</a> = newsize; <a name="l00047"></a>00047 tb-><a class="code" href="structstringtable.html#132ba77978bbf9852ad840e11975e347">hash</a> = newhash; <a name="l00048"></a>00048 } <a name="l00049"></a>00049 <a name="l00050"></a>00050 <a name="l00051"></a>00051 <span class="comment">/*@null@*/</span> <a name="l00052"></a><a class="code" href="lstring_8c.html#05482f6a45fa9659785c86bf9b3e7acf">00052</a> <span class="keyword">static</span> <a class="code" href="unionTString.html">TString</a> *<a class="code" href="lstring_8c.html#05482f6a45fa9659785c86bf9b3e7acf">newlstr</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <span class="keyword">const</span> <span class="keywordtype">char</span> *str, size_t l, <a class="code" href="llimits_8h.html#6bd8ffeee8032212306017a8f3dda6c6">lu_hash</a> h) <a name="l00053"></a>00053 <span class="comment">/*@modifies L @*/</span> <a name="l00054"></a>00054 { <a name="l00055"></a>00055 <a class="code" href="unionTString.html">TString</a> *ts = <a class="code" href="llimits_8h.html#f17d62ec9e237a7644de6b9b34a48a34">cast</a>(<a class="code" href="unionTString.html">TString</a> *, <a class="code" href="lmem_8h.html#352102a0627666bfc7f22209c1a7027d">luaM_malloc</a>(L, <a class="code" href="lstring_8h.html#00cc0e1efaeb77fee91a0aa2374a4ee1">sizestring</a>(l))); <a name="l00056"></a>00056 <a class="code" href="structstringtable.html">stringtable</a> *tb; <a name="l00057"></a>00057 ts-><a class="code" href="unionTString.html#255604d92e4b7497e037ea98a89fca5f">tsv</a>.<a class="code" href="unionTString.html#6b5aaf70a9fcad72f7ba17975f548b0d">len</a> = l; <a name="l00058"></a>00058 ts-><a class="code" href="unionTString.html#255604d92e4b7497e037ea98a89fca5f">tsv</a>.<a class="code" href="unionTString.html#b3f2d9c4edaa2711d1f60c9f3a9154bd">hash</a> = h; <a name="l00059"></a>00059 ts-><a class="code" href="unionTString.html#255604d92e4b7497e037ea98a89fca5f">tsv</a>.<a class="code" href="unionTString.html#5a81befec2333f4dda006fb4bd376299">marked</a> = 0; <a name="l00060"></a>00060 ts-><a class="code" href="unionTString.html#255604d92e4b7497e037ea98a89fca5f">tsv</a>.<a class="code" href="unionTString.html#9e42f40aa0344ba72b7a31fbe69860c0">tt</a> = LUA_TSTRING; <a name="l00061"></a>00061 ts-><a class="code" href="unionTString.html#255604d92e4b7497e037ea98a89fca5f">tsv</a>.<a class="code" href="unionTString.html#34c83baac32690a37e49838d5ca42a9c">reserved</a> = 0; <a name="l00062"></a>00062 memcpy(ts+1, str, l*<span class="keyword">sizeof</span>(<span class="keywordtype">char</span>)); <a name="l00063"></a>00063 ((<span class="keywordtype">char</span> *)(ts+1))[l] = <span class="charliteral">'\0'</span>; <span class="comment">/* ending 0 */</span> <a name="l00064"></a>00064 tb = &<a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt; <a name="l00065"></a>00065 h = <a class="code" href="lobject_8h.html#528d710ddad324002e3cb47992740b6a">lmod</a>(h, tb-><a class="code" href="structstringtable.html#10674affaad79ff819b6aa3b4618b94e">size</a>); <a name="l00066"></a>00066 ts-><a class="code" href="unionTString.html#255604d92e4b7497e037ea98a89fca5f">tsv</a>.<a class="code" href="unionTString.html#086547a8198fa7e4051e4519eaa89ce6">next</a> = tb-><a class="code" href="structstringtable.html#132ba77978bbf9852ad840e11975e347">hash</a>[h]; <span class="comment">/* chain new entry */</span> <a name="l00067"></a>00067 tb-><a class="code" href="structstringtable.html#132ba77978bbf9852ad840e11975e347">hash</a>[h] = <a class="code" href="lstate_8h.html#b45b06e8618aa4a7bf53171933f30d57">valtogco</a>(ts); <a name="l00068"></a>00068 tb-><a class="code" href="structstringtable.html#e5c0aebea09828e0e250a34ebea683a3">nuse</a>++; <a name="l00069"></a>00069 <span class="keywordflow">if</span> (tb-><a class="code" href="structstringtable.html#e5c0aebea09828e0e250a34ebea683a3">nuse</a> > <a class="code" href="llimits_8h.html#f17d62ec9e237a7644de6b9b34a48a34">cast</a>(<a class="code" href="llimits_8h.html#aec649ed31f1a3983453f89bc24ff89f">ls_nstr</a>, tb-><a class="code" href="structstringtable.html#10674affaad79ff819b6aa3b4618b94e">size</a>) && tb-><a class="code" href="structstringtable.html#10674affaad79ff819b6aa3b4618b94e">size</a> <= <a class="code" href="llimits_8h.html#aa1ac5caef84256eaeb39594e58e096f">MAX_INT</a>/2) <a name="l00070"></a>00070 <a class="code" href="lstring_8c.html#88a409a2e7eee2106940f69d7884c471">luaS_resize</a>(L, tb-><a class="code" href="structstringtable.html#10674affaad79ff819b6aa3b4618b94e">size</a>*2); <span class="comment">/* too crowded */</span> <a name="l00071"></a>00071 <span class="keywordflow">return</span> ts; <a name="l00072"></a>00072 } <a name="l00073"></a>00073 <a name="l00074"></a>00074 <a name="l00075"></a><a class="code" href="lstring_8h.html#b41fb084ce3ea5e2779f6659ccc2484d">00075</a> <a class="code" href="unionTString.html">TString</a> *<a class="code" href="lstring_8c.html#b41fb084ce3ea5e2779f6659ccc2484d">luaS_newlstr</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, <span class="keyword">const</span> <span class="keywordtype">char</span> *str, size_t l) { <a name="l00076"></a>00076 <a class="code" href="unionGCObject.html">GCObject</a> *o; <a name="l00077"></a>00077 <a class="code" href="llimits_8h.html#6bd8ffeee8032212306017a8f3dda6c6">lu_hash</a> h = (<a class="code" href="llimits_8h.html#6bd8ffeee8032212306017a8f3dda6c6">lu_hash</a>)l; <span class="comment">/* seed */</span> <a name="l00078"></a>00078 size_t step = (l>>5)+1; <span class="comment">/* if string is too long, don't hash all its chars */</span> <a name="l00079"></a>00079 size_t l1; <a name="l00080"></a>00080 <span class="keywordflow">for</span> (l1=l; l1>=step; l1-=step) <span class="comment">/* compute hash */</span> <a name="l00081"></a>00081 h = h ^ ((h<<5)+(h>>2)+(<span class="keywordtype">unsigned</span> <span class="keywordtype">char</span>)(str[l1-1])); <a name="l00082"></a>00082 <span class="keywordflow">for</span> (o = <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.hash[<a class="code" href="lobject_8h.html#528d710ddad324002e3cb47992740b6a">lmod</a>(h, <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->strt.size)]; <a name="l00083"></a>00083 o != NULL; <a name="l00084"></a>00084 o = o-><a class="code" href="unionGCObject.html#1abd8f26ec7f6d3c47da2b9411b87a95">gch</a>.<a class="code" href="structGCheader.html#bcc9ef17eccbf3208661a57a006a68ff">next</a>) { <a name="l00085"></a>00085 <a class="code" href="unionTString.html">TString</a> *ts = <a class="code" href="lstate_8h.html#ccac69fd582898bfa9fe9067c17a1948">gcotots</a>(o); <a name="l00086"></a>00086 <span class="keywordflow">if</span> (ts->tsv.len == l && (memcmp(str, <a class="code" href="lobject_8h.html#cb05d3ab238923581a9c629b8e11a6ac">getstr</a>(ts), l) == 0)) <a name="l00087"></a>00087 <span class="keywordflow">return</span> ts; <a name="l00088"></a>00088 } <a name="l00089"></a>00089 <span class="keywordflow">return</span> <a class="code" href="lstring_8c.html#05482f6a45fa9659785c86bf9b3e7acf">newlstr</a>(L, str, l, h); <span class="comment">/* not found */</span> <a name="l00090"></a>00090 } <a name="l00091"></a>00091 <a name="l00092"></a>00092 <a name="l00093"></a><a class="code" href="lstring_8h.html#91255fe58c6be556cba13f83bf2850cb">00093</a> <a class="code" href="unionUdata.html">Udata</a> *<a class="code" href="lstring_8c.html#91255fe58c6be556cba13f83bf2850cb">luaS_newudata</a> (<a class="code" href="structlua__State.html">lua_State</a> *L, size_t s) { <a name="l00094"></a>00094 <a class="code" href="unionUdata.html">Udata</a> *u; <a name="l00095"></a>00095 u = <a class="code" href="llimits_8h.html#f17d62ec9e237a7644de6b9b34a48a34">cast</a>(<a class="code" href="unionUdata.html">Udata</a> *, <a class="code" href="lmem_8h.html#352102a0627666bfc7f22209c1a7027d">luaM_malloc</a>(L, <a class="code" href="lstring_8h.html#669a28378c7db20a6f434ed8cac0c6d1">sizeudata</a>(s))); <a name="l00096"></a>00096 u-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#32538355e2e24ff28c37f0d637dd19c6">marked</a> = (1<<1); <span class="comment">/* is not finalized */</span> <a name="l00097"></a>00097 u-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#e80568ef2b271f37d45b2e6257edd761">tt</a> = LUA_TUSERDATA; <a name="l00098"></a>00098 u-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#bc467c0c1ec8511376150eb728514dc5">len</a> = s; <a name="l00099"></a>00099 u-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#39f828bdcf3f046e285ffbecfcaea56b">metatable</a> = <a class="code" href="lobject_8h.html#336a6ce5e8340e6de133ec249cf47ebf">hvalue</a>(<a class="code" href="lstate_8h.html#9e5e09b7a0a8beffba454495b5124ac7">defaultmeta</a>(L)); <a name="l00100"></a>00100 <span class="comment">/* chain it on udata list */</span> <a name="l00101"></a>00101 u-><a class="code" href="unionUdata.html#ed59bf14adb5708fbf68e2836dfcb8d3">uv</a>.<a class="code" href="unionUdata.html#30abc9118049ddfc50b2b6eeece95bb9">next</a> = <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootudata; <a name="l00102"></a>00102 <a class="code" href="lstate_8h.html#103db2de6edf3420c6c6c9a282562406">G</a>(L)->rootudata = <a class="code" href="lstate_8h.html#b45b06e8618aa4a7bf53171933f30d57">valtogco</a>(u); <a name="l00103"></a>00103 <span class="keywordflow">return</span> u; <a name="l00104"></a>00104 } <a name="l00105"></a>00105 </pre></div><hr size="1"><address style="align: right;"><small>Generated on 1 Oct 2013 for rpm by <a href="http://www.doxygen.org/index.html"> <img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.4.7 </small></address> </body> </html>