| /civetweb-2.7.6/src/third_party/lua-5.2.4/src/ |
| D | ltable.c | 11 ** Non-negative integer keys are all candidates to be kept in the array
16 ** in its main position (i.e. the `original' position that its hash gives
45 #define MAXBITS (LUAI_BITSINT-2)
53 #define hashstr(t,str) hashpow2(t, (str)->tsv.hash)
61 #define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1))))
81 int i; in hashnum() local
82 luai_hashnum(i, n); in hashnum()
83 if (i < 0) { in hashnum()
84 if (cast(unsigned int, i) == 0u - i) /* use unsigned to avoid overflows */ in hashnum()
85 i = 0; /* handle INT_MIN */ in hashnum()
[all …]
|
| D | ltablib.c | 31 if (lua_type(L, -1) == LUA_TNUMBER) { in maxn()
32 lua_Number v = lua_tonumber(L, -1); in maxn()
51 int i; in tinsert() local
54 for (i = e; i > pos; i--) { /* move up elements */ in tinsert()
55 lua_rawgeti(L, 1, i-1); in tinsert()
56 lua_rawseti(L, 1, i); /* t[i] = t[i-1] */ in tinsert()
85 static void addfield (lua_State *L, luaL_Buffer *b, int i) { in addfield() argument
86 lua_rawgeti(L, 1, i); in addfield()
87 if (!lua_isstring(L, -1)) in addfield()
89 LUA_QL("concat"), luaL_typename(L, -1), i); in addfield()
[all …]
|
| D | luac.c | 49 if (*message=='-') in usage()
56 " -l list (use -l -l for full listing)\n" in usage()
57 " -o name output to file " LUA_QL("name") " (default is \"%s\")\n" in usage()
58 " -p parse only\n" in usage()
59 " -s strip debug information\n" in usage()
60 " -v show version information\n" in usage()
61 " -- stop handling options\n" in usage()
62 " - stop handling options and process stdin\n" in usage()
67 #define IS(s) (strcmp(argv[i],s)==0)
71 int i; in doargs() local
[all …]
|
| D | lvm.c | 31 /* limit for table tag-method chains (to avoid loops) */
38 if (ttisstring(obj) && luaO_str2d(svalue(obj), tsvalue(obj)->len, &num)) { in luaV_tonumber()
61 CallInfo *ci = L->ci; in traceexec()
62 lu_byte mask = L->hookmask; in traceexec()
63 int counthook = ((mask & LUA_MASKCOUNT) && L->hookcount == 0); in traceexec()
66 if (ci->callstatus & CIST_HOOKYIELD) { /* called hook last time? */ in traceexec()
67 ci->callstatus &= ~CIST_HOOKYIELD; /* erase mark */ in traceexec()
71 luaD_hook(L, LUA_HOOKCOUNT, -1); /* call count hook */ in traceexec()
73 Proto *p = ci_func(ci)->p; in traceexec()
74 int npc = pcRel(ci->u.l.savedpc, p); in traceexec()
[all …]
|
| D | lundump.c | 32 luaO_pushfstring(S->L,"%s: %s precompiled chunk",S->name,why); in error()
33 luaD_throw(S->L,LUA_ERRSYNTAX); in error()
47 if (luaZ_read(S->Z,b,size)!=0) error(S,"truncated"); in LoadBlock()
80 char* s=luaZ_openspace(S->L,S->b,size); in LoadString()
82 return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */ in LoadString()
89 f->code=luaM_newvector(S->L,n,Instruction); in LoadCode()
90 f->sizecode=n; in LoadCode()
91 LoadVector(S,f->code,n,sizeof(Instruction)); in LoadCode()
98 int i,n; in LoadConstants() local
100 f->k=luaM_newvector(S->L,n,TValue); in LoadConstants()
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.8.0/src-separate/ |
| D | duk_heap_stringtable.c | 15 (heap)->mark_and_sweep_base_flags |= \
46 DUK_D(DUK_DPRINT("16-bit string blen/clen active and blen over 16 bits, reject intern")); in duk__alloc_init_hstring()
59 DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr); in duk__alloc_init_hstring()
61 DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, DUK_HSTRING_FLAG_EXTDATA); in duk__alloc_init_hstring()
63 ((duk_hstring_external *) res)->extdata = extdata; in duk__alloc_init_hstring()
73 DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr); in duk__alloc_init_hstring()
75 DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, 0); in duk__alloc_init_hstring()
152 duk_size_t i, n; in duk__insert_hstring_chain() local
153 duk_uint16_t null16 = heap->heapptr_null16; in duk__insert_hstring_chain()
154 duk_uint16_t h16 = DUK_USE_HEAPPTR_ENC16(heap->heap_udata, (void *) h); in duk__insert_hstring_chain()
[all …]
|
| D | duk_bi_array.c | 2 * Array built-ins
4 * Note that most Array built-ins are intentionally generic and work even
15 * where one needs a full signed 32-bit range ([-0xffffffff, 0xffffffff],
16 * i.e. -33- bits). Although array 'length' cannot be written to be outside
17 * the unsigned 32-bit range (E5.1 Section 15.4.5.1 throws a RangeError if so)
24 * duk_uint32_t (which is somewhat awkward). See test-bi-array-push-maxlen.js.
35 * "put" is used when modifying an existing array (or a non-array 'this'
51 /* Shared entry code for many Array built-ins. Note that length is left
58 duk_get_prop_stridx(ctx, -1, DUK_STRIDX_LENGTH); in duk__push_this_obj_len_u32()
59 len = duk_to_uint32(ctx, -1); in duk__push_this_obj_len_u32()
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.5.2/src-separate/ |
| D | duk_heap_stringtable.c | 15 (heap)->mark_and_sweep_base_flags |= \
46 DUK_D(DUK_DPRINT("16-bit string blen/clen active and blen over 16 bits, reject intern")); in duk__alloc_init_hstring()
59 DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr); in duk__alloc_init_hstring()
61 DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, DUK_HSTRING_FLAG_EXTDATA); in duk__alloc_init_hstring()
63 ((duk_hstring_external *) res)->extdata = extdata; in duk__alloc_init_hstring()
73 DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr); in duk__alloc_init_hstring()
75 DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, 0); in duk__alloc_init_hstring()
152 duk_size_t i, n; in duk__insert_hstring_chain() local
153 duk_uint16_t null16 = heap->heapptr_null16; in duk__insert_hstring_chain()
154 duk_uint16_t h16 = DUK_USE_HEAPPTR_ENC16(heap->heap_udata, (void *) h); in duk__insert_hstring_chain()
[all …]
|
| D | duk_bi_array.c | 2 * Array built-ins
4 * Note that most Array built-ins are intentionally generic and work even
15 * where one needs a full signed 32-bit range ([-0xffffffff, 0xffffffff],
16 * i.e. -33- bits). Although array 'length' cannot be written to be outside
17 * the unsigned 32-bit range (E5.1 Section 15.4.5.1 throws a RangeError if so)
24 * duk_uint32_t (which is somewhat awkward). See test-bi-array-push-maxlen.js.
35 * "put" is used when modifying an existing array (or a non-array 'this'
51 /* Shared entry code for many Array built-ins. Note that length is left
58 duk_get_prop_stridx(ctx, -1, DUK_STRIDX_LENGTH); in duk__push_this_obj_len_u32()
59 len = duk_to_uint32(ctx, -1); in duk__push_this_obj_len_u32()
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.1.5/src/ |
| D | ltable.c | 11 ** Non-negative integer keys are all candidates to be kept in the array
16 ** in its main position (i.e. the `original' position that its hash gives
44 #define MAXBITS (LUAI_BITSINT-2)
52 #define hashstr(t,str) hashpow2(t, (str)->tsv.hash)
60 #define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1))))
86 int i; in hashnum() local
87 if (luai_numeq(n, 0)) /* avoid problems with -0 */ in hashnum()
90 for (i = 1; i < numints; i++) a[0] += a[i]; in hashnum()
118 ** the array part of the table, -1 otherwise.
128 return -1; /* `key' did not match some condition */ in arrayindex()
[all …]
|
| D | ltablib.c | 23 int i; in foreachi() local
26 for (i=1; i <= n; i++) { in foreachi()
28 lua_pushinteger(L, i); /* 1st argument */ in foreachi()
29 lua_rawgeti(L, 1, i); /* 2nd argument */ in foreachi()
31 if (!lua_isnil(L, -1)) in foreachi()
45 lua_pushvalue(L, -3); /* key */ in foreach()
46 lua_pushvalue(L, -3); /* value */ in foreach()
48 if (!lua_isnil(L, -1)) in foreach()
62 if (lua_type(L, -1) == LUA_TNUMBER) { in maxn()
63 lua_Number v = lua_tonumber(L, -1); in maxn()
[all …]
|
| D | lvm.c | 31 /* limit for table tag-method chains (to avoid loops) */
61 lu_byte mask = L->hookmask; in traceexec()
62 const Instruction *oldpc = L->savedpc; in traceexec()
63 L->savedpc = pc; in traceexec()
64 if ((mask & LUA_MASKCOUNT) && L->hookcount == 0) { in traceexec()
66 luaD_callhook(L, LUA_HOOKCOUNT, -1); in traceexec()
69 Proto *p = ci_func(L->ci)->l.p; in traceexec()
83 setobj2s(L, L->top, f); /* push function */ in callTMres()
84 setobj2s(L, L->top+1, p1); /* 1st argument */ in callTMres()
85 setobj2s(L, L->top+2, p2); /* 2nd argument */ in callTMres()
[all …]
|
| D | print.c | 26 size_t i,n=ts->tsv.len; in PrintString() local
28 for (i=0; i<n; i++) in PrintString()
30 int c=s[i]; in PrintString()
51 static void PrintConstant(const Proto* f, int i) in PrintConstant() argument
53 const TValue* o=&f->k[i]; in PrintConstant()
76 const Instruction* code=f->code; in PrintCode()
77 int pc,n=f->sizecode; in PrintCode()
80 Instruction i=code[pc]; in PrintCode() local
81 OpCode o=GET_OPCODE(i); in PrintCode()
82 int a=GETARG_A(i); in PrintCode()
[all …]
|
| /civetweb-2.7.6/test/ajax/ |
| D | jquery.js | 2 …i=Object.getPrototypeOf,o=n.slice,a=n.concat,s=n.push,u=n.indexOf,l={},c=l.toString,f=l.hasOwnProp… function
|
| /civetweb-2.7.6/src/third_party/lua-5.3.5/src/ |
| D | luac.c | 52 if (*message=='-') in usage()
59 " -l list (use -l -l for full listing)\n" in usage()
60 " -o name output to file 'name' (default is \"%s\")\n" in usage()
61 " -p parse only\n" in usage()
62 " -s strip debug information\n" in usage()
63 " -v show version information\n" in usage()
64 " -- stop handling options\n" in usage()
65 " - stop handling options and process stdin\n" in usage()
70 #define IS(s) (strcmp(argv[i],s)==0)
74 int i; in doargs() local
[all …]
|
| D | ltable.c | 16 ** Non-negative integer keys are all candidates to be kept in the array
21 ** in its main position (i.e. the 'original' position that its hash gives
46 #define MAXABITS cast_int(sizeof(int) * CHAR_BIT - 1)
55 #define MAXHBITS (MAXABITS - 1)
60 #define hashstr(t,str) hashpow2(t, (str)->hash)
62 #define hashint(t,i) hashpow2(t, i) argument
69 #define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1))))
84 ** Hash for floating-point numbers.
86 ** n = frexp(n, &i); return (n * INT_MAX) + i
88 ** In a two-complement representation, INT_MAX does not has an exact
[all …]
|
| D | lvm.c | 34 /* limit for table tag-method chains (to avoid loops) */
57 >> (NBM - (3 * (NBM / 4)))) > 0
59 #define l_intfitsf(i) \ argument
60 (-((lua_Integer)1 << NBM) <= (i) && (i) <= ((lua_Integer)1 << NBM))
123 ** (The following explanation assumes a non-negative step; it is valid
174 tm = fasttm(L, hvalue(t)->metatable, TM_INDEX); /* table's metamethod */ in luaV_finishget()
211 tm = fasttm(L, h->metatable, TM_NEWINDEX); /* get metamethod */ in luaV_finishset()
242 ** Compare two strings 'ls' x 'rs', returning an integer smaller-equal-
243 ** -larger than zero if 'ls' is smaller-equal-larger than 'rs'.
262 return -1; /* 'ls' is smaller than 'rs' ('rs' is not finished) */ in l_strcmp()
[all …]
|
| D | ltablib.c | 38 return (lua_rawget(L, -n) != LUA_TNIL); in checkfield()
68 if (lua_type(L, -1) == LUA_TNUMBER) { in maxn()
69 lua_Number v = lua_tonumber(L, -1); in maxn()
88 lua_Integer i; in tinsert() local
91 for (i = e; i > pos; i--) { /* move up elements */ in tinsert()
92 lua_geti(L, 1, i - 1); in tinsert()
93 lua_seti(L, 1, i); /* t[i] = t[i - 1] */ in tinsert()
136 lua_Integer n, i; in tmove() local
139 n = e - f + 1; /* number of elements to move */ in tmove()
140 luaL_argcheck(L, t <= LUA_MAXINTEGER - n + 1, 4, in tmove()
[all …]
|
| D | lundump.c | 40 luaO_pushfstring(S->L, "%s: %s precompiled chunk", S->name, why); in error()
41 luaD_throw(S->L, LUA_ERRSYNTAX); in error()
46 ** All high-level loads go through LoadVector; you can change it to
52 if (luaZ_read(S->Z, b, size) != 0) in LoadBlock()
94 else if (--size <= LUAI_MAXSHORTLEN) { /* short string? */ in LoadString()
97 return luaS_newlstr(S->L, buff, size); in LoadString()
100 TString *ts = luaS_createlngstrobj(S->L, size); in LoadString()
109 f->code = luaM_newvector(S->L, n, Instruction); in LoadCode()
110 f->sizecode = n; in LoadCode()
111 LoadVector(S, f->code, n); in LoadCode()
[all …]
|
| /civetweb-2.7.6/src/third_party/ |
| D | LuaXML_lib.c | 8 Copyright (C) 2007-2013 Gerald Franz, eludi.net
55 //--- auxliary functions -------------------------------------------
58 unsigned char i=0; in char2code() local
59 buf[i++]='&'; in char2code()
60 buf[i++]='#'; in char2code()
61 if(ch>99) buf[i++]=ch/100+48; in char2code()
62 if(ch>9) buf[i++]=(ch%100)/10+48; in char2code()
63 buf[i++]=ch%10+48; in char2code()
64 buf[i++]=';'; in char2code()
65 buf[i]=0; in char2code()
[all …]
|
| /civetweb-2.7.6/ |
| D | format.bat | 2 clang-format -i src/civetweb.c
3 clang-format -i src/main.c
4 clang-format -i src/CivetServer.cpp
5 clang-format -i src/civetweb_private_lua.h
6 clang-format -i src/md5.inl
7 clang-format -i src/sha1.inl
8 clang-format -i src/mod_lua.inl
9 clang-format -i src/mod_lua_shared.inl
10 clang-format -i src/mod_duktape.inl
11 clang-format -i src/mod_zlib.inl
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.8.0/examples/alloc-hybrid/ |
| D | duk_alloc_hybrid.c | 59 ((char *) (p) >= (st)->alloc_start && (char *) (p) < (st)->alloc_end)
61 ((char *) (p) >= (hdr)->alloc_start && (char *) (p) < (hdr)->alloc_end)
67 int i; in dump_pool_state() local
70 for (i = 0; i < (int) NUM_POOLS; i++) { in dump_pool_state()
71 pool_header *hdr = st->headers + i; in dump_pool_state()
73 for (free = hdr->free, free_len = 0; free != NULL; free = free->next) { in dump_pool_state()
78 i, (long) hdr->size, (long) hdr->count, in dump_pool_state()
79 (long) (hdr->count - free_len), in dump_pool_state()
92 int i, j; in duk_alloc_hybrid_init() local
100 st->alloc_start = NULL; in duk_alloc_hybrid_init()
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.5.2/examples/alloc-hybrid/ |
| D | duk_alloc_hybrid.c | 59 ((char *) (p) >= (st)->alloc_start && (char *) (p) < (st)->alloc_end)
61 ((char *) (p) >= (hdr)->alloc_start && (char *) (p) < (hdr)->alloc_end)
67 int i; in dump_pool_state() local
70 for (i = 0; i < (int) NUM_POOLS; i++) { in dump_pool_state()
71 pool_header *hdr = st->headers + i; in dump_pool_state()
73 for (free = hdr->free, free_len = 0; free != NULL; free = free->next) { in dump_pool_state()
78 i, (long) hdr->size, (long) hdr->count, in dump_pool_state()
79 (long) (hdr->count - free_len), in dump_pool_state()
92 int i, j; in duk_alloc_hybrid_init() local
100 st->alloc_start = NULL; in duk_alloc_hybrid_init()
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.8.0/examples/debug-trans-dvalue/ |
| D | duk_trans_dvalue.c | 10 * - Callbacks to "received dvalue" callback come from the Duktape thread,
13 * - Calls into duk_trans_dvalue_send() must be made from the callbacks
17 * - The only exception to this is when Duktape is idle: you can then call
55 dv->buf = NULL; in duk_dvalue_alloc()
62 free(dv->buf); /* tolerates NULL */ in duk_dvalue_free()
63 dv->buf = NULL; in duk_dvalue_free()
69 size_t i, limit; in duk__dvalue_bufesc() local
72 limit = dv->len > maxbytes ? maxbytes : dv->len; in duk__dvalue_bufesc()
73 for (i = 0; i < limit; i++) { in duk__dvalue_bufesc()
74 unsigned char c = dv->buf[i]; in duk__dvalue_bufesc()
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.5.2/examples/debug-trans-dvalue/ |
| D | duk_trans_dvalue.c | 10 * - Callbacks to "received dvalue" callback come from the Duktape thread,
13 * - Calls into duk_trans_dvalue_send() must be made from the callbacks
17 * - The only exception to this is when Duktape is idle: you can then call
55 dv->buf = NULL; in duk_dvalue_alloc()
62 free(dv->buf); /* tolerates NULL */ in duk_dvalue_free()
63 dv->buf = NULL; in duk_dvalue_free()
69 size_t i, limit; in duk__dvalue_bufesc() local
72 limit = dv->len > maxbytes ? maxbytes : dv->len; in duk__dvalue_bufesc()
73 for (i = 0; i < limit; i++) { in duk__dvalue_bufesc()
74 unsigned char c = dv->buf[i]; in duk__dvalue_bufesc()
[all …]
|
