/*

* timer.c - Timer signals management

*

* Copyright © 2009 Julien Danjou <julien@danjou.info>

*

* 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 2 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, write to the Free Software Foundation, Inc.,

* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

*

*/

#include <ev.h>

#include "globalconf.h"

#include "luaa.h"

#include "timer.h"

#include "common/luaobject.h"

typedef struct

{

LUA_OBJECT_HEADER

bool started;

struct ev_timer timer;

} atimer_t;

static lua_class_t timer_class;

LUA_OBJECT_FUNCS(timer_class, atimer_t, timer)

static void

ev_timer_emit_signal(struct ev_loop *loop, struct ev_timer *w, int revents)

{

luaA_object_push(globalconf.L, w->data);

luaA_object_emit_signal(globalconf.L, -1, "timeout", 0);

lua_pop(globalconf.L, 1);

}

static int

luaA_timer_new(lua_State *L)

{

luaA_class_new(L, &timer_class);

atimer_t *timer = luaA_checkudata(L, -1, &timer_class);

timer->timer.data = timer;

ev_set_cb(&timer->timer, ev_timer_emit_signal);

return 1;

}

static int

luaA_timer_set_timeout(lua_State *L, atimer_t *timer)

{

double timeout = luaL_checknumber(L, -1);

ev_timer_set(&timer->timer, timeout, timeout);

luaA_object_emit_signal(L, -3, "property::timeout", 0);

return 0;

}

static int

luaA_timer_get_timeout(lua_State *L, atimer_t *timer)

{

lua_pushnumber(L, timer->timer.repeat);

return 1;

}

static int

luaA_timer_start(lua_State *L)

{

atimer_t *timer = luaA_checkudata(L, 1, &timer_class);

if(timer->started)

luaA_warn(L, "timer already started");

else

{

luaA_object_ref(L, 1);

ev_timer_start(globalconf.loop, &timer->timer);

timer->started = true;

}

return 0;

}

static int

luaA_timer_stop(lua_State *L)

{

atimer_t *timer = luaA_checkudata(L, 1, &timer_class);

if(timer->started)

{

ev_timer_stop(globalconf.loop, &timer->timer);

luaA_object_unref(L, timer);

timer->started = false;

}

else

luaA_warn(L, "timer not started");

return 0;

}

static int

luaA_timer_again(lua_State *L)

{

atimer_t *timer = luaA_checkudata(L, 1, &timer_class);

ev_timer_again(globalconf.loop, &timer->timer);

if(!timer->started)

{

luaA_object_ref(L, 1);

timer->started = true;

}

return 0;

}

LUA_OBJECT_EXPORT_PROPERTY(timer, atimer_t, started, lua_pushboolean)

void

timer_class_setup(lua_State *L)

{

static const struct luaL_reg timer_methods[] =

{

LUA_CLASS_METHODS(timer)

{ "__call", luaA_timer_new },

{ NULL, NULL }

};

static const struct luaL_reg timer_meta[] =

{

LUA_OBJECT_META(timer)

LUA_CLASS_META

{ "start", luaA_timer_start },

{ "stop", luaA_timer_stop },

{ "again", luaA_timer_again },

{ "__gc", luaA_object_gc },

{ NULL, NULL },

};

luaA_class_setup(L, &timer_class, "timer", (lua_class_allocator_t) timer_new,

luaA_class_index_miss_property, luaA_class_newindex_miss_property,

timer_methods, timer_meta);

luaA_class_add_property(&timer_class, A_TK_TIMEOUT,

(lua_class_propfunc_t) luaA_timer_set_timeout,

(lua_class_propfunc_t) luaA_timer_get_timeout,

(lua_class_propfunc_t) luaA_timer_set_timeout);

luaA_class_add_property(&timer_class, A_TK_STARTED,

NULL,

(lua_class_propfunc_t) luaA_timer_get_started,

NULL);

}

// vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80