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

inline void adms_mapply_unary_free(p_mapply_unary mymapply_unary)
{
  if(!mymapply_unary)
    return;
  adms_enumeration_free(mymapply_unary->_subexpression._math._dependency);
  free(mymapply_unary->_subexpression._math._value);
  adms_enumeration_free(mymapply_unary->_name);
  if(mymapply_unary->_arg1)
    if(adms_adms(mymapply_unary->_arg1)->_datatypename==adms_adms_enumeration_datatypename_quark)
      adms_quark_free(adms_quark(mymapply_unary->_arg1));
  adms_global_increment_nbmapply_unarydestroy();
  free(mymapply_unary);
}
int adms_mapply_unary_cmp (p_mapply_unary mymapply_unary,p_mapply_unary refmapply_unary)
{
  int status;
  status =
  (
    (adms_mapply_unary_valueof_name (mymapply_unary) != adms_mapply_unary_valueof_name (refmapply_unary))
    ||
    (adms_mapply_unary_valueof_arg1 (mymapply_unary) != adms_mapply_unary_valueof_arg1 (refmapply_unary))
  );
  return status;
}
p_mapply_unary adms_mapply_unary_new(p_enumeration myname,p_adms myarg1)
{
  p_mapply_unary mynewmapply_unary=(p_mapply_unary) calloc(1,(size_t)sizeof(t_mapply_unary));
  adms_global_increment_nbmapply_unarynew();
  mynewmapply_unary->_subexpression._math._adms._datatypename=adms_adms_enumeration_datatypename_mapply_unary;
  mynewmapply_unary->_subexpression._math._adms._seen=adms_adms_enumeration_seen_no;
  (mynewmapply_unary->_subexpression._math)._value=adms_real_new(adms_NAN);
  (mynewmapply_unary->_subexpression._math)._static=adms_enumeration_new(adms_math_enumeration_static_no,adms_math_fromstring_static_impl,adms_math_tostring_static_impl);
  (mynewmapply_unary->_subexpression._math)._dynamic=adms_enumeration_new(adms_math_enumeration_dynamic_no,adms_math_fromstring_dynamic_impl,adms_math_tostring_dynamic_impl);
  (mynewmapply_unary->_subexpression._math)._dependency=adms_enumeration_new(adms_math_enumeration_dependency_constant,adms_math_fromstring_dependency_impl,adms_math_tostring_dependency_impl);
  mynewmapply_unary->_name_isdefault=-1;
  adms_mapply_unary_valueto_name (mynewmapply_unary,myname);
  mynewmapply_unary->_name_isdefault=1;
  mynewmapply_unary->_arg1_isdefault=-1;
  adms_mapply_unary_valueto_arg1 (mynewmapply_unary,myarg1);
  mynewmapply_unary->_arg1_isdefault=1;
  return mynewmapply_unary;
}
p_adms adms_mapply_unary_new_impl (p_adms arguments[])
{
  p_mapply_unary mynewmapply_unary;
  p_enumeration myname=(p_enumeration)arguments[0];
  p_adms myarg1=(p_adms)arguments[1];
  mynewmapply_unary=adms_mapply_unary_new(myname,myarg1);
  return adms_adms(mynewmapply_unary);
}
/*$1($2)*/
char*adms_mapply_unary_uid (p_mapply_unary mynewmapply_unary)
{
  char*myuid=NULL;
  char*myuid0=adms_constclone(adms_mapply_unary_tostring_name_impl(NULL,mynewmapply_unary->_name));
  char*myuid1=adms_admsxml_uid(mynewmapply_unary->_arg1);
  adms_strconcat(&myuid,myuid0);
  adms_strconcat2(&myuid,"(");
  adms_strconcat(&myuid,myuid1);
  adms_strconcat2(&myuid,")");
  return myuid;
}

inline void
adms_mapply_unary_valueto_name (p_mapply_unary mymapply_unary,p_enumeration _name)
{
  mymapply_unary->_name=_name;
  mymapply_unary->_name_isdefault=0;
}

inline void
adms_mapply_unary_valueto_arg1 (p_mapply_unary mymapply_unary,p_adms _arg1)
{
  mymapply_unary->_arg1=_arg1;
  mymapply_unary->_arg1_isdefault=0;
}
e_mapply_unary_name
adms_mapply_unary_fromstring_name_impl (p_admsttransform myadmsttransform,char*token)
{
  if(!strcmp(token,"bw_not"))
    return adms_mapply_unary_enumeration_name_bw_not;
  if(!strcmp(token,"minus"))
    return adms_mapply_unary_enumeration_name_minus;
  if(!strcmp(token,"not"))
    return adms_mapply_unary_enumeration_name_not;
  if(!strcmp(token,"plus"))
    return adms_mapply_unary_enumeration_name_plus;
  adms_message_fatal_continue(("select='mapply_unary/name': possible values:\n"))
  adms_message_fatal_continue(("bw_not|minus|not|plus\n"))
  adms_message_fatal(("see %s\n",adms_admsttransform_uid(myadmsttransform)))
  return 0;
}
char*
adms_mapply_unary_tostring_name_impl (p_admsttransform myadmsttransform,p_enumeration myenumeration)
{
  e_mapply_unary_name e=myenumeration->_value;
  if(e==adms_mapply_unary_enumeration_name_bw_not)
    return "bw_not";
  if(e==adms_mapply_unary_enumeration_name_minus)
    return "minus";
  if(e==adms_mapply_unary_enumeration_name_not)
    return "not";
  if(e==adms_mapply_unary_enumeration_name_plus)
    return "plus";
  adms_message_fatal_continue(("select='mapply_unary/name': possible values:\n"))
  adms_message_fatal_continue(("bw_not|minus|not|plus\n"))
  adms_message_fatal(("see %s\n",adms_admsttransform_uid(myadmsttransform)))
  return NULL;
}