Skip to content

Commit

Permalink
Relocated output_error() so that all subroutines are in alphabetical …
Browse files Browse the repository at this point in the history
…order.
  • Loading branch information
soh-cah-toa committed Oct 22, 2011
1 parent 55d0037 commit 0a1e468
Showing 1 changed file with 14 additions and 14 deletions.
28 changes: 14 additions & 14 deletions src/plumage-admin.nqp
Expand Up @@ -59,20 +59,6 @@ our %OPTIONS; # Command-line switches
my %*CONF; # Configuration options
my %*BIN; # System binaries

sub output_error($msg) {
$msg := '[ERROR] ' ~ $msg;

Q:PIR {
$P0 = find_lex '$msg'
$S0 = $P0
$S0 .= "\n"
$P0 = getinterp
$P1 = $P0.'stderr_handle'()
$P1.'print'($S0)
};
}
sub execute_command($command) {
my $action := %COMMANDS{$command}.action;
my $args := %COMMANDS{$command}.args;
Expand Down Expand Up @@ -198,6 +184,20 @@ sub merge_tree_structures($dst, $src) {
return $dst;
}

sub output_error($msg) {
$msg := '[ERROR] ' ~ $msg;

Q:PIR {
$P0 = find_lex '$msg'
$S0 = $P0
$S0 .= "\n"
$P0 = getinterp
$P1 = $P0.'stderr_handle'()
$P1.'print'($S0)
};
}
sub parse_command_line() {
return @*ARGS ?? @*ARGS.shift !! 'help';
}
Expand Down

0 comments on commit 0a1e468

Please sign in to comment.