projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
610379b
)
Put the darcs-all command parsing into main() so it can use @_
author
Ian Lynagh
<igloo@earth.li>
Sun, 29 Apr 2007 17:27:34 +0000
(17:27 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sun, 29 Apr 2007 17:27:34 +0000
(17:27 +0000)
darcs-all
patch
|
blob
|
history
diff --git
a/darcs-all
b/darcs-all
index
30173c2
..
70cf165
100644
(file)
--- a/
darcs-all
+++ b/
darcs-all
@@
-37,26
+37,6
@@
my $extra = 0;
my $nofib = 0;
my $testsuite = 0;
my $nofib = 0;
my $testsuite = 0;
-while ($#_ ne -1) {
- my $arg = shift;
- if ($arg eq "-q") {
- $verbose = 0;
- }
- elsif ($arg eq "--extra") {
- $extra = 1;
- }
- elsif ($arg eq "--nofib") {
- $nofib = 1;
- }
- elsif ($arg eq "--testsuite") {
- $testsuite = 1;
- }
- else {
- unshift @_, $arg;
- last;
- }
-}
-
sub message {
if ($verbose) {
print "@_\n";
sub message {
if ($verbose) {
print "@_\n";
@@
-142,6
+122,26
@@
sub main {
die "error: darcs-all must be run from the top level of the ghc tree."
}
die "error: darcs-all must be run from the top level of the ghc tree."
}
+ while ($#_ ne -1) {
+ my $arg = shift;
+ if ($arg eq "-q") {
+ $verbose = 0;
+ }
+ elsif ($arg eq "--extra") {
+ $extra = 1;
+ }
+ elsif ($arg eq "--nofib") {
+ $nofib = 1;
+ }
+ elsif ($arg eq "--testsuite") {
+ $testsuite = 1;
+ }
+ else {
+ unshift @_, $arg;
+ last;
+ }
+ }
+
if ($#_ eq -1) {
die "What do you want to do?";
}
if ($#_ eq -1) {
die "What do you want to do?";
}