# # $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 reprsenting 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