[glibmm] gmmproc: Change messages that MS Visual Studio can misunderstand

[Kjell Ahlstedt <kjellahl src gnome org>]

commit e241f1593580314ea7215769eea2a0dc0b83feea
Author: Kjell Ahlstedt <kjell ahlstedt bredband net>
Date:   Mon Dec 1 10:20:19 2014 +0100

    gmmproc: Change messages that MS Visual Studio can misunderstand
    
    * tools/gmmproc.in:
    * tools/pm/DocsParser.pm:
    * tools/pm/Output.pm: Change messages that MS Visual Studio can misunderstand.
    https://mail.gnome.org/archives/gtkmm-list/2014-November/msg00044.html

 tools/gmmproc.in       |   11 ++++++++---
 tools/pm/DocsParser.pm |    5 +++--
 tools/pm/Output.pm     |    5 +++--
 3 files changed, 14 insertions(+), 7 deletions(-)
---
diff --git a/tools/gmmproc.in b/tools/gmmproc.in
index 8b57653..e929503 100644
--- a/tools/gmmproc.in
+++ b/tools/gmmproc.in
@@ -123,22 +123,27 @@ if ($main::unwrapped)
     # Don't take non-readable construct-only properties into account.
     my @properties = grep { $$_{entity_type} eq 'property' and ( $$_{readable} or not $$_{construct_only} ) 
} @unwrapped;
 
+    # Don't print a name of any kind between the first and second colon on a line,
+    # if there is any chance that "error" is (part of) the name.
+    # MS Visual Studio will misunderstand.
+    # See https://mail.gnome.org/archives/gtkmm-list/2014-November/msg00044.html
+
     local $, = "\ngmmproc:   ";
     local $\ = "\n";
 
     if (@methods)
     {
-      print STDERR ("gmmproc: $main::source: Unwrapped functions:",
+      print STDERR ("gmmproc, $main::source: Unwrapped functions:",
                     map($$_{c_name}, @methods));
     }
     if (@properties)
     {
-      print STDERR ("gmmproc: $main::source: Unwrapped properties:",
+      print STDERR ("gmmproc, $main::source: Unwrapped properties:",
                     map($$_{class} . '::' . $$_{name}, @properties));
     }
     if (@signals)
     { 
-      print STDERR ("gmmproc: $main::source: Unwrapped signals:",
+      print STDERR ("gmmproc, $main::source: Unwrapped signals:",
                     map($$_{class} . '::' . $$_{name}, @signals));
     }
   }
diff --git a/tools/pm/DocsParser.pm b/tools/pm/DocsParser.pm
index c771fc3..23af3a6 100644
--- a/tools/pm/DocsParser.pm
+++ b/tools/pm/DocsParser.pm
@@ -375,7 +375,8 @@ sub remove_example_code($$)
     ($$text =~ s"<programlisting>.*?</programlisting>"\n[C example ellipted]"sg);
   $example_removals += ($$text =~ s"\|\[.*?]\|"\n[C example ellipted]"sg);
 
-  print STDERR "gmmproc: $main::source: $obj_name: Example code discarded.\n"
+  # See "MS Visual Studio" comment in gmmproc.in.
+  print STDERR "gmmproc, $main::source, $obj_name: Example code discarded.\n"
     if ($example_removals);
 }
 
@@ -691,7 +692,7 @@ sub lookup_object_of_method($$)
     }
     else
     {
-      print "DocsParser.pm:lookup_object_of_method(): Warning: GtkDefs::lookup_object() failed for object 
name=" . $object . ", function name=" . $name . "\n";
+      print "DocsParser.pm: lookup_object_of_method(): Warning: GtkDefs::lookup_object() failed for object 
name=" . $object . ", function name=" . $name . "\n";
       print "  This may be a missing define-object in a *.defs file.\n"
     }
   }
diff --git a/tools/pm/Output.pm b/tools/pm/Output.pm
index 05e0fa1..3eff097 100644
--- a/tools/pm/Output.pm
+++ b/tools/pm/Output.pm
@@ -72,15 +72,16 @@ sub output_wrap_failed($$$)
 {
   my ($self, $cname, $error) = @_;
 
+  # See "MS Visual Studio" comment in gmmproc.in.
   my $str = sprintf("//gtkmmproc error: %s : %s", $cname, $error);
-  print STDERR "Output.pm: $main::source: $cname : $error\n";
+  print STDERR "Output.pm, $main::source, $cname : $error\n";
   $self->append($str);
 }
 
 sub error
 {
   my $format=shift @_;
-  printf STDERR "Output.pm: $main::source: $format",@_;
+  printf STDERR "Output.pm, $main::source: $format",@_;
 }
 
 sub ifdef($$)