haml-edge 2.1.1

data/lib/sass/script/literal.rb

@@ -0,0 +1,82 @@
+module Sass::Script
+  class Literal # :nodoc:
+    require 'sass/script/string'
+    require 'sass/script/number'
+    require 'sass/script/color'
+    require 'sass/script/bool'
+
+    attr_reader :value
+
+    def initialize(value = nil)
+      @value = value
+    end
+
+    def perform(environment)
+      self
+    end
+
+    def and(other)
+      to_bool ? other : self
+    end
+
+    def or(other)
+      to_bool ? self : other
+    end
+
+    def eq(other)
+      Sass::Script::Bool.new(self.class == other.class && self.value == other.value)
+    end
+
+    def neq(other)
+      Sass::Script::Bool.new(!eq(other).to_bool)
+    end
+
+    def unary_not
+      Sass::Script::Bool.new(!to_bool)
+    end
+
+    def concat(other)
+      Sass::Script::String.new("#{self.to_s} #{other.to_s}")
+    end
+
+    def comma(other)
+      Sass::Script::String.new("#{self.to_s}, #{other.to_s}")
+    end
+
+    def plus(other)
+      Sass::Script::String.new(self.to_s + other.to_s)
+    end
+
+    def minus(other)
+      Sass::Script::String.new("#{self.to_s}-#{other.to_s}")
+    end
+
+    def div(other)
+      Sass::Script::String.new("#{self.to_s}/#{other.to_s}")
+    end
+
+    def unary_minus
+      Sass::Script::String.new("-#{self.to_s}")
+    end
+
+    def unary_div
+      Sass::Script::String.new("/#{self.to_s}")
+    end
+
+    def inspect
+      value.inspect
+    end
+
+    def to_bool
+      true
+    end
+
+    def ==(other)
+      eq(other).to_bool
+    end
+
+    def to_i
+      raise Sass::SyntaxError.new("#{self.inspect} is not an integer.")
+    end
+  end
+end

data/lib/sass/script/number.rb

