xkbdesc/tests genLists4Comparizon.sh,1.1,1.2

[Sergey V. Oudaltsov]

Committed by: svu

Update of /cvs/xlibs/xkbdesc/tests
In directory gabe:/tmp/cvs-serv12708/tests

Modified Files:
	genLists4Comparizon.sh 
Log Message:
improved testing for the new group naming convention

Index: genLists4Comparizon.sh
===================================================================
RCS file: /cvs/xlibs/xkbdesc/tests/genLists4Comparizon.sh,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- genLists4Comparizon.sh	22 Dec 2004 22:16:19 -0000	1.1
+++ genLists4Comparizon.sh	15 Jan 2005 01:57:03 -0000	1.2
@@ -9,8 +9,31 @@
 for i in $ROOT/symbols/*; do
   if [ -f $i ]; then
     id="`basename $i`"
-    gawk 'BEGIN{FS="\""}/^[[:space:]]*name\[Group1\][[:space:]]*=/{print $2;}' $i | while read name; do
-      echo "$id:\"$name\""
+    gawk 'BEGIN{
+  FS="\""
+  isDefault=0;
+}
+/.*default.*/{
+  isDefault=1;
+}
+/xkb_symbols/{
+  variant=$2;
+}/^[[:space:]]*name\[Group1\][[:space:]]*=/{
+  if (isDefault==1)
+  {
+    printf "___ %s\n",$2;
+    isDefault=0;
+  } else
+  {
+    printf "%s %s\n",variant,$2;
+  }
+}' $i | while read var name; do
+      # read one variable!
+      if [ "${var}" == "___" ]; then
+        echo "${id}:\"${name}\""
+      else
+        echo "${id}(${var}):\"${name}\""
+      fi
     done
   fi
 done | sort | uniq > $F2