#include "unit.h"

#include "timer.h"

#include "dbus-unit.h"

#include "dbus-timer.h"

#include "bus-util.h"

#include "errno-list.h"

#include "strv.h"

static BUS_DEFINE_PROPERTY_GET_ENUM(property_get_result, timer_result, TimerResult);

static int property_get_monotonic_timers(

sd_bus *bus,

const char *path,

const char *interface,

const char *property,

sd_bus_message *reply,

void *userdata,

sd_bus_error *error) {

Timer *t = userdata;

TimerValue *v;

int r;

assert(bus);

assert(reply);

assert(t);

r = sd_bus_message_open_container(reply, 'a', "(stt)");

if (r < 0)

return r;

LIST_FOREACH(value, v, t->values) {

_cleanup_free_ char *buf = NULL;

const char *s;

size_t l;

if (v->base == TIMER_CALENDAR)

continue;

s = timer_base_to_string(v->base);

assert(endswith(s, "Sec"));

/* s/Sec/USec/ */

l = strlen(s);

buf = new(char, l+2);

if (!buf)

return -ENOMEM;

memcpy(buf, s, l-3);

memcpy(buf+l-3, "USec", 5);

r = sd_bus_message_append(reply, "(stt)", buf, v->value, v->next_elapse);

if (r < 0)

return r;

}

return sd_bus_message_close_container(reply);

}

static int property_get_calendar_timers(

sd_bus *bus,

const char *path,

const char *interface,

const char *property,

sd_bus_message *reply,

void *userdata,

sd_bus_error *error) {

Timer *t = userdata;

TimerValue *v;

int r;

assert(bus);

assert(reply);

assert(t);

r = sd_bus_message_open_container(reply, 'a', "(sst)");

if (r < 0)

return r;

LIST_FOREACH(value, v, t->values) {

_cleanup_free_ char *buf = NULL;

if (v->base != TIMER_CALENDAR)

continue;

r = calendar_spec_to_string(v->calendar_spec, &buf);

if (r < 0)

return r;

r = sd_bus_message_append(reply, "(sst)", timer_base_to_string(v->base), buf, v->next_elapse);

if (r < 0)

return r;

}

return sd_bus_message_close_container(reply);

}

static int property_get_unit(

sd_bus *bus,

const char *path,

const char *interface,

const char *property,

sd_bus_message *reply,

void *userdata,

sd_bus_error *error) {

Unit *u = userdata, *trigger;

assert(bus);

assert(reply);

assert(u);

trigger = UNIT_TRIGGER(u);

return sd_bus_message_append(reply, "s", trigger ? trigger->id : "");

}

static int property_get_next_elapse_monotonic(

sd_bus *bus,

const char *path,

const char *interface,

const char *property,

sd_bus_message *reply,

void *userdata,

sd_bus_error *error) {

Timer *t = userdata;

usec_t x;

assert(bus);

assert(reply);

assert(t);

if (t->next_elapse_monotonic_or_boottime <= 0)

x = 0;

else if (t->wake_system) {

usec_t a, b;

a = now(CLOCK_MONOTONIC);

b = now(CLOCK_BOOTTIME);

if (t->next_elapse_monotonic_or_boottime + a > b)

x = t->next_elapse_monotonic_or_boottime + a - b;

else

x = 0;

} else

x = t->next_elapse_monotonic_or_boottime;

return sd_bus_message_append(reply, "t", x);

}

