gmmproc: Use '.' instead of '-' in parameter reordering.

	* tools/pm/Function.pm (parse_param): Use a '.' instead of a '-' to
	signify that the C++ parameter name should be used as the C parameter
	name to map the current C++ parameter to.

2 files changed, 16 insertions, 8 deletions

diff --git a/ChangeLog b/ChangeLog
index 0fd9d0db..782f12a9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2011-06-12  José Alburquerque  <jaalburqu@svn.gnome.org>
+
+	gmmproc: Use '.' instead of '-' in parameter reordering.
+
+	* tools/pm/Function.pm (parse_param): Use a '.' instead of a '-' to
+	signify that the C++ parameter name should be used as the C parameter
+	name to map the current C++ parameter to.
+
 2011-06-09  José Alburquerque  <jaalburqu@svn.gnome.org>
 
 	Gio::DBus::Connection::emit_signal(): Say why convert empty strings.
diff --git a/tools/pm/Function.pm b/tools/pm/Function.pm
index cfa64ad6..8032c047 100644
--- a/tools/pm/Function.pm
+++ b/tools/pm/Function.pm
@@ -254,13 +254,13 @@ sub parse_param($$)
 
       # Determine if the param is optional or if a C param name should be
       # mapped to the current C++ index (if name ends with {c_name?}). (A
-      # '-' for the name means use the C++ as the C name).
-      if ($name =~ /\{\s*(\w*|-)\s*(\??)\s*\}$/)
+      # '.' for the name means use the C++ as the C name).
+      if ($name =~ /\{\s*(\w*|\.)\s*(\??)\s*\}$/)
       {
         $is_optional = 1 if($2);
         $mapping = $1 if($1);
-        $name =~ s/\{\s*(\w|-)*\??\s*\}$//;
-        $mapping = $name if($mapping eq "-");
+        $name =~ s/\{\s*(\w|\.)*\??\s*\}$//;
+        $mapping = $name if($mapping eq ".");
       }
 
       push(@$param_types, $type);
@@ -326,13 +326,13 @@ sub parse_param($$)
 
   # Determine if the param is optional or if a C param name should be
   # mapped to the current C++ index (if name ends with {c_name?}). (A
-  # '-' for the name means use the C++ as the C name).
-  if ($name =~ /\{\s*(\w*|-)\s*(\??)\s*\}$/)
+  # '.' for the name means use the C++ as the C name).
+  if ($name =~ /\{\s*(\w*|\.)\s*(\??)\s*\}$/)
   {
     $is_optional = 1 if($2);
     $mapping = $1 if($1);
-    $name =~ s/\{\s*(\w*|-)\??\s*\}$//;
-    $mapping = $name if($mapping eq "-");
+    $name =~ s/\{\s*(\w*|\.)\??\s*\}$//;
+    $mapping = $name if($mapping eq ".");
   }
 
   push(@$param_types, $type);