blob: 54f5629641a20f35546aa3fc9f2996c2404af060 [file] [log] [blame]
/*
* Copyright (c) 2018 Cisco and/or its affiliates.
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at:
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#include <vppinfra/time_range.h>
__clib_export void
clib_timebase_init (clib_timebase_t * tb, i32 timezone_offset_in_hours,
clib_timebase_daylight_time_t daylight_type,
clib_time_t * clib_time)
{
clib_memset (tb, 0, sizeof (*tb));
if (clib_time == 0)
{
tb->clib_time = clib_mem_alloc_aligned
(sizeof (*clib_time), CLIB_CACHE_LINE_BYTES);
memset (tb->clib_time, 0, sizeof (*clib_time));
clib_time_init (tb->clib_time);
}
else
tb->clib_time = clib_time;
tb->timezone_offset = ((f64) (timezone_offset_in_hours)) * 3600.0;
tb->daylight_time_type = daylight_type;
switch (tb->daylight_time_type)
{
case CLIB_TIMEBASE_DAYLIGHT_NONE:
tb->summer_offset = 0.0;
break;
case CLIB_TIMEBASE_DAYLIGHT_USA:
tb->summer_offset = 3600.0;
break;
default:
clib_warning ("unknown daylight type %d", tb->daylight_time_type);
tb->daylight_time_type = CLIB_TIMEBASE_DAYLIGHT_NONE;
tb->summer_offset = 0.0;
}
}
const static u32 days_per_month[] = {
31, /* Jan */
28, /* Feb */
31, /* Mar */
30, /* Apr */
31, /* May */
30, /* Jun */
31, /* Jul */
31, /* Aug */
30, /* Sep */
31, /* Oct */
30, /* Nov */
31, /* Dec */
};
const static char *month_short_names[] = {
"Jan",
"Feb",
"Mar",
"Apr",
"May",
"Jun",
"Jul",
"Aug",
"Sep",
"Oct",
"Nov",
"Dec",
};
const static char *day_names_epoch_order[] = {
"Thu",
"Fri",
"Sat",
"Sun",
"Mon",
"Tue",
"Wed",
};
const static char *day_names_calendar_order[] = {
"Sun",
"Mon",
"Tue",
"Wed",
"Thu",
"Fri",
"Sat",
};
__clib_export void
clib_timebase_time_to_components (f64 now, clib_timebase_component_t * cp)
{
u32 year, month, hours, minutes, seconds, nanoseconds;
u32 days_in_year, days_in_month, day_of_month;
u32 days_since_epoch;
u32 day_name_index;
/* Unix epoch is 1/1/1970 00:00:00.00, a Thursday */
year = 1970;
days_since_epoch = 0;
do
{
days_in_year = clib_timebase_is_leap_year (year) ? 366 : 365;
days_since_epoch += days_in_year;
now = now - ((f64) days_in_year) * 86400.0;
year++;
}
while (now > 0.0);
days_since_epoch -= days_in_year;
now += ((f64) days_in_year) * 86400;
year--;
month = 0;
do
{
days_in_month = days_per_month[month];
if (month == 1 && clib_timebase_is_leap_year (year))
days_in_month++;
days_since_epoch += days_in_month;
now = now - ((f64) days_in_month) * 86400.0;
month++;
}
while (now > 0.0);
days_since_epoch -= days_in_month;
now += ((f64) days_in_month) * 86400;
month--;
day_of_month = 1;
do
{
now = now - 86400;
day_of_month++;
days_since_epoch++;
}
while (now > 0.0);
day_of_month--;
days_since_epoch--;
now += 86400.0;
day_name_index = days_since_epoch % 7;
hours = (u32) (now / (3600.0));
now -= (f64) (hours * 3600);
minutes = (u32) (now / 60.0);
now -= (f64) (minutes * 60);
seconds = (u32) (now);
now -= (f64) (seconds);
nanoseconds = (f64) (now * 1e9);
cp->year = year;
cp->month = month;
cp->day = day_of_month;
cp->day_name_index = day_name_index;
cp->hour = hours;
cp->minute = minutes;
cp->second = seconds;
cp->nanosecond = nanoseconds;
cp->fractional_seconds = now;
}
__clib_export f64
clib_timebase_components_to_time (clib_timebase_component_t * cp)
{
f64 now = 0;
u32 year, days_in_year, month, days_in_month;
year = 1970;
while (year < cp->year)
{
days_in_year = clib_timebase_is_leap_year (year) ? 366 : 365;
now += ((f64) days_in_year) * 86400.0;
year++;
}
month = 0;
while (month < cp->month)
{
days_in_month = days_per_month[month];
if (month == 1 && clib_timebase_is_leap_year (year))
days_in_month++;
now += ((f64) days_in_month) * 86400.0;
month++;
}
now += ((f64) cp->day - 1) * 86400.0;
now += ((f64) cp->hour) * 3600.0;
now += ((f64) cp->minute) * 60.0;
now += ((f64) cp->second);
now += ((f64) cp->nanosecond) * 1e-9;
return (now);
}
__clib_export f64
clib_timebase_find_sunday_midnight (f64 start_time)
{
clib_timebase_component_t _c, *cp = &_c;
clib_timebase_time_to_components (start_time, cp);
/* back up to midnight */
cp->hour = cp->minute = cp->second = 0;
start_time = clib_timebase_components_to_time (cp);
while (cp->day_name_index != 3 /* sunday */ )
{
/* Back up one day */
start_time -= 86400.0;
clib_timebase_time_to_components (start_time, cp);
}
/* Clean up residual fraction */
start_time -= cp->fractional_seconds;
start_time += 1e-6; /* 1us inside Sunday */
return (start_time);
}
f64
clib_timebase_offset_from_sunday (u8 * day)
{
int i;
for (i = 0; i < ARRAY_LEN (day_names_calendar_order); i++)
{
if (!strncmp ((char *) day, day_names_calendar_order[i], 3))
return ((f64) i) * 86400.0;
}
return 0.0;
}
__clib_export u8 *
format_clib_timebase_time (u8 * s, va_list * args)
{
f64 now = va_arg (*args, f64);
clib_timebase_component_t _c, *cp = &_c;
clib_timebase_time_to_components (now, cp);
s = format (s, "%s, %02u %s %u %02u:%02u:%02u",
day_names_epoch_order[cp->day_name_index], cp->day,
month_short_names[cp->month], cp->year, cp->hour, cp->minute,
cp->second);
return (s);
}
uword
unformat_clib_timebase_range_hms (unformat_input_t * input, va_list * args)
{
clib_timebase_range_t *rp = va_arg (*args, clib_timebase_range_t *);
clib_timebase_component_t _c, *cp = &_c;
u32 start_hour, start_minute, start_second;
u32 end_hour, end_minute, end_second;
start_hour = start_minute = start_second
= end_hour = end_minute = end_second = 0;
if (unformat (input, "%u:%u:%u - %u:%u:%u",
&start_hour, &start_minute, &start_second,
&end_hour, &end_minute, &end_second))
;
else if (unformat (input, "%u:%u - %u:%u",
&start_hour, &start_minute, &end_hour, &end_minute))
;
else if (unformat (input, "%u - %u", &start_hour, &end_hour))
;
else
return 0;
clib_timebase_time_to_components (1e-6, cp);
cp->hour = start_hour;
cp->minute = start_minute;
cp->second = start_second;
rp->start = clib_timebase_components_to_time (cp);
cp->hour = end_hour;
cp->minute = end_minute;
cp->second = end_second;
rp->end = clib_timebase_components_to_time (cp);
return 1;
}
__clib_export uword
unformat_clib_timebase_range_vector (unformat_input_t * input, va_list * args)
{
clib_timebase_range_t **rpp = va_arg (*args, clib_timebase_range_t **);
clib_timebase_range_t _tmp, *tmp = &_tmp;
clib_timebase_range_t *rp, *new_rp;
int day_range_match = 0;
int time_range_match = 0;
f64 range_start_time_offset;
f64 range_end_time_offset;
f64 now;
u8 *start_day = 0, *end_day = 0;
rp = *rpp;
while (1)
{
if (!day_range_match
&& unformat (input, "%s - %s", &start_day, &end_day))
{
range_start_time_offset
= clib_timebase_offset_from_sunday (start_day);
range_end_time_offset = clib_timebase_offset_from_sunday (end_day);
vec_free (start_day);
vec_free (end_day);
day_range_match = 1;
time_range_match = 0;
}
else if (!day_range_match && unformat (input, "%s", &start_day))
{
range_start_time_offset
= clib_timebase_offset_from_sunday (start_day);
range_end_time_offset = range_start_time_offset + 86399.0;
day_range_match = 1;
vec_free (start_day);
day_range_match = 1;
time_range_match = 0;
}
else if (day_range_match &&
unformat (input, "%U", unformat_clib_timebase_range_hms, tmp))
{
/* Across the week... */
for (now = range_start_time_offset; now <= range_end_time_offset;
now += 86400.0)
{
vec_add2 (rp, new_rp, 1);
new_rp->start = now + tmp->start;
new_rp->end = now + tmp->end;
}
day_range_match = 0;
time_range_match = 1;
}
else if (time_range_match)
break;
else
{
vec_free (rp);
*rpp = 0;
return 0;
}
}
if (time_range_match)
{
*rpp = rp;
return 1;
}
else
{
vec_free (rp);
*rpp = 0;
return 0;
}
}
__clib_export f64
clib_timebase_summer_offset (clib_timebase_t * tb, f64 now)
{
clib_timebase_component_t _c, *cp = &_c;
f64 second_sunday_march_2am;
f64 first_sunday_november_2am;
if (PREDICT_TRUE
(now >= tb->cached_year_start && now <= tb->cached_year_end))
{
if (now >= tb->cached_summer_start && now <= tb->cached_summer_end)
return tb->summer_offset;
else
return (0.0);
}
clib_timebase_time_to_components (now, cp);
cp->month = 0;
cp->day = 1;
cp->hour = 0;
cp->minute = 0;
cp->second = 1;
tb->cached_year_start = clib_timebase_components_to_time (cp);
cp->year += 1;
tb->cached_year_end = clib_timebase_components_to_time (cp);
cp->year -= 1;
/* Search for the second sunday in march, 2am */
cp->month = 2;
cp->day = 1;
cp->hour = 2;
cp->second = 0;
cp->nanosecond = 1;
/* March 1st will never be the second sunday... */
second_sunday_march_2am = clib_timebase_components_to_time (cp);
cp->day_name_index = 0;
/* Find the first sunday */
do
{
clib_timebase_time_to_components (second_sunday_march_2am, cp);
second_sunday_march_2am += 86400.0;
}
while (cp->day_name_index != 3 /* sunday */ );
/* Find the second sunday */
do
{
clib_timebase_time_to_components (second_sunday_march_2am, cp);
second_sunday_march_2am += 86400.0;
}
while (cp->day_name_index != 3 /* sunday */ );
second_sunday_march_2am -= 86400.0;
tb->cached_summer_start = second_sunday_march_2am;
/* Find the first sunday in November, which can easily be 11/1 */
cp->month = 10;
cp->day = 1;
first_sunday_november_2am = clib_timebase_components_to_time (cp);
clib_timebase_time_to_components (first_sunday_november_2am, cp);
while (cp->day_name_index != 3 /* sunday */ )
{
first_sunday_november_2am += 86400.0;
clib_timebase_time_to_components (first_sunday_november_2am, cp);
}
tb->cached_summer_end = first_sunday_november_2am;
if (now >= tb->cached_summer_start && now <= tb->cached_summer_end)
return tb->summer_offset;
else
return (0.0);
}
/*
* fd.io coding-style-patch-verification: ON
*
* Local Variables:
* eval: (c-set-style "gnu")
* End:
*/