class Hamlit::HamlCompiler

Attributes

options[RW]

Public Class Methods

new(options) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 10
def initialize(options)
  @options     = options
  @output_tabs = 0
  @to_merge    = []
  @precompiled = ''
  @node        = nil
end

Private Class Methods

build_attributes(is_html, attr_wrapper, escape_attrs, hyphenate_data_attrs, attributes = {}) click to toggle source

This is a class method so it can be accessed from Buffer.

# File lib/hamlit/parser/haml_compiler.rb, line 418
def self.build_attributes(is_html, attr_wrapper, escape_attrs, hyphenate_data_attrs, attributes = {})
    # @TODO this is an absolutely ridiculous amount of arguments. At least
  # some of this needs to be moved into an instance method.
  quote_escape     = attr_wrapper == '"' ? """ : "'"
  other_quote_char = attr_wrapper == '"' ? "'" : '"'
  join_char        = hyphenate_data_attrs ? '-' : '_'

  attributes.each do |key, value|
    if value.is_a?(Hash)
      data_attributes = attributes.delete(key)
      data_attributes = flatten_data_attributes(data_attributes, '', join_char)
      data_attributes = build_data_keys(data_attributes, hyphenate_data_attrs, key)
      attributes = data_attributes.merge(attributes)
    end
  end

  result = attributes.collect do |attr, value|
    next if value.nil?

    value = filter_and_join(value, ' ') if attr == 'class'
    value = filter_and_join(value, '_') if attr == 'id'

    if value == true
      next " #{attr}" if is_html
      next " #{attr}=#{attr_wrapper}#{attr}#{attr_wrapper}"
    elsif value == false
      next
    end

    escaped =
      if escape_attrs == :once
        ::Hamlit::HamlHelpers.escape_once(value.to_s)
      elsif escape_attrs
        ::Hamlit::HamlHelpers.html_escape(value.to_s)
      else
        value.to_s
      end
    value = ::Hamlit::HamlHelpers.preserve(escaped)
    if escape_attrs
      # We want to decide whether or not to escape quotes
      value.gsub!(/"|"/, '"')
      this_attr_wrapper = attr_wrapper
      if value.include? attr_wrapper
        if value.include? other_quote_char
          value.gsub!(attr_wrapper, quote_escape)
        else
          this_attr_wrapper = other_quote_char
        end
      end
    else
      this_attr_wrapper = attr_wrapper
    end
    " #{attr}=#{this_attr_wrapper}#{value}#{this_attr_wrapper}"
  end
  result.compact!
  result.sort!
  result.join
end
build_data_keys(data_hash, hyphenate, attr_name="data") click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 491
def self.build_data_keys(data_hash, hyphenate, attr_name="data")
  Hash[data_hash.map do |name, value|
    if name == nil
      [attr_name, value]
    elsif hyphenate
      ["#{attr_name}-#{name.to_s.tr('_', '-')}", value]
    else
      ["#{attr_name}-#{name}", value]
    end
  end]
end
filter_and_join(value, separator) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 477
def self.filter_and_join(value, separator)
  return '' if (value.respond_to?(:empty?) && value.empty?)

  if value.is_a?(Array)
    value.flatten!
    value.map! {|item| item ? item.to_s : nil}
    value.compact!
    value = value.join(separator)
  else
    value = value ? value.to_s : nil
  end
  !value.nil? && !value.empty? && value
end
flatten_data_attributes(data, key, join_char, seen = []) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 503
def self.flatten_data_attributes(data, key, join_char, seen = [])
  return {key => data} unless data.is_a?(Hash)

  return {key => nil} if seen.include? data.object_id
  seen << data.object_id

  data.sort {|x, y| x[0].to_s <=> y[0].to_s}.inject({}) do |hash, (k, v)|
    joined = key == '' ? k : [key, k].join(join_char)
    hash.merge! flatten_data_attributes(v, joined, join_char, seen)
  end
end

Public Instance Methods

compile(node) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 18
def compile(node)
  parent, @node = @node, node
  if node.children.empty?
    send(:"compile_#{node.type}")
  else
    send(:"compile_#{node.type}") {node.children.each {|c| compile c}}
  end
ensure
  @node = parent
end
precompiled() click to toggle source

The source code that is evaluated to produce the Haml document.

This is automatically converted to the correct encoding (see {file:REFERENCE.md#encodings the `:encoding` option}).

@return [String]

# File lib/hamlit/parser/haml_compiler.rb, line 35
def precompiled
  encoding = Encoding.find(@options.encoding)
  return @precompiled.force_encoding(encoding) if encoding == Encoding::ASCII_8BIT
  return @precompiled.encode(encoding)
end
precompiled_with_ambles(local_names) click to toggle source

Returns the precompiled string with the preamble and postamble.

Initializes to ActionView::OutputBuffer when available; this is necessary to avoid ordering issues with partial layouts in Rails. If not available, initializes to nil.

# File lib/hamlit/parser/haml_compiler.rb, line 50
    def precompiled_with_ambles(local_names)
      preamble = "begin
extend ::Hamlit::HamlHelpers
_hamlout = @haml_buffer = ::Hamlit::HamlBuffer.new(haml_buffer, #{options.for_buffer.inspect})
_erbout = _hamlout.buffer
@output_buffer = output_buffer ||= ActionView::OutputBuffer.new rescue nil
".tr!("\n", ';')
      postamble = "#{precompiled_method_return_value}
ensure
@haml_buffer = @haml_buffer.upper if @haml_buffer
end
".tr!("\n", ';')
      "#{preamble}#{locals_code(local_names)}#{precompiled}#{postamble}"
    end
precompiled_with_return_value() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 41
def precompiled_with_return_value
  "#{precompiled};#{precompiled_method_return_value}"
end

Private Instance Methods

compile_comment() { || ... } click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 237
def compile_comment
  condition = "#{@node.value[:conditional]}>" if @node.value[:conditional]
  revealed = @node.value[:revealed]

  open = "<!--#{condition}#{'<!-->' if revealed}"

  close = "#{'<!--' if revealed}#{'<![endif]' if condition}-->"

  unless block_given?
    push_merged_text("#{open} ")

    if @node.value[:parse]
      push_script(@node.value[:text], :in_tag => true, :nuke_inner_whitespace => true)
    else
      push_merged_text(@node.value[:text], 0, false)
    end

    push_merged_text(" #{close}\n", 0, false)
    return
  end

  push_text(open, 1)
  @output_tabs += 1
  yield if block_given?
  @output_tabs -= 1
  push_text(close, -1)
end
compile_doctype() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 265
def compile_doctype
  doctype = text_for_doctype
  push_text doctype if doctype
end
compile_filter() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 270
def compile_filter
  unless filter = Filters.defined[@node.value[:name]]
    name = @node.value[:name]
    if ["maruku", "textile"].include?(name)
      raise ::Hamlit::HamlError.new(::Hamlit::HamlError.message(:install_haml_contrib, name), @node.line - 1)
    else
      raise ::Hamlit::HamlError.new(::Hamlit::HamlError.message(:filter_not_defined, name), @node.line - 1)
    end
  end
  filter.internal_compile(self, @node.value[:text])
end
compile_haml_comment() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 141
def compile_haml_comment; end
compile_plain() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 93
def compile_plain
  push_text @node.value[:text]
end
compile_root() { || ... } click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 86
def compile_root
  @dont_indent_next_line = @dont_tab_up_next_text = false
  @output_line = 1
  yield if block_given?
  flush_merged_text
end
compile_script(&block) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 107
def compile_script(&block)
  push_script(@node.value[:text],
              :preserve_script       => @node.value[:preserve],
              :escape_html           => @node.value[:escape_html],
              :nuke_inner_whitespace => nuke_inner_whitespace?(@node),
              &block)
end
compile_silent_script() { || ... } click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 115
def compile_silent_script
  return if @options.suppress_eval
  push_silent(@node.value[:text])
  keyword = @node.value[:keyword]

  if block_given?
    # Store these values because for conditional statements,
    # we want to restore them for each branch
    @node.value[:dont_indent_next_line] = @dont_indent_next_line
    @node.value[:dont_tab_up_next_text] = @dont_tab_up_next_text
    yield
    push_silent("end", :can_suppress) unless @node.value[:dont_push_end]
  elsif keyword == "end"
    if @node.parent.children.last.equal?(@node)
      # Since this "end" is ending the block,
      # we don't need to generate an additional one
      @node.parent.value[:dont_push_end] = true
    end
    # Don't restore dont_* for end because it isn't a conditional branch.
  elsif ::Hamlit::HamlParser::MID_BLOCK_KEYWORDS.include?(keyword)
    # Restore dont_* for this conditional branch
    @dont_indent_next_line = @node.parent.value[:dont_indent_next_line]
    @dont_tab_up_next_text = @node.parent.value[:dont_tab_up_next_text]
  end
end
compile_tag() { || ... } click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 143
def compile_tag
  t = @node.value

  # Get rid of whitespace outside of the tag if we need to
  rstrip_buffer! if t[:nuke_outer_whitespace]

  dont_indent_next_line =
    (t[:nuke_outer_whitespace] && !block_given?) ||
    (t[:nuke_inner_whitespace] && block_given?)

  if @options.suppress_eval
    object_ref = :nil
    parse = false
    value = t[:parse] ? nil : t[:value]
    attributes_hashes = {}
    preserve_script = false
  else
    object_ref = t[:object_ref]
    parse = t[:parse]
    value = t[:value]
    attributes_hashes = t[:attributes_hashes]
    preserve_script = t[:preserve_script]
  end

  if @options[:trace]
    t[:attributes].merge!({"data-trace" => @options.filename.split('/views').last << ":" << @node.line.to_s})
  end

  # Check if we can render the tag directly to text and not process it in the buffer
  if (object_ref == :nil) && attributes_hashes.empty? && !preserve_script
    tag_closed = !block_given? && !t[:self_closing] && !parse

    open_tag = prerender_tag(t[:name], t[:self_closing], t[:attributes])
    if tag_closed
      open_tag << "#{value}</#{t[:name]}>"
      open_tag << "\n" unless t[:nuke_outer_whitespace]
    elsif !(parse || t[:nuke_inner_whitespace] ||
        (t[:self_closing] && t[:nuke_outer_whitespace]))
      open_tag << "\n"
    end

    push_merged_text(open_tag,
      tag_closed || t[:self_closing] || t[:nuke_inner_whitespace] ? 0 : 1,
      !t[:nuke_outer_whitespace])

    @dont_indent_next_line = dont_indent_next_line
    return if tag_closed
  else
    if attributes_hashes.empty?
      attributes_hashes = ''
    elsif attributes_hashes.size == 1
      attributes_hashes = ", #{attributes_hashes.first}"
    else
      attributes_hashes = ", #{attributes_hashes.join(", ")}"
    end

    push_merged_text "<#{t[:name]}", 0, !t[:nuke_outer_whitespace]
    push_generated_script(
      "_hamlout.attributes(#{inspect_obj(t[:attributes])}, #{object_ref}#{attributes_hashes})")
    concat_merged_text(
      if t[:self_closing] && @options.xhtml?
        " />#{"\n" unless t[:nuke_outer_whitespace]}"
      else
        ">#{"\n" unless (t[:self_closing] && @options.html?) ? t[:nuke_outer_whitespace] : (!block_given? || t[:preserve_tag] || t[:nuke_inner_whitespace])}"
      end)

    if value && !parse
      concat_merged_text("#{value}</#{t[:name]}>#{"\n" unless t[:nuke_outer_whitespace]}")
    elsif !t[:nuke_inner_whitespace] && !t[:self_closing]
      @to_merge << [:text, '', 1]
    end

    @dont_indent_next_line = dont_indent_next_line
  end

  return if t[:self_closing]

  if value.nil?
    @output_tabs += 1 unless t[:nuke_inner_whitespace]
    yield if block_given?
    @output_tabs -= 1 unless t[:nuke_inner_whitespace]
    rstrip_buffer! if t[:nuke_inner_whitespace]
    push_merged_text("</#{t[:name]}>#{"\n" unless t[:nuke_outer_whitespace]}",
      t[:nuke_inner_whitespace] ? 0 : -1, !t[:nuke_inner_whitespace])
    @dont_indent_next_line = t[:nuke_outer_whitespace]
    return
  end

  if parse
    push_script(value, t.merge(:in_tag => true))
    concat_merged_text("</#{t[:name]}>#{"\n" unless t[:nuke_outer_whitespace]}")
  end
end
concat_merged_text(text) click to toggle source

Concatenate `text` to `@buffer` without tabulation.

# File lib/hamlit/parser/haml_compiler.rb, line 337
def concat_merged_text(text)
  @to_merge << [:text, text, 0]
end
flush_merged_text() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 345
def flush_merged_text
  return if @to_merge.empty?

  mtabs = 0
  @to_merge.map! do |type, val, tabs|
    case type
    when :text
      mtabs += tabs
      inspect_obj(val)[1...-1]
    when :script
      if mtabs != 0 && !@options.ugly
        val = "_hamlout.adjust_tabs(#{mtabs}); " + val
      end
      mtabs = 0
      "\#{#{val}}"
    else
      raise ::Hamlit::HamlSyntaxError.new("[HAML BUG] Undefined entry in ::Hamlit::HamlCompiler@to_merge.")
    end
  end
  str = @to_merge.join

  unless str.empty?
    @precompiled <<
      if @options.ugly
        "_hamlout.buffer << \"#{str}\";"
      else
        "_hamlout.push_text(\"#{str}\", #{mtabs}, #{@dont_tab_up_next_text.inspect});"
      end
  end
  @to_merge = []
  @dont_tab_up_next_text = false
end
locals_code(names) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 75
def locals_code(names)
  names = names.keys if Hash === names

  names.each_with_object('') do |name, code|
    # Can't use || because someone might explicitly pass in false with a symbol
    sym_local = "_haml_locals[#{inspect_obj(name.to_sym)}]"
    str_local = "_haml_locals[#{inspect_obj(name.to_s)}]"
    code << "#{name} = #{sym_local}.nil? ? #{str_local} : #{sym_local};"
  end
end
nuke_inner_whitespace?(node) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 97
def nuke_inner_whitespace?(node)
  if node.value && node.value[:nuke_inner_whitespace]
    true
  elsif node.parent
    nuke_inner_whitespace?(node.parent)
  else
    false
  end
end
precompiled_method_return_value() click to toggle source

Returns the string used as the return value of the precompiled method. This method exists so it can be monkeypatched to return modified values.

# File lib/hamlit/parser/haml_compiler.rb, line 71
def precompiled_method_return_value
  "_erbout"
end
prerender_tag(name, self_close, attributes) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 515
def prerender_tag(name, self_close, attributes)
  attributes_string = ::Hamlit::HamlCompiler.build_attributes(
    @options.html?, @options.attr_wrapper, @options.escape_attrs, @options.hyphenate_data_attrs, attributes)
  "<#{name}#{attributes_string}#{self_close && @options.xhtml? ? ' /' : ''}>"
end
push_generated_script(text) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 412
def push_generated_script(text)
  @to_merge << [:script, resolve_newlines + text]
  @output_line += text.count("\n")
end
push_merged_text(text, tab_change = 0, indent = true) click to toggle source

Adds `text` to `@buffer` with appropriate tabulation without parsing it.

# File lib/hamlit/parser/haml_compiler.rb, line 330
def push_merged_text(text, tab_change = 0, indent = true)
  text = !indent || @dont_indent_next_line || @options.ugly ? text : "#{'  ' * @output_tabs}#{text}"
  @to_merge << [:text, text, tab_change]
  @dont_indent_next_line = false
end
push_script(text, opts = {}) { || ... } click to toggle source

Causes `text` to be evaluated in the context of the scope object and the result to be added to `@buffer`.

If `opts` is true, Haml::Helpers#find_and_preserve is run on the result before it is added to `@buffer`

# File lib/hamlit/parser/haml_compiler.rb, line 383
def push_script(text, opts = {})
  return if @options.suppress_eval?

  args = [:preserve_script, :in_tag, :preserve_tag, :escape_html, :nuke_inner_whitespace]
  args.map! {|name| !!opts[name]}
  args << !block_given? << @options.ugly

  no_format = @options.ugly &&
    !(opts[:preserve_script] || opts[:preserve_tag] || opts[:escape_html])

  # Prerender tabulation unless we're in a tag
  push_merged_text '' unless opts[:in_tag]

  unless block_given?
    format_script_method = "_hamlout.format_script((#{text}\n),#{args.join(',')});"
    push_generated_script(no_format ? "#{text}\n" : format_script_method)
    concat_merged_text("\n") unless opts[:in_tag] || opts[:nuke_inner_whitespace]
    return
  end

  flush_merged_text
  push_silent "haml_temp = #{text}"
  yield
  push_silent('end', :can_suppress) unless @node.value[:dont_push_end]
  format_script_method = "_hamlout.format_script(haml_temp,#{args.join(',')});"
  @precompiled << "_hamlout.buffer << #{no_format ? "haml_temp.to_s;" : format_script_method}"
  concat_merged_text("\n") unless opts[:in_tag] || opts[:nuke_inner_whitespace] || @options.ugly
end
push_silent(text, can_suppress = false) click to toggle source

Evaluates `text` in the context of the scope object, but does not output the result.

# File lib/hamlit/parser/haml_compiler.rb, line 320
def push_silent(text, can_suppress = false)
  flush_merged_text
  return if can_suppress && @options.suppress_eval?
  newline = (text == "end") ? ";" : "\n"
  @precompiled << "#{resolve_newlines}#{text}#{newline}"
  @output_line = @output_line + text.count("\n") + newline.count("\n")
end
push_text(text, tab_change = 0) click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 341
def push_text(text, tab_change = 0)
  push_merged_text("#{text}\n", tab_change)
end
resolve_newlines() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 521
def resolve_newlines
  diff = @node.line - @output_line
  return "" if diff <= 0
  @output_line = @node.line
  "\n" * diff
end
rstrip_buffer!(index = -1) click to toggle source

Get rid of and whitespace at the end of the buffer or the merged text

# File lib/hamlit/parser/haml_compiler.rb, line 530
def rstrip_buffer!(index = -1)
  last = @to_merge[index]
  if last.nil?
    push_silent("_hamlout.rstrip!", false)
    @dont_tab_up_next_text = true
    return
  end

  case last.first
  when :text
    last[1].rstrip!
    if last[1].empty?
      @to_merge.slice! index
      rstrip_buffer! index
    end
  when :script
    last[1].gsub!(/\(haml_temp, (.*?)\);$/, '(haml_temp.rstrip, \1);')
    rstrip_buffer! index - 1
  else
    raise ::Hamlit::HamlSyntaxError.new("[HAML BUG] Undefined entry in ::Hamlit::HamlCompiler@to_merge.")
  end
end
text_for_doctype() click to toggle source
# File lib/hamlit/parser/haml_compiler.rb, line 282
def text_for_doctype
  if @node.value[:type] == "xml"
    return nil if @options.html?
    wrapper = @options.attr_wrapper
    return "<?xml version=#{wrapper}1.0#{wrapper} encoding=#{wrapper}#{@node.value[:encoding] || "utf-8"}#{wrapper} ?>"
  end

  if @options.html5?
    '<!DOCTYPE html>'
  else
    if @options.xhtml?
      if @node.value[:version] == "1.1"
        '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'
      elsif @node.value[:version] == "5"
        '<!DOCTYPE html>'
      else
        case @node.value[:type]
        when "strict";   '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
        when "frameset"; '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">'
        when "mobile";   '<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.2//EN" "http://www.openmobilealliance.org/tech/DTD/xhtml-mobile12.dtd">'
        when "rdfa";     '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML+RDFa 1.0//EN" "http://www.w3.org/MarkUp/DTD/xhtml-rdfa-1.dtd">'
        when "basic";    '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML Basic 1.1//EN" "http://www.w3.org/TR/xhtml-basic/xhtml-basic11.dtd">'
        else             '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
        end
      end

    elsif @options.html4?
      case @node.value[:type]
      when "strict";   '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">'
      when "frameset"; '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'
      else             '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
      end
    end
  end
end