Satellite pass prediction and contact window computation
Add vlog to contact CLI
Adds -q/-v/--log/--json flags via Vlog.setup for consistent logging.
+10
-5
+1
-1
bin/dune
+1
-1
bin/dune
+9
-4
bin/main.ml
+9
-4
bin/main.ml
···
40
40
41
41
(* ── Predict command ────────────────────────────────────────────────── *)
42
42
43
-
let predict_cmd tle_path lat lon alt days min_el =
43
+
let predict_cmd tle_path lat lon alt days min_el () =
44
44
let tle = parse_tle tle_path in
45
45
let gs = Contact.ground_station ~lat ~lon ~alt in
46
46
let passes =
···
120
120
let doc = "Predict satellite passes over a ground station." in
121
121
let info = Cmd.info "predict" ~doc in
122
122
Cmd.v info
123
-
Term.(const predict_cmd $ tle_path $ lat $ lon $ alt $ days $ min_el)
123
+
Term.(
124
+
const predict_cmd $ tle_path $ lat $ lon $ alt $ days $ min_el
125
+
$ Vlog.setup "contact")
124
126
125
127
(* ── Next command ───────────────────────────────────────────────────── *)
126
128
127
-
let next_cmd tle_path lat lon alt min_el =
129
+
let next_cmd tle_path lat lon alt min_el () =
128
130
let tle = parse_tle tle_path in
129
131
let gs = Contact.ground_station ~lat ~lon ~alt in
130
132
let passes =
···
170
172
in
171
173
let doc = "Show the next satellite pass." in
172
174
let info = Cmd.info "next" ~doc in
173
-
Cmd.v info Term.(const next_cmd $ tle_path $ lat $ lon $ alt $ min_el)
175
+
Cmd.v info
176
+
Term.(
177
+
const next_cmd $ tle_path $ lat $ lon $ alt $ min_el
178
+
$ Vlog.setup "contact")
174
179
175
180
(* ── Main ───────────────────────────────────────────────────────────── *)
176
181