phones.ml

#!/usr/bin/env ocaml

(* Need topfind to make require work, need require to use podge package *)
#use "topfind"
#require "podge"

module U = Yojson.Basic.Util

let local_phones () =
  Podge.Unix.read_process_output "gandalf -s"
  |> Podge.List.drop ~n:5
  |> String.concat ""
  |> Yojson.Basic.from_string
  |> U.to_list
  |> List.fold_left (fun accum item -> U.(member "Local Port" item |> to_int) :: accum) []

let () =
  local_phones ()
  |> List.iter begin fun i ->
    Printf.sprintf "Phone is on port: %d" i
    |> print_endline
  end