/* ------- code automatically created by ../scripts/adms_build_object.pl -------------- */ #include #include inline void adms_yaccval_free(p_yaccval myyaccval) { if(!myyaccval) return; free(myyaccval->_filename); if(myyaccval->_usrdata) if(adms_adms(myyaccval->_usrdata)->_datatypename==adms_adms_enumeration_datatypename_quark) adms_quark_free(adms_quark(myyaccval->_usrdata)); adms_global_increment_nbyaccvaldestroy(); free(myyaccval); } int adms_yaccval_cmp (p_yaccval myyaccval,p_yaccval refyaccval) { int status; status = ( !!strcmp(adms_yaccval_valueof_filename (myyaccval),adms_yaccval_valueof_filename (refyaccval)) ); return status; } p_yaccval adms_yaccval_new(const char* myfilename) { p_yaccval mynewyaccval=(p_yaccval) calloc(1,(size_t)sizeof(t_yaccval)); adms_global_increment_nbyaccvalnew(); mynewyaccval->_adms._datatypename=adms_adms_enumeration_datatypename_yaccval; mynewyaccval->_adms._seen=adms_adms_enumeration_seen_no; mynewyaccval->_filename_isdefault=-1; adms_yaccval_valueto_filename (mynewyaccval,myfilename); mynewyaccval->_filename_isdefault=1; mynewyaccval->_lbegin_isdefault=-1; mynewyaccval->_lend_isdefault=-1; mynewyaccval->_wbegin_isdefault=-1; mynewyaccval->_wend_isdefault=-1; mynewyaccval->_usrdata_isdefault=-1; return mynewyaccval; } p_adms adms_yaccval_new_impl (p_adms arguments[]) { p_yaccval mynewyaccval; const char* myfilename=(char*)arguments[0]; mynewyaccval=adms_yaccval_new(myfilename); return adms_adms(mynewyaccval); } /*$1*/ char*adms_yaccval_uid (p_yaccval mynewyaccval) { char*myuid=NULL; adms_strconcat2(&myuid,strdup(mynewyaccval->_filename)); return myuid; } inline void adms_yaccval_valueto_filename (p_yaccval myyaccval,const char* _filename) { if(myyaccval->_filename_isdefault!=-1) free(myyaccval->_filename); myyaccval->_filename=adms_constclone(_filename); myyaccval->_filename_isdefault=0; } inline void adms_yaccval_valueto_lbegin (p_yaccval myyaccval,int _lbegin) { myyaccval->_lbegin=_lbegin; myyaccval->_lbegin_isdefault=0; } inline void adms_yaccval_valueto_lend (p_yaccval myyaccval,int _lend) { myyaccval->_lend=_lend; myyaccval->_lend_isdefault=0; } inline void adms_yaccval_valueto_wbegin (p_yaccval myyaccval,int _wbegin) { myyaccval->_wbegin=_wbegin; myyaccval->_wbegin_isdefault=0; } inline void adms_yaccval_valueto_wend (p_yaccval myyaccval,int _wend) { myyaccval->_wend=_wend; myyaccval->_wend_isdefault=0; } inline void adms_yaccval_valueto_usrdata (p_yaccval myyaccval,p_adms _usrdata) { myyaccval->_usrdata=_usrdata; myyaccval->_usrdata_isdefault=0; }