/*
 * Copyright 2004,2005 The Apache Software Foundation.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
 
#include <sandesha2_mc_address.h>
#include <sandesha2_constants.h>
#include <axis2_addr.h>
#include <sandesha2_error.h>
/** 
 * @brief MC Address struct impl
 *	Sandesha2 MC Address
 */
  
struct sandesha2_mc_address_t
{
	axis2_endpoint_ref_t *epr;
	axis2_char_t *ns_val;
};
                   	
/*static axis2_bool_t AXIS2_CALL 
sandesha2_mc_address_is_namespace_supported(
   	const axutil_env_t *env, 
    axis2_char_t *namespace);*/

AXIS2_EXTERN sandesha2_mc_address_t* AXIS2_CALL
sandesha2_mc_address_create(
    const axutil_env_t *env, 
    axis2_char_t *ns_val, 
	axis2_endpoint_ref_t *epr)
{
    sandesha2_mc_address_t *mc_address = NULL;
    AXIS2_PARAM_CHECK(env->error, ns_val, NULL);
    
    mc_address =  (sandesha2_mc_address_t *)AXIS2_MALLOC 
        (env->allocator, sizeof(sandesha2_mc_address_t));
	
    if(!mc_address)
	{
		AXIS2_ERROR_SET(env->error, AXIS2_ERROR_NO_MEMORY, AXIS2_FAILURE);
        return NULL;
	}
    mc_address->ns_val = axutil_strdup(env, ns_val);
    mc_address->epr = epr;
    
	return mc_address;
}


axis2_status_t AXIS2_CALL 
sandesha2_mc_address_free (
    sandesha2_mc_address_t *mc_address, 
    const axutil_env_t *env)
{
    if(mc_address->ns_val)
    {
        AXIS2_FREE(env->allocator, mc_address->ns_val);
        mc_address->ns_val = NULL;
    }
    
    if(mc_address->epr)
    {
        axis2_endpoint_ref_free(mc_address->epr, env);
        mc_address->epr = NULL;
    }

	AXIS2_FREE(env->allocator, mc_address);
	return AXIS2_SUCCESS;
}

axis2_char_t* AXIS2_CALL 
sandesha2_mc_address_get_namespace_value (
    sandesha2_mc_address_t *mc_address,
	const axutil_env_t *env)
{
	return mc_address->ns_val;
}

void* AXIS2_CALL 
sandesha2_mc_address_from_om_node(
    sandesha2_mc_address_t *mc_address,
   	const axutil_env_t *env, axiom_node_t *om_node)
{
    axiom_element_t *om_element = NULL;
    axiom_element_t *addr_part = NULL;
    axiom_node_t *addr_node = NULL;
    axutil_qname_t *addr_qname = NULL;
    axis2_char_t *str_mc_address = NULL;

    AXIS2_PARAM_CHECK(env->error, om_node, NULL);
    om_element = axiom_node_get_data_element(om_node, env);
    if(!om_element)
    {
        AXIS2_ERROR_SET(env->error, SANDESHA2_ERROR_NULL_OM_ELEMENT,
           AXIS2_FAILURE);
        return NULL;
    }
    addr_qname = axutil_qname_create(env, SANDESHA2_WSA_ADDRESS, 
           mc_address->ns_val, NULL);
    if(!addr_qname)
    {
        return NULL;
    } 
    addr_part = axiom_element_get_first_child_with_qname(om_element, env, 
            addr_qname, om_node, &addr_node);
    if(addr_qname)
        axutil_qname_free(addr_qname, env);
    if(!addr_part)
    {
        AXIS2_ERROR_SET(env->error, SANDESHA2_ERROR_NULL_OM_ELEMENT,
            AXIS2_FAILURE);
        return NULL;
    }
    str_mc_address = axiom_element_get_text(addr_part, env, addr_node);
    if(!str_mc_address || 0 == axutil_strlen(str_mc_address))
    {
        AXIS2_ERROR_SET(env->error, SANDESHA2_ERROR_EMPTY_OM_ELEMENT,
            AXIS2_FAILURE);
        return NULL;
    }

    if(mc_address->epr)
    {
        axis2_endpoint_ref_free(mc_address->epr, env);
        mc_address->epr = NULL;
    }

    mc_address->epr = axis2_endpoint_ref_create(env, str_mc_address);

    if(!mc_address->epr)
    {
        return NULL;
    }
    return mc_address;
}


axiom_node_t* AXIS2_CALL 
sandesha2_mc_address_to_om_node(
    sandesha2_mc_address_t *mc_address,
   	const axutil_env_t *env, 
    void *om_node)
{
    axiom_namespace_t *rm_ns = NULL;
    axiom_element_t *addr_element = NULL;
    axiom_node_t *addr_node = NULL;
    
    AXIS2_PARAM_CHECK(env->error, om_node, NULL);

    if(!mc_address->epr || !axis2_endpoint_ref_get_address(mc_address->epr, env) || 0 == axutil_strlen(
            axis2_endpoint_ref_get_address(mc_address->epr, env)))
    {
        AXIS2_ERROR_SET(env->error, SANDESHA2_ERROR_TO_OM_NULL_ELEMENT, AXIS2_FAILURE);
        return NULL;
    }

    rm_ns = axiom_namespace_create(env, mc_address->ns_val, SANDESHA2_WSMC_COMMON_NS_PREFIX_RM);
    if(!rm_ns)
    {
        return NULL;
    }

    addr_element = axiom_element_create(env, NULL, SANDESHA2_WSMC_ADDRESS, rm_ns, &addr_node);
    if(!addr_element)
    {
        return NULL;
    }

    axiom_element_set_text(addr_element, env, axis2_endpoint_ref_get_address(mc_address->epr, env), 
            addr_node);

    axiom_node_add_child((axiom_node_t*)om_node, env, addr_node);

    return (axiom_node_t*)om_node;
}

axis2_endpoint_ref_t * AXIS2_CALL                    	
sandesha2_mc_address_get_epr(
    sandesha2_mc_address_t *mc_address,
   	const axutil_env_t *env)
{
    return mc_address->epr;
}

                  	
axis2_status_t AXIS2_CALL
sandesha2_mc_address_set_epr(
    sandesha2_mc_address_t *mc_address,
   	const axutil_env_t *env, 
    axis2_endpoint_ref_t *epr)
{
    AXIS2_PARAM_CHECK(env->error, epr, AXIS2_FAILURE);
    
    if(mc_address->epr)
    {
        axis2_endpoint_ref_free(mc_address->epr, env);
        mc_address->epr = NULL;
    }

	mc_address->epr = epr;
    return AXIS2_SUCCESS;
}

/*static axis2_bool_t AXIS2_CALL 
sandesha2_mc_address_is_namespace_supported(
   	const axutil_env_t *env, 
    axis2_char_t *namespace)
{
    if(0 == axutil_strcmp(namespace, SANDESHA2_SPEC_2005_02_NS_URI))
    {
        return AXIS2_TRUE;
    }
    if(0 == axutil_strcmp(namespace, SANDESHA2_SPEC_2007_02_NS_URI))
    {
        return AXIS2_TRUE;
    }
    return AXIS2_FALSE;
}*/