epan/wslua/wslua_address.c

   1 /*
   2  * wslua_address.c
   3  *
   4  * Wireshark's interface to the Lua Programming Language
   5  *
   6  * (c) 2006, Luis E. Garcia Ontanon <luis@ontanon.org>
   7  * (c) 2008, Balint Reczey <balint.reczey@ericsson.com>
   8  * (c) 2011, Stig Bjorlykke <stig@bjorlykke.org>
   9  * (c) 2014, Hadriel Kaplan <hadrielk@yahoo.com>
  10  *
  11  * Wireshark - Network traffic analyzer
  12  * By Gerald Combs <gerald@wireshark.org>
  13  * Copyright 1998 Gerald Combs
  14  *
  15  * SPDX-License-Identifier: GPL-2.0-or-later
  16  */
  17
  18 #include "config.h"
  19
  20 #include "wslua.h"
  21
  22 #include <epan/addr_resolv.h>
  23
  24 /* WSLUA_CONTINUE_MODULE Pinfo */
  25
  26
  27 WSLUA_CLASS_DEFINE(Address,FAIL_ON_NULL("Address")); /* Represents an address. */
  28
  29 WSLUA_CONSTRUCTOR Address_ip(lua_State* L) {
  30     /* Creates an Address Object representing an IPv4 address. */
  31
  32 #define WSLUA_ARG_Address_ip_HOSTNAME 1 /* The address or name of the IP host. */
  33     Address addr = (Address)g_malloc(sizeof(address));
  34     guint32 ip_addr;
  35     const gchar* name = luaL_checkstring(L,WSLUA_ARG_Address_ip_HOSTNAME);
  36
  37     if (! get_host_ipaddr(name, &ip_addr)) {
  38         ip_addr = 0;
  39     }
  40
  41     alloc_address_wmem(NULL, addr, AT_IPv4, 4, &ip_addr);
  42     pushAddress(L,addr);
  43     WSLUA_RETURN(1); /* The Address object. */
  44 }
  45
  46 WSLUA_CONSTRUCTOR Address_ipv6(lua_State* L) {
  47     /* Creates an Address Object representing an IPv6 address. */
  48
  49 #define WSLUA_ARG_Address_ipv6_HOSTNAME 1 /* The address or name of the IP host. */
  50     Address addr = (Address)g_malloc(sizeof(address));
  51     ws_in6_addr ip_addr;
  52     const gchar* name = luaL_checkstring(L,WSLUA_ARG_Address_ipv6_HOSTNAME);
  53
  54     if (!get_host_ipaddr6(name, &ip_addr)) {
  55         memset(&ip_addr, 0, sizeof(ip_addr));
  56     }
  57
  58     alloc_address_wmem(NULL, addr, AT_IPv6, sizeof(ip_addr.bytes), &ip_addr.bytes);
  59     pushAddress(L,addr);
  60     WSLUA_RETURN(1); /* The Address object */
  61 }
  62
  63 WSLUA_CONSTRUCTOR Address_ether(lua_State *L) {
  64     /* Creates an Address Object representing an Ethernet address. */
  65
  66 #define WSLUA_ARG_Address_ether_ETH 1 /* The Ethernet address. */
  67     Address addr = (Address)g_malloc(sizeof(address));
  68     const gchar *name = luaL_checkstring(L, WSLUA_ARG_Address_ether_ETH);
  69     guint8 eth_buf[6];
  70
  71     if(!str_to_eth(name, eth_buf))
  72         memset(eth_buf, 0, sizeof(eth_buf));
  73
  74     alloc_address_wmem(NULL, addr, AT_ETHER, sizeof(eth_buf), eth_buf);
  75     pushAddress(L, addr);
  76     WSLUA_RETURN(1); /* The Address object. */
  77 }
  78
  79 #if 0
  80 /* TODO */
  81 static int Address_ss7(lua_State* L) {
  82     Address addr = g_malloc(sizeof(address));
  83
  84     /* alloc_address() */
  85
  86     pushAddress(L,addr);
  87     return 1;
  88 }
  89 static int Address_sna(lua_State* L) {
  90     Address addr = g_malloc(sizeof(address));
  91
  92     /* alloc_address() */
  93
  94     pushAddress(L,addr);
  95     return 1;
  96 }
  97 static int Address_atalk(lua_State* L) {
  98     Address addr = g_malloc(sizeof(address));
  99
 100     /* alloc_address() */
 101
 102     pushAddress(L,addr);
 103     return 1;
 104 }
 105 static int Address_vines(lua_State* L) {
 106     Address addr = g_malloc(sizeof(address));
 107
 108     /* alloc_address() */
 109
 110     pushAddress(L,addr);
 111     return 1;
 112 }
 113 static int Address_osi(lua_State* L) {
 114     Address addr = g_malloc(sizeof(address));
 115
 116     /* alloc_address() */
 117
 118     pushAddress(L,addr);
 119     return 1;
 120 }
 121 static int Address_arcnet(lua_State* L) {
 122     Address addr = g_malloc(sizeof(address));
 123
 124     /* alloc_address() */
 125
 126     pushAddress(L,addr);
 127     return 1;
 128 }
 129 static int Address_fc(lua_State* L) {
 130     Address addr = g_malloc(sizeof(address));
 131
 132     /* alloc_address() */
 133
 134     pushAddress(L,addr);
 135     return 1;
 136 }
 137 static int Address_string(lua_State* L) {
 138     Address addr = g_malloc(sizeof(address));
 139
 140     /* alloc_address() */
 141
 142     pushAddress(L,addr);
 143     return 1;
 144 }
 145 static int Address_eui64(lua_State* L) {
 146     Address addr = g_malloc(sizeof(address));
 147
 148     /* alloc_address() */
 149
 150     pushAddress(L,addr);
 151     return 1;
 152 }
 153 static int Address_uri(lua_State* L) {
 154     Address addr = g_malloc(sizeof(address));
 155
 156     /* alloc_address() */
 157
 158     pushAddress(L,addr);
 159     return 1;
 160 }
 161 static int Address_tipc(lua_State* L) {
 162     Address addr = g_malloc(sizeof(address));
 163
 164     /* alloc_address() */
 165
 166     pushAddress(L,addr);
 167     return 1;
 168 }
 169 #endif
 170
 171 WSLUA_METHODS Address_methods[] = {
 172     WSLUA_CLASS_FNREG(Address,ip),
 173     WSLUA_CLASS_FNREG_ALIAS(Address,ipv4,ip),
 174     WSLUA_CLASS_FNREG(Address,ipv6),
 175     WSLUA_CLASS_FNREG(Address,ether),
 176 #if 0
 177     WSLUA_CLASS_FNREG_ALIAS(Address,ss7pc,ss7),
 178     WSLUA_CLASS_FNREG(Address,sna},
 179     WSLUA_CLASS_FNREG(Address,atalk),
 180     WSLUA_CLASS_FNREG(Address,vines),
 181     WSLUA_CLASS_FNREG(Address,osi),
 182     WSLUA_CLASS_FNREG(Address,arcnet),
 183     WSLUA_CLASS_FNREG(Address,fc),
 184     WSLUA_CLASS_FNREG(Address,string),
 185     WSLUA_CLASS_FNREG(Address,eui64),
 186     WSLUA_CLASS_FNREG(Address,uri),
 187     WSLUA_CLASS_FNREG(Address,tipc),
 188 #endif
 189     { NULL, NULL }
 190 };
 191
 192 WSLUA_METAMETHOD Address__tostring(lua_State* L) {
 193     Address addr = checkAddress(L,1);
 194     gchar *str = address_to_display(NULL, addr);
 195
 196     lua_pushstring(L, str);
 197
 198     wmem_free(NULL, str);
 199
 200     WSLUA_RETURN(1); /* The string representing the address. */
 201 }
 202
 203 /* Gets registered as metamethod automatically by WSLUA_REGISTER_CLASS/META */
 204 static int Address__gc(lua_State* L) {
 205     Address addr = toAddress(L,1);
 206
 207     if (addr) {
 208         free_address(addr);
 209         g_free(addr);
 210     }
 211
 212     return 0;
 213 }
 214
 215 WSLUA_METAMETHOD Address__eq(lua_State* L) { /* Compares two Addresses. */
 216     Address addr1 = checkAddress(L,1);
 217     Address addr2 = checkAddress(L,2);
 218     gboolean result = FALSE;
 219
 220     if (addresses_equal(addr1, addr2))
 221         result = TRUE;
 222
 223     lua_pushboolean(L,result);
 224
 225     return 1;
 226 }
 227
 228 WSLUA_METAMETHOD Address__le(lua_State* L) { /* Compares two Addresses. */
 229     Address addr1 = checkAddress(L,1);
 230     Address addr2 = checkAddress(L,2);
 231     gboolean result = FALSE;
 232
 233     if (cmp_address(addr1, addr2) <= 0)
 234         result = TRUE;
 235
 236     lua_pushboolean(L,result);
 237
 238     return 1;
 239 }
 240
 241 WSLUA_METAMETHOD Address__lt(lua_State* L) { /* Compares two Addresses. */
 242     Address addr1 = checkAddress(L,1);
 243     Address addr2 = checkAddress(L,2);
 244     gboolean result = FALSE;
 245
 246     if (cmp_address(addr1, addr2) < 0)
 247         result = TRUE;
 248
 249     lua_pushboolean(L,result);
 250
 251     return 1;
 252 }
 253
 254 WSLUA_META Address_meta[] = {
 255     WSLUA_CLASS_MTREG(Address,tostring),
 256     WSLUA_CLASS_MTREG(Address,eq),
 257     WSLUA_CLASS_MTREG(Address,le),
 258     WSLUA_CLASS_MTREG(Address,lt),
 259     { NULL, NULL }
 260 };
 261
 262
 263 int Address_register(lua_State *L) {
 264     WSLUA_REGISTER_CLASS(Address);
 265     return 0;
 266 }
 267
 268
 269 /*
 270  * Editor modelines  -  https://www.wireshark.org/tools/modelines.html
 271  *
 272  * Local variables:
 273  * c-basic-offset: 4
 274  * tab-width: 8
 275  * indent-tabs-mode: nil
 276  * End:
 277  *
 278  * vi: set shiftwidth=4 tabstop=8 expandtab:
 279  * :indentSize=4:tabSize=8:noTabs=true:
 280  */