@@ -0,0 +1,231 @@
+require 'sass/script/literal'
+
+module Sass::Script
+  class Number < Literal # :nodoc:
+
+    attr_reader :numerator_units, :denominator_units
+
+    PRECISION = 1000.0
+
+    def initialize(value, numerator_units = [], denominator_units = [])
+      super(value)
+      @numerator_units = numerator_units
+      @denominator_units = denominator_units
+      normalize!
+    end
+
+    def plus(other)
+      if other.is_a? Number
+        operate(other, :+)
+      elsif other.is_a?(Color)
+        other.plus(self)
+      else
+        super
+      end
+    end
+
+    def minus(other)
+      if other.is_a? Number
+        operate(other, :-)
+      else
+        super
+      end
+    end
+
+    def unary_minus
+      Number.new(-value, numerator_units, denominator_units)
+    end
+
+    def times(other)
+      if other.is_a? Number
+        self.operate(other, :*)
+      elsif other.is_a? Color
+        other.times(self)
+      else
+        raise NoMethodError.new(nil, :times)
+      end
+    end
+
+    def div(other)
+      if other.is_a? Number
+        operate(other, :/)
+      else
+        super
+      end
+    end
+
+    def mod(other)
+      if other.is_a?(Number)
+        unless other.unitless?
+          raise Sass::SyntaxError.new("Cannot modulo by a number with units: #{other.inspect}.")
+        end
+        operate(other, :%)
+      else
+        raise NoMethodError.new(nil, :mod)
+      end
+    end
+
+    def eq(other)
+      Sass::Script::Bool.new(super.to_bool &&
+        self.numerator_units.sort == other.numerator_units.sort &&
+        self.denominator_units.sort == other.denominator_units.sort)
+    end
+
+    def gt(other)
+      raise NoMethodError.new(nil, :gt) unless other.is_a?(Number)
+      operate(other, :>)
+    end
+
+    def gte(other)
+      raise NoMethodError.new(nil, :gte) unless other.is_a?(Number)
+      operate(other, :>=)
+    end
+
+    def lt(other)
+      raise NoMethodError.new(nil, :lt) unless other.is_a?(Number)
+      operate(other, :<)
+    end
+
+    def lte(other)
+      raise NoMethodError.new(nil, :lte) unless other.is_a?(Number)
+      operate(other, :<=)
+    end
+
+    def to_s
+      raise Sass::SyntaxError.new("#{inspect} isn't a valid CSS value.") unless legal_units?
+      inspect
+    end
+
+    def inspect
+      value =
+        if self.value.is_a?(Float) && (self.value.infinite? || self.value.nan?)
+          self.value
+        elsif int?
+          self.value.to_i
+        else
+          (self.value * PRECISION).round / PRECISION
+        end
+      "#{value}#{unit_str}"
+    end
+
+    def to_i
+      super unless int?
+      return value
+    end
+
+    def int?
+      value % 1 == 0.0
+    end
+
+    def unitless?
+      numerator_units.empty? && denominator_units.empty?
+    end
+
+    def legal_units?
+      (numerator_units.empty? || numerator_units.size == 1) && denominator_units.empty?
+    end
+
+    protected
+
+    def operate(other, operation)
+      this = self
+      if [:+, :-].include?(operation)
+        if unitless?
+          this = this.coerce(other.numerator_units, other.denominator_units)
+        else
+          other = other.coerce(numerator_units, denominator_units)
+        end
+      end
+      # avoid integer division
+      value = (:/ == operation) ? this.value.to_f : this.value
+      result = value.send(operation, other.value)
+
+      if result.is_a?(Numeric)
+        Number.new(result, *compute_units(this, other, operation))
+      else # Boolean op
+        Bool.new(result)
+      end
+    end
+
+    def coerce(num_units, den_units)
+      Number.new(if unitless?
+                          self.value
+                        else
+                          self.value * coercion_factor(self.numerator_units, num_units) /
+                            coercion_factor(self.denominator_units, den_units)
+                        end, num_units, den_units)
+    end
+    
+    def coercion_factor(from_units, to_units)
+      # get a list of unmatched units
+      from_units, to_units = sans_common_units(from_units, to_units)
+
+      if from_units.size != to_units.size || !convertable?(from_units | to_units)
+        raise Sass::SyntaxError.new("Incompatible units: '#{from_units.join('*')}' and '#{to_units.join('*')}'.")
+      end
+
+      from_units.zip(to_units).inject(1) {|m,p| m * conversion_factor(p[0], p[1]) }
+    end
+
+    def compute_units(this, other, operation)
+      case operation
+      when :*
+        [this.numerator_units + other.numerator_units, this.denominator_units + other.denominator_units]
+      when :/
+        [this.numerator_units + other.denominator_units, this.denominator_units + other.numerator_units]
+      else  
+        [this.numerator_units, this.denominator_units]
+      end
+    end
+
+    def unit_str
+      rv = numerator_units.join("*")
+      if denominator_units.any?
+        rv << "/"
+        rv << denominator_units.join("*")
+      end
+      rv
+    end
+
+    def normalize!
+      return if unitless?
+      @numerator_units, @denominator_units = sans_common_units(numerator_units, denominator_units)
+
+      @denominator_units.each_with_index do |d, i|
+        if convertable?(d) && (u = @numerator_units.detect(&method(:convertable?)))
+          @value /= conversion_factor(d, u)
+          @denominator_units.delete_at(i)
+          @numerator_units.delete_at(@numerator_units.index(u))
+        end
+      end
+    end
+
+    # A hash of unit names to their index in the conversion table
+    CONVERTABLE_UNITS = {"in" => 0,        "cm" => 1,    "pc" => 2,    "mm" => 3,   "pt" => 4}
+    CONVERSION_TABLE = [[ 1,                2.54,         6,            25.4,        72        ], # in
+                        [ nil,              1,            2.36220473,   10,          28.3464567], # cm
+                        [ nil,              nil,          1,            4.23333333,  12        ], # pc
+                        [ nil,              nil,          nil,          1,           2.83464567], # mm
+                        [ nil,              nil,          nil,          nil,         1         ]] # pt
+
+    def conversion_factor(from_unit, to_unit)
+      res = CONVERSION_TABLE[CONVERTABLE_UNITS[from_unit]][CONVERTABLE_UNITS[to_unit]]
+      return 1.0 / conversion_factor(to_unit, from_unit) if res.nil?
+      res
+    end
+
+    def convertable?(units)
+      Array(units).all?(&CONVERTABLE_UNITS.method(:include?))
+    end
+
+    def sans_common_units(units1, units2)
+      units2 = units2.dup
+      # Can't just use -, because we want px*px to coerce properly to px*mm
+      return units1.map do |u|
+        next u unless j = units2.index(u)
+        units2.delete_at(j)
+        nil
+      end.compact, units2
+    end
+  end
+end

