/* ------- code automatically created by ../scripts/adms_build_object.pl -------------- */ #include #include inline void adms_admsttransform_free(p_admsttransform myadmsttransform) { if(!myadmsttransform) return; {p_slist l=myadmsttransform->_attribute;for(;l;l=l->next) adms_attribute_free(adms_attribute(l->data));} adms_slist_free(myadmsttransform->_attribute); adms_slist_free(myadmsttransform->_children); adms_quark_free(myadmsttransform->_f); free(myadmsttransform->_admstname); adms_admsttransformattribute_free(myadmsttransform->_zzdatatype); adms_admsttransformattribute_free(myadmsttransform->_zzselect); adms_admsttransformattribute_free(myadmsttransform->_zzmatch); adms_admsttransformattribute_free(myadmsttransform->_zzrequired); adms_admsttransformattribute_free(myadmsttransform->_zzseparator); adms_admsttransformattribute_free(myadmsttransform->_zzfrom); adms_admsttransformattribute_free(myadmsttransform->_zzto); adms_admsttransformattribute_free(myadmsttransform->_zzlist); adms_admsttransformattribute_free(myadmsttransform->_zzinto); adms_admsttransformattribute_free(myadmsttransform->_zzname); adms_admsttransformattribute_free(myadmsttransform->_zzformat); adms_admsttransformattribute_free(myadmsttransform->_zzfile); adms_admsttransformattribute_free(myadmsttransform->_zzversion); adms_admsttransformattribute_free(myadmsttransform->_zzonduplicate); adms_admsttransformattribute_free(myadmsttransform->_zzprobe); adms_admsttransformattribute_free(myadmsttransform->_zzvalue); adms_admsttransformattribute_free(myadmsttransform->_zzarguments); adms_admsttransformattribute_free(myadmsttransform->_zztest); adms_global_increment_nbadmsttransformdestroy(); free(myadmsttransform); } int adms_admsttransform_cmp (p_admsttransform myadmsttransform,p_admsttransform refadmsttransform) { int status; status = ( !!strcmp(adms_admsttransform_valueof_f (myadmsttransform)->_value,adms_admsttransform_valueof_f (refadmsttransform)->_value) || (adms_admsttransform_valueof_l (myadmsttransform) != adms_admsttransform_valueof_l (refadmsttransform)) || !!strcmp(adms_admsttransform_valueof_admstname (myadmsttransform),adms_admsttransform_valueof_admstname (refadmsttransform)) || (adms_admsttransform_valueof_parent (myadmsttransform) != adms_admsttransform_valueof_parent (refadmsttransform)) ); return status; } p_admsttransform adms_admsttransform_new(p_quark myf,int myl,const char* myadmstname,p_admsttransform myparent) { p_admsttransform mynewadmsttransform=(p_admsttransform) calloc(1,(size_t)sizeof(t_admsttransform)); adms_global_increment_nbadmsttransformnew(); mynewadmsttransform->_adms._datatypename=adms_adms_enumeration_datatypename_admsttransform; mynewadmsttransform->_adms._seen=adms_adms_enumeration_seen_no; mynewadmsttransform->_f_isdefault=-1; adms_admsttransform_valueto_f (mynewadmsttransform,myf); mynewadmsttransform->_f_isdefault=1; mynewadmsttransform->_l_isdefault=-1; adms_admsttransform_valueto_l (mynewadmsttransform,myl); mynewadmsttransform->_l_isdefault=1; mynewadmsttransform->_admstname_isdefault=-1; adms_admsttransform_valueto_admstname (mynewadmsttransform,myadmstname); mynewadmsttransform->_admstname_isdefault=1; mynewadmsttransform->_parent_isdefault=-1; adms_admsttransform_valueto_parent (mynewadmsttransform,myparent); mynewadmsttransform->_parent_isdefault=1; mynewadmsttransform->_evaluator_isdefault=-1; mynewadmsttransform->_zzdatatype_isdefault=-1; mynewadmsttransform->_zzselect_isdefault=-1; mynewadmsttransform->_zzmatch_isdefault=-1; mynewadmsttransform->_zzrequired_isdefault=-1; mynewadmsttransform->_zzseparator_isdefault=-1; mynewadmsttransform->_zzfrom_isdefault=-1; mynewadmsttransform->_zzto_isdefault=-1; mynewadmsttransform->_zzlist_isdefault=-1; mynewadmsttransform->_zzinto_isdefault=-1; mynewadmsttransform->_zzname_isdefault=-1; mynewadmsttransform->_zzformat_isdefault=-1; mynewadmsttransform->_zzfile_isdefault=-1; mynewadmsttransform->_zzversion_isdefault=-1; mynewadmsttransform->_zzonduplicate_isdefault=-1; mynewadmsttransform->_zzprobe_isdefault=-1; mynewadmsttransform->_zzvalue_isdefault=-1; mynewadmsttransform->_zzarguments_isdefault=-1; mynewadmsttransform->_zztest_isdefault=-1; mynewadmsttransform->_attribute_isdefault=-1; mynewadmsttransform->_children_isdefault=-1; return mynewadmsttransform; } p_adms adms_admsttransform_new_impl (p_adms arguments[]) { p_admsttransform mynewadmsttransform; p_quark myf=adms_quark_new((char*)arguments[0]); const int myl=ADMS2INT(arguments[1]); const char* myadmstname=(char*)arguments[2]; p_admsttransform myparent=(p_admsttransform)arguments[3]; mynewadmsttransform=adms_admsttransform_new(myf,myl,myadmstname,myparent); return adms_adms(mynewadmsttransform); } /*$1:$2:$3*/ char*adms_admsttransform_uid (p_admsttransform mynewadmsttransform) { char*myuid=NULL; char*myuid0=adms_quark_uid(mynewadmsttransform->_f); char*myuid1=adms_integertostring(mynewadmsttransform->_l); adms_strconcat(&myuid,myuid0); adms_strconcat2(&myuid,":"); adms_strconcat(&myuid,myuid1); adms_strconcat2(&myuid,":"); adms_strconcat2(&myuid,strdup(mynewadmsttransform->_admstname)); return myuid; } inline void adms_admsttransform_valueto_f (p_admsttransform myadmsttransform,p_quark _f) { if(myadmsttransform->_f_isdefault!=-1) adms_quark_free(myadmsttransform->_f); myadmsttransform->_f=_f; myadmsttransform->_f_isdefault=0; } inline void adms_admsttransform_valueto_l (p_admsttransform myadmsttransform,int _l) { myadmsttransform->_l=_l; myadmsttransform->_l_isdefault=0; } inline void adms_admsttransform_valueto_admstname (p_admsttransform myadmsttransform,const char* _admstname) { if(myadmsttransform->_admstname_isdefault!=-1) free(myadmsttransform->_admstname); myadmsttransform->_admstname=adms_constclone(_admstname); myadmsttransform->_admstname_isdefault=0; } inline void adms_admsttransform_valueto_parent (p_admsttransform myadmsttransform,p_admsttransform _parent) { myadmsttransform->_parent=_parent; myadmsttransform->_parent_isdefault=0; } inline void adms_admsttransform_valueto_evaluator (p_admsttransform myadmsttransform,void* _evaluator) { myadmsttransform->_evaluator=_evaluator; myadmsttransform->_evaluator_isdefault=0; } inline void adms_admsttransform_valueto_zzdatatype (p_admsttransform myadmsttransform,p_admsttransformattribute _zzdatatype) { myadmsttransform->_zzdatatype=_zzdatatype; myadmsttransform->_zzdatatype_isdefault=0; } inline void adms_admsttransform_valueto_zzselect (p_admsttransform myadmsttransform,p_admsttransformattribute _zzselect) { myadmsttransform->_zzselect=_zzselect; myadmsttransform->_zzselect_isdefault=0; } inline void adms_admsttransform_valueto_zzmatch (p_admsttransform myadmsttransform,p_admsttransformattribute _zzmatch) { myadmsttransform->_zzmatch=_zzmatch; myadmsttransform->_zzmatch_isdefault=0; } inline void adms_admsttransform_valueto_zzrequired (p_admsttransform myadmsttransform,p_admsttransformattribute _zzrequired) { myadmsttransform->_zzrequired=_zzrequired; myadmsttransform->_zzrequired_isdefault=0; } inline void adms_admsttransform_valueto_zzseparator (p_admsttransform myadmsttransform,p_admsttransformattribute _zzseparator) { myadmsttransform->_zzseparator=_zzseparator; myadmsttransform->_zzseparator_isdefault=0; } inline void adms_admsttransform_valueto_zzfrom (p_admsttransform myadmsttransform,p_admsttransformattribute _zzfrom) { myadmsttransform->_zzfrom=_zzfrom; myadmsttransform->_zzfrom_isdefault=0; } inline void adms_admsttransform_valueto_zzto (p_admsttransform myadmsttransform,p_admsttransformattribute _zzto) { myadmsttransform->_zzto=_zzto; myadmsttransform->_zzto_isdefault=0; } inline void adms_admsttransform_valueto_zzlist (p_admsttransform myadmsttransform,p_admsttransformattribute _zzlist) { myadmsttransform->_zzlist=_zzlist; myadmsttransform->_zzlist_isdefault=0; } inline void adms_admsttransform_valueto_zzinto (p_admsttransform myadmsttransform,p_admsttransformattribute _zzinto) { myadmsttransform->_zzinto=_zzinto; myadmsttransform->_zzinto_isdefault=0; } inline void adms_admsttransform_valueto_zzname (p_admsttransform myadmsttransform,p_admsttransformattribute _zzname) { myadmsttransform->_zzname=_zzname; myadmsttransform->_zzname_isdefault=0; } inline void adms_admsttransform_valueto_zzformat (p_admsttransform myadmsttransform,p_admsttransformattribute _zzformat) { myadmsttransform->_zzformat=_zzformat; myadmsttransform->_zzformat_isdefault=0; } inline void adms_admsttransform_valueto_zzfile (p_admsttransform myadmsttransform,p_admsttransformattribute _zzfile) { myadmsttransform->_zzfile=_zzfile; myadmsttransform->_zzfile_isdefault=0; } inline void adms_admsttransform_valueto_zzversion (p_admsttransform myadmsttransform,p_admsttransformattribute _zzversion) { myadmsttransform->_zzversion=_zzversion; myadmsttransform->_zzversion_isdefault=0; } inline void adms_admsttransform_valueto_zzonduplicate (p_admsttransform myadmsttransform,p_admsttransformattribute _zzonduplicate) { myadmsttransform->_zzonduplicate=_zzonduplicate; myadmsttransform->_zzonduplicate_isdefault=0; } inline void adms_admsttransform_valueto_zzprobe (p_admsttransform myadmsttransform,p_admsttransformattribute _zzprobe) { myadmsttransform->_zzprobe=_zzprobe; myadmsttransform->_zzprobe_isdefault=0; } inline void adms_admsttransform_valueto_zzvalue (p_admsttransform myadmsttransform,p_admsttransformattribute _zzvalue) { myadmsttransform->_zzvalue=_zzvalue; myadmsttransform->_zzvalue_isdefault=0; } inline void adms_admsttransform_valueto_zzarguments (p_admsttransform myadmsttransform,p_admsttransformattribute _zzarguments) { myadmsttransform->_zzarguments=_zzarguments; myadmsttransform->_zzarguments_isdefault=0; } inline void adms_admsttransform_valueto_zztest (p_admsttransform myadmsttransform,p_admsttransformattribute _zztest) { myadmsttransform->_zztest=_zztest; myadmsttransform->_zztest_isdefault=0; } inline void adms_admsttransform_valueto_attribute (p_admsttransform myadmsttransform,p_slist _attribute) { myadmsttransform->_attribute=_attribute; myadmsttransform->_attribute_isdefault=0; } p_attribute adms_admsttransform_list_attribute_lookup_by_id (p_admsttransform mymyadmsttransform,p_quark myname) { p_slist list=adms_admsttransform_valueof_attribute(mymyadmsttransform); while(list) { p_attribute refattribute=adms_attribute(list->data); if(!strcmp(adms_attribute_valueof_name(refattribute)->_value,myname->_value)) return refattribute; list=list->next; } return NULL; } p_attribute adms_admsttransform_list_attribute_prepend_by_id (p_admsttransform mymyadmsttransform,p_quark myname) { p_attribute refattribute=adms_attribute_new(myname); adms_slist_push(&adms_admsttransform_valueof_attribute(mymyadmsttransform),adms_adms(refattribute)); return refattribute; } p_attribute adms_admsttransform_list_attribute_prepend_by_id_once_or_ignore (p_admsttransform mymyadmsttransform,p_quark myname) { p_attribute refattribute=adms_attribute_new(myname); adms_slist_push(&adms_admsttransform_valueof_attribute(mymyadmsttransform),adms_adms(refattribute)); return refattribute; } void adms_admsttransform_list_attribute_prepend (p_admsttransform mymyadmsttransform,p_attribute myattribute) { adms_slist_push(&adms_admsttransform_valueof_attribute(mymyadmsttransform),adms_adms(myattribute)); } inline void adms_admsttransform_valueto_children (p_admsttransform myadmsttransform,p_slist _children) { myadmsttransform->_children=_children; myadmsttransform->_children_isdefault=0; } p_admsttransform adms_admsttransform_list_children_lookup_by_id (p_admsttransform mymyadmsttransform,p_quark myf,int myl,const char* myadmstname,p_admsttransform myparent) { p_slist list=adms_admsttransform_valueof_children(mymyadmsttransform); while(list) { p_admsttransform refadmsttransform=adms_admsttransform(list->data); if(!strcmp(adms_admsttransform_valueof_f(refadmsttransform)->_value,myf->_value)&& (adms_admsttransform_valueof_l(refadmsttransform)==myl)&& !strcmp(adms_admsttransform_valueof_admstname(refadmsttransform),myadmstname)&& (adms_admsttransform_valueof_parent(refadmsttransform)==myparent)) return refadmsttransform; list=list->next; } return NULL; } p_admsttransform adms_admsttransform_list_children_prepend_by_id (p_admsttransform mymyadmsttransform,p_quark myf,int myl,const char* myadmstname,p_admsttransform myparent) { p_admsttransform refchildren=adms_admsttransform_new(myf,myl,myadmstname,myparent); adms_slist_push(&adms_admsttransform_valueof_children(mymyadmsttransform),adms_adms(refchildren)); return refchildren; } p_admsttransform adms_admsttransform_list_children_prepend_by_id_once_or_ignore (p_admsttransform mymyadmsttransform,p_quark myf,int myl,const char* myadmstname,p_admsttransform myparent) { p_admsttransform refchildren=adms_admsttransform_new(myf,myl,myadmstname,myparent); adms_slist_push(&adms_admsttransform_valueof_children(mymyadmsttransform),adms_adms(refchildren)); return refchildren; } void adms_admsttransform_list_children_prepend (p_admsttransform mymyadmsttransform,p_admsttransform mychildren) { adms_slist_push(&adms_admsttransform_valueof_children(mymyadmsttransform),adms_adms(mychildren)); } /*-- Miscellaneous routines --*/ char*adms_integertostring(int value) { char*string=malloc(sizeof(char)*50); sprintf(string,"%i",value); return string; } char*adms_doubletostring(double value) { if(isnan(value)) { char*string=malloc(sizeof(char)*4); sprintf(string,"nan"); return string; } else { char*string=malloc(sizeof(char)*50); sprintf(string,"%e",value); return string; } } int adms_file_isregular(const char* myfilename) { return((access(myfilename,ADMS_F_OK)==0)); } int adms_file_isdirectory(const char* myfilename) { struct stat s; return((stat(myfilename,&s)==0)&&(s.st_mode&ADMS_S_IFDIR)); } int adms_setenv(const char*myname,const char*myvalue) { int myres; #if defined(HAVE_PUTENV) char*myassign=NULL; adms_strconcat2(&myassign,myname); adms_strconcat2(&myassign,"="); adms_strconcat2(&myassign,myvalue); myres=putenv(myassign); free(myassign); #else myres=setenv(myname,myvalue,1); #endif return (myres==0); } /*i*/p_slist adms_slist_last (p_slist l) { if(l) { while(l->next) l=l->next; } return l; } /*i*/p_slist adms_slist_new (p_adms d) { p_slist newl=NULL; adms_slist_push(&newl,d); return newl; } /*i*/p_slist adms_slist_copy (p_slist l) { p_slist copiedl=NULL; while(l) { adms_slist_push(&copiedl,l->data); l=l->next; } return adms_slist_reverse(copiedl); } /*i*/void adms_slist_push(p_slist* l,p_adms data) { p_slist n=malloc(sizeof(t_slist)); n->next=*l; n->data=data; *l=n; } /*i*/p_adms adms_slist_pull(p_slist* l) { if(*l) { p_slist n=*l; p_adms data=n->data; *l=(*l)->next; free(n); return data; } return NULL; } /*i*/void adms_slist_concat (p_slist* l1,p_slist l2) { if(l2) { if(*l1) adms_slist_last(*l1)->next=l2; else *l1=l2; } } /*i*/unsigned int adms_slist_length (p_slist l) { unsigned int length=0; while(l) { length++; l=l->next; } return length; } /*i*/p_slist adms_slist_nth (p_slist l,unsigned int n) { while (n-->0 && l) l=l->next; return l; } /*i*/p_adms adms_slist_nth_data (p_slist l,unsigned int n) { while (n-->0 && l) l=l->next; return l ? l->data : ((p_adms)0); } /*i*/p_slist adms_slist_find (p_slist l,const p_adms data) { while(l) { if(l->data==data) break; l=l->next; } return l; } /*i*/int adms_slist_index (p_slist l, const p_adms data) { int i=0; while(l) { if(l->data==data) return i; i++; l=l->next; } return -1; } /*i*/p_slist adms_slist_reverse (p_slist l) { p_slist p=NULL; while(l) { p_slist n=l->next; l->next=p; p=l; l=n; } return p; } /*i*/void adms_slist_free (p_slist l) { while(l) { p_slist freed=l; l=l->next; free(freed); } } int globalnbadmsnew=0, globalnbadmsdestroy=0; inline int adms_global_nbadmsnew(void) {return globalnbadmsnew;}; inline int adms_global_nbadmsdestroy(void) {return globalnbadmsdestroy;}; inline void adms_global_increment_nbadmsnew(void) {globalnbadmsnew++;}; inline void adms_global_increment_nbadmsdestroy(void) {globalnbadmsdestroy++;}; int globalnbsimulatornew=0, globalnbsimulatordestroy=0; inline int adms_global_nbsimulatornew(void) {return globalnbsimulatornew;}; inline int adms_global_nbsimulatordestroy(void) {return globalnbsimulatordestroy;}; inline void adms_global_increment_nbsimulatornew(void) {globalnbsimulatornew++;}; inline void adms_global_increment_nbsimulatordestroy(void) {globalnbsimulatordestroy++;}; int globalnbadmsmainnew=0, globalnbadmsmaindestroy=0; inline int adms_global_nbadmsmainnew(void) {return globalnbadmsmainnew;}; inline int adms_global_nbadmsmaindestroy(void) {return globalnbadmsmaindestroy;}; inline void adms_global_increment_nbadmsmainnew(void) {globalnbadmsmainnew++;}; inline void adms_global_increment_nbadmsmaindestroy(void) {globalnbadmsmaindestroy++;}; int globalnbattributenew=0, globalnbattributedestroy=0; inline int adms_global_nbattributenew(void) {return globalnbattributenew;}; inline int adms_global_nbattributedestroy(void) {return globalnbattributedestroy;}; inline void adms_global_increment_nbattributenew(void) {globalnbattributenew++;}; inline void adms_global_increment_nbattributedestroy(void) {globalnbattributedestroy++;}; int globalnbenumerationnew=0, globalnbenumerationdestroy=0; inline int adms_global_nbenumerationnew(void) {return globalnbenumerationnew;}; inline int adms_global_nbenumerationdestroy(void) {return globalnbenumerationdestroy;}; inline void adms_global_increment_nbenumerationnew(void) {globalnbenumerationnew++;}; inline void adms_global_increment_nbenumerationdestroy(void) {globalnbenumerationdestroy++;}; int globalnbintegernew=0, globalnbintegerdestroy=0; inline int adms_global_nbintegernew(void) {return globalnbintegernew;}; inline int adms_global_nbintegerdestroy(void) {return globalnbintegerdestroy;}; inline void adms_global_increment_nbintegernew(void) {globalnbintegernew++;}; inline void adms_global_increment_nbintegerdestroy(void) {globalnbintegerdestroy++;}; int globalnbrealnew=0, globalnbrealdestroy=0; inline int adms_global_nbrealnew(void) {return globalnbrealnew;}; inline int adms_global_nbrealdestroy(void) {return globalnbrealdestroy;}; inline void adms_global_increment_nbrealnew(void) {globalnbrealnew++;}; inline void adms_global_increment_nbrealdestroy(void) {globalnbrealdestroy++;}; int globalnbquarknew=0, globalnbquarkdestroy=0; inline int adms_global_nbquarknew(void) {return globalnbquarknew;}; inline int adms_global_nbquarkdestroy(void) {return globalnbquarkdestroy;}; inline void adms_global_increment_nbquarknew(void) {globalnbquarknew++;}; inline void adms_global_increment_nbquarkdestroy(void) {globalnbquarkdestroy++;}; int globalnblistnew=0, globalnblistdestroy=0; inline int adms_global_nblistnew(void) {return globalnblistnew;}; inline int adms_global_nblistdestroy(void) {return globalnblistdestroy;}; inline void adms_global_increment_nblistnew(void) {globalnblistnew++;}; inline void adms_global_increment_nblistdestroy(void) {globalnblistdestroy++;}; int globalnbnaturenew=0, globalnbnaturedestroy=0; inline int adms_global_nbnaturenew(void) {return globalnbnaturenew;}; inline int adms_global_nbnaturedestroy(void) {return globalnbnaturedestroy;}; inline void adms_global_increment_nbnaturenew(void) {globalnbnaturenew++;}; inline void adms_global_increment_nbnaturedestroy(void) {globalnbnaturedestroy++;}; int globalnbdisciplinenew=0, globalnbdisciplinedestroy=0; inline int adms_global_nbdisciplinenew(void) {return globalnbdisciplinenew;}; inline int adms_global_nbdisciplinedestroy(void) {return globalnbdisciplinedestroy;}; inline void adms_global_increment_nbdisciplinenew(void) {globalnbdisciplinenew++;}; inline void adms_global_increment_nbdisciplinedestroy(void) {globalnbdisciplinedestroy++;}; int globalnbmodulenew=0, globalnbmoduledestroy=0; inline int adms_global_nbmodulenew(void) {return globalnbmodulenew;}; inline int adms_global_nbmoduledestroy(void) {return globalnbmoduledestroy;}; inline void adms_global_increment_nbmodulenew(void) {globalnbmodulenew++;}; inline void adms_global_increment_nbmoduledestroy(void) {globalnbmoduledestroy++;}; int globalnbanalogfunctionnew=0, globalnbanalogfunctiondestroy=0; inline int adms_global_nbanalogfunctionnew(void) {return globalnbanalogfunctionnew;}; inline int adms_global_nbanalogfunctiondestroy(void) {return globalnbanalogfunctiondestroy;}; inline void adms_global_increment_nbanalogfunctionnew(void) {globalnbanalogfunctionnew++;}; inline void adms_global_increment_nbanalogfunctiondestroy(void) {globalnbanalogfunctiondestroy++;}; int globalnbnodealiasnew=0, globalnbnodealiasdestroy=0; inline int adms_global_nbnodealiasnew(void) {return globalnbnodealiasnew;}; inline int adms_global_nbnodealiasdestroy(void) {return globalnbnodealiasdestroy;}; inline void adms_global_increment_nbnodealiasnew(void) {globalnbnodealiasnew++;}; inline void adms_global_increment_nbnodealiasdestroy(void) {globalnbnodealiasdestroy++;}; int globalnbnodenew=0, globalnbnodedestroy=0; inline int adms_global_nbnodenew(void) {return globalnbnodenew;}; inline int adms_global_nbnodedestroy(void) {return globalnbnodedestroy;}; inline void adms_global_increment_nbnodenew(void) {globalnbnodenew++;}; inline void adms_global_increment_nbnodedestroy(void) {globalnbnodedestroy++;}; int globalnbbranchaliasnew=0, globalnbbranchaliasdestroy=0; inline int adms_global_nbbranchaliasnew(void) {return globalnbbranchaliasnew;}; inline int adms_global_nbbranchaliasdestroy(void) {return globalnbbranchaliasdestroy;}; inline void adms_global_increment_nbbranchaliasnew(void) {globalnbbranchaliasnew++;}; inline void adms_global_increment_nbbranchaliasdestroy(void) {globalnbbranchaliasdestroy++;}; int globalnbbranchnew=0, globalnbbranchdestroy=0; inline int adms_global_nbbranchnew(void) {return globalnbbranchnew;}; inline int adms_global_nbbranchdestroy(void) {return globalnbbranchdestroy;}; inline void adms_global_increment_nbbranchnew(void) {globalnbbranchnew++;}; inline void adms_global_increment_nbbranchdestroy(void) {globalnbbranchdestroy++;}; int globalnbsourcenew=0, globalnbsourcedestroy=0; inline int adms_global_nbsourcenew(void) {return globalnbsourcenew;}; inline int adms_global_nbsourcedestroy(void) {return globalnbsourcedestroy;}; inline void adms_global_increment_nbsourcenew(void) {globalnbsourcenew++;}; inline void adms_global_increment_nbsourcedestroy(void) {globalnbsourcedestroy++;}; int globalnbrangenew=0, globalnbrangedestroy=0; inline int adms_global_nbrangenew(void) {return globalnbrangenew;}; inline int adms_global_nbrangedestroy(void) {return globalnbrangedestroy;}; inline void adms_global_increment_nbrangenew(void) {globalnbrangenew++;}; inline void adms_global_increment_nbrangedestroy(void) {globalnbrangedestroy++;}; int globalnbjacobiannew=0, globalnbjacobiandestroy=0; inline int adms_global_nbjacobiannew(void) {return globalnbjacobiannew;}; inline int adms_global_nbjacobiandestroy(void) {return globalnbjacobiandestroy;}; inline void adms_global_increment_nbjacobiannew(void) {globalnbjacobiannew++;}; inline void adms_global_increment_nbjacobiandestroy(void) {globalnbjacobiandestroy++;}; int globalnbanalognew=0, globalnbanalogdestroy=0; inline int adms_global_nbanalognew(void) {return globalnbanalognew;}; inline int adms_global_nbanalogdestroy(void) {return globalnbanalogdestroy;}; inline void adms_global_increment_nbanalognew(void) {globalnbanalognew++;}; inline void adms_global_increment_nbanalogdestroy(void) {globalnbanalogdestroy++;}; int globalnbmathnew=0, globalnbmathdestroy=0; inline int adms_global_nbmathnew(void) {return globalnbmathnew;}; inline int adms_global_nbmathdestroy(void) {return globalnbmathdestroy;}; inline void adms_global_increment_nbmathnew(void) {globalnbmathnew++;}; inline void adms_global_increment_nbmathdestroy(void) {globalnbmathdestroy++;}; int globalnbstringnew=0, globalnbstringdestroy=0; inline int adms_global_nbstringnew(void) {return globalnbstringnew;}; inline int adms_global_nbstringdestroy(void) {return globalnbstringdestroy;}; inline void adms_global_increment_nbstringnew(void) {globalnbstringnew++;}; inline void adms_global_increment_nbstringdestroy(void) {globalnbstringdestroy++;}; int globalnbsubexpressionnew=0, globalnbsubexpressiondestroy=0; inline int adms_global_nbsubexpressionnew(void) {return globalnbsubexpressionnew;}; inline int adms_global_nbsubexpressiondestroy(void) {return globalnbsubexpressiondestroy;}; inline void adms_global_increment_nbsubexpressionnew(void) {globalnbsubexpressionnew++;}; inline void adms_global_increment_nbsubexpressiondestroy(void) {globalnbsubexpressiondestroy++;}; int globalnbmapply_unarynew=0, globalnbmapply_unarydestroy=0; inline int adms_global_nbmapply_unarynew(void) {return globalnbmapply_unarynew;}; inline int adms_global_nbmapply_unarydestroy(void) {return globalnbmapply_unarydestroy;}; inline void adms_global_increment_nbmapply_unarynew(void) {globalnbmapply_unarynew++;}; inline void adms_global_increment_nbmapply_unarydestroy(void) {globalnbmapply_unarydestroy++;}; int globalnbmapply_binarynew=0, globalnbmapply_binarydestroy=0; inline int adms_global_nbmapply_binarynew(void) {return globalnbmapply_binarynew;}; inline int adms_global_nbmapply_binarydestroy(void) {return globalnbmapply_binarydestroy;}; inline void adms_global_increment_nbmapply_binarynew(void) {globalnbmapply_binarynew++;}; inline void adms_global_increment_nbmapply_binarydestroy(void) {globalnbmapply_binarydestroy++;}; int globalnbmapply_ternarynew=0, globalnbmapply_ternarydestroy=0; inline int adms_global_nbmapply_ternarynew(void) {return globalnbmapply_ternarynew;}; inline int adms_global_nbmapply_ternarydestroy(void) {return globalnbmapply_ternarydestroy;}; inline void adms_global_increment_nbmapply_ternarynew(void) {globalnbmapply_ternarynew++;}; inline void adms_global_increment_nbmapply_ternarydestroy(void) {globalnbmapply_ternarydestroy++;}; int globalnbnumbernew=0, globalnbnumberdestroy=0; inline int adms_global_nbnumbernew(void) {return globalnbnumbernew;}; inline int adms_global_nbnumberdestroy(void) {return globalnbnumberdestroy;}; inline void adms_global_increment_nbnumbernew(void) {globalnbnumbernew++;}; inline void adms_global_increment_nbnumberdestroy(void) {globalnbnumberdestroy++;}; int globalnbfunctionnew=0, globalnbfunctiondestroy=0; inline int adms_global_nbfunctionnew(void) {return globalnbfunctionnew;}; inline int adms_global_nbfunctiondestroy(void) {return globalnbfunctiondestroy;}; inline void adms_global_increment_nbfunctionnew(void) {globalnbfunctionnew++;}; inline void adms_global_increment_nbfunctiondestroy(void) {globalnbfunctiondestroy++;}; int globalnbvariablenew=0, globalnbvariabledestroy=0; inline int adms_global_nbvariablenew(void) {return globalnbvariablenew;}; inline int adms_global_nbvariabledestroy(void) {return globalnbvariabledestroy;}; inline void adms_global_increment_nbvariablenew(void) {globalnbvariablenew++;}; inline void adms_global_increment_nbvariabledestroy(void) {globalnbvariabledestroy++;}; int globalnbprobenew=0, globalnbprobedestroy=0; inline int adms_global_nbprobenew(void) {return globalnbprobenew;}; inline int adms_global_nbprobedestroy(void) {return globalnbprobedestroy;}; inline void adms_global_increment_nbprobenew(void) {globalnbprobenew++;}; inline void adms_global_increment_nbprobedestroy(void) {globalnbprobedestroy++;}; int globalnbexpressionnew=0, globalnbexpressiondestroy=0; inline int adms_global_nbexpressionnew(void) {return globalnbexpressionnew;}; inline int adms_global_nbexpressiondestroy(void) {return globalnbexpressiondestroy;}; inline void adms_global_increment_nbexpressionnew(void) {globalnbexpressionnew++;}; inline void adms_global_increment_nbexpressiondestroy(void) {globalnbexpressiondestroy++;}; int globalnbinstancenew=0, globalnbinstancedestroy=0; inline int adms_global_nbinstancenew(void) {return globalnbinstancenew;}; inline int adms_global_nbinstancedestroy(void) {return globalnbinstancedestroy;}; inline void adms_global_increment_nbinstancenew(void) {globalnbinstancenew++;}; inline void adms_global_increment_nbinstancedestroy(void) {globalnbinstancedestroy++;}; int globalnbinstanceparameternew=0, globalnbinstanceparameterdestroy=0; inline int adms_global_nbinstanceparameternew(void) {return globalnbinstanceparameternew;}; inline int adms_global_nbinstanceparameterdestroy(void) {return globalnbinstanceparameterdestroy;}; inline void adms_global_increment_nbinstanceparameternew(void) {globalnbinstanceparameternew++;}; inline void adms_global_increment_nbinstanceparameterdestroy(void) {globalnbinstanceparameterdestroy++;}; int globalnbinstancenodenew=0, globalnbinstancenodedestroy=0; inline int adms_global_nbinstancenodenew(void) {return globalnbinstancenodenew;}; inline int adms_global_nbinstancenodedestroy(void) {return globalnbinstancenodedestroy;}; inline void adms_global_increment_nbinstancenodenew(void) {globalnbinstancenodenew++;}; inline void adms_global_increment_nbinstancenodedestroy(void) {globalnbinstancenodedestroy++;}; int globalnbnillednew=0, globalnbnilleddestroy=0; inline int adms_global_nbnillednew(void) {return globalnbnillednew;}; inline int adms_global_nbnilleddestroy(void) {return globalnbnilleddestroy;}; inline void adms_global_increment_nbnillednew(void) {globalnbnillednew++;}; inline void adms_global_increment_nbnilleddestroy(void) {globalnbnilleddestroy++;}; int globalnbassignmentnew=0, globalnbassignmentdestroy=0; inline int adms_global_nbassignmentnew(void) {return globalnbassignmentnew;}; inline int adms_global_nbassignmentdestroy(void) {return globalnbassignmentdestroy;}; inline void adms_global_increment_nbassignmentnew(void) {globalnbassignmentnew++;}; inline void adms_global_increment_nbassignmentdestroy(void) {globalnbassignmentdestroy++;}; int globalnbcontributionnew=0, globalnbcontributiondestroy=0; inline int adms_global_nbcontributionnew(void) {return globalnbcontributionnew;}; inline int adms_global_nbcontributiondestroy(void) {return globalnbcontributiondestroy;}; inline void adms_global_increment_nbcontributionnew(void) {globalnbcontributionnew++;}; inline void adms_global_increment_nbcontributiondestroy(void) {globalnbcontributiondestroy++;}; int globalnbconditionalnew=0, globalnbconditionaldestroy=0; inline int adms_global_nbconditionalnew(void) {return globalnbconditionalnew;}; inline int adms_global_nbconditionaldestroy(void) {return globalnbconditionaldestroy;}; inline void adms_global_increment_nbconditionalnew(void) {globalnbconditionalnew++;}; inline void adms_global_increment_nbconditionaldestroy(void) {globalnbconditionaldestroy++;}; int globalnbwhileloopnew=0, globalnbwhileloopdestroy=0; inline int adms_global_nbwhileloopnew(void) {return globalnbwhileloopnew;}; inline int adms_global_nbwhileloopdestroy(void) {return globalnbwhileloopdestroy;}; inline void adms_global_increment_nbwhileloopnew(void) {globalnbwhileloopnew++;}; inline void adms_global_increment_nbwhileloopdestroy(void) {globalnbwhileloopdestroy++;}; int globalnbcasenew=0, globalnbcasedestroy=0; inline int adms_global_nbcasenew(void) {return globalnbcasenew;}; inline int adms_global_nbcasedestroy(void) {return globalnbcasedestroy;}; inline void adms_global_increment_nbcasenew(void) {globalnbcasenew++;}; inline void adms_global_increment_nbcasedestroy(void) {globalnbcasedestroy++;}; int globalnbcaseitemnew=0, globalnbcaseitemdestroy=0; inline int adms_global_nbcaseitemnew(void) {return globalnbcaseitemnew;}; inline int adms_global_nbcaseitemdestroy(void) {return globalnbcaseitemdestroy;}; inline void adms_global_increment_nbcaseitemnew(void) {globalnbcaseitemnew++;}; inline void adms_global_increment_nbcaseitemdestroy(void) {globalnbcaseitemdestroy++;}; int globalnbblockvariablenew=0, globalnbblockvariabledestroy=0; inline int adms_global_nbblockvariablenew(void) {return globalnbblockvariablenew;}; inline int adms_global_nbblockvariabledestroy(void) {return globalnbblockvariabledestroy;}; inline void adms_global_increment_nbblockvariablenew(void) {globalnbblockvariablenew++;}; inline void adms_global_increment_nbblockvariabledestroy(void) {globalnbblockvariabledestroy++;}; int globalnbblocknew=0, globalnbblockdestroy=0; inline int adms_global_nbblocknew(void) {return globalnbblocknew;}; inline int adms_global_nbblockdestroy(void) {return globalnbblockdestroy;}; inline void adms_global_increment_nbblocknew(void) {globalnbblocknew++;}; inline void adms_global_increment_nbblockdestroy(void) {globalnbblockdestroy++;}; int globalnbcallfunctionnew=0, globalnbcallfunctiondestroy=0; inline int adms_global_nbcallfunctionnew(void) {return globalnbcallfunctionnew;}; inline int adms_global_nbcallfunctiondestroy(void) {return globalnbcallfunctiondestroy;}; inline void adms_global_increment_nbcallfunctionnew(void) {globalnbcallfunctionnew++;}; inline void adms_global_increment_nbcallfunctiondestroy(void) {globalnbcallfunctiondestroy++;}; int globalnbevaluationnew=0, globalnbevaluationdestroy=0; inline int adms_global_nbevaluationnew(void) {return globalnbevaluationnew;}; inline int adms_global_nbevaluationdestroy(void) {return globalnbevaluationdestroy;}; inline void adms_global_increment_nbevaluationnew(void) {globalnbevaluationnew++;}; inline void adms_global_increment_nbevaluationdestroy(void) {globalnbevaluationdestroy++;}; int globalnbadmsttextnew=0, globalnbadmsttextdestroy=0; inline int adms_global_nbadmsttextnew(void) {return globalnbadmsttextnew;}; inline int adms_global_nbadmsttextdestroy(void) {return globalnbadmsttextdestroy;}; inline void adms_global_increment_nbadmsttextnew(void) {globalnbadmsttextnew++;}; inline void adms_global_increment_nbadmsttextdestroy(void) {globalnbadmsttextdestroy++;}; int globalnbadmstpathnew=0, globalnbadmstpathdestroy=0; inline int adms_global_nbadmstpathnew(void) {return globalnbadmstpathnew;}; inline int adms_global_nbadmstpathdestroy(void) {return globalnbadmstpathdestroy;}; inline void adms_global_increment_nbadmstpathnew(void) {globalnbadmstpathnew++;}; inline void adms_global_increment_nbadmstpathdestroy(void) {globalnbadmstpathdestroy++;}; int globalnbadmstpathgotonew=0, globalnbadmstpathgotodestroy=0; inline int adms_global_nbadmstpathgotonew(void) {return globalnbadmstpathgotonew;}; inline int adms_global_nbadmstpathgotodestroy(void) {return globalnbadmstpathgotodestroy;}; inline void adms_global_increment_nbadmstpathgotonew(void) {globalnbadmstpathgotonew++;}; inline void adms_global_increment_nbadmstpathgotodestroy(void) {globalnbadmstpathgotodestroy++;}; int globalnbadmstpathevaluatenew=0, globalnbadmstpathevaluatedestroy=0; inline int adms_global_nbadmstpathevaluatenew(void) {return globalnbadmstpathevaluatenew;}; inline int adms_global_nbadmstpathevaluatedestroy(void) {return globalnbadmstpathevaluatedestroy;}; inline void adms_global_increment_nbadmstpathevaluatenew(void) {globalnbadmstpathevaluatenew++;}; inline void adms_global_increment_nbadmstpathevaluatedestroy(void) {globalnbadmstpathevaluatedestroy++;}; int globalnbadmstpathparsernew=0, globalnbadmstpathparserdestroy=0; inline int adms_global_nbadmstpathparsernew(void) {return globalnbadmstpathparsernew;}; inline int adms_global_nbadmstpathparserdestroy(void) {return globalnbadmstpathparserdestroy;}; inline void adms_global_increment_nbadmstpathparsernew(void) {globalnbadmstpathparsernew++;}; inline void adms_global_increment_nbadmstpathparserdestroy(void) {globalnbadmstpathparserdestroy++;}; int globalnbadmstnew=0, globalnbadmstdestroy=0; inline int adms_global_nbadmstnew(void) {return globalnbadmstnew;}; inline int adms_global_nbadmstdestroy(void) {return globalnbadmstdestroy;}; inline void adms_global_increment_nbadmstnew(void) {globalnbadmstnew++;}; inline void adms_global_increment_nbadmstdestroy(void) {globalnbadmstdestroy++;}; int globalnbadmsttransformattributenew=0, globalnbadmsttransformattributedestroy=0; inline int adms_global_nbadmsttransformattributenew(void) {return globalnbadmsttransformattributenew;}; inline int adms_global_nbadmsttransformattributedestroy(void) {return globalnbadmsttransformattributedestroy;}; inline void adms_global_increment_nbadmsttransformattributenew(void) {globalnbadmsttransformattributenew++;}; inline void adms_global_increment_nbadmsttransformattributedestroy(void) {globalnbadmsttransformattributedestroy++;}; int globalnbadmsttransformnew=0, globalnbadmsttransformdestroy=0; inline int adms_global_nbadmsttransformnew(void) {return globalnbadmsttransformnew;}; inline int adms_global_nbadmsttransformdestroy(void) {return globalnbadmsttransformdestroy;}; inline void adms_global_increment_nbadmsttransformnew(void) {globalnbadmsttransformnew++;}; inline void adms_global_increment_nbadmsttransformdestroy(void) {globalnbadmsttransformdestroy++;}; int globalnbinstanceofadmsttransformnew=0, globalnbinstanceofadmsttransformdestroy=0; inline int adms_global_nbinstanceofadmsttransformnew(void) {return globalnbinstanceofadmsttransformnew;}; inline int adms_global_nbinstanceofadmsttransformdestroy(void) {return globalnbinstanceofadmsttransformdestroy;}; inline void adms_global_increment_nbinstanceofadmsttransformnew(void) {globalnbinstanceofadmsttransformnew++;}; inline void adms_global_increment_nbinstanceofadmsttransformdestroy(void) {globalnbinstanceofadmsttransformdestroy++;}; int globalnbadmstvariablenew=0, globalnbadmstvariabledestroy=0; inline int adms_global_nbadmstvariablenew(void) {return globalnbadmstvariablenew;}; inline int adms_global_nbadmstvariabledestroy(void) {return globalnbadmstvariabledestroy;}; inline void adms_global_increment_nbadmstvariablenew(void) {globalnbadmstvariablenew++;}; inline void adms_global_increment_nbadmstvariabledestroy(void) {globalnbadmstvariabledestroy++;}; int globalnbpathnew=0, globalnbpathdestroy=0; inline int adms_global_nbpathnew(void) {return globalnbpathnew;}; inline int adms_global_nbpathdestroy(void) {return globalnbpathdestroy;}; inline void adms_global_increment_nbpathnew(void) {globalnbpathnew++;}; inline void adms_global_increment_nbpathdestroy(void) {globalnbpathdestroy++;}; int globalnblexvalnew=0, globalnblexvaldestroy=0; inline int adms_global_nblexvalnew(void) {return globalnblexvalnew;}; inline int adms_global_nblexvaldestroy(void) {return globalnblexvaldestroy;}; inline void adms_global_increment_nblexvalnew(void) {globalnblexvalnew++;}; inline void adms_global_increment_nblexvaldestroy(void) {globalnblexvaldestroy++;}; int globalnbyaccvalnew=0, globalnbyaccvaldestroy=0; inline int adms_global_nbyaccvalnew(void) {return globalnbyaccvalnew;}; inline int adms_global_nbyaccvaldestroy(void) {return globalnbyaccvaldestroy;}; inline void adms_global_increment_nbyaccvalnew(void) {globalnbyaccvalnew++;}; inline void adms_global_increment_nbyaccvaldestroy(void) {globalnbyaccvaldestroy++;}; p_admsmain globaladmsmain; p_admsmain adms_global_admsmain(void) {return globaladmsmain;} void adms_global_valueto_admsmain(p_admsmain myglobaladmsmain) {globaladmsmain=myglobaladmsmain;} /*-- Messaging --*/ inline char*adms_consttoupper(const char*m) { int l=strlen(m); char*mycpy=(char*)malloc((l+1)*sizeof(char)); mycpy[l--]='\0'; for(;l>=0;l--) mycpy[l]=toupper(m[l]); return mycpy; } inline char*adms_consttolower(const char*m) { int l=strlen(m); char*mycpy=(char*)malloc((l+1)*sizeof(char)); mycpy[l--]='\0'; for(;l>=0;l--) mycpy[l]=tolower(m[l]); return mycpy; } inline char*adms_constclone(const char*m) { int l=strlen(m); char*mycpy=(char*)malloc((l+1)*sizeof(char)); memcpy(mycpy,m,l); mycpy[l]='\0'; return mycpy; } inline char*adms_constnclone(const char*m,const int l) { char*mycpy=(char*)malloc((l+1)*sizeof(char)); memcpy(mycpy,m,l); mycpy[l]='\0'; return mycpy; } /*clone array (m,n(: "abcdefghijkl\0" returns as "cdef\0"*/ /* m n */ /* same as adms_constnclone(m,n-m) */ inline char*adms_m2nclone(const char*m,const char*n) { int l=(char*)n-(char*)m; char*mycpy=(char*)malloc((l+1)*sizeof(char)); memcpy(mycpy,m,l); mycpy[l]='\0'; return mycpy; } /*s1: realloced s2: constant ret: s1=s1s2*/ inline void adms_strconcat2(char **s1,const char *s2) { if(*s1) { int l1=strlen(*s1); int l2=strlen(s2); *s1=(char*)realloc(*s1,(l1+l2+1)*sizeof(char)); memcpy(*s1+l1,s2,l2+1); } else *s1=strdup(s2); } /*s1: realloced s2: freed ret: s1=s1s2*/ inline void adms_strconcat(char **s1,char *s2) { adms_strconcat2(s1,s2); free(s2); } _t_message (adms_message_info_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[info...] ",stdout); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_info_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_usage_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[usage..] ",stdout); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_usage_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_verbose_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[verbose] ",stdout); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_verbose_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_debug_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[debug..] ",stdout); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_debug_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_dbg_vla_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[dbg_vla] ",stdout); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_dbg_vla_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_dbg_xml_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[dbg_xml] ",stdout); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_dbg_xml_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_dbg_mem_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[dbg_mem] ",stdout); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_dbg_mem_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stdout); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stdout); } } else fputc(*format,stdout); } } format++; } va_end (ap); fflush(stdout); } _t_message (adms_message_hint_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[hint...] ",stderr); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_hint_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_warning_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[warning] ",stderr); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_warning_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_obsolete_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[obsolete] ",stderr); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_obsolete_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_error_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[error..] ",stderr); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_error_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } _t_message (adms_message_fatal_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[fatal..] ",stderr); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); if(getenv("adms_breakpoint")) G_BREAKPOINT(); else exit(1); } _t_message (adms_message_fatal_continue_impl) { va_list ap; int insideformat=0; int i; char* s; double d; void* p; fputs("[fatal..] ",stderr); va_start(ap, format); while(*format) { switch(*format) { case '%': insideformat=insideformat?0:1; break; default: { if(insideformat) { insideformat=0; switch(*format) { case 's': s=va_arg (ap,char*); fputs(s,stderr); break; case 'e': d=va_arg (ap,double); printf("%e",d); break; case 'g': d=va_arg (ap,double); printf("%g",d); break; case 'f': d=va_arg (ap,double); printf("%f",d); break; case 'i': i=va_arg (ap,int); printf("%i",i); break; case 'p': p=va_arg (ap,void*); printf("%p",p); break; default: fputc(*format,stderr); } } else fputc(*format,stderr); } } format++; } va_end (ap); fflush(stderr); } const char*adms_element_adms_allattribute[1]={NULL}; const char*adms_element_simulator_allattribute[17]={"name","currentdate","developer","fullname","probe","tmp","tmp1","br1","br2","sr1","ddx","package_name","package_tarname","package_version","package_string","package_bugreport",NULL}; const char*adms_element_admsmain_allattribute[29]={"name","filename","simulator","info","usage","verbose","hint","warning","obsolete","debug","dbg_vla","dbg_xml","error","fatal","dbg_mem","module","discipline","nature","variable","argv","admstfile","admsttransform","template","instanceofadmsttransform","instanceofadmsttransforminsideapplytemplate","valueof","alladmstnew","alladmstdestroy",NULL}; const char*adms_element_attribute_allattribute[3]={"name","value",NULL}; const char*adms_element_enumeration_allattribute[1]={NULL}; const char*adms_element_integer_allattribute[1]={NULL}; const char*adms_element_real_allattribute[1]={NULL}; const char*adms_element_quark_allattribute[1]={NULL}; const char*adms_element_list_allattribute[3]={"datatype","item",NULL}; const char*adms_element_nature_allattribute[8]={"access","name","abstol","base","ddtNature","idtNature","units",NULL}; const char*adms_element_discipline_allattribute[4]={"name","flow","potential",NULL}; const char*adms_element_module_allattribute[23]={"name","evaluation","analog","node","block","contribution","assignment","expression","conditional","blockvariable","branch","jacobian","probe","source","instance","instantiator","branchalias","range","nodealias","variable","analogfunction","attribute",NULL}; const char*adms_element_analogfunction_allattribute[6]={"module","name","type","tree","variable",NULL}; const char*adms_element_nodealias_allattribute[4]={"module","name","node",NULL}; const char*adms_element_node_allattribute[8]={"module","name","direction","discipline","grounded","location","attribute",NULL}; const char*adms_element_branchalias_allattribute[4]={"module","name","branch",NULL}; const char*adms_element_branch_allattribute[7]={"module","pnode","nnode","discipline","grounded","attribute",NULL}; const char*adms_element_source_allattribute[14]={"module","branch","nature","discipline","static","dynamic","whitenoise","flickernoise","grounded","switch","type","probe","attribute",NULL}; const char*adms_element_range_allattribute[8]={"module","infexpr","supexpr","name","infboundtype","supboundtype","type",NULL}; const char*adms_element_jacobian_allattribute[7]={"module","row","column","diagonal","static","dynamic",NULL}; const char*adms_element_analog_allattribute[2]={"code",NULL}; const char*adms_element_math_allattribute[7]={"name","value","static","dynamic","dependency","attribute",NULL}; const char*adms_element_string_allattribute[2]={"value",NULL}; const char*adms_element_subexpression_allattribute[2]={"expression",NULL}; const char*adms_element_mapply_unary_allattribute[3]={"name","arg1",NULL}; const char*adms_element_mapply_binary_allattribute[4]={"name","arg1","arg2",NULL}; const char*adms_element_mapply_ternary_allattribute[5]={"name","arg1","arg2","arg3",NULL}; const char*adms_element_number_allattribute[3]={"value","scalingunit",NULL}; const char*adms_element_function_allattribute[6]={"name","unique_id","definition","class","arguments",NULL}; const char*adms_element_variable_allattribute[38]={"module","name","block","parametertype","type","sizetype","input","output","scope","default","derivate","isstate","usedinmodel","usedininstance","usedininitial_step","usedinevaluate","usedinnoise","usedinfinal","setinmodel","setininstance","setininitial_step","setinevaluate","setinnoise","setinfinal","setingetprev","TemperatureDependent","OPdependent","insource","vcount","vlast","alias","range","attribute","assignment","probe","ddxprobe","variable",NULL}; const char*adms_element_probe_allattribute[8]={"module","branch","nature","seen","discipline","grounded","source",NULL}; const char*adms_element_expression_allattribute[10]={"module","tree","hasspecialnumber","hasVoltageDependentFunction","TemperatureDependent","value","function","probe","variable",NULL}; const char*adms_element_instance_allattribute[6]={"instantiator","module","name","terminal","parameterset",NULL}; const char*adms_element_instanceparameter_allattribute[3]={"parameter","value",NULL}; const char*adms_element_instancenode_allattribute[3]={"nodefrominstantiator","nodefrommodule",NULL}; const char*adms_element_nilled_allattribute[3]={"module","name",NULL}; const char*adms_element_assignment_allattribute[6]={"module","lhs","rhs","name","attribute",NULL}; const char*adms_element_contribution_allattribute[9]={"module","lhs","rhs","branchalias","name","whitenoise","flickernoise","attribute",NULL}; const char*adms_element_conditional_allattribute[6]={"module","if","then","else","name",NULL}; const char*adms_element_whileloop_allattribute[5]={"module","while","whileblock","name",NULL}; const char*adms_element_case_allattribute[5]={"module","case","name","caseitem",NULL}; const char*adms_element_caseitem_allattribute[4]={"code","defaultcase","condition",NULL}; const char*adms_element_blockvariable_allattribute[3]={"block","variable",NULL}; const char*adms_element_block_allattribute[8]={"module","name","block","attribute","variable","item","probe",NULL}; const char*adms_element_callfunction_allattribute[3]={"module","function",NULL}; const char*adms_element_evaluation_allattribute[3]={"module","variable",NULL}; const char*adms_element_admsttext_allattribute[3]={"admsttransform","token",NULL}; const char*adms_element_admstpath_allattribute[2]={"admsttransformattribute",NULL}; const char*adms_element_admstpathgoto_allattribute[1]={NULL}; const char*adms_element_admstpathevaluate_allattribute[7]={"admsttransform","admsttransformattribute","admstaslist","admstasscalar","admstasscalarfixme","alladmst",NULL}; const char*adms_element_admstpathparser_allattribute[3]={"admsttransform","admstpath",NULL}; const char*adms_element_admst_allattribute[4]={"admsttransform","previous","item",NULL}; const char*adms_element_admsttransformattribute_allattribute[4]={"admsttransform","admsttext","admstpathgoto",NULL}; const char*adms_element_admsttransform_allattribute[23]={"f","parent","zzdatatype","zzselect","zzmatch","zzrequired","zzseparator","zzfrom","zzto","zzlist","zzinto","zzname","zzformat","zzfile","zzversion","zzonduplicate","zzprobe","zzvalue","zzarguments","zztest","attribute","children",NULL}; const char*adms_element_instanceofadmsttransform_allattribute[4]={"admsttemplate","variable","return",NULL}; const char*adms_element_admstvariable_allattribute[3]={"name","value",NULL}; const char*adms_element_path_allattribute[1]={NULL}; const char*adms_element_lexval_allattribute[1]={NULL}; const char*adms_element_yaccval_allattribute[2]={"usrdata",NULL}; /*-- accessors: grap data from adms.xml based on adms element name and attribute name --*/ #include int adms_admsxml_size (p_admsttransform myadmsttransform, const p_admst myadmst,const char*myattributename) { e_adms_datatypename myelementname; if(!strcmp(myadmst->_attributename,"adms")) myelementname=adms_adms_enumeration_datatypename_adms; else if(!strcmp(myadmst->_attributename,"math")) myelementname=adms_adms_enumeration_datatypename_math; else if(!strcmp(myadmst->_attributename,"subexpression")) myelementname=adms_adms_enumeration_datatypename_subexpression; else myelementname=myadmst->_item->_datatypename; /*alias*/ if(myadmst->_item &&(!strcmp(myattributename,"static")||!strcmp(myattributename,"dynamic")) ) { if(0 ||myelementname==adms_adms_enumeration_datatypename_block ||myelementname==adms_adms_enumeration_datatypename_blockvariable ||myelementname==adms_adms_enumeration_datatypename_nilled ||myelementname==adms_adms_enumeration_datatypename_expression ||myelementname==adms_adms_enumeration_datatypename_assignment ||myelementname==adms_adms_enumeration_datatypename_contribution ||myelementname==adms_adms_enumeration_datatypename_conditional ||myelementname==adms_adms_enumeration_datatypename_variable ||myelementname==adms_adms_enumeration_datatypename_callfunction ||myelementname==adms_adms_enumeration_datatypename_case ||myelementname==adms_adms_enumeration_datatypename_whileloop ) myelementname=adms_adms_enumeration_datatypename_math; } if(myelementname==adms_adms_enumeration_datatypename_adms) { if(!strcmp(myattributename,"datatypename")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"seen")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"used")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_simulator) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"currentdate")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"developer")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"fullname")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"probe")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"tmp")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"tmp1")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"br1")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"br2")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"sr1")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"ddx")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"package_name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"package_tarname")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"package_version")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"package_string")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"package_bugreport")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admsmain) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"argc")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"curline")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"simulator")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"info")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"usage")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"verbose")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"hint")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"warning")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"obsolete")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"debug")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"dbg_vla")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"dbg_xml")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"error")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"fatal")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"dbg_mem")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"discipline")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"nature")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"argv")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"admstfile")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"admsttransform")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"template")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"instanceofadmsttransform")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"instanceofadmsttransforminsideapplytemplate")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"valueof")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"alladmstnew")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"alladmstdestroy")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_attribute) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"value")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_enumeration) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fromstring")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"tostring")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_integer) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_real) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:real' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_quark) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_list) { if(!strcmp(myattributename,"datatype")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"item")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_nature) { if(!strcmp(myattributename,"access")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"abstol")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"base")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"ddtNature")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"idtNature")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"units")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_discipline) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"flow")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"potential")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_module) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"evaluation")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"analog")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"node")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"block")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"contribution")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"assignment")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"expression")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"conditional")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"blockvariable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"branch")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"jacobian")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"probe")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"source")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"instance")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"instantiator")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"branchalias")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"range")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"nodealias")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"analogfunction")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_analogfunction) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"type")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"tree")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_nodealias) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"node")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_node) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"direction")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"discipline")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"grounded")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"location")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_branchalias) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"branch")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_branch) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"pnode")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"nnode")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"discipline")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"grounded")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_source) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"branch")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"nature")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"discipline")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"static")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"dynamic")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"whitenoise")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"flickernoise")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"grounded")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"switch")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"type")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"probe")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_range) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"infexpr")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"supexpr")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"infboundtype")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"supboundtype")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"type")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_jacobian) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"row")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"column")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"diagonal")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"static")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"dynamic")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_analog) { if(!strcmp(myattributename,"code")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_math) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"value")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"static")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"dynamic")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"dependency")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_string) { if(!strcmp(myattributename,"value")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_subexpression) { if(!strcmp(myattributename,"expression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_mapply_unary) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"arg1")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"subexpression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_mapply_binary) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"arg1")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"arg2")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"subexpression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_mapply_ternary) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"arg1")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"arg2")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"arg3")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"subexpression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_number) { if(!strcmp(myattributename,"value")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"scalingunit")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"subexpression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_function) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"unique_id")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"definition")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"class")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"arguments")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"subexpression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_variable) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"block")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"parametertype")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"type")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"sizetype")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"maxsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"minsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"input")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"output")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"scope")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"default")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"derivate")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"isstate")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"usedinmodel")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"usedininstance")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"usedininitial_step")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"usedinevaluate")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"usedinnoise")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"usedinfinal")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"setinmodel")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"setininstance")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"setininitial_step")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"setinevaluate")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"setinnoise")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"setinfinal")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"setingetprev")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"TemperatureDependent")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"OPdependent")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"insource")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"vcount")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"vlast")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"alias")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"range")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"assignment")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"probe")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"ddxprobe")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"subexpression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_probe) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"branch")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"nature")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"seen")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"discipline")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"grounded")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"source")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"subexpression")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_expression) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"tree")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"hasspecialnumber")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"hasVoltageDependentFunction")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"TemperatureDependent")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"value")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"function")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"probe")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_instance) { if(!strcmp(myattributename,"instantiator")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"terminal")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"parameterset")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_instanceparameter) { if(!strcmp(myattributename,"parameter")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"value")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_instancenode) { if(!strcmp(myattributename,"nodefrominstantiator")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"nodefrommodule")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_nilled) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_assignment) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"lhs")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"rhs")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_contribution) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"lhs")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"rhs")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"branchalias")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"whitenoise")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"flickernoise")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_conditional) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"if")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"then")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"else")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_whileloop) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"while")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"whileblock")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_case) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"case")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"caseitem")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_caseitem) { if(!strcmp(myattributename,"code")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"defaultcase")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"condition")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_blockvariable) { if(!strcmp(myattributename,"block")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_block) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"block")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"item")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"probe")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_callfunction) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"function")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"math")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_evaluation) { if(!strcmp(myattributename,"module")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admsttext) { if(!strcmp(myattributename,"admsttransform")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"type")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admstpath) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttransformattribute")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admstpathgoto) { if(!strcmp(myattributename,"gotoname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"gotoindex")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"text")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admstpathevaluate) { if(!strcmp(myattributename,"admsttransform")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"admsttransformattribute")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"admstpathgotonode")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"admstaslist")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"admstasscalar")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"admstasscalarfixme")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"alladmst")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admstpathparser) { if(!strcmp(myattributename,"admsttransform")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"admstpath")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"stringposition")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"tokenstrstart")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"tokenstrlen")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admst) { if(!strcmp(myattributename,"admsttransform")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"previous")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attributename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"size")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"container")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"item")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"isrelative")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"istrue")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admsttransformattribute) { if(!strcmp(myattributename,"admsttransform")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttext")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"admstpathgoto")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admsttransform) { if(!strcmp(myattributename,"f")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admstname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"parent")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"evaluator")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzdatatype")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzselect")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzmatch")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzrequired")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzseparator")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzfrom")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzto")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzlist")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzinto")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzname")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzformat")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzfile")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzversion")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzonduplicate")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzprobe")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzvalue")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zzarguments")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"zztest")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"attribute")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"children")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_instanceofadmsttransform) { if(!strcmp(myattributename,"admsttemplate")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"variable")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"return")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_admstvariable) { if(!strcmp(myattributename,"name")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"value")) return adms_admst_enumeration_size_list; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_path) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_lexval) { if(!strcmp(myattributename,"string")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } if(myelementname==adms_adms_enumeration_datatypename_yaccval) { if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in size(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"usrdata")) return adms_admst_enumeration_size_scalar; if(!strcmp(myattributename,"adms")) return adms_admst_enumeration_size_scalar; } { p_adms myitem=myadmst->_item; char*myelementname=myitem?adms_adms_tostring_datatypename_impl(myadmsttransform,myitem->_datatypename):myadmst->_attributename; adms_message_fatal_continue(("missing attribute %s/%s\n",myelementname,myattributename)) adms_message_fatal_continue(("see %s\n",adms_admsttransform_uid(myadmsttransform))) adms_message_fatal(("called by %s\n",adms_admst_uid(myadmst))) } return 0; } p_adms adms_admsxml_valueof (const p_admst myadmst,const char*myattributename) { e_adms_datatypename myelementname; if(!strcmp(myadmst->_attributename,"adms")) myelementname=adms_adms_enumeration_datatypename_adms; else if(!strcmp(myadmst->_attributename,"math")) myelementname=adms_adms_enumeration_datatypename_math; else if(!strcmp(myadmst->_attributename,"subexpression")) myelementname=adms_adms_enumeration_datatypename_subexpression; else myelementname=myadmst->_item->_datatypename; /*alias*/ if(myadmst->_item &&(!strcmp(myattributename,"static")||!strcmp(myattributename,"dynamic")) ) { if(0 ||myelementname==adms_adms_enumeration_datatypename_block ||myelementname==adms_adms_enumeration_datatypename_blockvariable ||myelementname==adms_adms_enumeration_datatypename_nilled ||myelementname==adms_adms_enumeration_datatypename_expression ||myelementname==adms_adms_enumeration_datatypename_assignment ||myelementname==adms_adms_enumeration_datatypename_contribution ||myelementname==adms_adms_enumeration_datatypename_conditional ||myelementname==adms_adms_enumeration_datatypename_variable ||myelementname==adms_adms_enumeration_datatypename_callfunction ||myelementname==adms_adms_enumeration_datatypename_case ||myelementname==adms_adms_enumeration_datatypename_whileloop ) myelementname=adms_adms_enumeration_datatypename_math; } if(myelementname==adms_adms_enumeration_datatypename_adms) { if(!strcmp(myattributename,"datatypename")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"seen")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"used")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_simulator) { if(!strcmp(myattributename,"name")) return (p_adms)adms_simulator_valueof_name(myadmst->_item); if(!strcmp(myattributename,"currentdate")) return (p_adms)adms_simulator_valueof_currentdate(myadmst->_item); if(!strcmp(myattributename,"developer")) return (p_adms)adms_simulator_valueof_developer(myadmst->_item); if(!strcmp(myattributename,"fullname")) return (p_adms)adms_simulator_valueof_fullname(myadmst->_item); if(!strcmp(myattributename,"probe")) return (p_adms)adms_simulator_valueof_probe(myadmst->_item); if(!strcmp(myattributename,"tmp")) return (p_adms)adms_simulator_valueof_tmp(myadmst->_item); if(!strcmp(myattributename,"tmp1")) return (p_adms)adms_simulator_valueof_tmp1(myadmst->_item); if(!strcmp(myattributename,"br1")) return (p_adms)adms_simulator_valueof_br1(myadmst->_item); if(!strcmp(myattributename,"br2")) return (p_adms)adms_simulator_valueof_br2(myadmst->_item); if(!strcmp(myattributename,"sr1")) return (p_adms)adms_simulator_valueof_sr1(myadmst->_item); if(!strcmp(myattributename,"ddx")) return (p_adms)adms_simulator_valueof_ddx(myadmst->_item); if(!strcmp(myattributename,"package_name")) return (p_adms)adms_simulator_valueof_package_name(myadmst->_item); if(!strcmp(myattributename,"package_tarname")) return (p_adms)adms_simulator_valueof_package_tarname(myadmst->_item); if(!strcmp(myattributename,"package_version")) return (p_adms)adms_simulator_valueof_package_version(myadmst->_item); if(!strcmp(myattributename,"package_string")) return (p_adms)adms_simulator_valueof_package_string(myadmst->_item); if(!strcmp(myattributename,"package_bugreport")) return (p_adms)adms_simulator_valueof_package_bugreport(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_simulator_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admsmain) { if(!strcmp(myattributename,"name")) return (p_adms)adms_admsmain_valueof_name(myadmst->_item); if(!strcmp(myattributename,"argc")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) return (p_adms)adms_admsmain_valueof_filename(myadmst->_item); if(!strcmp(myattributename,"curline")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"simulator")) return (p_adms)adms_admsmain_valueof_simulator(myadmst->_item); if(!strcmp(myattributename,"info")) return (p_adms)adms_admsmain_valueof_info(myadmst->_item); if(!strcmp(myattributename,"usage")) return (p_adms)adms_admsmain_valueof_usage(myadmst->_item); if(!strcmp(myattributename,"verbose")) return (p_adms)adms_admsmain_valueof_verbose(myadmst->_item); if(!strcmp(myattributename,"hint")) return (p_adms)adms_admsmain_valueof_hint(myadmst->_item); if(!strcmp(myattributename,"warning")) return (p_adms)adms_admsmain_valueof_warning(myadmst->_item); if(!strcmp(myattributename,"obsolete")) return (p_adms)adms_admsmain_valueof_obsolete(myadmst->_item); if(!strcmp(myattributename,"debug")) return (p_adms)adms_admsmain_valueof_debug(myadmst->_item); if(!strcmp(myattributename,"dbg_vla")) return (p_adms)adms_admsmain_valueof_dbg_vla(myadmst->_item); if(!strcmp(myattributename,"dbg_xml")) return (p_adms)adms_admsmain_valueof_dbg_xml(myadmst->_item); if(!strcmp(myattributename,"error")) return (p_adms)adms_admsmain_valueof_error(myadmst->_item); if(!strcmp(myattributename,"fatal")) return (p_adms)adms_admsmain_valueof_fatal(myadmst->_item); if(!strcmp(myattributename,"dbg_mem")) return (p_adms)adms_admsmain_valueof_dbg_mem(myadmst->_item); if(!strcmp(myattributename,"module")) return (p_adms)adms_admsmain_valueof_module(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (p_adms)adms_admsmain_valueof_discipline(myadmst->_item); if(!strcmp(myattributename,"nature")) return (p_adms)adms_admsmain_valueof_nature(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_admsmain_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"argv")) return (p_adms)adms_admsmain_valueof_argv(myadmst->_item); if(!strcmp(myattributename,"admstfile")) return (p_adms)adms_admsmain_valueof_admstfile(myadmst->_item); if(!strcmp(myattributename,"admsttransform")) return (p_adms)adms_admsmain_valueof_admsttransform(myadmst->_item); if(!strcmp(myattributename,"template")) return (p_adms)adms_admsmain_valueof_template(myadmst->_item); if(!strcmp(myattributename,"instanceofadmsttransform")) return (p_adms)adms_admsmain_valueof_instanceofadmsttransform(myadmst->_item); if(!strcmp(myattributename,"instanceofadmsttransforminsideapplytemplate")) return (p_adms)adms_admsmain_valueof_instanceofadmsttransforminsideapplytemplate(myadmst->_item); if(!strcmp(myattributename,"valueof")) return (p_adms)adms_admsmain_valueof_valueof(myadmst->_item); if(!strcmp(myattributename,"alladmstnew")) return (p_adms)adms_admsmain_valueof_alladmstnew(myadmst->_item); if(!strcmp(myattributename,"alladmstdestroy")) return (p_adms)adms_admsmain_valueof_alladmstdestroy(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admsmain_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_attribute) { if(!strcmp(myattributename,"name")) return (p_adms)adms_attribute_valueof_name(myadmst->_item); if(!strcmp(myattributename,"value")) return (p_adms)adms_attribute_valueof_value(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_attribute_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_enumeration) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fromstring")) return (p_adms)adms_enumeration_valueof_fromstring(myadmst->_item); if(!strcmp(myattributename,"tostring")) return (p_adms)adms_enumeration_valueof_tostring(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_enumeration_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_integer) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return (p_adms)adms_integer_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_real) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:real' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return (p_adms)adms_real_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_quark) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return (p_adms)adms_quark_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_list) { if(!strcmp(myattributename,"datatype")) return (p_adms)adms_list_valueof_datatype(myadmst->_item); if(!strcmp(myattributename,"item")) return (p_adms)adms_list_valueof_item(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_list_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_nature) { if(!strcmp(myattributename,"access")) return (p_adms)adms_nature_valueof_access(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_nature_valueof_name(myadmst->_item); if(!strcmp(myattributename,"abstol")) return (p_adms)adms_nature_valueof_abstol(myadmst->_item); if(!strcmp(myattributename,"base")) return (p_adms)adms_nature_valueof_base(myadmst->_item); if(!strcmp(myattributename,"ddtNature")) return (p_adms)adms_nature_valueof_ddtNature(myadmst->_item); if(!strcmp(myattributename,"idtNature")) return (p_adms)adms_nature_valueof_idtNature(myadmst->_item); if(!strcmp(myattributename,"units")) return (p_adms)adms_nature_valueof_units(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_nature_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_discipline) { if(!strcmp(myattributename,"name")) return (p_adms)adms_discipline_valueof_name(myadmst->_item); if(!strcmp(myattributename,"flow")) return (p_adms)adms_discipline_valueof_flow(myadmst->_item); if(!strcmp(myattributename,"potential")) return (p_adms)adms_discipline_valueof_potential(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_discipline_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_module) { if(!strcmp(myattributename,"name")) return (p_adms)adms_module_valueof_name(myadmst->_item); if(!strcmp(myattributename,"evaluation")) return (p_adms)adms_module_valueof_evaluation(myadmst->_item); if(!strcmp(myattributename,"analog")) return (p_adms)adms_module_valueof_analog(myadmst->_item); if(!strcmp(myattributename,"node")) return (p_adms)adms_module_valueof_node(myadmst->_item); if(!strcmp(myattributename,"block")) return (p_adms)adms_module_valueof_block(myadmst->_item); if(!strcmp(myattributename,"contribution")) return (p_adms)adms_module_valueof_contribution(myadmst->_item); if(!strcmp(myattributename,"assignment")) return (p_adms)adms_module_valueof_assignment(myadmst->_item); if(!strcmp(myattributename,"expression")) return (p_adms)adms_module_valueof_expression(myadmst->_item); if(!strcmp(myattributename,"conditional")) return (p_adms)adms_module_valueof_conditional(myadmst->_item); if(!strcmp(myattributename,"blockvariable")) return (p_adms)adms_module_valueof_blockvariable(myadmst->_item); if(!strcmp(myattributename,"branch")) return (p_adms)adms_module_valueof_branch(myadmst->_item); if(!strcmp(myattributename,"jacobian")) return (p_adms)adms_module_valueof_jacobian(myadmst->_item); if(!strcmp(myattributename,"probe")) return (p_adms)adms_module_valueof_probe(myadmst->_item); if(!strcmp(myattributename,"source")) return (p_adms)adms_module_valueof_source(myadmst->_item); if(!strcmp(myattributename,"instance")) return (p_adms)adms_module_valueof_instance(myadmst->_item); if(!strcmp(myattributename,"instantiator")) return (p_adms)adms_module_valueof_instantiator(myadmst->_item); if(!strcmp(myattributename,"branchalias")) return (p_adms)adms_module_valueof_branchalias(myadmst->_item); if(!strcmp(myattributename,"range")) return (p_adms)adms_module_valueof_range(myadmst->_item); if(!strcmp(myattributename,"nodealias")) return (p_adms)adms_module_valueof_nodealias(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_module_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"analogfunction")) return (p_adms)adms_module_valueof_analogfunction(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_module_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_module_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_analogfunction) { if(!strcmp(myattributename,"module")) return (p_adms)adms_analogfunction_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_analogfunction_valueof_name(myadmst->_item); if(!strcmp(myattributename,"type")) return (p_adms)adms_analogfunction_valueof_type(myadmst->_item); if(!strcmp(myattributename,"tree")) return (p_adms)adms_analogfunction_valueof_tree(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_analogfunction_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_analogfunction_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_nodealias) { if(!strcmp(myattributename,"module")) return (p_adms)adms_nodealias_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_nodealias_valueof_name(myadmst->_item); if(!strcmp(myattributename,"node")) return (p_adms)adms_nodealias_valueof_node(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_nodealias_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_node) { if(!strcmp(myattributename,"module")) return (p_adms)adms_node_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_node_valueof_name(myadmst->_item); if(!strcmp(myattributename,"direction")) return (p_adms)adms_node_valueof_direction(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (p_adms)adms_node_valueof_discipline(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (p_adms)adms_node_valueof_grounded(myadmst->_item); if(!strcmp(myattributename,"location")) return (p_adms)adms_node_valueof_location(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_node_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_node_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_branchalias) { if(!strcmp(myattributename,"module")) return (p_adms)adms_branchalias_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_branchalias_valueof_name(myadmst->_item); if(!strcmp(myattributename,"branch")) return (p_adms)adms_branchalias_valueof_branch(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_branchalias_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_branch) { if(!strcmp(myattributename,"module")) return (p_adms)adms_branch_valueof_module(myadmst->_item); if(!strcmp(myattributename,"pnode")) return (p_adms)adms_branch_valueof_pnode(myadmst->_item); if(!strcmp(myattributename,"nnode")) return (p_adms)adms_branch_valueof_nnode(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (p_adms)adms_branch_valueof_discipline(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (p_adms)adms_branch_valueof_grounded(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_branch_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_branch_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_source) { if(!strcmp(myattributename,"module")) return (p_adms)adms_source_valueof_module(myadmst->_item); if(!strcmp(myattributename,"branch")) return (p_adms)adms_source_valueof_branch(myadmst->_item); if(!strcmp(myattributename,"nature")) return (p_adms)adms_source_valueof_nature(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (p_adms)adms_source_valueof_discipline(myadmst->_item); if(!strcmp(myattributename,"static")) return (p_adms)adms_source_valueof_static(myadmst->_item); if(!strcmp(myattributename,"dynamic")) return (p_adms)adms_source_valueof_dynamic(myadmst->_item); if(!strcmp(myattributename,"whitenoise")) return (p_adms)adms_source_valueof_whitenoise(myadmst->_item); if(!strcmp(myattributename,"flickernoise")) return (p_adms)adms_source_valueof_flickernoise(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (p_adms)adms_source_valueof_grounded(myadmst->_item); if(!strcmp(myattributename,"switch")) return (p_adms)adms_source_valueof_switch(myadmst->_item); if(!strcmp(myattributename,"type")) return (p_adms)adms_source_valueof_type(myadmst->_item); if(!strcmp(myattributename,"probe")) return (p_adms)adms_source_valueof_probe(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_source_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_source_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_range) { if(!strcmp(myattributename,"module")) return (p_adms)adms_range_valueof_module(myadmst->_item); if(!strcmp(myattributename,"infexpr")) return (p_adms)adms_range_valueof_infexpr(myadmst->_item); if(!strcmp(myattributename,"supexpr")) return (p_adms)adms_range_valueof_supexpr(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_range_valueof_name(myadmst->_item); if(!strcmp(myattributename,"infboundtype")) return (p_adms)adms_range_valueof_infboundtype(myadmst->_item); if(!strcmp(myattributename,"supboundtype")) return (p_adms)adms_range_valueof_supboundtype(myadmst->_item); if(!strcmp(myattributename,"type")) return (p_adms)adms_range_valueof_type(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_range_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_jacobian) { if(!strcmp(myattributename,"module")) return (p_adms)adms_jacobian_valueof_module(myadmst->_item); if(!strcmp(myattributename,"row")) return (p_adms)adms_jacobian_valueof_row(myadmst->_item); if(!strcmp(myattributename,"column")) return (p_adms)adms_jacobian_valueof_column(myadmst->_item); if(!strcmp(myattributename,"diagonal")) return (p_adms)adms_jacobian_valueof_diagonal(myadmst->_item); if(!strcmp(myattributename,"static")) return (p_adms)adms_jacobian_valueof_static(myadmst->_item); if(!strcmp(myattributename,"dynamic")) return (p_adms)adms_jacobian_valueof_dynamic(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_jacobian_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_analog) { if(!strcmp(myattributename,"code")) return (p_adms)adms_analog_valueof_code(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_analog_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_math) { if(!strcmp(myattributename,"name")) return (p_adms)adms_math_valueof_name(myadmst->_item); if(!strcmp(myattributename,"value")) return (p_adms)adms_math_valueof_value(myadmst->_item); if(!strcmp(myattributename,"static")) return (p_adms)adms_math_valueof_static(myadmst->_item); if(!strcmp(myattributename,"dynamic")) return (p_adms)adms_math_valueof_dynamic(myadmst->_item); if(!strcmp(myattributename,"dependency")) return (p_adms)adms_math_valueof_dependency(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_math_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_math_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_string) { if(!strcmp(myattributename,"value")) return (p_adms)adms_string_valueof_value(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_string_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_string_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_subexpression) { if(!strcmp(myattributename,"expression")) return (p_adms)adms_subexpression_valueof_expression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_subexpression_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_subexpression_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_mapply_unary) { if(!strcmp(myattributename,"name")) return (p_adms)adms_mapply_unary_valueof_name(myadmst->_item); if(!strcmp(myattributename,"arg1")) return (p_adms)adms_mapply_unary_valueof_arg1(myadmst->_item); if(!strcmp(myattributename,"subexpression")) return (p_adms)adms_mapply_unary_valueof_subexpression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_mapply_unary_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_mapply_unary_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_mapply_binary) { if(!strcmp(myattributename,"name")) return (p_adms)adms_mapply_binary_valueof_name(myadmst->_item); if(!strcmp(myattributename,"arg1")) return (p_adms)adms_mapply_binary_valueof_arg1(myadmst->_item); if(!strcmp(myattributename,"arg2")) return (p_adms)adms_mapply_binary_valueof_arg2(myadmst->_item); if(!strcmp(myattributename,"subexpression")) return (p_adms)adms_mapply_binary_valueof_subexpression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_mapply_binary_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_mapply_binary_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_mapply_ternary) { if(!strcmp(myattributename,"name")) return (p_adms)adms_mapply_ternary_valueof_name(myadmst->_item); if(!strcmp(myattributename,"arg1")) return (p_adms)adms_mapply_ternary_valueof_arg1(myadmst->_item); if(!strcmp(myattributename,"arg2")) return (p_adms)adms_mapply_ternary_valueof_arg2(myadmst->_item); if(!strcmp(myattributename,"arg3")) return (p_adms)adms_mapply_ternary_valueof_arg3(myadmst->_item); if(!strcmp(myattributename,"subexpression")) return (p_adms)adms_mapply_ternary_valueof_subexpression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_mapply_ternary_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_mapply_ternary_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_number) { if(!strcmp(myattributename,"value")) return (p_adms)adms_number_valueof_value(myadmst->_item); if(!strcmp(myattributename,"scalingunit")) return (p_adms)adms_number_valueof_scalingunit(myadmst->_item); if(!strcmp(myattributename,"subexpression")) return (p_adms)adms_number_valueof_subexpression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_number_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_number_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_function) { if(!strcmp(myattributename,"name")) return (p_adms)adms_function_valueof_name(myadmst->_item); if(!strcmp(myattributename,"unique_id")) return (p_adms)adms_function_valueof_unique_id(myadmst->_item); if(!strcmp(myattributename,"definition")) return (p_adms)adms_function_valueof_definition(myadmst->_item); if(!strcmp(myattributename,"class")) return (p_adms)adms_function_valueof_class(myadmst->_item); if(!strcmp(myattributename,"arguments")) return (p_adms)adms_function_valueof_arguments(myadmst->_item); if(!strcmp(myattributename,"subexpression")) return (p_adms)adms_function_valueof_subexpression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_function_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_function_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_variable) { if(!strcmp(myattributename,"module")) return (p_adms)adms_variable_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_variable_valueof_name(myadmst->_item); if(!strcmp(myattributename,"block")) return (p_adms)adms_variable_valueof_block(myadmst->_item); if(!strcmp(myattributename,"parametertype")) return (p_adms)adms_variable_valueof_parametertype(myadmst->_item); if(!strcmp(myattributename,"type")) return (p_adms)adms_variable_valueof_type(myadmst->_item); if(!strcmp(myattributename,"sizetype")) return (p_adms)adms_variable_valueof_sizetype(myadmst->_item); if(!strcmp(myattributename,"maxsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"minsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"input")) return (p_adms)adms_variable_valueof_input(myadmst->_item); if(!strcmp(myattributename,"output")) return (p_adms)adms_variable_valueof_output(myadmst->_item); if(!strcmp(myattributename,"scope")) return (p_adms)adms_variable_valueof_scope(myadmst->_item); if(!strcmp(myattributename,"default")) return (p_adms)adms_variable_valueof_default(myadmst->_item); if(!strcmp(myattributename,"derivate")) return (p_adms)adms_variable_valueof_derivate(myadmst->_item); if(!strcmp(myattributename,"isstate")) return (p_adms)adms_variable_valueof_isstate(myadmst->_item); if(!strcmp(myattributename,"usedinmodel")) return (p_adms)adms_variable_valueof_usedinmodel(myadmst->_item); if(!strcmp(myattributename,"usedininstance")) return (p_adms)adms_variable_valueof_usedininstance(myadmst->_item); if(!strcmp(myattributename,"usedininitial_step")) return (p_adms)adms_variable_valueof_usedininitial_step(myadmst->_item); if(!strcmp(myattributename,"usedinevaluate")) return (p_adms)adms_variable_valueof_usedinevaluate(myadmst->_item); if(!strcmp(myattributename,"usedinnoise")) return (p_adms)adms_variable_valueof_usedinnoise(myadmst->_item); if(!strcmp(myattributename,"usedinfinal")) return (p_adms)adms_variable_valueof_usedinfinal(myadmst->_item); if(!strcmp(myattributename,"setinmodel")) return (p_adms)adms_variable_valueof_setinmodel(myadmst->_item); if(!strcmp(myattributename,"setininstance")) return (p_adms)adms_variable_valueof_setininstance(myadmst->_item); if(!strcmp(myattributename,"setininitial_step")) return (p_adms)adms_variable_valueof_setininitial_step(myadmst->_item); if(!strcmp(myattributename,"setinevaluate")) return (p_adms)adms_variable_valueof_setinevaluate(myadmst->_item); if(!strcmp(myattributename,"setinnoise")) return (p_adms)adms_variable_valueof_setinnoise(myadmst->_item); if(!strcmp(myattributename,"setinfinal")) return (p_adms)adms_variable_valueof_setinfinal(myadmst->_item); if(!strcmp(myattributename,"setingetprev")) return (p_adms)adms_variable_valueof_setingetprev(myadmst->_item); if(!strcmp(myattributename,"TemperatureDependent")) return (p_adms)adms_variable_valueof_TemperatureDependent(myadmst->_item); if(!strcmp(myattributename,"OPdependent")) return (p_adms)adms_variable_valueof_OPdependent(myadmst->_item); if(!strcmp(myattributename,"insource")) return (p_adms)adms_variable_valueof_insource(myadmst->_item); if(!strcmp(myattributename,"vcount")) return (p_adms)adms_variable_valueof_vcount(myadmst->_item); if(!strcmp(myattributename,"vlast")) return (p_adms)adms_variable_valueof_vlast(myadmst->_item); if(!strcmp(myattributename,"alias")) return (p_adms)adms_variable_valueof_alias(myadmst->_item); if(!strcmp(myattributename,"range")) return (p_adms)adms_variable_valueof_range(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_variable_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"assignment")) return (p_adms)adms_variable_valueof_assignment(myadmst->_item); if(!strcmp(myattributename,"probe")) return (p_adms)adms_variable_valueof_probe(myadmst->_item); if(!strcmp(myattributename,"ddxprobe")) return (p_adms)adms_variable_valueof_ddxprobe(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_variable_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"subexpression")) return (p_adms)adms_variable_valueof_subexpression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_variable_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_variable_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_probe) { if(!strcmp(myattributename,"module")) return (p_adms)adms_probe_valueof_module(myadmst->_item); if(!strcmp(myattributename,"branch")) return (p_adms)adms_probe_valueof_branch(myadmst->_item); if(!strcmp(myattributename,"nature")) return (p_adms)adms_probe_valueof_nature(myadmst->_item); if(!strcmp(myattributename,"seen")) return (p_adms)adms_probe_valueof_seen(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (p_adms)adms_probe_valueof_discipline(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (p_adms)adms_probe_valueof_grounded(myadmst->_item); if(!strcmp(myattributename,"source")) return (p_adms)adms_probe_valueof_source(myadmst->_item); if(!strcmp(myattributename,"subexpression")) return (p_adms)adms_probe_valueof_subexpression(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_probe_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_probe_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_expression) { if(!strcmp(myattributename,"module")) return (p_adms)adms_expression_valueof_module(myadmst->_item); if(!strcmp(myattributename,"tree")) return (p_adms)adms_expression_valueof_tree(myadmst->_item); if(!strcmp(myattributename,"hasspecialnumber")) return (p_adms)adms_expression_valueof_hasspecialnumber(myadmst->_item); if(!strcmp(myattributename,"hasVoltageDependentFunction")) return (p_adms)adms_expression_valueof_hasVoltageDependentFunction(myadmst->_item); if(!strcmp(myattributename,"TemperatureDependent")) return (p_adms)adms_expression_valueof_TemperatureDependent(myadmst->_item); if(!strcmp(myattributename,"value")) return (p_adms)adms_expression_valueof_value(myadmst->_item); if(!strcmp(myattributename,"function")) return (p_adms)adms_expression_valueof_function(myadmst->_item); if(!strcmp(myattributename,"probe")) return (p_adms)adms_expression_valueof_probe(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_expression_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_expression_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_expression_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instance) { if(!strcmp(myattributename,"instantiator")) return (p_adms)adms_instance_valueof_instantiator(myadmst->_item); if(!strcmp(myattributename,"module")) return (p_adms)adms_instance_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_instance_valueof_name(myadmst->_item); if(!strcmp(myattributename,"terminal")) return (p_adms)adms_instance_valueof_terminal(myadmst->_item); if(!strcmp(myattributename,"parameterset")) return (p_adms)adms_instance_valueof_parameterset(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_instance_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_instance_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instanceparameter) { if(!strcmp(myattributename,"parameter")) return (p_adms)adms_instanceparameter_valueof_parameter(myadmst->_item); if(!strcmp(myattributename,"value")) return (p_adms)adms_instanceparameter_valueof_value(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_instanceparameter_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_instanceparameter_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instancenode) { if(!strcmp(myattributename,"nodefrominstantiator")) return (p_adms)adms_instancenode_valueof_nodefrominstantiator(myadmst->_item); if(!strcmp(myattributename,"nodefrommodule")) return (p_adms)adms_instancenode_valueof_nodefrommodule(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_instancenode_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_instancenode_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_nilled) { if(!strcmp(myattributename,"module")) return (p_adms)adms_nilled_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_nilled_valueof_name(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_nilled_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_nilled_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_assignment) { if(!strcmp(myattributename,"module")) return (p_adms)adms_assignment_valueof_module(myadmst->_item); if(!strcmp(myattributename,"lhs")) return (p_adms)adms_assignment_valueof_lhs(myadmst->_item); if(!strcmp(myattributename,"rhs")) return (p_adms)adms_assignment_valueof_rhs(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_assignment_valueof_name(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_assignment_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_assignment_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_assignment_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_contribution) { if(!strcmp(myattributename,"module")) return (p_adms)adms_contribution_valueof_module(myadmst->_item); if(!strcmp(myattributename,"lhs")) return (p_adms)adms_contribution_valueof_lhs(myadmst->_item); if(!strcmp(myattributename,"rhs")) return (p_adms)adms_contribution_valueof_rhs(myadmst->_item); if(!strcmp(myattributename,"branchalias")) return (p_adms)adms_contribution_valueof_branchalias(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_contribution_valueof_name(myadmst->_item); if(!strcmp(myattributename,"whitenoise")) return (p_adms)adms_contribution_valueof_whitenoise(myadmst->_item); if(!strcmp(myattributename,"flickernoise")) return (p_adms)adms_contribution_valueof_flickernoise(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_contribution_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_contribution_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_contribution_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_conditional) { if(!strcmp(myattributename,"module")) return (p_adms)adms_conditional_valueof_module(myadmst->_item); if(!strcmp(myattributename,"if")) return (p_adms)adms_conditional_valueof_if(myadmst->_item); if(!strcmp(myattributename,"then")) return (p_adms)adms_conditional_valueof_then(myadmst->_item); if(!strcmp(myattributename,"else")) return (p_adms)adms_conditional_valueof_else(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_conditional_valueof_name(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_conditional_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_conditional_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_whileloop) { if(!strcmp(myattributename,"module")) return (p_adms)adms_whileloop_valueof_module(myadmst->_item); if(!strcmp(myattributename,"while")) return (p_adms)adms_whileloop_valueof_while(myadmst->_item); if(!strcmp(myattributename,"whileblock")) return (p_adms)adms_whileloop_valueof_whileblock(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_whileloop_valueof_name(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_whileloop_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_whileloop_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_case) { if(!strcmp(myattributename,"module")) return (p_adms)adms_case_valueof_module(myadmst->_item); if(!strcmp(myattributename,"case")) return (p_adms)adms_case_valueof_case(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_case_valueof_name(myadmst->_item); if(!strcmp(myattributename,"caseitem")) return (p_adms)adms_case_valueof_caseitem(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_case_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_case_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_caseitem) { if(!strcmp(myattributename,"code")) return (p_adms)adms_caseitem_valueof_code(myadmst->_item); if(!strcmp(myattributename,"defaultcase")) return (p_adms)adms_caseitem_valueof_defaultcase(myadmst->_item); if(!strcmp(myattributename,"condition")) return (p_adms)adms_caseitem_valueof_condition(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_caseitem_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_caseitem_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_blockvariable) { if(!strcmp(myattributename,"block")) return (p_adms)adms_blockvariable_valueof_block(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_blockvariable_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_blockvariable_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_blockvariable_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_block) { if(!strcmp(myattributename,"module")) return (p_adms)adms_block_valueof_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (p_adms)adms_block_valueof_name(myadmst->_item); if(!strcmp(myattributename,"block")) return (p_adms)adms_block_valueof_block(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_block_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_block_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"item")) return (p_adms)adms_block_valueof_item(myadmst->_item); if(!strcmp(myattributename,"probe")) return (p_adms)adms_block_valueof_probe(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_block_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_block_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_callfunction) { if(!strcmp(myattributename,"module")) return (p_adms)adms_callfunction_valueof_module(myadmst->_item); if(!strcmp(myattributename,"function")) return (p_adms)adms_callfunction_valueof_function(myadmst->_item); if(!strcmp(myattributename,"math")) return (p_adms)adms_callfunction_valueof_math(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_callfunction_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_evaluation) { if(!strcmp(myattributename,"module")) return (p_adms)adms_evaluation_valueof_module(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_evaluation_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_evaluation_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admsttext) { if(!strcmp(myattributename,"admsttransform")) return (p_adms)adms_admsttext_valueof_admsttransform(myadmst->_item); if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"type")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) return (p_adms)adms_admsttext_valueof_token(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admsttext_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpath) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttransformattribute")) return (p_adms)adms_admstpath_valueof_admsttransformattribute(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admstpath_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpathgoto) { if(!strcmp(myattributename,"gotoname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"gotoindex")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"text")) return (p_adms)adms_admstpathgoto_valueof_text(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admstpathgoto_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpathevaluate) { if(!strcmp(myattributename,"admsttransform")) return (p_adms)adms_admstpathevaluate_valueof_admsttransform(myadmst->_item); if(!strcmp(myattributename,"admsttransformattribute")) return (p_adms)adms_admstpathevaluate_valueof_admsttransformattribute(myadmst->_item); if(!strcmp(myattributename,"admstpathgotonode")) return (p_adms)adms_admstpathevaluate_valueof_admstpathgotonode(myadmst->_item); if(!strcmp(myattributename,"admstaslist")) return (p_adms)adms_admstpathevaluate_valueof_admstaslist(myadmst->_item); if(!strcmp(myattributename,"admstasscalar")) return (p_adms)adms_admstpathevaluate_valueof_admstasscalar(myadmst->_item); if(!strcmp(myattributename,"admstasscalarfixme")) return (p_adms)adms_admstpathevaluate_valueof_admstasscalarfixme(myadmst->_item); if(!strcmp(myattributename,"alladmst")) return (p_adms)adms_admstpathevaluate_valueof_alladmst(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admstpathevaluate_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpathparser) { if(!strcmp(myattributename,"admsttransform")) return (p_adms)adms_admstpathparser_valueof_admsttransform(myadmst->_item); if(!strcmp(myattributename,"admstpath")) return (p_adms)adms_admstpathparser_valueof_admstpath(myadmst->_item); if(!strcmp(myattributename,"stringposition")) return (p_adms)adms_admstpathparser_valueof_stringposition(myadmst->_item); if(!strcmp(myattributename,"tokenstrstart")) return (p_adms)adms_admstpathparser_valueof_tokenstrstart(myadmst->_item); if(!strcmp(myattributename,"tokenstrlen")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return (p_adms)adms_admstpathparser_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admst) { if(!strcmp(myattributename,"admsttransform")) return (p_adms)adms_admst_valueof_admsttransform(myadmst->_item); if(!strcmp(myattributename,"previous")) return (p_adms)adms_admst_valueof_previous(myadmst->_item); if(!strcmp(myattributename,"attributename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"size")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"container")) return (p_adms)adms_admst_valueof_container(myadmst->_item); if(!strcmp(myattributename,"item")) return (p_adms)adms_admst_valueof_item(myadmst->_item); if(!strcmp(myattributename,"isrelative")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"istrue")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return (p_adms)adms_admst_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admsttransformattribute) { if(!strcmp(myattributename,"admsttransform")) return (p_adms)adms_admsttransformattribute_valueof_admsttransform(myadmst->_item); if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttext")) return (p_adms)adms_admsttransformattribute_valueof_admsttext(myadmst->_item); if(!strcmp(myattributename,"admstpathgoto")) return (p_adms)adms_admsttransformattribute_valueof_admstpathgoto(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admsttransformattribute_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admsttransform) { if(!strcmp(myattributename,"f")) return (p_adms)adms_admsttransform_valueof_f(myadmst->_item); if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admstname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"parent")) return (p_adms)adms_admsttransform_valueof_parent(myadmst->_item); if(!strcmp(myattributename,"evaluator")) return (p_adms)adms_admsttransform_valueof_evaluator(myadmst->_item); if(!strcmp(myattributename,"zzdatatype")) return (p_adms)adms_admsttransform_valueof_zzdatatype(myadmst->_item); if(!strcmp(myattributename,"zzselect")) return (p_adms)adms_admsttransform_valueof_zzselect(myadmst->_item); if(!strcmp(myattributename,"zzmatch")) return (p_adms)adms_admsttransform_valueof_zzmatch(myadmst->_item); if(!strcmp(myattributename,"zzrequired")) return (p_adms)adms_admsttransform_valueof_zzrequired(myadmst->_item); if(!strcmp(myattributename,"zzseparator")) return (p_adms)adms_admsttransform_valueof_zzseparator(myadmst->_item); if(!strcmp(myattributename,"zzfrom")) return (p_adms)adms_admsttransform_valueof_zzfrom(myadmst->_item); if(!strcmp(myattributename,"zzto")) return (p_adms)adms_admsttransform_valueof_zzto(myadmst->_item); if(!strcmp(myattributename,"zzlist")) return (p_adms)adms_admsttransform_valueof_zzlist(myadmst->_item); if(!strcmp(myattributename,"zzinto")) return (p_adms)adms_admsttransform_valueof_zzinto(myadmst->_item); if(!strcmp(myattributename,"zzname")) return (p_adms)adms_admsttransform_valueof_zzname(myadmst->_item); if(!strcmp(myattributename,"zzformat")) return (p_adms)adms_admsttransform_valueof_zzformat(myadmst->_item); if(!strcmp(myattributename,"zzfile")) return (p_adms)adms_admsttransform_valueof_zzfile(myadmst->_item); if(!strcmp(myattributename,"zzversion")) return (p_adms)adms_admsttransform_valueof_zzversion(myadmst->_item); if(!strcmp(myattributename,"zzonduplicate")) return (p_adms)adms_admsttransform_valueof_zzonduplicate(myadmst->_item); if(!strcmp(myattributename,"zzprobe")) return (p_adms)adms_admsttransform_valueof_zzprobe(myadmst->_item); if(!strcmp(myattributename,"zzvalue")) return (p_adms)adms_admsttransform_valueof_zzvalue(myadmst->_item); if(!strcmp(myattributename,"zzarguments")) return (p_adms)adms_admsttransform_valueof_zzarguments(myadmst->_item); if(!strcmp(myattributename,"zztest")) return (p_adms)adms_admsttransform_valueof_zztest(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (p_adms)adms_admsttransform_valueof_attribute(myadmst->_item); if(!strcmp(myattributename,"children")) return (p_adms)adms_admsttransform_valueof_children(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admsttransform_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instanceofadmsttransform) { if(!strcmp(myattributename,"admsttemplate")) return (p_adms)adms_instanceofadmsttransform_valueof_admsttemplate(myadmst->_item); if(!strcmp(myattributename,"variable")) return (p_adms)adms_instanceofadmsttransform_valueof_variable(myadmst->_item); if(!strcmp(myattributename,"return")) return (p_adms)adms_instanceofadmsttransform_valueof_return(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_instanceofadmsttransform_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstvariable) { if(!strcmp(myattributename,"name")) return (p_adms)adms_admstvariable_valueof_name(myadmst->_item); if(!strcmp(myattributename,"value")) return (p_adms)adms_admstvariable_valueof_value(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_admstvariable_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_path) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return (p_adms)adms_path_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_lexval) { if(!strcmp(myattributename,"string")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"adms")) return (p_adms)adms_lexval_valueof_adms(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_yaccval) { if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueof(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"usrdata")) return (p_adms)adms_yaccval_valueof_usrdata(myadmst->_item); if(!strcmp(myattributename,"adms")) return (p_adms)adms_yaccval_valueof_adms(myadmst->_item); } { p_adms myitem=myadmst->_item; char*myelementname=myitem?adms_adms_tostring_datatypename_impl(myadmst->_admsttransform,myitem->_datatypename):myadmst->_attributename; adms_message_fatal_continue(("missing attribute %s/%s\n",myelementname,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } return NULL; } p_admsvalueto adms_admsxml_valueto (const p_admst myadmst,const char*myattributename) { e_adms_datatypename myelementname; if(!strcmp(myadmst->_attributename,"adms")) myelementname=adms_adms_enumeration_datatypename_adms; else if(!strcmp(myadmst->_attributename,"math")) myelementname=adms_adms_enumeration_datatypename_math; else if(!strcmp(myadmst->_attributename,"subexpression")) myelementname=adms_adms_enumeration_datatypename_subexpression; else myelementname=myadmst->_item->_datatypename; /*alias*/ if(myadmst->_item &&(!strcmp(myattributename,"static")||!strcmp(myattributename,"dynamic")) ) { if(0 ||myelementname==adms_adms_enumeration_datatypename_block ||myelementname==adms_adms_enumeration_datatypename_blockvariable ||myelementname==adms_adms_enumeration_datatypename_nilled ||myelementname==adms_adms_enumeration_datatypename_expression ||myelementname==adms_adms_enumeration_datatypename_assignment ||myelementname==adms_adms_enumeration_datatypename_contribution ||myelementname==adms_adms_enumeration_datatypename_conditional ||myelementname==adms_adms_enumeration_datatypename_variable ||myelementname==adms_adms_enumeration_datatypename_callfunction ||myelementname==adms_adms_enumeration_datatypename_case ||myelementname==adms_adms_enumeration_datatypename_whileloop ) myelementname=adms_adms_enumeration_datatypename_math; } if(myelementname==adms_adms_enumeration_datatypename_adms) { if(!strcmp(myattributename,"datatypename")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"seen")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"used")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_simulator) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_simulator_valueto_name; if(!strcmp(myattributename,"currentdate")) return (p_admsvalueto)adms_simulator_valueto_currentdate; if(!strcmp(myattributename,"developer")) return (p_admsvalueto)adms_simulator_valueto_developer; if(!strcmp(myattributename,"fullname")) return (p_admsvalueto)adms_simulator_valueto_fullname; if(!strcmp(myattributename,"probe")) return (p_admsvalueto)adms_simulator_valueto_probe; if(!strcmp(myattributename,"tmp")) return (p_admsvalueto)adms_simulator_valueto_tmp; if(!strcmp(myattributename,"tmp1")) return (p_admsvalueto)adms_simulator_valueto_tmp1; if(!strcmp(myattributename,"br1")) return (p_admsvalueto)adms_simulator_valueto_br1; if(!strcmp(myattributename,"br2")) return (p_admsvalueto)adms_simulator_valueto_br2; if(!strcmp(myattributename,"sr1")) return (p_admsvalueto)adms_simulator_valueto_sr1; if(!strcmp(myattributename,"ddx")) return (p_admsvalueto)adms_simulator_valueto_ddx; if(!strcmp(myattributename,"package_name")) return (p_admsvalueto)adms_simulator_valueto_package_name; if(!strcmp(myattributename,"package_tarname")) return (p_admsvalueto)adms_simulator_valueto_package_tarname; if(!strcmp(myattributename,"package_version")) return (p_admsvalueto)adms_simulator_valueto_package_version; if(!strcmp(myattributename,"package_string")) return (p_admsvalueto)adms_simulator_valueto_package_string; if(!strcmp(myattributename,"package_bugreport")) return (p_admsvalueto)adms_simulator_valueto_package_bugreport; } if(myelementname==adms_adms_enumeration_datatypename_admsmain) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_admsmain_valueto_name; if(!strcmp(myattributename,"argc")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) return (p_admsvalueto)adms_admsmain_valueto_filename; if(!strcmp(myattributename,"curline")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"simulator")) return (p_admsvalueto)adms_admsmain_valueto_simulator; if(!strcmp(myattributename,"info")) return (p_admsvalueto)adms_admsmain_valueto_info; if(!strcmp(myattributename,"usage")) return (p_admsvalueto)adms_admsmain_valueto_usage; if(!strcmp(myattributename,"verbose")) return (p_admsvalueto)adms_admsmain_valueto_verbose; if(!strcmp(myattributename,"hint")) return (p_admsvalueto)adms_admsmain_valueto_hint; if(!strcmp(myattributename,"warning")) return (p_admsvalueto)adms_admsmain_valueto_warning; if(!strcmp(myattributename,"obsolete")) return (p_admsvalueto)adms_admsmain_valueto_obsolete; if(!strcmp(myattributename,"debug")) return (p_admsvalueto)adms_admsmain_valueto_debug; if(!strcmp(myattributename,"dbg_vla")) return (p_admsvalueto)adms_admsmain_valueto_dbg_vla; if(!strcmp(myattributename,"dbg_xml")) return (p_admsvalueto)adms_admsmain_valueto_dbg_xml; if(!strcmp(myattributename,"error")) return (p_admsvalueto)adms_admsmain_valueto_error; if(!strcmp(myattributename,"fatal")) return (p_admsvalueto)adms_admsmain_valueto_fatal; if(!strcmp(myattributename,"dbg_mem")) return (p_admsvalueto)adms_admsmain_valueto_dbg_mem; if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_admsmain_valueto_module; if(!strcmp(myattributename,"discipline")) return (p_admsvalueto)adms_admsmain_valueto_discipline; if(!strcmp(myattributename,"nature")) return (p_admsvalueto)adms_admsmain_valueto_nature; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_admsmain_valueto_variable; if(!strcmp(myattributename,"argv")) return (p_admsvalueto)adms_admsmain_valueto_argv; if(!strcmp(myattributename,"admstfile")) return (p_admsvalueto)adms_admsmain_valueto_admstfile; if(!strcmp(myattributename,"admsttransform")) return (p_admsvalueto)adms_admsmain_valueto_admsttransform; if(!strcmp(myattributename,"template")) return (p_admsvalueto)adms_admsmain_valueto_template; if(!strcmp(myattributename,"instanceofadmsttransform")) return (p_admsvalueto)adms_admsmain_valueto_instanceofadmsttransform; if(!strcmp(myattributename,"instanceofadmsttransforminsideapplytemplate")) return (p_admsvalueto)adms_admsmain_valueto_instanceofadmsttransforminsideapplytemplate; if(!strcmp(myattributename,"valueof")) return (p_admsvalueto)adms_admsmain_valueto_valueof; if(!strcmp(myattributename,"alladmstnew")) return (p_admsvalueto)adms_admsmain_valueto_alladmstnew; if(!strcmp(myattributename,"alladmstdestroy")) return (p_admsvalueto)adms_admsmain_valueto_alladmstdestroy; } if(myelementname==adms_adms_enumeration_datatypename_attribute) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_attribute_valueto_name; if(!strcmp(myattributename,"value")) return (p_admsvalueto)adms_attribute_valueto_value; } if(myelementname==adms_adms_enumeration_datatypename_enumeration) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fromstring")) return (p_admsvalueto)adms_enumeration_valueto_fromstring; if(!strcmp(myattributename,"tostring")) return (p_admsvalueto)adms_enumeration_valueto_tostring; } if(myelementname==adms_adms_enumeration_datatypename_integer) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_real) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:real' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_quark) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_list) { if(!strcmp(myattributename,"datatype")) return (p_admsvalueto)adms_list_valueto_datatype; if(!strcmp(myattributename,"item")) return (p_admsvalueto)adms_list_valueto_item; } if(myelementname==adms_adms_enumeration_datatypename_nature) { if(!strcmp(myattributename,"access")) return (p_admsvalueto)adms_nature_valueto_access; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_nature_valueto_name; if(!strcmp(myattributename,"abstol")) return (p_admsvalueto)adms_nature_valueto_abstol; if(!strcmp(myattributename,"base")) return (p_admsvalueto)adms_nature_valueto_base; if(!strcmp(myattributename,"ddtNature")) return (p_admsvalueto)adms_nature_valueto_ddtNature; if(!strcmp(myattributename,"idtNature")) return (p_admsvalueto)adms_nature_valueto_idtNature; if(!strcmp(myattributename,"units")) return (p_admsvalueto)adms_nature_valueto_units; } if(myelementname==adms_adms_enumeration_datatypename_discipline) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_discipline_valueto_name; if(!strcmp(myattributename,"flow")) return (p_admsvalueto)adms_discipline_valueto_flow; if(!strcmp(myattributename,"potential")) return (p_admsvalueto)adms_discipline_valueto_potential; } if(myelementname==adms_adms_enumeration_datatypename_module) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_module_valueto_name; if(!strcmp(myattributename,"evaluation")) return (p_admsvalueto)adms_module_valueto_evaluation; if(!strcmp(myattributename,"analog")) return (p_admsvalueto)adms_module_valueto_analog; if(!strcmp(myattributename,"node")) return (p_admsvalueto)adms_module_valueto_node; if(!strcmp(myattributename,"block")) return (p_admsvalueto)adms_module_valueto_block; if(!strcmp(myattributename,"contribution")) return (p_admsvalueto)adms_module_valueto_contribution; if(!strcmp(myattributename,"assignment")) return (p_admsvalueto)adms_module_valueto_assignment; if(!strcmp(myattributename,"expression")) return (p_admsvalueto)adms_module_valueto_expression; if(!strcmp(myattributename,"conditional")) return (p_admsvalueto)adms_module_valueto_conditional; if(!strcmp(myattributename,"blockvariable")) return (p_admsvalueto)adms_module_valueto_blockvariable; if(!strcmp(myattributename,"branch")) return (p_admsvalueto)adms_module_valueto_branch; if(!strcmp(myattributename,"jacobian")) return (p_admsvalueto)adms_module_valueto_jacobian; if(!strcmp(myattributename,"probe")) return (p_admsvalueto)adms_module_valueto_probe; if(!strcmp(myattributename,"source")) return (p_admsvalueto)adms_module_valueto_source; if(!strcmp(myattributename,"instance")) return (p_admsvalueto)adms_module_valueto_instance; if(!strcmp(myattributename,"instantiator")) return (p_admsvalueto)adms_module_valueto_instantiator; if(!strcmp(myattributename,"branchalias")) return (p_admsvalueto)adms_module_valueto_branchalias; if(!strcmp(myattributename,"range")) return (p_admsvalueto)adms_module_valueto_range; if(!strcmp(myattributename,"nodealias")) return (p_admsvalueto)adms_module_valueto_nodealias; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_module_valueto_variable; if(!strcmp(myattributename,"analogfunction")) return (p_admsvalueto)adms_module_valueto_analogfunction; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_module_valueto_attribute; } if(myelementname==adms_adms_enumeration_datatypename_analogfunction) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_analogfunction_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_analogfunction_valueto_name; if(!strcmp(myattributename,"type")) return (p_admsvalueto)adms_analogfunction_valueto_type; if(!strcmp(myattributename,"tree")) return (p_admsvalueto)adms_analogfunction_valueto_tree; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_analogfunction_valueto_variable; } if(myelementname==adms_adms_enumeration_datatypename_nodealias) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_nodealias_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_nodealias_valueto_name; if(!strcmp(myattributename,"node")) return (p_admsvalueto)adms_nodealias_valueto_node; } if(myelementname==adms_adms_enumeration_datatypename_node) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_node_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_node_valueto_name; if(!strcmp(myattributename,"direction")) return (p_admsvalueto)adms_node_valueto_direction; if(!strcmp(myattributename,"discipline")) return (p_admsvalueto)adms_node_valueto_discipline; if(!strcmp(myattributename,"grounded")) return (p_admsvalueto)adms_node_valueto_grounded; if(!strcmp(myattributename,"location")) return (p_admsvalueto)adms_node_valueto_location; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_node_valueto_attribute; } if(myelementname==adms_adms_enumeration_datatypename_branchalias) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_branchalias_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_branchalias_valueto_name; if(!strcmp(myattributename,"branch")) return (p_admsvalueto)adms_branchalias_valueto_branch; } if(myelementname==adms_adms_enumeration_datatypename_branch) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_branch_valueto_module; if(!strcmp(myattributename,"pnode")) return (p_admsvalueto)adms_branch_valueto_pnode; if(!strcmp(myattributename,"nnode")) return (p_admsvalueto)adms_branch_valueto_nnode; if(!strcmp(myattributename,"discipline")) return (p_admsvalueto)adms_branch_valueto_discipline; if(!strcmp(myattributename,"grounded")) return (p_admsvalueto)adms_branch_valueto_grounded; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_branch_valueto_attribute; } if(myelementname==adms_adms_enumeration_datatypename_source) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_source_valueto_module; if(!strcmp(myattributename,"branch")) return (p_admsvalueto)adms_source_valueto_branch; if(!strcmp(myattributename,"nature")) return (p_admsvalueto)adms_source_valueto_nature; if(!strcmp(myattributename,"discipline")) return (p_admsvalueto)adms_source_valueto_discipline; if(!strcmp(myattributename,"static")) return (p_admsvalueto)adms_source_valueto_static; if(!strcmp(myattributename,"dynamic")) return (p_admsvalueto)adms_source_valueto_dynamic; if(!strcmp(myattributename,"whitenoise")) return (p_admsvalueto)adms_source_valueto_whitenoise; if(!strcmp(myattributename,"flickernoise")) return (p_admsvalueto)adms_source_valueto_flickernoise; if(!strcmp(myattributename,"grounded")) return (p_admsvalueto)adms_source_valueto_grounded; if(!strcmp(myattributename,"switch")) return (p_admsvalueto)adms_source_valueto_switch; if(!strcmp(myattributename,"type")) return (p_admsvalueto)adms_source_valueto_type; if(!strcmp(myattributename,"probe")) return (p_admsvalueto)adms_source_valueto_probe; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_source_valueto_attribute; } if(myelementname==adms_adms_enumeration_datatypename_range) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_range_valueto_module; if(!strcmp(myattributename,"infexpr")) return (p_admsvalueto)adms_range_valueto_infexpr; if(!strcmp(myattributename,"supexpr")) return (p_admsvalueto)adms_range_valueto_supexpr; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_range_valueto_name; if(!strcmp(myattributename,"infboundtype")) return (p_admsvalueto)adms_range_valueto_infboundtype; if(!strcmp(myattributename,"supboundtype")) return (p_admsvalueto)adms_range_valueto_supboundtype; if(!strcmp(myattributename,"type")) return (p_admsvalueto)adms_range_valueto_type; } if(myelementname==adms_adms_enumeration_datatypename_jacobian) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_jacobian_valueto_module; if(!strcmp(myattributename,"row")) return (p_admsvalueto)adms_jacobian_valueto_row; if(!strcmp(myattributename,"column")) return (p_admsvalueto)adms_jacobian_valueto_column; if(!strcmp(myattributename,"diagonal")) return (p_admsvalueto)adms_jacobian_valueto_diagonal; if(!strcmp(myattributename,"static")) return (p_admsvalueto)adms_jacobian_valueto_static; if(!strcmp(myattributename,"dynamic")) return (p_admsvalueto)adms_jacobian_valueto_dynamic; } if(myelementname==adms_adms_enumeration_datatypename_analog) { if(!strcmp(myattributename,"code")) return (p_admsvalueto)adms_analog_valueto_code; } if(myelementname==adms_adms_enumeration_datatypename_math) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_math_valueto_name; if(!strcmp(myattributename,"value")) return (p_admsvalueto)adms_math_valueto_value; if(!strcmp(myattributename,"static")) return (p_admsvalueto)adms_math_valueto_static; if(!strcmp(myattributename,"dynamic")) return (p_admsvalueto)adms_math_valueto_dynamic; if(!strcmp(myattributename,"dependency")) return (p_admsvalueto)adms_math_valueto_dependency; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_math_valueto_attribute; } if(myelementname==adms_adms_enumeration_datatypename_string) { if(!strcmp(myattributename,"value")) return (p_admsvalueto)adms_string_valueto_value; } if(myelementname==adms_adms_enumeration_datatypename_subexpression) { if(!strcmp(myattributename,"expression")) return (p_admsvalueto)adms_subexpression_valueto_expression; } if(myelementname==adms_adms_enumeration_datatypename_mapply_unary) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_mapply_unary_valueto_name; if(!strcmp(myattributename,"arg1")) return (p_admsvalueto)adms_mapply_unary_valueto_arg1; } if(myelementname==adms_adms_enumeration_datatypename_mapply_binary) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_mapply_binary_valueto_name; if(!strcmp(myattributename,"arg1")) return (p_admsvalueto)adms_mapply_binary_valueto_arg1; if(!strcmp(myattributename,"arg2")) return (p_admsvalueto)adms_mapply_binary_valueto_arg2; } if(myelementname==adms_adms_enumeration_datatypename_mapply_ternary) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_mapply_ternary_valueto_name; if(!strcmp(myattributename,"arg1")) return (p_admsvalueto)adms_mapply_ternary_valueto_arg1; if(!strcmp(myattributename,"arg2")) return (p_admsvalueto)adms_mapply_ternary_valueto_arg2; if(!strcmp(myattributename,"arg3")) return (p_admsvalueto)adms_mapply_ternary_valueto_arg3; } if(myelementname==adms_adms_enumeration_datatypename_number) { if(!strcmp(myattributename,"value")) return (p_admsvalueto)adms_number_valueto_value; if(!strcmp(myattributename,"scalingunit")) return (p_admsvalueto)adms_number_valueto_scalingunit; } if(myelementname==adms_adms_enumeration_datatypename_function) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_function_valueto_name; if(!strcmp(myattributename,"unique_id")) return (p_admsvalueto)adms_function_valueto_unique_id; if(!strcmp(myattributename,"definition")) return (p_admsvalueto)adms_function_valueto_definition; if(!strcmp(myattributename,"class")) return (p_admsvalueto)adms_function_valueto_class; if(!strcmp(myattributename,"arguments")) return (p_admsvalueto)adms_function_valueto_arguments; } if(myelementname==adms_adms_enumeration_datatypename_variable) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_variable_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_variable_valueto_name; if(!strcmp(myattributename,"block")) return (p_admsvalueto)adms_variable_valueto_block; if(!strcmp(myattributename,"parametertype")) return (p_admsvalueto)adms_variable_valueto_parametertype; if(!strcmp(myattributename,"type")) return (p_admsvalueto)adms_variable_valueto_type; if(!strcmp(myattributename,"sizetype")) return (p_admsvalueto)adms_variable_valueto_sizetype; if(!strcmp(myattributename,"maxsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"minsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"input")) return (p_admsvalueto)adms_variable_valueto_input; if(!strcmp(myattributename,"output")) return (p_admsvalueto)adms_variable_valueto_output; if(!strcmp(myattributename,"scope")) return (p_admsvalueto)adms_variable_valueto_scope; if(!strcmp(myattributename,"default")) return (p_admsvalueto)adms_variable_valueto_default; if(!strcmp(myattributename,"derivate")) return (p_admsvalueto)adms_variable_valueto_derivate; if(!strcmp(myattributename,"isstate")) return (p_admsvalueto)adms_variable_valueto_isstate; if(!strcmp(myattributename,"usedinmodel")) return (p_admsvalueto)adms_variable_valueto_usedinmodel; if(!strcmp(myattributename,"usedininstance")) return (p_admsvalueto)adms_variable_valueto_usedininstance; if(!strcmp(myattributename,"usedininitial_step")) return (p_admsvalueto)adms_variable_valueto_usedininitial_step; if(!strcmp(myattributename,"usedinevaluate")) return (p_admsvalueto)adms_variable_valueto_usedinevaluate; if(!strcmp(myattributename,"usedinnoise")) return (p_admsvalueto)adms_variable_valueto_usedinnoise; if(!strcmp(myattributename,"usedinfinal")) return (p_admsvalueto)adms_variable_valueto_usedinfinal; if(!strcmp(myattributename,"setinmodel")) return (p_admsvalueto)adms_variable_valueto_setinmodel; if(!strcmp(myattributename,"setininstance")) return (p_admsvalueto)adms_variable_valueto_setininstance; if(!strcmp(myattributename,"setininitial_step")) return (p_admsvalueto)adms_variable_valueto_setininitial_step; if(!strcmp(myattributename,"setinevaluate")) return (p_admsvalueto)adms_variable_valueto_setinevaluate; if(!strcmp(myattributename,"setinnoise")) return (p_admsvalueto)adms_variable_valueto_setinnoise; if(!strcmp(myattributename,"setinfinal")) return (p_admsvalueto)adms_variable_valueto_setinfinal; if(!strcmp(myattributename,"setingetprev")) return (p_admsvalueto)adms_variable_valueto_setingetprev; if(!strcmp(myattributename,"TemperatureDependent")) return (p_admsvalueto)adms_variable_valueto_TemperatureDependent; if(!strcmp(myattributename,"OPdependent")) return (p_admsvalueto)adms_variable_valueto_OPdependent; if(!strcmp(myattributename,"insource")) return (p_admsvalueto)adms_variable_valueto_insource; if(!strcmp(myattributename,"vcount")) return (p_admsvalueto)adms_variable_valueto_vcount; if(!strcmp(myattributename,"vlast")) return (p_admsvalueto)adms_variable_valueto_vlast; if(!strcmp(myattributename,"alias")) return (p_admsvalueto)adms_variable_valueto_alias; if(!strcmp(myattributename,"range")) return (p_admsvalueto)adms_variable_valueto_range; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_variable_valueto_attribute; if(!strcmp(myattributename,"assignment")) return (p_admsvalueto)adms_variable_valueto_assignment; if(!strcmp(myattributename,"probe")) return (p_admsvalueto)adms_variable_valueto_probe; if(!strcmp(myattributename,"ddxprobe")) return (p_admsvalueto)adms_variable_valueto_ddxprobe; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_variable_valueto_variable; } if(myelementname==adms_adms_enumeration_datatypename_probe) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_probe_valueto_module; if(!strcmp(myattributename,"branch")) return (p_admsvalueto)adms_probe_valueto_branch; if(!strcmp(myattributename,"nature")) return (p_admsvalueto)adms_probe_valueto_nature; if(!strcmp(myattributename,"seen")) return (p_admsvalueto)adms_probe_valueto_seen; if(!strcmp(myattributename,"discipline")) return (p_admsvalueto)adms_probe_valueto_discipline; if(!strcmp(myattributename,"grounded")) return (p_admsvalueto)adms_probe_valueto_grounded; if(!strcmp(myattributename,"source")) return (p_admsvalueto)adms_probe_valueto_source; } if(myelementname==adms_adms_enumeration_datatypename_expression) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_expression_valueto_module; if(!strcmp(myattributename,"tree")) return (p_admsvalueto)adms_expression_valueto_tree; if(!strcmp(myattributename,"hasspecialnumber")) return (p_admsvalueto)adms_expression_valueto_hasspecialnumber; if(!strcmp(myattributename,"hasVoltageDependentFunction")) return (p_admsvalueto)adms_expression_valueto_hasVoltageDependentFunction; if(!strcmp(myattributename,"TemperatureDependent")) return (p_admsvalueto)adms_expression_valueto_TemperatureDependent; if(!strcmp(myattributename,"value")) return (p_admsvalueto)adms_expression_valueto_value; if(!strcmp(myattributename,"function")) return (p_admsvalueto)adms_expression_valueto_function; if(!strcmp(myattributename,"probe")) return (p_admsvalueto)adms_expression_valueto_probe; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_expression_valueto_variable; } if(myelementname==adms_adms_enumeration_datatypename_instance) { if(!strcmp(myattributename,"instantiator")) return (p_admsvalueto)adms_instance_valueto_instantiator; if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_instance_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_instance_valueto_name; if(!strcmp(myattributename,"terminal")) return (p_admsvalueto)adms_instance_valueto_terminal; if(!strcmp(myattributename,"parameterset")) return (p_admsvalueto)adms_instance_valueto_parameterset; } if(myelementname==adms_adms_enumeration_datatypename_instanceparameter) { if(!strcmp(myattributename,"parameter")) return (p_admsvalueto)adms_instanceparameter_valueto_parameter; if(!strcmp(myattributename,"value")) return (p_admsvalueto)adms_instanceparameter_valueto_value; } if(myelementname==adms_adms_enumeration_datatypename_instancenode) { if(!strcmp(myattributename,"nodefrominstantiator")) return (p_admsvalueto)adms_instancenode_valueto_nodefrominstantiator; if(!strcmp(myattributename,"nodefrommodule")) return (p_admsvalueto)adms_instancenode_valueto_nodefrommodule; } if(myelementname==adms_adms_enumeration_datatypename_nilled) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_nilled_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_nilled_valueto_name; } if(myelementname==adms_adms_enumeration_datatypename_assignment) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_assignment_valueto_module; if(!strcmp(myattributename,"lhs")) return (p_admsvalueto)adms_assignment_valueto_lhs; if(!strcmp(myattributename,"rhs")) return (p_admsvalueto)adms_assignment_valueto_rhs; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_assignment_valueto_name; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_assignment_valueto_attribute; } if(myelementname==adms_adms_enumeration_datatypename_contribution) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_contribution_valueto_module; if(!strcmp(myattributename,"lhs")) return (p_admsvalueto)adms_contribution_valueto_lhs; if(!strcmp(myattributename,"rhs")) return (p_admsvalueto)adms_contribution_valueto_rhs; if(!strcmp(myattributename,"branchalias")) return (p_admsvalueto)adms_contribution_valueto_branchalias; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_contribution_valueto_name; if(!strcmp(myattributename,"whitenoise")) return (p_admsvalueto)adms_contribution_valueto_whitenoise; if(!strcmp(myattributename,"flickernoise")) return (p_admsvalueto)adms_contribution_valueto_flickernoise; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_contribution_valueto_attribute; } if(myelementname==adms_adms_enumeration_datatypename_conditional) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_conditional_valueto_module; if(!strcmp(myattributename,"if")) return (p_admsvalueto)adms_conditional_valueto_if; if(!strcmp(myattributename,"then")) return (p_admsvalueto)adms_conditional_valueto_then; if(!strcmp(myattributename,"else")) return (p_admsvalueto)adms_conditional_valueto_else; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_conditional_valueto_name; } if(myelementname==adms_adms_enumeration_datatypename_whileloop) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_whileloop_valueto_module; if(!strcmp(myattributename,"while")) return (p_admsvalueto)adms_whileloop_valueto_while; if(!strcmp(myattributename,"whileblock")) return (p_admsvalueto)adms_whileloop_valueto_whileblock; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_whileloop_valueto_name; } if(myelementname==adms_adms_enumeration_datatypename_case) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_case_valueto_module; if(!strcmp(myattributename,"case")) return (p_admsvalueto)adms_case_valueto_case; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_case_valueto_name; if(!strcmp(myattributename,"caseitem")) return (p_admsvalueto)adms_case_valueto_caseitem; } if(myelementname==adms_adms_enumeration_datatypename_caseitem) { if(!strcmp(myattributename,"code")) return (p_admsvalueto)adms_caseitem_valueto_code; if(!strcmp(myattributename,"defaultcase")) return (p_admsvalueto)adms_caseitem_valueto_defaultcase; if(!strcmp(myattributename,"condition")) return (p_admsvalueto)adms_caseitem_valueto_condition; } if(myelementname==adms_adms_enumeration_datatypename_blockvariable) { if(!strcmp(myattributename,"block")) return (p_admsvalueto)adms_blockvariable_valueto_block; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_blockvariable_valueto_variable; } if(myelementname==adms_adms_enumeration_datatypename_block) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_block_valueto_module; if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_block_valueto_name; if(!strcmp(myattributename,"block")) return (p_admsvalueto)adms_block_valueto_block; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_block_valueto_attribute; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_block_valueto_variable; if(!strcmp(myattributename,"item")) return (p_admsvalueto)adms_block_valueto_item; if(!strcmp(myattributename,"probe")) return (p_admsvalueto)adms_block_valueto_probe; } if(myelementname==adms_adms_enumeration_datatypename_callfunction) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_callfunction_valueto_module; if(!strcmp(myattributename,"function")) return (p_admsvalueto)adms_callfunction_valueto_function; } if(myelementname==adms_adms_enumeration_datatypename_evaluation) { if(!strcmp(myattributename,"module")) return (p_admsvalueto)adms_evaluation_valueto_module; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_evaluation_valueto_variable; } if(myelementname==adms_adms_enumeration_datatypename_admsttext) { if(!strcmp(myattributename,"admsttransform")) return (p_admsvalueto)adms_admsttext_valueto_admsttransform; if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"type")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) return (p_admsvalueto)adms_admsttext_valueto_token; } if(myelementname==adms_adms_enumeration_datatypename_admstpath) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttransformattribute")) return (p_admsvalueto)adms_admstpath_valueto_admsttransformattribute; } if(myelementname==adms_adms_enumeration_datatypename_admstpathgoto) { if(!strcmp(myattributename,"gotoname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"gotoindex")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"text")) return (p_admsvalueto)adms_admstpathgoto_valueto_text; } if(myelementname==adms_adms_enumeration_datatypename_admstpathevaluate) { if(!strcmp(myattributename,"admsttransform")) return (p_admsvalueto)adms_admstpathevaluate_valueto_admsttransform; if(!strcmp(myattributename,"admsttransformattribute")) return (p_admsvalueto)adms_admstpathevaluate_valueto_admsttransformattribute; if(!strcmp(myattributename,"admstpathgotonode")) return (p_admsvalueto)adms_admstpathevaluate_valueto_admstpathgotonode; if(!strcmp(myattributename,"admstaslist")) return (p_admsvalueto)adms_admstpathevaluate_valueto_admstaslist; if(!strcmp(myattributename,"admstasscalar")) return (p_admsvalueto)adms_admstpathevaluate_valueto_admstasscalar; if(!strcmp(myattributename,"admstasscalarfixme")) return (p_admsvalueto)adms_admstpathevaluate_valueto_admstasscalarfixme; if(!strcmp(myattributename,"alladmst")) return (p_admsvalueto)adms_admstpathevaluate_valueto_alladmst; } if(myelementname==adms_adms_enumeration_datatypename_admstpathparser) { if(!strcmp(myattributename,"admsttransform")) return (p_admsvalueto)adms_admstpathparser_valueto_admsttransform; if(!strcmp(myattributename,"admstpath")) return (p_admsvalueto)adms_admstpathparser_valueto_admstpath; if(!strcmp(myattributename,"stringposition")) return (p_admsvalueto)adms_admstpathparser_valueto_stringposition; if(!strcmp(myattributename,"tokenstrstart")) return (p_admsvalueto)adms_admstpathparser_valueto_tokenstrstart; if(!strcmp(myattributename,"tokenstrlen")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_admst) { if(!strcmp(myattributename,"admsttransform")) return (p_admsvalueto)adms_admst_valueto_admsttransform; if(!strcmp(myattributename,"previous")) return (p_admsvalueto)adms_admst_valueto_previous; if(!strcmp(myattributename,"attributename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"size")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"container")) return (p_admsvalueto)adms_admst_valueto_container; if(!strcmp(myattributename,"item")) return (p_admsvalueto)adms_admst_valueto_item; if(!strcmp(myattributename,"isrelative")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"istrue")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_admsttransformattribute) { if(!strcmp(myattributename,"admsttransform")) return (p_admsvalueto)adms_admsttransformattribute_valueto_admsttransform; if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttext")) return (p_admsvalueto)adms_admsttransformattribute_valueto_admsttext; if(!strcmp(myattributename,"admstpathgoto")) return (p_admsvalueto)adms_admsttransformattribute_valueto_admstpathgoto; } if(myelementname==adms_adms_enumeration_datatypename_admsttransform) { if(!strcmp(myattributename,"f")) return (p_admsvalueto)adms_admsttransform_valueto_f; if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admstname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"parent")) return (p_admsvalueto)adms_admsttransform_valueto_parent; if(!strcmp(myattributename,"evaluator")) return (p_admsvalueto)adms_admsttransform_valueto_evaluator; if(!strcmp(myattributename,"zzdatatype")) return (p_admsvalueto)adms_admsttransform_valueto_zzdatatype; if(!strcmp(myattributename,"zzselect")) return (p_admsvalueto)adms_admsttransform_valueto_zzselect; if(!strcmp(myattributename,"zzmatch")) return (p_admsvalueto)adms_admsttransform_valueto_zzmatch; if(!strcmp(myattributename,"zzrequired")) return (p_admsvalueto)adms_admsttransform_valueto_zzrequired; if(!strcmp(myattributename,"zzseparator")) return (p_admsvalueto)adms_admsttransform_valueto_zzseparator; if(!strcmp(myattributename,"zzfrom")) return (p_admsvalueto)adms_admsttransform_valueto_zzfrom; if(!strcmp(myattributename,"zzto")) return (p_admsvalueto)adms_admsttransform_valueto_zzto; if(!strcmp(myattributename,"zzlist")) return (p_admsvalueto)adms_admsttransform_valueto_zzlist; if(!strcmp(myattributename,"zzinto")) return (p_admsvalueto)adms_admsttransform_valueto_zzinto; if(!strcmp(myattributename,"zzname")) return (p_admsvalueto)adms_admsttransform_valueto_zzname; if(!strcmp(myattributename,"zzformat")) return (p_admsvalueto)adms_admsttransform_valueto_zzformat; if(!strcmp(myattributename,"zzfile")) return (p_admsvalueto)adms_admsttransform_valueto_zzfile; if(!strcmp(myattributename,"zzversion")) return (p_admsvalueto)adms_admsttransform_valueto_zzversion; if(!strcmp(myattributename,"zzonduplicate")) return (p_admsvalueto)adms_admsttransform_valueto_zzonduplicate; if(!strcmp(myattributename,"zzprobe")) return (p_admsvalueto)adms_admsttransform_valueto_zzprobe; if(!strcmp(myattributename,"zzvalue")) return (p_admsvalueto)adms_admsttransform_valueto_zzvalue; if(!strcmp(myattributename,"zzarguments")) return (p_admsvalueto)adms_admsttransform_valueto_zzarguments; if(!strcmp(myattributename,"zztest")) return (p_admsvalueto)adms_admsttransform_valueto_zztest; if(!strcmp(myattributename,"attribute")) return (p_admsvalueto)adms_admsttransform_valueto_attribute; if(!strcmp(myattributename,"children")) return (p_admsvalueto)adms_admsttransform_valueto_children; } if(myelementname==adms_adms_enumeration_datatypename_instanceofadmsttransform) { if(!strcmp(myattributename,"admsttemplate")) return (p_admsvalueto)adms_instanceofadmsttransform_valueto_admsttemplate; if(!strcmp(myattributename,"variable")) return (p_admsvalueto)adms_instanceofadmsttransform_valueto_variable; if(!strcmp(myattributename,"return")) return (p_admsvalueto)adms_instanceofadmsttransform_valueto_return; } if(myelementname==adms_adms_enumeration_datatypename_admstvariable) { if(!strcmp(myattributename,"name")) return (p_admsvalueto)adms_admstvariable_valueto_name; if(!strcmp(myattributename,"value")) return (p_admsvalueto)adms_admstvariable_valueto_value; } if(myelementname==adms_adms_enumeration_datatypename_path) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_lexval) { if(!strcmp(myattributename,"string")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_yaccval) { if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in valueto(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"usrdata")) return (p_admsvalueto)adms_yaccval_valueto_usrdata; } { p_adms myitem=myadmst->_item; char*myelementname=myitem?adms_adms_tostring_datatypename_impl(myadmst->_admsttransform,myitem->_datatypename):myadmst->_attributename; adms_message_fatal_continue(("missing attribute %s/%s\n",myelementname,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } return NULL; } int adms_admsxml_isdefault (const p_admst myadmst,const char*myattributename) { e_adms_datatypename myelementname; if(!strcmp(myadmst->_attributename,"adms")) myelementname=adms_adms_enumeration_datatypename_adms; else if(!strcmp(myadmst->_attributename,"math")) myelementname=adms_adms_enumeration_datatypename_math; else if(!strcmp(myadmst->_attributename,"subexpression")) myelementname=adms_adms_enumeration_datatypename_subexpression; else myelementname=myadmst->_item->_datatypename; /*alias*/ if(myadmst->_item &&(!strcmp(myattributename,"static")||!strcmp(myattributename,"dynamic")) ) { if(0 ||myelementname==adms_adms_enumeration_datatypename_block ||myelementname==adms_adms_enumeration_datatypename_blockvariable ||myelementname==adms_adms_enumeration_datatypename_nilled ||myelementname==adms_adms_enumeration_datatypename_expression ||myelementname==adms_adms_enumeration_datatypename_assignment ||myelementname==adms_adms_enumeration_datatypename_contribution ||myelementname==adms_adms_enumeration_datatypename_conditional ||myelementname==adms_adms_enumeration_datatypename_variable ||myelementname==adms_adms_enumeration_datatypename_callfunction ||myelementname==adms_adms_enumeration_datatypename_case ||myelementname==adms_adms_enumeration_datatypename_whileloop ) myelementname=adms_adms_enumeration_datatypename_math; } if(myelementname==adms_adms_enumeration_datatypename_adms) { if(!strcmp(myattributename,"datatypename")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"seen")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"used")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_simulator) { if(!strcmp(myattributename,"name")) return (int)adms_simulator_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"currentdate")) return (int)adms_simulator_isdefault_currentdate(myadmst->_item); if(!strcmp(myattributename,"developer")) return (int)adms_simulator_isdefault_developer(myadmst->_item); if(!strcmp(myattributename,"fullname")) return (int)adms_simulator_isdefault_fullname(myadmst->_item); if(!strcmp(myattributename,"probe")) return (int)adms_simulator_isdefault_probe(myadmst->_item); if(!strcmp(myattributename,"tmp")) return (int)adms_simulator_isdefault_tmp(myadmst->_item); if(!strcmp(myattributename,"tmp1")) return (int)adms_simulator_isdefault_tmp1(myadmst->_item); if(!strcmp(myattributename,"br1")) return (int)adms_simulator_isdefault_br1(myadmst->_item); if(!strcmp(myattributename,"br2")) return (int)adms_simulator_isdefault_br2(myadmst->_item); if(!strcmp(myattributename,"sr1")) return (int)adms_simulator_isdefault_sr1(myadmst->_item); if(!strcmp(myattributename,"ddx")) return (int)adms_simulator_isdefault_ddx(myadmst->_item); if(!strcmp(myattributename,"package_name")) return (int)adms_simulator_isdefault_package_name(myadmst->_item); if(!strcmp(myattributename,"package_tarname")) return (int)adms_simulator_isdefault_package_tarname(myadmst->_item); if(!strcmp(myattributename,"package_version")) return (int)adms_simulator_isdefault_package_version(myadmst->_item); if(!strcmp(myattributename,"package_string")) return (int)adms_simulator_isdefault_package_string(myadmst->_item); if(!strcmp(myattributename,"package_bugreport")) return (int)adms_simulator_isdefault_package_bugreport(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admsmain) { if(!strcmp(myattributename,"name")) return (int)adms_admsmain_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"argc")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) return (int)adms_admsmain_isdefault_filename(myadmst->_item); if(!strcmp(myattributename,"curline")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"simulator")) return (int)adms_admsmain_isdefault_simulator(myadmst->_item); if(!strcmp(myattributename,"info")) return (int)adms_admsmain_isdefault_info(myadmst->_item); if(!strcmp(myattributename,"usage")) return (int)adms_admsmain_isdefault_usage(myadmst->_item); if(!strcmp(myattributename,"verbose")) return (int)adms_admsmain_isdefault_verbose(myadmst->_item); if(!strcmp(myattributename,"hint")) return (int)adms_admsmain_isdefault_hint(myadmst->_item); if(!strcmp(myattributename,"warning")) return (int)adms_admsmain_isdefault_warning(myadmst->_item); if(!strcmp(myattributename,"obsolete")) return (int)adms_admsmain_isdefault_obsolete(myadmst->_item); if(!strcmp(myattributename,"debug")) return (int)adms_admsmain_isdefault_debug(myadmst->_item); if(!strcmp(myattributename,"dbg_vla")) return (int)adms_admsmain_isdefault_dbg_vla(myadmst->_item); if(!strcmp(myattributename,"dbg_xml")) return (int)adms_admsmain_isdefault_dbg_xml(myadmst->_item); if(!strcmp(myattributename,"error")) return (int)adms_admsmain_isdefault_error(myadmst->_item); if(!strcmp(myattributename,"fatal")) return (int)adms_admsmain_isdefault_fatal(myadmst->_item); if(!strcmp(myattributename,"dbg_mem")) return (int)adms_admsmain_isdefault_dbg_mem(myadmst->_item); if(!strcmp(myattributename,"module")) return (int)adms_admsmain_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (int)adms_admsmain_isdefault_discipline(myadmst->_item); if(!strcmp(myattributename,"nature")) return (int)adms_admsmain_isdefault_nature(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_admsmain_isdefault_variable(myadmst->_item); if(!strcmp(myattributename,"argv")) return (int)adms_admsmain_isdefault_argv(myadmst->_item); if(!strcmp(myattributename,"admstfile")) return (int)adms_admsmain_isdefault_admstfile(myadmst->_item); if(!strcmp(myattributename,"admsttransform")) return (int)adms_admsmain_isdefault_admsttransform(myadmst->_item); if(!strcmp(myattributename,"template")) return (int)adms_admsmain_isdefault_template(myadmst->_item); if(!strcmp(myattributename,"instanceofadmsttransform")) return (int)adms_admsmain_isdefault_instanceofadmsttransform(myadmst->_item); if(!strcmp(myattributename,"instanceofadmsttransforminsideapplytemplate")) return (int)adms_admsmain_isdefault_instanceofadmsttransforminsideapplytemplate(myadmst->_item); if(!strcmp(myattributename,"valueof")) return (int)adms_admsmain_isdefault_valueof(myadmst->_item); if(!strcmp(myattributename,"alladmstnew")) return (int)adms_admsmain_isdefault_alladmstnew(myadmst->_item); if(!strcmp(myattributename,"alladmstdestroy")) return (int)adms_admsmain_isdefault_alladmstdestroy(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_attribute) { if(!strcmp(myattributename,"name")) return (int)adms_attribute_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"value")) return (int)adms_attribute_isdefault_value(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_enumeration) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fromstring")) return (int)adms_enumeration_isdefault_fromstring(myadmst->_item); if(!strcmp(myattributename,"tostring")) return (int)adms_enumeration_isdefault_tostring(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_integer) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_real) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:real' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_quark) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_list) { if(!strcmp(myattributename,"datatype")) return (int)adms_list_isdefault_datatype(myadmst->_item); if(!strcmp(myattributename,"item")) return (int)adms_list_isdefault_item(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_nature) { if(!strcmp(myattributename,"access")) return (int)adms_nature_isdefault_access(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_nature_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"abstol")) return (int)adms_nature_isdefault_abstol(myadmst->_item); if(!strcmp(myattributename,"base")) return (int)adms_nature_isdefault_base(myadmst->_item); if(!strcmp(myattributename,"ddtNature")) return (int)adms_nature_isdefault_ddtNature(myadmst->_item); if(!strcmp(myattributename,"idtNature")) return (int)adms_nature_isdefault_idtNature(myadmst->_item); if(!strcmp(myattributename,"units")) return (int)adms_nature_isdefault_units(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_discipline) { if(!strcmp(myattributename,"name")) return (int)adms_discipline_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"flow")) return (int)adms_discipline_isdefault_flow(myadmst->_item); if(!strcmp(myattributename,"potential")) return (int)adms_discipline_isdefault_potential(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_module) { if(!strcmp(myattributename,"name")) return (int)adms_module_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"evaluation")) return (int)adms_module_isdefault_evaluation(myadmst->_item); if(!strcmp(myattributename,"analog")) return (int)adms_module_isdefault_analog(myadmst->_item); if(!strcmp(myattributename,"node")) return (int)adms_module_isdefault_node(myadmst->_item); if(!strcmp(myattributename,"block")) return (int)adms_module_isdefault_block(myadmst->_item); if(!strcmp(myattributename,"contribution")) return (int)adms_module_isdefault_contribution(myadmst->_item); if(!strcmp(myattributename,"assignment")) return (int)adms_module_isdefault_assignment(myadmst->_item); if(!strcmp(myattributename,"expression")) return (int)adms_module_isdefault_expression(myadmst->_item); if(!strcmp(myattributename,"conditional")) return (int)adms_module_isdefault_conditional(myadmst->_item); if(!strcmp(myattributename,"blockvariable")) return (int)adms_module_isdefault_blockvariable(myadmst->_item); if(!strcmp(myattributename,"branch")) return (int)adms_module_isdefault_branch(myadmst->_item); if(!strcmp(myattributename,"jacobian")) return (int)adms_module_isdefault_jacobian(myadmst->_item); if(!strcmp(myattributename,"probe")) return (int)adms_module_isdefault_probe(myadmst->_item); if(!strcmp(myattributename,"source")) return (int)adms_module_isdefault_source(myadmst->_item); if(!strcmp(myattributename,"instance")) return (int)adms_module_isdefault_instance(myadmst->_item); if(!strcmp(myattributename,"instantiator")) return (int)adms_module_isdefault_instantiator(myadmst->_item); if(!strcmp(myattributename,"branchalias")) return (int)adms_module_isdefault_branchalias(myadmst->_item); if(!strcmp(myattributename,"range")) return (int)adms_module_isdefault_range(myadmst->_item); if(!strcmp(myattributename,"nodealias")) return (int)adms_module_isdefault_nodealias(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_module_isdefault_variable(myadmst->_item); if(!strcmp(myattributename,"analogfunction")) return (int)adms_module_isdefault_analogfunction(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_module_isdefault_attribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_analogfunction) { if(!strcmp(myattributename,"module")) return (int)adms_analogfunction_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_analogfunction_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"type")) return (int)adms_analogfunction_isdefault_type(myadmst->_item); if(!strcmp(myattributename,"tree")) return (int)adms_analogfunction_isdefault_tree(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_analogfunction_isdefault_variable(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_nodealias) { if(!strcmp(myattributename,"module")) return (int)adms_nodealias_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_nodealias_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"node")) return (int)adms_nodealias_isdefault_node(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_node) { if(!strcmp(myattributename,"module")) return (int)adms_node_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_node_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"direction")) return (int)adms_node_isdefault_direction(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (int)adms_node_isdefault_discipline(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (int)adms_node_isdefault_grounded(myadmst->_item); if(!strcmp(myattributename,"location")) return (int)adms_node_isdefault_location(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_node_isdefault_attribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_branchalias) { if(!strcmp(myattributename,"module")) return (int)adms_branchalias_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_branchalias_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"branch")) return (int)adms_branchalias_isdefault_branch(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_branch) { if(!strcmp(myattributename,"module")) return (int)adms_branch_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"pnode")) return (int)adms_branch_isdefault_pnode(myadmst->_item); if(!strcmp(myattributename,"nnode")) return (int)adms_branch_isdefault_nnode(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (int)adms_branch_isdefault_discipline(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (int)adms_branch_isdefault_grounded(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_branch_isdefault_attribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_source) { if(!strcmp(myattributename,"module")) return (int)adms_source_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"branch")) return (int)adms_source_isdefault_branch(myadmst->_item); if(!strcmp(myattributename,"nature")) return (int)adms_source_isdefault_nature(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (int)adms_source_isdefault_discipline(myadmst->_item); if(!strcmp(myattributename,"static")) return (int)adms_source_isdefault_static(myadmst->_item); if(!strcmp(myattributename,"dynamic")) return (int)adms_source_isdefault_dynamic(myadmst->_item); if(!strcmp(myattributename,"whitenoise")) return (int)adms_source_isdefault_whitenoise(myadmst->_item); if(!strcmp(myattributename,"flickernoise")) return (int)adms_source_isdefault_flickernoise(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (int)adms_source_isdefault_grounded(myadmst->_item); if(!strcmp(myattributename,"switch")) return (int)adms_source_isdefault_switch(myadmst->_item); if(!strcmp(myattributename,"type")) return (int)adms_source_isdefault_type(myadmst->_item); if(!strcmp(myattributename,"probe")) return (int)adms_source_isdefault_probe(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_source_isdefault_attribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_range) { if(!strcmp(myattributename,"module")) return (int)adms_range_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"infexpr")) return (int)adms_range_isdefault_infexpr(myadmst->_item); if(!strcmp(myattributename,"supexpr")) return (int)adms_range_isdefault_supexpr(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_range_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"infboundtype")) return (int)adms_range_isdefault_infboundtype(myadmst->_item); if(!strcmp(myattributename,"supboundtype")) return (int)adms_range_isdefault_supboundtype(myadmst->_item); if(!strcmp(myattributename,"type")) return (int)adms_range_isdefault_type(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_jacobian) { if(!strcmp(myattributename,"module")) return (int)adms_jacobian_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"row")) return (int)adms_jacobian_isdefault_row(myadmst->_item); if(!strcmp(myattributename,"column")) return (int)adms_jacobian_isdefault_column(myadmst->_item); if(!strcmp(myattributename,"diagonal")) return (int)adms_jacobian_isdefault_diagonal(myadmst->_item); if(!strcmp(myattributename,"static")) return (int)adms_jacobian_isdefault_static(myadmst->_item); if(!strcmp(myattributename,"dynamic")) return (int)adms_jacobian_isdefault_dynamic(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_analog) { if(!strcmp(myattributename,"code")) return (int)adms_analog_isdefault_code(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_math) { if(!strcmp(myattributename,"name")) return (int)adms_math_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"value")) return (int)adms_math_isdefault_value(myadmst->_item); if(!strcmp(myattributename,"static")) return (int)adms_math_isdefault_static(myadmst->_item); if(!strcmp(myattributename,"dynamic")) return (int)adms_math_isdefault_dynamic(myadmst->_item); if(!strcmp(myattributename,"dependency")) return (int)adms_math_isdefault_dependency(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_math_isdefault_attribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_string) { if(!strcmp(myattributename,"value")) return (int)adms_string_isdefault_value(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_subexpression) { if(!strcmp(myattributename,"expression")) return (int)adms_subexpression_isdefault_expression(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_mapply_unary) { if(!strcmp(myattributename,"name")) return (int)adms_mapply_unary_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"arg1")) return (int)adms_mapply_unary_isdefault_arg1(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_mapply_binary) { if(!strcmp(myattributename,"name")) return (int)adms_mapply_binary_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"arg1")) return (int)adms_mapply_binary_isdefault_arg1(myadmst->_item); if(!strcmp(myattributename,"arg2")) return (int)adms_mapply_binary_isdefault_arg2(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_mapply_ternary) { if(!strcmp(myattributename,"name")) return (int)adms_mapply_ternary_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"arg1")) return (int)adms_mapply_ternary_isdefault_arg1(myadmst->_item); if(!strcmp(myattributename,"arg2")) return (int)adms_mapply_ternary_isdefault_arg2(myadmst->_item); if(!strcmp(myattributename,"arg3")) return (int)adms_mapply_ternary_isdefault_arg3(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_number) { if(!strcmp(myattributename,"value")) return (int)adms_number_isdefault_value(myadmst->_item); if(!strcmp(myattributename,"scalingunit")) return (int)adms_number_isdefault_scalingunit(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_function) { if(!strcmp(myattributename,"name")) return (int)adms_function_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"unique_id")) return (int)adms_function_isdefault_unique_id(myadmst->_item); if(!strcmp(myattributename,"definition")) return (int)adms_function_isdefault_definition(myadmst->_item); if(!strcmp(myattributename,"class")) return (int)adms_function_isdefault_class(myadmst->_item); if(!strcmp(myattributename,"arguments")) return (int)adms_function_isdefault_arguments(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_variable) { if(!strcmp(myattributename,"module")) return (int)adms_variable_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_variable_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"block")) return (int)adms_variable_isdefault_block(myadmst->_item); if(!strcmp(myattributename,"parametertype")) return (int)adms_variable_isdefault_parametertype(myadmst->_item); if(!strcmp(myattributename,"type")) return (int)adms_variable_isdefault_type(myadmst->_item); if(!strcmp(myattributename,"sizetype")) return (int)adms_variable_isdefault_sizetype(myadmst->_item); if(!strcmp(myattributename,"maxsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"minsize")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"input")) return (int)adms_variable_isdefault_input(myadmst->_item); if(!strcmp(myattributename,"output")) return (int)adms_variable_isdefault_output(myadmst->_item); if(!strcmp(myattributename,"scope")) return (int)adms_variable_isdefault_scope(myadmst->_item); if(!strcmp(myattributename,"default")) return (int)adms_variable_isdefault_default(myadmst->_item); if(!strcmp(myattributename,"derivate")) return (int)adms_variable_isdefault_derivate(myadmst->_item); if(!strcmp(myattributename,"isstate")) return (int)adms_variable_isdefault_isstate(myadmst->_item); if(!strcmp(myattributename,"usedinmodel")) return (int)adms_variable_isdefault_usedinmodel(myadmst->_item); if(!strcmp(myattributename,"usedininstance")) return (int)adms_variable_isdefault_usedininstance(myadmst->_item); if(!strcmp(myattributename,"usedininitial_step")) return (int)adms_variable_isdefault_usedininitial_step(myadmst->_item); if(!strcmp(myattributename,"usedinevaluate")) return (int)adms_variable_isdefault_usedinevaluate(myadmst->_item); if(!strcmp(myattributename,"usedinnoise")) return (int)adms_variable_isdefault_usedinnoise(myadmst->_item); if(!strcmp(myattributename,"usedinfinal")) return (int)adms_variable_isdefault_usedinfinal(myadmst->_item); if(!strcmp(myattributename,"setinmodel")) return (int)adms_variable_isdefault_setinmodel(myadmst->_item); if(!strcmp(myattributename,"setininstance")) return (int)adms_variable_isdefault_setininstance(myadmst->_item); if(!strcmp(myattributename,"setininitial_step")) return (int)adms_variable_isdefault_setininitial_step(myadmst->_item); if(!strcmp(myattributename,"setinevaluate")) return (int)adms_variable_isdefault_setinevaluate(myadmst->_item); if(!strcmp(myattributename,"setinnoise")) return (int)adms_variable_isdefault_setinnoise(myadmst->_item); if(!strcmp(myattributename,"setinfinal")) return (int)adms_variable_isdefault_setinfinal(myadmst->_item); if(!strcmp(myattributename,"setingetprev")) return (int)adms_variable_isdefault_setingetprev(myadmst->_item); if(!strcmp(myattributename,"TemperatureDependent")) return (int)adms_variable_isdefault_TemperatureDependent(myadmst->_item); if(!strcmp(myattributename,"OPdependent")) return (int)adms_variable_isdefault_OPdependent(myadmst->_item); if(!strcmp(myattributename,"insource")) return (int)adms_variable_isdefault_insource(myadmst->_item); if(!strcmp(myattributename,"vcount")) return (int)adms_variable_isdefault_vcount(myadmst->_item); if(!strcmp(myattributename,"vlast")) return (int)adms_variable_isdefault_vlast(myadmst->_item); if(!strcmp(myattributename,"alias")) return (int)adms_variable_isdefault_alias(myadmst->_item); if(!strcmp(myattributename,"range")) return (int)adms_variable_isdefault_range(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_variable_isdefault_attribute(myadmst->_item); if(!strcmp(myattributename,"assignment")) return (int)adms_variable_isdefault_assignment(myadmst->_item); if(!strcmp(myattributename,"probe")) return (int)adms_variable_isdefault_probe(myadmst->_item); if(!strcmp(myattributename,"ddxprobe")) return (int)adms_variable_isdefault_ddxprobe(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_variable_isdefault_variable(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_probe) { if(!strcmp(myattributename,"module")) return (int)adms_probe_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"branch")) return (int)adms_probe_isdefault_branch(myadmst->_item); if(!strcmp(myattributename,"nature")) return (int)adms_probe_isdefault_nature(myadmst->_item); if(!strcmp(myattributename,"seen")) return (int)adms_probe_isdefault_seen(myadmst->_item); if(!strcmp(myattributename,"discipline")) return (int)adms_probe_isdefault_discipline(myadmst->_item); if(!strcmp(myattributename,"grounded")) return (int)adms_probe_isdefault_grounded(myadmst->_item); if(!strcmp(myattributename,"source")) return (int)adms_probe_isdefault_source(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_expression) { if(!strcmp(myattributename,"module")) return (int)adms_expression_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"tree")) return (int)adms_expression_isdefault_tree(myadmst->_item); if(!strcmp(myattributename,"hasspecialnumber")) return (int)adms_expression_isdefault_hasspecialnumber(myadmst->_item); if(!strcmp(myattributename,"hasVoltageDependentFunction")) return (int)adms_expression_isdefault_hasVoltageDependentFunction(myadmst->_item); if(!strcmp(myattributename,"TemperatureDependent")) return (int)adms_expression_isdefault_TemperatureDependent(myadmst->_item); if(!strcmp(myattributename,"value")) return (int)adms_expression_isdefault_value(myadmst->_item); if(!strcmp(myattributename,"function")) return (int)adms_expression_isdefault_function(myadmst->_item); if(!strcmp(myattributename,"probe")) return (int)adms_expression_isdefault_probe(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_expression_isdefault_variable(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instance) { if(!strcmp(myattributename,"instantiator")) return (int)adms_instance_isdefault_instantiator(myadmst->_item); if(!strcmp(myattributename,"module")) return (int)adms_instance_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_instance_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"terminal")) return (int)adms_instance_isdefault_terminal(myadmst->_item); if(!strcmp(myattributename,"parameterset")) return (int)adms_instance_isdefault_parameterset(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instanceparameter) { if(!strcmp(myattributename,"parameter")) return (int)adms_instanceparameter_isdefault_parameter(myadmst->_item); if(!strcmp(myattributename,"value")) return (int)adms_instanceparameter_isdefault_value(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instancenode) { if(!strcmp(myattributename,"nodefrominstantiator")) return (int)adms_instancenode_isdefault_nodefrominstantiator(myadmst->_item); if(!strcmp(myattributename,"nodefrommodule")) return (int)adms_instancenode_isdefault_nodefrommodule(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_nilled) { if(!strcmp(myattributename,"module")) return (int)adms_nilled_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_nilled_isdefault_name(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_assignment) { if(!strcmp(myattributename,"module")) return (int)adms_assignment_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"lhs")) return (int)adms_assignment_isdefault_lhs(myadmst->_item); if(!strcmp(myattributename,"rhs")) return (int)adms_assignment_isdefault_rhs(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_assignment_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_assignment_isdefault_attribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_contribution) { if(!strcmp(myattributename,"module")) return (int)adms_contribution_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"lhs")) return (int)adms_contribution_isdefault_lhs(myadmst->_item); if(!strcmp(myattributename,"rhs")) return (int)adms_contribution_isdefault_rhs(myadmst->_item); if(!strcmp(myattributename,"branchalias")) return (int)adms_contribution_isdefault_branchalias(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_contribution_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"whitenoise")) return (int)adms_contribution_isdefault_whitenoise(myadmst->_item); if(!strcmp(myattributename,"flickernoise")) return (int)adms_contribution_isdefault_flickernoise(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_contribution_isdefault_attribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_conditional) { if(!strcmp(myattributename,"module")) return (int)adms_conditional_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"if")) return (int)adms_conditional_isdefault_if(myadmst->_item); if(!strcmp(myattributename,"then")) return (int)adms_conditional_isdefault_then(myadmst->_item); if(!strcmp(myattributename,"else")) return (int)adms_conditional_isdefault_else(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_conditional_isdefault_name(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_whileloop) { if(!strcmp(myattributename,"module")) return (int)adms_whileloop_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"while")) return (int)adms_whileloop_isdefault_while(myadmst->_item); if(!strcmp(myattributename,"whileblock")) return (int)adms_whileloop_isdefault_whileblock(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_whileloop_isdefault_name(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_case) { if(!strcmp(myattributename,"module")) return (int)adms_case_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"case")) return (int)adms_case_isdefault_case(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_case_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"caseitem")) return (int)adms_case_isdefault_caseitem(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_caseitem) { if(!strcmp(myattributename,"code")) return (int)adms_caseitem_isdefault_code(myadmst->_item); if(!strcmp(myattributename,"defaultcase")) return (int)adms_caseitem_isdefault_defaultcase(myadmst->_item); if(!strcmp(myattributename,"condition")) return (int)adms_caseitem_isdefault_condition(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_blockvariable) { if(!strcmp(myattributename,"block")) return (int)adms_blockvariable_isdefault_block(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_blockvariable_isdefault_variable(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_block) { if(!strcmp(myattributename,"module")) return (int)adms_block_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"name")) return (int)adms_block_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"block")) return (int)adms_block_isdefault_block(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_block_isdefault_attribute(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_block_isdefault_variable(myadmst->_item); if(!strcmp(myattributename,"item")) return (int)adms_block_isdefault_item(myadmst->_item); if(!strcmp(myattributename,"probe")) return (int)adms_block_isdefault_probe(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_callfunction) { if(!strcmp(myattributename,"module")) return (int)adms_callfunction_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"function")) return (int)adms_callfunction_isdefault_function(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_evaluation) { if(!strcmp(myattributename,"module")) return (int)adms_evaluation_isdefault_module(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_evaluation_isdefault_variable(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admsttext) { if(!strcmp(myattributename,"admsttransform")) return (int)adms_admsttext_isdefault_admsttransform(myadmst->_item); if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"type")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) return (int)adms_admsttext_isdefault_token(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpath) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttransformattribute")) return (int)adms_admstpath_isdefault_admsttransformattribute(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpathgoto) { if(!strcmp(myattributename,"gotoname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"gotoindex")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"text")) return (int)adms_admstpathgoto_isdefault_text(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpathevaluate) { if(!strcmp(myattributename,"admsttransform")) return (int)adms_admstpathevaluate_isdefault_admsttransform(myadmst->_item); if(!strcmp(myattributename,"admsttransformattribute")) return (int)adms_admstpathevaluate_isdefault_admsttransformattribute(myadmst->_item); if(!strcmp(myattributename,"admstpathgotonode")) return (int)adms_admstpathevaluate_isdefault_admstpathgotonode(myadmst->_item); if(!strcmp(myattributename,"admstaslist")) return (int)adms_admstpathevaluate_isdefault_admstaslist(myadmst->_item); if(!strcmp(myattributename,"admstasscalar")) return (int)adms_admstpathevaluate_isdefault_admstasscalar(myadmst->_item); if(!strcmp(myattributename,"admstasscalarfixme")) return (int)adms_admstpathevaluate_isdefault_admstasscalarfixme(myadmst->_item); if(!strcmp(myattributename,"alladmst")) return (int)adms_admstpathevaluate_isdefault_alladmst(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstpathparser) { if(!strcmp(myattributename,"admsttransform")) return (int)adms_admstpathparser_isdefault_admsttransform(myadmst->_item); if(!strcmp(myattributename,"admstpath")) return (int)adms_admstpathparser_isdefault_admstpath(myadmst->_item); if(!strcmp(myattributename,"stringposition")) return (int)adms_admstpathparser_isdefault_stringposition(myadmst->_item); if(!strcmp(myattributename,"tokenstrstart")) return (int)adms_admstpathparser_isdefault_tokenstrstart(myadmst->_item); if(!strcmp(myattributename,"tokenstrlen")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_admst) { if(!strcmp(myattributename,"admsttransform")) return (int)adms_admst_isdefault_admsttransform(myadmst->_item); if(!strcmp(myattributename,"previous")) return (int)adms_admst_isdefault_previous(myadmst->_item); if(!strcmp(myattributename,"attributename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"size")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"container")) return (int)adms_admst_isdefault_container(myadmst->_item); if(!strcmp(myattributename,"item")) return (int)adms_admst_isdefault_item(myadmst->_item); if(!strcmp(myattributename,"isrelative")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"istrue")) { adms_message_fatal_continue(("access to basic type 'base:enumeration' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_admsttransformattribute) { if(!strcmp(myattributename,"admsttransform")) return (int)adms_admsttransformattribute_isdefault_admsttransform(myadmst->_item); if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admsttext")) return (int)adms_admsttransformattribute_isdefault_admsttext(myadmst->_item); if(!strcmp(myattributename,"admstpathgoto")) return (int)adms_admsttransformattribute_isdefault_admstpathgoto(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admsttransform) { if(!strcmp(myattributename,"f")) return (int)adms_admsttransform_isdefault_f(myadmst->_item); if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"admstname")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"parent")) return (int)adms_admsttransform_isdefault_parent(myadmst->_item); if(!strcmp(myattributename,"evaluator")) return (int)adms_admsttransform_isdefault_evaluator(myadmst->_item); if(!strcmp(myattributename,"zzdatatype")) return (int)adms_admsttransform_isdefault_zzdatatype(myadmst->_item); if(!strcmp(myattributename,"zzselect")) return (int)adms_admsttransform_isdefault_zzselect(myadmst->_item); if(!strcmp(myattributename,"zzmatch")) return (int)adms_admsttransform_isdefault_zzmatch(myadmst->_item); if(!strcmp(myattributename,"zzrequired")) return (int)adms_admsttransform_isdefault_zzrequired(myadmst->_item); if(!strcmp(myattributename,"zzseparator")) return (int)adms_admsttransform_isdefault_zzseparator(myadmst->_item); if(!strcmp(myattributename,"zzfrom")) return (int)adms_admsttransform_isdefault_zzfrom(myadmst->_item); if(!strcmp(myattributename,"zzto")) return (int)adms_admsttransform_isdefault_zzto(myadmst->_item); if(!strcmp(myattributename,"zzlist")) return (int)adms_admsttransform_isdefault_zzlist(myadmst->_item); if(!strcmp(myattributename,"zzinto")) return (int)adms_admsttransform_isdefault_zzinto(myadmst->_item); if(!strcmp(myattributename,"zzname")) return (int)adms_admsttransform_isdefault_zzname(myadmst->_item); if(!strcmp(myattributename,"zzformat")) return (int)adms_admsttransform_isdefault_zzformat(myadmst->_item); if(!strcmp(myattributename,"zzfile")) return (int)adms_admsttransform_isdefault_zzfile(myadmst->_item); if(!strcmp(myattributename,"zzversion")) return (int)adms_admsttransform_isdefault_zzversion(myadmst->_item); if(!strcmp(myattributename,"zzonduplicate")) return (int)adms_admsttransform_isdefault_zzonduplicate(myadmst->_item); if(!strcmp(myattributename,"zzprobe")) return (int)adms_admsttransform_isdefault_zzprobe(myadmst->_item); if(!strcmp(myattributename,"zzvalue")) return (int)adms_admsttransform_isdefault_zzvalue(myadmst->_item); if(!strcmp(myattributename,"zzarguments")) return (int)adms_admsttransform_isdefault_zzarguments(myadmst->_item); if(!strcmp(myattributename,"zztest")) return (int)adms_admsttransform_isdefault_zztest(myadmst->_item); if(!strcmp(myattributename,"attribute")) return (int)adms_admsttransform_isdefault_attribute(myadmst->_item); if(!strcmp(myattributename,"children")) return (int)adms_admsttransform_isdefault_children(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_instanceofadmsttransform) { if(!strcmp(myattributename,"admsttemplate")) return (int)adms_instanceofadmsttransform_isdefault_admsttemplate(myadmst->_item); if(!strcmp(myattributename,"variable")) return (int)adms_instanceofadmsttransform_isdefault_variable(myadmst->_item); if(!strcmp(myattributename,"return")) return (int)adms_instanceofadmsttransform_isdefault_return(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_admstvariable) { if(!strcmp(myattributename,"name")) return (int)adms_admstvariable_isdefault_name(myadmst->_item); if(!strcmp(myattributename,"value")) return (int)adms_admstvariable_isdefault_value(myadmst->_item); } if(myelementname==adms_adms_enumeration_datatypename_path) { if(!strcmp(myattributename,"value")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"token")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_lexval) { if(!strcmp(myattributename,"string")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"l")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"fpos")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } } if(myelementname==adms_adms_enumeration_datatypename_yaccval) { if(!strcmp(myattributename,"filename")) { adms_message_fatal_continue(("access to basic type 'base:character:array' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"lend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wbegin")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"wend")) { adms_message_fatal_continue(("access to basic type 'base:integer' not allowed in isdefault(%s/%s)\n",myadmst->_attributename,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } if(!strcmp(myattributename,"usrdata")) return (int)adms_yaccval_isdefault_usrdata(myadmst->_item); } { p_adms myitem=myadmst->_item; char*myelementname=myitem?adms_adms_tostring_datatypename_impl(myadmst->_admsttransform,myitem->_datatypename):myadmst->_attributename; adms_message_fatal_continue(("missing attribute %s/%s\n",myelementname,myattributename)) adms_message_fatal(("see %s\n",adms_admst_uid(myadmst))) } return 0; } char* adms_admsxml_uid (p_adms myitem) { int dataTypeName=myitem->_datatypename; if(dataTypeName==adms_adms_enumeration_datatypename_simulator) return adms_simulator_uid(adms_simulator(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admsmain) return adms_admsmain_uid(adms_admsmain(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_attribute) return adms_attribute_uid(adms_attribute(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_enumeration) return adms_enumeration_uid(adms_enumeration(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_integer) return adms_integer_uid(adms_integer(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_real) return adms_real_uid(adms_real(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_quark) return adms_quark_uid(adms_quark(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_list) return adms_list_uid(adms_list(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_nature) return adms_nature_uid(adms_nature(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_discipline) return adms_discipline_uid(adms_discipline(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_module) return adms_module_uid(adms_module(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_analogfunction) return adms_analogfunction_uid(adms_analogfunction(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_nodealias) return adms_nodealias_uid(adms_nodealias(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_node) return adms_node_uid(adms_node(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_branchalias) return adms_branchalias_uid(adms_branchalias(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_branch) return adms_branch_uid(adms_branch(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_source) return adms_source_uid(adms_source(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_range) return adms_range_uid(adms_range(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_jacobian) return adms_jacobian_uid(adms_jacobian(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_analog) return adms_analog_uid(adms_analog(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_math) return adms_math_uid(adms_math(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_string) return adms_string_uid(adms_string(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_subexpression) return adms_subexpression_uid(adms_subexpression(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_mapply_unary) return adms_mapply_unary_uid(adms_mapply_unary(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_mapply_binary) return adms_mapply_binary_uid(adms_mapply_binary(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_mapply_ternary) return adms_mapply_ternary_uid(adms_mapply_ternary(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_number) return adms_number_uid(adms_number(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_function) return adms_function_uid(adms_function(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_variable) return adms_variable_uid(adms_variable(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_probe) return adms_probe_uid(adms_probe(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_expression) return adms_expression_uid(adms_expression(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_instance) return adms_instance_uid(adms_instance(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_instanceparameter) return adms_instanceparameter_uid(adms_instanceparameter(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_instancenode) return adms_instancenode_uid(adms_instancenode(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_nilled) return adms_nilled_uid(adms_nilled(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_assignment) return adms_assignment_uid(adms_assignment(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_contribution) return adms_contribution_uid(adms_contribution(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_conditional) return adms_conditional_uid(adms_conditional(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_whileloop) return adms_whileloop_uid(adms_whileloop(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_case) return adms_case_uid(adms_case(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_caseitem) return adms_caseitem_uid(adms_caseitem(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_blockvariable) return adms_blockvariable_uid(adms_blockvariable(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_block) return adms_block_uid(adms_block(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_callfunction) return adms_callfunction_uid(adms_callfunction(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_evaluation) return adms_evaluation_uid(adms_evaluation(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admsttext) return adms_admsttext_uid(adms_admsttext(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admstpath) return adms_admstpath_uid(adms_admstpath(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admstpathgoto) return adms_admstpathgoto_uid(adms_admstpathgoto(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admstpathevaluate) return adms_admstpathevaluate_uid(adms_admstpathevaluate(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admstpathparser) return adms_admstpathparser_uid(adms_admstpathparser(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admst) return adms_admst_uid(adms_admst(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admsttransformattribute) return adms_admsttransformattribute_uid(adms_admsttransformattribute(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admsttransform) return adms_admsttransform_uid(adms_admsttransform(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_instanceofadmsttransform) return adms_instanceofadmsttransform_uid(adms_instanceofadmsttransform(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_admstvariable) return adms_admstvariable_uid(adms_admstvariable(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_path) return adms_path_uid(adms_path(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_lexval) return adms_lexval_uid(adms_lexval(myitem)); if(dataTypeName==adms_adms_enumeration_datatypename_yaccval) return adms_yaccval_uid(adms_yaccval(myitem)); adms_message_fatal_continue(("%s:%i: internal error - should not be reached\n",__FILE__,__LINE__)) return NULL; } p_new adms_admsxml_new (p_admsttransform myadmsttransform) { char*dataTypeName=myadmsttransform->_zzdatatype?myadmsttransform->_zzdatatype->_value:"unknown"; if(!strcmp(dataTypeName,"simulator")) return (p_new) adms_simulator_new_impl; if(!strcmp(dataTypeName,"admsmain")) return (p_new) adms_admsmain_new_impl; if(!strcmp(dataTypeName,"attribute")) return (p_new) adms_attribute_new_impl; if(!strcmp(dataTypeName,"enumeration")) return (p_new) adms_enumeration_new_impl; if(!strcmp(dataTypeName,"integer")) return (p_new) adms_integer_new_impl; if(!strcmp(dataTypeName,"real")) return (p_new) adms_real_new_impl; if(!strcmp(dataTypeName,"quark")) return (p_new) adms_quark_new_impl; if(!strcmp(dataTypeName,"list")) return (p_new) adms_list_new_impl; if(!strcmp(dataTypeName,"nature")) return (p_new) adms_nature_new_impl; if(!strcmp(dataTypeName,"discipline")) return (p_new) adms_discipline_new_impl; if(!strcmp(dataTypeName,"module")) return (p_new) adms_module_new_impl; if(!strcmp(dataTypeName,"analogfunction")) return (p_new) adms_analogfunction_new_impl; if(!strcmp(dataTypeName,"nodealias")) return (p_new) adms_nodealias_new_impl; if(!strcmp(dataTypeName,"node")) return (p_new) adms_node_new_impl; if(!strcmp(dataTypeName,"branchalias")) return (p_new) adms_branchalias_new_impl; if(!strcmp(dataTypeName,"branch")) return (p_new) adms_branch_new_impl; if(!strcmp(dataTypeName,"source")) return (p_new) adms_source_new_impl; if(!strcmp(dataTypeName,"range")) return (p_new) adms_range_new_impl; if(!strcmp(dataTypeName,"jacobian")) return (p_new) adms_jacobian_new_impl; if(!strcmp(dataTypeName,"analog")) return (p_new) adms_analog_new_impl; if(!strcmp(dataTypeName,"math")) return (p_new) adms_math_new_impl; if(!strcmp(dataTypeName,"string")) return (p_new) adms_string_new_impl; if(!strcmp(dataTypeName,"subexpression")) return (p_new) adms_subexpression_new_impl; if(!strcmp(dataTypeName,"mapply_unary")) return (p_new) adms_mapply_unary_new_impl; if(!strcmp(dataTypeName,"mapply_binary")) return (p_new) adms_mapply_binary_new_impl; if(!strcmp(dataTypeName,"mapply_ternary")) return (p_new) adms_mapply_ternary_new_impl; if(!strcmp(dataTypeName,"number")) return (p_new) adms_number_new_impl; if(!strcmp(dataTypeName,"function")) return (p_new) adms_function_new_impl; if(!strcmp(dataTypeName,"variable")) return (p_new) adms_variable_new_impl; if(!strcmp(dataTypeName,"probe")) return (p_new) adms_probe_new_impl; if(!strcmp(dataTypeName,"expression")) return (p_new) adms_expression_new_impl; if(!strcmp(dataTypeName,"instance")) return (p_new) adms_instance_new_impl; if(!strcmp(dataTypeName,"instanceparameter")) return (p_new) adms_instanceparameter_new_impl; if(!strcmp(dataTypeName,"instancenode")) return (p_new) adms_instancenode_new_impl; if(!strcmp(dataTypeName,"nilled")) return (p_new) adms_nilled_new_impl; if(!strcmp(dataTypeName,"assignment")) return (p_new) adms_assignment_new_impl; if(!strcmp(dataTypeName,"contribution")) return (p_new) adms_contribution_new_impl; if(!strcmp(dataTypeName,"conditional")) return (p_new) adms_conditional_new_impl; if(!strcmp(dataTypeName,"whileloop")) return (p_new) adms_whileloop_new_impl; if(!strcmp(dataTypeName,"case")) return (p_new) adms_case_new_impl; if(!strcmp(dataTypeName,"caseitem")) return (p_new) adms_caseitem_new_impl; if(!strcmp(dataTypeName,"blockvariable")) return (p_new) adms_blockvariable_new_impl; if(!strcmp(dataTypeName,"block")) return (p_new) adms_block_new_impl; if(!strcmp(dataTypeName,"callfunction")) return (p_new) adms_callfunction_new_impl; if(!strcmp(dataTypeName,"evaluation")) return (p_new) adms_evaluation_new_impl; if(!strcmp(dataTypeName,"admsttext")) return (p_new) adms_admsttext_new_impl; if(!strcmp(dataTypeName,"admstpath")) return (p_new) adms_admstpath_new_impl; if(!strcmp(dataTypeName,"admstpathgoto")) return (p_new) adms_admstpathgoto_new_impl; if(!strcmp(dataTypeName,"admstpathevaluate")) return (p_new) adms_admstpathevaluate_new_impl; if(!strcmp(dataTypeName,"admstpathparser")) return (p_new) adms_admstpathparser_new_impl; if(!strcmp(dataTypeName,"admst")) return (p_new) adms_admst_new_impl; if(!strcmp(dataTypeName,"admsttransformattribute")) return (p_new) adms_admsttransformattribute_new_impl; if(!strcmp(dataTypeName,"admsttransform")) return (p_new) adms_admsttransform_new_impl; if(!strcmp(dataTypeName,"instanceofadmsttransform")) return (p_new) adms_instanceofadmsttransform_new_impl; if(!strcmp(dataTypeName,"admstvariable")) return (p_new) adms_admstvariable_new_impl; if(!strcmp(dataTypeName,"path")) return (p_new) adms_path_new_impl; if(!strcmp(dataTypeName,"lexval")) return (p_new) adms_lexval_new_impl; if(!strcmp(dataTypeName,"yaccval")) return (p_new) adms_yaccval_new_impl; adms_message_fatal_continue(("%s: missing element %s\n",myadmsttransform->_zzdatatype->_value)) adms_message_fatal(("see %s\n",adms_admsttransform_uid(myadmsttransform))) return NULL; } p_cmp adms_admsxml_cmp (p_admst myadmst) { int dataTypeName=myadmst->_item->_datatypename; if(dataTypeName==adms_adms_enumeration_datatypename_simulator) return (p_cmp)adms_simulator_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admsmain) return (p_cmp)adms_admsmain_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_attribute) return (p_cmp)adms_attribute_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_enumeration) return (p_cmp)adms_enumeration_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_integer) return (p_cmp)adms_integer_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_real) return (p_cmp)adms_real_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_quark) return (p_cmp)adms_quark_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_list) return (p_cmp)adms_list_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_nature) return (p_cmp)adms_nature_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_discipline) return (p_cmp)adms_discipline_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_module) return (p_cmp)adms_module_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_analogfunction) return (p_cmp)adms_analogfunction_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_nodealias) return (p_cmp)adms_nodealias_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_node) return (p_cmp)adms_node_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_branchalias) return (p_cmp)adms_branchalias_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_branch) return (p_cmp)adms_branch_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_source) return (p_cmp)adms_source_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_range) return (p_cmp)adms_range_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_jacobian) return (p_cmp)adms_jacobian_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_analog) return (p_cmp)adms_analog_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_math) return (p_cmp)adms_math_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_string) return (p_cmp)adms_string_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_subexpression) return (p_cmp)adms_subexpression_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_mapply_unary) return (p_cmp)adms_mapply_unary_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_mapply_binary) return (p_cmp)adms_mapply_binary_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_mapply_ternary) return (p_cmp)adms_mapply_ternary_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_number) return (p_cmp)adms_number_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_function) return (p_cmp)adms_function_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_variable) return (p_cmp)adms_variable_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_probe) return (p_cmp)adms_probe_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_expression) return (p_cmp)adms_expression_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_instance) return (p_cmp)adms_instance_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_instanceparameter) return (p_cmp)adms_instanceparameter_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_instancenode) return (p_cmp)adms_instancenode_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_nilled) return (p_cmp)adms_nilled_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_assignment) return (p_cmp)adms_assignment_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_contribution) return (p_cmp)adms_contribution_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_conditional) return (p_cmp)adms_conditional_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_whileloop) return (p_cmp)adms_whileloop_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_case) return (p_cmp)adms_case_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_caseitem) return (p_cmp)adms_caseitem_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_blockvariable) return (p_cmp)adms_blockvariable_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_block) return (p_cmp)adms_block_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_callfunction) return (p_cmp)adms_callfunction_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_evaluation) return (p_cmp)adms_evaluation_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admsttext) return (p_cmp)adms_admsttext_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admstpath) return (p_cmp)adms_admstpath_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admstpathgoto) return (p_cmp)adms_admstpathgoto_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admstpathevaluate) return (p_cmp)adms_admstpathevaluate_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admstpathparser) return (p_cmp)adms_admstpathparser_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admst) return (p_cmp)adms_admst_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admsttransformattribute) return (p_cmp)adms_admsttransformattribute_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admsttransform) return (p_cmp)adms_admsttransform_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_instanceofadmsttransform) return (p_cmp)adms_instanceofadmsttransform_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_admstvariable) return (p_cmp)adms_admstvariable_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_path) return (p_cmp)adms_path_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_lexval) return (p_cmp)adms_lexval_cmp; if(dataTypeName==adms_adms_enumeration_datatypename_yaccval) return (p_cmp)adms_yaccval_cmp; adms_message_fatal_continue(("%s:%i: internal error - should not be reached\n",__FILE__,__LINE__)) return NULL; } const char** adms_admsxml_allattribute (p_admst myadmst) { int dataTypeName=myadmst->_item->_datatypename; if(dataTypeName==adms_adms_enumeration_datatypename_simulator) return adms_element_simulator_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admsmain) return adms_element_admsmain_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_attribute) return adms_element_attribute_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_enumeration) return adms_element_enumeration_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_integer) return adms_element_integer_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_real) return adms_element_real_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_quark) return adms_element_quark_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_list) return adms_element_list_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_nature) return adms_element_nature_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_discipline) return adms_element_discipline_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_module) return adms_element_module_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_analogfunction) return adms_element_analogfunction_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_nodealias) return adms_element_nodealias_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_node) return adms_element_node_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_branchalias) return adms_element_branchalias_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_branch) return adms_element_branch_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_source) return adms_element_source_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_range) return adms_element_range_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_jacobian) return adms_element_jacobian_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_analog) return adms_element_analog_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_math) return adms_element_math_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_string) return adms_element_string_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_subexpression) return adms_element_subexpression_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_mapply_unary) return adms_element_mapply_unary_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_mapply_binary) return adms_element_mapply_binary_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_mapply_ternary) return adms_element_mapply_ternary_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_number) return adms_element_number_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_function) return adms_element_function_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_variable) return adms_element_variable_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_probe) return adms_element_probe_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_expression) return adms_element_expression_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_instance) return adms_element_instance_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_instanceparameter) return adms_element_instanceparameter_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_instancenode) return adms_element_instancenode_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_nilled) return adms_element_nilled_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_assignment) return adms_element_assignment_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_contribution) return adms_element_contribution_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_conditional) return adms_element_conditional_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_whileloop) return adms_element_whileloop_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_case) return adms_element_case_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_caseitem) return adms_element_caseitem_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_blockvariable) return adms_element_blockvariable_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_block) return adms_element_block_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_callfunction) return adms_element_callfunction_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_evaluation) return adms_element_evaluation_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admsttext) return adms_element_admsttext_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admstpath) return adms_element_admstpath_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admstpathgoto) return adms_element_admstpathgoto_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admstpathevaluate) return adms_element_admstpathevaluate_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admstpathparser) return adms_element_admstpathparser_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admst) return adms_element_admst_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admsttransformattribute) return adms_element_admsttransformattribute_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admsttransform) return adms_element_admsttransform_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_instanceofadmsttransform) return adms_element_instanceofadmsttransform_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_admstvariable) return adms_element_admstvariable_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_path) return adms_element_path_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_lexval) return adms_element_lexval_allattribute; if(dataTypeName==adms_adms_enumeration_datatypename_yaccval) return adms_element_yaccval_allattribute; adms_message_fatal_continue(("%s:%i: internal error - should not be reached\n",__FILE__,__LINE__)) return NULL; }