brakeman 4.5.1 → 4.10.1

data/bundle/ruby/{2.5.0/gems/sexp_processor-4.12.0/lib/sexp.rb → 2.7.0/gems/sexp_processor-4.15.1/lib/sexp_matcher.rb}

@@ -1,371 +1,3 @@
-$TESTING ||= false # unless defined $TESTING
-
-##
-# Sexps are the basic storage mechanism of SexpProcessor.  Sexps have
-# a +type+ (to be renamed +node_type+) which is the first element of
-# the Sexp. The type is used by SexpProcessor to determine whom to
-# dispatch the Sexp to for processing.
-
-class Sexp < Array # ZenTest FULL
-  ##
-  # A setter for the line this sexp was found on. Usually set by ruby_parser.
-
-  attr_writer :line
-
-  ##
-  # Accessors for the file. Usually set by ruby_parser.
-
-  attr_accessor :file
-
-  ##
-  # Optional comments above/aside this sexp. Usually set by ruby_parser.
-
-  attr_accessor :comments
-
-  @@array_types = [ :array, :args ] # TODO: remove
-
-  ##
-  # Create a new Sexp containing +args+.
-
-  def initialize *args
-    super(args)
-  end
-
-  ##
-  # Creates a new Sexp from Array +a+.
-
-  def self.from_array a
-    ary = Array === a ? a : [a]
-
-    self.new.concat(ary.map { |x|
-               case x
-               when Sexp
-                 x
-               when Array
-                 self.from_array(x)
-               else
-                 x
-               end
-             })
-  end
-
-  ##
-  # Creates a new sexp with the new contents of +body+, but with the
-  # same +file+, +line+, and +comment+ as self.
-
-  def new(*body)
-    r = self.class.new.concat(body) # ensures a sexp from map
-    r.file     = self.file     if self.file
-    r.line     = self.line     if self.line
-    r.comments = self.comments if self.comments
-    r
-  end
-
-  def map &blk # :nodoc:
-    self.new.concat(super(&blk)) # ensures a sexp from map
-  end
-
-  def == obj # :nodoc:
-    obj.class == self.class and super # only because of a bug in ruby
-  end
-
-  ##
-  # Returns true if the node_type is +array+ or +args+.
-  #
-  # REFACTOR: to TypedSexp - we only care when we have units.
-
-  def array_type?
-    warn "DEPRECATED: please file an issue if you actually use this. from #{caller.first}"
-    type = self.sexp_type
-    @@array_types.include? type
-  end
-
-  def compact # :nodoc:
-    self.delete_if(&:nil?)
-  end
-
-  ##
-  # Recursively enumerates the sexp yielding to +block+ for every element.
-  #
-  # Returning :skip will stop traversing that subtree:
-  #
-  #   sexp.deep_each do |s|
-  #     next :skip if s.sexp_type == :if
-  #     # ...
-  #   end
-
-  def deep_each &block
-    return enum_for(:deep_each) unless block_given?
-
-    self.each_sexp do |sexp|
-      next if block[sexp] == :skip
-      sexp.deep_each(&block)
-    end
-  end
-
-  ##
-  # Return the maximum depth of the sexp. One-based.
-
-  def depth
-    1 + (each_sexp.map(&:depth).max || 0)
-  end
-
-  ##
-  # Enumeratates the sexp yielding to +b+ when the node_type == +t+.
-
-  def each_of_type t, &b
-    return enum_for(:each_of_type) unless block_given?
-
-    each_sexp do | sexp |
-      sexp.each_of_type(t, &b)
-      yield sexp if sexp.sexp_type == t
-    end
-  end
-
-  ##
-  # Recursively enumerates all sub-sexps skipping non-Sexp elements.
-
-  def each_sexp
-    return enum_for(:each_sexp) unless block_given?
-
-    self.each do |sexp|
-      next unless Sexp === sexp
-
-      yield sexp
-    end
-  end
-
-  ##
-  # Replaces all elements whose node_type is +from+ with +to+. Used
-  # only for the most trivial of rewrites.
-
-  def find_and_replace_all from, to
-    each_with_index do | elem, index |
-      if Sexp === elem then
-        elem.find_and_replace_all(from, to)
-      elsif elem == from
-        self[index] = to
-      end
-    end
-  end
-
-  ##
-  # Replaces all Sexps matching +pattern+ with Sexp +repl+.
-
-  def gsub pattern, repl
-    return repl if pattern == self
-
-    new = self.map { |subset|
-      case subset
-      when Sexp then
-        if Matcher === pattern && pattern.satisfy?(subset) then # TODO: make === be satisfy? maybe?
-          repl.dup rescue repl
-        else
-          subset.gsub pattern, repl
-        end
-      else
-        subset
-      end
-    }
-
-    Sexp.from_array new
-  end
-
-  def inspect # :nodoc:
-    sexp_str = self.map(&:inspect).join ", "
-    if ENV["VERBOSE"] && line then
-      "s(#{sexp_str}).line(#{line})"
-    else
-      "s(#{sexp_str})"
-    end
-  end
-
-  def find_node name, delete = false # :nodoc:
-    matches = find_nodes name
-
-    case matches.size
-    when 0 then
-      nil
-    when 1 then
-      match = matches.first
-      delete match if delete
-      match
-    else
-      raise NoMethodError, "multiple nodes for #{name} were found in #{inspect}"
-    end
-  end
-
-  ##
-  # Find every node with type +name+.
-
-  def find_nodes name
-    each_sexp.find_all { |sexp| sexp.sexp_type == name }
-  end
-
-  ##
-  # If passed a line number, sets the line and returns self. Otherwise
-  # returns the line number. This allows you to do message cascades
-  # and still get the sexp back.
-
-  def line n = nil
-    if n then
-      @line = n
-      self
-    else
-      @line ||= nil
-    end
-  end
-
-  ##
-  # Returns the maximum line number of the children of self.
-
-  def line_max
-    @line_max ||= self.deep_each.map(&:line).max
-  end
-
-  ##
-  # Returns the size of the sexp, flattened.
-
-  def mass
-    @mass ||= inject(1) { |t, s| Sexp === s ? t + s.mass : t }
-  end
-
-  ##
-  # Returns the node named +node+, deleting it if +delete+ is true.
-
-  def method_missing meth, delete = false
-    r = find_node meth, delete
-    if ENV["DEBUG"] then
-      if r.nil? then
-        warn "%p.method_missing(%p) => nil from %s" % [self, meth, caller.first]
-      elsif ENV["VERBOSE"]
-        warn "%p.method_missing(%p) from %s" % [self, meth, caller.first]
-      end
-    end
-    r
-  end
-
-  def respond_to? msg, private = false # :nodoc:
-    # why do I need this? Because ruby 2.0 is broken. That's why.
-    super
-  end
-
-  def pretty_print q # :nodoc:
-    nnd = ")"
-    nnd << ".line(#{line})" if line && ENV["VERBOSE"]
-
-    q.group(1, "s(", nnd) do
-      q.seplist(self) {|v| q.pp v }
-    end
-  end
-
-  ##
-  # Returns the node type of the Sexp.
-
-  def sexp_type
-    first
-  end
-
-  ##
-  # Sets the node type of the Sexp.
-
-  def sexp_type= v
-    self[0] = v
-  end
-
-  ##
-  # Returns the Sexp body (starting at +from+, defaulting to 1), ie
-  # the values without the node type.
-
-  def sexp_body from = 1
-    self.new.concat(self[from..-1] || [])
-  end
-
-  ##
-  # Returns the Sexp body, ie the values without the node type.
-
-  def sexp_body= v
-    self[1..-1] = v
-  end
-
-  alias :head :sexp_type
-  alias :rest :sexp_body
-
-  ##
-  # If run with debug, Sexp will raise if you shift on an empty
-  # Sexp. Helps with debugging.
-
-  def shift
-    raise "I'm empty" if self.empty?
-    super
-  end if ($DEBUG or $TESTING)
-
-  ##
-  # Returns the bare bones structure of the sexp.
-  # s(:a, :b, s(:c, :d), :e) => s(:a, s(:c))
-
-  def structure
-    if Array === self.sexp_type then
-      warn "NOTE: form s(s(:subsexp)).structure is deprecated. Removing in 5.0"
-      s(:bogus, *self).structure # TODO: remove >= 4.2.0
-    else
-      s(self.sexp_type, *each_sexp.map(&:structure))
-    end
-  end
-
-  ##
-  # Replaces the Sexp matching +pattern+ with +repl+.
-
-  def sub pattern, repl
-    return repl.dup if pattern == self
-    return repl.dup if Matcher === pattern && pattern.satisfy?(self)
-
-    done = false
-
-    new = self.map do |subset|
-      if done then
-        subset
-      else
-        case subset
-        when Sexp then
-          if pattern == subset then
-            done = true
-            repl.dup rescue repl
-          elsif Matcher === pattern && pattern.satisfy?(subset) then
-            done = true
-            repl.dup rescue repl
-          else
-            subset.sub pattern, repl
-          end
-        else
-          subset
-        end
-      end
-    end
-
-    Sexp.from_array new
-  end
-
-  def to_a # :nodoc:
-    self.map { |o| Sexp === o ? o.to_a : o }
-  end
-
-  alias to_s inspect # :nodoc:
-end
-
-##
-# This is a very important shortcut to make using Sexps much more awesome.
-#
-# In its normal form +s(...)+, creates a Sexp instance. If passed a
-# block, it creates a Sexp::Matcher using the factory methods on Sexp.
-#
-# See Matcher and other factory class methods on Sexp.
-
-def s *args, &blk
-  return Sexp.class_eval(&blk) if blk
-  Sexp.new(*args)
-end
-
 class Sexp #:nodoc:
   ##
   # Verifies that +pattern+ is a Matcher and then dispatches to its
@@ -443,10 +75,16 @@ class Sexp #:nodoc:
   #
   # See Matcher for examples.
 
-  def self.s *args
+  def self.q *args
     Matcher.new(*args)
   end
 
+  def self.s *args
+    where = caller.first.split(/:/, 3).first(2).join ":"
+    warn "DEPRECATED: use Sexp.q(...) instead. From %s" % [where]
+    q(*args)
+  end
+
   ##
   # Matches any single item.
   #
@@ -518,6 +156,10 @@ class Sexp #:nodoc:
     Not.new arg
   end
 
+  class << self
+    alias - not?
+  end
+
   # TODO: add Sibling factory method?
 
   ##
@@ -558,6 +200,15 @@ class Sexp #:nodoc:
     Pattern.new Regexp.union(*res)
   end
 
+  ##
+  # Matches an atom of the specified +klass+ (or module).
+  #
+  # See Pattern for examples.
+
+  def self.k klass
+    Klass.new klass
+  end
+
   ##
   # Defines a family of objects that can be used to match sexps to
   # certain types of patterns, much like regexps can be used on
@@ -756,15 +407,14 @@ class Sexp #:nodoc:
       # Create a new Parser instance on +s+
 
       def initialize s
-        self.tokens = []
-        lex s
+        self.tokens = lex s
       end
 
       ##
       # Converts +s+ into a stream of tokens and adds them to +tokens+.
 
       def lex s
