fortitude 0.0.1

data/lib/fortitude/doctypes/html4_tags_frameset.rb

@@ -0,0 +1,52 @@
+require 'fortitude/tag_store'
+require 'fortitude/doctypes/html4_tags_transitional'
+
+module Fortitude
+  module Doctypes
+    module Html4TagsFrameset
+      extend Fortitude::TagStore
+
+      class << self
+        def delegate_tag_stores
+          [ Fortitude::Doctypes::Html4TagsTransitional ]
+        end
+      end
+
+      FRAMESET_BLOCK_CONTENT = %w{noframes}
+      FRAMESET_FLOW_CONTENT = %w{noframes}
+
+      %w{CORE_ATTRIBUTES FLOW_CONTENT ATTRS_ATTRIBUTES}.each do |constant_name|
+        const_set(constant_name, Fortitude::Doctypes::Html4TagsTransitional.const_get(constant_name))
+      end
+
+      # HTML4.01 spec, section 16.2
+      tag :frameset, :newline_before => true, :can_enclose => %w{frameset frame noframes},
+        :valid_attributes => CORE_ATTRIBUTES + %w{rows cols onload onunload},
+        :spec => 'http://www.w3.org/TR/html401/present/frames.html#h-16.2.1'
+      tag :frame, :newline_before => true, :content_allowed => false,
+        :valid_attributes => CORE_ATTRIBUTES + %w{longdesc name src frameborder marginwidth marginheight noresize scrolling},
+        :spec => 'http://www.w3.org/TR/html401/present/frames.html#h-16.2.2'
+      tag :noframes, :newline_before => true, :can_enclose => FLOW_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/frames.html#h-16.4.1'
+
+      # HTML4.01 spec, section 16.5
+      tag :iframe, :newline_before => true, :can_enclose => FLOW_CONTENT,
+        :valid_attributes => CORE_ATTRIBUTES + %w{longdesc name src frameborder marginwidth marginheight scrolling} +
+                             %w{align height width},
+        :spec => 'http://www.w3.org/TR/html401/present/frames.html#h-16.5'
+
+
+      %w{body blockquote map form noscript}.each do |block_content_tag_name|
+        modify_tag(block_content_tag_name) { |t| t.can_enclose += FRAMESET_BLOCK_CONTENT }
+      end
+
+      %w{div ins del li dd th td object button fieldset center applet noframes iframe}.each do |flow_content_tag_name|
+        modify_tag(flow_content_tag_name) { |t| t.can_enclose += FRAMESET_FLOW_CONTENT }
+      end
+
+
+      modify_tag(:html) { |t| t.can_enclose += %w{frameset} }
+    end
+  end
+end

data/lib/fortitude/doctypes/html4_tags_strict.rb

