/* ------- code automatically created by ../scripts/adms_build_object.pl -------------- */
#include <admsObject/objectCallfunction.h>
#include <admsObject/objectAdmsmain.h>

inline void adms_callfunction_free(p_callfunction mycallfunction)
{
  if(!mycallfunction)
    return;
  adms_enumeration_free(mycallfunction->_math._dependency);
  free(mycallfunction->_math._value);
  adms_global_increment_nbcallfunctiondestroy();
  free(mycallfunction);
}
int adms_callfunction_cmp (p_callfunction mycallfunction,p_callfunction refcallfunction)
{
  int status;
  status =
  (
    (adms_callfunction_valueof_module (mycallfunction) != adms_callfunction_valueof_module (refcallfunction))
    ||
    (adms_callfunction_valueof_function (mycallfunction) != adms_callfunction_valueof_function (refcallfunction))
  );
  return status;
}
p_callfunction adms_callfunction_new(p_module mymodule,p_function myfunction)
{
  p_callfunction mynewcallfunction=(p_callfunction) calloc(1,(size_t)sizeof(t_callfunction));
  adms_global_increment_nbcallfunctionnew();
  mynewcallfunction->_math._adms._datatypename=adms_adms_enumeration_datatypename_callfunction;
  mynewcallfunction->_math._adms._seen=adms_adms_enumeration_seen_no;
  (mynewcallfunction->_math)._value=adms_real_new(adms_NAN);
  (mynewcallfunction->_math)._static=adms_enumeration_new(adms_math_enumeration_static_no,adms_math_fromstring_static_impl,adms_math_tostring_static_impl);
  (mynewcallfunction->_math)._dynamic=adms_enumeration_new(adms_math_enumeration_dynamic_no,adms_math_fromstring_dynamic_impl,adms_math_tostring_dynamic_impl);
  (mynewcallfunction->_math)._dependency=adms_enumeration_new(adms_math_enumeration_dependency_constant,adms_math_fromstring_dependency_impl,adms_math_tostring_dependency_impl);
  mynewcallfunction->_module_isdefault=-1;
  adms_callfunction_valueto_module (mynewcallfunction,mymodule);
  mynewcallfunction->_module_isdefault=1;
  mynewcallfunction->_function_isdefault=-1;
  adms_callfunction_valueto_function (mynewcallfunction,myfunction);
  mynewcallfunction->_function_isdefault=1;
  return mynewcallfunction;
}
p_adms adms_callfunction_new_impl (p_adms arguments[])
{
  p_callfunction mynewcallfunction;
  p_module mymodule=(p_module)arguments[0];
  p_function myfunction=(p_function)arguments[1];
  mynewcallfunction=adms_callfunction_new(mymodule,myfunction);
  return adms_adms(mynewcallfunction);
}
/*$1:$2*/
char*adms_callfunction_uid (p_callfunction mynewcallfunction)
{
  char*myuid=NULL;
  char*myuid0=adms_module_uid(mynewcallfunction->_module);
  char*myuid1=adms_function_uid(mynewcallfunction->_function);
  adms_strconcat(&myuid,myuid0);
  adms_strconcat2(&myuid,":");
  adms_strconcat(&myuid,myuid1);
  return myuid;
}

inline void
adms_callfunction_valueto_module (p_callfunction mycallfunction,p_module _module)
{
  mycallfunction->_module=_module;
  mycallfunction->_module_isdefault=0;
}

inline void
adms_callfunction_valueto_function (p_callfunction mycallfunction,p_function _function)
{
  mycallfunction->_function=_function;
  mycallfunction->_function_isdefault=0;
}