Contents

module QED

  # = Patter Advice (When)
  #
  # This class tracks When advice defined by demo scripts
  # and helpers. It is instantiated in Scope, so that
  # the advice methods will have access to the same
  # local binding and the demo scripts themselves.
  #
  class Patterns

    attr :when

    def initialize
      @when = []
    end

    #
    def add(pattern, &procedure)
      @when << [pattern, procedure]
    end

    #
    def call(match, *args)
      @when.each do |(pattern, proc)|
        case pattern
        when Regexp
          regex = pattern
        else
          regex = when_string_to_regexp(pattern)
        end
        if md = regex.match(match)
          proc.call(*md[1..-1])
        end
      end
    end

  private

    #
    def when_string_to_regexp(str)
      str = str.split(/(\(\(.*?\)\))(?!\))/).map{ |x|
        x =~ /\A\(\((.*)\)\)\z/ ? $1 : Regexp.escape(x)
      }.join
      str = str.gsub(/(\\\ )+/, '\s+')
      Regexp.new(str, Regexp::IGNORECASE)

      #rexps = []
      #str = str.gsub(/\(\((.*?)\)\)/) do |m|
      #  rexps << '(' + $1 + ')'
      #  "\0"
      #end
      #str = Regexp.escape(str)
      #rexps.each do |r|
      #  str = str.sub("\0", r)
      #end
      #str = str.gsub(/(\\\ )+/, '\s+')
      #Regexp.new(str, Regexp::IGNORECASE)
    end

  end

end

Version data entries

3 entries across 3 versions & 1 rubygems

Version	Path
qed-2.1.1	lib/qed/advice/patterns.rb
qed-2.0.0	lib/qed/advice/patterns.rb
qed-2.1.0	lib/qed/advice/patterns.rb