At a lack for disk space, I'm abusing a family member's 2017 mac.mac

3 files changed, 20 insertions, 13 deletions

diff --git a/check.rc b/check.rc
index 099bce7..cdfdc64 100755
--- a/check.rc
+++ b/check.rc
@@ -1,21 +1,25 @@
-#!/usr/local/plan9/bin/rc
+#!/usr/bin/env rc
+
+fn read {
+	$HOME/9/plan9port-master/bin/read
+}
 
 fn sum {
-	find . -type f | while (file = `{read}) {
-		if (test -f $"file ) {
-			sha256 $"file
+	find $1 -type f | while (f = `{read}) {
+		if (test -f $"f) {
+			shasum -a 256 $"f
 		}
 	}
 }
 
+dir='b'
 previous = ''
-sum | sed -E -e 's/(.*) = (.*)/\2 \1/' -e 's/SHA256 .//' -e 's/.$//' | sort | \
-	tee sum | while (line = `{read}) {
 #cat sum | while (line = `{read}) {
-	sum = `{echo $line | sed -E -e 's/([^ ]*) (.*)/\1/'}
-	file = `{echo $line | sed -E -e 's/([^ ]*) (.*)/\2/'}
+sum $dir | sort | tee sum | while (line = `{read}) {
+	sum = `{echo $line | sed -e 's/ .*//'}
 	if (~ $sum $previous) {
-		echo $"file is a duplicate.
+		file = `{echo $line | sed -e 's/[^ ]*//'}
+		echo $"file
 	}
 	
 	previous = $sum
diff --git a/dedup.rc b/dedup.rc
index 3077b63..7d88c7e 100755
--- a/dedup.rc
+++ b/dedup.rc
@@ -1,3 +1,3 @@
-#!/usr/local/plan9/bin/rc
+#!/usr/bin/env rc
 
 ./check.rc | ./del.rc
diff --git a/del.rc b/del.rc
index 6d05801..c392ae3 100755
--- a/del.rc
+++ b/del.rc
@@ -1,8 +1,11 @@
-#!/usr/local/plan9/bin/rc
+#!/usr/bin/env rc
 
-sed -e 's/ is a duplicate.$//' | while (file = `{read}) {
+fn read {
+        $HOME/9/plan9port-master/bin/read
+}
+while (file = `{read}) {
 	if (test -f $"file) {
-		echo rm $"file >> /mnt/mem/log
+		echo rm $"file >> log
 		rm $"file
 	}
 }