trunk/models/update-Makefile.pl

#!/usr/local/bin/perl5 -w
#

#  This script updates the variable INSTALL_FILE_LIST in the
#  `Makefile.in' file in this directory.  The script sets
#  INSTALL_FILE_LIST to the list of non-Makefile-files listed in the
#  CVS/Entries file.  The former value of INSTALL_FILE_LIST is lost,
#  but a backup copy of Makefile.in is available in `Makefile.in.$$~'
#  where $$ is the process-id.

#  Load modules.  man <module-name> for more info.
use strict;
use IO::File;

#  The Makefile variable to update
my $update_macro = 'INSTALL_FILE_LIST';

#  @files will contain the list of files to add to the Makefile.in
my @files = ();

#  @exclude contains the list of files NOT to add to Makefile.in
my @exclude = qw(configure configure.in
                 Makefile.in Makefile.Rules.in Makefile.Template
                 update-Makefile.pl);

#  Convert the exclude array into a hash for quick lookup
my %exclude = ();
foreach (@exclude) {
    $exclude{$_} = 1;
}

#  Populate @files by reading the CVS/Entries file in this directory
&readEntries('.');

#  Sort files
@files = sort @files;

#  Rename `Makefile.in' to `Makefile.in.$$~'
my $new = 'Makefile.in';
my $old = "$new.$$~";
rename( $new, $old ) ||
    die "Cannot rename $new: $!";

#  Open the files
my $NEW = new IO::File $new, 'w';
my $OLD = new IO::File $old;
die "Cannot open $new: $!" unless defined $NEW;
die "Cannot open $old: $!" unless defined $OLD;

#  Read in the old version.  We do a straight copy until we find
#  $update_macro, at which point we ignore everthing in the old
#  version until the end of $update_macro definition, and we insert
#  the list of files we found (in @files).
while( <$OLD> ) {
    $NEW->print( $_);
    next unless /^$update_macro\s*=/o;
    #  Ignore everything in $OLD until the end of $update_macro
    while( <$OLD> ) {
        next if m,\\,;
        last;
    }
    #  The last line in the $update_macro definition does not end in a
    #  backslash, so we have to treat it specially
    my $last = pop @files;
    #  Print each file in @files
    foreach my $f ( @files ) {
        $NEW->print( "\t", $f, " \\\n" );
    }
    #  Now print the last one
    $NEW->print( "\t", $last, "\n" );
}

#  Close the files
$OLD->close() || die "Cannot close $old: $!";
$NEW->close() || die "Cannot close $new: $!";

#  All done!
exit;

#  Add most of the files in the CVS/Entries file to the global @files
#  variable (ignore those in %exclude).  The argument to readEntries
#  is the directory which the CVS/Entries file applies to
sub readEntries {
    my($dir) = @_;
    # localize globals
    local($_,$!,$1);
    # open the CVS/Entries file
    my $entry = new IO::File "CVS/Entries";
    die "Cannot open $_/Entries: $!" unless defined $entry;
    # For each line in $entry, split the line on slash and check to
    # see if the file name is in %exclude; if not, add it to the
    # global variable @files
    while( <$entry> ) {
        my($empty,$file,$version,$data,$misc) = split( '/', $_ );
        next if defined $exclude{$file};
        push @files, $file;
    }
    $entry->close() || die "Cannot close $dir/CVS/Entries: $!";
}
1	#!/usr/local/bin/perl5 -w
2	#
3
4	# This script updates the variable INSTALL_FILE_LIST in the
5	# `Makefile.in' file in this directory. The script sets
6	# INSTALL_FILE_LIST to the list of non-Makefile-files listed in the
7	# CVS/Entries file. The former value of INSTALL_FILE_LIST is lost,
8	# but a backup copy of Makefile.in is available in `Makefile.in.$$~'
9	# where $$ is the process-id.
10
11	# Load modules. man <module-name> for more info.
12	use strict;
13	use IO::File;
14
15	# The Makefile variable to update
16	my $update_macro = 'INSTALL_FILE_LIST';
17
18	# @files will contain the list of files to add to the Makefile.in
19	my @files = ();
20
21	# @exclude contains the list of files NOT to add to Makefile.in
22	my @exclude = qw(configure configure.in
23	Makefile.in Makefile.Rules.in Makefile.Template
24	update-Makefile.pl);
25
26	# Convert the exclude array into a hash for quick lookup
27	my %exclude = ();
28	foreach (@exclude) {
29	$exclude{$_} = 1;
30	}
31
32	# Populate @files by reading the CVS/Entries file in this directory
33	&readEntries('.');
34
35	# Sort files
36	@files = sort @files;
37
38	# Rename `Makefile.in' to `Makefile.in.$$~'
39	my $new = 'Makefile.in';
40	my $old = "$new.$$~";
41	rename( $new, $old ) \|\|
42	die "Cannot rename $new: $!";
43
44	# Open the files
45	my $NEW = new IO::File $new, 'w';
46	my $OLD = new IO::File $old;
47	die "Cannot open $new: $!" unless defined $NEW;
48	die "Cannot open $old: $!" unless defined $OLD;
49
50	# Read in the old version. We do a straight copy until we find
51	# $update_macro, at which point we ignore everthing in the old
52	# version until the end of $update_macro definition, and we insert
53	# the list of files we found (in @files).
54	while( <$OLD> ) {
55	$NEW->print( $_);
56	next unless /^$update_macro\s*=/o;
57	# Ignore everything in $OLD until the end of $update_macro
58	while( <$OLD> ) {
59	next if m,\\,;
60	last;
61	}
62	# The last line in the $update_macro definition does not end in a
63	# backslash, so we have to treat it specially
64	my $last = pop @files;
65	# Print each file in @files
66	foreach my $f ( @files ) {
67	$NEW->print( "\t", $f, " \\\n" );
68	}
69	# Now print the last one
70	$NEW->print( "\t", $last, "\n" );
71	}
72
73	# Close the files
74	$OLD->close() \|\| die "Cannot close $old: $!";
75	$NEW->close() \|\| die "Cannot close $new: $!";
76
77	# All done!
78	exit;
79
80	# Add most of the files in the CVS/Entries file to the global @files
81	# variable (ignore those in %exclude). The argument to readEntries
82	# is the directory which the CVS/Entries file applies to
83	sub readEntries {
84	my($dir) = @_;
85	# localize globals
86	local($_,$!,$1);
87	# open the CVS/Entries file
88	my $entry = new IO::File "CVS/Entries";
89	die "Cannot open $_/Entries: $!" unless defined $entry;
90	# For each line in $entry, split the line on slash and check to
91	# see if the file name is in %exclude; if not, add it to the
92	# global variable @files
93	while( <$entry> ) {
94	my($empty,$file,$version,$data,$misc) = split( '/', $_ );
95	next if defined $exclude{$file};
96	push @files, $file;
97	}
98	$entry->close() \|\| die "Cannot close $dir/CVS/Entries: $!";
99	}