# --------------------
# get_unique_node_name
# --------------------

# This subroutine verfies that a node name does not yet exist
# in the specified node, if a node name already exists it will
# be modified to be unique.
# Returns the argument node_name or a modified unique node_name

subroutine(get_unique_node_name(node node_to_check, string the_node_name), (

	if (subnode_exists(node_to_check, the_node_name)) then (
	
		# append number++ to node_name until node_name is unique
	
		bool modify_node_name = true;
		int count = 1;
		string new_node_name;
		
		while (modify_node_name) (
		
			count++;
			
			new_node_name = the_node_name . count;
			
			if (!subnode_exists(node_to_check, new_node_name)) then (
			
				modify_node_name = false;
				
				the_node_name = new_node_name;
			);
		);
	);
	
	the_node_name;

));