[css2] Now take sinto account the "level" at the end of the definition.

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

Author: bert-github

css2/bin/pextr

@@ -2,7 +2,7 @@
 # Extract entries from the CSS properties database
 # The database has the following format:
 # name;; values;; initial-value;; applies-to;; 
-# inherited;; percentages;; media;;
+# inherited;; percentages;; media;; CSS-level
 # Special characters: 
 #  1) Translate "*" into the words "all elements"
 #  1.a) Translate "XX" into "not defined for shorthand properties"
@@ -13,7 +13,7 @@
 #     <span class="propinst-name">&lt;'name'&gt;</span>     
 #
 # Ian Jacobs - ij@w3.org (Based on work by Arnaud Le Hors)
-# $Id: pextr,v 1.19 2002-04-23 15:13:19 bbos Exp $
+# $Id: pextr,v 1.20 2002-07-30 18:02:07 bbos Exp $
 #
 
 $PROGNAME = substr($0, rindex($0, "/") + 1);
@@ -60,6 +60,7 @@ my $applies = $_[3];
 my $inherited = $_[4];
 my $percentages = $_[5];
 my $media = $_[6];
+my $level = $_[7];
 #Do next three lines in src files to get headings right.
 print output "<div class=\"propdef\">\n";
 print output "<dl><dt>\n";
@@ -158,15 +159,15 @@ sub format_media {
 
 # extract every possible block
 $_ = $buf;
-while (/$blockst$patt;;$patt;;$patt;;$patt;;$patt;;$patt;;$patt$blocket/s) {
+while (/$blockst$patt;;$patt;;$patt;;$patt;;$patt;;$patt;;$patt;;$patt$blocket/s) {
     # Set parameters first (before any modifications)
     $placeholder = $';
     my @names = split(/[, \t\n]+/, $1);
     my $name = $names[0];
     $output = "$path$name.srb";
     print "\textracting $output\n";
     open(output, "> $output");
-    &format_property($1, $2, $3, $4, $5, $6, $7);
+    &format_property($1, $2, $3, $4, $5, $6, $7, $8);
     close(output);
     $_ = $placeholder;
 }