#
# $Id: externalid.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

#
# Class representing an external ID.
#
class ExternalID(system_id, public_id)
   #
   # Get the public id (if any)
   #
   method get_public_id()
      return public_id
   end

   #
   # Set the public id
   #
   method set_public_id(s)
      return public_id := s
   end

   #
   # Get the system id
   #
   method get_system_id()
      return system_id
   end

   #
   # Set the system id
   #
   method set_system_id(s)
      return system_id := s
   end

   #
   # Get a string representation of this object.
   #
   method to_string()
      return "ExternalID[" || image(public_id) || "," || image(system_id) || "]"
   end
end
