git-svn: add 'clone' command, an alias for init + fetch

Signed-off-by: Eric Wong <normalperson@yhbt.net>

diff --git a/git-svn.perl b/git-svn.perl
index 571259fd098d7aa5ea280cdfb3c799f32492087c..2cc7c33381fe5394f08eb88e720e412ebe63ffb5 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -90,6 +90,9 @@ my %cmd = (
                        { 'revision|r=s' => \$_revision,
                          'fetch-all|all' => \$_fetch_all,
                           %fc_opts } ],
+       clone => [ \&cmd_clone, "Initialize and fetch revisions",
+                       { 'revision|r=s' => \$_revision,
+                          %fc_opts, %init_opts } ],
        init => [ \&cmd_init, "Initialize a repo for tracking" .
                          " (requires URL argument)",
                          \%init_opts ],
@@ -167,7 +170,7 @@ usage(0) if $_help;
 version() if $_version;
 usage(1) unless defined $cmd;
 load_authors() if $_authors;
-unless ($cmd =~ /^(?:init|multi-init|commit-diff)$/) {
+unless ($cmd =~ /^(?:clone|init|multi-init|commit-diff)$/) {
        Git::SVN::Migration::migration_check();
 }
 Git::SVN::init_vars();
@@ -237,6 +240,22 @@ sub init_subdir {
        $ENV{GIT_DIR} = $repo_path . "/.git";
 }
 
+sub cmd_clone {
+       my ($url, $path) = @_;
+       if (!defined $path &&
+           (defined $_trunk || defined $_branches || defined $_tags) &&
+           $url !~ m#^[a-z\+]+://#) {
+               $path = $url;
+       }
+       warn "--path: $path\n" if defined $path;
+       $path = basename($url) if !defined $path || !length $path;
+       warn "++path: $path\n" if defined $path;
+       mkpath([$path]);
+       chdir $path or die "Couldn't chdir to $path\n";
+       cmd_init(@_);
+       Git::SVN::fetch_all($Git::SVN::default_repo_id);
+}
+
 sub cmd_init {
        if (defined $_trunk || defined $_branches || defined $_tags) {
                return cmd_multi_init(@_);