clang -cc1 -cc1 -triple x86_64-pc-linux-gnu -analyze -disable-free -clear-ast-before-backend -disable-llvm-verifier -discard-value-names -main-file-name common.c -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 2 -fhalf-no-semantic-interposition -fno-delete-null-pointer-checks -mframe-pointer=all -relaxed-aliasing -fmath-errno -ffp-contract=on -fno-rounding-math -ffloat16-excess-precision=fast -fbfloat16-excess-precision=fast -mconstructor-aliases -funwind-tables=2 -target-cpu x86-64 -tune-cpu generic -debugger-tuning=gdb -fdebug-compilation-dir=/builds/wireshark/wireshark/build -fcoverage-compilation-dir=/builds/wireshark/wireshark/build -resource-dir /usr/lib/llvm-19/lib/clang/19 -isystem /usr/include/glib-2.0 -isystem /usr/lib/x86_64-linux-gnu/glib-2.0/include -isystem /builds/wireshark/wireshark/epan -isystem /usr/include/lua5.4 -D G_DISABLE_DEPRECATED -D G_DISABLE_SINGLE_INCLUDES -D PCRE2_CODE_UNIT_WIDTH=8 -D VERSION="2.9.2" -D WS_DEBUG -D WS_DEBUG_UTF_8 -I /builds/wireshark/wireshark/build -I /builds/wireshark/wireshark -I /builds/wireshark/wireshark/include -D _GLIBCXX_ASSERTIONS -internal-isystem /usr/lib/llvm-19/lib/clang/19/include -internal-isystem /usr/local/include -internal-isystem /usr/lib/gcc/x86_64-linux-gnu/14/../../../../x86_64-linux-gnu/include -internal-externc-isystem /usr/include/x86_64-linux-gnu -internal-externc-isystem /include -internal-externc-isystem /usr/include -fmacro-prefix-map=/builds/wireshark/wireshark/= -fmacro-prefix-map=/builds/wireshark/wireshark/build/= -fmacro-prefix-map=../= -Wno-format-truncation -Wno-format-nonliteral -Wno-pointer-sign -std=gnu11 -ferror-limit 19 -fvisibility=hidden -fwrapv -fstrict-flex-arrays=3 -stack-protector 2 -fstack-clash-protection -fcf-protection=full -fgnuc-version=4.2.1 -fskip-odr-check-in-gmf -fexceptions -fcolor-diagnostics -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /builds/wireshark/wireshark/sbout/2025-07-08-100254-3847-1 -x c /builds/wireshark/wireshark/epan/wslua/lrexlib/common.c
| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | #include <wireshark.h> |
| 6 | DIAG_OFF_CLANG(shorten-64-to-32) |
| 7 | #ifdef _MSC_VER |
| 8 | |
| 9 | |
| 10 | #pragma warning(disable:4244) |
| 11 | |
| 12 | |
| 13 | #pragma warning(disable:4267) |
| 14 | #endif |
| 15 | |
| 16 | #include <stdlib.h> |
| 17 | #include <ctype.h> |
| 18 | #include <string.h> |
| 19 | #include "lua.h" |
| 20 | #include "lauxlib.h" |
| 21 | #include "common.h" |
| 22 | |
| 23 | #define N_ALIGN sizeof(int) |
| 24 | |
| 25 | |
| 26 | int get_int_field (lua_State *L, const char* field) |
| 27 | { |
| 28 | int val; |
| 29 | lua_getfield (L, -1, field); |
| 30 | val = lua_tointeger (L, -1); |
| 31 | lua_pop (L, 1); |
| 32 | return val; |
| 33 | } |
| 34 | |
| 35 | |
| 36 | void set_int_field (lua_State *L, const char* field, int val) |
| 37 | { |
| 38 | lua_pushinteger (L, val); |
| 39 | lua_setfield (L, -2, field); |
| 40 | } |
| 41 | |
| 42 | void *Lmalloc(lua_State *L, size_t size) { |
| 43 | void *ud; |
| 44 | lua_Alloc lalloc = lua_getallocf(L, &ud); |
| 45 | return lalloc(ud, NULL, 0, size); |
| 46 | } |
| 47 | |
| 48 | void *Lrealloc(lua_State *L, void *p, size_t osize, size_t nsize) { |
| 49 | void *ud; |
| 50 | lua_Alloc lalloc = lua_getallocf(L, &ud); |
| 51 | return lalloc(ud, p, osize, nsize); |
| 52 | } |
| 53 | |
| 54 | void Lfree(lua_State *L, void *p, size_t osize) { |
| 55 | void *ud; |
| 56 | lua_Alloc lalloc = lua_getallocf(L, &ud); |
| 57 | lalloc(ud, p, osize, 0); |
| 58 | } |
| 59 | |
| 60 | |
| 61 | |
| 62 | |
| 63 | |
| 64 | int get_flags (lua_State *L, const flag_pair **arrs) { |
| 65 | const flag_pair *p; |
| 66 | const flag_pair **pp; |
| 67 | int nparams = lua_gettop(L); |
| 68 | |
| 69 | if(nparams == 0) |
| 70 | lua_newtable(L); |
| 71 | else { |
| 72 | if(!lua_istable(L, 1)) |
| 73 | luaL_argerror(L, 1, "not a table"); |
| 74 | if(nparams > 1) |
| 75 | lua_pushvalue(L, 1); |
| 76 | } |
| 77 | |
| 78 | for(pp=arrs; *pp; ++pp) { |
| 79 | for(p=*pp; p->key; ++p) { |
| 80 | lua_pushstring(L, p->key); |
| 81 | lua_pushinteger(L, p->val); |
| 82 | lua_rawset(L, -3); |
| 83 | } |
| 84 | } |
| 85 | return 1; |
| 86 | } |
| 87 | |
| 88 | const char *get_flag_key (const flag_pair *fp, int val) { |
| 89 | for (; fp->key; ++fp) { |
| 90 | if (fp->val == val) |
| 91 | return fp->key; |
| 92 | } |
| 93 | return NULL; |
| 94 | } |
| 95 | |
| 96 | |
| 97 | |
| 98 | |
| 99 | |
| 100 | |
| 101 | |
| 102 | |
| 103 | |
| 104 | |
| 105 | void freelist_init (TFreeList *fl) { |
| 106 | fl->top = 0; |
| 107 | } |
| 108 | |
| 109 | void freelist_add (TFreeList *fl, TBuffer *buf) { |
| 110 | fl->list[fl->top++] = buf; |
| 111 | } |
| 112 | |
| 113 | void freelist_free (TFreeList *fl) { |
| 114 | while (fl->top > 0) |
| 115 | buffer_free (fl->list[--fl->top]); |
| 116 | } |
| 117 | |
| 118 | |
| 119 | |
| 120 | |
| 121 | |
| 122 | |
| 123 | |
| 124 | |
| 125 | |
| 126 | |
| 127 | |
| 128 | |
| 129 | |
| 130 | |
| 131 | |
| 132 | |
| 133 | |
| 134 | |
| 135 | |
| 136 | |
| 137 | |
| 138 | enum { ID_NUMBER, ID_STRING }; |
| 139 | |
| 140 | void buffer_init (TBuffer *buf, size_t sz, lua_State *L, TFreeList *fl) { |
| 141 | buf->arr = (char*) Lmalloc(L, sz); |
| 142 | if (!buf->arr) { |
| 143 | freelist_free (fl); |
| 144 | luaL_error (L, "malloc failed"); |
| 145 | } |
| 146 | buf->size = sz; |
| 147 | buf->top = 0; |
| 148 | buf->L = L; |
| 149 | buf->freelist = fl; |
| 150 | freelist_add (fl, buf); |
| 151 | } |
| 152 | |
| 153 | void buffer_free (TBuffer *buf) { |
| 154 | Lfree(buf->L, buf->arr, buf->size); |
| 155 | } |
| 156 | |
| 157 | void buffer_clear (TBuffer *buf) { |
| 158 | buf->top = 0; |
| 159 | } |
| 160 | |
| 161 | void buffer_pushresult (TBuffer *buf) { |
| 162 | lua_pushlstring (buf->L, buf->arr, buf->top); |
| 163 | } |
| 164 | |
| 165 | void buffer_addbuffer (TBuffer *trg, TBuffer *src) { |
| 166 | buffer_addlstring (trg, src->arr, src->top); |
| 167 | } |
| 168 | |
| 169 | void buffer_addlstring (TBuffer *buf, const void *src, size_t sz) { |
| 170 | size_t newtop = buf->top + sz; |
| 171 | if (newtop > buf->size) { |
| 2 | | Assuming 'newtop' is > field 'size' | |
|
| |
| 172 | char *p = (char*) Lrealloc (buf->L, buf->arr, buf->size, 2 * newtop); |
| |
| 173 | if (!p) { |
| |
| |
| 174 | freelist_free (buf->freelist); |
| 175 | luaL_error (buf->L, "realloc failed"); |
| 176 | } |
| 177 | buf->arr = p; |
| 7 | | Null pointer value stored to field 'arr' | |
|
| 178 | buf->size = 2 * newtop; |
| 179 | } |
| 180 | if (src) |
| 8 | | Assuming 'src' is non-null | |
|
| |
| 181 | memcpy (buf->arr + buf->top, src, sz); |
| 10 | | Null pointer passed to 1st parameter expecting 'nonnull' |
|
| 182 | buf->top = newtop; |
| 183 | } |
| 184 | |
| 185 | void buffer_addvalue (TBuffer *buf, int stackpos) { |
| 186 | size_t len; |
| 187 | const char *p = lua_tolstring (buf->L, stackpos, &len); |
| 188 | buffer_addlstring (buf, p, len); |
| 1 | Calling 'buffer_addlstring' | |
|
| 189 | } |
| 190 | |
| 191 | void bufferZ_addlstring (TBuffer *buf, const void *src, size_t len) { |
| 192 | int n; |
| 193 | size_t header[2] = { ID_STRING }; |
| 194 | header[1] = len; |
| 195 | buffer_addlstring (buf, header, sizeof (header)); |
| 196 | buffer_addlstring (buf, src, len); |
| 197 | n = len % N_ALIGN; |
| 198 | if (n) buffer_addlstring (buf, NULL, N_ALIGN - n); |
| 199 | } |
| 200 | |
| 201 | void bufferZ_addnum (TBuffer *buf, size_t num) { |
| 202 | size_t header[2] = { ID_NUMBER }; |
| 203 | header[1] = num; |
| 204 | buffer_addlstring (buf, header, sizeof (header)); |
| 205 | } |
| 206 | |
| 207 | |
| 208 | |
| 209 | |
| 210 | |
| 211 | void bufferZ_putrepstring (TBuffer *BufRep, int reppos, int nsub) { |
| 212 | char dbuf[] = { 0, 0 }; |
| 213 | size_t replen; |
| 214 | const char *p = lua_tolstring (BufRep->L, reppos, &replen); |
| 215 | const char *end = p + replen; |
| 216 | BufRep->top = 0; |
| 217 | while (p < end) { |
| 218 | const char *q; |
| 219 | for (q = p; q < end && *q != '%'; ++q) |
| 220 | {} |
| 221 | if (q != p) |
| 222 | bufferZ_addlstring (BufRep, p, q - p); |
| 223 | if (q < end) { |
| 224 | if (++q < end) { |
| 225 | if (g_ascii_isdigit (*q)) { |
| 226 | int num; |
| 227 | *dbuf = *q; |
| 228 | num = strtol (dbuf, NULL, 10); |
| 229 | if (num == 1 && nsub == 0) |
| 230 | num = 0; |
| 231 | else if (num > nsub) { |
| 232 | freelist_free (BufRep->freelist); |
| 233 | luaL_error (BufRep->L, "invalid capture index"); |
| 234 | } |
| 235 | bufferZ_addnum (BufRep, num); |
| 236 | } |
| 237 | else bufferZ_addlstring (BufRep, q, 1); |
| 238 | } |
| 239 | p = q + 1; |
| 240 | } |
| 241 | else break; |
| 242 | } |
| 243 | } |
| 244 | |
| 245 | |
| 246 | |
| 247 | |
| 248 | |
| 249 | |
| 250 | |
| 251 | |
| 252 | |
| 253 | |
| 254 | int bufferZ_next (TBuffer *buf, size_t *iter, size_t *num, const char **str) { |
| 255 | if (*iter < buf->top) { |
| 256 | size_t *ptr_header = (size_t*)(buf->arr + *iter); |
| 257 | *num = ptr_header[1]; |
| 258 | *iter += 2 * sizeof (size_t); |
| 259 | *str = NULL; |
| 260 | if (*ptr_header == ID_STRING) { |
| 261 | int n; |
| 262 | *str = buf->arr + *iter; |
| 263 | *iter += *num; |
| 264 | n = *iter % N_ALIGN; |
| 265 | if (n) *iter += (N_ALIGN - n); |
| 266 | } |
| 267 | return 1; |
| 268 | } |
| 269 | return 0; |
| 270 | } |
| 271 | |
| 272 | #if LUA_VERSION_NUM > 501 |
| 273 | int luaL_typerror (lua_State *L, int narg, const char *tname) { |
| 274 | const char *msg = lua_pushfstring(L, "%s expected, got %s", |
| 275 | tname, luaL_typename(L, narg)); |
| 276 | return luaL_argerror(L, narg, msg); |
| 277 | } |
| 278 | #endif |
| 279 | |
| 280 | #ifndef REX_NOEMBEDDEDTEST |
| 281 | static int ud_topointer (lua_State *L) { |
| 282 | lua_pushlightuserdata (L, lua_touserdata (L, 1)); |
| 283 | return 1; |
| 284 | } |
| 285 | |
| 286 | static int ud_len (lua_State *L) { |
| 287 | lua_pushinteger (L, lua_objlen (L, 1)); |
| 288 | return 1; |
| 289 | } |
| 290 | |
| 291 | |
| 292 | int newmembuffer (lua_State *L) { |
| 293 | size_t len; |
| 294 | const char* s = luaL_checklstring (L, 1, &len); |
| 295 | void *ud = lua_newuserdata (L, len); |
| 296 | memcpy (ud, s, len); |
| 297 | lua_newtable (L); |
| 298 | lua_pushvalue (L, -1); |
| 299 | lua_setfield (L, -2, "__index"); |
| 300 | lua_pushcfunction (L, ud_topointer); |
| 301 | lua_setfield (L, -2, "topointer"); |
| 302 | lua_pushcfunction (L, ud_len); |
| 303 | lua_setfield (L, -2, "__len"); |
| 304 | lua_setmetatable (L, -2); |
| 305 | return 1; |
| 306 | } |
| 307 | #endif /* #ifndef REX_NOEMBEDDEDTEST */ |