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

inline void adms_real_free(p_real myreal)
{
  if(!myreal)
    return;
  adms_global_increment_nbrealdestroy();
  free(myreal);
}
int adms_real_cmp (p_real myreal,p_real refreal)
{
  int status;
  status =
  (
    (adms_real_valueof_value (myreal) != adms_real_valueof_value (refreal))
  );
  return status;
}
p_real adms_real_new(double myvalue)
{
  p_real mynewreal=(p_real) calloc(1,(size_t)sizeof(t_real));
  adms_global_increment_nbrealnew();
  mynewreal->_adms._datatypename=adms_adms_enumeration_datatypename_real;
  mynewreal->_adms._seen=adms_adms_enumeration_seen_no;
  mynewreal->_value_isdefault=-1;
  adms_real_valueto_value (mynewreal,myvalue);
  mynewreal->_value_isdefault=1;
  return mynewreal;
}
p_adms adms_real_new_impl (p_adms arguments[])
{
  p_real mynewreal;
  double myvalue=atof((char*)arguments[0]);
  mynewreal=adms_real_new(myvalue);
  return adms_adms(mynewreal);
}
/*$1*/
char*adms_real_uid (p_real mynewreal)
{
  char*myuid=NULL;
  char*myuid0=adms_doubletostring(mynewreal->_value);
  adms_strconcat(&myuid,myuid0);
  return myuid;
}

inline void
adms_real_valueto_value (p_real myreal,double _value)
{
  myreal->_value=_value;
  myreal->_value_isdefault=0;
}