[gentoo-commits] proj/perl-overlay:master commit in: scripts/

[Kent Fredric]

commit:     077c56991ca754e120779d002824ba6cff99ddea
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Tue Jul 31 00:35:48 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Tue Jul 31 00:35:48 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=077c5699

[scripts] add my diff itemization scripts Ive been using for a while

---
 scripts/itemise_diff_distinfo.pl |   44 +++++++++++
 scripts/itemise_diff_distmap.pl  |  150 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 194 insertions(+), 0 deletions(-)

diff --git a/scripts/itemise_diff_distinfo.pl b/scripts/itemise_diff_distinfo.pl
new file mode 100644
index 0000000..ad9819f
--- /dev/null
+++ b/scripts/itemise_diff_distinfo.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.12.1;
+
+# FILENAME: itemise_diff.pl
+# CREATED: 17/04/12 04:06:11 by Kent Fredric (kentnl) <kentfredric@×××××.com>
+# ABSTRACT: Show the relevant parts from git diff
+
+my $fh;
+if ( not @ARGV ) {
+  $fh = *STDIN;
+}
+else {
+  open $fh, '<', $ARGV[0] or die;
+}
+
+my @seen;
+my @seen_status;
+
+my $archive;
+
+while ( defined( my $line = <$fh> ) ) {
+  chomp $line;
+  push @seen, $line;
+  if ( $line =~ /^([+-]|)\s+"archive_canon"\s+:\s+"([^"]+)"/ ) {
+    my $polarity = $1;
+    $archive = $2;
+    say "new: $archive" if $polarity eq '+';
+  }
+  if ( $line =~ /^([+-])\s+"status"\s+:\s+"([^"]+)"/ ) {
+    my ( $stat, $value ) = ( "$1", "$2" );
+    my $current = [ $stat, $value , $archive];
+    push @seen_status, $current;
+    my $has_prev = exists $seen_status[-2];
+    my $prev;
+    $prev = $seen_status[-2] if $has_prev;
+
+    if ( $has_prev and $current->[1] eq 'backpan' and $prev->[1] ne 'backpan' and $prev->[2] eq $current->[2] and $current->[0] eq '+' and $prev->[0] eq '-' ) {
+      say "del: $archive";
+    }
+  }
+}

diff --git a/scripts/itemise_diff_distmap.pl b/scripts/itemise_diff_distmap.pl
new file mode 100644
index 0000000..b69bad2
--- /dev/null
+++ b/scripts/itemise_diff_distmap.pl
@@ -0,0 +1,150 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.12.1;
+
+# FILENAME: itemise_diff.pl
+# CREATED: 17/04/12 04:06:11 by Kent Fredric (kentnl) <kentfredric@×××××.com>
+# ABSTRACT: Show the relevant parts from git diff
+
+my $fh;
+if ( not @ARGV ) {
+  $fh = *STDIN;
+}
+else {
+  open $fh, '<', $ARGV[0] or die;
+}
+
+my @seen;
+my @seen_status;
+
+my $category = "";
+my $package = "";
+my $repo = "";
+
+my $dstash = {};
+my $stash_key = "";
+my $in_versions;
+
+sub process_stash {
+  my ( $key ) = @_;
+  #say "* $key";
+  if ( not exists $dstash->{$key} ) {
+    #say "-- no stash";
+    return;
+  }
+  if ( not keys %{$dstash->{$key}} ) {
+    #say "-- no keys";
+    return;
+  }
+  for my $keyname ( keys %{$dstash->{$key}} ) {
+      my $value = $dstash->{$key}->{$keyname};
+      if ( $value eq '+' ) {
+        say "newversion   $key @ $keyname";
+      } else {
+        say "removed      $key @ $keyname";
+      }
+  }
+}
+sub set_package {
+  my ( $polarity, $_package ) = @_;
+  $package = $_package;
+  $in_versions = undef;
+}
+
+sub set_repo {
+  my ( $polarity, $_repo ) = @_;
+  $repo = $_repo;
+  say "\nADD       $category/${package}::$repo\n" if $polarity eq '+';
+  say "\nTREECLEAN $category/${package}::$repo\n" if $polarity eq '-';
+
+}
+
+sub set_category {
+  my ( $_category ) = @_;
+  $category = $_category;
+  $package = "";
+  $in_versions = undef;
+}
+
+sub set_version_plus {
+  my ( $key, $version ) = @_;
+  if ( not exists $dstash->{$key} ){ 
+    $dstash->{$key} = {};
+  }
+  if ( not exists $dstash->{$key}->{$version} ) {
+    $dstash->{$key}->{$version} = '+';
+    return;
+  }
+  if ( $dstash->{$key}->{$version} eq '-' ) {
+    delete $dstash->{$key}->{$version};
+    return;
+  }
+  die "Wut";
+}
+sub set_version_minus {
+  my ( $key, $version ) = @_;
+  if ( not exists $dstash->{$key} ){ 
+    $dstash->{$key} = {};
+  }
+  if ( not exists $dstash->{$key}->{$version} ) {
+    $dstash->{$key}->{$version} = '-';
+    return;
+  }
+  if ( $dstash->{$key}->{$version} eq '+' ) {
+    delete $dstash->{$key}->{$version};
+    return;
+  }
+  die "Wut";
+}
+
+
+while ( defined( my $line = <$fh> ) ) {
+  chomp $line;
+  push @seen, $line;
+  my $last_pkg = $package;
+
+  $stash_key = "$category/${package}::$repo";
+
+  if ( $line =~ /^([+-]|)\s+"category"\s+:\s+"([^"]+)"/ ) {
+    set_category($2);
+  }
+  if ( $line =~ /^([+-]|)\s+"package"\s+:\s+"([^"]+)"/ ) {
+    set_package( $1, $2 );
+  }
+  if ( $line =~ /^([+-]|)\s+"repository"\s+:\s+"([^"]+)"/ ) {
+    set_repo($1, $2 );
+  }
+
+  if ( $last_pkg ne $package and $last_pkg ne "" ) {
+    process_stash( $stash_key );
+    next;
+  }
+
+
+  if ( $line =~ /^([+-]|)\s+"versions_gentoo"\s+:\s+\[/ ) {
+    $in_versions = 1;
+    next;
+  }
+  if ( $in_versions && $line =~ /^([+-]|)\s+\]/ ){
+    $in_versions = undef;
+    next;
+  }
+
+  next if not $in_versions;
+
+  if ( $in_versions && $line =~ /^([+-])\s+"([^"]+)"/ ){
+     my $polarity = $1;
+     my $version = $2;
+     if ( $polarity eq '+' ) {
+       set_version_plus( $stash_key, $version );
+       next;
+     } else {
+       set_version_minus( $stash_key, $version );
+       next;
+     }
+  }
+
+}
+process_stash($stash_key);