]> git.wincent.com - walrat.git/blob - lib/walrat/node.rb
Initial import (extraction from Walrus repo, commit 0c9d44c)
[walrat.git] / lib / walrat / node.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   # Make subclasses of this for us in Abstract Syntax Trees (ASTs).
27   class Node
28     include Walrat::LocationTracking
29
30     attr_reader :lexeme
31
32     def initialize lexeme
33       @string_value = lexeme.to_s
34       @lexeme = lexeme
35     end
36
37     def to_s
38       @string_value
39     end
40
41     # Overrides the default initialize method to accept the defined
42     # attributes and sets up an read accessor for each.
43     #
44     # Raises an error if called directly on Node itself rather than
45     # a subclass.
46     def self.production *results
47       raise 'Node#production called directly on Node' if self == Node
48
49       # set up accessors
50       results.each { |result| attr_reader result }
51
52       # set up initializer
53       initialize_body = "def initialize #{results.map { |symbol| symbol.to_s}.join(', ')}\n"
54       initialize_body << %Q{  @string_value = ""\n}
55       results.each do |result|
56         initialize_body << "  @#{result} = #{result}\n"
57         initialize_body << "  @string_value << #{result}.to_s\n"
58       end
59       initialize_body << "end\n"
60       class_eval initialize_body
61     end
62   end # class Node
63 end # module Walrat