Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Added --terse option to ocluster-admin-show and added new command ocluster-admin-exec #165

Merged
merged 5 commits into from
Apr 26, 2022
Merged

Added --terse option to ocluster-admin-show and added new command ocluster-admin-exec #165

Changes from 2 commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
18b93ac
Added --terse option to ocluster-admin-show
mtelvers Apr 1, 2022
e56baf5
Untidy exec
mtelvers Apr 2, 2022
f061bd4
shorter version
mtelvers Apr 3, 2022
399504b
smaller ignore
mtelvers Apr 3, 2022
09a383e
exec working and tidy
mtelvers Apr 4, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
53 changes: 48 additions & 5 deletions bin/admin.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -37,16 +37,38 @@ let set_rate () cap_path pool_id client_id rate =
let pool = Cluster_api.Admin.pool admin_service pool_id in
Cluster_api.Pool_admin.set_rate pool ~client_id rate

let show () cap_path pool =
let show () cap_path terse pool =
run cap_path @@ fun admin_service ->
match pool with
| None ->
Cluster_api.Admin.pools admin_service >|= fun pools ->
List.iter print_endline pools
| Some pool ->
Capability.with_ref (Cluster_api.Admin.pool admin_service pool) @@ fun pool ->
Cluster_api.Pool_admin.show pool >|= fun status ->
print_endline (String.trim status)
if terse then
Cluster_api.Pool_admin.workers pool >|= fun workers ->
List.iter (fun (w:Cluster_api.Pool_admin.worker_info) -> print_endline w.name) workers
else
Cluster_api.Pool_admin.show pool >|= fun status ->
print_endline (String.trim status)
Comment on lines +48 to +53
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Style wise I'd hoist the if/else into the print function eg.

Suggested change
if terse then
Cluster_api.Pool_admin.workers pool >|= fun workers ->
List.iter (fun (w:Cluster_api.Pool_admin.worker_info) -> print_endline w.name) workers
else
Cluster_api.Pool_admin.show pool >|= fun status ->
print_endline (String.trim status)
Cluster_api.Pool_admin.workers pool >|= fun workers ->
if terse then
List.iter (fun (w:Cluster_api.Pool_admin.worker_info) -> print_endline w.name) workers
else
print_endline (String.trim status)

Copy link
Member Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The API calls are different on the two branches of the if/then/else so I don't think this would work.


let check_exit_status = function
| Unix.WEXITED 0 -> ()
| Unix.WEXITED x -> Fmt.failwith "Sub-process failed with exit code %d" x
| Unix.WSIGNALED x -> Fmt.failwith "Sub-process failed with signal %d" x
| Unix.WSTOPPED x -> Fmt.failwith "Sub-process stopped with signal %d" x

let exec () cap_path pool prog =
List.iter print_endline prog;
run cap_path @@ fun admin_service ->
Capability.with_ref (Cluster_api.Admin.pool admin_service pool) @@ fun pool ->
Cluster_api.Pool_admin.workers pool >|= fun workers -> ignore(
let jobs = workers |> List.map (fun (w:Cluster_api.Pool_admin.worker_info) ->
let ar = Array.of_list prog in
let ar2 = Array.map (fun el -> if el = "{}" then w.name else el) ar in
Lwt_process.exec ("", ar2 ) >|= check_exit_status
) in
Lwt.join jobs)

let with_progress label =
Capability.with_ref (Cluster_api.Progress.local (Fmt.pr "%s: %s@." label))
Expand Down Expand Up @@ -238,6 +260,21 @@ let wait =
~doc:"Wait until no jobs are running"
["wait"]

let terse =
Arg.value @@
Arg.flag @@
Arg.info
~doc:"Just list names of the workers"
["terse"]

let prog_pos =
Arg.value @@
Arg.pos_right 0 Arg.string [] @@
Arg.info
~doc:"cmd to run"
~docv:"PROG"
[]

let add_client =
let doc = "Create a new client endpoint for submitting jobs" in
let info = Cmd.info "add-client" ~doc in
Expand All @@ -262,11 +299,17 @@ let set_rate =
Cmd.v info
Term.(const set_rate $ Logging.term $ connect_addr $ Arg.required pool_pos $ Arg.required (client_id ~pos:1) $ Arg.required (rate ~pos:2))

let exec =
let doc = "Execute a command for each worker in a pool" in
let info = Cmd.info "exec" ~doc in
Cmd.v info
Term.(const exec $ Logging.term $ connect_addr $ Arg.required pool_pos $ prog_pos)

let show =
let doc = "Show information about a service, pool or worker" in
let info = Cmd.info "show" ~doc in
Cmd.v info
Term.(const show $ Logging.term $ connect_addr $ Arg.value pool_pos)
Term.(const show $ Logging.term $ connect_addr $ terse $ Arg.value pool_pos)

let pause =
let doc = "Set a worker to be unavailable for further jobs" in
Expand All @@ -293,7 +336,7 @@ let forget =
Term.(const forget $ Logging.term $ connect_addr $ Arg.required pool_pos $ worker)


let cmds = [add_client; remove_client; list_clients; set_rate; show; pause; unpause; update; forget]
let cmds = [add_client; remove_client; list_clients; set_rate; show; exec; pause; unpause; update; forget]

let () =
let doc = "a command-line admin client for the build-scheduler" in
Expand Down