[pve-devel] [PATCH common 1/3] cli: prepare CLIHandler for handling sub-commands
Philip Abernethy
p.abernethy at proxmox.com
Fri Oct 6 13:14:35 CEST 2017
instead of 5 slightly different calls to RESTHandler::usage_str this
introduces a wrapper function that handles all required cases and is
capable of resolving sub-commands and aliases.
Adds a subroutine to print the short help for a command in case no
subcommand was given.
Modifies handle_cmd to allow for parsing of subcommands and aliases.
---
src/PVE/CLIHandler.pm | 233 +++++++++++++++++++++++++++++++++++---------------
1 file changed, 164 insertions(+), 69 deletions(-)
diff --git a/src/PVE/CLIHandler.pm b/src/PVE/CLIHandler.pm
index e61fa6a..13bd168 100644
--- a/src/PVE/CLIHandler.pm
+++ b/src/PVE/CLIHandler.pm
@@ -2,7 +2,6 @@ package PVE::CLIHandler;
use strict;
use warnings;
-use Data::Dumper;
use PVE::SafeSyslog;
use PVE::Exception qw(raise raise_param_exc);
@@ -48,6 +47,82 @@ my $complete_command_names = sub {
return $res;
};
+my $generate_usage_str;
+$generate_usage_str = sub {
+ my ($args) = @_;
+ die "not initialized" if !($cmddef && $exename && $cli_handler_class);
+ die 'format required' if !$args->{format};
+
+ # Set the defaults
+ $args->{sortfunc} //= sub {
+ my ($hash) = @_;
+ return sort keys %$hash;
+ };
+ $args->{cmd} = $cmddef->{$args->{cmd}}->{alias}
+ if (defined($args->{cmd}) && ref($cmddef->{$args->{cmd}}) eq 'HASH' && defined($cmddef->{$args->{cmd}}->{alias}));
+ $args->{base} //= $cmddef;
+ $args->{prefix} //= $exename;
+ if (defined($args->{cmd})) {
+ my @cmds = split(' ', $args->{cmd});
+ $args->{prefix} .= " $args->{cmd}";
+ while (@cmds) {
+ $args->{base} = $args->{base}->{shift @cmds};
+ }
+ }
+ $args->{pwcallback} //= $cli_handler_class->can('read_password');
+ $args->{stringfilemap} //= $cli_handler_class->can('string_param_file_mapping');
+ $args->{sect_sep} //= "";
+ $args->{indent} //= "";
+
+ my $str = "";
+ if (ref($args->{base}) eq 'HASH') {
+ my $oldclass = undef;
+ foreach my $cmd ($args->{sortfunc}->($args->{base})) {
+ if (ref($args->{base}->{$cmd}) eq 'ARRAY') {
+ # $cmd is an array, so it's an actual command
+ my ($class, $name, $arg_param, $fixed_param) = @{$args->{base}->{$cmd}};
+ $str .= $args->{sect_sep} if $oldclass && $oldclass ne $class;
+ $str .= $args->{indent};
+ $str .= $class->usage_str($name, "$args->{prefix} $cmd", $arg_param,
+ $fixed_param, $args->{format}, $args->{pwcallback},
+ $args->{stringfilemap});
+ $oldclass = $class;
+ } elsif (defined($args->{base}->{$cmd}->{alias}) && ($args->{format} eq 'asciidoc')) {
+ $str .= "*$args->{prefix} $cmd*\n\nAn alias for '$exename $args->{base}->{$cmd}->{alias}'.\n\n";
+ } else {
+ next if $args->{base}->{$cmd}->{alias};
+ my $substr .= $generate_usage_str->({
+ format => $args->{format},
+ sortfunc => $args->{sortfunc},
+ base => $args->{base}->{$cmd},
+ prefix => "$args->{prefix} $cmd",
+ pwcallback => $args->{pwcallback},
+ stringfilemap => $args->{stringfilemap},
+ sect_sep => $args->{sect_sep},
+ indent => $args->{indent},
+ });
+ if ($substr) {
+ $substr .= $args->{sect_sep} if $substr !~ /$args->{sect_sep}$args->{sect_sep}$/;
+ $str .= $substr;
+ }
+ }
+ }
+ } else {
+ # Handle simple commands
+ my ($class, $name, $arg_param, $fixed_param) = @{$args->{base} || []};
+
+ if (!$class) {
+ print_usage_short (\*STDERR, "unknown command '" . join(' ', $args->{cmd}) . "'");
+ exit (-1);
+ }
+
+ $str .= $args->{indent};
+ $str .= $class->usage_str($name, $args->{prefix}, $arg_param, $fixed_param,
+ $args->{format}, $args->{pwcallback}, $args->{stringfilemap});
+ }
+ return $str;
+};
+
__PACKAGE__->register_method ({
name => 'help',
path => 'help',
@@ -90,18 +165,23 @@ __PACKAGE__->register_method ({
return undef;
}
- $cmd = &$expand_command_name($cmddef, $cmd);
-
- my ($class, $name, $arg_param, $uri_param) = @{$cmddef->{$cmd} || []};
-
- raise_param_exc({ cmd => "no such command '$cmd'"}) if !$class;
+ my $base = $cmddef;
+ my @cmds = split(/ /, $cmd);
+ my @newcmd;
+ while (scalar(@cmds) > 0) {
+ last if (ref($base) eq 'ARRAY');
+ push @newcmd, &$expand_command_name($base, shift @cmds);
+ $base = $base->{$newcmd[-1]};
+ }
+ $cmd = join(' ', @newcmd);
- my $pwcallback = $cli_handler_class->can('read_password');
- my $stringfilemap = $cli_handler_class->can('string_param_file_mapping');
+ my $str = &$generate_usage_str({
+ format => $verbose ? 'full' : 'short',
+ cmd => $cmd,
+ indent => $verbose ? '' : ' ' x 7,
+ });
+ $str =~ s/^\s+//;
- my $str = $class->usage_str($name, "$exename $cmd", $arg_param, $uri_param,
- $verbose ? 'full' : 'short', $pwcallback,
- $stringfilemap);
if ($verbose) {
print "$str\n";
} else {
@@ -113,17 +193,10 @@ __PACKAGE__->register_method ({
}});
sub print_simple_asciidoc_synopsis {
- my ($class, $name, $arg_param, $uri_param) = @_;
-
die "not initialized" if !$cli_handler_class;
- my $pwcallback = $cli_handler_class->can('read_password');
- my $stringfilemap = $cli_handler_class->can('string_param_file_mapping');
-
- my $synopsis = "*${name}* `help`\n\n";
-
- $synopsis .= $class->usage_str($name, $name, $arg_param, $uri_param,
- 'asciidoc', $pwcallback, $stringfilemap);
+ my $synopsis = "*${exename}* `help`\n\n";
+ $synopsis .= &$generate_usage_str({format => 'asciidoc'});
return $synopsis;
}
@@ -132,24 +205,11 @@ sub print_asciidoc_synopsis {
die "not initialized" if !($cmddef && $exename && $cli_handler_class);
- my $pwcallback = $cli_handler_class->can('read_password');
- my $stringfilemap = $cli_handler_class->can('string_param_file_mapping');
-
my $synopsis = "";
$synopsis .= "*${exename}* `<COMMAND> [ARGS] [OPTIONS]`\n\n";
- my $oldclass;
- foreach my $cmd (sort keys %$cmddef) {
- my ($class, $name, $arg_param, $uri_param) = @{$cmddef->{$cmd}};
- my $str = $class->usage_str($name, "$exename $cmd", $arg_param,
- $uri_param, 'asciidoc', $pwcallback,
- $stringfilemap);
- $synopsis .= "\n" if $oldclass && $oldclass ne $class;
-
- $synopsis .= "$str\n\n";
- $oldclass = $class;
- }
+ $synopsis .= &$generate_usage_str({format => 'asciidoc'});
$synopsis .= "\n";
@@ -160,21 +220,11 @@ sub print_usage_verbose {
die "not initialized" if !($cmddef && $exename && $cli_handler_class);
- my $pwcallback = $cli_handler_class->can('read_password');
- my $stringfilemap = $cli_handler_class->can('string_param_file_mapping');
-
print "USAGE: $exename <COMMAND> [ARGS] [OPTIONS]\n\n";
- foreach my $cmd (sort keys %$cmddef) {
- my ($class, $name, $arg_param, $uri_param) = @{$cmddef->{$cmd}};
- my $str = $class->usage_str($name, "$exename $cmd", $arg_param, $uri_param,
- 'full', $pwcallback, $stringfilemap);
- print "$str\n\n";
- }
-}
+ my $str = &$generate_usage_str({format => 'full', indent => ' ' x 7});
-sub sorted_commands {
- return sort { ($cmddef->{$a}->[0] cmp $cmddef->{$b}->[0]) || ($a cmp $b)} keys %$cmddef;
+ print "$str\n\n";
}
sub print_usage_short {
@@ -182,22 +232,48 @@ sub print_usage_short {
die "not initialized" if !($cmddef && $exename && $cli_handler_class);
- my $pwcallback = $cli_handler_class->can('read_password');
- my $stringfilemap = $cli_handler_class->can('string_param_file_mapping');
-
print $fd "ERROR: $msg\n" if $msg;
print $fd "USAGE: $exename <COMMAND> [ARGS] [OPTIONS]\n";
- my $oldclass;
- foreach my $cmd (sorted_commands()) {
- my ($class, $name, $arg_param, $uri_param) = @{$cmddef->{$cmd}};
- my $str = $class->usage_str($name, "$exename $cmd", $arg_param, $uri_param, 'short', $pwcallback, $stringfilemap);
- print $fd "\n" if $oldclass && $oldclass ne $class;
- print $fd " $str";
- $oldclass = $class;
- }
+ print &$generate_usage_str({format => 'short', sect_sep => "\n", sortfunc =>
+ sub {
+ my ($hash) = @_;
+ return sort {
+ if ((ref($hash->{$a}) eq 'ARRAY' && ref($hash->{$b}) eq 'ARRAY') &&
+ ($hash->{$a}->[0] ne $hash->{$b}->[0])) {
+ return $hash->{$a}->[0] cmp $hash->{$b}->[0];
+ } elsif (ref($hash->{$a}) eq 'ARRAY' xor ref($hash->{$b}) eq 'ARRAY') {
+ return ref($hash->{$b}) eq 'ARRAY' ? -1 : 1;
+ } else {
+ return $a cmp $b;
+ }
+ } keys %$hash;
+ }, indent => ' ' x 7});
}
+my $print_help_short = sub {
+ my ($fd, $cmd, $msg) = @_;
+
+ die "not initialized" if !($cmddef);
+
+ print $fd "ERROR: $msg\n" if $msg;
+
+ my $base = $cmddef;
+ while (scalar(@$cmd) > 1) {
+ $base = $base->{shift @$cmd};
+ }
+
+ my $str = &$generate_usage_str({
+ format => 'short',
+ base => $base,
+ cmd => $cmd->[0],
+ indent => ' ' x 7,
+ });
+ $str =~ s/^\s+//;
+
+ print "USAGE: $str\n";
+};
+
my $print_bash_completion = sub {
my ($cmddef, $simple_cmd, $bash_command, $cur, $prev) = @_;
@@ -375,12 +451,11 @@ sub generate_asciidoc_synopsis {
no strict 'refs';
my $def = ${"${class}::cmddef"};
+ $cmddef = $def;
if (ref($def) eq 'ARRAY') {
print_simple_asciidoc_synopsis(@$def);
} else {
- $cmddef = $def;
-
$cmddef->{help} = [ __PACKAGE__, 'help', ['cmd'] ];
print_asciidoc_synopsis();
@@ -405,33 +480,52 @@ my $handle_cmd = sub {
# call verifyapi before setup_environment(), because we do not want to
# execute any real code in this case
- if (!$cmd) {
+ if (!defined($cmd->[0])) {
print_usage_short (\*STDERR, "no command specified");
exit (-1);
- } elsif ($cmd eq 'verifyapi') {
+ } elsif ($cmd->[0] eq 'verifyapi') {
PVE::RESTHandler::validate_method_schemas();
return;
}
$cli_handler_class->setup_environment();
- if ($cmd eq 'bashcomplete') {
+ if ($cmd->[0] eq 'bashcomplete') {
&$print_bash_completion($cmddef, 0, @$args);
return;
}
&$preparefunc() if $preparefunc;
- $cmd = &$expand_command_name($cmddef, $cmd);
+ unshift @$args, shift @$cmd;
+ my $base = $def;
+ while (scalar(@$args) > 0) {
+ last if (ref($base) eq 'ARRAY');
+ push @$cmd, &$expand_command_name($base, shift @$args);
+ $base = $base->{$cmd->[-1]};
+ if (ref($base) eq 'HASH' && defined($base->{alias})) {
+ my @alias = split(/ /, $base->{alias});
+ $base = $def;
+ undef(@$cmd);
+ while (@alias) {
+ unshift @$args, pop @alias;
+ }
+ }
+ }
+
+ if (ref($base) eq 'HASH') {
+ &$print_help_short (\*STDERR, $cmd, "incomplete command '" . join(' ', @$cmd) . "'");
+ exit (-1);
+ }
- my ($class, $name, $arg_param, $uri_param, $outsub) = @{$cmddef->{$cmd} || []};
+ my ($class, $name, $arg_param, $uri_param, $outsub) = @{$base || []};
if (!$class) {
- print_usage_short (\*STDERR, "unknown command '$cmd'");
+ print_usage_short (\*STDERR, "unknown command '" . join(' ', @$cmd) . "'");
exit (-1);
}
- my $prefix = "$exename $cmd";
+ my $prefix = "$exename " . join(' ', @$cmd);
my $res = $class->cli_handler($prefix, $name, \@ARGV, $arg_param, $uri_param, $pwcallback, $stringfilemap);
&$outsub($res) if $outsub;
@@ -446,7 +540,7 @@ my $handle_simple_cmd = sub {
if (scalar(@$args) >= 1) {
if ($args->[0] eq 'help') {
my $str = "USAGE: $name help\n";
- $str .= $class->usage_str($name, $name, $arg_param, $uri_param, 'long', $pwcallback, $stringfilemap);
+ $str .= &$generate_usage_str({format => 'long'});
print STDERR "$str\n\n";
return;
} elsif ($args->[0] eq 'verifyapi') {
@@ -508,13 +602,14 @@ sub run_cli_handler {
no strict 'refs';
my $def = ${"${class}::cmddef"};
+ $cmddef = $def;
if (ref($def) eq 'ARRAY') {
&$handle_simple_cmd($def, \@ARGV, $pwcallback, $preparefunc, $stringfilemap);
} else {
$cmddef = $def;
- my $cmd = shift @ARGV;
- &$handle_cmd($cmddef, $exename, $cmd, \@ARGV, $pwcallback, $preparefunc, $stringfilemap);
+ my @cmd = shift @ARGV;
+ &$handle_cmd($cmddef, $exename, \@cmd, \@ARGV, $pwcallback, $preparefunc, $stringfilemap);
}
exit 0;
--
2.11.0
More information about the pve-devel
mailing list