package daypack-lib
Module Task.SerializeSource
Source
val pack_task_inst_id :
(int64 * int64 * int64) ->
(int32 * int32) * (int32 * int32) * (int32 * int32)Source
val pack_task_seg_id :
(int64 * int64 * int64 * int64 * int64 option) ->
(int32 * int32)
* (int32 * int32)
* (int32 * int32)
* (int32 * int32)
* (int32 * int32) optionSource
val pack_recur_type :
recur_type ->
[ `Arithmetic_seq of
Daypack_lib__.Task_t.arith_seq * Daypack_lib__.Task_t.recur_data
| `Time_pattern_match of
Daypack_lib__.Time_pattern_t.time_pattern * Daypack_lib__.Task_t.recur_data ]Source
val pack_sched_req_template_data_unit :
sched_req_template_data_unit ->
[ `Fixed of
(Int32.t * Int32.t, Int32.t * Int32.t)
Daypack_lib__.Sched_req_data_unit_skeleton_t.fixed
| `Shift of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.shift
| `Split_and_shift of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.split_and_shift
| `Split_even of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.split_even
| `Time_share of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.time_share
| `Push_toward of
(Int32.t * Int32.t,
Int32.t * Int32.t,
(Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.push_toward ]Source
val pack_sched_req_template :
sched_req_template ->
[ `Fixed of
(Int32.t * Int32.t, Int32.t * Int32.t)
Daypack_lib__.Sched_req_data_unit_skeleton_t.fixed
| `Shift of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.shift
| `Split_and_shift of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.split_and_shift
| `Split_even of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.split_even
| `Time_share of
(Int32.t * Int32.t, (Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.time_share
| `Push_toward of
(Int32.t * Int32.t,
Int32.t * Int32.t,
(Int32.t * Int32.t) * (Int32.t * Int32.t))
Daypack_lib__.Sched_req_data_unit_skeleton_t.push_toward ]
listSource
val pack_task_inst_type :
task_inst_type ->
[ `Reminder | `Reminder_quota_counting of Int32.t * Int32.t | `Passing ]Source
val pack_task_seg :
((int64 * int64 * int64 * int64 * int64 option) * int64) ->
((int32 * int32)
* (int32 * int32)
* (int32 * int32)
* (int32 * int32)
* (int32 * int32) option)
* (int32 * int32)Source
val pack_task_seg_alloc_req :
((int64 * int64 * int64) * int64) ->
((int32 * int32) * (int32 * int32) * (int32 * int32)) * (int32 * int32)