include (val Xlog.logs __FUNCTION__)

open Eio.Std

let () = Eio_main.run @@ fun env ->
  let clock = Eio.Stdenv.clock env in
  Switch.run ~name:"main" @@ fun sw ->
    if Systemd.is_journald_attached () then
      Xlog.add_writer (Systemd_xlog.make_writer ~sw ~env) ~min_level:Xlog.DEBUG
    else
      Xlog.init_pretty_writer stdout ~min_level:Xlog.DEBUG;

    info (fun m -> m "meow meow meow");

    let fds = Systemd.Fdstore.listen_fds ~sw in
    List.iter (fun (name, fd) -> Stdlib.Format.printf "got fd %a=%a\n%!" (Fmt.option ~none:(Fmt.any "<none>") Fmt.string) name Eio_unix.Fd.pp fd; Eio_linux.Low_level.writev fd [Cstruct.of_string "meow"]) fds;

    let ctx = Systemd.Notify.make ~sw ~env in
    info (fun m -> m "notifying!");
    Systemd.Notify.ready ctx;
    info (fun m -> m "performing barrier");
    Systemd.Notify.barrier ctx;
    info (fun m -> m "done");
    Eio.Time.sleep clock 2.0