From ab36b5cc1c6551405a4472e30f9c584e5e931d77 Mon Sep 17 00:00:00 2001
From: Amos Jeffries <squid3@treenet.co.nz>
Date: Tue, 25 Aug 2015 07:19:26 -0700
Subject: [PATCH] Maintenance: remove unused mk-globals-c.pl script

---
 src/Makefile.am      |  1 -
 src/mk-globals-c.awk |  4 +---
 src/mk-globals-c.pl  | 49 --------------------------------------------
 3 files changed, 1 insertion(+), 53 deletions(-)
 delete mode 100755 src/mk-globals-c.pl

diff --git a/src/Makefile.am b/src/Makefile.am
index 8e124e6de8..15efa8916b 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -732,7 +732,6 @@ EXTRA_DIST = \
 	cf_gen_defines \
 	cf.data.pre \
 	cf.data.depend \
-	mk-globals-c.pl \
 	mk-globals-c.awk \
 	mk-string-arrays.awk \
 	repl_modules.sh \
diff --git a/src/mk-globals-c.awk b/src/mk-globals-c.awk
index a0c8bd8fec..82f33fed75 100644
--- a/src/mk-globals-c.awk
+++ b/src/mk-globals-c.awk
@@ -6,11 +6,9 @@
 ##
 
 # tested with gawk, mawk, and nawk.
-# drop-in replacement for mk-globals-c.pl.
 # modified to work with Solaris awk (junk).
 # creates "globals.c" (on stdout) from "globals.h".
-# invoke similarly:  perl mk-globals-c.pl globals.h
-#		-->  awk -f mk-globals-c.awk globals.h
+# when invoked:  awk -f mk-globals-c.awk globals.h
 #
 # 2006 by Christopher Kerr.
 
diff --git a/src/mk-globals-c.pl b/src/mk-globals-c.pl
deleted file mode 100755
index 60a34b4e12..0000000000
--- a/src/mk-globals-c.pl
+++ /dev/null
@@ -1,49 +0,0 @@
-## Copyright (C) 1996-2015 The Squid Software Foundation and contributors
-##
-## Squid software is distributed under GPLv2+ license and includes
-## contributions from numerous individuals and organizations.
-## Please see the COPYING and CONTRIBUTORS files for details.
-##
-
-print "#include \"squid.h\"\n";
-while (<>) {
-	$init = undef;
-	next if (/ SQUID_GLOBALS_H/);
-	if (/^#/) {
-		print;
-		next;
-	}
-	if (/^.\*/) {
-		print;
-		next;
-	}
-	if (/extern \"C\"/) {
-		print;
-		next;
-	}
-	if (/^}/) {
-		print;
-		next;
-	}
-	if (/^{/) {
-		print;
-		next;
-	}
-	next unless (/./);
-	next if (/\[\];$/);
-#
-# Check exactly for lines beginning with "    extern", generated
-# from astyle (grrrrr ...)
-#
-	die unless (/^    extern\s+([^;]+);(.*)$/);
-	$var = $1;
-	$comments = $2;
-	if ($comments =~ m+/\*\s*(.*)\s*\*/+) {
-		$init = $1;
-		$init =~ s/\s$// while ($init =~ /\s$/);
-	}
-	print $var;
-	print " = $init" if (defined $init);
-	print ";\n";
-}
-exit 0;
-- 
2.47.3