From 03d827e2fbc409ef97829f25b8eeca5204f81a3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 12 Jul 2021 13:24:49 +0200
Subject: Re-organize files

---
 git-bdiff | 51 ---------------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100755 git-bdiff

(limited to 'git-bdiff')

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;
-- 
cgit v1.2.3