···

       
368
       
368
       
 
       
let ptime_of_ical = function

     

       
369
       
369
       
 
       
  | `Datetime (`Utc t) -> t

     

       
370
       
370
       
 
       
  | `Datetime (`Local t) ->

     

       
371
       
371
       
-
       
      let system_tz =

     

       
372
       
372
       
-
       
        match Timedesc.Time_zone.local () with

     

       
373
       
373
       
-
       
        | Some tz -> tz

     

       
374
       
374
       
-
       
        | None -> Timedesc.Time_zone.utc

     

       
375
       
375
       
-
       
      in

     

       
371
       
371
       
+
       
      let tz = Timedesc.Time_zone.local_exn () in

     

       
376
       
372
       
 
       
      let ts = Timedesc.Utils.timestamp_of_ptime t in

     

       
373
       
373
       
+
       
      (* Icalendar gives us the Ptime in UTC, which we parse to a Timedesc *)

     

       
377
       
374
       
 
       
      let dt =

     

       
378
       
378
       
-
       
        match Timedesc.of_timestamp ~tz_of_date_time:system_tz ts with

     

       
379
       
379
       
-
       
        | Some dt -> dt

     

       
380
       
380
       
-
       
        | None -> failwith "Invalid local date conversion"

     

       
375
       
375
       
+
       
        Timedesc.of_timestamp_exn ~tz_of_date_time:Timedesc.Time_zone.utc ts

     

       
381
       
376
       
 
       
      in

     

       
377
       
377
       
+
       
      (* We extract the datetime, and reinterpret it in the appropriate timezone *)

     

       
378
       
378
       
+
       
      let date = Timedesc.date dt in

     

       
379
       
379
       
+
       
      let time = Timedesc.time dt in

     

       
380
       
380
       
+
       
      let dt = Timedesc.of_date_and_time_exn ~tz date time in

     

       
382
       
381
       
 
       
      timedesc_to_ptime dt

     

       
383
       
382
       
 
       
  | `Datetime (`With_tzid (t, (_, tzid))) ->

     

       
384
       
384
       
-
       
      let tz =

     

       
385
       
385
       
-
       
        match Timedesc.Time_zone.make tzid with

     

       
386
       
386
       
-
       
        | Some tz -> tz

     

       
387
       
387
       
-
       
        | None ->

     

       
388
       
388
       
-
       
            failwith

     

       
389
       
389
       
-
       
              (Printf.sprintf

     

       
390
       
390
       
-
       
                 "Warning: Unknown timezone %s, falling back to UTC\n" tzid)

     

       
391
       
391
       
-
       
      in

     

       
383
       
383
       
+
       
      let tz = Timedesc.Time_zone.make_exn tzid in

     

       
384
       
384
       
+
       
      (* Icalendar gives us the Ptime in UTC, which we parse to a Timedesc *)

     

       
392
       
385
       
 
       
      let ts = Timedesc.Utils.timestamp_of_ptime t in

     

       
393
       
386
       
 
       
      let dt =

     

       
394
       
394
       
-
       
        match Timedesc.of_timestamp ~tz_of_date_time:tz ts with

     

       
395
       
395
       
-
       
        | Some dt -> dt

     

       
396
       
396
       
-
       
        | None -> failwith "Invalid timezone date conversion"

     

       
387
       
387
       
+
       
        Timedesc.of_timestamp_exn ~tz_of_date_time:Timedesc.Time_zone.utc ts

     

       
397
       
388
       
 
       
      in

     

       
389
       
389
       
+
       
      (* We extract the datetime, and reinterpret it in the appropriate timezone *)

     

       
390
       
390
       
+
       
      let date = Timedesc.date dt in

     

       
391
       
391
       
+
       
      let time = Timedesc.time dt in

     

       
392
       
392
       
+
       
      let dt = Timedesc.of_date_and_time_exn ~tz date time in

     

       
398
       
393
       
 
       
      timedesc_to_ptime dt

     

       
399
       
394
       
 
       
  | `Date date -> (

     

       
400
       
395
       
 
       
      let y, m, d = date in