class Temple::HTML::Fast

def html?
  HTML.include?(options[:format])
end

def initialize(opts = {})
  super
  unless [:xhtml, *HTML].include?(options[:format])
    raise ArgumentError, "Invalid format #{options[:format].inspect}"
  end
  wrapper = options[:js_wrapper]
  wrapper = xhtml? ? :cdata : :comment if wrapper == :guess
  @js_wrapper =
    case wrapper
    when :comment
      [ "<!--\n", "\n//-->" ]
    when :cdata
      [ "\n//<![CDATA[\n", "\n//]]>\n" ]
    when :both
      [ "<!--\n//<![CDATA[\n", "\n//]]>\n//-->" ]
    when nil
    when Array
      wrapper
    else
      raise ArgumentError, "Invalid JavaScript wrapper #{wrapper.inspect}"
    end
end

def on_html_attr(name, value)
  [:multi,
   [:static, " #{name}=#{options[:attr_quote]}"],
   compile(value),
   [:static, options[:attr_quote]]]
end

def on_html_attrs(*attrs)
  [:multi, *attrs.map {|attr| compile(attr) }]
end

def on_html_comment(content)
  [:multi,
    [:static, '<!--'],
    compile(content),
    [:static, '-->']]
end

def on_html_condcomment(condition, content)
  on_html_comment [:multi,
                   [:static, "[#{condition}]>"],
                   content,
                   [:static, '<![endif]']]
end

def on_html_doctype(type)
  type = type.to_s.downcase
  if type =~ /^xml(\s+(.+))?$/
    raise(FilterError, 'Invalid xml directive in html mode') if html?
    w = options[:attr_quote]
    str = "<?xml version=#{w}1.0#{w} encoding=#{w}#{$2 || 'utf-8'}#{w} ?>"
  elsif html?
    str = HTML_DOCTYPES[type] || raise(FilterError, "Invalid html doctype #{type}")
  else
    str = XHTML_DOCTYPES[type] || raise(FilterError, "Invalid xhtml doctype #{type}")
  end
  [:static, str]
end

def on_html_js(content)
  if @js_wrapper
    [:multi,
     [:static, @js_wrapper.first],
     compile(content),
     [:static, @js_wrapper.last]]
  else
    compile(content)
  end
end

def on_html_tag(name, attrs, content = nil)
  name = name.to_s
  closed = !content || (empty_exp?(content) && options[:autoclose].include?(name))
  result = [:multi, [:static, "<#{name}"], compile(attrs)]
  result << [:static, (closed && xhtml? ? ' /' : '') + '>']
  result << compile(content) if content
  result << [:static, "</#{name}>"] if !closed
  result
end

def xhtml?
  options[:format] == :xhtml
end