From e263011deb092730e6599414581ac52cae5523c3 Mon Sep 17 00:00:00 2001
From: loganek <marcin.kolny@gmail.com>
Date: Wed, 31 Jul 2013 19:14:59 +0200
Subject: enums.pl: fixed multi-argument defines as enum values

---
 tools/enum.pl | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

(limited to 'tools')

diff --git a/tools/enum.pl b/tools/enum.pl
index 844b9245..c8dd301b 100755
--- a/tools/enum.pl
+++ b/tools/enum.pl
@@ -196,8 +196,33 @@ sub process($$)
   my $unknown_val = "";
   my $unknown_base = "";
   my $unknown_increment = 0;
-  foreach my $i (split(/,/, $line))
+
+  my @lines = split(/,/, $line);
+  my $iter = 0;
+
+  while ($iter < scalar @lines)
   {
+    my $brackets_count = 0;
+    my $begin = $iter;
+
+    # ignore ',' inside () brackets
+    # except '(' and ')' enum values
+    if ($lines[$iter] =~ /^\s*\S+\s*=\s*'[\(\)]'$/)
+    {
+	$iter++;
+    }
+    else
+    {
+      do
+      {							        
+        $brackets_count += () = $lines[$iter] =~ /\(/g;
+	$brackets_count -= () = $lines[$iter] =~ /\)/g;	
+	$iter++;
+      } while ($iter < scalar @lines && $brackets_count != 0);
+    }
+
+    my $i = join(',', @lines[$begin..$iter-1]);
+    
     # remove leading and trailing spaces.
     $i =~ s/^\s+//;
     $i =~ s/\s+$//;
@@ -255,7 +280,8 @@ sub process($$)
     # if name with other name exists [like MY_FLAG_VALUE = MY_PREV_FLAG_VALUE
     # or ~(MY_PREV_FLAG_VALUE | MY_EARLIER_VALUE | (1 << 5) - 1 | 0x200)].
     # [MY_FLAG MY_OTHER_FLAG is also supported - note lack of equal char.]
-    elsif ($i =~ /^(\S+)\s*=?\s*([ _x0-9a-fA-Z|()<~]+)$/)
+    # [SOME_DEFINITION([X, [Y, [...]]]) definition is also supported.]
+    elsif ($i =~ /^(\S+)\s*=?\s*([ _x0-9a-fA-Z|()<~,]+)$/)
     {
       my ($tmp1, $tmp2) = ($1, $2);
       push(@c_names, $tmp1);
-- 
cgit v1.2.1