data/lib/sass/script/operation.rb

@@ -0,0 +1,30 @@
+require 'sass/script/string'
+require 'sass/script/number'
+require 'sass/script/color'
+require 'sass/script/functions'
+require 'sass/script/unary_operation'
+
+module Sass::Script
+  class Operation # :nodoc:
+    def initialize(operand1, operand2, operator)
+      @operand1 = operand1
+      @operand2 = operand2
+      @operator = operator
+    end
+
+    def inspect
+      "(#{@operator.inspect} #{@operand1.inspect} #{@operand2.inspect})"
+    end
+
+    def perform(environment)
+      literal1 = @operand1.perform(environment)
+      literal2 = @operand2.perform(environment)
+      begin
+        literal1.send(@operator, literal2)
+      rescue NoMethodError => e
+        raise e unless e.name.to_s == @operator.to_s
+        raise Sass::SyntaxError.new("Undefined operation: \"#{literal1} #{@operator} #{literal2}\".")
+      end
+    end
+  end
+end

data/lib/sass/script/parser.rb

@@ -0,0 +1,142 @@
+require 'sass/script/lexer'
+
+module Sass
+  module Script
+    class Parser
+      def initialize(str, line, offset, filename = nil)
+        @filename = filename
+        @lexer = Lexer.new(str, line, offset)
+      end
+
+      def parse_interpolated
+        expr = assert_expr :expr
+        assert_tok :end_interpolation
+        expr
+      end
+
+      def parse
+        expr = assert_expr :expr
+        raise Sass::SyntaxError.new("Unexpected #{@lexer.peek.type} token.") unless @lexer.done?
+        expr
+      end
+
+      def self.parse(*args)
+        new(*args).parse
+      end
+
+      private
+
+      # Defines a simple left-associative production.
+      # name is the name of the production,
+      # sub is the name of the production beneath it,
+      # and ops is a list of operators for this precedence level
+      def self.production(name, sub, *ops)
+        class_eval <<RUBY
+          def #{name}
+            return unless e = #{sub}
+            while tok = try_tok(#{ops.map {|o| o.inspect}.join(', ')})
+              e = Operation.new(e, assert_expr(#{sub.inspect}), tok.type)
+            end
+            e
+          end
+RUBY
+      end
+
+      def self.unary(op, sub)
+        class_eval <<RUBY
+          def unary_#{op}
+            return #{sub} unless try_tok(:#{op})
+            UnaryOperation.new(assert_expr(:unary_#{op}), :#{op})
+          end
+RUBY
+      end
+
+      production :expr, :concat, :comma
+
+      def concat
+        return unless e = or_expr
+        while sub = or_expr
+          e = Operation.new(e, sub, :concat)
+        end
+        e
+      end
+
+      production :or_expr, :and_expr, :or
+      production :and_expr, :eq_or_neq, :and
+      production :eq_or_neq, :relational, :eq, :neq
+      production :relational, :plus_or_minus, :gt, :gte, :lt, :lte
+      production :plus_or_minus, :times_div_or_mod, :plus, :minus
+      production :times_div_or_mod, :unary_minus, :times, :div, :mod
+
+      unary :minus, :unary_div
+      unary :div, :unary_not # For strings, so /foo/bar works
+      unary :not, :funcall
+
+      def funcall
+        return paren unless name = try_tok(:ident)
+        # An identifier without arguments is just a string
+        unless try_tok(:lparen)
+          warn(<<END)
+DEPRECATION WARNING:
+On line #{name.line}, character #{name.offset}#{" of '#{@filename}'" if @filename}
+Implicit strings have been deprecated and will be removed in version 2.4.
+'#{name.value}' was not quoted. Please add double quotes (e.g. "#{name.value}").
+END
+          Script::String.new(name.value)
+        else
+          args = arglist || []
+          assert_tok(:rparen)
+          Script::Funcall.new(name.value, args)
+        end
+      end
+
+      def arglist
+        return unless e = concat
+        return [e] unless try_tok(:comma)
+        [e, *arglist]
+      end
+
+      def paren
+        return variable unless try_tok(:lparen)
+        e = assert_expr(:expr)
+        assert_tok(:rparen)
+        return e
+      end
+
+      def variable
+        return string unless c = try_tok(:const)
+        Variable.new(c.value)
+      end
+
+      def string
+        return literal unless first = try_tok(:string)
+        return first.value unless try_tok(:begin_interpolation)
+        mid = parse_interpolated
+        last = assert_expr(:string)
+        Operation.new(first.value, Operation.new(mid, last, :plus), :plus)
+      end
+
+      def literal
+        (t = try_tok(:number, :color, :bool)) && (return t.value)
+      end
+
+      # It would be possible to have unified #assert and #try methods,
+      # but detecting the method/token difference turns out to be quite expensive.
+
+      def assert_expr(name)
+        (e = send(name)) && (return e)
+        raise Sass::SyntaxError.new("Expected expression, was #{@lexer.done? ? 'end of text' : "#{@lexer.peek.type} token"}.")
+      end
+
+      def assert_tok(*names)
+        (t = try_tok(*names)) && (return t)
+        raise Sass::SyntaxError.new("Expected #{names.join(' or ')} token, was #{@lexer.done? ? 'end of text' : "#{@lexer.peek.type} token"}.")
+      end
+
+      def try_tok(*names)
+        peeked =  @lexer.peek
+        peeked && names.include?(peeked.type) && @lexer.next
+      end
+    end
+  end
+end

data/lib/sass/script/string.rb

@@ -0,0 +1,9 @@
+require 'sass/script/literal'
+
+module Sass::Script
+  class String < Literal # :nodoc:
+    def to_s
+      @value
+    end
+  end
+end

data/lib/sass/script/unary_operation.rb

@@ -0,0 +1,21 @@
+module Sass::Script
+  class UnaryOperation # :nodoc:
+    def initialize(operand, operator)
+      @operand = operand
+      @operator = operator
+    end
+
+    def inspect
+      "(#{@operator.inspect} #{@operand.inspect})"
+    end
+
+    def perform(environment)
+      operator = "unary_#{@operator}"
+      literal = @operand.perform(environment)
+      literal.send(operator)
+    rescue NoMethodError => e
+      raise e unless e.name.to_s == operator.to_s
+      raise Sass::SyntaxError.new("Undefined unary operation: \"#{@operator} #{literal}\".")
+    end
+  end
+end

data/lib/sass/script/variable.rb

@@ -0,0 +1,20 @@
+module Sass
+  module Script
+    class Variable # :nodoc:
+      attr_reader :name
+
+      def initialize(name)
+        @name = name
+      end
+
+      def inspect
+        "!#{name}"
+      end
+
+      def perform(environment)
+        (val = environment.var(name)) && (return val)
+        raise SyntaxError.new("Undefined variable: \"!#{name}\".")
+      end
+    end
+  end
+end

data/lib/sass/script.rb

@@ -0,0 +1,38 @@
+require 'strscan'
+require 'sass/script/variable'
+require 'sass/script/funcall'
+require 'sass/script/operation'
+require 'sass/script/literal'
+require 'sass/script/parser'
+
+module Sass
+  # This module contains various SassScript-related functionality.
+  module Script
+    # :stopdoc:
+    # The character that begins a variable.
+    VARIABLE_CHAR = ?!
+
+    # The regular expression used to parse variables
+    MATCH = /^!([a-zA-Z_]\w*)\s*((?:\|\|)?=)\s*(.+)/
+
+    # The regular expression used to validate variables without matching
+    VALIDATE = /^![a-zA-Z_]\w*$/
+
+    def self.resolve(value, line, offset, environment)
+      parse(value, line, offset).perform(environment).to_s
+    end
+
+    def self.parse(value, line, offset, filename = nil)
+      Parser.parse(value, line, offset, filename)
+    rescue Sass::SyntaxError => e
+      if e.message == "SassScript error"
+        e.instance_eval do
+          @message += ": #{value.dump}."
+        end
+      end
+      e.sass_line = line
+      raise e
+    end
+    # :startdoc:
+  end
+end

data/lib/sass/tree/attr_node.rb

@@ -0,0 +1,64 @@
+module Sass::Tree
+  class AttrNode < Node
+    attr_accessor :name, :value
+    
+    def initialize(name, value, options)
+      @name = name
+      @value = value
+      super(options)
+    end
+
+    def ==(other)
+      self.class == other.class && name == other.name && value == other.value && super
+    end
+
+    def to_s(tabs, parent_name = nil)
+      if value[-1] == ?;
+        raise Sass::SyntaxError.new("Invalid attribute: #{declaration.dump} (This isn't CSS!).", @line)
+      end
+      real_name = name
+      real_name = "#{parent_name}-#{real_name}" if parent_name
+      
+      if value.empty? && children.empty?
+        raise Sass::SyntaxError.new("Invalid attribute: #{declaration.dump}.", @line)
+      end
+      
+      join_string = case @style
+                    when :compact; ' '
+                    when :compressed; ''
+                    else "\n"
+                    end
+      spaces = '  ' * (tabs - 1)
+      to_return = ''
+      if !value.empty?
+        to_return << "#{spaces}#{real_name}:#{@style == :compressed ? '' : ' '}#{value};#{join_string}"
+      end
+      
+      children.each do |kid|
+        to_return << kid.to_s(tabs, real_name) << join_string
+      end
+      
+      (@style == :compressed && parent_name) ? to_return : to_return[0...-1]
+    end
+
+    protected
+    
+    def perform!(environment)
+      @name = interpolate(@name, environment)
+      @value = @value.is_a?(String) ? interpolate(@value, environment) : @value.perform(environment).to_s
+      super
+    end
+
+    private
+
+    def declaration
+      ":#{name} #{value}"
+    end
+
+    def invalid_child?(child)
+      if !child.is_a?(AttrNode) && !child.is_a?(CommentNode)
+        "Illegal nesting: Only attributes may be nested beneath attributes."
+      end
+    end
+  end
+end

data/lib/sass/tree/comment_node.rb

@@ -0,0 +1,30 @@
+require 'sass/tree/node'
+
+module Sass::Tree
+  class CommentNode < Node
+    attr_accessor :lines
+    attr_accessor :value
+
+    def initialize(value, options)
+      @lines = []
+      @value = value[2..-1].strip
+      super(options)
+    end
+
+    def ==(other)
+      self.class == other.class && value == other.value && lines == other.lines
+    end
+
+    def silent?
+      !!@options[:silent]
+    end
+
+    def to_s(tabs = 0, parent_name = nil)
+      return if (@style == :compressed || silent?)
+
+      spaces = '  ' * (tabs - 1)
+      spaces + "/* " + ([value] + lines.map {|l| l.text}).
+        map{|l| l.sub(%r{ ?\*/ *$},'')}.join(@style == :compact ? ' ' : "\n#{spaces} * ") + " */"
+    end
+  end
+end

data/lib/sass/tree/debug_node.rb

@@ -0,0 +1,22 @@
+module Sass
+  module Tree
+    class DebugNode < Node
+      def initialize(expr, options)
+        @expr = expr
+        super(options)
+      end
+
+      protected
+
+      def _perform(environment)
+        res = @expr.perform(environment)
+        if filename
+          STDERR.puts "#{filename}:#{line} DEBUG: #{res}"
+        else
+          STDERR.puts "Line #{line} DEBUG: #{res}"
+        end
+        []
+      end
+    end
+  end
+end