canonicalize dictionaries using new format

to allow ".1" which means "child of previous attribute"

share/format.pl

@@ -36,6 +36,7 @@
 
 $begin_vendor = 0;
 $blank = 0;
+$previous = "";
 
 while (@ARGV) {
     $filename = shift;
@@ -74,6 +75,13 @@
 	#
 	s/^\s*([^#])/$1/;
 
+	#
+	#  Not an ATTRIBUTE? Suppress "previous" checks.
+	#
+	if (!/^ATTRIBUTE/) {
+	    $previous = "";
+	}
+
 	#
 	#  Remember the vendor
 	#
@@ -160,6 +168,22 @@
 		$stuff =~ s/\s+$//;
 	    }
 
+	    #
+	    #  The numerical value doesn't start with ".".
+	    #
+	    #  If the current attribute is a child of the previous
+	    #  one, then just print out the child values.
+	    #
+	    #  Otherwise, remember this attribute as the new "previous"
+	    #
+	    if ($value !~ /^\./) {
+		if ($value =~ /^$previous(\..+)$/) {
+		    $value = $1;
+		} else {
+		    $previous = $value;
+		}
+	    }
+
 	    push @output, "ATTRIBUTE\t$name$tabs$value\t$type$stuff\n";
 	    next;
 	}