undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
Signed-off-by: Eric Wong <normalperson@yhbt.net>
This commit is contained in:
Eric Wong 2007-02-16 18:45:01 -08:00
parent b7e5348c7f
commit 0425ea9088
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
git-svn.perl
View File

@ -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(@_);