0b007c6aff9ec05c983e0437a1d28f003d82bf67
[project/luci.git] / libs / iwinfo / src / iwinfo_lualib.c
1 /*
2  * iwinfo - Wireless Information Library - Lua Bindings
3  *
4  *   Copyright (C) 2009 Jo-Philipp Wich <xm@subsignal.org>
5  *
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.
9  *
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.
14  *
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/.
17  */
18
19 #include "iwinfo_lualib.h"
20
21 /* Determine type */
22 int iwinfo_L_type(lua_State *L)
23 {
24         const char *ifname = luaL_checkstring(L, 1);
25
26         if( wl_probe(ifname) )
27                 lua_pushstring(L, "wl");
28
29         else if( madwifi_probe(ifname) )
30                 lua_pushstring(L, "madwifi");
31
32         else if( wext_probe(ifname) )
33                 lua_pushstring(L, "wext");
34
35         else
36                 lua_pushnil(L);
37
38         return 1;
39 }
40
41 /* Wrapper for assoclist */
42 int iwinfo_L_assoclist(lua_State *L, int (*func)(const char *, char *, int *))
43 {
44         int i, len;
45         char rv[IWINFO_BUFSIZE];
46         char macstr[18];
47         const char *ifname = luaL_checkstring(L, 1);
48         struct iwinfo_assoclist_entry *e;
49
50         lua_newtable(L);
51         memset(rv, 0, sizeof(rv));
52
53         if( !(*func)(ifname, rv, &len) )
54         {
55                 for( i = 0; i < len; i += sizeof(struct iwinfo_assoclist_entry) )
56                 {
57                         e = (struct iwinfo_assoclist_entry *) &rv[i];
58
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]);
62
63                         lua_newtable(L);
64
65                         lua_pushnumber(L, e->signal);
66                         lua_setfield(L, -2, "signal");
67                         
68                         lua_pushnumber(L, e->noise);
69                         lua_setfield(L, -2, "noise");
70
71                         lua_setfield(L, -2, macstr);
72                 }
73         }
74
75         return 1;
76 }
77
78 /* Broadcom */
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_STRING(wl,mode)
87 LUA_WRAP_STRING(wl,ssid)
88 LUA_WRAP_STRING(wl,bssid)
89 LUA_WRAP_STRING(wl,enctype)
90 LUA_WRAP_ASSOCLIST(wl)
91
92 /* Madwifi */
93 LUA_WRAP_INT(madwifi,channel)
94 LUA_WRAP_INT(madwifi,frequency)
95 LUA_WRAP_INT(madwifi,bitrate)
96 LUA_WRAP_INT(madwifi,signal)
97 LUA_WRAP_INT(madwifi,noise)
98 LUA_WRAP_INT(madwifi,quality)
99 LUA_WRAP_INT(madwifi,quality_max)
100 LUA_WRAP_STRING(madwifi,mode)
101 LUA_WRAP_STRING(madwifi,ssid)
102 LUA_WRAP_STRING(madwifi,bssid)
103 LUA_WRAP_STRING(madwifi,enctype)
104 LUA_WRAP_ASSOCLIST(madwifi)
105
106 /* Wext */
107 LUA_WRAP_INT(wext,channel)
108 LUA_WRAP_INT(wext,frequency)
109 LUA_WRAP_INT(wext,bitrate)
110 LUA_WRAP_INT(wext,signal)
111 LUA_WRAP_INT(wext,noise)
112 LUA_WRAP_INT(wext,quality)
113 LUA_WRAP_INT(wext,quality_max)
114 LUA_WRAP_STRING(wext,mode)
115 LUA_WRAP_STRING(wext,ssid)
116 LUA_WRAP_STRING(wext,bssid)
117 LUA_WRAP_STRING(wext,enctype)
118 LUA_WRAP_ASSOCLIST(wext)
119
120 /* Broadcom table */
121 static const luaL_reg R_wl[] = {
122         LUA_REG(wl,channel),
123         LUA_REG(wl,frequency),
124         LUA_REG(wl,bitrate),
125         LUA_REG(wl,signal),
126         LUA_REG(wl,noise),
127         LUA_REG(wl,quality),
128         LUA_REG(wl,quality_max),
129         LUA_REG(wl,mode),
130         LUA_REG(wl,ssid),
131         LUA_REG(wl,bssid),
132         LUA_REG(wl,enctype),
133         LUA_REG(wl,assoclist),
134         { NULL, NULL }
135 };
136
137 /* Madwifi table */
138 static const luaL_reg R_madwifi[] = {
139         LUA_REG(madwifi,channel),
140         LUA_REG(madwifi,frequency),
141         LUA_REG(madwifi,bitrate),
142         LUA_REG(madwifi,signal),
143         LUA_REG(madwifi,noise),
144         LUA_REG(madwifi,quality),
145         LUA_REG(madwifi,quality_max),
146         LUA_REG(madwifi,mode),
147         LUA_REG(madwifi,ssid),
148         LUA_REG(madwifi,bssid),
149         LUA_REG(madwifi,enctype),
150         LUA_REG(madwifi,assoclist),
151         { NULL, NULL }
152 };
153
154 /* Wext table */
155 static const luaL_reg R_wext[] = {
156         LUA_REG(wext,channel),
157         LUA_REG(wext,frequency),
158         LUA_REG(wext,bitrate),
159         LUA_REG(wext,signal),
160         LUA_REG(wext,noise),
161         LUA_REG(wext,quality),
162         LUA_REG(wext,quality_max),
163         LUA_REG(wext,mode),
164         LUA_REG(wext,ssid),
165         LUA_REG(wext,bssid),
166         LUA_REG(wext,enctype),
167         LUA_REG(wext,assoclist),
168         { NULL, NULL }
169 };
170
171 /* Common */
172 static const luaL_reg R_common[] = {
173         { "type", iwinfo_L_type },
174         { NULL, NULL }
175 };
176
177
178 LUALIB_API int luaopen_iwinfo(lua_State *L) {
179         luaL_register(L, IWINFO_META, R_common);
180
181         luaL_newmetatable(L, IWINFO_WL_META);
182         luaL_register(L, NULL, R_wl);
183         lua_pushvalue(L, -1);
184         lua_setfield(L, -2, "__index");
185         lua_setfield(L, -2, "wl");
186
187         luaL_newmetatable(L, IWINFO_MADWIFI_META);
188         luaL_register(L, NULL, R_madwifi);
189         lua_pushvalue(L, -1);
190         lua_setfield(L, -2, "__index");
191         lua_setfield(L, -2, "madwifi");
192
193         luaL_newmetatable(L, IWINFO_WEXT_META);
194         luaL_register(L, NULL, R_wext);
195         lua_pushvalue(L, -1);
196         lua_setfield(L, -2, "__index");
197         lua_setfield(L, -2, "wext");
198
199         return 1;
200 }
201