PLATFORM = $(TARGET)+$(GXX-VERSION:intel_%=%)
PLATFORM-HIERARCHY = $(shell $(PERL) ../hierarchy.pl $(PLATFORM))
+ID = "deal"
+ID +="@"`hostname`
+
############################################################
# First how to create executables, including all necessary
# flags:
############################################################
report:
@-$(MAKE) -k run-tests
+ @svn info $D | grep '^Revision'
+ @echo 'Date: ' `date -u +"%Y %j %F %U-%w"`
+ @echo 'Id: ' $(ID)
@for test in $(sort $(tests)) ; do \
echo `date -u +"%Y-%m-%d %H:%M"` "`perl $D/common/scripts/status_to_report.pl $$test/status`" "$(WORKDIR)/$$test" ; \
done
--- /dev/null
+#!/bin/perl
+
+use strict;
+
+my $path = '.';
+my $revision;
+my $id;
+my $date;
+
+while(<>)
+{
+ if (m/^Date:\s*(\d+)\s+(\d+)/)
+ {
+ my $name = sprintf("%s/%04d-%03d", $path, $1, $2);
+# print $name;
+ }
+ $revision = $1 if (m/^Revision:\s*(\d+)/);
+ $id = $1 . $2 if (m/^Id:\s*(\S+)\s+(\S+)?\n/);
+ if (m/^\d\d\d\d-\d\d-\d\d \d\d:\d\d/)
+ {
+ chop;
+ s/\s+/ /g;
+ s/ \+ / 4 /;
+ print "$revision $_ $id\n"
+ }
+}
In the beginning the Universe was created. This has made a lot of
people very angry and has been widely regarded as a bad move.
Douglas Adams