/* ------- code automatically created by ../scripts/adms_build_object.pl -------------- */ #include #include inline void adms_instancenode_free(p_instancenode myinstancenode) { if(!myinstancenode) return; adms_enumeration_free(myinstancenode->_math._dependency); free(myinstancenode->_math._value); adms_global_increment_nbinstancenodedestroy(); free(myinstancenode); } int adms_instancenode_cmp (p_instancenode myinstancenode,p_instancenode refinstancenode) { int status; status = ( (adms_instancenode_valueof_nodefrominstantiator (myinstancenode) != adms_instancenode_valueof_nodefrominstantiator (refinstancenode)) || (adms_instancenode_valueof_nodefrommodule (myinstancenode) != adms_instancenode_valueof_nodefrommodule (refinstancenode)) ); return status; } p_instancenode adms_instancenode_new(p_node mynodefrominstantiator,p_node mynodefrommodule) { p_instancenode mynewinstancenode=(p_instancenode) calloc(1,(size_t)sizeof(t_instancenode)); adms_global_increment_nbinstancenodenew(); mynewinstancenode->_math._adms._datatypename=adms_adms_enumeration_datatypename_instancenode; mynewinstancenode->_math._adms._seen=adms_adms_enumeration_seen_no; (mynewinstancenode->_math)._value=adms_real_new(adms_NAN); (mynewinstancenode->_math)._static=adms_enumeration_new(adms_math_enumeration_static_no,adms_math_fromstring_static_impl,adms_math_tostring_static_impl); (mynewinstancenode->_math)._dynamic=adms_enumeration_new(adms_math_enumeration_dynamic_no,adms_math_fromstring_dynamic_impl,adms_math_tostring_dynamic_impl); (mynewinstancenode->_math)._dependency=adms_enumeration_new(adms_math_enumeration_dependency_constant,adms_math_fromstring_dependency_impl,adms_math_tostring_dependency_impl); mynewinstancenode->_nodefrominstantiator_isdefault=-1; adms_instancenode_valueto_nodefrominstantiator (mynewinstancenode,mynodefrominstantiator); mynewinstancenode->_nodefrominstantiator_isdefault=1; mynewinstancenode->_nodefrommodule_isdefault=-1; adms_instancenode_valueto_nodefrommodule (mynewinstancenode,mynodefrommodule); mynewinstancenode->_nodefrommodule_isdefault=1; return mynewinstancenode; } p_adms adms_instancenode_new_impl (p_adms arguments[]) { p_instancenode mynewinstancenode; p_node mynodefrominstantiator=(p_node)arguments[0]; p_node mynodefrommodule=(p_node)arguments[1]; mynewinstancenode=adms_instancenode_new(mynodefrominstantiator,mynodefrommodule); return adms_adms(mynewinstancenode); } /*$1#$2*/ char*adms_instancenode_uid (p_instancenode mynewinstancenode) { char*myuid=NULL; char*myuid0=adms_node_uid(mynewinstancenode->_nodefrominstantiator); char*myuid1=adms_node_uid(mynewinstancenode->_nodefrommodule); adms_strconcat(&myuid,myuid0); adms_strconcat2(&myuid,"#"); adms_strconcat(&myuid,myuid1); return myuid; } inline void adms_instancenode_valueto_nodefrominstantiator (p_instancenode myinstancenode,p_node _nodefrominstantiator) { myinstancenode->_nodefrominstantiator=_nodefrominstantiator; myinstancenode->_nodefrominstantiator_isdefault=0; } inline void adms_instancenode_valueto_nodefrommodule (p_instancenode myinstancenode,p_node _nodefrommodule) { myinstancenode->_nodefrommodule=_nodefrommodule; myinstancenode->_nodefrommodule_isdefault=0; }