gohanlonllc-haml 2.1.0

data/lib/sass/engine.rb

@@ -0,0 +1,439 @@
+require 'strscan'
+require 'digest/sha1'
+require 'sass/tree/node'
+require 'sass/tree/rule_node'
+require 'sass/tree/comment_node'
+require 'sass/tree/attr_node'
+require 'sass/tree/directive_node'
+require 'sass/tree/variable_node'
+require 'sass/tree/mixin_def_node'
+require 'sass/tree/mixin_node'
+require 'sass/tree/if_node'
+require 'sass/tree/while_node'
+require 'sass/tree/for_node'
+require 'sass/tree/debug_node'
+require 'sass/tree/file_node'
+require 'sass/environment'
+require 'sass/script'
+require 'sass/error'
+require 'sass/files'
+require 'haml/shared'
+
+module Sass
+  # :stopdoc:
+  Mixin = Struct.new(:name, :args, :environment, :tree)
+  # :startdoc:
+
+  # This is the class where all the parsing and processing of the Sass
+  # template is done. It can be directly used by the user by creating a
+  # new instance and calling <tt>render</tt> to render the template. For example:
+  #
+  #   template = File.load('stylesheets/sassy.sass')
+  #   sass_engine = Sass::Engine.new(template)
+  #   output = sass_engine.render
+  #   puts output
+  class Engine
+    include Haml::Util
+    Line = Struct.new(:text, :tabs, :index, :offset, :filename, :children)
+
+    # The character that begins a CSS attribute.
+    ATTRIBUTE_CHAR  = ?:
+
+    # The character that designates that
+    # an attribute should be assigned to a SassScript expression.
+    SCRIPT_CHAR     = ?=
+
+    # The character that designates the beginning of a comment,
+    # either Sass or CSS.
+    COMMENT_CHAR = ?/
+
+    # The character that follows the general COMMENT_CHAR and designates a Sass comment,
+    # which is not output as a CSS comment.
+    SASS_COMMENT_CHAR = ?/
+
+    # The character that follows the general COMMENT_CHAR and designates a CSS comment,
+    # which is embedded in the CSS document.
+    CSS_COMMENT_CHAR = ?*
+
+    # The character used to denote a compiler directive.
+    DIRECTIVE_CHAR = ?@
+
+    # Designates a non-parsed rule.
+    ESCAPE_CHAR    = ?\\
+
+    # Designates block as mixin definition rather than CSS rules to output
+    MIXIN_DEFINITION_CHAR = ?=
+
+    # Includes named mixin declared using MIXIN_DEFINITION_CHAR
+    MIXIN_INCLUDE_CHAR    = ?+
+
+    # The regex that matches and extracts data from
+    # attributes of the form <tt>:name attr</tt>.
+    ATTRIBUTE = /^:([^\s=:"]+)\s*(=?)(?:\s+|$)(.*)/
+
+    # The regex that matches attributes of the form <tt>name: attr</tt>.
+    ATTRIBUTE_ALTERNATE_MATCHER = /^[^\s:"]+\s*[=:](\s|$)/
+
+    # The regex that matches and extracts data from
+    # attributes of the form <tt>name: attr</tt>.
+    ATTRIBUTE_ALTERNATE = /^([^\s=:"]+)(\s*=|:)(?:\s+|$)(.*)/
+
+    # The default options for Sass::Engine.
+    DEFAULT_OPTIONS = {
+      :style => :nested,
+      :load_paths => ['.'],
+      :cache => true,
+      :cache_location => './.sass-cache',
+    }.freeze
+
+    # Creates a new instace of Sass::Engine that will compile the given
+    # template string when <tt>render</tt> is called.
+    # See README.rdoc for available options.
+    #
+    #--
+    #
+    # TODO: Add current options to REFRENCE. Remember :filename!
+    #
+    # When adding options, remember to add information about them
+    # to README.rdoc!
+    #++
+    #
+    def initialize(template, options={})
+      @options = DEFAULT_OPTIONS.merge(options)
+      @template = template
+    end
+
+    # Processes the template and returns the result as a string.
+    def render
+      to_tree.render
+    end
+
+    alias_method :to_css, :render
+
+    def to_tree
+      root = Tree::Node.new
+      append_children(root, tree(tabulate(@template)).first, true)
+      root.options = @options
+      root
+    rescue SyntaxError => e; e.add_metadata(@options[:filename], @line)
+    end
+
+    private
+
+    def tabulate(string)
+      tab_str = nil
+      first = true
+      enum_with_index(string.gsub(/\r|\n|\r\n|\r\n/, "\n").scan(/^.*?$/)).map do |line, index|
+        index += (@options[:line] || 1)
+        next if line.strip.empty?
+
+        line_tab_str = line[/^\s*/]
+        unless line_tab_str.empty?
+          tab_str ||= line_tab_str
+
+          raise SyntaxError.new("Indenting at the beginning of the document is illegal.", index) if first
+          if tab_str.include?(?\s) && tab_str.include?(?\t)
+            raise SyntaxError.new("Indentation can't use both tabs and spaces.", index)
+          end
+        end
+        first &&= !tab_str.nil?
+        next Line.new(line.strip, 0, index, 0, @options[:filename], []) if tab_str.nil?
+
+        line_tabs = line_tab_str.scan(tab_str).size
+        raise SyntaxError.new(<<END.strip.gsub("\n", ' '), index) if tab_str * line_tabs != line_tab_str
+Inconsistent indentation: #{Haml::Shared.human_indentation line_tab_str, true} used for indentation,
+but the rest of the document was indented using #{Haml::Shared.human_indentation tab_str}.
+END
+        Line.new(line.strip, line_tabs, index, tab_str.size, @options[:filename], [])
+      end.compact
+    end
+
+    def tree(arr, i = 0)
+      return [], i if arr[i].nil?
+
+      base = arr[i].tabs
+      nodes = []
+      while (line = arr[i]) && line.tabs >= base
+        if line.tabs > base
+          if line.tabs > base + 1
+            raise SyntaxError.new("The line was indented #{line.tabs - base} levels deeper than the previous line.", line.index)
+          end
+
+          nodes.last.children, i = tree(arr, i)
+        else
+          nodes << line
+          i += 1
+        end
+      end
+      return nodes, i
+    end
+
+    def build_tree(parent, line, root = false)
+      @line = line.index
+      node = parse_line(parent, line, root)
+
+      # Node is a symbol if it's non-outputting, like a variable assignment,
+      # or an array if it's a group of nodes to add
+      return node unless node.is_a? Tree::Node
+
+      node.line = line.index
+      node.filename = line.filename
+
+      if node.is_a?(Tree::CommentNode)
+        node.lines = line.children
+      else
+        append_children(node, line.children, false)
+      end
+      return node
+    end
+
+    def append_children(parent, children, root)
+      continued_rule = nil
+      children.each do |line|
+        child = build_tree(parent, line, root)
+
+        if child.is_a?(Tree::RuleNode) && child.continued?
+          raise SyntaxError.new("Rules can't end in commas.", child.line) unless child.children.empty?
+          if continued_rule
+            continued_rule.add_rules child
+          else
+            continued_rule = child
+          end
+          next
+        end
+
+        if continued_rule
+          raise SyntaxError.new("Rules can't end in commas.", continued_rule.line) unless child.is_a?(Tree::RuleNode)
+          continued_rule.add_rules child
+          continued_rule.children = child.children
+          continued_rule, child = nil, continued_rule
+        end
+
+        validate_and_append_child(parent, child, line, root)
+      end
+
+      raise SyntaxError.new("Rules can't end in commas.", continued_rule.line) if continued_rule
+
+      parent
+    end
+
+    def validate_and_append_child(parent, child, line, root)
+      unless root
+        case child
+        when Tree::MixinDefNode
+          raise SyntaxError.new("Mixins may only be defined at the root of a document.", line.index)
+        when Tree::DirectiveNode, Tree::FileNode
+          raise SyntaxError.new("Import directives may only be used at the root of a document.", line.index)
+        end
+      end
+
+      case child
+      when Array
+        child.each {|c| validate_and_append_child(parent, c, line, root)}
+      when Tree::Node
+        parent << child
+      end
+    end
+
+    def parse_line(parent, line, root)
+      case line.text[0]
+      when ATTRIBUTE_CHAR
+        if line.text[1] != ATTRIBUTE_CHAR
+          parse_attribute(line, ATTRIBUTE)
+        else
+          # Support CSS3-style pseudo-elements,
+          # which begin with ::
+          Tree::RuleNode.new(line.text)
+        end
+      when Script::VARIABLE_CHAR
+        parse_variable(line)
+      when COMMENT_CHAR
+        parse_comment(line.text)
+      when DIRECTIVE_CHAR
+        parse_directive(parent, line, root)
+      when ESCAPE_CHAR
+        Tree::RuleNode.new(line.text[1..-1])
+      when MIXIN_DEFINITION_CHAR
+        parse_mixin_definition(line)
+      when MIXIN_INCLUDE_CHAR
+        if line.text[1].nil?
+          Tree::RuleNode.new(line.text)
+        else
+          parse_mixin_include(line, root)
+        end
+      else
+        if line.text =~ ATTRIBUTE_ALTERNATE_MATCHER
+          parse_attribute(line, ATTRIBUTE_ALTERNATE)
+        else
+          Tree::RuleNode.new(line.text)
+        end
+      end
+    end
+
+    def parse_attribute(line, attribute_regx)
+      name, eq, value = line.text.scan(attribute_regx)[0]
+
+      if name.nil? || value.nil?
+        raise SyntaxError.new("Invalid attribute: \"#{line.text}\".", @line)
+      end
+      expr = if (eq.strip[0] == SCRIPT_CHAR)
+        parse_script(value, :offset => line.offset + line.text.index(value))
+      else
+        value
+      end
+      Tree::AttrNode.new(name, expr, attribute_regx == ATTRIBUTE ? :old : :new)
+    end
+
+    def parse_variable(line)
+      name, op, value = line.text.scan(Script::MATCH)[0]
+      raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath variable declarations.", @line + 1) unless line.children.empty?
+      raise SyntaxError.new("Invalid variable: \"#{line.text}\".", @line) unless name && value
+
+      Tree::VariableNode.new(name, parse_script(value, :offset => line.offset + line.text.index(value)), op == '||=')
+    end
+
+    def parse_comment(line)
+      if line[1] == CSS_COMMENT_CHAR || line[1] == SASS_COMMENT_CHAR
+        Tree::CommentNode.new(line, line[1] == SASS_COMMENT_CHAR)
+      else
+        Tree::RuleNode.new(line)
+      end
+    end
+
+    def parse_directive(parent, line, root)
+      directive, whitespace, value = line.text[1..-1].split(/(\s+)/, 2)
+      offset = directive.size + whitespace.size + 1 if whitespace
+
+      # If value begins with url( or ",
+      # it's a CSS @import rule and we don't want to touch it.
+      if directive == "import" && value !~ /^(url\(|")/
+        raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath import directives.", @line + 1) unless line.children.empty?
+        import(value)
+      elsif directive == "for"
+        parse_for(line, root, value)
+      elsif directive == "else"
+        parse_else(parent, line, value)
+      elsif directive == "while"
+        raise SyntaxError.new("Invalid while directive '@while': expected expression.") unless value
+        Tree::WhileNode.new(parse_script(value, :offset => offset))
+      elsif directive == "if"
+        raise SyntaxError.new("Invalid if directive '@if': expected expression.") unless value
+        Tree::IfNode.new(parse_script(value, :offset => offset))
+      elsif directive == "debug"
+        raise SyntaxError.new("Invalid debug directive '@debug': expected expression.") unless value
+        raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath debug directives.", @line + 1) unless line.children.empty?
+        offset = line.offset + line.text.index(value).to_i
+        Tree::DebugNode.new(parse_script(value, :offset => offset))
+      else
+        Tree::DirectiveNode.new(line.text)
+      end
+    end
+
+    def parse_for(line, root, text)
+      var, from_expr, to_name, to_expr = text.scan(/^([^\s]+)\s+from\s+(.+)\s+(to|through)\s+(.+)$/).first
+
+      if var.nil? # scan failed, try to figure out why for error message
+        if text !~ /^[^\s]+/
+          expected = "variable name"
+        elsif text !~ /^[^\s]+\s+from\s+.+/
+          expected = "'from <expr>'"
+        else
+          expected = "'to <expr>' or 'through <expr>'"
+        end
+        raise SyntaxError.new("Invalid for directive '@for #{text}': expected #{expected}.", @line)
+      end
+      raise SyntaxError.new("Invalid variable \"#{var}\".", @line) unless var =~ Script::VALIDATE
+
+      parsed_from = parse_script(from_expr, :offset => line.offset + line.text.index(from_expr))
+      parsed_to = parse_script(to_expr, :offset => line.offset + line.text.index(to_expr))
+      Tree::ForNode.new(var[1..-1], parsed_from, parsed_to, to_name == 'to')
+    end
+
+    def parse_else(parent, line, text)
+      previous = parent.last
+      raise SyntaxError.new("@else must come after @if.") unless previous.is_a?(Tree::IfNode)
+
+      if text
+        if text !~ /^if\s+(.+)/
+          raise SyntaxError.new("Invalid else directive '@else #{text}': expected 'if <expr>'.", @line)
+        end
+        expr = parse_script($1, :offset => line.offset + line.text.index($1))
+      end
+
+      node = Tree::IfNode.new(expr)
+      append_children(node, line.children, false)
+      previous.add_else node
+      nil
+    end
+
+    # parses out the arguments between the commas and cleans up the mixin arguments
+    # returns nil if it fails to parse, otherwise an array.
+    def parse_mixin_arguments(arg_string)
+      arg_string = arg_string.strip
+      return [] if arg_string.empty?
+      return nil unless (arg_string[0] == ?( && arg_string[-1] == ?))
+      arg_string = arg_string[1...-1]
+      arg_string.split(",", -1).map {|a| a.strip}
+    end
+
+    def parse_mixin_definition(line)
+      name, arg_string = line.text.scan(/^=\s*([^(]+)(.*)$/).first
+      args = parse_mixin_arguments(arg_string)
+      raise SyntaxError.new("Invalid mixin \"#{line.text[1..-1]}\".", @line) if name.nil? || args.nil?
+      default_arg_found = false
+      required_arg_count = 0
+      args.map! do |arg|
+        raise SyntaxError.new("Mixin arguments can't be empty.", @line) if arg.empty? || arg == "!"
+        unless arg[0] == Script::VARIABLE_CHAR
+          raise SyntaxError.new("Mixin argument \"#{arg}\" must begin with an exclamation point (!).", @line)
+        end
+        arg, default = arg.split(/\s*=\s*/, 2)
+        required_arg_count += 1 unless default
+        default_arg_found ||= default
+        raise SyntaxError.new("Invalid variable \"#{arg}\".", @line) unless arg =~ Script::VALIDATE
+        raise SyntaxError.new("Required arguments must not follow optional arguments \"#{arg}\".", @line) if default_arg_found && !default
+        default = parse_script(default, :offset => line.offset + line.text.index(default)) if default
+        [arg[1..-1], default]
+      end
+      Tree::MixinDefNode.new(name, args)
+    end
+
+    def parse_mixin_include(line, root)
+      name, arg_string = line.text.scan(/^\+\s*([^(]+)(.*)$/).first
+      args = parse_mixin_arguments(arg_string)
+      raise SyntaxError.new("Illegal nesting: Nothing may be nested beneath mixin directives.", @line + 1) unless line.children.empty?
+      raise SyntaxError.new("Invalid mixin include \"#{line.text}\".", @line) if name.nil? || args.nil?
+      args.each {|a| raise SyntaxError.new("Mixin arguments can't be empty.", @line) if a.empty?}
+
+      Tree::MixinNode.new(name, args.map {|s| parse_script(s, :offset => line.offset + line.text.index(s))})
+    end
+
+    def parse_script(script, options = {})
+      line = options[:line] || @line
+      offset = options[:offset] || 0
+      Script.parse(script, line, offset, @options[:filename])
+    end
+
+    def import_paths
+      paths = (@options[:load_paths] || []).dup
+      paths.unshift(File.dirname(@options[:filename])) if @options[:filename]
+      paths
+    end
+
+    def import(files)
+      files.split(/,\s*/).map do |filename|
+        engine = nil
+
+        begin
+          filename = Sass::Files.find_file_to_import(filename, import_paths)
+        rescue Exception => e
+          raise SyntaxError.new(e.message, @line)
+        end
+
+        next Tree::DirectiveNode.new("@import url(#{filename})") if filename =~ /\.css$/
+
+        Tree::FileNode.new(filename)
+      end.flatten
+    end
+  end
+end

data/lib/sass/environment.rb

@@ -0,0 +1,48 @@
+module Sass
+  class Environment
+    attr_reader :parent
+    attr_writer :options
+
+    def initialize(parent = nil)
+      @vars = {}
+      @mixins = {}
+      @parent = parent
+
+      set_var("important", Script::String.new("!important")) unless @parent
+    end
+
+    def options
+      @options || (parent && parent.options) || {}
+    end
+
+    def self.inherited_hash(name)
+      class_eval <<RUBY, __FILE__, __LINE__ + 1
+        def #{name}(name)
+          @#{name}s[name] || @parent && @parent.#{name}(name)
+        end
+
+        def set_#{name}(name, value)
+          @#{name}s[name] = value unless try_set_#{name}(name, value)
+        end
+
+        def try_set_#{name}(name, value)
+          if @#{name}s.include?(name)
+            @#{name}s[name] = value
+            true
+          elsif @parent
+            @parent.try_set_#{name}(name, value)
+          else
+            false
+          end
+        end
+        protected :try_set_#{name}
+
+        def set_local_#{name}(name, value)
+          @#{name}s[name] = value
+        end
+RUBY
+    end
+    inherited_hash :var
+    inherited_hash :mixin
+  end
+end

data/lib/sass/error.rb

@@ -0,0 +1,42 @@
+module Sass
+  # Sass::SyntaxError encapsulates information about the exception,
+  # such as the line of the Sass template it was raised on
+  # and the Sass file that was being parsed (if applicable).
+  # It also provides a handy way to rescue only exceptions raised
+  # because of a faulty template.
+  class SyntaxError < StandardError
+    # The line of the Sass template on which the exception was thrown.
+    attr_accessor :sass_line
+
+    # The name of the file that was being parsed when the exception was raised.
+    # This will be nil unless Sass is being used as an ActionView plugin.
+    attr_reader :sass_filename
+
+    # Creates a new SyntaxError.
+    # +lineno+ should be the line of the Sass template on which the error occurred.
+    def initialize(msg, lineno = nil)
+      @message = msg
+      @sass_line = lineno
+    end
+
+    # Add information about the filename and line on which the error was raised.
+    def add_metadata(filename, line)
+      self.sass_line ||= line
+      add_backtrace_entry(filename) unless sass_filename
+      raise self
+    end
+
+    # Adds a properly formatted entry to the exception's backtrace.
+    # +filename+ should be the file in which the error occurred,
+    # if applicable (defaults to "(sass)").
+    def add_backtrace_entry(filename) # :nodoc:
+      @sass_filename ||= filename
+      self.backtrace ||= []
+      self.backtrace.unshift "#{@sass_filename || '(sass)'}:#{@sass_line}"
+    end
+
+    def to_s # :nodoc:
+      @message
+    end
+  end
+end

data/lib/sass/files.rb

@@ -0,0 +1,100 @@
+require 'digest/sha1'
+
+module Sass
+  # This module contains various bits of functionality
+  # related to finding and caching Sass files.
+  module Files
+    extend self
+
+    def tree_for(filename, options)
+      options = Sass::Engine::DEFAULT_OPTIONS.merge(options)
+      text = File.read(filename)
+
+      if options[:cache]
+        compiled_filename = sassc_filename(filename, options)
+        sha = Digest::SHA1.hexdigest(text)
+
+        if dump = try_to_read_sassc(filename, compiled_filename, sha)
+          return Marshal.load(dump)
+        end
+      end
+
+      engine = Sass::Engine.new(text, options.merge(:filename => filename))
+
+      begin
+        root = engine.to_tree
+      rescue Sass::SyntaxError => err
+        err.add_backtrace_entry(filename)
+        raise err
+      end
+
+      try_to_write_sassc(root, compiled_filename, sha, options) if options[:cache]
+
+      root
+    end
+
+    def find_file_to_import(filename, load_paths)
+      was_sass = false
+      original_filename = filename
+
+      if filename[-5..-1] == ".sass"
+        filename = filename[0...-5]
+        was_sass = true
+      elsif filename[-4..-1] == ".css"
+        return filename
+      end
+
+      new_filename = find_full_path("#{filename}.sass", load_paths)
+
+      return new_filename if new_filename
+      return filename + '.css' unless was_sass
+      raise SyntaxError.new("File to import not found or unreadable: #{original_filename}.", @line)
+    end
+
+    private
+
+    def sassc_filename(filename, options)
+      File.join(options[:cache_location],
+        Digest::SHA1.hexdigest(File.dirname(File.expand_path(filename))),
+        File.basename(filename) + 'c')
+    end
+
+    def try_to_read_sassc(filename, compiled_filename, sha)
+      return unless File.readable?(compiled_filename)
+
+      File.open(compiled_filename) do |f|
+        return unless f.readline("\n").strip == Sass::VERSION
+        return unless f.readline("\n").strip == sha
+        return f.read
+      end
+    end
+
+    def try_to_write_sassc(root, compiled_filename, sha, options)
+      return unless File.writable?(File.dirname(options[:cache_location]))
+      return if File.exists?(options[:cache_location]) && !File.writable?(options[:cache_location])
+      return if File.exists?(File.dirname(compiled_filename)) && !File.writable?(File.dirname(compiled_filename))
+      return if File.exists?(compiled_filename) && !File.writable?(compiled_filename)
+      FileUtils.mkdir_p(File.dirname(compiled_filename))
+      File.open(compiled_filename, "w") do |f|
+        f.puts(Sass::VERSION)
+        f.puts(sha)
+        f.write(Marshal.dump(root))
+      end
+    end
+
+    def find_full_path(filename, load_paths)
+      segments = filename.split(File::SEPARATOR)
+      segments.push "_#{segments.pop}"
+      partial_name = segments.join(File::SEPARATOR)
+      load_paths.each do |path|
+        [partial_name, filename].each do |name|
+          full_path = File.join(path, name)
+          if File.readable?(full_path)
+            return full_path
+          end
+        end
+      end
+      nil
+    end
+  end
+end

data/lib/sass/plugin/merb.rb

@@ -0,0 +1,57 @@
+unless defined?(Sass::MERB_LOADED)
+  Sass::MERB_LOADED = true
+
+  version = Merb::VERSION.split('.').map { |n| n.to_i }
+  if version[0] <= 0 && version[1] < 5
+    root = MERB_ROOT
+    env  = MERB_ENV
+  else
+    root = Merb.root.to_s
+    env  = Merb.environment
+  end
+
+  Sass::Plugin.options.merge!(:template_location => root + '/public/stylesheets/sass',
+                              :css_location      => root + '/public/stylesheets',
+                              :cache_location    => root + '/tmp/sass-cache',
+                              :always_check      => env != "production",
+                              :full_exception    => env != "production")
+  config = Merb::Plugins.config[:sass] || Merb::Plugins.config["sass"] || {}
+
+  if defined? config.symbolize_keys!
+    config.symbolize_keys!
+  end
+
+  Sass::Plugin.options.merge!(config)
+
+  if version[0] > 0 || version[1] >= 9
+
+    class Merb::Rack::Application # :nodoc:
+      def call_with_sass(env)
+        if !Sass::Plugin.checked_for_updates ||
+            Sass::Plugin.options[:always_update] || Sass::Plugin.options[:always_check]
+          Sass::Plugin.update_stylesheets
+        end
+
+        call_without_sass(env)
+      end
+      alias_method :call_without_sass, :call
+      alias_method :call, :call_with_sass
+    end
+
+  else
+
+    class MerbHandler # :nodoc:
+      def process_with_sass(request, response)
+        if !Sass::Plugin.checked_for_updates ||
+            Sass::Plugin.options[:always_update] || Sass::Plugin.options[:always_check]
+          Sass::Plugin.update_stylesheets
+        end
+
+        process_without_sass(request, response)
+      end
+      alias_method :process_without_sass, :process
+      alias_method :process, :process_with_sass
+    end
+
+  end
+end