Lines Matching refs:command
94 my ($command, $args_ref, $options_ref) = parse_command_line();
95 dispatch_command($command, $args_ref, $options_ref);
126 my $command = shift @ARGV;
128 if (!exists $valid_commands_hash{$command}) {
129 print_error("Unkown command: '$command'\n");
134 if ($command eq 'h' || $command eq '?') {
135 $command = 'help';
137 elsif ($command eq 'f') {
138 $command = 'fetch';
140 elsif ($command eq 'q') {
141 $command = 'query';
143 elsif ($command eq 't') {
144 $command = 'task';
150 do_help([$command])
153 verify_options($command, \%options_hash);
154 return ($command, \@ARGV, \%options_hash);
160 my $command = shift;
163 my $valid_command_options_ref = $valid_options_hash{$command};
181 print_error("can't use option '--$_' with subcommand '$command'.", 1);
190 my $command = shift;
195 &{"do_".$command}($args_ref, $options_ref);
2081 my $command = shift;
2089 $command = "hg $command $options $args_str";
2092 print STDERR "CWS-DEBUG: ... execute command line: '$command'\n";
2096 … open(OUTPUT, "$command 2>&1 |") or print_error("Can't execute mercurial command line client", 98);