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