2 * iwinfo - Wireless Information Library - Lua Bindings
4 * Copyright (C) 2009 Jo-Philipp Wich <xm@subsignal.org>
6 * The iwinfo library is free software: you can redistribute it and/or
7 * modify it under the terms of the GNU General Public License version 2
8 * as published by the Free Software Foundation.
10 * The iwinfo library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13 * See the GNU General Public License for more details.
15 * You should have received a copy of the GNU General Public License along
16 * with the iwinfo library. If not, see http://www.gnu.org/licenses/.
19 #include "iwinfo_lualib.h"
22 static int iwinfo_L_type(lua_State *L)
24 const char *ifname = luaL_checkstring(L, 1);
26 if( wl_probe(ifname) )
27 lua_pushstring(L, "wl");
29 else if( madwifi_probe(ifname) )
30 lua_pushstring(L, "madwifi");
32 else if( wext_probe(ifname) )
33 lua_pushstring(L, "wext");
41 /* Wrapper for assoclist */
42 static int iwinfo_L_assoclist(lua_State *L, int (*func)(const char *, char *, int *))
45 char rv[IWINFO_BUFSIZE];
47 const char *ifname = luaL_checkstring(L, 1);
48 struct iwinfo_assoclist_entry *e;
51 memset(rv, 0, sizeof(rv));
53 if( !(*func)(ifname, rv, &len) )
55 for( i = 0; i < len; i += sizeof(struct iwinfo_assoclist_entry) )
57 e = (struct iwinfo_assoclist_entry *) &rv[i];
59 sprintf(macstr, "%02X:%02X:%02X:%02X:%02X:%02X",
60 e->mac[0], e->mac[1], e->mac[2],
61 e->mac[3], e->mac[4], e->mac[5]);
65 lua_pushnumber(L, e->signal);
66 lua_setfield(L, -2, "signal");
68 lua_pushnumber(L, e->noise);
69 lua_setfield(L, -2, "noise");
71 lua_setfield(L, -2, macstr);
79 LUA_WRAP_INT(wl,channel)
80 LUA_WRAP_INT(wl,frequency)
81 LUA_WRAP_INT(wl,bitrate)
82 LUA_WRAP_INT(wl,signal)
83 LUA_WRAP_INT(wl,noise)
84 LUA_WRAP_INT(wl,quality)
85 LUA_WRAP_INT(wl,quality_max)
86 LUA_WRAP_INT(wl,mbssid_support)
87 LUA_WRAP_STRING(wl,mode)
88 LUA_WRAP_STRING(wl,ssid)
89 LUA_WRAP_STRING(wl,bssid)
90 LUA_WRAP_STRING(wl,enctype)
91 LUA_WRAP_ASSOCLIST(wl)
94 LUA_WRAP_INT(madwifi,channel)
95 LUA_WRAP_INT(madwifi,frequency)
96 LUA_WRAP_INT(madwifi,bitrate)
97 LUA_WRAP_INT(madwifi,signal)
98 LUA_WRAP_INT(madwifi,noise)
99 LUA_WRAP_INT(madwifi,quality)
100 LUA_WRAP_INT(madwifi,quality_max)
101 LUA_WRAP_INT(madwifi,mbssid_support)
102 LUA_WRAP_STRING(madwifi,mode)
103 LUA_WRAP_STRING(madwifi,ssid)
104 LUA_WRAP_STRING(madwifi,bssid)
105 LUA_WRAP_STRING(madwifi,enctype)
106 LUA_WRAP_ASSOCLIST(madwifi)
109 LUA_WRAP_INT(wext,channel)
110 LUA_WRAP_INT(wext,frequency)
111 LUA_WRAP_INT(wext,bitrate)
112 LUA_WRAP_INT(wext,signal)
113 LUA_WRAP_INT(wext,noise)
114 LUA_WRAP_INT(wext,quality)
115 LUA_WRAP_INT(wext,quality_max)
116 LUA_WRAP_INT(wext,mbssid_support)
117 LUA_WRAP_STRING(wext,mode)
118 LUA_WRAP_STRING(wext,ssid)
119 LUA_WRAP_STRING(wext,bssid)
120 LUA_WRAP_STRING(wext,enctype)
121 LUA_WRAP_ASSOCLIST(wext)
124 static const luaL_reg R_wl[] = {
126 LUA_REG(wl,frequency),
131 LUA_REG(wl,quality_max),
136 LUA_REG(wl,assoclist),
137 LUA_REG(wl,mbssid_support),
142 static const luaL_reg R_madwifi[] = {
143 LUA_REG(madwifi,channel),
144 LUA_REG(madwifi,frequency),
145 LUA_REG(madwifi,bitrate),
146 LUA_REG(madwifi,signal),
147 LUA_REG(madwifi,noise),
148 LUA_REG(madwifi,quality),
149 LUA_REG(madwifi,quality_max),
150 LUA_REG(madwifi,mode),
151 LUA_REG(madwifi,ssid),
152 LUA_REG(madwifi,bssid),
153 LUA_REG(madwifi,enctype),
154 LUA_REG(madwifi,assoclist),
155 LUA_REG(madwifi,mbssid_support),
160 static const luaL_reg R_wext[] = {
161 LUA_REG(wext,channel),
162 LUA_REG(wext,frequency),
163 LUA_REG(wext,bitrate),
164 LUA_REG(wext,signal),
166 LUA_REG(wext,quality),
167 LUA_REG(wext,quality_max),
171 LUA_REG(wext,enctype),
172 LUA_REG(wext,assoclist),
173 LUA_REG(wext,mbssid_support),
178 static const luaL_reg R_common[] = {
179 { "type", iwinfo_L_type },
184 LUALIB_API int luaopen_iwinfo(lua_State *L) {
185 luaL_register(L, IWINFO_META, R_common);
187 luaL_newmetatable(L, IWINFO_WL_META);
188 luaL_register(L, NULL, R_wl);
189 lua_pushvalue(L, -1);
190 lua_setfield(L, -2, "__index");
191 lua_setfield(L, -2, "wl");
193 luaL_newmetatable(L, IWINFO_MADWIFI_META);
194 luaL_register(L, NULL, R_madwifi);
195 lua_pushvalue(L, -1);
196 lua_setfield(L, -2, "__index");
197 lua_setfield(L, -2, "madwifi");
199 luaL_newmetatable(L, IWINFO_WEXT_META);
200 luaL_register(L, NULL, R_wext);
201 lua_pushvalue(L, -1);
202 lua_setfield(L, -2, "__index");
203 lua_setfield(L, -2, "wext");