diff -r 34b6fedde9eb -r 4fd19a188509 glib_timeout.c
--- a/glib_timeout.c	Mon Feb 09 13:00:42 2009 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,69 +0,0 @@
-
-#include <lua.h>
-#include <lauxlib.h>
-#include <glib.h>
-
-#include "util.h"
-#include "glib_types.h"
-
-/// timeout callback function
-/// Function, that will be called periodically until it returns false.
-/// R: boolean
-static gboolean lglib_timeout_callback (lglib_callback_t *cb)
-{
-	lua_rawgeti (cb->L, LUA_REGISTRYINDEX, cb->reference);
-	if (lua_pcall (cb->L, 0, 1, 0)) {
-		// XXX lua_error (cb->L);
-		lua_pop (cb->L, 1);
-		return FALSE;
-	}
-	return lua_toboolean (cb->L, -1);
-}
-
-/// g.timeout.new
-/// Creates new timeout in default context.
-/// A: integer (priority), integer (interval, seconds), timeout callback function
-/// R: integer (id of the event source)
-static int lglib_timeout_new (lua_State *L)
-{
-	int priority = luaL_checkint (L, 1);
-	int interval = luaL_checkint (L, 2);
-	lglib_callback_t *cb;
-	luaL_argcheck (L, lua_isfunction (L, 3), 3, "function expected");
-
-	cb = luaL_malloc (L, sizeof (lglib_callback_t));
-	cb->reference = luaL_ref (L, LUA_REGISTRYINDEX);
-	cb->L         = L;
-
-	lua_pushnumber (L, g_timeout_add_seconds_full (priority, interval,
-						       (GSourceFunc)lglib_timeout_callback,
-						       cb,
-						       (GDestroyNotify)lglib_callback_destroy));
-	return 1;
-}
-
-/// g.timeout.source
-/// Creates new timeout source.
-/// A: interval
-/// R: g source object
-static int lglib_timeout_source (lua_State *L)
-{
-	int interval = luaL_checkint (L, 1);
-	GSource *source = g_timeout_source_new_seconds (interval);
-	lglib_source_bless (L, source);
-	// XXX s_source_unref (source);
-	return 1;
-}
-
-static const luaL_Reg lglib_timeout_reg_f[] = {
-	{ "new",    lglib_timeout_new    },
-	{ "source", lglib_timeout_source },
-	{ NULL,     NULL                 },
-};
-
-int luaopen_glib_timeout (lua_State *L)
-{
-	luaL_register (L, "g.timeout", lglib_timeout_reg_f);
-	return 1;
-}
-