svn commit: r373602 - head/devel/git/files
Alfred Perlstein
alfred at FreeBSD.org
Sat Nov 29 06:48:21 UTC 2014
Author: alfred (src committer)
Date: Sat Nov 29 06:48:20 2014
New Revision: 373602
URL: https://svnweb.freebsd.org/changeset/ports/373602
QAT: https://qat.redports.org/buildarchive/r373602/
Log:
Support for git svn propset.
From: https://github.com/splbio/git/tree/v2.1.2-git-svn-propset
Reviewed by: bapt
Phabric: https://reviews.freebsd.org/D1154
Added:
head/devel/git/files/README.patches (contents, props changed)
head/devel/git/files/patch-git-svn.perl (contents, props changed)
head/devel/git/files/patch-perl_Git_SVN_Editor.pm (contents, props changed)
Added: head/devel/git/files/README.patches
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/devel/git/files/README.patches Sat Nov 29 06:48:20 2014 (r373602)
@@ -0,0 +1,8 @@
+ $FreeBSD$
+
+ These two patches:
+ patch-git-svn.perl
+ patch-perl_Git_SVN_Editor.pm
+ Are forward ported from: http://marc.info/?l=git&m=125259772625008&w=2
+ Updated here: https://github.com/splbio/git/tree/v2.1.2-git-svn-propset
+
Added: head/devel/git/files/patch-git-svn.perl
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/devel/git/files/patch-git-svn.perl Sat Nov 29 06:48:20 2014 (r373602)
@@ -0,0 +1,80 @@
+--- git-svn.perl.orig 2014-11-16 02:01:16 UTC
++++ git-svn.perl
+@@ -115,7 +115,7 @@ my ($_stdin, $_help, $_edit,
+ $_before, $_after,
+ $_merge, $_strategy, $_preserve_merges, $_dry_run, $_parents, $_local,
+ $_prefix, $_no_checkout, $_url, $_verbose,
+- $_commit_url, $_tag, $_merge_info, $_interactive);
++ $_commit_url, $_tag, $_merge_info, $_interactive, $_set_svn_props);
+
+ # This is a refactoring artifact so Git::SVN can get at this git-svn switch.
+ sub opt_prefix { return $_prefix || '' }
+@@ -193,6 +193,7 @@ my %cmd = (
+ 'dry-run|n' => \$_dry_run,
+ 'fetch-all|all' => \$_fetch_all,
+ 'commit-url=s' => \$_commit_url,
++ 'set-svn-props=s' => \$_set_svn_props,
+ 'revision|r=i' => \$_revision,
+ 'no-rebase' => \$_no_rebase,
+ 'mergeinfo=s' => \$_merge_info,
+@@ -228,6 +229,9 @@ my %cmd = (
+ 'propget' => [ \&cmd_propget,
+ 'Print the value of a property on a file or directory',
+ { 'revision|r=i' => \$_revision } ],
++ 'propset' => [ \&cmd_propset,
++ 'Set the value of a property on a file or directory - will be set on commit',
++ {} ],
+ 'proplist' => [ \&cmd_proplist,
+ 'List all properties of a file or directory',
+ { 'revision|r=i' => \$_revision } ],
+@@ -1370,6 +1374,50 @@ sub cmd_propget {
+ print $props->{$prop} . "\n";
+ }
+
++# cmd_propset (PROPNAME, PROPVAL, PATH)
++# ------------------------
++# Adjust the SVN property PROPNAME to PROPVAL for PATH.
++sub cmd_propset {
++ my ($propname, $propval, $path) = @_;
++ $path = '.' if not defined $path;
++ $path = $cmd_dir_prefix . $path;
++ usage(1) if not defined $propname;
++ usage(1) if not defined $propval;
++ my $file = basename($path);
++ my $dn = dirname($path);
++ # diff has check_attr locally, so just call direct
++ #my $current_properties = check_attr( "svn-properties", $path );
++ my $current_properties = Git::SVN::Editor::check_attr( "svn-properties", $path );
++ my $new_properties = "";
++ if ($current_properties eq "unset" || $current_properties eq "" || $current_properties eq "set") {
++ $new_properties = "$propname=$propval";
++ } else {
++ # TODO: handle combining properties better
++ my @props = split(/;/, $current_properties);
++ my $replaced_prop = 0;
++ foreach my $prop (@props) {
++ # Parse 'name=value' syntax and set the property.
++ if ($prop =~ /([^=]+)=(.*)/) {
++ my ($n,$v) = ($1,$2);
++ if ($n eq $propname)
++ {
++ $v = $propval;
++ $replaced_prop = 1;
++ }
++ if ($new_properties eq "") { $new_properties="$n=$v"; }
++ else { $new_properties="$new_properties;$n=$v"; }
++ }
++ }
++ if ($replaced_prop eq 0) {
++ $new_properties = "$new_properties;$propname=$propval";
++ }
++ }
++ my $attrfile = "$dn/.gitattributes";
++ open my $attrfh, '>>', $attrfile or die "Can't open $attrfile: $!\n";
++ # TODO: don't simply append here if $file already has svn-properties
++ print $attrfh "$file svn-properties=$new_properties\n";
++}
++
+ # cmd_proplist (PATH)
+ # -------------------
+ # Print the list of SVN properties for PATH.
Added: head/devel/git/files/patch-perl_Git_SVN_Editor.pm
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/devel/git/files/patch-perl_Git_SVN_Editor.pm Sat Nov 29 06:48:20 2014 (r373602)
@@ -0,0 +1,84 @@
+--- perl/Git/SVN/Editor.pm.orig 2014-09-30 19:00:40 UTC
++++ perl/Git/SVN/Editor.pm
+@@ -288,6 +288,49 @@ sub apply_autoprops {
+ }
+ }
+
++sub check_attr
++{
++ my ($attr,$path) = @_;
++ if ( open my $fh, '-|', "git", "check-attr", $attr, "--", $path )
++ {
++ my $val = <$fh>;
++ close $fh;
++ $val =~ s/^[^:]*:\s*[^:]*:\s*(.*)\s*$/$1/;
++ return $val;
++ }
++ else
++ {
++ return undef;
++ }
++}
++
++sub apply_manualprops {
++ my ($self, $file, $fbat) = @_;
++ my $pending_properties = check_attr( "svn-properties", $file );
++ if ($pending_properties eq "") { return; }
++ # Parse the list of properties to set.
++ my @props = split(/;/, $pending_properties);
++ # TODO: get existing properties to compare to - this fails for add so currently not done
++ # my $existing_props = ::get_svnprops($file);
++ my $existing_props = {};
++ # TODO: caching svn properties or storing them in .gitattributes would make that faster
++ foreach my $prop (@props) {
++ # Parse 'name=value' syntax and set the property.
++ if ($prop =~ /([^=]+)=(.*)/) {
++ my ($n,$v) = ($1,$2);
++ for ($n, $v) {
++ s/^\s+//; s/\s+$//;
++ }
++ # FIXME: clearly I don't know perl and couldn't work out how to evaluate this better
++ if (defined $existing_props->{$n} && $existing_props->{$n} eq $v) {
++ my $needed = 0;
++ } else {
++ $self->change_file_prop($fbat, $n, $v);
++ }
++ }
++ }
++}
++
+ sub A {
+ my ($self, $m, $deletions) = @_;
+ my ($dir, $file) = split_path($m->{file_b});
+@@ -296,6 +339,7 @@ sub A {
+ undef, -1);
+ print "\tA\t$m->{file_b}\n" unless $::_q;
+ $self->apply_autoprops($file, $fbat);
++ $self->apply_manualprops($m->{file_b}, $fbat);
+ $self->chg_file($fbat, $m);
+ $self->close_file($fbat,undef,$self->{pool});
+ }
+@@ -311,6 +355,7 @@ sub C {
+ my $fbat = $self->add_file($self->repo_path($m->{file_b}), $pbat,
+ $upa, $self->{r});
+ print "\tC\t$m->{file_a} => $m->{file_b}\n" unless $::_q;
++ $self->apply_manualprops($m->{file_b}, $fbat);
+ $self->chg_file($fbat, $m);
+ $self->close_file($fbat,undef,$self->{pool});
+ }
+@@ -333,6 +378,7 @@ sub R {
+ $upa, $self->{r});
+ print "\tR\t$m->{file_a} => $m->{file_b}\n" unless $::_q;
+ $self->apply_autoprops($file, $fbat);
++ $self->apply_manualprops($m->{file_b}, $fbat);
+ $self->chg_file($fbat, $m);
+ $self->close_file($fbat,undef,$self->{pool});
+
+@@ -348,6 +394,7 @@ sub M {
+ my $fbat = $self->open_file($self->repo_path($m->{file_b}),
+ $pbat,$self->{r},$self->{pool});
+ print "\t$m->{chg}\t$m->{file_b}\n" unless $::_q;
++ $self->apply_manualprops($m->{file_b}, $fbat);
+ $self->chg_file($fbat, $m);
+ $self->close_file($fbat,undef,$self->{pool});
+ }
More information about the svn-ports-all
mailing list