blob: a84ca0d485f7b33357ae1288a8da2205332fe3c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#!/usr/bin/env perl
# Purpose: To extract the svgprops data from the
# SVG 1.1 2nd Ed specification file attindex.html. The file can be found at:
#
# http://www.w3.org/TR/SVG/attindex.html
#
# Note cssprops must be generated first to pickup "Presentation Attributes".
# Author: Tavmjong Bah
# Rewrite of script by Abhishek
use strict;
use warnings;
use HTML::TokeParser;
my $p= HTML::TokeParser->new('attindex.html') or die "Can't open file: $!";
my %attributes;
my $attribute;
# Loop over tokens
while( my $t = $p->get_token ) {
# Look for <tr> (start token with value 'tr').
if( $t->[0] eq 'S' and lc $t->[1] eq 'tr') {
print "---------\n";
my $column = 0;
while( $t = $p->get_token ) {
# Keep track of column
if( $t->[0] eq 'S' and lc $t->[1] eq 'td') {
$column++;
$t = $p->get_token; # Skip to next token
}
if( $column == 1 and $t->[0] eq 'S' and lc $t->[1] =~ 'span') {
# First column is always attribute name, defined inside <span>.
$t = $p->get_token;
$attribute = $t->[1];
$attribute =~ s/‘//; # Opening single quote
$attribute =~ s/’//; # Closing single quote
print "Attribute: $attribute\n";
}
if( $column == 2 and $t->[0] eq 'S') {
# Second column is list of elements, each inside its own span.
if( lc $t->[1] eq 'span' && ${$t->[2]}{'class'} =~ 'element-name' ) {
$t = $p->get_token;
my $element = $t->[1];
$element =~ s/‘//; # Opening single quote
$element =~ s/’//; # Closing single quote
print " Elements: $element\n";
push @{$attributes{ $attribute }->{elements}}, $element;
} else {
# print " Not Elements: $t->[1]\n";
}
}
if( $t->[0] eq 'E' and lc $t->[1] eq 'tr') {
last;
}
}
}
# Stop if we get to presentation attributes
if( $t->[0] eq 'S' and lc $t->[1] eq 'h2') {
$t = $p->get_token;
if( $t->[1] =~ /Presentation/ ) {
print "Found: $t->[1], quiting.\n";
last;
}
}
}
# Adjustments
push @{$attributes{ "in" }->{elements}}, "feMergeNode";
# Output
open( ELEMENTS, ">svgprops_new" ) or die "Couldn't open output";
for $attribute ( sort keys %attributes ) {
print ELEMENTS "\"$attribute\" - ";
my $first = 0;
foreach (@{$attributes{ $attribute }->{elements}}) {
if( $first != 0 ) {
print ELEMENTS ",";
}
$first = 1;
print ELEMENTS "\"$_\"";
}
print ELEMENTS "\n\n";
}
# Copy cssprops verbatim. For every CSS property there is a
# corresponding "Presentation Attribute".
open( PROPERTIES, "cssprops" ) or die "Couldn't open $!";
while( <PROPERTIES> ) {
print ELEMENTS;
}
|
