From: Yaacov Akiba Slama <ya@slamail.org>
Date: Wed, 2 Nov 2005 21:51:57 +0000 (+0200)
Subject: Add node_kind function to differentiate between file and directory
X-Git-Tag: v0.99.9g^2~2^2~6
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=cbce5d8961f7790a621f7cee6ecb2c25ae372867;p=git.git

Add node_kind function to differentiate between file and directory

Signed-off-by: Yaacov Akiba Slama <ya@slamail.org>
Signed-off-by: Junio C Hamano <junkio@cox.net>
---

diff --git a/git-svnimport.perl b/git-svnimport.perl
index 5bf9ef21..83b70f9b 100755
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -260,10 +260,17 @@ EOM
 
 open BRANCHES,">>", "$git_dir/svn2git";
 
-sub get_file($$$) {
-	my($rev,$branch,$path) = @_;
+sub node_kind($$$) {
+	my ($branch, $path, $revision) = @_;
+	my $pool=SVN::Pool->new;
+	my $kind = $svn->{'svn'}->check_path(revert_split_path($branch,$path),$revision,$pool);
+	$pool->clear;
+	return $kind;
+}
+
+sub revert_split_path($$) {
+	my($branch,$path) = @_;
 
-	# revert split_path(), below
 	my $svnpath;
 	$path = "" if $path eq "/"; # this should not happen, but ...
 	if($branch eq "/") {
@@ -274,6 +281,14 @@ sub get_file($$$) {
 		$svnpath = "$branch_name/$branch/$path";
 	}
 
+	return $svnpath
+}
+
+sub get_file($$$) {
+	my($rev,$branch,$path) = @_;
+
+	my $svnpath = revert_split_path($branch,$path);
+
 	# now get it
 	my $name;
 	if($opt_d) {