add code to generate Parrot version macros as a separate PIR include

parrot · May 11, 2011 · 51e393d · 51e393d · fperrad · May 15, 2011
1 parent 6032439
commit 51e393d
Show file tree

Hide file tree

Showing 2 changed files with 41 additions and 0 deletions.
diff --git a/config/gen/makefiles/root.in b/config/gen/makefiles/root.in
@@ -875,6 +875,7 @@ $(PROVE) : parrot-prove.pbc $(PARROT) $(PBC_TO_EXE)
 	$(PBC_TO_EXE) parrot-prove.pbc
 
 $(PARROT_CONFIG) : $(DEV_TOOLS_DIR)/parrot-config.pir $(PARROT) $(PBC_TO_EXE)
+	$(PERL) tools/build/gen_version.pl >runtime/parrot/include/parrot_version.pir
 	$(PARROT) -o parrot_config.pbc $(DEV_TOOLS_DIR)/parrot-config.pir
 	$(PARROT) pbc_to_exe.pbc parrot_config.pbc
 

diff --git a/tools/build/gen_version.pl b/tools/build/gen_version.pl
@@ -0,0 +1,40 @@
+#! perl
+# Copyright (C) 2011, Parrot Foundation.
+
+use warnings;
+use strict;
+use lib 'lib';
+use Parrot::SHA1;
+use Parrot::Git::Describe;
+
+=head1 NAME
+
+tools/build/gen_version.pl - generate runtime/parrot/include/parrot_version.pir
+
+=head1 SYNOPSIS
+
+    % perl tools/build/gen_version.pl >runtime/parrot/include/parrot_version.pir
+
+=head1 DESCRIPTION
+
+Generate C<runtime/parrot/include/parrot_version.pir>, which contains
+information about which commit was used to build parrot.
+
+=cut
+
+my $sha1 = $Parrot::SHA1::current;
+my $describe = $Parrot::Git::Describe::current;
+
+print <<"PIR";
+# generated by tools/build/gen_version.pl
+.macro_const PARROT_SHA1 "$sha1"
+.macro_const PARROT_GIT_DESCRIBE "$describe"
+PIR
+
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4: