/lib/ruby/osc/pattern.rb

require 'set'
module OSC
  class Pattern < String
    # Create an OSC pattern from a string or (experimental) from a Regex.
    def initialize(s)
      case s
      when Regexp # This is experimental
	s = Regexp.source s
	s.gsub! /(\\\\)*\[^\/\]\*/, "\1*"
	s.gsub! /(\\\\)*\[^\/\]/, "\1?"
	s.gsub! /(\\\\)*\[^/, "\1[!"
	s.gsub! /(\\\\)*\(/, "\1{"
	s.gsub! /(\\\\)*\|/, "\1,"
	s.gsub! /(\\\\)*\)/, "\1}"
	s.gsub! /\\\\/, "\\"
      end
      super s
    end

    # Return a Regex representing this pattern
    def regexp
      s = '^'
      s << Regexp.escape(self)
      s.gsub! /\\\?/, '[^/]'
      s.gsub! /\\\*/, '[^/]*'
      s.gsub! /\\\[!/, '[^'
      s.gsub! /\\\]/, ']'
      s.gsub! /\\\{/, '('
      s.gsub! /,/, '|'
      s.gsub! /\\\}/, ')'
      s << "$"
      Regexp.new s
    end

    def self.intersect?(pattern, string)
      return pattern =~ string
    end
  end
end