[glibmm/gmmproc-refactor] Print a progress of wrapping.

[Krzesimir Nowak <krnowak src gnome org>]

commit b8cf77cfbd964a038ea244f0dca53c908afa4420
Author: Krzesimir Nowak <qdlacz gmail com>
Date:   Sun Jul 22 17:35:48 2012 +0200

    Print a progress of wrapping.

 tools/pm/Common/Gmmproc.pm |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)
---
diff --git a/tools/pm/Common/Gmmproc.pm b/tools/pm/Common/Gmmproc.pm
index 6636042..12f3ffb 100644
--- a/tools/pm/Common/Gmmproc.pm
+++ b/tools/pm/Common/Gmmproc.pm
@@ -22,6 +22,7 @@ package Common::Gmmproc;
 
 use strict;
 use warnings;
+use v5.12;
 
 use IO::File;
 
@@ -143,6 +144,7 @@ sub _read_all_bases
       exit 1;
     }
 
+    say ('Tokenizing ' . $base . '.{h,cc}g');
     $tokens_store->set_hg_tokens (_tokenize_contents_ (join '', $fd->getlines));
     $fd->close;
 
@@ -177,6 +179,7 @@ sub _scan_all_bases
     my $tokens_ccg = $tokens_store->get_ccg_tokens;
     my $scanner = Common::Scanner->new ($tokens_hg, $tokens_ccg);
 
+    say ('Scanning ' . $base . '.{h,cc}g');
     $scanner->scan;
     $tokens_store->set_tuples ($scanner->get_tuples);
     $tokens_store->set_modules ($scanner->get_modules);
@@ -226,6 +229,7 @@ sub _parse_all_bases
                                                $base,
                                                $wrap_init_namespace);
 
+    say ('Parsing ' . $base . '.{h,cc}g');
     $wrap_parser->parse;
     $tokens_store->set_section_manager ($wrap_parser->get_section_manager);
     $tokens_store->set_wrap_init_entries ($wrap_parser->get_wrap_init_entries ());
@@ -308,6 +312,7 @@ sub _generate_wrap_init
 
   die unless (defined ($wrap_init_cc));
 
+  say ('Generating wrap_init.cc');
   $wrap_init_cc->say ('// generated by gmmproc');
   $wrap_init_cc->say ();
   $wrap_init_cc->say ('// general includes');
@@ -417,6 +422,7 @@ sub _generate_all_bases
     my $cc_file = File::Spec->catfile ($destination_dir, $base . '.cc');
     my $p_h_file = File::Spec->catfile ($destination_dir, 'private', $base . '_p.h');
 
+    say ('Generating {' . $base . '.{h,cc},private/' . $base . '.h}');
     $section_manager->write_main_section_to_file (Common::Sections::H, $h_file);
     $section_manager->write_main_section_to_file (Common::Sections::CC, $cc_file);
     $section_manager->write_main_section_to_file (Common::Sections::P_H, $p_h_file);