[css2] Added option -l.

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%401949

Author: bert-github

css2/bin/mkpropidx

@@ -1,7 +1,7 @@
 #!/usr/local/bin/perl
 # Index of property names.
 # Arnaud Le Hors lehors@w3.org/Ian Jacobs ij@w3.org
-# $Id: mkpropidx,v 2.7 2002-07-25 20:28:24 bbos Exp $
+# $Id: mkpropidx,v 2.8 2002-08-21 11:44:43 bbos Exp $
 use English;
 
 
@@ -23,7 +23,7 @@ while ($ARGV[0] =~ /^-/) {
 $PROGNAME = substr($0, rindex($0, "/") + 1);
 
 if (!$ARGV[1]) {
-    print "Usage: $PROGNAME [-r realpath] indexfile dbase\n";
+    print "Usage: $PROGNAME [-r realpath] [-l level] indexfile dbase\n";
     exit 1;
 } else {
     $indexf = $ARGV[0];
@@ -47,7 +47,7 @@ sub readdb {
     }
     $INPUT_RECORD_SEPARATOR="/*";
     $buf = "";
-    $indexes = ();
+    @indexes = ();
     while ($buf = <DBASE>) {
 	$INPUT_RECORD_SEPARATOR="*/";
 	unless (eof(DBASE)) {
@@ -58,7 +58,7 @@ sub readdb {
 		$key = $2;
 		# Newlines and tabs-> space
 		$data =~ s/[\n\t]+/ /gs;
-		$indexes{$key} = $data;
+		push(@indexes, ($data));
 	    } else {
 		warn "Bad syntax: $entry\n";
 	    }
@@ -163,8 +163,8 @@ sub table_head {
 }
 
 sub table_body {
-    foreach $key (sort (keys %indexes)) {
-	($name, $val, $init, $app, $inh, $perc, $media, $csslevels) = split(/;;/, $indexes{$key});
+    foreach $x (sort @indexes) {
+	($name, $val, $init, $app, $inh, $perc, $media, $csslevels) = split(/;;/, $x);
         if (! defined $level || $csslevels =~ /\b$level\b/) {
 	  print OUTPUT "<tr>";
 	  format_name($name);