const sd_bus_vtable bus_timer_vtable[] = {

SD_BUS_VTABLE_START(0),

SD_BUS_PROPERTY("Unit", "s", property_get_unit, 0, SD_BUS_VTABLE_PROPERTY_CONST),

SD_BUS_PROPERTY("TimersMonotonic", "a(stt)", property_get_monotonic_timers, 0, SD_BUS_VTABLE_PROPERTY_EMITS_INVALIDATION),

SD_BUS_PROPERTY("TimersCalendar", "a(sst)", property_get_calendar_timers, 0, SD_BUS_VTABLE_PROPERTY_EMITS_INVALIDATION),

SD_BUS_PROPERTY("NextElapseUSecRealtime", "t", bus_property_get_usec, offsetof(Timer, next_elapse_realtime), SD_BUS_VTABLE_PROPERTY_EMITS_CHANGE),

SD_BUS_PROPERTY("NextElapseUSecMonotonic", "t", property_get_next_elapse_monotonic, 0, SD_BUS_VTABLE_PROPERTY_EMITS_CHANGE),

BUS_PROPERTY_DUAL_TIMESTAMP("LastTriggerUSec", offsetof(Timer, last_trigger), SD_BUS_VTABLE_PROPERTY_EMITS_CHANGE),

SD_BUS_PROPERTY("Result", "s", property_get_result, offsetof(Timer, result), SD_BUS_VTABLE_PROPERTY_EMITS_CHANGE),

SD_BUS_PROPERTY("AccuracyUSec", "t", bus_property_get_usec, offsetof(Timer, accuracy_usec), SD_BUS_VTABLE_PROPERTY_CONST),

SD_BUS_PROPERTY("Persistent", "b", bus_property_get_bool, offsetof(Timer, persistent), SD_BUS_VTABLE_PROPERTY_CONST),

SD_BUS_PROPERTY("WakeSystem", "b", bus_property_get_bool, offsetof(Timer, wake_system), SD_BUS_VTABLE_PROPERTY_CONST),

SD_BUS_VTABLE_END

};

static int bus_timer_set_transient_property(

Timer *t,

const char *name,

sd_bus_message *message,

UnitSetPropertiesMode mode,

sd_bus_error *error) {

int r;

assert(t);

assert(name);

assert(message);

if (STR_IN_SET(name,

"OnActiveSec",

"OnBootSec",

"OnStartupSec",

"OnUnitActiveSec",

"OnUnitInactiveSec")) {

TimerValue *v;

TimerBase b = _TIMER_BASE_INVALID;

usec_t u = 0;

b = timer_base_from_string(name);

if (b < 0)

return -EINVAL;

r = sd_bus_message_read(message, "t", &u);

if (r < 0)

return r;

if (mode != UNIT_CHECK) {

char time[FORMAT_TIMESPAN_MAX];

unit_write_drop_in_private_format(UNIT(t), mode, name, "%s=%s\n", name, format_timespan(time, sizeof(time), u, USEC_PER_MSEC));

v = new0(TimerValue, 1);

if (!v)

return -ENOMEM;

v->base = b;

v->value = u;

LIST_PREPEND(value, t->values, v);

}

return 1;

} else if (streq(name, "OnCalendar")) {

TimerValue *v;

CalendarSpec *c = NULL;

const char *str;

r = sd_bus_message_read(message, "s", &str);

if (r < 0)

return r;

if (mode != UNIT_CHECK) {

r = calendar_spec_from_string(str, &c);

if (r < 0)

return r;

unit_write_drop_in_private_format(UNIT(t), mode, name, "%s=%s\n", name, str);

v = new0(TimerValue, 1);

if (!v) {

if (c)

calendar_spec_free(c);

return -ENOMEM;

}

v->base = TIMER_CALENDAR;

v->calendar_spec = c;

LIST_PREPEND(value, t->values, v);

}

return 1;

} else if (streq(name, "AccuracySec")) {

usec_t u = 0;

r = sd_bus_message_read(message, "t", &u);

if (r < 0)

return r;

if (mode != UNIT_CHECK) {

char time[FORMAT_TIMESPAN_MAX];

t->accuracy_usec = u;

unit_write_drop_in_private_format(UNIT(t), mode, name, "%s=%s\n", name, format_timespan(time, sizeof(time), u, USEC_PER_MSEC));

}

return 1;

} else if (streq(name, "WakeSystem")) {

int b;

r = sd_bus_message_read(message, "b", &b);

if (r < 0)

return r;

if (mode != UNIT_CHECK) {

t->wake_system = b;

unit_write_drop_in_private_format(UNIT(t), mode, name, "%s=%s\n", name, yes_no(t->wake_system));

}

return 1;

}

return 0;

}

int bus_timer_set_property(

Unit *u,

const char *name,

sd_bus_message *message,

UnitSetPropertiesMode mode,

sd_bus_error *error) {

Timer *t = TIMER(u);

int r;

assert(t);

assert(name);

assert(message);

if (u->transient && u->load_state == UNIT_STUB) {

r = bus_timer_set_transient_property(t, name, message, mode, error);

if (r != 0)

return r;

}

return 0;

}