#if HAVE_CRT
 #define _CRTDBG_MAP_ALLOC 
 #include <stdlib.h> 
 #include <crtdbg.h>
 #endif //HAVE_CRT
 /*
 * Copyright (C) 2017, University of the Basque Country (UPV/EHU)
 * Contact for licensing options: <licensing-mcpttclient(at)mcopenplatform(dot)com>
 *
 * The original file was part of Open Source Doubango Framework
 * Copyright (C) 2010-2011 Mamadou Diop.
 * Copyright (C) 2012 Doubango Telecom <http://doubango.org>
 *
 * This file is part of Open Source Doubango Framework.
 *
 * DOUBANGO is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * DOUBANGO is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with DOUBANGO.
 *
 */
 
 
 /**@file tmedia_params.c
  * @brief Media parameters used to configure any session or plugin.
  *
  * @author Mamadou Diop <diopmamadou(at)doubango[dot]org>
  *
 
  */
 #include "tinymedia/tmedia_params.h"
 
 #include "tinymedia/tmedia_session.h"
 
 #include "tsk_params.h"
 #include "tsk_debug.h"
 #include "tsk_memory.h"
 
 tmedia_param_t* tmedia_param_create(tmedia_param_access_type_t access_type, 
 									tmedia_type_t media_type, 
 									tmedia_param_plugin_type_t plugin_type, 
 									tmedia_param_value_type_t value_type,
 									const char* key,
 									void* value)
 {
 	tmedia_param_t* param;
 	
 	if(!key || (!value && (value_type != tmedia_pvt_pobject && value_type != tmedia_pvt_pchar))){
 		TSK_DEBUG_ERROR("Invalid parameter");
 		return tsk_null;
 	}
 
 	if((param = tsk_object_new(tmedia_param_def_t))){
 		param->access_type = access_type;
 		param->media_type = media_type;
 		param->plugin_type = plugin_type;
 		param->value_type = value_type;
 		param->key = tsk_strdup(key);
 		if(access_type == tmedia_pat_get){
 			param->value = (value);
 		}
 		else if(access_type == tmedia_pat_set){
 			switch(value_type){
 				case tmedia_pvt_int32:
 					#if HAVE_CRT //Debug memory
 					if((param->value = calloc(1, sizeof(int32_t)))){
 		
 	#else
 					if((param->value = tsk_calloc(1, sizeof(int32_t)))){
 		
 	#endif //HAVE_CRT
 						memcpy(param->value, value, sizeof(int32_t));
 					}
 					break;
 				case tmedia_pvt_pobject:
 					param->value = tsk_object_ref(value);
 					break;
 				case tmedia_pvt_pchar:
 					param->value = tsk_strdup(value);
 					break;
 				case tmedia_pvt_int64:
 					#if HAVE_CRT //Debug memory
 					if((param->value = calloc(1, sizeof(int64_t)))){
 		
 	#else
 					if((param->value = tsk_calloc(1, sizeof(int64_t)))){
 		
 	#endif //HAVE_CRT
 						memcpy(param->value, value, sizeof(int64_t));
 					}
 					break;
 			}
 		}
 	}
 	else{
 		TSK_DEBUG_ERROR("Failed to create media parameter");
 	}
 	return param;
 }
 
 tmedia_params_L_t* tmedia_params_create_2(va_list *app)
 {
 	tmedia_session_param_type_t curr;
 	tmedia_params_L_t* params;
 
 	if(!app){
 		TSK_DEBUG_ERROR("Invalid parameter");
 		return tsk_null;
 	}
 
 	params = tmedia_params_create();
 
 	while((curr = va_arg(*app, tmedia_session_param_type_t)) != tmedia_sptype_null){
 		switch(curr){
 			case tmedia_sptype_set:
 			case tmedia_sptype_get:
 				{	/* (tmedia_type_t)MEDIA_TYPE_ENUM, (tmedia_param_plugin_type_t)PLUGIN_TYPE_ENUM, (tmedia_param_value_type_t)VALUE_TYPE_ENUM \
 						(const char*)KEY_STR, (void*)&VALUE */
 					/* IMPORTANT: do not pass va_arg() directly into the function */
 					tmedia_type_t media_type = va_arg(*app, tmedia_type_t);
 					tmedia_param_plugin_type_t plugin_type = va_arg(*app, tmedia_param_plugin_type_t);
 					tmedia_param_value_type_t value_type = va_arg(*app, tmedia_param_value_type_t);
 					const char* key = va_arg(*app, const char*);
 					void* value = va_arg(*app, void*);
 					tmedia_params_add_param(&params, (curr == tmedia_sptype_set) ? tmedia_pat_set : tmedia_pat_get, 
 						media_type, plugin_type, value_type, key, value);
 					break;
 				}
 			default:
 				{	/* va_list will be unsafe => exit */
 					TSK_DEBUG_ERROR("%d NOT a valid pname", curr);
 					break;
 				}
 		}/* switch */
 	}/* while */
 
 	return params;
 }
 
 int tmedia_params_add_param(tmedia_params_L_t **self, 
 							tmedia_param_access_type_t access_type, 
 							tmedia_type_t media_type, 
 							tmedia_param_plugin_type_t plugin_type, 
 							tmedia_param_value_type_t value_type,
 							const char* key,
 							void* value)
 {
 	tmedia_param_t *param;
 
 	if(!self) {
 		TSK_DEBUG_ERROR("Invalid parameter");
 		return -1;
 	}
 
 	if(!*self){
 		*self = tmedia_params_create();
 	}
 
 	if((param = tmedia_param_create(access_type, media_type, plugin_type, value_type, key, value))){
 		tsk_list_push_back_data(*self, (void**)&param);
 	}
 	return 0;
 }
 
 
 
 
 //=================================================================================================
 //	param object definition
 //
 static tsk_object_t* tmedia_param_ctor(tsk_object_t* self, va_list * app)
 {
 	tmedia_param_t *param = self;
 	if(param){
 	}
 
 	return self;
 }
 
 static tsk_object_t* tmedia_param_dtor(tsk_object_t* self)
 { 
 	tmedia_param_t *param = self;
 	if(param){
 		TSK_FREE(param->key);
 		if(param->access_type == tmedia_pat_set){
 			switch(param->value_type){
 				case tmedia_pvt_pobject:
 					TSK_OBJECT_SAFE_FREE(param->value);
 					break;
 				case tmedia_pvt_pchar:
 				case tmedia_pvt_int64:
 				case tmedia_pvt_int32:
 					TSK_FREE(param->value);
 					break;
 			}
 		}
 	}
 
 	return self;
 }
 
 static const tsk_object_def_t tmedia_param_def_s = 
 {
 	sizeof(tmedia_param_t),
 	tmedia_param_ctor, 
 	tmedia_param_dtor,
 	tsk_null, 
 };
 const tsk_object_def_t *tmedia_param_def_t = &tmedia_param_def_s;