#
# $Id: parsedobject.icn,v 1.1 2004/02/12 17:01:53 rparlett Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package parser

class ParsedObject(name, source_node, parent)
   method get_name()
      return name
   end

   method get_parent()
      return parent
   end

   method set_parent(x)
      parent := x
   end

   method get_source_node()
      return source_node
   end

   method set_source_node(n)
      source_node := n
      init(n)
   end

   abstract method init(n)

   initially(n, p)
      self.parent := p
      set_source_node(\n)
end