summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVolker Lendecke <vl@samba.org>2008-09-14 15:44:57 +0200
committerVolker Lendecke <vl@samba.org>2008-12-17 12:57:19 +0100
commit09e6dfb8e8d1447306951e34e4e2211037edb9be (patch)
tree046e7902449de798fc634a91465d1e71be71418e
parent5659f18b86bf1c60fba2bfd76d16e155ae1fb41c (diff)
downloadsamba-09e6dfb8e8d1447306951e34e4e2211037edb9be.tar.gz
samba-09e6dfb8e8d1447306951e34e4e2211037edb9be.tar.bz2
samba-09e6dfb8e8d1447306951e34e4e2211037edb9be.zip
net lua
This adds a lua command line interpreter with some sample code how to build your own data types based on our internal data types. Not meant as the final word, but as a playground for experiments for people. Might be removed later when we find this turns out to be too awkward.
-rw-r--r--source3/Makefile.in9
-rw-r--r--source3/utils/net.c7
-rw-r--r--source3/utils/net_lua.c384
-rw-r--r--source3/utils/net_proto.h5
4 files changed, 401 insertions, 4 deletions
diff --git a/source3/Makefile.in b/source3/Makefile.in
index 417c45ec5a..e91bb90635 100644
--- a/source3/Makefile.in
+++ b/source3/Makefile.in
@@ -75,6 +75,7 @@ POPT_LIBS=@POPTLIBS@
LIBTALLOC_LIBS=@LIBTALLOC_LIBS@
LIBTDB_LIBS=@LIBTDB_LIBS@
LIBNETAPI_LIBS=@LIBNETAPI_LIBS@
+LIBLUA_LIBS=@LIBLUA_LIBS@
INSTALLCMD=@INSTALL@
INSTALLLIBCMD_SH=@INSTALLLIBCMD_SH@
@@ -891,7 +892,7 @@ NET_OBJ1 = utils/net.o utils/net_ads.o utils/net_help.o \
$(PASSWD_UTIL_OBJ) utils/net_dns.o utils/net_ads_gpo.o \
utils/net_conf.o utils/net_join.o utils/net_user.o \
utils/net_group.o utils/net_file.o utils/net_registry.o \
- auth/token_util.o utils/net_dom.o utils/net_share.o
+ auth/token_util.o utils/net_dom.o utils/net_share.o utils/net_lua.o
# these are not processed by make proto
NET_OBJ2 = utils/net_registry_util.o utils/net_help_common.o
@@ -1371,12 +1372,12 @@ bin/smbclient@EXEEXT@: $(BINARY_PREREQS) $(CLIENT_OBJ) @BUILD_POPT@ @LIBTALLOC_S
$(KRB5LIBS) $(LDAP_LIBS) $(NSCD_LIBS) $(DNSSD_LIBS) \
$(LIBTALLOC_LIBS) $(LIBTDB_LIBS) $(WINBIND_LIBS) $(ZLIB_LIBS)
-bin/net@EXEEXT@: $(BINARY_PREREQS) $(NET_OBJ) @BUILD_POPT@ @LIBTALLOC_SHARED@ @LIBTDB_SHARED@ @LIBWBCLIENT_SHARED@ @LIBNETAPI_SHARED@
+bin/net@EXEEXT@: $(BINARY_PREREQS) $(NET_OBJ) @BUILD_POPT@ @LIBTALLOC_SHARED@ @LIBTDB_SHARED@ @LIBWBCLIENT_SHARED@ @LIBNETAPI_SHARED@ @LIBLUA_SHARED@
@echo Linking $@
@$(CC) $(FLAGS) -o $@ $(NET_OBJ) $(DYNEXP) $(LDFLAGS) $(LIBS) \
$(POPT_LIBS) $(KRB5LIBS) $(UUID_LIBS) $(LDAP_LIBS) \
$(PASSDB_LIBS) $(TERMLDFLAGS) $(TERMLIBS) $(NSCD_LIBS) \
- @INIPARSERLIBS@ $(LIBTALLOC_LIBS) $(LIBTDB_LIBS) $(WINBIND_LIBS) $(LIBNETAPI_LIBS) \
+ @INIPARSERLIBS@ $(LIBTALLOC_LIBS) $(LIBTDB_LIBS) $(WINBIND_LIBS) $(LIBNETAPI_LIBS) $(LIBLUA_LIBS) -lm \
$(ZLIB_LIBS)
bin/profiles@EXEEXT@: $(BINARY_PREREQS) $(PROFILES_OBJ) @BUILD_POPT@ @LIBTALLOC_SHARED@ @LIBTDB_SHARED@
@@ -2131,7 +2132,7 @@ LIBLUA_OBJ0 = lua-5.1.4/src/lapi.o lua-5.1.4/src/lauxlib.o \
lua-5.1.4/src/lundump.o lua-5.1.4/src/lvm.o \
lua-5.1.4/src/lzio.o lua-5.1.4/src/print.o
-LIBLUA_OBJ = $(LIBLUA_OBJ0) @LIBTDB_STATIC@
+LIBLUA_OBJ = $(LIBLUA_OBJ0)
LIBLUA_SHARED_TARGET=@LIBLUA_SHARED_TARGET@
LIBLUA_SOVER=@LIBLUA_SOVER@
diff --git a/source3/utils/net.c b/source3/utils/net.c
index f1a5be1876..c9525ab2eb 100644
--- a/source3/utils/net.c
+++ b/source3/utils/net.c
@@ -582,6 +582,13 @@ static struct functable net_func[] = {
" Use 'net help registry' to get more information about 'net "
"registry' commands."
},
+ { "lua",
+ net_lua,
+ NET_TRANSPORT_LOCAL,
+ "Open a lua interpreter",
+ " Use 'net help lua' to get more information about 'net "
+ "lua' commands."
+ },
#ifdef WITH_FAKE_KASERVER
{ "afs",
net_afs,
diff --git a/source3/utils/net_lua.c b/source3/utils/net_lua.c
new file mode 100644
index 0000000000..3a5d1bdeb6
--- /dev/null
+++ b/source3/utils/net_lua.c
@@ -0,0 +1,384 @@
+/*
+ * Unix SMB/CIFS implementation.
+ * Lua experiments
+ * Copyright (C) Volker Lendecke 2006
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#include "includes.h"
+#include "utils/net.h"
+
+#include "lua-5.1.4/src/lualib.h"
+#include "lua-5.1.4/src/lauxlib.h"
+
+#define SOCK_METATABLE "cade1208-9029-4d76-8748-426dfc1436f7"
+
+struct sock_userdata {
+ int fd;
+};
+
+static int sock_userdata_gc(lua_State *L)
+{
+ struct sock_userdata *p = (struct sock_userdata *)
+ luaL_checkudata(L, 1, SOCK_METATABLE);
+ close(p->fd);
+ return 0;
+}
+
+static int sock_userdata_tostring(lua_State *L)
+{
+ struct sock_userdata *p = (struct sock_userdata *)
+ luaL_checkudata(L, 1, SOCK_METATABLE);
+
+ lua_pushfstring(L, "socket: %d", p->fd);
+ return 1;
+}
+
+static int sock_userdata_connect(lua_State *L)
+{
+ struct sock_userdata *p = (struct sock_userdata *)
+ luaL_checkudata(L, 1, SOCK_METATABLE);
+ const char *hostname;
+ int port;
+ struct sockaddr_in addr;
+ int res;
+
+ if (!lua_isstring(L, 2)) {
+ luaL_error(L, "connect: Expected IP-Address");
+ }
+ hostname = lua_tostring(L, 2);
+
+ if (!lua_isnumber(L, 3)) {
+ luaL_error(L, "connect: Expected port");
+ }
+ port = lua_tointeger(L, 3);
+
+ if (lua_gettop(L) == 4) {
+ /*
+ * Here we expect an event context in the last argument to
+ * make connect() asynchronous.
+ */
+ }
+
+ addr.sin_family = AF_INET;
+ inet_aton(hostname, &addr.sin_addr);
+ addr.sin_port = htons(port);
+
+ res = connect(p->fd, (struct sockaddr *)&addr, sizeof(addr));
+ if (res == -1) {
+ int err = errno;
+ lua_pushnil(L);
+ lua_pushfstring(L, "connect failed: %s", strerror(err));
+ return 2;
+ }
+
+ lua_pushboolean(L, 1);
+ return 1;
+}
+
+static const struct luaL_Reg sock_methods[] = {
+ {"__gc", sock_userdata_gc},
+ {"__tostring", sock_userdata_tostring},
+ {"connect", sock_userdata_connect},
+ {NULL, NULL}
+};
+
+static const struct {
+ const char *name;
+ int domain;
+} socket_domains[] = {
+ {"PF_UNIX", PF_UNIX},
+ {"PF_INET", PF_INET},
+ {NULL, 0},
+};
+
+static const struct {
+ const char *name;
+ int type;
+} socket_types[] = {
+ {"SOCK_STREAM", SOCK_STREAM},
+ {"SOCK_DGRAM", SOCK_DGRAM},
+ {NULL, 0},
+};
+
+static int sock_userdata_new(lua_State *L)
+{
+ struct sock_userdata *result;
+ const char *domain_str = luaL_checkstring(L, 1);
+ const char *type_str = luaL_checkstring(L, 2);
+ int i, domain, type;
+
+ i = 0;
+ while (socket_domains[i].name != NULL) {
+ if (strcmp(domain_str, socket_domains[i].name) == 0) {
+ break;
+ }
+ i += 1;
+ }
+ if (socket_domains[i].name == NULL) {
+ return luaL_error(L, "socket domain %s unknown", domain_str);
+ }
+ domain = socket_domains[i].domain;
+
+ i = 0;
+ while (socket_types[i].name != NULL) {
+ if (strcmp(type_str, socket_types[i].name) == 0) {
+ break;
+ }
+ i += 1;
+ }
+ if (socket_types[i].name == NULL) {
+ return luaL_error(L, "socket type %s unknown", type_str);
+ }
+ type = socket_types[i].type;
+
+ result = (struct sock_userdata *)lua_newuserdata(L, sizeof(*result));
+ ZERO_STRUCTP(result);
+
+ result->fd = socket(domain, type, 0);
+ if (result->fd == -1) {
+ int err = errno;
+ lua_pushnil(L);
+ lua_pushfstring(L, "socket() failed: %s", strerror(errno));
+ lua_pushinteger(L, err);
+ return 3;
+ }
+
+ luaL_getmetatable(L, SOCK_METATABLE);
+ lua_setmetatable(L, -2);
+ return 1;
+}
+
+static const struct luaL_Reg sock_funcs[] = {
+ {"new", sock_userdata_new},
+ {NULL, NULL}
+};
+
+static int sock_lua_init(lua_State *L, const char *libname) {
+ luaL_newmetatable(L, SOCK_METATABLE);
+
+ lua_pushvalue(L, -1);
+ lua_setfield(L, -2, "__index");
+
+ luaL_register(L, NULL, sock_methods);
+ luaL_register(L, libname, sock_funcs);
+ return 1;
+}
+
+#define EVT_METATABLE "c42e0642-b24a-40f0-8483-d8eb4aee9ea3"
+
+/*
+ * The userdata we allocate from lua when a new event context is created
+ */
+struct evt_userdata {
+ struct event_context *ev;
+};
+
+static bool evt_is_main_thread(lua_State *L) {
+ int ret;
+
+ ret = lua_pushthread(L);
+ lua_pop(L, 1);
+ return (ret != 0);
+}
+
+/*
+ * Per event we allocate a struct thread_reference to keep the coroutine from
+ * being garbage-collected. This is also the hook to find the right thread to
+ * be resumed.
+ */
+
+struct thread_reference {
+ struct lua_State *L;
+ /*
+ * Reference to the Thread (i.e. lua_State) this event is hanging on
+ */
+ int thread_ref;
+};
+
+static int thread_reference_destructor(struct thread_reference *ref)
+{
+ luaL_unref(ref->L, LUA_REGISTRYINDEX, ref->thread_ref);
+ return 0;
+}
+
+static struct thread_reference *evt_reference_thread(TALLOC_CTX *mem_ctx,
+ lua_State *L)
+{
+ struct thread_reference *result;
+
+ result = talloc(mem_ctx, struct thread_reference);
+ if (result == NULL) {
+ return NULL;
+ }
+
+ lua_pushthread(L);
+ result->thread_ref = luaL_ref(L, LUA_REGISTRYINDEX);
+ result->L = L;
+ talloc_set_destructor(result, thread_reference_destructor);
+
+ return result;
+}
+
+static int evt_userdata_gc(lua_State *L)
+{
+ struct evt_userdata *p = (struct evt_userdata *)
+ luaL_checkudata(L, 1, EVT_METATABLE);
+ TALLOC_FREE(p->ev);
+ return 0;
+}
+
+static int evt_userdata_tostring(lua_State *L) {
+ lua_pushstring(L, "event context");
+ return 1;
+}
+
+static void evt_userdata_sleep_done(struct event_context *event_ctx,
+ struct timed_event *te,
+ const struct timeval *now,
+ void *priv)
+{
+ struct thread_reference *ref = talloc_get_type_abort(
+ priv, struct thread_reference);
+ lua_resume(ref->L, 0);
+ TALLOC_FREE(ref);
+}
+
+static int evt_userdata_sleep(lua_State *L)
+{
+ struct evt_userdata *p = (struct evt_userdata *)
+ luaL_checkudata(L, 1, EVT_METATABLE);
+ lua_Integer usecs = luaL_checkint(L, 2);
+ struct thread_reference *ref;
+ struct timed_event *te;
+
+ if (evt_is_main_thread(L)) {
+ /*
+ * Block in the main thread
+ */
+ smb_msleep(usecs/1000);
+ return 0;
+ }
+
+ ref = evt_reference_thread(p->ev, L);
+ if (ref == NULL) {
+ return luaL_error(L, "evt_reference_thread failed\n");
+ }
+
+ te = event_add_timed(p->ev, ref, timeval_current_ofs(0, usecs),
+ "evt_userdata_sleep", evt_userdata_sleep_done,
+ ref);
+
+ if (te == NULL) {
+ TALLOC_FREE(ref);
+ return luaL_error(L, "event_add_timed failed");
+ }
+
+ return lua_yield(L, 0);
+}
+
+static int evt_userdata_once(lua_State *L)
+{
+ struct evt_userdata *p = (struct evt_userdata *)
+ luaL_checkudata(L, 1, EVT_METATABLE);
+
+ if (!evt_is_main_thread(L)) {
+ return luaL_error(L, "event_once called from non-base thread");
+ }
+
+ lua_pushinteger(L, event_loop_once(p->ev));
+ return 1;
+}
+
+static const struct luaL_Reg evt_methods[] = {
+ {"__gc", evt_userdata_gc},
+ {"__tostring", evt_userdata_tostring},
+ {"sleep", evt_userdata_sleep},
+ {"once", evt_userdata_once},
+ {NULL, NULL}
+};
+
+static int evt_userdata_new(lua_State *L) {
+ struct evt_userdata *result;
+
+ result = (struct evt_userdata *)lua_newuserdata(L, sizeof(*result));
+ ZERO_STRUCTP(result);
+
+ result->ev = event_context_init(NULL);
+ if (result->ev == NULL) {
+ return luaL_error(L, "event_context_init failed");
+ }
+
+ luaL_getmetatable(L, EVT_METATABLE);
+ lua_setmetatable(L, -2);
+ return 1;
+}
+
+static const struct luaL_Reg evt_funcs[] = {
+ {"new", evt_userdata_new},
+ {NULL, NULL}
+};
+
+static int evt_lua_init(lua_State *L, const char *libname) {
+ luaL_newmetatable(L, EVT_METATABLE);
+
+ lua_pushvalue(L, -1);
+ lua_setfield(L, -2, "__index");
+
+ luaL_register(L, NULL, evt_methods);
+ luaL_register(L, libname, evt_funcs);
+ return 1;
+}
+
+int net_lua(struct net_context *c, int argc, const char **argv)
+{
+ lua_State *state;
+
+ state = lua_open();
+ if (state == NULL) {
+ d_fprintf(stderr, "lua_newstate failed\n");
+ return -1;
+ }
+
+ luaL_openlibs(state);
+ evt_lua_init(state, "event");
+ sock_lua_init(state, "socket");
+
+ while (1) {
+ char *line = NULL;
+
+ line = smb_readline("lua> ", NULL, NULL);
+ if (line == NULL) {
+ break;
+ }
+
+ if (line[0] == ':') {
+ if (luaL_dofile(state, &line[1])) {
+ d_printf("luaL_dofile returned an error\n");
+ continue;
+ }
+ } else if (line[0] != '\n') {
+ if (luaL_dostring(state, line) != 0) {
+ d_printf("luaL_dostring returned an error\n");
+ }
+ }
+
+ SAFE_FREE(line);
+ }
+
+ lua_close(state);
+ return -1;
+}
diff --git a/source3/utils/net_proto.h b/source3/utils/net_proto.h
index c058a0166f..a65fbbb6eb 100644
--- a/source3/utils/net_proto.h
+++ b/source3/utils/net_proto.h
@@ -423,6 +423,11 @@ int net_usershare_usage(struct net_context *c, int argc, const char **argv);
int net_usershare_help(struct net_context *c, int argc, const char **argv);
int net_usershare(struct net_context *c, int argc, const char **argv);
+/* The following definitions come from utils/net_lua.c */
+
+int net_lua(struct net_context *c, int argc, const char **argv);
+
+
/* The following definitions come from utils/net_util.c */
NTSTATUS net_rpc_lookup_name(struct net_context *c,