# Purpose: To extract the css_defaults and cssprops data from the
# SVG 1.1 2nd Ed specification file propidx.html. The file can be found at:
#
#
# A number of adjustments must be made after parsing the HTML file.
# Author: Tavmjong Bah
# Rewrite of script by Abhishek
use strict;
use warnings;
use HTML::TokeParser;
# Groups of elements defined in spec.
# Note "use" is not a container element but it acts like one!
# Note "flowRoot, flowPara, flowSpan, flowRegion, and flowRect are Inkscape
# specific (failed SVG1.2 items)
my @container_elements = ("a", "defs", "glyph", "g", "marker", "mask", "missing-glyph", "pattern", "svg", "switch", "symbol", "use");
my @graphics_elements = ("circle", "ellipse", "image", "line", "path", "polygon", "polyline", "rect", "text", "use");
my @filter_primitives = ("feBlend", "feColorMatrix", "feComponentTransfer", "feComposite", "feConvolveMatrix",
"feDiffuseLighting", "feDisplacementMap", "feFlood", "feGaussianBlur", "feImage",
"feMerge", "feMorphology", "feOffset", "feSpecularLighting", "feTile", "feTurbulence" );
my @text_content_elements = ("altGlyph", "textPath", "text", "tref", "tspan", "flowRoot", "flowPara", "flowSpan");
my %properties;
my $property;
# 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
}
# First column is always property name, defined inside <span>.
# print " span ${$t->[2]}{'class'}\n";
# if( ${$t->[2]}{'class'} =~ 'prop-name' ) {
# print " $t->[4]\n";
# } $property =~ s/\‘//;
$t = $p->get_token;
$property = $t->[1];
$property =~ s/‘//; # Opening single quote
$property =~ s/’//; # Closing single quote
print "Property: $property\n";
}
# Third column is default value (simple text).
my $default = $t->[1];
print " Default: $default\n";
}
# Fourth column is "Applies to"
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";
} elsif ( lc $t->[1] eq 'a' ) {
my $text = $p->get_trimmed_text;
if( $text ne "" ) {
print " Text ->$text<-\n";
if( $text =~ "container" ) {
print " Adding container elements\n";
}
if( $text =~ "text" ) {
print " Adding text content elements\n";
}
if( $text =~ "graphics" ) {
print " Adding graphics elements\n";
}
if( $text =~ "primitives" ) {
print " Adding filter primitive elements\n";
}
if( $text =~ "shape" ) {
print " Adding shape elements\n";
}
if( $text =~ "viewport" ) {
print " Adding viewport elements\n";
}
}
} else {
print " Not Elements: $t->[1]\n";
}
}
# Fifth column is inherit value (simple text).
my $inherit = $t->[1];
print " Inherit: $inherit\n";
}
if( $t->[0] eq 'E' and lc $t->[1] eq 'tr') {
last;
}
}
}
}
# Adjustments
$properties{ "overflow" }->{default} = "hidden"; # On all but outermost <svg>, user agent style sheet sets this to hidden.
# This is the safest thing to do....
#
push @{$properties{ "color" }->{elements}}, "stop", "feFlood", "feDiffuseLighting", "feSpecularLighting";
# "title" isn't in the SVG spec (except for style sheets) but it is commonly supported by browsers
# Inkscape uses CSS property 'line-height' even though this is not part of SVG spec.
# Inkscape uses CSS property 'text-align' for flowed text. It is not an SVG 1.1 property
# but is found in SVG 1.2 Tiny.
# Compositing and Blending Level 1
# SVG2
# CSS Text Decoration
# CSS Writing Modes
# CSS Transformations
# Output
for $property ( sort keys %properties ) {
print "$property:\t$properties{ $property }->{default}\t$properties{ $property }->{inherit}\n";
# Must add container elements to all properties that are inherited.
# But not if they have already been added
}
}
print " @{ $properties{ $property }->{elements}}\n";
print DEFAULTS "\"$property\" - \"$properties{ $property }->{default}\" - \"$properties{ $property }->{inherit}\"\n\n";
print ELEMENTS "\"$property\" - ";
my $first = 0;
if( $first != 0 ) {
print ELEMENTS ",";
}
$first = 1;
print ELEMENTS "\"$_\"";
}
print ELEMENTS "\n\n";
}