| /civetweb-2.7.6/src/third_party/lua-5.1.5/src/ |
| D | lgc.c | 34 #define makewhite(g,x) \ argument
35 ((x)->gch.marked = cast_byte(((x)->gch.marked & maskmarks) | luaC_white(g)))
37 #define white2gray(x) reset2bits((x)->gch.marked, WHITE0BIT, WHITE1BIT)
38 #define black2gray(x) resetbit((x)->gch.marked, BLACKBIT)
40 #define stringmark(s) reset2bits((s)->tsv.marked, WHITE0BIT, WHITE1BIT)
43 #define isfinalized(u) testbit((u)->marked, FINALIZEDBIT)
44 #define markfinalized(u) l_setbit((u)->marked, FINALIZEDBIT)
52 #define markvalue(g,o) { checkconsistency(o); \ argument
53 if (iscollectable(o) && iswhite(gcvalue(o))) reallymarkobject(g,gcvalue(o)); }
55 #define markobject(g,t) { if (iswhite(obj2gco(t))) \ argument
[all …]
|
| D | lstate.c | 28 #define fromstate(l) (cast(lu_byte *, (l)) - LUAI_EXTRASPACE)
37 global_State g; member
44 L1->base_ci = luaM_newvector(L, BASIC_CI_SIZE, CallInfo); in stack_init()
45 L1->ci = L1->base_ci; in stack_init()
46 L1->size_ci = BASIC_CI_SIZE; in stack_init()
47 L1->end_ci = L1->base_ci + L1->size_ci - 1; in stack_init()
49 L1->stack = luaM_newvector(L, BASIC_STACK_SIZE + EXTRA_STACK, TValue); in stack_init()
50 L1->stacksize = BASIC_STACK_SIZE + EXTRA_STACK; in stack_init()
51 L1->top = L1->stack; in stack_init()
52 L1->stack_last = L1->stack+(L1->stacksize - EXTRA_STACK)-1; in stack_init()
[all …]
|
| D | lapi.c | 41 #define api_checknelems(L, n) api_check(L, (n) <= (L->top - L->base))
45 #define api_incr_top(L) {api_check(L, L->top < L->ci->top); L->top++;}
51 TValue *o = L->base + (idx - 1); in index2adr()
52 api_check(L, idx <= L->ci->top - L->base); in index2adr()
53 if (o >= L->top) return cast(TValue *, luaO_nilobject); in index2adr()
57 api_check(L, idx != 0 && -idx <= L->top - L->base); in index2adr()
58 return L->top + idx; in index2adr()
60 else switch (idx) { /* pseudo-indices */ in index2adr()
64 sethvalue(L, &L->env, func->c.env); in index2adr()
65 return &L->env; in index2adr()
[all …]
|
| D | lstring.c | 26 if (G(L)->gcstate == GCSsweepstring) in luaS_resize()
29 tb = &G(L)->strt; in luaS_resize()
32 for (i=0; i<tb->size; i++) { in luaS_resize()
33 GCObject *p = tb->hash[i]; in luaS_resize()
35 GCObject *next = p->gch.next; /* save next */ in luaS_resize()
36 unsigned int h = gco2ts(p)->hash; in luaS_resize()
39 p->gch.next = newhash[h1]; /* chain it */ in luaS_resize()
44 luaM_freearray(L, tb->hash, tb->size, TString *); in luaS_resize()
45 tb->size = newsize; in luaS_resize()
46 tb->hash = newhash; in luaS_resize()
[all …]
|
| D | lfunc.c | 26 c->c.isC = 1; in luaF_newCclosure()
27 c->c.env = e; in luaF_newCclosure()
28 c->c.nupvalues = cast_byte(nelems); in luaF_newCclosure()
36 c->l.isC = 0; in luaF_newLclosure()
37 c->l.env = e; in luaF_newLclosure()
38 c->l.nupvalues = cast_byte(nelems); in luaF_newLclosure()
39 while (nelems--) c->l.upvals[nelems] = NULL; in luaF_newLclosure()
47 uv->v = &uv->u.value; in luaF_newupval()
48 setnilvalue(uv->v); in luaF_newupval()
54 global_State *g = G(L); in luaF_findupval() local
[all …]
|
| D | lgc.h | 43 ** bit 0 - object is white (type 0)
44 ** bit 1 - object is white (type 1)
45 ** bit 2 - object is black
46 ** bit 3 - for userdata: has been finalized
47 ** bit 3 - for tables: has weak keys
48 ** bit 4 - for tables: has weak values
49 ** bit 5 - object is fixed (should not be collected)
50 ** bit 6 - object is "super" fixed (only the main thread)
65 #define iswhite(x) test2bits((x)->gch.marked, WHITE0BIT, WHITE1BIT)
66 #define isblack(x) testbit((x)->gch.marked, BLACKBIT)
[all …]
|
| D | lobject.h | 26 ** Extra tags for non-values
90 #define ttype(o) ((o)->tt)
91 #define gcvalue(o) check_exp(iscollectable(o), (o)->value.gc)
92 #define pvalue(o) check_exp(ttislightuserdata(o), (o)->value.p)
93 #define nvalue(o) check_exp(ttisnumber(o), (o)->value.n)
94 #define rawtsvalue(o) check_exp(ttisstring(o), &(o)->value.gc->ts)
95 #define tsvalue(o) (&rawtsvalue(o)->tsv)
96 #define rawuvalue(o) check_exp(ttisuserdata(o), &(o)->value.gc->u)
97 #define uvalue(o) (&rawuvalue(o)->uv)
98 #define clvalue(o) check_exp(ttisfunction(o), &(o)->value.gc->cl)
[all …]
|
| D | lmem.c | 77 global_State *g = G(L); in luaM_realloc_() local
79 block = (*g->frealloc)(g->ud, block, osize, nsize); in luaM_realloc_()
83 g->totalbytes = (g->totalbytes - osize) + nsize; in luaM_realloc_()
|
| /civetweb-2.7.6/src/third_party/lua-5.2.4/src/ |
| D | lgc.c | 59 #define makewhite(g,x) \ argument
60 (gch(x)->marked = cast_byte((gch(x)->marked & maskcolors) | luaC_white(g)))
62 #define white2gray(x) resetbits(gch(x)->marked, WHITEBITS)
63 #define black2gray(x) resetbit(gch(x)->marked, BLACKBIT)
66 #define isfinalized(x) testbit(gch(x)->marked, FINALIZEDBIT)
75 #define markvalue(g,o) { checkconsistency(o); \ argument
76 if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); }
78 #define markobject(g,t) { if ((t) && iswhite(obj2gco(t))) \ argument
79 reallymarkobject(g, obj2gco(t)); }
81 static void reallymarkobject (global_State *g, GCObject *o);
[all …]
|
| D | lstate.c | 72 global_State g; member
77 #define fromstate(L) (cast(LX *, cast(lu_byte *, (L)) - offsetof(LX, l)))
106 void luaE_setdebt (global_State *g, l_mem debt) { in luaE_setdebt() argument
107 g->totalbytes -= (debt - g->GCdebt); in luaE_setdebt()
108 g->GCdebt = debt; in luaE_setdebt()
114 lua_assert(L->ci->next == NULL); in luaE_extendCI()
115 L->ci->next = ci; in luaE_extendCI()
116 ci->previous = L->ci; in luaE_extendCI()
117 ci->next = NULL; in luaE_extendCI()
123 CallInfo *ci = L->ci; in luaE_freeCI()
[all …]
|
| D | lgc.h | 24 ** is not being enforced (e.g., sweep phase).
47 #define issweepphase(g) \ argument
48 (GCSsweepstring <= (g)->gcstate && (g)->gcstate <= GCSsweep)
50 #define isgenerational(g) ((g)->gckind == KGC_GEN) argument
54 ** ones) must be kept. During a non-generational collection, the sweep
56 ** still-black objects. The invariant is restored when sweep ends and
61 #define keepinvariant(g) (isgenerational(g) || g->gcstate <= GCSatomic) argument
68 #define keepinvariantout(g) \ argument
69 check_exp(g->gcstate == GCSpropagate || !isgenerational(g), \
70 g->gcstate <= GCSatomic)
[all …]
|
| D | lapi.c | 37 /* value at a non-valid index */
56 CallInfo *ci = L->ci; in index2addr()
58 TValue *o = ci->func + idx; in index2addr()
59 api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index"); in index2addr()
60 if (o >= L->top) return NONVALIDVALUE; in index2addr()
64 api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index"); in index2addr()
65 return L->top + idx; in index2addr()
68 return &G(L)->l_registry; in index2addr()
70 idx = LUA_REGISTRYINDEX - idx; in index2addr()
72 if (ttislcf(ci->func)) /* light C function? */ in index2addr()
[all …]
|
| D | lfunc.c | 24 Closure *c = &luaC_newobj(L, LUA_TCCL, sizeCclosure(n), NULL, 0)->cl; in luaF_newCclosure()
25 c->c.nupvalues = cast_byte(n); in luaF_newCclosure()
31 Closure *c = &luaC_newobj(L, LUA_TLCL, sizeLclosure(n), NULL, 0)->cl; in luaF_newLclosure()
32 c->l.p = NULL; in luaF_newLclosure()
33 c->l.nupvalues = cast_byte(n); in luaF_newLclosure()
34 while (n--) c->l.upvals[n] = NULL; in luaF_newLclosure()
40 UpVal *uv = &luaC_newobj(L, LUA_TUPVAL, sizeof(UpVal), NULL, 0)->uv; in luaF_newupval()
41 uv->v = &uv->u.value; in luaF_newupval()
42 setnilvalue(uv->v); in luaF_newupval()
48 global_State *g = G(L); in luaF_findupval() local
[all …]
|
| D | lmem.c | 77 global_State *g = G(L); in luaM_realloc_() local
81 if (nsize > realosize && g->gcrunning) in luaM_realloc_()
84 newblock = (*g->frealloc)(g->ud, block, osize, nsize); in luaM_realloc_()
88 if (g->gcrunning) { in luaM_realloc_()
90 newblock = (*g->frealloc)(g->ud, block, osize, nsize); /* try again */ in luaM_realloc_()
96 g->GCdebt = (g->GCdebt + nsize) - realosize; in luaM_realloc_()
|
| D | lstate.h | 19 ** Some notes about garbage-collected objects: All objects in Lua must
22 ** Lua keeps most objects linked in list g->allgc. The link uses field
25 ** Strings are kept in several lists headed by the array g->strt.hash.
29 ** double-linked list with all open upvalues (g->uvhead) so that it can
35 ** Objects with finalizers are kept in the list g->finobj.
37 ** The list g->tobefnz links all objects being finalized.
106 #define isLua(ci) ((ci)->callstatus & CIST_LUA)
115 lu_mem totalbytes; /* number of bytes currently allocated - GCdebt */
118 lu_mem GCestimate; /* an estimate of the non-garbage memory in use */
135 GCObject *allweak; /* list of all-weak tables */
[all …]
|
| D | lstring.c | 34 size_t len = a->tsv.len; in luaS_eqlngstr()
35 lua_assert(a->tsv.tt == LUA_TLNGSTR && b->tsv.tt == LUA_TLNGSTR); in luaS_eqlngstr()
37 ((len == b->tsv.len) && /* equal length and ... */ in luaS_eqlngstr()
46 return (a->tsv.tt == b->tsv.tt) && in luaS_eqstr()
47 (a->tsv.tt == LUA_TSHRSTR ? eqshrstr(a, b) : luaS_eqlngstr(a, b)); in luaS_eqstr()
55 for (l1 = l; l1 >= step; l1 -= step) in luaS_hash()
56 h = h ^ ((h<<5) + (h>>2) + cast_byte(str[l1 - 1])); in luaS_hash()
66 stringtable *tb = &G(L)->strt; in luaS_resize()
69 if (newsize > tb->size) { in luaS_resize()
70 luaM_reallocvector(L, tb->hash, tb->size, newsize, GCObject *); in luaS_resize()
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.3.5/src/ |
| D | lgc.c | 67 #define makewhite(g,x) \ argument
68 (x->marked = cast_byte((x->marked & maskcolors) | luaC_white(g)))
70 #define white2gray(x) resetbits(x->marked, WHITEBITS)
71 #define black2gray(x) resetbit(x->marked, BLACKBIT)
83 #define markvalue(g,o) { checkconsistency(o); \ argument
84 if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); }
86 #define markobject(g,t) { if (iswhite(t)) reallymarkobject(g, obj2gco(t)); } argument
92 #define markobjectN(g,t) { if (t) markobject(g,t); } argument
94 static void reallymarkobject (global_State *g, GCObject *o);
113 #define linkgclist(o,p) ((o)->gclist = (p), (p) = obj2gco(o))
[all …]
|
| D | lstate.c | 65 global_State g; member
70 #define fromstate(L) (cast(LX *, cast(lu_byte *, (L)) - offsetof(LX, l)))
98 void luaE_setdebt (global_State *g, l_mem debt) { in luaE_setdebt() argument
99 l_mem tb = gettotalbytes(g); in luaE_setdebt()
101 if (debt < tb - MAX_LMEM) in luaE_setdebt()
102 debt = tb - MAX_LMEM; /* will make 'totalbytes == MAX_LMEM' */ in luaE_setdebt()
103 g->totalbytes = tb - debt; in luaE_setdebt()
104 g->GCdebt = debt; in luaE_setdebt()
110 lua_assert(L->ci->next == NULL); in luaE_extendCI()
111 L->ci->next = ci; in luaE_extendCI()
[all …]
|
| D | lstring.c | 41 size_t len = a->u.lnglen; in luaS_eqlngstr()
42 lua_assert(a->tt == LUA_TLNGSTR && b->tt == LUA_TLNGSTR); in luaS_eqlngstr()
44 ((len == b->u.lnglen) && /* equal length and ... */ in luaS_eqlngstr()
52 for (; l >= step; l -= step) in luaS_hash()
53 h ^= ((h<<5) + (h>>2) + cast_byte(str[l - 1])); in luaS_hash()
59 lua_assert(ts->tt == LUA_TLNGSTR); in luaS_hashlongstr()
60 if (ts->extra == 0) { /* no hash? */ in luaS_hashlongstr()
61 ts->hash = luaS_hash(getstr(ts), ts->u.lnglen, ts->hash); in luaS_hashlongstr()
62 ts->extra = 1; /* now it has its hash */ in luaS_hashlongstr()
64 return ts->hash; in luaS_hashlongstr()
[all …]
|
| D | lapi.c | 39 /* value at a non-valid index */
61 CallInfo *ci = L->ci; in index2addr()
63 TValue *o = ci->func + idx; in index2addr()
64 api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index"); in index2addr()
65 if (o >= L->top) return NONVALIDVALUE; in index2addr()
69 api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index"); in index2addr()
70 return L->top + idx; in index2addr()
73 return &G(L)->l_registry; in index2addr()
75 idx = LUA_REGISTRYINDEX - idx; in index2addr()
77 if (ttislcf(ci->func)) /* light C function? */ in index2addr()
[all …]
|
| D | lgc.h | 24 ** is not being enforced (e.g., sweep phase).
49 #define issweepphase(g) \ argument
50 (GCSswpallgc <= (g)->gcstate && (g)->gcstate <= GCSswpend)
57 ** still-black objects. The invariant is restored when sweep ends and
61 #define keepinvariant(g) ((g)->gcstate <= GCSatomic) argument
87 #define iswhite(x) testbits((x)->marked, WHITEBITS)
88 #define isblack(x) testbit((x)->marked, BLACKBIT)
90 (!testbits((x)->marked, WHITEBITS | bitmask(BLACKBIT)))
92 #define tofinalize(x) testbit((x)->marked, FINALIZEDBIT)
94 #define otherwhite(g) ((g)->currentwhite ^ WHITEBITS) argument
[all …]
|
| D | lmem.c | 79 global_State *g = G(L); in luaM_realloc_() local
83 if (nsize > realosize && g->gcrunning) in luaM_realloc_()
86 newblock = (*g->frealloc)(g->ud, block, osize, nsize); in luaM_realloc_()
89 if (g->version) { /* is state fully built? */ in luaM_realloc_()
91 newblock = (*g->frealloc)(g->ud, block, osize, nsize); /* try again */ in luaM_realloc_()
97 g->GCdebt = (g->GCdebt + nsize) - realosize; in luaM_realloc_()
|
| /civetweb-2.7.6/examples/_obsolete/docroot/ |
| D | jquery.js | 14 * Date: Sat Feb 13 22:33:48 2010 -0500
17 …k++){i=u[k];i.origType.replace(O,"")===a.type?f.push(i.selector):u.splice(k--,1)}j=c(a.target).clo…
18 …}}return b}}function pa(a,b){return"live."+(a&&a!=="*"?a+".":"")+b.replace(/\./g,"`").replace(/ /g,
20 …t(a,b)},Ra=A.jQuery,Sa=A.$,s=A.document,T,Ta=/^[^<]*(<[\w\W]+>)[^>]*$|^#([\w-]+)$/,Ua=/^.[^:#\[\.,…
21 Wa=/^(\s|\u00A0)+|(\s|\u00A0)+$/g,Xa=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,P=navigator.userAgent,xa=false,Q=…
24 …:function(a){return a===-1?this.slice(a):this.slice(a,+a+1)},first:function(){return this.eq(0)},l…
25 …[1]||{};b=2}if(typeof a!=="object"&&!c.isFunction(a))a={};if(d===b){a=this;--b}for(;b<d;b++)if((e=…
28 …/bfnrt]|u[0-9a-fA-F]{4})/g,"@").replace(/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]…
31 a)return d;return-1},merge:function(a,b){var d=a.length,f=0;if(typeof b.length==="number")for(var e…
37 …",usemap:"useMap",frameborder:"frameBorder"};var G="jQuery"+J(),Ya=0,za={};c.extend({cache:{},expa… variable
[all …]
|
| /civetweb-2.7.6/test/ajax/ |
| D | jquery.js | 2 …g=function e(t){return"function"==typeof t&&"number"!=typeof t.nodeType},y=function e(t){return nu… function
|
| /civetweb-2.7.6/src/third_party/lua-5.1.5/test/ |
| D | readonly.lua | 1 -- make global variables readonly
4 local g={}
5 local G=getfenv()
6 setmetatable(g,{__index=G,__newindex=f})
7 setfenv(1,g)
9 -- an example
10 rawset(g,"x",3)
12 y=1 -- cannot redefine `y'
|
