File: timezone.ml

package info (click to toggle)
liquidsoap 2.3.2-2
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 11,912 kB
  • sloc: ml: 67,867; javascript: 24,842; ansic: 273; xml: 114; sh: 96; lisp: 96; makefile: 26
file content (7 lines) | stat: -rw-r--r-- 317 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
 
let () =
  let tz = -Utils.timezone () in
  Printf.printf "timezone: %d (sec)\n%!" tz;
  Printf.printf "timezone: %+03d%02d\n%!" (tz / 3600) (abs (tz / 60) mod 60);
  Printf.printf "timezone: %s\n%!" (Utils.strftime "%z");
  let std, dst = Utils.timezone_by_name () in
  Printf.printf "tzname = {%s, %s}\n%!" std dst