| 283 |
|
|
| 284 |
my $prop_def; |
my $prop_def; |
| 285 |
my $prop_value; |
my $prop_value; |
| 286 |
my $prop_flag; |
my $prop_flag = ''; |
| 287 |
$t = $tt->get_next_token while $t->{type} == S_TOKEN; |
$t = $tt->get_next_token while $t->{type} == S_TOKEN; |
| 288 |
if ($t->{type} == IDENT_TOKEN) { # property |
if ($t->{type} == IDENT_TOKEN) { # property |
| 289 |
my $prop_name = lc $t->{value}; ## TODO: case folding |
my $prop_name = lc $t->{value}; ## TODO: case folding |
| 382 |
redo S; |
redo S; |
| 383 |
} |
} |
| 384 |
|
|
| 385 |
my $important = (defined $prop_flag and $prop_flag eq 'important'); |
my $important = ($prop_flag eq 'important'); |
| 386 |
for my $set_prop_name (keys %{$prop_value or {}}) { |
for my $set_prop_name (keys %{$prop_value or {}}) { |
| 387 |
my $set_prop_def = $Prop->{$set_prop_name}; |
my $set_prop_def = $Prop->{$set_prop_name}; |
| 388 |
$$current_decls->{$set_prop_def->{key}} |
$$current_decls->{$set_prop_def->{key}} |