[glibmm] gmmproc: Don't interpret a comma as the end of a deprecation message

[Kjell Ahlstedt <kjellahl src gnome org>]

commit ec3c5564637e476b49d731536445a922cd2560fe
Author: Kjell Ahlstedt <kjell ahlstedt bredband net>
Date:   Sun May 25 16:21:55 2014 +0200

    gmmproc: Don't interpret a comma as the end of a deprecation message
    
    * tools/pm/WrapParser.pm: extract_bracketed_text(): Warn if the text ends
    in a quoted string.
    string_split_commas(): Don't split at a comma in a quoted string.

 tools/pm/WrapParser.pm |   53 +++++++++++++++++++++++++++++++++--------------
 1 files changed, 37 insertions(+), 16 deletions(-)
---
diff --git a/tools/pm/WrapParser.pm b/tools/pm/WrapParser.pm
index d956fd2..f7df4ba 100644
--- a/tools/pm/WrapParser.pm
+++ b/tools/pm/WrapParser.pm
@@ -635,6 +635,7 @@ sub extract_bracketed_text($)
   my ($self) = @_;
 
   my $level = 1;
+  my $in_quotes = 0;
   my $str = "";
 
   # Move to the first "(":
@@ -644,14 +645,24 @@ sub extract_bracketed_text($)
       last if ($t eq "(");
     }
 
+  # TODO: Don't count "(" and ")" within double quotes.
+  # There may be .hg files with unpaired quotes that generate correct
+  # .h and .cc files. Don't want to break such code yet.
+  # See also TODO in string_split_commas().
+
   # Concatenate until the corresponding ")":
   while ( scalar(@tokens) )
     {
       my $t = $self->extract_token();
+      $in_quotes = !$in_quotes if ($t eq '"');
       $level++ if ($t eq "(");
       $level-- if ($t eq ")");
 
-      return $str if (!$level);
+      if (!$level)
+      {
+        $self->error("End of gmmproc directive within a quoted string.\n") if $in_quotes;
+        return $str;
+      }
       $str .= $t;
     }
 
@@ -669,15 +680,22 @@ sub string_split_commas($)
   my @out;
   my $level = 0;
   my $in_braces = 0;
+  my $in_quotes = 0;
   my $str = "";
-  my @in = split(/([,()<>{}])/, $in);
+  my @in = split(/([,"()<>{}])/, $in);
 
-  while ($#in > -1)
-    {
-      my $t = shift @in;
+  while (scalar(@in))
+  {
+    my $t = shift @in;
 
-      next if ($t eq "");
+    next if ($t eq "");
 
+    # TODO: Delete the test for scalar(@out) >= 2 when we can stop accepting
+    # .hg files with unpaired quotes, such as _WRAP_PROPERTY("text_column, int).
+    # See also TODO in extract_bracketed_text().
+    $in_quotes = !$in_quotes if ($t eq '"' and scalar(@out) >= 2);
+    if (!$in_quotes)
+    {
       $in_braces++ if ($t eq "{");
       $in_braces-- if ($t eq "}");
 
@@ -688,18 +706,21 @@ sub string_split_commas($)
       # a parameter in a method declaration is an output param. 
       $level-- if ($t eq ")" or ($t eq ">" && !$in_braces));
 
-      # skip , inside functions  Ie.  void (*)(int,int)
-      if ( ($t eq ",") && !$level) 
-        {
-          push(@out, $str);
-          $str="";
-          next;
-        }
-
-      $str .= $t;
+      # Don't split at comma, if inside a function, e.g. void f1(int x, int y)
+      # or std::map<Glib::ustring, float> f2(),
+      # or inside a quoted string, e.g. deprecated "Use f1(), f2() or f3() instead.".
+      if ($t eq "," && !$level)
+      {
+        push(@out, $str);
+        $str = "";
+        next;
+      }
     }
 
-  push(@out,$str);
+    $str .= $t;
+  }
+
+  push(@out, $str);
   return @out;
 }