/* ------- code automatically created by ../scripts/adms_build_object.pl -------------- */ #include #include inline void adms_adms_free(p_adms myadms) { if(!myadms) return; adms_global_increment_nbadmsdestroy(); free(myadms); } int adms_adms_cmp (p_adms myadms,p_adms refadms) { int status; status = ( (adms_adms_valueof_datatypename (myadms) != adms_adms_valueof_datatypename (refadms)) ); return status; } inline void adms_adms_valueto_datatypename (p_adms myadms,e_adms_datatypename _datatypename) { myadms->_datatypename=_datatypename; myadms->_datatypename_isdefault=0; } inline void adms_adms_valueto_seen (p_adms myadms,e_adms_seen _seen) { myadms->_seen=_seen; myadms->_seen_isdefault=0; } inline void adms_adms_valueto_used (p_adms myadms,int _used) { myadms->_used=_used; myadms->_used_isdefault=0; } e_adms_datatypename adms_adms_fromstring_datatypename_impl (p_admsttransform myadmsttransform,char*token) { if(!strcmp(token,"_empty")) return adms_adms_enumeration_datatypename__empty; if(!strcmp(token,"_star")) return adms_adms_enumeration_datatypename__star; if(!strcmp(token,"adms")) return adms_adms_enumeration_datatypename_adms; if(!strcmp(token,"admsmain")) return adms_adms_enumeration_datatypename_admsmain; if(!strcmp(token,"admst")) return adms_adms_enumeration_datatypename_admst; if(!strcmp(token,"admstpath")) return adms_adms_enumeration_datatypename_admstpath; if(!strcmp(token,"admstpathevaluate")) return adms_adms_enumeration_datatypename_admstpathevaluate; if(!strcmp(token,"admstpathgoto")) return adms_adms_enumeration_datatypename_admstpathgoto; if(!strcmp(token,"admstpathparser")) return adms_adms_enumeration_datatypename_admstpathparser; if(!strcmp(token,"admsttext")) return adms_adms_enumeration_datatypename_admsttext; if(!strcmp(token,"admsttransform")) return adms_adms_enumeration_datatypename_admsttransform; if(!strcmp(token,"admsttransformattribute")) return adms_adms_enumeration_datatypename_admsttransformattribute; if(!strcmp(token,"admstvariable")) return adms_adms_enumeration_datatypename_admstvariable; if(!strcmp(token,"analog")) return adms_adms_enumeration_datatypename_analog; if(!strcmp(token,"analogfunction")) return adms_adms_enumeration_datatypename_analogfunction; if(!strcmp(token,"assignment")) return adms_adms_enumeration_datatypename_assignment; if(!strcmp(token,"attribute")) return adms_adms_enumeration_datatypename_attribute; if(!strcmp(token,"block")) return adms_adms_enumeration_datatypename_block; if(!strcmp(token,"blockvariable")) return adms_adms_enumeration_datatypename_blockvariable; if(!strcmp(token,"branch")) return adms_adms_enumeration_datatypename_branch; if(!strcmp(token,"branchalias")) return adms_adms_enumeration_datatypename_branchalias; if(!strcmp(token,"callfunction")) return adms_adms_enumeration_datatypename_callfunction; if(!strcmp(token,"case")) return adms_adms_enumeration_datatypename_case; if(!strcmp(token,"caseitem")) return adms_adms_enumeration_datatypename_caseitem; if(!strcmp(token,"conditional")) return adms_adms_enumeration_datatypename_conditional; if(!strcmp(token,"contribution")) return adms_adms_enumeration_datatypename_contribution; if(!strcmp(token,"discipline")) return adms_adms_enumeration_datatypename_discipline; if(!strcmp(token,"enumeration")) return adms_adms_enumeration_datatypename_enumeration; if(!strcmp(token,"evaluation")) return adms_adms_enumeration_datatypename_evaluation; if(!strcmp(token,"expression")) return adms_adms_enumeration_datatypename_expression; if(!strcmp(token,"function")) return adms_adms_enumeration_datatypename_function; if(!strcmp(token,"instance")) return adms_adms_enumeration_datatypename_instance; if(!strcmp(token,"instancenode")) return adms_adms_enumeration_datatypename_instancenode; if(!strcmp(token,"instanceofadmsttransform")) return adms_adms_enumeration_datatypename_instanceofadmsttransform; if(!strcmp(token,"instanceparameter")) return adms_adms_enumeration_datatypename_instanceparameter; if(!strcmp(token,"integer")) return adms_adms_enumeration_datatypename_integer; if(!strcmp(token,"jacobian")) return adms_adms_enumeration_datatypename_jacobian; if(!strcmp(token,"lexval")) return adms_adms_enumeration_datatypename_lexval; if(!strcmp(token,"list")) return adms_adms_enumeration_datatypename_list; if(!strcmp(token,"mapply_binary")) return adms_adms_enumeration_datatypename_mapply_binary; if(!strcmp(token,"mapply_ternary")) return adms_adms_enumeration_datatypename_mapply_ternary; if(!strcmp(token,"mapply_unary")) return adms_adms_enumeration_datatypename_mapply_unary; if(!strcmp(token,"math")) return adms_adms_enumeration_datatypename_math; if(!strcmp(token,"module")) return adms_adms_enumeration_datatypename_module; if(!strcmp(token,"nature")) return adms_adms_enumeration_datatypename_nature; if(!strcmp(token,"nilled")) return adms_adms_enumeration_datatypename_nilled; if(!strcmp(token,"node")) return adms_adms_enumeration_datatypename_node; if(!strcmp(token,"nodealias")) return adms_adms_enumeration_datatypename_nodealias; if(!strcmp(token,"number")) return adms_adms_enumeration_datatypename_number; if(!strcmp(token,"path")) return adms_adms_enumeration_datatypename_path; if(!strcmp(token,"probe")) return adms_adms_enumeration_datatypename_probe; if(!strcmp(token,"quark")) return adms_adms_enumeration_datatypename_quark; if(!strcmp(token,"range")) return adms_adms_enumeration_datatypename_range; if(!strcmp(token,"real")) return adms_adms_enumeration_datatypename_real; if(!strcmp(token,"simulator")) return adms_adms_enumeration_datatypename_simulator; if(!strcmp(token,"source")) return adms_adms_enumeration_datatypename_source; if(!strcmp(token,"string")) return adms_adms_enumeration_datatypename_string; if(!strcmp(token,"subexpression")) return adms_adms_enumeration_datatypename_subexpression; if(!strcmp(token,"variable")) return adms_adms_enumeration_datatypename_variable; if(!strcmp(token,"void")) return adms_adms_enumeration_datatypename_void; if(!strcmp(token,"whileloop")) return adms_adms_enumeration_datatypename_whileloop; if(!strcmp(token,"yaccval")) return adms_adms_enumeration_datatypename_yaccval; adms_message_fatal_continue(("select='adms/datatypename': possible values:\n")) adms_message_fatal_continue(("_empty|_star|adms|admsmain|admst|admstpath|admstpathevaluate|admstpathgoto|admstpathparser|admsttext|admsttransform|admsttransformattribute|admstvariable|analog|analogfunction|assignment|attribute|block|blockvariable|branch|branchalias|callfunction|case|caseitem|conditional|contribution|discipline|enumeration|evaluation|expression|function|instance|instancenode|instanceofadmsttransform|instanceparameter|integer|jacobian|lexval|list|mapply_binary|mapply_ternary|mapply_unary|math|module|nature|nilled|node|nodealias|number|path|probe|quark|range|real|simulator|source|string|subexpression|variable|void|whileloop|yaccval\n")) adms_message_fatal(("see %s\n",adms_admsttransform_uid(myadmsttransform))) return 0; } char* adms_adms_tostring_datatypename_impl (p_admsttransform myadmsttransform,e_adms_datatypename e) { if(e==adms_adms_enumeration_datatypename__empty) return "_empty"; if(e==adms_adms_enumeration_datatypename__star) return "_star"; if(e==adms_adms_enumeration_datatypename_adms) return "adms"; if(e==adms_adms_enumeration_datatypename_admsmain) return "admsmain"; if(e==adms_adms_enumeration_datatypename_admst) return "admst"; if(e==adms_adms_enumeration_datatypename_admstpath) return "admstpath"; if(e==adms_adms_enumeration_datatypename_admstpathevaluate) return "admstpathevaluate"; if(e==adms_adms_enumeration_datatypename_admstpathgoto) return "admstpathgoto"; if(e==adms_adms_enumeration_datatypename_admstpathparser) return "admstpathparser"; if(e==adms_adms_enumeration_datatypename_admsttext) return "admsttext"; if(e==adms_adms_enumeration_datatypename_admsttransform) return "admsttransform"; if(e==adms_adms_enumeration_datatypename_admsttransformattribute) return "admsttransformattribute"; if(e==adms_adms_enumeration_datatypename_admstvariable) return "admstvariable"; if(e==adms_adms_enumeration_datatypename_analog) return "analog"; if(e==adms_adms_enumeration_datatypename_analogfunction) return "analogfunction"; if(e==adms_adms_enumeration_datatypename_assignment) return "assignment"; if(e==adms_adms_enumeration_datatypename_attribute) return "attribute"; if(e==adms_adms_enumeration_datatypename_block) return "block"; if(e==adms_adms_enumeration_datatypename_blockvariable) return "blockvariable"; if(e==adms_adms_enumeration_datatypename_branch) return "branch"; if(e==adms_adms_enumeration_datatypename_branchalias) return "branchalias"; if(e==adms_adms_enumeration_datatypename_callfunction) return "callfunction"; if(e==adms_adms_enumeration_datatypename_case) return "case"; if(e==adms_adms_enumeration_datatypename_caseitem) return "caseitem"; if(e==adms_adms_enumeration_datatypename_conditional) return "conditional"; if(e==adms_adms_enumeration_datatypename_contribution) return "contribution"; if(e==adms_adms_enumeration_datatypename_discipline) return "discipline"; if(e==adms_adms_enumeration_datatypename_enumeration) return "enumeration"; if(e==adms_adms_enumeration_datatypename_evaluation) return "evaluation"; if(e==adms_adms_enumeration_datatypename_expression) return "expression"; if(e==adms_adms_enumeration_datatypename_function) return "function"; if(e==adms_adms_enumeration_datatypename_instance) return "instance"; if(e==adms_adms_enumeration_datatypename_instancenode) return "instancenode"; if(e==adms_adms_enumeration_datatypename_instanceofadmsttransform) return "instanceofadmsttransform"; if(e==adms_adms_enumeration_datatypename_instanceparameter) return "instanceparameter"; if(e==adms_adms_enumeration_datatypename_integer) return "integer"; if(e==adms_adms_enumeration_datatypename_jacobian) return "jacobian"; if(e==adms_adms_enumeration_datatypename_lexval) return "lexval"; if(e==adms_adms_enumeration_datatypename_list) return "list"; if(e==adms_adms_enumeration_datatypename_mapply_binary) return "mapply_binary"; if(e==adms_adms_enumeration_datatypename_mapply_ternary) return "mapply_ternary"; if(e==adms_adms_enumeration_datatypename_mapply_unary) return "mapply_unary"; if(e==adms_adms_enumeration_datatypename_math) return "math"; if(e==adms_adms_enumeration_datatypename_module) return "module"; if(e==adms_adms_enumeration_datatypename_nature) return "nature"; if(e==adms_adms_enumeration_datatypename_nilled) return "nilled"; if(e==adms_adms_enumeration_datatypename_node) return "node"; if(e==adms_adms_enumeration_datatypename_nodealias) return "nodealias"; if(e==adms_adms_enumeration_datatypename_number) return "number"; if(e==adms_adms_enumeration_datatypename_path) return "path"; if(e==adms_adms_enumeration_datatypename_probe) return "probe"; if(e==adms_adms_enumeration_datatypename_quark) return "quark"; if(e==adms_adms_enumeration_datatypename_range) return "range"; if(e==adms_adms_enumeration_datatypename_real) return "real"; if(e==adms_adms_enumeration_datatypename_simulator) return "simulator"; if(e==adms_adms_enumeration_datatypename_source) return "source"; if(e==adms_adms_enumeration_datatypename_string) return "string"; if(e==adms_adms_enumeration_datatypename_subexpression) return "subexpression"; if(e==adms_adms_enumeration_datatypename_variable) return "variable"; if(e==adms_adms_enumeration_datatypename_void) return "void"; if(e==adms_adms_enumeration_datatypename_whileloop) return "whileloop"; if(e==adms_adms_enumeration_datatypename_yaccval) return "yaccval"; adms_message_fatal_continue(("select='adms/datatypename': possible values:\n")) adms_message_fatal_continue(("_empty|_star|adms|admsmain|admst|admstpath|admstpathevaluate|admstpathgoto|admstpathparser|admsttext|admsttransform|admsttransformattribute|admstvariable|analog|analogfunction|assignment|attribute|block|blockvariable|branch|branchalias|callfunction|case|caseitem|conditional|contribution|discipline|enumeration|evaluation|expression|function|instance|instancenode|instanceofadmsttransform|instanceparameter|integer|jacobian|lexval|list|mapply_binary|mapply_ternary|mapply_unary|math|module|nature|nilled|node|nodealias|number|path|probe|quark|range|real|simulator|source|string|subexpression|variable|void|whileloop|yaccval\n")) adms_message_fatal(("see %s\n",adms_admsttransform_uid(myadmsttransform))) return NULL; } e_adms_seen adms_adms_fromstring_seen_impl (p_admsttransform myadmsttransform,char*token) { if(!strcmp(token,"no")) return adms_adms_enumeration_seen_no; if(!strcmp(token,"yes")) return adms_adms_enumeration_seen_yes; adms_message_fatal_continue(("select='adms/seen': possible values:\n")) adms_message_fatal_continue(("no|yes\n")) adms_message_fatal(("see %s\n",adms_admsttransform_uid(myadmsttransform))) return 0; } char* adms_adms_tostring_seen_impl (p_admsttransform myadmsttransform,e_adms_seen e) { if(e==adms_adms_enumeration_seen_no) return "no"; if(e==adms_adms_enumeration_seen_yes) return "yes"; adms_message_fatal_continue(("select='adms/seen': possible values:\n")) adms_message_fatal_continue(("no|yes\n")) adms_message_fatal(("see %s\n",adms_admsttransform_uid(myadmsttransform))) return NULL; }