Maintenance: remove unused mk-globals-c.pl script

diff --git a/src/Makefile.am b/src/Makefile.am
index 8e124e6de89d376de5c3dab5bb4668755cab50da..15efa8916b141bcf7c7bb25d7e4c6f9ed9cafcd5 100644 (file)
--- 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 a0c8bd8fec9e2ebd63eac117d70a32ee065b78ee..82f33fed7560f326d14a42cf8cd2c4f12cc63d57 100644 (file)
--- 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 (executable)
index 60a34b4..0000000
--- 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;