@@ -0,0 +1,273 @@
+require 'fortitude/tag_store'
+
+module Fortitude
+  module Doctypes
+    module Html4TagsStrict
+      extend Fortitude::TagStore
+
+      # HTML4.01 DTD
+      I18N_ATTRIBUTES = %w{lang dir}
+      CORE_ATTRIBUTES = %w{id class style title}
+      EVENTS_ATTRIBUTES = %w{onclick ondblclick onmousedown onmouseup onmouseover onmousemove onmouseout onkeypress onkeydown onkeyup}
+      ATTRS_ATTRIBUTES = CORE_ATTRIBUTES + I18N_ATTRIBUTES + EVENTS_ATTRIBUTES
+
+      CELLHALIGN_ATTRIBUTES = %w{align char charoff}
+      CELLVALIGN_ATTRIBUTES = %w{valign}
+
+      HEADING_CONTENT = %w{h1 h2 h3 h4 h5 h6}
+      # TRANSITIONAL: + %w{dir menu}
+      LIST_CONTENT = %w{ul ol}
+      PREFORMATTED_CONTENT = %w{pre}
+      # TRANSITIONAL: + %w{center noframes isindex}
+      BLOCK_CONTENT = %w{p} + HEADING_CONTENT + LIST_CONTENT + PREFORMATTED_CONTENT + %w{dl div noscript} +
+                      %w{blockquote form hr table fieldset address}
+      # TRANSITIONAL: + %w{u s strike}
+      FONTSTYLE_CONTENT = %w{tt i b big small}
+      PHRASE_CONTENT = %w{em strong dfn code samp kbd var cite abbr acronym}
+      # TRANSITIONAL: + %w{applet font basefont iframe}
+      SPECIAL_CONTENT = %w{a img object br script map q sub sup span bdo}
+      FORMCTRL_CONTENT = %w{input select textarea label button}
+      INLINE_CONTENT = %w{_text} + FONTSTYLE_CONTENT + PHRASE_CONTENT + SPECIAL_CONTENT + FORMCTRL_CONTENT
+      FLOW_CONTENT = BLOCK_CONTENT + INLINE_CONTENT
+
+      # HTML4.01 spec, section 7.3
+      tag :html, :newline_before => true, :valid_attributes => I18N_ATTRIBUTES + %w{version},
+        :can_enclose => %w{head body},
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.3'
+
+      # HTML4.01 spec, section 7.4
+      tag :head, :newline_before => true, :valid_attributes => I18N_ATTRIBUTES + %w{profile},
+        :can_enclose => %w{script style meta link object title base},
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.4.1'
+      tag :title, :newline_before => true, :valid_attributes => I18N_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.4.2'
+      tag :meta, :newline_before => true, :valid_attributes => I18N_ATTRIBUTES + %w{http-equiv name content scheme},
+        :content_allowed => false,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.4.4.2'
+
+      # HTML4.01 spec, section 7.5
+      tag :body, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES + %w{onload onunload},
+        :can_enclose => BLOCK_CONTENT + %w{script ins del},
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.1'
+      tag :div, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => FLOW_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.4'
+      tag :span, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.4'
+      tag :h1, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.5'
+      tag :h2, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.5'
+      tag :h3, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.5'
+      tag :h4, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.5'
+      tag :h5, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.5'
+      tag :h6, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.5'
+      tag :address, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/global.html#h-7.5.6'
+
+      # HTML4.01 spec, section 9.2
+      tag :em, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :strong, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :dfn, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :code, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :samp, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :kbd, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :var, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :cite, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :abbr, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :acronym, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.1'
+      tag :blockquote, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES + %w{cite},
+        :can_enclose => BLOCK_CONTENT + %w{script},
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.2'
+      tag :q, :valid_attributes => ATTRS_ATTRIBUTES + %w{cite}, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.2'
+      tag :sub, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.3'
+      tag :sup, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.2.3'
+
+      # HTML4.01 spec, section 9.3
+      tag :p, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.3.1'
+      tag :br, :newline_before => true, :valid_attributes => CORE_ATTRIBUTES, :content_allowed => false,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.3.2.1'
+      tag :pre, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES,
+        :can_enclose => INLINE_CONTENT - %w{img object big small sub sup},
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.3.4'
+      tag :ins, :valid_attributes => ATTRS_ATTRIBUTES + %w{cite datetime}, :can_enclose => FLOW_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.4'
+      tag :del, :valid_attributes => ATTRS_ATTRIBUTES + %w{cite datetime}, :can_enclose => FLOW_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/text.html#h-9.4'
+
+      # HTML4.01 spec, section 10.2
+      tag :ul, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => %w{li},
+        :spec => 'http://www.w3.org/TR/html401/struct/lists.html#h-10.2'
+      tag :ol, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => %w{li},
+        :spec => 'http://www.w3.org/TR/html401/struct/lists.html#h-10.2'
+      tag :li, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => FLOW_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/lists.html#h-10.2'
+      tag :dl, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => %w{dt dd},
+        :spec => 'http://www.w3.org/TR/html401/struct/lists.html#h-10.3'
+      tag :dt, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => INLINE_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/lists.html#h-10.3'
+      tag :dd, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => FLOW_CONTENT,
+        :spec => 'http://www.w3.org/TR/html401/struct/lists.html#h-10.3'
+
+      # HTML4.01 spec, section 11.2
+      tag :table, :newline_before => true, :can_enclose => %w{caption col colgroup thead tfoot tbody tr},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{summary width border frame rules cellspacing cellpadding},
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.1'
+      tag :caption, :newline_before => true, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.2'
+      tag :thead, :newline_before => true, :can_enclose => %w{tr},
+        :valid_attributes => ATTRS_ATTRIBUTES + CELLVALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.3'
+      tag :tfoot, :newline_before => true, :can_enclose => %w{tr},
+        :valid_attributes => ATTRS_ATTRIBUTES + CELLVALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.3'
+      tag :tbody, :newline_before => true, :can_enclose => %w{tr},
+        :valid_attributes => ATTRS_ATTRIBUTES + CELLVALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.3'
+      tag :colgroup, :newline_before => true, :can_enclose => %w{col},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{span width} + CELLHALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.4.1'
+      tag :col, :newline_before => true, :content_allowed => false,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{span width} + CELLHALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.4.2'
+      tag :tr, :newline_before => true, :can_enclose => %w{th td},
+        :valid_attributes => ATTRS_ATTRIBUTES + CELLHALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.5'
+      tag :th, :newline_before => true, :can_enclose => FLOW_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{abbr axis headers scope rowspan colspan} + CELLHALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.6'
+      tag :td, :newline_before => true, :can_enclose => FLOW_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{abbr axis headers scope rowspan colspan} + CELLHALIGN_ATTRIBUTES + CELLVALIGN_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/struct/tables.html#h-11.2.6'
+
+      # HTML4.01 spec, section 12.2
+      tag :a, :can_enclose => INLINE_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{charset type name href hreflang rel rev accesskey shape coords tabindex onfocus onblur},
+        :spec => 'http://www.w3.org/TR/html401/struct/links.html#h-12.2'
+
+      # HTML4.01 spec, section 12.3
+      tag :link, :newline_before => true, :content_allowed => false,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{charset href hreflang type rel rev media},
+        :spec => 'http://www.w3.org/TR/html401/struct/links.html#h-12.3'
+
+      # HTML4.01 spec, section 12.4
+      tag :base, :newline_before => true, :content_allowed => false, :valid_attributes => %w{href},
+        :spec => 'http://www.w3.org/TR/html401/struct/links.html#h-12.4'
+
+      # HTML4.01 spec, section 13.2
+      tag :img, :content_allowed => false,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{src alt longdesc name height width usemap ismap},
+        :spec => 'http://www.w3.org/TR/html401/struct/objects.html#h-13.2'
+
+      # HTML4.01 spec, section 13.3
+      tag :object, :newline_before => true, :can_enclose => FLOW_CONTENT + %w{param},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{declare classid codebase data type codetype archive standby height} +
+                             %w{width usemap name tabindex},
+        :spec => 'http://www.w3.org/TR/html401/struct/objects.html#h-13.3'
+      tag :param, :newline_before => true, :content_allowed => false,
+        :valid_attributes => %w{id name value valuetype type},
+        :spec => 'http://www.w3.org/TR/html401/struct/objects.html#h-13.3.2'
+
+      # HTML4.01 spec, section 13.6
+      tag :map, :newline_before => true, :can_enclose => BLOCK_CONTENT + %w{area},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{name},
+        :spec => 'http://www.w3.org/TR/html401/struct/objects.html#h-13.6.1'
+      tag :area, :newline_before => true, :content_allowed => false,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{shape coords href nohref alt tabindex accesskey onfocus onblur},
+        :spec => 'http://www.w3.org/TR/html401/struct/objects.html#h-13.6.1'
+
+      # HTML4.01 spec, section 14.2
+      tag :style, :newline_before => true, :valid_attributes => I18N_ATTRIBUTES + %w{type media title},
+        :escape_direct_content => false,
+        :spec => 'http://www.w3.org/TR/html401/present/styles.html#h-14.2.3'
+
+      # HTML4.01 spec, section 15.2
+      tag :tt, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+      tag :i, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+      tag :b, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+      tag :big, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+      tag :small, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+
+      # HTML4.01 spec, section 15.3
+      tag :hr, :newline_before => true, :content_allowed => false, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.3'
+
+      # HTML4.01 spec, section 17.3
+      tag :form, :newline_before => true, :can_enclose => BLOCK_CONTENT + %w{script} - %w{form},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{action method enctype accept name onsubmit onreset accept-charset},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.3'
+
+      # HTML4.01 spec, section 17.4
+      tag :input, :newline_before => true, :content_allowed => false,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{type name value checked disabled readonly size maxlength src alt} +
+                             %w{usemap ismap tabindex accesskey onfocus onblur onselect onchange accept},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.4'
+
+      # HTML4.01 spec, section 17.5
+      tag :button, :newline_before => true, :can_enclose => FLOW_CONTENT - FORMCTRL_CONTENT - %w{a form fieldset},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{name value type disabled tabindex accesskey onfocus onblur},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.5'
+
+      # HTML4.01 spec, section 17.6
+      tag :select, :newline_before => true, :can_enclose => %w{optgroup option},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{name size multiple disabled tabindex onfocus onblur onchange},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.6'
+      tag :optgroup, :newline_before => true, :can_enclose => %w{option},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{disabled label},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.6'
+      tag :option, :newline_before => true, :can_enclose => %w{_text},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{selected disabled label value},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.6'
+
+      # HTML4.01 spec, section 17.7
+      tag :textarea, :newline_before => true, :can_enclose => %w{_text},
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{name rows cols disabled readonly tabindex accesskey} +
+                             %w{onfocus onblur onselect onchange},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.7'
+
+      # HTML4.01 spec, section 17.9
+      tag :label, :newline_before => true, :can_enclose => INLINE_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{for accesskey onfocus onblur},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.9.1'
+
+      # HTML4.01 spec, section 17.10
+      tag :fieldset, :newline_before => true, :can_enclose => %w{_text legend} + FLOW_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.10'
+      tag :legend, :newline_before => true, :can_enclose => INLINE_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES + %w{accesskey},
+        :spec => 'http://www.w3.org/TR/html401/interact/forms.html#h-17.10'
+
+      # HTML4.01 spec, section 18.2
+      tag :script, :newline_before => true, :can_enclose => %w{_text},
+        :valid_attributes => %w{charset type src defer}, :escape_direct_content => false,
+        :spec => 'http://www.w3.org/TR/html401/interact/scripts.html#h-18.2.1'
+      # HTML4.01 spec, section 18.3
+      tag :noscript, :newline_before => true, :can_enclose => BLOCK_CONTENT,
+        :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/interact/scripts.html#h-18.3.1'
+    end
+  end
+end

