| /civetweb-2.7.6/src/third_party/lua-5.1.5/src/ |
| D | print.c | 37 case '\f': printf("\\f"); break; in PrintString()
51 static void PrintConstant(const Proto* f, int i) in PrintConstant() argument
53 const TValue* o=&f->k[i]; in PrintConstant()
74 static void PrintCode(const Proto* f) in PrintCode() argument
76 const Instruction* code=f->code; in PrintCode()
77 int pc,n=f->sizecode; in PrintCode()
87 int line=getline(f,pc); in PrintCode()
108 printf("\t; "); PrintConstant(f,bx); in PrintCode()
112 printf("\t; %s", (f->sizeupvalues>0) ? getstr(f->upvalues[b]) : "-"); in PrintCode()
116 printf("\t; %s",svalue(&f->k[bx])); in PrintCode()
[all …]
|
| D | lundump.c | 90 static void LoadCode(LoadState* S, Proto* f) in LoadCode() argument
93 f->code=luaM_newvector(S->L,n,Instruction); in LoadCode()
94 f->sizecode=n; in LoadCode()
95 LoadVector(S,f->code,n,sizeof(Instruction)); in LoadCode()
100 static void LoadConstants(LoadState* S, Proto* f) in LoadConstants() argument
104 f->k=luaM_newvector(S->L,n,TValue); in LoadConstants()
105 f->sizek=n; in LoadConstants()
106 for (i=0; i<n; i++) setnilvalue(&f->k[i]); in LoadConstants()
109 TValue* o=&f->k[i]; in LoadConstants()
131 f->p=luaM_newvector(S->L,n,Proto*); in LoadConstants()
[all …]
|
| D | lfunc.c | 116 Proto *f = luaM_new(L, Proto); in luaF_newproto() local
117 luaC_link(L, obj2gco(f), LUA_TPROTO); in luaF_newproto()
118 f->k = NULL; in luaF_newproto()
119 f->sizek = 0; in luaF_newproto()
120 f->p = NULL; in luaF_newproto()
121 f->sizep = 0; in luaF_newproto()
122 f->code = NULL; in luaF_newproto()
123 f->sizecode = 0; in luaF_newproto()
124 f->sizelineinfo = 0; in luaF_newproto()
125 f->sizeupvalues = 0; in luaF_newproto()
[all …]
|
| D | ldump.c | 76 #define DumpCode(f,D) DumpVector(f->code,f->sizecode,sizeof(Instruction),D) argument
78 static void DumpFunction(const Proto* f, const TString* p, DumpState* D);
80 static void DumpConstants(const Proto* f, DumpState* D) in DumpConstants() argument
82 int i,n=f->sizek; in DumpConstants()
86 const TValue* o=&f->k[i]; in DumpConstants()
106 n=f->sizep; in DumpConstants()
108 for (i=0; i<n; i++) DumpFunction(f->p[i],f->source,D); in DumpConstants()
111 static void DumpDebug(const Proto* f, DumpState* D) in DumpDebug() argument
114 n= (D->strip) ? 0 : f->sizelineinfo; in DumpDebug()
115 DumpVector(f->lineinfo,n,sizeof(int),D); in DumpDebug()
[all …]
|
| D | lparser.c | 32 #define getlocvar(fs, i) ((fs)->f->locvars[(fs)->actvar[i]])
72 const char *msg = (fs->f->linedefined == 0) ? in errorlimit()
75 fs->f->linedefined, limit, what); in errorlimit()
127 e->f = e->t = NO_JUMP; in init_exp()
145 Proto *f = fs->f; in registerlocalvar() local
146 int oldsize = f->sizelocvars; in registerlocalvar()
147 luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars, in registerlocalvar()
149 while (oldsize < f->sizelocvars) f->locvars[oldsize++].varname = NULL; in registerlocalvar()
150 f->locvars[fs->nlocvars].varname = varname; in registerlocalvar()
151 luaC_objbarrier(ls->L, f, varname); in registerlocalvar()
[all …]
|
| D | liolib.c | 73 FILE **f = tofilep(L); in tofile() local
74 if (*f == NULL) in tofile()
76 return *f; in tofile()
143 FILE *f = *tofilep(L); in io_gc() local
145 if (f != NULL) in io_gc()
152 FILE *f = *tofilep(L); in io_tostring() local
153 if (f == NULL) in io_tostring()
156 lua_pushfstring(L, "file (%p)", f); in io_tostring()
191 FILE *f; in getiofile() local
193 f = *(FILE **)lua_touserdata(L, -1); in getiofile()
[all …]
|
| D | lcode.c | 27 #define hasjumps(e) ((e)->t != (e)->f)
31 return (e->k == VKNUM && e->t == NO_JUMP && e->f == NO_JUMP); in isnumeral()
43 previous = &fs->f->code[fs->pc-1]; in luaK_nil()
81 Instruction *jmp = &fs->f->code[pc]; in fixjump()
101 int offset = GETARG_sBx(fs->f->code[pc]); in getjump()
110 Instruction *pi = &fs->f->code[pc]; in getjumpcontrol()
201 if (newstack > fs->f->maxstacksize) { in luaK_checkstack()
204 fs->f->maxstacksize = cast_byte(newstack); in luaK_checkstack()
232 Proto *f = fs->f; in addk() local
233 int oldsize = f->sizek; in addk()
[all …]
|
| D | luac.c | 126 Proto* f=luaF_newproto(L); in combine() local
127 setptvalue2s(L,L->top,f); incr_top(L); in combine()
128 f->source=luaS_newliteral(L,"=(" PROGNAME ")"); in combine()
129 f->maxstacksize=1; in combine()
131 f->code=luaM_newvector(L,pc,Instruction); in combine()
132 f->sizecode=pc; in combine()
133 f->p=luaM_newvector(L,n,Proto*); in combine()
134 f->sizep=n; in combine()
138 f->p[i]=toproto(L,i-n-1); in combine()
139 f->code[pc++]=CREATE_ABx(OP_CLOSURE,0,i); in combine()
[all …]
|
| /civetweb-2.7.6/examples/_obsolete/docroot/ |
| D | jquery.js | 16 …d,f,e,j){var i=a.length;if(typeof b==="object"){for(var o in b)X(a,o,b[o],f,e,d);return a}if(d!==w… argument
17 …f=[],e=arguments,j,i,o,k,n,r;i=c.data(this,"events");if(!(a.liveFired===this||!i||!i.live||a.butto…
18 …lector){o=j[n].elem;f=null;if(i.preType==="mouseenter"||i.preType==="mouseleave")f=c(a.relatedTarg…
19 …f=c.data(a[d++]),e=c.data(this,f);if(f=f&&f.events){delete e.handle;e.events={};for(var j in f)for… variable
20 …fragments[a[0]])if(j!==1)f=j}if(!f){f=b.createDocumentFragment();c.clean(a,b,f,d)}if(e)c.fragments…
21 …slice,ya=Array.prototype.indexOf;c.fn=c.prototype={init:function(a,b){var d,f;if(!a)return this;if… variable
22 …f=b?b.ownerDocument||b:s;if(a=Xa.exec(a))if(c.isPlainObject(b)){a=[s.createElement(a[1])];c.fn.att…
23 …)[0]:this[a]},pushStack:function(a,b,d){var f=c();c.isArray(a)?ba.apply(f,a):c.merge(f,a);f.prevOb… variable
24 "find")f.selector=this.selector+(this.selector?" ":"")+d;else if(b)f.selector=this.selector+"."+b+"…
25 …f=false,e,j,i,o;if(typeof a==="boolean"){f=a;a=arguments[1]||{};b=2}if(typeof a!=="object"&&!c.isF… variable
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.3.5/src/ |
| D | lundump.c | 28 #define luai_verifycode(L,b,f) /* empty */ argument
107 static void LoadCode (LoadState *S, Proto *f) { in LoadCode() argument
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()
115 static void LoadFunction(LoadState *S, Proto *f, TString *psource);
118 static void LoadConstants (LoadState *S, Proto *f) { in LoadConstants() argument
121 f->k = luaM_newvector(S->L, n, TValue); in LoadConstants()
122 f->sizek = n; in LoadConstants()
124 setnilvalue(&f->k[i]); in LoadConstants()
[all …]
|
| D | luac.c | 25 static void PrintFunction(const Proto* f, int full);
145 Proto* f; in combine() local
148 f=toproto(L,-1); in combine()
151 f->p[i]=toproto(L,i-n-1); in combine()
152 if (f->p[i]->sizeupvalues>0) f->p[i]->upvalues[0].instack=0; in combine()
154 f->sizelineinfo=0; in combine()
155 return f; in combine()
169 const Proto* f; in pmain() local
177 f=combine(L,argc); in pmain()
178 if (listing) luaU_print(f,listing>1); in pmain()
[all …]
|
| D | lfunc.c | 101 Proto *f = gco2p(o); in luaF_newproto() local
102 f->k = NULL; in luaF_newproto()
103 f->sizek = 0; in luaF_newproto()
104 f->p = NULL; in luaF_newproto()
105 f->sizep = 0; in luaF_newproto()
106 f->code = NULL; in luaF_newproto()
107 f->cache = NULL; in luaF_newproto()
108 f->sizecode = 0; in luaF_newproto()
109 f->lineinfo = NULL; in luaF_newproto()
110 f->sizelineinfo = 0; in luaF_newproto()
[all …]
|
| D | ldump.c | 90 static void DumpCode (const Proto *f, DumpState *D) { in DumpCode() argument
91 DumpInt(f->sizecode, D); in DumpCode()
92 DumpVector(f->code, f->sizecode, D); in DumpCode()
96 static void DumpFunction(const Proto *f, TString *psource, DumpState *D);
98 static void DumpConstants (const Proto *f, DumpState *D) { in DumpConstants() argument
100 int n = f->sizek; in DumpConstants()
103 const TValue *o = &f->k[i]; in DumpConstants()
128 static void DumpProtos (const Proto *f, DumpState *D) { in DumpProtos() argument
130 int n = f->sizep; in DumpProtos()
133 DumpFunction(f->p[i], f->source, D); in DumpProtos()
[all …]
|
| D | liolib.c | 86 #define l_getc(f) getc_unlocked(f) argument
87 #define l_lockfile(f) flockfile(f) argument
88 #define l_unlockfile(f) funlockfile(f) argument
90 #define l_getc(f) getc(f) argument
91 #define l_lockfile(f) ((void)0) argument
92 #define l_unlockfile(f) ((void)0) argument
110 #define l_fseek(f,o,w) fseeko(f,o,w) argument
111 #define l_ftell(f) ftello(f) argument
118 #define l_fseek(f,o,w) _fseeki64(f,o,w) argument
119 #define l_ftell(f) _ftelli64(f) argument
[all …]
|
| D | lparser.c | 82 int line = fs->f->linedefined; in errorlimit()
145 e->f = e->t = NO_JUMP; in init_exp()
163 Proto *f = fs->f; in registerlocalvar() local
164 int oldsize = f->sizelocvars; in registerlocalvar()
165 luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars, in registerlocalvar()
167 while (oldsize < f->sizelocvars) in registerlocalvar()
168 f->locvars[oldsize++].varname = NULL; in registerlocalvar()
169 f->locvars[fs->nlocvars].varname = varname; in registerlocalvar()
170 luaC_objbarrier(ls->L, f, varname); in registerlocalvar()
198 return &fs->f->locvars[idx]; in getlocvar()
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.2.4/src/ |
| D | luac.c | 22 static void PrintFunction(const Proto* f, int full);
142 Proto* f; in combine() local
145 f=toproto(L,-1); in combine()
148 f->p[i]=toproto(L,i-n-1); in combine()
149 if (f->p[i]->sizeupvalues>0) f->p[i]->upvalues[0].instack=0; in combine()
151 f->sizelineinfo=0; in combine()
152 return f; in combine()
166 const Proto* f; in pmain() local
174 f=combine(L,argc); in pmain()
175 if (listing) luaU_print(f,listing>1); in pmain()
[all …]
|
| D | lfunc.c | 111 Proto *f = &luaC_newobj(L, LUA_TPROTO, sizeof(Proto), NULL, 0)->p; in luaF_newproto() local
112 f->k = NULL; in luaF_newproto()
113 f->sizek = 0; in luaF_newproto()
114 f->p = NULL; in luaF_newproto()
115 f->sizep = 0; in luaF_newproto()
116 f->code = NULL; in luaF_newproto()
117 f->cache = NULL; in luaF_newproto()
118 f->sizecode = 0; in luaF_newproto()
119 f->lineinfo = NULL; in luaF_newproto()
120 f->sizelineinfo = 0; in luaF_newproto()
[all …]
|
| D | lundump.c | 42 #define luai_verifycode(L,b,f) /* empty */ argument
86 static void LoadCode(LoadState* S, Proto* f) in LoadCode() argument
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()
94 static void LoadFunction(LoadState* S, Proto* f);
96 static void LoadConstants(LoadState* S, Proto* f) in LoadConstants() argument
100 f->k=luaM_newvector(S->L,n,TValue); in LoadConstants()
101 f->sizek=n; in LoadConstants()
102 for (i=0; i<n; i++) setnilvalue(&f->k[i]); in LoadConstants()
[all …]
|
| D | ldump.c | 76 #define DumpCode(f,D) DumpVector(f->code,f->sizecode,sizeof(Instruction),D) argument
78 static void DumpFunction(const Proto* f, DumpState* D);
80 static void DumpConstants(const Proto* f, DumpState* D) in DumpConstants() argument
82 int i,n=f->sizek; in DumpConstants()
86 const TValue* o=&f->k[i]; in DumpConstants()
104 n=f->sizep; in DumpConstants()
106 for (i=0; i<n; i++) DumpFunction(f->p[i],D); in DumpConstants()
109 static void DumpUpvalues(const Proto* f, DumpState* D) in DumpUpvalues() argument
111 int i,n=f->sizeupvalues; in DumpUpvalues()
115 DumpChar(f->upvalues[i].instack,D); in DumpUpvalues()
[all …]
|
| D | liolib.c | 91 #define l_fseek(f,o,w) fseeko(f,o,w) argument
92 #define l_ftell(f) ftello(f) argument
99 #define l_fseek(f,o,w) _fseeki64(f,o,w) argument
100 #define l_ftell(f) _ftelli64(f) argument
109 #define l_fseek(f,o,w) fseek(f,o,w) argument
110 #define l_ftell(f) ftell(f) argument
149 lua_pushfstring(L, "file (%p)", p->f); in f_tostring()
158 lua_assert(p->f); in tofile()
159 return p->f; in tofile()
194 if (!isclosed(p) && p->f != NULL) in f_gc()
[all …]
|
| D | lparser.c | 86 int line = fs->f->linedefined; in errorlimit()
149 e->f = e->t = NO_JUMP; in init_exp()
167 Proto *f = fs->f; in registerlocalvar() local
168 int oldsize = f->sizelocvars; in registerlocalvar()
169 luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars, in registerlocalvar()
171 while (oldsize < f->sizelocvars) f->locvars[oldsize++].varname = NULL; in registerlocalvar()
172 f->locvars[fs->nlocvars].varname = varname; in registerlocalvar()
173 luaC_objbarrier(ls->L, f, varname); in registerlocalvar()
201 return &fs->f->locvars[idx]; in getlocvar()
223 Upvaldesc *up = fs->f->upvalues; in searchupvalue()
[all …]
|
| D | lcode.c | 29 #define hasjumps(e) ((e)->t != (e)->f)
33 return (e->k == VKNUM && e->t == NO_JUMP && e->f == NO_JUMP); in isnumeral()
41 previous = &fs->f->code[fs->pc-1]; in luaK_nil()
81 Instruction *jmp = &fs->f->code[pc]; in fixjump()
101 int offset = GETARG_sBx(fs->f->code[pc]); in getjump()
110 Instruction *pi = &fs->f->code[pc]; in getjumpcontrol()
183 lua_assert(GET_OPCODE(fs->f->code[list]) == OP_JMP && in luaK_patchclose()
184 (GETARG_A(fs->f->code[list]) == 0 || in luaK_patchclose()
185 GETARG_A(fs->f->code[list]) >= level)); in luaK_patchclose()
186 SETARG_A(fs->f->code[list], level); in luaK_patchclose()
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.1.5/test/ |
| D | bisect.lua | 5 function bisect(f,a,b,fa,fb)
10 local fc=f(c)
11 if fa*fc<0 then return bisect(f,a,c,fa,fc) else return bisect(f,c,b,fc,fb) end
14 -- find root of f in the inverval [a,b]. needs f(a)*f(b)<0
15 function solve(f,a,b)
17 local z,e=bisect(f,a,b,f(a),f(b))
18 io.write(string.format("after %d steps, root is %.17g with error %.1e, f=%.1e\n",n,z,e,f(z)))
22 function f(x) function
27 solve(f,1,2)
|
| D | factorial.lua | 5 local a = function (f) return f(f) end
6 return a(function (f)
8 local c=f(f)
16 F = function (f) function
19 else return n*f(n-1) end
23 factorial = Y(F) -- factorial is the fixed point of F
|
| /civetweb-2.7.6/src/third_party/duktape-1.5.2/examples/eventloop/ |
| D | fileio.c | 13 FILE *f = NULL; in fileio_readfile() local
22 f = fopen(filename, "rb"); in fileio_readfile()
23 if (!f) { in fileio_readfile()
27 if (fseek(f, 0, SEEK_END) != 0) { in fileio_readfile()
31 len = ftell(f); in fileio_readfile()
33 if (fseek(f, 0, SEEK_SET) != 0) { in fileio_readfile()
39 got = fread(buf, 1, len, f); in fileio_readfile()
44 fclose(f); in fileio_readfile()
45 f = NULL; in fileio_readfile()
50 if (f) { in fileio_readfile()
[all …]
|
