Paolo Donadeo
1329dfd1f7
- Add `triggers` field to `Remind.rem` type to store alarm trigger offsets as `Timedesc.Span.t list` - Implement `get_triggers` in `Utils` to extract duration-based triggers from audio/display alarms, ignoring email and NONE alarms - Add `collect_triggers` collector that populates the triggers field and logs them to stderr for debugging - Register `collect_triggers` in the collector pipeline - Remove leftover debug log for processed filenames in `main.ml` - Remove stale commented-out RRULE dataset and type documentation from `simple_recurrence`
68 lines
2.8 KiB
OCaml
68 lines
2.8 KiB
OCaml
module Map = MoreLabels.Map.Make (String)
|
|
|
|
(*
|
|
We use a list of events here because there can be multiple events with the same UID, and we want to preserve all of
|
|
them. This is important for handling cases where there are multiple events with the same UID but different properties
|
|
(e.g., due to updates or recurring events or cancellations).
|
|
*)
|
|
|
|
let read_file filename =
|
|
let ic = open_in filename in
|
|
let n = in_channel_length ic in
|
|
let s = Bytes.create n in
|
|
really_input ic s 0 n;
|
|
close_in ic;
|
|
Bytes.unsafe_to_string s
|
|
|
|
let ical2rem tz_opt ical_files =
|
|
Utils.init_target_tz tz_opt;
|
|
let good_rems =
|
|
ListLabels.fold_left ~init:[] ical_files ~f:(fun good_rems_acc filename ->
|
|
try
|
|
let file_content = read_file filename in
|
|
let basename = Filename.remove_extension (Filename.basename filename) in
|
|
match Icalendar.parse file_content with
|
|
| Error e ->
|
|
if e <> ": not enough input" then prerr_endline ("Error parsing iCalendar file: " ^ e);
|
|
good_rems_acc
|
|
| Ok (_, components) -> begin
|
|
let events_map : Icalendar.event list Map.t =
|
|
ListLabels.fold_left ~init:Map.empty components ~f:(fun acc comp ->
|
|
match comp with
|
|
| `Event ev ->
|
|
let uid = Utils.get_uid ev in
|
|
let event_list = Map.find_opt uid acc |> Option.value ~default:[] in
|
|
Map.add ~key:uid ~data:(ev :: event_list) acc
|
|
| _ -> acc (* Ignore non-event components *))
|
|
in
|
|
|
|
let events_map = Map.map ~f:List.rev events_map in
|
|
|
|
let good_rems =
|
|
Map.fold ~init:[] events_map ~f:(fun ~key:uid ~data:events good_rems ->
|
|
let rem_or_error = EventPredicates.remind_of_event basename events in
|
|
match rem_or_error with
|
|
| Ok rem -> rem :: good_rems
|
|
| Error (EventPredicates.Invalid_date s) ->
|
|
Printf.eprintf "UID: %s Invalid date: %s\n" uid s;
|
|
good_rems
|
|
| Error Skip ->
|
|
Printf.eprintf "UID: %s Skipped\n" uid;
|
|
good_rems)
|
|
in
|
|
let good_rems = List.rev good_rems in
|
|
good_rems @ good_rems_acc
|
|
end
|
|
with e ->
|
|
prerr_endline ("Error reading file " ^ filename ^ ": " ^ Printexc.to_string e);
|
|
good_rems_acc)
|
|
in
|
|
|
|
let good_rems = List.sort (fun a b -> Timedesc.Date.compare b.Remind.date a.Remind.date) good_rems in
|
|
try ListLabels.iter good_rems ~f:(fun rem -> Printf.printf "%s" (Remind.string_of_rem rem))
|
|
with e ->
|
|
Printf.eprintf "Error processing reminders: %s\n" (Printexc.to_string e);
|
|
exit 1
|
|
|
|
let () = if !Sys.interactive then () else exit (CommandLine.main ical2rem)
|