From 421685bd49c1fee67120421407da2304ac42ba82 Mon Sep 17 00:00:00 2001
From: Bruce Mitchener <bruce.mitchener@gmail.com>
Date: Thu, 21 Jan 2021 14:43:26 +0700
Subject: [PATCH] Remove find-writes and fixid. (#264)

---
 bin/find-writes |  4 ----
 bin/fixid       | 63 -------------------------------------------------
 2 files changed, 67 deletions(-)
 delete mode 100755 bin/find-writes
 delete mode 100755 bin/fixid

diff --git a/bin/find-writes b/bin/find-writes
deleted file mode 100755
index 843b013..0000000
--- a/bin/find-writes
+++ /dev/null
@@ -1,4 +0,0 @@
-#! /bin/csh
-foreach f (*)
-if ( -w $f) echo $f
-end
diff --git a/bin/fixid b/bin/fixid
deleted file mode 100755
index 4f32573..0000000
--- a/bin/fixid
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/usr/local/bin/perl
-
-# $Id: fixid,v 1.1 1999/01/03 04:00:20 sybalsky Exp $ #
-
-
-#************************************************************************/
-#*									*/
-#*	(C) Copyright 1999 Venue. All Rights Reserved.  		*/
-#*	Manufactured in the United States of America.			*/
-#*									*/
-#************************************************************************/
-
-######################################################################
-#                                                                    #
-#   FIXID -- fix up the ID comment and static in source files        #
-#                                                                    #
-######################################################################
-
-$file = shift;
-chomp $file;
-
-printf "File is %s.\n", $file;
-
-open IN, "<" . $file;
-open OUT, ">".$file.".new";
-
-## Copy the first two lines of the file (ID comment & static)
-
-$line = <IN>;
-printf OUT "%s", $line;
-$line = <IN>;
-printf OUT "%s", $line;
-
-
-## Now copy the rest of the file, omitting any line with a (#)
-## in it (the likeliest ID Comment/static contents for SCCS.
-
-$line = <IN>;
-
-while ( $line )
-  {
-	 if ( $line =~ /\(#\)/ )
-	   {
-		 printf "Omitting line: %s", $line;
-		 }
-		 else
-		 {
-		   printf OUT "%s", $line;
-		   }
-		   $line = <IN>;
-
-		   }
-
-close IN;
-close OUT;
-
-## Save the original file, and put the "fixed" on in its place.
-
-`mv $file $file.orig`;
-`mv $file.new $file`;
-
-
-