AfflictionNetworks/narya
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added --force argument; added support for slurping the $Id$ string out of

Browse Source 
the target file and stuffing it back into the newly generated file so that
the generated file doesn't inherit the $Id$ string of the declaration file
which would generally not be what we want.


git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@971 542714f4-19e9-0310-aa3c-eee0fc999fb1
This commit is contained in:
Michael Bayne
2002-02-08 23:53:58 +00:00
parent 995b6f8ea2
commit 36e70e902d
1 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/gendobj
+22 -5
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# $Id: gendobj,v 1.3 2002/02/08 23:32:16 mdb Exp $ # $Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $
# #
# gendobj is used to generate DObject source file definitons basded on # gendobj is used to generate DObject source file definitons basded on
# abbreviated declarations. Because DObject fields all have standard # abbreviated declarations. Because DObject fields all have standard
@@ -11,11 +11,13 @@
use strict; use strict;
use Getopt::Long; use Getopt::Long;
my $usage = "Usage: $0 <dobj_decl_files>\n"; my $usage = "Usage: $0 [--verbose] [--force] <dobj_decl_files>\n";
# get our options # get our options
my $verbose; my $verbose;
GetOptions("verbose" => \$verbose); my $force;
GetOptions("verbose" => \$verbose,
"force" => \$force);
die $usage unless (@ARGV); die $usage unless (@ARGV);
@@ -23,16 +25,28 @@ my $source;
while ($source = shift) { while ($source = shift) {
# massage the source file name into the destination file name # massage the source file name into the destination file name
my $dest = $source; my $dest = $source;
$dest =~ s/.dobj$/.java/g; $dest =~ s/.dobj$/.java/;
if ($dest !~ /.java$/) { if ($dest !~ /.java$/) {
warn "Unable to infer target file name from original: $source\n"; warn "Unable to infer target file name from original: $source\n";
next; next;
} }
# if the destination file already exists, slurp the existing CVS $Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $
# information out of it so that we can slip that into the new one
my $idstr;
if (-f $dest && open(IN, "$dest")) {
while (<IN>) {
if (/(\$Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $)/) {
$idstr = $1;
}
}
close(IN);
}
# if the destination file is newer than the source file, do nothing # if the destination file is newer than the source file, do nothing
my $dmtime = (stat($dest))[9]; my $dmtime = (stat($dest))[9];
my $smtime = (stat($source))[9]; my $smtime = (stat($source))[9];
if ((defined $dmtime) && ($dmtime > $smtime)) { if (!$force && (defined $dmtime) && ($dmtime > $smtime)) {
warn "Skipping $source as source is newer.\n" if ($verbose); warn "Skipping $source as source is newer.\n" if ($verbose);
next; next;
} }
@@ -51,6 +65,9 @@ while ($source = shift) {
my $mode = "preamble"; my $mode = "preamble";
while (<IN>) { while (<IN>) {
# swap in the parsed $Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $ str if we have one
$_ =~ s/(\$Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $)/$idstr/ if (defined $idstr);
if ($mode eq "preamble") { if ($mode eq "preamble") {
# look to see if we're transitioning from the preamble to the # look to see if we're transitioning from the preamble to the
# class declaration # class declaration