#
# $Id: processinginstruction.icn,v 1.1 2003/08/04 17:35:05 jeffery Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package xml

#
# This class represents a processing instruction in the document.
#
class ProcessingInstruction : Node(target, content)
   #
   # Return the target
   #
   method get_target()
      return target
   end

   #
   # Set the target
   #
   method set_target(target)
      self.target := target
   end

   #
   # Get the content, ie everything in the PI other than the target.
   #
   method get_content()
      return content
   end

   #
   # Set the content
   #
   method set_content(content)
      self.content := content
   end

   #
   # Returns "pi"
   #
   method get_type()
      return "pi"
   end

   #
   # Get a string representation of this object.
   #
   method to_string()
      return "ProcessInstruction[" || image(target) || "," || image(content) || "]"
   end

   initially()
      self.Node.initially()
end