#!/usr/bin/perl
## PARSE XHTML (PERHAPS OTHERS?) DTD INTO HTML DISPLAYING ELEMENT SCOPES
$DTD = "xhtml1-strict.dtd";
open (FP, $DTD);
$TXT = join ("", );
close (FP);
## REMOVE COMMENTS ANYTHING BETWEEN PAIR OF '--'
$TXT =~ s/--((-[^-])|[^-])*--//gs;
## REMOVE NEWLINES
$TXT =~ s/(\n|\r)/ /gs;
## COLLAPSE MULTIPLE WHITESPACES TO ONE
$TXT =~ s/[ \t]+/ /gs;
## PARSE ENTITIES
while ($TXT =~ /]*)>/gs) {
$t1 = $1;
$t2 = $2;
$t2 =~ s/\"//gs;
$entities{"$t1"} = $t2;
}
## PARSE ELEMENTS
while ($TXT =~ /]*)>/gs) {
$elements{"$1"} = $2;
}
## RESOLVE ALL ENTITIY REFERENCES WITHIN ELEMENTS
foreach (keys(%elements)) {
while ($elements{"$_"} =~ /%([^;]+);/sg) {
$t1 = $1;
$elements{"$_"} =~ s/%$t1;/$entities{"$t1"}/sg;
}
}
## DUMP DESCRIPTIVE HEADER OF WHAT THIS SCRIPT OUTPUTS
print qq{XHTML ELEMENT IN QUESTION
XHTML ELEMENTS
- allowed within these elements
- elements allowed within this element
};
foreach (sort(keys(%elements))) {
$el = $_;
print "\n$el
\n\n- " ;
## LIST ELEMENTS IT'S ALLOWED WITHIN
foreach (keys(%elements)) {
$elements{$_} =~ /[^a-zA-Z]$el[^a-zA-Z]/ and print "$_ ";
}
## LIST ELEMENTS ALLOWED WITHIN IT
print "\n
\n- $elements{$_}\n
\n";
}
print qq{