| /civetweb-2.7.6/src/third_party/lua-5.3.5/src/ |
| D | lundump.c | 39 static l_noret error(LoadState *S, const char *why) { in error() argument
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
49 #define LoadVector(S,b,n) LoadBlock(S,b,(n)*sizeof((b)[0])) argument
51 static void LoadBlock (LoadState *S, void *b, size_t size) { in LoadBlock() argument
52 if (luaZ_read(S->Z, b, size) != 0) in LoadBlock()
53 error(S, "truncated"); in LoadBlock()
57 #define LoadVar(S,x) LoadVector(S,&x,1) argument
60 static lu_byte LoadByte (LoadState *S) { in LoadByte() argument
[all …]
|
| D | lstrlib.c | 3 ** Standard library for string operations and pattern-matching
30 ** pattern-matching. This limit is arbitrary, but must fit in
65 else if (0u - (size_t)pos > len) return 0; in posrelat()
72 const char *s = luaL_checklstring(L, 1, &l); in str_sub() local
74 lua_Integer end = posrelat(luaL_optinteger(L, 3, -1), l); in str_sub()
78 lua_pushlstring(L, s + start - 1, (size_t)(end - start) + 1); in str_sub()
87 const char *s = luaL_checklstring(L, 1, &l); in str_reverse() local
90 p[i] = s[l - i - 1]; in str_reverse()
100 const char *s = luaL_checklstring(L, 1, &l); in str_lower() local
103 p[i] = tolower(uchar(s[i])); in str_lower()
[all …]
|
| D | luac.c | 40 fprintf(stderr,"%s: %s\n",progname,message); in fatal()
46 fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); in cannot()
52 if (*message=='-') in usage()
53 fprintf(stderr,"%s: unrecognized option '%s'\n",progname,message); in usage()
55 fprintf(stderr,"%s: %s\n",progname,message); in usage()
57 "usage: %s [options] [filenames]\n" 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()
[all …]
|
| D | lobject.c | 38 ** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if
52 return ((e+1) << 3) | (cast_int(x) - 8); in luaO_int2fb()
58 return (x < 8) ? x : ((x & 7) + 8) << ((x >> 3) - 1); in luaO_fb2int()
66 static const lu_byte log_2[256] = { /* log_2[i] = ceil(log2(i - 1)) */ in luaO_ceillog2()
77 x--; in luaO_ceillog2()
87 case LUA_OPSUB:return intop(-, v1, v2); in intarith()
95 case LUA_OPSHR: return luaV_shiftl(v1, -v2); in intarith()
96 case LUA_OPUNM: return intop(-, 0, v1); in intarith()
159 luaT_trybinTM(L, p1, p2, res, cast(TMS, (op - LUA_OPADD) + TM_ADD)); in luaO_arith()
164 if (lisdigit(c)) return c - '0'; in luaO_hexavalue()
[all …]
|
| D | lutf8lib.c | 3 ** Standard library for UTF-8 manipulation
32 else if (0u - (size_t)pos > len) return 0; in u_posrelat()
38 ** Decode one UTF-8 sequence, returning NULL if byte sequence is invalid.
42 const unsigned char *s = (const unsigned char *)o; in utf8_decode() local
43 unsigned int c = s[0]; in utf8_decode()
50 int cc = s[++count]; /* read next byte */ in utf8_decode()
59 s += count; /* skip continuation bytes read */ in utf8_decode()
62 return (const char *)s + 1; /* +1 to include first byte */ in utf8_decode()
67 ** utf8len(s [, i [, j]]) --> number of characters that start in the
68 ** range [i,j], or nil + current position if 's' is not well formed in
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.1.5/src/ |
| D | lundump.c | 31 #define IF(c,s) argument
32 #define error(S,s) argument
34 #define IF(c,s) if (c) error(S,s) argument
36 static void error(LoadState* S, const char* why) in error() argument
38 luaO_pushfstring(S->L,"%s: %s in precompiled chunk",S->name,why); in error()
39 luaD_throw(S->L,LUA_ERRSYNTAX); in error()
43 #define LoadMem(S,b,n,size) LoadBlock(S,b,(n)*(size)) argument
44 #define LoadByte(S) (lu_byte)LoadChar(S) argument
45 #define LoadVar(S,x) LoadMem(S,&x,1,sizeof(x)) argument
46 #define LoadVector(S,b,n,size) LoadMem(S,b,n,size) argument
[all …]
|
| D | lstrlib.c | 3 ** Standard library for string operations and pattern-matching
45 const char *s = luaL_checklstring(L, 1, &l); in str_sub() local
47 ptrdiff_t end = posrelat(luaL_optinteger(L, 3, -1), l); in str_sub()
51 lua_pushlstring(L, s+start-1, end-start+1); in str_sub()
60 const char *s = luaL_checklstring(L, 1, &l); in str_reverse() local
62 while (l--) luaL_addchar(&b, s[l]); in str_reverse()
72 const char *s = luaL_checklstring(L, 1, &l); in str_lower() local
75 luaL_addchar(&b, tolower(uchar(s[i]))); in str_lower()
85 const char *s = luaL_checklstring(L, 1, &l); in str_upper() local
88 luaL_addchar(&b, toupper(uchar(s[i]))); in str_upper()
[all …]
|
| D | print.c | 25 const char* s=getstr(ts); in PrintString() local
26 size_t i,n=ts->tsv.len; in PrintString()
30 int c=s[i]; in PrintString()
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()
89 if (line>0) printf("[%d]\t",line); else printf("[-]\t"); in PrintCode()
90 printf("%-9s\t",luaP_opnames[o]); in PrintCode()
95 if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (-1-INDEXK(b)) : b); in PrintCode()
96 if (getCMode(o)!=OpArgN) printf(" %d",ISK(c) ? (-1-INDEXK(c)) : c); in PrintCode()
[all …]
|
| D | luac.c | 38 fprintf(stderr,"%s: %s\n",progname,message); in fatal()
44 fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); in cannot()
50 if (*message=='-') in usage()
51 fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message); in usage()
53 fprintf(stderr,"%s: %s\n",progname,message); in usage()
55 "usage: %s [options] [filenames].\n" in usage()
57 " - process stdin\n" in usage()
58 " -l list\n" in usage()
59 " -o name output to file " LUA_QL("name") " (default is \"%s\")\n" in usage()
60 " -p parse only\n" in usage()
[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()
37 if (fs->pc > fs->lasttarget) { /* no jumps to current position? */ in luaK_nil()
38 if (fs->pc == 0) { /* function start? */ in luaK_nil()
39 if (from >= fs->nactvar) in luaK_nil()
43 previous = &fs->f->code[fs->pc-1]; in luaK_nil()
48 if (from+n-1 > pto) in luaK_nil()
49 SETARG_B(*previous, from+n-1); in luaK_nil()
55 luaK_codeABC(fs, OP_LOADNIL, from, from+n-1, 0); /* else no optimization */ in luaK_nil()
60 int jpc = fs->jpc; /* save list of jumps to here */ in luaK_jump()
[all …]
|
| D | lauxlib.c | 38 ** Error-report functions
46 return luaL_error(L, "bad argument #%d (%s)", narg, extramsg); in luaL_argerror()
49 narg--; /* do not count `self' */ in luaL_argerror()
51 return luaL_error(L, "calling " LUA_QS " on bad self (%s)", in luaL_argerror()
56 return luaL_error(L, "bad argument #%d to " LUA_QS " (%s)", in luaL_argerror()
62 const char *msg = lua_pushfstring(L, "%s expected, got %s", in luaL_typerror()
78 lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline); in luaL_where()
114 if (!lua_isnil(L, -1)) /* name already in use? */ in luaL_newmetatable()
118 lua_pushvalue(L, -1); in luaL_newmetatable()
129 if (lua_rawequal(L, -1, -2)) { /* does it have the correct mt? */ in luaL_checkudata()
[all …]
|
| /civetweb-2.7.6/src/third_party/lua-5.2.4/src/ |
| D | lundump.c | 30 static l_noret error(LoadState* S, const char* why) in error() argument
32 luaO_pushfstring(S->L,"%s: %s precompiled chunk",S->name,why); in error()
33 luaD_throw(S->L,LUA_ERRSYNTAX); in error()
36 #define LoadMem(S,b,n,size) LoadBlock(S,b,(n)*(size)) argument
37 #define LoadByte(S) (lu_byte)LoadChar(S) argument
38 #define LoadVar(S,x) LoadMem(S,&x,1,sizeof(x)) argument
39 #define LoadVector(S,b,n,size) LoadMem(S,b,n,size) argument
45 static void LoadBlock(LoadState* S, void* b, size_t size) in LoadBlock() argument
47 if (luaZ_read(S->Z,b,size)!=0) error(S,"truncated"); in LoadBlock()
50 static int LoadChar(LoadState* S) in LoadChar() argument
[all …]
|
| D | lstrlib.c | 3 ** Standard library for string operations and pattern-matching
25 ** pattern-matching. This limit is arbitrary.
48 else if (0u - (size_t)pos > len) return 0; in posrelat()
49 else return len - ((size_t)-pos) + 1; in posrelat()
55 const char *s = luaL_checklstring(L, 1, &l); in str_sub() local
57 size_t end = posrelat(luaL_optinteger(L, 3, -1), l); in str_sub()
61 lua_pushlstring(L, s + start - 1, end - start + 1); in str_sub()
70 const char *s = luaL_checklstring(L, 1, &l); in str_reverse() local
73 p[i] = s[l - i - 1]; in str_reverse()
83 const char *s = luaL_checklstring(L, 1, &l); in str_lower() local
[all …]
|
| D | luac.c | 37 fprintf(stderr,"%s: %s\n",progname,message); in fatal()
43 fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); in cannot()
49 if (*message=='-') in usage()
50 fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message); in usage()
52 fprintf(stderr,"%s: %s\n",progname,message); in usage()
54 "usage: %s [options] [filenames]\n" 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()
[all …]
|
| D | lobject.c | 33 ** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if
43 return ((e+1) << 3) | (cast_int(x) - 8); in luaO_int2fb()
51 else return ((x & 7) + 8) << (e - 1); in luaO_fb2int()
67 x--; in luaO_ceillog2()
88 if (lisdigit(c)) return c - '0'; in luaO_hexavalue()
89 else return ltolower(c) - 'a' + 10; in luaO_hexavalue()
98 static int isneg (const char **s) { in isneg() argument
99 if (**s == '-') { (*s)++; return 1; } in isneg()
100 else if (**s == '+') (*s)++; in isneg()
105 static lua_Number readhexa (const char **s, lua_Number r, int *count) { in readhexa() argument
[all …]
|
| /civetweb-2.7.6/src/third_party/ |
| D | LuaXML_lib.c | 8 Copyright (C) 2007-2013 Gerald Franz, eludi.net
55 //--- auxliary functions -------------------------------------------
69 static size_t find(const char* s, const char* pattern, size_t start) { in find() argument
70 const char* found =strstr(s+start, pattern); in find()
71 return found ? found-s : strlen(s); in find()
74 //--- internal tokenizer -------------------------------------------
78 const char* s; member
100 tok->s_size = str_size; in Tokenizer_new()
101 tok->s = str; in Tokenizer_new()
106 free(tok->m_token); in Tokenizer_delete()
[all …]
|
| /civetweb-2.7.6/resources/ |
| D | complete.lua | 3 -- CivetWeb command line completion for bash
5 --[[ INSTALLING:
7 To use auto-completion for bash, you need to define a command for the bash built-in
8 [*complete*](https://www.gnu.org/software/bash/manual/html_node/Programmable-Completion-Builtins.ht…
12 /usr/share/bash-completion/completions/, /etc/bash_completion or another folder.
15 complete -C /path/to/civetweb/resources/complete.lua civetweb
18 It needs Lua 5.2 to be installed (for Debian based systems: "sudo apt-get install lua5.2").
22 --]]
24 ---------------------------------------------------------------------------------------------------
26 -- The bash "complete -C" has an awkward interface:
[all …]
|
| /civetweb-2.7.6/src/ |
| D | civetweb.c | 1 /* Copyright (c) 2013-2018 the Civetweb developers
2 * Copyright (c) 2004-2013 Sergey Lyubka
33 /* Disable unused macros warnings - not all defines are required
35 #pragma GCC diagnostic ignored "-Wunused-macros"
37 #pragma GCC diagnostic ignored "-Wpadded"
45 #pragma GCC diagnostic ignored "-Wreserved-id-macro"
52 #if !defined(_WIN32_WINNT) /* defined for tdm-gcc so we can use getnameinfo */
70 #define _FILE_OFFSET_BITS 64 /* Use 64-bit file offsets by default */
88 /* Enable reserved-id-macro warning again. */
102 /* non-constant aggregate initializer: issued due to missing C99 support */
[all …]
|
| D | main.c | 1 /* Copyright (c) 2013-2018 the Civetweb developers
2 * Copyright (c) 2004-2013 Sergey Lyubka
39 * http://man7.org/linux/man-pages/man3/realpath.3.html, but in
42 * #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
43 * #pragma clang diagnostic ignored "-Wimplicit-function-declaration"
66 #define _FILE_OFFSET_BITS 64 /* Use 64-bit file offsets by default */
95 #define _WIN32_WINNT 0x0501 /* for tdm-gcc so we can use getconsolewindow */
123 #else /* defined(_WIN32) && !defined(__SYMBIAN32__) - WINDOWS / UNIX include \
134 #endif /* defined(_WIN32) && !defined(__SYMBIAN32__) - WINDOWS / UNIX include \
148 fprintf(stderr, "ASSERTION FAILED: %s", #cond); \
[all …]
|
| /civetweb-2.7.6/test/ajax/ |
| D | jquery.js | 2 …s=n.push,u=n.indexOf,l={},c=l.toString,f=l.hasOwnProperty,p=f.toString,d=p.call(Object),h={},g=fun… argument
|
| /civetweb-2.7.6/src/third_party/duktape-1.5.2/config/ |
| D | genconfig.py | 5 # - duk_config.h with specific or autodetected platform, compiler, and
7 # - option documentation for Duktape 1.x feature options (DUK_OPT_xxx)
8 # - option documentation for Duktape 1.x/2.x config options (DUK_USE_xxx)
121 # in validate_platform_file()). Fill-ins provide missing optionals.
127 # in validate_architecture_file()). Fill-ins provide missing optionals.
133 # in validate_compiler_file()). Fill-ins provide missing optionals.
150 tmpdir = tempfile.mkdtemp(suffix='-genconfig')
153 if os.path.isdir(dirname) and '-genconfig' in dirname:
179 re_line_provides = re.compile(r'^#(?:define|undef)\s+(\w+).*$')
180 re_line_requires = re.compile(r'(DUK_[A-Z0-9_]+)') # uppercase only, don't match DUK_USE_xxx for e…
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.8.0/config/ |
| D | genconfig.py | 5 # - duk_config.h with specific or autodetected platform, compiler, and
7 # - option documentation for Duktape 1.x feature options (DUK_OPT_xxx)
8 # - option documentation for Duktape 1.x/2.x config options (DUK_USE_xxx)
121 # in validate_platform_file()). Fill-ins provide missing optionals.
127 # in validate_architecture_file()). Fill-ins provide missing optionals.
133 # in validate_compiler_file()). Fill-ins provide missing optionals.
150 tmpdir = tempfile.mkdtemp(suffix='-genconfig')
153 if os.path.isdir(dirname) and '-genconfig' in dirname:
179 re_line_provides = re.compile(r'^#(?:define|undef)\s+(\w+).*$')
180 re_line_requires = re.compile(r'(DUK_[A-Z0-9_]+)') # uppercase only, don't match DUK_USE_xxx for e…
[all …]
|
| /civetweb-2.7.6/test/ |
| D | preload.lua | 1 -- SAPI for CivetWeb
2 -- Wrapper for the native "mg" interface
7 local s = ""
8 s = mg.read(n)
9 return s
12 local s
14 s = mg.request_info.request_method
16 s = mg.request_info.query_string
18 s = mg.request_info.server_port
20 s = mg.auth_domain
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.8.0/examples/debug-trans-socket/ |
| D | duk_trans_socket_unix.c | 25 static int server_sock = -1;
26 static int client_sock = -1;
38 fprintf(stderr, "%s: failed to create server socket: %s\n", in duk_trans_socket_init()
46 fprintf(stderr, "%s: failed to set SO_REUSEADDR for server socket: %s\n", in duk_trans_socket_init()
58 fprintf(stderr, "%s: failed to bind server socket: %s\n", in duk_trans_socket_init()
70 server_sock = -1; in duk_trans_socket_init()
77 client_sock = -1; in duk_trans_socket_finish()
81 server_sock = -1; in duk_trans_socket_finish()
90 fprintf(stderr, "%s: no server socket, skip waiting for connection\n", in duk_trans_socket_waitconn()
97 client_sock = -1; in duk_trans_socket_waitconn()
[all …]
|
| /civetweb-2.7.6/src/third_party/duktape-1.5.2/examples/debug-trans-socket/ |
| D | duk_trans_socket_unix.c | 25 static int server_sock = -1;
26 static int client_sock = -1;
38 fprintf(stderr, "%s: failed to create server socket: %s\n", in duk_trans_socket_init()
46 fprintf(stderr, "%s: failed to set SO_REUSEADDR for server socket: %s\n", in duk_trans_socket_init()
58 fprintf(stderr, "%s: failed to bind server socket: %s\n", in duk_trans_socket_init()
70 server_sock = -1; in duk_trans_socket_init()
77 client_sock = -1; in duk_trans_socket_finish()
81 server_sock = -1; in duk_trans_socket_finish()
90 fprintf(stderr, "%s: no server socket, skip waiting for connection\n", in duk_trans_socket_waitconn()
97 client_sock = -1; in duk_trans_socket_waitconn()
[all …]
|
