summaryrefslogtreecommitdiff
path: root/util/mergedep.pl
diff options
context:
space:
mode:
authorFreya Murphy <freya@freyacat.org>2025-03-26 23:21:44 -0400
committerFreya Murphy <freya@freyacat.org>2025-03-26 23:21:44 -0400
commitfbdc3d9e1198d30cd669d8e2e4e5fa34b3d5f104 (patch)
tree7a8c45c76c28eb7c6d9576d1f2d62060624f4c9a /util/mergedep.pl
parentfix symbols (diff)
downloadcomus-fbdc3d9e1198d30cd669d8e2e4e5fa34b3d5f104.tar.gz
comus-fbdc3d9e1198d30cd669d8e2e4e5fa34b3d5f104.tar.bz2
comus-fbdc3d9e1198d30cd669d8e2e4e5fa34b3d5f104.zip
remove unused
Diffstat (limited to '')
-rw-r--r--util/mergedep.pl86
1 files changed, 0 insertions, 86 deletions
diff --git a/util/mergedep.pl b/util/mergedep.pl
deleted file mode 100644
index 1730d53..0000000
--- a/util/mergedep.pl
+++ /dev/null
@@ -1,86 +0,0 @@
-#!/usr/bin/perl
-# Copyright 2003 Bryan Ford
-# Distributed under the GNU General Public License.
-#
-# Usage: mergedep <main-depfile> [<new-depfiles> ...]
-#
-# This script merges the contents of all <new-depfiles> specified
-# on the command line into the single file <main-depfile>,
-# which may or may not previously exist.
-# Dependencies in the <new-depfiles> will override
-# any existing dependencies for the same targets in <main-depfile>.
-# The <new-depfiles> are deleted after <main-depfile> is updated.
-#
-# The <new-depfiles> are typically generated by GCC with the -MD option,
-# and the <main-depfile> is typically included from a Makefile,
-# as shown here for GNU 'make':
-#
-# .deps: $(wildcard *.d)
-# perl mergedep $@ $^
-# -include .deps
-#
-# This script properly handles multiple dependencies per <new-depfile>,
-# including dependencies having no target,
-# so it is compatible with GCC3's -MP option.
-#
-
-sub readdeps {
- my $filename = shift;
-
- open(DEPFILE, $filename) or return 0;
- while (<DEPFILE>) {
- if (/([^:]*):([^\\:]*)([\\]?)$/) {
- my $target = $1;
- my $deplines = $2;
- my $slash = $3;
- while ($slash ne '') {
- $_ = <DEPFILE>;
- defined($_) or die
- "Unterminated dependency in $filename";
- /(^[ \t][^\\]*)([\\]?)$/ or die
- "Bad continuation line in $filename";
- $deplines = "$deplines\\\n$1";
- $slash = $2;
- }
- #print "DEPENDENCY [[$target]]: [[$deplines]]\n";
- $dephash{$target} = $deplines;
- } elsif (/^[#]?[ \t]*$/) {
- # ignore blank lines and comments
- } else {
- die "Bad dependency line in $filename: $_";
- }
- }
- close DEPFILE;
- return 1;
-}
-
-
-if ($#ARGV < 0) {
- print "Usage: mergedep <main-depfile> [<new-depfiles> ..]\n";
- exit(1);
-}
-
-%dephash = ();
-
-# Read the main dependency file
-$maindeps = $ARGV[0];
-readdeps($maindeps);
-
-# Read and merge in the new dependency files
-foreach $i (1 .. $#ARGV) {
- readdeps($ARGV[$i]) or die "Can't open $ARGV[$i]";
-}
-
-# Update the main dependency file
-open(DEPFILE, ">$maindeps.tmp") or die "Can't open output file $maindeps.tmp";
-foreach $target (keys %dephash) {
- print DEPFILE "$target:$dephash{$target}";
-}
-close DEPFILE;
-rename("$maindeps.tmp", "$maindeps") or die "Can't overwrite $maindeps";
-
-# Finally, delete the new dependency files
-foreach $i (1 .. $#ARGV) {
- unlink($ARGV[$i]) or print "Error removing $ARGV[$i]\n";
-}
-