void sinsp_chisel::do_timeout(sinsp_evt* evt)
{
if(m_lua_is_first_evt)
{
first_event_inits(evt);
}
if(m_lua_cinfo->m_callback_interval != 0)
{
uint64_t ts = evt->get_ts();
uint64_t sample_time = ts - ts % m_lua_cinfo->m_callback_interval;
if(sample_time != m_lua_last_interval_sample_time)
{
int64_t delta = 0;
if(m_lua_last_interval_ts != 0)
{
delta = ts - m_lua_last_interval_ts;
ASSERT(delta > 0);
}
lua_getglobal(m_ls, "on_interval");
lua_pushnumber(m_ls, (double)(ts / 1000000000));
lua_pushnumber(m_ls, (double)(ts % 1000000000));
lua_pushnumber(m_ls, (double)delta);
if(lua_pcall(m_ls, 3, 1, 0) != 0)
{
throw sinsp_exception(m_filename + " chisel error: calling on_interval() failed:" + lua_tostring(m_ls, -1));
}
int oeres = lua_toboolean(m_ls, -1);
lua_pop(m_ls, 1);
if(oeres == false)
{
throw sinsp_exception("execution terminated by the " + m_filename + " chisel");
}
m_lua_last_interval_sample_time = sample_time;
m_lua_last_interval_ts = ts;
}
}
}
bool sinsp_chisel::run(sinsp_evt* evt)
{
#ifdef HAS_LUA_CHISELS
string line;
ASSERT(m_ls);
//
// If this is the first event, put the event pointer on the stack.
// We assume that the event pointer will never change.
//
if(m_lua_is_first_evt)
{
first_event_inits(evt);
}
//
// If there is a timeout callback, see if it's time to call it
//
do_timeout(evt);
//
// If there is a filter, run it
//
if(m_lua_cinfo->m_filter != NULL)
{
if(!m_lua_cinfo->m_filter->run(evt))
{
return false;
}
}
//
// If the script has the on_event callback, call it
//
if(m_lua_has_handle_evt)
{
lua_getglobal(m_ls, "on_event");
if(lua_pcall(m_ls, 0, 1, 0) != 0)
{
throw sinsp_exception(m_filename + " chisel error: " + lua_tostring(m_ls, -1));
}
int oeres = lua_toboolean(m_ls, -1);
lua_pop(m_ls, 1);
if(m_lua_cinfo->m_end_capture == true)
{
throw sinsp_capture_interrupt_exception();
}
if(oeres == false)
{
return false;
}
}
//
// If the script has a formatter, run it
//
if(m_lua_cinfo->m_formatter != NULL)
{
if(m_lua_cinfo->m_formatter->tostring(evt, &line))
{
cout << line << endl;
}
}
return true;
#endif
}
void sinsp_chisel::do_timeout(sinsp_evt* evt)
{
if(m_lua_is_first_evt)
{
//
// If this is the first event, put the event pointer on the stack.
// We assume that the event pointer will never change.
//
if(m_lua_is_first_evt)
{
first_event_inits(evt);
}
return;
}
if(m_lua_cinfo->m_callback_interval != 0)
{
uint64_t ts = evt->get_ts();
uint64_t sample_time = ts - ts % m_lua_cinfo->m_callback_interval;
if(sample_time != m_lua_last_interval_sample_time)
{
int64_t delta = 0;
if(m_lua_last_interval_ts != 0)
{
delta = ts - m_lua_last_interval_ts;
if(delta == 0)
{
return;
}
}
lua_getglobal(m_ls, "on_interval");
lua_pushnumber(m_ls, (double)(ts / 1000000000));
lua_pushnumber(m_ls, (double)(ts % 1000000000));
lua_pushnumber(m_ls, (double)delta);
if(lua_pcall(m_ls, 3, 1, 0) != 0)
{
throw sinsp_exception(m_filename + " chisel error: calling on_interval() failed:" + lua_tostring(m_ls, -1));
}
int oeres = lua_toboolean(m_ls, -1);
lua_pop(m_ls, 1);
if(oeres == false)
{
throw sinsp_exception("execution terminated by the " + m_filename + " chisel");
}
m_lua_last_interval_sample_time = sample_time;
m_lua_last_interval_ts = ts;
}
}
else if(m_lua_cinfo->m_callback_precise_interval != 0)
{
uint64_t ts = evt->get_ts();
uint64_t interval = m_lua_cinfo->m_callback_precise_interval;
if(ts - m_lua_last_interval_sample_time >= interval)
{
uint64_t t;
for(t = m_lua_last_interval_sample_time; t <= ts - interval; t += interval)
{
lua_getglobal(m_ls, "on_interval");
lua_pushnumber(m_ls, (double)(t / 1000000000));
lua_pushnumber(m_ls, (double)(t % 1000000000));
lua_pushnumber(m_ls, (double)interval);
if(lua_pcall(m_ls, 3, 1, 0) != 0)
{
throw sinsp_exception(m_filename + " chisel error: calling on_interval() failed:" + lua_tostring(m_ls, -1));
}
int oeres = lua_toboolean(m_ls, -1);
lua_pop(m_ls, 1);
if(oeres == false)
{
throw sinsp_exception("execution terminated by the " + m_filename + " chisel");
}
}
m_lua_last_interval_sample_time = t;
}
}
}
