Rename smokeqt -> smoketqt

1 files changed, 55 insertions, 0 deletions

diff --git a/smoke/tqt/generate_makefile_am.pl b/smoke/tqt/generate_makefile_am.pl
new file mode 100755
index 00000000..61995278
--- /dev/null
+++ b/smoke/tqt/generate_makefile_am.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/perl -w
+
+use File::Basename;
+
+my $here = `pwd`;
+chomp $here;
+my $outdir = $here;
+my $tempfile = "$outdir/.Makefile.am.tmpfile";
+
+# Update list of source files in $outdir/Makefile.am
+open( MAKEFILE, "<$outdir/Makefile.am" ) or die;
+my $makeFileData = '';
+my $found = 0;
+while (<MAKEFILE>) {
+	if (/^libsmoketqt_la_SOURCES/)
+	{
+		$found = 1;
+		$makeFileData .= "libsmoketqt_la_SOURCES = smokedata.cpp";
+	}
+	$makeFileData .= $_ if (!$found);
+}
+close MAKEFILE;
+
+die "libsmoketqt_la_SOURCES not found" if (!$found);
+
+open( MAKEFILE, ">$tempfile" ) or die;
+print MAKEFILE $makeFileData;
+
+my $count = 0;
+opendir (FILES, $outdir) or die;
+foreach $filename (readdir(FILES)) {
+	if ( $filename =~ /^x_.*\.cpp$/ ) {
+		if ( $count++ == 7 ) {
+			$count = 0;
+			print MAKEFILE " \\\n";
+		}
+		print MAKEFILE " $filename";
+	}
+}
+
+print MAKEFILE "\n";
+close MAKEFILE;
+closedir FILES;
+
+system "cmp -s $tempfile $outdir/Makefile.am";
+if ($? >> 8) {
+    system "cp -f $tempfile $outdir/Makefile.am";
+    print STDERR "Makefile.am updated.\n";
+}
+else {
+    print STDERR "Makefile.am unchanged.\n";
+}
+system "rm -f $tempfile";
+
+exit 0;