forked from epics_driver_modules/motorBase
Ron Sluiter
24 lines
708 B
Perl
24 lines
708 B
Perl
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
|
|
if $running_under_some_shell; # makeDbDepends.pl
|
|
|
|
# Called from within the object directory.
|
|
# Searches the .substitutions files (from the command line) for
|
|
# "file xxx {" entries to create a .DEPENDS file
|
|
|
|
open(OUT, ">.DEPENDS") or die "Cannot open .DEPENDS: $!";
|
|
|
|
foreach $file (@ARGV) {
|
|
open(IN, "<$file") or die "Cannot open $file: $!";
|
|
@substfile = <IN>;
|
|
close IN or die "Cannot close $file: $!";
|
|
|
|
@depends = grep { s/^\s*file\s*(.*)\s*\{.*$/\1/ } @substfile;
|
|
chomp @depends;
|
|
|
|
if (@depends) {
|
|
$file =~ s/\.substitutions/\.t.db.raw/;
|
|
print OUT "${file}:: @depends\n";
|
|
}
|
|
}
|
|
close OUT or die "Cannot close $file: $!";
|