diff options
author | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:24:49 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:27:07 +0200 |
commit | 03d827e2fbc409ef97829f25b8eeca5204f81a3c (patch) | |
tree | 6099f0feb9adf3425fba87549b164043e18bd0c7 /git-bdiff | |
parent | 45cddd072119c5abd7ec076cf28d51ee01f125b7 (diff) | |
download | xutil-03d827e2fbc409ef97829f25b8eeca5204f81a3c.tar.gz |
Re-organize files
Diffstat (limited to 'git-bdiff')
-rwxr-xr-x | git-bdiff | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/git-bdiff b/git-bdiff deleted file mode 100755 index 9b39ad4..0000000 --- a/git-bdiff +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl - -# git-bdiff -- fake compare binary files - -use strict; -use warnings; - -my $i; - -if (@ARGV == 1) { - $i = 0; -} elsif (@ARGV == 7) { - $i = 4; -} else { - die <<USAGE -usage: $0 file - or $0 a t A s b B S -USAGE -} - -my @deps; -(my $path = $ARGV[$i]) =~ s,[^/]*$,,; -(my $target = $ARGV[$i]) =~ s,.*/,,; -(my $ext = $target) =~ s/.*\.//; -(my $basename = $target) =~ s/\.[^.]*$//; -chomp(my $repo = `git rev-parse --show-toplevel`); - -open my $f, '<', "$repo/${path}Makefile" - or die "could not open $repo/${path}Makefile: $!\n"; -while (<$f>) { - # explicit - if (/^\Q$target\E:\s*(.*)/) { - push @deps, "$repo/$path$_" for split /\s/, $1; - last; - } - # implicit - if (/^\.([^ .]+)\.\Q$ext\E\s*:\s*(.*)/) { - push @deps, "$repo/$path$basename.$1"; - push @deps, "$repo/$path$_" for split /\s/, $2; - last; - } -} -close $f; -die "no dependencies found, cannot compare\n" if not @deps; - -$i = 0; -for (`git diff HEAD -- @deps`) { - print if @ARGV == 7; - $i = 1; -} -exit $i if @ARGV == 1; |