data/lib/fortitude/doctypes/html4_tags_transitional.rb

@@ -0,0 +1,114 @@
+require 'fortitude/tag_store'
+require 'fortitude/doctypes/html4_tags_strict'
+
+module Fortitude
+  module Doctypes
+    module Html4TagsTransitional
+      extend Fortitude::TagStore
+
+      class << self
+        def delegate_tag_stores
+          [ Fortitude::Doctypes::Html4TagsStrict ]
+        end
+      end
+
+      TRANSITIONAL_BLOCK_CONTENT = %w{dir menu center isindex}
+      TRANSITIONAL_INLINE_CONTENT = %w{u s strike applet font basefont iframe}
+      TRANSITIONAL_FLOW_CONTENT = %w{dir menu center isindex u s strike applet font basefont iframe}
+
+      %w{ATTRS_ATTRIBUTES FLOW_CONTENT INLINE_CONTENT CORE_ATTRIBUTES I18N_ATTRIBUTES}.each do |constant_name|
+        const_set(constant_name, Fortitude::Doctypes::Html4TagsStrict.const_get(constant_name))
+      end
+
+      tag :dir, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES + %w{compact},
+        :can_enclose => %w{li},
+        :spec => 'http://www.w3.org/TR/html401/sgml/loosedtd.html#dir'
+      tag :menu, :newline_before => true, :valid_attributes => ATTRS_ATTRIBUTES + %w{menu},
+        :can_enclose => %w{li},
+        :spec => 'http://www.w3.org/TR/html401/sgml/loosedtd.html#dir'
+
+      tag :center, :valid_attributes => ATTRS_ATTRIBUTES, :can_enclose => FLOW_CONTENT
+
+      # HTML4.01 spec, section 13.4
+      tag :applet, :newline_before => true, :can_enclose => %w{param} + FLOW_CONTENT,
+        :valid_attributes => CORE_ATTRIBUTES + %w{codebase archive code object alt name width height align hspace vspace},
+        :spec => 'http://www.w3.org/TR/html401/struct/objects.html#h-13.4'
+
+      tag :strike, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+      tag :s, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+      tag :u, :can_enclose => INLINE_CONTENT, :valid_attributes => ATTRS_ATTRIBUTES,
+        :spec => 'http://www.w3.org/TR/html401/present/graphics.html#h-15.2.1'
+      tag :font, :can_enclose => INLINE_CONTENT,
+        :valid_attributes => CORE_ATTRIBUTES + I18N_ATTRIBUTES + %w{size color face},
+        :spec => 'http://www.w3.org/TR/html401/sgml/loosedtd.html#basefont'
+      tag :basefont, :content_allowed => false, :valid_attributes => %w{id size color face},
+        :spec => 'http://www.w3.org/TR/html401/sgml/loosedtd.html#basefont'
+
+      tag :isindex, :newline_before => true, :content_allowed => false,
+        :valid_attributes => CORE_ATTRIBUTES + I18N_ATTRIBUTES + %w{prompt},
+        :spec => 'http://www.w3.org/TR/html401/sgml/loosedtd.html#isindex'
+
+
+
+      %w{body blockquote map form noscript}.each do |block_content_tag_name|
+        modify_tag(block_content_tag_name) { |t| t.can_enclose += TRANSITIONAL_BLOCK_CONTENT }
+      end
+
+      %w{span h1 h2 h3 h4 h5 h6 address em strong dfn code samp kbd var cite abbr acronym q sub sup p pre dt caption} +
+        %w{a tt i b big small label legend strike s u font}.each do |inline_content_tag_name|
+        modify_tag(inline_content_tag_name) { |t| t.can_enclose += TRANSITIONAL_INLINE_CONTENT }
+      end
+
+      %w{div ins del li dd th td object button fieldset center applet}.each do |flow_content_tag_name|
+        modify_tag(flow_content_tag_name) { |t| t.can_enclose += TRANSITIONAL_FLOW_CONTENT }
+      end
+
+
+      BGCOLORS_ATTRIBUTES = %w{bgcolor text link vlink alink}
+
+      modify_tag(:html) { |t| t.valid_attributes += %w{version} }
+
+      modify_tag(:body) { |t| t.valid_attributes += %w{background} + BGCOLORS_ATTRIBUTES }
+      modify_tag(:div) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:h1) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:h2) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:h3) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:h4) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:h5) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:h6) { |t| t.valid_attributes += %w{align} }
+
+      modify_tag(:p) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:br) { |t| t.valid_attributes += %w{clear} }
+      modify_tag(:pre) { |t| t.valid_attributes += %w{width} }
+
+      modify_tag(:ul) { |t| t.valid_attributes += %w{type compact} }
+      modify_tag(:ol) { |t| t.valid_attributes += %w{type compact start} }
+      modify_tag(:li) { |t| t.valid_attributes += %w{type value} }
+      modify_tag(:dl) { |t| t.valid_attributes += %w{compact} }
+
+      modify_tag(:table) { |t| t.valid_attributes += %w{align bgcolor} }
+      modify_tag(:caption) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:tr) { |t| t.valid_attributes += %w{bgcolor} }
+      modify_tag(:th) { |t| t.valid_attributes += %w{nowrap bgcolor width height} }
+
+      modify_tag(:a) { |t| t.valid_attributes += %w{target} }
+      modify_tag(:link) { |t| t.valid_attributes += %w{target} }
+      modify_tag(:base) { |t| t.valid_attributes += %w{target} }
+
+      modify_tag(:img) { |t| t.valid_attributes += %w{align border hspace vspace} }
+      modify_tag(:object) { |t| t.valid_attributes += %w{align border hspace vspace} }
+
+      modify_tag(:area) { |t| t.valid_attributes += %w{target} }
+
+      modify_tag(:hr) { |t| t.valid_attributes += %w{align noshade size width} }
+
+      modify_tag(:form) { |t| t.valid_attributes += %w{target} }
+      modify_tag(:input) { |t| t.valid_attributes += %w{align} }
+
+      modify_tag(:legend) { |t| t.valid_attributes += %w{align} }
+      modify_tag(:script) { |t| t.valid_attributes += %w{language} }
+    end
+  end
+end

data/lib/fortitude/doctypes/html4_transitional.rb

@@ -0,0 +1,18 @@
+require 'fortitude/doctypes/html4'
+require 'fortitude/doctypes/html4_tags_transitional'
+
+module Fortitude
+  module Doctypes
+    class Html4Transitional < Html4
+      def initialize(name = nil, dtd = nil)
+        super(name || :html4_transitional, dtd || 'HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"')
+      end
+
+      class << self
+        def delegate_tag_stores
+          [ Fortitude::Doctypes::Html4TagsTransitional ]
+        end
+      end
+    end
+  end
+end