28 #include <ws_log_defs.h>
51 #include <epan/wslua/declare_wslua.h>
57 #define WSLUA_INIT_ROUTINES "init_routines"
58 #define WSLUA_PREFS_CHANGED "prefs_changed"
84 #define wslua_toint(L,i) (int) ( lua_tointeger(L,i) )
85 #define wslua_toint32(L,i) (int32_t) ( lua_tointeger(L,i) )
86 #define wslua_toint64(L,i) (int64_t) ( lua_tonumber(L,i) )
87 #define wslua_touint64(L,i) (uint64_t) ( lua_tonumber(L,i) )
89 #define wslua_checkint(L,i) (int) ( luaL_checkinteger(L,i) )
90 #define wslua_checkint32(L,i) (int32_t) ( luaL_checkinteger(L,i) )
91 #define wslua_checkint64(L,i) (int64_t) ( luaL_checknumber(L,i) )
92 #define wslua_checkuint64(L,i) (uint64_t) ( luaL_checknumber(L,i) )
94 #define wslua_optint(L,i,d) (int) ( luaL_optinteger(L,i,d) )
95 #define wslua_optint32(L,i,d) (int32_t) ( luaL_optinteger(L,i,d) )
96 #define wslua_optint64(L,i,d) (int64_t) ( luaL_optnumber(L,i,d) )
97 #define wslua_optuint64(L,i,d) (uint64_t) ( luaL_optnumber(L,i,d) )
104 #if LUA_VERSION_NUM < 503
105 #define wslua_touint(L,i) (unsigned) ( lua_tounsigned(L,i) )
106 #define wslua_touint32(L,i) (uint32_t) ( lua_tounsigned(L,i) )
107 #define wslua_checkuint(L,i) (unsigned) ( luaL_checkunsigned(L,i) )
108 #define wslua_checkuint32(L,i) (uint32_t) ( luaL_checkunsigned(L,i) )
109 #define wslua_optuint(L,i,d) (unsigned) ( luaL_optunsigned(L,i,d) )
110 #define wslua_optuint32(L,i,d) (uint32_t) ( luaL_optunsigned(L,i,d) )
112 #define wslua_touint(L,i) (unsigned) ( lua_tointeger(L,i) )
113 #define wslua_touint32(L,i) (uint32_t) ( lua_tointeger(L,i) )
114 #define wslua_checkuint(L,i) (unsigned) ( luaL_checkinteger(L,i) )
115 #define wslua_checkuint32(L,i) (uint32_t) ( luaL_checkinteger(L,i) )
116 #define wslua_optuint(L,i,d) (unsigned) ( luaL_optinteger(L,i,d) )
117 #define wslua_optuint32(L,i,d) (uint32_t) ( luaL_optinteger(L,i,d) )
216 int expert_info_table_ref;
223 bool is_postdissector;
273 typedef void (*tap_extractor_t)(lua_State*,
const void*);
278 tap_extractor_t extractor;
320 char* internal_description;
328 int seq_read_close_ref;
329 int can_write_encap_ref;
350 typedef struct {
const char* name; tap_extractor_t extractor; }
tappable_t;
361 typedef GByteArray* ByteArray;
370 typedef int64_t Int64;
371 typedef uint64_t UInt64;
388 typedef tvbparse_action_t* Shortcut;
391 typedef char* Struct;
402 #define WSLUA_CLASS_DEFINE(C,check_code) \
403 WSLUA_CLASS_DEFINE_BASE(C,check_code,NULL)
405 #define WSLUA_CLASS_DEFINE_BASE(C,check_code,retval) \
406 C to##C(lua_State* L, int idx) { \
407 C* v = (C*)lua_touserdata (L, idx); \
408 if (!v) luaL_error(L, "bad argument %d (%s expected, got %s)", idx, #C, lua_typename(L, lua_type(L, idx))); \
409 return v ? *v : retval; \
411 C check##C(lua_State* L, int idx) { \
413 luaL_checktype(L,idx,LUA_TUSERDATA); \
414 p = (C*)luaL_checkudata(L, idx, #C); \
416 return p ? *p : retval; \
418 C* push##C(lua_State* L, C v) { \
420 luaL_checkstack(L,2,"Unable to grow stack\n"); \
421 p = (C*)lua_newuserdata(L,sizeof(C)); *p = v; \
422 luaL_getmetatable(L, #C); lua_setmetatable(L, -2); \
425 bool is##C(lua_State* L,int i) { \
427 if(!lua_isuserdata(L,i)) return false; \
428 p = lua_touserdata(L, i); \
429 lua_getfield(L, LUA_REGISTRYINDEX, #C); \
430 if (p == NULL || !lua_getmetatable(L, i) || !lua_rawequal(L, -1, -2)) p=NULL; \
432 return p ? true : false; \
434 C shift##C(lua_State* L,int i) { \
436 if(!lua_isuserdata(L,i)) return retval; \
437 p = (C*)lua_touserdata(L, i); \
438 lua_getfield(L, LUA_REGISTRYINDEX, #C); \
439 if (p == NULL || !lua_getmetatable(L, i) || !lua_rawequal(L, -1, -2)) p=NULL; \
441 if (p) { lua_remove(L,i); return *p; }\
447 const char *fieldname;
448 lua_CFunction getfunc;
449 lua_CFunction setfunc;
453 #define WSLUA_TYPEOF_FIELD "__typeof"
458 #define WSLUA_REGISTER_GC(C) \
459 luaL_getmetatable(L, #C); \
462 lua_pushcfunction(L, C ## __gc); \
463 lua_setfield(L, -2, "__gc"); \
467 #define __WSLUA_REGISTER_META(C, ATTRS) { \
468 const wslua_class C ## _class = { \
470 .instance_meta = C ## _meta, \
473 wslua_register_classinstance_meta(L, &C ## _class); \
474 WSLUA_REGISTER_GC(C); \
477 #define WSLUA_REGISTER_META(C) __WSLUA_REGISTER_META(C, NULL)
478 #define WSLUA_REGISTER_META_WITH_ATTRS(C) \
479 __WSLUA_REGISTER_META(C, C ## _attributes)
481 #define __WSLUA_REGISTER_CLASS(C, ATTRS) { \
482 const wslua_class C ## _class = { \
484 .class_methods = C ## _methods, \
485 .class_meta = C ## _meta, \
486 .instance_methods = C ## _methods, \
487 .instance_meta = C ## _meta, \
490 wslua_register_class(L, &C ## _class); \
491 WSLUA_REGISTER_GC(C); \
494 #define WSLUA_REGISTER_CLASS(C) __WSLUA_REGISTER_CLASS(C, NULL)
495 #define WSLUA_REGISTER_CLASS_WITH_ATTRS(C) \
496 __WSLUA_REGISTER_CLASS(C, C ## _attributes)
498 #define WSLUA_INIT(L) \
500 wslua_register_classes(L); \
501 wslua_register_functions(L);
505 #define WSLUA_FUNCTION extern int
507 #define WSLUA_INTERNAL_FUNCTION extern int
509 #define WSLUA_REGISTER_FUNCTION(name) { lua_pushcfunction(L, wslua_## name); lua_setglobal(L, #name); }
511 #define WSLUA_REGISTER extern int
513 #define WSLUA_METHOD static int
514 #define WSLUA_CONSTRUCTOR static int
515 #define WSLUA_ATTR_SET static int
516 #define WSLUA_ATTR_GET static int
517 #define WSLUA_METAMETHOD static int
519 #define WSLUA_METHODS static const luaL_Reg
520 #define WSLUA_META static const luaL_Reg
521 #define WSLUA_CLASS_FNREG(class,name) { #name, class##_##name }
522 #define WSLUA_CLASS_FNREG_ALIAS(class,aliasname,name) { #aliasname, class##_##name }
523 #define WSLUA_CLASS_MTREG(class,name) { "__" #name, class##__##name }
525 #define WSLUA_ATTRIBUTES static const wslua_attribute_table
527 #define WSLUA_ATTRIBUTE_RWREG(class,name) { #name, class##_get_##name, class##_set_##name }
528 #define WSLUA_ATTRIBUTE_ROREG(class,name) { #name, class##_get_##name, NULL }
529 #define WSLUA_ATTRIBUTE_WOREG(class,name) { #name, NULL, class##_set_##name }
531 #define WSLUA_ATTRIBUTE_FUNC_SETTER(C,field) \
532 static int C##_set_##field (lua_State* L) { \
533 C obj = check##C (L,1); \
534 if (! lua_isfunction(L,-1) ) \
535 return luaL_error(L, "%s's attribute `%s' must be a function", #C , #field ); \
536 if (obj->field##_ref != LUA_NOREF) \
538 luaL_unref(L, LUA_REGISTRYINDEX, obj->field##_ref); \
539 obj->field##_ref = luaL_ref(L, LUA_REGISTRYINDEX); \
543 typedef void __dummy##C##_set_##field
545 #define WSLUA_ATTRIBUTE_GET(C,name,block) \
546 static int C##_get_##name (lua_State* L) { \
547 C obj = check##C (L,1); \
552 typedef void __dummy##C##_get_##name
554 #define WSLUA_ATTRIBUTE_NAMED_BOOLEAN_GETTER(C,name,member) \
555 WSLUA_ATTRIBUTE_GET(C,name,{lua_pushboolean(L, obj->member );})
557 #define WSLUA_ATTRIBUTE_NAMED_INTEGER_GETTER(C,name,member) \
558 WSLUA_ATTRIBUTE_GET(C,name,{lua_pushinteger(L,(lua_Integer)(obj->member));})
560 #define WSLUA_ATTRIBUTE_INTEGER_GETTER(C,member) \
561 WSLUA_ATTRIBUTE_NAMED_INTEGER_GETTER(C,member,member)
563 #define WSLUA_ATTRIBUTE_BLOCK_NUMBER_GETTER(C,name,block) \
564 WSLUA_ATTRIBUTE_GET(C,name,{lua_pushnumber(L,(lua_Number)(block));})
566 #define WSLUA_ATTRIBUTE_NAMED_STRING_GETTER(C,name,member) \
567 WSLUA_ATTRIBUTE_GET(C,name, { \
568 lua_pushstring(L,obj->member); \
571 #define WSLUA_ATTRIBUTE_STRING_GETTER(C,member) \
572 WSLUA_ATTRIBUTE_NAMED_STRING_GETTER(C,member,member)
574 #define WSLUA_ATTRIBUTE_NAMED_OPT_BLOCK_STRING_GETTER(C,name,member,option) \
575 WSLUA_ATTRIBUTE_GET(C,name, { \
577 if ((obj->member) && (obj->member->len > 0)) { \
578 if (wtap_block_get_string_option_value(g_array_index(obj->member, wtap_block_t, 0), option, &str) == WTAP_OPTTYPE_SUCCESS) { \
579 lua_pushstring(L,str); \
588 #define WSLUA_ATTRIBUTE_NAMED_OPT_BLOCK_NTH_STRING_GETTER(C,name,member,option) \
589 WSLUA_ATTRIBUTE_GET(C,name, { \
591 if ((obj->member) && (obj->member->len > 0)) { \
592 if (wtap_block_get_nth_string_option_value(g_array_index(obj->member, wtap_block_t, 0), option, 0, &str) == WTAP_OPTTYPE_SUCCESS) { \
593 lua_pushstring(L,str); \
598 #define WSLUA_ATTRIBUTE_SET(C,name,block) \
599 static int C##_set_##name (lua_State* L) { \
600 C obj = check##C (L,1); \
605 typedef void __dummy##C##_set_##name
607 #define WSLUA_ATTRIBUTE_NAMED_BOOLEAN_SETTER(C,name,member) \
608 WSLUA_ATTRIBUTE_SET(C,name, { \
609 if (! lua_isboolean(L,-1) ) \
610 return luaL_error(L, "%s's attribute `%s' must be a boolean", #C , #name ); \
611 obj->member = lua_toboolean(L,-1); \
616 #define WSLUA_ATTRIBUTE_NAMED_INTEGER_SETTER(C,name,member,cast) \
617 WSLUA_ATTRIBUTE_SET(C,name, { \
618 if (! lua_isinteger(L,-1) ) \
619 return luaL_error(L, "%s's attribute `%s' must be an integer", #C , #name ); \
620 obj->member = (cast) wslua_toint32(L,-1); \
623 #define WSLUA_ATTRIBUTE_INTEGER_SETTER(C,member,cast) \
624 WSLUA_ATTRIBUTE_NAMED_INTEGER_SETTER(C,member,member,cast)
626 #define WSLUA_ATTRIBUTE_NAMED_STRING_SETTER(C,field,member,need_free) \
627 static int C##_set_##field (lua_State* L) { \
628 C obj = check##C (L,1); \
630 if (lua_isstring(L,-1) || lua_isnil(L,-1)) { \
631 s = g_strdup(lua_tostring(L,-1)); \
633 return luaL_error(L, "%s's attribute `%s' must be a string or nil", #C , #field ); \
635 if (obj->member != NULL && need_free) \
636 g_free((void*) obj->member); \
641 typedef void __dummy##C##_set_##field
643 #define WSLUA_ATTRIBUTE_STRING_SETTER(C,field,need_free) \
644 WSLUA_ATTRIBUTE_NAMED_STRING_SETTER(C,field,field,need_free)
646 #define WSLUA_ATTRIBUTE_NAMED_OPT_BLOCK_STRING_SETTER(C,field,member,option) \
647 static int C##_set_##field (lua_State* L) { \
648 C obj = check##C (L,1); \
650 if (lua_isstring(L,-1) || lua_isnil(L,-1)) { \
651 s = g_strdup(lua_tostring(L,-1)); \
653 return luaL_error(L, "%s's attribute `%s' must be a string or nil", #C , #field ); \
655 if ((obj->member) && (obj->member->len > 0)) { \
656 wtap_block_set_string_option_value(g_array_index(obj->member, wtap_block_t, 0), option, s, strlen(s)); \
662 typedef void __dummy##C##_set_##field
664 #define WSLUA_ATTRIBUTE_NAMED_OPT_BLOCK_NTH_STRING_SETTER(C,field,member,option) \
665 static int C##_set_##field (lua_State* L) { \
666 C obj = check##C (L,1); \
668 if (lua_isstring(L,-1) || lua_isnil(L,-1)) { \
669 s = g_strdup(lua_tostring(L,-1)); \
671 return luaL_error(L, "%s's attribute `%s' must be a string or nil", #C , #field ); \
673 if ((obj->member) && (obj->member->len > 0)) { \
674 wtap_block_set_nth_string_option_value(g_array_index(obj->member, wtap_block_t, 0), option, 0, s, strlen(s)); \
680 typedef void __dummy##C##_set_##field
682 #define WSLUA_ERROR(name,error) { luaL_error(L, "%s%s", #name ": " ,error); }
683 #define WSLUA_ARG_ERROR(name,attr,error) { luaL_argerror(L,WSLUA_ARG_ ## name ## _ ## attr, #name ": " error); }
684 #define WSLUA_OPTARG_ERROR(name,attr,error) { luaL_argerror(L,WSLUA_OPTARG_##name##_ ##attr, #name ": " error); }
686 #define WSLUA_REG_GLOBAL_BOOL(L,n,v) { lua_pushboolean(L,v); lua_setglobal(L,n); }
687 #define WSLUA_REG_GLOBAL_STRING(L,n,v) { lua_pushstring(L,v); lua_setglobal(L,n); }
688 #define WSLUA_REG_GLOBAL_INTEGER(L,n,v) { lua_pushinteger(L,v); lua_setglobal(L,n); }
690 #define WSLUA_RETURN(i) return (i)
692 #define WSLUA_API extern
697 #define FAIL_ON_NULL(s) if (! *p) luaL_argerror(L,idx,"null " s)
699 #define FAIL_ON_NULL_OR_EXPIRED(s) if (!*p) { \
700 luaL_argerror(L,idx,"null " s); \
701 } else if ((*p)->expired) { \
702 luaL_argerror(L,idx,"expired " s); \
706 #define CLEAR_OUTSTANDING(C, marker, marker_val) void clear_outstanding_##C(void) { \
707 while (outstanding_##C->len) { \
708 C p = (C)g_ptr_array_remove_index_fast(outstanding_##C,0); \
710 if (p->marker != marker_val) \
711 p->marker = marker_val; \
718 #define WSLUA_CLASS_DECLARE(C) \
719 extern C to##C(lua_State* L, int idx); \
720 extern C check##C(lua_State* L, int idx); \
721 extern C* push##C(lua_State* L, C v); \
722 extern int C##_register(lua_State* L); \
723 extern bool is##C(lua_State* L,int i); \
724 extern C shift##C(lua_State* L,int i)
728 #define THROW_LUA_ERROR(...) \
729 THROW_FORMATTED(DissectorError, __VA_ARGS__)
733 #define WRAP_NON_LUA_EXCEPTIONS(code) \
735 volatile bool has_error = false; \
739 lua_pushstring(L, GET_MESSAGE); \
742 if (has_error) { lua_error(L); } \
749 extern bool lua_initialized;
750 extern int lua_dissectors_table_ref;
751 extern int lua_heur_dissectors_table_ref;
753 WSLUA_DECLARE_CLASSES()
754 WSLUA_DECLARE_FUNCTIONS()
756 extern lua_State* wslua_state(
void);
777 extern int wslua__concat(lua_State* L);
778 extern bool wslua_toboolean(lua_State* L,
int n);
779 extern bool wslua_checkboolean(lua_State* L,
int n);
780 extern bool wslua_optbool(lua_State* L,
int n,
bool def);
781 extern lua_Integer wslua_tointeger(lua_State* L,
int n);
782 extern int wslua_optboolint(lua_State* L,
int n,
int def);
783 extern const char* wslua_checklstring_only(lua_State* L,
int n,
size_t *l);
784 extern const char* wslua_checkstring_only(lua_State* L,
int n);
785 extern void wslua_setfuncs(lua_State *L,
const luaL_Reg *l,
int nup);
786 extern const char* wslua_typeof_unknown;
787 extern const char* wslua_typeof(lua_State *L,
int idx);
788 extern bool wslua_get_table(lua_State *L,
int idx,
const char *name);
789 extern bool wslua_get_field(lua_State *L,
int idx,
const char *name);
792 extern expert_field* wslua_get_expert_field(
const int group,
const int severity);
793 extern void wslua_prefs_changed(
void);
794 extern void proto_register_lua(
void);
795 extern GString* lua_register_all_taps(
void);
797 extern bool wslua_has_field_extractors(
void);
798 extern void lua_prime_all_fields(
proto_tree* tree);
800 extern int Proto_commit(lua_State* L);
804 extern void clear_outstanding_FuncSavers(
void);
806 extern void Int64_pack(lua_State* L, luaL_Buffer *b,
int idx,
bool asLittleEndian);
807 extern int Int64_unpack(lua_State* L,
const char *buff,
bool asLittleEndian);
808 extern void UInt64_pack(lua_State* L, luaL_Buffer *b,
int idx,
bool asLittleEndian);
809 extern int UInt64_unpack(lua_State* L,
const char *buff,
bool asLittleEndian);
810 extern uint64_t getUInt64(lua_State *L,
int i);
813 extern int push_wsluaTvb(lua_State* L,
Tvb t);
814 extern bool push_TvbRange(lua_State* L,
tvbuff_t* tvb,
int offset,
int len);
815 extern void clear_outstanding_Tvb(
void);
816 extern void clear_outstanding_TvbRange(
void);
819 extern void clear_outstanding_Pinfo(
void);
820 extern void clear_outstanding_Column(
void);
821 extern void clear_outstanding_Columns(
void);
822 extern void clear_outstanding_PrivateTable(
void);
824 extern int get_hf_wslua_text(
void);
826 extern void clear_outstanding_TreeItem(
void);
829 extern void clear_outstanding_FieldInfo(
void);
831 extern void wslua_print_stack(
char* s, lua_State* L);
833 extern void wslua_init(register_cb cb,
void *client_data);
834 extern void wslua_early_cleanup(
void);
835 extern void wslua_cleanup(
void);
837 extern tap_extractor_t wslua_get_tap_extractor(
const char* name);
838 extern int wslua_set_tap_enums(lua_State* L);
842 extern char* wslua_get_actual_filename(
const char* fname);
844 extern int wslua_bin2hex(lua_State* L,
const uint8_t* data,
const unsigned len,
const bool lowercase,
const char* sep);
845 extern int wslua_hex2bin(lua_State* L,
const char* data,
const unsigned len,
const char* sep);
846 extern int luaopen_rex_pcre2(lua_State *L);
848 extern const char* get_current_plugin_version(
void);
849 extern void clear_current_plugin_version(
void);
851 extern int wslua_deregister_heur_dissectors(lua_State* L);
852 extern int wslua_deregister_protocols(lua_State* L);
853 extern int wslua_deregister_dissector_tables(lua_State* L);
854 extern int wslua_deregister_listeners(lua_State* L);
855 extern int wslua_deregister_fields(lua_State* L);
856 extern int wslua_deregister_filehandlers(lua_State* L);
857 extern void wslua_deregister_menus(
void);
859 extern void wslua_init_wtap_filetypes(lua_State* L);
#define PREF_UINT
Definition: prefs-int.h:90
Definition: tap-funnel.c:27
Definition: packet_info.h:44
Definition: tvbparse.h:143
Definition: tvbparse.h:131
Definition: tvbparse.h:90
Type for defining new classes.
Definition: wslua.h:766
const wslua_attribute_table * attrs
Definition: wslua.h:772
const luaL_Reg * class_meta
Definition: wslua.h:769
const char * name
Definition: wslua.h:767
const luaL_Reg * class_methods
Definition: wslua.h:768
const luaL_Reg * instance_methods
Definition: wslua.h:770
const luaL_Reg * instance_meta
Definition: wslua.h:771
union _wslua_pref_t::@489 info
bool radio_buttons
Definition: wslua.h:195
char * default_s
Definition: wslua.h:200
uint32_t max_value
Definition: wslua.h:192
const enum_val_t * enumvals
Definition: wslua.h:194
struct _wslua_pref_t::@489::@490 enum_info
Definition: column-info.h:63
Definition: epan_dissect.h:28
Definition: prefs-int.h:27
Definition: progress_frame.h:31
Definition: tvbuff-int.h:35
Definition: wtap-int.h:97
Definition: file_wrappers.c:163
Definition: wtap-int.h:37
void wslua_register_class(lua_State *L, const wslua_class *cls_def)
Definition: wslua_internals.c:530
ProtoField wslua_is_field_available(lua_State *L, const char *field_abbr)
Definition: wslua_proto.c:713
void wslua_register_classinstance_meta(lua_State *L, const wslua_class *cls_def)
Definition: wslua_internals.c:453
struct _wslua_class wslua_class
Type for defining new classes.
pref_type_t
Definition: wslua.h:168