lib/walrat/proc_parslet.rb

   1 # Copyright 2007-2010 Wincent Colaiuta. All rights reserved.
   2 # Redistribution and use in source and binary forms, with or without
   3 # modification, are permitted provided that the following conditions are met:
   4 #
   5 # 1. Redistributions of source code must retain the above copyright notice,
   6 #    this list of conditions and the following disclaimer.
   7 # 2. Redistributions in binary form must reproduce the above copyright notice,
   8 #    this list of conditions and the following disclaimer in the documentation
   9 #    and/or other materials provided with the distribution.
  10 #
  11 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  12 # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  13 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  14 # ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE
  15 # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  16 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  17 # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  18 # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  19 # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  20 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  21 # POSSIBILITY OF SUCH DAMAGE.
  22
  23 require 'walrat'
  24
  25 module Walrat
  26   class ProcParslet < Parslet
  27     attr_reader :hash
  28
  29     def initialize proc
  30       raise ArgumentError, 'nil proc' if proc.nil?
  31       self.expected_proc = proc
  32     end
  33
  34     def parse string, options = {}
  35       raise ArgumentError, 'nil string' if string.nil?
  36       @expected_proc.call string, options
  37     end
  38
  39     def eql?(other)
  40       other.instance_of? ProcParslet and other.expected_proc == @expected_proc
  41     end
  42
  43   protected
  44
  45     # For equality comparisons.
  46     attr_reader :expected_proc
  47
  48   private
  49
  50     def expected_proc=(proc)
  51       @expected_proc = (proc.clone rescue proc)
  52       update_hash
  53     end
  54
  55     def update_hash
  56       # fixed offset to avoid collisions with @parseable objects
  57       @hash = @expected_proc.hash + 105
  58     end
  59   end # class ProcParslet
  60 end # module Walrat