package daypack-lib
Module Daypack_lib.Time_expr_astSource
Source
type day_range_expr = | Weekday_range of Time.weekday_range| Month_day_range of Time.month_day_range
Source
type time_point_expr = | Tpe_name of string| Tpe_unix_seconds of int64 list| Second of second_expr| Minute_second of minute_second_expr| Hms of hms_expr| Day_hms of {}| Month_day_hms of {month : month_expr;month_day : int;hms : hms_expr;
}| Year_month_day_hms of {year : year_expr;month : month_expr;month_day : int;hms : hms_expr;
}
Source
type time_slot_expr = | Tse_name of string| Explicit_time_slot of time_point_expr * time_point_expr
Source
type branching_time_slot_expr = | Bts_unary_op of branch_unary_op * branching_time_slot_expr| Bts_hms_ranges of hms_range_expr list| Bts_month_days_and_hms_ranges of {month_days : int Range.range list;hms_ranges : hms_range_expr list;
}| Bts_weekdays_and_hms_ranges of {weekdays : Time.weekday Range.range list;hms_ranges : hms_range_expr list;
}| Bts_months_and_month_days_and_hms_ranges of {months : month_expr Range.range list;month_days : int Range.range list;hms_ranges : hms_range_expr list;
}| Bts_months_and_weekdays_and_hms_ranges of {months : month_expr Range.range list;weekdays : Time.weekday Range.range list;hms_ranges : hms_range_expr list;
}| Bts_months_and_weekday_and_hms_ranges of {months : month_expr Range.range list;weekday : Time.weekday;hms_ranges : hms_range_expr list;month_weekday_mode : month_weekday_mode option;
}| Bts_years_and_months_and_month_days_and_hms_ranges of {years : int Range.range list;months : month_expr Range.range list;month_days : int Range.range list;hms_ranges : hms_range_expr list;
}
Source
type t = | Time_point_expr of time_point_expr| Time_slot_expr of time_slot_expr| Branching_time_slot_expr of branching_time_slot_expr| Time_pattern of Time_pattern.time_pattern| Time_unary_op of unary_op * t| Time_binary_op of binary_op * t * t| Time_round_robin_select of t list