From 26a5e271f5cb54e873ffdbb77ce6288e6ae29da9 Mon Sep 17 00:00:00 2001
From: Hayden Hamilton <hayden@hhvn.uk>
Date: Mon, 14 Sep 2026 19:59:57 +0100
Subject: Replace buggy Makeclean.rc with uninstall+install sequence

---
 Makeclean.rc | 69 ------------------------------------------------------------
 1 file changed, 69 deletions(-)
 delete mode 100755 Makeclean.rc

(limited to 'Makeclean.rc')

diff --git a/Makeclean.rc b/Makeclean.rc
deleted file mode 100755
index d2d138f..0000000
--- a/Makeclean.rc
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/bin/rc
-
-# This script will remove any deleted scripts/dirs previously copied into $1
-# If a directory is present, has previously been copied into $1,
-# but no longer contains any executable scripts, this will also be removed.
-
-bin = $1
-
-touch .installed .dirsmade
-installed = `$nl{cat .installed}
-dirsmade  = `$nl{cat .dirsmade}
-
-fn sigexit {
-	if (~ $clean_installed ()) {
-		rm .installed
-	} else {
-		{for (s in $clean_installed) { echo $s }} > .installed
-	}
-
-	if (~ $clean_dirsmade ()) {
-		rm .dirsmade
-	} else {
-		{for (d in $clean_dirsmade) { echo $d }} > .dirsmade
-	}
-}
-
-for (s in $installed) {
-	p = $bin/$s
-	if (test -f $s && test -x $s) {
-		clean_installed = ($clean_installed $s)
-	} else {
-		echo RM $p
-		rm $p
-		removed = ($removed $p)
-	}
-}
-
-fn check_dir_used {
-	d = $1 {
-		for (s in $clean_installed) {
-			ds = `$nl{dirname $s}
-			if (!~ $ds '.') {
-				p = '.'
-				for (e in `$nl'/'{echo $ds}) {
-					p = $p/$e
-					if (~ `$nl{echo $p | sed 's/^\.\///'} $d){
-						return 0
-					}
-				}
-			}
-		}
-	}
-	return 1
-}
-
-for (d in $dirsmade) {
-	p = $bin/$d
-	if (test -d $d && check_dir_used $d) {
-		clean_dirsmade = ($clean_dirsmade $d)
-	} else {
-		echo RMDIR $p
-		rmdir $p
-		removed = ($removed $p)
-	}
-}
-
-if (~ $removed ()) {
-	echo nothing to clean
-}
-- 
cgit v1.2.3