/* ------- code automatically created by ../scripts/adms_build_object.pl -------------- */ #include #include inline void adms_nilled_free(p_nilled mynilled) { if(!mynilled) return; adms_enumeration_free(mynilled->_math._dependency); free(mynilled->_math._value); adms_quark_free(mynilled->_name); adms_global_increment_nbnilleddestroy(); free(mynilled); } int adms_nilled_cmp (p_nilled mynilled,p_nilled refnilled) { int status; status = ( (adms_nilled_valueof_module (mynilled) != adms_nilled_valueof_module (refnilled)) ); return status; } p_nilled adms_nilled_new(p_module mymodule) { p_nilled mynewnilled=(p_nilled) calloc(1,(size_t)sizeof(t_nilled)); adms_global_increment_nbnillednew(); mynewnilled->_math._adms._datatypename=adms_adms_enumeration_datatypename_nilled; mynewnilled->_math._adms._seen=adms_adms_enumeration_seen_no; (mynewnilled->_math)._value=adms_real_new(adms_NAN); (mynewnilled->_math)._static=adms_enumeration_new(adms_math_enumeration_static_no,adms_math_fromstring_static_impl,adms_math_tostring_static_impl); (mynewnilled->_math)._dynamic=adms_enumeration_new(adms_math_enumeration_dynamic_no,adms_math_fromstring_dynamic_impl,adms_math_tostring_dynamic_impl); (mynewnilled->_math)._dependency=adms_enumeration_new(adms_math_enumeration_dependency_constant,adms_math_fromstring_dependency_impl,adms_math_tostring_dependency_impl); mynewnilled->_module_isdefault=-1; adms_nilled_valueto_module (mynewnilled,mymodule); mynewnilled->_module_isdefault=1; mynewnilled->_name_isdefault=-1; adms_nilled_valueto_name(mynewnilled,adms_quark_new("")); mynewnilled->_name_isdefault=1; return mynewnilled; } p_adms adms_nilled_new_impl (p_adms arguments[]) { p_nilled mynewnilled; p_module mymodule=(p_module)arguments[0]; mynewnilled=adms_nilled_new(mymodule); return adms_adms(mynewnilled); } /*nilled operator*/ char*adms_nilled_uid (p_nilled mynewnilled) { char*myuid=NULL; adms_strconcat2(&myuid,"nilled operator"); return myuid; } inline void adms_nilled_valueto_module (p_nilled mynilled,p_module _module) { mynilled->_module=_module; mynilled->_module_isdefault=0; } inline void adms_nilled_valueto_name (p_nilled mynilled,p_quark _name) { if(mynilled->_name_isdefault!=-1) adms_quark_free(mynilled->_name); mynilled->_name=_name; mynilled->_name_isdefault=0; }