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

inline void adms_nature_free(p_nature mynature)
{
  if(!mynature)
    return;
  adms_quark_free(mynature->_access);
  adms_quark_free(mynature->_name);
  adms_quark_free(mynature->_units);
  adms_global_increment_nbnaturedestroy();
  free(mynature);
}
int adms_nature_cmp (p_nature mynature,p_nature refnature)
{
  int status;
  status =
  (
    !!strcmp(adms_nature_valueof_access (mynature)->_value,adms_nature_valueof_access (refnature)->_value)
  );
  return status;
}
p_nature adms_nature_new(p_quark myaccess)
{
  p_nature mynewnature=(p_nature) calloc(1,(size_t)sizeof(t_nature));
  adms_global_increment_nbnaturenew();
  mynewnature->_adms._datatypename=adms_adms_enumeration_datatypename_nature;
  mynewnature->_adms._seen=adms_adms_enumeration_seen_no;
  mynewnature->_access_isdefault=-1;
  adms_nature_valueto_access (mynewnature,myaccess);
  mynewnature->_access_isdefault=1;
  mynewnature->_name_isdefault=-1;
  mynewnature->_abstol_isdefault=-1;
  mynewnature->_base_isdefault=-1;
  mynewnature->_ddtNature_isdefault=-1;
  mynewnature->_idtNature_isdefault=-1;
  mynewnature->_units_isdefault=-1;
  return mynewnature;
}
p_adms adms_nature_new_impl (p_adms arguments[])
{
  p_nature mynewnature;
  p_quark myaccess=adms_quark_new((char*)arguments[0]);
  mynewnature=adms_nature_new(myaccess);
  return adms_adms(mynewnature);
}
/*$1*/
char*adms_nature_uid (p_nature mynewnature)
{
  char*myuid=NULL;
  char*myuid0=adms_quark_uid(mynewnature->_access);
  adms_strconcat(&myuid,myuid0);
  return myuid;
}

inline void
adms_nature_valueto_access (p_nature mynature,p_quark _access)
{
  if(mynature->_access_isdefault!=-1)
    adms_quark_free(mynature->_access);
  mynature->_access=_access;
  mynature->_access_isdefault=0;
}

inline void
adms_nature_valueto_name (p_nature mynature,p_quark _name)
{
  if(mynature->_name_isdefault!=-1)
    adms_quark_free(mynature->_name);
  mynature->_name=_name;
  mynature->_name_isdefault=0;
}

inline void
adms_nature_valueto_abstol (p_nature mynature,p_number _abstol)
{
  mynature->_abstol=_abstol;
  mynature->_abstol_isdefault=0;
}

inline void
adms_nature_valueto_base (p_nature mynature,p_nature _base)
{
  mynature->_base=_base;
  mynature->_base_isdefault=0;
}

inline void
adms_nature_valueto_ddtNature (p_nature mynature,p_nature _ddtNature)
{
  mynature->_ddtNature=_ddtNature;
  mynature->_ddtNature_isdefault=0;
}

inline void
adms_nature_valueto_idtNature (p_nature mynature,p_nature _idtNature)
{
  mynature->_idtNature=_idtNature;
  mynature->_idtNature_isdefault=0;
}

inline void
adms_nature_valueto_units (p_nature mynature,p_quark _units)
{
  if(mynature->_units_isdefault!=-1)
    adms_quark_free(mynature->_units);
  mynature->_units=_units;
  mynature->_units_isdefault=0;
}