mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-svn: convert multi-init over to using Git::SVN

Browse Source 
Signed-off-by: Eric Wong <normalperson@yhbt.net>
This commit is contained in:
Eric Wong
2007-01-11 15:35:55 -08:00
parent d2866f9e1f
commit 8164b6525e
1 changed files with 31 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
git-svn.perl
View File

@ -133,7 +133,7 @@ my %cmd = (
'branch-all-refs|B' => \$_branch_all_refs, 'branch-all-refs|B' => \$_branch_all_refs,
'no-default-regex' => \$_no_default_regex, 'no-default-regex' => \$_no_default_regex,
'no-graft-copy' => \$_no_graft_copy } ], 'no-graft-copy' => \$_no_graft_copy } ],
'multi-init' => [ \&multi_init, 'multi-init' => [ \&cmd_multi_init,
'Initialize multiple trees (like git-svnimport)', 'Initialize multiple trees (like git-svnimport)',
{ %multi_opts, %init_opts, { %multi_opts, %init_opts,
'revision|r=i' => \$_revision, 'revision|r=i' => \$_revision,
@ -278,6 +278,15 @@ sub rebuild {
command_close_pipe($rev_list, $ctx); command_close_pipe($rev_list, $ctx);
} }
sub do_git_init_db {
unless (-d $ENV{GIT_DIR}) {
my @init_db = ('init');
push @init_db, "--template=$_template" if defined $_template;
push @init_db, "--shared" if defined $_shared;
command_noisy(@init_db);
}
}
sub cmd_init { sub cmd_init {
my $url = shift or die "SVN repository location required " . my $url = shift or die "SVN repository location required " .
"as a command-line argument\n"; "as a command-line argument\n";
@ -288,13 +297,8 @@ sub cmd_init {
chdir $repo_path or croak $!; chdir $repo_path or croak $!;
$ENV{GIT_DIR} = $repo_path . "/.git"; $ENV{GIT_DIR} = $repo_path . "/.git";
} }
do_git_init_db();
unless (-d $ENV{GIT_DIR}) {
my @init_db = ('init');
push @init_db, "--template=$_template" if defined $_template;
push @init_db, "--shared" if defined $_shared;
command_noisy(@init_db);
}
Git::SVN->init(undef, $url); Git::SVN->init(undef, $url);
} }
@ -575,29 +579,22 @@ sub graft_branches {
unlink "$gr_file~$gr_sha1" if $gr_sha1; unlink "$gr_file~$gr_sha1" if $gr_sha1;
} }
sub multi_init { sub cmd_multi_init {
my $url = shift; my $url = shift;
unless (defined $_trunk || defined $_branches || defined $_tags) { unless (defined $_trunk || defined $_branches || defined $_tags) {
usage(1); usage(1);
} }
do_git_init_db();
$_prefix = '' unless defined $_prefix;
if (defined $_trunk) { if (defined $_trunk) {
my $trunk_url = complete_svn_url($url, $_trunk); my $gs_trunk = eval { Git::SVN->new($_prefix . 'trunk') };
my $ch_id; unless ($gs_trunk) {
if ($GIT_SVN eq 'git-svn') { my $trunk_url = complete_svn_url($url, $_trunk);
$ch_id = 1; $gs_trunk = Git::SVN->init($_prefix . 'trunk',
$GIT_SVN = $ENV{GIT_SVN_ID} = 'trunk'; $trunk_url);
}
init_vars();
unless (-d $GIT_SVN_DIR) {
if ($ch_id) {
print "GIT_SVN_ID set to 'trunk' for ",
"$trunk_url ($_trunk)\n";
}
cmd_init($trunk_url);
command_noisy('config', 'svn.trunk', $trunk_url); command_noisy('config', 'svn.trunk', $trunk_url);
} }
} }
$_prefix = '' unless defined $_prefix;
complete_url_ls_init($url, $_branches, '--branches/-b', $_prefix); complete_url_ls_init($url, $_branches, '--branches/-b', $_prefix);
complete_url_ls_init($url, $_tags, '--tags/-t', $_prefix . 'tags/'); complete_url_ls_init($url, $_tags, '--tags/-t', $_prefix . 'tags/');
} }
@ -900,27 +897,20 @@ sub complete_url_ls_init {
} }
my $full_url = complete_svn_url($url, $path); my $full_url = complete_svn_url($url, $path);
my @ls = libsvn_ls_fullurl($full_url); my @ls = libsvn_ls_fullurl($full_url);
defined(my $pid = fork) or croak $!; foreach my $u (map { "$full_url/$_" } (grep m!/$!, @ls)) {
if (!$pid) { $u =~ s#/+$##;
foreach my $u (map { "$full_url/$_" } (grep m!/$!, @ls)) { if ($u !~ m!\Q$full_url\E/(.+)$!) {
$u =~ s#/+$##; print STDERR "W: Unrecognized URL: $u\n";
if ($u !~ m!\Q$full_url\E/(.+)$!) { die "This should never happen\n";
print STDERR "W: Unrecognized URL: $u\n"; }
die "This should never happen\n"; # don't try to init already existing refs
} my $id = $pfx.$1;
# don't try to init already existing refs my $gs = eval { Git::SVN->new($id) };
my $id = $pfx.$1; unless ($gs) {
$GIT_SVN = $ENV{GIT_SVN_ID} = $id; print "init $u => $id\n";
init_vars(); Git::SVN->init($id, $u);
unless (-d $GIT_SVN_DIR) {
print "init $u => $id\n";
cmd_init($u);
}
} }
exit 0;
} }
waitpid $pid, 0;
croak $? if $?;
my ($n) = ($switch =~ /^--(\w+)/); my ($n) = ($switch =~ /^--(\w+)/);
command_noisy('config', "svn.$n", $full_url); command_noisy('config', "svn.$n", $full_url);
} }