Import of SBURKE/HTML-Tagset-3.02 from CPAN.

gitpan-cpan-distribution: HTML-Tagset
gitpan-cpan-version:      3.02
gitpan-cpan-path:         SBURKE/HTML-Tagset-3.02.tar.gz
gitpan-cpan-author:       SBURKE
gitpan-cpan-maturity:     released

Author: Sean M. Burke

ChangeLog

@@ -1,5 +1,10 @@
 Revision history for Perl extension HTML::TagSet
-                                        Time-stamp: "2000-08-21 01:39:24 MDT"
+                                        Time-stamp: "2000-09-04 14:54:19 MDT"
+
+2000-09-04  Sean M. Burke  sburke@cpan.org
+
+	* Release 3.02
+	Added %is_Possible_Strict_P_Content.
 
 2000-08-21  Sean M. Burke  sburke@cpan.org
 

README

@@ -1,5 +1,5 @@
 README for HTML::Tagset
-                                        Time-stamp: "2000-08-21 01:38:22 MDT"
+                                        Time-stamp: "2000-08-22 22:42:38 MDT"
 
 			  HTML::Tagset
 
@@ -62,3 +62,6 @@ COPYRIGHT
 
 Copyright 1999,2000 Sean M. Burke <sburke@cpan.org>; Copyright
 1995-2000 Gisle Aas; all rights reserved.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.

Tagset.pm

@@ -1,19 +1,20 @@
 
 require 5;
-package HTML::Tagset;   # Time-stamp: "2000-08-21 01:34:10 MDT"
+package HTML::Tagset;   # Time-stamp: "2000-09-04 14:21:24 MDT"
 use strict;
 use vars qw(
  $VERSION
  %emptyElement %optionalEndTag %linkElements %boolean_attr
  %isHeadElement %isBodyElement %isPhraseMarkup
+ %is_Possible_Strict_P_Content
  %isHeadOrBodyElement
  %isList %isTableElement %isFormElement
  %isKnown %canTighten
  @p_closure_barriers
  %isCDATA_Parent
 );
 
-$VERSION = '3.01';
+$VERSION = '3.02';
 
 =head1 NAME
 
@@ -183,6 +184,35 @@ This hashset contains all phrasal-level elements.
 );  # had: center, hr, table
 
 
+=item hashset %HTML::Tagset::is_Possible_Strict_P_Content
+
+This hashset contains all phrasal-level elements that be content of a
+P element, for a strict model of HTML.
+
+=cut
+
+%is_Possible_Strict_P_Content = (
+ %isPhraseMarkup,
+ %isFormElement,
+ map {; $_ => 1} qw( object script map )
+  # I've no idea why there's these latter exceptions.
+  # I'm just following the HTML4.01 DTD.
+);
+
+#from html4 strict:
+#<!ENTITY % fontstyle "TT | I | B | BIG | SMALL">
+#
+#<!ENTITY % phrase "EM | STRONG | DFN | CODE |
+#                   SAMP | KBD | VAR | CITE | ABBR | ACRONYM" >
+#
+#<!ENTITY % special
+#   "A | IMG | OBJECT | BR | SCRIPT | MAP | Q | SUB | SUP | SPAN | BDO">
+#
+#<!ENTITY % formctrl "INPUT | SELECT | TEXTAREA | LABEL | BUTTON">
+#
+#<!-- %inline; covers inline or "text-level" elements -->
+#<!ENTITY % inline "#PCDATA | %fontstyle; | %phrase; | %special; | %formctrl;">
+
 =item hashset %HTML::Tagset::isHeadElement
 
 This hashset contains all elements that elements that should be