/* ------- code automatically created by ../scripts/adms_build_object.pl -------------- */ #include #include inline void adms_integer_free(p_integer myinteger) { if(!myinteger) return; adms_global_increment_nbintegerdestroy(); free(myinteger); } int adms_integer_cmp (p_integer myinteger,p_integer refinteger) { int status; status = ( (adms_integer_valueof_value (myinteger) != adms_integer_valueof_value (refinteger)) ); return status; } p_integer adms_integer_new(int myvalue) { p_integer mynewinteger=(p_integer) calloc(1,(size_t)sizeof(t_integer)); adms_global_increment_nbintegernew(); mynewinteger->_adms._datatypename=adms_adms_enumeration_datatypename_integer; mynewinteger->_adms._seen=adms_adms_enumeration_seen_no; mynewinteger->_value_isdefault=-1; adms_integer_valueto_value (mynewinteger,myvalue); mynewinteger->_value_isdefault=1; return mynewinteger; } p_adms adms_integer_new_impl (p_adms arguments[]) { p_integer mynewinteger; const int myvalue=ADMS2INT(arguments[0]); mynewinteger=adms_integer_new(myvalue); return adms_adms(mynewinteger); } /*$1*/ char*adms_integer_uid (p_integer mynewinteger) { char*myuid=NULL; char*myuid0=adms_integertostring(mynewinteger->_value); adms_strconcat(&myuid,myuid0); return myuid; } inline void adms_integer_valueto_value (p_integer myinteger,int _value) { myinteger->_value=_value; myinteger->_value_isdefault=0; }