]> git.wincent.com - walrat.git/blob - lib/walrat/string_parslet.rb
Initial import (extraction from Walrus repo, commit 0c9d44c)
[walrat.git] / lib / walrat / string_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 StringParslet < Parslet
27     attr_reader :hash
28
29     def initialize string
30       raise ArgumentError if string.nil?
31       self.expected_string = string
32     end
33
34     def parse string, options = {}
35       raise ArgumentError if string.nil?
36       chars         = StringEnumerator.new string
37       parsed        = StringResult.new
38       parsed.start  = [options[:line_start], options[:column_start]]
39       parsed.end    = parsed.start
40       expected_string.each_char do |expected_char|
41         actual_char = chars.next
42         if actual_char.nil?
43           raise ParseError.new('unexpected end-of-string (expected "%s") while parsing "%s"' %
44                                [ expected_char, expected_string ],
45                                :line_end    => parsed.line_end,
46                                :column_end  => parsed.column_end)
47         elsif actual_char != expected_char
48           raise ParseError.new('unexpected character "%s" (expected "%s") while parsing "%s"' %
49                                [ actual_char, expected_char, expected_string],
50                                :line_end    => parsed.line_end,
51                                :column_end  => parsed.column_end)
52         else
53           if actual_char == "\r" or
54             (actual_char == "\n" and chars.last != "\r")  # catches Mac, Windows and UNIX end-of-line markers
55             parsed.column_end = 0
56             parsed.line_end   = parsed.line_end + 1
57           elsif actual_char != "\n"                     # \n is ignored if it is preceded by an \r (already counted above)
58             parsed.column_end = parsed.column_end + 1   # everything else gets counted
59           end
60           parsed << actual_char
61         end
62       end
63       parsed.source_text = parsed.to_s.clone
64       parsed
65     end
66
67     def eql?(other)
68       other.instance_of? StringParslet and
69         other.expected_string == @expected_string
70     end
71
72   protected
73
74     # For equality comparisons.
75     attr_reader :expected_string
76
77   private
78
79     def expected_string=(string)
80       @expected_string = (string.clone rescue string)
81       update_hash
82     end
83
84     def update_hash
85       # fixed offset to avoid collisions with @parseable objects
86       @hash = @expected_string.hash + 20
87     end
88   end # class StringParslet
89 end # module Walrat