Changeset 3707 for lang/perl/Archer/archer.pl

Timestamp:

12/28/07 11:23:49 (13 months ago)

Author:

tokuhirom

Message:

r3854@mnk (orig r504): tokuhiro | 2007-08-03 22:03:01 -0700
apply the franck patch.thanks franck++.
added configmaker & recipe.

Files:

• lang/perl/Archer/archer.pl (modified) (2 diffs)

lang/perl/Archer/archer.pl

@@ -7 +7 @@
 use FindBin ();
 use Path::Class;
+use File::Util;
+use Cwd;
 
-use lib dir($FindBin::RealBin, 'lib')->stringify;
+use lib dir( $FindBin::RealBin, 'lib' )->stringify;
 
 use Archer;
@@ -14 +16 @@
 my $argv_str = "@ARGV";
 my $fork_num = 1;
-my $config = file($FindBin::RealBin, 'config.yaml')->stringify;
+my $config   = file( $FindBin::RealBin, 'config.yaml' )->stringify;
 Getopt::Long::GetOptions(
-    '--para=i'         => \$fork_num,
-    '--dry-run'        => \my $dry_run_fg,
-    '--skip=s'         => \my $skips,
-    '--shell',         => \my $shell,
-    '--man'            => \my $man,
-    '--config=s'       => \$config,
-  )
-  or pod2usage(2);
-Getopt::Long::Configure("bundling");    # allows -p
-pod2usage(-verbose => 2) if $man;
-pod2usage(2) unless @ARGV;
+    '--para=i'       => \$fork_num,
+    '--dry-run'      => \my $dry_run_fg,
+    '--skip=s'       => \my $skips,
+    '--shell',       => \my $shell,
+    '--man'          => \my $man,
+    '--config=s'     => \$config,
+    '--write-config' => \my $wc,
+) or pod2usage( 2 );
+Getopt::Long::Configure( "bundling" );    # allows -p
+pod2usage( -verbose => 2 ) if $man;
 
-for my $proj (@ARGV) {
+if ( !@ARGV ) {
+
+    # name of the current dir, will be the project name
+    my $dir     = getcwd;
+    my $f       = File::Util->new;
+    my $project = $f->strip_path( $dir );
+    $config = '.archer.yaml';
+    if ( $f->existent( $config ) ) {
+        Archer->new(
+            {   project      => $project,
+                dry_run_fg   => $dry_run_fg,
+                parallel_num => $fork_num,
+                skips => +{ map { $_ => 1 } split /,/, ( $skips || '' ) },
+                config_yaml => $config,
+                argv_str    => $argv_str,
+                shell       => $shell,
+            }
+        )->run;
+        exit;
+    }
+    else {
+        Archer->new(
+            {   project      => $project,
+                dry_run_fg   => $dry_run_fg,
+                config_yaml  => $config,
+                write_config => $wc,
+            }
+        )->run;
+        exit;
+    }
+    pod2usage( 2 ) unless @ARGV;
+}
+
+for my $proj ( @ARGV ) {
     Archer->new(
-        {
-            project        => $proj,
-            dry_run_fg     => $dry_run_fg,
-            parallel_num   => $fork_num,
-            skips          => +{ map { $_ => 1 } split /,/, ($skips || '')},
-            config_yaml    => $config,
-            argv_str       => $argv_str,
-            shell          => $shell,
+        {   project      => $proj,
+            dry_run_fg   => $dry_run_fg,
+            parallel_num => $fork_num,
+            skips        => +{ map { $_ => 1 } split /,/, ( $skips || '' ) },
+            config_yaml  => $config,
+            argv_str     => $argv_str,
+            shell        => $shell,
+            write_config => $wc,
         }
     )->run;