/freebsd/contrib/netbsd-tests/lib/libc/locale/ |
H A D | t_wcstod.c | 84 { L"IN", 0, 0, 0 }, 85 { L"+IN", 0, 0, 0 }, 86 { L"-IN", 0, 0, 0 }, 87 { L"INX", 0, 0, 0 }, 88 { L"+INX", 0, 0, 0 }, 89 { L"-INX", 0, 0, 0 }, 90 { L"INF", 3, ALT_HUGE_VAL, 0 }, 91 { L"+INF", 4, ALT_HUGE_VAL, 0 }, 92 { L"-INF", 4, ALT_MINUS_HUGE_VAL, 0 }, 93 { L"INFX", 3, ALT_HUGE_VAL, 0 }, [all …]
|
/freebsd/contrib/nvi/regex/ |
H A D | cname.h | 43 { L("NUL"), '\0' }, 44 { L("SOH"), '\001' }, 45 { L("STX"), '\002' }, 46 { L("ETX"), '\003' }, 47 { L("EOT"), '\004' }, 48 { L("ENQ"), '\005' }, 49 { L("ACK"), '\006' }, 50 { L("BEL"), '\007' }, 51 { L("alert"), '\007' }, 52 { L("BS"), '\010' }, [all …]
|
/freebsd/contrib/llvm-project/libcxx/include/ |
H A D | version | 17 __cpp_lib_adaptor_iterator_pair_constructor 202106L <queue> <stack> 18 __cpp_lib_addressof_constexpr 201603L <memory> 19 __cpp_lib_allocate_at_least 202302L <memory> 20 __cpp_lib_allocator_traits_is_always_equal 201411L <deque> <forward_list> <list> 24 __cpp_lib_any 201606L <any> 25 __cpp_lib_apply 201603L <tuple> 26 __cpp_lib_array_constexpr 201811L <array> <iterator> 27 201603L // C++17 28 __cpp_lib_as_const 201510L <utility> 29 __cpp_lib_associative_heterogeneous_erasure 202110L <map> <set> <unordered_map> [all …]
|
/freebsd/contrib/libedit/TEST/ |
H A D | test_filecompletion.c | 55 L"ls ang", 58 L"ls ang\\<ular\\>test " 62 L"ls \"dq_ang", 65 L"ls \"dq_ang<ular>test\"" 69 L"ls 'sq_ang", 72 L"ls 'sq_ang<ular>test'" 76 L"ls back", 79 L"ls backslash\\\\test " 83 L"ls 'sback", 86 L"ls 'sbackslash\\test'" [all …]
|
/freebsd/lib/libc/tests/stdio/ |
H A D | swscanf_test.c | 15 #define L(s) L ## s macro 25 { L"0", { 1, 0, 1 }, { 1, 0, 1 }, { 1, 0, 1 }, { 1, 0, 1 }, { 1, 0, 1 }, }, 26 { L"1", { 1, 1, 1 }, { 1, 1, 1 }, { 1, 1, 1 }, { 1, 1, 1 }, { 1, 1, 1 }, }, 27 { L"2", { 0, 0, 0 }, { 1, 2, 1 }, { 1, 2, 1 }, { 1, 2, 1 }, { 1, 2, 1 }, }, 28 { L"3", { 0, 0, 0 }, { 1, 3, 1 }, { 1, 3, 1 }, { 1, 3, 1 }, { 1, 3, 1 }, }, 29 { L"4", { 0, 0, 0 }, { 1, 4, 1 }, { 1, 4, 1 }, { 1, 4, 1 }, { 1, 4, 1 }, }, 30 { L"5", { 0, 0, 0 }, { 1, 5, 1 }, { 1, 5, 1 }, { 1, 5, 1 }, { 1, 5, 1 }, }, 31 { L"6", { 0, 0, 0 }, { 1, 6, 1 }, { 1, 6, 1 }, { 1, 6, 1 }, { 1, 6, 1 }, }, 32 { L"7", { 0, 0, 0 }, { 1, 7, 1 }, { 1, 7, 1 }, { 1, 7, 1 }, { 1, 7, 1 }, }, 33 { L"8", { 0, 0, 0 }, { 0, 0, 0 }, { 1, 8, 1 }, { 1, 8, 1 }, { 1, 8, 1 }, }, [all …]
|
/freebsd/sys/contrib/openzfs/module/lua/ |
H A D | lapi.c | 45 #define api_checkvalidindex(L, o) api_check(L, isvalid(o), "invalid index") argument 47 #define api_checkstackindex(L, i, o) \ argument 48 api_check(L, isstackindex(i, o), "index not in the stack") 51 static TValue *index2addr (lua_State *L, int idx) { in index2addr() argument 52 CallInfo *ci = L->ci; in index2addr() 55 api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index"); in index2addr() 56 if (o >= L->top) return NONVALIDVALUE; in index2addr() 60 api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index"); in index2addr() 61 return L->top + idx; in index2addr() 64 return &G(L)->l_registry; in index2addr() [all …]
|
H A D | lauxlib.c | 36 static int findfield (lua_State *L, int objidx, int level) { in findfield() argument 37 if (level == 0 || !lua_istable(L, -1)) in findfield() 39 lua_pushnil(L); /* start 'next' loop */ in findfield() 40 while (lua_next(L, -2)) { /* for each pair in table */ in findfield() 41 if (lua_type(L, -2) == LUA_TSTRING) { /* ignore non-string keys */ in findfield() 42 if (lua_rawequal(L, objidx, -1)) { /* found object? */ in findfield() 43 lua_pop(L, 1); /* remove value (but keep name) */ in findfield() 46 else if (findfield(L, objidx, level - 1)) { /* try recursively */ in findfield() 47 lua_remove(L, -2); /* remove table (but keep name) */ in findfield() 48 lua_pushliteral(L, "."); in findfield() [all …]
|
H A D | ltablib.c | 17 #define aux_getn(L,n) (luaL_checktype(L, n, LUA_TTABLE), luaL_len(L, n)) argument 22 static int maxn (lua_State *L) { in maxn() argument 24 luaL_checktype(L, 1, LUA_TTABLE); in maxn() 25 lua_pushnil(L); /* first key */ in maxn() 26 while (lua_next(L, 1)) { in maxn() 27 lua_pop(L, 1); /* remove value */ in maxn() 28 if (lua_type(L, -1) == LUA_TNUMBER) { in maxn() 29 lua_Number v = lua_tonumber(L, -1); in maxn() 33 lua_pushnumber(L, max); in maxn() 39 static int tinsert (lua_State *L) { in tinsert() argument [all …]
|
H A D | lbaselib.c | 29 static int luaB_tonumber (lua_State *L) { in luaB_tonumber() argument 30 if (lua_isnoneornil(L, 2)) { /* standard conversion */ in luaB_tonumber() 32 lua_Number n = lua_tonumberx(L, 1, &isnum); in luaB_tonumber() 34 lua_pushnumber(L, n); in luaB_tonumber() 37 luaL_checkany(L, 1); in luaB_tonumber() 41 const char *s = luaL_checklstring(L, 1, &l); in luaB_tonumber() 43 int base = luaL_checkint(L, 2); in luaB_tonumber() 45 luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range"); in luaB_tonumber() 60 lua_pushnumber(L, (neg) ? -n : n); in luaB_tonumber() 65 lua_pushnil(L); /* not a number */ in luaB_tonumber() [all …]
|
H A D | ldo.c | 98 #define LUAI_THROW(L,c) longjmp(&(c)->b) argument 99 #define LUAI_TRY(L,c,a) if (setjmp(&(c)->b) == 0) { a } argument 113 #define LUAI_THROW(L,c) longjmp((c)->b, 1) argument 114 #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } argument 122 #define LUAI_THROW(L,c) throw(c) argument 123 #define LUAI_TRY(L,c,a) \ argument 129 #define LUAI_THROW(L,c) _longjmp((c)->b, 1) argument 130 #define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } argument 135 #define LUAI_THROW(L,c) longjmp((c)->b, 1) argument 136 #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } argument [all …]
|
/freebsd/contrib/lua/src/ |
H A D | lbaselib.c | 24 static int luaB_print (lua_State *L) { in luaB_print() argument 25 int n = lua_gettop(L); /* number of arguments */ in luaB_print() 29 const char *s = luaL_tolstring(L, i, &l); /* convert it to string */ in luaB_print() 33 lua_pop(L, 1); /* pop result */ in luaB_print() 45 static int luaB_warn (lua_State *L) { in luaB_warn() argument 46 int n = lua_gettop(L); /* number of arguments */ in luaB_warn() 48 luaL_checkstring(L, 1); /* at least one argument */ in luaB_warn() 50 luaL_checkstring(L, i); /* make sure all arguments are strings */ in luaB_warn() 52 lua_warning(L, lua_tostring(L, i), 1); in luaB_warn() 53 lua_warning(L, lua_tostring(L, n), 0); /* close warning */ in luaB_warn() [all …]
|
H A D | ldblib.c | 35 static void checkstack (lua_State *L, lua_State *L1, int n) { in checkstack() argument 36 if (l_unlikely(L != L1 && !lua_checkstack(L1, n))) in checkstack() 37 luaL_error(L, "stack overflow"); in checkstack() 41 static int db_getregistry (lua_State *L) { in db_getregistry() argument 42 lua_pushvalue(L, LUA_REGISTRYINDEX); in db_getregistry() 47 static int db_getmetatable (lua_State *L) { in db_getmetatable() argument 48 luaL_checkany(L, 1); in db_getmetatable() 49 if (!lua_getmetatable(L, 1)) { in db_getmetatable() 50 lua_pushnil(L); /* no metatable */ in db_getmetatable() 56 static int db_setmetatable (lua_State *L) { in db_setmetatable() argument [all …]
|
H A D | lapi.c | 46 #define isvalid(L, o) (!ttisnil(o) || o != &G(L)->nilvalue) argument 60 static TValue *index2value (lua_State *L, int idx) { in index2value() argument 61 CallInfo *ci = L->ci; in index2value() 64 api_check(L, idx <= ci->top.p - (ci->func.p + 1), "unacceptable index"); in index2value() 65 if (o >= L->top.p) return &G(L)->nilvalue; in index2value() 69 api_check(L, idx != 0 && -idx <= L->top.p - (ci->func.p + 1), in index2value() 71 return s2v(L->top.p + idx); in index2value() 74 return &G(L)->l_registry; in index2value() 77 api_check(L, idx <= MAXUPVAL + 1, "upvalue index too large"); in index2value() 81 : &G(L)->nilvalue; in index2value() [all …]
|
H A D | loadlib.c | 67 #define setprogdir(L) ((void)0) argument 92 static void *lsys_load (lua_State *L, const char *path, int seeglb); 99 static lua_CFunction lsys_sym (lua_State *L, void *lib, const char *sym); 133 static void *lsys_load (lua_State *L, const char *path, int seeglb) { in lsys_load() argument 136 lua_pushstring(L, dlerror()); in lsys_load() 141 static lua_CFunction lsys_sym (lua_State *L, void *lib, const char *sym) { in lsys_sym() argument 144 lua_pushstring(L, dlerror()); in lsys_sym() 177 static void setprogdir (lua_State *L) { in setprogdir() argument 183 luaL_error(L, "unable to get ModuleFileName"); in setprogdir() 186 luaL_gsub(L, lua_tostring(L, -1), LUA_EXEC_DIR, buff); in setprogdir() [all …]
|
H A D | lauxlib.c | 52 static int findfield (lua_State *L, int objidx, int level) { in findfield() argument 53 if (level == 0 || !lua_istable(L, -1)) in findfield() 55 lua_pushnil(L); /* start 'next' loop */ in findfield() 56 while (lua_next(L, -2)) { /* for each pair in table */ in findfield() 57 if (lua_type(L, -2) == LUA_TSTRING) { /* ignore non-string keys */ in findfield() 58 if (lua_rawequal(L, objidx, -1)) { /* found object? */ in findfield() 59 lua_pop(L, 1); /* remove value (but keep name) */ in findfield() 62 else if (findfield(L, objidx, level - 1)) { /* try recursively */ in findfield() 64 lua_pushliteral(L, "."); /* place '.' between the two names */ in findfield() 65 lua_replace(L, -3); /* (in the slot occupied by table) */ in findfield() [all …]
|
H A D | ldo.c | 58 #define LUAI_THROW(L,c) throw(c) argument 59 #define LUAI_TRY(L,c,a) \ argument 66 #define LUAI_THROW(L,c) _longjmp((c)->b, 1) argument 67 #define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } argument 73 #define LUAI_THROW(L,c) longjmp((c)->b, 1) argument 74 #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } argument 91 void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop) { in luaD_seterrorobj() argument 94 setsvalue2s(L, oldtop, G(L)->memerrmsg); /* reuse preregistered msg. */ in luaD_seterrorobj() 98 setsvalue2s(L, oldtop, luaS_newliteral(L, "error in error handling")); in luaD_seterrorobj() 107 setobjs2s(L, oldtop, L->top.p - 1); /* error message on current top */ in luaD_seterrorobj() [all …]
|
H A D | liolib.c | 59 #define l_popen(L,c,m) (fflush(NULL), popen(c,m)) argument 60 #define l_pclose(L,file) (pclose(file)) argument 64 #define l_popen(L,c,m) (_popen(c,m)) argument 65 #define l_pclose(L,file) (_pclose(file)) argument 76 #define l_popen(L,c,m) \ argument 78 luaL_error(L, "'popen' not supported"), \ 80 #define l_pclose(L,file) ((void)L, (void)file, -1) argument 158 #define tolstream(L) ((LStream *)luaL_checkudata(L, 1, LUA_FILEHANDLE)) argument 163 static int io_type (lua_State *L) { in io_type() argument 165 luaL_checkany(L, 1); in io_type() [all …]
|
H A D | lua.c | 63 static void lstop (lua_State *L, lua_Debug *ar) { in lstop() argument 65 lua_sethook(L, NULL, 0, 0); /* reset hook */ in lstop() 66 luaL_error(L, "interrupted!"); in lstop() 121 static int report (lua_State *L, int status) { in report() argument 123 const char *msg = lua_tostring(L, -1); in report() 125 lua_pop(L, 1); /* remove message */ in report() 134 static int msghandler (lua_State *L) { in msghandler() argument 135 const char *msg = lua_tostring(L, 1); in msghandler() 137 if (luaL_callmeta(L, 1, "__tostring") && /* does it have a metamethod */ in msghandler() 138 lua_type(L, -1) == LUA_TSTRING) /* that produces a string? */ in msghandler() [all …]
|
H A D | ltablib.c | 33 #define aux_getn(L,n,w) (checktab(L, n, (w) | TAB_L), luaL_len(L, n)) argument 36 static int checkfield (lua_State *L, const char *key, int n) { in checkfield() argument 37 lua_pushstring(L, key); in checkfield() 38 return (lua_rawget(L, -n) != LUA_TNIL); in checkfield() 46 static void checktab (lua_State *L, int arg, int what) { in checktab() argument 47 if (lua_type(L, arg) != LUA_TTABLE) { /* is it not a table? */ in checktab() 49 if (lua_getmetatable(L, arg) && /* must have metatable */ in checktab() 50 (!(what & TAB_R) || checkfield(L, "__index", ++n)) && in checktab() 51 (!(what & TAB_W) || checkfield(L, "__newindex", ++n)) && in checktab() 52 (!(what & TAB_L) || checkfield(L, "__len", ++n))) { in checktab() [all …]
|
/freebsd/contrib/libucl/lua/ |
H A D | lua_ucl.c | 77 static int ucl_object_lua_push_array (lua_State *L, const ucl_object_t *obj, int flags); 78 static int ucl_object_lua_push_scalar (lua_State *L, const ucl_object_t *obj, int flags); 79 static int ucl_object_push_lua_common (lua_State *L, const ucl_object_t *obj, int flags); 80 static ucl_object_t* ucl_object_lua_fromtable (lua_State *L, int idx, ucl_string_flags_t flags); 81 static ucl_object_t* ucl_object_lua_fromelt (lua_State *L, int idx, ucl_string_flags_t flags); 99 ucl_object_lua_push_element (lua_State *L, const char *key, in ucl_object_lua_push_element() argument 102 lua_pushstring (L, key); in ucl_object_lua_push_element() 103 ucl_object_push_lua_common (L, obj, flags|LUA_UCL_ALLOW_ARRAY); in ucl_object_lua_push_element() 104 lua_settable (L, -3); in ucl_object_lua_push_element() 112 luaL_unref (fd->L, LUA_REGISTRYINDEX, fd->idx); in lua_ucl_userdata_dtor() [all …]
|
/freebsd/libexec/flua/modules/ |
H A D | lposix.c | 28 lua__exit(lua_State *L) in lua__exit() 32 narg = lua_gettop(L); in lua__exit() 33 luaL_argcheck(L, narg == 1, 1, "_exit takes exactly one argument"); in lua__exit() 35 code = luaL_checkinteger(L, 1); in lua__exit() 40 lua_basename(lua_State *L) in lua_basename() 45 narg = lua_gettop(L); in lua_basename() 46 luaL_argcheck(L, narg > 0, 1, "at least one argument required"); in lua_basename() 47 inpath = strdup(luaL_checkstring(L, 1)); in lua_basename() 49 lua_pushnil(L); in lua_basename() 50 lua_pushstring(L, strerro in lua_basename() 27 lua__exit(lua_State * L) lua__exit() argument 39 lua_basename(lua_State * L) lua_basename() argument 61 lua_chmod(lua_State * L) lua_chmod() argument 83 lua_chown(lua_State * L) lua_chown() argument 139 lua_pclose(lua_State * L) lua_pclose() argument 168 lua_uname(lua_State * L) lua_uname() argument 201 lua_dirname(lua_State * L) lua_dirname() argument 224 lua_fork(lua_State * L) lua_fork() argument 245 lua_getpid(lua_State * L) lua_getpid() argument 256 lua_pipe(lua_State * L) lua_pipe() argument 277 lua_read(lua_State * L) lua_read() argument 324 lua_realpath(lua_State * L) lua_realpath() argument 348 lua_wait(lua_State * L) lua_wait() argument 398 lua_write(lua_State * L) lua_write() argument 496 luaopen_posix_libgen(lua_State * L) luaopen_posix_libgen() argument 503 luaopen_posix_stdlib(lua_State * L) luaopen_posix_stdlib() argument 510 luaopen_posix_sys_stat(lua_State * L) luaopen_posix_sys_stat() argument 517 luaopen_posix_sys_wait(lua_State * L) luaopen_posix_sys_wait() argument 521 lua_pushflag(L,flag) luaopen_posix_sys_wait() argument 543 luaopen_posix_sys_utsname(lua_State * L) luaopen_posix_sys_utsname() argument 550 luaopen_posix_unistd(lua_State * L) luaopen_posix_unistd() argument [all...] |
/freebsd/contrib/bionic-x86_64-string/ |
H A D | sse4-memcmp-slm.S | 37 #ifndef L 38 # define L(label) .L##label macro 88 ja L(79bytesormore) 91 je L(firstbyte) 95 BRANCH_TO_JMPTBL_ENTRY(L(table_64bytes), %rdx, 4) 99 L(firstbyte): 107 L(79bytesormore): 112 jnc L(16bytesin256) 121 jz L(2aligned) 124 ja L(128bytesormore) [all …]
|
/freebsd/contrib/nvi/ex/ |
H A D | ex_cmd.c | 50 {L("\004"), ex_pr, E_ADDR2, 55 {L("!"), ex_bang, E_ADDR2_NONE|E_SECURE, 60 {L("#"), ex_number, E_ADDR2|E_CLRFLAG, 65 {L("&"), ex_subagain, E_ADDR2|E_ADDR_ZERO, 70 {L("*"), ex_at, 0, 75 {L("<"), ex_shiftl, E_ADDR2|E_AUTOPRINT, 80 {L("="), ex_equal, E_ADDR1|E_ADDR_ZERO|E_ADDR_ZERODEF, 85 {L(">"), ex_shiftr, E_ADDR2|E_AUTOPRINT, 90 {L("@"), ex_at, E_ADDR2, 95 {L("append"), ex_append, E_ADDR1|E_ADDR_ZERO|E_ADDR_ZERODEF, [all …]
|
/freebsd/stand/liblua/ |
H A D | lutils.c | 41 lua_command(lua_State *L) in lua_command() argument 45 int argc = lua_gettop(L); in lua_command() 52 argv[i] = (char *)(intptr_t)luaL_checkstring(L, i + 1); in lua_command() 56 lua_pushinteger(L, res); in lua_command() 62 lua_has_command(lua_State *L) in lua_has_command() argument 66 cmd = luaL_checkstring(L, 1); in lua_has_command() 68 lua_pushboolean(L, 1); in lua_has_command() 72 lua_pushnil(L); in lua_has_command() 73 lua_pushstring(L, "Builtin command not found"); in lua_has_command() 78 lua_has_feature(lua_State *L) in lua_has_feature() argument [all …]
|
/freebsd/lib/clang/liblldb/ |
H A D | LLDBWrapLua.cpp | 843 #define lua_pushrotable(L,p)\ argument 844 lua_newtable(L);\ 846 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p)); 923 static const char *(lua_tolstring)(lua_State *L, int idx, size_t *len) { 926 const char *result = lua_tostring(L, idx); 927 if (len) *len = lua_strlen(L, idx); 937 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX) argument 942 # define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1) argument 947 #define lua_rawsetp(L,index,ptr)\ argument 948 lua_pushlightuserdata(L,(void*)(ptr));\ [all …]
|