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

inline void adms_discipline_free(p_discipline mydiscipline)
{
  if(!mydiscipline)
    return;
  adms_quark_free(mydiscipline->_name);
  adms_global_increment_nbdisciplinedestroy();
  free(mydiscipline);
}
int adms_discipline_cmp (p_discipline mydiscipline,p_discipline refdiscipline)
{
  int status;
  status =
  (
    !!strcmp(adms_discipline_valueof_name (mydiscipline)->_value,adms_discipline_valueof_name (refdiscipline)->_value)
  );
  return status;
}
p_discipline adms_discipline_new(p_quark myname)
{
  p_discipline mynewdiscipline=(p_discipline) calloc(1,(size_t)sizeof(t_discipline));
  adms_global_increment_nbdisciplinenew();
  mynewdiscipline->_adms._datatypename=adms_adms_enumeration_datatypename_discipline;
  mynewdiscipline->_adms._seen=adms_adms_enumeration_seen_no;
  mynewdiscipline->_name_isdefault=-1;
  adms_discipline_valueto_name (mynewdiscipline,myname);
  mynewdiscipline->_name_isdefault=1;
  mynewdiscipline->_flow_isdefault=-1;
  mynewdiscipline->_potential_isdefault=-1;
  return mynewdiscipline;
}
p_adms adms_discipline_new_impl (p_adms arguments[])
{
  p_discipline mynewdiscipline;
  p_quark myname=adms_quark_new((char*)arguments[0]);
  mynewdiscipline=adms_discipline_new(myname);
  return adms_adms(mynewdiscipline);
}
/*$1*/
char*adms_discipline_uid (p_discipline mynewdiscipline)
{
  char*myuid=NULL;
  char*myuid0=adms_quark_uid(mynewdiscipline->_name);
  adms_strconcat(&myuid,myuid0);
  return myuid;
}

inline void
adms_discipline_valueto_name (p_discipline mydiscipline,p_quark _name)
{
  if(mydiscipline->_name_isdefault!=-1)
    adms_quark_free(mydiscipline->_name);
  mydiscipline->_name=_name;
  mydiscipline->_name_isdefault=0;
}

inline void
adms_discipline_valueto_flow (p_discipline mydiscipline,p_nature _flow)
{
  mydiscipline->_flow=_flow;
  mydiscipline->_flow_isdefault=0;
}

inline void
adms_discipline_valueto_potential (p_discipline mydiscipline,p_nature _potential)
{
  mydiscipline->_potential=_potential;
  mydiscipline->_potential_isdefault=0;
}