| /civetweb-2.7.6/src/third_party/lua-5.2.4/src/ |
| D | lobject.h | 113 #define val_(o) ((o)->value_) argument
114 #define num_(o) (val_(o).n) argument
118 #define rttype(o) ((o)->tt_) argument
124 #define ttype(o) (rttype(o) & 0x3F) argument
127 #define ttypenv(o) (novariant(rttype(o))) argument
131 #define checktag(o,t) (rttype(o) == (t)) argument
132 #define checktype(o,t) (ttypenv(o) == (t)) argument
133 #define ttisnumber(o) checktag((o), LUA_TNUMBER) argument
134 #define ttisnil(o) checktag((o), LUA_TNIL) argument
135 #define ttisboolean(o) checktag((o), LUA_TBOOLEAN) argument
[all …]
|
| D | Makefile | 32 CORE_O= lapi.o lcode.o lctype.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o \
33 lmem.o lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o \
34 ltm.o lundump.o lvm.o lzio.o
35 LIB_O= lauxlib.o lbaselib.o lbitlib.o lcorolib.o ldblib.o liolib.o \
36 lmathlib.o loslib.o lstrlib.o ltablib.o loadlib.o linit.o
40 LUA_O= lua.o
43 LUAC_O= luac.o
54 o: $(ALL_O) target
124 .PHONY: all $(PLATS) default o a clean depend echo none
128 lapi.o: lapi.c lua.h luaconf.h lapi.h llimits.h lstate.h lobject.h ltm.h \
[all …]
|
| D | lgc.c | 75 #define markvalue(g,o) { checkconsistency(o); \ argument
76 if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); }
81 static void reallymarkobject (global_State *g, GCObject *o);
121 static int iscleared (global_State *g, const TValue *o) { in iscleared() argument
122 if (!iscollectable(o)) return 0; in iscleared()
123 else if (ttisstring(o)) { in iscleared()
124 markobject(g, rawtsvalue(o)); /* strings are `values', so are never weak */ in iscleared()
127 else return iswhite(gcvalue(o)); in iscleared()
135 void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v) { in luaC_barrier_() argument
137 lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); in luaC_barrier_()
[all …]
|
| D | lstate.h | 197 #define gch(o) (&(o)->gch) argument
200 #define rawgco2ts(o) \ argument
201 check_exp(novariant((o)->gch.tt) == LUA_TSTRING, &((o)->ts))
202 #define gco2ts(o) (&rawgco2ts(o)->tsv) argument
203 #define rawgco2u(o) check_exp((o)->gch.tt == LUA_TUSERDATA, &((o)->u)) argument
204 #define gco2u(o) (&rawgco2u(o)->uv) argument
205 #define gco2lcl(o) check_exp((o)->gch.tt == LUA_TLCL, &((o)->cl.l)) argument
206 #define gco2ccl(o) check_exp((o)->gch.tt == LUA_TCCL, &((o)->cl.c)) argument
207 #define gco2cl(o) \ argument
208 check_exp(novariant((o)->gch.tt) == LUA_TFUNCTION, &((o)->cl))
[all …]
|
| D | lapi.c | 41 #define isvalid(o) ((o) != luaO_nilobject) argument
47 #define isstackindex(i, o) (isvalid(o) && !ispseudo(i)) argument
49 #define api_checkvalidindex(L, o) api_check(L, isvalid(o), "invalid index") argument
51 #define api_checkstackindex(L, i, o) \ argument
52 api_check(L, isstackindex(i, o), "index not in the stack")
58 TValue *o = ci->func + idx; in index2addr() local
60 if (o >= L->top) return NONVALIDVALUE; in index2addr()
61 else return o; in index2addr()
250 StkId o = index2addr(L, idx); in lua_type() local
251 return (isvalid(o) ? ttypenv(o) : LUA_TNONE); in lua_type()
[all …]
|
| D | lgc.h | 108 #define resetoldbit(o) resetbit((o)->gch.marked, OLDBIT) argument
133 #define luaC_objbarrier(L,p,o) \ argument
134 { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \
135 luaC_barrier_(L,obj2gco(p),obj2gco(o)); }
137 #define luaC_objbarrierback(L,p,o) \ argument
138 { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) luaC_barrierback_(L,p); }
150 LUAI_FUNC void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v);
151 LUAI_FUNC void luaC_barrierback_ (lua_State *L, GCObject *o);
153 LUAI_FUNC void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt);
|
| D | lvm.h | 16 #define tostring(L,o) (ttisstring(o) || (luaV_tostring(L, o))) argument
18 #define tonumber(o,n) (ttisnumber(o) || (((o) = luaV_tonumber(o,n)) != NULL)) argument
|
| D | luac.c | 253 const TValue* o=&f->k[i]; in PrintConstant() local
254 switch (ttypenv(o)) in PrintConstant()
260 printf(bvalue(o) ? "true" : "false"); in PrintConstant()
263 printf(LUA_NUMBER_FMT,nvalue(o)); in PrintConstant()
266 PrintString(rawtsvalue(o)); in PrintConstant()
269 printf("? type=%d",ttype(o)); in PrintConstant()
284 OpCode o=GET_OPCODE(i); in PrintCode() local
294 printf("%-9s\t",luaP_opnames[o]); in PrintCode()
295 switch (getOpMode(o)) in PrintCode()
299 if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (MYK(INDEXK(b))) : b); in PrintCode()
[all …]
|
| /civetweb-2.7.6/test/ |
| D | test.pl | 82 sub o { subroutine
159 o("GET /test/hello.txt HTTP/1.0\n\n", 'HTTP/1.1 200 OK', 'Loading config file');
179 o("GET /hello.txt HTTP/1.1\nConnection: close\nRange: bytes=3-50\r\n\r\n",
182 o("GET /hello.txt HTTP/1.1\n\n GET /hello.txt HTTP/1.0\n\n",
188 o("POST /env.cgi HTTP/1.0\r\nContent-Length: $len\r\n\r\n$x",
194 o("GET /hello.txt HTTP/1.0\n\n", 'HTTP/1.1 200 OK', 'GET regular file');
195 o("GET /hello.txt HTTP/1.0\nContent-Length: -2147483648\n\n",
197 o("GET /hello.txt HTTP/1.0\n\n", 'Content-Length: 17\s',
199 o("GET /%68%65%6c%6c%6f%2e%74%78%74 HTTP/1.0\n\n",
215 o("GET /a+.txt HTTP/1.0\n\n", 'HTTP/1.1 200 OK', 'URL-decoding, + in URI');
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.3.5/src/ |
| D | lobject.h | 123 #define val_(o) ((o)->value_) argument
127 #define rttype(o) ((o)->tt_) argument
133 #define ttype(o) (rttype(o) & 0x3F) argument
136 #define ttnov(o) (novariant(rttype(o))) argument
140 #define checktag(o,t) (rttype(o) == (t)) argument
141 #define checktype(o,t) (ttnov(o) == (t)) argument
142 #define ttisnumber(o) checktype((o), LUA_TNUMBER) argument
143 #define ttisfloat(o) checktag((o), LUA_TNUMFLT) argument
144 #define ttisinteger(o) checktag((o), LUA_TNUMINT) argument
145 #define ttisnil(o) checktag((o), LUA_TNIL) argument
[all …]
|
| D | Makefile | 32 CORE_O= lapi.o lcode.o lctype.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o \
33 lmem.o lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o \
34 ltm.o lundump.o lvm.o lzio.o
35 LIB_O= lauxlib.o lbaselib.o lbitlib.o lcorolib.o ldblib.o liolib.o \
36 lmathlib.o loslib.o lstrlib.o ltablib.o lutf8lib.o loadlib.o linit.o
40 LUA_O= lua.o
43 LUAC_O= luac.o
54 o: $(ALL_O) target
128 .PHONY: all $(PLATS) default o a clean depend echo none
132 lapi.o: lapi.c lprefix.h lua.h luaconf.h lapi.h llimits.h lstate.h \
[all …]
|
| D | lgc.c | 83 #define markvalue(g,o) { checkconsistency(o); \ argument
84 if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); }
94 static void reallymarkobject (global_State *g, GCObject *o);
113 #define linkgclist(o,p) ((o)->gclist = (p), (p) = obj2gco(o)) argument
139 static int iscleared (global_State *g, const TValue *o) { in iscleared() argument
140 if (!iscollectable(o)) return 0; in iscleared()
141 else if (ttisstring(o)) { in iscleared()
142 markobject(g, tsvalue(o)); /* strings are 'values', so are never weak */ in iscleared()
145 else return iswhite(gcvalue(o)); in iscleared()
155 void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v) { in luaC_barrier_() argument
[all …]
|
| D | lstate.h | 222 #define cast_u(o) cast(union GCUnion *, (o)) argument
225 #define gco2ts(o) \ argument
226 check_exp(novariant((o)->tt) == LUA_TSTRING, &((cast_u(o))->ts))
227 #define gco2u(o) check_exp((o)->tt == LUA_TUSERDATA, &((cast_u(o))->u)) argument
228 #define gco2lcl(o) check_exp((o)->tt == LUA_TLCL, &((cast_u(o))->cl.l)) argument
229 #define gco2ccl(o) check_exp((o)->tt == LUA_TCCL, &((cast_u(o))->cl.c)) argument
230 #define gco2cl(o) \ argument
231 check_exp(novariant((o)->tt) == LUA_TFUNCTION, &((cast_u(o))->cl))
232 #define gco2t(o) check_exp((o)->tt == LUA_TTABLE, &((cast_u(o))->h)) argument
233 #define gco2p(o) check_exp((o)->tt == LUA_TPROTO, &((cast_u(o))->p)) argument
[all …]
|
| D | lapi.c | 43 #define isvalid(o) ((o) != luaO_nilobject) argument
52 #define isstackindex(i, o) (isvalid(o) && !ispseudo(i)) argument
54 #define api_checkvalidindex(l,o) api_check(l, isvalid(o), "invalid index") argument
56 #define api_checkstackindex(l, i, o) \ argument
57 api_check(l, isstackindex(i, o), "index not in the stack")
63 TValue *o = ci->func + idx; in index2addr() local
65 if (o >= L->top) return NONVALIDVALUE; in index2addr()
66 else return o; in index2addr()
252 StkId o = index2addr(L, idx); in lua_type() local
253 return (isvalid(o) ? ttnov(o) : LUA_TNONE); in lua_type()
[all …]
|
| D | lvm.h | 17 #define cvt2str(o) ttisnumber(o) argument
19 #define cvt2str(o) 0 /* no conversion from numbers to strings */ argument
24 #define cvt2num(o) ttisstring(o) argument
26 #define cvt2num(o) 0 /* no conversion from strings to numbers */ argument
40 #define tonumber(o,n) \ argument
41 (ttisfloat(o) ? (*(n) = fltvalue(o), 1) : luaV_tonumber_(o,n))
43 #define tointeger(o,i) \ argument
44 (ttisinteger(o) ? (*(i) = ivalue(o), 1) : luaV_tointeger(o,i,LUA_FLOORN2I))
|
| D | ltm.c | 70 const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, TMS event) { in luaT_gettmbyobj() argument
72 switch (ttnov(o)) { in luaT_gettmbyobj()
74 mt = hvalue(o)->metatable; in luaT_gettmbyobj()
77 mt = uvalue(o)->metatable; in luaT_gettmbyobj()
80 mt = G(L)->mt[ttnov(o)]; in luaT_gettmbyobj()
90 const char *luaT_objtypename (lua_State *L, const TValue *o) { in luaT_objtypename() argument
92 if ((ttistable(o) && (mt = hvalue(o)->metatable) != NULL) || in luaT_objtypename()
93 (ttisfulluserdata(o) && (mt = uvalue(o)->metatable) != NULL)) { in luaT_objtypename()
98 return ttypename(ttnov(o)); /* else use standard type name */ in luaT_objtypename()
|
| D | luac.c | 256 const TValue* o=&f->k[i]; in PrintConstant() local
257 switch (ttype(o)) in PrintConstant()
263 printf(bvalue(o) ? "true" : "false"); in PrintConstant()
268 sprintf(buff,LUA_NUMBER_FMT,fltvalue(o)); in PrintConstant()
274 printf(LUA_INTEGER_FMT,ivalue(o)); in PrintConstant()
277 PrintString(tsvalue(o)); in PrintConstant()
280 printf("? type=%d",ttype(o)); in PrintConstant()
295 OpCode o=GET_OPCODE(i); in PrintCode() local
305 printf("%-9s\t",luaP_opnames[o]); in PrintCode()
306 switch (getOpMode(o)) in PrintCode()
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.1.5/src/ |
| D | lobject.h | 79 #define ttisnil(o) (ttype(o) == LUA_TNIL) argument
80 #define ttisnumber(o) (ttype(o) == LUA_TNUMBER) argument
81 #define ttisstring(o) (ttype(o) == LUA_TSTRING) argument
82 #define ttistable(o) (ttype(o) == LUA_TTABLE) argument
83 #define ttisfunction(o) (ttype(o) == LUA_TFUNCTION) argument
84 #define ttisboolean(o) (ttype(o) == LUA_TBOOLEAN) argument
85 #define ttisuserdata(o) (ttype(o) == LUA_TUSERDATA) argument
86 #define ttisthread(o) (ttype(o) == LUA_TTHREAD) argument
87 #define ttislightuserdata(o) (ttype(o) == LUA_TLIGHTUSERDATA) argument
90 #define ttype(o) ((o)->tt) argument
[all …]
|
| D | Makefile | 26 CORE_O= lapi.o lcode.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o lmem.o \
27 lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o ltm.o \
28 lundump.o lvm.o lzio.o
29 LIB_O= lauxlib.o lbaselib.o ldblib.o liolib.o lmathlib.o loslib.o ltablib.o \
30 lstrlib.o loadlib.o linit.o
33 LUA_O= lua.o
36 LUAC_O= luac.o print.o
46 o: $(ALL_O) target
119 .PHONY: all $(PLATS) default o a clean depend echo none
123 lapi.o: lapi.c lua.h luaconf.h lapi.h lobject.h llimits.h ldebug.h \
[all …]
|
| D | lgc.c | 52 #define markvalue(g,o) { checkconsistency(o); \ argument
53 if (iscollectable(o) && iswhite(gcvalue(o))) reallymarkobject(g,gcvalue(o)); }
69 static void reallymarkobject (global_State *g, GCObject *o) { in reallymarkobject() argument
70 lua_assert(iswhite(o) && !isdead(g, o)); in reallymarkobject()
71 white2gray(o); in reallymarkobject()
72 switch (o->gch.tt) { in reallymarkobject()
77 Table *mt = gco2u(o)->metatable; in reallymarkobject()
78 gray2black(o); /* udata are never gray */ in reallymarkobject()
80 markobject(g, gco2u(o)->env); in reallymarkobject()
84 UpVal *uv = gco2uv(o); in reallymarkobject()
[all …]
|
| D | lstate.h | 149 #define rawgco2ts(o) check_exp((o)->gch.tt == LUA_TSTRING, &((o)->ts)) argument
150 #define gco2ts(o) (&rawgco2ts(o)->tsv) argument
151 #define rawgco2u(o) check_exp((o)->gch.tt == LUA_TUSERDATA, &((o)->u)) argument
152 #define gco2u(o) (&rawgco2u(o)->uv) argument
153 #define gco2cl(o) check_exp((o)->gch.tt == LUA_TFUNCTION, &((o)->cl)) argument
154 #define gco2h(o) check_exp((o)->gch.tt == LUA_TTABLE, &((o)->h)) argument
155 #define gco2p(o) check_exp((o)->gch.tt == LUA_TPROTO, &((o)->p)) argument
156 #define gco2uv(o) check_exp((o)->gch.tt == LUA_TUPVAL, &((o)->uv)) argument
157 #define ngcotouv(o) \ argument
158 check_exp((o) == NULL || (o)->gch.tt == LUA_TUPVAL, &((o)->uv))
[all …]
|
| D | lapi.c | 51 TValue *o = L->base + (idx - 1); in index2adr() local
53 if (o >= L->top) return cast(TValue *, luaO_nilobject); in index2adr()
54 else return o; in index2adr()
89 void luaA_pushobject (lua_State *L, const TValue *o) { in luaA_pushobject() argument
90 setobj2s(L, L->top, o); in luaA_pushobject()
204 StkId o; in lua_replace() local
210 o = index2adr(L, idx); in lua_replace()
211 api_checkvalidindex(L, o); in lua_replace()
219 setobj(L, o, L->top - 1); in lua_replace()
243 StkId o = index2adr(L, idx); in lua_type() local
[all …]
|
| D | print.c | 53 const TValue* o=&f->k[i]; in PrintConstant() local
54 switch (ttype(o)) in PrintConstant()
60 printf(bvalue(o) ? "true" : "false"); in PrintConstant()
63 printf(LUA_NUMBER_FMT,nvalue(o)); in PrintConstant()
66 PrintString(rawtsvalue(o)); in PrintConstant()
69 printf("? type=%d",ttype(o)); in PrintConstant()
81 OpCode o=GET_OPCODE(i); in PrintCode() local
90 printf("%-9s\t",luaP_opnames[o]); in PrintCode()
91 switch (getOpMode(o)) in PrintCode()
95 if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (-1-INDEXK(b)) : b); in PrintCode()
[all …]
|
| D | lvm.h | 16 #define tostring(L,o) ((ttype(o) == LUA_TSTRING) || (luaV_tostring(L, o))) argument
18 #define tonumber(o,n) (ttype(o) == LUA_TNUMBER || \ argument
19 (((o) = luaV_tonumber(o,n)) != NULL))
|
| /civetweb-2.7.6/test/ajax/ |
| D | jquery.js | 2 …o=n.slice,a=n.concat,s=n.push,u=n.indexOf,l={},c=l.toString,f=l.hasOwnProperty,p=f.toString,d=p.ca… argument
|