-        tokens.concat s.scan(%r%[()\[\]]|\"[^"]*\"|/[^/]*/|[\w-]+%) # "
+        s.scan %r%[()\[\]]|\"[^"]*\"|/[^/]*/|:?[\w?!=~-]+%
       end
 
       ##
@@ -801,9 +451,11 @@ class Sexp #:nodoc:
       #        | "_"                         => Sexp._
       #        | /^\/(.*)\/$/:re             => Regexp.new re[0]
       #        | /^"(.*)"$/:s                => String.new s[0]
+      #        | UP_NAME:name                => Object.const_get name
       #        | NAME:name                   => name.to_sym
-      #   NAME : /\w+/
-      #    CMD : "t" | "m" | "atom"
+      # UP_NAME: /[A-Z]\w*/
+      #   NAME : /:?[\w?!=~-]+/
+      #    CMD : t | k | m | atom | not? | - | any | child | include
 
       def parse_sexp
         token = next_token
@@ -828,8 +480,10 @@ class Sexp #:nodoc:
           Regexp.new re
         when /^"(.*)"$/ then
           $1
-        when /^\w+$/ then
-          token.to_sym
+        when /^([A-Z]\w*)$/ then
+          Object.const_get $1
+        when /^:?([\w?!=~-]+)$/ then
+          $1.to_sym
         else
           raise SyntaxError, "unhandled token: %p" % [token]
         end
@@ -845,13 +499,13 @@ class Sexp #:nodoc:
         result << parse_sexp while peek_token && peek_token != ")"
         next_token # pop off ")"
 
-        Sexp.s(*result)
+        Sexp.q(*result)
       end
 
       ##
       # A collection of allowed commands to convert into matchers.
 
-      ALLOWED = [:t, :m, :atom].freeze
+      ALLOWED = [:t, :m, :k, :atom, :not?, :-, :any, :child, :include].freeze
 
       ##
       # Parses a balanced command. A command is denoted by square
@@ -864,7 +518,7 @@ class Sexp #:nodoc:
         next_token # pop off "]"
 
         cmd = args.shift
-        args = Sexp.s(*args)
+        args = Sexp.q(*args)
 
         raise SyntaxError, "bad cmd: %p" % [cmd] unless ALLOWED.include? cmd
 
@@ -1106,11 +760,8 @@ class Sexp #:nodoc:
     # +child+.
 
     def satisfy? o
-      if child.satisfy? o
-        true
-      elsif o.kind_of? Sexp
-        o.search_each(child).any?
-      end
+      child.satisfy?(o) ||
+        (o.kind_of?(Sexp) && o.search_each(child).any?)
     end
 
     def == o # :nodoc:
@@ -1200,6 +851,37 @@ class Sexp #:nodoc:
         q.pp pattern
       end
     end
+
+    def eql? o
+      super and self.pattern.eql? o.pattern
+    end
+
+    def hash
+      [super, pattern].hash
+    end
+  end
+
+  ##
+  # Matches any atom that is an instance of the specified class or module.
+  #
+  # examples:
+  #
+  #   s(:lit, 6.28) / s{ q(:lit, k(Float)) }                   #=> [s(:lit, 6.28)]
+
+  class Klass < Pattern
+    def satisfy? o
+      o.kind_of? self.pattern
+    end
+
+    def inspect # :nodoc:
+      "k(%p)" % pattern
+    end
+
+    def pretty_print q # :nodoc:
+      q.group 1, "k(", ")" do
+        q.pp pattern
+      end
+    end
   end
 
   ##
@@ -1415,6 +1097,4 @@ class Sexp #:nodoc:
       end
     end
   end # class MatchCollection
-end
-
-require "strict_sexp" if ENV["STRICT_SEXP"].to_i > 0
+end # class Sexp