[adms] 09/09: merge patched-debian into debian
felix salfelder
felix-guest at moszumanska.debian.org
Fri May 16 13:52:52 UTC 2014
This is an automated email from the git hooks/post-receive script.
felix-guest pushed a commit to branch debian
in repository adms.
commit 7d0cdac68aad7b5913fa325dd44243177f21c566
Merge: c75055f 88a755f
Author: Felix Salfelder <felix at em.cs.uni-frankfurt.de>
Date: Fri May 16 15:50:11 2014 +0200
merge patched-debian into debian
README.md => README | 0
admsXml/Makefile.am | 14 +-
admsXml/Makefile.in | 973 -
admsXml/adms.h | 3410 --
admsXml/admstpathYacc.y | 14756 --------
admsXml/mkelements.pl | 2 +-
admsXml/preprocessorLex.c | 3196 --
admsXml/preprocessorYacc.c | 2688 --
admsXml/preprocessorYacc.h | 124 -
admsXml/preprocessorYacc.y | 2 +-
admsXml/verilogaLex.c | 2510 --
admsXml/verilogaLex.l | 2 +-
admsXml/verilogaYacc.c | 5088 ---
admsXml/verilogaYacc.h | 144 -
admsXml/verilogaYacc.y | 2315 --
admsXml/verilogaYacc.y.in | 2 +-
debian/.git-dpm | 4 +-
.../patches/0003-remove-autogenerated-files.patch | 35293 +++++++++++++++++++
debian/patches/0004-move-readme-file.patch | 408 +
debian/patches/0005-fix-Makefile.am.patch | 56 +
...fix-to-header-created-from-verilogaYacc.y.patch | 22 +
.../0007-repair-syntax-in-yacc-input-files.patch | 44 +
debian/patches/series | 5 +
23 files changed, 35840 insertions(+), 35218 deletions(-)
diff --cc debian/.git-dpm
index b9bb1c8,0000000..55aa511
mode 100644,000000..100644
--- a/debian/.git-dpm
+++ b/debian/.git-dpm
@@@ -1,8 -1,0 +1,8 @@@
+# see git-dpm(1) from git-dpm package
- f3076babc6fc67d9eb6d106533ed3933e536d4cd
- f3076babc6fc67d9eb6d106533ed3933e536d4cd
++88a755fc617c45ecaa6a634493a55ad799f563f8
++88a755fc617c45ecaa6a634493a55ad799f563f8
+e39eabea3d6d46e117ef329fcec4228cd65dd76e
+e39eabea3d6d46e117ef329fcec4228cd65dd76e
+adms_2.3.2.orig.tar.gz
+ada4bcc90903a8b8bd698a888ee432a540fd42f5
+775414
diff --cc debian/patches/0003-remove-autogenerated-files.patch
index 0000000,0000000..476c5eb
new file mode 100644
--- /dev/null
+++ b/debian/patches/0003-remove-autogenerated-files.patch
@@@ -1,0 -1,0 +1,35293 @@@
++From cccb3dcdf010fbf00181cf4a15f3a33219a8445d Mon Sep 17 00:00:00 2001
++From: Felix Salfelder <felix at em.cs.uni-frankfurt.de>
++Date: Thu, 15 May 2014 13:29:14 +0200
++Subject: remove autogenerated files
++
++argh, they always get in my way
++---
++ admsXml/Makefile.in | 973 ---
++ admsXml/adms.h | 3410 ----------
++ admsXml/admstpathYacc.y | 14756 -------------------------------------------
++ admsXml/preprocessorLex.c | 3196 ----------
++ admsXml/preprocessorYacc.c | 2688 --------
++ admsXml/preprocessorYacc.h | 124 -
++ admsXml/verilogaLex.c | 2510 --------
++ admsXml/verilogaYacc.c | 5088 ---------------
++ admsXml/verilogaYacc.h | 144 -
++ admsXml/verilogaYacc.y | 2315 -------
++ 10 files changed, 35204 deletions(-)
++ delete mode 100644 admsXml/Makefile.in
++ delete mode 100644 admsXml/adms.h
++ delete mode 100644 admsXml/admstpathYacc.y
++ delete mode 100644 admsXml/preprocessorLex.c
++ delete mode 100644 admsXml/preprocessorYacc.c
++ delete mode 100644 admsXml/preprocessorYacc.h
++ delete mode 100644 admsXml/verilogaLex.c
++ delete mode 100644 admsXml/verilogaYacc.c
++ delete mode 100644 admsXml/verilogaYacc.h
++ delete mode 100644 admsXml/verilogaYacc.y
++
++diff --git a/admsXml/Makefile.in b/admsXml/Makefile.in
++deleted file mode 100644
++index a59d00b..0000000
++--- a/admsXml/Makefile.in
+++++ /dev/null
++@@ -1,973 +0,0 @@
++-# Makefile.in generated by automake 1.14.1 from Makefile.am.
++-# @configure_input@
++-
++-# Copyright (C) 1994-2013 Free Software Foundation, Inc.
++-
++-# This Makefile.in is free software; the Free Software Foundation
++-# gives unlimited permission to copy and/or distribute it,
++-# with or without modifications, as long as this notice is preserved.
++-
++-# This program is distributed in the hope that it will be useful,
++-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
++-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
++-# PARTICULAR PURPOSE.
++-
++- at SET_MAKE@
++-
++-
++-VPATH = @srcdir@
++-am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)'
++-am__make_running_with_option = \
++- case $${target_option-} in \
++- ?) ;; \
++- *) echo "am__make_running_with_option: internal error: invalid" \
++- "target option '$${target_option-}' specified" >&2; \
++- exit 1;; \
++- esac; \
++- has_opt=no; \
++- sane_makeflags=$$MAKEFLAGS; \
++- if $(am__is_gnu_make); then \
++- sane_makeflags=$$MFLAGS; \
++- else \
++- case $$MAKEFLAGS in \
++- *\\[\ \ ]*) \
++- bs=\\; \
++- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
++- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
++- esac; \
++- fi; \
++- skip_next=no; \
++- strip_trailopt () \
++- { \
++- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
++- }; \
++- for flg in $$sane_makeflags; do \
++- test $$skip_next = yes && { skip_next=no; continue; }; \
++- case $$flg in \
++- *=*|--*) continue;; \
++- -*I) strip_trailopt 'I'; skip_next=yes;; \
++- -*I?*) strip_trailopt 'I';; \
++- -*O) strip_trailopt 'O'; skip_next=yes;; \
++- -*O?*) strip_trailopt 'O';; \
++- -*l) strip_trailopt 'l'; skip_next=yes;; \
++- -*l?*) strip_trailopt 'l';; \
++- -[dEDm]) skip_next=yes;; \
++- -[JT]) skip_next=yes;; \
++- esac; \
++- case $$flg in \
++- *$$target_option*) has_opt=yes; break;; \
++- esac; \
++- done; \
++- test $$has_opt = yes
++-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
++-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
++-pkgdatadir = $(datadir)/@PACKAGE@
++-pkgincludedir = $(includedir)/@PACKAGE@
++-pkglibdir = $(libdir)/@PACKAGE@
++-pkglibexecdir = $(libexecdir)/@PACKAGE@
++-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
++-install_sh_DATA = $(install_sh) -c -m 644
++-install_sh_PROGRAM = $(install_sh) -c
++-install_sh_SCRIPT = $(install_sh) -c
++-INSTALL_HEADER = $(INSTALL_DATA)
++-transform = $(program_transform_name)
++-NORMAL_INSTALL = :
++-PRE_INSTALL = :
++-POST_INSTALL = :
++-NORMAL_UNINSTALL = :
++-PRE_UNINSTALL = :
++-POST_UNINSTALL = :
++-build_triplet = @build@
++-host_triplet = @host@
++-bin_PROGRAMS = admsXml$(EXEEXT)
++-noinst_PROGRAMS = admsCheck$(EXEEXT)
++-subdir = admsXml
++-DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am \
++- admstpathYacc.c preprocessorLex.c preprocessorYacc.c \
++- verilogaYacc.c verilogaLex.c $(top_srcdir)/auxconf/depcomp \
++- $(top_srcdir)/auxconf/ylwrap $(dist_man_MANS)
++-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
++-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_append_flag.m4 \
++- $(top_srcdir)/m4/ax_cflags_warn_all.m4 \
++- $(top_srcdir)/m4/ax_compare_version.m4 \
++- $(top_srcdir)/m4/ax_compiler_vendor.m4 \
++- $(top_srcdir)/m4/ax_perl_module_version.m4 \
++- $(top_srcdir)/m4/ax_prog_bison.m4 \
++- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/libtool.m4 \
++- $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
++- $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
++- $(top_srcdir)/configure.ac
++-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
++- $(ACLOCAL_M4)
++-mkinstalldirs = $(install_sh) -d
++-CONFIG_HEADER = $(top_builddir)/config.h
++-CONFIG_CLEAN_FILES =
++-CONFIG_CLEAN_VPATH_FILES =
++-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
++-am__vpath_adj = case $$p in \
++- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
++- *) f=$$p;; \
++- esac;
++-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
++-am__install_max = 40
++-am__nobase_strip_setup = \
++- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
++-am__nobase_strip = \
++- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
++-am__nobase_list = $(am__nobase_strip_setup); \
++- for p in $$list; do echo "$$p $$p"; done | \
++- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
++- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
++- if (++n[$$2] == $(am__install_max)) \
++- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
++- END { for (dir in files) print dir, files[dir] }'
++-am__base_list = \
++- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
++- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
++-am__uninstall_files_from_dir = { \
++- test -z "$$files" \
++- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
++- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
++- $(am__cd) "$$dir" && rm -f $$files; }; \
++- }
++-am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" \
++- "$(DESTDIR)$(man1dir)"
++-LTLIBRARIES = $(lib_LTLIBRARIES)
++-libadmsAdmstpath_la_DEPENDENCIES = libadmsElement.la
++-am_libadmsAdmstpath_la_OBJECTS = libadmsAdmstpath_la-admstpathYacc.lo
++-libadmsAdmstpath_la_OBJECTS = $(am_libadmsAdmstpath_la_OBJECTS)
++-AM_V_lt = $(am__v_lt_ at AM_V@)
++-am__v_lt_ = $(am__v_lt_ at AM_DEFAULT_V@)
++-am__v_lt_0 = --silent
++-am__v_lt_1 =
++-libadmsAdmstpath_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC \
++- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \
++- $(AM_CFLAGS) $(CFLAGS) $(libadmsAdmstpath_la_LDFLAGS) \
++- $(LDFLAGS) -o $@
++-libadmsElement_la_LIBADD =
++-am_libadmsElement_la_OBJECTS = libadmsElement_la-adms.lo
++-libadmsElement_la_OBJECTS = $(am_libadmsElement_la_OBJECTS)
++-libadmsElement_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC \
++- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \
++- $(AM_CFLAGS) $(CFLAGS) $(libadmsElement_la_LDFLAGS) $(LDFLAGS) \
++- -o $@
++-libadmsPreprocessor_la_DEPENDENCIES = libadmsElement.la
++-am_libadmsPreprocessor_la_OBJECTS = \
++- libadmsPreprocessor_la-preprocessorLex.lo \
++- libadmsPreprocessor_la-preprocessorMain.lo \
++- libadmsPreprocessor_la-preprocessorYacc.lo
++-libadmsPreprocessor_la_OBJECTS = $(am_libadmsPreprocessor_la_OBJECTS)
++-libadmsPreprocessor_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC \
++- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \
++- $(AM_CFLAGS) $(CFLAGS) $(libadmsPreprocessor_la_LDFLAGS) \
++- $(LDFLAGS) -o $@
++-libadmsVeriloga_la_DEPENDENCIES = libadmsElement.la
++-am_libadmsVeriloga_la_OBJECTS = libadmsVeriloga_la-verilogaYacc.lo \
++- libadmsVeriloga_la-verilogaLex.lo
++-libadmsVeriloga_la_OBJECTS = $(am_libadmsVeriloga_la_OBJECTS)
++-libadmsVeriloga_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC \
++- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \
++- $(AM_CFLAGS) $(CFLAGS) $(libadmsVeriloga_la_LDFLAGS) \
++- $(LDFLAGS) -o $@
++-PROGRAMS = $(bin_PROGRAMS) $(noinst_PROGRAMS)
++-am_admsCheck_OBJECTS = admsCheck.$(OBJEXT)
++-admsCheck_OBJECTS = $(am_admsCheck_OBJECTS)
++-admsCheck_DEPENDENCIES = libadmsElement.la
++-am_admsXml_OBJECTS = admsXml.$(OBJEXT)
++-admsXml_OBJECTS = $(am_admsXml_OBJECTS)
++-admsXml_DEPENDENCIES = libadmsElement.la libadmsVeriloga.la \
++- libadmsPreprocessor.la libadmsAdmstpath.la
++-AM_V_P = $(am__v_P_ at AM_V@)
++-am__v_P_ = $(am__v_P_ at AM_DEFAULT_V@)
++-am__v_P_0 = false
++-am__v_P_1 = :
++-AM_V_GEN = $(am__v_GEN_ at AM_V@)
++-am__v_GEN_ = $(am__v_GEN_ at AM_DEFAULT_V@)
++-am__v_GEN_0 = @echo " GEN " $@;
++-am__v_GEN_1 =
++-AM_V_at = $(am__v_at_ at AM_V@)
++-am__v_at_ = $(am__v_at_ at AM_DEFAULT_V@)
++-am__v_at_0 = @
++-am__v_at_1 =
++-DEFAULT_INCLUDES = -I. at am__isrc@ -I$(top_builddir)
++-depcomp = $(SHELL) $(top_srcdir)/auxconf/depcomp
++-am__depfiles_maybe = depfiles
++-am__mv = mv -f
++-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
++- $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
++-LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
++- $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \
++- $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
++- $(AM_CFLAGS) $(CFLAGS)
++-AM_V_CC = $(am__v_CC_ at AM_V@)
++-am__v_CC_ = $(am__v_CC_ at AM_DEFAULT_V@)
++-am__v_CC_0 = @echo " CC " $@;
++-am__v_CC_1 =
++-CCLD = $(CC)
++-LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
++- $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
++- $(AM_LDFLAGS) $(LDFLAGS) -o $@
++-AM_V_CCLD = $(am__v_CCLD_ at AM_V@)
++-am__v_CCLD_ = $(am__v_CCLD_ at AM_DEFAULT_V@)
++-am__v_CCLD_0 = @echo " CCLD " $@;
++-am__v_CCLD_1 =
++- at MAINTAINER_MODE_FALSE@am__skiplex = test -f $@ ||
++-LEXCOMPILE = $(LEX) $(AM_LFLAGS) $(LFLAGS)
++-LTLEXCOMPILE = $(LIBTOOL) $(AM_V_lt) $(AM_LIBTOOLFLAGS) \
++- $(LIBTOOLFLAGS) --mode=compile $(LEX) $(AM_LFLAGS) $(LFLAGS)
++-AM_V_LEX = $(am__v_LEX_ at AM_V@)
++-am__v_LEX_ = $(am__v_LEX_ at AM_DEFAULT_V@)
++-am__v_LEX_0 = @echo " LEX " $@;
++-am__v_LEX_1 =
++-YLWRAP = $(top_srcdir)/auxconf/ylwrap
++- at MAINTAINER_MODE_FALSE@am__skipyacc = test -f $@ ||
++-am__yacc_c2h = sed -e s/cc$$/hh/ -e s/cpp$$/hpp/ -e s/cxx$$/hxx/ \
++- -e s/c++$$/h++/ -e s/c$$/h/
++-YACCCOMPILE = $(YACC) $(AM_YFLAGS) $(YFLAGS)
++-LTYACCCOMPILE = $(LIBTOOL) $(AM_V_lt) $(AM_LIBTOOLFLAGS) \
++- $(LIBTOOLFLAGS) --mode=compile $(YACC) $(AM_YFLAGS) $(YFLAGS)
++-AM_V_YACC = $(am__v_YACC_ at AM_V@)
++-am__v_YACC_ = $(am__v_YACC_ at AM_DEFAULT_V@)
++-am__v_YACC_0 = @echo " YACC " $@;
++-am__v_YACC_1 =
++-SOURCES = $(libadmsAdmstpath_la_SOURCES) $(libadmsElement_la_SOURCES) \
++- $(libadmsPreprocessor_la_SOURCES) \
++- $(libadmsVeriloga_la_SOURCES) $(admsCheck_SOURCES) \
++- $(admsXml_SOURCES)
++-DIST_SOURCES = $(libadmsAdmstpath_la_SOURCES) \
++- $(libadmsElement_la_SOURCES) $(libadmsPreprocessor_la_SOURCES) \
++- $(libadmsVeriloga_la_SOURCES) $(admsCheck_SOURCES) \
++- $(admsXml_SOURCES)
++-am__can_run_installinfo = \
++- case $$AM_UPDATE_INFO_DIR in \
++- n|no|NO) false;; \
++- *) (install-info --version) >/dev/null 2>&1;; \
++- esac
++-man1dir = $(mandir)/man1
++-NROFF = nroff
++-MANS = $(dist_man_MANS)
++-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
++-# Read a list of newline-separated strings from the standard input,
++-# and print each of them once, without duplicates. Input order is
++-# *not* preserved.
++-am__uniquify_input = $(AWK) '\
++- BEGIN { nonempty = 0; } \
++- { items[$$0] = 1; nonempty = 1; } \
++- END { if (nonempty) { for (i in items) print i; }; } \
++-'
++-# Make sure the list of sources is unique. This is necessary because,
++-# e.g., the same source file might be shared among _SOURCES variables
++-# for different programs/libraries.
++-am__define_uniq_tagged_files = \
++- list='$(am__tagged_files)'; \
++- unique=`for i in $$list; do \
++- if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
++- done | $(am__uniquify_input)`
++-ETAGS = etags
++-CTAGS = ctags
++-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
++-ACLOCAL = @ACLOCAL@
++-ALLOCA = @ALLOCA@
++-AMTAR = @AMTAR@
++-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
++-AR = @AR@
++-AS = @AS@
++-AUTOCONF = @AUTOCONF@
++-AUTOHEADER = @AUTOHEADER@
++-AUTOMAKE = @AUTOMAKE@
++-AWK = @AWK@
++-CC = @CC@
++-CCDEPMODE = @CCDEPMODE@
++-CFLAGS = @CFLAGS@
++-CPP = @CPP@
++-CPPFLAGS = @CPPFLAGS@
++-CXX = @CXX@
++-CXXCPP = @CXXCPP@
++-CXXDEPMODE = @CXXDEPMODE@
++-CXXFLAGS = @CXXFLAGS@
++-CYGPATH_W = @CYGPATH_W@
++-DEFS = @DEFS@
++-DEPDIR = @DEPDIR@
++-DLLTOOL = @DLLTOOL@
++-DSYMUTIL = @DSYMUTIL@
++-DUMPBIN = @DUMPBIN@
++-ECHO_C = @ECHO_C@
++-ECHO_N = @ECHO_N@
++-ECHO_T = @ECHO_T@
++-EGREP = @EGREP@
++-EXEEXT = @EXEEXT@
++-FGREP = @FGREP@
++-GREP = @GREP@
++-INSTALL = @INSTALL@
++-INSTALL_DATA = @INSTALL_DATA@
++-INSTALL_PROGRAM = @INSTALL_PROGRAM@
++-INSTALL_SCRIPT = @INSTALL_SCRIPT@
++-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
++-LD = @LD@
++-LDFLAGS = @LDFLAGS@
++-LEX = @LEX@
++-LEXLIB = @LEXLIB@
++-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
++-LIBOBJS = @LIBOBJS@
++-LIBS = @LIBS@
++-LIBTOOL = @LIBTOOL@
++-LIBTOOL_DEPS = @LIBTOOL_DEPS@
++-LIPO = @LIPO@
++-LN_S = @LN_S@
++-LTLIBOBJS = @LTLIBOBJS@
++-MAINT = @MAINT@
++-MAKEINFO = @MAKEINFO@
++-MANIFEST_TOOL = @MANIFEST_TOOL@
++-MKDIR_P = @MKDIR_P@
++-NM = @NM@
++-NMEDIT = @NMEDIT@
++-OBJDUMP = @OBJDUMP@
++-OBJEXT = @OBJEXT@
++-OTOOL = @OTOOL@
++-OTOOL64 = @OTOOL64@
++-PACKAGE = @PACKAGE@
++-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
++-PACKAGE_NAME = @PACKAGE_NAME@
++-PACKAGE_STRING = @PACKAGE_STRING@
++-PACKAGE_TARNAME = @PACKAGE_TARNAME@
++-PACKAGE_URL = @PACKAGE_URL@
++-PACKAGE_VERSION = @PACKAGE_VERSION@
++-PATH_SEPARATOR = @PATH_SEPARATOR@
++-PERL = @PERL@
++-POW_LIB = @POW_LIB@
++-RANLIB = @RANLIB@
++-SED = @SED@
++-SET_MAKE = @SET_MAKE@
++-SHELL = @SHELL@
++-STRIP = @STRIP@
++-VERSION = @VERSION@
++-YACC = @YACC@
++-YFLAGS = @YFLAGS@
++-abs_builddir = @abs_builddir@
++-abs_srcdir = @abs_srcdir@
++-abs_top_builddir = @abs_top_builddir@
++-abs_top_srcdir = @abs_top_srcdir@
++-ac_ct_AR = @ac_ct_AR@
++-ac_ct_CC = @ac_ct_CC@
++-ac_ct_CXX = @ac_ct_CXX@
++-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
++-am__include = @am__include@
++-am__leading_dot = @am__leading_dot@
++-am__quote = @am__quote@
++-am__tar = @am__tar@
++-am__untar = @am__untar@
++-bindir = @bindir@
++-build = @build@
++-build_alias = @build_alias@
++-build_cpu = @build_cpu@
++-build_os = @build_os@
++-build_vendor = @build_vendor@
++-builddir = @builddir@
++-datadir = @datadir@
++-datarootdir = @datarootdir@
++-docdir = @docdir@
++-dvidir = @dvidir@
++-exec_prefix = @exec_prefix@
++-host = @host@
++-host_alias = @host_alias@
++-host_cpu = @host_cpu@
++-host_os = @host_os@
++-host_vendor = @host_vendor@
++-htmldir = @htmldir@
++-includedir = @includedir@
++-infodir = @infodir@
++-install_sh = @install_sh@
++-libdir = @libdir@
++-libexecdir = @libexecdir@
++-localedir = @localedir@
++-localstatedir = @localstatedir@
++-mandir = @mandir@
++-mkdir_p = @mkdir_p@
++-oldincludedir = @oldincludedir@
++-pdfdir = @pdfdir@
++-prefix = @prefix@
++-program_transform_name = @program_transform_name@
++-psdir = @psdir@
++-sbindir = @sbindir@
++-sharedstatedir = @sharedstatedir@
++-srcdir = @srcdir@
++-sysconfdir = @sysconfdir@
++-target_alias = @target_alias@
++-top_build_prefix = @top_build_prefix@
++-top_builddir = @top_builddir@
++-top_srcdir = @top_srcdir@
++-incfile = constants.vams disciplines.vams adms.implicit.xml dummy.va dummy.xml
++-incfilec = $(incfile:=.c)
++-generated_FILES = adms.h adms.c verilogaYacc.y admstpathYacc.y admstpathYacc.h $(incfilec) \
++- verilogaLex.c verilogaYacc.c verilogaYacc.h admstpathYacc.c \
++- preprocessorLex.c preprocessorYacc.c preprocessorYacc.h
++-
++-SUFFIXES = .vams .vams.c .va .va.c .xml .xml.c .y.in
++-dist_man_MANS = admsXml.1 admsCheck.1
++-lib_LTLIBRARIES = libadmsElement.la libadmsPreprocessor.la libadmsVeriloga.la libadmsAdmstpath.la
++-libadmsElement_la_SOURCES = adms.c
++-libadmsElement_la_CPPFLAGS = -DinsideElement
++-libadmsElement_la_LDFLAGS = -no-undefined
++-libadmsPreprocessor_la_SOURCES = preprocessorLex.l preprocessorMain.c preprocessorYacc.h preprocessorYacc.y
++-libadmsPreprocessor_la_CPPFLAGS = -DinsidePreprocessor
++-libadmsPreprocessor_la_LDFLAGS = -no-undefined
++-libadmsPreprocessor_la_LIBADD = libadmsElement.la
++-libadmsVeriloga_la_SOURCES = verilogaYacc.y verilogaLex.l verilogaYacc.h
++-libadmsVeriloga_la_CPPFLAGS = -DinsideVeriloga
++-libadmsVeriloga_la_LDFLAGS = -no-undefined
++-libadmsVeriloga_la_LIBADD = libadmsElement.la
++-libadmsAdmstpath_la_SOURCES = admstpathYacc.y admstpathYacc.h
++-libadmsAdmstpath_la_CPPFLAGS = -DinsideadmstpathYacc
++-libadmsAdmstpath_la_LDFLAGS = -no-undefined
++-libadmsAdmstpath_la_LIBADD = libadmsElement.la
++-admsXml_SOURCES = admsXml.c
++-admsXml_LDADD = -lm libadmsElement.la libadmsVeriloga.la libadmsPreprocessor.la libadmsAdmstpath.la
++-
++-# Rules to create the admsCheck test program
++-admsCheck.c = $(incfilec)
++-admsCheck_SOURCES = admsCheck.c
++-admsCheck_LDADD = libadmsElement.la
++-EXTRA_DIST = mkctext.pl mkelements.pl mkgrammar.pl adms.h adms.c \
++- preprocessorYacc.h admsPreprocessor.h verilogaYacc.h admsVeriloga.h \
++- $(incfile) $(incfilec) verilogaYacc.y.in .adms.implicit.xml admstpath.dtd \
++- CMakeLists.txt config.h basicLibrary.xml
++-
++-CLEANFILES = .*.swp *\~ core $(generated_FILES)
++-all: all-am
++-
++-.SUFFIXES:
++-.SUFFIXES: .vams .vams.c .va .va.c .xml .xml.c .y.in .c .l .lo .o .obj .y
++-$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps)
++- @for dep in $?; do \
++- case '$(am__configure_deps)' in \
++- *$$dep*) \
++- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
++- && { if test -f $@; then exit 0; else break; fi; }; \
++- exit 1;; \
++- esac; \
++- done; \
++- echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign admsXml/Makefile'; \
++- $(am__cd) $(top_srcdir) && \
++- $(AUTOMAKE) --foreign admsXml/Makefile
++-.PRECIOUS: Makefile
++-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
++- @case '$?' in \
++- *config.status*) \
++- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
++- *) \
++- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
++- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
++- esac;
++-
++-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
++- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
++-
++-$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
++- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
++-$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
++- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
++-$(am__aclocal_m4_deps):
++-
++-install-libLTLIBRARIES: $(lib_LTLIBRARIES)
++- @$(NORMAL_INSTALL)
++- @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
++- list2=; for p in $$list; do \
++- if test -f $$p; then \
++- list2="$$list2 $$p"; \
++- else :; fi; \
++- done; \
++- test -z "$$list2" || { \
++- echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
++- $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
++- echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
++- $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
++- }
++-
++-uninstall-libLTLIBRARIES:
++- @$(NORMAL_UNINSTALL)
++- @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
++- for p in $$list; do \
++- $(am__strip_dir) \
++- echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
++- $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
++- done
++-
++-clean-libLTLIBRARIES:
++- -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
++- @list='$(lib_LTLIBRARIES)'; \
++- locs=`for p in $$list; do echo $$p; done | \
++- sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
++- sort -u`; \
++- test -z "$$locs" || { \
++- echo rm -f $${locs}; \
++- rm -f $${locs}; \
++- }
++-
++-libadmsAdmstpath.la: $(libadmsAdmstpath_la_OBJECTS) $(libadmsAdmstpath_la_DEPENDENCIES) $(EXTRA_libadmsAdmstpath_la_DEPENDENCIES)
++- $(AM_V_CCLD)$(libadmsAdmstpath_la_LINK) -rpath $(libdir) $(libadmsAdmstpath_la_OBJECTS) $(libadmsAdmstpath_la_LIBADD) $(LIBS)
++-
++-libadmsElement.la: $(libadmsElement_la_OBJECTS) $(libadmsElement_la_DEPENDENCIES) $(EXTRA_libadmsElement_la_DEPENDENCIES)
++- $(AM_V_CCLD)$(libadmsElement_la_LINK) -rpath $(libdir) $(libadmsElement_la_OBJECTS) $(libadmsElement_la_LIBADD) $(LIBS)
++-
++-libadmsPreprocessor.la: $(libadmsPreprocessor_la_OBJECTS) $(libadmsPreprocessor_la_DEPENDENCIES) $(EXTRA_libadmsPreprocessor_la_DEPENDENCIES)
++- $(AM_V_CCLD)$(libadmsPreprocessor_la_LINK) -rpath $(libdir) $(libadmsPreprocessor_la_OBJECTS) $(libadmsPreprocessor_la_LIBADD) $(LIBS)
++-
++-libadmsVeriloga.la: $(libadmsVeriloga_la_OBJECTS) $(libadmsVeriloga_la_DEPENDENCIES) $(EXTRA_libadmsVeriloga_la_DEPENDENCIES)
++- $(AM_V_CCLD)$(libadmsVeriloga_la_LINK) -rpath $(libdir) $(libadmsVeriloga_la_OBJECTS) $(libadmsVeriloga_la_LIBADD) $(LIBS)
++-install-binPROGRAMS: $(bin_PROGRAMS)
++- @$(NORMAL_INSTALL)
++- @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
++- if test -n "$$list"; then \
++- echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \
++- $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \
++- fi; \
++- for p in $$list; do echo "$$p $$p"; done | \
++- sed 's/$(EXEEXT)$$//' | \
++- while read p p1; do if test -f $$p \
++- || test -f $$p1 \
++- ; then echo "$$p"; echo "$$p"; else :; fi; \
++- done | \
++- sed -e 'p;s,.*/,,;n;h' \
++- -e 's|.*|.|' \
++- -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \
++- sed 'N;N;N;s,\n, ,g' | \
++- $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \
++- { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \
++- if ($$2 == $$4) files[d] = files[d] " " $$1; \
++- else { print "f", $$3 "/" $$4, $$1; } } \
++- END { for (d in files) print "f", d, files[d] }' | \
++- while read type dir files; do \
++- if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \
++- test -z "$$files" || { \
++- echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \
++- $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \
++- } \
++- ; done
++-
++-uninstall-binPROGRAMS:
++- @$(NORMAL_UNINSTALL)
++- @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
++- files=`for p in $$list; do echo "$$p"; done | \
++- sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \
++- -e 's/$$/$(EXEEXT)/' \
++- `; \
++- test -n "$$list" || exit 0; \
++- echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \
++- cd "$(DESTDIR)$(bindir)" && rm -f $$files
++-
++-clean-binPROGRAMS:
++- @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \
++- echo " rm -f" $$list; \
++- rm -f $$list || exit $$?; \
++- test -n "$(EXEEXT)" || exit 0; \
++- list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \
++- echo " rm -f" $$list; \
++- rm -f $$list
++-
++-clean-noinstPROGRAMS:
++- @list='$(noinst_PROGRAMS)'; test -n "$$list" || exit 0; \
++- echo " rm -f" $$list; \
++- rm -f $$list || exit $$?; \
++- test -n "$(EXEEXT)" || exit 0; \
++- list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \
++- echo " rm -f" $$list; \
++- rm -f $$list
++-
++-admsCheck$(EXEEXT): $(admsCheck_OBJECTS) $(admsCheck_DEPENDENCIES) $(EXTRA_admsCheck_DEPENDENCIES)
++- @rm -f admsCheck$(EXEEXT)
++- $(AM_V_CCLD)$(LINK) $(admsCheck_OBJECTS) $(admsCheck_LDADD) $(LIBS)
++-
++-admsXml$(EXEEXT): $(admsXml_OBJECTS) $(admsXml_DEPENDENCIES) $(EXTRA_admsXml_DEPENDENCIES)
++- @rm -f admsXml$(EXEEXT)
++- $(AM_V_CCLD)$(LINK) $(admsXml_OBJECTS) $(admsXml_LDADD) $(LIBS)
++-
++-mostlyclean-compile:
++- -rm -f *.$(OBJEXT)
++-
++-distclean-compile:
++- -rm -f *.tab.c
++-
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/admsCheck.Po at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/admsXml.Po at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/libadmsAdmstpath_la-admstpathYacc.Plo at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/libadmsElement_la-adms.Plo at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/libadmsPreprocessor_la-preprocessorLex.Plo at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/libadmsPreprocessor_la-preprocessorMain.Plo at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/libadmsPreprocessor_la-preprocessorYacc.Plo at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/libadmsVeriloga_la-verilogaLex.Plo at am__quote@
++- at AMDEP_TRUE@@am__include@ @am__quote at ./$(DEPDIR)/libadmsVeriloga_la-verilogaYacc.Plo at am__quote@
++-
++-.c.o:
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(COMPILE) -c -o $@ $<
++-
++-.c.obj:
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
++-
++-.c.lo:
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LTCOMPILE) -c -o $@ $<
++-
++-libadmsAdmstpath_la-admstpathYacc.lo: admstpathYacc.c
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsAdmstpath_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libadmsAdmstpath_la-admstpathYacc.lo -MD -MP -MF $(DEPDIR)/libadmsAdmstpath_la-admstpathYacc.Tpo -c -o libadmsAdmstpath_la-admstpathYacc.lo `test -f 'admstpathYacc.c' || echo '$(srcdir)/'`admstpathYacc.c
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libadmsAdmstpath_la-admstpathYacc.Tpo $(DEPDIR)/libadmsAdmstpath_la-admstpathYacc.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='admstpathYacc.c' object='libadmsAdmstpath_la-admstpathYacc.lo' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsAdmstpath_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libadmsAdmstpath_la-admstpathYacc.lo `test -f 'admstpathYacc.c' || echo '$(srcdir)/'`admstpathYacc.c
++-
++-libadmsElement_la-adms.lo: adms.c
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsElement_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libadmsElement_la-adms.lo -MD -MP -MF $(DEPDIR)/libadmsElement_la-adms.Tpo -c -o libadmsElement_la-adms.lo `test -f 'adms.c' || echo '$(srcdir)/'`adms.c
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libadmsElement_la-adms.Tpo $(DEPDIR)/libadmsElement_la-adms.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='adms.c' object='libadmsElement_la-adms.lo' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsElement_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libadmsElement_la-adms.lo `test -f 'adms.c' || echo '$(srcdir)/'`adms.c
++-
++-libadmsPreprocessor_la-preprocessorLex.lo: preprocessorLex.c
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsPreprocessor_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libadmsPreprocessor_la-preprocessorLex.lo -MD -MP -MF $(DEPDIR)/libadmsPreprocessor_la-preprocessorLex.Tpo -c -o libadmsPreprocessor_la-preprocessorLex.lo `test -f 'preprocessorLex.c' || echo '$(srcdir)/'`preprocessorLex.c
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libadmsPreprocessor_la-preprocessorLex.Tpo $(DEPDIR)/libadmsPreprocessor_la-preprocessorLex.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='preprocessorLex.c' object='libadmsPreprocessor_la-preprocessorLex.lo' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsPreprocessor_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libadmsPreprocessor_la-preprocessorLex.lo `test -f 'preprocessorLex.c' || echo '$(srcdir)/'`preprocessorLex.c
++-
++-libadmsPreprocessor_la-preprocessorMain.lo: preprocessorMain.c
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsPreprocessor_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libadmsPreprocessor_la-preprocessorMain.lo -MD -MP -MF $(DEPDIR)/libadmsPreprocessor_la-preprocessorMain.Tpo -c -o libadmsPreprocessor_la-preprocessorMain.lo `test -f 'preprocessorMain.c' || echo '$(srcdir)/'`preprocessorMain.c
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libadmsPreprocessor_la-preprocessorMain.Tpo $(DEPDIR)/libadmsPreprocessor_la-preprocessorMain.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='preprocessorMain.c' object='libadmsPreprocessor_la-preprocessorMain.lo' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsPreprocessor_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libadmsPreprocessor_la-preprocessorMain.lo `test -f 'preprocessorMain.c' || echo '$(srcdir)/'`preprocessorMain.c
++-
++-libadmsPreprocessor_la-preprocessorYacc.lo: preprocessorYacc.c
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsPreprocessor_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libadmsPreprocessor_la-preprocessorYacc.lo -MD -MP -MF $(DEPDIR)/libadmsPreprocessor_la-preprocessorYacc.Tpo -c -o libadmsPreprocessor_la-preprocessorYacc.lo `test -f 'preprocessorYacc.c' || echo '$(srcdir)/'`preprocessorYacc.c
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libadmsPreprocessor_la-preprocessorYacc.Tpo $(DEPDIR)/libadmsPreprocessor_la-preprocessorYacc.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='preprocessorYacc.c' object='libadmsPreprocessor_la-preprocessorYacc.lo' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsPreprocessor_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libadmsPreprocessor_la-preprocessorYacc.lo `test -f 'preprocessorYacc.c' || echo '$(srcdir)/'`preprocessorYacc.c
++-
++-libadmsVeriloga_la-verilogaYacc.lo: verilogaYacc.c
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsVeriloga_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libadmsVeriloga_la-verilogaYacc.lo -MD -MP -MF $(DEPDIR)/libadmsVeriloga_la-verilogaYacc.Tpo -c -o libadmsVeriloga_la-verilogaYacc.lo `test -f 'verilogaYacc.c' || echo '$(srcdir)/'`verilogaYacc.c
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libadmsVeriloga_la-verilogaYacc.Tpo $(DEPDIR)/libadmsVeriloga_la-verilogaYacc.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='verilogaYacc.c' object='libadmsVeriloga_la-verilogaYacc.lo' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsVeriloga_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libadmsVeriloga_la-verilogaYacc.lo `test -f 'verilogaYacc.c' || echo '$(srcdir)/'`verilogaYacc.c
++-
++-libadmsVeriloga_la-verilogaLex.lo: verilogaLex.c
++- at am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsVeriloga_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libadmsVeriloga_la-verilogaLex.lo -MD -MP -MF $(DEPDIR)/libadmsVeriloga_la-verilogaLex.Tpo -c -o libadmsVeriloga_la-verilogaLex.lo `test -f 'verilogaLex.c' || echo '$(srcdir)/'`verilogaLex.c
++- at am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libadmsVeriloga_la-verilogaLex.Tpo $(DEPDIR)/libadmsVeriloga_la-verilogaLex.Plo
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='verilogaLex.c' object='libadmsVeriloga_la-verilogaLex.lo' libtool=yes @AMDEPBACKSLASH@
++- at AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
++- at am__fastdepCC_FALSE@ $(AM_V_CC at am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libadmsVeriloga_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libadmsVeriloga_la-verilogaLex.lo `test -f 'verilogaLex.c' || echo '$(srcdir)/'`verilogaLex.c
++-
++-.l.c:
++- $(AM_V_LEX)$(am__skiplex) $(SHELL) $(YLWRAP) $< $(LEX_OUTPUT_ROOT).c $@ -- $(LEXCOMPILE)
++-
++-.y.c:
++- $(AM_V_YACC)$(am__skipyacc) $(SHELL) $(YLWRAP) $< y.tab.c $@ y.tab.h `echo $@ | $(am__yacc_c2h)` y.output $*.output -- $(YACCCOMPILE)
++-
++-mostlyclean-libtool:
++- -rm -f *.lo
++-
++-clean-libtool:
++- -rm -rf .libs _libs
++-install-man1: $(dist_man_MANS)
++- @$(NORMAL_INSTALL)
++- @list1=''; \
++- list2='$(dist_man_MANS)'; \
++- test -n "$(man1dir)" \
++- && test -n "`echo $$list1$$list2`" \
++- || exit 0; \
++- echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \
++- $(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \
++- { for i in $$list1; do echo "$$i"; done; \
++- if test -n "$$list2"; then \
++- for i in $$list2; do echo "$$i"; done \
++- | sed -n '/\.1[a-z]*$$/p'; \
++- fi; \
++- } | while read p; do \
++- if test -f $$p; then d=; else d="$(srcdir)/"; fi; \
++- echo "$$d$$p"; echo "$$p"; \
++- done | \
++- sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
++- -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \
++- sed 'N;N;s,\n, ,g' | { \
++- list=; while read file base inst; do \
++- if test "$$base" = "$$inst"; then list="$$list $$file"; else \
++- echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \
++- $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \
++- fi; \
++- done; \
++- for i in $$list; do echo "$$i"; done | $(am__base_list) | \
++- while read files; do \
++- test -z "$$files" || { \
++- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \
++- $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \
++- done; }
++-
++-uninstall-man1:
++- @$(NORMAL_UNINSTALL)
++- @list=''; test -n "$(man1dir)" || exit 0; \
++- files=`{ for i in $$list; do echo "$$i"; done; \
++- l2='$(dist_man_MANS)'; for i in $$l2; do echo "$$i"; done | \
++- sed -n '/\.1[a-z]*$$/p'; \
++- } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
++- -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \
++- dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir)
++-
++-ID: $(am__tagged_files)
++- $(am__define_uniq_tagged_files); mkid -fID $$unique
++-tags: tags-am
++-TAGS: tags
++-
++-tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
++- set x; \
++- here=`pwd`; \
++- $(am__define_uniq_tagged_files); \
++- shift; \
++- if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
++- test -n "$$unique" || unique=$$empty_fix; \
++- if test $$# -gt 0; then \
++- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
++- "$$@" $$unique; \
++- else \
++- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
++- $$unique; \
++- fi; \
++- fi
++-ctags: ctags-am
++-
++-CTAGS: ctags
++-ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
++- $(am__define_uniq_tagged_files); \
++- test -z "$(CTAGS_ARGS)$$unique" \
++- || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
++- $$unique
++-
++-GTAGS:
++- here=`$(am__cd) $(top_builddir) && pwd` \
++- && $(am__cd) $(top_srcdir) \
++- && gtags -i $(GTAGS_ARGS) "$$here"
++-cscopelist: cscopelist-am
++-
++-cscopelist-am: $(am__tagged_files)
++- list='$(am__tagged_files)'; \
++- case "$(srcdir)" in \
++- [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
++- *) sdir=$(subdir)/$(srcdir) ;; \
++- esac; \
++- for i in $$list; do \
++- if test -f "$$i"; then \
++- echo "$(subdir)/$$i"; \
++- else \
++- echo "$$sdir/$$i"; \
++- fi; \
++- done >> $(top_builddir)/cscope.files
++-
++-distclean-tags:
++- -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
++-
++-distdir: $(DISTFILES)
++- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
++- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
++- list='$(DISTFILES)'; \
++- dist_files=`for file in $$list; do echo $$file; done | \
++- sed -e "s|^$$srcdirstrip/||;t" \
++- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
++- case $$dist_files in \
++- */*) $(MKDIR_P) `echo "$$dist_files" | \
++- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
++- sort -u` ;; \
++- esac; \
++- for file in $$dist_files; do \
++- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
++- if test -d $$d/$$file; then \
++- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
++- if test -d "$(distdir)/$$file"; then \
++- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
++- fi; \
++- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
++- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
++- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
++- fi; \
++- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
++- else \
++- test -f "$(distdir)/$$file" \
++- || cp -p $$d/$$file "$(distdir)/$$file" \
++- || exit 1; \
++- fi; \
++- done
++-check-am: all-am
++-check: check-am
++-all-am: Makefile $(LTLIBRARIES) $(PROGRAMS) $(MANS)
++-install-binPROGRAMS: install-libLTLIBRARIES
++-
++-installdirs:
++- for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)"; do \
++- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
++- done
++-install: install-am
++-install-exec: install-exec-am
++-install-data: install-data-am
++-uninstall: uninstall-am
++-
++-install-am: all-am
++- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
++-
++-installcheck: installcheck-am
++-install-strip:
++- if test -z '$(STRIP)'; then \
++- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
++- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
++- install; \
++- else \
++- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
++- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
++- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
++- fi
++-mostlyclean-generic:
++-
++-clean-generic:
++- -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
++-
++-distclean-generic:
++- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
++- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
++-
++-maintainer-clean-generic:
++- @echo "This command is intended for maintainers to use"
++- @echo "it deletes files that may require special tools to rebuild."
++- -rm -f admstpathYacc.c
++- -rm -f preprocessorLex.c
++- -rm -f preprocessorYacc.c
++- -rm -f verilogaLex.c
++- -rm -f verilogaYacc.c
++-clean: clean-am
++-
++-clean-am: clean-binPROGRAMS clean-generic clean-libLTLIBRARIES \
++- clean-libtool clean-noinstPROGRAMS mostlyclean-am
++-
++-distclean: distclean-am
++- -rm -rf ./$(DEPDIR)
++- -rm -f Makefile
++-distclean-am: clean-am distclean-compile distclean-generic \
++- distclean-tags
++-
++-dvi: dvi-am
++-
++-dvi-am:
++-
++-html: html-am
++-
++-html-am:
++-
++-info: info-am
++-
++-info-am:
++-
++-install-data-am: install-man
++-
++-install-dvi: install-dvi-am
++-
++-install-dvi-am:
++-
++-install-exec-am: install-binPROGRAMS install-libLTLIBRARIES
++-
++-install-html: install-html-am
++-
++-install-html-am:
++-
++-install-info: install-info-am
++-
++-install-info-am:
++-
++-install-man: install-man1
++-
++-install-pdf: install-pdf-am
++-
++-install-pdf-am:
++-
++-install-ps: install-ps-am
++-
++-install-ps-am:
++-
++-installcheck-am:
++-
++-maintainer-clean: maintainer-clean-am
++- -rm -rf ./$(DEPDIR)
++- -rm -f Makefile
++-maintainer-clean-am: distclean-am maintainer-clean-generic
++-
++-mostlyclean: mostlyclean-am
++-
++-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
++- mostlyclean-libtool
++-
++-pdf: pdf-am
++-
++-pdf-am:
++-
++-ps: ps-am
++-
++-ps-am:
++-
++-uninstall-am: uninstall-binPROGRAMS uninstall-libLTLIBRARIES \
++- uninstall-man
++-
++-uninstall-man: uninstall-man1
++-
++-.MAKE: install-am install-strip
++-
++-.PHONY: CTAGS GTAGS TAGS all all-am check check-am clean \
++- clean-binPROGRAMS clean-generic clean-libLTLIBRARIES \
++- clean-libtool clean-noinstPROGRAMS cscopelist-am ctags \
++- ctags-am distclean distclean-compile distclean-generic \
++- distclean-libtool distclean-tags distdir dvi dvi-am html \
++- html-am info info-am install install-am install-binPROGRAMS \
++- install-data install-data-am install-dvi install-dvi-am \
++- install-exec install-exec-am install-html install-html-am \
++- install-info install-info-am install-libLTLIBRARIES \
++- install-man install-man1 install-pdf install-pdf-am install-ps \
++- install-ps-am install-strip installcheck installcheck-am \
++- installdirs maintainer-clean maintainer-clean-generic \
++- mostlyclean mostlyclean-compile mostlyclean-generic \
++- mostlyclean-libtool pdf pdf-am ps ps-am tags tags-am uninstall \
++- uninstall-am uninstall-binPROGRAMS uninstall-libLTLIBRARIES \
++- uninstall-man uninstall-man1
++-
++-
++-# use mkctext.pl to create C files containing the contents of each input file
++-# in a C character array. The output is used by make check only
++-
++-# Perl XML::LibXml module are only required for maintainer
++-# Parser created by maintainer
++-
++- at MAINTAINER_MODE_TRUE@$(incfilec):%.c:% ${srcdir}/mkctext.pl
++- at MAINTAINER_MODE_TRUE@ $(PERL) ${srcdir}/mkctext.pl $< $(top_srcdir)
++-
++- at MAINTAINER_MODE_TRUE@admstpathYacc.y admstpathYacc.h adms.h adms.c: ${top_srcdir}/adms.xml ${top_srcdir}/admstpath.xml ${srcdir}/mkelements.pl
++- at MAINTAINER_MODE_TRUE@ $(PERL) ${srcdir}/mkelements.pl $(top_srcdir)
++-
++- at MAINTAINER_MODE_TRUE@verilogaYacc.y: ${srcdir}/verilogaYacc.y.in ${srcdir}/mkgrammar.pl
++- at MAINTAINER_MODE_TRUE@ $(PERL) ${srcdir}/mkgrammar.pl ${srcdir}/verilogaYacc.y.in
++-
++-preprocessorLex.l: $(incfilec) preprocessorYacc.c preprocessorYacc.h
++-preprocessorYacc.h: preprocessorYacc.c
++-
++-verilogLex.l: $(incfilec) verilogaYacc.c verilogYacc.h
++-verilogYacc.h: verilogYacc.c
++-
++-admstpathYacc.y: admstpathYacc.h
++-
++-admsXml.c: adms.implicit.xml.c
++-
++-# Tell versions [3.59,3.63) of GNU make to not export all variables.
++-# Otherwise a system limit (for SysV at least) may be exceeded.
++-.NOEXPORT:
++diff --git a/admsXml/adms.h b/admsXml/adms.h
++deleted file mode 100644
++index 77c9a3a..0000000
++--- a/admsXml/adms.h
+++++ /dev/null
++@@ -1,3410 +0,0 @@
++-
++-/* ------- code automatically created by ./mkelements.pl -------------- */
++-
++-#ifndef adms_h
++-#define adms_h
++-
++-#define GIT "19491b3" /* git release version */
++-
++-/*headers -- depend on compiler, OS, ...*/
++-# if defined(_MSC_VER)
++-# define PACKAGE_NAME "adms"
++-# if ! defined(PACKAGE_VERSION)
++-# pragma message(__FILE__ ": warning: #warning undefined macro 'PACKAGE_VERSION' - defaulted to 'unknown'")
++-# define PACKAGE_VERSION "unknown"
++-# endif
++-# define PACKAGE_STRING PACKAGE_NAME " " PACKAGE_VERSION
++-# define PACKAGE_TARNAME PACKAGE_NAME
++-# define PACKAGE_BUGREPORT "r29173 at users.sourceforge.net"
++-# include <direct.h>
++-# define isnan _isnan
++-# define ADMS_PATH_SEPARATOR "\\"
++-# define ADMS_F_OK 0
++-# ifndef inline
++-# define inline
++-# endif
++-# define HAVE_FLOAT_H 1
++-# define HAVE_STDLIB_H 1
++-# define HAVE_PUTENV 1
++-# define HAVE_LOCALE 1
++-# define HAVE_STRING_H 1
++-# define HAVE_SYS_STAT_H 1
++-# include <io.h>
++-# else
++-# include <config.h>
++-# define ADMS_PATH_SEPARATOR "/"
++-# include <unistd.h>
++-# define ADMS_F_OK F_OK
++-# endif
++-# include <math.h>
++-# if defined(HAVE_SYS_STAT_H)
++-# include <sys/stat.h>
++-# endif
++-# if defined(HAVE_LOCALE_H)
++-# include <locale.h>
++-# endif
++-# if defined(HAVE_FLOAT_H)
++-# include <float.h>
++-# endif
++-# if defined(HAVE_UNISTD_H)
++-# include <unistd.h>
++-# endif
++-# if defined(HAVE_STDLIB_H)
++-# include <stdlib.h>
++-# endif
++-# if defined(HAVE_STRING_H)
++-# include <string.h>
++-# endif
++-# include <assert.h>
++-# include <signal.h>
++-# include <stdarg.h>
++-# include <stdio.h>
++-# include <ctype.h>
++-# include <errno.h>
++-# include <time.h>
++-/* in case not Posix */
++-# if defined(_S_IFDIR)
++-# define ADMS_S_IFDIR _S_IFDIR
++-# else
++-# define ADMS_S_IFDIR S_IFDIR
++-# endif
++-/* check OS */
++-# if defined(__CYGWIN__)
++-# define ADMS_OS_MS
++-# define ADMS_OS_MSCYGWIN
++-# define ADMS_OS "MSCYGWIN"
++-# elif defined(__MSDOS__)
++-# define ADMS_OS_MS
++-# define ADMS_OS_MSDOS
++-# define ADMS_OS "MSDOS"
++-# elif defined(_WIN64)
++-# define ADMS_OS_MS
++-# define ADMS_OS_MSWIN64
++-# define ADMS_OS "MSWIN64"
++-# elif defined(_WIN32)
++-# define ADMS_OS_MS
++-# define ADMS_OS_MSWIN32
++-# define ADMS_OS "MSWIN32"
++-# elif defined(__APPLE__)
++-# define ADMS_OS_DARWIN
++-# define ADMS_OS "DARWIN"
++-# elif defined(__linux)
++-# define ADMS_OS_LINUX
++-# define ADMS_OS "LINUX"
++-# else
++-# define ADMS_OS_UNKNOWN
++-# define ADMS_OS "UNKNOWN"
++-# endif
++-/* check compiler */
++-# if defined(__MINGW32__)
++-# ifndef WIN32
++-# define WIN32
++-# endif
++-# define ADMS_COMPILER_MINGCC
++-# define ADMS_COMPILER "MINGCC"
++-# elif defined(__CYGWIN__)
++-# ifndef WIN32
++-# define WIN32
++-# endif
++-# define ADMS_COMPILER_GCC
++-# define ADMS_COMPILER "GCC"
++-# elif defined(_MSC_VER)
++-# ifndef WIN32
++-# define WIN32
++-# endif
++-# define ADMS_COMPILER_MSVC
++-# define ADMS_COMPILER "MSVC"
++-# elif defined(__APPLE__)
++-# if defined(__clang__)
++-# define ADMS_COMPILER_CLANG
++-# define ADMS_COMPILER "CLANG"
++-# elif defined(__GNUC__)
++-# define ADMS_COMPILER_GCC
++-# define ADMS_COMPILER "GCC"
++-# endif
++-# elif defined(__linux)
++-# if defined(__GNUC__)
++-# define ADMS_COMPILER_GCC
++-# define ADMS_COMPILER "GCC"
++-# endif
++-# else
++-# define ADMS_COMPILER_CC
++-# define ADMS_COMPILER "CC"
++-# endif
++-#define E\
++- EE(adms)\
++- EE(simulator)\
++- EE(admsmain)\
++- EE(list)\
++- EE(nature)\
++- EE(discipline)\
++- EE(module)\
++- EE(analogfunction)\
++- EE(nodealias)\
++- EE(node)\
++- EE(branchalias)\
++- EE(branch)\
++- EE(variableprototype)\
++- EE(source)\
++- EE(range)\
++- EE(jacobian)\
++- EE(analog)\
++- EE(math)\
++- EE(string)\
++- EE(subexpression)\
++- EE(mapply_unary)\
++- EE(mapply_binary)\
++- EE(mapply_ternary)\
++- EE(number)\
++- EE(function)\
++- EE(variable)\
++- EE(array)\
++- EE(probe)\
++- EE(expression)\
++- EE(instance)\
++- EE(instanceparameter)\
++- EE(instancenode)\
++- EE(nilled)\
++- EE(assignment)\
++- EE(contribution)\
++- EE(conditional)\
++- EE(forloop)\
++- EE(whileloop)\
++- EE(case)\
++- EE(caseitem)\
++- EE(blockvariable)\
++- EE(block)\
++- EE(callfunction)\
++- EE(evaluation)\
++- EE(text)\
++- EE(path)\
++- EE(ptraverse)\
++- EE(pparse)\
++- EE(admst)\
++- EE(transform)\
++- EE(itransform)\
++- EE(return)\
++- EE(attribute)\
++- EE(admstvariable)\
++- EE(lexval)\
++- EE(yaccval)\
++-/*fin*/
++-
++-#define A\
++- AA(datatypename)\
++- AA(attribute)\
++- AA(variable)\
++- AA(name)\
++- AA(currentdate)\
++- AA(developer)\
++- AA(fullname)\
++- AA(package_name)\
++- AA(package_tarname)\
++- AA(package_version)\
++- AA(package_string)\
++- AA(package_bugreport)\
++- AA(probe)\
++- AA(tmp)\
++- AA(tmp1)\
++- AA(br1)\
++- AA(br2)\
++- AA(sr1)\
++- AA(ddx)\
++- AA(name)\
++- AA(argc)\
++- AA(fullfilename)\
++- AA(filename)\
++- AA(curfilename)\
++- AA(curline)\
++- AA(fpos)\
++- AA(simulator)\
++- AA(info)\
++- AA(usage)\
++- AA(verbose)\
++- AA(hint)\
++- AA(warning)\
++- AA(obsolete)\
++- AA(debug)\
++- AA(dbg_vla)\
++- AA(dbg_xml)\
++- AA(error)\
++- AA(fatal)\
++- AA(dbg_mem)\
++- AA(module)\
++- AA(discipline)\
++- AA(nature)\
++- AA(variable)\
++- AA(argv)\
++- AA(transform)\
++- AA(invtransform)\
++- AA(itransform)\
++- AA(itransforminsideapplytemplate)\
++- AA(valueof)\
++- AA(datatype)\
++- AA(item)\
++- AA(access)\
++- AA(name)\
++- AA(abstol)\
++- AA(base)\
++- AA(ddt_name)\
++- AA(ddt_nature)\
++- AA(idt_name)\
++- AA(idt_nature)\
++- AA(units)\
++- AA(name)\
++- AA(flow)\
++- AA(potential)\
++- AA(domain)\
++- AA(name)\
++- AA(node)\
++- AA(nodealias)\
++- AA(branch)\
++- AA(branchalias)\
++- AA(analogfunction)\
++- AA(instance)\
++- AA(variable)\
++- AA(analog)\
++- AA(block)\
++- AA(blockvariable)\
++- AA(assignment)\
++- AA(callfunction)\
++- AA(contribution)\
++- AA(conditional)\
++- AA(case)\
++- AA(forloop)\
++- AA(whileloop)\
++- AA(instantiator)\
++- AA(expression)\
++- AA(jacobian)\
++- AA(probe)\
++- AA(source)\
++- AA(range)\
++- AA(attribute)\
++- AA(evaluation)\
++- AA(module)\
++- AA(lexval)\
++- AA(type)\
++- AA(tree)\
++- AA(variable)\
++- AA(attribute)\
++- AA(module)\
++- AA(name)\
++- AA(node)\
++- AA(module)\
++- AA(name)\
++- AA(direction)\
++- AA(discipline)\
++- AA(grounded)\
++- AA(location)\
++- AA(attribute)\
++- AA(module)\
++- AA(name)\
++- AA(branch)\
++- AA(module)\
++- AA(pnode)\
++- AA(nnode)\
++- AA(discipline)\
++- AA(grounded)\
++- AA(attribute)\
++- AA(module)\
++- AA(lexval)\
++- AA(block)\
++- AA(dependency)\
++- AA(static)\
++- AA(dynamic)\
++- AA(sizetype)\
++- AA(parametertype)\
++- AA(type)\
++- AA(maxsize)\
++- AA(minsize)\
++- AA(input)\
++- AA(output)\
++- AA(scope)\
++- AA(default)\
++- AA(derivate)\
++- AA(isstate)\
++- AA(usedinmodel)\
++- AA(usedininstance)\
++- AA(usedininitial_step)\
++- AA(usedinevaluate)\
++- AA(usedinnoise)\
++- AA(usedinfinal)\
++- AA(setinmodel)\
++- AA(setininstance)\
++- AA(setininitial_step)\
++- AA(setinevaluate)\
++- AA(setinnoise)\
++- AA(setinfinal)\
++- AA(setingetprev)\
++- AA(TemperatureDependent)\
++- AA(OPdependent)\
++- AA(insource)\
++- AA(vcount)\
++- AA(vlast)\
++- AA(arraydefault)\
++- AA(attribute)\
++- AA(alias)\
++- AA(range)\
++- AA(probe)\
++- AA(ddxprobe)\
++- AA(variable)\
++- AA(assignment)\
++- AA(instance)\
++- AA(module)\
++- AA(branch)\
++- AA(nature)\
++- AA(discipline)\
++- AA(static)\
++- AA(dynamic)\
++- AA(whitenoise)\
++- AA(flickernoise)\
++- AA(grounded)\
++- AA(switch)\
++- AA(type)\
++- AA(probe)\
++- AA(attribute)\
++- AA(module)\
++- AA(infexpr)\
++- AA(supexpr)\
++- AA(name)\
++- AA(infboundtype)\
++- AA(supboundtype)\
++- AA(type)\
++- AA(module)\
++- AA(row)\
++- AA(column)\
++- AA(diagonal)\
++- AA(static)\
++- AA(dynamic)\
++- AA(code)\
++- AA(name)\
++- AA(value)\
++- AA(static)\
++- AA(dynamic)\
++- AA(dependency)\
++- AA(attribute)\
++- AA(value)\
++- AA(expression)\
++- AA(name)\
++- AA(arg1)\
++- AA(name)\
++- AA(arg1)\
++- AA(arg2)\
++- AA(name)\
++- AA(arg1)\
++- AA(arg2)\
++- AA(arg3)\
++- AA(lexval)\
++- AA(scalingunit)\
++- AA(cast)\
++- AA(lexval)\
++- AA(unique_id)\
++- AA(definition)\
++- AA(class)\
++- AA(arguments)\
++- AA(prototype)\
++- AA(variable)\
++- AA(index)\
++- AA(module)\
++- AA(branch)\
++- AA(nature)\
++- AA(seen)\
++- AA(discipline)\
++- AA(grounded)\
++- AA(source)\
++- AA(module)\
++- AA(tree)\
++- AA(hasspecialnumber)\
++- AA(hasVoltageDependentFunction)\
++- AA(infinity)\
++- AA(TemperatureDependent)\
++- AA(value)\
++- AA(function)\
++- AA(probe)\
++- AA(variable)\
++- AA(instantiator)\
++- AA(module)\
++- AA(name)\
++- AA(terminal)\
++- AA(parameterset)\
++- AA(parameter)\
++- AA(value)\
++- AA(nodefrominstantiator)\
++- AA(nodefrommodule)\
++- AA(module)\
++- AA(name)\
++- AA(module)\
++- AA(lhs)\
++- AA(rhs)\
++- AA(lexval)\
++- AA(name)\
++- AA(attribute)\
++- AA(module)\
++- AA(lhs)\
++- AA(rhs)\
++- AA(lexval)\
++- AA(branchalias)\
++- AA(name)\
++- AA(whitenoise)\
++- AA(flickernoise)\
++- AA(attribute)\
++- AA(module)\
++- AA(if)\
++- AA(then)\
++- AA(else)\
++- AA(name)\
++- AA(module)\
++- AA(initial)\
++- AA(condition)\
++- AA(update)\
++- AA(forblock)\
++- AA(name)\
++- AA(module)\
++- AA(while)\
++- AA(whileblock)\
++- AA(name)\
++- AA(module)\
++- AA(case)\
++- AA(name)\
++- AA(caseitem)\
++- AA(code)\
++- AA(defaultcase)\
++- AA(condition)\
++- AA(block)\
++- AA(variable)\
++- AA(module)\
++- AA(lexval)\
++- AA(block)\
++- AA(item)\
++- AA(attribute)\
++- AA(variable)\
++- AA(probe)\
++- AA(module)\
++- AA(function)\
++- AA(variable)\
++- AA(transform)\
++- AA(value)\
++- AA(aname)\
++- AA(admse)\
++- AA(token)\
++- AA(transform)\
++- AA(text)\
++- AA(aname)\
++- AA(avalue)\
++- AA(template)\
++- AA(keeplist)\
++- AA(callbackname)\
++- AA(callback)\
++- AA(bar)\
++- AA(arg)\
++- AA(u)\
++- AA(b)\
++- AA(c)\
++- AA(transform)\
++- AA(admst)\
++- AA(alladmst)\
++- AA(aliasadmst)\
++- AA(position)\
++- AA(a1)\
++- AA(an)\
++- AA(transform)\
++- AA(aname)\
++- AA(value)\
++- AA(path)\
++- AA(text)\
++- AA(position)\
++- AA(tkstart)\
++- AA(tklen)\
++- AA(tkid)\
++- AA(previous)\
++- AA(previouspath)\
++- AA(pseudo)\
++- AA(item)\
++- AA(valueto)\
++- AA(position)\
++- AA(count)\
++- AA(hasnewbasicstring)\
++- AA(original)\
++- AA(refd)\
++- AA(true)\
++- AA(preva)\
++- AA(nexta)\
++- AA(selected)\
++- AA(fullfilename)\
++- AA(basefilename)\
++- AA(l)\
++- AA(name)\
++- AA(parent)\
++- AA(callback)\
++- AA(id)\
++- AA(pathselect)\
++- AA(pathpath)\
++- AA(pathinto)\
++- AA(pathtest)\
++- AA(pathlist)\
++- AA(textselect)\
++- AA(textdatatype)\
++- AA(textmatch)\
++- AA(textrequired)\
++- AA(textseparator)\
++- AA(textfrom)\
++- AA(textto)\
++- AA(textlist)\
++- AA(textname)\
++- AA(textformat)\
++- AA(textfile)\
++- AA(textversion)\
++- AA(textonduplicate)\
++- AA(textprobe)\
++- AA(textstring)\
++- AA(templates)\
++- AA(textarguments)\
++- AA(pathoncompare)\
++- AA(pathinputs)\
++- AA(attribute)\
++- AA(children)\
++- AA(template)\
++- AA(originalcall)\
++- AA(variable)\
++- AA(return)\
++- AA(name)\
++- AA(value)\
++- AA(name)\
++- AA(value)\
++- AA(name)\
++- AA(value)\
++- AA(string)\
++- AA(f)\
++- AA(l)\
++- AA(c)\
++- AA(filename)\
++- AA(usrdata)\
++-/*fin*/
++-
++-#define EA\
++- EEA(adms,datatypename)\
++- EEA(adms,attribute)\
++- EEA(adms,variable)\
++- EEA(simulator,name)\
++- EEA(simulator,currentdate)\
++- EEA(simulator,developer)\
++- EEA(simulator,fullname)\
++- EEA(simulator,package_name)\
++- EEA(simulator,package_tarname)\
++- EEA(simulator,package_version)\
++- EEA(simulator,package_string)\
++- EEA(simulator,package_bugreport)\
++- EEA(simulator,probe)\
++- EEA(simulator,tmp)\
++- EEA(simulator,tmp1)\
++- EEA(simulator,br1)\
++- EEA(simulator,br2)\
++- EEA(simulator,sr1)\
++- EEA(simulator,ddx)\
++- EEA(admsmain,name)\
++- EEA(admsmain,argc)\
++- EEA(admsmain,fullfilename)\
++- EEA(admsmain,filename)\
++- EEA(admsmain,curfilename)\
++- EEA(admsmain,curline)\
++- EEA(admsmain,fpos)\
++- EEA(admsmain,simulator)\
++- EEA(admsmain,info)\
++- EEA(admsmain,usage)\
++- EEA(admsmain,verbose)\
++- EEA(admsmain,hint)\
++- EEA(admsmain,warning)\
++- EEA(admsmain,obsolete)\
++- EEA(admsmain,debug)\
++- EEA(admsmain,dbg_vla)\
++- EEA(admsmain,dbg_xml)\
++- EEA(admsmain,error)\
++- EEA(admsmain,fatal)\
++- EEA(admsmain,dbg_mem)\
++- EEA(admsmain,module)\
++- EEA(admsmain,discipline)\
++- EEA(admsmain,nature)\
++- EEA(admsmain,variable)\
++- EEA(admsmain,argv)\
++- EEA(admsmain,transform)\
++- EEA(admsmain,invtransform)\
++- EEA(admsmain,itransform)\
++- EEA(admsmain,itransforminsideapplytemplate)\
++- EEA(admsmain,valueof)\
++- EEA(list,datatype)\
++- EEA(list,item)\
++- EEA(nature,access)\
++- EEA(nature,name)\
++- EEA(nature,abstol)\
++- EEA(nature,base)\
++- EEA(nature,ddt_name)\
++- EEA(nature,ddt_nature)\
++- EEA(nature,idt_name)\
++- EEA(nature,idt_nature)\
++- EEA(nature,units)\
++- EEA(discipline,name)\
++- EEA(discipline,flow)\
++- EEA(discipline,potential)\
++- EEA(discipline,domain)\
++- EEA(module,name)\
++- EEA(module,node)\
++- EEA(module,nodealias)\
++- EEA(module,branch)\
++- EEA(module,branchalias)\
++- EEA(module,analogfunction)\
++- EEA(module,instance)\
++- EEA(module,variable)\
++- EEA(module,analog)\
++- EEA(module,block)\
++- EEA(module,blockvariable)\
++- EEA(module,assignment)\
++- EEA(module,callfunction)\
++- EEA(module,contribution)\
++- EEA(module,conditional)\
++- EEA(module,case)\
++- EEA(module,forloop)\
++- EEA(module,whileloop)\
++- EEA(module,instantiator)\
++- EEA(module,expression)\
++- EEA(module,jacobian)\
++- EEA(module,probe)\
++- EEA(module,source)\
++- EEA(module,range)\
++- EEA(module,attribute)\
++- EEA(module,evaluation)\
++- EEA(analogfunction,module)\
++- EEA(analogfunction,lexval)\
++- EEA(analogfunction,type)\
++- EEA(analogfunction,tree)\
++- EEA(analogfunction,variable)\
++- EEA(analogfunction,attribute)\
++- EEA(nodealias,module)\
++- EEA(nodealias,name)\
++- EEA(nodealias,node)\
++- EEA(node,module)\
++- EEA(node,name)\
++- EEA(node,direction)\
++- EEA(node,discipline)\
++- EEA(node,grounded)\
++- EEA(node,location)\
++- EEA(node,attribute)\
++- EEA(branchalias,module)\
++- EEA(branchalias,name)\
++- EEA(branchalias,branch)\
++- EEA(branch,module)\
++- EEA(branch,pnode)\
++- EEA(branch,nnode)\
++- EEA(branch,discipline)\
++- EEA(branch,grounded)\
++- EEA(branch,attribute)\
++- EEA(variableprototype,module)\
++- EEA(variableprototype,lexval)\
++- EEA(variableprototype,block)\
++- EEA(variableprototype,dependency)\
++- EEA(variableprototype,static)\
++- EEA(variableprototype,dynamic)\
++- EEA(variableprototype,sizetype)\
++- EEA(variableprototype,parametertype)\
++- EEA(variableprototype,type)\
++- EEA(variableprototype,maxsize)\
++- EEA(variableprototype,minsize)\
++- EEA(variableprototype,input)\
++- EEA(variableprototype,output)\
++- EEA(variableprototype,scope)\
++- EEA(variableprototype,default)\
++- EEA(variableprototype,derivate)\
++- EEA(variableprototype,isstate)\
++- EEA(variableprototype,usedinmodel)\
++- EEA(variableprototype,usedininstance)\
++- EEA(variableprototype,usedininitial_step)\
++- EEA(variableprototype,usedinevaluate)\
++- EEA(variableprototype,usedinnoise)\
++- EEA(variableprototype,usedinfinal)\
++- EEA(variableprototype,setinmodel)\
++- EEA(variableprototype,setininstance)\
++- EEA(variableprototype,setininitial_step)\
++- EEA(variableprototype,setinevaluate)\
++- EEA(variableprototype,setinnoise)\
++- EEA(variableprototype,setinfinal)\
++- EEA(variableprototype,setingetprev)\
++- EEA(variableprototype,TemperatureDependent)\
++- EEA(variableprototype,OPdependent)\
++- EEA(variableprototype,insource)\
++- EEA(variableprototype,vcount)\
++- EEA(variableprototype,vlast)\
++- EEA(variableprototype,arraydefault)\
++- EEA(variableprototype,attribute)\
++- EEA(variableprototype,alias)\
++- EEA(variableprototype,range)\
++- EEA(variableprototype,probe)\
++- EEA(variableprototype,ddxprobe)\
++- EEA(variableprototype,variable)\
++- EEA(variableprototype,assignment)\
++- EEA(variableprototype,instance)\
++- EEA(source,module)\
++- EEA(source,branch)\
++- EEA(source,nature)\
++- EEA(source,discipline)\
++- EEA(source,static)\
++- EEA(source,dynamic)\
++- EEA(source,whitenoise)\
++- EEA(source,flickernoise)\
++- EEA(source,grounded)\
++- EEA(source,switch)\
++- EEA(source,type)\
++- EEA(source,probe)\
++- EEA(source,attribute)\
++- EEA(range,module)\
++- EEA(range,infexpr)\
++- EEA(range,supexpr)\
++- EEA(range,name)\
++- EEA(range,infboundtype)\
++- EEA(range,supboundtype)\
++- EEA(range,type)\
++- EEA(jacobian,module)\
++- EEA(jacobian,row)\
++- EEA(jacobian,column)\
++- EEA(jacobian,diagonal)\
++- EEA(jacobian,static)\
++- EEA(jacobian,dynamic)\
++- EEA(analog,code)\
++- EEA(math,name)\
++- EEA(math,value)\
++- EEA(math,static)\
++- EEA(math,dynamic)\
++- EEA(math,dependency)\
++- EEA(math,attribute)\
++- EEA(string,value)\
++- EEA(subexpression,expression)\
++- EEA(mapply_unary,name)\
++- EEA(mapply_unary,arg1)\
++- EEA(mapply_binary,name)\
++- EEA(mapply_binary,arg1)\
++- EEA(mapply_binary,arg2)\
++- EEA(mapply_ternary,name)\
++- EEA(mapply_ternary,arg1)\
++- EEA(mapply_ternary,arg2)\
++- EEA(mapply_ternary,arg3)\
++- EEA(number,lexval)\
++- EEA(number,scalingunit)\
++- EEA(number,cast)\
++- EEA(function,lexval)\
++- EEA(function,unique_id)\
++- EEA(function,definition)\
++- EEA(function,class)\
++- EEA(function,arguments)\
++- EEA(variable,prototype)\
++- EEA(array,variable)\
++- EEA(array,index)\
++- EEA(probe,module)\
++- EEA(probe,branch)\
++- EEA(probe,nature)\
++- EEA(probe,seen)\
++- EEA(probe,discipline)\
++- EEA(probe,grounded)\
++- EEA(probe,source)\
++- EEA(expression,module)\
++- EEA(expression,tree)\
++- EEA(expression,hasspecialnumber)\
++- EEA(expression,hasVoltageDependentFunction)\
++- EEA(expression,infinity)\
++- EEA(expression,TemperatureDependent)\
++- EEA(expression,value)\
++- EEA(expression,function)\
++- EEA(expression,probe)\
++- EEA(expression,variable)\
++- EEA(instance,instantiator)\
++- EEA(instance,module)\
++- EEA(instance,name)\
++- EEA(instance,terminal)\
++- EEA(instance,parameterset)\
++- EEA(instanceparameter,parameter)\
++- EEA(instanceparameter,value)\
++- EEA(instancenode,nodefrominstantiator)\
++- EEA(instancenode,nodefrommodule)\
++- EEA(nilled,module)\
++- EEA(nilled,name)\
++- EEA(assignment,module)\
++- EEA(assignment,lhs)\
++- EEA(assignment,rhs)\
++- EEA(assignment,lexval)\
++- EEA(assignment,name)\
++- EEA(assignment,attribute)\
++- EEA(contribution,module)\
++- EEA(contribution,lhs)\
++- EEA(contribution,rhs)\
++- EEA(contribution,lexval)\
++- EEA(contribution,branchalias)\
++- EEA(contribution,name)\
++- EEA(contribution,whitenoise)\
++- EEA(contribution,flickernoise)\
++- EEA(contribution,attribute)\
++- EEA(conditional,module)\
++- EEA(conditional,if)\
++- EEA(conditional,then)\
++- EEA(conditional,else)\
++- EEA(conditional,name)\
++- EEA(forloop,module)\
++- EEA(forloop,initial)\
++- EEA(forloop,condition)\
++- EEA(forloop,update)\
++- EEA(forloop,forblock)\
++- EEA(forloop,name)\
++- EEA(whileloop,module)\
++- EEA(whileloop,while)\
++- EEA(whileloop,whileblock)\
++- EEA(whileloop,name)\
++- EEA(case,module)\
++- EEA(case,case)\
++- EEA(case,name)\
++- EEA(case,caseitem)\
++- EEA(caseitem,code)\
++- EEA(caseitem,defaultcase)\
++- EEA(caseitem,condition)\
++- EEA(blockvariable,block)\
++- EEA(blockvariable,variable)\
++- EEA(block,module)\
++- EEA(block,lexval)\
++- EEA(block,block)\
++- EEA(block,item)\
++- EEA(block,attribute)\
++- EEA(block,variable)\
++- EEA(block,probe)\
++- EEA(callfunction,module)\
++- EEA(callfunction,function)\
++- EEA(evaluation,variable)\
++- EEA(text,transform)\
++- EEA(text,value)\
++- EEA(text,aname)\
++- EEA(text,admse)\
++- EEA(text,token)\
++- EEA(path,transform)\
++- EEA(path,text)\
++- EEA(path,aname)\
++- EEA(path,avalue)\
++- EEA(path,template)\
++- EEA(path,keeplist)\
++- EEA(path,callbackname)\
++- EEA(path,callback)\
++- EEA(path,bar)\
++- EEA(path,arg)\
++- EEA(path,u)\
++- EEA(path,b)\
++- EEA(path,c)\
++- EEA(ptraverse,transform)\
++- EEA(ptraverse,admst)\
++- EEA(ptraverse,alladmst)\
++- EEA(ptraverse,aliasadmst)\
++- EEA(ptraverse,position)\
++- EEA(ptraverse,a1)\
++- EEA(ptraverse,an)\
++- EEA(pparse,transform)\
++- EEA(pparse,aname)\
++- EEA(pparse,value)\
++- EEA(pparse,path)\
++- EEA(pparse,text)\
++- EEA(pparse,position)\
++- EEA(pparse,tkstart)\
++- EEA(pparse,tklen)\
++- EEA(pparse,tkid)\
++- EEA(admst,previous)\
++- EEA(admst,previouspath)\
++- EEA(admst,pseudo)\
++- EEA(admst,item)\
++- EEA(admst,valueto)\
++- EEA(admst,position)\
++- EEA(admst,count)\
++- EEA(admst,hasnewbasicstring)\
++- EEA(admst,original)\
++- EEA(admst,refd)\
++- EEA(admst,true)\
++- EEA(admst,preva)\
++- EEA(admst,nexta)\
++- EEA(admst,selected)\
++- EEA(transform,fullfilename)\
++- EEA(transform,basefilename)\
++- EEA(transform,l)\
++- EEA(transform,name)\
++- EEA(transform,parent)\
++- EEA(transform,callback)\
++- EEA(transform,id)\
++- EEA(transform,pathselect)\
++- EEA(transform,pathpath)\
++- EEA(transform,pathinto)\
++- EEA(transform,pathtest)\
++- EEA(transform,pathlist)\
++- EEA(transform,textselect)\
++- EEA(transform,textdatatype)\
++- EEA(transform,textmatch)\
++- EEA(transform,textrequired)\
++- EEA(transform,textseparator)\
++- EEA(transform,textfrom)\
++- EEA(transform,textto)\
++- EEA(transform,textlist)\
++- EEA(transform,textname)\
++- EEA(transform,textformat)\
++- EEA(transform,textfile)\
++- EEA(transform,textversion)\
++- EEA(transform,textonduplicate)\
++- EEA(transform,textprobe)\
++- EEA(transform,textstring)\
++- EEA(transform,templates)\
++- EEA(transform,textarguments)\
++- EEA(transform,pathoncompare)\
++- EEA(transform,pathinputs)\
++- EEA(transform,attribute)\
++- EEA(transform,children)\
++- EEA(itransform,template)\
++- EEA(itransform,originalcall)\
++- EEA(itransform,variable)\
++- EEA(itransform,return)\
++- EEA(return,name)\
++- EEA(return,value)\
++- EEA(attribute,name)\
++- EEA(attribute,value)\
++- EEA(admstvariable,name)\
++- EEA(admstvariable,value)\
++- EEA(lexval,string)\
++- EEA(lexval,f)\
++- EEA(lexval,l)\
++- EEA(lexval,c)\
++- EEA(yaccval,filename)\
++- EEA(yaccval,usrdata)\
++-/*fin*/
++-
++-#define TK\
++- TTK(adms)\
++- TTK(simulator)\
++- TTK(admsmain)\
++- TTK(list)\
++- TTK(nature)\
++- TTK(discipline)\
++- TTK(module)\
++- TTK(analogfunction)\
++- TTK(nodealias)\
++- TTK(node)\
++- TTK(branchalias)\
++- TTK(branch)\
++- TTK(variableprototype)\
++- TTK(source)\
++- TTK(range)\
++- TTK(jacobian)\
++- TTK(analog)\
++- TTK(math)\
++- TTK(string)\
++- TTK(subexpression)\
++- TTK(mapply_unary)\
++- TTK(mapply_binary)\
++- TTK(mapply_ternary)\
++- TTK(number)\
++- TTK(function)\
++- TTK(variable)\
++- TTK(array)\
++- TTK(probe)\
++- TTK(expression)\
++- TTK(instance)\
++- TTK(instanceparameter)\
++- TTK(instancenode)\
++- TTK(nilled)\
++- TTK(assignment)\
++- TTK(contribution)\
++- TTK(conditional)\
++- TTK(forloop)\
++- TTK(whileloop)\
++- TTK(case)\
++- TTK(caseitem)\
++- TTK(blockvariable)\
++- TTK(block)\
++- TTK(callfunction)\
++- TTK(evaluation)\
++- TTK(text)\
++- TTK(path)\
++- TTK(ptraverse)\
++- TTK(pparse)\
++- TTK(admst)\
++- TTK(transform)\
++- TTK(itransform)\
++- TTK(return)\
++- TTK(attribute)\
++- TTK(admstvariable)\
++- TTK(lexval)\
++- TTK(yaccval)\
++- TTK(datatypename)\
++- TTK(name)\
++- TTK(currentdate)\
++- TTK(developer)\
++- TTK(fullname)\
++- TTK(package_name)\
++- TTK(package_tarname)\
++- TTK(package_version)\
++- TTK(package_string)\
++- TTK(package_bugreport)\
++- TTK(tmp)\
++- TTK(tmp1)\
++- TTK(br1)\
++- TTK(br2)\
++- TTK(sr1)\
++- TTK(ddx)\
++- TTK(argc)\
++- TTK(fullfilename)\
++- TTK(filename)\
++- TTK(curfilename)\
++- TTK(curline)\
++- TTK(fpos)\
++- TTK(info)\
++- TTK(usage)\
++- TTK(verbose)\
++- TTK(hint)\
++- TTK(warning)\
++- TTK(obsolete)\
++- TTK(debug)\
++- TTK(dbg_vla)\
++- TTK(dbg_xml)\
++- TTK(error)\
++- TTK(fatal)\
++- TTK(dbg_mem)\
++- TTK(argv)\
++- TTK(invtransform)\
++- TTK(itransforminsideapplytemplate)\
++- TTK(valueof)\
++- TTK(datatype)\
++- TTK(item)\
++- TTK(access)\
++- TTK(abstol)\
++- TTK(base)\
++- TTK(ddt_name)\
++- TTK(ddt_nature)\
++- TTK(idt_name)\
++- TTK(idt_nature)\
++- TTK(units)\
++- TTK(flow)\
++- TTK(potential)\
++- TTK(domain)\
++- TTK(instantiator)\
++- TTK(type)\
++- TTK(tree)\
++- TTK(direction)\
++- TTK(grounded)\
++- TTK(location)\
++- TTK(pnode)\
++- TTK(nnode)\
++- TTK(dependency)\
++- TTK(static)\
++- TTK(dynamic)\
++- TTK(sizetype)\
++- TTK(parametertype)\
++- TTK(maxsize)\
++- TTK(minsize)\
++- TTK(input)\
++- TTK(output)\
++- TTK(scope)\
++- TTK(default)\
++- TTK(derivate)\
++- TTK(isstate)\
++- TTK(usedinmodel)\
++- TTK(usedininstance)\
++- TTK(usedininitial_step)\
++- TTK(usedinevaluate)\
++- TTK(usedinnoise)\
++- TTK(usedinfinal)\
++- TTK(setinmodel)\
++- TTK(setininstance)\
++- TTK(setininitial_step)\
++- TTK(setinevaluate)\
++- TTK(setinnoise)\
++- TTK(setinfinal)\
++- TTK(setingetprev)\
++- TTK(TemperatureDependent)\
++- TTK(OPdependent)\
++- TTK(insource)\
++- TTK(vcount)\
++- TTK(vlast)\
++- TTK(arraydefault)\
++- TTK(alias)\
++- TTK(ddxprobe)\
++- TTK(whitenoise)\
++- TTK(flickernoise)\
++- TTK(switch)\
++- TTK(infexpr)\
++- TTK(supexpr)\
++- TTK(infboundtype)\
++- TTK(supboundtype)\
++- TTK(row)\
++- TTK(column)\
++- TTK(diagonal)\
++- TTK(code)\
++- TTK(value)\
++- TTK(arg1)\
++- TTK(arg2)\
++- TTK(arg3)\
++- TTK(scalingunit)\
++- TTK(cast)\
++- TTK(unique_id)\
++- TTK(definition)\
++- TTK(class)\
++- TTK(arguments)\
++- TTK(prototype)\
++- TTK(index)\
++- TTK(seen)\
++- TTK(hasspecialnumber)\
++- TTK(hasVoltageDependentFunction)\
++- TTK(infinity)\
++- TTK(terminal)\
++- TTK(parameterset)\
++- TTK(parameter)\
++- TTK(nodefrominstantiator)\
++- TTK(nodefrommodule)\
++- TTK(lhs)\
++- TTK(rhs)\
++- TTK(if)\
++- TTK(then)\
++- TTK(else)\
++- TTK(initial)\
++- TTK(condition)\
++- TTK(update)\
++- TTK(forblock)\
++- TTK(while)\
++- TTK(whileblock)\
++- TTK(defaultcase)\
++- TTK(aname)\
++- TTK(admse)\
++- TTK(token)\
++- TTK(avalue)\
++- TTK(template)\
++- TTK(keeplist)\
++- TTK(callbackname)\
++- TTK(callback)\
++- TTK(bar)\
++- TTK(arg)\
++- TTK(u)\
++- TTK(b)\
++- TTK(c)\
++- TTK(alladmst)\
++- TTK(aliasadmst)\
++- TTK(position)\
++- TTK(a1)\
++- TTK(an)\
++- TTK(tkstart)\
++- TTK(tklen)\
++- TTK(tkid)\
++- TTK(previous)\
++- TTK(previouspath)\
++- TTK(pseudo)\
++- TTK(valueto)\
++- TTK(count)\
++- TTK(hasnewbasicstring)\
++- TTK(original)\
++- TTK(refd)\
++- TTK(true)\
++- TTK(preva)\
++- TTK(nexta)\
++- TTK(selected)\
++- TTK(basefilename)\
++- TTK(l)\
++- TTK(parent)\
++- TTK(id)\
++- TTK(pathselect)\
++- TTK(pathpath)\
++- TTK(pathinto)\
++- TTK(pathtest)\
++- TTK(pathlist)\
++- TTK(textselect)\
++- TTK(textdatatype)\
++- TTK(textmatch)\
++- TTK(textrequired)\
++- TTK(textseparator)\
++- TTK(textfrom)\
++- TTK(textto)\
++- TTK(textlist)\
++- TTK(textname)\
++- TTK(textformat)\
++- TTK(textfile)\
++- TTK(textversion)\
++- TTK(textonduplicate)\
++- TTK(textprobe)\
++- TTK(textstring)\
++- TTK(templates)\
++- TTK(textarguments)\
++- TTK(pathoncompare)\
++- TTK(pathinputs)\
++- TTK(children)\
++- TTK(originalcall)\
++- TTK(f)\
++- TTK(usrdata)\
++- TTK(yes)\
++- TTK(no)\
++- TTK(continuous)\
++- TTK(discrete)\
++- TTK(real)\
++- TTK(integer)\
++- TTK(inout)\
++- TTK(internal)\
++- TTK(ground)\
++- TTK(external)\
++- TTK(constant)\
++- TTK(noprobe)\
++- TTK(linear)\
++- TTK(nonlinear)\
++- TTK(scalar)\
++- TTK(model)\
++- TTK(local)\
++- TTK(global_model)\
++- TTK(global_instance)\
++- TTK(global_final)\
++- TTK(global_past)\
++- TTK(shot)\
++- TTK(thermal)\
++- TTK(flicker)\
++- TTK(fs)\
++- TTK(ps)\
++- TTK(range_bound_include)\
++- TTK(range_bound_exclude)\
++- TTK(range_bound_value)\
++- TTK(include)\
++- TTK(include_value)\
++- TTK(exclude)\
++- TTK(exclude_value)\
++- TTK(plus)\
++- TTK(minus)\
++- TTK(not)\
++- TTK(bw_not)\
++- TTK(bw_equr)\
++- TTK(bw_equl)\
++- TTK(bw_xor)\
++- TTK(bw_or)\
++- TTK(bw_and)\
++- TTK(or)\
++- TTK(and)\
++- TTK(equ)\
++- TTK(notequ)\
++- TTK(lt)\
++- TTK(lt_equ)\
++- TTK(gt)\
++- TTK(gt_equ)\
++- TTK(shiftr)\
++- TTK(shiftl)\
++- TTK(addp)\
++- TTK(addm)\
++- TTK(multtime)\
++- TTK(multdiv)\
++- TTK(multmod)\
++- TTK(E)\
++- TTK(P)\
++- TTK(T)\
++- TTK(G)\
++- TTK(M)\
++- TTK(k)\
++- TTK(h)\
++- TTK(D)\
++- TTK(1)\
++- TTK(d)\
++- TTK(m)\
++- TTK(n)\
++- TTK(A)\
++- TTK(p)\
++- TTK(a)\
++- TTK(i)\
++- TTK(builtin)\
++- TTK(digital)\
++- TTK(is_zero)\
++- TTK(is_one)\
++- TTK(is_neg_one)\
++- TTK(is_any)\
++- TTK(past_name)\
++- TTK(datatypefamily)\
++- TTK(absolute)\
++- TTK(basicenumeration)\
++- TTK(basicinteger)\
++- TTK(basicreal)\
++- TTK(basicstring)\
++- TTK(basiclist)\
++- TTK(empty)\
++-/*fin*/
++-
++-
++-#undef TTK
++-#define TTK(tk) admse_##tk,
++-typedef enum {
++- admse__zero=0,
++- admse__any,
++- admse__constant,
++- admse__p, /*%p*/
++- admse__s, /*%s*/
++- admse__path,
++- admse__arguments,
++- admse__croix,
++- admse__croixcroix,
++- admse__ladms,
++- admse__ladmst,
++- TK
++- admse__
++-} admse;
++-#undef win32_interface
++-#if defined(WIN32)
++-# if defined(insideElement)
++-# define win32_interface __declspec(dllexport)
++-# else
++-# define win32_interface __declspec(dllimport)
++-# endif
++-#else
++-# define win32_interface extern
++-#endif
++-
++-typedef struct s_adms t_adms;
++-typedef t_adms* p_adms;
++-typedef const p_adms p_kadms;
++-typedef struct s_simulator t_simulator;
++-typedef t_simulator* p_simulator;
++-typedef const p_simulator p_ksimulator;
++-typedef struct s_admsmain t_admsmain;
++-typedef t_admsmain* p_admsmain;
++-typedef const p_admsmain p_kadmsmain;
++-typedef struct s_list t_list;
++-typedef t_list* p_list;
++-typedef const p_list p_klist;
++-typedef struct s_nature t_nature;
++-typedef t_nature* p_nature;
++-typedef const p_nature p_knature;
++-typedef struct s_discipline t_discipline;
++-typedef t_discipline* p_discipline;
++-typedef const p_discipline p_kdiscipline;
++-typedef struct s_module t_module;
++-typedef t_module* p_module;
++-typedef const p_module p_kmodule;
++-typedef struct s_analogfunction t_analogfunction;
++-typedef t_analogfunction* p_analogfunction;
++-typedef const p_analogfunction p_kanalogfunction;
++-typedef struct s_nodealias t_nodealias;
++-typedef t_nodealias* p_nodealias;
++-typedef const p_nodealias p_knodealias;
++-typedef struct s_node t_node;
++-typedef t_node* p_node;
++-typedef const p_node p_knode;
++-typedef struct s_branchalias t_branchalias;
++-typedef t_branchalias* p_branchalias;
++-typedef const p_branchalias p_kbranchalias;
++-typedef struct s_branch t_branch;
++-typedef t_branch* p_branch;
++-typedef const p_branch p_kbranch;
++-typedef struct s_variableprototype t_variableprototype;
++-typedef t_variableprototype* p_variableprototype;
++-typedef const p_variableprototype p_kvariableprototype;
++-typedef struct s_source t_source;
++-typedef t_source* p_source;
++-typedef const p_source p_ksource;
++-typedef struct s_range t_range;
++-typedef t_range* p_range;
++-typedef const p_range p_krange;
++-typedef struct s_jacobian t_jacobian;
++-typedef t_jacobian* p_jacobian;
++-typedef const p_jacobian p_kjacobian;
++-typedef struct s_analog t_analog;
++-typedef t_analog* p_analog;
++-typedef const p_analog p_kanalog;
++-typedef struct s_math t_math;
++-typedef t_math* p_math;
++-typedef const p_math p_kmath;
++-typedef struct s_string t_string;
++-typedef t_string* p_string;
++-typedef const p_string p_kstring;
++-typedef struct s_subexpression t_subexpression;
++-typedef t_subexpression* p_subexpression;
++-typedef const p_subexpression p_ksubexpression;
++-typedef struct s_mapply_unary t_mapply_unary;
++-typedef t_mapply_unary* p_mapply_unary;
++-typedef const p_mapply_unary p_kmapply_unary;
++-typedef struct s_mapply_binary t_mapply_binary;
++-typedef t_mapply_binary* p_mapply_binary;
++-typedef const p_mapply_binary p_kmapply_binary;
++-typedef struct s_mapply_ternary t_mapply_ternary;
++-typedef t_mapply_ternary* p_mapply_ternary;
++-typedef const p_mapply_ternary p_kmapply_ternary;
++-typedef struct s_number t_number;
++-typedef t_number* p_number;
++-typedef const p_number p_knumber;
++-typedef struct s_function t_function;
++-typedef t_function* p_function;
++-typedef const p_function p_kfunction;
++-typedef struct s_variable t_variable;
++-typedef t_variable* p_variable;
++-typedef const p_variable p_kvariable;
++-typedef struct s_array t_array;
++-typedef t_array* p_array;
++-typedef const p_array p_karray;
++-typedef struct s_probe t_probe;
++-typedef t_probe* p_probe;
++-typedef const p_probe p_kprobe;
++-typedef struct s_expression t_expression;
++-typedef t_expression* p_expression;
++-typedef const p_expression p_kexpression;
++-typedef struct s_instance t_instance;
++-typedef t_instance* p_instance;
++-typedef const p_instance p_kinstance;
++-typedef struct s_instanceparameter t_instanceparameter;
++-typedef t_instanceparameter* p_instanceparameter;
++-typedef const p_instanceparameter p_kinstanceparameter;
++-typedef struct s_instancenode t_instancenode;
++-typedef t_instancenode* p_instancenode;
++-typedef const p_instancenode p_kinstancenode;
++-typedef struct s_nilled t_nilled;
++-typedef t_nilled* p_nilled;
++-typedef const p_nilled p_knilled;
++-typedef struct s_assignment t_assignment;
++-typedef t_assignment* p_assignment;
++-typedef const p_assignment p_kassignment;
++-typedef struct s_contribution t_contribution;
++-typedef t_contribution* p_contribution;
++-typedef const p_contribution p_kcontribution;
++-typedef struct s_conditional t_conditional;
++-typedef t_conditional* p_conditional;
++-typedef const p_conditional p_kconditional;
++-typedef struct s_forloop t_forloop;
++-typedef t_forloop* p_forloop;
++-typedef const p_forloop p_kforloop;
++-typedef struct s_whileloop t_whileloop;
++-typedef t_whileloop* p_whileloop;
++-typedef const p_whileloop p_kwhileloop;
++-typedef struct s_case t_case;
++-typedef t_case* p_case;
++-typedef const p_case p_kcase;
++-typedef struct s_caseitem t_caseitem;
++-typedef t_caseitem* p_caseitem;
++-typedef const p_caseitem p_kcaseitem;
++-typedef struct s_blockvariable t_blockvariable;
++-typedef t_blockvariable* p_blockvariable;
++-typedef const p_blockvariable p_kblockvariable;
++-typedef struct s_block t_block;
++-typedef t_block* p_block;
++-typedef const p_block p_kblock;
++-typedef struct s_callfunction t_callfunction;
++-typedef t_callfunction* p_callfunction;
++-typedef const p_callfunction p_kcallfunction;
++-typedef struct s_evaluation t_evaluation;
++-typedef t_evaluation* p_evaluation;
++-typedef const p_evaluation p_kevaluation;
++-typedef struct s_text t_text;
++-typedef t_text* p_text;
++-typedef const p_text p_ktext;
++-typedef struct s_path t_path;
++-typedef t_path* p_path;
++-typedef const p_path p_kpath;
++-typedef struct s_ptraverse t_ptraverse;
++-typedef t_ptraverse* p_ptraverse;
++-typedef const p_ptraverse p_kptraverse;
++-typedef struct s_pparse t_pparse;
++-typedef t_pparse* p_pparse;
++-typedef const p_pparse p_kpparse;
++-typedef struct s_admst t_admst;
++-typedef t_admst* p_admst;
++-typedef const p_admst p_kadmst;
++-typedef struct s_transform t_transform;
++-typedef t_transform* p_transform;
++-typedef const p_transform p_ktransform;
++-typedef struct s_itransform t_itransform;
++-typedef t_itransform* p_itransform;
++-typedef const p_itransform p_kitransform;
++-typedef struct s_return t_return;
++-typedef t_return* p_return;
++-typedef const p_return p_kreturn;
++-typedef struct s_attribute t_attribute;
++-typedef t_attribute* p_attribute;
++-typedef const p_attribute p_kattribute;
++-typedef struct s_admstvariable t_admstvariable;
++-typedef t_admstvariable* p_admstvariable;
++-typedef const p_admstvariable p_kadmstvariable;
++-typedef struct s_lexval t_lexval;
++-typedef t_lexval* p_lexval;
++-typedef const p_lexval p_klexval;
++-typedef struct s_yaccval t_yaccval;
++-typedef t_yaccval* p_yaccval;
++-typedef const p_yaccval p_kyaccval;
++-
++-/*miscH*/
++-typedef struct s_slist t_slist;
++-typedef t_slist* p_slist;
++-win32_interface FILE *stdadmstdbgimpl;
++-win32_interface FILE *stdadmstdbgimpl;
++-#define stdadmstdbg (stdadmstdbgimpl?stdadmstdbgimpl:stderr)
++-win32_interface int admsmain(const char*xcode,const char*xflag,const char*vacode);
++-win32_interface int adms_global_nbadmstnew(void);
++-win32_interface int adms_global_nbadmstdestroy(void);
++-win32_interface void adms_global_increment_nbadmstnew(void);
++-win32_interface void adms_global_increment_nbadmstdestroy(void);
++-/*-- admst/new prototypes --*/
++-win32_interface p_admst adms_admst_newbd (p_admst myprevious,p_admst mypreviouspath,const admse item);
++-win32_interface p_admst adms_admst_newbe (p_admst myprevious,p_admst mypreviouspath,const admse item);
++-win32_interface p_admst adms_admst_newbi (p_admst myprevious,p_admst mypreviouspath,const int item);
++-win32_interface p_admst adms_admst_newbr (p_admst myprevious,p_admst mypreviouspath,const double item);
++-win32_interface p_admst adms_admst_newbs (p_admst myprevious,p_admst mypreviouspath,char* item);
++-win32_interface p_admst adms_admst_newns (p_admst myprevious,p_admst mypreviouspath,char* item);
++-win32_interface p_admst adms_admst_newks (char* item);
++-win32_interface p_admst adms_admst_newpa (p_admst myprevious,p_admst mypreviouspath,const p_adms item);
++-win32_interface p_admst adms_admst_newpn (p_admst myprevious,p_admst mypreviouspath,p_admst item);
++-win32_interface p_admst adms_admst_newpc (p_admst myprevious,p_admst mypreviouspath,p_attribute item);
++-win32_interface p_admst adms_admst_newpd (p_admst myprevious,p_admst mypreviouspath,p_admstvariable item);
++-win32_interface p_admst adms_admst_newla (p_admst myprevious,p_admst mypreviouspath,p_slist item);
++-win32_interface p_admst adms_admst_newln (p_admst myprevious,p_admst mypreviouspath,p_slist item);
++-win32_interface p_admst adms_admst_newpp (p_admst myprevious,p_admst mypreviouspath,admse item);
++-
++-/*-- Miscellaneous routines --*/
++-
++-win32_interface const double adms_dzero;
++-win32_interface double adms_NAN;
++-win32_interface p_admst aread (p_admst myadmst);
++-win32_interface void deref(p_admst mystack);
++-union admsu
++-{
++- int i;
++- double r;
++- char* s;
++- p_adms p;
++-};
++-win32_interface const int minusone;
++-
++-win32_interface int adms_strtol (p_ktransform mytransform,const char* mynumber);
++-win32_interface double adms_strtod (p_ktransform mytransform,const char* myreal);
++-win32_interface void bp(void);
++-win32_interface char*adms_integertostring(int value);
++-win32_interface char*adms_doubletostring(double value);
++-win32_interface int adms_setenv(const char* myname,const char* myvalue);
++-win32_interface int adms_file_isregular(const char* myfilename);
++-win32_interface int adms_file_isdirectory(const char* myfilename);
++-win32_interface p_slist adms_slist_new (p_adms d);
++-win32_interface p_slist adms_slist_copy (p_slist l);
++-win32_interface void adms_slist_concat (p_slist* l1,p_slist l2);
++-win32_interface p_slist adms_slist_find (p_slist l,p_kadms data);
++-win32_interface void adms_slist_free (p_slist l);
++-win32_interface int adms_slist_index (p_slist l, p_kadms data);
++-win32_interface p_slist adms_slist_last (p_slist l);
++-win32_interface unsigned int adms_slist_length (p_slist l);
++-win32_interface p_slist adms_slist_nth (p_slist l,unsigned int n);
++-win32_interface p_adms adms_slist_nth_data (p_slist l,unsigned int n);
++-win32_interface void adms_slist_print(const char* message,p_slist l);
++-win32_interface p_adms adms_slist_pull(p_slist* l);
++-win32_interface void adms_slist_push(p_slist* l,p_adms data);
++-win32_interface p_slist adms_slist_reverse (p_slist l);
++-win32_interface void adms_slist_inreverse (p_slist* l);
++-struct s_slist
++-{
++- p_adms data;
++- p_slist next;
++-};
++-
++-
++-win32_interface p_admsmain root(void);
++-win32_interface void rootnew(p_admsmain myglobaladmsmain);
++-
++-typedef p_admst (t_new) (p_ktransform mytransform,p_admst dot,p_slist arguments[],const int size);
++-typedef p_admst (*p_new) (p_ktransform mytransform,p_admst dot,p_slist arguments[],const int size);
++-#define _t_new(function) p_admst (function) (p_ktransform mytransform,p_admst dot,p_slist arguments[],const int size)
++-
++-typedef int (t_cmp) (p_adms myadms, p_adms myadmsref);
++-typedef int (*p_cmp) (p_adms myadms, p_adms myadmsref);
++-#define _t_cmp(function) int (function) (p_adms myadms, p_adms myadmsref)
++-
++-/*-- Messaging --*/
++-typedef void (t_message) (const char*format, ...);
++-typedef void (*p_message) (const char*format, ...);
++-#define _t_message(function) void (function) (const char*format, ...)
++-
++-win32_interface void adms_toupper(char*m);
++-win32_interface void adms_tolower(char*m);
++-win32_interface char*adms_kclone(const char* m);
++-win32_interface char*adms_knclone(const char* m,const int l);
++-win32_interface char*adms_m2nclone(const char* m,const char* n);
++-win32_interface void adms_strconcat(char **s1,char *s2);
++-win32_interface void adms_k2strconcat(char **s1,const char* s2);
++-win32_interface FILE *adms_file_open_read (const char* fileName);
++-win32_interface t_message adms_message_info_impl;
++-win32_interface t_message adms_message_info_continue_impl;
++-#define adms_message_info(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_info==admse_yes))\
++- adms_message_info_impl VAARGS;\
++-}
++-#define adms_message_info_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_info==admse_yes))\
++- adms_message_info_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_usage_impl;
++-win32_interface t_message adms_message_usage_continue_impl;
++-#define adms_message_usage(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_usage==admse_yes))\
++- adms_message_usage_impl VAARGS;\
++-}
++-#define adms_message_usage_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_usage==admse_yes))\
++- adms_message_usage_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_verbose_impl;
++-win32_interface t_message adms_message_verbose_continue_impl;
++-#define adms_message_verbose(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_verbose==admse_yes))\
++- adms_message_verbose_impl VAARGS;\
++-}
++-#define adms_message_verbose_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_verbose==admse_yes))\
++- adms_message_verbose_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_debug_impl;
++-win32_interface t_message adms_message_debug_continue_impl;
++-#define adms_message_debug(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_debug==admse_yes))\
++- adms_message_debug_impl VAARGS;\
++-}
++-#define adms_message_debug_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_debug==admse_yes))\
++- adms_message_debug_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_dbg_vla_impl;
++-win32_interface t_message adms_message_dbg_vla_continue_impl;
++-#define adms_message_dbg_vla(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_dbg_vla==admse_yes))\
++- adms_message_dbg_vla_impl VAARGS;\
++-}
++-#define adms_message_dbg_vla_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_dbg_vla==admse_yes))\
++- adms_message_dbg_vla_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_dbg_xml_impl;
++-win32_interface t_message adms_message_dbg_xml_continue_impl;
++-#define adms_message_dbg_xml(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_dbg_xml==admse_yes))\
++- adms_message_dbg_xml_impl VAARGS;\
++-}
++-#define adms_message_dbg_xml_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_dbg_xml==admse_yes))\
++- adms_message_dbg_xml_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_dbg_mem_impl;
++-win32_interface t_message adms_message_dbg_mem_continue_impl;
++-#define adms_message_dbg_mem(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_dbg_mem==admse_yes))\
++- adms_message_dbg_mem_impl VAARGS;\
++-}
++-#define adms_message_dbg_mem_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_dbg_mem==admse_yes))\
++- adms_message_dbg_mem_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_hint_impl;
++-win32_interface t_message adms_message_hint_continue_impl;
++-#define adms_message_hint(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_hint==admse_yes))\
++- adms_message_hint_impl VAARGS;\
++-}
++-#define adms_message_hint_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_hint==admse_yes))\
++- adms_message_hint_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_warning_impl;
++-win32_interface t_message adms_message_warning_continue_impl;
++-#define adms_message_warning(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_warning==admse_yes))\
++- adms_message_warning_impl VAARGS;\
++-}
++-#define adms_message_warning_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_warning==admse_yes))\
++- adms_message_warning_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_obsolete_impl;
++-win32_interface t_message adms_message_obsolete_continue_impl;
++-#define adms_message_obsolete(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_obsolete==admse_yes))\
++- adms_message_obsolete_impl VAARGS;\
++-}
++-#define adms_message_obsolete_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_obsolete==admse_yes))\
++- adms_message_obsolete_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_error_impl;
++-win32_interface t_message adms_message_error_continue_impl;
++-#define adms_message_error(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_error==admse_yes))\
++- adms_message_error_impl VAARGS;\
++-}
++-#define adms_message_error_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_error==admse_yes))\
++- adms_message_error_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_fatal_impl;
++-win32_interface t_message adms_message_fatal_continue_impl;
++-#define adms_message_fatal(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_fatal==admse_yes))\
++- adms_message_fatal_impl VAARGS;\
++-}
++-#define adms_message_fatal_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_fatal==admse_yes))\
++- adms_message_fatal_continue_impl VAARGS;\
++-}
++-win32_interface t_message adms_message_admstdbg_impl;
++-win32_interface t_message adms_message_admstdbg_continue_impl;
++-#define adms_message_admstdbg(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_admstdbg==admse_yes))\
++- adms_message_admstdbg_impl VAARGS;\
++-}
++-#define adms_message_admstdbg_continue(VAARGS)\
++-{\
++- if((root())\
++- &&(root()->_admstdbg==admse_yes))\
++- adms_message_admstdbg_continue_impl VAARGS;\
++-}
++-
++-win32_interface char* aprintf (p_ktransform mytransform,p_kadmst myadmst);
++-
++-/* ------- adms -------------- */
++-#define adms_adms(member) ((p_adms)(member))
++-struct s_adms {
++- admse _datatypename;
++- p_slist _attribute;
++- p_slist _variable;
++-};
++-win32_interface char*adms_adms_uid (p_adms myadms);
++-win32_interface void adms_adms_valueto_datatypename (p_adms myadms,int _datatypename);
++-win32_interface void adms_adms_valueto_attribute (p_adms myadms,p_slist _attribute);
++-win32_interface void adms_adms_valueto_variable (p_adms myadms,p_slist _variable);
++-
++-/* ------- simulator -------------- */
++-#define adms_simulator(member) ((p_simulator)(member))
++-struct s_simulator {
++- t_adms _adms;
++- char* _name;
++- int _name_isdefault : 2;
++- char* _currentdate;
++- int _currentdate_isdefault : 2;
++- char* _developer;
++- int _developer_isdefault : 2;
++- char* _fullname;
++- int _fullname_isdefault : 2;
++- char* _package_name;
++- int _package_name_isdefault : 2;
++- char* _package_tarname;
++- int _package_tarname_isdefault : 2;
++- char* _package_version;
++- int _package_version_isdefault : 2;
++- char* _package_string;
++- int _package_string_isdefault : 2;
++- char* _package_bugreport;
++- int _package_bugreport_isdefault : 2;
++- p_probe _probe;
++- int _probe_isdefault : 2;
++- char* _tmp;
++- int _tmp_isdefault : 2;
++- char* _tmp1;
++- int _tmp1_isdefault : 2;
++- p_branch _br1;
++- int _br1_isdefault : 2;
++- p_branch _br2;
++- int _br2_isdefault : 2;
++- p_source _sr1;
++- int _sr1_isdefault : 2;
++- char* _ddx;
++- int _ddx_isdefault : 2;
++-};
++-win32_interface char*adms_simulator_uid (p_simulator mysimulator);
++-win32_interface p_simulator adms_simulator_new (const char* myname);
++-win32_interface void adms_simulator_free(p_simulator mysimulator);
++-win32_interface void adms_simulator_valueto_name (p_simulator mysimulator,const char* _name);
++-win32_interface void adms_simulator_valueto_currentdate (p_simulator mysimulator,const char* _currentdate);
++-win32_interface void adms_simulator_valueto_developer (p_simulator mysimulator,const char* _developer);
++-win32_interface void adms_simulator_valueto_fullname (p_simulator mysimulator,const char* _fullname);
++-win32_interface void adms_simulator_valueto_package_name (p_simulator mysimulator,const char* _package_name);
++-win32_interface void adms_simulator_valueto_package_tarname (p_simulator mysimulator,const char* _package_tarname);
++-win32_interface void adms_simulator_valueto_package_version (p_simulator mysimulator,const char* _package_version);
++-win32_interface void adms_simulator_valueto_package_string (p_simulator mysimulator,const char* _package_string);
++-win32_interface void adms_simulator_valueto_package_bugreport (p_simulator mysimulator,const char* _package_bugreport);
++-win32_interface void adms_simulator_valueto_probe (p_simulator mysimulator,p_probe _probe);
++-win32_interface void adms_simulator_valueto_tmp (p_simulator mysimulator,const char* _tmp);
++-win32_interface void adms_simulator_valueto_tmp1 (p_simulator mysimulator,const char* _tmp1);
++-win32_interface void adms_simulator_valueto_br1 (p_simulator mysimulator,p_branch _br1);
++-win32_interface void adms_simulator_valueto_br2 (p_simulator mysimulator,p_branch _br2);
++-win32_interface void adms_simulator_valueto_sr1 (p_simulator mysimulator,p_source _sr1);
++-win32_interface void adms_simulator_valueto_ddx (p_simulator mysimulator,const char* _ddx);
++-
++-/* ------- admsmain -------------- */
++-#define adms_admsmain(member) ((p_admsmain)(member))
++-struct s_admsmain {
++- t_adms _adms;
++- char* _name;
++- int _name_isdefault : 2;
++- int _argc;
++- int _argc_isdefault : 2;
++- char* _fullfilename;
++- int _fullfilename_isdefault : 2;
++- char* _filename;
++- int _filename_isdefault : 2;
++- char* _curfilename;
++- int _curfilename_isdefault : 2;
++- int _curline;
++- int _curline_isdefault : 2;
++- int _fpos;
++- int _fpos_isdefault : 2;
++- p_simulator _simulator;
++- int _simulator_isdefault : 2;
++- admse _info;
++- int _info_isdefault : 2;
++- admse _usage;
++- int _usage_isdefault : 2;
++- admse _verbose;
++- int _verbose_isdefault : 2;
++- admse _hint;
++- int _hint_isdefault : 2;
++- admse _warning;
++- int _warning_isdefault : 2;
++- admse _obsolete;
++- int _obsolete_isdefault : 2;
++- admse _debug;
++- int _debug_isdefault : 2;
++- admse _dbg_vla;
++- int _dbg_vla_isdefault : 2;
++- admse _dbg_xml;
++- int _dbg_xml_isdefault : 2;
++- admse _error;
++- int _error_isdefault : 2;
++- admse _fatal;
++- int _fatal_isdefault : 2;
++- admse _dbg_mem;
++- int _dbg_mem_isdefault : 2;
++- p_slist _module;
++- int _module_isdefault : 2;
++- p_slist _discipline;
++- int _discipline_isdefault : 2;
++- p_slist _nature;
++- int _nature_isdefault : 2;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++- p_slist _argv;
++- int _argv_isdefault : 2;
++- p_slist _transform;
++- int _transform_isdefault : 2;
++- p_slist _invtransform;
++- int _invtransform_isdefault : 2;
++- p_slist _itransform;
++- int _itransform_isdefault : 2;
++- p_slist _itransforminsideapplytemplate;
++- int _itransforminsideapplytemplate_isdefault : 2;
++- p_slist _valueof;
++- int _valueof_isdefault : 2;
++-};
++-win32_interface char*adms_admsmain_uid (p_admsmain myadmsmain);
++-win32_interface p_admsmain adms_admsmain_new (const char* myname);
++-win32_interface void adms_admsmain_free(p_admsmain myadmsmain);
++-win32_interface void adms_admsmain_valueto_name (p_admsmain myadmsmain,const char* _name);
++-win32_interface void adms_admsmain_valueto_argc (p_admsmain myadmsmain,int _argc);
++-win32_interface void adms_admsmain_valueto_fullfilename (p_admsmain myadmsmain,const char* _fullfilename);
++-win32_interface void adms_admsmain_valueto_filename (p_admsmain myadmsmain,const char* _filename);
++-win32_interface void adms_admsmain_valueto_curfilename (p_admsmain myadmsmain,const char* _curfilename);
++-win32_interface void adms_admsmain_valueto_curline (p_admsmain myadmsmain,int _curline);
++-win32_interface void adms_admsmain_valueto_fpos (p_admsmain myadmsmain,int _fpos);
++-win32_interface void adms_admsmain_valueto_simulator (p_admsmain myadmsmain,p_simulator _simulator);
++-win32_interface void adms_admsmain_valueto_info (p_admsmain myadmsmain,admse _info);
++-win32_interface void adms_admsmain_valueto_usage (p_admsmain myadmsmain,admse _usage);
++-win32_interface void adms_admsmain_valueto_verbose (p_admsmain myadmsmain,admse _verbose);
++-win32_interface void adms_admsmain_valueto_hint (p_admsmain myadmsmain,admse _hint);
++-win32_interface void adms_admsmain_valueto_warning (p_admsmain myadmsmain,admse _warning);
++-win32_interface void adms_admsmain_valueto_obsolete (p_admsmain myadmsmain,admse _obsolete);
++-win32_interface void adms_admsmain_valueto_debug (p_admsmain myadmsmain,admse _debug);
++-win32_interface void adms_admsmain_valueto_dbg_vla (p_admsmain myadmsmain,admse _dbg_vla);
++-win32_interface void adms_admsmain_valueto_dbg_xml (p_admsmain myadmsmain,admse _dbg_xml);
++-win32_interface void adms_admsmain_valueto_error (p_admsmain myadmsmain,admse _error);
++-win32_interface void adms_admsmain_valueto_fatal (p_admsmain myadmsmain,admse _fatal);
++-win32_interface void adms_admsmain_valueto_dbg_mem (p_admsmain myadmsmain,admse _dbg_mem);
++-win32_interface void adms_admsmain_valueto_module (p_admsmain myadmsmain,p_slist _module);
++-win32_interface p_module adms_admsmain_list_module_prepend_by_id_once_or_abort (p_admsmain mymyadmsmain,const char* myname);
++-win32_interface p_module adms_admsmain_list_module_lookup_by_id (p_admsmain mymyadmsmain,const char* myname);
++-win32_interface void adms_admsmain_valueto_discipline (p_admsmain myadmsmain,p_slist _discipline);
++-win32_interface void adms_admsmain_list_discipline_prepend_once_or_abort (p_admsmain mymyadmsmain,p_discipline mydiscipline);
++-win32_interface p_discipline adms_admsmain_list_discipline_lookup_by_id (p_admsmain mymyadmsmain,const char* myname);
++-win32_interface void adms_admsmain_valueto_nature (p_admsmain myadmsmain,p_slist _nature);
++-win32_interface p_nature adms_admsmain_list_nature_prepend_by_id_once_or_abort (p_admsmain mymyadmsmain,const char* myaccess);
++-win32_interface p_nature adms_admsmain_list_nature_lookup_by_id (p_admsmain mymyadmsmain,const char* myaccess);
++-win32_interface void adms_admsmain_valueto_variable (p_admsmain myadmsmain,p_slist _variable);
++-win32_interface void adms_admsmain_valueto_argv (p_admsmain myadmsmain,p_slist _argv);
++-win32_interface void adms_admsmain_valueto_transform (p_admsmain myadmsmain,p_slist _transform);
++-win32_interface void adms_admsmain_valueto_invtransform (p_admsmain myadmsmain,p_slist _invtransform);
++-win32_interface void adms_admsmain_valueto_itransform (p_admsmain myadmsmain,p_slist _itransform);
++-win32_interface void adms_admsmain_valueto_itransforminsideapplytemplate (p_admsmain myadmsmain,p_slist _itransforminsideapplytemplate);
++-win32_interface void adms_admsmain_valueto_valueof (p_admsmain myadmsmain,p_slist _valueof);
++-
++-/* ------- list -------------- */
++-#define adms_list(member) ((p_list)(member))
++-struct s_list {
++- t_adms _adms;
++- char* _datatype;
++- int _datatype_isdefault : 2;
++- p_slist _item;
++- int _item_isdefault : 2;
++-};
++-win32_interface char*adms_list_uid (p_list mylist);
++-win32_interface p_list adms_list_new (const char* mydatatype);
++-win32_interface void adms_list_free(p_list mylist);
++-win32_interface void adms_list_valueto_datatype (p_list mylist,const char* _datatype);
++-win32_interface void adms_list_valueto_item (p_list mylist,p_slist _item);
++-
++-/* ------- nature -------------- */
++-#define adms_nature(member) ((p_nature)(member))
++-struct s_nature {
++- t_adms _adms;
++- char* _access;
++- int _access_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- p_number _abstol;
++- int _abstol_isdefault : 2;
++- p_nature _base;
++- int _base_isdefault : 2;
++- char* _ddt_name;
++- int _ddt_name_isdefault : 2;
++- p_nature _ddt_nature;
++- int _ddt_nature_isdefault : 2;
++- char* _idt_name;
++- int _idt_name_isdefault : 2;
++- p_nature _idt_nature;
++- int _idt_nature_isdefault : 2;
++- char* _units;
++- int _units_isdefault : 2;
++-};
++-win32_interface char*adms_nature_uid (p_nature mynature);
++-win32_interface p_nature adms_nature_new (const char* myaccess);
++-win32_interface void adms_nature_free(p_nature mynature);
++-win32_interface void adms_nature_valueto_access (p_nature mynature,const char* _access);
++-win32_interface void adms_nature_valueto_name (p_nature mynature,const char* _name);
++-win32_interface void adms_nature_valueto_abstol (p_nature mynature,p_number _abstol);
++-win32_interface void adms_nature_valueto_base (p_nature mynature,p_nature _base);
++-win32_interface void adms_nature_valueto_ddt_name (p_nature mynature,const char* _ddt_name);
++-win32_interface void adms_nature_valueto_ddt_nature (p_nature mynature,p_nature _ddt_nature);
++-win32_interface void adms_nature_valueto_idt_name (p_nature mynature,const char* _idt_name);
++-win32_interface void adms_nature_valueto_idt_nature (p_nature mynature,p_nature _idt_nature);
++-win32_interface void adms_nature_valueto_units (p_nature mynature,const char* _units);
++-
++-/* ------- discipline -------------- */
++-#define adms_discipline(member) ((p_discipline)(member))
++-struct s_discipline {
++- t_adms _adms;
++- char* _name;
++- int _name_isdefault : 2;
++- p_nature _flow;
++- int _flow_isdefault : 2;
++- p_nature _potential;
++- int _potential_isdefault : 2;
++- admse _domain;
++- int _domain_isdefault : 2;
++-};
++-win32_interface char*adms_discipline_uid (p_discipline mydiscipline);
++-win32_interface p_discipline adms_discipline_new (const char* myname);
++-win32_interface void adms_discipline_free(p_discipline mydiscipline);
++-win32_interface void adms_discipline_valueto_name (p_discipline mydiscipline,const char* _name);
++-win32_interface void adms_discipline_valueto_flow (p_discipline mydiscipline,p_nature _flow);
++-win32_interface void adms_discipline_valueto_potential (p_discipline mydiscipline,p_nature _potential);
++-win32_interface void adms_discipline_valueto_domain (p_discipline mydiscipline,admse _domain);
++-
++-/* ------- module -------------- */
++-#define adms_module(member) ((p_module)(member))
++-struct s_module {
++- t_adms _adms;
++- char* _name;
++- int _name_isdefault : 2;
++- p_slist _node;
++- int _node_isdefault : 2;
++- p_slist _nodealias;
++- int _nodealias_isdefault : 2;
++- p_slist _branch;
++- int _branch_isdefault : 2;
++- p_slist _branchalias;
++- int _branchalias_isdefault : 2;
++- p_slist _analogfunction;
++- int _analogfunction_isdefault : 2;
++- p_slist _instance;
++- int _instance_isdefault : 2;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++- p_analog _analog;
++- int _analog_isdefault : 2;
++- p_slist _block;
++- int _block_isdefault : 2;
++- p_slist _blockvariable;
++- int _blockvariable_isdefault : 2;
++- p_slist _assignment;
++- int _assignment_isdefault : 2;
++- p_slist _callfunction;
++- int _callfunction_isdefault : 2;
++- p_slist _contribution;
++- int _contribution_isdefault : 2;
++- p_slist _conditional;
++- int _conditional_isdefault : 2;
++- p_slist _case;
++- int _case_isdefault : 2;
++- p_slist _forloop;
++- int _forloop_isdefault : 2;
++- p_slist _whileloop;
++- int _whileloop_isdefault : 2;
++- p_slist _instantiator;
++- int _instantiator_isdefault : 2;
++- p_slist _expression;
++- int _expression_isdefault : 2;
++- p_slist _jacobian;
++- int _jacobian_isdefault : 2;
++- p_slist _probe;
++- int _probe_isdefault : 2;
++- p_slist _source;
++- int _source_isdefault : 2;
++- p_slist _range;
++- int _range_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++- p_evaluation _evaluation;
++- int _evaluation_isdefault : 2;
++-};
++-win32_interface char*adms_module_uid (p_module mymodule);
++-win32_interface p_module adms_module_new (const char* myname);
++-win32_interface void adms_module_free(p_module mymodule);
++-win32_interface void adms_module_valueto_name (p_module mymodule,const char* _name);
++-win32_interface void adms_module_valueto_node (p_module mymodule,p_slist _node);
++-win32_interface p_node adms_module_list_node_prepend_by_id_once_or_ignore (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface p_node adms_module_list_node_prepend_by_id_once_or_abort (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface p_node adms_module_list_node_lookup_by_id (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface void adms_module_valueto_nodealias (p_module mymodule,p_slist _nodealias);
++-win32_interface p_nodealias adms_module_list_nodealias_prepend_by_id_once_or_ignore (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface p_nodealias adms_module_list_nodealias_prepend_by_id_once_or_abort (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface p_nodealias adms_module_list_nodealias_lookup_by_id (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface void adms_module_valueto_branch (p_module mymodule,p_slist _branch);
++-win32_interface p_branch adms_module_list_branch_prepend_by_id_once_or_ignore (p_module mymymodule,p_module mymodule,p_node mypnode,p_node mynnode);
++-win32_interface void adms_module_valueto_branchalias (p_module mymodule,p_slist _branchalias);
++-win32_interface p_branchalias adms_module_list_branchalias_prepend_by_id_once_or_ignore (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface p_branchalias adms_module_list_branchalias_prepend_by_id_once_or_abort (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface p_branchalias adms_module_list_branchalias_lookup_by_id (p_module mymymodule,p_module mymodule,const char* myname);
++-win32_interface void adms_module_valueto_analogfunction (p_module mymodule,p_slist _analogfunction);
++-win32_interface void adms_module_list_analogfunction_prepend_once_or_abort (p_module mymymodule,p_analogfunction myanalogfunction);
++-win32_interface void adms_module_valueto_instance (p_module mymodule,p_slist _instance);
++-win32_interface p_instance adms_module_list_instance_prepend_by_id_once_or_abort (p_module mymymodule,p_module myinstantiator,p_module mymodule,const char* myname);
++-win32_interface void adms_module_valueto_variable (p_module mymodule,p_slist _variable);
++-win32_interface void adms_module_list_variable_prepend_once_or_abort (p_module mymymodule,p_variableprototype myvariable);
++-win32_interface p_variableprototype adms_module_list_variable_lookup_by_id (p_module mymymodule,p_module mymodule,p_lexval mylexval,p_adms myblock);
++-win32_interface void adms_module_valueto_analog (p_module mymodule,p_analog _analog);
++-win32_interface void adms_module_valueto_block (p_module mymodule,p_slist _block);
++-win32_interface void adms_module_valueto_blockvariable (p_module mymodule,p_slist _blockvariable);
++-win32_interface void adms_module_list_blockvariable_prepend_once_or_abort (p_module mymymodule,p_blockvariable myblockvariable);
++-win32_interface p_blockvariable adms_module_list_blockvariable_lookup_by_id (p_module mymymodule,p_block myblock);
++-win32_interface void adms_module_valueto_assignment (p_module mymodule,p_slist _assignment);
++-win32_interface void adms_module_valueto_callfunction (p_module mymodule,p_slist _callfunction);
++-win32_interface void adms_module_valueto_contribution (p_module mymodule,p_slist _contribution);
++-win32_interface void adms_module_valueto_conditional (p_module mymodule,p_slist _conditional);
++-win32_interface void adms_module_valueto_case (p_module mymodule,p_slist _case);
++-win32_interface void adms_module_valueto_forloop (p_module mymodule,p_slist _forloop);
++-win32_interface void adms_module_valueto_whileloop (p_module mymodule,p_slist _whileloop);
++-win32_interface void adms_module_valueto_instantiator (p_module mymodule,p_slist _instantiator);
++-win32_interface void adms_module_valueto_expression (p_module mymodule,p_slist _expression);
++-win32_interface void adms_module_valueto_jacobian (p_module mymodule,p_slist _jacobian);
++-win32_interface void adms_module_valueto_probe (p_module mymodule,p_slist _probe);
++-win32_interface p_probe adms_module_list_probe_prepend_by_id_once_or_ignore (p_module mymymodule,p_module mymodule,p_branch mybranch,p_nature mynature);
++-win32_interface void adms_module_valueto_source (p_module mymodule,p_slist _source);
++-win32_interface p_source adms_module_list_source_prepend_by_id_once_or_ignore (p_module mymymodule,p_module mymodule,p_branch mybranch,p_nature mynature);
++-win32_interface void adms_module_valueto_range (p_module mymodule,p_slist _range);
++-win32_interface p_range adms_module_list_range_prepend_by_id_once_or_abort (p_module mymymodule,p_module mymodule,p_expression myinfexpr,p_expression mysupexpr);
++-win32_interface void adms_module_valueto_attribute (p_module mymodule,p_slist _attribute);
++-win32_interface void adms_module_valueto_evaluation (p_module mymodule,p_evaluation _evaluation);
++-
++-/* ------- analogfunction -------------- */
++-#define adms_analogfunction(member) ((p_analogfunction)(member))
++-struct s_analogfunction {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_lexval _lexval;
++- int _lexval_isdefault : 2;
++- admse _type;
++- int _type_isdefault : 2;
++- p_adms _tree;
++- int _tree_isdefault : 2;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++-};
++-win32_interface char*adms_analogfunction_uid (p_analogfunction myanalogfunction);
++-win32_interface p_analogfunction adms_analogfunction_new (p_module mymodule,p_lexval mylexval);
++-win32_interface void adms_analogfunction_free(p_analogfunction myanalogfunction);
++-win32_interface void adms_analogfunction_valueto_module (p_analogfunction myanalogfunction,p_module _module);
++-win32_interface void adms_analogfunction_valueto_lexval (p_analogfunction myanalogfunction,p_lexval _lexval);
++-win32_interface void adms_analogfunction_valueto_type (p_analogfunction myanalogfunction,admse _type);
++-win32_interface void adms_analogfunction_valueto_tree (p_analogfunction myanalogfunction,p_adms _tree);
++-win32_interface void adms_analogfunction_valueto_variable (p_analogfunction myanalogfunction,p_slist _variable);
++-win32_interface void adms_analogfunction_list_variable_prepend_once_or_abort (p_analogfunction mymyanalogfunction,p_variableprototype myvariable);
++-win32_interface p_variableprototype adms_analogfunction_list_variable_lookup_by_id (p_analogfunction mymyanalogfunction,p_module mymodule,p_lexval mylexval,p_adms myblock);
++-win32_interface void adms_analogfunction_valueto_attribute (p_analogfunction myanalogfunction,p_slist _attribute);
++-
++-/* ------- nodealias -------------- */
++-#define adms_nodealias(member) ((p_nodealias)(member))
++-struct s_nodealias {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- p_node _node;
++- int _node_isdefault : 2;
++-};
++-win32_interface char*adms_nodealias_uid (p_nodealias mynodealias);
++-win32_interface p_nodealias adms_nodealias_new (p_module mymodule,const char* myname);
++-win32_interface void adms_nodealias_free(p_nodealias mynodealias);
++-win32_interface void adms_nodealias_valueto_module (p_nodealias mynodealias,p_module _module);
++-win32_interface void adms_nodealias_valueto_name (p_nodealias mynodealias,const char* _name);
++-win32_interface void adms_nodealias_valueto_node (p_nodealias mynodealias,p_node _node);
++-
++-/* ------- node -------------- */
++-#define adms_node(member) ((p_node)(member))
++-struct s_node {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- admse _direction;
++- int _direction_isdefault : 2;
++- p_discipline _discipline;
++- int _discipline_isdefault : 2;
++- admse _grounded;
++- int _grounded_isdefault : 2;
++- admse _location;
++- int _location_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++-};
++-win32_interface char*adms_node_uid (p_node mynode);
++-win32_interface p_node adms_node_new (p_module mymodule,const char* myname);
++-win32_interface void adms_node_free(p_node mynode);
++-win32_interface void adms_node_valueto_module (p_node mynode,p_module _module);
++-win32_interface void adms_node_valueto_name (p_node mynode,const char* _name);
++-win32_interface void adms_node_valueto_direction (p_node mynode,admse _direction);
++-win32_interface void adms_node_valueto_discipline (p_node mynode,p_discipline _discipline);
++-win32_interface void adms_node_valueto_grounded (p_node mynode,admse _grounded);
++-win32_interface void adms_node_valueto_location (p_node mynode,admse _location);
++-win32_interface void adms_node_valueto_attribute (p_node mynode,p_slist _attribute);
++-
++-/* ------- branchalias -------------- */
++-#define adms_branchalias(member) ((p_branchalias)(member))
++-struct s_branchalias {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- p_branch _branch;
++- int _branch_isdefault : 2;
++-};
++-win32_interface char*adms_branchalias_uid (p_branchalias mybranchalias);
++-win32_interface p_branchalias adms_branchalias_new (p_module mymodule,const char* myname);
++-win32_interface void adms_branchalias_free(p_branchalias mybranchalias);
++-win32_interface void adms_branchalias_valueto_module (p_branchalias mybranchalias,p_module _module);
++-win32_interface void adms_branchalias_valueto_name (p_branchalias mybranchalias,const char* _name);
++-win32_interface void adms_branchalias_valueto_branch (p_branchalias mybranchalias,p_branch _branch);
++-
++-/* ------- branch -------------- */
++-#define adms_branch(member) ((p_branch)(member))
++-struct s_branch {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_node _pnode;
++- int _pnode_isdefault : 2;
++- p_node _nnode;
++- int _nnode_isdefault : 2;
++- p_discipline _discipline;
++- int _discipline_isdefault : 2;
++- admse _grounded;
++- int _grounded_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++-};
++-win32_interface char*adms_branch_uid (p_branch mybranch);
++-win32_interface p_branch adms_branch_new (p_module mymodule,p_node mypnode,p_node mynnode);
++-win32_interface void adms_branch_free(p_branch mybranch);
++-win32_interface void adms_branch_valueto_module (p_branch mybranch,p_module _module);
++-win32_interface void adms_branch_valueto_pnode (p_branch mybranch,p_node _pnode);
++-win32_interface void adms_branch_valueto_nnode (p_branch mybranch,p_node _nnode);
++-win32_interface void adms_branch_valueto_discipline (p_branch mybranch,p_discipline _discipline);
++-win32_interface void adms_branch_valueto_grounded (p_branch mybranch,admse _grounded);
++-win32_interface void adms_branch_valueto_attribute (p_branch mybranch,p_slist _attribute);
++-
++-/* ------- variableprototype -------------- */
++-#define adms_variableprototype(member) ((p_variableprototype)(member))
++-struct s_variableprototype {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_lexval _lexval;
++- int _lexval_isdefault : 2;
++- p_adms _block;
++- int _block_isdefault : 2;
++- admse _dependency;
++- int _dependency_isdefault : 2;
++- admse _static;
++- int _static_isdefault : 2;
++- admse _dynamic;
++- int _dynamic_isdefault : 2;
++- admse _sizetype;
++- int _sizetype_isdefault : 2;
++- admse _parametertype;
++- int _parametertype_isdefault : 2;
++- admse _type;
++- int _type_isdefault : 2;
++- p_number _maxsize;
++- int _maxsize_isdefault : 2;
++- p_number _minsize;
++- int _minsize_isdefault : 2;
++- admse _input;
++- int _input_isdefault : 2;
++- admse _output;
++- int _output_isdefault : 2;
++- admse _scope;
++- int _scope_isdefault : 2;
++- p_expression _default;
++- int _default_isdefault : 2;
++- admse _derivate;
++- int _derivate_isdefault : 2;
++- admse _isstate;
++- int _isstate_isdefault : 2;
++- admse _usedinmodel;
++- int _usedinmodel_isdefault : 2;
++- admse _usedininstance;
++- int _usedininstance_isdefault : 2;
++- admse _usedininitial_step;
++- int _usedininitial_step_isdefault : 2;
++- admse _usedinevaluate;
++- int _usedinevaluate_isdefault : 2;
++- admse _usedinnoise;
++- int _usedinnoise_isdefault : 2;
++- admse _usedinfinal;
++- int _usedinfinal_isdefault : 2;
++- admse _setinmodel;
++- int _setinmodel_isdefault : 2;
++- admse _setininstance;
++- int _setininstance_isdefault : 2;
++- admse _setininitial_step;
++- int _setininitial_step_isdefault : 2;
++- admse _setinevaluate;
++- int _setinevaluate_isdefault : 2;
++- admse _setinnoise;
++- int _setinnoise_isdefault : 2;
++- admse _setinfinal;
++- int _setinfinal_isdefault : 2;
++- admse _setingetprev;
++- int _setingetprev_isdefault : 2;
++- admse _TemperatureDependent;
++- int _TemperatureDependent_isdefault : 2;
++- admse _OPdependent;
++- int _OPdependent_isdefault : 2;
++- admse _insource;
++- int _insource_isdefault : 2;
++- int _vcount;
++- int _vcount_isdefault : 2;
++- p_assignment _vlast;
++- int _vlast_isdefault : 2;
++- p_slist _arraydefault;
++- int _arraydefault_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++- p_slist _alias;
++- int _alias_isdefault : 2;
++- p_slist _range;
++- int _range_isdefault : 2;
++- p_slist _probe;
++- int _probe_isdefault : 2;
++- p_slist _ddxprobe;
++- int _ddxprobe_isdefault : 2;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++- p_slist _assignment;
++- int _assignment_isdefault : 2;
++- p_slist _instance;
++- int _instance_isdefault : 2;
++-};
++-win32_interface char*adms_variableprototype_uid (p_variableprototype myvariableprototype);
++-win32_interface p_variableprototype adms_variableprototype_new (p_module mymodule,p_lexval mylexval,p_adms myblock);
++-win32_interface void adms_variableprototype_free(p_variableprototype myvariableprototype);
++-win32_interface void adms_variableprototype_valueto_module (p_variableprototype myvariableprototype,p_module _module);
++-win32_interface void adms_variableprototype_valueto_lexval (p_variableprototype myvariableprototype,p_lexval _lexval);
++-win32_interface void adms_variableprototype_valueto_block (p_variableprototype myvariableprototype,p_adms _block);
++-win32_interface void adms_variableprototype_valueto_dependency (p_variableprototype myvariableprototype,admse _dependency);
++-win32_interface void adms_variableprototype_valueto_static (p_variableprototype myvariableprototype,admse _static);
++-win32_interface void adms_variableprototype_valueto_dynamic (p_variableprototype myvariableprototype,admse _dynamic);
++-win32_interface void adms_variableprototype_valueto_sizetype (p_variableprototype myvariableprototype,admse _sizetype);
++-win32_interface void adms_variableprototype_valueto_parametertype (p_variableprototype myvariableprototype,admse _parametertype);
++-win32_interface void adms_variableprototype_valueto_type (p_variableprototype myvariableprototype,admse _type);
++-win32_interface void adms_variableprototype_valueto_maxsize (p_variableprototype myvariableprototype,p_number _maxsize);
++-win32_interface void adms_variableprototype_valueto_minsize (p_variableprototype myvariableprototype,p_number _minsize);
++-win32_interface void adms_variableprototype_valueto_input (p_variableprototype myvariableprototype,admse _input);
++-win32_interface void adms_variableprototype_valueto_output (p_variableprototype myvariableprototype,admse _output);
++-win32_interface void adms_variableprototype_valueto_scope (p_variableprototype myvariableprototype,admse _scope);
++-win32_interface void adms_variableprototype_valueto_default (p_variableprototype myvariableprototype,p_expression _default);
++-win32_interface void adms_variableprototype_valueto_derivate (p_variableprototype myvariableprototype,admse _derivate);
++-win32_interface void adms_variableprototype_valueto_isstate (p_variableprototype myvariableprototype,admse _isstate);
++-win32_interface void adms_variableprototype_valueto_usedinmodel (p_variableprototype myvariableprototype,admse _usedinmodel);
++-win32_interface void adms_variableprototype_valueto_usedininstance (p_variableprototype myvariableprototype,admse _usedininstance);
++-win32_interface void adms_variableprototype_valueto_usedininitial_step (p_variableprototype myvariableprototype,admse _usedininitial_step);
++-win32_interface void adms_variableprototype_valueto_usedinevaluate (p_variableprototype myvariableprototype,admse _usedinevaluate);
++-win32_interface void adms_variableprototype_valueto_usedinnoise (p_variableprototype myvariableprototype,admse _usedinnoise);
++-win32_interface void adms_variableprototype_valueto_usedinfinal (p_variableprototype myvariableprototype,admse _usedinfinal);
++-win32_interface void adms_variableprototype_valueto_setinmodel (p_variableprototype myvariableprototype,admse _setinmodel);
++-win32_interface void adms_variableprototype_valueto_setininstance (p_variableprototype myvariableprototype,admse _setininstance);
++-win32_interface void adms_variableprototype_valueto_setininitial_step (p_variableprototype myvariableprototype,admse _setininitial_step);
++-win32_interface void adms_variableprototype_valueto_setinevaluate (p_variableprototype myvariableprototype,admse _setinevaluate);
++-win32_interface void adms_variableprototype_valueto_setinnoise (p_variableprototype myvariableprototype,admse _setinnoise);
++-win32_interface void adms_variableprototype_valueto_setinfinal (p_variableprototype myvariableprototype,admse _setinfinal);
++-win32_interface void adms_variableprototype_valueto_setingetprev (p_variableprototype myvariableprototype,admse _setingetprev);
++-win32_interface void adms_variableprototype_valueto_TemperatureDependent (p_variableprototype myvariableprototype,admse _TemperatureDependent);
++-win32_interface void adms_variableprototype_valueto_OPdependent (p_variableprototype myvariableprototype,admse _OPdependent);
++-win32_interface void adms_variableprototype_valueto_insource (p_variableprototype myvariableprototype,admse _insource);
++-win32_interface void adms_variableprototype_valueto_vcount (p_variableprototype myvariableprototype,int _vcount);
++-win32_interface void adms_variableprototype_valueto_vlast (p_variableprototype myvariableprototype,p_assignment _vlast);
++-win32_interface void adms_variableprototype_valueto_arraydefault (p_variableprototype myvariableprototype,p_slist _arraydefault);
++-win32_interface void adms_variableprototype_valueto_attribute (p_variableprototype myvariableprototype,p_slist _attribute);
++-win32_interface void adms_variableprototype_valueto_alias (p_variableprototype myvariableprototype,p_slist _alias);
++-win32_interface void adms_variableprototype_list_alias_prepend_once_or_abort (p_variableprototype mymyvariableprototype,const char* myalias);
++-win32_interface void adms_variableprototype_valueto_range (p_variableprototype myvariableprototype,p_slist _range);
++-win32_interface void adms_variableprototype_valueto_probe (p_variableprototype myvariableprototype,p_slist _probe);
++-win32_interface void adms_variableprototype_valueto_ddxprobe (p_variableprototype myvariableprototype,p_slist _ddxprobe);
++-win32_interface void adms_variableprototype_valueto_variable (p_variableprototype myvariableprototype,p_slist _variable);
++-win32_interface void adms_variableprototype_valueto_assignment (p_variableprototype myvariableprototype,p_slist _assignment);
++-win32_interface void adms_variableprototype_valueto_instance (p_variableprototype myvariableprototype,p_slist _instance);
++-
++-/* ------- source -------------- */
++-#define adms_source(member) ((p_source)(member))
++-struct s_source {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_branch _branch;
++- int _branch_isdefault : 2;
++- p_nature _nature;
++- int _nature_isdefault : 2;
++- p_discipline _discipline;
++- int _discipline_isdefault : 2;
++- admse _static;
++- int _static_isdefault : 2;
++- admse _dynamic;
++- int _dynamic_isdefault : 2;
++- admse _whitenoise;
++- int _whitenoise_isdefault : 2;
++- admse _flickernoise;
++- int _flickernoise_isdefault : 2;
++- admse _grounded;
++- int _grounded_isdefault : 2;
++- admse _switch;
++- int _switch_isdefault : 2;
++- admse _type;
++- int _type_isdefault : 2;
++- p_slist _probe;
++- int _probe_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++-};
++-win32_interface char*adms_source_uid (p_source mysource);
++-win32_interface p_source adms_source_new (p_module mymodule,p_branch mybranch,p_nature mynature);
++-win32_interface void adms_source_free(p_source mysource);
++-win32_interface void adms_source_valueto_module (p_source mysource,p_module _module);
++-win32_interface void adms_source_valueto_branch (p_source mysource,p_branch _branch);
++-win32_interface void adms_source_valueto_nature (p_source mysource,p_nature _nature);
++-win32_interface void adms_source_valueto_discipline (p_source mysource,p_discipline _discipline);
++-win32_interface void adms_source_valueto_static (p_source mysource,admse _static);
++-win32_interface void adms_source_valueto_dynamic (p_source mysource,admse _dynamic);
++-win32_interface void adms_source_valueto_whitenoise (p_source mysource,admse _whitenoise);
++-win32_interface void adms_source_valueto_flickernoise (p_source mysource,admse _flickernoise);
++-win32_interface void adms_source_valueto_grounded (p_source mysource,admse _grounded);
++-win32_interface void adms_source_valueto_switch (p_source mysource,admse _switch);
++-win32_interface void adms_source_valueto_type (p_source mysource,admse _type);
++-win32_interface void adms_source_valueto_probe (p_source mysource,p_slist _probe);
++-win32_interface void adms_source_valueto_attribute (p_source mysource,p_slist _attribute);
++-
++-/* ------- range -------------- */
++-#define adms_range(member) ((p_range)(member))
++-struct s_range {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_expression _infexpr;
++- int _infexpr_isdefault : 2;
++- p_expression _supexpr;
++- int _supexpr_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- admse _infboundtype;
++- int _infboundtype_isdefault : 2;
++- admse _supboundtype;
++- int _supboundtype_isdefault : 2;
++- admse _type;
++- int _type_isdefault : 2;
++-};
++-win32_interface char*adms_range_uid (p_range myrange);
++-win32_interface p_range adms_range_new (p_module mymodule,p_expression myinfexpr,p_expression mysupexpr);
++-win32_interface void adms_range_free(p_range myrange);
++-win32_interface void adms_range_valueto_module (p_range myrange,p_module _module);
++-win32_interface void adms_range_valueto_infexpr (p_range myrange,p_expression _infexpr);
++-win32_interface void adms_range_valueto_supexpr (p_range myrange,p_expression _supexpr);
++-win32_interface void adms_range_valueto_name (p_range myrange,const char* _name);
++-win32_interface void adms_range_valueto_infboundtype (p_range myrange,admse _infboundtype);
++-win32_interface void adms_range_valueto_supboundtype (p_range myrange,admse _supboundtype);
++-win32_interface void adms_range_valueto_type (p_range myrange,admse _type);
++-
++-/* ------- jacobian -------------- */
++-#define adms_jacobian(member) ((p_jacobian)(member))
++-struct s_jacobian {
++- t_adms _adms;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_node _row;
++- int _row_isdefault : 2;
++- p_node _column;
++- int _column_isdefault : 2;
++- admse _diagonal;
++- int _diagonal_isdefault : 2;
++- admse _static;
++- int _static_isdefault : 2;
++- admse _dynamic;
++- int _dynamic_isdefault : 2;
++-};
++-win32_interface char*adms_jacobian_uid (p_jacobian myjacobian);
++-win32_interface p_jacobian adms_jacobian_new (p_module mymodule,p_node myrow,p_node mycolumn);
++-win32_interface void adms_jacobian_free(p_jacobian myjacobian);
++-win32_interface void adms_jacobian_valueto_module (p_jacobian myjacobian,p_module _module);
++-win32_interface void adms_jacobian_valueto_row (p_jacobian myjacobian,p_node _row);
++-win32_interface void adms_jacobian_valueto_column (p_jacobian myjacobian,p_node _column);
++-win32_interface void adms_jacobian_valueto_diagonal (p_jacobian myjacobian,admse _diagonal);
++-win32_interface void adms_jacobian_valueto_static (p_jacobian myjacobian,admse _static);
++-win32_interface void adms_jacobian_valueto_dynamic (p_jacobian myjacobian,admse _dynamic);
++-
++-/* ------- analog -------------- */
++-#define adms_analog(member) ((p_analog)(member))
++-struct s_analog {
++- t_adms _adms;
++- p_adms _code;
++- int _code_isdefault : 2;
++-};
++-win32_interface char*adms_analog_uid (p_analog myanalog);
++-win32_interface p_analog adms_analog_new (p_adms mycode);
++-win32_interface void adms_analog_free(p_analog myanalog);
++-win32_interface void adms_analog_valueto_code (p_analog myanalog,p_adms _code);
++-
++-/* ------- math -------------- */
++-#define adms_math(member) ((p_math)(member))
++-struct s_math {
++- t_adms _adms;
++- char* _name;
++- int _name_isdefault : 2;
++- double _value;
++- int _value_isdefault : 2;
++- admse _static;
++- int _static_isdefault : 2;
++- admse _dynamic;
++- int _dynamic_isdefault : 2;
++- admse _dependency;
++- int _dependency_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++-};
++-win32_interface char*adms_math_uid (p_math mymath);
++-win32_interface p_math adms_math_new (const char* myname);
++-win32_interface void adms_math_free(p_math mymath);
++-win32_interface void adms_math_valueto_name (p_math mymath,const char* _name);
++-win32_interface void adms_math_valueto_value (p_math mymath,double _value);
++-win32_interface void adms_math_valueto_static (p_math mymath,admse _static);
++-win32_interface void adms_math_valueto_dynamic (p_math mymath,admse _dynamic);
++-win32_interface void adms_math_valueto_dependency (p_math mymath,admse _dependency);
++-win32_interface void adms_math_valueto_attribute (p_math mymath,p_slist _attribute);
++-
++-/* ------- string -------------- */
++-#define adms_string(member) ((p_string)(member))
++-struct s_string {
++- t_math _math;
++- char* _value;
++- int _value_isdefault : 2;
++-};
++-win32_interface char*adms_string_uid (p_string mystring);
++-win32_interface p_string adms_string_new (const char* myvalue);
++-win32_interface void adms_string_free(p_string mystring);
++-win32_interface void adms_string_valueto_value (p_string mystring,const char* _value);
++-
++-/* ------- subexpression -------------- */
++-#define adms_subexpression(member) ((p_subexpression)(member))
++-struct s_subexpression {
++- t_math _math;
++- p_expression _expression;
++- int _expression_isdefault : 2;
++-};
++-win32_interface char*adms_subexpression_uid (p_subexpression mysubexpression);
++-win32_interface p_subexpression adms_subexpression_new (p_expression myexpression);
++-win32_interface void adms_subexpression_free(p_subexpression mysubexpression);
++-win32_interface void adms_subexpression_valueto_expression (p_subexpression mysubexpression,p_expression _expression);
++-
++-/* ------- mapply_unary -------------- */
++-#define adms_mapply_unary(member) ((p_mapply_unary)(member))
++-struct s_mapply_unary {
++- t_subexpression _subexpression;
++- admse _name;
++- int _name_isdefault : 2;
++- p_adms _arg1;
++- int _arg1_isdefault : 2;
++-};
++-win32_interface char*adms_mapply_unary_uid (p_mapply_unary mymapply_unary);
++-win32_interface p_mapply_unary adms_mapply_unary_new (admse myname,p_adms myarg1);
++-win32_interface void adms_mapply_unary_free(p_mapply_unary mymapply_unary);
++-win32_interface void adms_mapply_unary_valueto_name (p_mapply_unary mymapply_unary,admse _name);
++-win32_interface void adms_mapply_unary_valueto_arg1 (p_mapply_unary mymapply_unary,p_adms _arg1);
++-
++-/* ------- mapply_binary -------------- */
++-#define adms_mapply_binary(member) ((p_mapply_binary)(member))
++-struct s_mapply_binary {
++- t_subexpression _subexpression;
++- admse _name;
++- int _name_isdefault : 2;
++- p_adms _arg1;
++- int _arg1_isdefault : 2;
++- p_adms _arg2;
++- int _arg2_isdefault : 2;
++-};
++-win32_interface char*adms_mapply_binary_uid (p_mapply_binary mymapply_binary);
++-win32_interface p_mapply_binary adms_mapply_binary_new (admse myname,p_adms myarg1,p_adms myarg2);
++-win32_interface void adms_mapply_binary_free(p_mapply_binary mymapply_binary);
++-win32_interface void adms_mapply_binary_valueto_name (p_mapply_binary mymapply_binary,admse _name);
++-win32_interface void adms_mapply_binary_valueto_arg1 (p_mapply_binary mymapply_binary,p_adms _arg1);
++-win32_interface void adms_mapply_binary_valueto_arg2 (p_mapply_binary mymapply_binary,p_adms _arg2);
++-
++-/* ------- mapply_ternary -------------- */
++-#define adms_mapply_ternary(member) ((p_mapply_ternary)(member))
++-struct s_mapply_ternary {
++- t_subexpression _subexpression;
++- admse _name;
++- int _name_isdefault : 2;
++- p_adms _arg1;
++- int _arg1_isdefault : 2;
++- p_adms _arg2;
++- int _arg2_isdefault : 2;
++- p_adms _arg3;
++- int _arg3_isdefault : 2;
++-};
++-win32_interface char*adms_mapply_ternary_uid (p_mapply_ternary mymapply_ternary);
++-win32_interface p_mapply_ternary adms_mapply_ternary_new (admse myname,p_adms myarg1,p_adms myarg2,p_adms myarg3);
++-win32_interface void adms_mapply_ternary_free(p_mapply_ternary mymapply_ternary);
++-win32_interface void adms_mapply_ternary_valueto_name (p_mapply_ternary mymapply_ternary,admse _name);
++-win32_interface void adms_mapply_ternary_valueto_arg1 (p_mapply_ternary mymapply_ternary,p_adms _arg1);
++-win32_interface void adms_mapply_ternary_valueto_arg2 (p_mapply_ternary mymapply_ternary,p_adms _arg2);
++-win32_interface void adms_mapply_ternary_valueto_arg3 (p_mapply_ternary mymapply_ternary,p_adms _arg3);
++-
++-/* ------- number -------------- */
++-#define adms_number(member) ((p_number)(member))
++-struct s_number {
++- t_subexpression _subexpression;
++- p_lexval _lexval;
++- int _lexval_isdefault : 2;
++- admse _scalingunit;
++- int _scalingunit_isdefault : 2;
++- admse _cast;
++- int _cast_isdefault : 2;
++-};
++-win32_interface char*adms_number_uid (p_number mynumber);
++-win32_interface p_number adms_number_new (p_lexval mylexval);
++-win32_interface void adms_number_free(p_number mynumber);
++-win32_interface void adms_number_valueto_lexval (p_number mynumber,p_lexval _lexval);
++-win32_interface void adms_number_valueto_scalingunit (p_number mynumber,admse _scalingunit);
++-win32_interface void adms_number_valueto_cast (p_number mynumber,admse _cast);
++-
++-/* ------- function -------------- */
++-#define adms_function(member) ((p_function)(member))
++-struct s_function {
++- t_subexpression _subexpression;
++- p_lexval _lexval;
++- int _lexval_isdefault : 2;
++- int _unique_id;
++- int _unique_id_isdefault : 2;
++- p_analogfunction _definition;
++- int _definition_isdefault : 2;
++- admse _class;
++- int _class_isdefault : 2;
++- p_slist _arguments;
++- int _arguments_isdefault : 2;
++-};
++-win32_interface char*adms_function_uid (p_function myfunction);
++-win32_interface p_function adms_function_new (p_lexval mylexval,int myunique_id);
++-win32_interface void adms_function_free(p_function myfunction);
++-win32_interface void adms_function_valueto_lexval (p_function myfunction,p_lexval _lexval);
++-win32_interface void adms_function_valueto_unique_id (p_function myfunction,int _unique_id);
++-win32_interface void adms_function_valueto_definition (p_function myfunction,p_analogfunction _definition);
++-win32_interface void adms_function_valueto_class (p_function myfunction,admse _class);
++-win32_interface void adms_function_valueto_arguments (p_function myfunction,p_slist _arguments);
++-
++-/* ------- variable -------------- */
++-#define adms_variable(member) ((p_variable)(member))
++-struct s_variable {
++- t_subexpression _subexpression;
++- p_variableprototype _prototype;
++- int _prototype_isdefault : 2;
++-};
++-win32_interface char*adms_variable_uid (p_variable myvariable);
++-win32_interface p_variable adms_variable_new (p_variableprototype myprototype);
++-win32_interface void adms_variable_free(p_variable myvariable);
++-win32_interface void adms_variable_valueto_prototype (p_variable myvariable,p_variableprototype _prototype);
++-
++-/* ------- array -------------- */
++-#define adms_array(member) ((p_array)(member))
++-struct s_array {
++- t_subexpression _subexpression;
++- p_variable _variable;
++- int _variable_isdefault : 2;
++- p_adms _index;
++- int _index_isdefault : 2;
++-};
++-win32_interface char*adms_array_uid (p_array myarray);
++-win32_interface p_array adms_array_new (p_variable myvariable,p_adms myindex);
++-win32_interface void adms_array_free(p_array myarray);
++-win32_interface void adms_array_valueto_variable (p_array myarray,p_variable _variable);
++-win32_interface void adms_array_valueto_index (p_array myarray,p_adms _index);
++-
++-/* ------- probe -------------- */
++-#define adms_probe(member) ((p_probe)(member))
++-struct s_probe {
++- t_subexpression _subexpression;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_branch _branch;
++- int _branch_isdefault : 2;
++- p_nature _nature;
++- int _nature_isdefault : 2;
++- admse _seen;
++- int _seen_isdefault : 2;
++- p_discipline _discipline;
++- int _discipline_isdefault : 2;
++- admse _grounded;
++- int _grounded_isdefault : 2;
++- p_source _source;
++- int _source_isdefault : 2;
++-};
++-win32_interface char*adms_probe_uid (p_probe myprobe);
++-win32_interface p_probe adms_probe_new (p_module mymodule,p_branch mybranch,p_nature mynature);
++-win32_interface void adms_probe_free(p_probe myprobe);
++-win32_interface void adms_probe_valueto_module (p_probe myprobe,p_module _module);
++-win32_interface void adms_probe_valueto_branch (p_probe myprobe,p_branch _branch);
++-win32_interface void adms_probe_valueto_nature (p_probe myprobe,p_nature _nature);
++-win32_interface void adms_probe_valueto_seen (p_probe myprobe,admse _seen);
++-win32_interface void adms_probe_valueto_discipline (p_probe myprobe,p_discipline _discipline);
++-win32_interface void adms_probe_valueto_grounded (p_probe myprobe,admse _grounded);
++-win32_interface void adms_probe_valueto_source (p_probe myprobe,p_source _source);
++-
++-/* ------- expression -------------- */
++-#define adms_expression(member) ((p_expression)(member))
++-struct s_expression {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_adms _tree;
++- int _tree_isdefault : 2;
++- char* _hasspecialnumber;
++- int _hasspecialnumber_isdefault : 2;
++- admse _hasVoltageDependentFunction;
++- int _hasVoltageDependentFunction_isdefault : 2;
++- admse _infinity;
++- int _infinity_isdefault : 2;
++- admse _TemperatureDependent;
++- int _TemperatureDependent_isdefault : 2;
++- admse _value;
++- int _value_isdefault : 2;
++- p_slist _function;
++- int _function_isdefault : 2;
++- p_slist _probe;
++- int _probe_isdefault : 2;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++-};
++-win32_interface char*adms_expression_uid (p_expression myexpression);
++-win32_interface p_expression adms_expression_new (p_module mymodule,p_adms mytree);
++-win32_interface void adms_expression_free(p_expression myexpression);
++-win32_interface void adms_expression_valueto_module (p_expression myexpression,p_module _module);
++-win32_interface void adms_expression_valueto_tree (p_expression myexpression,p_adms _tree);
++-win32_interface void adms_expression_valueto_hasspecialnumber (p_expression myexpression,const char* _hasspecialnumber);
++-win32_interface void adms_expression_valueto_hasVoltageDependentFunction (p_expression myexpression,admse _hasVoltageDependentFunction);
++-win32_interface void adms_expression_valueto_infinity (p_expression myexpression,admse _infinity);
++-win32_interface void adms_expression_valueto_TemperatureDependent (p_expression myexpression,admse _TemperatureDependent);
++-win32_interface void adms_expression_valueto_value (p_expression myexpression,admse _value);
++-win32_interface void adms_expression_valueto_function (p_expression myexpression,p_slist _function);
++-win32_interface void adms_expression_valueto_probe (p_expression myexpression,p_slist _probe);
++-win32_interface void adms_expression_valueto_variable (p_expression myexpression,p_slist _variable);
++-
++-/* ------- instance -------------- */
++-#define adms_instance(member) ((p_instance)(member))
++-struct s_instance {
++- t_math _math;
++- p_module _instantiator;
++- int _instantiator_isdefault : 2;
++- p_module _module;
++- int _module_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- p_slist _terminal;
++- int _terminal_isdefault : 2;
++- p_slist _parameterset;
++- int _parameterset_isdefault : 2;
++-};
++-win32_interface char*adms_instance_uid (p_instance myinstance);
++-win32_interface p_instance adms_instance_new (p_module myinstantiator,p_module mymodule,const char* myname);
++-win32_interface void adms_instance_free(p_instance myinstance);
++-win32_interface void adms_instance_valueto_instantiator (p_instance myinstance,p_module _instantiator);
++-win32_interface void adms_instance_valueto_module (p_instance myinstance,p_module _module);
++-win32_interface void adms_instance_valueto_name (p_instance myinstance,const char* _name);
++-win32_interface void adms_instance_valueto_terminal (p_instance myinstance,p_slist _terminal);
++-win32_interface void adms_instance_list_terminal_prepend_once_or_abort (p_instance mymyinstance,p_instancenode myterminal);
++-win32_interface void adms_instance_valueto_parameterset (p_instance myinstance,p_slist _parameterset);
++-win32_interface void adms_instance_list_parameterset_prepend_once_or_abort (p_instance mymyinstance,p_instanceparameter myparameterset);
++-
++-/* ------- instanceparameter -------------- */
++-#define adms_instanceparameter(member) ((p_instanceparameter)(member))
++-struct s_instanceparameter {
++- t_math _math;
++- p_variableprototype _parameter;
++- int _parameter_isdefault : 2;
++- p_expression _value;
++- int _value_isdefault : 2;
++-};
++-win32_interface char*adms_instanceparameter_uid (p_instanceparameter myinstanceparameter);
++-win32_interface p_instanceparameter adms_instanceparameter_new (p_variableprototype myparameter);
++-win32_interface void adms_instanceparameter_free(p_instanceparameter myinstanceparameter);
++-win32_interface void adms_instanceparameter_valueto_parameter (p_instanceparameter myinstanceparameter,p_variableprototype _parameter);
++-win32_interface void adms_instanceparameter_valueto_value (p_instanceparameter myinstanceparameter,p_expression _value);
++-
++-/* ------- instancenode -------------- */
++-#define adms_instancenode(member) ((p_instancenode)(member))
++-struct s_instancenode {
++- t_math _math;
++- p_node _nodefrominstantiator;
++- int _nodefrominstantiator_isdefault : 2;
++- p_node _nodefrommodule;
++- int _nodefrommodule_isdefault : 2;
++-};
++-win32_interface char*adms_instancenode_uid (p_instancenode myinstancenode);
++-win32_interface p_instancenode adms_instancenode_new (p_node mynodefrominstantiator,p_node mynodefrommodule);
++-win32_interface void adms_instancenode_free(p_instancenode myinstancenode);
++-win32_interface void adms_instancenode_valueto_nodefrominstantiator (p_instancenode myinstancenode,p_node _nodefrominstantiator);
++-win32_interface void adms_instancenode_valueto_nodefrommodule (p_instancenode myinstancenode,p_node _nodefrommodule);
++-
++-/* ------- nilled -------------- */
++-#define adms_nilled(member) ((p_nilled)(member))
++-struct s_nilled {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++-};
++-win32_interface char*adms_nilled_uid (p_nilled mynilled);
++-win32_interface p_nilled adms_nilled_new (p_module mymodule);
++-win32_interface void adms_nilled_free(p_nilled mynilled);
++-win32_interface void adms_nilled_valueto_module (p_nilled mynilled,p_module _module);
++-win32_interface void adms_nilled_valueto_name (p_nilled mynilled,const char* _name);
++-
++-/* ------- assignment -------------- */
++-#define adms_assignment(member) ((p_assignment)(member))
++-struct s_assignment {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_adms _lhs;
++- int _lhs_isdefault : 2;
++- p_expression _rhs;
++- int _rhs_isdefault : 2;
++- p_lexval _lexval;
++- int _lexval_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++-};
++-win32_interface char*adms_assignment_uid (p_assignment myassignment);
++-win32_interface p_assignment adms_assignment_new (p_module mymodule,p_adms mylhs,p_expression myrhs,p_lexval mylexval);
++-win32_interface void adms_assignment_free(p_assignment myassignment);
++-win32_interface void adms_assignment_valueto_module (p_assignment myassignment,p_module _module);
++-win32_interface void adms_assignment_valueto_lhs (p_assignment myassignment,p_adms _lhs);
++-win32_interface void adms_assignment_valueto_rhs (p_assignment myassignment,p_expression _rhs);
++-win32_interface void adms_assignment_valueto_lexval (p_assignment myassignment,p_lexval _lexval);
++-win32_interface void adms_assignment_valueto_name (p_assignment myassignment,const char* _name);
++-win32_interface void adms_assignment_valueto_attribute (p_assignment myassignment,p_slist _attribute);
++-
++-/* ------- contribution -------------- */
++-#define adms_contribution(member) ((p_contribution)(member))
++-struct s_contribution {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_source _lhs;
++- int _lhs_isdefault : 2;
++- p_expression _rhs;
++- int _rhs_isdefault : 2;
++- p_lexval _lexval;
++- int _lexval_isdefault : 2;
++- p_branchalias _branchalias;
++- int _branchalias_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- admse _whitenoise;
++- int _whitenoise_isdefault : 2;
++- admse _flickernoise;
++- int _flickernoise_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++-};
++-win32_interface char*adms_contribution_uid (p_contribution mycontribution);
++-win32_interface p_contribution adms_contribution_new (p_module mymodule,p_source mylhs,p_expression myrhs,p_lexval mylexval);
++-win32_interface void adms_contribution_free(p_contribution mycontribution);
++-win32_interface void adms_contribution_valueto_module (p_contribution mycontribution,p_module _module);
++-win32_interface void adms_contribution_valueto_lhs (p_contribution mycontribution,p_source _lhs);
++-win32_interface void adms_contribution_valueto_rhs (p_contribution mycontribution,p_expression _rhs);
++-win32_interface void adms_contribution_valueto_lexval (p_contribution mycontribution,p_lexval _lexval);
++-win32_interface void adms_contribution_valueto_branchalias (p_contribution mycontribution,p_branchalias _branchalias);
++-win32_interface void adms_contribution_valueto_name (p_contribution mycontribution,const char* _name);
++-win32_interface void adms_contribution_valueto_whitenoise (p_contribution mycontribution,admse _whitenoise);
++-win32_interface void adms_contribution_valueto_flickernoise (p_contribution mycontribution,admse _flickernoise);
++-win32_interface void adms_contribution_valueto_attribute (p_contribution mycontribution,p_slist _attribute);
++-
++-/* ------- conditional -------------- */
++-#define adms_conditional(member) ((p_conditional)(member))
++-struct s_conditional {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_expression _if;
++- int _if_isdefault : 2;
++- p_adms _then;
++- int _then_isdefault : 2;
++- p_adms _else;
++- int _else_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++-};
++-win32_interface char*adms_conditional_uid (p_conditional myconditional);
++-win32_interface p_conditional adms_conditional_new (p_module mymodule,p_expression myif,p_adms mythen,p_adms myelse);
++-win32_interface void adms_conditional_free(p_conditional myconditional);
++-win32_interface void adms_conditional_valueto_module (p_conditional myconditional,p_module _module);
++-win32_interface void adms_conditional_valueto_if (p_conditional myconditional,p_expression _if);
++-win32_interface void adms_conditional_valueto_then (p_conditional myconditional,p_adms _then);
++-win32_interface void adms_conditional_valueto_else (p_conditional myconditional,p_adms _else);
++-win32_interface void adms_conditional_valueto_name (p_conditional myconditional,const char* _name);
++-
++-/* ------- forloop -------------- */
++-#define adms_forloop(member) ((p_forloop)(member))
++-struct s_forloop {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_assignment _initial;
++- int _initial_isdefault : 2;
++- p_expression _condition;
++- int _condition_isdefault : 2;
++- p_assignment _update;
++- int _update_isdefault : 2;
++- p_adms _forblock;
++- int _forblock_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++-};
++-win32_interface char*adms_forloop_uid (p_forloop myforloop);
++-win32_interface p_forloop adms_forloop_new (p_module mymodule,p_assignment myinitial,p_expression mycondition,p_assignment myupdate,p_adms myforblock);
++-win32_interface void adms_forloop_free(p_forloop myforloop);
++-win32_interface void adms_forloop_valueto_module (p_forloop myforloop,p_module _module);
++-win32_interface void adms_forloop_valueto_initial (p_forloop myforloop,p_assignment _initial);
++-win32_interface void adms_forloop_valueto_condition (p_forloop myforloop,p_expression _condition);
++-win32_interface void adms_forloop_valueto_update (p_forloop myforloop,p_assignment _update);
++-win32_interface void adms_forloop_valueto_forblock (p_forloop myforloop,p_adms _forblock);
++-win32_interface void adms_forloop_valueto_name (p_forloop myforloop,const char* _name);
++-
++-/* ------- whileloop -------------- */
++-#define adms_whileloop(member) ((p_whileloop)(member))
++-struct s_whileloop {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_expression _while;
++- int _while_isdefault : 2;
++- p_adms _whileblock;
++- int _whileblock_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++-};
++-win32_interface char*adms_whileloop_uid (p_whileloop mywhileloop);
++-win32_interface p_whileloop adms_whileloop_new (p_module mymodule,p_expression mywhile,p_adms mywhileblock);
++-win32_interface void adms_whileloop_free(p_whileloop mywhileloop);
++-win32_interface void adms_whileloop_valueto_module (p_whileloop mywhileloop,p_module _module);
++-win32_interface void adms_whileloop_valueto_while (p_whileloop mywhileloop,p_expression _while);
++-win32_interface void adms_whileloop_valueto_whileblock (p_whileloop mywhileloop,p_adms _whileblock);
++-win32_interface void adms_whileloop_valueto_name (p_whileloop mywhileloop,const char* _name);
++-
++-/* ------- case -------------- */
++-#define adms_case(member) ((p_case)(member))
++-struct s_case {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_expression _case;
++- int _case_isdefault : 2;
++- char* _name;
++- int _name_isdefault : 2;
++- p_slist _caseitem;
++- int _caseitem_isdefault : 2;
++-};
++-win32_interface char*adms_case_uid (p_case mycase);
++-win32_interface p_case adms_case_new (p_module mymodule,p_expression mycase);
++-win32_interface void adms_case_free(p_case mycase);
++-win32_interface void adms_case_valueto_module (p_case mycase,p_module _module);
++-win32_interface void adms_case_valueto_case (p_case mycase,p_expression _case);
++-win32_interface void adms_case_valueto_name (p_case mycase,const char* _name);
++-win32_interface void adms_case_valueto_caseitem (p_case mycase,p_slist _caseitem);
++-
++-/* ------- caseitem -------------- */
++-#define adms_caseitem(member) ((p_caseitem)(member))
++-struct s_caseitem {
++- t_math _math;
++- p_adms _code;
++- int _code_isdefault : 2;
++- admse _defaultcase;
++- int _defaultcase_isdefault : 2;
++- p_slist _condition;
++- int _condition_isdefault : 2;
++-};
++-win32_interface char*adms_caseitem_uid (p_caseitem mycaseitem);
++-win32_interface p_caseitem adms_caseitem_new (p_adms mycode);
++-win32_interface void adms_caseitem_free(p_caseitem mycaseitem);
++-win32_interface void adms_caseitem_valueto_code (p_caseitem mycaseitem,p_adms _code);
++-win32_interface void adms_caseitem_valueto_defaultcase (p_caseitem mycaseitem,admse _defaultcase);
++-win32_interface void adms_caseitem_valueto_condition (p_caseitem mycaseitem,p_slist _condition);
++-
++-/* ------- blockvariable -------------- */
++-#define adms_blockvariable(member) ((p_blockvariable)(member))
++-struct s_blockvariable {
++- t_math _math;
++- p_block _block;
++- int _block_isdefault : 2;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++-};
++-win32_interface char*adms_blockvariable_uid (p_blockvariable myblockvariable);
++-win32_interface p_blockvariable adms_blockvariable_new (p_block myblock);
++-win32_interface void adms_blockvariable_free(p_blockvariable myblockvariable);
++-win32_interface void adms_blockvariable_valueto_block (p_blockvariable myblockvariable,p_block _block);
++-win32_interface void adms_blockvariable_valueto_variable (p_blockvariable myblockvariable,p_slist _variable);
++-win32_interface void adms_blockvariable_list_variable_prepend_once_or_abort (p_blockvariable mymyblockvariable,p_variable myvariable);
++-
++-/* ------- block -------------- */
++-#define adms_block(member) ((p_block)(member))
++-struct s_block {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_lexval _lexval;
++- int _lexval_isdefault : 2;
++- p_block _block;
++- int _block_isdefault : 2;
++- p_slist _item;
++- int _item_isdefault : 2;
++- p_slist _attribute;
++- int _attribute_isdefault : 2;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++- p_slist _probe;
++- int _probe_isdefault : 2;
++-};
++-win32_interface char*adms_block_uid (p_block myblock);
++-win32_interface p_block adms_block_new (p_module mymodule,p_lexval mylexval,p_block myblock,p_slist myitem);
++-win32_interface void adms_block_free(p_block myblock);
++-win32_interface void adms_block_valueto_module (p_block myblock,p_module _module);
++-win32_interface void adms_block_valueto_lexval (p_block myblock,p_lexval _lexval);
++-win32_interface void adms_block_valueto_block (p_block myblock,p_block _block);
++-win32_interface void adms_block_valueto_item (p_block myblock,p_slist _item);
++-win32_interface void adms_block_valueto_attribute (p_block myblock,p_slist _attribute);
++-win32_interface void adms_block_valueto_variable (p_block myblock,p_slist _variable);
++-win32_interface void adms_block_list_variable_prepend_once_or_abort (p_block mymyblock,p_variableprototype myvariable);
++-win32_interface void adms_block_valueto_probe (p_block myblock,p_slist _probe);
++-
++-/* ------- callfunction -------------- */
++-#define adms_callfunction(member) ((p_callfunction)(member))
++-struct s_callfunction {
++- t_math _math;
++- p_module _module;
++- int _module_isdefault : 2;
++- p_function _function;
++- int _function_isdefault : 2;
++-};
++-win32_interface char*adms_callfunction_uid (p_callfunction mycallfunction);
++-win32_interface p_callfunction adms_callfunction_new (p_module mymodule,p_function myfunction);
++-win32_interface void adms_callfunction_free(p_callfunction mycallfunction);
++-win32_interface void adms_callfunction_valueto_module (p_callfunction mycallfunction,p_module _module);
++-win32_interface void adms_callfunction_valueto_function (p_callfunction mycallfunction,p_function _function);
++-
++-/* ------- evaluation -------------- */
++-#define adms_evaluation(member) ((p_evaluation)(member))
++-struct s_evaluation {
++- t_adms _adms;
++- p_slist _variable;
++- int _variable_isdefault : 2;
++-};
++-win32_interface char*adms_evaluation_uid (p_evaluation myevaluation);
++-win32_interface p_evaluation adms_evaluation_new (void);
++-win32_interface void adms_evaluation_free(p_evaluation myevaluation);
++-win32_interface void adms_evaluation_valueto_variable (p_evaluation myevaluation,p_slist _variable);
++-
++-/* ------- text -------------- */
++-#define adms_text(member) ((p_text)(member))
++-struct s_text {
++- t_adms _adms;
++- p_transform _transform;
++- char* _value;
++- char* _aname;
++- int _admse;
++- p_slist _token;
++-};
++-win32_interface char*adms_text_uid (p_text mytext);
++-win32_interface p_text adms_text_new (p_transform mytransform,const char* myvalue);
++-win32_interface void adms_text_free(p_text mytext);
++-win32_interface void adms_text_valueto_transform (p_text mytext,p_transform _transform);
++-win32_interface void adms_text_valueto_value (p_text mytext,const char* _value);
++-win32_interface void adms_text_valueto_aname (p_text mytext,const char* _aname);
++-win32_interface void adms_text_valueto_admse (p_text mytext,int _admse);
++-win32_interface void adms_text_valueto_token (p_text mytext,p_slist _token);
++-
++-/* ------- path -------------- */
++-#define adms_path(member) ((p_path)(member))
++-struct s_path {
++- t_adms _adms;
++- p_transform _transform;
++- p_text _text;
++- char* _aname;
++- char* _avalue;
++- p_transform _template;
++- int _keeplist;
++- char* _callbackname;
++- void* _callback;
++- p_slist _bar;
++- p_slist _arg;
++- p_slist _u;
++- p_slist _b;
++- p_slist _c;
++-};
++-win32_interface char*adms_path_uid (p_path mypath);
++-win32_interface p_path adms_path_new (p_transform mytransform,p_text mytext);
++-win32_interface void adms_path_free(p_path mypath);
++-win32_interface void adms_path_valueto_transform (p_path mypath,p_transform _transform);
++-win32_interface void adms_path_valueto_text (p_path mypath,p_text _text);
++-win32_interface void adms_path_valueto_aname (p_path mypath,const char* _aname);
++-win32_interface void adms_path_valueto_avalue (p_path mypath,const char* _avalue);
++-win32_interface void adms_path_valueto_template (p_path mypath,p_transform _template);
++-win32_interface void adms_path_valueto_keeplist (p_path mypath,int _keeplist);
++-win32_interface void adms_path_valueto_callbackname (p_path mypath,const char* _callbackname);
++-win32_interface void adms_path_valueto_callback (p_path mypath,void* _callback);
++-win32_interface void adms_path_valueto_bar (p_path mypath,p_slist _bar);
++-win32_interface void adms_path_valueto_arg (p_path mypath,p_slist _arg);
++-win32_interface void adms_path_valueto_u (p_path mypath,p_slist _u);
++-win32_interface void adms_path_valueto_b (p_path mypath,p_slist _b);
++-win32_interface void adms_path_valueto_c (p_path mypath,p_slist _c);
++-
++-/* ------- ptraverse -------------- */
++-#define adms_ptraverse(member) ((p_ptraverse)(member))
++-struct s_ptraverse {
++- t_adms _adms;
++- p_transform _transform;
++- p_slist _admst;
++- p_slist _alladmst;
++- p_slist _aliasadmst;
++- int _position;
++- p_admst _a1;
++- p_admst _an;
++-};
++-win32_interface char*adms_ptraverse_uid (p_ptraverse myptraverse);
++-win32_interface p_ptraverse adms_ptraverse_new (p_transform mytransform);
++-win32_interface void adms_ptraverse_free(p_ptraverse myptraverse);
++-win32_interface void adms_ptraverse_valueto_transform (p_ptraverse myptraverse,p_transform _transform);
++-win32_interface void adms_ptraverse_valueto_admst (p_ptraverse myptraverse,p_slist _admst);
++-win32_interface void adms_ptraverse_valueto_alladmst (p_ptraverse myptraverse,p_slist _alladmst);
++-win32_interface void adms_ptraverse_valueto_aliasadmst (p_ptraverse myptraverse,p_slist _aliasadmst);
++-win32_interface void adms_ptraverse_valueto_position (p_ptraverse myptraverse,int _position);
++-win32_interface void adms_ptraverse_valueto_a1 (p_ptraverse myptraverse,p_admst _a1);
++-win32_interface void adms_ptraverse_valueto_an (p_ptraverse myptraverse,p_admst _an);
++-
++-/* ------- pparse -------------- */
++-#define adms_pparse(member) ((p_pparse)(member))
++-struct s_pparse {
++- t_adms _adms;
++- p_transform _transform;
++- char* _aname;
++- char* _value;
++- p_path _path;
++- p_text _text;
++- const char* _position;
++- const char* _tkstart;
++- int _tklen;
++- admse _tkid;
++-};
++-win32_interface char*adms_pparse_uid (p_pparse mypparse);
++-win32_interface p_pparse adms_pparse_new (p_transform mytransform,const char* myaname,const char* myvalue);
++-win32_interface void adms_pparse_free(p_pparse mypparse);
++-win32_interface void adms_pparse_valueto_transform (p_pparse mypparse,p_transform _transform);
++-win32_interface void adms_pparse_valueto_aname (p_pparse mypparse,const char* _aname);
++-win32_interface void adms_pparse_valueto_value (p_pparse mypparse,const char* _value);
++-win32_interface void adms_pparse_valueto_path (p_pparse mypparse,p_path _path);
++-win32_interface void adms_pparse_valueto_text (p_pparse mypparse,p_text _text);
++-win32_interface void adms_pparse_valueto_position (p_pparse mypparse,const char* _position);
++-win32_interface void adms_pparse_valueto_tkstart (p_pparse mypparse,const char* _tkstart);
++-win32_interface void adms_pparse_valueto_tklen (p_pparse mypparse,int _tklen);
++-win32_interface void adms_pparse_valueto_tkid (p_pparse mypparse,admse _tkid);
++-
++-/* ------- admst -------------- */
++-#define adms_admst(member) ((p_admst)(member))
++-struct s_admst {
++- t_adms _adms;
++- p_admst _previous;
++- p_admst _previouspath;
++- admse _pseudo;
++- union admsu _item;
++- void* _valueto;
++- int _position;
++- int _count;
++- int _hasnewbasicstring;
++- p_admst _original;
++- int _refd;
++- int _true;
++- p_admst _preva;
++- p_admst _nexta;
++- admse _selected;
++-};
++-win32_interface char*adms_admst_uid (p_admst myadmst);
++-win32_interface p_admst adms_admst_new (p_admst myprevious,p_admst mypreviouspath,admse mypseudo);
++-win32_interface void adms_admst_free(p_admst myadmst);
++-win32_interface void adms_admst_valueto_previous (p_admst myadmst,p_admst _previous);
++-win32_interface void adms_admst_valueto_previouspath (p_admst myadmst,p_admst _previouspath);
++-win32_interface void adms_admst_valueto_pseudo (p_admst myadmst,admse _pseudo);
++-win32_interface void adms_admst_valueto_item (p_admst myadmst,p_adms _item);
++-win32_interface void adms_admst_valueto_valueto (p_admst myadmst,void* _valueto);
++-win32_interface void adms_admst_valueto_position (p_admst myadmst,int _position);
++-win32_interface void adms_admst_valueto_count (p_admst myadmst,int _count);
++-win32_interface void adms_admst_valueto_hasnewbasicstring (p_admst myadmst,int _hasnewbasicstring);
++-win32_interface void adms_admst_valueto_original (p_admst myadmst,p_admst _original);
++-win32_interface void adms_admst_valueto_refd (p_admst myadmst,int _refd);
++-win32_interface void adms_admst_valueto_true (p_admst myadmst,int _true);
++-win32_interface void adms_admst_valueto_preva (p_admst myadmst,p_admst _preva);
++-win32_interface void adms_admst_valueto_nexta (p_admst myadmst,p_admst _nexta);
++-win32_interface void adms_admst_valueto_selected (p_admst myadmst,admse _selected);
++-
++-/* ------- transform -------------- */
++-#define adms_transform(member) ((p_transform)(member))
++-struct s_transform {
++- t_adms _adms;
++- char* _fullfilename;
++- char* _basefilename;
++- int _l;
++- char* _name;
++- p_transform _parent;
++- void* _callback;
++- char* _id;
++- p_path _pathselect;
++- p_path _pathpath;
++- p_path _pathinto;
++- p_path _pathtest;
++- p_path _pathlist;
++- p_text _textselect;
++- p_text _textdatatype;
++- p_text _textmatch;
++- p_text _textrequired;
++- p_text _textseparator;
++- p_text _textfrom;
++- p_text _textto;
++- p_text _textlist;
++- p_text _textname;
++- p_text _textformat;
++- p_text _textfile;
++- p_text _textversion;
++- p_text _textonduplicate;
++- p_text _textprobe;
++- p_text _textstring;
++- p_slist _templates;
++- p_slist _textarguments;
++- p_path _pathoncompare;
++- p_slist _pathinputs;
++- p_slist _attribute;
++- p_slist _children;
++-};
++-win32_interface char*adms_transform_uid (p_transform mytransform);
++-win32_interface p_transform adms_transform_new (const char* myfullfilename,const char* mybasefilename,int myl,const char* myname,p_transform myparent);
++-win32_interface void adms_transform_free(p_transform mytransform);
++-win32_interface void adms_transform_valueto_fullfilename (p_transform mytransform,const char* _fullfilename);
++-win32_interface void adms_transform_valueto_basefilename (p_transform mytransform,const char* _basefilename);
++-win32_interface void adms_transform_valueto_l (p_transform mytransform,int _l);
++-win32_interface void adms_transform_valueto_name (p_transform mytransform,const char* _name);
++-win32_interface void adms_transform_valueto_parent (p_transform mytransform,p_transform _parent);
++-win32_interface void adms_transform_valueto_callback (p_transform mytransform,void* _callback);
++-win32_interface void adms_transform_valueto_id (p_transform mytransform,const char* _id);
++-win32_interface void adms_transform_valueto_pathselect (p_transform mytransform,p_path _pathselect);
++-win32_interface void adms_transform_valueto_pathpath (p_transform mytransform,p_path _pathpath);
++-win32_interface void adms_transform_valueto_pathinto (p_transform mytransform,p_path _pathinto);
++-win32_interface void adms_transform_valueto_pathtest (p_transform mytransform,p_path _pathtest);
++-win32_interface void adms_transform_valueto_pathlist (p_transform mytransform,p_path _pathlist);
++-win32_interface void adms_transform_valueto_textselect (p_transform mytransform,p_text _textselect);
++-win32_interface void adms_transform_valueto_textdatatype (p_transform mytransform,p_text _textdatatype);
++-win32_interface void adms_transform_valueto_textmatch (p_transform mytransform,p_text _textmatch);
++-win32_interface void adms_transform_valueto_textrequired (p_transform mytransform,p_text _textrequired);
++-win32_interface void adms_transform_valueto_textseparator (p_transform mytransform,p_text _textseparator);
++-win32_interface void adms_transform_valueto_textfrom (p_transform mytransform,p_text _textfrom);
++-win32_interface void adms_transform_valueto_textto (p_transform mytransform,p_text _textto);
++-win32_interface void adms_transform_valueto_textlist (p_transform mytransform,p_text _textlist);
++-win32_interface void adms_transform_valueto_textname (p_transform mytransform,p_text _textname);
++-win32_interface void adms_transform_valueto_textformat (p_transform mytransform,p_text _textformat);
++-win32_interface void adms_transform_valueto_textfile (p_transform mytransform,p_text _textfile);
++-win32_interface void adms_transform_valueto_textversion (p_transform mytransform,p_text _textversion);
++-win32_interface void adms_transform_valueto_textonduplicate (p_transform mytransform,p_text _textonduplicate);
++-win32_interface void adms_transform_valueto_textprobe (p_transform mytransform,p_text _textprobe);
++-win32_interface void adms_transform_valueto_textstring (p_transform mytransform,p_text _textstring);
++-win32_interface void adms_transform_valueto_templates (p_transform mytransform,p_slist _templates);
++-win32_interface void adms_transform_valueto_textarguments (p_transform mytransform,p_slist _textarguments);
++-win32_interface void adms_transform_valueto_pathoncompare (p_transform mytransform,p_path _pathoncompare);
++-win32_interface void adms_transform_valueto_pathinputs (p_transform mytransform,p_slist _pathinputs);
++-win32_interface void adms_transform_valueto_attribute (p_transform mytransform,p_slist _attribute);
++-win32_interface void adms_transform_valueto_children (p_transform mytransform,p_slist _children);
++-
++-/* ------- itransform -------------- */
++-#define adms_itransform(member) ((p_itransform)(member))
++-struct s_itransform {
++- t_adms _adms;
++- p_transform _template;
++- p_transform _originalcall;
++- p_slist _variable;
++- p_slist _return;
++-};
++-win32_interface char*adms_itransform_uid (p_itransform myitransform);
++-win32_interface p_itransform adms_itransform_new (p_transform mytemplate);
++-win32_interface void adms_itransform_free(p_itransform myitransform);
++-win32_interface void adms_itransform_valueto_template (p_itransform myitransform,p_transform _template);
++-win32_interface void adms_itransform_valueto_originalcall (p_itransform myitransform,p_transform _originalcall);
++-win32_interface void adms_itransform_valueto_variable (p_itransform myitransform,p_slist _variable);
++-win32_interface void adms_itransform_valueto_return (p_itransform myitransform,p_slist _return);
++-
++-/* ------- return -------------- */
++-#define adms_return(member) ((p_return)(member))
++-struct s_return {
++- t_adms _adms;
++- char* _name;
++- char* _value;
++-};
++-win32_interface char*adms_return_uid (p_return myreturn);
++-win32_interface p_return adms_return_new (const char* myname,const char* myvalue);
++-win32_interface void adms_return_free(p_return myreturn);
++-win32_interface void adms_return_valueto_name (p_return myreturn,const char* _name);
++-win32_interface void adms_return_valueto_value (p_return myreturn,const char* _value);
++-
++-/* ------- attribute -------------- */
++-#define adms_attribute(member) ((p_attribute)(member))
++-struct s_attribute {
++- t_adms _adms;
++- char* _name;
++- int _name_isdefault : 2;
++- p_adms _value;
++- int _value_isdefault : 2;
++-};
++-win32_interface char*adms_attribute_uid (p_attribute myattribute);
++-win32_interface p_attribute adms_attribute_new (const char* myname);
++-win32_interface void adms_attribute_free(p_attribute myattribute);
++-win32_interface void adms_attribute_valueto_name (p_attribute myattribute,const char* _name);
++-win32_interface void adms_attribute_valueto_value (p_attribute myattribute,p_adms _value);
++-
++-/* ------- admstvariable -------------- */
++-#define adms_admstvariable(member) ((p_admstvariable)(member))
++-struct s_admstvariable {
++- t_adms _adms;
++- char* _name;
++- p_slist _value;
++-};
++-win32_interface char*adms_admstvariable_uid (p_admstvariable myadmstvariable);
++-win32_interface p_admstvariable adms_admstvariable_new (const char* myname);
++-win32_interface void adms_admstvariable_free(p_admstvariable myadmstvariable);
++-win32_interface void adms_admstvariable_valueto_name (p_admstvariable myadmstvariable,const char* _name);
++-win32_interface void adms_admstvariable_valueto_value (p_admstvariable myadmstvariable,p_slist _value);
++-
++-/* ------- lexval -------------- */
++-#define adms_lexval(member) ((p_lexval)(member))
++-struct s_lexval {
++- t_adms _adms;
++- char* _string;
++- int _string_isdefault : 2;
++- char* _f;
++- int _f_isdefault : 2;
++- int _l;
++- int _l_isdefault : 2;
++- int _c;
++- int _c_isdefault : 2;
++-};
++-win32_interface char*adms_lexval_uid (p_lexval mylexval);
++-win32_interface p_lexval adms_lexval_new (const char* mystring,const char* myf,int myl,int myc);
++-win32_interface void adms_lexval_free(p_lexval mylexval);
++-win32_interface void adms_lexval_valueto_string (p_lexval mylexval,const char* _string);
++-win32_interface void adms_lexval_valueto_f (p_lexval mylexval,const char* _f);
++-win32_interface void adms_lexval_valueto_l (p_lexval mylexval,int _l);
++-win32_interface void adms_lexval_valueto_c (p_lexval mylexval,int _c);
++-
++-/* ------- yaccval -------------- */
++-#define adms_yaccval(member) ((p_yaccval)(member))
++-struct s_yaccval {
++- t_adms _adms;
++- char* _filename;
++- p_adms _usrdata;
++-};
++-win32_interface char*adms_yaccval_uid (p_yaccval myyaccval);
++-win32_interface p_yaccval adms_yaccval_new (const char* myfilename);
++-win32_interface void adms_yaccval_free(p_yaccval myyaccval);
++-win32_interface void adms_yaccval_valueto_filename (p_yaccval myyaccval,const char* _filename);
++-win32_interface void adms_yaccval_valueto_usrdata (p_yaccval myyaccval,p_adms _usrdata);
++-
++-win32_interface admse ns_strtoe (const char* tk);
++-win32_interface char* ns_etostr (admse e);
++-win32_interface p_new adms_admsxml_new (p_ktransform mytransform,const char* ename);
++-win32_interface p_cmp adms_admsxml_cmp (p_kadmst myadmst);
++-#endif /* adms_h */
++diff --git a/admsXml/admstpathYacc.y b/admsXml/admstpathYacc.y
++deleted file mode 100644
++index cc173a5..0000000
++--- a/admsXml/admstpathYacc.y
+++++ /dev/null
++@@ -1,14756 +0,0 @@
++-
++-/* ------- code automatically created by ./mkelements.pl -------------- */
++-
++-
++-%define api.prefix "admstpath"
++-%lex-param {p_pparse mypparse}
++-%parse-param {p_pparse mypparse}
++-%{
++-#include "admstpathYacc.h"
++-
++-static int admstpathlex (p_pparse mypparse);
++-static void dbpath (p_path mypath);
++-static void dbtext (p_text mytext);
++-static void postpath (p_path mypath);
++-static void posttext (p_text mytext)
++-{
++- p_slist li;
++- for(li=mytext->_token;li;li=li->next)
++- {
++- p_adms mytoken=li->data;
++- if(mytoken->_datatypename==admse_path)
++- {
++- ((p_path)mytoken)->_aname=adms_kclone("//");
++- adms_k2strconcat(&((p_path)mytoken)->_aname,mytext->_aname);
++- postpath((p_path)mytoken);
++- }
++- else if(mytoken->_datatypename==admse_text)
++- {
++- ((p_text)mytoken)->_aname=adms_kclone("//");
++- adms_k2strconcat(&((p_text)mytoken)->_aname,mytext->_aname);
++- posttext((p_text)mytoken);
++- }
++- }
++-}
++-void dbxx (const p_transform mytransform)
++-{
++- if(!is_admst(mytransform->_name))
++- {
++- p_slist l=mytransform->_attribute;
++- for(;l;l=l->next)
++- dbtext((p_text)((p_attribute)l->data)->_value);
++- }
++- if(!strcmp(mytransform->_name,"admst")&&mytransform->_textversion) dbtext(mytransform->_textversion);
++- if(!strcmp(mytransform->_name,"admst:for-each")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:for-each")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:for-each")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_textseparator) dbtext(mytransform->_textseparator);
++- if(!strcmp(mytransform->_name,"admst:break")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:break")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:value-of")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:value-of")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:value-of")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_textlist) dbtext(mytransform->_textlist);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_textlist) dbtext(mytransform->_textlist);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:choose")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:choose")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:when")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:when")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:otherwise")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:otherwise")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:template")&&mytransform->_textmatch) dbtext(mytransform->_textmatch);
++- if(!strcmp(mytransform->_name,"admst:template")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:template")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_textmatch) dbtext(mytransform->_textmatch);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_textrequired) dbtext(mytransform->_textrequired);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_textname) dbtext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_textstring) dbtext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_textname) dbtext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_textname) dbtext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_textstring) dbtext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_textselect) dbtext(mytransform->_textselect);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_textstring) dbtext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_textformat) dbtext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_textdatatype) dbtext(mytransform->_textdatatype);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_textarguments)
++- {
++- p_slist l=mytransform->_textarguments;
++- for(;l;l=l->next)
++- dbtext((p_text)l->data);
++- }
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_pathinputs)
++- {
++- p_slist l=mytransform->_pathinputs;
++- for(;l;l=l->next)
++- dbpath((p_path)l->data);
++- }
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathinto) dbpath(mytransform->_pathinto);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_textonduplicate) dbtext(mytransform->_textonduplicate);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathoncompare) dbpath(mytransform->_pathoncompare);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:reset")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:reset")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:reset")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:count")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:count")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:count")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:reverse")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:reverse")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:reverse")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:read")&&mytransform->_textfile) dbtext(mytransform->_textfile);
++- if(!strcmp(mytransform->_name,"admst:read")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:read")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:open")&&mytransform->_textfile) dbtext(mytransform->_textfile);
++- if(!strcmp(mytransform->_name,"admst:open")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:open")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_textname) dbtext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_textstring) dbtext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:getenv")&&mytransform->_textname) dbtext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:getenv")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:getenv")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_textfrom) dbtext(mytransform->_textfrom);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_textto) dbtext(mytransform->_textto);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_textformat) dbtext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_textformat) dbtext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_textformat) dbtext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_textformat) dbtext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_textformat) dbtext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_pathpath) dbpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_pathtest) dbpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_pathselect) dbpath(mytransform->_pathselect);
++-}
++-void postxx (p_transform mytransform)
++-{
++- if(!is_admst(mytransform->_name))
++- {
++- p_slist l=mytransform->_attribute;
++- for(;l;l=l->next)
++- posttext((p_text)((p_attribute)l->data)->_value);
++- }
++- if(!strcmp(mytransform->_name,"admst")&&mytransform->_textversion) posttext(mytransform->_textversion);
++- if(!strcmp(mytransform->_name,"admst:for-each")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:for-each")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:for-each")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:join")&&mytransform->_textseparator) posttext(mytransform->_textseparator);
++- if(!strcmp(mytransform->_name,"admst:break")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:break")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:value-of")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:value-of")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:value-of")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_textlist) posttext(mytransform->_textlist);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:if-inside")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_textlist) posttext(mytransform->_textlist);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:if-not-inside")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:choose")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:choose")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:when")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:when")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:otherwise")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:otherwise")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:if")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:template")&&mytransform->_textmatch) posttext(mytransform->_textmatch);
++- if(!strcmp(mytransform->_name,"admst:template")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:template")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_textmatch) posttext(mytransform->_textmatch);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:apply-templates")&&mytransform->_textrequired) posttext(mytransform->_textrequired);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_textname) posttext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_textstring) posttext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:return")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_textname) posttext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:attribute")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_textname) posttext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_textstring) posttext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_textselect) posttext(mytransform->_textselect);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:variable")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_textstring) posttext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:value-to")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_textformat) posttext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:text")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_textdatatype) posttext(mytransform->_textdatatype);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_textarguments)
++- {
++- p_slist l=mytransform->_textarguments;
++- for(;l;l=l->next)
++- posttext((p_text)l->data);
++- }
++- if(!strcmp(mytransform->_name,"admst:new")&&mytransform->_pathinputs)
++- {
++- p_slist l=mytransform->_pathinputs;
++- for(;l;l=l->next)
++- postpath((p_path)l->data);
++- }
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathinto) postpath(mytransform->_pathinto);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_textonduplicate) posttext(mytransform->_textonduplicate);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathoncompare) postpath(mytransform->_pathoncompare);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:push")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:reset")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:reset")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:reset")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:count")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:count")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:count")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:reverse")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:reverse")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:reverse")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:read")&&mytransform->_textfile) posttext(mytransform->_textfile);
++- if(!strcmp(mytransform->_name,"admst:read")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:read")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:open")&&mytransform->_textfile) posttext(mytransform->_textfile);
++- if(!strcmp(mytransform->_name,"admst:open")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:open")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_textname) posttext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_textstring) posttext(mytransform->_textstring);
++- if(!strcmp(mytransform->_name,"admst:setenv")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:getenv")&&mytransform->_textname) posttext(mytransform->_textname);
++- if(!strcmp(mytransform->_name,"admst:getenv")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:getenv")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_textfrom) posttext(mytransform->_textfrom);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_textto) posttext(mytransform->_textto);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:copy")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_textformat) posttext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:assert")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_textformat) posttext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:message")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_textformat) posttext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:warning")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_textformat) posttext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:error")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_textformat) posttext(mytransform->_textformat);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_pathpath) postpath(mytransform->_pathpath);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_pathtest) postpath(mytransform->_pathtest);
++- if(!strcmp(mytransform->_name,"admst:fatal")&&mytransform->_pathselect) postpath(mytransform->_pathselect);
++-}
++-void sanityxx (p_transform mytransform)
++-{
++- if(!is_admst(mytransform->_name)) { }
++- else if(!strcmp(mytransform->_name,"admst"))
++- {
++- }
++- else if(!strcmp(mytransform->_name,"admst:for-each"))
++- {
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathtest) adms_message_fatal(("transform does not support attribute 'test' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:join"))
++- {
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathtest) adms_message_fatal(("transform does not support attribute 'test' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:break"))
++- {
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:value-of"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:if-inside"))
++- {
++- if(!mytransform->_children) adms_message_fatal(("transform requires children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textlist) adms_message_fatal(("transform requires attribute 'list' - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:if-not-inside"))
++- {
++- if(!mytransform->_children) adms_message_fatal(("transform requires children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textlist) adms_message_fatal(("transform requires attribute 'list' - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:choice")||!strcmp(mytransform->_name,"admst:choose"))
++- {
++- if(!strcmp(mytransform->_name,"admst:choice")) adms_message_obsolete(("%s: please use 'admst:choose' instead\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathtest) adms_message_fatal(("transform does not support attribute 'test' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:when"))
++- {
++- if(!mytransform->_pathtest) adms_message_fatal(("transform requires attribute 'test' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:otherwise"))
++- {
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathtest) adms_message_fatal(("transform does not support attribute 'test' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:if"))
++- {
++- if(!mytransform->_children) adms_message_fatal(("transform requires children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathtest) adms_message_fatal(("transform requires attribute 'test' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:templates")||!strcmp(mytransform->_name,"admst:template"))
++- {
++- if(!strcmp(mytransform->_name,"admst:templates")) adms_message_obsolete(("%s: please use 'admst:template' instead\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textmatch) adms_message_fatal(("transform requires attribute 'match' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:apply-template")||!strcmp(mytransform->_name,"admst:apply-templates"))
++- {
++- if(!strcmp(mytransform->_name,"admst:apply-template")) adms_message_obsolete(("%s: please use 'admst:apply-templates' instead\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textmatch) adms_message_fatal(("transform requires attribute 'match' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:return"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textname) adms_message_fatal(("transform requires attribute 'name' - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textstring) adms_message_fatal(("transform requires attribute 'string' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:attribute"))
++- {
++- if(!mytransform->_children) adms_message_fatal(("transform requires children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textname) adms_message_fatal(("transform requires attribute 'name' - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:variable"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textname) adms_message_fatal(("transform requires attribute 'name' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:value-to"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:text"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:new"))
++- {
++- if(!mytransform->_textdatatype) adms_message_fatal(("transform requires attribute 'datatype' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:push"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathinto) adms_message_fatal(("transform requires attribute 'into' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:reset"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:count"))
++- {
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:reverse"))
++- {
++- if(!mytransform->_pathselect) adms_message_fatal(("transform requires attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:read"))
++- {
++- if(!mytransform->_textfile) adms_message_fatal(("transform requires attribute 'file' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:open"))
++- {
++- if(!mytransform->_textfile) adms_message_fatal(("transform requires attribute 'file' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:setenv"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textname) adms_message_fatal(("transform requires attribute 'name' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:getenv"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textname) adms_message_fatal(("transform requires attribute 'name' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:copy"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textfrom) adms_message_fatal(("transform requires attribute 'from' - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textto) adms_message_fatal(("transform requires attribute 'to' - see %s\n",adms_transform_uid(mytransform)))
++- if(mytransform->_pathselect) adms_message_fatal(("transform does not support attribute 'select' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:assert"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_pathtest) adms_message_fatal(("transform requires attribute 'test' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:message"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textformat) adms_message_fatal(("transform requires attribute 'format' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:warning"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textformat) adms_message_fatal(("transform requires attribute 'format' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:error"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textformat) adms_message_fatal(("transform requires attribute 'format' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(!strcmp(mytransform->_name,"admst:fatal"))
++- {
++- if(mytransform->_children) adms_message_fatal(("transform does not support children - see %s\n",adms_transform_uid(mytransform)))
++- if(!mytransform->_textformat) adms_message_fatal(("transform requires attribute 'format' - see %s\n",adms_transform_uid(mytransform)))
++- }
++- else adms_message_fatal(("%s: unknown transform\n",adms_transform_uid(mytransform)))
++-}
++-static void location030adms(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_list)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_analog)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_string)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_subexpression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_evaluation)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_attribute)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'adms' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030math(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_string)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_subexpression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'math' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030subexpression(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'subexpression' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030forblock(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)(ai->_item.p))->_forblock); d->_valueto=(void*)adms_forloop_valueto_forblock;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'forblock' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030verbose(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_verbose); d->_valueto=(void*)adms_admsmain_valueto_verbose;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'verbose' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030sr1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)(ai->_item.p))->_sr1); d->_valueto=(void*)adms_simulator_valueto_sr1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'sr1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030maxsize(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_maxsize);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_maxsize;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)(ai->_item.p))->_maxsize); d->_valueto=(void*)adms_variableprototype_valueto_maxsize;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'maxsize' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030tmp(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_tmp); d->_valueto=(void*)adms_simulator_valueto_tmp;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'tmp' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030if(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)(ai->_item.p))->_if); d->_valueto=(void*)adms_conditional_valueto_if;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'if' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030jacobian(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_jacobian;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'jacobian' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030currentdate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_currentdate); d->_valueto=(void*)adms_simulator_valueto_currentdate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'currentdate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030flow(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_discipline)(ai->_item.p))->_flow); d->_valueto=(void*)adms_discipline_valueto_flow;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'flow' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030hasspecialnumber(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_expression)ai->_item.p)->_hasspecialnumber); d->_valueto=(void*)adms_expression_valueto_hasspecialnumber;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'hasspecialnumber' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030code(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_analog)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analog)(ai->_item.p))->_code); d->_valueto=(void*)adms_analog_valueto_code;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_caseitem)(ai->_item.p))->_code); d->_valueto=(void*)adms_caseitem_valueto_code;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'code' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030arg1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_unary)(ai->_item.p))->_arg1); d->_valueto=(void*)adms_mapply_unary_valueto_arg1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_binary)(ai->_item.p))->_arg1); d->_valueto=(void*)adms_mapply_binary_valueto_arg1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_ternary)(ai->_item.p))->_arg1); d->_valueto=(void*)adms_mapply_ternary_valueto_arg1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arg1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030grounded(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_node)ai->_item.p)->_grounded); d->_valueto=(void*)adms_node_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_branch)ai->_item.p)->_grounded); d->_valueto=(void*)adms_branch_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_grounded); d->_valueto=(void*)adms_source_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_probe)ai->_item.p)->_grounded); d->_valueto=(void*)adms_probe_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'grounded' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030diagonal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_jacobian)ai->_item.p)->_diagonal); d->_valueto=(void*)adms_jacobian_valueto_diagonal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'diagonal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030scalingunit(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_number)ai->_item.p)->_scalingunit); d->_valueto=(void*)adms_number_valueto_scalingunit;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'scalingunit' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030dynamic(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- else if(e==admse_expression)
++- e=admse_math;
++- else if(e==admse_nilled)
++- e=admse_math;
++- else if(e==admse_assignment)
++- e=admse_math;
++- else if(e==admse_contribution)
++- e=admse_math;
++- else if(e==admse_conditional)
++- e=admse_math;
++- else if(e==admse_forloop)
++- e=admse_math;
++- else if(e==admse_whileloop)
++- e=admse_math;
++- else if(e==admse_case)
++- e=admse_math;
++- else if(e==admse_blockvariable)
++- e=admse_math;
++- else if(e==admse_block)
++- e=admse_math;
++- else if(e==admse_callfunction)
++- e=admse_math;
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_dynamic);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_dynamic;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_variableprototype_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_source_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_jacobian)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_jacobian_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_math)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_math_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dynamic' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_analogfunction)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_analogfunction_valueto_lexval;
++- /*BBBB0*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_variableprototype)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variableprototype_valueto_lexval;
++- /*BBBB0*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_function)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_function)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_function_valueto_lexval;
++- /*BBBB0*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d1); d1->_valueto=(void*)adms_variableprototype_valueto_lexval;
++- /*BBBB0*/ p_admst d2=adms_admst_newbs(d1,ai,((p_lexval)d1->_item.p)->_string);if(d2->_preva) d2->_preva->_nexta=d2->_nexta,d2->_preva=NULL; if(d2->_nexta) d2->_nexta->_preva=d2->_preva,d2->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d2; else p->_an->_nexta=d2,d2->_preva=p->_an,p->_an=d2;d2->_position=++p->_position;d2->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_block)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_block)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_block_valueto_lexval;
++- /*BBBB0*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_name); d->_valueto=(void*)adms_simulator_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_name); d->_valueto=(void*)adms_admsmain_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_name); d->_valueto=(void*)adms_nature_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_discipline)ai->_item.p)->_name); d->_valueto=(void*)adms_discipline_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_module)ai->_item.p)->_name); d->_valueto=(void*)adms_module_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nodealias)ai->_item.p)->_name); d->_valueto=(void*)adms_nodealias_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_node)ai->_item.p)->_name); d->_valueto=(void*)adms_node_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_branchalias)ai->_item.p)->_name); d->_valueto=(void*)adms_branchalias_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_range)ai->_item.p)->_name); d->_valueto=(void*)adms_range_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_math)ai->_item.p)->_name); d->_valueto=(void*)adms_math_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_mapply_unary)ai->_item.p)->_name); d->_valueto=(void*)adms_mapply_unary_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_mapply_binary)ai->_item.p)->_name); d->_valueto=(void*)adms_mapply_binary_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_mapply_ternary)ai->_item.p)->_name); d->_valueto=(void*)adms_mapply_ternary_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_instance)ai->_item.p)->_name); d->_valueto=(void*)adms_instance_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nilled)ai->_item.p)->_name); d->_valueto=(void*)adms_nilled_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_assignment)ai->_item.p)->_name); d->_valueto=(void*)adms_assignment_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_contribution)ai->_item.p)->_name); d->_valueto=(void*)adms_contribution_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_conditional)ai->_item.p)->_name); d->_valueto=(void*)adms_conditional_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_forloop)ai->_item.p)->_name); d->_valueto=(void*)adms_forloop_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_whileloop)ai->_item.p)->_name); d->_valueto=(void*)adms_whileloop_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_case)ai->_item.p)->_name); d->_valueto=(void*)adms_case_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_return)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_return)ai->_item.p)->_name); d->_valueto=(void*)adms_return_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_attribute)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_attribute)ai->_item.p)->_name); d->_valueto=(void*)adms_attribute_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030instance(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_instance;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_instance;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'instance' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030defaultcase(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_caseitem)ai->_item.p)->_defaultcase); d->_valueto=(void*)adms_caseitem_valueto_defaultcase;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'defaultcase' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030obsolete(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_obsolete); d->_valueto=(void*)adms_admsmain_valueto_obsolete;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'obsolete' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030setinfinal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinfinal);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinfinal;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinfinal); d->_valueto=(void*)adms_variableprototype_valueto_setinfinal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinfinal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030dbg_vla(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_dbg_vla); d->_valueto=(void*)adms_admsmain_valueto_dbg_vla;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dbg_vla' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030insource(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_insource);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_insource;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_insource); d->_valueto=(void*)adms_variableprototype_valueto_insource;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'insource' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030hint(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_hint); d->_valueto=(void*)adms_admsmain_valueto_hint;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'hint' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030supexpr(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_range)(ai->_item.p))->_supexpr); d->_valueto=(void*)adms_range_valueto_supexpr;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'supexpr' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030setingetprev(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setingetprev);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setingetprev;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setingetprev); d->_valueto=(void*)adms_variableprototype_valueto_setingetprev;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setingetprev' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030minsize(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_minsize);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_minsize;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)(ai->_item.p))->_minsize); d->_valueto=(void*)adms_variableprototype_valueto_minsize;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'minsize' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030variable(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA0*/ p_slist l1=((p_variableprototype)d0->_item.p)->_variable;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d1=adms_admst_newpa(d0,ai,l1->data);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;
++- }
++- }
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_slist lii=((p_analogfunction)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_array)(ai->_item.p))->_variable); d->_valueto=(void*)adms_array_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_slist lii=((p_expression)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_slist lii=((p_blockvariable)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_block)
++- {
++- p_slist lii=((p_block)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_evaluation)
++- {
++- p_slist lii=((p_evaluation)ai->_item.p)->_variable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'variable' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030node(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_node;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nodealias)(ai->_item.p))->_node); d->_valueto=(void*)adms_nodealias_valueto_node;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'node' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030direction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_node)ai->_item.p)->_direction); d->_valueto=(void*)adms_node_valueto_direction;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'direction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030br1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)(ai->_item.p))->_br1); d->_valueto=(void*)adms_simulator_valueto_br1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'br1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030usedininstance(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedininstance);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedininstance;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedininstance); d->_valueto=(void*)adms_variableprototype_valueto_usedininstance;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedininstance' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030instantiator(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_instantiator;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instance)(ai->_item.p))->_instantiator); d->_valueto=(void*)adms_instance_valueto_instantiator;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'instantiator' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030argc(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_admsmain)ai->_item.p)->_argc); d->_valueto=(void*)adms_admsmain_valueto_argc;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'argc' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030transform(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_transform;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'transform' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030access(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_access); d->_valueto=(void*)adms_nature_valueto_access;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'access' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030arg3(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_ternary)(ai->_item.p))->_arg3); d->_valueto=(void*)adms_mapply_ternary_valueto_arg3;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arg3' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030branch(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_branch;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branchalias)(ai->_item.p))->_branch); d->_valueto=(void*)adms_branchalias_valueto_branch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)(ai->_item.p))->_branch); d->_valueto=(void*)adms_source_valueto_branch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)(ai->_item.p))->_branch); d->_valueto=(void*)adms_probe_valueto_branch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'branch' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030index(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_array)(ai->_item.p))->_index); d->_valueto=(void*)adms_array_valueto_index;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'index' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030filename(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_filename); d->_valueto=(void*)adms_admsmain_valueto_filename;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'filename' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030fatal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_fatal); d->_valueto=(void*)adms_admsmain_valueto_fatal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fatal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030warning(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_warning); d->_valueto=(void*)adms_admsmain_valueto_warning;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'warning' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030update(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)(ai->_item.p))->_update); d->_valueto=(void*)adms_forloop_valueto_update;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'update' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030units(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_units); d->_valueto=(void*)adms_nature_valueto_units;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'units' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030dbg_xml(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_dbg_xml); d->_valueto=(void*)adms_admsmain_valueto_dbg_xml;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dbg_xml' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030setinnoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinnoise);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinnoise;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinnoise); d->_valueto=(void*)adms_variableprototype_valueto_setinnoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinnoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030setininstance(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setininstance);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setininstance;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setininstance); d->_valueto=(void*)adms_variableprototype_valueto_setininstance;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setininstance' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030isstate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_isstate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_isstate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_isstate); d->_valueto=(void*)adms_variableprototype_valueto_isstate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'isstate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030nodealias(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_nodealias;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nodealias' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030simulator(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_admsmain)(ai->_item.p))->_simulator); d->_valueto=(void*)adms_admsmain_valueto_simulator;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'simulator' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030static(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- else if(e==admse_expression)
++- e=admse_math;
++- else if(e==admse_nilled)
++- e=admse_math;
++- else if(e==admse_assignment)
++- e=admse_math;
++- else if(e==admse_contribution)
++- e=admse_math;
++- else if(e==admse_conditional)
++- e=admse_math;
++- else if(e==admse_forloop)
++- e=admse_math;
++- else if(e==admse_whileloop)
++- e=admse_math;
++- else if(e==admse_case)
++- e=admse_math;
++- else if(e==admse_blockvariable)
++- e=admse_math;
++- else if(e==admse_block)
++- e=admse_math;
++- else if(e==admse_callfunction)
++- e=admse_math;
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_static);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_static;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_static); d->_valueto=(void*)adms_variableprototype_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_static); d->_valueto=(void*)adms_source_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_jacobian)ai->_item.p)->_static); d->_valueto=(void*)adms_jacobian_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_math)ai->_item.p)->_static); d->_valueto=(void*)adms_math_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'static' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030discipline(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_discipline;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_node)(ai->_item.p))->_discipline); d->_valueto=(void*)adms_node_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)(ai->_item.p))->_discipline); d->_valueto=(void*)adms_branch_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)(ai->_item.p))->_discipline); d->_valueto=(void*)adms_source_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)(ai->_item.p))->_discipline); d->_valueto=(void*)adms_probe_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'discipline' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030analogfunction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_analogfunction;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'analogfunction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030seen(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_probe)ai->_item.p)->_seen); d->_valueto=(void*)adms_probe_valueto_seen;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'seen' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030debug(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_debug); d->_valueto=(void*)adms_admsmain_valueto_debug;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'debug' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030argv(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_argv;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,(char*)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'argv' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030contribution(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_contribution;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'contribution' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030valueof(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_valueof;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'valueof' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030value(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_number)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_number)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_number_valueto_lexval;
++- /*BBBB0*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbr(ai,ai,((p_math)ai->_item.p)->_value); d->_valueto=(void*)adms_math_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_string)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_string)ai->_item.p)->_value); d->_valueto=(void*)adms_string_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_value); d->_valueto=(void*)adms_expression_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instanceparameter)(ai->_item.p))->_value); d->_valueto=(void*)adms_instanceparameter_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_return)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_return)ai->_item.p)->_value); d->_valueto=(void*)adms_return_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_attribute)
++- {
++- p_admst d=adms_admst_newpc(ai,ai,(p_attribute)ai->_item.p);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'value' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030nodefrommodule(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instancenode)(ai->_item.p))->_nodefrommodule); d->_valueto=(void*)adms_instancenode_valueto_nodefrommodule;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nodefrommodule' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030ddxprobe(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA0*/ p_slist l1=((p_variableprototype)d0->_item.p)->_ddxprobe;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d1=adms_admst_newpa(d0,ai,l1->data);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_ddxprobe;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddxprobe' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030setinmodel(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinmodel);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinmodel;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinmodel); d->_valueto=(void*)adms_variableprototype_valueto_setinmodel;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinmodel' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030c(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_lexval)ai->_item.p)->_c); d->_valueto=(void*)adms_lexval_valueto_c;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'c' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030nodefrominstantiator(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instancenode)(ai->_item.p))->_nodefrominstantiator); d->_valueto=(void*)adms_instancenode_valueto_nodefrominstantiator;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nodefrominstantiator' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030setininitial_step(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setininitial_step);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setininitial_step;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setininitial_step); d->_valueto=(void*)adms_variableprototype_valueto_setininitial_step;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setininitial_step' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030pnode(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)(ai->_item.p))->_pnode); d->_valueto=(void*)adms_branch_valueto_pnode;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'pnode' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030itransforminsideapplytemplate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_itransforminsideapplytemplate;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'itransforminsideapplytemplate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030type(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_type);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_type;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_analogfunction)ai->_item.p)->_type); d->_valueto=(void*)adms_analogfunction_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_type); d->_valueto=(void*)adms_variableprototype_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_type); d->_valueto=(void*)adms_source_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_range)ai->_item.p)->_type); d->_valueto=(void*)adms_range_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'type' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030whitenoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_whitenoise); d->_valueto=(void*)adms_source_valueto_whitenoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_contribution)ai->_item.p)->_whitenoise); d->_valueto=(void*)adms_contribution_valueto_whitenoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'whitenoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030branchalias(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_branchalias;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)(ai->_item.p))->_branchalias); d->_valueto=(void*)adms_contribution_valueto_branchalias;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'branchalias' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030cast(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_number)ai->_item.p)->_cast); d->_valueto=(void*)adms_number_valueto_cast;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'cast' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030sizetype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_sizetype);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_sizetype;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_sizetype); d->_valueto=(void*)adms_variableprototype_valueto_sizetype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'sizetype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030definition(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_function)(ai->_item.p))->_definition); d->_valueto=(void*)adms_function_valueto_definition;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'definition' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030dependency(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- else if(e==admse_string)
++- e=admse_math;
++- else if(e==admse_subexpression)
++- e=admse_math;
++- else if(e==admse_mapply_unary)
++- e=admse_math;
++- else if(e==admse_mapply_binary)
++- e=admse_math;
++- else if(e==admse_mapply_ternary)
++- e=admse_math;
++- else if(e==admse_number)
++- e=admse_math;
++- else if(e==admse_function)
++- e=admse_math;
++- else if(e==admse_variable)
++- e=admse_math;
++- else if(e==admse_array)
++- e=admse_math;
++- else if(e==admse_probe)
++- e=admse_math;
++- else if(e==admse_expression)
++- e=admse_math;
++- else if(e==admse_instance)
++- e=admse_math;
++- else if(e==admse_instanceparameter)
++- e=admse_math;
++- else if(e==admse_instancenode)
++- e=admse_math;
++- else if(e==admse_nilled)
++- e=admse_math;
++- else if(e==admse_assignment)
++- e=admse_math;
++- else if(e==admse_contribution)
++- e=admse_math;
++- else if(e==admse_conditional)
++- e=admse_math;
++- else if(e==admse_forloop)
++- e=admse_math;
++- else if(e==admse_whileloop)
++- e=admse_math;
++- else if(e==admse_case)
++- e=admse_math;
++- else if(e==admse_caseitem)
++- e=admse_math;
++- else if(e==admse_blockvariable)
++- e=admse_math;
++- else if(e==admse_block)
++- e=admse_math;
++- else if(e==admse_callfunction)
++- e=admse_math;
++- if(0) {}
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_dependency); d->_valueto=(void*)adms_variableprototype_valueto_dependency;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_math)ai->_item.p)->_dependency); d->_valueto=(void*)adms_math_valueto_dependency;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dependency' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030terminal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instance)
++- {
++- p_slist lii=((p_instance)ai->_item.p)->_terminal;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'terminal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030tmp1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_tmp1); d->_valueto=(void*)adms_simulator_valueto_tmp1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'tmp1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030abstol(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)(ai->_item.p))->_abstol); d->_valueto=(void*)adms_nature_valueto_abstol;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'abstol' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030whileblock(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_whileloop)(ai->_item.p))->_whileblock); d->_valueto=(void*)adms_whileloop_valueto_whileblock;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'whileblock' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030parametertype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_parametertype);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_parametertype;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_parametertype); d->_valueto=(void*)adms_variableprototype_valueto_parametertype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'parametertype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030lhs(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)(ai->_item.p))->_lhs); d->_valueto=(void*)adms_assignment_valueto_lhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)(ai->_item.p))->_lhs); d->_valueto=(void*)adms_contribution_valueto_lhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'lhs' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030conditional(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_conditional;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'conditional' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030nature(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_nature;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)(ai->_item.p))->_nature); d->_valueto=(void*)adms_source_valueto_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)(ai->_item.p))->_nature); d->_valueto=(void*)adms_probe_valueto_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nature' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030while(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_whileloop)(ai->_item.p))->_while); d->_valueto=(void*)adms_whileloop_valueto_while;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'while' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030hasVoltageDependentFunction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_hasVoltageDependentFunction); d->_valueto=(void*)adms_expression_valueto_hasVoltageDependentFunction;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'hasVoltageDependentFunction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030block(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_block);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_block;
++- }
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_block;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)(ai->_item.p))->_block); d->_valueto=(void*)adms_variableprototype_valueto_block;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_blockvariable)(ai->_item.p))->_block); d->_valueto=(void*)adms_blockvariable_valueto_block;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_block)(ai->_item.p))->_block); d->_valueto=(void*)adms_block_valueto_block;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'block' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030condition(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)(ai->_item.p))->_condition); d->_valueto=(void*)adms_forloop_valueto_condition;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_slist lii=((p_caseitem)ai->_item.p)->_condition;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'condition' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030datatype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_list)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_list)ai->_item.p)->_datatype); d->_valueto=(void*)adms_list_valueto_datatype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'datatype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030tree(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)(ai->_item.p))->_tree); d->_valueto=(void*)adms_analogfunction_valueto_tree;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_expression)(ai->_item.p))->_tree); d->_valueto=(void*)adms_expression_valueto_tree;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'tree' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030input(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_input);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_input;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_input); d->_valueto=(void*)adms_variableprototype_valueto_input;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'input' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030potential(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_discipline)(ai->_item.p))->_potential); d->_valueto=(void*)adms_discipline_valueto_potential;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'potential' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030string(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_lexval)ai->_item.p)->_string); d->_valueto=(void*)adms_lexval_valueto_string;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'string' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030supboundtype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_range)ai->_item.p)->_supboundtype); d->_valueto=(void*)adms_range_valueto_supboundtype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'supboundtype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030infboundtype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_range)ai->_item.p)->_infboundtype); d->_valueto=(void*)adms_range_valueto_infboundtype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'infboundtype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030ddx(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_ddx); d->_valueto=(void*)adms_simulator_valueto_ddx;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddx' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030usedininitial_step(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedininitial_step);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedininitial_step;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedininitial_step); d->_valueto=(void*)adms_variableprototype_valueto_usedininitial_step;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedininitial_step' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030ddt_nature(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)(ai->_item.p))->_ddt_nature); d->_valueto=(void*)adms_nature_valueto_ddt_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddt_nature' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030attribute(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA0*/ p_slist l1=((p_variableprototype)d0->_item.p)->_attribute;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d1=adms_admst_newpa(d0,ai,l1->data);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;
++- }
++- }
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_slist lii=((p_analogfunction)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_node)
++- {
++- p_slist lii=((p_node)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_branch)
++- {
++- p_slist lii=((p_branch)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_source)
++- {
++- p_slist lii=((p_source)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_math)
++- {
++- p_slist lii=((p_math)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_assignment)
++- {
++- p_slist lii=((p_assignment)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_contribution)
++- {
++- p_slist lii=((p_contribution)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_block)
++- {
++- p_slist lii=((p_block)ai->_item.p)->_attribute;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'attribute' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030package_string(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_string); d->_valueto=(void*)adms_simulator_valueto_package_string;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_string' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030row(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_jacobian)(ai->_item.p))->_row); d->_valueto=(void*)adms_jacobian_valueto_row;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'row' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030usedinnoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinnoise);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinnoise;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinnoise); d->_valueto=(void*)adms_variableprototype_valueto_usedinnoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinnoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030parameterset(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instance)
++- {
++- p_slist lii=((p_instance)ai->_item.p)->_parameterset;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'parameterset' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030scope(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_scope);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_scope;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_scope); d->_valueto=(void*)adms_variableprototype_valueto_scope;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'scope' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030base(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)(ai->_item.p))->_base); d->_valueto=(void*)adms_nature_valueto_base;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'base' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030output(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_output);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_output;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_output); d->_valueto=(void*)adms_variableprototype_valueto_output;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'output' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030usedinfinal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinfinal);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinfinal;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinfinal); d->_valueto=(void*)adms_variableprototype_valueto_usedinfinal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinfinal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030arg2(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_binary)(ai->_item.p))->_arg2); d->_valueto=(void*)adms_mapply_binary_valueto_arg2;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_ternary)(ai->_item.p))->_arg2); d->_valueto=(void*)adms_mapply_ternary_valueto_arg2;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arg2' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030blockvariable(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_blockvariable;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'blockvariable' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030arguments(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_slist lii=((p_function)ai->_item.p)->_arguments;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arguments' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030br2(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)(ai->_item.p))->_br2); d->_valueto=(void*)adms_simulator_valueto_br2;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'br2' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030probe(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA0*/ p_slist l1=((p_variableprototype)d0->_item.p)->_probe;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d1=adms_admst_newpa(d0,ai,l1->data);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;
++- }
++- }
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)(ai->_item.p))->_probe); d->_valueto=(void*)adms_simulator_valueto_probe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_probe;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_probe;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_source)
++- {
++- p_slist lii=((p_source)ai->_item.p)->_probe;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_expression)
++- {
++- p_slist lii=((p_expression)ai->_item.p)->_probe;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_block)
++- {
++- p_slist lii=((p_block)ai->_item.p)->_probe;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'probe' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030infexpr(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_range)(ai->_item.p))->_infexpr); d->_valueto=(void*)adms_range_valueto_infexpr;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'infexpr' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030unique_id(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_function)ai->_item.p)->_unique_id); d->_valueto=(void*)adms_function_valueto_unique_id;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'unique_id' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030source(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_source;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)(ai->_item.p))->_source); d->_valueto=(void*)adms_probe_valueto_source;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'source' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030function(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_slist lii=((p_expression)ai->_item.p)->_function;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_callfunction)(ai->_item.p))->_function); d->_valueto=(void*)adms_callfunction_valueto_function;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'function' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030rhs(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)(ai->_item.p))->_rhs); d->_valueto=(void*)adms_assignment_valueto_rhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)(ai->_item.p))->_rhs); d->_valueto=(void*)adms_contribution_valueto_rhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'rhs' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030range(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA0*/ p_slist l1=((p_variableprototype)d0->_item.p)->_range;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d1=adms_admst_newpa(d0,ai,l1->data);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;
++- }
++- }
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_range;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_range;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'range' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030itransform(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_itransform;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'itransform' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030ddt_name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_ddt_name); d->_valueto=(void*)adms_nature_valueto_ddt_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddt_name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030case(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_case;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_case)(ai->_item.p))->_case); d->_valueto=(void*)adms_case_valueto_case;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'case' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030nnode(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)(ai->_item.p))->_nnode); d->_valueto=(void*)adms_branch_valueto_nnode;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nnode' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030domain(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_discipline)ai->_item.p)->_domain); d->_valueto=(void*)adms_discipline_valueto_domain;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'domain' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030developer(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_developer); d->_valueto=(void*)adms_simulator_valueto_developer;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'developer' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030error(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_error); d->_valueto=(void*)adms_admsmain_valueto_error;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'error' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030module(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_module);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_module;
++- }
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_module;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)(ai->_item.p))->_module); d->_valueto=(void*)adms_analogfunction_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nodealias)(ai->_item.p))->_module); d->_valueto=(void*)adms_nodealias_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_node)(ai->_item.p))->_module); d->_valueto=(void*)adms_node_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branchalias)(ai->_item.p))->_module); d->_valueto=(void*)adms_branchalias_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)(ai->_item.p))->_module); d->_valueto=(void*)adms_branch_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)(ai->_item.p))->_module); d->_valueto=(void*)adms_variableprototype_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)(ai->_item.p))->_module); d->_valueto=(void*)adms_source_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_range)(ai->_item.p))->_module); d->_valueto=(void*)adms_range_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_jacobian)(ai->_item.p))->_module); d->_valueto=(void*)adms_jacobian_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)(ai->_item.p))->_module); d->_valueto=(void*)adms_probe_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_expression)(ai->_item.p))->_module); d->_valueto=(void*)adms_expression_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instance)(ai->_item.p))->_module); d->_valueto=(void*)adms_instance_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nilled)(ai->_item.p))->_module); d->_valueto=(void*)adms_nilled_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)(ai->_item.p))->_module); d->_valueto=(void*)adms_assignment_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)(ai->_item.p))->_module); d->_valueto=(void*)adms_contribution_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)(ai->_item.p))->_module); d->_valueto=(void*)adms_conditional_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)(ai->_item.p))->_module); d->_valueto=(void*)adms_forloop_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_whileloop)(ai->_item.p))->_module); d->_valueto=(void*)adms_whileloop_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_case)(ai->_item.p))->_module); d->_valueto=(void*)adms_case_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_block)(ai->_item.p))->_module); d->_valueto=(void*)adms_block_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_callfunction)(ai->_item.p))->_module); d->_valueto=(void*)adms_callfunction_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'module' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030info(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_info); d->_valueto=(void*)adms_admsmain_valueto_info;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'info' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030derivate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_derivate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_derivate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_derivate); d->_valueto=(void*)adms_variableprototype_valueto_derivate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'derivate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030curfilename(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_curfilename); d->_valueto=(void*)adms_admsmain_valueto_curfilename;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'curfilename' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030arraydefault(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_arraydefault;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arraydefault' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030fullfilename(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_fullfilename); d->_valueto=(void*)adms_admsmain_valueto_fullfilename;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fullfilename' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030package_bugreport(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_bugreport); d->_valueto=(void*)adms_simulator_valueto_package_bugreport;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_bugreport' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030then(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)(ai->_item.p))->_then); d->_valueto=(void*)adms_conditional_valueto_then;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'then' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030callfunction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_callfunction;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'callfunction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030switch(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_switch); d->_valueto=(void*)adms_source_valueto_switch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'switch' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030fullname(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_fullname); d->_valueto=(void*)adms_simulator_valueto_fullname;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fullname' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030vcount(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbi(d0,ai,((p_variableprototype)d0->_item.p)->_vcount);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_vcount;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_variableprototype)ai->_item.p)->_vcount); d->_valueto=(void*)adms_variableprototype_valueto_vcount;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'vcount' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030OPdependent(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_OPdependent);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_OPdependent;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_OPdependent); d->_valueto=(void*)adms_variableprototype_valueto_OPdependent;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'OPdependent' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030dbg_mem(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_dbg_mem); d->_valueto=(void*)adms_admsmain_valueto_dbg_mem;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dbg_mem' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030item(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_list)
++- {
++- p_slist lii=((p_list)ai->_item.p)->_item;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpn(dot,dot,(p_admst)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_block)
++- {
++- p_slist lii=((p_block)ai->_item.p)->_item;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'item' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030caseitem(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_case)
++- {
++- p_slist lii=((p_case)ai->_item.p)->_caseitem;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'caseitem' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030expression(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_expression;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_subexpression)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_subexpression)(ai->_item.p))->_expression); d->_valueto=(void*)adms_subexpression_valueto_expression;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'expression' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030usedinevaluate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinevaluate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinevaluate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinevaluate); d->_valueto=(void*)adms_variableprototype_valueto_usedinevaluate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinevaluate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030prototype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variable)(ai->_item.p))->_prototype); d->_valueto=(void*)adms_variable_valueto_prototype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'prototype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030package_version(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_version); d->_valueto=(void*)adms_simulator_valueto_package_version;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_version' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030column(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_jacobian)(ai->_item.p))->_column); d->_valueto=(void*)adms_jacobian_valueto_column;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'column' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030idt_name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_idt_name); d->_valueto=(void*)adms_nature_valueto_idt_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'idt_name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030invtransform(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_slist lii=((p_admsmain)ai->_item.p)->_invtransform;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'invtransform' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030forloop(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_forloop;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'forloop' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030evaluation(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_module)(ai->_item.p))->_evaluation); d->_valueto=(void*)adms_module_valueto_evaluation;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'evaluation' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030infinity(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_infinity); d->_valueto=(void*)adms_expression_valueto_infinity;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'infinity' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030assignment(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA0*/ p_slist l1=((p_variableprototype)d0->_item.p)->_assignment;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d1=adms_admst_newpa(d0,ai,l1->data);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;
++- }
++- }
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_assignment;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_assignment;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'assignment' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030location(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_node)ai->_item.p)->_location); d->_valueto=(void*)adms_node_valueto_location;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'location' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030else(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)(ai->_item.p))->_else); d->_valueto=(void*)adms_conditional_valueto_else;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'else' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030default(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_default);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_default;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)(ai->_item.p))->_default); d->_valueto=(void*)adms_variableprototype_valueto_default;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'default' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030parameter(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instanceparameter)(ai->_item.p))->_parameter); d->_valueto=(void*)adms_instanceparameter_valueto_parameter;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'parameter' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030fpos(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_admsmain)ai->_item.p)->_fpos); d->_valueto=(void*)adms_admsmain_valueto_fpos;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fpos' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030class(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_function)ai->_item.p)->_class); d->_valueto=(void*)adms_function_valueto_class;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'class' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030TemperatureDependent(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_TemperatureDependent);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_TemperatureDependent;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_TemperatureDependent); d->_valueto=(void*)adms_variableprototype_valueto_TemperatureDependent;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_TemperatureDependent); d->_valueto=(void*)adms_expression_valueto_TemperatureDependent;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'TemperatureDependent' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030alias(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA0*/ p_slist l1=((p_variableprototype)d0->_item.p)->_alias;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d1=adms_admst_newpa(d0,ai,l1->data);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;
++- }
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_slist lii=((p_variableprototype)ai->_item.p)->_alias;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,(char*)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'alias' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030flickernoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_flickernoise); d->_valueto=(void*)adms_source_valueto_flickernoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_contribution)ai->_item.p)->_flickernoise); d->_valueto=(void*)adms_contribution_valueto_flickernoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'flickernoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030whileloop(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_slist lii=((p_module)ai->_item.p)->_whileloop;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'whileloop' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030package_tarname(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_tarname); d->_valueto=(void*)adms_simulator_valueto_package_tarname;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_tarname' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030setinevaluate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinevaluate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinevaluate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinevaluate); d->_valueto=(void*)adms_variableprototype_valueto_setinevaluate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinevaluate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030analog(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_module)(ai->_item.p))->_analog); d->_valueto=(void*)adms_module_valueto_analog;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'analog' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030vlast(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_vlast);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_vlast;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)(ai->_item.p))->_vlast); d->_valueto=(void*)adms_variableprototype_valueto_vlast;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'vlast' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030lexval(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_lexval);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_lexval;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)(ai->_item.p))->_lexval); d->_valueto=(void*)adms_analogfunction_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)(ai->_item.p))->_lexval); d->_valueto=(void*)adms_variableprototype_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_number)(ai->_item.p))->_lexval); d->_valueto=(void*)adms_number_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_function)(ai->_item.p))->_lexval); d->_valueto=(void*)adms_function_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)(ai->_item.p))->_lexval); d->_valueto=(void*)adms_assignment_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)(ai->_item.p))->_lexval); d->_valueto=(void*)adms_contribution_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_block)(ai->_item.p))->_lexval); d->_valueto=(void*)adms_block_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'lexval' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030f(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_lexval)ai->_item.p)->_f); d->_valueto=(void*)adms_lexval_valueto_f;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'f' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030usage(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_usage); d->_valueto=(void*)adms_admsmain_valueto_usage;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usage' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030idt_nature(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)(ai->_item.p))->_idt_nature); d->_valueto=(void*)adms_nature_valueto_idt_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'idt_nature' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030curline(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_admsmain)ai->_item.p)->_curline); d->_valueto=(void*)adms_admsmain_valueto_curline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'curline' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030package_name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_name); d->_valueto=(void*)adms_simulator_valueto_package_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030l(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_lexval)ai->_item.p)->_l); d->_valueto=(void*)adms_lexval_valueto_l;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'l' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030initial(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)(ai->_item.p))->_initial); d->_valueto=(void*)adms_forloop_valueto_initial;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'initial' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location030usedinmodel(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB0*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB0*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinmodel);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinmodel;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinmodel); d->_valueto=(void*)adms_variableprototype_valueto_usedinmodel;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinmodel' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-
++-static void location031adms(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_list)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_analog)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_string)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_subexpression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_evaluation)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_attribute)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_adms); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'adms' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031math(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_string)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_subexpression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_math); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'math' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031subexpression(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpp(ai,ai,admse_subexpression); d->_valueto=(void*)NULL;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'subexpression' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031forblock(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)ai->_item.p)->_forblock); d->_valueto=(void*)adms_forloop_valueto_forblock;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'forblock' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031verbose(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_verbose); d->_valueto=(void*)adms_admsmain_valueto_verbose;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'verbose' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031sr1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)ai->_item.p)->_sr1); d->_valueto=(void*)adms_simulator_valueto_sr1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'sr1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031maxsize(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_maxsize);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_maxsize;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_maxsize); d->_valueto=(void*)adms_variableprototype_valueto_maxsize;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'maxsize' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031tmp(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_tmp); d->_valueto=(void*)adms_simulator_valueto_tmp;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'tmp' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031if(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)ai->_item.p)->_if); d->_valueto=(void*)adms_conditional_valueto_if;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'if' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031jacobian(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_jacobian)); d->_valueto=(void*)adms_module_valueto_jacobian;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'jacobian' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031currentdate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_currentdate); d->_valueto=(void*)adms_simulator_valueto_currentdate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'currentdate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031flow(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_discipline)ai->_item.p)->_flow); d->_valueto=(void*)adms_discipline_valueto_flow;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'flow' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031hasspecialnumber(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_expression)ai->_item.p)->_hasspecialnumber); d->_valueto=(void*)adms_expression_valueto_hasspecialnumber;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'hasspecialnumber' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031code(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_analog)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analog)ai->_item.p)->_code); d->_valueto=(void*)adms_analog_valueto_code;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_caseitem)ai->_item.p)->_code); d->_valueto=(void*)adms_caseitem_valueto_code;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'code' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031arg1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_unary)ai->_item.p)->_arg1); d->_valueto=(void*)adms_mapply_unary_valueto_arg1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_binary)ai->_item.p)->_arg1); d->_valueto=(void*)adms_mapply_binary_valueto_arg1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_ternary)ai->_item.p)->_arg1); d->_valueto=(void*)adms_mapply_ternary_valueto_arg1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arg1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031grounded(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_node)ai->_item.p)->_grounded); d->_valueto=(void*)adms_node_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_branch)ai->_item.p)->_grounded); d->_valueto=(void*)adms_branch_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_grounded); d->_valueto=(void*)adms_source_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_probe)ai->_item.p)->_grounded); d->_valueto=(void*)adms_probe_valueto_grounded;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'grounded' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031diagonal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_jacobian)ai->_item.p)->_diagonal); d->_valueto=(void*)adms_jacobian_valueto_diagonal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'diagonal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031scalingunit(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_number)ai->_item.p)->_scalingunit); d->_valueto=(void*)adms_number_valueto_scalingunit;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'scalingunit' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031dynamic(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- else if(e==admse_expression)
++- e=admse_math;
++- else if(e==admse_nilled)
++- e=admse_math;
++- else if(e==admse_assignment)
++- e=admse_math;
++- else if(e==admse_contribution)
++- e=admse_math;
++- else if(e==admse_conditional)
++- e=admse_math;
++- else if(e==admse_forloop)
++- e=admse_math;
++- else if(e==admse_whileloop)
++- e=admse_math;
++- else if(e==admse_case)
++- e=admse_math;
++- else if(e==admse_blockvariable)
++- e=admse_math;
++- else if(e==admse_block)
++- e=admse_math;
++- else if(e==admse_callfunction)
++- e=admse_math;
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_dynamic);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_dynamic;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_variableprototype_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_source_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_jacobian)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_jacobian_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_math)ai->_item.p)->_dynamic); d->_valueto=(void*)adms_math_valueto_dynamic;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dynamic' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_analogfunction)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_analogfunction_valueto_lexval;
++- /*BBBB1*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_variableprototype)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variableprototype_valueto_lexval;
++- /*BBBB1*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_function)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_function)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_function_valueto_lexval;
++- /*BBBB1*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d1); d1->_valueto=(void*)adms_variableprototype_valueto_lexval;
++- /*BBBB1*/ p_admst d2=adms_admst_newbs(d1,ai,((p_lexval)d1->_item.p)->_string);if(d2->_preva) d2->_preva->_nexta=d2->_nexta,d2->_preva=NULL; if(d2->_nexta) d2->_nexta->_preva=d2->_preva,d2->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d2; else p->_an->_nexta=d2,d2->_preva=p->_an,p->_an=d2;d2->_position=++p->_position;d2->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_block)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_block)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_block_valueto_lexval;
++- /*BBBB1*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_name); d->_valueto=(void*)adms_simulator_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_name); d->_valueto=(void*)adms_admsmain_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_name); d->_valueto=(void*)adms_nature_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_discipline)ai->_item.p)->_name); d->_valueto=(void*)adms_discipline_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_module)ai->_item.p)->_name); d->_valueto=(void*)adms_module_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nodealias)ai->_item.p)->_name); d->_valueto=(void*)adms_nodealias_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_node)ai->_item.p)->_name); d->_valueto=(void*)adms_node_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_branchalias)ai->_item.p)->_name); d->_valueto=(void*)adms_branchalias_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_range)ai->_item.p)->_name); d->_valueto=(void*)adms_range_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_math)ai->_item.p)->_name); d->_valueto=(void*)adms_math_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_unary)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_mapply_unary)ai->_item.p)->_name); d->_valueto=(void*)adms_mapply_unary_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_mapply_binary)ai->_item.p)->_name); d->_valueto=(void*)adms_mapply_binary_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_mapply_ternary)ai->_item.p)->_name); d->_valueto=(void*)adms_mapply_ternary_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_instance)ai->_item.p)->_name); d->_valueto=(void*)adms_instance_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nilled)ai->_item.p)->_name); d->_valueto=(void*)adms_nilled_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_assignment)ai->_item.p)->_name); d->_valueto=(void*)adms_assignment_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_contribution)ai->_item.p)->_name); d->_valueto=(void*)adms_contribution_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_conditional)ai->_item.p)->_name); d->_valueto=(void*)adms_conditional_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_forloop)ai->_item.p)->_name); d->_valueto=(void*)adms_forloop_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_whileloop)ai->_item.p)->_name); d->_valueto=(void*)adms_whileloop_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_case)ai->_item.p)->_name); d->_valueto=(void*)adms_case_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_return)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_return)ai->_item.p)->_name); d->_valueto=(void*)adms_return_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_attribute)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_attribute)ai->_item.p)->_name); d->_valueto=(void*)adms_attribute_valueto_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031instance(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_instance)); d->_valueto=(void*)adms_module_valueto_instance;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_instance)); d->_valueto=(void*)adms_variableprototype_valueto_instance;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'instance' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031defaultcase(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_caseitem)ai->_item.p)->_defaultcase); d->_valueto=(void*)adms_caseitem_valueto_defaultcase;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'defaultcase' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031obsolete(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_obsolete); d->_valueto=(void*)adms_admsmain_valueto_obsolete;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'obsolete' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031setinfinal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinfinal);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinfinal;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinfinal); d->_valueto=(void*)adms_variableprototype_valueto_setinfinal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinfinal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031dbg_vla(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_dbg_vla); d->_valueto=(void*)adms_admsmain_valueto_dbg_vla;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dbg_vla' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031insource(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_insource);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_insource;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_insource); d->_valueto=(void*)adms_variableprototype_valueto_insource;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'insource' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031hint(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_hint); d->_valueto=(void*)adms_admsmain_valueto_hint;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'hint' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031supexpr(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_range)ai->_item.p)->_supexpr); d->_valueto=(void*)adms_range_valueto_supexpr;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'supexpr' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031setingetprev(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setingetprev);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setingetprev;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setingetprev); d->_valueto=(void*)adms_variableprototype_valueto_setingetprev;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setingetprev' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031minsize(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_minsize);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_minsize;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_minsize); d->_valueto=(void*)adms_variableprototype_valueto_minsize;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'minsize' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031variable(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA1*/ p_admst d1=adms_admst_newla(d0,ai,((p_variableprototype)d0->_item.p)->_variable);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_variable;
++- }
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_variable)); d->_valueto=(void*)adms_admsmain_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_variable)); d->_valueto=(void*)adms_module_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_analogfunction)ai->_item.p)->_variable)); d->_valueto=(void*)adms_analogfunction_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_variable)); d->_valueto=(void*)adms_variableprototype_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_array)ai->_item.p)->_variable); d->_valueto=(void*)adms_array_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_expression)ai->_item.p)->_variable)); d->_valueto=(void*)adms_expression_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_blockvariable)ai->_item.p)->_variable)); d->_valueto=(void*)adms_blockvariable_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_block)ai->_item.p)->_variable)); d->_valueto=(void*)adms_block_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_evaluation)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_evaluation)ai->_item.p)->_variable)); d->_valueto=(void*)adms_evaluation_valueto_variable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'variable' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031node(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_node)); d->_valueto=(void*)adms_module_valueto_node;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nodealias)ai->_item.p)->_node); d->_valueto=(void*)adms_nodealias_valueto_node;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'node' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031direction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_node)ai->_item.p)->_direction); d->_valueto=(void*)adms_node_valueto_direction;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'direction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031br1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)ai->_item.p)->_br1); d->_valueto=(void*)adms_simulator_valueto_br1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'br1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031usedininstance(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedininstance);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedininstance;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedininstance); d->_valueto=(void*)adms_variableprototype_valueto_usedininstance;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedininstance' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031instantiator(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_instantiator)); d->_valueto=(void*)adms_module_valueto_instantiator;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instance)ai->_item.p)->_instantiator); d->_valueto=(void*)adms_instance_valueto_instantiator;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'instantiator' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031argc(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_admsmain)ai->_item.p)->_argc); d->_valueto=(void*)adms_admsmain_valueto_argc;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'argc' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031transform(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_transform)); d->_valueto=(void*)adms_admsmain_valueto_transform;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'transform' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031access(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_access); d->_valueto=(void*)adms_nature_valueto_access;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'access' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031arg3(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_ternary)ai->_item.p)->_arg3); d->_valueto=(void*)adms_mapply_ternary_valueto_arg3;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arg3' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031branch(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_branch)); d->_valueto=(void*)adms_module_valueto_branch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branchalias)ai->_item.p)->_branch); d->_valueto=(void*)adms_branchalias_valueto_branch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)ai->_item.p)->_branch); d->_valueto=(void*)adms_source_valueto_branch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)ai->_item.p)->_branch); d->_valueto=(void*)adms_probe_valueto_branch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'branch' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031index(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_array)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_array)ai->_item.p)->_index); d->_valueto=(void*)adms_array_valueto_index;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'index' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031filename(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_filename); d->_valueto=(void*)adms_admsmain_valueto_filename;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'filename' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031fatal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_fatal); d->_valueto=(void*)adms_admsmain_valueto_fatal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fatal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031warning(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_warning); d->_valueto=(void*)adms_admsmain_valueto_warning;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'warning' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031update(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)ai->_item.p)->_update); d->_valueto=(void*)adms_forloop_valueto_update;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'update' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031units(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_units); d->_valueto=(void*)adms_nature_valueto_units;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'units' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031dbg_xml(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_dbg_xml); d->_valueto=(void*)adms_admsmain_valueto_dbg_xml;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dbg_xml' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031setinnoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinnoise);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinnoise;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinnoise); d->_valueto=(void*)adms_variableprototype_valueto_setinnoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinnoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031setininstance(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setininstance);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setininstance;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setininstance); d->_valueto=(void*)adms_variableprototype_valueto_setininstance;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setininstance' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031isstate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_isstate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_isstate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_isstate); d->_valueto=(void*)adms_variableprototype_valueto_isstate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'isstate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031nodealias(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_nodealias)); d->_valueto=(void*)adms_module_valueto_nodealias;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nodealias' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031simulator(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_admsmain)ai->_item.p)->_simulator); d->_valueto=(void*)adms_admsmain_valueto_simulator;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'simulator' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031static(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- else if(e==admse_expression)
++- e=admse_math;
++- else if(e==admse_nilled)
++- e=admse_math;
++- else if(e==admse_assignment)
++- e=admse_math;
++- else if(e==admse_contribution)
++- e=admse_math;
++- else if(e==admse_conditional)
++- e=admse_math;
++- else if(e==admse_forloop)
++- e=admse_math;
++- else if(e==admse_whileloop)
++- e=admse_math;
++- else if(e==admse_case)
++- e=admse_math;
++- else if(e==admse_blockvariable)
++- e=admse_math;
++- else if(e==admse_block)
++- e=admse_math;
++- else if(e==admse_callfunction)
++- e=admse_math;
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_static);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_static;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_static); d->_valueto=(void*)adms_variableprototype_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_static); d->_valueto=(void*)adms_source_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_jacobian)ai->_item.p)->_static); d->_valueto=(void*)adms_jacobian_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_math)ai->_item.p)->_static); d->_valueto=(void*)adms_math_valueto_static;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'static' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031discipline(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_discipline)); d->_valueto=(void*)adms_admsmain_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_node)ai->_item.p)->_discipline); d->_valueto=(void*)adms_node_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)ai->_item.p)->_discipline); d->_valueto=(void*)adms_branch_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)ai->_item.p)->_discipline); d->_valueto=(void*)adms_source_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)ai->_item.p)->_discipline); d->_valueto=(void*)adms_probe_valueto_discipline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'discipline' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031analogfunction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_analogfunction)); d->_valueto=(void*)adms_module_valueto_analogfunction;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'analogfunction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031seen(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_probe)ai->_item.p)->_seen); d->_valueto=(void*)adms_probe_valueto_seen;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'seen' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031debug(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_debug); d->_valueto=(void*)adms_admsmain_valueto_debug;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'debug' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031argv(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_argv)); d->_valueto=(void*)adms_admsmain_valueto_argv;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'argv' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031contribution(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_contribution)); d->_valueto=(void*)adms_module_valueto_contribution;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'contribution' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031valueof(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_valueof)); d->_valueto=(void*)adms_admsmain_valueto_valueof;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'valueof' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031value(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_number)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_number)ai->_item.p)->_lexval); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_number_valueto_lexval;
++- /*BBBB1*/ p_admst d1=adms_admst_newbs(d0,ai,((p_lexval)d0->_item.p)->_string);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_lexval_valueto_string;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbr(ai,ai,((p_math)ai->_item.p)->_value); d->_valueto=(void*)adms_math_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_string)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_string)ai->_item.p)->_value); d->_valueto=(void*)adms_string_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_value); d->_valueto=(void*)adms_expression_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instanceparameter)ai->_item.p)->_value); d->_valueto=(void*)adms_instanceparameter_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_return)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_return)ai->_item.p)->_value); d->_valueto=(void*)adms_return_valueto_value;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_attribute)
++- {
++- p_admst d=adms_admst_newpc(ai,ai,(p_attribute)ai->_item.p);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'value' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031nodefrommodule(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instancenode)ai->_item.p)->_nodefrommodule); d->_valueto=(void*)adms_instancenode_valueto_nodefrommodule;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nodefrommodule' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031ddxprobe(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA1*/ p_admst d1=adms_admst_newla(d0,ai,((p_variableprototype)d0->_item.p)->_ddxprobe);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_ddxprobe;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_ddxprobe)); d->_valueto=(void*)adms_variableprototype_valueto_ddxprobe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddxprobe' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031setinmodel(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinmodel);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinmodel;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinmodel); d->_valueto=(void*)adms_variableprototype_valueto_setinmodel;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinmodel' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031c(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_lexval)ai->_item.p)->_c); d->_valueto=(void*)adms_lexval_valueto_c;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'c' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031nodefrominstantiator(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instancenode)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instancenode)ai->_item.p)->_nodefrominstantiator); d->_valueto=(void*)adms_instancenode_valueto_nodefrominstantiator;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nodefrominstantiator' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031setininitial_step(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setininitial_step);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setininitial_step;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setininitial_step); d->_valueto=(void*)adms_variableprototype_valueto_setininitial_step;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setininitial_step' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031pnode(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)ai->_item.p)->_pnode); d->_valueto=(void*)adms_branch_valueto_pnode;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'pnode' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031itransforminsideapplytemplate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_itransforminsideapplytemplate)); d->_valueto=(void*)adms_admsmain_valueto_itransforminsideapplytemplate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'itransforminsideapplytemplate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031type(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_type);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_type;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_analogfunction)ai->_item.p)->_type); d->_valueto=(void*)adms_analogfunction_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_type); d->_valueto=(void*)adms_variableprototype_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_type); d->_valueto=(void*)adms_source_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_range)ai->_item.p)->_type); d->_valueto=(void*)adms_range_valueto_type;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'type' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031whitenoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_whitenoise); d->_valueto=(void*)adms_source_valueto_whitenoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_contribution)ai->_item.p)->_whitenoise); d->_valueto=(void*)adms_contribution_valueto_whitenoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'whitenoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031branchalias(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_branchalias)); d->_valueto=(void*)adms_module_valueto_branchalias;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)ai->_item.p)->_branchalias); d->_valueto=(void*)adms_contribution_valueto_branchalias;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'branchalias' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031cast(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_number)ai->_item.p)->_cast); d->_valueto=(void*)adms_number_valueto_cast;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'cast' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031sizetype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_sizetype);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_sizetype;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_sizetype); d->_valueto=(void*)adms_variableprototype_valueto_sizetype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'sizetype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031definition(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_function)ai->_item.p)->_definition); d->_valueto=(void*)adms_function_valueto_definition;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'definition' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031dependency(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- else if(e==admse_string)
++- e=admse_math;
++- else if(e==admse_subexpression)
++- e=admse_math;
++- else if(e==admse_mapply_unary)
++- e=admse_math;
++- else if(e==admse_mapply_binary)
++- e=admse_math;
++- else if(e==admse_mapply_ternary)
++- e=admse_math;
++- else if(e==admse_number)
++- e=admse_math;
++- else if(e==admse_function)
++- e=admse_math;
++- else if(e==admse_variable)
++- e=admse_math;
++- else if(e==admse_array)
++- e=admse_math;
++- else if(e==admse_probe)
++- e=admse_math;
++- else if(e==admse_expression)
++- e=admse_math;
++- else if(e==admse_instance)
++- e=admse_math;
++- else if(e==admse_instanceparameter)
++- e=admse_math;
++- else if(e==admse_instancenode)
++- e=admse_math;
++- else if(e==admse_nilled)
++- e=admse_math;
++- else if(e==admse_assignment)
++- e=admse_math;
++- else if(e==admse_contribution)
++- e=admse_math;
++- else if(e==admse_conditional)
++- e=admse_math;
++- else if(e==admse_forloop)
++- e=admse_math;
++- else if(e==admse_whileloop)
++- e=admse_math;
++- else if(e==admse_case)
++- e=admse_math;
++- else if(e==admse_caseitem)
++- e=admse_math;
++- else if(e==admse_blockvariable)
++- e=admse_math;
++- else if(e==admse_block)
++- e=admse_math;
++- else if(e==admse_callfunction)
++- e=admse_math;
++- if(0) {}
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_dependency); d->_valueto=(void*)adms_variableprototype_valueto_dependency;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_math)ai->_item.p)->_dependency); d->_valueto=(void*)adms_math_valueto_dependency;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dependency' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031terminal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_instance)ai->_item.p)->_terminal)); d->_valueto=(void*)adms_instance_valueto_terminal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'terminal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031tmp1(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_tmp1); d->_valueto=(void*)adms_simulator_valueto_tmp1;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'tmp1' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031abstol(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)ai->_item.p)->_abstol); d->_valueto=(void*)adms_nature_valueto_abstol;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'abstol' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031whileblock(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_whileloop)ai->_item.p)->_whileblock); d->_valueto=(void*)adms_whileloop_valueto_whileblock;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'whileblock' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031parametertype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_parametertype);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_parametertype;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_parametertype); d->_valueto=(void*)adms_variableprototype_valueto_parametertype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'parametertype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031lhs(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)ai->_item.p)->_lhs); d->_valueto=(void*)adms_assignment_valueto_lhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)ai->_item.p)->_lhs); d->_valueto=(void*)adms_contribution_valueto_lhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'lhs' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031conditional(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_conditional)); d->_valueto=(void*)adms_module_valueto_conditional;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'conditional' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031nature(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_nature)); d->_valueto=(void*)adms_admsmain_valueto_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)ai->_item.p)->_nature); d->_valueto=(void*)adms_source_valueto_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)ai->_item.p)->_nature); d->_valueto=(void*)adms_probe_valueto_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nature' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031while(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_whileloop)ai->_item.p)->_while); d->_valueto=(void*)adms_whileloop_valueto_while;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'while' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031hasVoltageDependentFunction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_hasVoltageDependentFunction); d->_valueto=(void*)adms_expression_valueto_hasVoltageDependentFunction;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'hasVoltageDependentFunction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031block(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_block);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_block;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_block)); d->_valueto=(void*)adms_module_valueto_block;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_block); d->_valueto=(void*)adms_variableprototype_valueto_block;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_blockvariable)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_blockvariable)ai->_item.p)->_block); d->_valueto=(void*)adms_blockvariable_valueto_block;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_block)ai->_item.p)->_block); d->_valueto=(void*)adms_block_valueto_block;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'block' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031condition(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)ai->_item.p)->_condition); d->_valueto=(void*)adms_forloop_valueto_condition;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_caseitem)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_caseitem)ai->_item.p)->_condition)); d->_valueto=(void*)adms_caseitem_valueto_condition;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'condition' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031datatype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_list)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_list)ai->_item.p)->_datatype); d->_valueto=(void*)adms_list_valueto_datatype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'datatype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031tree(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)ai->_item.p)->_tree); d->_valueto=(void*)adms_analogfunction_valueto_tree;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_expression)ai->_item.p)->_tree); d->_valueto=(void*)adms_expression_valueto_tree;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'tree' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031input(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_input);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_input;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_input); d->_valueto=(void*)adms_variableprototype_valueto_input;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'input' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031potential(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_discipline)ai->_item.p)->_potential); d->_valueto=(void*)adms_discipline_valueto_potential;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'potential' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031string(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_lexval)ai->_item.p)->_string); d->_valueto=(void*)adms_lexval_valueto_string;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'string' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031supboundtype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_range)ai->_item.p)->_supboundtype); d->_valueto=(void*)adms_range_valueto_supboundtype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'supboundtype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031infboundtype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_range)ai->_item.p)->_infboundtype); d->_valueto=(void*)adms_range_valueto_infboundtype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'infboundtype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031ddx(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_ddx); d->_valueto=(void*)adms_simulator_valueto_ddx;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddx' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031usedininitial_step(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedininitial_step);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedininitial_step;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedininitial_step); d->_valueto=(void*)adms_variableprototype_valueto_usedininitial_step;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedininitial_step' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031ddt_nature(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)ai->_item.p)->_ddt_nature); d->_valueto=(void*)adms_nature_valueto_ddt_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddt_nature' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031attribute(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA1*/ p_admst d1=adms_admst_newla(d0,ai,((p_variableprototype)d0->_item.p)->_attribute);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_attribute;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_module_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_analogfunction)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_analogfunction_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_node)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_node_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_branch)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_branch_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_variableprototype_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_source)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_source_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_math)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_math)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_math_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_assignment)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_assignment_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_contribution)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_contribution_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_block)ai->_item.p)->_attribute)); d->_valueto=(void*)adms_block_valueto_attribute;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'attribute' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031package_string(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_string); d->_valueto=(void*)adms_simulator_valueto_package_string;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_string' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031row(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_jacobian)ai->_item.p)->_row); d->_valueto=(void*)adms_jacobian_valueto_row;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'row' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031usedinnoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinnoise);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinnoise;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinnoise); d->_valueto=(void*)adms_variableprototype_valueto_usedinnoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinnoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031parameterset(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_instance)ai->_item.p)->_parameterset)); d->_valueto=(void*)adms_instance_valueto_parameterset;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'parameterset' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031scope(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_scope);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_scope;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_scope); d->_valueto=(void*)adms_variableprototype_valueto_scope;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'scope' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031base(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)ai->_item.p)->_base); d->_valueto=(void*)adms_nature_valueto_base;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'base' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031output(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_output);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_output;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_output); d->_valueto=(void*)adms_variableprototype_valueto_output;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'output' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031usedinfinal(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinfinal);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinfinal;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinfinal); d->_valueto=(void*)adms_variableprototype_valueto_usedinfinal;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinfinal' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031arg2(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_mapply_binary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_binary)ai->_item.p)->_arg2); d->_valueto=(void*)adms_mapply_binary_valueto_arg2;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_mapply_ternary)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_mapply_ternary)ai->_item.p)->_arg2); d->_valueto=(void*)adms_mapply_ternary_valueto_arg2;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arg2' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031blockvariable(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_blockvariable)); d->_valueto=(void*)adms_module_valueto_blockvariable;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'blockvariable' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031arguments(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_function)ai->_item.p)->_arguments)); d->_valueto=(void*)adms_function_valueto_arguments;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arguments' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031br2(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)ai->_item.p)->_br2); d->_valueto=(void*)adms_simulator_valueto_br2;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'br2' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031probe(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA1*/ p_admst d1=adms_admst_newla(d0,ai,((p_variableprototype)d0->_item.p)->_probe);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_probe;
++- }
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_simulator)ai->_item.p)->_probe); d->_valueto=(void*)adms_simulator_valueto_probe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_probe)); d->_valueto=(void*)adms_module_valueto_probe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_probe)); d->_valueto=(void*)adms_variableprototype_valueto_probe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_source)ai->_item.p)->_probe)); d->_valueto=(void*)adms_source_valueto_probe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_expression)ai->_item.p)->_probe)); d->_valueto=(void*)adms_expression_valueto_probe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_block)ai->_item.p)->_probe)); d->_valueto=(void*)adms_block_valueto_probe;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'probe' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031infexpr(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_range)ai->_item.p)->_infexpr); d->_valueto=(void*)adms_range_valueto_infexpr;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'infexpr' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031unique_id(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_function)ai->_item.p)->_unique_id); d->_valueto=(void*)adms_function_valueto_unique_id;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'unique_id' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031source(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_source)); d->_valueto=(void*)adms_module_valueto_source;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)ai->_item.p)->_source); d->_valueto=(void*)adms_probe_valueto_source;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'source' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031function(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_expression)ai->_item.p)->_function)); d->_valueto=(void*)adms_expression_valueto_function;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_callfunction)ai->_item.p)->_function); d->_valueto=(void*)adms_callfunction_valueto_function;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'function' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031rhs(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)ai->_item.p)->_rhs); d->_valueto=(void*)adms_assignment_valueto_rhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)ai->_item.p)->_rhs); d->_valueto=(void*)adms_contribution_valueto_rhs;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'rhs' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031range(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA1*/ p_admst d1=adms_admst_newla(d0,ai,((p_variableprototype)d0->_item.p)->_range);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_range;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_range)); d->_valueto=(void*)adms_module_valueto_range;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_range)); d->_valueto=(void*)adms_variableprototype_valueto_range;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'range' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031itransform(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_itransform)); d->_valueto=(void*)adms_admsmain_valueto_itransform;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'itransform' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031ddt_name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_ddt_name); d->_valueto=(void*)adms_nature_valueto_ddt_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'ddt_name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031case(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_case)); d->_valueto=(void*)adms_module_valueto_case;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_case)ai->_item.p)->_case); d->_valueto=(void*)adms_case_valueto_case;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'case' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031nnode(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)ai->_item.p)->_nnode); d->_valueto=(void*)adms_branch_valueto_nnode;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'nnode' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031domain(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_discipline)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_discipline)ai->_item.p)->_domain); d->_valueto=(void*)adms_discipline_valueto_domain;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'domain' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031developer(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_developer); d->_valueto=(void*)adms_simulator_valueto_developer;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'developer' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031error(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_error); d->_valueto=(void*)adms_admsmain_valueto_error;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'error' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031module(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_module);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_module;
++- }
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_module)); d->_valueto=(void*)adms_admsmain_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)ai->_item.p)->_module); d->_valueto=(void*)adms_analogfunction_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nodealias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nodealias)ai->_item.p)->_module); d->_valueto=(void*)adms_nodealias_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_node)ai->_item.p)->_module); d->_valueto=(void*)adms_node_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branchalias)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branchalias)ai->_item.p)->_module); d->_valueto=(void*)adms_branchalias_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_branch)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_branch)ai->_item.p)->_module); d->_valueto=(void*)adms_branch_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_module); d->_valueto=(void*)adms_variableprototype_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_source)ai->_item.p)->_module); d->_valueto=(void*)adms_source_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_range)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_range)ai->_item.p)->_module); d->_valueto=(void*)adms_range_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_jacobian)ai->_item.p)->_module); d->_valueto=(void*)adms_jacobian_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_probe)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_probe)ai->_item.p)->_module); d->_valueto=(void*)adms_probe_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_expression)ai->_item.p)->_module); d->_valueto=(void*)adms_expression_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_instance)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instance)ai->_item.p)->_module); d->_valueto=(void*)adms_instance_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_nilled)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nilled)ai->_item.p)->_module); d->_valueto=(void*)adms_nilled_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)ai->_item.p)->_module); d->_valueto=(void*)adms_assignment_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)ai->_item.p)->_module); d->_valueto=(void*)adms_contribution_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)ai->_item.p)->_module); d->_valueto=(void*)adms_conditional_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)ai->_item.p)->_module); d->_valueto=(void*)adms_forloop_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_whileloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_whileloop)ai->_item.p)->_module); d->_valueto=(void*)adms_whileloop_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_case)ai->_item.p)->_module); d->_valueto=(void*)adms_case_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_block)ai->_item.p)->_module); d->_valueto=(void*)adms_block_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_callfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_callfunction)ai->_item.p)->_module); d->_valueto=(void*)adms_callfunction_valueto_module;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'module' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031info(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_info); d->_valueto=(void*)adms_admsmain_valueto_info;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'info' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031derivate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_derivate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_derivate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_derivate); d->_valueto=(void*)adms_variableprototype_valueto_derivate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'derivate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031curfilename(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_curfilename); d->_valueto=(void*)adms_admsmain_valueto_curfilename;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'curfilename' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031arraydefault(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_arraydefault)); d->_valueto=(void*)adms_variableprototype_valueto_arraydefault;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'arraydefault' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031fullfilename(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_admsmain)ai->_item.p)->_fullfilename); d->_valueto=(void*)adms_admsmain_valueto_fullfilename;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fullfilename' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031package_bugreport(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_bugreport); d->_valueto=(void*)adms_simulator_valueto_package_bugreport;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_bugreport' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031then(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)ai->_item.p)->_then); d->_valueto=(void*)adms_conditional_valueto_then;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'then' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031callfunction(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_callfunction)); d->_valueto=(void*)adms_module_valueto_callfunction;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'callfunction' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031switch(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_switch); d->_valueto=(void*)adms_source_valueto_switch;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'switch' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031fullname(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_fullname); d->_valueto=(void*)adms_simulator_valueto_fullname;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fullname' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031vcount(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbi(d0,ai,((p_variableprototype)d0->_item.p)->_vcount);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_vcount;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_variableprototype)ai->_item.p)->_vcount); d->_valueto=(void*)adms_variableprototype_valueto_vcount;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'vcount' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031OPdependent(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_OPdependent);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_OPdependent;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_OPdependent); d->_valueto=(void*)adms_variableprototype_valueto_OPdependent;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'OPdependent' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031dbg_mem(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_dbg_mem); d->_valueto=(void*)adms_admsmain_valueto_dbg_mem;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'dbg_mem' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031item(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_list)
++- {
++- p_admst d=adms_admst_newln(ai,ai,((p_list)ai->_item.p)->_item); d->_valueto=(void*)adms_list_valueto_item;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_block)ai->_item.p)->_item)); d->_valueto=(void*)adms_block_valueto_item;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'item' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031caseitem(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_case)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_case)ai->_item.p)->_caseitem)); d->_valueto=(void*)adms_case_valueto_caseitem;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'caseitem' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031expression(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_expression)); d->_valueto=(void*)adms_module_valueto_expression;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_subexpression)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_subexpression)ai->_item.p)->_expression); d->_valueto=(void*)adms_subexpression_valueto_expression;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'expression' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031usedinevaluate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinevaluate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinevaluate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinevaluate); d->_valueto=(void*)adms_variableprototype_valueto_usedinevaluate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinevaluate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031prototype(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); d->_valueto=(void*)adms_variable_valueto_prototype;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'prototype' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031package_version(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_version); d->_valueto=(void*)adms_simulator_valueto_package_version;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_version' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031column(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_jacobian)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_jacobian)ai->_item.p)->_column); d->_valueto=(void*)adms_jacobian_valueto_column;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'column' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031idt_name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_nature)ai->_item.p)->_idt_name); d->_valueto=(void*)adms_nature_valueto_idt_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'idt_name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031invtransform(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_admsmain)ai->_item.p)->_invtransform)); d->_valueto=(void*)adms_admsmain_valueto_invtransform;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'invtransform' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031forloop(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_forloop)); d->_valueto=(void*)adms_module_valueto_forloop;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'forloop' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031evaluation(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_module)ai->_item.p)->_evaluation); d->_valueto=(void*)adms_module_valueto_evaluation;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'evaluation' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031infinity(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_infinity); d->_valueto=(void*)adms_expression_valueto_infinity;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'infinity' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031assignment(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA1*/ p_admst d1=adms_admst_newla(d0,ai,((p_variableprototype)d0->_item.p)->_assignment);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_assignment;
++- }
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_assignment)); d->_valueto=(void*)adms_module_valueto_assignment;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_assignment)); d->_valueto=(void*)adms_variableprototype_valueto_assignment;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'assignment' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031location(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_node)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_node)ai->_item.p)->_location); d->_valueto=(void*)adms_node_valueto_location;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'location' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031else(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_conditional)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_conditional)ai->_item.p)->_else); d->_valueto=(void*)adms_conditional_valueto_else;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'else' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031default(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_default);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_default;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_default); d->_valueto=(void*)adms_variableprototype_valueto_default;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'default' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031parameter(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_instanceparameter)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_instanceparameter)ai->_item.p)->_parameter); d->_valueto=(void*)adms_instanceparameter_valueto_parameter;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'parameter' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031fpos(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_admsmain)ai->_item.p)->_fpos); d->_valueto=(void*)adms_admsmain_valueto_fpos;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'fpos' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031class(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_function)ai->_item.p)->_class); d->_valueto=(void*)adms_function_valueto_class;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'class' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031TemperatureDependent(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_TemperatureDependent);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_TemperatureDependent;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_TemperatureDependent); d->_valueto=(void*)adms_variableprototype_valueto_TemperatureDependent;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_expression)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_expression)ai->_item.p)->_TemperatureDependent); d->_valueto=(void*)adms_expression_valueto_TemperatureDependent;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'TemperatureDependent' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031alias(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*AAAA1*/ p_admst d1=adms_admst_newla(d0,ai,((p_variableprototype)d0->_item.p)->_alias);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_alias;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_variableprototype)ai->_item.p)->_alias)); d->_valueto=(void*)adms_variableprototype_valueto_alias;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'alias' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031flickernoise(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_source)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_source)ai->_item.p)->_flickernoise); d->_valueto=(void*)adms_source_valueto_flickernoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_contribution)ai->_item.p)->_flickernoise); d->_valueto=(void*)adms_contribution_valueto_flickernoise;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'flickernoise' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031whileloop(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newla(ai,ai,(p_slist)(((p_module)ai->_item.p)->_whileloop)); d->_valueto=(void*)adms_module_valueto_whileloop;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'whileloop' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031package_tarname(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_tarname); d->_valueto=(void*)adms_simulator_valueto_package_tarname;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_tarname' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031setinevaluate(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_setinevaluate);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_setinevaluate;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_setinevaluate); d->_valueto=(void*)adms_variableprototype_valueto_setinevaluate;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'setinevaluate' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031analog(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_module)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_module)ai->_item.p)->_analog); d->_valueto=(void*)adms_module_valueto_analog;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'analog' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031vlast(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_vlast);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_vlast;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_vlast); d->_valueto=(void*)adms_variableprototype_valueto_vlast;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'vlast' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031lexval(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newpa(d0,ai,(p_adms)((p_variableprototype)d0->_item.p)->_lexval);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_lexval;
++- }
++- else if(e==admse_analogfunction)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_analogfunction)ai->_item.p)->_lexval); d->_valueto=(void*)adms_analogfunction_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_variableprototype)ai->_item.p)->_lexval); d->_valueto=(void*)adms_variableprototype_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_number)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_number)ai->_item.p)->_lexval); d->_valueto=(void*)adms_number_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_function)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_function)ai->_item.p)->_lexval); d->_valueto=(void*)adms_function_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_assignment)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_assignment)ai->_item.p)->_lexval); d->_valueto=(void*)adms_assignment_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_contribution)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_contribution)ai->_item.p)->_lexval); d->_valueto=(void*)adms_contribution_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(e==admse_block)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_block)ai->_item.p)->_lexval); d->_valueto=(void*)adms_block_valueto_lexval;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'lexval' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031f(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_lexval)ai->_item.p)->_f); d->_valueto=(void*)adms_lexval_valueto_f;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'f' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031usage(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_admsmain)ai->_item.p)->_usage); d->_valueto=(void*)adms_admsmain_valueto_usage;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usage' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031idt_nature(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_nature)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_nature)ai->_item.p)->_idt_nature); d->_valueto=(void*)adms_nature_valueto_idt_nature;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'idt_nature' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031curline(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_admsmain)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_admsmain)ai->_item.p)->_curline); d->_valueto=(void*)adms_admsmain_valueto_curline;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'curline' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031package_name(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_simulator)
++- {
++- p_admst d=adms_admst_newbs(ai,ai,((p_simulator)ai->_item.p)->_package_name); d->_valueto=(void*)adms_simulator_valueto_package_name;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'package_name' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031l(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_lexval)
++- {
++- p_admst d=adms_admst_newbi(ai,ai,((p_lexval)ai->_item.p)->_l); d->_valueto=(void*)adms_lexval_valueto_l;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'l' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031initial(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_forloop)
++- {
++- p_admst d=adms_admst_newpa(ai,ai,(p_adms)((p_forloop)ai->_item.p)->_initial); d->_valueto=(void*)adms_forloop_valueto_initial;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'initial' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-static void location031usedinmodel(p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst ai=aread(dot);
++- admse e;
++- if(ai)
++- e=ai->_pseudo;
++- else
++- {
++- p_admst d=adms_admst_newpa(ai,ai,NULL);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position; return;
++- }
++- if(0) {}
++- if(0) {}
++- else if(e==admse_variable)
++- {
++- /*BBBB1*/ p_admst d0=adms_admst_newpa(ai,ai,(p_adms)((p_variable)ai->_item.p)->_prototype); adms_slist_push(&p->_aliasadmst,(p_adms)d0); d0->_valueto=(void*)adms_variable_valueto_prototype;
++- /*BBBB1*/ p_admst d1=adms_admst_newbe(d0,ai,((p_variableprototype)d0->_item.p)->_usedinmodel);if(d1->_preva) d1->_preva->_nexta=d1->_nexta,d1->_preva=NULL; if(d1->_nexta) d1->_nexta->_preva=d1->_preva,d1->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d1; else p->_an->_nexta=d1,d1->_preva=p->_an,p->_an=d1;d1->_position=++p->_position;d1->_valueto=(void*)adms_variableprototype_valueto_usedinmodel;
++- }
++- else if(e==admse_variableprototype)
++- {
++- p_admst d=adms_admst_newbe(ai,ai,((p_variableprototype)ai->_item.p)->_usedinmodel); d->_valueto=(void*)adms_variableprototype_valueto_usedinmodel;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newpn(ai,ai,ai);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_error(("%s: 'usedinmodel' bad attribute\n",adms_transform_uid(p->_transform)))
++- }
++-}
++-
++-
++-static void groupage (void) {}
++-static void location04 (void) {}
++-static void location05 (void) {}
++-
++-p_slist globalfileoutputlist=NULL;
++-int break_found=0;
++-
++-FILE *OUT (void)
++-{
++- return globalfileoutputlist?(FILE*)globalfileoutputlist->data:stdout;
++-}
++-p_transform lookfortemplates(p_transform mytransform,const char*match)
++-{
++- p_slist li;
++- p_transform parent=root()->_itransform?((p_itransform)root()->_itransform->data)->_originalcall:mytransform;
++- while(parent)
++- {
++- p_slist l;
++- for(l=parent->_templates;l;l=l->next)
++- if(!strcmp(((p_admst)((p_transform)l->data)->_textmatch->_token->data)->_item.s,match))
++- return (p_transform)l->data;
++- parent=parent->_parent;
++- }
++- for(li=root()->_invtransform;li;li=li->next)
++- {
++- p_slist l;
++- parent=(p_transform)li->data;
++- for(l=parent->_templates;l;l=l->next)
++- if(!strcmp(((p_admst)((p_transform)l->data)->_textmatch->_token->data)->_item.s,match))
++- return (p_transform)l->data;
++- }
++- parent=mytransform;
++- while(parent)
++- {
++- p_slist l;
++- for(l=parent->_templates;l;l=l->next)
++- if(!strcmp(((p_admst)((p_transform)l->data)->_textmatch->_token->data)->_item.s,match))
++- return (p_transform)l->data;
++- parent=parent->_parent;
++- }
++- return NULL;
++-}
++-static void location02 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_itransform myitransform=adms_itransform_new(mypath->_template);
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_slist myl0=p0->_admst;
++- myitransform->_originalcall=mypath->_transform;
++- adms_slist_push(&root()->_itransform,(p_adms)myitransform);
++- for(;myl0;myl0=myl0->next)
++- {
++- if(myl0->data&&((p_admst)myl0->data)->_item.p)
++- {
++- p_slist l;
++- xtraverse(myitransform->_template->_children,(p_admst)myl0->data,dot);
++- for(l=myitransform->_variable;l;l=l->next)
++- {
++- p_slist li;
++- for(li=((p_admstvariable)l->data)->_value;li;li=li->next)
++- deref((p_admst)li->data);
++- adms_admstvariable_free((p_admstvariable)l->data);
++- }
++- }
++- }
++- adms_slist_pull(&root()->_itransform);
++- free_ptraverse(p0);
++- for(myl0=myitransform->_return;myl0;myl0=myl0->next)
++- {
++- if(((p_admst)myl0->data)->_preva) ((p_admst)myl0->data)->_preva->_nexta=((p_admst)myl0->data)->_nexta,((p_admst)myl0->data)->_preva=NULL; if(((p_admst)myl0->data)->_nexta) ((p_admst)myl0->data)->_nexta->_preva=((p_admst)myl0->data)->_preva,((p_admst)myl0->data)->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=((p_admst)myl0->data); else p->_an->_nexta=((p_admst)myl0->data),((p_admst)myl0->data)->_preva=p->_an,p->_an=((p_admst)myl0->data);((p_admst)myl0->data)->_position=++p->_position;
++- }
++- adms_itransform_free(myitransform);
++-}
++-void Xassert (p_transform mytransform,p_admst dot,p_admst dotdot)
++-{
++- if(!mytransform->_textformat)
++- {
++- adms_message_fatal_continue(("assert failed\n"))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mytransform)))
++- }
++- else if(mytransform->_pathselect)
++- {
++- p_ptraverse pselect=bar(dot,mytransform->_pathselect);
++- p_slist myli;
++- for(myli=pselect->_admst;myli;myli=myli->next)
++- {
++- char* text=tsprintf((p_admst)myli->data,mytransform->_textformat);
++- adms_message_fatal_continue(("%s",text))
++- free(text);
++- }
++- adms_message_fatal(("see %s\n",adms_transform_uid(mytransform)))
++- free_ptraverse(pselect);
++- }
++- else
++- {
++- char* text=tsprintf(dot,mytransform->_textformat);
++- adms_message_fatal_continue(("%s",text))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mytransform)))
++- free(text);
++- }
++-}
++-typedef void (*p_transform_evaluate) (p_transform mytransform,p_admst dot);
++-void xtraverse (p_slist mytransforms,p_admst dot,p_admst dotdot)
++-{
++- p_slist l;
++- for(l=mytransforms;l;l=l->next)
++- {
++- int mypassed=1;
++- p_transform mytransform=(p_transform)l->data;
++- if(mytransform->_pathtest)
++- {
++- p_ptraverse myptraverse=bar(dot,mytransform->_pathtest);
++- if(mytransform->_callback==(void*)Xassert)
++- mypassed=!myptraverse->_admst;
++- else
++- {
++- p_admst myadmst0;
++- mypassed=(myptraverse->_admst&&(myadmst0=aread((p_admst)myptraverse->_admst->data))&&(myadmst0->_pseudo!=admse_empty));
++- }
++- free_ptraverse(myptraverse);
++- }
++- if(mypassed)
++- ((p_transform_evaluate)mytransform->_callback)(mytransform,dot);
++- if(break_found==1)
++- break;
++- }
++-}
++-
++-static void root00 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpa(dot,dot,(p_adms)root());if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-void location03 (void) {}
++-
/*[nepasimprimer]*/
++-static void adms_fatal_on_obsolete_syntax(p_transform mytransform,p_admst myadmst)
++-{
++- if(myadmst&&
++- ((myadmst->_pseudo==admse_datatypename)
++- ||(myadmst->_pseudo==admse_empty)
++- ||(myadmst->_pseudo==admse_basicenumeration)
++- ||(myadmst->_pseudo==admse_basicinteger)
++- ||(myadmst->_pseudo==admse_basicreal)
++- ||(myadmst->_pseudo==admse_basicstring)))
++- return;
++- if(myadmst&&(myadmst->_pseudo==admse_expression))
++- {
++- adms_message_warning_continue(("[removed feature] admst:value-of 'expression'\n"))
++- adms_message_warning_continue(("[removed feature] Please use admst:apply-templates\n"))
++- adms_message_warning_continue(("[removed feature] see: %s\n",adms_transform_uid(mytransform)))
++- adms_message_warning(("[removed feature] For help contact me at r29173 at users.sourceforge.net\n"))
++- }
++- else if(myadmst->_pseudo==admse__arguments)
++- {
++- adms_message_warning_continue(("[removed feature] admst:value-of 'arguments'\n"))
++- adms_message_warning_continue(("[removed feature] Please use admst:apply-templates\n"))
++- adms_message_warning_continue(("[removed feature] see: %s\n",adms_transform_uid(mytransform)))
++- adms_message_warning(("[removed feature] For help contact me at r29173 at users.sourceforge.net\n"))
++- }
++-}
++-p_admst adms_pull_admst (p_transform mytransform)
++-{
++- if(root()->_valueof)
++- {
++- adms_slist_pull(&root()->_valueof); /*pull transform*/
++- return (p_admst)adms_slist_pull(&root()->_valueof);
++- }
++- adms_message_fatal_continue(("stack '%%s' has no more element!\n"))
++- adms_message_fatal(("see %s",adms_transform_uid(mytransform)))
++- return NULL;
++-}
++-p_admstvariable lookup_dollar (const char* myid)
++-{
++- p_itransform myitransform=root()->_itransform?(p_itransform)root()->_itransform->data:NULL;
++- p_slist list;
++- if(myitransform)
++- {
++- list=myitransform->_variable;
++- while(list)
++- {
++- if(!strcmp(((p_admstvariable)list->data)->_name,myid))
++- return (p_admstvariable)list->data;
++- list=list->next;
++- }
++- }
++- list=root()->_variable;
++- while(list)
++- {
++- if(!strcmp(((p_admstvariable)list->data)->_name,myid))
++- return (p_admstvariable)list->data;
++- list=list->next;
++- }
++- return NULL;
++-}
++-char* tsprintf (p_kadmst myadmst, p_ktext mytext)
++-{
++- char* myvalue=myadmst?adms_kclone(""):((p_admst)mytext->_token->data)->_item.s;
++- p_slist myl;
++- for(myl=((myadmst&&mytext)?mytext->_token:NULL);myl;myl=myl->next)
++- {
++- p_adms token=myl->data;
++- if(token->_datatypename==admse_text)
++- {
++- if(((p_text)token)->_admse==admse__s)
++- {
++- p_admst mystack=adms_pull_admst(mytext->_transform);
++- if(mystack)
++- {
++- char* mynewvalue=aprintf(mytext->_transform,mystack);
++- if(mynewvalue)
++- {
++- adms_fatal_on_obsolete_syntax(mytext->_transform,mystack);
++- adms_k2strconcat(&myvalue,mynewvalue);
++- free(mynewvalue);
++- }
++- deref(mystack);
++- }
++- }
++- else
++- {
++- char* dollarname=tsprintf(myadmst,(p_text)token);
++- p_admstvariable dollar=lookup_dollar(dollarname);
++- if(dollar)
++- {
++- p_slist myl2=dollar->_value;
++- for(;myl2;myl2=myl2->next)
++- {
++- char* val=aprintf(mytext->_transform,(p_admst)myl2->data);
++- if(val)
++- {
++- adms_k2strconcat(&myvalue,val);
++- free(val);
++- }
++- }
++- }
++- else
++- {
++- adms_message_obsolete_continue(("variable $(%s) is undefined\n",dollarname))
++- adms_message_obsolete(("Check if you really wanted to access an variable. If not replace '$' by '$'\n"))
++- adms_message_obsolete(("see %s\n",adms_transform_uid(mytext->_transform)))
++- adms_k2strconcat(&myvalue,"$");
++- adms_k2strconcat(&myvalue,dollarname);
++- }
++- free(dollarname);
++- }
++- }
++- else if(token->_datatypename==admse_admst)
++- adms_k2strconcat(&myvalue,((p_admst)token)->_item.s);
++- else if(token->_datatypename==admse_path)
++- {
++- p_ptraverse myptraverse=bar(myadmst,(p_path)token);
++- p_slist myl;
++- for(myl=myptraverse->_admst;myl;myl=myl->next)
++- {
++- char* mynewvalue=aprintf(((p_path)token)->_transform,(p_admst)myl->data);
++- if(mynewvalue)
++- adms_k2strconcat(&myvalue,mynewvalue);
++- free(mynewvalue);
++- }
++- free_ptraverse(myptraverse);
++- }
++- }
++- return myvalue;
++-}
++-void tprintf (p_kadmst myadmst, p_ktext mytext)
++-{
++- p_slist myl;
++- for(myl=mytext->_token;myl;myl=myl->next)
++- {
++- p_adms token=myl->data;
++- if(token->_datatypename==admse_text)
++- {
++- if(((p_text)token)->_admse==admse__s)
++- {
++- p_admst mystack=adms_pull_admst(mytext->_transform);
++- if(mystack)
++- {
++- char* mynewvalue=aprintf(mytext->_transform,mystack);
++- if(mynewvalue)
++- {
++- adms_fatal_on_obsolete_syntax(mytext->_transform,mystack);
++- fputs(mynewvalue,OUT());
++- free(mynewvalue);
++- }
++- deref(mystack);
++- }
++- }
++- else
++- {
++- char* dollarname=tsprintf(myadmst,(p_text)token);
++- p_admstvariable dollar=lookup_dollar(dollarname);
++- if(dollar)
++- {
++- p_slist myl2=dollar->_value;
++- for(;myl2;myl2=myl2->next)
++- {
++- char* val=aprintf(mytext->_transform,(p_admst)myl2->data);
++- if(val)
++- {
++- fputs(val,OUT());
++- free(val);
++- }
++- }
++- }
++- else
++- {
++- adms_message_obsolete_continue(("variable $(%s) is undefined\n",dollarname))
++- adms_message_obsolete(("Check if you really wanted to access an variable. If not replace '$' by '$'\n"))
++- adms_message_obsolete(("see %s\n",adms_transform_uid(mytext->_transform)))
++- fputs("$",OUT());
++- fputs(dollarname,OUT());
++- }
++- free(dollarname);
++- }
++- }
++- else if(token->_datatypename==admse_admst)
++- fputs(((p_admst)token)->_item.s,OUT());
++- else if(token->_datatypename==admse_path)
++- {
++- p_ptraverse myptraverse=bar(myadmst,(p_path)token);
++- p_slist myl;
++- for(myl=myptraverse->_admst;myl;myl=myl->next)
++- {
++- char* mynewvalue=aprintf(((p_path)token)->_transform,(p_admst)myl->data);
++- if(mynewvalue)
++- fputs(mynewvalue,OUT());
++- free(mynewvalue);
++- }
++- free_ptraverse(myptraverse);
++- }
++- }
++-}
++-static void location26 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- tprintf(dot,mypath->_text);
++-}
++-static int retdatatypename(p_admst myadmst)
++-{
++- if(
++- (myadmst->_pseudo==admse_empty)
++- ||
++- (myadmst->_pseudo==admse_basicenumeration)
++- ||
++- (myadmst->_pseudo==admse_basicinteger)
++- ||
++- (myadmst->_pseudo==admse_basicreal)
++- ||
++- (myadmst->_pseudo==admse_basicstring)
++- ||
++- (myadmst->_pseudo==admse__ladms)
++- ||
++- (myadmst->_pseudo==admse__ladmst)
++- ||
++- (myadmst->_pseudo==admse_datatypename)
++- )
++- return myadmst->_pseudo;
++- else if(myadmst->_pseudo==admse__croix)
++- return ((p_attribute)myadmst->_item.p)->_value?((p_admst)((p_attribute)myadmst->_item.p)->_value)->_pseudo:admse_empty;
++- else
++- return myadmst->_item.p->_datatypename;
++-}
++-static p_attribute retcroixcroix (p_admst myadmst,p_path mypath)
++-{
++- char*myname=tsprintf(myadmst,mypath->_text);
++- p_attribute myattribute=adms_attribute_new(myname);
++- free(myname);
++- return myattribute;
++-}
++-static p_attribute retcroix (p_admst myadmst,p_path mypath)
++-{
++- p_attribute myattribute=NULL;
++- char*myname=tsprintf(myadmst,mypath->_text);
++- p_slist list;
++- p_adms item=myadmst->_item.p;
++- if(
++- (myadmst->_pseudo==admse_basicenumeration)
++- ||
++- (myadmst->_pseudo==admse_basicinteger)
++- ||
++- (myadmst->_pseudo==admse_basicreal)
++- ||
++- (myadmst->_pseudo==admse_basicstring)
++- ||
++- (myadmst->_pseudo==admse_datatypename)
++- )
++- {
++- adms_message_fatal_continue(("operator '#' applied to element '%s' - not supported!\n",ns_etostr(myadmst->_pseudo)))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mypath->_transform)))
++- }
++- list=item?item->_attribute:NULL;
++- for(;list&&!myattribute;list=list->next)
++- if(!strcmp(((p_attribute)list->data)->_name,myname))
++- myattribute=(p_attribute)list->data;
++- if(!myattribute)
++- {
++- myattribute=adms_attribute_new(myname);
++- adms_slist_push(&item->_attribute,(p_adms)myattribute);
++- }
++- free(myname);
++- return myattribute;
++-}
++-static p_slist retcroixstar (p_admst myadmst)
++-{
++- return myadmst->_item.p?myadmst->_item.p->_attribute:NULL;
++-}
++-static int adms_slist_compare (p_admst myadmst0,p_admst myadmst1)
++-{
++- admse mytype0=myadmst0->_pseudo;
++- admse mytype1=myadmst1->_pseudo;
++- if((mytype0==admse_empty)&&(mytype1==admse_empty))
++- return 0;
++- else if(mytype0==admse_empty)
++- return -1;
++- else if(mytype1==admse_empty)
++- return +1;
++- else if((mytype0==admse_basicinteger)&&(mytype1==admse_basicinteger))
++- return (myadmst0->_item.i-myadmst1->_item.i);
++- else
++- {
++- char* uid1=aprintf(NULL,myadmst0);
++- char* uid2=aprintf(NULL,myadmst1);
++- int res=strcmp(uid1,uid2);
++- free(uid1);
++- free(uid2);
++- return res;
++- }
++-}
++-static p_slist adms_slist_sort_merge (p_slist myl0, p_slist myl1)
++-{
++- t_slist list;
++- p_slist myli=&list;
++- while(myl0&&myl1)
++- {
++- if(adms_slist_compare((p_admst)myl0->data,(p_admst)myl1->data)<0)
++- {
++- myli=myli->next=myl0;
++- myl0=myl0->next;
++- }
++- else
++- {
++- myli=myli->next=myl1;
++- myl1=myl1->next;
++- }
++- }
++- myli->next=myl0?myl0:myl1;
++- return list.next;
++-}
++-static p_slist adms_slist_sort (p_slist list)
++-{
++- p_slist myl0, myl1;
++- if(!list)
++- return NULL;
++- if(!list->next)
++- return list;
++- myl0=list;
++- myl1=list->next;
++- while((myl1=myl1->next)!=NULL)
++- {
++- if((myl1=myl1->next)==NULL)
++- break;
++- myl0=myl0->next;
++- }
++- myl1=myl0->next;
++- myl0->next=NULL;
++- return adms_slist_sort_merge(adms_slist_sort(list),adms_slist_sort(myl1));
++-}
++-/*returned*/
++-static void location15 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist l;
++- p_admst d=NULL;
++- char* myname=tsprintf(dot,mypath->_text);
++- p_itransform myitransform;
++- if(!root()->_itransforminsideapplytemplate)
++- {
++- adms_message_fatal_continue(("return('%s') allowed only inside admst:apply-templates\n",myname))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mypath->_transform)))
++- }
++- myitransform=(p_itransform)root()->_itransforminsideapplytemplate->data;
++- for(l=myitransform->_return;l&&!d;l=l->next)
++- if(!strcmp(((p_return)((p_admst)l->data)->_item.p)->_name,myname))
++- d=(p_admst)l->data;
++- if(d==NULL)
++- {
++- adms_message_fatal_continue(("returned('%s'): undefined returned value\n",myname))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mypath->_transform)))
++- }
++- free(myname);
++- if(d->_refd) d->_refd++;if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*"%p"*/
++-static void location200 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_pull_admst(mypath->_transform);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*'k'*/
++-static void location09k (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- ((p_admst)mypath->_text->_token->data)->_previouspath=dot;
++- if(((p_admst)mypath->_text->_token->data)->_preva) ((p_admst)mypath->_text->_token->data)->_preva->_nexta=((p_admst)mypath->_text->_token->data)->_nexta,((p_admst)mypath->_text->_token->data)->_preva=NULL; if(((p_admst)mypath->_text->_token->data)->_nexta) ((p_admst)mypath->_text->_token->data)->_nexta->_preva=((p_admst)mypath->_text->_token->data)->_preva,((p_admst)mypath->_text->_token->data)->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=((p_admst)mypath->_text->_token->data); else p [...]
++-}
++-/*int*/
++-static void location10 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- ((p_admst)mypath->_text->_token->data)->_previouspath=dot;
++- if(((p_admst)mypath->_text->_token->data)->_preva) ((p_admst)mypath->_text->_token->data)->_preva->_nexta=((p_admst)mypath->_text->_token->data)->_nexta,((p_admst)mypath->_text->_token->data)->_preva=NULL; if(((p_admst)mypath->_text->_token->data)->_nexta) ((p_admst)mypath->_text->_token->data)->_nexta->_preva=((p_admst)mypath->_text->_token->data)->_preva,((p_admst)mypath->_text->_token->data)->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=((p_admst)mypath->_text->_token->data); else p [...]
++-}
++-
++-static p_admstvariable retaroba (p_admst myadmst,p_path mypath)
++-{
++- char* myid=tsprintf(myadmst,mypath->_text);
++- p_admstvariable mydollar;
++- p_slist list;
++- p_adms item=myadmst->_item.p;
++- list=item->_variable;
++- while(list)
++- {
++- if(!strcmp(((p_admstvariable)list->data)->_name,myid))
++- {
++- free(myid);
++- return (p_admstvariable)list->data;
++- }
++- list=list->next;
++- }
++- mydollar=adms_admstvariable_new(myid);
++- adms_slist_push(&item->_variable,(p_adms)mydollar);
++- free(myid);
++- return mydollar;
++-}
++-static p_admstvariable retdollar (p_admst myadmst,p_path mypath)
++-{
++- char* id=tsprintf(aread(myadmst),mypath->_text);
++- p_admstvariable dollar=lookup_dollar(id);
++- if(!dollar)
++- adms_message_fatal(("variable $(%s) is undefined! see %s\n",id,adms_transform_uid(mypath->_transform)))
++- free(id);
++- return dollar;
++-}
++-static int retcount (p_admst myadmst,p_path mypath)
++-{
++- p_ptraverse p0=bar(myadmst,(p_path)mypath->_u->data);
++- int count=p0->_admst?((p_admst)p0->_admst->data)->_count:0;
++- free_ptraverse(p0);
++- return count;
++-}
++-/*datatypename*/
++-static void location03datatypename (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newbd(dot,dot,retdatatypename(dot));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*ident*/
++-static void location03dummy (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newbi(dot,dot,0);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*real*/
++-static void location07 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newbr(dot,dot,adms_strtod(mypath->_transform,tsprintf(NULL,mypath->_text)));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*position*/
++-static void location18 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newbi(dot,dot,(dot)->_position);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*count*/
++-static void location27 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newbi(dot,dot,retcount(dot,mypath));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*''*/
++-static void location09 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newns(dot,dot,tsprintf(dot,mypath->_text));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*##*/
++-static void location12 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpa(dot,dot,(p_adms)retcroixcroix(dot,mypath));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*#*/
++-static void location13 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpc(dot,dot,retcroix(dot,mypath));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*admst*/
++-static void location14 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpa(dot,dot,(p_adms)dot);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*$var*/
++-static void location041 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpd(dot,dot,retdollar(dot,mypath));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*@var*/
++-static void location051 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpd(dot,dot,retaroba(dot,mypath));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++-}
++-/*index*/
++-static int retindex (p_slist mylii,p_ptraverse p0)
++-{
++- p_admst myadmst1=(p_admst)mylii->data;
++- p_adms myadms1=myadmst1->_item.p;
++- admse mytype1=myadmst1->_pseudo;
++- p_cmp mycmp=adms_admsxml_cmp(myadmst1);
++- p_slist myl0;
++- int myindex=-1;
++- int found=0;
++- for(myl0=p0->_admst;myl0&&!found;myl0=myl0->next)
++- {
++- p_admst myadmst0=(p_admst)myl0->data;
++- p_adms myadms0=myadmst0->_item.p;
++- admse mytype0=myadmst0->_pseudo;
++- found=(mytype0==mytype1)&&(!mycmp(myadms0,myadms1));
++- myindex++;
++- }
++- if(found)
++- return myindex;
++- else
++- return minusone;
++-}
++-static void location19 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_ptraverse p1=bar(dot,(p_path)mypath->_u->next->data);
++- p_slist l1=p1->_admst;
++- for(;l1;l1=l1->next)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,retindex(l1,p0));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- free_ptraverse(p0); free_ptraverse(p1);
++-}
++-
++-static char* retaprintf (p_path mypath,p_slist myl0)
++-{
++- return aprintf(mypath->_transform,(p_admst)myl0->data);
++-}
++-static char* retpointer (p_slist myl0)
++-{
++- char* mystring=malloc(sizeof(char)*50);
++- sprintf(mystring,"%p",((p_admst)myl0->data)->_item.p);
++- return mystring;
++-}
++-static char* retuc (p_path mypath,p_slist myl0)
++-{
++- char* mystring=aprintf(mypath->_transform,(p_admst)myl0->data);
++- adms_toupper(mystring);
++- return mystring;
++-}
++-static char* retlc (p_path mypath,p_slist myl0)
++-{
++- char* mystring=aprintf(mypath->_transform,(p_admst)myl0->data);
++- adms_tolower(mystring);
++- return mystring;
++-}
++-/*uid*/
++-static void location20 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_slist l0=p0->_admst;
++- for(;l0;l0=l0->next)
++- {
++- p_admst d=adms_admst_newns(dot,dot,retaprintf(mypath,l0));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- free_ptraverse(p0);
++-}
++-/*id */
++-static void location21 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_slist l0=p0->_admst;
++- for(;l0;l0=l0->next)
++- {
++- p_admst d=adms_admst_newns(dot,dot,retpointer(l0));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- free_ptraverse(p0);
++-}
++-/*uc*/
++-static void location24 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_slist l0=p0->_admst;
++- for(;l0;l0=l0->next)
++- {
++- p_admst d=adms_admst_newns(dot,dot,retuc(mypath,l0));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- free_ptraverse(p0);
++-}
++-/*lc*/
++-static void location25 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_slist l0=p0->_admst;
++- for(;l0;l0=l0->next)
++- {
++- p_admst d=adms_admst_newns(dot,dot,retlc(mypath,l0));if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- free_ptraverse(p0);
++-}
++-/*sort*/
++-static void location22 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_slist lii=adms_slist_sort(p0->_admst);
++- p0->_admst=lii;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpn(dot,dot,(p_admst)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- free_ptraverse(p0);
++-}
++-/*reverse*/
++-static void location23 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- p_slist lii=adms_slist_reverse(p0->_admst);
++- p0->_admst=lii;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpn(dot,dot,(p_admst)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- free_ptraverse(p0);
++-}
++-/*#**/
++-static void location130 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist lii=retcroixstar(dot)?retcroixstar(dot):NULL;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpc(dot,dot,(p_attribute)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++-}
++-/*$var*/
++-static void location040 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist lii=retdollar(dot,mypath)->_value;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpn(dot,dot,(p_admst)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++-}
++-/*@var*/
++-static void location050 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist lii=retaroba(dot,mypath)->_value;
++- for(;lii;lii=lii->next)
++- {
++- p_admst d=adms_admst_newpn(dot,dot,(p_admst)lii->data);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++-}
++-
++-static void attributecallback (p_path mypath0,p_slist npaths,p_slist npath)
++-{
++- p_path mypath=(p_path)npath->data;
++- mypath->_keeplist=(mypath0->_keeplist&&(npath->next==NULL)&&(mypath->_c==NULL))||mypath->_keeplist;
++- if(mypath->_callback==(void*)location04)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location041:(void*)location040;
++- mypath->_callbackname=(mypath->_keeplist)?"location041":"location040";
++- }
++- else if(mypath->_callback==(void*)location05)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location051:(void*)location050;
++- mypath->_callbackname=(mypath->_keeplist)?"location051":"location050";
++- }
++- else if(mypath->_callback==(void*)location03)
++- {
++- if(0) {}
++- else if(mypath->_text->_admse==admse_datatypename)
++- {
++- mypath->_callback=(void*)location03datatypename;
++- mypath->_callbackname="location03datatypename.datatypename";
++- }
++- else if(mypath->_text->_admse==admse_attribute)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031attribute:(void*)location030attribute;
++- mypath->_callbackname=(mypath->_keeplist)?"location031attribute":"location030attribute";
++- }
++- else if(mypath->_text->_admse==admse_variable)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031variable:(void*)location030variable;
++- mypath->_callbackname=(mypath->_keeplist)?"location031variable":"location030variable";
++- }
++- else if(mypath->_text->_admse==admse_adms)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031adms:(void*)location030adms;
++- mypath->_callbackname=(mypath->_keeplist)?"location031adms":"location030adms";
++- }
++- else if(mypath->_text->_admse==admse_name)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031name:(void*)location030name;
++- mypath->_callbackname=(mypath->_keeplist)?"location031name":"location030name";
++- }
++- else if(mypath->_text->_admse==admse_currentdate)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031currentdate:(void*)location030currentdate;
++- mypath->_callbackname=(mypath->_keeplist)?"location031currentdate":"location030currentdate";
++- }
++- else if(mypath->_text->_admse==admse_developer)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031developer:(void*)location030developer;
++- mypath->_callbackname=(mypath->_keeplist)?"location031developer":"location030developer";
++- }
++- else if(mypath->_text->_admse==admse_fullname)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031fullname:(void*)location030fullname;
++- mypath->_callbackname=(mypath->_keeplist)?"location031fullname":"location030fullname";
++- }
++- else if(mypath->_text->_admse==admse_package_name)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031package_name:(void*)location030package_name;
++- mypath->_callbackname=(mypath->_keeplist)?"location031package_name":"location030package_name";
++- }
++- else if(mypath->_text->_admse==admse_package_tarname)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031package_tarname:(void*)location030package_tarname;
++- mypath->_callbackname=(mypath->_keeplist)?"location031package_tarname":"location030package_tarname";
++- }
++- else if(mypath->_text->_admse==admse_package_version)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031package_version:(void*)location030package_version;
++- mypath->_callbackname=(mypath->_keeplist)?"location031package_version":"location030package_version";
++- }
++- else if(mypath->_text->_admse==admse_package_string)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031package_string:(void*)location030package_string;
++- mypath->_callbackname=(mypath->_keeplist)?"location031package_string":"location030package_string";
++- }
++- else if(mypath->_text->_admse==admse_package_bugreport)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031package_bugreport:(void*)location030package_bugreport;
++- mypath->_callbackname=(mypath->_keeplist)?"location031package_bugreport":"location030package_bugreport";
++- }
++- else if(mypath->_text->_admse==admse_probe)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031probe:(void*)location030probe;
++- mypath->_callbackname=(mypath->_keeplist)?"location031probe":"location030probe";
++- }
++- else if(mypath->_text->_admse==admse_tmp)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031tmp:(void*)location030tmp;
++- mypath->_callbackname=(mypath->_keeplist)?"location031tmp":"location030tmp";
++- }
++- else if(mypath->_text->_admse==admse_tmp1)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031tmp1:(void*)location030tmp1;
++- mypath->_callbackname=(mypath->_keeplist)?"location031tmp1":"location030tmp1";
++- }
++- else if(mypath->_text->_admse==admse_br1)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031br1:(void*)location030br1;
++- mypath->_callbackname=(mypath->_keeplist)?"location031br1":"location030br1";
++- }
++- else if(mypath->_text->_admse==admse_br2)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031br2:(void*)location030br2;
++- mypath->_callbackname=(mypath->_keeplist)?"location031br2":"location030br2";
++- }
++- else if(mypath->_text->_admse==admse_sr1)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031sr1:(void*)location030sr1;
++- mypath->_callbackname=(mypath->_keeplist)?"location031sr1":"location030sr1";
++- }
++- else if(mypath->_text->_admse==admse_ddx)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031ddx:(void*)location030ddx;
++- mypath->_callbackname=(mypath->_keeplist)?"location031ddx":"location030ddx";
++- }
++- else if(mypath->_text->_admse==admse_argc)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031argc:(void*)location030argc;
++- mypath->_callbackname=(mypath->_keeplist)?"location031argc":"location030argc";
++- }
++- else if(mypath->_text->_admse==admse_fullfilename)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031fullfilename:(void*)location030fullfilename;
++- mypath->_callbackname=(mypath->_keeplist)?"location031fullfilename":"location030fullfilename";
++- }
++- else if(mypath->_text->_admse==admse_filename)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031filename:(void*)location030filename;
++- mypath->_callbackname=(mypath->_keeplist)?"location031filename":"location030filename";
++- }
++- else if(mypath->_text->_admse==admse_curfilename)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031curfilename:(void*)location030curfilename;
++- mypath->_callbackname=(mypath->_keeplist)?"location031curfilename":"location030curfilename";
++- }
++- else if(mypath->_text->_admse==admse_curline)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031curline:(void*)location030curline;
++- mypath->_callbackname=(mypath->_keeplist)?"location031curline":"location030curline";
++- }
++- else if(mypath->_text->_admse==admse_fpos)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031fpos:(void*)location030fpos;
++- mypath->_callbackname=(mypath->_keeplist)?"location031fpos":"location030fpos";
++- }
++- else if(mypath->_text->_admse==admse_simulator)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031simulator:(void*)location030simulator;
++- mypath->_callbackname=(mypath->_keeplist)?"location031simulator":"location030simulator";
++- }
++- else if(mypath->_text->_admse==admse_info)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031info:(void*)location030info;
++- mypath->_callbackname=(mypath->_keeplist)?"location031info":"location030info";
++- }
++- else if(mypath->_text->_admse==admse_usage)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031usage:(void*)location030usage;
++- mypath->_callbackname=(mypath->_keeplist)?"location031usage":"location030usage";
++- }
++- else if(mypath->_text->_admse==admse_verbose)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031verbose:(void*)location030verbose;
++- mypath->_callbackname=(mypath->_keeplist)?"location031verbose":"location030verbose";
++- }
++- else if(mypath->_text->_admse==admse_hint)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031hint:(void*)location030hint;
++- mypath->_callbackname=(mypath->_keeplist)?"location031hint":"location030hint";
++- }
++- else if(mypath->_text->_admse==admse_warning)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031warning:(void*)location030warning;
++- mypath->_callbackname=(mypath->_keeplist)?"location031warning":"location030warning";
++- }
++- else if(mypath->_text->_admse==admse_obsolete)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031obsolete:(void*)location030obsolete;
++- mypath->_callbackname=(mypath->_keeplist)?"location031obsolete":"location030obsolete";
++- }
++- else if(mypath->_text->_admse==admse_debug)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031debug:(void*)location030debug;
++- mypath->_callbackname=(mypath->_keeplist)?"location031debug":"location030debug";
++- }
++- else if(mypath->_text->_admse==admse_dbg_vla)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031dbg_vla:(void*)location030dbg_vla;
++- mypath->_callbackname=(mypath->_keeplist)?"location031dbg_vla":"location030dbg_vla";
++- }
++- else if(mypath->_text->_admse==admse_dbg_xml)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031dbg_xml:(void*)location030dbg_xml;
++- mypath->_callbackname=(mypath->_keeplist)?"location031dbg_xml":"location030dbg_xml";
++- }
++- else if(mypath->_text->_admse==admse_error)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031error:(void*)location030error;
++- mypath->_callbackname=(mypath->_keeplist)?"location031error":"location030error";
++- }
++- else if(mypath->_text->_admse==admse_fatal)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031fatal:(void*)location030fatal;
++- mypath->_callbackname=(mypath->_keeplist)?"location031fatal":"location030fatal";
++- }
++- else if(mypath->_text->_admse==admse_dbg_mem)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031dbg_mem:(void*)location030dbg_mem;
++- mypath->_callbackname=(mypath->_keeplist)?"location031dbg_mem":"location030dbg_mem";
++- }
++- else if(mypath->_text->_admse==admse_module)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031module:(void*)location030module;
++- mypath->_callbackname=(mypath->_keeplist)?"location031module":"location030module";
++- }
++- else if(mypath->_text->_admse==admse_discipline)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031discipline:(void*)location030discipline;
++- mypath->_callbackname=(mypath->_keeplist)?"location031discipline":"location030discipline";
++- }
++- else if(mypath->_text->_admse==admse_nature)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031nature:(void*)location030nature;
++- mypath->_callbackname=(mypath->_keeplist)?"location031nature":"location030nature";
++- }
++- else if(mypath->_text->_admse==admse_argv)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031argv:(void*)location030argv;
++- mypath->_callbackname=(mypath->_keeplist)?"location031argv":"location030argv";
++- }
++- else if(mypath->_text->_admse==admse_transform)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031transform:(void*)location030transform;
++- mypath->_callbackname=(mypath->_keeplist)?"location031transform":"location030transform";
++- }
++- else if(mypath->_text->_admse==admse_invtransform)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031invtransform:(void*)location030invtransform;
++- mypath->_callbackname=(mypath->_keeplist)?"location031invtransform":"location030invtransform";
++- }
++- else if(mypath->_text->_admse==admse_itransform)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031itransform:(void*)location030itransform;
++- mypath->_callbackname=(mypath->_keeplist)?"location031itransform":"location030itransform";
++- }
++- else if(mypath->_text->_admse==admse_itransforminsideapplytemplate)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031itransforminsideapplytemplate:(void*)location030itransforminsideapplytemplate;
++- mypath->_callbackname=(mypath->_keeplist)?"location031itransforminsideapplytemplate":"location030itransforminsideapplytemplate";
++- }
++- else if(mypath->_text->_admse==admse_valueof)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031valueof:(void*)location030valueof;
++- mypath->_callbackname=(mypath->_keeplist)?"location031valueof":"location030valueof";
++- }
++- else if(mypath->_text->_admse==admse_datatype)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031datatype:(void*)location030datatype;
++- mypath->_callbackname=(mypath->_keeplist)?"location031datatype":"location030datatype";
++- }
++- else if(mypath->_text->_admse==admse_item)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031item:(void*)location030item;
++- mypath->_callbackname=(mypath->_keeplist)?"location031item":"location030item";
++- }
++- else if(mypath->_text->_admse==admse_access)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031access:(void*)location030access;
++- mypath->_callbackname=(mypath->_keeplist)?"location031access":"location030access";
++- }
++- else if(mypath->_text->_admse==admse_abstol)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031abstol:(void*)location030abstol;
++- mypath->_callbackname=(mypath->_keeplist)?"location031abstol":"location030abstol";
++- }
++- else if(mypath->_text->_admse==admse_base)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031base:(void*)location030base;
++- mypath->_callbackname=(mypath->_keeplist)?"location031base":"location030base";
++- }
++- else if(mypath->_text->_admse==admse_ddt_name)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031ddt_name:(void*)location030ddt_name;
++- mypath->_callbackname=(mypath->_keeplist)?"location031ddt_name":"location030ddt_name";
++- }
++- else if(mypath->_text->_admse==admse_ddt_nature)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031ddt_nature:(void*)location030ddt_nature;
++- mypath->_callbackname=(mypath->_keeplist)?"location031ddt_nature":"location030ddt_nature";
++- }
++- else if(mypath->_text->_admse==admse_idt_name)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031idt_name:(void*)location030idt_name;
++- mypath->_callbackname=(mypath->_keeplist)?"location031idt_name":"location030idt_name";
++- }
++- else if(mypath->_text->_admse==admse_idt_nature)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031idt_nature:(void*)location030idt_nature;
++- mypath->_callbackname=(mypath->_keeplist)?"location031idt_nature":"location030idt_nature";
++- }
++- else if(mypath->_text->_admse==admse_units)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031units:(void*)location030units;
++- mypath->_callbackname=(mypath->_keeplist)?"location031units":"location030units";
++- }
++- else if(mypath->_text->_admse==admse_flow)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031flow:(void*)location030flow;
++- mypath->_callbackname=(mypath->_keeplist)?"location031flow":"location030flow";
++- }
++- else if(mypath->_text->_admse==admse_potential)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031potential:(void*)location030potential;
++- mypath->_callbackname=(mypath->_keeplist)?"location031potential":"location030potential";
++- }
++- else if(mypath->_text->_admse==admse_domain)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031domain:(void*)location030domain;
++- mypath->_callbackname=(mypath->_keeplist)?"location031domain":"location030domain";
++- }
++- else if(mypath->_text->_admse==admse_node)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031node:(void*)location030node;
++- mypath->_callbackname=(mypath->_keeplist)?"location031node":"location030node";
++- }
++- else if(mypath->_text->_admse==admse_nodealias)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031nodealias:(void*)location030nodealias;
++- mypath->_callbackname=(mypath->_keeplist)?"location031nodealias":"location030nodealias";
++- }
++- else if(mypath->_text->_admse==admse_branch)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031branch:(void*)location030branch;
++- mypath->_callbackname=(mypath->_keeplist)?"location031branch":"location030branch";
++- }
++- else if(mypath->_text->_admse==admse_branchalias)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031branchalias:(void*)location030branchalias;
++- mypath->_callbackname=(mypath->_keeplist)?"location031branchalias":"location030branchalias";
++- }
++- else if(mypath->_text->_admse==admse_analogfunction)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031analogfunction:(void*)location030analogfunction;
++- mypath->_callbackname=(mypath->_keeplist)?"location031analogfunction":"location030analogfunction";
++- }
++- else if(mypath->_text->_admse==admse_instance)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031instance:(void*)location030instance;
++- mypath->_callbackname=(mypath->_keeplist)?"location031instance":"location030instance";
++- }
++- else if(mypath->_text->_admse==admse_analog)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031analog:(void*)location030analog;
++- mypath->_callbackname=(mypath->_keeplist)?"location031analog":"location030analog";
++- }
++- else if(mypath->_text->_admse==admse_block)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031block:(void*)location030block;
++- mypath->_callbackname=(mypath->_keeplist)?"location031block":"location030block";
++- }
++- else if(mypath->_text->_admse==admse_blockvariable)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031blockvariable:(void*)location030blockvariable;
++- mypath->_callbackname=(mypath->_keeplist)?"location031blockvariable":"location030blockvariable";
++- }
++- else if(mypath->_text->_admse==admse_assignment)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031assignment:(void*)location030assignment;
++- mypath->_callbackname=(mypath->_keeplist)?"location031assignment":"location030assignment";
++- }
++- else if(mypath->_text->_admse==admse_callfunction)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031callfunction:(void*)location030callfunction;
++- mypath->_callbackname=(mypath->_keeplist)?"location031callfunction":"location030callfunction";
++- }
++- else if(mypath->_text->_admse==admse_contribution)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031contribution:(void*)location030contribution;
++- mypath->_callbackname=(mypath->_keeplist)?"location031contribution":"location030contribution";
++- }
++- else if(mypath->_text->_admse==admse_conditional)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031conditional:(void*)location030conditional;
++- mypath->_callbackname=(mypath->_keeplist)?"location031conditional":"location030conditional";
++- }
++- else if(mypath->_text->_admse==admse_case)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031case:(void*)location030case;
++- mypath->_callbackname=(mypath->_keeplist)?"location031case":"location030case";
++- }
++- else if(mypath->_text->_admse==admse_forloop)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031forloop:(void*)location030forloop;
++- mypath->_callbackname=(mypath->_keeplist)?"location031forloop":"location030forloop";
++- }
++- else if(mypath->_text->_admse==admse_whileloop)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031whileloop:(void*)location030whileloop;
++- mypath->_callbackname=(mypath->_keeplist)?"location031whileloop":"location030whileloop";
++- }
++- else if(mypath->_text->_admse==admse_instantiator)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031instantiator:(void*)location030instantiator;
++- mypath->_callbackname=(mypath->_keeplist)?"location031instantiator":"location030instantiator";
++- }
++- else if(mypath->_text->_admse==admse_expression)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031expression:(void*)location030expression;
++- mypath->_callbackname=(mypath->_keeplist)?"location031expression":"location030expression";
++- }
++- else if(mypath->_text->_admse==admse_jacobian)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031jacobian:(void*)location030jacobian;
++- mypath->_callbackname=(mypath->_keeplist)?"location031jacobian":"location030jacobian";
++- }
++- else if(mypath->_text->_admse==admse_source)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031source:(void*)location030source;
++- mypath->_callbackname=(mypath->_keeplist)?"location031source":"location030source";
++- }
++- else if(mypath->_text->_admse==admse_range)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031range:(void*)location030range;
++- mypath->_callbackname=(mypath->_keeplist)?"location031range":"location030range";
++- }
++- else if(mypath->_text->_admse==admse_evaluation)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031evaluation:(void*)location030evaluation;
++- mypath->_callbackname=(mypath->_keeplist)?"location031evaluation":"location030evaluation";
++- }
++- else if(mypath->_text->_admse==admse_lexval)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031lexval:(void*)location030lexval;
++- mypath->_callbackname=(mypath->_keeplist)?"location031lexval":"location030lexval";
++- }
++- else if(mypath->_text->_admse==admse_type)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031type:(void*)location030type;
++- mypath->_callbackname=(mypath->_keeplist)?"location031type":"location030type";
++- }
++- else if(mypath->_text->_admse==admse_tree)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031tree:(void*)location030tree;
++- mypath->_callbackname=(mypath->_keeplist)?"location031tree":"location030tree";
++- }
++- else if(mypath->_text->_admse==admse_direction)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031direction:(void*)location030direction;
++- mypath->_callbackname=(mypath->_keeplist)?"location031direction":"location030direction";
++- }
++- else if(mypath->_text->_admse==admse_grounded)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031grounded:(void*)location030grounded;
++- mypath->_callbackname=(mypath->_keeplist)?"location031grounded":"location030grounded";
++- }
++- else if(mypath->_text->_admse==admse_location)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031location:(void*)location030location;
++- mypath->_callbackname=(mypath->_keeplist)?"location031location":"location030location";
++- }
++- else if(mypath->_text->_admse==admse_pnode)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031pnode:(void*)location030pnode;
++- mypath->_callbackname=(mypath->_keeplist)?"location031pnode":"location030pnode";
++- }
++- else if(mypath->_text->_admse==admse_nnode)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031nnode:(void*)location030nnode;
++- mypath->_callbackname=(mypath->_keeplist)?"location031nnode":"location030nnode";
++- }
++- else if(mypath->_text->_admse==admse_dependency)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031dependency:(void*)location030dependency;
++- mypath->_callbackname=(mypath->_keeplist)?"location031dependency":"location030dependency";
++- }
++- else if(mypath->_text->_admse==admse_static)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031static:(void*)location030static;
++- mypath->_callbackname=(mypath->_keeplist)?"location031static":"location030static";
++- }
++- else if(mypath->_text->_admse==admse_dynamic)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031dynamic:(void*)location030dynamic;
++- mypath->_callbackname=(mypath->_keeplist)?"location031dynamic":"location030dynamic";
++- }
++- else if(mypath->_text->_admse==admse_sizetype)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031sizetype:(void*)location030sizetype;
++- mypath->_callbackname=(mypath->_keeplist)?"location031sizetype":"location030sizetype";
++- }
++- else if(mypath->_text->_admse==admse_parametertype)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031parametertype:(void*)location030parametertype;
++- mypath->_callbackname=(mypath->_keeplist)?"location031parametertype":"location030parametertype";
++- }
++- else if(mypath->_text->_admse==admse_maxsize)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031maxsize:(void*)location030maxsize;
++- mypath->_callbackname=(mypath->_keeplist)?"location031maxsize":"location030maxsize";
++- }
++- else if(mypath->_text->_admse==admse_minsize)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031minsize:(void*)location030minsize;
++- mypath->_callbackname=(mypath->_keeplist)?"location031minsize":"location030minsize";
++- }
++- else if(mypath->_text->_admse==admse_input)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031input:(void*)location030input;
++- mypath->_callbackname=(mypath->_keeplist)?"location031input":"location030input";
++- }
++- else if(mypath->_text->_admse==admse_output)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031output:(void*)location030output;
++- mypath->_callbackname=(mypath->_keeplist)?"location031output":"location030output";
++- }
++- else if(mypath->_text->_admse==admse_scope)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031scope:(void*)location030scope;
++- mypath->_callbackname=(mypath->_keeplist)?"location031scope":"location030scope";
++- }
++- else if(mypath->_text->_admse==admse_default)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031default:(void*)location030default;
++- mypath->_callbackname=(mypath->_keeplist)?"location031default":"location030default";
++- }
++- else if(mypath->_text->_admse==admse_derivate)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031derivate:(void*)location030derivate;
++- mypath->_callbackname=(mypath->_keeplist)?"location031derivate":"location030derivate";
++- }
++- else if(mypath->_text->_admse==admse_isstate)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031isstate:(void*)location030isstate;
++- mypath->_callbackname=(mypath->_keeplist)?"location031isstate":"location030isstate";
++- }
++- else if(mypath->_text->_admse==admse_usedinmodel)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031usedinmodel:(void*)location030usedinmodel;
++- mypath->_callbackname=(mypath->_keeplist)?"location031usedinmodel":"location030usedinmodel";
++- }
++- else if(mypath->_text->_admse==admse_usedininstance)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031usedininstance:(void*)location030usedininstance;
++- mypath->_callbackname=(mypath->_keeplist)?"location031usedininstance":"location030usedininstance";
++- }
++- else if(mypath->_text->_admse==admse_usedininitial_step)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031usedininitial_step:(void*)location030usedininitial_step;
++- mypath->_callbackname=(mypath->_keeplist)?"location031usedininitial_step":"location030usedininitial_step";
++- }
++- else if(mypath->_text->_admse==admse_usedinevaluate)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031usedinevaluate:(void*)location030usedinevaluate;
++- mypath->_callbackname=(mypath->_keeplist)?"location031usedinevaluate":"location030usedinevaluate";
++- }
++- else if(mypath->_text->_admse==admse_usedinnoise)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031usedinnoise:(void*)location030usedinnoise;
++- mypath->_callbackname=(mypath->_keeplist)?"location031usedinnoise":"location030usedinnoise";
++- }
++- else if(mypath->_text->_admse==admse_usedinfinal)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031usedinfinal:(void*)location030usedinfinal;
++- mypath->_callbackname=(mypath->_keeplist)?"location031usedinfinal":"location030usedinfinal";
++- }
++- else if(mypath->_text->_admse==admse_setinmodel)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031setinmodel:(void*)location030setinmodel;
++- mypath->_callbackname=(mypath->_keeplist)?"location031setinmodel":"location030setinmodel";
++- }
++- else if(mypath->_text->_admse==admse_setininstance)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031setininstance:(void*)location030setininstance;
++- mypath->_callbackname=(mypath->_keeplist)?"location031setininstance":"location030setininstance";
++- }
++- else if(mypath->_text->_admse==admse_setininitial_step)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031setininitial_step:(void*)location030setininitial_step;
++- mypath->_callbackname=(mypath->_keeplist)?"location031setininitial_step":"location030setininitial_step";
++- }
++- else if(mypath->_text->_admse==admse_setinevaluate)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031setinevaluate:(void*)location030setinevaluate;
++- mypath->_callbackname=(mypath->_keeplist)?"location031setinevaluate":"location030setinevaluate";
++- }
++- else if(mypath->_text->_admse==admse_setinnoise)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031setinnoise:(void*)location030setinnoise;
++- mypath->_callbackname=(mypath->_keeplist)?"location031setinnoise":"location030setinnoise";
++- }
++- else if(mypath->_text->_admse==admse_setinfinal)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031setinfinal:(void*)location030setinfinal;
++- mypath->_callbackname=(mypath->_keeplist)?"location031setinfinal":"location030setinfinal";
++- }
++- else if(mypath->_text->_admse==admse_setingetprev)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031setingetprev:(void*)location030setingetprev;
++- mypath->_callbackname=(mypath->_keeplist)?"location031setingetprev":"location030setingetprev";
++- }
++- else if(mypath->_text->_admse==admse_TemperatureDependent)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031TemperatureDependent:(void*)location030TemperatureDependent;
++- mypath->_callbackname=(mypath->_keeplist)?"location031TemperatureDependent":"location030TemperatureDependent";
++- }
++- else if(mypath->_text->_admse==admse_OPdependent)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031OPdependent:(void*)location030OPdependent;
++- mypath->_callbackname=(mypath->_keeplist)?"location031OPdependent":"location030OPdependent";
++- }
++- else if(mypath->_text->_admse==admse_insource)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031insource:(void*)location030insource;
++- mypath->_callbackname=(mypath->_keeplist)?"location031insource":"location030insource";
++- }
++- else if(mypath->_text->_admse==admse_vcount)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031vcount:(void*)location030vcount;
++- mypath->_callbackname=(mypath->_keeplist)?"location031vcount":"location030vcount";
++- }
++- else if(mypath->_text->_admse==admse_vlast)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031vlast:(void*)location030vlast;
++- mypath->_callbackname=(mypath->_keeplist)?"location031vlast":"location030vlast";
++- }
++- else if(mypath->_text->_admse==admse_arraydefault)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031arraydefault:(void*)location030arraydefault;
++- mypath->_callbackname=(mypath->_keeplist)?"location031arraydefault":"location030arraydefault";
++- }
++- else if(mypath->_text->_admse==admse_alias)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031alias:(void*)location030alias;
++- mypath->_callbackname=(mypath->_keeplist)?"location031alias":"location030alias";
++- }
++- else if(mypath->_text->_admse==admse_ddxprobe)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031ddxprobe:(void*)location030ddxprobe;
++- mypath->_callbackname=(mypath->_keeplist)?"location031ddxprobe":"location030ddxprobe";
++- }
++- else if(mypath->_text->_admse==admse_whitenoise)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031whitenoise:(void*)location030whitenoise;
++- mypath->_callbackname=(mypath->_keeplist)?"location031whitenoise":"location030whitenoise";
++- }
++- else if(mypath->_text->_admse==admse_flickernoise)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031flickernoise:(void*)location030flickernoise;
++- mypath->_callbackname=(mypath->_keeplist)?"location031flickernoise":"location030flickernoise";
++- }
++- else if(mypath->_text->_admse==admse_switch)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031switch:(void*)location030switch;
++- mypath->_callbackname=(mypath->_keeplist)?"location031switch":"location030switch";
++- }
++- else if(mypath->_text->_admse==admse_infexpr)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031infexpr:(void*)location030infexpr;
++- mypath->_callbackname=(mypath->_keeplist)?"location031infexpr":"location030infexpr";
++- }
++- else if(mypath->_text->_admse==admse_supexpr)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031supexpr:(void*)location030supexpr;
++- mypath->_callbackname=(mypath->_keeplist)?"location031supexpr":"location030supexpr";
++- }
++- else if(mypath->_text->_admse==admse_infboundtype)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031infboundtype:(void*)location030infboundtype;
++- mypath->_callbackname=(mypath->_keeplist)?"location031infboundtype":"location030infboundtype";
++- }
++- else if(mypath->_text->_admse==admse_supboundtype)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031supboundtype:(void*)location030supboundtype;
++- mypath->_callbackname=(mypath->_keeplist)?"location031supboundtype":"location030supboundtype";
++- }
++- else if(mypath->_text->_admse==admse_row)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031row:(void*)location030row;
++- mypath->_callbackname=(mypath->_keeplist)?"location031row":"location030row";
++- }
++- else if(mypath->_text->_admse==admse_column)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031column:(void*)location030column;
++- mypath->_callbackname=(mypath->_keeplist)?"location031column":"location030column";
++- }
++- else if(mypath->_text->_admse==admse_diagonal)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031diagonal:(void*)location030diagonal;
++- mypath->_callbackname=(mypath->_keeplist)?"location031diagonal":"location030diagonal";
++- }
++- else if(mypath->_text->_admse==admse_code)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031code:(void*)location030code;
++- mypath->_callbackname=(mypath->_keeplist)?"location031code":"location030code";
++- }
++- else if(mypath->_text->_admse==admse_value)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031value:(void*)location030value;
++- mypath->_callbackname=(mypath->_keeplist)?"location031value":"location030value";
++- }
++- else if(mypath->_text->_admse==admse_math)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031math:(void*)location030math;
++- mypath->_callbackname=(mypath->_keeplist)?"location031math":"location030math";
++- }
++- else if(mypath->_text->_admse==admse_subexpression)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031subexpression:(void*)location030subexpression;
++- mypath->_callbackname=(mypath->_keeplist)?"location031subexpression":"location030subexpression";
++- }
++- else if(mypath->_text->_admse==admse_arg1)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031arg1:(void*)location030arg1;
++- mypath->_callbackname=(mypath->_keeplist)?"location031arg1":"location030arg1";
++- }
++- else if(mypath->_text->_admse==admse_arg2)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031arg2:(void*)location030arg2;
++- mypath->_callbackname=(mypath->_keeplist)?"location031arg2":"location030arg2";
++- }
++- else if(mypath->_text->_admse==admse_arg3)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031arg3:(void*)location030arg3;
++- mypath->_callbackname=(mypath->_keeplist)?"location031arg3":"location030arg3";
++- }
++- else if(mypath->_text->_admse==admse_scalingunit)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031scalingunit:(void*)location030scalingunit;
++- mypath->_callbackname=(mypath->_keeplist)?"location031scalingunit":"location030scalingunit";
++- }
++- else if(mypath->_text->_admse==admse_cast)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031cast:(void*)location030cast;
++- mypath->_callbackname=(mypath->_keeplist)?"location031cast":"location030cast";
++- }
++- else if(mypath->_text->_admse==admse_unique_id)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031unique_id:(void*)location030unique_id;
++- mypath->_callbackname=(mypath->_keeplist)?"location031unique_id":"location030unique_id";
++- }
++- else if(mypath->_text->_admse==admse_definition)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031definition:(void*)location030definition;
++- mypath->_callbackname=(mypath->_keeplist)?"location031definition":"location030definition";
++- }
++- else if(mypath->_text->_admse==admse_class)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031class:(void*)location030class;
++- mypath->_callbackname=(mypath->_keeplist)?"location031class":"location030class";
++- }
++- else if(mypath->_text->_admse==admse_arguments)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031arguments:(void*)location030arguments;
++- mypath->_callbackname=(mypath->_keeplist)?"location031arguments":"location030arguments";
++- }
++- else if(mypath->_text->_admse==admse_prototype)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031prototype:(void*)location030prototype;
++- mypath->_callbackname=(mypath->_keeplist)?"location031prototype":"location030prototype";
++- }
++- else if(mypath->_text->_admse==admse_index)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031index:(void*)location030index;
++- mypath->_callbackname=(mypath->_keeplist)?"location031index":"location030index";
++- }
++- else if(mypath->_text->_admse==admse_seen)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031seen:(void*)location030seen;
++- mypath->_callbackname=(mypath->_keeplist)?"location031seen":"location030seen";
++- }
++- else if(mypath->_text->_admse==admse_hasspecialnumber)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031hasspecialnumber:(void*)location030hasspecialnumber;
++- mypath->_callbackname=(mypath->_keeplist)?"location031hasspecialnumber":"location030hasspecialnumber";
++- }
++- else if(mypath->_text->_admse==admse_hasVoltageDependentFunction)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031hasVoltageDependentFunction:(void*)location030hasVoltageDependentFunction;
++- mypath->_callbackname=(mypath->_keeplist)?"location031hasVoltageDependentFunction":"location030hasVoltageDependentFunction";
++- }
++- else if(mypath->_text->_admse==admse_infinity)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031infinity:(void*)location030infinity;
++- mypath->_callbackname=(mypath->_keeplist)?"location031infinity":"location030infinity";
++- }
++- else if(mypath->_text->_admse==admse_function)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031function:(void*)location030function;
++- mypath->_callbackname=(mypath->_keeplist)?"location031function":"location030function";
++- }
++- else if(mypath->_text->_admse==admse_terminal)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031terminal:(void*)location030terminal;
++- mypath->_callbackname=(mypath->_keeplist)?"location031terminal":"location030terminal";
++- }
++- else if(mypath->_text->_admse==admse_parameterset)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031parameterset:(void*)location030parameterset;
++- mypath->_callbackname=(mypath->_keeplist)?"location031parameterset":"location030parameterset";
++- }
++- else if(mypath->_text->_admse==admse_parameter)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031parameter:(void*)location030parameter;
++- mypath->_callbackname=(mypath->_keeplist)?"location031parameter":"location030parameter";
++- }
++- else if(mypath->_text->_admse==admse_nodefrominstantiator)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031nodefrominstantiator:(void*)location030nodefrominstantiator;
++- mypath->_callbackname=(mypath->_keeplist)?"location031nodefrominstantiator":"location030nodefrominstantiator";
++- }
++- else if(mypath->_text->_admse==admse_nodefrommodule)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031nodefrommodule:(void*)location030nodefrommodule;
++- mypath->_callbackname=(mypath->_keeplist)?"location031nodefrommodule":"location030nodefrommodule";
++- }
++- else if(mypath->_text->_admse==admse_lhs)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031lhs:(void*)location030lhs;
++- mypath->_callbackname=(mypath->_keeplist)?"location031lhs":"location030lhs";
++- }
++- else if(mypath->_text->_admse==admse_rhs)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031rhs:(void*)location030rhs;
++- mypath->_callbackname=(mypath->_keeplist)?"location031rhs":"location030rhs";
++- }
++- else if(mypath->_text->_admse==admse_if)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031if:(void*)location030if;
++- mypath->_callbackname=(mypath->_keeplist)?"location031if":"location030if";
++- }
++- else if(mypath->_text->_admse==admse_then)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031then:(void*)location030then;
++- mypath->_callbackname=(mypath->_keeplist)?"location031then":"location030then";
++- }
++- else if(mypath->_text->_admse==admse_else)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031else:(void*)location030else;
++- mypath->_callbackname=(mypath->_keeplist)?"location031else":"location030else";
++- }
++- else if(mypath->_text->_admse==admse_initial)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031initial:(void*)location030initial;
++- mypath->_callbackname=(mypath->_keeplist)?"location031initial":"location030initial";
++- }
++- else if(mypath->_text->_admse==admse_condition)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031condition:(void*)location030condition;
++- mypath->_callbackname=(mypath->_keeplist)?"location031condition":"location030condition";
++- }
++- else if(mypath->_text->_admse==admse_update)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031update:(void*)location030update;
++- mypath->_callbackname=(mypath->_keeplist)?"location031update":"location030update";
++- }
++- else if(mypath->_text->_admse==admse_forblock)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031forblock:(void*)location030forblock;
++- mypath->_callbackname=(mypath->_keeplist)?"location031forblock":"location030forblock";
++- }
++- else if(mypath->_text->_admse==admse_while)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031while:(void*)location030while;
++- mypath->_callbackname=(mypath->_keeplist)?"location031while":"location030while";
++- }
++- else if(mypath->_text->_admse==admse_whileblock)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031whileblock:(void*)location030whileblock;
++- mypath->_callbackname=(mypath->_keeplist)?"location031whileblock":"location030whileblock";
++- }
++- else if(mypath->_text->_admse==admse_caseitem)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031caseitem:(void*)location030caseitem;
++- mypath->_callbackname=(mypath->_keeplist)?"location031caseitem":"location030caseitem";
++- }
++- else if(mypath->_text->_admse==admse_defaultcase)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031defaultcase:(void*)location030defaultcase;
++- mypath->_callbackname=(mypath->_keeplist)?"location031defaultcase":"location030defaultcase";
++- }
++- else if(mypath->_text->_admse==admse_string)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031string:(void*)location030string;
++- mypath->_callbackname=(mypath->_keeplist)?"location031string":"location030string";
++- }
++- else if(mypath->_text->_admse==admse_f)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031f:(void*)location030f;
++- mypath->_callbackname=(mypath->_keeplist)?"location031f":"location030f";
++- }
++- else if(mypath->_text->_admse==admse_l)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031l:(void*)location030l;
++- mypath->_callbackname=(mypath->_keeplist)?"location031l":"location030l";
++- }
++- else if(mypath->_text->_admse==admse_c)
++- {
++- mypath->_callback=(mypath->_keeplist)?(void*)location031c:(void*)location030c;
++- mypath->_callbackname=(mypath->_keeplist)?"location031c":"location030c";
++- }
++- else
++- {
++- adms_message_fatal_continue(("element or attribute '%s' does not exist\n",mypath->_text->_value))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++-}
++-static void postpath (p_path mypath)
++-{
++- p_slist l;
++- if(mypath->_callback==(void*)location02)
++- {
++- const char* match=((p_admst)mypath->_text->_token->data)->_item.s;
++- if(!(mypath->_template=lookfortemplates(mypath->_transform,match)))
++- {
++- adms_message_fatal_continue(("Template not found: %s\n",match))
++- adms_message_fatal((" see: %s\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- for(l=mypath->_bar;l;l=l->next)
++- {
++- p_slist paths=(p_slist)l->data;
++- for(;paths;paths=paths->next)
++- {
++- postpath((p_path)paths->data);
++- attributecallback(mypath,l,paths);
++- }
++- }
++- for(l=mypath->_arg;l;l=l->next)
++- {
++- p_slist paths=(p_slist)l->data;
++- for(;paths;paths=paths->next)
++- {
++- postpath((p_path)paths->data);
++- attributecallback(mypath,l,paths);
++- }
++- }
++- for(l=mypath->_u;l;l=l->next)
++- postpath((p_path)l->data);
++- for(l=mypath->_b;l;l=l->next)
++- postpath((p_path)l->data);
++- for(l=mypath->_c;l;l=l->next)
++- postpath((p_path)l->data);
++- if(mypath->_text)
++- posttext(mypath->_text);
++-}
++-
++-static void location00 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpn(dot->_previous,dot->_previouspath,dot);
++- d->_position=dot->_position;
++- d->_count=dot->_count;
++- if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;;
++-}
++-static void location01 (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_admst d=adms_admst_newpn(dot->_previouspath->_previous,dot->_previouspath->_previouspath,dot->_previouspath);
++- d->_position=dot->_previouspath->_position;
++- d->_count=dot->_previouspath->_count;
++- if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;;
++-}
++-typedef p_slist (*_p_cblocation) (p_ptraverse p,p_path mypath,p_admst dot);
++-typedef int (*_p_cbcondition) (const p_path mypath,p_admst myadmst);
++-
++-void free_ptraverse (p_ptraverse p)
++-{
++- p_slist l;
++- p_slist ll;
++- for(l=p->_alladmst;l;l=l->next)
++- for(ll=(p_slist)l->data;ll;ll=ll->next)
++- deref((p_admst)ll->data);
++- for(l=p->_aliasadmst;l;l=l->next)
++- deref((p_admst)l->data);
++- for(l=p->_admst;l;l=l->next)
++- deref((p_admst)l->data);
++- adms_slist_free(p->_alladmst);
++- adms_slist_free(p->_aliasadmst);
++- adms_slist_free(p->_admst);
++- free(p);
++-}
++-static p_slist slash (p_ptraverse p,p_slist paths,p_admst dot)
++-{
++- p_slist output=NULL;
++- int premier=1;
++- adms_slist_push(&output,(p_adms)dot);
++- for(;paths;paths=paths->next)
++- {
++- p_slist l;
++- p_path mypath=(p_path)paths->data;
++- p_slist output1=NULL;
++- int dernier=(paths->next==NULL);
++- if(mypath->_callback==(void*)groupage)
++- {
++- int count=0;
++- for(l=output;l;l=l->next)
++- if((((p_admst)l->data)->_selected==admse_yes)&&((p_admst)l->data)->_pseudo!=admse_empty)
++- {
++- p_ptraverse p0=bar((p_admst)l->data,mypath);
++- adms_slist_concat(&output1,p0->_admst);
++- adms_slist_free(p0->_alladmst);
++- free(p0);
++- }
++- for(l=output1;l;l=l->next)
++- ((p_admst)l->data)->_position=++count;
++- p->_position=count;
++- }
++- else
++- {
++- p_admst ai;
++- p->_position=0;
++- p->_a1=p->_an=NULL;
++- for(l=output;l;l=l->next)
++- if((((p_admst)l->data)->_selected==admse_yes)&&((p_admst)l->data)->_pseudo!=admse_empty)
++- ((_p_cblocation)mypath->_callback)(p,mypath,(p_admst)l->data);
++- for(ai=p->_an;ai;ai=ai->_preva)
++- adms_slist_push(&output1,(p_adms)ai);
++- }
++- if(premier)
++- adms_slist_free(output),premier=0;
++- if(!dernier)
++- adms_slist_push(&p->_alladmst,(p_adms)output1);
++- if((mypath->_callback!=(void*)location00)&&(mypath->_callback!=(void*)location01))
++- for(l=output1;l;l=l->next)
++- ((p_admst)l->data)->_count=p->_position;
++- if(mypath->_c)
++- {
++- int count=0;
++- for(l=output1;l;l=l->next)
++- if(((_p_cbcondition)((p_path)mypath->_c->data)->_callback)((p_path)mypath->_c->data,(p_admst)l->data))
++- {
++- count++;
++- if((mypath->_callback!=(void*)location00)&&(mypath->_callback!=(void*)location01))
++- ((p_admst)l->data)->_position=count;
++- }
++- else
++- ((p_admst)l->data)->_selected=admse_no;
++- if((mypath->_callback!=(void*)location00)&&(mypath->_callback!=(void*)location01))
++- for(l=output1;l;l=l->next)
++- ((p_admst)l->data)->_count=count;
++- if(dernier)
++- {
++- p_slist l=output1;
++- p_slist n;
++- p_slist lastnode=NULL;
++- output1=NULL;
++- for(;l;l=n)
++- if(((p_admst)l->data)->_selected==admse_yes)
++- {
++- if(lastnode)
++- lastnode->next=l,lastnode=l;
++- else
++- output1=lastnode=l;
++- n=l->next;
++- }
++- else
++- n=l->next,deref((p_admst)l->data),free(l);
++- if(lastnode)
++- lastnode->next=NULL;
++- }
++- }
++- output=output1;
++- }
++- return output;
++-}
++-p_ptraverse bar (p_admst dot,p_path mypath)
++-{
++- p_ptraverse p=adms_ptraverse_new(mypath->_transform);
++- p_slist bars;
++- p_slist output=NULL;
++- for(bars=mypath->_bar;bars;bars=bars->next)
++- adms_slist_concat(&output,slash(p,(p_slist)bars->data,dot));
++- p->_admst=output;
++- return p;
++-}
++-static void addptraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_slist paths1=(p_slist)mypath->_arg->next->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- p_ptraverse p1=adms_ptraverse_new(mypath->_transform);
++- p_slist o1=slash(p1,paths1,dot);
++- for(;o0&&o1;o0=o0->next,o1=o1->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- p_admst myadmst1=(p_admst)o1->data;
++- admse mytype0=myadmst0->_pseudo;
++- admse mytype1=myadmst1->_pseudo;
++- if((mytype0==admse_basicinteger)&&(mytype1==admse_basicinteger))
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.i+myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if((mytype0==admse_basicreal)&&(mytype1==admse_basicreal))
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.r+myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newbi(dot,dot,adms_NAN);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_warning(("%s: '+' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- for(o0=o1?o1:o0;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(mytype0==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,myadmst0->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newbi(dot,dot,adms_NAN);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_warning(("%s: '+' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++-}
++-static void addmtraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_slist paths1=(p_slist)mypath->_arg->next->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- p_ptraverse p1=adms_ptraverse_new(mypath->_transform);
++- p_slist o1=slash(p1,paths1,dot);
++- for(;o0&&o1;o0=o0->next,o1=o1->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- p_admst myadmst1=(p_admst)o1->data;
++- admse mytype0=myadmst0->_pseudo;
++- admse mytype1=myadmst1->_pseudo;
++- if((mytype0==admse_basicinteger)&&(mytype1==admse_basicinteger))
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.i-myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if((mytype0==admse_basicreal)&&(mytype1==admse_basicreal))
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.r-myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newbi(dot,dot,adms_NAN);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_warning(("%s: '-' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- for(;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(mytype0==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,myadmst0->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newbi(dot,dot,adms_NAN);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_warning(("%s: '-' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- for(;o1;o1=o1->next)
++- {
++- p_admst myadmst1=(p_admst)o1->data;
++- admse mytype1=myadmst1->_pseudo;
++- if(mytype1==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,-myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(mytype1==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,-myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- {
++- p_admst d=adms_admst_newbi(dot,dot,adms_NAN);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- adms_message_warning(("%s: '-' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++-}
++-static void multtimetraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_slist paths1=(p_slist)mypath->_arg->next->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- p_ptraverse p1=adms_ptraverse_new(mypath->_transform);
++- p_slist o1=slash(p1,paths1,dot);
++- for(;o0&&o1;o0=o0->next,o1=o1->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- p_admst myadmst1=(p_admst)o1->data;
++- admse mytype0=myadmst0->_pseudo;
++- admse mytype1=myadmst1->_pseudo;
++- if((mytype0==admse_basicinteger)&&(mytype1==admse_basicinteger))
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.i*myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if((mytype0==admse_basicreal)&&(mytype1==admse_basicreal))
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.r*myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- adms_message_fatal(("%s: '*' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- for(o0=o1?o1:o0;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- adms_message_fatal(("%s: '*' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++-}
++-static void multdivtraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_slist paths1=(p_slist)mypath->_arg->next->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- p_ptraverse p1=adms_ptraverse_new(mypath->_transform);
++- p_slist o1=slash(p1,paths1,dot);
++- for(;o0&&o1;o0=o0->next,o1=o1->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- p_admst myadmst1=(p_admst)o1->data;
++- admse mytype0=myadmst0->_pseudo;
++- admse mytype1=myadmst1->_pseudo;
++- if((mytype0==admse_basicinteger)&&(mytype1==admse_basicinteger))
++- {
++- p_admst d=adms_admst_newbr(dot,dot,(double)myadmst0->_item.i/(double)myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if((mytype0==admse_basicreal)&&(mytype1==admse_basicreal))
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst0->_item.r/myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- adms_message_fatal(("%s: ':' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- for(;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,(double)myadmst0->_item.i/1.0);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(mytype0==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,myadmst0->_item.r/1.0);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- adms_message_fatal(("%s: ':' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- for(;o1;o1=o1->next)
++- {
++- p_admst myadmst1=(p_admst)o1->data;
++- admse mytype1=myadmst1->_pseudo;
++- if(mytype1==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,1.0/(double)myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(mytype1==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,1.0/myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- adms_message_fatal(("%s: ':' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++-}
++-static void unaryptraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- for(;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,+myadmst0->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(mytype0==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,+myadmst0->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- adms_message_fatal(("%s: '+' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++-}
++-static void unarymtraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- for(;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,-myadmst0->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else if(mytype0==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,-myadmst0->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- }
++- else
++- adms_message_fatal(("%s: '-' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++-}
++-static void incrptraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- for(;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basiclist)
++- {
++- p_slist dollarlist=((p_admstvariable)myadmst0->_item.p)->_value;
++- for(;dollarlist;dollarlist=dollarlist->next)
++- {
++- p_admst myadmst1=(p_admst)dollarlist->data;
++- admse mytype1=myadmst1->_pseudo;
++- if(mytype1==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- myadmst1->_item.i+=1;
++- }
++- else if(mytype1==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- myadmst1->_item.r+=1.0;
++- }
++- else
++- adms_message_fatal(("%s: '++' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- }
++-}
++-static void incrmtraverse (p_ptraverse p,p_path mypath,p_admst dot)
++-{
++- p_slist paths0=(p_slist)mypath->_arg->data;
++- p_ptraverse p0=adms_ptraverse_new(mypath->_transform);
++- p_slist o0=slash(p0,paths0,dot);
++- for(;o0;o0=o0->next)
++- {
++- p_admst myadmst0=(p_admst)o0->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basiclist)
++- {
++- p_slist dollarlist=((p_admstvariable)myadmst0->_item.p)->_value;
++- for(;dollarlist;dollarlist=dollarlist->next)
++- {
++- p_admst myadmst1=(p_admst)dollarlist->data;
++- admse mytype1=myadmst1->_pseudo;
++- if(mytype1==admse_basicinteger)
++- {
++- p_admst d=adms_admst_newbi(dot,dot,myadmst1->_item.i);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- myadmst1->_item.i-=1;
++- }
++- else if(mytype1==admse_basicreal)
++- {
++- p_admst d=adms_admst_newbr(dot,dot,myadmst1->_item.r);if(d->_preva) d->_preva->_nexta=d->_nexta,d->_preva=NULL; if(d->_nexta) d->_nexta->_preva=d->_preva,d->_nexta=NULL;if(p->_a1==NULL) p->_a1=p->_an=d; else p->_an->_nexta=d,d->_preva=p->_an,p->_an=d;d->_position=++p->_position;
++- myadmst1->_item.r-=1.0;
++- }
++- else
++- adms_message_fatal(("%s: '--' operator - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- }
++-}
++-static int expression01 (const p_path mypath,p_admst dot)
++-{
++- p_ptraverse p0=bar(dot,(p_path)mypath->_u->data);
++- int pos=dot->_position;
++- p_slist l;
++- for(l=p0->_admst;l;l=l->next)
++- {
++- p_admst myadmst0=(p_admst)l->data;
++- admse mytype0=myadmst0->_pseudo;
++- if(mytype0==admse_basicinteger)
++- {
++- if(pos==myadmst0->_item.i)
++- {
++- free_ptraverse(p0);
++- return 1;
++- }
++- }
++- else
++- adms_message_fatal(("%s: 'integer' expected!\n",adms_transform_uid(mypath->_transform)))
++- }
++- free_ptraverse(p0);
++- return 0;
++-}
++-
++-#define admstpatherror(mypparse,msgid) admstpatherrorimpl(mypparse,msgid)
++-
++-#define ISPATH ((int)(long)globalctxt->data==0)
++-#define ISTEXT ((int)(long)globalctxt->data==1)
++-#define ISTIC ((int)(long)globalctxt->data==2)
++-#define SETPATH adms_slist_push(&globalctxt,(p_adms)0);
++-#define SETTEXT adms_slist_push(&globalctxt,(p_adms)1);
++-#define SETTIC adms_slist_push(&globalctxt,(p_adms)2);
++-#define PARENMATCH (parenidx&&paren==(int)(long)parenidx->data)
++-#define INSIDEPATH (globalctxt&&(globalctxt->next)&&(((int)(long)globalctxt->next->data)==0))
++-
++-static p_slist globalctxt=NULL;
++-static int goto_atext=0;
++-static int paren=0;
++-static p_slist parenidx=NULL;
++-static int globalignorequote=0;
++-
++-static p_path BASICSTRING (const p_pparse mypparse,char *mytvalue)
++-{
++- p_path ret=adms_path_new(mypparse->_transform,adms_text_new(mypparse->_transform,mytvalue));
++- adms_slist_push(&(ret->_text->_token),(p_adms)adms_admst_newks(mytvalue));
++- ret->_text->_admse=ns_strtoe(((p_admst)ret->_text->_token->data)->_item.s);
++- ret->_aname=adms_kclone(mytvalue);
++- return ret;
++-}
++-static p_path BASICINTEGER (const p_pparse mypparse,char *mytvalue)
++-{
++- p_path ret=adms_path_new(mypparse->_transform,adms_text_new(mypparse->_transform,mytvalue));
++- adms_slist_push(&(ret->_text->_token),(p_adms)adms_admst_newbi(NULL,NULL,adms_strtol(mypparse->_transform,mytvalue)));
++- ((p_admst)ret->_text->_token->data)->_refd=0;
++- ret->_text->_admse=admse__any;
++- ret->_aname=adms_kclone(mytvalue);
++- return ret;
++-}
++-
++-int is_admst (const char* name)
++-{
++- return (((strlen(name)==5)&&!strncmp(name,"admst",5))||((strlen(name)>5)&&!strncmp(name,"admst:",6)));
++-}
++-void dbtext (p_text mytext)
++-{
++- p_slist li;
++- if(mytext->_aname)
++- adms_message_admstdbg_impl("<text n=\"%s\" v=\"%s\" e=\"%s\">",mytext->_aname,mytext->_value,ns_etostr(mytext->_admse));
++- else
++- adms_message_admstdbg_impl("<text v=\"%s\" e=\"%s\">",mytext->_value,ns_etostr(mytext->_admse));
++- for(li=mytext->_token;li;li=li->next)
++- {
++- p_adms mytoken=li->data;
++- if(mytoken->_datatypename==admse_text && ((p_text)mytoken)->_admse==admse__s)
++- adms_message_admstdbg_impl("<token t=\"special-%%s\" e=\"%s\"/>\n",ns_etostr(((p_text)mytoken)->_admse));
++- else if(mytoken->_datatypename==admse_text)
++- dbtext((p_text)mytoken);
++- else if(mytoken->_datatypename==admse_admst)
++- {
++- adms_message_admstdbg_impl("<token t=\"admst\" pseudo=\"%s\">",ns_etostr(((p_admst)mytoken)->_pseudo));
++- adms_message_admstdbg_impl("%s",aprintf(mytext->_transform,(p_admst)mytoken));
++- adms_message_admstdbg_impl("</token>\n");
++- }
++- else if(mytoken->_datatypename==admse_path)
++- {
++- adms_message_admstdbg_impl("<token t=\"%%\">");
++- dbpath((p_path)mytoken);
++- adms_message_admstdbg_impl("</token>");
++- }
++- }
++- if(mytext->_aname)
++- adms_message_admstdbg_impl("</text>\n",mytext->_aname);
++- else
++- adms_message_admstdbg_impl("</text>\n");
++-}
++-void dbpath (p_path mypath)
++-{
++- if(mypath->_text||mypath->_bar||mypath->_arg||mypath->_u||mypath->_b||mypath->_c)
++- {
++- adms_message_admstdbg_impl("<%s keeplist=\"%i\">",mypath->_callbackname,mypath->_keeplist);
++- if(mypath->_bar)
++- {
++- p_slist bar;
++- for(bar=mypath->_bar;bar;bar=bar->next)
++- {
++- p_slist l=(p_slist)bar->data;
++- adms_message_admstdbg_impl("<bar>");
++- for(;l;l=l->next)
++- dbpath((p_path)l->data);
++- adms_message_admstdbg_impl("</bar>");
++- }
++- }
++- if(mypath->_arg)
++- {
++- p_slist arg;
++- for(arg=mypath->_arg;arg;arg=arg->next)
++- {
++- p_slist l=(p_slist)arg->data;
++- adms_message_admstdbg_impl("<arg>");
++- for(;l;l=l->next)
++- dbpath((p_path)l->data);
++- adms_message_admstdbg_impl("</arg>");
++- }
++- }
++- if(mypath->_u)
++- {
++- p_slist l;
++- adms_message_admstdbg_impl("<u>");
++- for(l=mypath->_u;l;l=l->next)
++- dbpath((p_path)l->data);
++- adms_message_admstdbg_impl("</u>");
++- }
++- if(mypath->_b)
++- {
++- p_slist l;
++- adms_message_admstdbg_impl("<b>");
++- for(l=mypath->_b;l;l=l->next)
++- dbpath((p_path)l->data);
++- adms_message_admstdbg_impl("</b>");
++- }
++- if(mypath->_c)
++- {
++- p_slist l;
++- adms_message_admstdbg_impl("<c>");
++- for(l=mypath->_c;l;l=l->next)
++- dbpath((p_path)l->data);
++- adms_message_admstdbg_impl("</c>");
++- }
++- if(mypath->_text)
++- dbtext(mypath->_text);
++- adms_message_admstdbg_impl("</%s>",mypath->_callbackname);
++- }
++- else
++- adms_message_admstdbg_impl("<%s/>",mypath->_callbackname);
++-}
++-
++-static int binaryand (const p_path mypath,p_admst myadmst)
++-{
++- if(((_p_cbcondition)((p_path)mypath->_b->data)->_callback)((p_path)mypath->_b->data,myadmst))
++- return ((_p_cbcondition)((p_path)mypath->_b->next->data)->_callback)((p_path)mypath->_b->next->data,myadmst);
++- return 0;
++-}
++-static int binaryor (const p_path mypath,p_admst myadmst)
++-{
++- if(!((_p_cbcondition)((p_path)mypath->_b->data)->_callback)((p_path)mypath->_b->data,myadmst))
++- return ((_p_cbcondition)((p_path)mypath->_b->next->data)->_callback)((p_path)mypath->_b->next->data,myadmst);
++- return 1;
++-}
++-
++-static int atomicnilled (const p_path mypath,p_admst myadmst)
++-{
++- p_admst myadmst0;
++- p_ptraverse p0=bar(myadmst,(p_path)mypath->_u->data);
++- int passed=(p0->_admst==NULL)||(p0->_admst->data==NULL)||((myadmst0=aread((p_admst)p0->_admst->data))==NULL)||(myadmst0->_item.p==NULL);
++- free_ptraverse(p0);
++- return passed;
++-}
++-static int atomicexists (const p_path mypath,p_admst myadmst)
++-{
++- return !atomicnilled(mypath,myadmst);
++-}
++-static int atomicisdefault (const p_path mypath,p_admst myadmst)
++-{
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_nilled && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_nilled && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_conditional && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_conditional && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_whileloop && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_whileloop && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_case && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_case && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_blockvariable && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_blockvariable && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_callfunction && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_callfunction && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_name) return ((p_simulator)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_currentdate) return ((p_simulator)(myadmst->_item.p))->_currentdate_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_developer) return ((p_simulator)(myadmst->_item.p))->_developer_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_fullname) return ((p_simulator)(myadmst->_item.p))->_fullname_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_package_name) return ((p_simulator)(myadmst->_item.p))->_package_name_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_package_tarname) return ((p_simulator)(myadmst->_item.p))->_package_tarname_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_package_version) return ((p_simulator)(myadmst->_item.p))->_package_version_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_package_string) return ((p_simulator)(myadmst->_item.p))->_package_string_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_package_bugreport) return ((p_simulator)(myadmst->_item.p))->_package_bugreport_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_probe) return ((p_simulator)(myadmst->_item.p))->_probe_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_tmp) return ((p_simulator)(myadmst->_item.p))->_tmp_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_tmp1) return ((p_simulator)(myadmst->_item.p))->_tmp1_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_br1) return ((p_simulator)(myadmst->_item.p))->_br1_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_br2) return ((p_simulator)(myadmst->_item.p))->_br2_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_sr1) return ((p_simulator)(myadmst->_item.p))->_sr1_isdefault;
++- if(myadmst->_pseudo==admse_simulator && mypath->_text->_admse==admse_ddx) return ((p_simulator)(myadmst->_item.p))->_ddx_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_name) return ((p_admsmain)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_argc) return ((p_admsmain)(myadmst->_item.p))->_argc_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_fullfilename) return ((p_admsmain)(myadmst->_item.p))->_fullfilename_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_filename) return ((p_admsmain)(myadmst->_item.p))->_filename_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_curfilename) return ((p_admsmain)(myadmst->_item.p))->_curfilename_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_curline) return ((p_admsmain)(myadmst->_item.p))->_curline_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_fpos) return ((p_admsmain)(myadmst->_item.p))->_fpos_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_simulator) return ((p_admsmain)(myadmst->_item.p))->_simulator_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_info) return ((p_admsmain)(myadmst->_item.p))->_info_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_usage) return ((p_admsmain)(myadmst->_item.p))->_usage_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_verbose) return ((p_admsmain)(myadmst->_item.p))->_verbose_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_hint) return ((p_admsmain)(myadmst->_item.p))->_hint_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_warning) return ((p_admsmain)(myadmst->_item.p))->_warning_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_obsolete) return ((p_admsmain)(myadmst->_item.p))->_obsolete_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_debug) return ((p_admsmain)(myadmst->_item.p))->_debug_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_dbg_vla) return ((p_admsmain)(myadmst->_item.p))->_dbg_vla_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_dbg_xml) return ((p_admsmain)(myadmst->_item.p))->_dbg_xml_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_error) return ((p_admsmain)(myadmst->_item.p))->_error_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_fatal) return ((p_admsmain)(myadmst->_item.p))->_fatal_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_dbg_mem) return ((p_admsmain)(myadmst->_item.p))->_dbg_mem_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_module) return ((p_admsmain)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_discipline) return ((p_admsmain)(myadmst->_item.p))->_discipline_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_nature) return ((p_admsmain)(myadmst->_item.p))->_nature_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_variable) return ((p_admsmain)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_argv) return ((p_admsmain)(myadmst->_item.p))->_argv_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_transform) return ((p_admsmain)(myadmst->_item.p))->_transform_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_invtransform) return ((p_admsmain)(myadmst->_item.p))->_invtransform_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_itransform) return ((p_admsmain)(myadmst->_item.p))->_itransform_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_itransforminsideapplytemplate) return ((p_admsmain)(myadmst->_item.p))->_itransforminsideapplytemplate_isdefault;
++- if(myadmst->_pseudo==admse_admsmain && mypath->_text->_admse==admse_valueof) return ((p_admsmain)(myadmst->_item.p))->_valueof_isdefault;
++- if(myadmst->_pseudo==admse_list && mypath->_text->_admse==admse_datatype) return ((p_list)(myadmst->_item.p))->_datatype_isdefault;
++- if(myadmst->_pseudo==admse_list && mypath->_text->_admse==admse_item) return ((p_list)(myadmst->_item.p))->_item_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_access) return ((p_nature)(myadmst->_item.p))->_access_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_name) return ((p_nature)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_abstol) return ((p_nature)(myadmst->_item.p))->_abstol_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_base) return ((p_nature)(myadmst->_item.p))->_base_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_ddt_name) return ((p_nature)(myadmst->_item.p))->_ddt_name_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_ddt_nature) return ((p_nature)(myadmst->_item.p))->_ddt_nature_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_idt_name) return ((p_nature)(myadmst->_item.p))->_idt_name_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_idt_nature) return ((p_nature)(myadmst->_item.p))->_idt_nature_isdefault;
++- if(myadmst->_pseudo==admse_nature && mypath->_text->_admse==admse_units) return ((p_nature)(myadmst->_item.p))->_units_isdefault;
++- if(myadmst->_pseudo==admse_discipline && mypath->_text->_admse==admse_name) return ((p_discipline)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_discipline && mypath->_text->_admse==admse_flow) return ((p_discipline)(myadmst->_item.p))->_flow_isdefault;
++- if(myadmst->_pseudo==admse_discipline && mypath->_text->_admse==admse_potential) return ((p_discipline)(myadmst->_item.p))->_potential_isdefault;
++- if(myadmst->_pseudo==admse_discipline && mypath->_text->_admse==admse_domain) return ((p_discipline)(myadmst->_item.p))->_domain_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_name) return ((p_module)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_node) return ((p_module)(myadmst->_item.p))->_node_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_nodealias) return ((p_module)(myadmst->_item.p))->_nodealias_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_branch) return ((p_module)(myadmst->_item.p))->_branch_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_branchalias) return ((p_module)(myadmst->_item.p))->_branchalias_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_analogfunction) return ((p_module)(myadmst->_item.p))->_analogfunction_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_instance) return ((p_module)(myadmst->_item.p))->_instance_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_variable) return ((p_module)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_analog) return ((p_module)(myadmst->_item.p))->_analog_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_block) return ((p_module)(myadmst->_item.p))->_block_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_blockvariable) return ((p_module)(myadmst->_item.p))->_blockvariable_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_assignment) return ((p_module)(myadmst->_item.p))->_assignment_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_callfunction) return ((p_module)(myadmst->_item.p))->_callfunction_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_contribution) return ((p_module)(myadmst->_item.p))->_contribution_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_conditional) return ((p_module)(myadmst->_item.p))->_conditional_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_case) return ((p_module)(myadmst->_item.p))->_case_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_forloop) return ((p_module)(myadmst->_item.p))->_forloop_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_whileloop) return ((p_module)(myadmst->_item.p))->_whileloop_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_instantiator) return ((p_module)(myadmst->_item.p))->_instantiator_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_expression) return ((p_module)(myadmst->_item.p))->_expression_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_jacobian) return ((p_module)(myadmst->_item.p))->_jacobian_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_probe) return ((p_module)(myadmst->_item.p))->_probe_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_source) return ((p_module)(myadmst->_item.p))->_source_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_range) return ((p_module)(myadmst->_item.p))->_range_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_attribute) return ((p_module)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_module && mypath->_text->_admse==admse_evaluation) return ((p_module)(myadmst->_item.p))->_evaluation_isdefault;
++- if(myadmst->_pseudo==admse_analogfunction && mypath->_text->_admse==admse_module) return ((p_analogfunction)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_analogfunction && mypath->_text->_admse==admse_lexval) return ((p_analogfunction)(myadmst->_item.p))->_lexval_isdefault;
++- if(myadmst->_pseudo==admse_analogfunction && mypath->_text->_admse==admse_type) return ((p_analogfunction)(myadmst->_item.p))->_type_isdefault;
++- if(myadmst->_pseudo==admse_analogfunction && mypath->_text->_admse==admse_tree) return ((p_analogfunction)(myadmst->_item.p))->_tree_isdefault;
++- if(myadmst->_pseudo==admse_analogfunction && mypath->_text->_admse==admse_variable) return ((p_analogfunction)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_analogfunction && mypath->_text->_admse==admse_attribute) return ((p_analogfunction)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_nodealias && mypath->_text->_admse==admse_module) return ((p_nodealias)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_nodealias && mypath->_text->_admse==admse_name) return ((p_nodealias)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_nodealias && mypath->_text->_admse==admse_node) return ((p_nodealias)(myadmst->_item.p))->_node_isdefault;
++- if(myadmst->_pseudo==admse_node && mypath->_text->_admse==admse_module) return ((p_node)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_node && mypath->_text->_admse==admse_name) return ((p_node)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_node && mypath->_text->_admse==admse_direction) return ((p_node)(myadmst->_item.p))->_direction_isdefault;
++- if(myadmst->_pseudo==admse_node && mypath->_text->_admse==admse_discipline) return ((p_node)(myadmst->_item.p))->_discipline_isdefault;
++- if(myadmst->_pseudo==admse_node && mypath->_text->_admse==admse_grounded) return ((p_node)(myadmst->_item.p))->_grounded_isdefault;
++- if(myadmst->_pseudo==admse_node && mypath->_text->_admse==admse_location) return ((p_node)(myadmst->_item.p))->_location_isdefault;
++- if(myadmst->_pseudo==admse_node && mypath->_text->_admse==admse_attribute) return ((p_node)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_branchalias && mypath->_text->_admse==admse_module) return ((p_branchalias)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_branchalias && mypath->_text->_admse==admse_name) return ((p_branchalias)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_branchalias && mypath->_text->_admse==admse_branch) return ((p_branchalias)(myadmst->_item.p))->_branch_isdefault;
++- if(myadmst->_pseudo==admse_branch && mypath->_text->_admse==admse_module) return ((p_branch)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_branch && mypath->_text->_admse==admse_pnode) return ((p_branch)(myadmst->_item.p))->_pnode_isdefault;
++- if(myadmst->_pseudo==admse_branch && mypath->_text->_admse==admse_nnode) return ((p_branch)(myadmst->_item.p))->_nnode_isdefault;
++- if(myadmst->_pseudo==admse_branch && mypath->_text->_admse==admse_discipline) return ((p_branch)(myadmst->_item.p))->_discipline_isdefault;
++- if(myadmst->_pseudo==admse_branch && mypath->_text->_admse==admse_grounded) return ((p_branch)(myadmst->_item.p))->_grounded_isdefault;
++- if(myadmst->_pseudo==admse_branch && mypath->_text->_admse==admse_attribute) return ((p_branch)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_module) return ((p_variableprototype)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_lexval) return ((p_variableprototype)(myadmst->_item.p))->_lexval_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_block) return ((p_variableprototype)(myadmst->_item.p))->_block_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_dependency) return ((p_variableprototype)(myadmst->_item.p))->_dependency_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_static) return ((p_variableprototype)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_dynamic) return ((p_variableprototype)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_sizetype) return ((p_variableprototype)(myadmst->_item.p))->_sizetype_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_parametertype) return ((p_variableprototype)(myadmst->_item.p))->_parametertype_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_type) return ((p_variableprototype)(myadmst->_item.p))->_type_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_maxsize) return ((p_variableprototype)(myadmst->_item.p))->_maxsize_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_minsize) return ((p_variableprototype)(myadmst->_item.p))->_minsize_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_input) return ((p_variableprototype)(myadmst->_item.p))->_input_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_output) return ((p_variableprototype)(myadmst->_item.p))->_output_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_scope) return ((p_variableprototype)(myadmst->_item.p))->_scope_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_default) return ((p_variableprototype)(myadmst->_item.p))->_default_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_derivate) return ((p_variableprototype)(myadmst->_item.p))->_derivate_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_isstate) return ((p_variableprototype)(myadmst->_item.p))->_isstate_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_usedinmodel) return ((p_variableprototype)(myadmst->_item.p))->_usedinmodel_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_usedininstance) return ((p_variableprototype)(myadmst->_item.p))->_usedininstance_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_usedininitial_step) return ((p_variableprototype)(myadmst->_item.p))->_usedininitial_step_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_usedinevaluate) return ((p_variableprototype)(myadmst->_item.p))->_usedinevaluate_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_usedinnoise) return ((p_variableprototype)(myadmst->_item.p))->_usedinnoise_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_usedinfinal) return ((p_variableprototype)(myadmst->_item.p))->_usedinfinal_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_setinmodel) return ((p_variableprototype)(myadmst->_item.p))->_setinmodel_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_setininstance) return ((p_variableprototype)(myadmst->_item.p))->_setininstance_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_setininitial_step) return ((p_variableprototype)(myadmst->_item.p))->_setininitial_step_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_setinevaluate) return ((p_variableprototype)(myadmst->_item.p))->_setinevaluate_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_setinnoise) return ((p_variableprototype)(myadmst->_item.p))->_setinnoise_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_setinfinal) return ((p_variableprototype)(myadmst->_item.p))->_setinfinal_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_setingetprev) return ((p_variableprototype)(myadmst->_item.p))->_setingetprev_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_TemperatureDependent) return ((p_variableprototype)(myadmst->_item.p))->_TemperatureDependent_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_OPdependent) return ((p_variableprototype)(myadmst->_item.p))->_OPdependent_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_insource) return ((p_variableprototype)(myadmst->_item.p))->_insource_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_vcount) return ((p_variableprototype)(myadmst->_item.p))->_vcount_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_vlast) return ((p_variableprototype)(myadmst->_item.p))->_vlast_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_arraydefault) return ((p_variableprototype)(myadmst->_item.p))->_arraydefault_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_attribute) return ((p_variableprototype)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_alias) return ((p_variableprototype)(myadmst->_item.p))->_alias_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_range) return ((p_variableprototype)(myadmst->_item.p))->_range_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_probe) return ((p_variableprototype)(myadmst->_item.p))->_probe_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_ddxprobe) return ((p_variableprototype)(myadmst->_item.p))->_ddxprobe_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_variable) return ((p_variableprototype)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_assignment) return ((p_variableprototype)(myadmst->_item.p))->_assignment_isdefault;
++- if(myadmst->_pseudo==admse_variableprototype && mypath->_text->_admse==admse_instance) return ((p_variableprototype)(myadmst->_item.p))->_instance_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_module) return ((p_source)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_branch) return ((p_source)(myadmst->_item.p))->_branch_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_nature) return ((p_source)(myadmst->_item.p))->_nature_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_discipline) return ((p_source)(myadmst->_item.p))->_discipline_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_static) return ((p_source)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_dynamic) return ((p_source)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_whitenoise) return ((p_source)(myadmst->_item.p))->_whitenoise_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_flickernoise) return ((p_source)(myadmst->_item.p))->_flickernoise_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_grounded) return ((p_source)(myadmst->_item.p))->_grounded_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_switch) return ((p_source)(myadmst->_item.p))->_switch_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_type) return ((p_source)(myadmst->_item.p))->_type_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_probe) return ((p_source)(myadmst->_item.p))->_probe_isdefault;
++- if(myadmst->_pseudo==admse_source && mypath->_text->_admse==admse_attribute) return ((p_source)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_range && mypath->_text->_admse==admse_module) return ((p_range)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_range && mypath->_text->_admse==admse_infexpr) return ((p_range)(myadmst->_item.p))->_infexpr_isdefault;
++- if(myadmst->_pseudo==admse_range && mypath->_text->_admse==admse_supexpr) return ((p_range)(myadmst->_item.p))->_supexpr_isdefault;
++- if(myadmst->_pseudo==admse_range && mypath->_text->_admse==admse_name) return ((p_range)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_range && mypath->_text->_admse==admse_infboundtype) return ((p_range)(myadmst->_item.p))->_infboundtype_isdefault;
++- if(myadmst->_pseudo==admse_range && mypath->_text->_admse==admse_supboundtype) return ((p_range)(myadmst->_item.p))->_supboundtype_isdefault;
++- if(myadmst->_pseudo==admse_range && mypath->_text->_admse==admse_type) return ((p_range)(myadmst->_item.p))->_type_isdefault;
++- if(myadmst->_pseudo==admse_jacobian && mypath->_text->_admse==admse_module) return ((p_jacobian)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_jacobian && mypath->_text->_admse==admse_row) return ((p_jacobian)(myadmst->_item.p))->_row_isdefault;
++- if(myadmst->_pseudo==admse_jacobian && mypath->_text->_admse==admse_column) return ((p_jacobian)(myadmst->_item.p))->_column_isdefault;
++- if(myadmst->_pseudo==admse_jacobian && mypath->_text->_admse==admse_diagonal) return ((p_jacobian)(myadmst->_item.p))->_diagonal_isdefault;
++- if(myadmst->_pseudo==admse_jacobian && mypath->_text->_admse==admse_static) return ((p_jacobian)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_jacobian && mypath->_text->_admse==admse_dynamic) return ((p_jacobian)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_analog && mypath->_text->_admse==admse_code) return ((p_analog)(myadmst->_item.p))->_code_isdefault;
++- if(myadmst->_pseudo==admse_math && mypath->_text->_admse==admse_name) return ((p_math)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_math && mypath->_text->_admse==admse_value) return ((p_math)(myadmst->_item.p))->_value_isdefault;
++- if(myadmst->_pseudo==admse_math && mypath->_text->_admse==admse_static) return ((p_math)(myadmst->_item.p))->_static_isdefault;
++- if(myadmst->_pseudo==admse_math && mypath->_text->_admse==admse_dynamic) return ((p_math)(myadmst->_item.p))->_dynamic_isdefault;
++- if(myadmst->_pseudo==admse_math && mypath->_text->_admse==admse_dependency) return ((p_math)(myadmst->_item.p))->_dependency_isdefault;
++- if(myadmst->_pseudo==admse_math && mypath->_text->_admse==admse_attribute) return ((p_math)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_string && mypath->_text->_admse==admse_value) return ((p_string)(myadmst->_item.p))->_value_isdefault;
++- if(myadmst->_pseudo==admse_subexpression && mypath->_text->_admse==admse_expression) return ((p_subexpression)(myadmst->_item.p))->_expression_isdefault;
++- if(myadmst->_pseudo==admse_mapply_unary && mypath->_text->_admse==admse_name) return ((p_mapply_unary)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_mapply_unary && mypath->_text->_admse==admse_arg1) return ((p_mapply_unary)(myadmst->_item.p))->_arg1_isdefault;
++- if(myadmst->_pseudo==admse_mapply_binary && mypath->_text->_admse==admse_name) return ((p_mapply_binary)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_mapply_binary && mypath->_text->_admse==admse_arg1) return ((p_mapply_binary)(myadmst->_item.p))->_arg1_isdefault;
++- if(myadmst->_pseudo==admse_mapply_binary && mypath->_text->_admse==admse_arg2) return ((p_mapply_binary)(myadmst->_item.p))->_arg2_isdefault;
++- if(myadmst->_pseudo==admse_mapply_ternary && mypath->_text->_admse==admse_name) return ((p_mapply_ternary)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_mapply_ternary && mypath->_text->_admse==admse_arg1) return ((p_mapply_ternary)(myadmst->_item.p))->_arg1_isdefault;
++- if(myadmst->_pseudo==admse_mapply_ternary && mypath->_text->_admse==admse_arg2) return ((p_mapply_ternary)(myadmst->_item.p))->_arg2_isdefault;
++- if(myadmst->_pseudo==admse_mapply_ternary && mypath->_text->_admse==admse_arg3) return ((p_mapply_ternary)(myadmst->_item.p))->_arg3_isdefault;
++- if(myadmst->_pseudo==admse_number && mypath->_text->_admse==admse_lexval) return ((p_number)(myadmst->_item.p))->_lexval_isdefault;
++- if(myadmst->_pseudo==admse_number && mypath->_text->_admse==admse_scalingunit) return ((p_number)(myadmst->_item.p))->_scalingunit_isdefault;
++- if(myadmst->_pseudo==admse_number && mypath->_text->_admse==admse_cast) return ((p_number)(myadmst->_item.p))->_cast_isdefault;
++- if(myadmst->_pseudo==admse_function && mypath->_text->_admse==admse_lexval) return ((p_function)(myadmst->_item.p))->_lexval_isdefault;
++- if(myadmst->_pseudo==admse_function && mypath->_text->_admse==admse_unique_id) return ((p_function)(myadmst->_item.p))->_unique_id_isdefault;
++- if(myadmst->_pseudo==admse_function && mypath->_text->_admse==admse_definition) return ((p_function)(myadmst->_item.p))->_definition_isdefault;
++- if(myadmst->_pseudo==admse_function && mypath->_text->_admse==admse_class) return ((p_function)(myadmst->_item.p))->_class_isdefault;
++- if(myadmst->_pseudo==admse_function && mypath->_text->_admse==admse_arguments) return ((p_function)(myadmst->_item.p))->_arguments_isdefault;
++- if(myadmst->_pseudo==admse_variable && mypath->_text->_admse==admse_prototype) return ((p_variable)(myadmst->_item.p))->_prototype_isdefault;
++- if(myadmst->_pseudo==admse_array && mypath->_text->_admse==admse_variable) return ((p_array)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_array && mypath->_text->_admse==admse_index) return ((p_array)(myadmst->_item.p))->_index_isdefault;
++- if(myadmst->_pseudo==admse_probe && mypath->_text->_admse==admse_module) return ((p_probe)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_probe && mypath->_text->_admse==admse_branch) return ((p_probe)(myadmst->_item.p))->_branch_isdefault;
++- if(myadmst->_pseudo==admse_probe && mypath->_text->_admse==admse_nature) return ((p_probe)(myadmst->_item.p))->_nature_isdefault;
++- if(myadmst->_pseudo==admse_probe && mypath->_text->_admse==admse_seen) return ((p_probe)(myadmst->_item.p))->_seen_isdefault;
++- if(myadmst->_pseudo==admse_probe && mypath->_text->_admse==admse_discipline) return ((p_probe)(myadmst->_item.p))->_discipline_isdefault;
++- if(myadmst->_pseudo==admse_probe && mypath->_text->_admse==admse_grounded) return ((p_probe)(myadmst->_item.p))->_grounded_isdefault;
++- if(myadmst->_pseudo==admse_probe && mypath->_text->_admse==admse_source) return ((p_probe)(myadmst->_item.p))->_source_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_module) return ((p_expression)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_tree) return ((p_expression)(myadmst->_item.p))->_tree_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_hasspecialnumber) return ((p_expression)(myadmst->_item.p))->_hasspecialnumber_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_hasVoltageDependentFunction) return ((p_expression)(myadmst->_item.p))->_hasVoltageDependentFunction_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_infinity) return ((p_expression)(myadmst->_item.p))->_infinity_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_TemperatureDependent) return ((p_expression)(myadmst->_item.p))->_TemperatureDependent_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_value) return ((p_expression)(myadmst->_item.p))->_value_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_function) return ((p_expression)(myadmst->_item.p))->_function_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_probe) return ((p_expression)(myadmst->_item.p))->_probe_isdefault;
++- if(myadmst->_pseudo==admse_expression && mypath->_text->_admse==admse_variable) return ((p_expression)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_instance && mypath->_text->_admse==admse_instantiator) return ((p_instance)(myadmst->_item.p))->_instantiator_isdefault;
++- if(myadmst->_pseudo==admse_instance && mypath->_text->_admse==admse_module) return ((p_instance)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_instance && mypath->_text->_admse==admse_name) return ((p_instance)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_instance && mypath->_text->_admse==admse_terminal) return ((p_instance)(myadmst->_item.p))->_terminal_isdefault;
++- if(myadmst->_pseudo==admse_instance && mypath->_text->_admse==admse_parameterset) return ((p_instance)(myadmst->_item.p))->_parameterset_isdefault;
++- if(myadmst->_pseudo==admse_instanceparameter && mypath->_text->_admse==admse_parameter) return ((p_instanceparameter)(myadmst->_item.p))->_parameter_isdefault;
++- if(myadmst->_pseudo==admse_instanceparameter && mypath->_text->_admse==admse_value) return ((p_instanceparameter)(myadmst->_item.p))->_value_isdefault;
++- if(myadmst->_pseudo==admse_instancenode && mypath->_text->_admse==admse_nodefrominstantiator) return ((p_instancenode)(myadmst->_item.p))->_nodefrominstantiator_isdefault;
++- if(myadmst->_pseudo==admse_instancenode && mypath->_text->_admse==admse_nodefrommodule) return ((p_instancenode)(myadmst->_item.p))->_nodefrommodule_isdefault;
++- if(myadmst->_pseudo==admse_nilled && mypath->_text->_admse==admse_module) return ((p_nilled)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_nilled && mypath->_text->_admse==admse_name) return ((p_nilled)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_module) return ((p_assignment)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_lhs) return ((p_assignment)(myadmst->_item.p))->_lhs_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_rhs) return ((p_assignment)(myadmst->_item.p))->_rhs_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_lexval) return ((p_assignment)(myadmst->_item.p))->_lexval_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_name) return ((p_assignment)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_assignment && mypath->_text->_admse==admse_attribute) return ((p_assignment)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_module) return ((p_contribution)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_lhs) return ((p_contribution)(myadmst->_item.p))->_lhs_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_rhs) return ((p_contribution)(myadmst->_item.p))->_rhs_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_lexval) return ((p_contribution)(myadmst->_item.p))->_lexval_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_branchalias) return ((p_contribution)(myadmst->_item.p))->_branchalias_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_name) return ((p_contribution)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_whitenoise) return ((p_contribution)(myadmst->_item.p))->_whitenoise_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_flickernoise) return ((p_contribution)(myadmst->_item.p))->_flickernoise_isdefault;
++- if(myadmst->_pseudo==admse_contribution && mypath->_text->_admse==admse_attribute) return ((p_contribution)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_conditional && mypath->_text->_admse==admse_module) return ((p_conditional)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_conditional && mypath->_text->_admse==admse_if) return ((p_conditional)(myadmst->_item.p))->_if_isdefault;
++- if(myadmst->_pseudo==admse_conditional && mypath->_text->_admse==admse_then) return ((p_conditional)(myadmst->_item.p))->_then_isdefault;
++- if(myadmst->_pseudo==admse_conditional && mypath->_text->_admse==admse_else) return ((p_conditional)(myadmst->_item.p))->_else_isdefault;
++- if(myadmst->_pseudo==admse_conditional && mypath->_text->_admse==admse_name) return ((p_conditional)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_module) return ((p_forloop)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_initial) return ((p_forloop)(myadmst->_item.p))->_initial_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_condition) return ((p_forloop)(myadmst->_item.p))->_condition_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_update) return ((p_forloop)(myadmst->_item.p))->_update_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_forblock) return ((p_forloop)(myadmst->_item.p))->_forblock_isdefault;
++- if(myadmst->_pseudo==admse_forloop && mypath->_text->_admse==admse_name) return ((p_forloop)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_whileloop && mypath->_text->_admse==admse_module) return ((p_whileloop)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_whileloop && mypath->_text->_admse==admse_while) return ((p_whileloop)(myadmst->_item.p))->_while_isdefault;
++- if(myadmst->_pseudo==admse_whileloop && mypath->_text->_admse==admse_whileblock) return ((p_whileloop)(myadmst->_item.p))->_whileblock_isdefault;
++- if(myadmst->_pseudo==admse_whileloop && mypath->_text->_admse==admse_name) return ((p_whileloop)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_case && mypath->_text->_admse==admse_module) return ((p_case)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_case && mypath->_text->_admse==admse_case) return ((p_case)(myadmst->_item.p))->_case_isdefault;
++- if(myadmst->_pseudo==admse_case && mypath->_text->_admse==admse_name) return ((p_case)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_case && mypath->_text->_admse==admse_caseitem) return ((p_case)(myadmst->_item.p))->_caseitem_isdefault;
++- if(myadmst->_pseudo==admse_caseitem && mypath->_text->_admse==admse_code) return ((p_caseitem)(myadmst->_item.p))->_code_isdefault;
++- if(myadmst->_pseudo==admse_caseitem && mypath->_text->_admse==admse_defaultcase) return ((p_caseitem)(myadmst->_item.p))->_defaultcase_isdefault;
++- if(myadmst->_pseudo==admse_caseitem && mypath->_text->_admse==admse_condition) return ((p_caseitem)(myadmst->_item.p))->_condition_isdefault;
++- if(myadmst->_pseudo==admse_blockvariable && mypath->_text->_admse==admse_block) return ((p_blockvariable)(myadmst->_item.p))->_block_isdefault;
++- if(myadmst->_pseudo==admse_blockvariable && mypath->_text->_admse==admse_variable) return ((p_blockvariable)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_module) return ((p_block)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_lexval) return ((p_block)(myadmst->_item.p))->_lexval_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_block) return ((p_block)(myadmst->_item.p))->_block_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_item) return ((p_block)(myadmst->_item.p))->_item_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_attribute) return ((p_block)(myadmst->_item.p))->_attribute_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_variable) return ((p_block)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_block && mypath->_text->_admse==admse_probe) return ((p_block)(myadmst->_item.p))->_probe_isdefault;
++- if(myadmst->_pseudo==admse_callfunction && mypath->_text->_admse==admse_module) return ((p_callfunction)(myadmst->_item.p))->_module_isdefault;
++- if(myadmst->_pseudo==admse_callfunction && mypath->_text->_admse==admse_function) return ((p_callfunction)(myadmst->_item.p))->_function_isdefault;
++- if(myadmst->_pseudo==admse_evaluation && mypath->_text->_admse==admse_variable) return ((p_evaluation)(myadmst->_item.p))->_variable_isdefault;
++- if(myadmst->_pseudo==admse_attribute && mypath->_text->_admse==admse_name) return ((p_attribute)(myadmst->_item.p))->_name_isdefault;
++- if(myadmst->_pseudo==admse_attribute && mypath->_text->_admse==admse_value) return ((p_attribute)(myadmst->_item.p))->_value_isdefault;
++- if(myadmst->_pseudo==admse_lexval && mypath->_text->_admse==admse_string) return ((p_lexval)(myadmst->_item.p))->_string_isdefault;
++- if(myadmst->_pseudo==admse_lexval && mypath->_text->_admse==admse_f) return ((p_lexval)(myadmst->_item.p))->_f_isdefault;
++- if(myadmst->_pseudo==admse_lexval && mypath->_text->_admse==admse_l) return ((p_lexval)(myadmst->_item.p))->_l_isdefault;
++- if(myadmst->_pseudo==admse_lexval && mypath->_text->_admse==admse_c) return ((p_lexval)(myadmst->_item.p))->_c_isdefault;
++- return 0;
++-}
++-static int atomicgroupage (const p_path mypath,p_admst myadmst)
++-{
++- return ((_p_cbcondition)((p_path)mypath->_u->data)->_callback)(((p_path)mypath->_u->data),myadmst);
++-}
++-static int unary00 (const p_path mypath,p_admst myadmst)
++-{
++- return !((_p_cbcondition)((p_path)mypath->_u->data)->_callback)(((p_path)mypath->_u->data),myadmst);
++-}
++-static int atomictrue (const p_path mypath,p_admst myadmst)
++-{
++- return 1;
++-}
++-static int atomicfalse (const p_path mypath,p_admst myadmst)
++-{
++- return 0;
++-}
++-static int atomiceq (const p_path mypath,p_admst myadmst)
++-{
++- p_ptraverse p0;
++- p_ptraverse p1;
++- p_slist myl0;
++- p_slist myl1;
++- int passed=1;
++- p_path root0=(p_path)mypath->_u->data;
++- p_path root1=(p_path)mypath->_u->next->data;
++- p_slist n000=(p_slist)root0->_bar->data;
++- p_slist n01=root0->_bar->next;
++- p_slist n001=n000->next;
++- p_path l000=(p_path)n000->data;
++- p_slist n100=(p_slist)root1->_bar->data;
++- p_slist n11=root1->_bar->next;
++- p_slist n101=n100->next;
++- p_path l100=(p_path)n100->data;
++- int isdatatypename0=(l000->_callback==(void*)location03datatypename)&&(n001==NULL)&&(n01==NULL);
++- int isquotedstring1=((l100->_callback==(void*)location09)||(l100->_callback==(void*)location09k))&&(n11==NULL)&&(n101==NULL)&&(n11==NULL);
++- if(isdatatypename0 && isquotedstring1)
++- {
++- p_admst myadmst0=aread(myadmst);
++- if(myadmst0)
++- return (retdatatypename(myadmst0)==l100->_text->_admse);
++- else
++- return (admse_empty==l100->_text->_admse);
++- }
++- p0=bar(myadmst,(p_path)mypath->_u->data);
++- p1=bar(myadmst,(p_path)mypath->_u->next->data);
++- myl0=p0->_admst;
++- myl1=p1->_admst;
++- if(adms_slist_length(myl0)!=adms_slist_length(myl1))
++- passed=0;
++- for(;myl0&&passed;myl0=myl0->next,myl1=myl1->next)
++- {
++- p_admst myadmst0=aread((p_admst)myl0->data);
++- p_admst myadmst1=aread((p_admst)myl1->data);
++- if(!myadmst0)
++- passed=0;
++- else
++- {
++- admse admse0=myadmst0->_pseudo;
++- admse admse1=myadmst1->_pseudo;
++- if(admse0==admse_empty)
++- {}
++- else if(admse0==admse_datatypename)
++- {
++- char* mystring=aprintf(mypath->_transform,myadmst1);
++- passed=(myadmst0->_item.i==ns_strtoe(mystring));
++- free(mystring);
++- }
++- else if((admse0==admse_basicinteger)&&(admse1==admse_basicstring))
++- {
++- char *s=adms_integertostring(myadmst0->_item.i);
++- passed=!strcmp(s,myadmst1->_item.s);
++- free(s);
++- }
++- else if((admse0==admse_basicstring)&&(admse1==admse_basicinteger))
++- {
++- char *s=adms_integertostring(myadmst1->_item.i);
++- passed=!strcmp(myadmst0->_item.s,s);
++- free(s);
++- }
++- else if((admse0==admse_basicenumeration)&&(admse1==admse_basicstring))
++- passed=!strcmp(ns_etostr(myadmst0->_item.i),myadmst1->_item.s);
++- else if((admse0==admse_basicstring)&&(admse1==admse_basicenumeration))
++- passed=!strcmp(myadmst0->_item.s,ns_etostr(myadmst1->_item.i));
++- else if((admse0==admse_basicenumeration)&&(admse1==admse_basicinteger))
++- passed=(myadmst0->_item.i==myadmst1->_item.i);
++- else if((admse0==admse_basicinteger)&&(admse1==admse_basicenumeration))
++- passed=(myadmst0->_item.i==myadmst1->_item.i);
++- else if(admse0!=admse1)
++- passed=0;
++- else if(admse0==admse_basicenumeration)
++- passed=(myadmst0->_item.i==myadmst1->_item.i);
++- else if(admse0==admse_basicinteger)
++- passed=(myadmst0->_item.i==myadmst1->_item.i);
++- else if(admse0==admse_basicreal)
++- passed=(myadmst0->_item.r>=myadmst1->_item.r-1.0e-307)&&(myadmst0->_item.r<=myadmst1->_item.r+1.0e-307);
++- else if(admse0==admse_basicstring)
++- passed=!strcmp(myadmst0->_item.s,myadmst1->_item.s);
++- else
++- passed=(myadmst0->_item.p==myadmst1->_item.p);
++- }
++- }
++- free_ptraverse(p0);
++- free_ptraverse(p1);
++- return passed;
++-}
++-static int atomicne (const p_path mypath,p_admst myadmst)
++-{
++- return !atomiceq(mypath,myadmst);
++-}
++-static int atomiclt (const p_path mypath,p_admst myadmst)
++-{
++- p_ptraverse p0=bar(myadmst,(p_path)mypath->_u->data);
++- p_ptraverse p1=bar(myadmst,(p_path)mypath->_u->next->data);
++- p_slist myl0=p0->_admst;
++- p_slist myl1=p1->_admst;
++- int passed=1;
++- if(adms_slist_length(myl0)!=adms_slist_length(myl1))
++- passed=0;
++- else
++- {
++- for(;myl0&&passed;myl0=myl0->next,myl1=myl1->next)
++- {
++- p_admst myadmst0=(p_admst)myl0->data;
++- p_admst myadmst1=(p_admst)myl1->data;
++- admse mytype0=myadmst0->_pseudo;
++- admse mytype1=myadmst1->_pseudo;
++- if((mytype0==admse_basicinteger)&&(mytype1==admse_basicinteger))
++- {
++- int myinteger0=myadmst0->_item.i;
++- int myinteger1=myadmst1->_item.i;
++- passed=(myinteger0<myinteger1);
++- }
++- else if((mytype0==admse_basicreal)&&(mytype1==admse_basicreal))
++- {
++- double myreal0=myadmst0->_item.r;
++- double myreal1=myadmst1->_item.r;
++- passed=(myreal0<myreal1);
++- }
++- else
++- adms_message_fatal(("%s: 'less than' - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- free_ptraverse(p0);
++- free_ptraverse(p1);
++- return passed;
++-}
++-static int atomicgt (const p_path mypath,p_admst myadmst)
++-{
++- p_ptraverse p0=bar(myadmst,(p_path)mypath->_u->data);
++- p_ptraverse p1=bar(myadmst,(p_path)mypath->_u->next->data);
++- p_slist myl0=p0->_admst;
++- p_slist myl1=p1->_admst;
++- int passed=1;
++- if(adms_slist_length(myl0)!=adms_slist_length(myl1))
++- passed=0;
++- else
++- {
++- for(;myl0&&passed;myl0=myl0->next,myl1=myl1->next)
++- {
++- p_admst myadmst0=(p_admst)myl0->data;
++- p_admst myadmst1=(p_admst)myl1->data;
++- admse mytype0=myadmst0->_pseudo;
++- admse mytype1=myadmst1->_pseudo;
++- if((mytype0==admse_basicinteger)&&(mytype1==admse_basicinteger))
++- {
++- int myinteger0=myadmst0->_item.i;
++- int myinteger1=myadmst1->_item.i;
++- passed=(myinteger0>myinteger1);
++- }
++- else if((mytype0==admse_basicreal)&&(mytype1==admse_basicreal))
++- {
++- double myreal0=myadmst0->_item.r;
++- double myreal1=myadmst1->_item.r;
++- passed=(myreal0>myreal1);
++- }
++- else
++- adms_message_fatal(("%s: 'greater than' - case not implemented - sorry!\n",adms_transform_uid(mypath->_transform)))
++- }
++- }
++- free_ptraverse(p0);
++- free_ptraverse(p1);
++- return passed;
++-}
++-
++-#if defined(STANDALONE)
++-#define adms_transform_uid(txt) "unknown"
++-#endif
++-
++-static void admstpatherrorimpl (const p_pparse mypparse,char const *s)
++-{
++- adms_message_fatal_continue(("%s - invalid path \"%s\"\n",s,mypparse->_value))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mypparse->_transform)))
++-}
++-
++-%}
++-%token tktk_cr
++-%token tktk_lf
++-%token tktk_tab
++-%token tktk_percent
++-%token tktk_percents
++-%token tktk_ticptr
++-%token tktk_anytext
++-%token tktk_goto_atext
++-%token tktk_cquote
++-
++-%token tktk_openE
++-%token tktk_closeE
++-%token tktk_dollarvariable
++-%token tktk_kdollarvariable
++-%token tktk_arobavariable
++-%token tktk_karobavariable
++-%token tktk_croixcroixvariable
++-%token tktk_croixstar
++-%token tktk_kcroixcroixvariable
++-%token tktk_croixvariable
++-%token tktk_kcroixvariable
++-%token tktk_oquote
++-%token tktk_notequal
++-%token tktk_gt
++-%token tktk_lt
++-%token tktk_star
++-%token tktk_incrp
++-%token tktk_incrm
++-%token tktk_addp
++-%token tktk_column
++-%token tktk_comma
++-%token tktk_bar
++-%token tktk_addm
++-%token tktk_dotdot
++-%token tktk_dot
++-%token tktk_slash
++-%token tktk_equal
++-%token tktk_openCond
++-%token tktk_closeCond
++-%token tktk_admst
++-%token tktk_and
++-%token tktk_count
++-%token tktk_exists
++-%token tktk_false
++-%token tktk_id
++-%token tktk_index
++-%token tktk_isdefault
++-%token tktk_lower_mcase
++-%token tktk_nilled
++-%token tktk_not
++-%token tktk_or
++-%token tktk_position
++-%token tktk_returned
++-%token tktk_reverse
++-%token tktk_sort
++-%token tktk_text
++-%token tktk_true
++-%token tktk_uid
++-%token tktk_upper_mcase
++-%token tktk_ident
++-%token tktk_real
++-%token tktk_integer
++-%type <_path> pathroot_l
++-%type <_path> pathroot
++-%type <_slist> pathbar
++-%type <_slist> pathadd
++-%type <_slist> pathmult
++-%type <_slist> pathunary
++-%type <_slist> pathincr
++-%type <_slist> pathsep0
++-%type <_slist> pathsep
++-%type <_path> locationcondition
++-%type <_path> identifier
++-%type <_path> location
++-%type <_text> quotedstring
++-%type <_slist> atext
++-%type <_path> atextitem
++-%type <_path> condition
++-%type <_path> expression
++-%type <_path> binaryor
++-%type <_path> binaryand
++-%type <_path> unary
++-%type <_path> atomic
++-
++-%union
++-{
++-p_slist _slist;
++-p_path _path;
++-p_text _text;
++-}
++-%%
++-root
++- : pathroot_l
++- {/*0*/
++- }
++- | tktk_goto_atext atext
++- {/*1*/
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"");
++- mytext->_token=adms_slist_reverse($2);
++- ((p_pparse)mypparse)->_text=mytext;
++- }
++-;
++-pathroot_l
++- : pathroot
++- {/*0*/
++- ((p_pparse)mypparse)->_path=$1;
++- }
++- | pathroot_l tktk_comma pathroot
++- {/*1*/
++- ((p_pparse)mypparse)->_path=$3;
++- }
++-;
++-pathroot
++- : pathbar
++- {/*0*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_inreverse(&$1);
++- $$->_bar=$1;
++- $$->_callback=NULL;
++- $$->_callbackname="path";
++- }
++-;
++-pathbar
++- : pathadd
++- {/*0*/
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)$1);
++- }
++- | pathbar tktk_bar pathadd
++- {/*1*/
++- $$=$1;
++- adms_slist_push(&$$,(p_adms)$3);
++- }
++-;
++-pathadd
++- : pathmult
++- {/*0*/
++- $$=$1;
++- }
++- | pathadd tktk_addp pathmult
++- {/*1*/
++- p_path addp=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- addp->_callback=(void*)addptraverse;
++- addp->_callbackname="addptraverse";
++- adms_slist_push(&addp->_arg,(p_adms)$3);
++- adms_slist_push(&addp->_arg,(p_adms)$1);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)addp);
++- }
++- | pathadd tktk_addm pathmult
++- {/*2*/
++- p_path addm=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- addm->_callback=(void*)addmtraverse;
++- addm->_callbackname="addmtraverse";
++- adms_slist_push(&addm->_arg,(p_adms)$3);
++- adms_slist_push(&addm->_arg,(p_adms)$1);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)addm);
++- }
++-;
++-pathmult
++- : pathunary
++- {/*0*/
++- $$=$1;
++- }
++- | pathmult tktk_star pathunary
++- {/*1*/
++- p_path multp=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- multp->_callback=(void*)multtimetraverse;
++- multp->_callbackname="multtimetraverse";
++- adms_slist_push(&multp->_arg,(p_adms)$3);
++- adms_slist_push(&multp->_arg,(p_adms)$1);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)multp);
++- }
++- | pathmult tktk_column pathunary
++- {/*2*/
++- p_path multm=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- multm->_callback=(void*)multdivtraverse;
++- multm->_callbackname="multdivtraverse";
++- adms_slist_push(&multm->_arg,(p_adms)$3);
++- adms_slist_push(&multm->_arg,(p_adms)$1);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)multm);
++- }
++-;
++-pathunary
++- : pathincr
++- {/*0*/
++- $$=$1;
++- }
++- | tktk_addp pathincr
++- {/*1*/
++- p_path unaryp=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- unaryp->_callback=(void*)unaryptraverse;
++- unaryp->_callbackname="unaryptraverse";
++- adms_slist_push(&unaryp->_arg,(p_adms)$2);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)unaryp);
++- }
++- | tktk_addm pathincr
++- {/*2*/
++- p_path unarym=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- unarym->_callback=(void*)unarymtraverse;
++- unarym->_callbackname="unarymtraverse";
++- adms_slist_push(&unarym->_arg,(p_adms)$2);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)unarym);
++- }
++-;
++-pathincr
++- : pathsep0
++- {/*0*/
++- $$=$1;
++- }
++- | pathsep0 tktk_incrp
++- {/*1*/
++- p_path incrp=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- p_path path0=(p_path)adms_slist_last($1)->data;
++- path0->_keeplist=1;
++- incrp->_callback=(void*)incrptraverse;
++- incrp->_callbackname="incrptraverse";
++- adms_slist_push(&incrp->_arg,(p_adms)$1);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)incrp);
++- }
++- | pathsep0 tktk_incrm
++- {/*2*/
++- p_path incrm=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- p_path path0=(p_path)adms_slist_last($1)->data;
++- path0->_keeplist=1;
++- incrm->_callback=(void*)incrmtraverse;
++- incrm->_callbackname="incrmtraverse";
++- adms_slist_push(&incrm->_arg,(p_adms)$1);
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)incrm);
++- }
++-;
++-pathsep0
++- : pathsep
++- {/*0*/
++- $$=$1;
++- adms_slist_inreverse(&$$);
++- }
++- | pathsep tktk_slash
++- {/*1*/
++- $$=$1;
++- adms_slist_inreverse(&$$);
++- }
++- | tktk_slash pathsep
++- {/*2*/
++- p_path pathroot=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- pathroot->_callback=(void*)root00;
++- pathroot->_callbackname="root00";
++- $$=$2;
++- adms_slist_inreverse(&$$);
++- adms_slist_push(&$$,(p_adms)pathroot);
++- }
++- | tktk_slash pathsep tktk_slash
++- {/*3*/
++- p_path pathroot=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- pathroot->_callback=(void*)root00;
++- pathroot->_callbackname="root00";
++- $$=$2;
++- adms_slist_inreverse(&$$);
++- adms_slist_push(&$$,(p_adms)pathroot);
++- }
++-;
++-pathsep
++- : locationcondition
++- {/*0*/
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)$1);
++- }
++- | pathsep tktk_slash locationcondition
++- {/*1*/
++- $$=$1;
++- adms_slist_push(&$$,(p_adms)$3);
++- }
++-;
++-locationcondition
++- : location condition
++- {/*0*/
++- $$=$1;
++- if($2) adms_slist_push(&$$->_c,(p_adms)$2);
++- }
++- | condition
++- {/*1*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)location00;
++- $$->_callbackname="location00";
++- if($1) adms_slist_push(&$$->_c,(p_adms)$1);
++- }
++- | location
++- {/*2*/
++- $$=$1;
++- }
++- | tktk_openE pathroot tktk_closeE
++- {/*3*/
++- $$=$2;
++- $$->_callbackname="groupage";
++- $$->_callback=(void*)groupage;
++- }
++-;
++-identifier
++- : tktk_ident
++- {/*0*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- }
++-;
++-location
++- : tktk_dot
++- {/*0 dot*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)location00;
++- $$->_callbackname="location00.dot";
++- }
++- | tktk_dotdot
++- {/*1 dotdot*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)location01;
++- $$->_callbackname="location01.dotdot";
++- }
++- | tktk_integer
++- {/*10 intp*/
++- $$=BASICINTEGER((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- $$->_callback=(void*)location10;
++- $$->_callbackname="location10.intp";
++- }
++- | tktk_real
++- {/*7 realp*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- $$->_callback=(void*)location07;
++- $$->_callbackname="location07.realp";
++- }
++- | tktk_ident
++- {/*3 ident*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- if(($$->_text->_admse==admse_past_name)||($$->_text->_admse==admse_datatypefamily))
++- {
++- $$->_callback=(void*)location03dummy;
++- $$->_callbackname="location03dummy";
++- }
++- else
++- {
++- $$->_callback=(void*)location03;
++- $$->_callbackname="location03";
++- }
++- }
++- | tktk_index
++- {/*3 ident.index*/
++- $$=BASICSTRING((p_pparse)mypparse,"index");
++- $$->_callback=(void*)location03;
++- $$->_callbackname="location03.ident.index";
++- }
++- | tktk_kdollarvariable
++- {/*4 kdollar*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- $$->_callback=(void*)location04;
++- $$->_callbackname="location04.kdollar";
++- }
++- | tktk_karobavariable
++- {/*5 karoba*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- $$->_callback=(void*)location05;
++- $$->_callbackname="location05.karoba";
++- }
++- | tktk_kcroixvariable
++- {/*13 kcroix*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- $$->_callback=(void*)location13;
++- $$->_callbackname="location13.kcroix";
++- }
++- | tktk_kcroixcroixvariable
++- {/*12 kcroixcroix*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- $$->_callback=(void*)location12;
++- $$->_callbackname="location12.kcroixcroix";
++- }
++- | tktk_dollarvariable atext tktk_closeE
++- {/*4 dollar*/
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"$");
++- mytext->_token=adms_slist_reverse($2);
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,mytext);
++- $$->_callback=(void*)location04;
++- $$->_callbackname="location04.dollar";
++- }
++- | tktk_arobavariable atext tktk_closeE
++- {/*5 aroba*/
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"@");
++- mytext->_token=adms_slist_reverse($2);
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,mytext);
++- $$->_callback=(void*)location05;
++- $$->_callbackname="location05.aroba";
++- }
++- | tktk_croixvariable atext tktk_closeE
++- {/*13 croix*/
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"#");
++- mytext->_token=adms_slist_reverse($2);
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,mytext);
++- $$->_callback=(void*)location13;
++- $$->_callbackname="location13.croix";
++- }
++- | tktk_croixcroixvariable atext tktk_closeE
++- {/*12 croixcroix*/
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"##");
++- mytext->_token=adms_slist_reverse($2);
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,mytext);
++- $$->_callback=(void*)location12;
++- $$->_callbackname="location12.croixcroix";
++- }
++- | quotedstring
++- {/*9 q*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_text=$1;
++- if((adms_slist_length($$->_text->_token)==1)&&($$->_text->_token->data->_datatypename==admse_admst))
++- {
++- $$->_callback=(void*)location09k;
++- $$->_callbackname="location09k.q";
++- }
++- else
++- {
++- $$->_callback=(void*)location09;
++- $$->_callbackname="location09.q";
++- }
++- }
++- | identifier tktk_openE pathroot tktk_closeE
++- {/*2 function.ident*/
++- $$=$1;
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location02;
++- $$->_callbackname="location02.function.ident";
++- }
++- | tktk_uid tktk_openE pathroot tktk_closeE
++- {/*20 function.uid*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location20;
++- $$->_callbackname="location20.function.uid";
++- }
++- | tktk_id tktk_openE pathroot tktk_closeE
++- {/*21 function.id*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location21;
++- $$->_callbackname="location21.function.id";
++- }
++- | tktk_sort tktk_openE pathroot tktk_closeE
++- {/*22 function.sort*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location22;
++- $$->_callbackname="location22.function.sort";
++- }
++- | tktk_reverse tktk_openE pathroot tktk_closeE
++- {/*23 function.reverse*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location23;
++- $$->_callbackname="location23.function.reverse";
++- }
++- | tktk_upper_mcase tktk_openE pathroot tktk_closeE
++- {/*24 function.uc*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location24;
++- $$->_callbackname="location24.function.uc";
++- }
++- | tktk_lower_mcase tktk_openE pathroot tktk_closeE
++- {/*25 function.lc*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location25;
++- $$->_callbackname="location25.function.lc";
++- }
++- | tktk_count tktk_openE pathroot tktk_closeE
++- {/*27 function.count*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location27;
++- $$->_callbackname="location27.function.count";
++- }
++- | tktk_admst tktk_openE tktk_dot tktk_closeE
++- {/*14 function.admst*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)location14;
++- $$->_callbackname="location14.function.admst";
++- }
++- | tktk_index tktk_openE pathroot tktk_comma pathroot tktk_closeE
++- {/*19 function.index*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- adms_slist_push(&$$->_u,(p_adms)$5);
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- $$->_callback=(void*)location19;
++- $$->_callbackname="location19.function.index";
++- }
++- | tktk_text tktk_openE quotedstring tktk_closeE
++- {/*26 function.text*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_text=$3;
++- $$->_callback=(void*)location26;
++- $$->_callbackname="location26.function.text";
++- }
++- | tktk_returned tktk_openE quotedstring tktk_closeE
++- {/*15 function.returned*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_text=$3;
++- $$->_callback=(void*)location15;
++- $$->_callbackname="location15.function.returned";
++- }
++- | tktk_position tktk_openE tktk_dot tktk_closeE
++- {/*18 function.pos*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)location18;
++- $$->_callbackname="location18.function.pos";
++- }
++- | tktk_croixstar
++- {/*130 croixstar*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)location130;
++- $$->_callbackname="location130.croixstar";
++- }
++- | tktk_ticptr
++- {/*200 ticptr*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"'%p'");
++- adms_slist_push(&(mytext->_token),(p_adms)adms_admst_newks(adms_kclone("%p")));
++- mytext->_admse=admse__p;
++- $$->_text=mytext;
++- $$->_callback=(void*)location200;
++- $$->_callbackname="location200.ticptr";
++- }
++-;
++-quotedstring
++- : tktk_oquote atext tktk_cquote
++- {/*0*/
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"qtext");
++- mytext->_token=adms_slist_reverse($2);
++- if(adms_slist_length(mytext->_token)==1)
++- {
++- if(mytext->_token->data->_datatypename==admse_path)
++- mytext->_admse=admse__path;
++- else if(mytext->_token->data->_datatypename==admse_admst)
++- mytext->_admse=ns_strtoe(((p_admst)mytext->_token->data)->_item.s);
++- }
++- $$=mytext;
++- }
++- | tktk_oquote tktk_cquote
++- {/*1*/
++- p_text mytext=adms_text_new(((p_pparse)mypparse)->_transform,"");
++- adms_slist_push(&(mytext->_token),(p_adms)adms_admst_newks(adms_kclone("")));
++- $$=mytext;
++- }
++-;
++-atext
++- : atextitem
++- {/*0*/
++- $$=NULL;
++- adms_slist_push(&$$,(p_adms)$1);
++- }
++- | atext atextitem
++- {/*1*/
++- $$=$1;
++- adms_slist_push(&$$,(p_adms)$2);
++- }
++-;
++-atextitem
++- : tktk_cr
++- {/*0*/
++- $$=(p_path)adms_admst_newks(adms_kclone("\n"));
++- }
++- | tktk_lf
++- {/*1*/
++- $$=(p_path)adms_admst_newks(adms_kclone("\r"));
++- }
++- | tktk_tab
++- {/*2*/
++- $$=(p_path)adms_admst_newks(adms_kclone("\t"));
++- }
++- | tktk_anytext
++- {/*3*/
++- $$=(p_path)adms_admst_newks(adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- }
++- | tktk_percents
++- {/*4*/
++- $$=(p_path)adms_text_new(((p_pparse)mypparse)->_transform,"%s");
++- ((p_text)$$)->_admse=admse__s;
++- }
++- | tktk_dollarvariable atext tktk_closeE
++- {/*5*/
++- $$=(p_path)adms_text_new(((p_pparse)mypparse)->_transform,"$");
++- ((p_text)$$)->_token=adms_slist_reverse($2);
++- }
++- | tktk_kdollarvariable
++- {/*6*/
++- char* mytvalue=adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen);
++- $$=(p_path)adms_text_new(((p_pparse)mypparse)->_transform,"$");
++- adms_slist_push(&(((p_text)$$)->_token),(p_adms)adms_admst_newks(mytvalue));
++- }
++- | tktk_percent pathroot tktk_closeE
++- {/*7*/
++- $$=$2;
++- }
++-;
++-condition
++- : tktk_openCond expression tktk_closeCond
++- {/*0*/
++- $$=$2;
++- }
++-;
++-expression
++- : binaryor
++- {/*0*/
++- $$=$1;
++- }
++- | pathroot
++- {/*1*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)expression01;
++- $$->_callbackname="expression01";
++- adms_slist_push(&$$->_u,(p_adms)$1);
++- }
++-;
++-binaryor
++- : binaryand
++- {/*0*/
++- $$=$1;
++- }
++- | binaryor tktk_or binaryand
++- {/*1*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)binaryor;
++- $$->_callbackname="binaryor";
++- adms_slist_push(&$$->_b,(p_adms)$3);
++- adms_slist_push(&$$->_b,(p_adms)$1);
++- }
++-;
++-binaryand
++- : unary
++- {/*0*/
++- $$=$1;
++- }
++- | binaryand tktk_and unary
++- {/*1*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)binaryand;
++- $$->_callbackname="binaryand";
++- adms_slist_push(&$$->_b,(p_adms)$3);
++- adms_slist_push(&$$->_b,(p_adms)$1);
++- }
++-;
++-unary
++- : atomic
++- {/*0*/
++- $$=$1;
++- }
++- | tktk_not atomic
++- {/*1*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)unary00;
++- $$->_callbackname="unary00";
++- adms_slist_push(&$$->_u,(p_adms)$2);
++- }
++-;
++-atomic
++- : tktk_openE binaryor tktk_closeE
++- {/*3 groupage*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomicgroupage;
++- $$->_callbackname="atomicgroupage";
++- adms_slist_push(&$$->_u,(p_adms)$2);
++- }
++- | pathroot tktk_equal pathroot
++- {/*8 eq*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomiceq;
++- $$->_callbackname="atomiceq";
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- adms_slist_push(&$$->_u,(p_adms)$1);
++- }
++- | pathroot tktk_notequal pathroot
++- {/*9 ne*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomicne;
++- $$->_callbackname="atomicne";
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- adms_slist_push(&$$->_u,(p_adms)$1);
++- }
++- | pathroot tktk_lt pathroot
++- {/*10 lt*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomiclt;
++- $$->_callbackname="atomiclt";
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- adms_slist_push(&$$->_u,(p_adms)$1);
++- }
++- | pathroot tktk_gt pathroot
++- {/*11 gt*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomicgt;
++- $$->_callbackname="atomicgt";
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- adms_slist_push(&$$->_u,(p_adms)$1);
++- }
++- | tktk_nilled tktk_openE pathroot tktk_closeE
++- {/*0 nilled*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomicnilled;
++- $$->_callbackname="atomicnilled";
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- }
++- | tktk_exists tktk_openE pathroot tktk_closeE
++- {/*1 exists*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomicexists;
++- $$->_callbackname="atomicexists";
++- adms_slist_push(&$$->_u,(p_adms)$3);
++- }
++- | tktk_isdefault tktk_openE tktk_ident tktk_closeE
++- {/*2 isdefault*/
++- $$=BASICSTRING((p_pparse)mypparse,adms_knclone(((p_pparse)mypparse)->_tkstart,((p_pparse)mypparse)->_tklen));
++- $$->_callback=(void*)atomicisdefault;
++- $$->_callbackname="atomicisdefault";
++- }
++- | tktk_true tktk_openE tktk_closeE
++- {/*5 true*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomictrue;
++- $$->_callbackname="atomictrue";
++- }
++- | tktk_false tktk_openE tktk_closeE
++- {/*6 false*/
++- $$=adms_path_new(((p_pparse)mypparse)->_transform,NULL);
++- $$->_callback=(void*)atomicfalse;
++- $$->_callbackname="atomicfalse";
++- }
++-;
++-
++-%%
++-static const char* tparsecb (p_pparse mypparse)
++-{
++- const char* t=mypparse->_position;
++- mypparse->_tkstart=t;
++- if(0) {}
++- else if(*t=='\''&&INSIDEPATH)
++- {
++- adms_slist_pull(&globalctxt);
++- t+=1, mypparse->_tkid=tktk_cquote;
++- }
++- else if(*t=='%')
++- {
++- if(*(t+1)=='\0')
++- t+=1, mypparse->_tkid=tktk_anytext;
++- else if(*(t+1)=='s')
++- t+=2, mypparse->_tkid=tktk_percents;
++- else if(*(t+1)=='%')
++- {
++- mypparse->_tkstart=t+1;
++- t+=2, mypparse->_tkid=tktk_anytext;
++- }
++- else if(*(t+1)=='(')
++- {
++- paren++; adms_slist_push(&parenidx,(p_adms)(long)paren); SETPATH
++- mypparse->_tkstart=t+2;
++- t+=2, mypparse->_tkid=tktk_percent;
++- }
++- else
++- t+=2, mypparse->_tkid=tktk_anytext;
++- }
++- else if(*t=='\\')
++- {
++- if(*(t+1)=='\0')
++- t+=1, mypparse->_tkid=tktk_anytext;
++- if(*(t+1)=='n')
++- t+=2, mypparse->_tkid=tktk_cr;
++- else if(*(t+1)=='r')
++- t+=2, mypparse->_tkid=tktk_cr;
++- else if(*(t+1)=='t')
++- t+=2, mypparse->_tkid=tktk_tab;
++- else
++- {
++- mypparse->_tkstart=t+1;
++- t+=2, mypparse->_tkid=tktk_anytext;
++- }
++- }
++- else if(*t=='$')
++- {
++- if(*(t+1)=='\0')
++- t+=1, mypparse->_tkid=tktk_anytext;
++- if(*(t+1)=='(')
++- {
++- paren++; adms_slist_push(&parenidx,(p_adms)(long)paren); SETTEXT
++- mypparse->_tkstart=t+2;
++- t+=2, mypparse->_tkid=tktk_dollarvariable;
++- }
++- else
++- {
++- mypparse->_tkstart=t+1;
++- t++;
++- while(*t&&(isalnum(*t)||*t=='_'))
++- t++;
++- mypparse->_tkid=tktk_kdollarvariable;
++- }
++- }
++- else if(ISTEXT&&(*t==')'))
++- {
++- if(PARENMATCH)
++- {
++- t+=1, mypparse->_tkid=tktk_closeE, adms_slist_pull(&parenidx);
++- adms_slist_pull(&globalctxt);
++- }
++- else
++- t+=1, mypparse->_tkid=tktk_anytext;
++- paren--;
++- }
++- else
++- {
++- if(INSIDEPATH)
++- {
++- if(ISTEXT) while(*t&&(*t!=')')&&(*t!='\0')&&(*t!='%')&&(*t!='\\')&&(*t!='$')&&(*t!='\''))
++- {
++- if(*t=='(') paren++;
++- t++;
++- }
++- else if(ISTIC) while(*t&&(*t!='\0')&&(*t!='%')&&(*t!='\\')&&(*t!='$')&&(*t!='\''))
++- {
++- t++;
++- }
++- else
++- adms_message_fatal(("%s:'%s' unexpected error in apath parser - please report to r29173 at users.sourceforge.net\n",adms_transform_uid(mypparse->_transform),mypparse->_value))
++- }
++- else
++- {
++- if(ISTEXT) while(*t&&(*t!=')')&&(*t!='\0')&&(*t!='%')&&(*t!='\\')&&(*t!='$'))
++- {
++- if(*t=='(') paren++;
++- t++;
++- }
++- else if(ISTIC) while(*t&&(*t!='\0')&&(*t!='%')&&(*t!='\\')&&(*t!='$'))
++- {
++- t++;
++- }
++- else
++- adms_message_fatal(("%s:'%s' unexpected error in apath parser - please report to r29173 at users.sourceforge.net\n",adms_transform_uid(mypparse->_transform),mypparse->_value))
++- }
++- mypparse->_tkid=tktk_anytext;
++- }
++- mypparse->_tklen=(int)(long)(t-mypparse->_tkstart);
++- return t;
++-}
++-static int admstpathlex (p_pparse mypparse)
++-{
++- const char* t=mypparse->_position;
++- const char* tstart;
++- if(*t=='\0')
++- return 0;
++- if(goto_atext)
++- {
++- goto_atext=0;
++- return tktk_goto_atext;
++- }
++- while(*t&&isspace(*t)) t++;
++- tstart=t;
++- if(!strncmp(t,"\'%p\'",4)&&!isalpha(*(t+4)))
++- t+=4, mypparse->_tkid=tktk_ticptr;
++- else if(!ISPATH)
++- t=tparsecb(mypparse);
++- else if(!strncmp(t,"(",1))
++- {
++- t+=1, mypparse->_tkid=tktk_openE;
++- paren++;
++- }
++- else if(!strncmp(t,")",1))
++- {
++- if(PARENMATCH)
++- {
++- t+=1, mypparse->_tkid=tktk_closeE, adms_slist_pull(&parenidx);
++- adms_slist_pull(&globalctxt);
++- }
++- else
++- t+=1, mypparse->_tkid=tktk_closeE;
++- paren--;
++- }
++- else if(*t=='$'&&*(t+1)=='(')
++- {
++- t++;
++- t++;
++- paren++; adms_slist_push(&parenidx,(p_adms)(long)paren); SETTEXT
++- mypparse->_tkid=tktk_dollarvariable;
++- }
++- else if(*t=='$')
++- {
++- t++;
++- while(isalnum(*t)||*t=='_') t++;
++- mypparse->_tkstart=tstart+1;
++- mypparse->_tklen=(int)(long)(t-(tstart+1));
++- mypparse->_tkid=tktk_kdollarvariable;
++- }
++- else if(*t=='@'&&*(t+1)=='(')
++- {
++- t++;
++- t++;
++- paren++; adms_slist_push(&parenidx,(p_adms)(long)paren); SETTEXT
++- mypparse->_tkid=tktk_arobavariable;
++- }
++- else if(*t=='@')
++- {
++- t++;
++- while(isalnum(*t)||*t=='_') t++;
++- mypparse->_tkstart=tstart+1;
++- mypparse->_tklen=(int)(long)(t-(tstart+1));
++- mypparse->_tkid=tktk_karobavariable;
++- }
++- else if(*t=='#'&&*(t+1)=='#'&&*(t+2)=='(')
++- {
++- t++;
++- t++;
++- t++;
++- paren++; adms_slist_push(&parenidx,(p_adms)(long)paren); SETTEXT
++- mypparse->_tkid=tktk_croixcroixvariable;
++- }
++- else if(*t=='#'&&*(t+1)=='*')
++- {
++- t++;
++- t++;
++- while(isalnum(*t)||*t=='_') t++;
++- mypparse->_tkstart=tstart+1;
++- mypparse->_tklen=(int)(long)(t-(tstart+1));
++- mypparse->_tkid=tktk_croixstar;
++- }
++- else if(*t=='#'&&*(t+1)=='#')
++- {
++- t++;
++- t++;
++- while(isalnum(*t)||*t=='_') t++;
++- mypparse->_tkstart=tstart+1;
++- mypparse->_tklen=(int)(long)(t-(tstart+1));
++- mypparse->_tkid=tktk_kcroixcroixvariable;
++- }
++- else if(*t=='#'&&*(t+1)=='(')
++- {
++- t++;
++- t++;
++- paren++; adms_slist_push(&parenidx,(p_adms)(long)paren); SETTEXT
++- mypparse->_tkid=tktk_croixvariable;
++- }
++- else if(*t=='#')
++- {
++- t++;
++- while(isalnum(*t)||*t=='_') t++;
++- mypparse->_tkstart=tstart+1;
++- mypparse->_tklen=(int)(long)(t-(tstart+1));
++- mypparse->_tkid=tktk_kcroixvariable;
++- }
++- else if(*t=='\'')
++- {
++- SETTIC
++- t+=1, mypparse->_tkid=tktk_oquote;
++- }
++- else if(!strncmp(t,"!=",2))
++- t+=2, mypparse->_tkid=tktk_notequal;
++- else if(!strncmp(t,">",1))
++- t+=1, mypparse->_tkid=tktk_gt;
++- else if(!strncmp(t,"<",1))
++- t+=1, mypparse->_tkid=tktk_lt;
++- else if(!strncmp(t,"*",1))
++- t+=1, mypparse->_tkid=tktk_star;
++- else if(!strncmp(t,"++",2))
++- t+=2, mypparse->_tkid=tktk_incrp;
++- else if(!strncmp(t,"--",2))
++- t+=2, mypparse->_tkid=tktk_incrm;
++- else if(!strncmp(t,"+",1))
++- t+=1, mypparse->_tkid=tktk_addp;
++- else if(!strncmp(t,":",1))
++- t+=1, mypparse->_tkid=tktk_column;
++- else if(!strncmp(t,",",1))
++- t+=1, mypparse->_tkid=tktk_comma;
++- else if(!strncmp(t,"|",1))
++- t+=1, mypparse->_tkid=tktk_bar;
++- else if(!strncmp(t,"-",1))
++- t+=1, mypparse->_tkid=tktk_addm;
++- else if(!strncmp(t,"..",2))
++- t+=2, mypparse->_tkid=tktk_dotdot;
++- else if(!strncmp(t,".",1))
++- t+=1, mypparse->_tkid=tktk_dot;
++- else if(!strncmp(t,"/",1))
++- t+=1, mypparse->_tkid=tktk_slash;
++- else if(!strncmp(t,"=",1))
++- t+=1, mypparse->_tkid=tktk_equal;
++- else if(!strncmp(t,"[",1))
++- t+=1, mypparse->_tkid=tktk_openCond;
++- else if(!strncmp(t,"]",1))
++- t+=1, mypparse->_tkid=tktk_closeCond;
++- else if(!strncmp(t,"admst",5)&&!isalpha(*(t+5)))
++- t+=5, mypparse->_tkid=tktk_admst;
++- else if(!strncmp(t,"and",3)&&!isalpha(*(t+3)))
++- t+=3, mypparse->_tkid=tktk_and;
++- else if(!strncmp(t,"count",5)&&!isalpha(*(t+5)))
++- t+=5, mypparse->_tkid=tktk_count;
++- else if(!strncmp(t,"exists",6)&&!isalpha(*(t+6)))
++- t+=6, mypparse->_tkid=tktk_exists;
++- else if(!strncmp(t,"false",5)&&!isalpha(*(t+5)))
++- t+=5, mypparse->_tkid=tktk_false;
++- else if(!strncmp(t,"id",2)&&!isalpha(*(t+2)))
++- t+=2, mypparse->_tkid=tktk_id;
++- else if(!strncmp(t,"index",5)&&!isalpha(*(t+5)))
++- t+=5, mypparse->_tkid=tktk_index;
++- else if(!strncmp(t,"isdefault",9)&&!isalpha(*(t+9)))
++- t+=9, mypparse->_tkid=tktk_isdefault;
++- else if(!strncmp(t,"lower-case",10)&&!isalpha(*(t+10)))
++- t+=10, mypparse->_tkid=tktk_lower_mcase;
++- else if(!strncmp(t,"nilled",6)&&!isalpha(*(t+6)))
++- t+=6, mypparse->_tkid=tktk_nilled;
++- else if(!strncmp(t,"not",3)&&!isalpha(*(t+3)))
++- t+=3, mypparse->_tkid=tktk_not;
++- else if(!strncmp(t,"or",2)&&!isalpha(*(t+2)))
++- t+=2, mypparse->_tkid=tktk_or;
++- else if(!strncmp(t,"position",8)&&!isalpha(*(t+8)))
++- t+=8, mypparse->_tkid=tktk_position;
++- else if(!strncmp(t,"returned",8)&&!isalpha(*(t+8)))
++- t+=8, mypparse->_tkid=tktk_returned;
++- else if(!strncmp(t,"reverse",7)&&!isalpha(*(t+7)))
++- t+=7, mypparse->_tkid=tktk_reverse;
++- else if(!strncmp(t,"sort",4)&&!isalpha(*(t+4)))
++- t+=4, mypparse->_tkid=tktk_sort;
++- else if(!strncmp(t,"text",4)&&!isalpha(*(t+4)))
++- t+=4, mypparse->_tkid=tktk_text;
++- else if(!strncmp(t,"true",4)&&!isalpha(*(t+4)))
++- t+=4, mypparse->_tkid=tktk_true;
++- else if(!strncmp(t,"uid",3)&&!isalpha(*(t+3)))
++- t+=3, mypparse->_tkid=tktk_uid;
++- else if(!strncmp(t,"upper-case",10)&&!isalpha(*(t+10)))
++- t+=10, mypparse->_tkid=tktk_upper_mcase;
++- else if(isalpha(*t))
++- {
++- while(isalnum(*t)||*t=='_'||*t==':') t++;
++- mypparse->_tkid=tktk_ident;
++- mypparse->_tkstart=tstart;
++- mypparse->_tklen=(int)(long)(t-tstart);
++- }
++- else if(isdigit(*t))
++- {
++- while(isdigit(*t)) t++;
++- if(*t=='.')
++- {
++- t++;
++- while(isdigit(*t)) t++;
++- mypparse->_tkid=tktk_real;
++- mypparse->_tkstart=tstart;
++- mypparse->_tklen=(int)(long)(t-tstart);
++- }
++- else
++- {
++- mypparse->_tkid=tktk_integer;
++- mypparse->_tkstart=tstart;
++- mypparse->_tklen=(int)(long)(t-tstart);
++- }
++- }
++- else
++- {
++- if(*t=='\0')
++- return 0;
++- adms_message_fatal(("%s: invalid path - unexpected character: %s\n",
++- adms_transform_uid(mypparse->_transform),
++- mypparse->_value))
++- }
++- mypparse->_position=t;
++- return mypparse->_tkid;
++-}
++-p_path pparse (p_transform mytransform,const char* aname,const char* avalue)
++-{
++- p_path mypath;
++- p_pparse mypparse=adms_pparse_new(mytransform,aname,avalue);
++- goto_atext=0;
++- SETPATH
++- globalignorequote=0;
++- if(*avalue)
++- {
++- mypparse->_position=avalue;
++- admstpathparse (mypparse);
++- mypath=mypparse->_path;
++- mypath->_aname=adms_kclone(aname);
++- mypath->_avalue=avalue?adms_kclone(avalue):adms_kclone("");
++- }
++- else
++- {
++- mypath=NULL;
++- adms_message_fatal_continue(("invalid path \"%s\"\n",mypparse->_value))
++- adms_message_fatal(("see %s\n",adms_transform_uid(mypparse->_transform)))
++- }
++- adms_slist_pull(&globalctxt);
++- adms_pparse_free(mypparse);
++- return mypath;
++-}
++-p_text tparse (p_ktransform mytransform, const char* aname, const char* avalue)
++-{
++- p_text mytext;
++- if(!avalue)
++- mytext=adms_text_new(mytransform,avalue);
++- else if(*avalue=='\0')
++- {
++- p_text mytext=adms_text_new(mytransform,avalue);
++- adms_slist_push(&(mytext->_token),(p_adms)adms_admst_newks(adms_kclone("")));
++- return mytext;
++- }
++- else
++- {
++- p_pparse mypparse=adms_pparse_new(mytransform,aname,avalue);
++- SETTIC
++- goto_atext=1;
++- globalignorequote=1;
++- mypparse->_position=avalue;
++- admstpathparse (mypparse);
++- mytext=mypparse->_text;
++- adms_pparse_free(mypparse);
++- mytext->_value=adms_kclone(avalue);
++- adms_slist_pull(&globalctxt);
++- }
++- mytext->_admse=ns_strtoe(avalue);
++- if((adms_slist_length(mytext->_token)==1)&&(mytext->_token->data->_datatypename==admse_path))
++- mytext->_admse=admse__path;
++- else if(!strcmp(avalue,"%p"))
++- mytext->_admse=admse__p;
++- mytext->_aname=adms_kclone(aname);
++- return mytext;
++-}
++-int apath_main (int argc,char **argv)
++-{
++- int argci;
++- int doatext=0;
++- char*avalue=(argc==1)?"a/b/c|c|c|c":argv[1];
++- for(argci=1;argci<argc;argci++)
++- {
++-#if YYDEBUG
++- admstpathdebug=admstpathdebug||!strcmp("-d",argv[argci]);
++-#endif
++- doatext=!strcmp("-t",argv[argci]);
++- }
++- printf("parsing=%s\n",doatext?"text":"apath");
++- goto_atext=doatext;
++- printf("%s \"%s\"\n",argv[0],avalue);
++- rootnew(adms_admsmain_new("admsmain"));
++- if(doatext)
++- dbtext(tparse(adms_transform_new("<stdin>","<stdin>",0,"*",NULL),"input:text",avalue));
++- else
++- {
++- char*aname="stdin";
++- p_pparse mypparse=adms_pparse_new(adms_transform_new("<stdin>","<stdin>",0,"*",NULL),aname,avalue);
++- mypparse->_position=avalue;
++- SETPATH
++- globalignorequote=0;
++- admstpathparse (mypparse);
++- printf("<p id=\"%s\">",avalue);
++- mypparse->_path->_aname=adms_kclone(aname);
++- postpath(mypparse->_path);
++- dbpath(mypparse->_path);
++- printf("</p>\n");
++- }
++- return 0;
++-}
++diff --git a/admsXml/preprocessorLex.c b/admsXml/preprocessorLex.c
++deleted file mode 100644
++index e4cdb26..0000000
++--- a/admsXml/preprocessorLex.c
+++++ /dev/null
++@@ -1,3196 +0,0 @@
++-#line 2 "preprocessorLex.c"
++-
++-#line 4 "preprocessorLex.c"
++-
++-#define YY_INT_ALIGNED short int
++-
++-/* A lexical scanner generated by flex */
++-
++-#define yy_create_buffer preprocessor_create_buffer
++-#define yy_delete_buffer preprocessor_delete_buffer
++-#define yy_flex_debug preprocessor_flex_debug
++-#define yy_init_buffer preprocessor_init_buffer
++-#define yy_flush_buffer preprocessor_flush_buffer
++-#define yy_load_buffer_state preprocessor_load_buffer_state
++-#define yy_switch_to_buffer preprocessor_switch_to_buffer
++-#define yyin preprocessorin
++-#define yyleng preprocessorleng
++-#define yylex preprocessorlex
++-#define yylineno preprocessorlineno
++-#define yyout preprocessorout
++-#define yyrestart preprocessorrestart
++-#define yytext preprocessortext
++-#define yywrap preprocessorwrap
++-#define yyalloc preprocessoralloc
++-#define yyrealloc preprocessorrealloc
++-#define yyfree preprocessorfree
++-
++-#define FLEX_SCANNER
++-#define YY_FLEX_MAJOR_VERSION 2
++-#define YY_FLEX_MINOR_VERSION 5
++-#define YY_FLEX_SUBMINOR_VERSION 37
++-#if YY_FLEX_SUBMINOR_VERSION > 0
++-#define FLEX_BETA
++-#endif
++-
++-/* First, we deal with platform-specific or compiler-specific issues. */
++-
++-/* begin standard C headers. */
++-#include <stdio.h>
++-#include <string.h>
++-#include <errno.h>
++-#include <stdlib.h>
++-
++-/* end standard C headers. */
++-
++-/* flex integer type definitions */
++-
++-#ifndef FLEXINT_H
++-#define FLEXINT_H
++-
++-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
++-
++-#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
++-
++-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
++- * if you want the limit (max/min) macros for int types.
++- */
++-#ifndef __STDC_LIMIT_MACROS
++-#define __STDC_LIMIT_MACROS 1
++-#endif
++-
++-#include <inttypes.h>
++-typedef int8_t flex_int8_t;
++-typedef uint8_t flex_uint8_t;
++-typedef int16_t flex_int16_t;
++-typedef uint16_t flex_uint16_t;
++-typedef int32_t flex_int32_t;
++-typedef uint32_t flex_uint32_t;
++-#else
++-typedef signed char flex_int8_t;
++-typedef short int flex_int16_t;
++-typedef int flex_int32_t;
++-typedef unsigned char flex_uint8_t;
++-typedef unsigned short int flex_uint16_t;
++-typedef unsigned int flex_uint32_t;
++-
++-/* Limits of integral types. */
++-#ifndef INT8_MIN
++-#define INT8_MIN (-128)
++-#endif
++-#ifndef INT16_MIN
++-#define INT16_MIN (-32767-1)
++-#endif
++-#ifndef INT32_MIN
++-#define INT32_MIN (-2147483647-1)
++-#endif
++-#ifndef INT8_MAX
++-#define INT8_MAX (127)
++-#endif
++-#ifndef INT16_MAX
++-#define INT16_MAX (32767)
++-#endif
++-#ifndef INT32_MAX
++-#define INT32_MAX (2147483647)
++-#endif
++-#ifndef UINT8_MAX
++-#define UINT8_MAX (255U)
++-#endif
++-#ifndef UINT16_MAX
++-#define UINT16_MAX (65535U)
++-#endif
++-#ifndef UINT32_MAX
++-#define UINT32_MAX (4294967295U)
++-#endif
++-
++-#endif /* ! C99 */
++-
++-#endif /* ! FLEXINT_H */
++-
++-#ifdef __cplusplus
++-
++-/* The "const" storage-class-modifier is valid. */
++-#define YY_USE_CONST
++-
++-#else /* ! __cplusplus */
++-
++-/* C99 requires __STDC__ to be defined as 1. */
++-#if defined (__STDC__)
++-
++-#define YY_USE_CONST
++-
++-#endif /* defined (__STDC__) */
++-#endif /* ! __cplusplus */
++-
++-#ifdef YY_USE_CONST
++-#define yyconst const
++-#else
++-#define yyconst
++-#endif
++-
++-/* Returned upon end-of-file. */
++-#define YY_NULL 0
++-
++-/* Promotes a possibly negative, possibly signed char to an unsigned
++- * integer for use as an array index. If the signed char is negative,
++- * we want to instead treat it as an 8-bit unsigned char, hence the
++- * double cast.
++- */
++-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
++-
++-/* Enter a start condition. This macro really ought to take a parameter,
++- * but we do it the disgusting crufty way forced on us by the ()-less
++- * definition of BEGIN.
++- */
++-#define BEGIN (yy_start) = 1 + 2 *
++-
++-/* Translate the current start state into a value that can be later handed
++- * to BEGIN to return to the state. The YYSTATE alias is for lex
++- * compatibility.
++- */
++-#define YY_START (((yy_start) - 1) / 2)
++-#define YYSTATE YY_START
++-
++-/* Action number for EOF rule of a given start state. */
++-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
++-
++-/* Special action meaning "start processing a new file". */
++-#define YY_NEW_FILE preprocessorrestart(preprocessorin )
++-
++-#define YY_END_OF_BUFFER_CHAR 0
++-
++-/* Size of default input buffer. */
++-#ifndef YY_BUF_SIZE
++-#define YY_BUF_SIZE 16384
++-#endif
++-
++-/* The state buf must be large enough to hold one state per character in the main buffer.
++- */
++-#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
++-
++-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
++-#define YY_TYPEDEF_YY_BUFFER_STATE
++-typedef struct yy_buffer_state *YY_BUFFER_STATE;
++-#endif
++-
++-#ifndef YY_TYPEDEF_YY_SIZE_T
++-#define YY_TYPEDEF_YY_SIZE_T
++-typedef size_t yy_size_t;
++-#endif
++-
++-extern yy_size_t preprocessorleng;
++-
++-extern FILE *preprocessorin, *preprocessorout;
++-
++-#define EOB_ACT_CONTINUE_SCAN 0
++-#define EOB_ACT_END_OF_FILE 1
++-#define EOB_ACT_LAST_MATCH 2
++-
++- #define YY_LESS_LINENO(n)
++-
++-/* Return all but the first "n" matched characters back to the input stream. */
++-#define yyless(n) \
++- do \
++- { \
++- /* Undo effects of setting up preprocessortext. */ \
++- int yyless_macro_arg = (n); \
++- YY_LESS_LINENO(yyless_macro_arg);\
++- *yy_cp = (yy_hold_char); \
++- YY_RESTORE_YY_MORE_OFFSET \
++- (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
++- YY_DO_BEFORE_ACTION; /* set up preprocessortext again */ \
++- } \
++- while ( 0 )
++-
++-#define unput(c) yyunput( c, (yytext_ptr) )
++-
++-#ifndef YY_STRUCT_YY_BUFFER_STATE
++-#define YY_STRUCT_YY_BUFFER_STATE
++-struct yy_buffer_state
++- {
++- FILE *yy_input_file;
++-
++- char *yy_ch_buf; /* input buffer */
++- char *yy_buf_pos; /* current position in input buffer */
++-
++- /* Size of input buffer in bytes, not including room for EOB
++- * characters.
++- */
++- yy_size_t yy_buf_size;
++-
++- /* Number of characters read into yy_ch_buf, not including EOB
++- * characters.
++- */
++- yy_size_t yy_n_chars;
++-
++- /* Whether we "own" the buffer - i.e., we know we created it,
++- * and can realloc() it to grow it, and should free() it to
++- * delete it.
++- */
++- int yy_is_our_buffer;
++-
++- /* Whether this is an "interactive" input source; if so, and
++- * if we're using stdio for input, then we want to use getc()
++- * instead of fread(), to make sure we stop fetching input after
++- * each newline.
++- */
++- int yy_is_interactive;
++-
++- /* Whether we're considered to be at the beginning of a line.
++- * If so, '^' rules will be active on the next match, otherwise
++- * not.
++- */
++- int yy_at_bol;
++-
++- int yy_bs_lineno; /**< The line count. */
++- int yy_bs_column; /**< The column count. */
++-
++- /* Whether to try to fill the input buffer when we reach the
++- * end of it.
++- */
++- int yy_fill_buffer;
++-
++- int yy_buffer_status;
++-
++-#define YY_BUFFER_NEW 0
++-#define YY_BUFFER_NORMAL 1
++- /* When an EOF's been seen but there's still some text to process
++- * then we mark the buffer as YY_EOF_PENDING, to indicate that we
++- * shouldn't try reading from the input source any more. We might
++- * still have a bunch of tokens to match, though, because of
++- * possible backing-up.
++- *
++- * When we actually see the EOF, we change the status to "new"
++- * (via preprocessorrestart()), so that the user can continue scanning by
++- * just pointing preprocessorin at a new input file.
++- */
++-#define YY_BUFFER_EOF_PENDING 2
++-
++- };
++-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
++-
++-/* Stack of input buffers. */
++-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
++-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
++-static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
++-
++-/* We provide macros for accessing buffer states in case in the
++- * future we want to put the buffer states in a more general
++- * "scanner state".
++- *
++- * Returns the top of the stack, or NULL.
++- */
++-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
++- ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
++- : NULL)
++-
++-/* Same as previous macro, but useful when we know that the buffer stack is not
++- * NULL or when we need an lvalue. For internal use only.
++- */
++-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
++-
++-/* yy_hold_char holds the character lost when preprocessortext is formed. */
++-static char yy_hold_char;
++-static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */
++-yy_size_t preprocessorleng;
++-
++-/* Points to current character in buffer. */
++-static char *yy_c_buf_p = (char *) 0;
++-static int yy_init = 0; /* whether we need to initialize */
++-static int yy_start = 0; /* start state number */
++-
++-/* Flag which is used to allow preprocessorwrap()'s to do buffer switches
++- * instead of setting up a fresh preprocessorin. A bit of a hack ...
++- */
++-static int yy_did_buffer_switch_on_eof;
++-
++-void preprocessorrestart (FILE *input_file );
++-void preprocessor_switch_to_buffer (YY_BUFFER_STATE new_buffer );
++-YY_BUFFER_STATE preprocessor_create_buffer (FILE *file,int size );
++-void preprocessor_delete_buffer (YY_BUFFER_STATE b );
++-void preprocessor_flush_buffer (YY_BUFFER_STATE b );
++-void preprocessorpush_buffer_state (YY_BUFFER_STATE new_buffer );
++-void preprocessorpop_buffer_state (void );
++-
++-static void preprocessorensure_buffer_stack (void );
++-static void preprocessor_load_buffer_state (void );
++-static void preprocessor_init_buffer (YY_BUFFER_STATE b,FILE *file );
++-
++-#define YY_FLUSH_BUFFER preprocessor_flush_buffer(YY_CURRENT_BUFFER )
++-
++-YY_BUFFER_STATE preprocessor_scan_buffer (char *base,yy_size_t size );
++-YY_BUFFER_STATE preprocessor_scan_string (yyconst char *yy_str );
++-YY_BUFFER_STATE preprocessor_scan_bytes (yyconst char *bytes,yy_size_t len );
++-
++-void *preprocessoralloc (yy_size_t );
++-void *preprocessorrealloc (void *,yy_size_t );
++-void preprocessorfree (void * );
++-
++-#define yy_new_buffer preprocessor_create_buffer
++-
++-#define yy_set_interactive(is_interactive) \
++- { \
++- if ( ! YY_CURRENT_BUFFER ){ \
++- preprocessorensure_buffer_stack (); \
++- YY_CURRENT_BUFFER_LVALUE = \
++- preprocessor_create_buffer(preprocessorin,YY_BUF_SIZE ); \
++- } \
++- YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
++- }
++-
++-#define yy_set_bol(at_bol) \
++- { \
++- if ( ! YY_CURRENT_BUFFER ){\
++- preprocessorensure_buffer_stack (); \
++- YY_CURRENT_BUFFER_LVALUE = \
++- preprocessor_create_buffer(preprocessorin,YY_BUF_SIZE ); \
++- } \
++- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
++- }
++-
++-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
++-
++-/* Begin user sect3 */
++-
++-typedef unsigned char YY_CHAR;
++-
++-FILE *preprocessorin = (FILE *) 0, *preprocessorout = (FILE *) 0;
++-
++-typedef int yy_state_type;
++-
++-extern int preprocessorlineno;
++-
++-int preprocessorlineno = 1;
++-
++-extern char *preprocessortext;
++-#define yytext_ptr preprocessortext
++-
++-static yy_state_type yy_get_previous_state (void );
++-static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
++-static int yy_get_next_buffer (void );
++-static void yy_fatal_error (yyconst char msg[] );
++-
++-/* Done after the current pattern has been matched and before the
++- * corresponding action - sets up preprocessortext.
++- */
++-#define YY_DO_BEFORE_ACTION \
++- (yytext_ptr) = yy_bp; \
++- preprocessorleng = (size_t) (yy_cp - yy_bp); \
++- (yy_hold_char) = *yy_cp; \
++- *yy_cp = '\0'; \
++- (yy_c_buf_p) = yy_cp;
++-
++-#define YY_NUM_RULES 77
++-#define YY_END_OF_BUFFER 78
++-/* This struct is not used in this scanner,
++- but its presence is necessary. */
++-struct yy_trans_info
++- {
++- flex_int32_t yy_verify;
++- flex_int32_t yy_nxt;
++- };
++-static yyconst flex_int16_t yy_acclist[329] =
++- { 0,
++- 10, 10, 78, 76, 77, 6, 76, 77, 5, 77,
++- 76, 77, 76, 77, 76, 77, 73, 76, 77, 74,
++- 76, 77, 75, 76, 77, 76, 77, 72, 76, 77,
++- 76, 77, 76, 77, 6, 76, 77, 76, 77, 76,
++- 77, 62, 77, 59, 62, 77, 77, 62, 77, 62,
++- 77, 68, 77, 63, 68, 77, 67, 77, 68, 77,
++- 68, 77, 68, 77, 57, 77, 55, 57, 77, 56,
++- 77, 57, 77, 57, 77, 54, 57, 77, 57, 77,
++- 77, 69, 77, 77, 23, 77, 21, 23, 77, 22,
++- 77, 23, 77, 23, 77, 23, 77,16402,16403, 10,
++-
++- 77, 11, 77, 10, 77, 27, 77, 24, 27, 77,
++- 25, 77, 27, 77, 27, 77, 30, 77, 40, 77,
++- 37, 40, 77, 39, 77, 40, 77, 40, 77, 51,
++- 77, 48, 51, 77,16425, 53, 77, 51, 77, 51,
++- 77, 45, 51, 77, 46, 51, 77, 47, 51, 77,
++- 51, 77, 44, 51, 77, 51, 77, 51, 77, 36,
++- 77, 35, 36, 77, 34, 36, 77, 33, 36, 77,
++- 32, 77, 32, 77, 31, 32, 77, 6, 4, 1,
++- 72, 8, 72, 2, 71,16454, 6, 71,16454, 71,
++- 16454, 71,16454, 71,16454, 59, 60, 63, 67, 64,
++-
++- 66, 55, 56, 54, 54, 58, 69, 21, 22,16402,
++- 16403, 8211, 8210, 20,16402,16403, 10, 11, 24, 25,
++- 26, 30, 28, 37, 39, 38, 48,16425, 8233, 53,
++- 44, 49, 44, 52, 43,16426, 35, 31, 31, 8,
++- 8262, 71,16454, 71,16454, 71,16454, 71,16454, 71,
++- 16454, 71,16454, 71,16454, 61, 64, 29, 49, 8234,
++- 43,16426, 7, 71,16454, 71,16454, 71,16454, 71,
++- 16454, 71,16454, 71,16454, 71,16454, 65, 50, 71,
++- 16454, 15, 71,16454, 71,16454, 71,16454, 71,16454,
++- 71,16454, 71,16454, 15, 71,16454, 16, 71,16454,
++-
++- 13, 71,16454, 71,16454, 71,16454, 12, 71,16454,
++- 16, 13, 12, 3, 9, 71,16454, 14, 71,16454,
++- 71,16454, 9, 14, 17, 71,16454, 17
++- } ;
++-
++-static yyconst flex_int16_t yy_accept[295] =
++- { 0,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 2, 3, 3, 3, 3, 3, 3,
++- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
++- 3, 3, 3, 3, 3, 3, 3, 3, 3, 4,
++- 6, 9, 11, 13, 15, 17, 20, 23, 26, 28,
++- 31, 33, 35, 38, 40, 42, 44, 47, 48, 50,
++- 52, 54, 57, 59, 61, 63, 65, 67, 70, 72,
++- 74, 76, 79, 81, 82, 84, 85, 87, 90, 92,
++- 94, 96, 100, 102, 104, 106, 108, 111, 113, 115,
++- 117, 119, 121, 124, 126, 128, 130, 132, 136, 138,
++-
++- 140, 142, 145, 148, 151, 153, 156, 158, 160, 162,
++- 165, 168, 171, 173, 175, 178, 179, 180, 180, 181,
++- 182, 182, 183, 184, 185, 185, 185, 187, 188, 188,
++- 188, 190, 192, 194, 196, 197, 197, 198, 198, 199,
++- 200, 200, 201, 202, 202, 203, 204, 205, 206, 207,
++- 207, 207, 208, 208, 209, 210, 212, 213, 214, 214,
++- 215, 217, 218, 219, 220, 221, 222, 222, 222, 223,
++- 224, 225, 226, 227, 227, 229, 230, 230, 231, 232,
++- 232, 233, 234, 235, 235, 235, 237, 238, 239, 240,
++- 240, 240, 241, 241, 242, 244, 244, 244, 244, 244,
++-
++- 244, 246, 248, 250, 252, 254, 256, 257, 257, 257,
++- 258, 259, 259, 259, 259, 260, 260, 261, 263, 263,
++- 264, 264, 264, 264, 264, 264, 264, 264, 264, 264,
++- 266, 268, 270, 272, 274, 276, 278, 278, 279, 279,
++- 280, 280, 280, 280, 280, 280, 280, 280, 280, 280,
++- 280, 280, 282, 285, 287, 289, 291, 293, 295, 295,
++- 295, 295, 295, 295, 296, 296, 296, 296, 296, 296,
++- 296, 298, 301, 304, 306, 308, 311, 311, 312, 313,
++- 313, 313, 314, 315, 315, 318, 321, 323, 324, 325,
++- 325, 328, 329, 329
++-
++- } ;
++-
++-static yyconst flex_int32_t yy_ec[256] =
++- { 0,
++- 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
++- 2, 2, 4, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 5, 1, 6, 7, 8, 1, 1, 1, 9,
++- 10, 11, 1, 12, 1, 1, 13, 14, 15, 15,
++- 15, 15, 15, 15, 15, 15, 15, 1, 1, 16,
++- 1, 17, 1, 1, 18, 18, 18, 18, 18, 18,
++- 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,
++- 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,
++- 1, 19, 1, 1, 18, 20, 18, 18, 21, 22,
++-
++- 23, 24, 18, 18, 25, 18, 18, 26, 18, 27,
++- 18, 18, 18, 18, 28, 18, 29, 18, 18, 18,
++- 18, 18, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++-
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1
++- } ;
++-
++-static yyconst flex_int32_t yy_meta[30] =
++- { 0,
++- 1, 2, 3, 4, 5, 1, 1, 6, 5, 1,
++- 1, 1, 1, 7, 7, 1, 8, 9, 1, 1,
++- 9, 9, 9, 9, 9, 9, 9, 9, 9
++- } ;
++-
++-static yyconst flex_int16_t yy_base[335] =
++- { 0,
++- 0, 28, 47, 62, 77, 95, 114, 0, 28, 33,
++- 143, 0, 35, 37, 171, 189, 748, 747, 207, 225,
++- 244, 0, 272, 283, 295, 0, 0, 0, 0, 0,
++- 0, 0, 0, 0, 0, 0, 0, 0, 755, 758,
++- 40, 758, 751, 747, 0, 758, 758, 758, 33, 0,
++- 51, 744, 54, 55, 317, 758, 56, 758, 745, 0,
++- 758, 64, 758, 747, 59, 72, 758, 81, 758, 746,
++- 0, 0, 81, 84, 758, 88, 758, 99, 758, 745,
++- 0, 345, 0, 758, 744, 758, 100, 758, 743, 90,
++- 101, 758, 105, 758, 742, 109, 758, 175, 758, 741,
++-
++- 0, 758, 758, 758, 60, 0, 178, 735, 758, 181,
++- 758, 758, 758, 0, 0, 182, 758, 736, 758, 0,
++- 730, 0, 0, 758, 737, 731, 38, 183, 173, 199,
++- 208, 192, 197, 209, 195, 732, 758, 720, 220, 758,
++- 725, 0, 758, 732, 232, 758, 0, 0, 758, 731,
++- 202, 758, 235, 238, 758, 353, 274, 758, 730, 758,
++- 0, 0, 758, 276, 758, 758, 729, 323, 361, 758,
++- 278, 758, 758, 728, 287, 758, 727, 758, 0, 718,
++- 0, 0, 758, 725, 719, 323, 329, 0, 0, 715,
++- 222, 0, 332, 758, 702, 701, 215, 311, 696, 370,
++-
++- 306, 345, 321, 347, 330, 337, 758, 711, 366, 0,
++- 377, 379, 710, 375, 0, 385, 758, 386, 709, 758,
++- 695, 690, 695, 370, 695, 629, 394, 643, 0, 378,
++- 619, 379, 618, 383, 384, 601, 612, 758, 599, 758,
++- 597, 398, 576, 577, 562, 561, 561, 554, 540, 553,
++- 410, 390, 534, 395, 397, 519, 66, 399, 528, 403,
++- 510, 413, 493, 758, 493, 401, 385, 369, 369, 425,
++- 355, 344, 338, 408, 411, 329, 322, 758, 758, 312,
++- 272, 758, 758, 284, 200, 193, 184, 758, 758, 176,
++- 166, 758, 758, 434, 443, 452, 461, 470, 479, 488,
++-
++- 497, 506, 100, 509, 513, 522, 531, 68, 534, 543,
++- 53, 551, 560, 569, 42, 572, 576, 25, 579, 588,
++- 597, 602, 611, 620, 629, 638, 643, 652, 661, 670,
++- 679, 688, 697, 706
++- } ;
++-
++-static yyconst flex_int16_t yy_def[335] =
++- { 0,
++- 293, 1, 294, 294, 295, 295, 293, 7, 296, 296,
++- 293, 11, 297, 297, 298, 298, 299, 299, 300, 300,
++- 293, 21, 301, 301, 293, 25, 299, 299, 299, 299,
++- 299, 299, 299, 299, 299, 299, 299, 299, 293, 293,
++- 293, 293, 293, 302, 303, 293, 293, 293, 293, 304,
++- 293, 305, 293, 293, 305, 293, 293, 293, 306, 307,
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 308, 309, 293, 310, 293, 310, 293, 293, 293, 293,
++- 311, 312, 313, 293, 313, 293, 293, 293, 293, 293,
++- 314, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++-
++- 315, 293, 293, 293, 293, 316, 293, 317, 293, 293,
++- 293, 293, 293, 318, 319, 293, 293, 302, 293, 304,
++- 320, 321, 304, 293, 293, 305, 322, 293, 293, 293,
++- 322, 131, 131, 131, 293, 306, 293, 307, 293, 293,
++- 323, 324, 293, 293, 293, 293, 309, 309, 293, 293,
++- 310, 293, 310, 293, 293, 312, 293, 293, 293, 293,
++- 156, 313, 293, 293, 293, 293, 293, 314, 314, 293,
++- 293, 293, 293, 293, 293, 293, 293, 293, 316, 325,
++- 326, 316, 293, 293, 317, 327, 293, 319, 319, 320,
++- 328, 321, 293, 293, 131, 293, 293, 293, 293, 293,
++-
++- 131, 131, 131, 131, 131, 131, 293, 323, 329, 324,
++- 314, 314, 325, 330, 326, 293, 293, 327, 331, 293,
++- 293, 293, 293, 293, 293, 293, 293, 332, 200, 131,
++- 131, 131, 131, 131, 131, 131, 333, 293, 334, 293,
++- 331, 328, 293, 293, 293, 293, 293, 293, 293, 332,
++- 293, 131, 131, 131, 131, 131, 131, 131, 333, 329,
++- 334, 330, 293, 293, 293, 293, 293, 293, 293, 293,
++- 131, 131, 131, 131, 131, 131, 293, 293, 293, 293,
++- 293, 293, 293, 293, 131, 131, 131, 293, 293, 293,
++- 131, 293, 0, 293, 293, 293, 293, 293, 293, 293,
++-
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 293, 293, 293, 293
++- } ;
++-
++-static yyconst flex_int16_t yy_nxt[788] =
++- { 0,
++- 40, 41, 42, 43, 41, 44, 40, 45, 46, 47,
++- 40, 48, 49, 40, 40, 40, 40, 50, 51, 52,
++- 50, 50, 50, 50, 50, 50, 50, 50, 50, 53,
++- 75, 76, 53, 188, 54, 75, 76, 84, 85, 84,
++- 85, 116, 193, 121, 116, 122, 194, 55, 57, 58,
++- 179, 57, 59, 124, 125, 128, 130, 135, 128, 130,
++- 135, 156, 60, 57, 58, 139, 57, 59, 139, 141,
++- 180, 142, 181, 129, 143, 144, 147, 60, 62, 63,
++- 64, 62, 145, 149, 150, 145, 152, 153, 195, 65,
++- 152, 153, 166, 167, 275, 66, 62, 63, 64, 62,
++-
++- 154, 164, 169, 154, 164, 169, 171, 65, 120, 171,
++- 170, 173, 174, 66, 67, 68, 69, 70, 68, 67,
++- 67, 71, 67, 67, 67, 67, 67, 67, 67, 67,
++- 67, 72, 73, 67, 72, 72, 72, 72, 72, 72,
++- 72, 72, 72, 77, 78, 79, 80, 78, 77, 77,
++- 81, 77, 77, 77, 77, 77, 77, 77, 77, 77,
++- 82, 77, 77, 82, 82, 82, 82, 82, 82, 82,
++- 82, 82, 87, 88, 89, 87, 175, 176, 177, 175,
++- 183, 184, 187, 116, 128, 187, 116, 128, 195, 90,
++- 87, 88, 89, 87, 196, 197, 135, 198, 292, 135,
++-
++- 130, 199, 129, 130, 152, 153, 291, 90, 93, 94,
++- 95, 93, 193, 200, 195, 195, 194, 202, 203, 195,
++- 204, 139, 195, 205, 139, 96, 93, 94, 95, 93,
++- 201, 195, 191, 145, 220, 206, 145, 152, 153, 154,
++- 222, 223, 154, 96, 97, 98, 99, 100, 98, 97,
++- 97, 101, 102, 103, 97, 104, 105, 97, 97, 97,
++- 97, 106, 107, 108, 106, 106, 106, 106, 106, 106,
++- 106, 106, 106, 110, 58, 157, 110, 164, 157, 171,
++- 164, 111, 171, 112, 110, 58, 283, 110, 175, 176,
++- 177, 175, 111, 290, 112, 113, 113, 58, 113, 113,
++-
++- 113, 113, 114, 113, 113, 113, 113, 113, 113, 113,
++- 113, 113, 115, 113, 113, 115, 115, 115, 115, 115,
++- 115, 115, 115, 115, 126, 211, 212, 216, 195, 230,
++- 187, 217, 293, 187, 224, 289, 193, 225, 131, 132,
++- 194, 133, 232, 195, 288, 134, 157, 158, 159, 157,
++- 235, 195, 195, 160, 157, 158, 159, 157, 236, 195,
++- 195, 160, 169, 211, 212, 169, 195, 195, 233, 195,
++- 170, 227, 231, 234, 227, 228, 209, 285, 238, 211,
++- 212, 211, 212, 229, 229, 214, 293, 240, 293, 216,
++- 216, 246, 282, 217, 217, 227, 247, 281, 227, 228,
++-
++- 195, 195, 252, 254, 256, 195, 195, 280, 242, 257,
++- 220, 270, 195, 260, 270, 238, 271, 195, 272, 195,
++- 273, 195, 276, 262, 279, 240, 270, 283, 284, 270,
++- 195, 286, 287, 195, 56, 56, 56, 56, 56, 56,
++- 56, 56, 56, 61, 61, 61, 61, 61, 61, 61,
++- 61, 61, 74, 74, 74, 74, 74, 74, 74, 74,
++- 74, 83, 83, 83, 83, 83, 83, 83, 83, 83,
++- 86, 86, 86, 86, 86, 86, 86, 86, 86, 58,
++- 58, 58, 58, 58, 58, 58, 58, 58, 92, 92,
++- 92, 92, 92, 92, 92, 92, 92, 109, 109, 109,
++-
++- 109, 109, 109, 109, 109, 109, 118, 118, 118, 118,
++- 118, 118, 118, 118, 118, 123, 278, 123, 127, 277,
++- 262, 127, 136, 136, 136, 136, 136, 136, 136, 136,
++- 136, 138, 138, 138, 138, 138, 138, 138, 260, 138,
++- 148, 274, 148, 151, 151, 151, 151, 151, 151, 151,
++- 151, 151, 161, 161, 161, 161, 195, 161, 251, 161,
++- 162, 162, 269, 162, 162, 162, 162, 162, 162, 168,
++- 168, 168, 168, 168, 168, 168, 168, 168, 182, 268,
++- 182, 186, 267, 266, 186, 189, 265, 189, 190, 190,
++- 190, 190, 190, 190, 190, 190, 190, 192, 192, 264,
++-
++- 263, 192, 192, 192, 192, 192, 195, 242, 195, 262,
++- 195, 208, 208, 208, 208, 208, 208, 208, 208, 208,
++- 210, 210, 260, 258, 210, 210, 210, 210, 210, 213,
++- 213, 213, 213, 213, 213, 213, 213, 213, 215, 215,
++- 255, 253, 215, 215, 215, 215, 215, 218, 251, 218,
++- 249, 218, 219, 219, 219, 219, 219, 219, 219, 219,
++- 219, 237, 237, 237, 237, 237, 237, 237, 237, 237,
++- 239, 239, 239, 239, 239, 239, 239, 239, 239, 241,
++- 241, 241, 241, 241, 241, 241, 241, 241, 250, 250,
++- 250, 250, 250, 250, 250, 250, 250, 259, 259, 259,
++-
++- 259, 259, 259, 259, 259, 259, 261, 261, 261, 261,
++- 261, 261, 261, 261, 261, 248, 245, 244, 243, 242,
++- 214, 209, 226, 221, 195, 191, 293, 183, 214, 176,
++- 173, 166, 158, 149, 143, 209, 207, 137, 293, 124,
++- 191, 119, 185, 178, 172, 165, 163, 155, 146, 140,
++- 137, 126, 119, 117, 293, 91, 91, 39, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293
++- } ;
++-
++-static yyconst flex_int16_t yy_chk[788] =
++- { 0,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
++- 9, 9, 2, 318, 2, 10, 10, 13, 13, 14,
++- 14, 41, 127, 49, 41, 49, 127, 2, 3, 3,
++- 315, 3, 3, 51, 51, 53, 54, 57, 53, 54,
++- 57, 311, 3, 4, 4, 62, 4, 4, 62, 65,
++- 105, 65, 105, 53, 66, 66, 308, 4, 5, 5,
++- 5, 5, 68, 73, 73, 68, 74, 74, 257, 5,
++- 76, 76, 90, 90, 257, 5, 6, 6, 6, 6,
++-
++- 78, 87, 91, 78, 87, 91, 93, 6, 303, 93,
++- 91, 96, 96, 6, 7, 7, 7, 7, 7, 7,
++- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
++- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
++- 7, 7, 7, 11, 11, 11, 11, 11, 11, 11,
++- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
++- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
++- 11, 11, 15, 15, 15, 15, 98, 98, 98, 98,
++- 107, 107, 110, 116, 128, 110, 116, 128, 291, 15,
++- 16, 16, 16, 16, 129, 129, 135, 129, 290, 135,
++-
++- 130, 129, 128, 130, 151, 151, 287, 16, 19, 19,
++- 19, 19, 131, 130, 132, 286, 131, 132, 132, 133,
++- 133, 139, 285, 133, 139, 19, 20, 20, 20, 20,
++- 131, 134, 191, 145, 191, 134, 145, 153, 153, 154,
++- 197, 197, 154, 20, 21, 21, 21, 21, 21, 21,
++- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
++- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
++- 21, 21, 21, 23, 23, 157, 23, 164, 157, 171,
++- 164, 23, 171, 23, 24, 24, 284, 24, 175, 175,
++- 175, 175, 24, 281, 24, 25, 25, 25, 25, 25,
++-
++- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
++- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
++- 25, 25, 25, 25, 55, 168, 168, 186, 201, 201,
++- 187, 186, 168, 187, 198, 280, 193, 198, 55, 55,
++- 193, 55, 203, 203, 277, 55, 82, 82, 82, 82,
++- 205, 276, 205, 82, 156, 156, 156, 156, 206, 206,
++- 273, 156, 169, 169, 169, 169, 272, 202, 204, 204,
++- 169, 200, 202, 204, 200, 200, 209, 271, 209, 211,
++- 211, 212, 212, 200, 200, 214, 211, 214, 212, 216,
++- 218, 224, 269, 216, 218, 227, 224, 268, 227, 227,
++-
++- 230, 232, 230, 232, 234, 234, 235, 267, 242, 235,
++- 242, 251, 252, 260, 251, 260, 252, 254, 254, 255,
++- 255, 258, 258, 262, 266, 262, 270, 270, 270, 270,
++- 274, 274, 275, 275, 294, 294, 294, 294, 294, 294,
++- 294, 294, 294, 295, 295, 295, 295, 295, 295, 295,
++- 295, 295, 296, 296, 296, 296, 296, 296, 296, 296,
++- 296, 297, 297, 297, 297, 297, 297, 297, 297, 297,
++- 298, 298, 298, 298, 298, 298, 298, 298, 298, 299,
++- 299, 299, 299, 299, 299, 299, 299, 299, 300, 300,
++- 300, 300, 300, 300, 300, 300, 300, 301, 301, 301,
++-
++- 301, 301, 301, 301, 301, 301, 302, 302, 302, 302,
++- 302, 302, 302, 302, 302, 304, 265, 304, 305, 263,
++- 261, 305, 306, 306, 306, 306, 306, 306, 306, 306,
++- 306, 307, 307, 307, 307, 307, 307, 307, 259, 307,
++- 309, 256, 309, 310, 310, 310, 310, 310, 310, 310,
++- 310, 310, 312, 312, 312, 312, 253, 312, 250, 312,
++- 313, 313, 249, 313, 313, 313, 313, 313, 313, 314,
++- 314, 314, 314, 314, 314, 314, 314, 314, 316, 248,
++- 316, 317, 247, 246, 317, 319, 245, 319, 320, 320,
++- 320, 320, 320, 320, 320, 320, 320, 321, 321, 244,
++-
++- 243, 321, 321, 321, 321, 321, 322, 241, 322, 239,
++- 322, 323, 323, 323, 323, 323, 323, 323, 323, 323,
++- 324, 324, 237, 236, 324, 324, 324, 324, 324, 325,
++- 325, 325, 325, 325, 325, 325, 325, 325, 326, 326,
++- 233, 231, 326, 326, 326, 326, 326, 327, 228, 327,
++- 226, 327, 328, 328, 328, 328, 328, 328, 328, 328,
++- 328, 329, 329, 329, 329, 329, 329, 329, 329, 329,
++- 330, 330, 330, 330, 330, 330, 330, 330, 330, 331,
++- 331, 331, 331, 331, 331, 331, 331, 331, 332, 332,
++- 332, 332, 332, 332, 332, 332, 332, 333, 333, 333,
++-
++- 333, 333, 333, 333, 333, 333, 334, 334, 334, 334,
++- 334, 334, 334, 334, 334, 225, 223, 222, 221, 219,
++- 213, 208, 199, 196, 195, 190, 185, 184, 180, 177,
++- 174, 167, 159, 150, 144, 141, 138, 136, 126, 125,
++- 121, 118, 108, 100, 95, 89, 85, 80, 70, 64,
++- 59, 52, 44, 43, 39, 18, 17, 293, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293, 293, 293, 293,
++- 293, 293, 293, 293, 293, 293, 293
++- } ;
++-
++-extern int preprocessor_flex_debug;
++-int preprocessor_flex_debug = 0;
++-
++-static yy_state_type *yy_state_buf=0, *yy_state_ptr=0;
++-static char *yy_full_match;
++-static int yy_lp;
++-static int yy_looking_for_trail_begin = 0;
++-static int yy_full_lp;
++-static int *yy_full_state;
++-#define YY_TRAILING_MASK 0x2000
++-#define YY_TRAILING_HEAD_MASK 0x4000
++-#define REJECT \
++-{ \
++-*yy_cp = (yy_hold_char); /* undo effects of setting up preprocessortext */ \
++-yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
++-(yy_lp) = (yy_full_lp); /* restore orig. accepting pos. */ \
++-(yy_state_ptr) = (yy_full_state); /* restore orig. state */ \
++-yy_current_state = *(yy_state_ptr); /* restore curr. state */ \
++-++(yy_lp); \
++-goto find_rule; \
++-}
++-
++-#define yymore() yymore_used_but_not_detected
++-#define YY_MORE_ADJ 0
++-#define YY_RESTORE_YY_MORE_OFFSET
++-char *preprocessortext;
++-#line 1 "preprocessorLex.l"
++-#line 5 "preprocessorLex.l"
++-
++-#include "adms.h"
++-#include "admsPreprocessor.h"
++-#include "preprocessorYacc.h"
++-
++-#ifndef INITIAL
++-# define INITIAL 0
++-#endif
++-
++-#include "constants.vams.c"
++-#include "disciplines.vams.c"
++-
++-#define yyflex_unput \
++-{\
++- int i;\
++- char *yycopy=strdup(preprocessortext);\
++- for ( i = preprocessorleng - 1; i >= 0; --i )\
++- unput(yycopy[i]);\
++- free(yycopy);\
++-}
++-
++-#define DONT_SKIPP (pproot()->skipp_text->data==INT2ADMS(0))
++-
++-void adms_preprocessor_setfile_input (FILE *ifile)
++-{
++- preprocessorin = ifile;
++-}
++-
++-FILE *adms_preprocessor_getfile_input (void)
++-{
++- return preprocessorin;
++-}
++-
++-void adms_preprocessor_setfile_output (FILE *ifile)
++-{
++- preprocessorout = ifile;
++-}
++-
++-FILE *adms_preprocessor_getfile_output (void)
++-{
++- return preprocessorout;
++-}
++-
++-#define tkreturn(token) {pproot()->cr_scanner->cur_char_position+=preprocessorleng; return token;}
++-
++-static char* adms_preprocessor_lex_remove_leading_quote (char* name)
++-{
++- char* unquoted_name;
++- char* start;
++- char* finish;
++- start = name+1;
++- finish = name + strlen(name);
++- unquoted_name = adms_knclone (start, finish - start );
++- return (unquoted_name);
++-}
++-
++-static char* adms_preprocessor_lex_get_path (char* macro, const char begin, const char end)
++-{
++- char* path;
++- char* start=macro;
++- char* finish;
++- while( *start && (*start != begin) )
++- start++;
++- finish=++start;
++- while( *finish && (*finish != end) )
++- finish++;
++- path=adms_knclone (start, finish - start );
++- return path;
++-}
++-
++-void preprocessorerror (const char *message)
++-{
++- p_preprocessor cr_preprocessor=pproot()->cr_scanner;
++- adms_message_fatal (("[%s:%i]:%s: %s\n",
++- cr_preprocessor->filename,
++- adms_preprocessor_get_line_position(cr_preprocessor,cr_preprocessor->cur_char_position-preprocessorleng),
++- message,
++- cr_preprocessor->cur_message?cr_preprocessor->cur_message:"(unknown)"
++- ))
++-}
++-static void adms_file_fprintf ( char *filename, const char *filedata)
++-{
++- FILE *ofh = fopen (filename,"w");
++- if (fprintf (ofh, "%s", filedata)==EOF)
++- adms_message_fatal(("%s: cannot write file\n", filename))
++- fclose (ofh);
++-}
++-static FILE* adms_file_open_read_with_path (const char* myfilename, p_slist mypath)
++-{
++- p_slist l; for(l=mypath;l;l=l->next)
++- {
++- FILE* myfh=NULL;
++- char* mypathname=strdup((char*)(l->data));
++- adms_k2strconcat(&mypathname,ADMS_PATH_SEPARATOR);
++- adms_k2strconcat(&mypathname,myfilename);
++- if((myfh=fopen(mypathname,"r")))
++- return myfh;
++- }
++- return NULL;
++-}
++-static void adms_preprocessor_lex_include_file (char* fileName)
++-{
++- FILE*myfh;
++- p_preprocessor scanner;
++- char*message=NULL;
++- adms_k2strconcat(&message,pproot()->cr_scanner->filename);
++- adms_k2strconcat(&message,":");
++- adms_strconcat(&message,adms_integertostring(adms_preprocessor_get_line_position (pproot()->cr_scanner, 0)));
++- if(pproot()->cr_filename)
++- free(pproot()->cr_filename);
++- pproot()->cr_filename=strdup(fileName);
++- if(!(myfh=adms_file_open_read_with_path(fileName,(p_slist)(pproot()->includePath))))
++- {
++- if(!strcmp(fileName,"discipline.h")||!strcmp(fileName,"disciplines.h")||!strcmp(fileName,"discipline.vams")||!strcmp(fileName,"disciplines.vams"))
++- {
++- adms_message_warning(("[%s]: standard vams file created (not found in -I path) ... '%s'\n",message,fileName))
++- printf("%s",disciplines_vams);
++- adms_file_fprintf(fileName,disciplines_vams);
++- myfh=adms_file_open_read(fileName);
++- }
++- else if(!strcmp(fileName,"constant.h")||!strcmp(fileName,"constants.h")||!strcmp(fileName,"constant.vams")||!strcmp(fileName,"constants.vams"))
++- {
++- adms_message_warning(("[%s]: standard vams file created (not found in -I path) ... '%s'\n",message,fileName))
++- adms_file_fprintf(fileName,constants_vams);
++- myfh=adms_file_open_read(fileName);
++- }
++- else
++- adms_message_fatal(("[%s]: failed to open file ... '%s'\n",message,fileName))
++- }
++- scanner=(p_preprocessor)malloc(sizeof(t_preprocessor));
++- adms_message_verbose(("include file '%s'\n",fileName))
++- scanner->buffer=NULL;
++- scanner->fid=NULL;
++- scanner->cur_continuator_position=NULL;
++- pproot()->cr_scanner->buffer = (p_adms)YY_CURRENT_BUFFER;
++- adms_slist_push(&pproot()->Scanner,(void*)pproot()->cr_scanner );
++- preprocessorin = myfh;
++- scanner->fid = preprocessorin;
++- scanner->cur_line_position = 1;
++- scanner->cur_char_position = 1;
++- scanner->filename=strdup(pproot()->cr_filename);
++- scanner->buffer = (void*) preprocessor_create_buffer(preprocessorin,YY_BUF_SIZE );
++- pproot()->cr_scanner = scanner;
++- preprocessor_switch_to_buffer((YY_BUFFER_STATE)scanner->buffer );
++- preprocessorlval.mystr = NULL;
++- adms_k2strconcat(&preprocessorlval.mystr,"# 1 \"");
++- adms_k2strconcat(&preprocessorlval.mystr,pproot()->cr_scanner->filename);
++- adms_k2strconcat(&preprocessorlval.mystr,"\"\n");
++- BEGIN( INITIAL );
++- free(message);
++-}
++-
++-static char *adms_preprocessor_lex_skipp_text ()
++-{
++- char *c;
++- int nbline=0;
++- c = preprocessortext;
++- while (*c)
++- {
++- if(*c=='\n')
++- {
++- pproot()->cr_scanner->cur_char_position = 1;
++- pproot()->cr_scanner->cur_line_position++;
++- nbline++;
++- }
++- else
++- pproot()->cr_scanner->cur_char_position++;
++- c++;
++- }
++- if(nbline)
++- {
++- char*str=(char*)malloc(sizeof(char)*(nbline+1));
++- memset(str,'\n',nbline);
++- str[nbline] = '\0';
++- return str;
++- }
++- else
++- return strdup("");
++-}
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-
++-#line 997 "preprocessorLex.c"
++-
++-#define INITIAL 0
++-#define PRAGMA_PATH 1
++-#define PRAGMA_COMMENT 2
++-#define PRAGMA_NAME 3
++-#define PRAGMA_ERROR 4
++-#define PRAGMA_DEFINE_START 5
++-#define PRAGMA_DEFINE_IGNORE 6
++-#define PRAGMA_DEFINE_NOARG 7
++-#define PRAGMA_DEFINE_WITHARG 8
++-#define PRAGMA_DEFINE_TEXT_START 9
++-#define PRAGMA_DEFINE_TEXT 10
++-#define PRAGMA_DEFINE_WITHARG_COMMA 11
++-#define PRAGMA_DEFINE_WITHARG_ARGS 12
++-#define PRAGMA_SUBSTITUTOR_START 13
++-#define PRAGMA_SUBSTITUTOR_ARG 14
++-#define PRAGMA_SUBSTITUTOR_PAIR 15
++-#define PRAGMA_SUBSTITUTOR_ARGITEM 16
++-#define PRAGMA_SUBSTITUTOR_ARGCOMMA 17
++-#define PRAGMA_SUBSTITUTOR_ARGEND 18
++-
++-#ifndef YY_NO_UNISTD_H
++-/* Special case for "unistd.h", since it is non-ANSI. We include it way
++- * down here because we want the user's section 1 to have been scanned first.
++- * The user has a chance to override it with an option.
++- */
++-#include <unistd.h>
++-#endif
++-
++-#ifndef YY_EXTRA_TYPE
++-#define YY_EXTRA_TYPE void *
++-#endif
++-
++-static int yy_init_globals (void );
++-
++-/* Accessor methods to globals.
++- These are made visible to non-reentrant scanners for convenience. */
++-
++-int preprocessorlex_destroy (void );
++-
++-int preprocessorget_debug (void );
++-
++-void preprocessorset_debug (int debug_flag );
++-
++-YY_EXTRA_TYPE preprocessorget_extra (void );
++-
++-void preprocessorset_extra (YY_EXTRA_TYPE user_defined );
++-
++-FILE *preprocessorget_in (void );
++-
++-void preprocessorset_in (FILE * in_str );
++-
++-FILE *preprocessorget_out (void );
++-
++-void preprocessorset_out (FILE * out_str );
++-
++-yy_size_t preprocessorget_leng (void );
++-
++-char *preprocessorget_text (void );
++-
++-int preprocessorget_lineno (void );
++-
++-void preprocessorset_lineno (int line_number );
++-
++-/* Macros after this point can all be overridden by user definitions in
++- * section 1.
++- */
++-
++-#ifndef YY_SKIP_YYWRAP
++-#ifdef __cplusplus
++-extern "C" int preprocessorwrap (void );
++-#else
++-extern int preprocessorwrap (void );
++-#endif
++-#endif
++-
++- static void yyunput (int c,char *buf_ptr );
++-
++-#ifndef yytext_ptr
++-static void yy_flex_strncpy (char *,yyconst char *,int );
++-#endif
++-
++-#ifdef YY_NEED_STRLEN
++-static int yy_flex_strlen (yyconst char * );
++-#endif
++-
++-#ifndef YY_NO_INPUT
++-
++-#ifdef __cplusplus
++-static int yyinput (void );
++-#else
++-static int input (void );
++-#endif
++-
++-#endif
++-
++-/* Amount of stuff to slurp up with each read. */
++-#ifndef YY_READ_BUF_SIZE
++-#define YY_READ_BUF_SIZE 8192
++-#endif
++-
++-/* Copy whatever the last rule matched to the standard output. */
++-#ifndef ECHO
++-/* This used to be an fputs(), but since the string might contain NUL's,
++- * we now use fwrite().
++- */
++-#define ECHO do { if (fwrite( preprocessortext, preprocessorleng, 1, preprocessorout )) {} } while (0)
++-#endif
++-
++-/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
++- * is returned in "result".
++- */
++-#ifndef YY_INPUT
++-#define YY_INPUT(buf,result,max_size) \
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
++- { \
++- int c = '*'; \
++- size_t n; \
++- for ( n = 0; n < max_size && \
++- (c = getc( preprocessorin )) != EOF && c != '\n'; ++n ) \
++- buf[n] = (char) c; \
++- if ( c == '\n' ) \
++- buf[n++] = (char) c; \
++- if ( c == EOF && ferror( preprocessorin ) ) \
++- YY_FATAL_ERROR( "input in flex scanner failed" ); \
++- result = n; \
++- } \
++- else \
++- { \
++- errno=0; \
++- while ( (result = fread(buf, 1, max_size, preprocessorin))==0 && ferror(preprocessorin)) \
++- { \
++- if( errno != EINTR) \
++- { \
++- YY_FATAL_ERROR( "input in flex scanner failed" ); \
++- break; \
++- } \
++- errno=0; \
++- clearerr(preprocessorin); \
++- } \
++- }\
++-\
++-
++-#endif
++-
++-/* No semi-colon after return; correct usage is to write "yyterminate();" -
++- * we don't want an extra ';' after the "return" because that will cause
++- * some compilers to complain about unreachable statements.
++- */
++-#ifndef yyterminate
++-#define yyterminate() return YY_NULL
++-#endif
++-
++-/* Number of entries by which start-condition stack grows. */
++-#ifndef YY_START_STACK_INCR
++-#define YY_START_STACK_INCR 25
++-#endif
++-
++-/* Report a fatal error. */
++-#ifndef YY_FATAL_ERROR
++-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
++-#endif
++-
++-/* end tables serialization structures and prototypes */
++-
++-/* Default declaration of generated scanner - a define so the user can
++- * easily add parameters.
++- */
++-#ifndef YY_DECL
++-#define YY_DECL_IS_OURS 1
++-
++-extern int preprocessorlex (void);
++-
++-#define YY_DECL int preprocessorlex (void)
++-#endif /* !YY_DECL */
++-
++-/* Code executed at the beginning of each rule, after preprocessortext and preprocessorleng
++- * have been set up.
++- */
++-#ifndef YY_USER_ACTION
++-#define YY_USER_ACTION
++-#endif
++-
++-/* Code executed at the end of each rule. */
++-#ifndef YY_BREAK
++-#define YY_BREAK break;
++-#endif
++-
++-#define YY_RULE_SETUP \
++- if ( preprocessorleng > 0 ) \
++- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
++- (preprocessortext[preprocessorleng - 1] == '\n'); \
++- YY_USER_ACTION
++-
++-/** The main scanner function which does all the work.
++- */
++-YY_DECL
++-{
++- register yy_state_type yy_current_state;
++- register char *yy_cp, *yy_bp;
++- register int yy_act;
++-
++-#line 222 "preprocessorLex.l"
++-
++-
++-#line 1203 "preprocessorLex.c"
++-
++- if ( !(yy_init) )
++- {
++- (yy_init) = 1;
++-
++-#ifdef YY_USER_INIT
++- YY_USER_INIT;
++-#endif
++-
++- /* Create the reject buffer large enough to save one state per allowed character. */
++- if ( ! (yy_state_buf) )
++- (yy_state_buf) = (yy_state_type *)preprocessoralloc(YY_STATE_BUF_SIZE );
++- if ( ! (yy_state_buf) )
++- YY_FATAL_ERROR( "out of dynamic memory in preprocessorlex()" );
++-
++- if ( ! (yy_start) )
++- (yy_start) = 1; /* first start state */
++-
++- if ( ! preprocessorin )
++- preprocessorin = stdin;
++-
++- if ( ! preprocessorout )
++- preprocessorout = stdout;
++-
++- if ( ! YY_CURRENT_BUFFER ) {
++- preprocessorensure_buffer_stack ();
++- YY_CURRENT_BUFFER_LVALUE =
++- preprocessor_create_buffer(preprocessorin,YY_BUF_SIZE );
++- }
++-
++- preprocessor_load_buffer_state( );
++- }
++-
++- while ( 1 ) /* loops until end-of-file is reached */
++- {
++- yy_cp = (yy_c_buf_p);
++-
++- /* Support of preprocessortext. */
++- *yy_cp = (yy_hold_char);
++-
++- /* yy_bp points to the position in yy_ch_buf of the start of
++- * the current run.
++- */
++- yy_bp = yy_cp;
++-
++- yy_current_state = (yy_start);
++- yy_current_state += YY_AT_BOL();
++-
++- (yy_state_ptr) = (yy_state_buf);
++- *(yy_state_ptr)++ = yy_current_state;
++-
++-yy_match:
++- do
++- {
++- register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
++- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
++- {
++- yy_current_state = (int) yy_def[yy_current_state];
++- if ( yy_current_state >= 294 )
++- yy_c = yy_meta[(unsigned int) yy_c];
++- }
++- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
++- *(yy_state_ptr)++ = yy_current_state;
++- ++yy_cp;
++- }
++- while ( yy_base[yy_current_state] != 758 );
++-
++-yy_find_action:
++- yy_current_state = *--(yy_state_ptr);
++- (yy_lp) = yy_accept[yy_current_state];
++-find_rule: /* we branch to this label when backing up */
++- for ( ; ; ) /* until we find what rule we matched */
++- {
++- if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
++- {
++- yy_act = yy_acclist[(yy_lp)];
++- if ( yy_act & YY_TRAILING_HEAD_MASK ||
++- (yy_looking_for_trail_begin) )
++- {
++- if ( yy_act == (yy_looking_for_trail_begin) )
++- {
++- (yy_looking_for_trail_begin) = 0;
++- yy_act &= ~YY_TRAILING_HEAD_MASK;
++- break;
++- }
++- }
++- else if ( yy_act & YY_TRAILING_MASK )
++- {
++- (yy_looking_for_trail_begin) = yy_act & ~YY_TRAILING_MASK;
++- (yy_looking_for_trail_begin) |= YY_TRAILING_HEAD_MASK;
++- }
++- else
++- {
++- (yy_full_match) = yy_cp;
++- (yy_full_state) = (yy_state_ptr);
++- (yy_full_lp) = (yy_lp);
++- break;
++- }
++- ++(yy_lp);
++- goto find_rule;
++- }
++- --yy_cp;
++- yy_current_state = *--(yy_state_ptr);
++- (yy_lp) = yy_accept[yy_current_state];
++- }
++-
++- YY_DO_BEFORE_ACTION;
++-
++-do_action: /* This label is used only to access EOF actions. */
++-
++- switch ( yy_act )
++- { /* beginning of action switch */
++-case 1:
++-/* rule 1 can match eol */
++-YY_RULE_SETUP
++-#line 224 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup( preprocessortext );
++- tkreturn(TK_STRING)
++-}
++- YY_BREAK
++-case 2:
++-/* rule 2 can match eol */
++-YY_RULE_SETUP
++-#line 229 "preprocessorLex.l"
++-{
++- p_continuator continuator;
++-
++- continuator=(p_continuator)malloc(sizeof(t_continuator));
++- continuator->char_position = preprocessorleng-1;
++- continuator->line_position = pproot()->cr_scanner->cur_line_position;
++-
++- pproot()->cr_scanner->cur_line_position += 1;
++- pproot()->cr_scanner->cur_char_position = 1;
++- adms_slist_push(&(pproot()->cr_scanner->cur_continuator_position),(p_adms)continuator);
++-
++- tkreturn(TK_NOPRAGMA_CONTINUATOR)
++-}
++- YY_BREAK
++-/* ignored sequences */
++-case 3:
++-/* rule 3 can match eol */
++-YY_RULE_SETUP
++-#line 245 "preprocessorLex.l"
++-{
++-}
++- YY_BREAK
++-case 4:
++-/* rule 4 can match eol */
++-YY_RULE_SETUP
++-#line 248 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=strdup(preprocessortext);
++- return(TK_EOL);
++-}
++- YY_BREAK
++-case 5:
++-/* rule 5 can match eol */
++-YY_RULE_SETUP
++-#line 252 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=strdup(preprocessortext);
++- return(TK_EOL);
++-}
++- YY_BREAK
++-case 6:
++-YY_RULE_SETUP
++-#line 257 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- preprocessorlval.mystr=strdup(preprocessortext);
++- return(TK_SPACE );
++-}
++- YY_BREAK
++-case 7:
++-/* rule 7 can match eol */
++-YY_RULE_SETUP
++-#line 263 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=adms_preprocessor_lex_skipp_text (); return(TK_COMMENT);
++-}
++- YY_BREAK
++-case 8:
++-YY_RULE_SETUP
++-#line 267 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=adms_preprocessor_lex_skipp_text (); return(TK_COMMENT);
++-}
++- YY_BREAK
++-/* pragma */
++-case 9:
++-YY_RULE_SETUP
++-#line 273 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- if ( DONT_SKIPP )
++- {
++- BEGIN( PRAGMA_DEFINE_START );
++- tkreturn(TK_DEFINE)
++- }
++- else
++- BEGIN( PRAGMA_DEFINE_IGNORE );
++-}
++- YY_BREAK
++-case 10:
++-YY_RULE_SETUP
++-#line 283 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- BEGIN( INITIAL );
++-}
++- YY_BREAK
++-case 11:
++-/* rule 11 can match eol */
++-YY_RULE_SETUP
++-#line 287 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_message=strdup("- `define: unexpected end-of-line");
++- yyflex_unput
++- BEGIN( INITIAL );
++-}
++- YY_BREAK
++-case 12:
++-YY_RULE_SETUP
++-#line 293 "preprocessorLex.l"
++-{
++- if ( DONT_SKIPP )
++- {
++- BEGIN( PRAGMA_NAME );
++- tkreturn(TK_UNDEF)
++- }
++- else
++- BEGIN( PRAGMA_DEFINE_IGNORE );
++-}
++- YY_BREAK
++-case 13:
++-YY_RULE_SETUP
++-#line 302 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=strdup("");;
++- BEGIN( PRAGMA_NAME );
++- tkreturn(TK_IFDEF)
++-}
++- YY_BREAK
++-case 14:
++-YY_RULE_SETUP
++-#line 307 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=strdup("");;
++- BEGIN( PRAGMA_NAME );
++- tkreturn(TK_IFNDEF)
++-}
++- YY_BREAK
++-case 15:
++-YY_RULE_SETUP
++-#line 312 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"# ");
++- adms_strconcat(&string,adms_integertostring(pproot()->cr_scanner->cur_line_position+1));
++- adms_k2strconcat(&string," \"");
++- adms_k2strconcat(&string,pproot()->cr_scanner->filename);
++- adms_k2strconcat(&string,"\"");
++- preprocessorlval.mystr=string;
++- BEGIN( PRAGMA_COMMENT );
++- tkreturn(TK_ELSE)
++-}
++- YY_BREAK
++-case 16:
++-YY_RULE_SETUP
++-#line 323 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"# ");
++- adms_strconcat(&string,adms_integertostring(pproot()->cr_scanner->cur_line_position+1));
++- adms_k2strconcat(&string," \"");
++- adms_k2strconcat(&string,pproot()->cr_scanner->filename);
++- adms_k2strconcat(&string,"\"");
++- preprocessorlval.mystr=string;
++- BEGIN( PRAGMA_COMMENT );
++- tkreturn(TK_ENDIF)
++-}
++- YY_BREAK
++-case 17:
++-YY_RULE_SETUP
++-#line 334 "preprocessorLex.l"
++-{
++- if(DONT_SKIPP)
++- BEGIN(PRAGMA_PATH);
++- else
++- BEGIN(PRAGMA_DEFINE_IGNORE);
++-}
++- YY_BREAK
++-case 18:
++-/* rule 18 can match eol */
++-YY_RULE_SETUP
++-#line 341 "preprocessorLex.l"
++-{
++- BEGIN( PRAGMA_DEFINE_NOARG );
++- preprocessorlval.mystr=strdup(preprocessortext );
++- tkreturn(TK_PRAGMA_NAME)
++-}
++- YY_BREAK
++-case 19:
++-YY_RULE_SETUP
++-#line 346 "preprocessorLex.l"
++-{
++- BEGIN( PRAGMA_DEFINE_NOARG );
++- preprocessorlval.mystr=strdup(preprocessortext );
++- tkreturn(TK_PRAGMA_NAME)
++-}
++- YY_BREAK
++-case 20:
++-*yy_cp = (yy_hold_char); /* undo effects of setting up preprocessortext */
++-(yy_c_buf_p) = yy_cp -= 1;
++-YY_DO_BEFORE_ACTION; /* set up preprocessortext again */
++-YY_RULE_SETUP
++-#line 351 "preprocessorLex.l"
++-{
++- BEGIN( PRAGMA_DEFINE_WITHARG );
++- preprocessorlval.mystr=strdup(preprocessortext );
++- tkreturn(TK_PRAGMA_NAME)
++-}
++- YY_BREAK
++-case 21:
++-YY_RULE_SETUP
++-#line 356 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 22:
++-/* rule 22 can match eol */
++-YY_RULE_SETUP
++-#line 359 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_message=strdup("- pragma name: unexpected end-of-line");
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 23:
++-YY_RULE_SETUP
++-#line 364 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - identifier was expected");
++- pproot()->cr_scanner->cur_message=string;
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 24:
++-YY_RULE_SETUP
++-#line 374 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 25:
++-/* rule 25 can match eol */
++-YY_RULE_SETUP
++-#line 377 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_message=strdup("- `define: unexpected end-of-line)");
++- yyflex_unput
++- BEGIN( INITIAL );
++- tkreturn(TK_DEFINE_END)
++-}
++- YY_BREAK
++-case 26:
++-/* rule 26 can match eol */
++-YY_RULE_SETUP
++-#line 383 "preprocessorLex.l"
++-{
++- p_continuator continuator;
++-
++- continuator=(p_continuator)malloc(sizeof(t_continuator));
++- continuator->char_position = preprocessorleng-1;
++- continuator->line_position = pproot()->cr_scanner->cur_line_position;
++-
++- pproot()->cr_scanner->cur_line_position += 1;
++- pproot()->cr_scanner->cur_char_position = 1;
++- adms_slist_push(&(pproot()->cr_scanner->cur_continuator_position),(p_adms)continuator);
++-
++- tkreturn(TK_CONTINUATOR)
++-}
++- YY_BREAK
++-case 27:
++-YY_RULE_SETUP
++-#line 396 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - whitespace was expected");
++- pproot()->cr_scanner->cur_message=string;
++- yyflex_unput
++- BEGIN( PRAGMA_DEFINE_TEXT_START );
++-}
++- YY_BREAK
++-case 28:
++-YY_RULE_SETUP
++-#line 406 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- BEGIN( PRAGMA_DEFINE_TEXT_START );
++- tkreturn(TK_ARG_NULL)
++-}
++- YY_BREAK
++-case 29:
++-/* rule 29 can match eol */
++-YY_RULE_SETUP
++-#line 411 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - `define has no closing paren");
++- pproot()->cr_scanner->cur_message=string;
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 30:
++-YY_RULE_SETUP
++-#line 420 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- BEGIN( PRAGMA_DEFINE_WITHARG_ARGS );
++-}
++- YY_BREAK
++-case 31:
++-YY_RULE_SETUP
++-#line 425 "preprocessorLex.l"
++-{
++- BEGIN( PRAGMA_DEFINE_WITHARG_COMMA );
++- preprocessorlval.mystr=strdup(preprocessortext );
++- tkreturn(TK_ARG)
++-}
++- YY_BREAK
++-case 32:
++-YY_RULE_SETUP
++-#line 430 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - `define has unexpected syntax");
++- pproot()->cr_scanner->cur_message=string;
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 33:
++-YY_RULE_SETUP
++-#line 440 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 34:
++-YY_RULE_SETUP
++-#line 443 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- BEGIN( PRAGMA_DEFINE_TEXT_START );
++-}
++- YY_BREAK
++-case 35:
++-YY_RULE_SETUP
++-#line 447 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 36:
++-YY_RULE_SETUP
++-#line 450 "preprocessorLex.l"
++-{
++- yyflex_unput
++- BEGIN( PRAGMA_DEFINE_WITHARG_ARGS );
++-}
++- YY_BREAK
++-case 37:
++-YY_RULE_SETUP
++-#line 455 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- BEGIN( PRAGMA_DEFINE_TEXT );
++-}
++- YY_BREAK
++-case 38:
++-/* rule 38 can match eol */
++-YY_RULE_SETUP
++-#line 459 "preprocessorLex.l"
++-{
++- p_continuator continuator;
++-
++- continuator=(p_continuator)malloc(sizeof(t_continuator));
++- continuator->char_position = preprocessorleng-1;
++- continuator->line_position = pproot()->cr_scanner->cur_line_position;
++-
++- pproot()->cr_scanner->cur_line_position += 1;
++- pproot()->cr_scanner->cur_char_position = 1;
++- adms_slist_push(&(pproot()->cr_scanner->cur_continuator_position),(p_adms)continuator);
++-
++- tkreturn(TK_CONTINUATOR)
++-}
++- YY_BREAK
++-case 39:
++-/* rule 39 can match eol */
++-YY_RULE_SETUP
++-#line 472 "preprocessorLex.l"
++-{
++- yyflex_unput
++- BEGIN( INITIAL );
++- tkreturn(TK_DEFINE_END)
++-}
++- YY_BREAK
++-case 40:
++-YY_RULE_SETUP
++-#line 477 "preprocessorLex.l"
++-{
++- yyflex_unput
++- BEGIN( PRAGMA_DEFINE_TEXT );
++-}
++- YY_BREAK
++-case 41:
++-/* rule 41 can match eol */
++-YY_RULE_SETUP
++-#line 482 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 42:
++-YY_RULE_SETUP
++-#line 486 "preprocessorLex.l"
++-{
++-
++- preprocessorlval.mystr=strdup(adms_preprocessor_lex_remove_leading_quote( preprocessortext ));
++- if(DONT_SKIPP)
++- {
++- p_preprocessor_pragma_define Define;
++- if ((Define = adms_preprocessor_pragma_define_exists (preprocessorlval.mystr)))
++- {
++- if(adms_preprocessor_pragma_define_has_noarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NOARG)
++- else if(adms_preprocessor_pragma_define_has_nullarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NULLARG)
++- else
++- tkreturn(TK_SUBSTITUTOR_WITHARG)
++- }
++- else
++- {
++- preprocessorlval.mystr = strdup(preprocessortext);
++- pproot()->cr_scanner->cur_message=strdup(preprocessortext);
++- tkreturn(TK_ERROR_PRAGMA_NOT_FOUND)
++- }
++- }
++- else
++- tkreturn(TK_IDENT)
++-}
++- YY_BREAK
++-case 43:
++-YY_RULE_SETUP
++-#line 512 "preprocessorLex.l"
++-{
++-
++- preprocessorlval.mystr=strdup(adms_preprocessor_lex_remove_leading_quote( preprocessortext ));
++- if(DONT_SKIPP)
++- {
++- p_preprocessor_pragma_define Define;
++- if((Define=adms_preprocessor_pragma_define_exists (preprocessorlval.mystr)))
++- {
++- if(adms_preprocessor_pragma_define_has_noarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NOARG)
++- else if(adms_preprocessor_pragma_define_has_nullarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NULLARG_ALONE)
++- else
++- tkreturn(TK_SUBSTITUTOR_WITHARG_ALONE)
++- }
++- else
++- {
++- preprocessorlval.mystr=strdup(preprocessortext);
++- pproot()->cr_scanner->cur_message=strdup(preprocessortext);
++- tkreturn(TK_ERROR_PRAGMA_NOT_FOUND)
++- }
++- }
++- else
++- tkreturn(TK_IDENT)
++-}
++- YY_BREAK
++-case 44:
++-YY_RULE_SETUP
++-#line 538 "preprocessorLex.l"
++-{
++-
++- preprocessorlval.mystr = strdup(preprocessortext);
++- tkreturn(TK_IDENT)
++-}
++- YY_BREAK
++-case 45:
++-YY_RULE_SETUP
++-#line 544 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- tkreturn('(')
++-}
++- YY_BREAK
++-case 46:
++-YY_RULE_SETUP
++-#line 549 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- tkreturn(')')
++-}
++- YY_BREAK
++-case 47:
++-YY_RULE_SETUP
++-#line 554 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- tkreturn(',')
++-}
++- YY_BREAK
++-case 48:
++-YY_RULE_SETUP
++-#line 559 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++- preprocessorlval.mystr=strdup(preprocessortext);
++- return(TK_SPACE );
++-}
++- YY_BREAK
++-case 49:
++-YY_RULE_SETUP
++-#line 565 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=adms_preprocessor_lex_skipp_text (); return(TK_COMMENT);
++-}
++- YY_BREAK
++-case 50:
++-/* rule 50 can match eol */
++-YY_RULE_SETUP
++-#line 569 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=adms_preprocessor_lex_skipp_text (); return(TK_COMMENT);
++-}
++- YY_BREAK
++-case 51:
++-YY_RULE_SETUP
++-#line 573 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- tkreturn(TK_NOT_IDENT)
++-}
++- YY_BREAK
++-case 52:
++-/* rule 52 can match eol */
++-YY_RULE_SETUP
++-#line 578 "preprocessorLex.l"
++-{
++- p_continuator continuator;
++-
++- continuator=(p_continuator)malloc(sizeof(t_continuator));
++- continuator->char_position = preprocessorleng-1;
++- continuator->line_position = pproot()->cr_scanner->cur_line_position;
++-
++- pproot()->cr_scanner->cur_line_position += 1;
++- pproot()->cr_scanner->cur_char_position = 1;
++- adms_slist_push(&(pproot()->cr_scanner->cur_continuator_position),(p_adms)continuator);
++-
++- tkreturn(TK_CONTINUATOR)
++-}
++- YY_BREAK
++-case 53:
++-/* rule 53 can match eol */
++-YY_RULE_SETUP
++-#line 591 "preprocessorLex.l"
++-{
++- yyflex_unput
++- BEGIN( INITIAL );
++- tkreturn(TK_DEFINE_END)
++-}
++- YY_BREAK
++-case 54:
++-YY_RULE_SETUP
++-#line 597 "preprocessorLex.l"
++-{
++- BEGIN( PRAGMA_COMMENT );
++- preprocessorlval.mystr=strdup(preprocessortext );
++- tkreturn(TK_PRAGMA_NAME)
++-}
++- YY_BREAK
++-case 55:
++-YY_RULE_SETUP
++-#line 602 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 56:
++-/* rule 56 can match eol */
++-YY_RULE_SETUP
++-#line 605 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_message=strdup("- unexpected end-of-line");
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 57:
++-YY_RULE_SETUP
++-#line 610 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - pragma name was expected");
++- pproot()->cr_scanner->cur_message=string;
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 58:
++-/* rule 58 can match eol */
++-YY_RULE_SETUP
++-#line 619 "preprocessorLex.l"
++-{
++- p_continuator continuator;
++-
++- continuator=(p_continuator)malloc(sizeof(t_continuator));
++- continuator->char_position = preprocessorleng-1;
++- continuator->line_position = pproot()->cr_scanner->cur_line_position;
++-
++- pproot()->cr_scanner->cur_line_position += 1;
++- pproot()->cr_scanner->cur_char_position = 1;
++- adms_slist_push(&(pproot()->cr_scanner->cur_continuator_position),(p_adms)continuator);
++-
++- tkreturn(TK_CONTINUATOR)
++-}
++- YY_BREAK
++-case 59:
++-YY_RULE_SETUP
++-#line 633 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 60:
++-/* rule 60 can match eol */
++-YY_RULE_SETUP
++-#line 636 "preprocessorLex.l"
++-{
++- char* fileName;
++- BEGIN( INITIAL );
++- fileName = adms_preprocessor_lex_get_path(preprocessortext,'"','"');
++- adms_preprocessor_lex_include_file(fileName);
++- tkreturn(TK_INCLUDE)
++-}
++- YY_BREAK
++-case 61:
++-/* rule 61 can match eol */
++-YY_RULE_SETUP
++-#line 643 "preprocessorLex.l"
++-{
++- char* fileName;
++- BEGIN( INITIAL );
++- fileName = adms_preprocessor_lex_get_path(preprocessortext,'<','>');
++- adms_message_info(("%s: implicit path handled as explicit path!",fileName))
++- adms_preprocessor_lex_include_file(fileName);
++- tkreturn(TK_INCLUDE)
++-}
++- YY_BREAK
++-case 62:
++-YY_RULE_SETUP
++-#line 651 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - bad path");
++- pproot()->cr_scanner->cur_message=string;
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 63:
++-YY_RULE_SETUP
++-#line 661 "preprocessorLex.l"
++-{
++- pproot()->cr_scanner->cur_char_position+=preprocessorleng;
++-}
++- YY_BREAK
++-case 64:
++-YY_RULE_SETUP
++-#line 664 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=adms_preprocessor_lex_skipp_text (); return(TK_COMMENT);
++-}
++- YY_BREAK
++-case 65:
++-/* rule 65 can match eol */
++-YY_RULE_SETUP
++-#line 667 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr=adms_preprocessor_lex_skipp_text (); return(TK_COMMENT);
++-}
++- YY_BREAK
++-case 66:
++-/* rule 66 can match eol */
++-YY_RULE_SETUP
++-#line 670 "preprocessorLex.l"
++-{
++- p_continuator continuator;
++-
++- continuator=(p_continuator)malloc(sizeof(t_continuator));
++- continuator->char_position = preprocessorleng-1;
++- continuator->line_position = pproot()->cr_scanner->cur_line_position;
++-
++- pproot()->cr_scanner->cur_line_position += 1;
++- pproot()->cr_scanner->cur_char_position = 1;
++- adms_slist_push(&(pproot()->cr_scanner->cur_continuator_position),(p_adms)continuator);
++-
++- tkreturn(TK_CONTINUATOR)
++-
++-}
++- YY_BREAK
++-case 67:
++-/* rule 67 can match eol */
++-YY_RULE_SETUP
++-#line 684 "preprocessorLex.l"
++-{
++- yyflex_unput
++- BEGIN( INITIAL );
++-}
++- YY_BREAK
++-case 68:
++-YY_RULE_SETUP
++-#line 688 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - unknown error");
++- pproot()->cr_scanner->cur_message=string;
++- yyflex_unput
++- BEGIN( PRAGMA_ERROR );
++-}
++- YY_BREAK
++-case 69:
++-/* rule 69 can match eol */
++-YY_RULE_SETUP
++-#line 698 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- adms_k2strconcat(&string,"at character ");
++- adms_k2strconcat(&string,preprocessortext);
++- adms_k2strconcat(&string," - unknown error");
++- pproot()->cr_scanner->cur_message=string;
++- tkreturn(TK_ERROR_PRAGMA_DEFINITION)
++-}
++- YY_BREAK
++-case 70:
++-YY_RULE_SETUP
++-#line 707 "preprocessorLex.l"
++-{
++-
++- p_preprocessor_pragma_define Define;
++- preprocessorlval.mystr =
++- strdup(adms_preprocessor_lex_remove_leading_quote( preprocessortext));
++- if(DONT_SKIPP)
++- {
++- if ((Define = adms_preprocessor_pragma_define_exists (preprocessorlval.mystr)))
++- {
++- if(adms_preprocessor_pragma_define_has_noarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NOARG)
++- else if(adms_preprocessor_pragma_define_has_nullarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NULLARG)
++- else
++- tkreturn(TK_SUBSTITUTOR_WITHARG)
++- }
++- else
++- {
++- preprocessorlval.mystr = strdup(preprocessortext);
++- pproot()->cr_scanner->cur_message=strdup(preprocessortext);
++- tkreturn(TK_ERROR_PRAGMA_NOT_FOUND)
++- }
++- }
++- else
++- tkreturn(TK_IDENT)
++-
++-}
++- YY_BREAK
++-case 71:
++-YY_RULE_SETUP
++-#line 735 "preprocessorLex.l"
++-{
++-
++- preprocessorlval.mystr =
++- strdup(adms_preprocessor_lex_remove_leading_quote( preprocessortext ));
++- {
++- p_preprocessor_pragma_define Define;
++- if(DONT_SKIPP)
++- {
++- if((Define=adms_preprocessor_pragma_define_exists (preprocessorlval.mystr)))
++- {
++- if(adms_preprocessor_pragma_define_has_noarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NOARG)
++- else if(adms_preprocessor_pragma_define_has_nullarg(Define))
++- tkreturn(TK_SUBSTITUTOR_NULLARG_ALONE)
++- else
++- tkreturn(TK_SUBSTITUTOR_WITHARG_ALONE)
++- }
++- else
++- {
++- preprocessorlval.mystr = strdup(preprocessortext);
++- pproot()->cr_scanner->cur_message=strdup(preprocessortext);
++- tkreturn(TK_ERROR_PRAGMA_NOT_FOUND)
++- }
++- }
++- else
++- tkreturn(TK_IDENT)
++- }
++-
++-}
++- YY_BREAK
++-case 72:
++-YY_RULE_SETUP
++-#line 765 "preprocessorLex.l"
++-{
++-
++- preprocessorlval.mystr = strdup(preprocessortext);
++- tkreturn(TK_IDENT)
++-
++-}
++- YY_BREAK
++-case 73:
++-YY_RULE_SETUP
++-#line 772 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- return '(';
++-}
++- YY_BREAK
++-case 74:
++-YY_RULE_SETUP
++-#line 777 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- return ')';
++-}
++- YY_BREAK
++-case 75:
++-YY_RULE_SETUP
++-#line 782 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- return ',';
++-}
++- YY_BREAK
++-case 76:
++-YY_RULE_SETUP
++-#line 787 "preprocessorLex.l"
++-{
++- preprocessorlval.mystr = strdup(preprocessortext);
++- return TK_NOT_IDENT;
++-}
++- YY_BREAK
++-case YY_STATE_EOF(INITIAL):
++-case YY_STATE_EOF(PRAGMA_PATH):
++-case YY_STATE_EOF(PRAGMA_COMMENT):
++-case YY_STATE_EOF(PRAGMA_NAME):
++-case YY_STATE_EOF(PRAGMA_ERROR):
++-case YY_STATE_EOF(PRAGMA_DEFINE_START):
++-case YY_STATE_EOF(PRAGMA_DEFINE_IGNORE):
++-case YY_STATE_EOF(PRAGMA_DEFINE_NOARG):
++-case YY_STATE_EOF(PRAGMA_DEFINE_WITHARG):
++-case YY_STATE_EOF(PRAGMA_DEFINE_TEXT_START):
++-case YY_STATE_EOF(PRAGMA_DEFINE_TEXT):
++-case YY_STATE_EOF(PRAGMA_DEFINE_WITHARG_COMMA):
++-case YY_STATE_EOF(PRAGMA_DEFINE_WITHARG_ARGS):
++-case YY_STATE_EOF(PRAGMA_SUBSTITUTOR_START):
++-case YY_STATE_EOF(PRAGMA_SUBSTITUTOR_ARG):
++-case YY_STATE_EOF(PRAGMA_SUBSTITUTOR_PAIR):
++-case YY_STATE_EOF(PRAGMA_SUBSTITUTOR_ARGITEM):
++-case YY_STATE_EOF(PRAGMA_SUBSTITUTOR_ARGCOMMA):
++-case YY_STATE_EOF(PRAGMA_SUBSTITUTOR_ARGEND):
++-#line 792 "preprocessorLex.l"
++-{
++- char* string=NULL;
++- if( pproot()->Scanner != NULL )
++- {
++- preprocessor_delete_buffer((YY_BUFFER_STATE)(pproot()->cr_scanner->buffer));
++- free(pproot()->cr_scanner );
++- pproot()->cr_scanner = (p_preprocessor) adms_slist_pull(&pproot()->Scanner );
++- preprocessorin = pproot()->cr_scanner->fid;
++- preprocessor_switch_to_buffer((YY_BUFFER_STATE)pproot()->cr_scanner->buffer );
++- }
++- else
++- yyterminate ();
++- adms_k2strconcat(&string,"# ");
++- adms_strconcat(&string,adms_integertostring(pproot()->cr_scanner->cur_line_position+1));
++- adms_k2strconcat(&string," \"");
++- adms_k2strconcat(&string,pproot()->cr_scanner->filename);
++- adms_k2strconcat(&string,"\"");
++- preprocessorlval.mystr=string;
++- tkreturn(TK_EOF)
++-}
++- YY_BREAK
++-case 77:
++-YY_RULE_SETUP
++-#line 813 "preprocessorLex.l"
++-ECHO;
++- YY_BREAK
++-#line 2223 "preprocessorLex.c"
++-
++- case YY_END_OF_BUFFER:
++- {
++- /* Amount of text matched not including the EOB char. */
++- int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
++-
++- /* Undo the effects of YY_DO_BEFORE_ACTION. */
++- *yy_cp = (yy_hold_char);
++- YY_RESTORE_YY_MORE_OFFSET
++-
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
++- {
++- /* We're scanning a new file or input source. It's
++- * possible that this happened because the user
++- * just pointed preprocessorin at a new source and called
++- * preprocessorlex(). If so, then we have to assure
++- * consistency between YY_CURRENT_BUFFER and our
++- * globals. Here is the right place to do so, because
++- * this is the first action (other than possibly a
++- * back-up) that will match for the new input source.
++- */
++- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
++- YY_CURRENT_BUFFER_LVALUE->yy_input_file = preprocessorin;
++- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
++- }
++-
++- /* Note that here we test for yy_c_buf_p "<=" to the position
++- * of the first EOB in the buffer, since yy_c_buf_p will
++- * already have been incremented past the NUL character
++- * (since all states make transitions on EOB to the
++- * end-of-buffer state). Contrast this with the test
++- * in input().
++- */
++- if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
++- { /* This was really a NUL. */
++- yy_state_type yy_next_state;
++-
++- (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
++-
++- yy_current_state = yy_get_previous_state( );
++-
++- /* Okay, we're now positioned to make the NUL
++- * transition. We couldn't have
++- * yy_get_previous_state() go ahead and do it
++- * for us because it doesn't know how to deal
++- * with the possibility of jamming (and we don't
++- * want to build jamming into it because then it
++- * will run more slowly).
++- */
++-
++- yy_next_state = yy_try_NUL_trans( yy_current_state );
++-
++- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
++-
++- if ( yy_next_state )
++- {
++- /* Consume the NUL. */
++- yy_cp = ++(yy_c_buf_p);
++- yy_current_state = yy_next_state;
++- goto yy_match;
++- }
++-
++- else
++- {
++- yy_cp = (yy_c_buf_p);
++- goto yy_find_action;
++- }
++- }
++-
++- else switch ( yy_get_next_buffer( ) )
++- {
++- case EOB_ACT_END_OF_FILE:
++- {
++- (yy_did_buffer_switch_on_eof) = 0;
++-
++- if ( preprocessorwrap( ) )
++- {
++- /* Note: because we've taken care in
++- * yy_get_next_buffer() to have set up
++- * preprocessortext, we can now set up
++- * yy_c_buf_p so that if some total
++- * hoser (like flex itself) wants to
++- * call the scanner after we return the
++- * YY_NULL, it'll still work - another
++- * YY_NULL will get returned.
++- */
++- (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
++-
++- yy_act = YY_STATE_EOF(YY_START);
++- goto do_action;
++- }
++-
++- else
++- {
++- if ( ! (yy_did_buffer_switch_on_eof) )
++- YY_NEW_FILE;
++- }
++- break;
++- }
++-
++- case EOB_ACT_CONTINUE_SCAN:
++- (yy_c_buf_p) =
++- (yytext_ptr) + yy_amount_of_matched_text;
++-
++- yy_current_state = yy_get_previous_state( );
++-
++- yy_cp = (yy_c_buf_p);
++- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
++- goto yy_match;
++-
++- case EOB_ACT_LAST_MATCH:
++- (yy_c_buf_p) =
++- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
++-
++- yy_current_state = yy_get_previous_state( );
++-
++- yy_cp = (yy_c_buf_p);
++- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
++- goto yy_find_action;
++- }
++- break;
++- }
++-
++- default:
++- YY_FATAL_ERROR(
++- "fatal flex scanner internal error--no action found" );
++- } /* end of action switch */
++- } /* end of scanning one token */
++-} /* end of preprocessorlex */
++-
++-/* yy_get_next_buffer - try to read in a new buffer
++- *
++- * Returns a code representing an action:
++- * EOB_ACT_LAST_MATCH -
++- * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
++- * EOB_ACT_END_OF_FILE - end of file
++- */
++-static int yy_get_next_buffer (void)
++-{
++- register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
++- register char *source = (yytext_ptr);
++- register int number_to_move, i;
++- int ret_val;
++-
++- if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
++- YY_FATAL_ERROR(
++- "fatal flex scanner internal error--end of buffer missed" );
++-
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
++- { /* Don't try to fill the buffer, so this is an EOF. */
++- if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
++- {
++- /* We matched a single character, the EOB, so
++- * treat this as a final EOF.
++- */
++- return EOB_ACT_END_OF_FILE;
++- }
++-
++- else
++- {
++- /* We matched some text prior to the EOB, first
++- * process it.
++- */
++- return EOB_ACT_LAST_MATCH;
++- }
++- }
++-
++- /* Try to read more data. */
++-
++- /* First move last chars to start of buffer. */
++- number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
++-
++- for ( i = 0; i < number_to_move; ++i )
++- *(dest++) = *(source++);
++-
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
++- /* don't do the read, it's not guaranteed to return an EOF,
++- * just force an EOF
++- */
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
++-
++- else
++- {
++- yy_size_t num_to_read =
++- YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
++-
++- while ( num_to_read <= 0 )
++- { /* Not enough room in the buffer - grow it. */
++-
++- YY_FATAL_ERROR(
++-"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
++-
++- }
++-
++- if ( num_to_read > YY_READ_BUF_SIZE )
++- num_to_read = YY_READ_BUF_SIZE;
++-
++- /* Read in more data. */
++- YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
++- (yy_n_chars), num_to_read );
++-
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
++- }
++-
++- if ( (yy_n_chars) == 0 )
++- {
++- if ( number_to_move == YY_MORE_ADJ )
++- {
++- ret_val = EOB_ACT_END_OF_FILE;
++- preprocessorrestart(preprocessorin );
++- }
++-
++- else
++- {
++- ret_val = EOB_ACT_LAST_MATCH;
++- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
++- YY_BUFFER_EOF_PENDING;
++- }
++- }
++-
++- else
++- ret_val = EOB_ACT_CONTINUE_SCAN;
++-
++- if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
++- /* Extend the array by 50%, plus the number we really need. */
++- yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
++- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) preprocessorrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
++- if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
++- YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
++- }
++-
++- (yy_n_chars) += number_to_move;
++- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
++- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
++-
++- (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
++-
++- return ret_val;
++-}
++-
++-/* yy_get_previous_state - get the state just before the EOB char was reached */
++-
++- static yy_state_type yy_get_previous_state (void)
++-{
++- register yy_state_type yy_current_state;
++- register char *yy_cp;
++-
++- yy_current_state = (yy_start);
++- yy_current_state += YY_AT_BOL();
++-
++- (yy_state_ptr) = (yy_state_buf);
++- *(yy_state_ptr)++ = yy_current_state;
++-
++- for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
++- {
++- register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
++- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
++- {
++- yy_current_state = (int) yy_def[yy_current_state];
++- if ( yy_current_state >= 294 )
++- yy_c = yy_meta[(unsigned int) yy_c];
++- }
++- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
++- *(yy_state_ptr)++ = yy_current_state;
++- }
++-
++- return yy_current_state;
++-}
++-
++-/* yy_try_NUL_trans - try to make a transition on the NUL character
++- *
++- * synopsis
++- * next_state = yy_try_NUL_trans( current_state );
++- */
++- static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
++-{
++- register int yy_is_jam;
++-
++- register YY_CHAR yy_c = 1;
++- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
++- {
++- yy_current_state = (int) yy_def[yy_current_state];
++- if ( yy_current_state >= 294 )
++- yy_c = yy_meta[(unsigned int) yy_c];
++- }
++- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
++- yy_is_jam = (yy_current_state == 293);
++- if ( ! yy_is_jam )
++- *(yy_state_ptr)++ = yy_current_state;
++-
++- return yy_is_jam ? 0 : yy_current_state;
++-}
++-
++- static void yyunput (int c, register char * yy_bp )
++-{
++- register char *yy_cp;
++-
++- yy_cp = (yy_c_buf_p);
++-
++- /* undo effects of setting up preprocessortext */
++- *yy_cp = (yy_hold_char);
++-
++- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
++- { /* need to shift things up to make room */
++- /* +2 for EOB chars. */
++- register yy_size_t number_to_move = (yy_n_chars) + 2;
++- register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
++- YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
++- register char *source =
++- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
++-
++- while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
++- *--dest = *--source;
++-
++- yy_cp += (int) (dest - source);
++- yy_bp += (int) (dest - source);
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
++- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
++-
++- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
++- YY_FATAL_ERROR( "flex scanner push-back overflow" );
++- }
++-
++- *--yy_cp = (char) c;
++-
++- (yytext_ptr) = yy_bp;
++- (yy_hold_char) = *yy_cp;
++- (yy_c_buf_p) = yy_cp;
++-}
++-
++-#ifndef YY_NO_INPUT
++-#ifdef __cplusplus
++- static int yyinput (void)
++-#else
++- static int input (void)
++-#endif
++-
++-{
++- int c;
++-
++- *(yy_c_buf_p) = (yy_hold_char);
++-
++- if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
++- {
++- /* yy_c_buf_p now points to the character we want to return.
++- * If this occurs *before* the EOB characters, then it's a
++- * valid NUL; if not, then we've hit the end of the buffer.
++- */
++- if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
++- /* This was really a NUL. */
++- *(yy_c_buf_p) = '\0';
++-
++- else
++- { /* need more input */
++- yy_size_t offset = (yy_c_buf_p) - (yytext_ptr);
++- ++(yy_c_buf_p);
++-
++- switch ( yy_get_next_buffer( ) )
++- {
++- case EOB_ACT_LAST_MATCH:
++- /* This happens because yy_g_n_b()
++- * sees that we've accumulated a
++- * token and flags that we need to
++- * try matching the token before
++- * proceeding. But for input(),
++- * there's no matching to consider.
++- * So convert the EOB_ACT_LAST_MATCH
++- * to EOB_ACT_END_OF_FILE.
++- */
++-
++- /* Reset buffer status. */
++- preprocessorrestart(preprocessorin );
++-
++- /*FALLTHROUGH*/
++-
++- case EOB_ACT_END_OF_FILE:
++- {
++- if ( preprocessorwrap( ) )
++- return EOF;
++-
++- if ( ! (yy_did_buffer_switch_on_eof) )
++- YY_NEW_FILE;
++-#ifdef __cplusplus
++- return yyinput();
++-#else
++- return input();
++-#endif
++- }
++-
++- case EOB_ACT_CONTINUE_SCAN:
++- (yy_c_buf_p) = (yytext_ptr) + offset;
++- break;
++- }
++- }
++- }
++-
++- c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
++- *(yy_c_buf_p) = '\0'; /* preserve preprocessortext */
++- (yy_hold_char) = *++(yy_c_buf_p);
++-
++- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
++-
++- return c;
++-}
++-#endif /* ifndef YY_NO_INPUT */
++-
++-/** Immediately switch to a different input stream.
++- * @param input_file A readable stream.
++- *
++- * @note This function does not reset the start condition to @c INITIAL .
++- */
++- void preprocessorrestart (FILE * input_file )
++-{
++-
++- if ( ! YY_CURRENT_BUFFER ){
++- preprocessorensure_buffer_stack ();
++- YY_CURRENT_BUFFER_LVALUE =
++- preprocessor_create_buffer(preprocessorin,YY_BUF_SIZE );
++- }
++-
++- preprocessor_init_buffer(YY_CURRENT_BUFFER,input_file );
++- preprocessor_load_buffer_state( );
++-}
++-
++-/** Switch to a different input buffer.
++- * @param new_buffer The new input buffer.
++- *
++- */
++- void preprocessor_switch_to_buffer (YY_BUFFER_STATE new_buffer )
++-{
++-
++- /* TODO. We should be able to replace this entire function body
++- * with
++- * preprocessorpop_buffer_state();
++- * preprocessorpush_buffer_state(new_buffer);
++- */
++- preprocessorensure_buffer_stack ();
++- if ( YY_CURRENT_BUFFER == new_buffer )
++- return;
++-
++- if ( YY_CURRENT_BUFFER )
++- {
++- /* Flush out information for old buffer. */
++- *(yy_c_buf_p) = (yy_hold_char);
++- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
++- }
++-
++- YY_CURRENT_BUFFER_LVALUE = new_buffer;
++- preprocessor_load_buffer_state( );
++-
++- /* We don't actually know whether we did this switch during
++- * EOF (preprocessorwrap()) processing, but the only time this flag
++- * is looked at is after preprocessorwrap() is called, so it's safe
++- * to go ahead and always set it.
++- */
++- (yy_did_buffer_switch_on_eof) = 1;
++-}
++-
++-static void preprocessor_load_buffer_state (void)
++-{
++- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
++- (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
++- preprocessorin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
++- (yy_hold_char) = *(yy_c_buf_p);
++-}
++-
++-/** Allocate and initialize an input buffer state.
++- * @param file A readable stream.
++- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
++- *
++- * @return the allocated buffer state.
++- */
++- YY_BUFFER_STATE preprocessor_create_buffer (FILE * file, int size )
++-{
++- YY_BUFFER_STATE b;
++-
++- b = (YY_BUFFER_STATE) preprocessoralloc(sizeof( struct yy_buffer_state ) );
++- if ( ! b )
++- YY_FATAL_ERROR( "out of dynamic memory in preprocessor_create_buffer()" );
++-
++- b->yy_buf_size = size;
++-
++- /* yy_ch_buf has to be 2 characters longer than the size given because
++- * we need to put in 2 end-of-buffer characters.
++- */
++- b->yy_ch_buf = (char *) preprocessoralloc(b->yy_buf_size + 2 );
++- if ( ! b->yy_ch_buf )
++- YY_FATAL_ERROR( "out of dynamic memory in preprocessor_create_buffer()" );
++-
++- b->yy_is_our_buffer = 1;
++-
++- preprocessor_init_buffer(b,file );
++-
++- return b;
++-}
++-
++-/** Destroy the buffer.
++- * @param b a buffer created with preprocessor_create_buffer()
++- *
++- */
++- void preprocessor_delete_buffer (YY_BUFFER_STATE b )
++-{
++-
++- if ( ! b )
++- return;
++-
++- if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
++- YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
++-
++- if ( b->yy_is_our_buffer )
++- preprocessorfree((void *) b->yy_ch_buf );
++-
++- preprocessorfree((void *) b );
++-}
++-
++-/* Initializes or reinitializes a buffer.
++- * This function is sometimes called more than once on the same buffer,
++- * such as during a preprocessorrestart() or at EOF.
++- */
++- static void preprocessor_init_buffer (YY_BUFFER_STATE b, FILE * file )
++-
++-{
++- int oerrno = errno;
++-
++- preprocessor_flush_buffer(b );
++-
++- b->yy_input_file = file;
++- b->yy_fill_buffer = 1;
++-
++- /* If b is the current buffer, then preprocessor_init_buffer was _probably_
++- * called from preprocessorrestart() or through yy_get_next_buffer.
++- * In that case, we don't want to reset the lineno or column.
++- */
++- if (b != YY_CURRENT_BUFFER){
++- b->yy_bs_lineno = 1;
++- b->yy_bs_column = 0;
++- }
++-
++- b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
++-
++- errno = oerrno;
++-}
++-
++-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
++- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
++- *
++- */
++- void preprocessor_flush_buffer (YY_BUFFER_STATE b )
++-{
++- if ( ! b )
++- return;
++-
++- b->yy_n_chars = 0;
++-
++- /* We always need two end-of-buffer characters. The first causes
++- * a transition to the end-of-buffer state. The second causes
++- * a jam in that state.
++- */
++- b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
++- b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
++-
++- b->yy_buf_pos = &b->yy_ch_buf[0];
++-
++- b->yy_at_bol = 1;
++- b->yy_buffer_status = YY_BUFFER_NEW;
++-
++- if ( b == YY_CURRENT_BUFFER )
++- preprocessor_load_buffer_state( );
++-}
++-
++-/** Pushes the new state onto the stack. The new state becomes
++- * the current state. This function will allocate the stack
++- * if necessary.
++- * @param new_buffer The new state.
++- *
++- */
++-void preprocessorpush_buffer_state (YY_BUFFER_STATE new_buffer )
++-{
++- if (new_buffer == NULL)
++- return;
++-
++- preprocessorensure_buffer_stack();
++-
++- /* This block is copied from preprocessor_switch_to_buffer. */
++- if ( YY_CURRENT_BUFFER )
++- {
++- /* Flush out information for old buffer. */
++- *(yy_c_buf_p) = (yy_hold_char);
++- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
++- }
++-
++- /* Only push if top exists. Otherwise, replace top. */
++- if (YY_CURRENT_BUFFER)
++- (yy_buffer_stack_top)++;
++- YY_CURRENT_BUFFER_LVALUE = new_buffer;
++-
++- /* copied from preprocessor_switch_to_buffer. */
++- preprocessor_load_buffer_state( );
++- (yy_did_buffer_switch_on_eof) = 1;
++-}
++-
++-/** Removes and deletes the top of the stack, if present.
++- * The next element becomes the new top.
++- *
++- */
++-void preprocessorpop_buffer_state (void)
++-{
++- if (!YY_CURRENT_BUFFER)
++- return;
++-
++- preprocessor_delete_buffer(YY_CURRENT_BUFFER );
++- YY_CURRENT_BUFFER_LVALUE = NULL;
++- if ((yy_buffer_stack_top) > 0)
++- --(yy_buffer_stack_top);
++-
++- if (YY_CURRENT_BUFFER) {
++- preprocessor_load_buffer_state( );
++- (yy_did_buffer_switch_on_eof) = 1;
++- }
++-}
++-
++-/* Allocates the stack if it does not exist.
++- * Guarantees space for at least one push.
++- */
++-static void preprocessorensure_buffer_stack (void)
++-{
++- yy_size_t num_to_alloc;
++-
++- if (!(yy_buffer_stack)) {
++-
++- /* First allocation is just for 2 elements, since we don't know if this
++- * scanner will even need a stack. We use 2 instead of 1 to avoid an
++- * immediate realloc on the next call.
++- */
++- num_to_alloc = 1;
++- (yy_buffer_stack) = (struct yy_buffer_state**)preprocessoralloc
++- (num_to_alloc * sizeof(struct yy_buffer_state*)
++- );
++- if ( ! (yy_buffer_stack) )
++- YY_FATAL_ERROR( "out of dynamic memory in preprocessorensure_buffer_stack()" );
++-
++- memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
++-
++- (yy_buffer_stack_max) = num_to_alloc;
++- (yy_buffer_stack_top) = 0;
++- return;
++- }
++-
++- if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
++-
++- /* Increase the buffer to prepare for a possible push. */
++- int grow_size = 8 /* arbitrary grow size */;
++-
++- num_to_alloc = (yy_buffer_stack_max) + grow_size;
++- (yy_buffer_stack) = (struct yy_buffer_state**)preprocessorrealloc
++- ((yy_buffer_stack),
++- num_to_alloc * sizeof(struct yy_buffer_state*)
++- );
++- if ( ! (yy_buffer_stack) )
++- YY_FATAL_ERROR( "out of dynamic memory in preprocessorensure_buffer_stack()" );
++-
++- /* zero only the new slots.*/
++- memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
++- (yy_buffer_stack_max) = num_to_alloc;
++- }
++-}
++-
++-/** Setup the input buffer state to scan directly from a user-specified character buffer.
++- * @param base the character buffer
++- * @param size the size in bytes of the character buffer
++- *
++- * @return the newly allocated buffer state object.
++- */
++-YY_BUFFER_STATE preprocessor_scan_buffer (char * base, yy_size_t size )
++-{
++- YY_BUFFER_STATE b;
++-
++- if ( size < 2 ||
++- base[size-2] != YY_END_OF_BUFFER_CHAR ||
++- base[size-1] != YY_END_OF_BUFFER_CHAR )
++- /* They forgot to leave room for the EOB's. */
++- return 0;
++-
++- b = (YY_BUFFER_STATE) preprocessoralloc(sizeof( struct yy_buffer_state ) );
++- if ( ! b )
++- YY_FATAL_ERROR( "out of dynamic memory in preprocessor_scan_buffer()" );
++-
++- b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
++- b->yy_buf_pos = b->yy_ch_buf = base;
++- b->yy_is_our_buffer = 0;
++- b->yy_input_file = 0;
++- b->yy_n_chars = b->yy_buf_size;
++- b->yy_is_interactive = 0;
++- b->yy_at_bol = 1;
++- b->yy_fill_buffer = 0;
++- b->yy_buffer_status = YY_BUFFER_NEW;
++-
++- preprocessor_switch_to_buffer(b );
++-
++- return b;
++-}
++-
++-/** Setup the input buffer state to scan a string. The next call to preprocessorlex() will
++- * scan from a @e copy of @a str.
++- * @param yystr a NUL-terminated string to scan
++- *
++- * @return the newly allocated buffer state object.
++- * @note If you want to scan bytes that may contain NUL values, then use
++- * preprocessor_scan_bytes() instead.
++- */
++-YY_BUFFER_STATE preprocessor_scan_string (yyconst char * yystr )
++-{
++-
++- return preprocessor_scan_bytes(yystr,strlen(yystr) );
++-}
++-
++-/** Setup the input buffer state to scan the given bytes. The next call to preprocessorlex() will
++- * scan from a @e copy of @a bytes.
++- * @param yybytes the byte buffer to scan
++- * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
++- *
++- * @return the newly allocated buffer state object.
++- */
++-YY_BUFFER_STATE preprocessor_scan_bytes (yyconst char * yybytes, yy_size_t _yybytes_len )
++-{
++- YY_BUFFER_STATE b;
++- char *buf;
++- yy_size_t n;
++- int i;
++-
++- /* Get memory for full buffer, including space for trailing EOB's. */
++- n = _yybytes_len + 2;
++- buf = (char *) preprocessoralloc(n );
++- if ( ! buf )
++- YY_FATAL_ERROR( "out of dynamic memory in preprocessor_scan_bytes()" );
++-
++- for ( i = 0; i < _yybytes_len; ++i )
++- buf[i] = yybytes[i];
++-
++- buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
++-
++- b = preprocessor_scan_buffer(buf,n );
++- if ( ! b )
++- YY_FATAL_ERROR( "bad buffer in preprocessor_scan_bytes()" );
++-
++- /* It's okay to grow etc. this buffer, and we should throw it
++- * away when we're done.
++- */
++- b->yy_is_our_buffer = 1;
++-
++- return b;
++-}
++-
++-#ifndef YY_EXIT_FAILURE
++-#define YY_EXIT_FAILURE 2
++-#endif
++-
++-static void yy_fatal_error (yyconst char* msg )
++-{
++- (void) fprintf( stderr, "%s\n", msg );
++- exit( YY_EXIT_FAILURE );
++-}
++-
++-/* Redefine yyless() so it works in section 3 code. */
++-
++-#undef yyless
++-#define yyless(n) \
++- do \
++- { \
++- /* Undo effects of setting up preprocessortext. */ \
++- int yyless_macro_arg = (n); \
++- YY_LESS_LINENO(yyless_macro_arg);\
++- preprocessortext[preprocessorleng] = (yy_hold_char); \
++- (yy_c_buf_p) = preprocessortext + yyless_macro_arg; \
++- (yy_hold_char) = *(yy_c_buf_p); \
++- *(yy_c_buf_p) = '\0'; \
++- preprocessorleng = yyless_macro_arg; \
++- } \
++- while ( 0 )
++-
++-/* Accessor methods (get/set functions) to struct members. */
++-
++-/** Get the current line number.
++- *
++- */
++-int preprocessorget_lineno (void)
++-{
++-
++- return preprocessorlineno;
++-}
++-
++-/** Get the input stream.
++- *
++- */
++-FILE *preprocessorget_in (void)
++-{
++- return preprocessorin;
++-}
++-
++-/** Get the output stream.
++- *
++- */
++-FILE *preprocessorget_out (void)
++-{
++- return preprocessorout;
++-}
++-
++-/** Get the length of the current token.
++- *
++- */
++-yy_size_t preprocessorget_leng (void)
++-{
++- return preprocessorleng;
++-}
++-
++-/** Get the current token.
++- *
++- */
++-
++-char *preprocessorget_text (void)
++-{
++- return preprocessortext;
++-}
++-
++-/** Set the current line number.
++- * @param line_number
++- *
++- */
++-void preprocessorset_lineno (int line_number )
++-{
++-
++- preprocessorlineno = line_number;
++-}
++-
++-/** Set the input stream. This does not discard the current
++- * input buffer.
++- * @param in_str A readable stream.
++- *
++- * @see preprocessor_switch_to_buffer
++- */
++-void preprocessorset_in (FILE * in_str )
++-{
++- preprocessorin = in_str ;
++-}
++-
++-void preprocessorset_out (FILE * out_str )
++-{
++- preprocessorout = out_str ;
++-}
++-
++-int preprocessorget_debug (void)
++-{
++- return preprocessor_flex_debug;
++-}
++-
++-void preprocessorset_debug (int bdebug )
++-{
++- preprocessor_flex_debug = bdebug ;
++-}
++-
++-static int yy_init_globals (void)
++-{
++- /* Initialization is the same as for the non-reentrant scanner.
++- * This function is called from preprocessorlex_destroy(), so don't allocate here.
++- */
++-
++- (yy_buffer_stack) = 0;
++- (yy_buffer_stack_top) = 0;
++- (yy_buffer_stack_max) = 0;
++- (yy_c_buf_p) = (char *) 0;
++- (yy_init) = 0;
++- (yy_start) = 0;
++-
++- (yy_state_buf) = 0;
++- (yy_state_ptr) = 0;
++- (yy_full_match) = 0;
++- (yy_lp) = 0;
++-
++-/* Defined in main.c */
++-#ifdef YY_STDINIT
++- preprocessorin = stdin;
++- preprocessorout = stdout;
++-#else
++- preprocessorin = (FILE *) 0;
++- preprocessorout = (FILE *) 0;
++-#endif
++-
++- /* For future reference: Set errno on error, since we are called by
++- * preprocessorlex_init()
++- */
++- return 0;
++-}
++-
++-/* preprocessorlex_destroy is for both reentrant and non-reentrant scanners. */
++-int preprocessorlex_destroy (void)
++-{
++-
++- /* Pop the buffer stack, destroying each element. */
++- while(YY_CURRENT_BUFFER){
++- preprocessor_delete_buffer(YY_CURRENT_BUFFER );
++- YY_CURRENT_BUFFER_LVALUE = NULL;
++- preprocessorpop_buffer_state();
++- }
++-
++- /* Destroy the stack itself. */
++- preprocessorfree((yy_buffer_stack) );
++- (yy_buffer_stack) = NULL;
++-
++- preprocessorfree ( (yy_state_buf) );
++- (yy_state_buf) = NULL;
++-
++- /* Reset the globals. This is important in a non-reentrant scanner so the next time
++- * preprocessorlex() is called, initialization will occur. */
++- yy_init_globals( );
++-
++- return 0;
++-}
++-
++-/*
++- * Internal utility routines.
++- */
++-
++-#ifndef yytext_ptr
++-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
++-{
++- register int i;
++- for ( i = 0; i < n; ++i )
++- s1[i] = s2[i];
++-}
++-#endif
++-
++-#ifdef YY_NEED_STRLEN
++-static int yy_flex_strlen (yyconst char * s )
++-{
++- register int n;
++- for ( n = 0; s[n]; ++n )
++- ;
++-
++- return n;
++-}
++-#endif
++-
++-void *preprocessoralloc (yy_size_t size )
++-{
++- return (void *) malloc( size );
++-}
++-
++-void *preprocessorrealloc (void * ptr, yy_size_t size )
++-{
++- /* The cast to (char *) in the following accommodates both
++- * implementations that use char* generic pointers, and those
++- * that use void* generic pointers. It works with the latter
++- * because both ANSI C and C++ allow castless assignment from
++- * any pointer type to void*, and deal with argument conversions
++- * as though doing an assignment.
++- */
++- return (void *) realloc( (char *) ptr, size );
++-}
++-
++-void preprocessorfree (void * ptr )
++-{
++- free( (char *) ptr ); /* see preprocessorrealloc() for (char *) cast */
++-}
++-
++-#define YYTABLES_NAME "yytables"
++-
++-#line 813 "preprocessorLex.l"
++-
++-
++-int preprocessorwrap (void) {return 1;}
++-
++-
++diff --git a/admsXml/preprocessorYacc.c b/admsXml/preprocessorYacc.c
++deleted file mode 100644
++index 749e7b1..0000000
++--- a/admsXml/preprocessorYacc.c
+++++ /dev/null
++@@ -1,2688 +0,0 @@
++-/* A Bison parser, made by GNU Bison 2.7.12-4996. */
++-
++-/* Bison implementation for Yacc-like parsers in C
++-
++- Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
++-
++- This program is free software: you can redistribute it and/or modify
++- it under the terms of the GNU General Public License as published by
++- the Free Software Foundation, either version 3 of the License, or
++- (at your option) any later version.
++-
++- This program is distributed in the hope that it will be useful,
++- but WITHOUT ANY WARRANTY; without even the implied warranty of
++- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
++- GNU General Public License for more details.
++-
++- You should have received a copy of the GNU General Public License
++- along with this program. If not, see <http://www.gnu.org/licenses/>. */
++-
++-/* As a special exception, you may create a larger work that contains
++- part or all of the Bison parser skeleton and distribute that work
++- under terms of your choice, so long as that work isn't itself a
++- parser generator using the skeleton or a modified version thereof
++- as a parser skeleton. Alternatively, if you modify or redistribute
++- the parser skeleton itself, you may (at your option) remove this
++- special exception, which will cause the skeleton and the resulting
++- Bison output files to be licensed under the GNU General Public
++- License without this special exception.
++-
++- This special exception was added by the Free Software Foundation in
++- version 2.2 of Bison. */
++-
++-/* C LALR(1) parser skeleton written by Richard Stallman, by
++- simplifying the original so-called "semantic" parser. */
++-
++-/* All symbols defined below should begin with yy or YY, to avoid
++- infringing on user name space. This should be done even for local
++- variables, as they might otherwise be expanded by user macros.
++- There are some unavoidable exceptions within include files to
++- define necessary library symbols; they are noted "INFRINGES ON
++- USER NAME SPACE" below. */
++-
++-/* Identify Bison output. */
++-#define YYBISON 1
++-
++-/* Bison version. */
++-#define YYBISON_VERSION "2.7.12-4996"
++-
++-/* Skeleton name. */
++-#define YYSKELETON_NAME "yacc.c"
++-
++-/* Pure parsers. */
++-#define YYPURE 0
++-
++-/* Push parsers. */
++-#define YYPUSH 0
++-
++-/* Pull parsers. */
++-#define YYPULL 1
++-
++-/* Substitute the type names. */
++-#define YYSTYPE PREPROCESSORSTYPE
++-/* Substitute the variable and function names. */
++-#define yyparse preprocessorparse
++-#define yylex preprocessorlex
++-#define yyerror preprocessorerror
++-#define yylval preprocessorlval
++-#define yychar preprocessorchar
++-#define yydebug preprocessordebug
++-#define yynerrs preprocessornerrs
++-
++-/* Copy the first part of user declarations. */
++-/* Line 371 of yacc.c */
++-#line 4 "preprocessorYacc.y"
++-
++-
++-#include "admsPreprocessor.h"
++-
++-#define YYDEBUG 1
++-#define KS(s) adms_k2strconcat(&message,s);
++-#define KI(i) adms_k2strconcat(&message,adms_integertostring(i));
++-#define K0 KS("[") KS(pproot()->cr_scanner->filename) KS(":") \
++- KI(adms_preprocessor_get_line_position(pproot()->cr_scanner,0)) KS("]: ")
++-#define DONT_SKIPP (pproot()->skipp_text->data==INT2ADMS(0))
++-
++-p_slist continuatorList=NULL;
++-p_slist condistrue=NULL;
++-
++-
++-/* Line 371 of yacc.c */
++-#line 92 "preprocessorYacc.c"
++-
++-# ifndef YY_NULL
++-# if defined __cplusplus && 201103L <= __cplusplus
++-# define YY_NULL nullptr
++-# else
++-# define YY_NULL 0
++-# endif
++-# endif
++-
++-/* Enabling verbose error messages. */
++-#ifdef YYERROR_VERBOSE
++-# undef YYERROR_VERBOSE
++-# define YYERROR_VERBOSE 1
++-#else
++-# define YYERROR_VERBOSE 0
++-#endif
++-
++-/* In a future release of Bison, this section will be replaced
++- by #include "y.tab.h". */
++-#ifndef YY_PREPROCESSOR_PREPROCESSORYACC_H_INCLUDED
++-# define YY_PREPROCESSOR_PREPROCESSORYACC_H_INCLUDED
++-/* Enabling traces. */
++-#ifndef PREPROCESSORDEBUG
++-# if defined YYDEBUG
++-# if YYDEBUG
++-# define PREPROCESSORDEBUG 1
++-# else
++-# define PREPROCESSORDEBUG 0
++-# endif
++-# else /* ! defined YYDEBUG */
++-# define PREPROCESSORDEBUG 0
++-# endif /* ! defined YYDEBUG */
++-#endif /* ! defined PREPROCESSORDEBUG */
++-#if PREPROCESSORDEBUG
++-extern int preprocessordebug;
++-#endif
++-
++-/* Tokens. */
++-#ifndef PREPROCESSORTOKENTYPE
++-# define PREPROCESSORTOKENTYPE
++- /* Put the tokens into the symbol table, so that GDB and other debuggers
++- know about them. */
++- enum preprocessortokentype {
++- TK_PRAGMA_NAME = 258,
++- TK_IDENT = 259,
++- TK_STRING = 260,
++- TK_NOT_IDENT = 261,
++- TK_ARG = 262,
++- TK_ARG_NULL = 263,
++- TK_SUBSTITUTOR_NOARG = 264,
++- TK_SUBSTITUTOR_NULLARG = 265,
++- TK_SUBSTITUTOR_NULLARG_ALONE = 266,
++- TK_SUBSTITUTOR_WITHARG = 267,
++- TK_SUBSTITUTOR_WITHARG_ALONE = 268,
++- TK_CONTINUATOR = 269,
++- TK_NOPRAGMA_CONTINUATOR = 270,
++- TK_EOL = 271,
++- TK_EOF = 272,
++- TK_COMMENT = 273,
++- TK_INCLUDE = 274,
++- TK_SPACE = 275,
++- TK_ERROR_PRAGMA_DEFINITION = 276,
++- TK_ERROR_PRAGMA_NOT_FOUND = 277,
++- TK_ERROR_UNEXPECTED_CHAR = 278,
++- TK_ERROR_FILE_OPEN = 279,
++- TK_DEFINE = 280,
++- TK_DEFINE_END = 281,
++- TK_UNDEF = 282,
++- TK_IFDEF = 283,
++- TK_IFNDEF = 284,
++- TK_ELSE = 285,
++- TK_ENDIF = 286
++- };
++-#endif
++-
++-
++-#if ! defined PREPROCESSORSTYPE && ! defined PREPROCESSORSTYPE_IS_DECLARED
++-typedef union PREPROCESSORSTYPE
++-{
++-/* Line 387 of yacc.c */
++-#line 20 "preprocessorYacc.y"
++-
++- p_slist slist;
++- char* mystr;
++-
++-
++-/* Line 387 of yacc.c */
++-#line 180 "preprocessorYacc.c"
++-} PREPROCESSORSTYPE;
++-# define PREPROCESSORSTYPE_IS_TRIVIAL 1
++-# define preprocessorstype PREPROCESSORSTYPE /* obsolescent; will be withdrawn */
++-# define PREPROCESSORSTYPE_IS_DECLARED 1
++-#endif
++-
++-extern PREPROCESSORSTYPE preprocessorlval;
++-
++-#ifdef YYPARSE_PARAM
++-#if defined __STDC__ || defined __cplusplus
++-int preprocessorparse (void *YYPARSE_PARAM);
++-#else
++-int preprocessorparse ();
++-#endif
++-#else /* ! YYPARSE_PARAM */
++-#if defined __STDC__ || defined __cplusplus
++-int preprocessorparse (void);
++-#else
++-int preprocessorparse ();
++-#endif
++-#endif /* ! YYPARSE_PARAM */
++-
++-#endif /* !YY_PREPROCESSOR_PREPROCESSORYACC_H_INCLUDED */
++-
++-/* Copy the second part of user declarations. */
++-
++-/* Line 390 of yacc.c */
++-#line 208 "preprocessorYacc.c"
++-
++-#ifdef short
++-# undef short
++-#endif
++-
++-#ifdef YYTYPE_UINT8
++-typedef YYTYPE_UINT8 yytype_uint8;
++-#else
++-typedef unsigned char yytype_uint8;
++-#endif
++-
++-#ifdef YYTYPE_INT8
++-typedef YYTYPE_INT8 yytype_int8;
++-#elif (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-typedef signed char yytype_int8;
++-#else
++-typedef short int yytype_int8;
++-#endif
++-
++-#ifdef YYTYPE_UINT16
++-typedef YYTYPE_UINT16 yytype_uint16;
++-#else
++-typedef unsigned short int yytype_uint16;
++-#endif
++-
++-#ifdef YYTYPE_INT16
++-typedef YYTYPE_INT16 yytype_int16;
++-#else
++-typedef short int yytype_int16;
++-#endif
++-
++-#ifndef YYSIZE_T
++-# ifdef __SIZE_TYPE__
++-# define YYSIZE_T __SIZE_TYPE__
++-# elif defined size_t
++-# define YYSIZE_T size_t
++-# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
++-# define YYSIZE_T size_t
++-# else
++-# define YYSIZE_T unsigned int
++-# endif
++-#endif
++-
++-#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
++-
++-#ifndef YY_
++-# if defined YYENABLE_NLS && YYENABLE_NLS
++-# if ENABLE_NLS
++-# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
++-# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
++-# endif
++-# endif
++-# ifndef YY_
++-# define YY_(Msgid) Msgid
++-# endif
++-#endif
++-
++-#ifndef __attribute__
++-/* This feature is available in gcc versions 2.5 and later. */
++-# if (! defined __GNUC__ || __GNUC__ < 2 \
++- || (__GNUC__ == 2 && __GNUC_MINOR__ < 5))
++-# define __attribute__(Spec) /* empty */
++-# endif
++-#endif
++-
++-/* Suppress unused-variable warnings by "using" E. */
++-#if ! defined lint || defined __GNUC__
++-# define YYUSE(E) ((void) (E))
++-#else
++-# define YYUSE(E) /* empty */
++-#endif
++-
++-
++-/* Identity function, used to suppress warnings about constant conditions. */
++-#ifndef lint
++-# define YYID(N) (N)
++-#else
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static int
++-YYID (int yyi)
++-#else
++-static int
++-YYID (yyi)
++- int yyi;
++-#endif
++-{
++- return yyi;
++-}
++-#endif
++-
++-#if ! defined yyoverflow || YYERROR_VERBOSE
++-
++-/* The parser invokes alloca or malloc; define the necessary symbols. */
++-
++-# ifdef YYSTACK_USE_ALLOCA
++-# if YYSTACK_USE_ALLOCA
++-# ifdef __GNUC__
++-# define YYSTACK_ALLOC __builtin_alloca
++-# elif defined __BUILTIN_VA_ARG_INCR
++-# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
++-# elif defined _AIX
++-# define YYSTACK_ALLOC __alloca
++-# elif defined _MSC_VER
++-# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
++-# define alloca _alloca
++-# else
++-# define YYSTACK_ALLOC alloca
++-# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
++- /* Use EXIT_SUCCESS as a witness for stdlib.h. */
++-# ifndef EXIT_SUCCESS
++-# define EXIT_SUCCESS 0
++-# endif
++-# endif
++-# endif
++-# endif
++-# endif
++-
++-# ifdef YYSTACK_ALLOC
++- /* Pacify GCC's `empty if-body' warning. */
++-# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
++-# ifndef YYSTACK_ALLOC_MAXIMUM
++- /* The OS might guarantee only one guard page at the bottom of the stack,
++- and a page size can be as small as 4096 bytes. So we cannot safely
++- invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
++- to allow for a few compiler-allocated temporary stack slots. */
++-# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
++-# endif
++-# else
++-# define YYSTACK_ALLOC YYMALLOC
++-# define YYSTACK_FREE YYFREE
++-# ifndef YYSTACK_ALLOC_MAXIMUM
++-# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
++-# endif
++-# if (defined __cplusplus && ! defined EXIT_SUCCESS \
++- && ! ((defined YYMALLOC || defined malloc) \
++- && (defined YYFREE || defined free)))
++-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
++-# ifndef EXIT_SUCCESS
++-# define EXIT_SUCCESS 0
++-# endif
++-# endif
++-# ifndef YYMALLOC
++-# define YYMALLOC malloc
++-# if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
++-# endif
++-# endif
++-# ifndef YYFREE
++-# define YYFREE free
++-# if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-void free (void *); /* INFRINGES ON USER NAME SPACE */
++-# endif
++-# endif
++-# endif
++-#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
++-
++-
++-#if (! defined yyoverflow \
++- && (! defined __cplusplus \
++- || (defined PREPROCESSORSTYPE_IS_TRIVIAL && PREPROCESSORSTYPE_IS_TRIVIAL)))
++-
++-/* A type that is properly aligned for any stack member. */
++-union yyalloc
++-{
++- yytype_int16 yyss_alloc;
++- YYSTYPE yyvs_alloc;
++-};
++-
++-/* The size of the maximum gap between one aligned stack and the next. */
++-# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
++-
++-/* The size of an array large to enough to hold all stacks, each with
++- N elements. */
++-# define YYSTACK_BYTES(N) \
++- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
++- + YYSTACK_GAP_MAXIMUM)
++-
++-# define YYCOPY_NEEDED 1
++-
++-/* Relocate STACK from its old location to the new one. The
++- local variables YYSIZE and YYSTACKSIZE give the old and new number of
++- elements in the stack, and YYPTR gives the new location of the
++- stack. Advance YYPTR to a properly aligned location for the next
++- stack. */
++-# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
++- do \
++- { \
++- YYSIZE_T yynewbytes; \
++- YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
++- Stack = &yyptr->Stack_alloc; \
++- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
++- yyptr += yynewbytes / sizeof (*yyptr); \
++- } \
++- while (YYID (0))
++-
++-#endif
++-
++-#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
++-/* Copy COUNT objects from SRC to DST. The source and destination do
++- not overlap. */
++-# ifndef YYCOPY
++-# if defined __GNUC__ && 1 < __GNUC__
++-# define YYCOPY(Dst, Src, Count) \
++- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
++-# else
++-# define YYCOPY(Dst, Src, Count) \
++- do \
++- { \
++- YYSIZE_T yyi; \
++- for (yyi = 0; yyi < (Count); yyi++) \
++- (Dst)[yyi] = (Src)[yyi]; \
++- } \
++- while (YYID (0))
++-# endif
++-# endif
++-#endif /* !YYCOPY_NEEDED */
++-
++-/* YYFINAL -- State number of the termination state. */
++-#define YYFINAL 46
++-/* YYLAST -- Last index in YYTABLE. */
++-#define YYLAST 417
++-
++-/* YYNTOKENS -- Number of terminals. */
++-#define YYNTOKENS 35
++-/* YYNNTS -- Number of nonterminals. */
++-#define YYNNTS 29
++-/* YYNRULES -- Number of rules. */
++-#define YYNRULES 82
++-/* YYNRULES -- Number of states. */
++-#define YYNSTATES 112
++-
++-/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
++-#define YYUNDEFTOK 2
++-#define YYMAXUTOK 286
++-
++-#define YYTRANSLATE(YYX) \
++- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
++-
++-/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
++-static const yytype_uint8 yytranslate[] =
++-{
++- 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 32, 33, 2, 2, 34, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
++- 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
++- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
++- 25, 26, 27, 28, 29, 30, 31
++-};
++-
++-#if PREPROCESSORDEBUG
++-/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
++- YYRHS. */
++-static const yytype_uint8 yyprhs[] =
++-{
++- 0, 0, 3, 5, 7, 10, 17, 22, 29, 34,
++- 36, 38, 40, 42, 44, 46, 48, 50, 53, 55,
++- 57, 59, 61, 63, 65, 67, 69, 71, 73, 75,
++- 77, 79, 81, 83, 85, 87, 89, 91, 93, 96,
++- 101, 103, 106, 111, 114, 116, 119, 121, 124, 126,
++- 130, 132, 135, 137, 141, 143, 145, 147, 151, 154,
++- 156, 158, 160, 162, 164, 166, 168, 170, 172, 174,
++- 176, 178, 180, 183, 187, 191, 196, 200, 205, 208,
++- 210, 213, 215
++-};
++-
++-/* YYRHS -- A `-1'-separated list of the rules' RHS. */
++-static const yytype_int8 yyrhs[] =
++-{
++- 36, 0, -1, 37, -1, 38, -1, 37, 38, -1,
++- 39, 41, 37, 43, 37, 44, -1, 39, 41, 37,
++- 44, -1, 40, 42, 37, 43, 37, 44, -1, 40,
++- 42, 37, 44, -1, 47, -1, 28, -1, 29, -1,
++- 3, -1, 3, -1, 30, -1, 31, -1, 19, -1,
++- 27, 3, -1, 48, -1, 49, -1, 45, -1, 60,
++- -1, 46, -1, 23, -1, 24, -1, 21, -1, 51,
++- -1, 15, -1, 16, -1, 59, -1, 22, -1, 51,
++- -1, 14, -1, 16, -1, 59, -1, 22, -1, 9,
++- -1, 11, -1, 52, 54, -1, 52, 32, 55, 33,
++- -1, 13, -1, 53, 54, -1, 53, 32, 55, 33,
++- -1, 10, 20, -1, 10, -1, 12, 20, -1, 12,
++- -1, 32, 33, -1, 56, -1, 55, 34, 56, -1,
++- 58, -1, 56, 58, -1, 56, -1, 57, 34, 56,
++- -1, 20, -1, 18, -1, 16, -1, 32, 57, 33,
++- -1, 32, 33, -1, 4, -1, 5, -1, 6, -1,
++- 51, -1, 32, -1, 33, -1, 34, -1, 4, -1,
++- 6, -1, 5, -1, 20, -1, 18, -1, 17, -1,
++- 61, 26, -1, 61, 63, 26, -1, 61, 8, 26,
++- -1, 61, 8, 63, 26, -1, 61, 62, 26, -1,
++- 61, 62, 63, 26, -1, 25, 3, -1, 7, -1,
++- 62, 7, -1, 50, -1, 63, 50, -1
++-};
++-
++-/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
++-static const yytype_uint16 yyrline[] =
++-{
++- 0, 98, 98, 105, 109, 117, 132, 144, 159, 171,
++- 178, 185, 192, 213, 235, 249, 257, 266, 273, 277,
++- 284, 288, 292, 297, 301, 310, 323, 327, 333, 343,
++- 347, 360, 364, 371, 381, 385, 398, 403, 408, 413,
++- 422, 432, 441, 486, 490, 497, 501, 508, 514, 518,
++- 526, 530, 538, 542, 551, 556, 561, 569, 577, 584,
++- 589, 594, 599, 606, 611, 616, 621, 626, 631, 636,
++- 641, 646, 654, 660, 666, 672, 678, 684, 693, 700,
++- 704, 712, 716
++-};
++-#endif
++-
++-#if PREPROCESSORDEBUG || YYERROR_VERBOSE || 0
++-/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
++- First, the terminals, then, starting at YYNTOKENS, nonterminals. */
++-static const char *const yytname[] =
++-{
++- "$end", "error", "$undefined", "TK_PRAGMA_NAME", "TK_IDENT",
++- "TK_STRING", "TK_NOT_IDENT", "TK_ARG", "TK_ARG_NULL",
++- "TK_SUBSTITUTOR_NOARG", "TK_SUBSTITUTOR_NULLARG",
++- "TK_SUBSTITUTOR_NULLARG_ALONE", "TK_SUBSTITUTOR_WITHARG",
++- "TK_SUBSTITUTOR_WITHARG_ALONE", "TK_CONTINUATOR",
++- "TK_NOPRAGMA_CONTINUATOR", "TK_EOL", "TK_EOF", "TK_COMMENT",
++- "TK_INCLUDE", "TK_SPACE", "TK_ERROR_PRAGMA_DEFINITION",
++- "TK_ERROR_PRAGMA_NOT_FOUND", "TK_ERROR_UNEXPECTED_CHAR",
++- "TK_ERROR_FILE_OPEN", "TK_DEFINE", "TK_DEFINE_END", "TK_UNDEF",
++- "TK_IFDEF", "TK_IFNDEF", "TK_ELSE", "TK_ENDIF", "'('", "')'", "','",
++- "$accept", "R_description", "R_list_of_conditional", "R_conditional",
++- "R_if", "R_ifn", "R_ifdef", "R_ifndef", "R_else", "R_endif", "R_include",
++- "R_undef", "R_alternative", "R_pragma", "R_notpragma",
++- "R_define_notpragma", "R_substitutor", "R_substitutor_nullarg",
++- "R_substitutor_witharg", "R_arg_null", "R_substitutor_list_of_arg",
++- "R_list_of_arg", "R_list_of_arg_with_comma", "R_arg", "R_other",
++- "R_define_alternative", "R_define", "R_define_list_of_arg",
++- "R_define_text", YY_NULL
++-};
++-#endif
++-
++-# ifdef YYPRINT
++-/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
++- token YYLEX-NUM. */
++-static const yytype_uint16 yytoknum[] =
++-{
++- 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
++- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
++- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
++- 285, 286, 40, 41, 44
++-};
++-# endif
++-
++-/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
++-static const yytype_uint8 yyr1[] =
++-{
++- 0, 35, 36, 37, 37, 38, 38, 38, 38, 38,
++- 39, 40, 41, 42, 43, 44, 45, 46, 47, 47,
++- 48, 48, 48, 48, 48, 48, 49, 49, 49, 49,
++- 49, 50, 50, 50, 50, 50, 51, 51, 51, 51,
++- 51, 51, 51, 52, 52, 53, 53, 54, 55, 55,
++- 56, 56, 57, 57, 58, 58, 58, 58, 58, 58,
++- 58, 58, 58, 59, 59, 59, 59, 59, 59, 59,
++- 59, 59, 60, 60, 60, 60, 60, 60, 61, 62,
++- 62, 63, 63
++-};
++-
++-/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
++-static const yytype_uint8 yyr2[] =
++-{
++- 0, 2, 1, 1, 2, 6, 4, 6, 4, 1,
++- 1, 1, 1, 1, 1, 1, 1, 2, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 2, 4,
++- 1, 2, 4, 2, 1, 2, 1, 2, 1, 3,
++- 1, 2, 1, 3, 1, 1, 1, 3, 2, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 2, 3, 3, 4, 3, 4, 2, 1,
++- 2, 1, 2
++-};
++-
++-/* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM.
++- Performed when YYTABLE doesn't specify something else to do. Zero
++- means the default is an error. */
++-static const yytype_uint8 yydefact[] =
++-{
++- 0, 66, 68, 67, 36, 44, 37, 46, 40, 27,
++- 28, 71, 70, 16, 69, 25, 30, 23, 24, 0,
++- 0, 10, 11, 63, 64, 65, 0, 2, 3, 0,
++- 0, 20, 22, 9, 18, 19, 26, 0, 0, 29,
++- 21, 0, 43, 45, 78, 17, 1, 4, 12, 0,
++- 13, 0, 0, 38, 0, 41, 79, 0, 32, 33,
++- 35, 72, 81, 31, 34, 0, 0, 0, 0, 59,
++- 60, 61, 56, 55, 54, 0, 47, 62, 0, 48,
++- 50, 0, 74, 0, 80, 76, 0, 73, 82, 14,
++- 15, 0, 6, 0, 8, 58, 52, 0, 39, 0,
++- 51, 42, 75, 77, 0, 0, 57, 0, 49, 5,
++- 7, 53
++-};
++-
++-/* YYDEFGOTO[NTERM-NUM]. */
++-static const yytype_int8 yydefgoto[] =
++-{
++- -1, 26, 27, 28, 29, 30, 49, 51, 91, 92,
++- 31, 32, 33, 34, 35, 62, 36, 37, 38, 53,
++- 78, 79, 97, 80, 39, 40, 41, 65, 66
++-};
++-
++-/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
++- STATE-NUM. */
++-#define YYPACT_NINF -76
++-static const yytype_int16 yypact[] =
++-{
++- 132, -76, -76, -76, -76, -9, -76, -7, -76, -76,
++- -76, -76, -76, -76, -76, -76, -76, -76, -76, 13,
++- 15, -76, -76, -76, -76, -76, 20, 132, -76, 21,
++- 26, -76, -76, -76, -76, -76, -76, 2, 10, -76,
++- -76, 163, -76, -76, -76, -76, -76, -76, -76, 132,
++- -76, 132, 349, -76, 349, -76, -76, 225, -76, -76,
++- -76, -76, -76, -76, -76, 194, 256, 70, 70, -76,
++- -76, -76, -76, -76, -76, 367, -76, -76, -25, 385,
++- -76, -11, -76, 287, -76, -76, 318, -76, -76, -76,
++- -76, 132, -76, 132, -76, -76, 385, -2, -76, 385,
++- -76, -76, -76, -76, 101, 101, -76, 385, 385, -76,
++- -76, 385
++-};
++-
++-/* YYPGOTO[NTERM-NUM]. */
++-static const yytype_int8 yypgoto[] =
++-{
++- -76, -76, -44, -27, -76, -76, -76, -76, -24, -53,
++- -76, -76, -76, -76, -76, -29, -40, -76, -76, 12,
++- -1, -69, -76, -75, -38, -76, -76, -76, -55
++-};
++-
++-/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
++- positive, shift that token. If negative, reduce the rule which
++- number is the opposite. If YYTABLE_NINF, syntax error. */
++-#define YYTABLE_NINF -1
++-static const yytype_uint8 yytable[] =
++-{
++- 47, 63, 83, 64, 100, 67, 96, 68, 98, 99,
++- 86, 42, 77, 43, 77, 94, 44, 63, 45, 64,
++- 46, 100, 101, 99, 48, 63, 63, 64, 64, 50,
++- 108, 106, 107, 100, 52, 77, 100, 88, 111, 77,
++- 47, 47, 54, 63, 93, 64, 63, 104, 64, 105,
++- 55, 109, 110, 81, 88, 0, 77, 88, 0, 77,
++- 0, 0, 0, 0, 0, 0, 0, 77, 77, 0,
++- 0, 77, 0, 0, 1, 2, 3, 47, 47, 4,
++- 5, 6, 7, 8, 0, 9, 10, 11, 12, 13,
++- 14, 15, 16, 17, 18, 19, 0, 20, 21, 22,
++- 89, 90, 23, 24, 25, 1, 2, 3, 0, 0,
++- 4, 5, 6, 7, 8, 0, 9, 10, 11, 12,
++- 13, 14, 15, 16, 17, 18, 19, 0, 20, 21,
++- 22, 0, 90, 23, 24, 25, 1, 2, 3, 0,
++- 0, 4, 5, 6, 7, 8, 0, 9, 10, 11,
++- 12, 13, 14, 15, 16, 17, 18, 19, 0, 20,
++- 21, 22, 0, 0, 23, 24, 25, 1, 2, 3,
++- 56, 57, 4, 5, 6, 7, 8, 58, 0, 59,
++- 11, 12, 0, 14, 0, 60, 0, 0, 0, 61,
++- 0, 0, 0, 0, 0, 23, 24, 25, 1, 2,
++- 3, 84, 0, 4, 5, 6, 7, 8, 58, 0,
++- 59, 11, 12, 0, 14, 0, 60, 0, 0, 0,
++- 85, 0, 0, 0, 0, 0, 23, 24, 25, 1,
++- 2, 3, 0, 0, 4, 5, 6, 7, 8, 58,
++- 0, 59, 11, 12, 0, 14, 0, 60, 0, 0,
++- 0, 82, 0, 0, 0, 0, 0, 23, 24, 25,
++- 1, 2, 3, 0, 0, 4, 5, 6, 7, 8,
++- 58, 0, 59, 11, 12, 0, 14, 0, 60, 0,
++- 0, 0, 87, 0, 0, 0, 0, 0, 23, 24,
++- 25, 1, 2, 3, 0, 0, 4, 5, 6, 7,
++- 8, 58, 0, 59, 11, 12, 0, 14, 0, 60,
++- 0, 0, 0, 102, 0, 0, 0, 0, 0, 23,
++- 24, 25, 1, 2, 3, 0, 0, 4, 5, 6,
++- 7, 8, 58, 0, 59, 11, 12, 0, 14, 0,
++- 60, 0, 0, 0, 103, 0, 0, 0, 0, 0,
++- 23, 24, 25, 69, 70, 71, 0, 0, 4, 5,
++- 6, 7, 8, 0, 0, 72, 0, 73, 0, 74,
++- 0, 69, 70, 71, 0, 0, 4, 5, 6, 7,
++- 8, 75, 76, 72, 0, 73, 0, 74, 0, 69,
++- 70, 71, 0, 0, 4, 5, 6, 7, 8, 75,
++- 95, 72, 0, 73, 0, 74, 0, 0, 0, 0,
++- 0, 0, 0, 0, 0, 0, 0, 75
++-};
++-
++-#define yypact_value_is_default(Yystate) \
++- (!!((Yystate) == (-76)))
++-
++-#define yytable_value_is_error(Yytable_value) \
++- YYID (0)
++-
++-static const yytype_int8 yycheck[] =
++-{
++- 27, 41, 57, 41, 79, 49, 75, 51, 33, 34,
++- 65, 20, 52, 20, 54, 68, 3, 57, 3, 57,
++- 0, 96, 33, 34, 3, 65, 66, 65, 66, 3,
++- 99, 33, 34, 108, 32, 75, 111, 66, 107, 79,
++- 67, 68, 32, 83, 68, 83, 86, 91, 86, 93,
++- 38, 104, 105, 54, 83, -1, 96, 86, -1, 99,
++- -1, -1, -1, -1, -1, -1, -1, 107, 108, -1,
++- -1, 111, -1, -1, 4, 5, 6, 104, 105, 9,
++- 10, 11, 12, 13, -1, 15, 16, 17, 18, 19,
++- 20, 21, 22, 23, 24, 25, -1, 27, 28, 29,
++- 30, 31, 32, 33, 34, 4, 5, 6, -1, -1,
++- 9, 10, 11, 12, 13, -1, 15, 16, 17, 18,
++- 19, 20, 21, 22, 23, 24, 25, -1, 27, 28,
++- 29, -1, 31, 32, 33, 34, 4, 5, 6, -1,
++- -1, 9, 10, 11, 12, 13, -1, 15, 16, 17,
++- 18, 19, 20, 21, 22, 23, 24, 25, -1, 27,
++- 28, 29, -1, -1, 32, 33, 34, 4, 5, 6,
++- 7, 8, 9, 10, 11, 12, 13, 14, -1, 16,
++- 17, 18, -1, 20, -1, 22, -1, -1, -1, 26,
++- -1, -1, -1, -1, -1, 32, 33, 34, 4, 5,
++- 6, 7, -1, 9, 10, 11, 12, 13, 14, -1,
++- 16, 17, 18, -1, 20, -1, 22, -1, -1, -1,
++- 26, -1, -1, -1, -1, -1, 32, 33, 34, 4,
++- 5, 6, -1, -1, 9, 10, 11, 12, 13, 14,
++- -1, 16, 17, 18, -1, 20, -1, 22, -1, -1,
++- -1, 26, -1, -1, -1, -1, -1, 32, 33, 34,
++- 4, 5, 6, -1, -1, 9, 10, 11, 12, 13,
++- 14, -1, 16, 17, 18, -1, 20, -1, 22, -1,
++- -1, -1, 26, -1, -1, -1, -1, -1, 32, 33,
++- 34, 4, 5, 6, -1, -1, 9, 10, 11, 12,
++- 13, 14, -1, 16, 17, 18, -1, 20, -1, 22,
++- -1, -1, -1, 26, -1, -1, -1, -1, -1, 32,
++- 33, 34, 4, 5, 6, -1, -1, 9, 10, 11,
++- 12, 13, 14, -1, 16, 17, 18, -1, 20, -1,
++- 22, -1, -1, -1, 26, -1, -1, -1, -1, -1,
++- 32, 33, 34, 4, 5, 6, -1, -1, 9, 10,
++- 11, 12, 13, -1, -1, 16, -1, 18, -1, 20,
++- -1, 4, 5, 6, -1, -1, 9, 10, 11, 12,
++- 13, 32, 33, 16, -1, 18, -1, 20, -1, 4,
++- 5, 6, -1, -1, 9, 10, 11, 12, 13, 32,
++- 33, 16, -1, 18, -1, 20, -1, -1, -1, -1,
++- -1, -1, -1, -1, -1, -1, -1, 32
++-};
++-
++-/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
++- symbol of state STATE-NUM. */
++-static const yytype_uint8 yystos[] =
++-{
++- 0, 4, 5, 6, 9, 10, 11, 12, 13, 15,
++- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
++- 27, 28, 29, 32, 33, 34, 36, 37, 38, 39,
++- 40, 45, 46, 47, 48, 49, 51, 52, 53, 59,
++- 60, 61, 20, 20, 3, 3, 0, 38, 3, 41,
++- 3, 42, 32, 54, 32, 54, 7, 8, 14, 16,
++- 22, 26, 50, 51, 59, 62, 63, 37, 37, 4,
++- 5, 6, 16, 18, 20, 32, 33, 51, 55, 56,
++- 58, 55, 26, 63, 7, 26, 63, 26, 50, 30,
++- 31, 43, 44, 43, 44, 33, 56, 57, 33, 34,
++- 58, 33, 26, 26, 37, 37, 33, 34, 56, 44,
++- 44, 56
++-};
++-
++-#define yyerrok (yyerrstatus = 0)
++-#define yyclearin (yychar = YYEMPTY)
++-#define YYEMPTY (-2)
++-#define YYEOF 0
++-
++-#define YYACCEPT goto yyacceptlab
++-#define YYABORT goto yyabortlab
++-#define YYERROR goto yyerrorlab
++-
++-
++-/* Like YYERROR except do call yyerror. This remains here temporarily
++- to ease the transition to the new meaning of YYERROR, for GCC.
++- Once GCC version 2 has supplanted version 1, this can go. However,
++- YYFAIL appears to be in use. Nevertheless, it is formally deprecated
++- in Bison 2.4.2's NEWS entry, where a plan to phase it out is
++- discussed. */
++-
++-#define YYFAIL goto yyerrlab
++-#if defined YYFAIL
++- /* This is here to suppress warnings from the GCC cpp's
++- -Wunused-macros. Normally we don't worry about that warning, but
++- some users do, and we want to make it easy for users to remove
++- YYFAIL uses, which will produce warnings from Bison 2.5. */
++-#endif
++-
++-#define YYRECOVERING() (!!yyerrstatus)
++-
++-#define YYBACKUP(Token, Value) \
++-do \
++- if (yychar == YYEMPTY) \
++- { \
++- yychar = (Token); \
++- yylval = (Value); \
++- YYPOPSTACK (yylen); \
++- yystate = *yyssp; \
++- goto yybackup; \
++- } \
++- else \
++- { \
++- yyerror (YY_("syntax error: cannot back up")); \
++- YYERROR; \
++- } \
++-while (YYID (0))
++-
++-/* Error token number */
++-#define YYTERROR 1
++-#define YYERRCODE 256
++-
++-
++-/* This macro is provided for backward compatibility. */
++-#ifndef YY_LOCATION_PRINT
++-# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
++-#endif
++-
++-
++-/* YYLEX -- calling `yylex' with the right arguments. */
++-#ifdef YYLEX_PARAM
++-# define YYLEX yylex (YYLEX_PARAM)
++-#else
++-# define YYLEX yylex ()
++-#endif
++-
++-/* Enable debugging if requested. */
++-#if PREPROCESSORDEBUG
++-
++-# ifndef YYFPRINTF
++-# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
++-# define YYFPRINTF fprintf
++-# endif
++-
++-# define YYDPRINTF(Args) \
++-do { \
++- if (yydebug) \
++- YYFPRINTF Args; \
++-} while (YYID (0))
++-
++-# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
++-do { \
++- if (yydebug) \
++- { \
++- YYFPRINTF (stderr, "%s ", Title); \
++- yy_symbol_print (stderr, \
++- Type, Value); \
++- YYFPRINTF (stderr, "\n"); \
++- } \
++-} while (YYID (0))
++-
++-
++-/*--------------------------------.
++-| Print this symbol on YYOUTPUT. |
++-`--------------------------------*/
++-
++-/*ARGSUSED*/
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
++-#else
++-static void
++-yy_symbol_value_print (yyoutput, yytype, yyvaluep)
++- FILE *yyoutput;
++- int yytype;
++- YYSTYPE const * const yyvaluep;
++-#endif
++-{
++- FILE *yyo = yyoutput;
++- YYUSE (yyo);
++- if (!yyvaluep)
++- return;
++-# ifdef YYPRINT
++- if (yytype < YYNTOKENS)
++- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
++-# else
++- YYUSE (yyoutput);
++-# endif
++- YYUSE (yytype);
++-}
++-
++-
++-/*--------------------------------.
++-| Print this symbol on YYOUTPUT. |
++-`--------------------------------*/
++-
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
++-#else
++-static void
++-yy_symbol_print (yyoutput, yytype, yyvaluep)
++- FILE *yyoutput;
++- int yytype;
++- YYSTYPE const * const yyvaluep;
++-#endif
++-{
++- if (yytype < YYNTOKENS)
++- YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
++- else
++- YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
++-
++- yy_symbol_value_print (yyoutput, yytype, yyvaluep);
++- YYFPRINTF (yyoutput, ")");
++-}
++-
++-/*------------------------------------------------------------------.
++-| yy_stack_print -- Print the state stack from its BOTTOM up to its |
++-| TOP (included). |
++-`------------------------------------------------------------------*/
++-
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
++-#else
++-static void
++-yy_stack_print (yybottom, yytop)
++- yytype_int16 *yybottom;
++- yytype_int16 *yytop;
++-#endif
++-{
++- YYFPRINTF (stderr, "Stack now");
++- for (; yybottom <= yytop; yybottom++)
++- {
++- int yybot = *yybottom;
++- YYFPRINTF (stderr, " %d", yybot);
++- }
++- YYFPRINTF (stderr, "\n");
++-}
++-
++-# define YY_STACK_PRINT(Bottom, Top) \
++-do { \
++- if (yydebug) \
++- yy_stack_print ((Bottom), (Top)); \
++-} while (YYID (0))
++-
++-
++-/*------------------------------------------------.
++-| Report that the YYRULE is going to be reduced. |
++-`------------------------------------------------*/
++-
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
++-#else
++-static void
++-yy_reduce_print (yyvsp, yyrule)
++- YYSTYPE *yyvsp;
++- int yyrule;
++-#endif
++-{
++- int yynrhs = yyr2[yyrule];
++- int yyi;
++- unsigned long int yylno = yyrline[yyrule];
++- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
++- yyrule - 1, yylno);
++- /* The symbols being reduced. */
++- for (yyi = 0; yyi < yynrhs; yyi++)
++- {
++- YYFPRINTF (stderr, " $%d = ", yyi + 1);
++- yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
++- &(yyvsp[(yyi + 1) - (yynrhs)])
++- );
++- YYFPRINTF (stderr, "\n");
++- }
++-}
++-
++-# define YY_REDUCE_PRINT(Rule) \
++-do { \
++- if (yydebug) \
++- yy_reduce_print (yyvsp, Rule); \
++-} while (YYID (0))
++-
++-/* Nonzero means print parse trace. It is left uninitialized so that
++- multiple parsers can coexist. */
++-int yydebug;
++-#else /* !PREPROCESSORDEBUG */
++-# define YYDPRINTF(Args)
++-# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
++-# define YY_STACK_PRINT(Bottom, Top)
++-# define YY_REDUCE_PRINT(Rule)
++-#endif /* !PREPROCESSORDEBUG */
++-
++-
++-/* YYINITDEPTH -- initial size of the parser's stacks. */
++-#ifndef YYINITDEPTH
++-# define YYINITDEPTH 200
++-#endif
++-
++-/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
++- if the built-in stack extension method is used).
++-
++- Do not make this value too large; the results are undefined if
++- YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
++- evaluated with infinite-precision integer arithmetic. */
++-
++-#ifndef YYMAXDEPTH
++-# define YYMAXDEPTH 10000
++-#endif
++-
++-
++-#if YYERROR_VERBOSE
++-
++-# ifndef yystrlen
++-# if defined __GLIBC__ && defined _STRING_H
++-# define yystrlen strlen
++-# else
++-/* Return the length of YYSTR. */
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static YYSIZE_T
++-yystrlen (const char *yystr)
++-#else
++-static YYSIZE_T
++-yystrlen (yystr)
++- const char *yystr;
++-#endif
++-{
++- YYSIZE_T yylen;
++- for (yylen = 0; yystr[yylen]; yylen++)
++- continue;
++- return yylen;
++-}
++-# endif
++-# endif
++-
++-# ifndef yystpcpy
++-# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
++-# define yystpcpy stpcpy
++-# else
++-/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
++- YYDEST. */
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static char *
++-yystpcpy (char *yydest, const char *yysrc)
++-#else
++-static char *
++-yystpcpy (yydest, yysrc)
++- char *yydest;
++- const char *yysrc;
++-#endif
++-{
++- char *yyd = yydest;
++- const char *yys = yysrc;
++-
++- while ((*yyd++ = *yys++) != '\0')
++- continue;
++-
++- return yyd - 1;
++-}
++-# endif
++-# endif
++-
++-# ifndef yytnamerr
++-/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
++- quotes and backslashes, so that it's suitable for yyerror. The
++- heuristic is that double-quoting is unnecessary unless the string
++- contains an apostrophe, a comma, or backslash (other than
++- backslash-backslash). YYSTR is taken from yytname. If YYRES is
++- null, do not copy; instead, return the length of what the result
++- would have been. */
++-static YYSIZE_T
++-yytnamerr (char *yyres, const char *yystr)
++-{
++- if (*yystr == '"')
++- {
++- YYSIZE_T yyn = 0;
++- char const *yyp = yystr;
++-
++- for (;;)
++- switch (*++yyp)
++- {
++- case '\'':
++- case ',':
++- goto do_not_strip_quotes;
++-
++- case '\\':
++- if (*++yyp != '\\')
++- goto do_not_strip_quotes;
++- /* Fall through. */
++- default:
++- if (yyres)
++- yyres[yyn] = *yyp;
++- yyn++;
++- break;
++-
++- case '"':
++- if (yyres)
++- yyres[yyn] = '\0';
++- return yyn;
++- }
++- do_not_strip_quotes: ;
++- }
++-
++- if (! yyres)
++- return yystrlen (yystr);
++-
++- return yystpcpy (yyres, yystr) - yyres;
++-}
++-# endif
++-
++-/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
++- about the unexpected token YYTOKEN for the state stack whose top is
++- YYSSP.
++-
++- Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
++- not large enough to hold the message. In that case, also set
++- *YYMSG_ALLOC to the required number of bytes. Return 2 if the
++- required number of bytes is too large to store. */
++-static int
++-yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
++- yytype_int16 *yyssp, int yytoken)
++-{
++- YYSIZE_T yysize0 = yytnamerr (YY_NULL, yytname[yytoken]);
++- YYSIZE_T yysize = yysize0;
++- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
++- /* Internationalized format string. */
++- const char *yyformat = YY_NULL;
++- /* Arguments of yyformat. */
++- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
++- /* Number of reported tokens (one for the "unexpected", one per
++- "expected"). */
++- int yycount = 0;
++-
++- /* There are many possibilities here to consider:
++- - Assume YYFAIL is not used. It's too flawed to consider. See
++- <http://lists.gnu.org/archive/html/bison-patches/2009-12/msg00024.html>
++- for details. YYERROR is fine as it does not invoke this
++- function.
++- - If this state is a consistent state with a default action, then
++- the only way this function was invoked is if the default action
++- is an error action. In that case, don't check for expected
++- tokens because there are none.
++- - The only way there can be no lookahead present (in yychar) is if
++- this state is a consistent state with a default action. Thus,
++- detecting the absence of a lookahead is sufficient to determine
++- that there is no unexpected or expected token to report. In that
++- case, just report a simple "syntax error".
++- - Don't assume there isn't a lookahead just because this state is a
++- consistent state with a default action. There might have been a
++- previous inconsistent state, consistent state with a non-default
++- action, or user semantic action that manipulated yychar.
++- - Of course, the expected token list depends on states to have
++- correct lookahead information, and it depends on the parser not
++- to perform extra reductions after fetching a lookahead from the
++- scanner and before detecting a syntax error. Thus, state merging
++- (from LALR or IELR) and default reductions corrupt the expected
++- token list. However, the list is correct for canonical LR with
++- one exception: it will still contain any token that will not be
++- accepted due to an error action in a later state.
++- */
++- if (yytoken != YYEMPTY)
++- {
++- int yyn = yypact[*yyssp];
++- yyarg[yycount++] = yytname[yytoken];
++- if (!yypact_value_is_default (yyn))
++- {
++- /* Start YYX at -YYN if negative to avoid negative indexes in
++- YYCHECK. In other words, skip the first -YYN actions for
++- this state because they are default actions. */
++- int yyxbegin = yyn < 0 ? -yyn : 0;
++- /* Stay within bounds of both yycheck and yytname. */
++- int yychecklim = YYLAST - yyn + 1;
++- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
++- int yyx;
++-
++- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
++- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
++- && !yytable_value_is_error (yytable[yyx + yyn]))
++- {
++- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
++- {
++- yycount = 1;
++- yysize = yysize0;
++- break;
++- }
++- yyarg[yycount++] = yytname[yyx];
++- {
++- YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULL, yytname[yyx]);
++- if (! (yysize <= yysize1
++- && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
++- return 2;
++- yysize = yysize1;
++- }
++- }
++- }
++- }
++-
++- switch (yycount)
++- {
++-# define YYCASE_(N, S) \
++- case N: \
++- yyformat = S; \
++- break
++- YYCASE_(0, YY_("syntax error"));
++- YYCASE_(1, YY_("syntax error, unexpected %s"));
++- YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
++- YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
++- YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
++- YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
++-# undef YYCASE_
++- }
++-
++- {
++- YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
++- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
++- return 2;
++- yysize = yysize1;
++- }
++-
++- if (*yymsg_alloc < yysize)
++- {
++- *yymsg_alloc = 2 * yysize;
++- if (! (yysize <= *yymsg_alloc
++- && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
++- *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
++- return 1;
++- }
++-
++- /* Avoid sprintf, as that infringes on the user's name space.
++- Don't have undefined behavior even if the translation
++- produced a string with the wrong number of "%s"s. */
++- {
++- char *yyp = *yymsg;
++- int yyi = 0;
++- while ((*yyp = *yyformat) != '\0')
++- if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
++- {
++- yyp += yytnamerr (yyp, yyarg[yyi++]);
++- yyformat += 2;
++- }
++- else
++- {
++- yyp++;
++- yyformat++;
++- }
++- }
++- return 0;
++-}
++-#endif /* YYERROR_VERBOSE */
++-
++-/*-----------------------------------------------.
++-| Release the memory associated to this symbol. |
++-`-----------------------------------------------*/
++-
++-/*ARGSUSED*/
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
++-#else
++-static void
++-yydestruct (yymsg, yytype, yyvaluep)
++- const char *yymsg;
++- int yytype;
++- YYSTYPE *yyvaluep;
++-#endif
++-{
++- YYUSE (yyvaluep);
++-
++- if (!yymsg)
++- yymsg = "Deleting";
++- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
++-
++- YYUSE (yytype);
++-}
++-
++-
++-
++-
++-/* The lookahead symbol. */
++-int yychar;
++-
++-
++-#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++-# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++-# define YY_IGNORE_MAYBE_UNINITIALIZED_END
++-#endif
++-#ifndef YY_INITIAL_VALUE
++-# define YY_INITIAL_VALUE(Value) /* Nothing. */
++-#endif
++-
++-/* The semantic value of the lookahead symbol. */
++-YYSTYPE yylval YY_INITIAL_VALUE(yyval_default);
++-
++-/* Number of syntax errors so far. */
++-int yynerrs;
++-
++-
++-/*----------.
++-| yyparse. |
++-`----------*/
++-
++-#ifdef YYPARSE_PARAM
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-int
++-yyparse (void *YYPARSE_PARAM)
++-#else
++-int
++-yyparse (YYPARSE_PARAM)
++- void *YYPARSE_PARAM;
++-#endif
++-#else /* ! YYPARSE_PARAM */
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-int
++-yyparse (void)
++-#else
++-int
++-yyparse ()
++-
++-#endif
++-#endif
++-{
++- int yystate;
++- /* Number of tokens to shift before error messages enabled. */
++- int yyerrstatus;
++-
++- /* The stacks and their tools:
++- `yyss': related to states.
++- `yyvs': related to semantic values.
++-
++- Refer to the stacks through separate pointers, to allow yyoverflow
++- to reallocate them elsewhere. */
++-
++- /* The state stack. */
++- yytype_int16 yyssa[YYINITDEPTH];
++- yytype_int16 *yyss;
++- yytype_int16 *yyssp;
++-
++- /* The semantic value stack. */
++- YYSTYPE yyvsa[YYINITDEPTH];
++- YYSTYPE *yyvs;
++- YYSTYPE *yyvsp;
++-
++- YYSIZE_T yystacksize;
++-
++- int yyn;
++- int yyresult;
++- /* Lookahead token as an internal (translated) token number. */
++- int yytoken = 0;
++- /* The variables used to return semantic value and location from the
++- action routines. */
++- YYSTYPE yyval;
++-
++-#if YYERROR_VERBOSE
++- /* Buffer for error messages, and its allocated size. */
++- char yymsgbuf[128];
++- char *yymsg = yymsgbuf;
++- YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
++-#endif
++-
++-#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
++-
++- /* The number of symbols on the RHS of the reduced rule.
++- Keep to zero when no symbol should be popped. */
++- int yylen = 0;
++-
++- yyssp = yyss = yyssa;
++- yyvsp = yyvs = yyvsa;
++- yystacksize = YYINITDEPTH;
++-
++- YYDPRINTF ((stderr, "Starting parse\n"));
++-
++- yystate = 0;
++- yyerrstatus = 0;
++- yynerrs = 0;
++- yychar = YYEMPTY; /* Cause a token to be read. */
++- goto yysetstate;
++-
++-/*------------------------------------------------------------.
++-| yynewstate -- Push a new state, which is found in yystate. |
++-`------------------------------------------------------------*/
++- yynewstate:
++- /* In all cases, when you get here, the value and location stacks
++- have just been pushed. So pushing a state here evens the stacks. */
++- yyssp++;
++-
++- yysetstate:
++- *yyssp = yystate;
++-
++- if (yyss + yystacksize - 1 <= yyssp)
++- {
++- /* Get the current used size of the three stacks, in elements. */
++- YYSIZE_T yysize = yyssp - yyss + 1;
++-
++-#ifdef yyoverflow
++- {
++- /* Give user a chance to reallocate the stack. Use copies of
++- these so that the &'s don't force the real ones into
++- memory. */
++- YYSTYPE *yyvs1 = yyvs;
++- yytype_int16 *yyss1 = yyss;
++-
++- /* Each stack pointer address is followed by the size of the
++- data in use in that stack, in bytes. This used to be a
++- conditional around just the two extra args, but that might
++- be undefined if yyoverflow is a macro. */
++- yyoverflow (YY_("memory exhausted"),
++- &yyss1, yysize * sizeof (*yyssp),
++- &yyvs1, yysize * sizeof (*yyvsp),
++- &yystacksize);
++-
++- yyss = yyss1;
++- yyvs = yyvs1;
++- }
++-#else /* no yyoverflow */
++-# ifndef YYSTACK_RELOCATE
++- goto yyexhaustedlab;
++-# else
++- /* Extend the stack our own way. */
++- if (YYMAXDEPTH <= yystacksize)
++- goto yyexhaustedlab;
++- yystacksize *= 2;
++- if (YYMAXDEPTH < yystacksize)
++- yystacksize = YYMAXDEPTH;
++-
++- {
++- yytype_int16 *yyss1 = yyss;
++- union yyalloc *yyptr =
++- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
++- if (! yyptr)
++- goto yyexhaustedlab;
++- YYSTACK_RELOCATE (yyss_alloc, yyss);
++- YYSTACK_RELOCATE (yyvs_alloc, yyvs);
++-# undef YYSTACK_RELOCATE
++- if (yyss1 != yyssa)
++- YYSTACK_FREE (yyss1);
++- }
++-# endif
++-#endif /* no yyoverflow */
++-
++- yyssp = yyss + yysize - 1;
++- yyvsp = yyvs + yysize - 1;
++-
++- YYDPRINTF ((stderr, "Stack size increased to %lu\n",
++- (unsigned long int) yystacksize));
++-
++- if (yyss + yystacksize - 1 <= yyssp)
++- YYABORT;
++- }
++-
++- YYDPRINTF ((stderr, "Entering state %d\n", yystate));
++-
++- if (yystate == YYFINAL)
++- YYACCEPT;
++-
++- goto yybackup;
++-
++-/*-----------.
++-| yybackup. |
++-`-----------*/
++-yybackup:
++-
++- /* Do appropriate processing given the current state. Read a
++- lookahead token if we need one and don't already have one. */
++-
++- /* First try to decide what to do without reference to lookahead token. */
++- yyn = yypact[yystate];
++- if (yypact_value_is_default (yyn))
++- goto yydefault;
++-
++- /* Not known => get a lookahead token if don't already have one. */
++-
++- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
++- if (yychar == YYEMPTY)
++- {
++- YYDPRINTF ((stderr, "Reading a token: "));
++- yychar = YYLEX;
++- }
++-
++- if (yychar <= YYEOF)
++- {
++- yychar = yytoken = YYEOF;
++- YYDPRINTF ((stderr, "Now at end of input.\n"));
++- }
++- else
++- {
++- yytoken = YYTRANSLATE (yychar);
++- YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
++- }
++-
++- /* If the proper action on seeing token YYTOKEN is to reduce or to
++- detect an error, take that action. */
++- yyn += yytoken;
++- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
++- goto yydefault;
++- yyn = yytable[yyn];
++- if (yyn <= 0)
++- {
++- if (yytable_value_is_error (yyn))
++- goto yyerrlab;
++- yyn = -yyn;
++- goto yyreduce;
++- }
++-
++- /* Count tokens shifted since error; after three, turn off error
++- status. */
++- if (yyerrstatus)
++- yyerrstatus--;
++-
++- /* Shift the lookahead token. */
++- YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
++-
++- /* Discard the shifted token. */
++- yychar = YYEMPTY;
++-
++- yystate = yyn;
++- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++- *++yyvsp = yylval;
++- YY_IGNORE_MAYBE_UNINITIALIZED_END
++-
++- goto yynewstate;
++-
++-
++-/*-----------------------------------------------------------.
++-| yydefault -- do the default action for the current state. |
++-`-----------------------------------------------------------*/
++-yydefault:
++- yyn = yydefact[yystate];
++- if (yyn == 0)
++- goto yyerrlab;
++- goto yyreduce;
++-
++-
++-/*-----------------------------.
++-| yyreduce -- Do a reduction. |
++-`-----------------------------*/
++-yyreduce:
++- /* yyn is the number of a rule to reduce with. */
++- yylen = yyr2[yyn];
++-
++- /* If YYLEN is nonzero, implement the default value of the action:
++- `$$ = $1'.
++-
++- Otherwise, the following line sets YYVAL to garbage.
++- This behavior is undocumented and Bison
++- users should not rely upon it. Assigning to YYVAL
++- unconditionally makes the parser a bit smaller, and it avoids a
++- GCC warning that YYVAL may be used uninitialized. */
++- yyval = yyvsp[1-yylen];
++-
++-
++- YY_REDUCE_PRINT (yyn);
++- switch (yyn)
++- {
++- case 2:
++-/* Line 1802 of yacc.c */
++-#line 99 "preprocessorYacc.y"
++- {
++- pproot()->Text=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 3:
++-/* Line 1802 of yacc.c */
++-#line 106 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 4:
++-/* Line 1802 of yacc.c */
++-#line 110 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(2) - (2)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(1) - (2)].slist));
++- }
++- break;
++-
++- case 5:
++-/* Line 1802 of yacc.c */
++-#line 118 "preprocessorYacc.y"
++- {
++- if(condistrue->data==INT2ADMS(1))
++- {
++- (yyval.slist)=(yyvsp[(6) - (6)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(3) - (6)].slist));
++- }
++- else if(condistrue->data==INT2ADMS(0))
++- {
++- (yyval.slist)=(yyvsp[(5) - (6)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(4) - (6)].slist));
++- }
++- adms_slist_pull(&pproot()->skipp_text);
++- adms_slist_pull(&condistrue);
++- }
++- break;
++-
++- case 6:
++-/* Line 1802 of yacc.c */
++-#line 133 "preprocessorYacc.y"
++- {
++- if(condistrue->data==INT2ADMS(1))
++- {
++- (yyval.slist)=(yyvsp[(3) - (4)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(1) - (4)].slist));
++- }
++- else if(condistrue->data==INT2ADMS(0))
++- (yyval.slist)=(yyvsp[(4) - (4)].slist);
++- adms_slist_pull(&pproot()->skipp_text);
++- adms_slist_pull(&condistrue);
++- }
++- break;
++-
++- case 7:
++-/* Line 1802 of yacc.c */
++-#line 145 "preprocessorYacc.y"
++- {
++- if(condistrue->data==INT2ADMS(1))
++- {
++- (yyval.slist)=(yyvsp[(6) - (6)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(3) - (6)].slist));
++- }
++- else if(condistrue->data==INT2ADMS(0))
++- {
++- (yyval.slist)=(yyvsp[(5) - (6)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(4) - (6)].slist));
++- }
++- adms_slist_pull(&pproot()->skipp_text);
++- adms_slist_pull(&condistrue);
++- }
++- break;
++-
++- case 8:
++-/* Line 1802 of yacc.c */
++-#line 160 "preprocessorYacc.y"
++- {
++- if(condistrue->data==INT2ADMS(1))
++- {
++- (yyval.slist)=(yyvsp[(3) - (4)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(1) - (4)].slist));
++- }
++- else if(condistrue->data==INT2ADMS(0))
++- (yyval.slist)=(yyvsp[(4) - (4)].slist);
++- adms_slist_pull(&pproot()->skipp_text);
++- adms_slist_pull(&condistrue);
++- }
++- break;
++-
++- case 9:
++-/* Line 1802 of yacc.c */
++-#line 172 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 10:
++-/* Line 1802 of yacc.c */
++-#line 179 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 11:
++-/* Line 1802 of yacc.c */
++-#line 186 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 12:
++-/* Line 1802 of yacc.c */
++-#line 193 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(1) - (1)].mystr);
++- if(!DONT_SKIPP)
++- {
++- adms_slist_push(&pproot()->skipp_text,INT2ADMS(1));
++- adms_slist_push(&condistrue,INT2ADMS(-1));
++- }
++- else if(adms_preprocessor_identifier_is_def((yyvsp[(1) - (1)].mystr)))
++- {
++- adms_slist_push(&condistrue,INT2ADMS(1));
++- adms_slist_push(&pproot()->skipp_text,INT2ADMS(0));
++- }
++- else
++- {
++- adms_slist_push(&condistrue,INT2ADMS(0));
++- adms_slist_push(&pproot()->skipp_text,INT2ADMS(1));
++- }
++- }
++- break;
++-
++- case 13:
++-/* Line 1802 of yacc.c */
++-#line 214 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(1) - (1)].mystr);
++- if(!DONT_SKIPP)
++- {
++- adms_slist_push(&pproot()->skipp_text,INT2ADMS(1));
++- adms_slist_push(&condistrue,INT2ADMS(-1));
++- }
++- else if(adms_preprocessor_identifier_is_ndef((yyvsp[(1) - (1)].mystr)))
++- {
++- adms_slist_push(&condistrue,INT2ADMS(1));
++- adms_slist_push(&pproot()->skipp_text,INT2ADMS(0));
++- }
++- else
++- {
++- adms_slist_push(&condistrue,INT2ADMS(0));
++- adms_slist_push(&pproot()->skipp_text,INT2ADMS(1));
++- }
++- }
++- break;
++-
++- case 14:
++-/* Line 1802 of yacc.c */
++-#line 236 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- if(condistrue->data==INT2ADMS(0))
++- pproot()->skipp_text->data=INT2ADMS(0);
++- else if(condistrue->data==INT2ADMS(1))
++- pproot()->skipp_text->data=INT2ADMS(1);
++- else
++- pproot()->skipp_text->data=INT2ADMS(1);
++- }
++- break;
++-
++- case 15:
++-/* Line 1802 of yacc.c */
++-#line 250 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 16:
++-/* Line 1802 of yacc.c */
++-#line 258 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext;
++- newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 17:
++-/* Line 1802 of yacc.c */
++-#line 267 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(2) - (2)].mystr);
++- }
++- break;
++-
++- case 18:
++-/* Line 1802 of yacc.c */
++-#line 274 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 19:
++-/* Line 1802 of yacc.c */
++-#line 278 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 20:
++-/* Line 1802 of yacc.c */
++-#line 285 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 21:
++-/* Line 1802 of yacc.c */
++-#line 289 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 22:
++-/* Line 1802 of yacc.c */
++-#line 293 "preprocessorYacc.y"
++- {
++- (yyval.slist)=NULL;
++- if(DONT_SKIPP) adms_preprocessor_identifer_set_undef((yyvsp[(1) - (1)].mystr));
++- }
++- break;
++-
++- case 23:
++-/* Line 1802 of yacc.c */
++-#line 298 "preprocessorYacc.y"
++- {
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 24:
++-/* Line 1802 of yacc.c */
++-#line 302 "preprocessorYacc.y"
++- {
++- char*message=NULL;
++- (yyval.slist)=NULL;
++- K0 KS(pproot()->cr_scanner->cur_message) KS("\n")
++- adms_preprocessor_add_message(message);
++- free(pproot()->cr_scanner->cur_message);
++- pproot()->cr_scanner->cur_message=NULL;
++- }
++- break;
++-
++- case 25:
++-/* Line 1802 of yacc.c */
++-#line 311 "preprocessorYacc.y"
++- {
++- char*message=NULL;
++- (yyval.slist)=NULL;
++- K0 KS("macro ") KS(pproot()->cr_scanner->cur_message) KS(" badly formed\n")
++- adms_preprocessor_add_message(message);
++- pproot()->error += 1;
++- free(pproot()->cr_scanner->cur_message);
++- pproot()->cr_scanner->cur_message=NULL;
++- }
++- break;
++-
++- case 26:
++-/* Line 1802 of yacc.c */
++-#line 324 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 27:
++-/* Line 1802 of yacc.c */
++-#line 328 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string("\n");
++- adms_slist_push(&continuatorList,(p_adms)newtext);
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 28:
++-/* Line 1802 of yacc.c */
++-#line 334 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string("\n");
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- adms_slist_concat(&((yyval.slist)),continuatorList);
++- continuatorList=NULL;
++- ++pproot()->cr_scanner->cur_line_position;
++- pproot()->cr_scanner->cur_char_position=1;
++- pproot()->cr_scanner->cur_continuator_position=NULL;
++- }
++- break;
++-
++- case 29:
++-/* Line 1802 of yacc.c */
++-#line 344 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 30:
++-/* Line 1802 of yacc.c */
++-#line 348 "preprocessorYacc.y"
++- {
++- char*message=NULL;
++- (yyval.slist)=NULL;
++- K0 KS("macro ") KS(pproot()->cr_scanner->cur_message) KS(" is undefined\n")
++- adms_preprocessor_add_message(message);
++- pproot()->error += 1;
++- free(pproot()->cr_scanner->cur_message);
++- pproot()->cr_scanner->cur_message=NULL;
++- }
++- break;
++-
++- case 31:
++-/* Line 1802 of yacc.c */
++-#line 361 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 32:
++-/* Line 1802 of yacc.c */
++-#line 365 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext1=adms_preprocessor_new_text_as_string("\n");
++- p_preprocessor_text newtext2=adms_preprocessor_new_text_as_string("");
++- adms_slist_push(&continuatorList,(p_adms)newtext1);
++- (yyval.slist)=adms_slist_new((p_adms)newtext2);
++- }
++- break;
++-
++- case 33:
++-/* Line 1802 of yacc.c */
++-#line 372 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- adms_slist_concat(&((yyval.slist)),continuatorList);
++- continuatorList=NULL;
++- ++pproot()->cr_scanner->cur_line_position;
++- pproot()->cr_scanner->cur_char_position=1;
++- pproot()->cr_scanner->cur_continuator_position=NULL;
++- }
++- break;
++-
++- case 34:
++-/* Line 1802 of yacc.c */
++-#line 382 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 35:
++-/* Line 1802 of yacc.c */
++-#line 386 "preprocessorYacc.y"
++- {
++- char*message=NULL;
++- (yyval.slist)=NULL;
++- K0 KS("macro ") KS(pproot()->cr_scanner->cur_message) KS(" is undefined\n")
++- adms_preprocessor_add_message(message);
++- pproot()->error += 1;
++- free(pproot()->cr_scanner->cur_message);
++- pproot()->cr_scanner->cur_message=NULL;
++- }
++- break;
++-
++- case 36:
++-/* Line 1802 of yacc.c */
++-#line 399 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define=adms_preprocessor_pragma_define_exists((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_preprocessor_new_text_as_substitutor(Define,NULL);
++- }
++- break;
++-
++- case 37:
++-/* Line 1802 of yacc.c */
++-#line 404 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define=adms_preprocessor_pragma_define_exists((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_preprocessor_new_text_as_substitutor(Define,NULL);
++- }
++- break;
++-
++- case 38:
++-/* Line 1802 of yacc.c */
++-#line 409 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define=adms_preprocessor_pragma_define_exists((yyvsp[(1) - (2)].mystr));
++- (yyval.slist)=adms_preprocessor_new_text_as_substitutor(Define,NULL);
++- }
++- break;
++-
++- case 39:
++-/* Line 1802 of yacc.c */
++-#line 414 "preprocessorYacc.y"
++- {
++- char*message=NULL;
++- p_preprocessor_pragma_define Define=adms_preprocessor_pragma_define_exists((yyvsp[(1) - (4)].mystr));
++- (yyval.slist)=adms_preprocessor_new_text_as_substitutor(Define, (yyvsp[(3) - (4)].slist));
++- K0 KS("arguments given to macro `") KS( Define->name) KS("\n")
++- adms_preprocessor_add_message(message);
++- pproot()->error += 1;
++- }
++- break;
++-
++- case 40:
++-/* Line 1802 of yacc.c */
++-#line 423 "preprocessorYacc.y"
++- {
++- char*message=NULL;
++- p_preprocessor_pragma_define Define=adms_preprocessor_pragma_define_exists((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_preprocessor_new_text_as_substitutor(Define,NULL);
++- K0 KS("macro `") KS(Define->name) KS(" has no argument [") KI(adms_slist_length(Define->arg)) KS(" expected]\n")
++- adms_preprocessor_add_message(message);
++- pproot()->error += 1;
++- adms_slist_push(&((yyval.slist)),(p_adms)(yyvsp[(1) - (1)].mystr));
++- }
++- break;
++-
++- case 41:
++-/* Line 1802 of yacc.c */
++-#line 433 "preprocessorYacc.y"
++- {
++- char*message=NULL;
++- p_preprocessor_pragma_define Define=adms_preprocessor_pragma_define_exists((yyvsp[(1) - (2)].mystr));
++- (yyval.slist)=adms_preprocessor_new_text_as_substitutor(Define,NULL);
++- K0 KS("macro `") KS(Define->name) KS(" has no argument [") KI(adms_slist_length(Define->arg)) KS(" expected]\n")
++- adms_preprocessor_add_message(message);
++- pproot()->error += 1;
++- }
++- break;
++-
++- case 42:
++-/* Line 1802 of yacc.c */
++-#line 442 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define=adms_preprocessor_pragma_define_exists((yyvsp[(1) - (4)].mystr));
++- {
++- if(adms_slist_length((yyvsp[(3) - (4)].slist)) == adms_slist_length(Define->arg))
++- {
++- }
++- else if(adms_slist_length((yyvsp[(3) - (4)].slist)) > adms_slist_length(Define->arg))
++- {
++- if(adms_slist_length((yyvsp[(3) - (4)].slist)) == 1)
++- {
++- char*message=NULL;
++- K0 KS("macro `") KS(Define->name) KS(" has one argument [") KI(adms_slist_length(Define->arg)) KS(" expected]\n")
++- adms_preprocessor_add_message(message);
++- }
++- else
++- {
++- char*message=NULL;
++- K0 KS("macro `") KS(Define->name) KS(" has too many (") KI(adms_slist_length((yyvsp[(3) - (4)].slist))) KS(") arguments\n")
++- adms_preprocessor_add_message(message);
++- }
++- pproot()->error += 1;
++- }
++- else
++- {
++- if(adms_slist_length((yyvsp[(3) - (4)].slist)) == 1)
++- {
++- char*message=NULL;
++- K0 KS("macro `") KS(Define->name) KS(" has one argument [") KI(adms_slist_length(Define->arg)) KS(" expected]\n")
++- adms_preprocessor_add_message(message);
++- }
++- else
++- {
++- char*message=NULL;
++- K0 KS("macro `") KS(Define->name) KS(" has too few (") KI(adms_slist_length((yyvsp[(3) - (4)].slist))) KS(") arguments\n")
++- adms_preprocessor_add_message(message);
++- }
++- pproot()->error += 1;
++- }
++- }
++- (yyval.slist)=adms_preprocessor_new_text_as_substitutor(Define, (yyvsp[(3) - (4)].slist));
++- }
++- break;
++-
++- case 43:
++-/* Line 1802 of yacc.c */
++-#line 487 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(1) - (2)].mystr);
++- }
++- break;
++-
++- case 44:
++-/* Line 1802 of yacc.c */
++-#line 491 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(1) - (1)].mystr);
++- }
++- break;
++-
++- case 45:
++-/* Line 1802 of yacc.c */
++-#line 498 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(1) - (2)].mystr);
++- }
++- break;
++-
++- case 46:
++-/* Line 1802 of yacc.c */
++-#line 502 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(1) - (1)].mystr);
++- }
++- break;
++-
++- case 47:
++-/* Line 1802 of yacc.c */
++-#line 509 "preprocessorYacc.y"
++- {
++- }
++- break;
++-
++- case 48:
++-/* Line 1802 of yacc.c */
++-#line 515 "preprocessorYacc.y"
++- {
++- (yyval.slist)=adms_slist_new((p_adms)(yyvsp[(1) - (1)].slist));
++- }
++- break;
++-
++- case 49:
++-/* Line 1802 of yacc.c */
++-#line 519 "preprocessorYacc.y"
++- {
++- adms_slist_push(&((yyvsp[(1) - (3)].slist)),(p_adms)(yyvsp[(3) - (3)].slist));
++- (yyval.slist)=(yyvsp[(1) - (3)].slist);
++- }
++- break;
++-
++- case 50:
++-/* Line 1802 of yacc.c */
++-#line 527 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 51:
++-/* Line 1802 of yacc.c */
++-#line 531 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(2) - (2)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(1) - (2)].slist));
++- }
++- break;
++-
++- case 52:
++-/* Line 1802 of yacc.c */
++-#line 539 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 53:
++-/* Line 1802 of yacc.c */
++-#line 543 "preprocessorYacc.y"
++- {
++- p_preprocessor_text comma=adms_preprocessor_new_text_as_string(",");
++- adms_slist_push(&((yyvsp[(1) - (3)].slist)),(p_adms)comma);
++- (yyval.slist)=(yyvsp[(3) - (3)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(1) - (3)].slist));
++- }
++- break;
++-
++- case 54:
++-/* Line 1802 of yacc.c */
++-#line 552 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 55:
++-/* Line 1802 of yacc.c */
++-#line 557 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 56:
++-/* Line 1802 of yacc.c */
++-#line 562 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string("\n");
++- ++pproot()->cr_scanner->cur_line_position;
++- pproot()->cr_scanner->cur_char_position=1;
++- pproot()->cr_scanner->cur_continuator_position=NULL;
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 57:
++-/* Line 1802 of yacc.c */
++-#line 570 "preprocessorYacc.y"
++- {
++- p_preprocessor_text lparen=adms_preprocessor_new_text_as_string("(");
++- p_preprocessor_text rparen=adms_preprocessor_new_text_as_string(")");
++- (yyval.slist)=(yyvsp[(2) - (3)].slist);
++- adms_slist_concat(&((yyval.slist)),adms_slist_new((p_adms)lparen));
++- adms_slist_push(&((yyval.slist)),(p_adms)rparen);
++- }
++- break;
++-
++- case 58:
++-/* Line 1802 of yacc.c */
++-#line 578 "preprocessorYacc.y"
++- {
++- p_preprocessor_text lparen=adms_preprocessor_new_text_as_string("(");
++- p_preprocessor_text rparen=adms_preprocessor_new_text_as_string(")");
++- (yyval.slist)=adms_slist_new((p_adms)lparen);
++- adms_slist_push(&((yyval.slist)),(p_adms)rparen);
++- }
++- break;
++-
++- case 59:
++-/* Line 1802 of yacc.c */
++-#line 585 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 60:
++-/* Line 1802 of yacc.c */
++-#line 590 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 61:
++-/* Line 1802 of yacc.c */
++-#line 595 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 62:
++-/* Line 1802 of yacc.c */
++-#line 600 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 63:
++-/* Line 1802 of yacc.c */
++-#line 607 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string("(");
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 64:
++-/* Line 1802 of yacc.c */
++-#line 612 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string(")");
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 65:
++-/* Line 1802 of yacc.c */
++-#line 617 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string(",");
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 66:
++-/* Line 1802 of yacc.c */
++-#line 622 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 67:
++-/* Line 1802 of yacc.c */
++-#line 627 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 68:
++-/* Line 1802 of yacc.c */
++-#line 632 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 69:
++-/* Line 1802 of yacc.c */
++-#line 637 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 70:
++-/* Line 1802 of yacc.c */
++-#line 642 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 71:
++-/* Line 1802 of yacc.c */
++-#line 647 "preprocessorYacc.y"
++- {
++- p_preprocessor_text newtext=adms_preprocessor_new_text_as_string((yyvsp[(1) - (1)].mystr));
++- (yyval.slist)=adms_slist_new((p_adms)newtext);
++- }
++- break;
++-
++- case 72:
++-/* Line 1802 of yacc.c */
++-#line 655 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define;
++- if(DONT_SKIPP) Define=adms_preprocessor_define_add((yyvsp[(1) - (2)].mystr));
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 73:
++-/* Line 1802 of yacc.c */
++-#line 661 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define;
++- if(DONT_SKIPP) Define=adms_preprocessor_define_add_with_text((yyvsp[(1) - (3)].mystr), (yyvsp[(2) - (3)].slist));
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 74:
++-/* Line 1802 of yacc.c */
++-#line 667 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define;
++- if(DONT_SKIPP) Define=adms_preprocessor_define_add_with_arg((yyvsp[(1) - (3)].mystr), NULL);
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 75:
++-/* Line 1802 of yacc.c */
++-#line 673 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define;
++- if(DONT_SKIPP) Define=adms_preprocessor_define_add_with_arg_and_text((yyvsp[(1) - (4)].mystr), NULL, (yyvsp[(3) - (4)].slist));
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 76:
++-/* Line 1802 of yacc.c */
++-#line 679 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define;
++- if(DONT_SKIPP) Define=adms_preprocessor_define_add_with_arg((yyvsp[(1) - (3)].mystr), (yyvsp[(2) - (3)].slist));
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 77:
++-/* Line 1802 of yacc.c */
++-#line 685 "preprocessorYacc.y"
++- {
++- p_preprocessor_pragma_define Define;
++- if(DONT_SKIPP) Define=adms_preprocessor_define_add_with_arg_and_text((yyvsp[(1) - (4)].mystr), (yyvsp[(2) - (4)].slist), (yyvsp[(3) - (4)].slist));
++- (yyval.slist)=NULL;
++- }
++- break;
++-
++- case 78:
++-/* Line 1802 of yacc.c */
++-#line 694 "preprocessorYacc.y"
++- {
++- (yyval.mystr)=(yyvsp[(2) - (2)].mystr);
++- }
++- break;
++-
++- case 79:
++-/* Line 1802 of yacc.c */
++-#line 701 "preprocessorYacc.y"
++- {
++- (yyval.slist)=adms_slist_new((p_adms)(yyvsp[(1) - (1)].mystr));
++- }
++- break;
++-
++- case 80:
++-/* Line 1802 of yacc.c */
++-#line 705 "preprocessorYacc.y"
++- {
++- adms_slist_push(&((yyvsp[(1) - (2)].slist)),(p_adms)(yyvsp[(2) - (2)].mystr));
++- (yyval.slist)=(yyvsp[(1) - (2)].slist);
++- }
++- break;
++-
++- case 81:
++-/* Line 1802 of yacc.c */
++-#line 713 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(1) - (1)].slist);
++- }
++- break;
++-
++- case 82:
++-/* Line 1802 of yacc.c */
++-#line 717 "preprocessorYacc.y"
++- {
++- (yyval.slist)=(yyvsp[(2) - (2)].slist);
++- adms_slist_concat(&((yyval.slist)),(yyvsp[(1) - (2)].slist));
++- }
++- break;
++-
++-
++-/* Line 1802 of yacc.c */
++-#line 2447 "preprocessorYacc.c"
++- default: break;
++- }
++- /* User semantic actions sometimes alter yychar, and that requires
++- that yytoken be updated with the new translation. We take the
++- approach of translating immediately before every use of yytoken.
++- One alternative is translating here after every semantic action,
++- but that translation would be missed if the semantic action invokes
++- YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
++- if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
++- incorrect destructor might then be invoked immediately. In the
++- case of YYERROR or YYBACKUP, subsequent parser actions might lead
++- to an incorrect destructor call or verbose syntax error message
++- before the lookahead is translated. */
++- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
++-
++- YYPOPSTACK (yylen);
++- yylen = 0;
++- YY_STACK_PRINT (yyss, yyssp);
++-
++- *++yyvsp = yyval;
++-
++- /* Now `shift' the result of the reduction. Determine what state
++- that goes to, based on the state we popped back to and the rule
++- number reduced by. */
++-
++- yyn = yyr1[yyn];
++-
++- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
++- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
++- yystate = yytable[yystate];
++- else
++- yystate = yydefgoto[yyn - YYNTOKENS];
++-
++- goto yynewstate;
++-
++-
++-/*------------------------------------.
++-| yyerrlab -- here on detecting error |
++-`------------------------------------*/
++-yyerrlab:
++- /* Make sure we have latest lookahead translation. See comments at
++- user semantic actions for why this is necessary. */
++- yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
++-
++- /* If not already recovering from an error, report this error. */
++- if (!yyerrstatus)
++- {
++- ++yynerrs;
++-#if ! YYERROR_VERBOSE
++- yyerror (YY_("syntax error"));
++-#else
++-# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
++- yyssp, yytoken)
++- {
++- char const *yymsgp = YY_("syntax error");
++- int yysyntax_error_status;
++- yysyntax_error_status = YYSYNTAX_ERROR;
++- if (yysyntax_error_status == 0)
++- yymsgp = yymsg;
++- else if (yysyntax_error_status == 1)
++- {
++- if (yymsg != yymsgbuf)
++- YYSTACK_FREE (yymsg);
++- yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
++- if (!yymsg)
++- {
++- yymsg = yymsgbuf;
++- yymsg_alloc = sizeof yymsgbuf;
++- yysyntax_error_status = 2;
++- }
++- else
++- {
++- yysyntax_error_status = YYSYNTAX_ERROR;
++- yymsgp = yymsg;
++- }
++- }
++- yyerror (yymsgp);
++- if (yysyntax_error_status == 2)
++- goto yyexhaustedlab;
++- }
++-# undef YYSYNTAX_ERROR
++-#endif
++- }
++-
++-
++-
++- if (yyerrstatus == 3)
++- {
++- /* If just tried and failed to reuse lookahead token after an
++- error, discard it. */
++-
++- if (yychar <= YYEOF)
++- {
++- /* Return failure if at end of input. */
++- if (yychar == YYEOF)
++- YYABORT;
++- }
++- else
++- {
++- yydestruct ("Error: discarding",
++- yytoken, &yylval);
++- yychar = YYEMPTY;
++- }
++- }
++-
++- /* Else will try to reuse lookahead token after shifting the error
++- token. */
++- goto yyerrlab1;
++-
++-
++-/*---------------------------------------------------.
++-| yyerrorlab -- error raised explicitly by YYERROR. |
++-`---------------------------------------------------*/
++-yyerrorlab:
++-
++- /* Pacify compilers like GCC when the user code never invokes
++- YYERROR and the label yyerrorlab therefore never appears in user
++- code. */
++- if (/*CONSTCOND*/ 0)
++- goto yyerrorlab;
++-
++- /* Do not reclaim the symbols of the rule which action triggered
++- this YYERROR. */
++- YYPOPSTACK (yylen);
++- yylen = 0;
++- YY_STACK_PRINT (yyss, yyssp);
++- yystate = *yyssp;
++- goto yyerrlab1;
++-
++-
++-/*-------------------------------------------------------------.
++-| yyerrlab1 -- common code for both syntax error and YYERROR. |
++-`-------------------------------------------------------------*/
++-yyerrlab1:
++- yyerrstatus = 3; /* Each real token shifted decrements this. */
++-
++- for (;;)
++- {
++- yyn = yypact[yystate];
++- if (!yypact_value_is_default (yyn))
++- {
++- yyn += YYTERROR;
++- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
++- {
++- yyn = yytable[yyn];
++- if (0 < yyn)
++- break;
++- }
++- }
++-
++- /* Pop the current state because it cannot handle the error token. */
++- if (yyssp == yyss)
++- YYABORT;
++-
++-
++- yydestruct ("Error: popping",
++- yystos[yystate], yyvsp);
++- YYPOPSTACK (1);
++- yystate = *yyssp;
++- YY_STACK_PRINT (yyss, yyssp);
++- }
++-
++- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++- *++yyvsp = yylval;
++- YY_IGNORE_MAYBE_UNINITIALIZED_END
++-
++-
++- /* Shift the error token. */
++- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
++-
++- yystate = yyn;
++- goto yynewstate;
++-
++-
++-/*-------------------------------------.
++-| yyacceptlab -- YYACCEPT comes here. |
++-`-------------------------------------*/
++-yyacceptlab:
++- yyresult = 0;
++- goto yyreturn;
++-
++-/*-----------------------------------.
++-| yyabortlab -- YYABORT comes here. |
++-`-----------------------------------*/
++-yyabortlab:
++- yyresult = 1;
++- goto yyreturn;
++-
++-#if !defined yyoverflow || YYERROR_VERBOSE
++-/*-------------------------------------------------.
++-| yyexhaustedlab -- memory exhaustion comes here. |
++-`-------------------------------------------------*/
++-yyexhaustedlab:
++- yyerror (YY_("memory exhausted"));
++- yyresult = 2;
++- /* Fall through. */
++-#endif
++-
++-yyreturn:
++- if (yychar != YYEMPTY)
++- {
++- /* Make sure we have latest lookahead translation. See comments at
++- user semantic actions for why this is necessary. */
++- yytoken = YYTRANSLATE (yychar);
++- yydestruct ("Cleanup: discarding lookahead",
++- yytoken, &yylval);
++- }
++- /* Do not reclaim the symbols of the rule which action triggered
++- this YYABORT or YYACCEPT. */
++- YYPOPSTACK (yylen);
++- YY_STACK_PRINT (yyss, yyssp);
++- while (yyssp != yyss)
++- {
++- yydestruct ("Cleanup: popping",
++- yystos[*yyssp], yyvsp);
++- YYPOPSTACK (1);
++- }
++-#ifndef yyoverflow
++- if (yyss != yyssa)
++- YYSTACK_FREE (yyss);
++-#endif
++-#if YYERROR_VERBOSE
++- if (yymsg != yymsgbuf)
++- YYSTACK_FREE (yymsg);
++-#endif
++- /* Make sure YYID is used. */
++- return YYID (yyresult);
++-}
++-
++-
++-/* Line 2050 of yacc.c */
++-#line 723 "preprocessorYacc.y"
++-
++-
++-int adms_preprocessor_getint_yydebug(void)
++- {
++- return yydebug;
++- }
++-void adms_preprocessor_setint_yydebug(const int val)
++- {
++- yydebug=val;
++- }
++diff --git a/admsXml/preprocessorYacc.h b/admsXml/preprocessorYacc.h
++deleted file mode 100644
++index 546002d..0000000
++--- a/admsXml/preprocessorYacc.h
+++++ /dev/null
++@@ -1,124 +0,0 @@
++-/* A Bison parser, made by GNU Bison 2.7.12-4996. */
++-
++-/* Bison interface for Yacc-like parsers in C
++-
++- Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
++-
++- This program is free software: you can redistribute it and/or modify
++- it under the terms of the GNU General Public License as published by
++- the Free Software Foundation, either version 3 of the License, or
++- (at your option) any later version.
++-
++- This program is distributed in the hope that it will be useful,
++- but WITHOUT ANY WARRANTY; without even the implied warranty of
++- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
++- GNU General Public License for more details.
++-
++- You should have received a copy of the GNU General Public License
++- along with this program. If not, see <http://www.gnu.org/licenses/>. */
++-
++-/* As a special exception, you may create a larger work that contains
++- part or all of the Bison parser skeleton and distribute that work
++- under terms of your choice, so long as that work isn't itself a
++- parser generator using the skeleton or a modified version thereof
++- as a parser skeleton. Alternatively, if you modify or redistribute
++- the parser skeleton itself, you may (at your option) remove this
++- special exception, which will cause the skeleton and the resulting
++- Bison output files to be licensed under the GNU General Public
++- License without this special exception.
++-
++- This special exception was added by the Free Software Foundation in
++- version 2.2 of Bison. */
++-
++-#ifndef YY_PREPROCESSOR_PREPROCESSORYACC_H_INCLUDED
++-# define YY_PREPROCESSOR_PREPROCESSORYACC_H_INCLUDED
++-/* Enabling traces. */
++-#ifndef PREPROCESSORDEBUG
++-# if defined YYDEBUG
++-# if YYDEBUG
++-# define PREPROCESSORDEBUG 1
++-# else
++-# define PREPROCESSORDEBUG 0
++-# endif
++-# else /* ! defined YYDEBUG */
++-# define PREPROCESSORDEBUG 0
++-# endif /* ! defined YYDEBUG */
++-#endif /* ! defined PREPROCESSORDEBUG */
++-#if PREPROCESSORDEBUG
++-extern int preprocessordebug;
++-#endif
++-
++-/* Tokens. */
++-#ifndef PREPROCESSORTOKENTYPE
++-# define PREPROCESSORTOKENTYPE
++- /* Put the tokens into the symbol table, so that GDB and other debuggers
++- know about them. */
++- enum preprocessortokentype {
++- TK_PRAGMA_NAME = 258,
++- TK_IDENT = 259,
++- TK_STRING = 260,
++- TK_NOT_IDENT = 261,
++- TK_ARG = 262,
++- TK_ARG_NULL = 263,
++- TK_SUBSTITUTOR_NOARG = 264,
++- TK_SUBSTITUTOR_NULLARG = 265,
++- TK_SUBSTITUTOR_NULLARG_ALONE = 266,
++- TK_SUBSTITUTOR_WITHARG = 267,
++- TK_SUBSTITUTOR_WITHARG_ALONE = 268,
++- TK_CONTINUATOR = 269,
++- TK_NOPRAGMA_CONTINUATOR = 270,
++- TK_EOL = 271,
++- TK_EOF = 272,
++- TK_COMMENT = 273,
++- TK_INCLUDE = 274,
++- TK_SPACE = 275,
++- TK_ERROR_PRAGMA_DEFINITION = 276,
++- TK_ERROR_PRAGMA_NOT_FOUND = 277,
++- TK_ERROR_UNEXPECTED_CHAR = 278,
++- TK_ERROR_FILE_OPEN = 279,
++- TK_DEFINE = 280,
++- TK_DEFINE_END = 281,
++- TK_UNDEF = 282,
++- TK_IFDEF = 283,
++- TK_IFNDEF = 284,
++- TK_ELSE = 285,
++- TK_ENDIF = 286
++- };
++-#endif
++-
++-
++-#if ! defined PREPROCESSORSTYPE && ! defined PREPROCESSORSTYPE_IS_DECLARED
++-typedef union PREPROCESSORSTYPE
++-{
++-/* Line 2060 of yacc.c */
++-#line 20 "preprocessorYacc.y"
++-
++- p_slist slist;
++- char* mystr;
++-
++-
++-/* Line 2060 of yacc.c */
++-#line 102 "preprocessorYacc.h"
++-} PREPROCESSORSTYPE;
++-# define PREPROCESSORSTYPE_IS_TRIVIAL 1
++-# define preprocessorstype PREPROCESSORSTYPE /* obsolescent; will be withdrawn */
++-# define PREPROCESSORSTYPE_IS_DECLARED 1
++-#endif
++-
++-extern PREPROCESSORSTYPE preprocessorlval;
++-
++-#ifdef YYPARSE_PARAM
++-#if defined __STDC__ || defined __cplusplus
++-int preprocessorparse (void *YYPARSE_PARAM);
++-#else
++-int preprocessorparse ();
++-#endif
++-#else /* ! YYPARSE_PARAM */
++-#if defined __STDC__ || defined __cplusplus
++-int preprocessorparse (void);
++-#else
++-int preprocessorparse ();
++-#endif
++-#endif /* ! YYPARSE_PARAM */
++-
++-#endif /* !YY_PREPROCESSOR_PREPROCESSORYACC_H_INCLUDED */
++diff --git a/admsXml/verilogaLex.c b/admsXml/verilogaLex.c
++deleted file mode 100644
++index 423e286..0000000
++--- a/admsXml/verilogaLex.c
+++++ /dev/null
++@@ -1,2510 +0,0 @@
++-#line 2 "verilogaLex.c"
++-
++-#line 4 "verilogaLex.c"
++-
++-#define YY_INT_ALIGNED short int
++-
++-/* A lexical scanner generated by flex */
++-
++-#define yy_create_buffer veriloga_create_buffer
++-#define yy_delete_buffer veriloga_delete_buffer
++-#define yy_flex_debug veriloga_flex_debug
++-#define yy_init_buffer veriloga_init_buffer
++-#define yy_flush_buffer veriloga_flush_buffer
++-#define yy_load_buffer_state veriloga_load_buffer_state
++-#define yy_switch_to_buffer veriloga_switch_to_buffer
++-#define yyin verilogain
++-#define yyleng verilogaleng
++-#define yylex verilogalex
++-#define yylineno verilogalineno
++-#define yyout verilogaout
++-#define yyrestart verilogarestart
++-#define yytext verilogatext
++-#define yywrap verilogawrap
++-#define yyalloc verilogaalloc
++-#define yyrealloc verilogarealloc
++-#define yyfree verilogafree
++-
++-#define FLEX_SCANNER
++-#define YY_FLEX_MAJOR_VERSION 2
++-#define YY_FLEX_MINOR_VERSION 5
++-#define YY_FLEX_SUBMINOR_VERSION 37
++-#if YY_FLEX_SUBMINOR_VERSION > 0
++-#define FLEX_BETA
++-#endif
++-
++-/* First, we deal with platform-specific or compiler-specific issues. */
++-
++-/* begin standard C headers. */
++-#include <stdio.h>
++-#include <string.h>
++-#include <errno.h>
++-#include <stdlib.h>
++-
++-/* end standard C headers. */
++-
++-/* flex integer type definitions */
++-
++-#ifndef FLEXINT_H
++-#define FLEXINT_H
++-
++-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
++-
++-#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
++-
++-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
++- * if you want the limit (max/min) macros for int types.
++- */
++-#ifndef __STDC_LIMIT_MACROS
++-#define __STDC_LIMIT_MACROS 1
++-#endif
++-
++-#include <inttypes.h>
++-typedef int8_t flex_int8_t;
++-typedef uint8_t flex_uint8_t;
++-typedef int16_t flex_int16_t;
++-typedef uint16_t flex_uint16_t;
++-typedef int32_t flex_int32_t;
++-typedef uint32_t flex_uint32_t;
++-#else
++-typedef signed char flex_int8_t;
++-typedef short int flex_int16_t;
++-typedef int flex_int32_t;
++-typedef unsigned char flex_uint8_t;
++-typedef unsigned short int flex_uint16_t;
++-typedef unsigned int flex_uint32_t;
++-
++-/* Limits of integral types. */
++-#ifndef INT8_MIN
++-#define INT8_MIN (-128)
++-#endif
++-#ifndef INT16_MIN
++-#define INT16_MIN (-32767-1)
++-#endif
++-#ifndef INT32_MIN
++-#define INT32_MIN (-2147483647-1)
++-#endif
++-#ifndef INT8_MAX
++-#define INT8_MAX (127)
++-#endif
++-#ifndef INT16_MAX
++-#define INT16_MAX (32767)
++-#endif
++-#ifndef INT32_MAX
++-#define INT32_MAX (2147483647)
++-#endif
++-#ifndef UINT8_MAX
++-#define UINT8_MAX (255U)
++-#endif
++-#ifndef UINT16_MAX
++-#define UINT16_MAX (65535U)
++-#endif
++-#ifndef UINT32_MAX
++-#define UINT32_MAX (4294967295U)
++-#endif
++-
++-#endif /* ! C99 */
++-
++-#endif /* ! FLEXINT_H */
++-
++-#ifdef __cplusplus
++-
++-/* The "const" storage-class-modifier is valid. */
++-#define YY_USE_CONST
++-
++-#else /* ! __cplusplus */
++-
++-/* C99 requires __STDC__ to be defined as 1. */
++-#if defined (__STDC__)
++-
++-#define YY_USE_CONST
++-
++-#endif /* defined (__STDC__) */
++-#endif /* ! __cplusplus */
++-
++-#ifdef YY_USE_CONST
++-#define yyconst const
++-#else
++-#define yyconst
++-#endif
++-
++-/* Returned upon end-of-file. */
++-#define YY_NULL 0
++-
++-/* Promotes a possibly negative, possibly signed char to an unsigned
++- * integer for use as an array index. If the signed char is negative,
++- * we want to instead treat it as an 8-bit unsigned char, hence the
++- * double cast.
++- */
++-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
++-
++-/* Enter a start condition. This macro really ought to take a parameter,
++- * but we do it the disgusting crufty way forced on us by the ()-less
++- * definition of BEGIN.
++- */
++-#define BEGIN (yy_start) = 1 + 2 *
++-
++-/* Translate the current start state into a value that can be later handed
++- * to BEGIN to return to the state. The YYSTATE alias is for lex
++- * compatibility.
++- */
++-#define YY_START (((yy_start) - 1) / 2)
++-#define YYSTATE YY_START
++-
++-/* Action number for EOF rule of a given start state. */
++-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
++-
++-/* Special action meaning "start processing a new file". */
++-#define YY_NEW_FILE verilogarestart(verilogain )
++-
++-#define YY_END_OF_BUFFER_CHAR 0
++-
++-/* Size of default input buffer. */
++-#ifndef YY_BUF_SIZE
++-#define YY_BUF_SIZE 16384
++-#endif
++-
++-/* The state buf must be large enough to hold one state per character in the main buffer.
++- */
++-#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
++-
++-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
++-#define YY_TYPEDEF_YY_BUFFER_STATE
++-typedef struct yy_buffer_state *YY_BUFFER_STATE;
++-#endif
++-
++-#ifndef YY_TYPEDEF_YY_SIZE_T
++-#define YY_TYPEDEF_YY_SIZE_T
++-typedef size_t yy_size_t;
++-#endif
++-
++-extern yy_size_t verilogaleng;
++-
++-extern FILE *verilogain, *verilogaout;
++-
++-#define EOB_ACT_CONTINUE_SCAN 0
++-#define EOB_ACT_END_OF_FILE 1
++-#define EOB_ACT_LAST_MATCH 2
++-
++- #define YY_LESS_LINENO(n)
++-
++-/* Return all but the first "n" matched characters back to the input stream. */
++-#define yyless(n) \
++- do \
++- { \
++- /* Undo effects of setting up verilogatext. */ \
++- int yyless_macro_arg = (n); \
++- YY_LESS_LINENO(yyless_macro_arg);\
++- *yy_cp = (yy_hold_char); \
++- YY_RESTORE_YY_MORE_OFFSET \
++- (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
++- YY_DO_BEFORE_ACTION; /* set up verilogatext again */ \
++- } \
++- while ( 0 )
++-
++-#define unput(c) yyunput( c, (yytext_ptr) )
++-
++-#ifndef YY_STRUCT_YY_BUFFER_STATE
++-#define YY_STRUCT_YY_BUFFER_STATE
++-struct yy_buffer_state
++- {
++- FILE *yy_input_file;
++-
++- char *yy_ch_buf; /* input buffer */
++- char *yy_buf_pos; /* current position in input buffer */
++-
++- /* Size of input buffer in bytes, not including room for EOB
++- * characters.
++- */
++- yy_size_t yy_buf_size;
++-
++- /* Number of characters read into yy_ch_buf, not including EOB
++- * characters.
++- */
++- yy_size_t yy_n_chars;
++-
++- /* Whether we "own" the buffer - i.e., we know we created it,
++- * and can realloc() it to grow it, and should free() it to
++- * delete it.
++- */
++- int yy_is_our_buffer;
++-
++- /* Whether this is an "interactive" input source; if so, and
++- * if we're using stdio for input, then we want to use getc()
++- * instead of fread(), to make sure we stop fetching input after
++- * each newline.
++- */
++- int yy_is_interactive;
++-
++- /* Whether we're considered to be at the beginning of a line.
++- * If so, '^' rules will be active on the next match, otherwise
++- * not.
++- */
++- int yy_at_bol;
++-
++- int yy_bs_lineno; /**< The line count. */
++- int yy_bs_column; /**< The column count. */
++-
++- /* Whether to try to fill the input buffer when we reach the
++- * end of it.
++- */
++- int yy_fill_buffer;
++-
++- int yy_buffer_status;
++-
++-#define YY_BUFFER_NEW 0
++-#define YY_BUFFER_NORMAL 1
++- /* When an EOF's been seen but there's still some text to process
++- * then we mark the buffer as YY_EOF_PENDING, to indicate that we
++- * shouldn't try reading from the input source any more. We might
++- * still have a bunch of tokens to match, though, because of
++- * possible backing-up.
++- *
++- * When we actually see the EOF, we change the status to "new"
++- * (via verilogarestart()), so that the user can continue scanning by
++- * just pointing verilogain at a new input file.
++- */
++-#define YY_BUFFER_EOF_PENDING 2
++-
++- };
++-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
++-
++-/* Stack of input buffers. */
++-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
++-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
++-static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
++-
++-/* We provide macros for accessing buffer states in case in the
++- * future we want to put the buffer states in a more general
++- * "scanner state".
++- *
++- * Returns the top of the stack, or NULL.
++- */
++-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
++- ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
++- : NULL)
++-
++-/* Same as previous macro, but useful when we know that the buffer stack is not
++- * NULL or when we need an lvalue. For internal use only.
++- */
++-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
++-
++-/* yy_hold_char holds the character lost when verilogatext is formed. */
++-static char yy_hold_char;
++-static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */
++-yy_size_t verilogaleng;
++-
++-/* Points to current character in buffer. */
++-static char *yy_c_buf_p = (char *) 0;
++-static int yy_init = 0; /* whether we need to initialize */
++-static int yy_start = 0; /* start state number */
++-
++-/* Flag which is used to allow verilogawrap()'s to do buffer switches
++- * instead of setting up a fresh verilogain. A bit of a hack ...
++- */
++-static int yy_did_buffer_switch_on_eof;
++-
++-void verilogarestart (FILE *input_file );
++-void veriloga_switch_to_buffer (YY_BUFFER_STATE new_buffer );
++-YY_BUFFER_STATE veriloga_create_buffer (FILE *file,int size );
++-void veriloga_delete_buffer (YY_BUFFER_STATE b );
++-void veriloga_flush_buffer (YY_BUFFER_STATE b );
++-void verilogapush_buffer_state (YY_BUFFER_STATE new_buffer );
++-void verilogapop_buffer_state (void );
++-
++-static void verilogaensure_buffer_stack (void );
++-static void veriloga_load_buffer_state (void );
++-static void veriloga_init_buffer (YY_BUFFER_STATE b,FILE *file );
++-
++-#define YY_FLUSH_BUFFER veriloga_flush_buffer(YY_CURRENT_BUFFER )
++-
++-YY_BUFFER_STATE veriloga_scan_buffer (char *base,yy_size_t size );
++-YY_BUFFER_STATE veriloga_scan_string (yyconst char *yy_str );
++-YY_BUFFER_STATE veriloga_scan_bytes (yyconst char *bytes,yy_size_t len );
++-
++-void *verilogaalloc (yy_size_t );
++-void *verilogarealloc (void *,yy_size_t );
++-void verilogafree (void * );
++-
++-#define yy_new_buffer veriloga_create_buffer
++-
++-#define yy_set_interactive(is_interactive) \
++- { \
++- if ( ! YY_CURRENT_BUFFER ){ \
++- verilogaensure_buffer_stack (); \
++- YY_CURRENT_BUFFER_LVALUE = \
++- veriloga_create_buffer(verilogain,YY_BUF_SIZE ); \
++- } \
++- YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
++- }
++-
++-#define yy_set_bol(at_bol) \
++- { \
++- if ( ! YY_CURRENT_BUFFER ){\
++- verilogaensure_buffer_stack (); \
++- YY_CURRENT_BUFFER_LVALUE = \
++- veriloga_create_buffer(verilogain,YY_BUF_SIZE ); \
++- } \
++- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
++- }
++-
++-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
++-
++-/* Begin user sect3 */
++-
++-typedef unsigned char YY_CHAR;
++-
++-FILE *verilogain = (FILE *) 0, *verilogaout = (FILE *) 0;
++-
++-typedef int yy_state_type;
++-
++-extern int verilogalineno;
++-
++-int verilogalineno = 1;
++-
++-extern char *verilogatext;
++-#define yytext_ptr verilogatext
++-
++-static yy_state_type yy_get_previous_state (void );
++-static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
++-static int yy_get_next_buffer (void );
++-static void yy_fatal_error (yyconst char msg[] );
++-
++-/* Done after the current pattern has been matched and before the
++- * corresponding action - sets up verilogatext.
++- */
++-#define YY_DO_BEFORE_ACTION \
++- (yytext_ptr) = yy_bp; \
++- verilogaleng = (size_t) (yy_cp - yy_bp); \
++- (yy_hold_char) = *yy_cp; \
++- *yy_cp = '\0'; \
++- (yy_c_buf_p) = yy_cp;
++-
++-#define YY_NUM_RULES 74
++-#define YY_END_OF_BUFFER 75
++-/* This struct is not used in this scanner,
++- but its presence is necessary. */
++-struct yy_trans_info
++- {
++- flex_int32_t yy_verify;
++- flex_int32_t yy_nxt;
++- };
++-static yyconst flex_int16_t yy_accept[310] =
++- { 0,
++- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
++- 0, 0, 0, 0, 75, 73, 3, 1, 73, 73,
++- 73, 73, 73, 73, 73, 69, 70, 73, 73, 61,
++- 61, 73, 61, 61, 61, 61, 61, 61, 61, 61,
++- 61, 61, 61, 61, 61, 61, 61, 73, 73, 13,
++- 74, 13, 13, 15, 14, 17, 17, 74, 16, 19,
++- 19, 24, 21, 21, 24, 22, 24, 8, 7, 6,
++- 8, 8, 5, 3, 1, 0, 9, 67, 64, 0,
++- 68, 68, 10, 72, 72, 69, 0, 0, 70, 63,
++- 62, 61, 61, 66, 61, 61, 61, 61, 61, 61,
++-
++- 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,
++- 47, 61, 61, 61, 61, 61, 61, 61, 61, 61,
++- 65, 2, 11, 0, 0, 0, 14, 0, 16, 16,
++- 0, 18, 21, 0, 22, 20, 22, 0, 0, 0,
++- 7, 6, 0, 4, 5, 67, 10, 0, 0, 72,
++- 71, 60, 61, 61, 61, 61, 61, 61, 61, 61,
++- 61, 46, 61, 61, 52, 61, 61, 61, 59, 61,
++- 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,
++- 0, 0, 0, 0, 0, 72, 61, 61, 61, 61,
++- 49, 61, 61, 61, 53, 61, 61, 61, 61, 61,
++-
++- 61, 34, 57, 61, 61, 61, 61, 61, 61, 61,
++- 61, 61, 61, 55, 61, 61, 0, 12, 0, 23,
++- 61, 61, 45, 61, 61, 61, 61, 61, 61, 61,
++- 61, 61, 61, 61, 61, 42, 40, 61, 61, 61,
++- 61, 61, 61, 61, 48, 61, 44, 43, 61, 61,
++- 35, 61, 61, 61, 61, 61, 61, 61, 36, 61,
++- 28, 38, 41, 61, 61, 56, 61, 51, 61, 50,
++- 61, 61, 61, 61, 58, 61, 54, 61, 61, 61,
++- 61, 61, 61, 61, 61, 30, 61, 61, 61, 61,
++- 61, 61, 29, 39, 25, 33, 27, 32, 61, 61,
++-
++- 61, 61, 31, 61, 61, 61, 37, 26, 0
++- } ;
++-
++-static yyconst flex_int32_t yy_ec[256] =
++- { 0,
++- 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
++- 2, 2, 4, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 2, 1, 5, 6, 7, 1, 8, 9, 10,
++- 11, 12, 13, 14, 13, 15, 1, 16, 17, 17,
++- 17, 17, 17, 17, 17, 17, 17, 18, 1, 19,
++- 20, 21, 22, 1, 23, 23, 23, 23, 24, 25,
++- 26, 26, 27, 26, 26, 26, 26, 28, 26, 26,
++- 26, 26, 26, 26, 26, 26, 26, 29, 26, 26,
++- 1, 1, 1, 30, 26, 1, 31, 32, 33, 34,
++-
++- 35, 36, 37, 38, 39, 26, 26, 40, 41, 42,
++- 43, 44, 26, 45, 46, 47, 48, 26, 49, 50,
++- 26, 26, 1, 51, 1, 52, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++-
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1
++- } ;
++-
++-static yyconst flex_int32_t yy_meta[53] =
++- { 0,
++- 1, 2, 2, 2, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 3, 4, 4, 3, 1, 2,
++- 1, 2, 5, 5, 5, 6, 6, 6, 6, 1,
++- 5, 5, 5, 5, 5, 5, 6, 6, 6, 6,
++- 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
++- 1, 1
++- } ;
++-
++-static yyconst flex_int16_t yy_base[326] =
++- { 0,
++- 0, 678, 52, 0, 104, 0, 155, 158, 160, 161,
++- 180, 0, 231, 235, 683, 685, 680, 685, 678, 675,
++- 0, 671, 164, 666, 152, 226, 229, 658, 655, 0,
++- 647, 622, 130, 212, 642, 219, 209, 131, 627, 224,
++- 628, 639, 621, 225, 633, 620, 628, 614, 662, 685,
++- 685, 652, 267, 685, 0, 685, 270, 275, 278, 685,
++- 657, 685, 282, 299, 650, 303, 306, 685, 658, 685,
++- 656, 653, 282, 655, 685, 651, 685, 0, 685, 309,
++- 311, 685, 313, 306, 315, 321, 327, 0, 331, 685,
++- 685, 0, 630, 685, 615, 622, 615, 620, 604, 613,
++-
++- 602, 606, 600, 611, 611, 600, 597, 598, 598, 596,
++- 0, 315, 604, 590, 589, 590, 587, 602, 587, 592,
++- 685, 628, 685, 350, 361, 371, 0, 365, 375, 386,
++- 624, 685, 392, 617, 396, 685, 399, 407, 413, 420,
++- 625, 685, 621, 685, 317, 0, 428, 344, 375, 396,
++- 0, 0, 594, 584, 584, 580, 586, 589, 586, 587,
++- 582, 403, 576, 566, 0, 573, 580, 564, 0, 563,
++- 562, 574, 560, 559, 562, 574, 569, 563, 563, 561,
++- 444, 595, 449, 594, 403, 424, 552, 554, 554, 562,
++- 0, 546, 554, 553, 0, 560, 551, 541, 545, 556,
++-
++- 538, 0, 0, 538, 542, 536, 535, 544, 540, 534,
++- 530, 536, 534, 0, 533, 539, 568, 685, 567, 685,
++- 527, 533, 0, 531, 528, 523, 524, 519, 518, 521,
++- 528, 514, 526, 520, 524, 0, 0, 522, 521, 520,
++- 507, 518, 505, 514, 0, 519, 0, 0, 423, 429,
++- 0, 433, 434, 432, 416, 415, 427, 418, 0, 415,
++- 0, 0, 0, 412, 419, 0, 412, 0, 417, 0,
++- 416, 396, 398, 389, 0, 386, 0, 391, 376, 374,
++- 344, 340, 343, 345, 336, 0, 304, 302, 288, 292,
++- 284, 276, 0, 0, 0, 0, 258, 0, 252, 246,
++-
++- 236, 233, 0, 232, 230, 218, 0, 0, 685, 471,
++- 477, 483, 489, 491, 497, 500, 505, 509, 515, 520,
++- 526, 529, 532, 537, 543
++- } ;
++-
++-static yyconst flex_int16_t yy_def[326] =
++- { 0,
++- 309, 1, 309, 3, 309, 5, 310, 310, 311, 311,
++- 309, 11, 312, 312, 309, 309, 309, 309, 309, 313,
++- 314, 309, 315, 309, 309, 309, 309, 309, 309, 316,
++- 316, 309, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 309, 309, 309,
++- 309, 309, 317, 309, 318, 309, 309, 309, 309, 309,
++- 319, 309, 309, 309, 309, 309, 320, 309, 309, 309,
++- 309, 321, 309, 309, 309, 313, 309, 322, 309, 315,
++- 315, 309, 309, 309, 309, 309, 309, 323, 309, 309,
++- 309, 316, 316, 309, 316, 316, 316, 316, 316, 316,
++-
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 309, 309, 309, 309, 317, 309, 318, 309, 309, 309,
++- 319, 309, 309, 309, 309, 309, 309, 309, 320, 309,
++- 309, 309, 321, 309, 309, 322, 309, 309, 309, 309,
++- 323, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 309, 324, 309, 325, 309, 309, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++-
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 324, 309, 325, 309,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++- 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
++-
++- 316, 316, 316, 316, 316, 316, 316, 316, 0, 309,
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309
++- } ;
++-
++-static yyconst flex_int16_t yy_nxt[738] =
++- { 0,
++- 16, 17, 18, 19, 20, 16, 21, 22, 23, 24,
++- 16, 16, 16, 16, 25, 26, 27, 16, 28, 16,
++- 29, 16, 30, 30, 30, 30, 31, 30, 30, 32,
++- 33, 34, 35, 36, 37, 38, 39, 30, 40, 30,
++- 41, 42, 43, 44, 45, 46, 30, 30, 47, 30,
++- 48, 16, 50, 50, 51, 50, 50, 50, 50, 50,
++- 50, 50, 50, 52, 50, 50, 50, 50, 50, 50,
++- 50, 50, 50, 50, 53, 53, 53, 53, 53, 53,
++- 53, 50, 53, 53, 53, 53, 53, 53, 53, 53,
++- 53, 53, 53, 53, 53, 53, 53, 53, 53, 53,
++-
++- 53, 53, 50, 50, 54, 54, 51, 54, 54, 54,
++- 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
++- 54, 54, 54, 54, 54, 54, 55, 55, 55, 55,
++- 55, 55, 55, 54, 55, 55, 55, 55, 55, 55,
++- 55, 55, 55, 55, 55, 55, 55, 55, 55, 55,
++- 55, 55, 55, 55, 54, 54, 57, 58, 57, 57,
++- 58, 57, 51, 51, 61, 61, 81, 84, 84, 95,
++- 106, 96, 82, 107, 59, 108, 57, 59, 109, 57,
++- 62, 63, 64, 63, 62, 62, 62, 62, 62, 62,
++- 62, 65, 62, 66, 62, 62, 62, 62, 62, 62,
++-
++- 62, 63, 67, 67, 67, 67, 67, 67, 67, 62,
++- 67, 67, 67, 67, 67, 67, 67, 67, 67, 67,
++- 67, 67, 67, 67, 67, 67, 67, 67, 67, 67,
++- 62, 62, 69, 70, 71, 72, 69, 70, 71, 72,
++- 85, 86, 86, 85, 89, 89, 97, 73, 103, 87,
++- 104, 73, 87, 100, 88, 116, 98, 101, 105, 111,
++- 87, 102, 308, 87, 307, 112, 306, 117, 124, 124,
++- 124, 128, 128, 128, 305, 88, 128, 128, 128, 130,
++- 130, 130, 304, 133, 133, 133, 126, 303, 124, 129,
++- 302, 128, 301, 134, 129, 135, 128, 145, 145, 130,
++-
++- 133, 133, 133, 133, 137, 137, 137, 138, 138, 138,
++- 134, 81, 135, 81, 147, 147, 147, 82, 300, 82,
++- 133, 84, 84, 299, 137, 140, 298, 138, 297, 148,
++- 84, 84, 145, 145, 147, 85, 86, 86, 87, 149,
++- 148, 296, 150, 150, 87, 85, 89, 89, 295, 87,
++- 169, 124, 124, 124, 87, 87, 185, 170, 171, 186,
++- 186, 172, 124, 124, 124, 87, 128, 128, 128, 126,
++- 294, 124, 181, 181, 181, 182, 130, 130, 130, 293,
++- 126, 292, 124, 291, 129, 290, 128, 130, 130, 130,
++- 150, 150, 181, 133, 133, 133, 130, 137, 137, 137,
++-
++- 137, 137, 137, 134, 289, 135, 288, 130, 138, 138,
++- 138, 150, 150, 133, 138, 138, 138, 137, 186, 186,
++- 137, 183, 183, 183, 184, 287, 140, 286, 138, 147,
++- 147, 147, 140, 285, 138, 196, 197, 284, 198, 186,
++- 186, 183, 283, 199, 200, 181, 181, 181, 182, 147,
++- 183, 183, 183, 184, 282, 281, 280, 279, 278, 277,
++- 276, 275, 274, 273, 272, 181, 271, 270, 269, 268,
++- 183, 56, 56, 56, 56, 56, 56, 60, 60, 60,
++- 60, 60, 60, 68, 68, 68, 68, 68, 68, 76,
++- 76, 76, 76, 76, 76, 78, 78, 80, 80, 80,
++-
++- 80, 80, 80, 92, 92, 92, 125, 125, 125, 125,
++- 125, 127, 127, 127, 127, 131, 131, 131, 131, 131,
++- 131, 139, 139, 139, 139, 139, 143, 143, 143, 143,
++- 143, 143, 146, 146, 146, 151, 151, 217, 217, 217,
++- 217, 217, 217, 219, 219, 219, 219, 219, 219, 267,
++- 266, 265, 264, 263, 262, 261, 260, 259, 258, 257,
++- 256, 255, 254, 253, 252, 251, 250, 249, 248, 247,
++- 246, 220, 218, 245, 244, 243, 242, 241, 240, 239,
++- 238, 237, 236, 235, 234, 233, 232, 231, 230, 229,
++- 228, 227, 226, 225, 224, 223, 222, 221, 220, 218,
++-
++- 216, 215, 214, 213, 212, 211, 210, 209, 208, 207,
++- 206, 205, 204, 203, 202, 201, 195, 194, 193, 192,
++- 191, 190, 189, 188, 187, 144, 141, 136, 132, 122,
++- 180, 179, 178, 177, 176, 175, 174, 173, 168, 167,
++- 166, 165, 164, 163, 162, 161, 160, 159, 158, 157,
++- 156, 155, 154, 153, 152, 77, 74, 144, 142, 141,
++- 136, 132, 123, 122, 121, 120, 119, 118, 115, 114,
++- 113, 110, 99, 94, 93, 91, 90, 83, 79, 77,
++- 75, 74, 309, 49, 15, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++-
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309
++- } ;
++-
++-static yyconst flex_int16_t yy_chk[738] =
++- { 0,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
++- 1, 1, 3, 3, 3, 3, 3, 3, 3, 3,
++- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
++- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
++- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
++- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
++-
++- 3, 3, 3, 3, 5, 5, 5, 5, 5, 5,
++- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
++- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
++- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
++- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
++- 5, 5, 5, 5, 5, 5, 7, 7, 7, 8,
++- 8, 8, 9, 10, 9, 10, 23, 25, 25, 33,
++- 38, 33, 23, 38, 7, 38, 7, 8, 38, 8,
++- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
++- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
++-
++- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
++- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
++- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
++- 11, 11, 13, 13, 13, 13, 14, 14, 14, 14,
++- 26, 26, 26, 27, 27, 27, 34, 13, 37, 26,
++- 37, 14, 27, 36, 26, 44, 34, 36, 37, 40,
++- 26, 36, 306, 27, 305, 40, 304, 44, 53, 53,
++- 53, 57, 57, 57, 302, 26, 58, 58, 58, 59,
++- 59, 59, 301, 63, 63, 63, 53, 300, 53, 57,
++- 299, 57, 297, 63, 58, 63, 58, 73, 73, 59,
++-
++- 64, 64, 64, 63, 66, 66, 66, 67, 67, 67,
++- 64, 80, 64, 81, 83, 83, 83, 80, 292, 81,
++- 64, 84, 84, 291, 66, 67, 290, 67, 289, 84,
++- 85, 85, 145, 145, 83, 86, 86, 86, 85, 87,
++- 84, 288, 87, 87, 86, 89, 89, 89, 287, 85,
++- 112, 124, 124, 124, 89, 86, 148, 112, 112, 148,
++- 148, 112, 125, 125, 125, 89, 128, 128, 128, 124,
++- 285, 124, 126, 126, 126, 126, 129, 129, 129, 284,
++- 125, 283, 125, 282, 128, 281, 128, 130, 130, 130,
++- 149, 149, 126, 133, 133, 133, 129, 135, 135, 135,
++-
++- 137, 137, 137, 133, 280, 133, 279, 130, 138, 138,
++- 138, 150, 150, 133, 139, 139, 139, 135, 185, 185,
++- 137, 140, 140, 140, 140, 278, 138, 276, 138, 147,
++- 147, 147, 139, 274, 139, 162, 162, 273, 162, 186,
++- 186, 140, 272, 162, 162, 181, 181, 181, 181, 147,
++- 183, 183, 183, 183, 271, 269, 267, 265, 264, 260,
++- 258, 257, 256, 255, 254, 181, 253, 252, 250, 249,
++- 183, 310, 310, 310, 310, 310, 310, 311, 311, 311,
++- 311, 311, 311, 312, 312, 312, 312, 312, 312, 313,
++- 313, 313, 313, 313, 313, 314, 314, 315, 315, 315,
++-
++- 315, 315, 315, 316, 316, 316, 317, 317, 317, 317,
++- 317, 318, 318, 318, 318, 319, 319, 319, 319, 319,
++- 319, 320, 320, 320, 320, 320, 321, 321, 321, 321,
++- 321, 321, 322, 322, 322, 323, 323, 324, 324, 324,
++- 324, 324, 324, 325, 325, 325, 325, 325, 325, 246,
++- 244, 243, 242, 241, 240, 239, 238, 235, 234, 233,
++- 232, 231, 230, 229, 228, 227, 226, 225, 224, 222,
++- 221, 219, 217, 216, 215, 213, 212, 211, 210, 209,
++- 208, 207, 206, 205, 204, 201, 200, 199, 198, 197,
++- 196, 194, 193, 192, 190, 189, 188, 187, 184, 182,
++-
++- 180, 179, 178, 177, 176, 175, 174, 173, 172, 171,
++- 170, 168, 167, 166, 164, 163, 161, 160, 159, 158,
++- 157, 156, 155, 154, 153, 143, 141, 134, 131, 122,
++- 120, 119, 118, 117, 116, 115, 114, 113, 110, 109,
++- 108, 107, 106, 105, 104, 103, 102, 101, 100, 99,
++- 98, 97, 96, 95, 93, 76, 74, 72, 71, 69,
++- 65, 61, 52, 49, 48, 47, 46, 45, 43, 42,
++- 41, 39, 35, 32, 31, 29, 28, 24, 22, 20,
++- 19, 17, 15, 2, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++-
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
++- 309, 309, 309, 309, 309, 309, 309
++- } ;
++-
++-static yy_state_type yy_last_accepting_state;
++-static char *yy_last_accepting_cpos;
++-
++-extern int veriloga_flex_debug;
++-int veriloga_flex_debug = 0;
++-
++-/* The intent behind this definition is that it'll catch
++- * any uses of REJECT which flex missed.
++- */
++-#define REJECT reject_used_but_not_detected
++-#define yymore() yymore_used_but_not_detected
++-#define YY_MORE_ADJ 0
++-#define YY_RESTORE_YY_MORE_OFFSET
++-char *verilogatext;
++-#line 1 "verilogaLex.l"
++-#line 5 "verilogaLex.l"
++-
++-#include "admsVeriloga.h"
++-#include "verilogaYacc.h"
++-
++-static int adms_strtointeger (const char *mystr)
++-{
++- int val;
++- errno=0;
++- val=(int)strtol(mystr,NULL,10);
++- if(errno)
++- adms_message_fatal(("%s: strtoint conversion failed\n",mystr))
++- return val;
++-}
++-void adms_veriloga_setfile_input (FILE *ifile)
++-{
++- verilogain=ifile;
++-}
++-void verilogaerror (const char *s)
++-{
++- adms_message_fatal(("%s: during lexical analysis %s at line %i -- see '%s'\n",root()->_curfilename,s,root()->_curline,verilogatext))
++-}
++-void POS_UPDATE(const int myyyleng,const char*myyytext)
++-{
++- int c=root()->_fpos;
++- adms_message_dbg_vla(("%s:%i:%i-%i read token '%s'\n",root()->_curfilename,
++- root()->_curline,c+1,c+myyyleng,myyytext))
++- adms_admsmain_valueto_fpos(root(),c+myyyleng);
++-}
++-void TKRETURN(const char*myyytext, const int myyyleng)
++-{
++- verilogalval._lexval=adms_lexval_new(myyytext,root()->_curfilename,root()->_curline,root()->_fpos+1);
++- POS_UPDATE(myyyleng,myyytext);
++-}
++-void TKSTRIPPEDRETURN(const char*myyytext, const int myyyleng)
++-{
++- char*mystrippedstring;
++- int mynewlen=strlen(myyytext)-2;
++- assert(mynewlen>=0);
++- mystrippedstring=(char*)malloc(mynewlen+1);
++- if(mystrippedstring)
++- {
++- strncpy(mystrippedstring,myyytext+1,mynewlen);
++- mystrippedstring[mynewlen]='\0';
++- }
++- POS_UPDATE(myyyleng,myyytext);
++- verilogalval._lexval=adms_lexval_new(
++- mystrippedstring,
++- root()->_curfilename,
++- root()->_curline,
++- root()->_fpos
++- );
++- free(mystrippedstring);
++-}
++-#ifdef YYDEBUG
++-extern int yydebug;
++-#endif
++-
++-
++-
++-
++-
++-
++-
++-#line 802 "verilogaLex.c"
++-
++-#define INITIAL 0
++-#define insideAttribute 1
++-#define insideAttributeBegin 2
++-#define insideAttributeEqual 3
++-#define insideAttributeValue 4
++-#define insideAttributeEnd 5
++-#define insidePragma 6
++-
++-#ifndef YY_NO_UNISTD_H
++-/* Special case for "unistd.h", since it is non-ANSI. We include it way
++- * down here because we want the user's section 1 to have been scanned first.
++- * The user has a chance to override it with an option.
++- */
++-#include <unistd.h>
++-#endif
++-
++-#ifndef YY_EXTRA_TYPE
++-#define YY_EXTRA_TYPE void *
++-#endif
++-
++-static int yy_init_globals (void );
++-
++-/* Accessor methods to globals.
++- These are made visible to non-reentrant scanners for convenience. */
++-
++-int verilogalex_destroy (void );
++-
++-int verilogaget_debug (void );
++-
++-void verilogaset_debug (int debug_flag );
++-
++-YY_EXTRA_TYPE verilogaget_extra (void );
++-
++-void verilogaset_extra (YY_EXTRA_TYPE user_defined );
++-
++-FILE *verilogaget_in (void );
++-
++-void verilogaset_in (FILE * in_str );
++-
++-FILE *verilogaget_out (void );
++-
++-void verilogaset_out (FILE * out_str );
++-
++-yy_size_t verilogaget_leng (void );
++-
++-char *verilogaget_text (void );
++-
++-int verilogaget_lineno (void );
++-
++-void verilogaset_lineno (int line_number );
++-
++-/* Macros after this point can all be overridden by user definitions in
++- * section 1.
++- */
++-
++-#ifndef YY_SKIP_YYWRAP
++-#ifdef __cplusplus
++-extern "C" int verilogawrap (void );
++-#else
++-extern int verilogawrap (void );
++-#endif
++-#endif
++-
++-#ifndef yytext_ptr
++-static void yy_flex_strncpy (char *,yyconst char *,int );
++-#endif
++-
++-#ifdef YY_NEED_STRLEN
++-static int yy_flex_strlen (yyconst char * );
++-#endif
++-
++-#ifndef YY_NO_INPUT
++-
++-#ifdef __cplusplus
++-static int yyinput (void );
++-#else
++-static int input (void );
++-#endif
++-
++-#endif
++-
++-/* Amount of stuff to slurp up with each read. */
++-#ifndef YY_READ_BUF_SIZE
++-#define YY_READ_BUF_SIZE 8192
++-#endif
++-
++-/* Copy whatever the last rule matched to the standard output. */
++-#ifndef ECHO
++-/* This used to be an fputs(), but since the string might contain NUL's,
++- * we now use fwrite().
++- */
++-#define ECHO do { if (fwrite( verilogatext, verilogaleng, 1, verilogaout )) {} } while (0)
++-#endif
++-
++-/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
++- * is returned in "result".
++- */
++-#ifndef YY_INPUT
++-#define YY_INPUT(buf,result,max_size) \
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
++- { \
++- int c = '*'; \
++- size_t n; \
++- for ( n = 0; n < max_size && \
++- (c = getc( verilogain )) != EOF && c != '\n'; ++n ) \
++- buf[n] = (char) c; \
++- if ( c == '\n' ) \
++- buf[n++] = (char) c; \
++- if ( c == EOF && ferror( verilogain ) ) \
++- YY_FATAL_ERROR( "input in flex scanner failed" ); \
++- result = n; \
++- } \
++- else \
++- { \
++- errno=0; \
++- while ( (result = fread(buf, 1, max_size, verilogain))==0 && ferror(verilogain)) \
++- { \
++- if( errno != EINTR) \
++- { \
++- YY_FATAL_ERROR( "input in flex scanner failed" ); \
++- break; \
++- } \
++- errno=0; \
++- clearerr(verilogain); \
++- } \
++- }\
++-\
++-
++-#endif
++-
++-/* No semi-colon after return; correct usage is to write "yyterminate();" -
++- * we don't want an extra ';' after the "return" because that will cause
++- * some compilers to complain about unreachable statements.
++- */
++-#ifndef yyterminate
++-#define yyterminate() return YY_NULL
++-#endif
++-
++-/* Number of entries by which start-condition stack grows. */
++-#ifndef YY_START_STACK_INCR
++-#define YY_START_STACK_INCR 25
++-#endif
++-
++-/* Report a fatal error. */
++-#ifndef YY_FATAL_ERROR
++-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
++-#endif
++-
++-/* end tables serialization structures and prototypes */
++-
++-/* Default declaration of generated scanner - a define so the user can
++- * easily add parameters.
++- */
++-#ifndef YY_DECL
++-#define YY_DECL_IS_OURS 1
++-
++-extern int verilogalex (void);
++-
++-#define YY_DECL int verilogalex (void)
++-#endif /* !YY_DECL */
++-
++-/* Code executed at the beginning of each rule, after verilogatext and verilogaleng
++- * have been set up.
++- */
++-#ifndef YY_USER_ACTION
++-#define YY_USER_ACTION
++-#endif
++-
++-/* Code executed at the end of each rule. */
++-#ifndef YY_BREAK
++-#define YY_BREAK break;
++-#endif
++-
++-#define YY_RULE_SETUP \
++- if ( verilogaleng > 0 ) \
++- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
++- (verilogatext[verilogaleng - 1] == '\n'); \
++- YY_USER_ACTION
++-
++-/** The main scanner function which does all the work.
++- */
++-YY_DECL
++-{
++- register yy_state_type yy_current_state;
++- register char *yy_cp, *yy_bp;
++- register int yy_act;
++-
++-#line 88 "verilogaLex.l"
++-
++-
++-#line 994 "verilogaLex.c"
++-
++- if ( !(yy_init) )
++- {
++- (yy_init) = 1;
++-
++-#ifdef YY_USER_INIT
++- YY_USER_INIT;
++-#endif
++-
++- if ( ! (yy_start) )
++- (yy_start) = 1; /* first start state */
++-
++- if ( ! verilogain )
++- verilogain = stdin;
++-
++- if ( ! verilogaout )
++- verilogaout = stdout;
++-
++- if ( ! YY_CURRENT_BUFFER ) {
++- verilogaensure_buffer_stack ();
++- YY_CURRENT_BUFFER_LVALUE =
++- veriloga_create_buffer(verilogain,YY_BUF_SIZE );
++- }
++-
++- veriloga_load_buffer_state( );
++- }
++-
++- while ( 1 ) /* loops until end-of-file is reached */
++- {
++- yy_cp = (yy_c_buf_p);
++-
++- /* Support of verilogatext. */
++- *yy_cp = (yy_hold_char);
++-
++- /* yy_bp points to the position in yy_ch_buf of the start of
++- * the current run.
++- */
++- yy_bp = yy_cp;
++-
++- yy_current_state = (yy_start);
++- yy_current_state += YY_AT_BOL();
++-yy_match:
++- do
++- {
++- register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
++- if ( yy_accept[yy_current_state] )
++- {
++- (yy_last_accepting_state) = yy_current_state;
++- (yy_last_accepting_cpos) = yy_cp;
++- }
++- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
++- {
++- yy_current_state = (int) yy_def[yy_current_state];
++- if ( yy_current_state >= 310 )
++- yy_c = yy_meta[(unsigned int) yy_c];
++- }
++- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
++- ++yy_cp;
++- }
++- while ( yy_base[yy_current_state] != 685 );
++-
++-yy_find_action:
++- yy_act = yy_accept[yy_current_state];
++- if ( yy_act == 0 )
++- { /* have to back up */
++- yy_cp = (yy_last_accepting_cpos);
++- yy_current_state = (yy_last_accepting_state);
++- yy_act = yy_accept[yy_current_state];
++- }
++-
++- YY_DO_BEFORE_ACTION;
++-
++-do_action: /* This label is used only to access EOF actions. */
++-
++- switch ( yy_act )
++- { /* beginning of action switch */
++- case 0: /* must back up */
++- /* undo the effects of YY_DO_BEFORE_ACTION */
++- *yy_cp = (yy_hold_char);
++- yy_cp = (yy_last_accepting_cpos);
++- yy_current_state = (yy_last_accepting_state);
++- goto yy_find_action;
++-
++-case 1:
++-/* rule 1 can match eol */
++-YY_RULE_SETUP
++-#line 90 "verilogaLex.l"
++-{
++- adms_admsmain_valueto_curline(root(),root()->_curline+1);
++- adms_admsmain_valueto_fpos(root(),0);
++-}
++- YY_BREAK
++-case 2:
++-YY_RULE_SETUP
++-#line 95 "verilogaLex.l"
++-{BEGIN(insidePragma);}
++- YY_BREAK
++-case 3:
++-YY_RULE_SETUP
++-#line 96 "verilogaLex.l"
++-{POS_UPDATE(verilogaleng,verilogatext);}
++- YY_BREAK
++-
++-case 4:
++-/* rule 4 can match eol */
++-YY_RULE_SETUP
++-#line 99 "verilogaLex.l"
++-{
++- char*mystrippedstring;
++- int mynewlen=strlen(verilogatext)-2;
++- assert(mynewlen>=0);
++- mystrippedstring=(char*)malloc(mynewlen+1);
++- if(mystrippedstring)
++- {
++- strncpy(mystrippedstring,verilogatext+1,mynewlen);
++- mystrippedstring[mynewlen]='\0';
++- }
++- adms_admsmain_valueto_curfilename(root(),mystrippedstring);
++- free(mystrippedstring);
++-}
++- YY_BREAK
++-case 5:
++-YY_RULE_SETUP
++-#line 112 "verilogaLex.l"
++-{
++- adms_admsmain_valueto_curline(root(),adms_strtointeger(verilogatext));
++- adms_admsmain_valueto_fpos(root(),0);
++-}
++- YY_BREAK
++-case 6:
++-/* rule 6 can match eol */
++-YY_RULE_SETUP
++-#line 116 "verilogaLex.l"
++-{
++- BEGIN(INITIAL);
++- adms_admsmain_valueto_fpos(root(),0);
++-}
++- YY_BREAK
++-case 7:
++-YY_RULE_SETUP
++-#line 120 "verilogaLex.l"
++-{POS_UPDATE(verilogaleng,verilogatext);}
++- YY_BREAK
++-case 8:
++-YY_RULE_SETUP
++-#line 121 "verilogaLex.l"
++-{
++- adms_message_fatal(("[%s:%i]: inside pragma declaration unexpected character at [%s]\n",root()->_curfilename,root()->_curline,verilogatext))
++-}
++- YY_BREAK
++-
++-case 9:
++-/* rule 9 can match eol */
++-YY_RULE_SETUP
++-#line 126 "verilogaLex.l"
++-{TKSTRIPPEDRETURN(verilogatext,verilogaleng); return tk_anystring;}
++- YY_BREAK
++-case 10:
++-/* rule 10 can match eol */
++-YY_RULE_SETUP
++-#line 128 "verilogaLex.l"
++-{BEGIN(insideAttribute); {TKRETURN(verilogatext,verilogaleng); return tk_beginattribute;}}
++- YY_BREAK
++-
++-case 11:
++-YY_RULE_SETUP
++-#line 131 "verilogaLex.l"
++-{BEGIN(INITIAL);TKRETURN(verilogatext,verilogaleng);return tk_endattribute;}
++- YY_BREAK
++-case 12:
++-/* rule 12 can match eol */
++-YY_RULE_SETUP
++-#line 132 "verilogaLex.l"
++-{BEGIN(insideAttributeBegin);yyless(0);}
++- YY_BREAK
++-case 13:
++-YY_RULE_SETUP
++-#line 133 "verilogaLex.l"
++-{
++- char myyytext[1000];
++- register int i=0;
++- myyytext[i]=verilogatext[0];
++- for(;;)
++- {
++- while((myyytext[i]!='*')&&(myyytext[i]!=EOF))
++- {
++- myyytext[++i]=input();
++- }
++- if(myyytext[i]=='*')
++- {
++- while((myyytext[++i]=input())=='*')
++- ;
++- if(myyytext[i]==')')
++- {
++- BEGIN(INITIAL);
++- i-=2;
++- while(myyytext[i]==' ')
++- i--;
++- myyytext[i+1]='\0';
++- POS_UPDATE(verilogaleng,verilogatext);
++- verilogalval._lexval=adms_lexval_new(
++- myyytext,
++- root()->_curfilename,
++- root()->_curline,
++- root()->_fpos
++- );
++- return tk_anytext;
++- }
++- }
++- if(myyytext[i]==EOF)
++- {
++- adms_message_fatal(("[%s:%i]: inside Verilog-ams EOF found in attribute declaration [%s]\n",root()->_curfilename,root()->_curline,verilogatext))
++- }
++- }
++-}
++- YY_BREAK
++-
++-
++-case 14:
++-YY_RULE_SETUP
++-#line 172 "verilogaLex.l"
++-{BEGIN(insideAttributeEqual);TKRETURN(verilogatext,verilogaleng);return tk_ident;}
++- YY_BREAK
++-case 15:
++-YY_RULE_SETUP
++-#line 173 "verilogaLex.l"
++-{
++- adms_message_fatal(("[%s:%i]: inside Verilog-ams attribute declaration unexpected character at [%s]\n",root()->_curfilename,root()->_curline,verilogatext))
++-}
++- YY_BREAK
++-
++-
++-case 16:
++-/* rule 16 can match eol */
++-YY_RULE_SETUP
++-#line 178 "verilogaLex.l"
++-{BEGIN(insideAttributeValue);return '=';}
++- YY_BREAK
++-case 17:
++-YY_RULE_SETUP
++-#line 179 "verilogaLex.l"
++-{
++- adms_message_fatal(("[%s:%i]: inside Verilog-ams attribute declaration unexpected character at [%s]\n",root()->_curfilename,root()->_curline,verilogatext))
++-}
++- YY_BREAK
++-
++-
++-case 18:
++-/* rule 18 can match eol */
++-YY_RULE_SETUP
++-#line 184 "verilogaLex.l"
++-{TKSTRIPPEDRETURN(verilogatext,verilogaleng);BEGIN(insideAttributeEnd);return tk_anystring;}
++- YY_BREAK
++-case 19:
++-YY_RULE_SETUP
++-#line 185 "verilogaLex.l"
++-{
++- adms_message_fatal(("[%s:%i]: inside Verilog-ams attribute declaration unexpected character at [%s]\n",root()->_curfilename,root()->_curline,verilogatext))
++-}
++- YY_BREAK
++-
++-
++-case 20:
++-/* rule 20 can match eol */
++-YY_RULE_SETUP
++-#line 190 "verilogaLex.l"
++-{BEGIN(INITIAL);TKRETURN(verilogatext,verilogaleng);return tk_endattribute;}
++- YY_BREAK
++-case 21:
++-/* rule 21 can match eol */
++-YY_RULE_SETUP
++-#line 191 "verilogaLex.l"
++-{BEGIN(insideAttributeBegin);POS_UPDATE(verilogaleng,verilogatext);}
++- YY_BREAK
++-case 22:
++-/* rule 22 can match eol */
++-YY_RULE_SETUP
++-#line 192 "verilogaLex.l"
++-{BEGIN(insideAttributeBegin);POS_UPDATE(verilogaleng,verilogatext);}
++- YY_BREAK
++-case 23:
++-/* rule 23 can match eol */
++-YY_RULE_SETUP
++-#line 193 "verilogaLex.l"
++-{BEGIN(insideAttributeBegin);yyless(0);}
++- YY_BREAK
++-case 24:
++-YY_RULE_SETUP
++-#line 194 "verilogaLex.l"
++-{
++- adms_message_fatal(("[%s:%i]: inside Verilog-ams attribute declaration unexpected character at [%s]\n",root()->_curfilename,root()->_curline,verilogatext))
++-}
++- YY_BREAK
++-
++-case 25:
++-YY_RULE_SETUP
++-#line 199 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_parameter;}
++- YY_BREAK
++-case 26:
++-YY_RULE_SETUP
++-#line 200 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_aliasparameter;}
++- YY_BREAK
++-case 27:
++-YY_RULE_SETUP
++-#line 201 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_aliasparam;}
++- YY_BREAK
++-case 28:
++-YY_RULE_SETUP
++-#line 202 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_module;}
++- YY_BREAK
++-case 29:
++-YY_RULE_SETUP
++-#line 203 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_endmodule;}
++- YY_BREAK
++-case 30:
++-YY_RULE_SETUP
++-#line 204 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_function;}
++- YY_BREAK
++-case 31:
++-YY_RULE_SETUP
++-#line 205 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_endfunction;}
++- YY_BREAK
++-case 32:
++-YY_RULE_SETUP
++-#line 206 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_discipline;}
++- YY_BREAK
++-case 33:
++-YY_RULE_SETUP
++-#line 207 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_potential;}
++- YY_BREAK
++-case 34:
++-YY_RULE_SETUP
++-#line 208 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_flow;}
++- YY_BREAK
++-case 35:
++-YY_RULE_SETUP
++-#line 209 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_domain;}
++- YY_BREAK
++-case 36:
++-YY_RULE_SETUP
++-#line 210 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_ground;}
++- YY_BREAK
++-case 37:
++-YY_RULE_SETUP
++-#line 211 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_enddiscipline;}
++- YY_BREAK
++-case 38:
++-YY_RULE_SETUP
++-#line 212 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_nature;}
++- YY_BREAK
++-case 39:
++-YY_RULE_SETUP
++-#line 213 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_endnature;}
++- YY_BREAK
++-case 40:
++-YY_RULE_SETUP
++-#line 214 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_input;}
++- YY_BREAK
++-case 41:
++-YY_RULE_SETUP
++-#line 215 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_output;}
++- YY_BREAK
++-case 42:
++-YY_RULE_SETUP
++-#line 216 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_inout;}
++- YY_BREAK
++-case 43:
++-YY_RULE_SETUP
++-#line 217 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_branch;}
++- YY_BREAK
++-case 44:
++-YY_RULE_SETUP
++-#line 218 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_analog;}
++- YY_BREAK
++-case 45:
++-YY_RULE_SETUP
++-#line 219 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_begin;}
++- YY_BREAK
++-case 46:
++-YY_RULE_SETUP
++-#line 220 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_end;}
++- YY_BREAK
++-case 47:
++-YY_RULE_SETUP
++-#line 221 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_if;}
++- YY_BREAK
++-case 48:
++-YY_RULE_SETUP
++-#line 222 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_while;}
++- YY_BREAK
++-case 49:
++-YY_RULE_SETUP
++-#line 223 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_case;}
++- YY_BREAK
++-case 50:
++-YY_RULE_SETUP
++-#line 224 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_endcase;}
++- YY_BREAK
++-case 51:
++-YY_RULE_SETUP
++-#line 225 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_default;}
++- YY_BREAK
++-case 52:
++-YY_RULE_SETUP
++-#line 226 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_for;}
++- YY_BREAK
++-case 53:
++-YY_RULE_SETUP
++-#line 227 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_else;}
++- YY_BREAK
++-case 54:
++-YY_RULE_SETUP
++-#line 228 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_integer;}
++- YY_BREAK
++-case 55:
++-YY_RULE_SETUP
++-#line 229 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_real;}
++- YY_BREAK
++-case 56:
++-YY_RULE_SETUP
++-#line 230 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_string;}
++- YY_BREAK
++-case 57:
++-YY_RULE_SETUP
++-#line 231 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_from;}
++- YY_BREAK
++-case 58:
++-YY_RULE_SETUP
++-#line 232 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_exclude;}
++- YY_BREAK
++-case 59:
++-YY_RULE_SETUP
++-#line 233 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_inf;}
++- YY_BREAK
++-case 60:
++-YY_RULE_SETUP
++-#line 234 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_inf;}
++- YY_BREAK
++-case 61:
++-YY_RULE_SETUP
++-#line 236 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_ident;}
++- YY_BREAK
++-case 62:
++-YY_RULE_SETUP
++-#line 238 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_op_shr;}
++- YY_BREAK
++-case 63:
++-YY_RULE_SETUP
++-#line 239 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_op_shl;}
++- YY_BREAK
++-case 64:
++-YY_RULE_SETUP
++-#line 240 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_and;}
++- YY_BREAK
++-case 65:
++-YY_RULE_SETUP
++-#line 241 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_or;}
++- YY_BREAK
++-case 66:
++-YY_RULE_SETUP
++-#line 242 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_bitwise_equr;}
++- YY_BREAK
++-case 67:
++-YY_RULE_SETUP
++-#line 244 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_dollar_ident;}
++- YY_BREAK
++-case 68:
++-/* rule 68 can match eol */
++-YY_RULE_SETUP
++-#line 245 "verilogaLex.l"
++-{TKSTRIPPEDRETURN(verilogatext,verilogaleng); return tk_char;}
++- YY_BREAK
++-case 69:
++-YY_RULE_SETUP
++-#line 246 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_integer;}
++- YY_BREAK
++-case 70:
++-YY_RULE_SETUP
++-#line 247 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_integer;}
++- YY_BREAK
++-case 71:
++-YY_RULE_SETUP
++-#line 248 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_integer;}
++- YY_BREAK
++-case 72:
++-YY_RULE_SETUP
++-#line 249 "verilogaLex.l"
++-{TKRETURN(verilogatext,verilogaleng); return tk_number;}
++- YY_BREAK
++-case 73:
++-YY_RULE_SETUP
++-#line 251 "verilogaLex.l"
++-{POS_UPDATE(verilogaleng,verilogatext);return verilogatext[0];}
++- YY_BREAK
++-case 74:
++-YY_RULE_SETUP
++-#line 253 "verilogaLex.l"
++-ECHO;
++- YY_BREAK
++-#line 1540 "verilogaLex.c"
++-case YY_STATE_EOF(INITIAL):
++-case YY_STATE_EOF(insideAttribute):
++-case YY_STATE_EOF(insideAttributeBegin):
++-case YY_STATE_EOF(insideAttributeEqual):
++-case YY_STATE_EOF(insideAttributeValue):
++-case YY_STATE_EOF(insideAttributeEnd):
++-case YY_STATE_EOF(insidePragma):
++- yyterminate();
++-
++- case YY_END_OF_BUFFER:
++- {
++- /* Amount of text matched not including the EOB char. */
++- int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
++-
++- /* Undo the effects of YY_DO_BEFORE_ACTION. */
++- *yy_cp = (yy_hold_char);
++- YY_RESTORE_YY_MORE_OFFSET
++-
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
++- {
++- /* We're scanning a new file or input source. It's
++- * possible that this happened because the user
++- * just pointed verilogain at a new source and called
++- * verilogalex(). If so, then we have to assure
++- * consistency between YY_CURRENT_BUFFER and our
++- * globals. Here is the right place to do so, because
++- * this is the first action (other than possibly a
++- * back-up) that will match for the new input source.
++- */
++- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
++- YY_CURRENT_BUFFER_LVALUE->yy_input_file = verilogain;
++- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
++- }
++-
++- /* Note that here we test for yy_c_buf_p "<=" to the position
++- * of the first EOB in the buffer, since yy_c_buf_p will
++- * already have been incremented past the NUL character
++- * (since all states make transitions on EOB to the
++- * end-of-buffer state). Contrast this with the test
++- * in input().
++- */
++- if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
++- { /* This was really a NUL. */
++- yy_state_type yy_next_state;
++-
++- (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
++-
++- yy_current_state = yy_get_previous_state( );
++-
++- /* Okay, we're now positioned to make the NUL
++- * transition. We couldn't have
++- * yy_get_previous_state() go ahead and do it
++- * for us because it doesn't know how to deal
++- * with the possibility of jamming (and we don't
++- * want to build jamming into it because then it
++- * will run more slowly).
++- */
++-
++- yy_next_state = yy_try_NUL_trans( yy_current_state );
++-
++- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
++-
++- if ( yy_next_state )
++- {
++- /* Consume the NUL. */
++- yy_cp = ++(yy_c_buf_p);
++- yy_current_state = yy_next_state;
++- goto yy_match;
++- }
++-
++- else
++- {
++- yy_cp = (yy_c_buf_p);
++- goto yy_find_action;
++- }
++- }
++-
++- else switch ( yy_get_next_buffer( ) )
++- {
++- case EOB_ACT_END_OF_FILE:
++- {
++- (yy_did_buffer_switch_on_eof) = 0;
++-
++- if ( verilogawrap( ) )
++- {
++- /* Note: because we've taken care in
++- * yy_get_next_buffer() to have set up
++- * verilogatext, we can now set up
++- * yy_c_buf_p so that if some total
++- * hoser (like flex itself) wants to
++- * call the scanner after we return the
++- * YY_NULL, it'll still work - another
++- * YY_NULL will get returned.
++- */
++- (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
++-
++- yy_act = YY_STATE_EOF(YY_START);
++- goto do_action;
++- }
++-
++- else
++- {
++- if ( ! (yy_did_buffer_switch_on_eof) )
++- YY_NEW_FILE;
++- }
++- break;
++- }
++-
++- case EOB_ACT_CONTINUE_SCAN:
++- (yy_c_buf_p) =
++- (yytext_ptr) + yy_amount_of_matched_text;
++-
++- yy_current_state = yy_get_previous_state( );
++-
++- yy_cp = (yy_c_buf_p);
++- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
++- goto yy_match;
++-
++- case EOB_ACT_LAST_MATCH:
++- (yy_c_buf_p) =
++- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
++-
++- yy_current_state = yy_get_previous_state( );
++-
++- yy_cp = (yy_c_buf_p);
++- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
++- goto yy_find_action;
++- }
++- break;
++- }
++-
++- default:
++- YY_FATAL_ERROR(
++- "fatal flex scanner internal error--no action found" );
++- } /* end of action switch */
++- } /* end of scanning one token */
++-} /* end of verilogalex */
++-
++-/* yy_get_next_buffer - try to read in a new buffer
++- *
++- * Returns a code representing an action:
++- * EOB_ACT_LAST_MATCH -
++- * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
++- * EOB_ACT_END_OF_FILE - end of file
++- */
++-static int yy_get_next_buffer (void)
++-{
++- register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
++- register char *source = (yytext_ptr);
++- register int number_to_move, i;
++- int ret_val;
++-
++- if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
++- YY_FATAL_ERROR(
++- "fatal flex scanner internal error--end of buffer missed" );
++-
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
++- { /* Don't try to fill the buffer, so this is an EOF. */
++- if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
++- {
++- /* We matched a single character, the EOB, so
++- * treat this as a final EOF.
++- */
++- return EOB_ACT_END_OF_FILE;
++- }
++-
++- else
++- {
++- /* We matched some text prior to the EOB, first
++- * process it.
++- */
++- return EOB_ACT_LAST_MATCH;
++- }
++- }
++-
++- /* Try to read more data. */
++-
++- /* First move last chars to start of buffer. */
++- number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
++-
++- for ( i = 0; i < number_to_move; ++i )
++- *(dest++) = *(source++);
++-
++- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
++- /* don't do the read, it's not guaranteed to return an EOF,
++- * just force an EOF
++- */
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
++-
++- else
++- {
++- yy_size_t num_to_read =
++- YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
++-
++- while ( num_to_read <= 0 )
++- { /* Not enough room in the buffer - grow it. */
++-
++- /* just a shorter name for the current buffer */
++- YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
++-
++- int yy_c_buf_p_offset =
++- (int) ((yy_c_buf_p) - b->yy_ch_buf);
++-
++- if ( b->yy_is_our_buffer )
++- {
++- yy_size_t new_size = b->yy_buf_size * 2;
++-
++- if ( new_size <= 0 )
++- b->yy_buf_size += b->yy_buf_size / 8;
++- else
++- b->yy_buf_size *= 2;
++-
++- b->yy_ch_buf = (char *)
++- /* Include room in for 2 EOB chars. */
++- verilogarealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 );
++- }
++- else
++- /* Can't grow it, we don't own it. */
++- b->yy_ch_buf = 0;
++-
++- if ( ! b->yy_ch_buf )
++- YY_FATAL_ERROR(
++- "fatal error - scanner input buffer overflow" );
++-
++- (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
++-
++- num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
++- number_to_move - 1;
++-
++- }
++-
++- if ( num_to_read > YY_READ_BUF_SIZE )
++- num_to_read = YY_READ_BUF_SIZE;
++-
++- /* Read in more data. */
++- YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
++- (yy_n_chars), num_to_read );
++-
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
++- }
++-
++- if ( (yy_n_chars) == 0 )
++- {
++- if ( number_to_move == YY_MORE_ADJ )
++- {
++- ret_val = EOB_ACT_END_OF_FILE;
++- verilogarestart(verilogain );
++- }
++-
++- else
++- {
++- ret_val = EOB_ACT_LAST_MATCH;
++- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
++- YY_BUFFER_EOF_PENDING;
++- }
++- }
++-
++- else
++- ret_val = EOB_ACT_CONTINUE_SCAN;
++-
++- if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
++- /* Extend the array by 50%, plus the number we really need. */
++- yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
++- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) verilogarealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
++- if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
++- YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
++- }
++-
++- (yy_n_chars) += number_to_move;
++- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
++- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
++-
++- (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
++-
++- return ret_val;
++-}
++-
++-/* yy_get_previous_state - get the state just before the EOB char was reached */
++-
++- static yy_state_type yy_get_previous_state (void)
++-{
++- register yy_state_type yy_current_state;
++- register char *yy_cp;
++-
++- yy_current_state = (yy_start);
++- yy_current_state += YY_AT_BOL();
++-
++- for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
++- {
++- register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
++- if ( yy_accept[yy_current_state] )
++- {
++- (yy_last_accepting_state) = yy_current_state;
++- (yy_last_accepting_cpos) = yy_cp;
++- }
++- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
++- {
++- yy_current_state = (int) yy_def[yy_current_state];
++- if ( yy_current_state >= 310 )
++- yy_c = yy_meta[(unsigned int) yy_c];
++- }
++- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
++- }
++-
++- return yy_current_state;
++-}
++-
++-/* yy_try_NUL_trans - try to make a transition on the NUL character
++- *
++- * synopsis
++- * next_state = yy_try_NUL_trans( current_state );
++- */
++- static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
++-{
++- register int yy_is_jam;
++- register char *yy_cp = (yy_c_buf_p);
++-
++- register YY_CHAR yy_c = 1;
++- if ( yy_accept[yy_current_state] )
++- {
++- (yy_last_accepting_state) = yy_current_state;
++- (yy_last_accepting_cpos) = yy_cp;
++- }
++- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
++- {
++- yy_current_state = (int) yy_def[yy_current_state];
++- if ( yy_current_state >= 310 )
++- yy_c = yy_meta[(unsigned int) yy_c];
++- }
++- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
++- yy_is_jam = (yy_current_state == 309);
++-
++- return yy_is_jam ? 0 : yy_current_state;
++-}
++-
++-#ifndef YY_NO_INPUT
++-#ifdef __cplusplus
++- static int yyinput (void)
++-#else
++- static int input (void)
++-#endif
++-
++-{
++- int c;
++-
++- *(yy_c_buf_p) = (yy_hold_char);
++-
++- if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
++- {
++- /* yy_c_buf_p now points to the character we want to return.
++- * If this occurs *before* the EOB characters, then it's a
++- * valid NUL; if not, then we've hit the end of the buffer.
++- */
++- if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
++- /* This was really a NUL. */
++- *(yy_c_buf_p) = '\0';
++-
++- else
++- { /* need more input */
++- yy_size_t offset = (yy_c_buf_p) - (yytext_ptr);
++- ++(yy_c_buf_p);
++-
++- switch ( yy_get_next_buffer( ) )
++- {
++- case EOB_ACT_LAST_MATCH:
++- /* This happens because yy_g_n_b()
++- * sees that we've accumulated a
++- * token and flags that we need to
++- * try matching the token before
++- * proceeding. But for input(),
++- * there's no matching to consider.
++- * So convert the EOB_ACT_LAST_MATCH
++- * to EOB_ACT_END_OF_FILE.
++- */
++-
++- /* Reset buffer status. */
++- verilogarestart(verilogain );
++-
++- /*FALLTHROUGH*/
++-
++- case EOB_ACT_END_OF_FILE:
++- {
++- if ( verilogawrap( ) )
++- return EOF;
++-
++- if ( ! (yy_did_buffer_switch_on_eof) )
++- YY_NEW_FILE;
++-#ifdef __cplusplus
++- return yyinput();
++-#else
++- return input();
++-#endif
++- }
++-
++- case EOB_ACT_CONTINUE_SCAN:
++- (yy_c_buf_p) = (yytext_ptr) + offset;
++- break;
++- }
++- }
++- }
++-
++- c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
++- *(yy_c_buf_p) = '\0'; /* preserve verilogatext */
++- (yy_hold_char) = *++(yy_c_buf_p);
++-
++- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
++-
++- return c;
++-}
++-#endif /* ifndef YY_NO_INPUT */
++-
++-/** Immediately switch to a different input stream.
++- * @param input_file A readable stream.
++- *
++- * @note This function does not reset the start condition to @c INITIAL .
++- */
++- void verilogarestart (FILE * input_file )
++-{
++-
++- if ( ! YY_CURRENT_BUFFER ){
++- verilogaensure_buffer_stack ();
++- YY_CURRENT_BUFFER_LVALUE =
++- veriloga_create_buffer(verilogain,YY_BUF_SIZE );
++- }
++-
++- veriloga_init_buffer(YY_CURRENT_BUFFER,input_file );
++- veriloga_load_buffer_state( );
++-}
++-
++-/** Switch to a different input buffer.
++- * @param new_buffer The new input buffer.
++- *
++- */
++- void veriloga_switch_to_buffer (YY_BUFFER_STATE new_buffer )
++-{
++-
++- /* TODO. We should be able to replace this entire function body
++- * with
++- * verilogapop_buffer_state();
++- * verilogapush_buffer_state(new_buffer);
++- */
++- verilogaensure_buffer_stack ();
++- if ( YY_CURRENT_BUFFER == new_buffer )
++- return;
++-
++- if ( YY_CURRENT_BUFFER )
++- {
++- /* Flush out information for old buffer. */
++- *(yy_c_buf_p) = (yy_hold_char);
++- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
++- }
++-
++- YY_CURRENT_BUFFER_LVALUE = new_buffer;
++- veriloga_load_buffer_state( );
++-
++- /* We don't actually know whether we did this switch during
++- * EOF (verilogawrap()) processing, but the only time this flag
++- * is looked at is after verilogawrap() is called, so it's safe
++- * to go ahead and always set it.
++- */
++- (yy_did_buffer_switch_on_eof) = 1;
++-}
++-
++-static void veriloga_load_buffer_state (void)
++-{
++- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
++- (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
++- verilogain = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
++- (yy_hold_char) = *(yy_c_buf_p);
++-}
++-
++-/** Allocate and initialize an input buffer state.
++- * @param file A readable stream.
++- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
++- *
++- * @return the allocated buffer state.
++- */
++- YY_BUFFER_STATE veriloga_create_buffer (FILE * file, int size )
++-{
++- YY_BUFFER_STATE b;
++-
++- b = (YY_BUFFER_STATE) verilogaalloc(sizeof( struct yy_buffer_state ) );
++- if ( ! b )
++- YY_FATAL_ERROR( "out of dynamic memory in veriloga_create_buffer()" );
++-
++- b->yy_buf_size = size;
++-
++- /* yy_ch_buf has to be 2 characters longer than the size given because
++- * we need to put in 2 end-of-buffer characters.
++- */
++- b->yy_ch_buf = (char *) verilogaalloc(b->yy_buf_size + 2 );
++- if ( ! b->yy_ch_buf )
++- YY_FATAL_ERROR( "out of dynamic memory in veriloga_create_buffer()" );
++-
++- b->yy_is_our_buffer = 1;
++-
++- veriloga_init_buffer(b,file );
++-
++- return b;
++-}
++-
++-/** Destroy the buffer.
++- * @param b a buffer created with veriloga_create_buffer()
++- *
++- */
++- void veriloga_delete_buffer (YY_BUFFER_STATE b )
++-{
++-
++- if ( ! b )
++- return;
++-
++- if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
++- YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
++-
++- if ( b->yy_is_our_buffer )
++- verilogafree((void *) b->yy_ch_buf );
++-
++- verilogafree((void *) b );
++-}
++-
++-/* Initializes or reinitializes a buffer.
++- * This function is sometimes called more than once on the same buffer,
++- * such as during a verilogarestart() or at EOF.
++- */
++- static void veriloga_init_buffer (YY_BUFFER_STATE b, FILE * file )
++-
++-{
++- int oerrno = errno;
++-
++- veriloga_flush_buffer(b );
++-
++- b->yy_input_file = file;
++- b->yy_fill_buffer = 1;
++-
++- /* If b is the current buffer, then veriloga_init_buffer was _probably_
++- * called from verilogarestart() or through yy_get_next_buffer.
++- * In that case, we don't want to reset the lineno or column.
++- */
++- if (b != YY_CURRENT_BUFFER){
++- b->yy_bs_lineno = 1;
++- b->yy_bs_column = 0;
++- }
++-
++- b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
++-
++- errno = oerrno;
++-}
++-
++-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
++- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
++- *
++- */
++- void veriloga_flush_buffer (YY_BUFFER_STATE b )
++-{
++- if ( ! b )
++- return;
++-
++- b->yy_n_chars = 0;
++-
++- /* We always need two end-of-buffer characters. The first causes
++- * a transition to the end-of-buffer state. The second causes
++- * a jam in that state.
++- */
++- b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
++- b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
++-
++- b->yy_buf_pos = &b->yy_ch_buf[0];
++-
++- b->yy_at_bol = 1;
++- b->yy_buffer_status = YY_BUFFER_NEW;
++-
++- if ( b == YY_CURRENT_BUFFER )
++- veriloga_load_buffer_state( );
++-}
++-
++-/** Pushes the new state onto the stack. The new state becomes
++- * the current state. This function will allocate the stack
++- * if necessary.
++- * @param new_buffer The new state.
++- *
++- */
++-void verilogapush_buffer_state (YY_BUFFER_STATE new_buffer )
++-{
++- if (new_buffer == NULL)
++- return;
++-
++- verilogaensure_buffer_stack();
++-
++- /* This block is copied from veriloga_switch_to_buffer. */
++- if ( YY_CURRENT_BUFFER )
++- {
++- /* Flush out information for old buffer. */
++- *(yy_c_buf_p) = (yy_hold_char);
++- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
++- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
++- }
++-
++- /* Only push if top exists. Otherwise, replace top. */
++- if (YY_CURRENT_BUFFER)
++- (yy_buffer_stack_top)++;
++- YY_CURRENT_BUFFER_LVALUE = new_buffer;
++-
++- /* copied from veriloga_switch_to_buffer. */
++- veriloga_load_buffer_state( );
++- (yy_did_buffer_switch_on_eof) = 1;
++-}
++-
++-/** Removes and deletes the top of the stack, if present.
++- * The next element becomes the new top.
++- *
++- */
++-void verilogapop_buffer_state (void)
++-{
++- if (!YY_CURRENT_BUFFER)
++- return;
++-
++- veriloga_delete_buffer(YY_CURRENT_BUFFER );
++- YY_CURRENT_BUFFER_LVALUE = NULL;
++- if ((yy_buffer_stack_top) > 0)
++- --(yy_buffer_stack_top);
++-
++- if (YY_CURRENT_BUFFER) {
++- veriloga_load_buffer_state( );
++- (yy_did_buffer_switch_on_eof) = 1;
++- }
++-}
++-
++-/* Allocates the stack if it does not exist.
++- * Guarantees space for at least one push.
++- */
++-static void verilogaensure_buffer_stack (void)
++-{
++- yy_size_t num_to_alloc;
++-
++- if (!(yy_buffer_stack)) {
++-
++- /* First allocation is just for 2 elements, since we don't know if this
++- * scanner will even need a stack. We use 2 instead of 1 to avoid an
++- * immediate realloc on the next call.
++- */
++- num_to_alloc = 1;
++- (yy_buffer_stack) = (struct yy_buffer_state**)verilogaalloc
++- (num_to_alloc * sizeof(struct yy_buffer_state*)
++- );
++- if ( ! (yy_buffer_stack) )
++- YY_FATAL_ERROR( "out of dynamic memory in verilogaensure_buffer_stack()" );
++-
++- memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
++-
++- (yy_buffer_stack_max) = num_to_alloc;
++- (yy_buffer_stack_top) = 0;
++- return;
++- }
++-
++- if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
++-
++- /* Increase the buffer to prepare for a possible push. */
++- int grow_size = 8 /* arbitrary grow size */;
++-
++- num_to_alloc = (yy_buffer_stack_max) + grow_size;
++- (yy_buffer_stack) = (struct yy_buffer_state**)verilogarealloc
++- ((yy_buffer_stack),
++- num_to_alloc * sizeof(struct yy_buffer_state*)
++- );
++- if ( ! (yy_buffer_stack) )
++- YY_FATAL_ERROR( "out of dynamic memory in verilogaensure_buffer_stack()" );
++-
++- /* zero only the new slots.*/
++- memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
++- (yy_buffer_stack_max) = num_to_alloc;
++- }
++-}
++-
++-/** Setup the input buffer state to scan directly from a user-specified character buffer.
++- * @param base the character buffer
++- * @param size the size in bytes of the character buffer
++- *
++- * @return the newly allocated buffer state object.
++- */
++-YY_BUFFER_STATE veriloga_scan_buffer (char * base, yy_size_t size )
++-{
++- YY_BUFFER_STATE b;
++-
++- if ( size < 2 ||
++- base[size-2] != YY_END_OF_BUFFER_CHAR ||
++- base[size-1] != YY_END_OF_BUFFER_CHAR )
++- /* They forgot to leave room for the EOB's. */
++- return 0;
++-
++- b = (YY_BUFFER_STATE) verilogaalloc(sizeof( struct yy_buffer_state ) );
++- if ( ! b )
++- YY_FATAL_ERROR( "out of dynamic memory in veriloga_scan_buffer()" );
++-
++- b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
++- b->yy_buf_pos = b->yy_ch_buf = base;
++- b->yy_is_our_buffer = 0;
++- b->yy_input_file = 0;
++- b->yy_n_chars = b->yy_buf_size;
++- b->yy_is_interactive = 0;
++- b->yy_at_bol = 1;
++- b->yy_fill_buffer = 0;
++- b->yy_buffer_status = YY_BUFFER_NEW;
++-
++- veriloga_switch_to_buffer(b );
++-
++- return b;
++-}
++-
++-/** Setup the input buffer state to scan a string. The next call to verilogalex() will
++- * scan from a @e copy of @a str.
++- * @param yystr a NUL-terminated string to scan
++- *
++- * @return the newly allocated buffer state object.
++- * @note If you want to scan bytes that may contain NUL values, then use
++- * veriloga_scan_bytes() instead.
++- */
++-YY_BUFFER_STATE veriloga_scan_string (yyconst char * yystr )
++-{
++-
++- return veriloga_scan_bytes(yystr,strlen(yystr) );
++-}
++-
++-/** Setup the input buffer state to scan the given bytes. The next call to verilogalex() will
++- * scan from a @e copy of @a bytes.
++- * @param yybytes the byte buffer to scan
++- * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
++- *
++- * @return the newly allocated buffer state object.
++- */
++-YY_BUFFER_STATE veriloga_scan_bytes (yyconst char * yybytes, yy_size_t _yybytes_len )
++-{
++- YY_BUFFER_STATE b;
++- char *buf;
++- yy_size_t n;
++- int i;
++-
++- /* Get memory for full buffer, including space for trailing EOB's. */
++- n = _yybytes_len + 2;
++- buf = (char *) verilogaalloc(n );
++- if ( ! buf )
++- YY_FATAL_ERROR( "out of dynamic memory in veriloga_scan_bytes()" );
++-
++- for ( i = 0; i < _yybytes_len; ++i )
++- buf[i] = yybytes[i];
++-
++- buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
++-
++- b = veriloga_scan_buffer(buf,n );
++- if ( ! b )
++- YY_FATAL_ERROR( "bad buffer in veriloga_scan_bytes()" );
++-
++- /* It's okay to grow etc. this buffer, and we should throw it
++- * away when we're done.
++- */
++- b->yy_is_our_buffer = 1;
++-
++- return b;
++-}
++-
++-#ifndef YY_EXIT_FAILURE
++-#define YY_EXIT_FAILURE 2
++-#endif
++-
++-static void yy_fatal_error (yyconst char* msg )
++-{
++- (void) fprintf( stderr, "%s\n", msg );
++- exit( YY_EXIT_FAILURE );
++-}
++-
++-/* Redefine yyless() so it works in section 3 code. */
++-
++-#undef yyless
++-#define yyless(n) \
++- do \
++- { \
++- /* Undo effects of setting up verilogatext. */ \
++- int yyless_macro_arg = (n); \
++- YY_LESS_LINENO(yyless_macro_arg);\
++- verilogatext[verilogaleng] = (yy_hold_char); \
++- (yy_c_buf_p) = verilogatext + yyless_macro_arg; \
++- (yy_hold_char) = *(yy_c_buf_p); \
++- *(yy_c_buf_p) = '\0'; \
++- verilogaleng = yyless_macro_arg; \
++- } \
++- while ( 0 )
++-
++-/* Accessor methods (get/set functions) to struct members. */
++-
++-/** Get the current line number.
++- *
++- */
++-int verilogaget_lineno (void)
++-{
++-
++- return verilogalineno;
++-}
++-
++-/** Get the input stream.
++- *
++- */
++-FILE *verilogaget_in (void)
++-{
++- return verilogain;
++-}
++-
++-/** Get the output stream.
++- *
++- */
++-FILE *verilogaget_out (void)
++-{
++- return verilogaout;
++-}
++-
++-/** Get the length of the current token.
++- *
++- */
++-yy_size_t verilogaget_leng (void)
++-{
++- return verilogaleng;
++-}
++-
++-/** Get the current token.
++- *
++- */
++-
++-char *verilogaget_text (void)
++-{
++- return verilogatext;
++-}
++-
++-/** Set the current line number.
++- * @param line_number
++- *
++- */
++-void verilogaset_lineno (int line_number )
++-{
++-
++- verilogalineno = line_number;
++-}
++-
++-/** Set the input stream. This does not discard the current
++- * input buffer.
++- * @param in_str A readable stream.
++- *
++- * @see veriloga_switch_to_buffer
++- */
++-void verilogaset_in (FILE * in_str )
++-{
++- verilogain = in_str ;
++-}
++-
++-void verilogaset_out (FILE * out_str )
++-{
++- verilogaout = out_str ;
++-}
++-
++-int verilogaget_debug (void)
++-{
++- return veriloga_flex_debug;
++-}
++-
++-void verilogaset_debug (int bdebug )
++-{
++- veriloga_flex_debug = bdebug ;
++-}
++-
++-static int yy_init_globals (void)
++-{
++- /* Initialization is the same as for the non-reentrant scanner.
++- * This function is called from verilogalex_destroy(), so don't allocate here.
++- */
++-
++- (yy_buffer_stack) = 0;
++- (yy_buffer_stack_top) = 0;
++- (yy_buffer_stack_max) = 0;
++- (yy_c_buf_p) = (char *) 0;
++- (yy_init) = 0;
++- (yy_start) = 0;
++-
++-/* Defined in main.c */
++-#ifdef YY_STDINIT
++- verilogain = stdin;
++- verilogaout = stdout;
++-#else
++- verilogain = (FILE *) 0;
++- verilogaout = (FILE *) 0;
++-#endif
++-
++- /* For future reference: Set errno on error, since we are called by
++- * verilogalex_init()
++- */
++- return 0;
++-}
++-
++-/* verilogalex_destroy is for both reentrant and non-reentrant scanners. */
++-int verilogalex_destroy (void)
++-{
++-
++- /* Pop the buffer stack, destroying each element. */
++- while(YY_CURRENT_BUFFER){
++- veriloga_delete_buffer(YY_CURRENT_BUFFER );
++- YY_CURRENT_BUFFER_LVALUE = NULL;
++- verilogapop_buffer_state();
++- }
++-
++- /* Destroy the stack itself. */
++- verilogafree((yy_buffer_stack) );
++- (yy_buffer_stack) = NULL;
++-
++- /* Reset the globals. This is important in a non-reentrant scanner so the next time
++- * verilogalex() is called, initialization will occur. */
++- yy_init_globals( );
++-
++- return 0;
++-}
++-
++-/*
++- * Internal utility routines.
++- */
++-
++-#ifndef yytext_ptr
++-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
++-{
++- register int i;
++- for ( i = 0; i < n; ++i )
++- s1[i] = s2[i];
++-}
++-#endif
++-
++-#ifdef YY_NEED_STRLEN
++-static int yy_flex_strlen (yyconst char * s )
++-{
++- register int n;
++- for ( n = 0; s[n]; ++n )
++- ;
++-
++- return n;
++-}
++-#endif
++-
++-void *verilogaalloc (yy_size_t size )
++-{
++- return (void *) malloc( size );
++-}
++-
++-void *verilogarealloc (void * ptr, yy_size_t size )
++-{
++- /* The cast to (char *) in the following accommodates both
++- * implementations that use char* generic pointers, and those
++- * that use void* generic pointers. It works with the latter
++- * because both ANSI C and C++ allow castless assignment from
++- * any pointer type to void*, and deal with argument conversions
++- * as though doing an assignment.
++- */
++- return (void *) realloc( (char *) ptr, size );
++-}
++-
++-void verilogafree (void * ptr )
++-{
++- free( (char *) ptr ); /* see verilogarealloc() for (char *) cast */
++-}
++-
++-#define YYTABLES_NAME "yytables"
++-
++-#line 253 "verilogaLex.l"
++-
++-
++-
++-int verilogawrap (void) {return 1;}
++-
++diff --git a/admsXml/verilogaYacc.c b/admsXml/verilogaYacc.c
++deleted file mode 100644
++index cf20a6b..0000000
++--- a/admsXml/verilogaYacc.c
+++++ /dev/null
++@@ -1,5088 +0,0 @@
++-/* A Bison parser, made by GNU Bison 2.7.12-4996. */
++-
++-/* Bison implementation for Yacc-like parsers in C
++-
++- Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
++-
++- This program is free software: you can redistribute it and/or modify
++- it under the terms of the GNU General Public License as published by
++- the Free Software Foundation, either version 3 of the License, or
++- (at your option) any later version.
++-
++- This program is distributed in the hope that it will be useful,
++- but WITHOUT ANY WARRANTY; without even the implied warranty of
++- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
++- GNU General Public License for more details.
++-
++- You should have received a copy of the GNU General Public License
++- along with this program. If not, see <http://www.gnu.org/licenses/>. */
++-
++-/* As a special exception, you may create a larger work that contains
++- part or all of the Bison parser skeleton and distribute that work
++- under terms of your choice, so long as that work isn't itself a
++- parser generator using the skeleton or a modified version thereof
++- as a parser skeleton. Alternatively, if you modify or redistribute
++- the parser skeleton itself, you may (at your option) remove this
++- special exception, which will cause the skeleton and the resulting
++- Bison output files to be licensed under the GNU General Public
++- License without this special exception.
++-
++- This special exception was added by the Free Software Foundation in
++- version 2.2 of Bison. */
++-
++-/* C LALR(1) parser skeleton written by Richard Stallman, by
++- simplifying the original so-called "semantic" parser. */
++-
++-/* All symbols defined below should begin with yy or YY, to avoid
++- infringing on user name space. This should be done even for local
++- variables, as they might otherwise be expanded by user macros.
++- There are some unavoidable exceptions within include files to
++- define necessary library symbols; they are noted "INFRINGES ON
++- USER NAME SPACE" below. */
++-
++-/* Identify Bison output. */
++-#define YYBISON 1
++-
++-/* Bison version. */
++-#define YYBISON_VERSION "2.7.12-4996"
++-
++-/* Skeleton name. */
++-#define YYSKELETON_NAME "yacc.c"
++-
++-/* Pure parsers. */
++-#define YYPURE 0
++-
++-/* Push parsers. */
++-#define YYPUSH 0
++-
++-/* Pull parsers. */
++-#define YYPULL 1
++-
++-/* Substitute the type names. */
++-#define YYSTYPE VERILOGASTYPE
++-/* Substitute the variable and function names. */
++-#define yyparse verilogaparse
++-#define yylex verilogalex
++-#define yyerror verilogaerror
++-#define yylval verilogalval
++-#define yychar verilogachar
++-#define yydebug verilogadebug
++-#define yynerrs veriloganerrs
++-
++-/* Copy the first part of user declarations. */
++-/* Line 371 of yacc.c */
++-#line 6 "verilogaYacc.y"
++-
++-#define YYDEBUG 1
++-#include "admsVeriloga.h"
++-
++-#define NEWVARIABLE(l) p_variableprototype myvariableprototype=adms_variableprototype_new(gModule,l,(p_adms)gBlockList->data);
++-
++-inline static void Y (p_yaccval myyaccval,p_adms myusrdata) {myyaccval->_usrdata=myusrdata;}
++-inline static p_adms YY(p_yaccval myyaccval) {return myyaccval->_usrdata;}
++-static char* gNatureAccess=NULL;
++-static p_number gNatureAbsTol=NULL;
++-static char* gNatureUnits=NULL;
++-static char* gNatureidt=NULL;
++-static char* gNatureddt=NULL;
++-static p_discipline gDiscipline=NULL;
++-static p_module gModule=NULL;
++-static p_analogfunction gAnalogfunction=NULL;
++-static p_module gInstanceModule=NULL;
++-static p_node gGND=NULL;
++-static p_source gSource=NULL;
++-static p_lexval gLexval=NULL;
++-static p_contribution gContribution=NULL;
++-static admse gVariableType=admse_real;
++-static admse gNodeDirection;
++-int uid=0;
++-static p_slist gVariableDeclarationList=NULL;
++-static p_slist gInstanceVariableList=NULL;
++-static p_slist gTerminalList=NULL;
++-static p_slist gBranchAliasList=NULL;
++-static p_slist gRangeList=NULL;
++-static p_slist gNodeList=NULL;
++-static p_slist gAttributeList=NULL;
++-static p_slist gGlobalAttributeList=NULL;
++-static p_slist gBlockList=NULL;
++-static p_slist gBlockVariableList=NULL;
++-static p_branchalias gBranchAlias=NULL;
++-
++-static void adms_veriloga_message_fatal_continue(const p_lexval mytoken)
++-{
++- adms_message_fatal_continue(("[%s:%i:%i]: at '%s':\n",mytoken->_f,mytoken->_l,mytoken->_c,mytoken->_string))
++-}
++-static void adms_veriloga_message_fatal (const char* message,const p_lexval mytoken)
++-{
++- adms_veriloga_message_fatal_continue(mytoken);
++- adms_message_fatal((message))
++-}
++-/*
++-inline static p_variableprototype variableprototype_recursive_lookup_by_id (p_adms myadms,p_lexval mylexval)
++-{
++- if(myadms==(p_adms)gModule)
++- return adms_module_list_variable_lookup_by_id(gModule,gModule,mylexval,(p_adms)gModule);
++- else if(myadms==(p_adms)gAnalogfunction)
++- return adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,mylexval,(p_adms)gAnalogfunction);
++- else
++- {
++- p_slist l;
++- for(l=((p_block)myadms)->_variable;l;l=l->next)
++- if(!strcmp(((p_variableprototype)l->data)->_lexval->_string,mylexval->_string))
++- return (p_variableprototype)l->data;
++- return variableprototype_recursive_lookup_by_id((p_adms)((p_block)myadms)->_block,mylexval);
++- }
++-}
++-*/
++-inline static p_variable variable_recursive_lookup_by_id (p_adms myadms,p_lexval mylexval)
++-{
++- if(myadms==(p_adms)gModule)
++- {
++- p_variable myvariable=NULL;
++- p_variableprototype myvariableprototype;
++- if((myvariableprototype=adms_module_list_variable_lookup_by_id(gModule,gModule,mylexval,(p_adms)gModule)))
++- {
++- myvariable=adms_variable_new(myvariableprototype);
++- adms_slist_push(&myvariableprototype->_instance,(p_adms)myvariable);
++- }
++- return myvariable;
++- }
++- else if(myadms==(p_adms)gAnalogfunction)
++- {
++- p_variable myvariable=NULL;
++- p_variableprototype myvariableprototype;
++- if((myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,mylexval,(p_adms)gAnalogfunction)))
++- {
++- myvariable=adms_variable_new(myvariableprototype);
++- adms_slist_push(&myvariableprototype->_instance,(p_adms)myvariable);
++- }
++- return myvariable;
++- }
++- else
++- {
++- p_slist l;
++- for(l=((p_block)myadms)->_variable;l;l=l->next)
++- if(!strcmp(((p_variableprototype)l->data)->_lexval->_string,mylexval->_string))
++- {
++- p_variableprototype myvariableprototype=(p_variableprototype)l->data;
++- p_variable myvariable=adms_variable_new(myvariableprototype);
++- adms_slist_push(&myvariableprototype->_instance,(p_adms)myvariable);
++- return myvariable;
++- }
++- return variable_recursive_lookup_by_id((p_adms)((p_block)myadms)->_block,mylexval);
++- }
++-}
++-static p_nature lookup_nature(const char *myname)
++-{
++- p_slist l;
++- for(l=root()->_nature;l;l=l->next)
++- if(!strcmp(((p_nature)l->data)->_name,myname))
++- return (p_nature)l->data;
++- return NULL;
++-}
++-
++-
++-/* Line 371 of yacc.c */
++-#line 187 "verilogaYacc.c"
++-
++-# ifndef YY_NULL
++-# if defined __cplusplus && 201103L <= __cplusplus
++-# define YY_NULL nullptr
++-# else
++-# define YY_NULL 0
++-# endif
++-# endif
++-
++-/* Enabling verbose error messages. */
++-#ifdef YYERROR_VERBOSE
++-# undef YYERROR_VERBOSE
++-# define YYERROR_VERBOSE 1
++-#else
++-# define YYERROR_VERBOSE 0
++-#endif
++-
++-/* In a future release of Bison, this section will be replaced
++- by #include "y.tab.h". */
++-#ifndef YY_VERILOGA_VERILOGAYACC_H_INCLUDED
++-# define YY_VERILOGA_VERILOGAYACC_H_INCLUDED
++-/* Enabling traces. */
++-#ifndef VERILOGADEBUG
++-# if defined YYDEBUG
++-# if YYDEBUG
++-# define VERILOGADEBUG 1
++-# else
++-# define VERILOGADEBUG 0
++-# endif
++-# else /* ! defined YYDEBUG */
++-# define VERILOGADEBUG 0
++-# endif /* ! defined YYDEBUG */
++-#endif /* ! defined VERILOGADEBUG */
++-#if VERILOGADEBUG
++-extern int verilogadebug;
++-#endif
++-
++-/* Tokens. */
++-#ifndef VERILOGATOKENTYPE
++-# define VERILOGATOKENTYPE
++- /* Put the tokens into the symbol table, so that GDB and other debuggers
++- know about them. */
++- enum verilogatokentype {
++- PREC_IF_THEN = 258,
++- tk_else = 259,
++- tk_from = 260,
++- tk_branch = 261,
++- tk_number = 262,
++- tk_nature = 263,
++- tk_aliasparameter = 264,
++- tk_output = 265,
++- tk_anystring = 266,
++- tk_dollar_ident = 267,
++- tk_or = 268,
++- tk_aliasparam = 269,
++- tk_if = 270,
++- tk_analog = 271,
++- tk_parameter = 272,
++- tk_discipline = 273,
++- tk_char = 274,
++- tk_anytext = 275,
++- tk_for = 276,
++- tk_while = 277,
++- tk_real = 278,
++- tk_op_shr = 279,
++- tk_case = 280,
++- tk_potential = 281,
++- tk_endcase = 282,
++- tk_inf = 283,
++- tk_exclude = 284,
++- tk_ground = 285,
++- tk_endmodule = 286,
++- tk_begin = 287,
++- tk_enddiscipline = 288,
++- tk_domain = 289,
++- tk_ident = 290,
++- tk_op_shl = 291,
++- tk_string = 292,
++- tk_integer = 293,
++- tk_module = 294,
++- tk_endattribute = 295,
++- tk_end = 296,
++- tk_inout = 297,
++- tk_and = 298,
++- tk_bitwise_equr = 299,
++- tk_default = 300,
++- tk_function = 301,
++- tk_input = 302,
++- tk_beginattribute = 303,
++- tk_endnature = 304,
++- tk_endfunction = 305,
++- tk_flow = 306
++- };
++-#endif
++-
++-
++-#if ! defined VERILOGASTYPE && ! defined VERILOGASTYPE_IS_DECLARED
++-typedef union VERILOGASTYPE
++-{
++-/* Line 387 of yacc.c */
++-#line 121 "verilogaYacc.y"
++-
++- p_lexval _lexval;
++- p_yaccval _yaccval;
++-
++-
++-/* Line 387 of yacc.c */
++-#line 295 "verilogaYacc.c"
++-} VERILOGASTYPE;
++-# define VERILOGASTYPE_IS_TRIVIAL 1
++-# define verilogastype VERILOGASTYPE /* obsolescent; will be withdrawn */
++-# define VERILOGASTYPE_IS_DECLARED 1
++-#endif
++-
++-extern VERILOGASTYPE verilogalval;
++-
++-#ifdef YYPARSE_PARAM
++-#if defined __STDC__ || defined __cplusplus
++-int verilogaparse (void *YYPARSE_PARAM);
++-#else
++-int verilogaparse ();
++-#endif
++-#else /* ! YYPARSE_PARAM */
++-#if defined __STDC__ || defined __cplusplus
++-int verilogaparse (void);
++-#else
++-int verilogaparse ();
++-#endif
++-#endif /* ! YYPARSE_PARAM */
++-
++-#endif /* !YY_VERILOGA_VERILOGAYACC_H_INCLUDED */
++-
++-/* Copy the second part of user declarations. */
++-
++-/* Line 390 of yacc.c */
++-#line 323 "verilogaYacc.c"
++-
++-#ifdef short
++-# undef short
++-#endif
++-
++-#ifdef YYTYPE_UINT8
++-typedef YYTYPE_UINT8 yytype_uint8;
++-#else
++-typedef unsigned char yytype_uint8;
++-#endif
++-
++-#ifdef YYTYPE_INT8
++-typedef YYTYPE_INT8 yytype_int8;
++-#elif (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-typedef signed char yytype_int8;
++-#else
++-typedef short int yytype_int8;
++-#endif
++-
++-#ifdef YYTYPE_UINT16
++-typedef YYTYPE_UINT16 yytype_uint16;
++-#else
++-typedef unsigned short int yytype_uint16;
++-#endif
++-
++-#ifdef YYTYPE_INT16
++-typedef YYTYPE_INT16 yytype_int16;
++-#else
++-typedef short int yytype_int16;
++-#endif
++-
++-#ifndef YYSIZE_T
++-# ifdef __SIZE_TYPE__
++-# define YYSIZE_T __SIZE_TYPE__
++-# elif defined size_t
++-# define YYSIZE_T size_t
++-# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
++-# define YYSIZE_T size_t
++-# else
++-# define YYSIZE_T unsigned int
++-# endif
++-#endif
++-
++-#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
++-
++-#ifndef YY_
++-# if defined YYENABLE_NLS && YYENABLE_NLS
++-# if ENABLE_NLS
++-# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
++-# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
++-# endif
++-# endif
++-# ifndef YY_
++-# define YY_(Msgid) Msgid
++-# endif
++-#endif
++-
++-#ifndef __attribute__
++-/* This feature is available in gcc versions 2.5 and later. */
++-# if (! defined __GNUC__ || __GNUC__ < 2 \
++- || (__GNUC__ == 2 && __GNUC_MINOR__ < 5))
++-# define __attribute__(Spec) /* empty */
++-# endif
++-#endif
++-
++-/* Suppress unused-variable warnings by "using" E. */
++-#if ! defined lint || defined __GNUC__
++-# define YYUSE(E) ((void) (E))
++-#else
++-# define YYUSE(E) /* empty */
++-#endif
++-
++-
++-/* Identity function, used to suppress warnings about constant conditions. */
++-#ifndef lint
++-# define YYID(N) (N)
++-#else
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static int
++-YYID (int yyi)
++-#else
++-static int
++-YYID (yyi)
++- int yyi;
++-#endif
++-{
++- return yyi;
++-}
++-#endif
++-
++-#if ! defined yyoverflow || YYERROR_VERBOSE
++-
++-/* The parser invokes alloca or malloc; define the necessary symbols. */
++-
++-# ifdef YYSTACK_USE_ALLOCA
++-# if YYSTACK_USE_ALLOCA
++-# ifdef __GNUC__
++-# define YYSTACK_ALLOC __builtin_alloca
++-# elif defined __BUILTIN_VA_ARG_INCR
++-# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
++-# elif defined _AIX
++-# define YYSTACK_ALLOC __alloca
++-# elif defined _MSC_VER
++-# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
++-# define alloca _alloca
++-# else
++-# define YYSTACK_ALLOC alloca
++-# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
++- /* Use EXIT_SUCCESS as a witness for stdlib.h. */
++-# ifndef EXIT_SUCCESS
++-# define EXIT_SUCCESS 0
++-# endif
++-# endif
++-# endif
++-# endif
++-# endif
++-
++-# ifdef YYSTACK_ALLOC
++- /* Pacify GCC's `empty if-body' warning. */
++-# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
++-# ifndef YYSTACK_ALLOC_MAXIMUM
++- /* The OS might guarantee only one guard page at the bottom of the stack,
++- and a page size can be as small as 4096 bytes. So we cannot safely
++- invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
++- to allow for a few compiler-allocated temporary stack slots. */
++-# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
++-# endif
++-# else
++-# define YYSTACK_ALLOC YYMALLOC
++-# define YYSTACK_FREE YYFREE
++-# ifndef YYSTACK_ALLOC_MAXIMUM
++-# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
++-# endif
++-# if (defined __cplusplus && ! defined EXIT_SUCCESS \
++- && ! ((defined YYMALLOC || defined malloc) \
++- && (defined YYFREE || defined free)))
++-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
++-# ifndef EXIT_SUCCESS
++-# define EXIT_SUCCESS 0
++-# endif
++-# endif
++-# ifndef YYMALLOC
++-# define YYMALLOC malloc
++-# if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
++-# endif
++-# endif
++-# ifndef YYFREE
++-# define YYFREE free
++-# if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-void free (void *); /* INFRINGES ON USER NAME SPACE */
++-# endif
++-# endif
++-# endif
++-#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
++-
++-
++-#if (! defined yyoverflow \
++- && (! defined __cplusplus \
++- || (defined VERILOGASTYPE_IS_TRIVIAL && VERILOGASTYPE_IS_TRIVIAL)))
++-
++-/* A type that is properly aligned for any stack member. */
++-union yyalloc
++-{
++- yytype_int16 yyss_alloc;
++- YYSTYPE yyvs_alloc;
++-};
++-
++-/* The size of the maximum gap between one aligned stack and the next. */
++-# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
++-
++-/* The size of an array large to enough to hold all stacks, each with
++- N elements. */
++-# define YYSTACK_BYTES(N) \
++- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
++- + YYSTACK_GAP_MAXIMUM)
++-
++-# define YYCOPY_NEEDED 1
++-
++-/* Relocate STACK from its old location to the new one. The
++- local variables YYSIZE and YYSTACKSIZE give the old and new number of
++- elements in the stack, and YYPTR gives the new location of the
++- stack. Advance YYPTR to a properly aligned location for the next
++- stack. */
++-# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
++- do \
++- { \
++- YYSIZE_T yynewbytes; \
++- YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
++- Stack = &yyptr->Stack_alloc; \
++- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
++- yyptr += yynewbytes / sizeof (*yyptr); \
++- } \
++- while (YYID (0))
++-
++-#endif
++-
++-#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
++-/* Copy COUNT objects from SRC to DST. The source and destination do
++- not overlap. */
++-# ifndef YYCOPY
++-# if defined __GNUC__ && 1 < __GNUC__
++-# define YYCOPY(Dst, Src, Count) \
++- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
++-# else
++-# define YYCOPY(Dst, Src, Count) \
++- do \
++- { \
++- YYSIZE_T yyi; \
++- for (yyi = 0; yyi < (Count); yyi++) \
++- (Dst)[yyi] = (Src)[yyi]; \
++- } \
++- while (YYID (0))
++-# endif
++-# endif
++-#endif /* !YYCOPY_NEEDED */
++-
++-/* YYFINAL -- State number of the termination state. */
++-#define YYFINAL 20
++-/* YYLAST -- Last index in YYTABLE. */
++-#define YYLAST 652
++-
++-/* YYNTOKENS -- Number of terminals. */
++-#define YYNTOKENS 78
++-/* YYNNTS -- Number of nonterminals. */
++-#define YYNNTS 111
++-/* YYNRULES -- Number of rules. */
++-#define YYNRULES 251
++-/* YYNRULES -- Number of states. */
++-#define YYNSTATES 506
++-
++-/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
++-#define YYUNDEFTOK 2
++-#define YYMAXUTOK 306
++-
++-#define YYTRANSLATE(YYX) \
++- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
++-
++-/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
++-static const yytype_uint8 yytranslate[] =
++-{
++- 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 73, 2, 66, 2, 77, 72, 2,
++- 54, 55, 75, 63, 56, 62, 67, 76, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 60, 52,
++- 65, 53, 74, 68, 64, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 59, 2, 61, 70, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 57, 71, 58, 69, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
++- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
++- 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
++- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
++- 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
++- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
++- 45, 46, 47, 48, 49, 50, 51
++-};
++-
++-#if VERILOGADEBUG
++-/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
++- YYRHS. */
++-static const yytype_uint16 yyprhs[] =
++-{
++- 0, 0, 3, 5, 7, 10, 12, 14, 16, 21,
++- 23, 25, 28, 32, 36, 40, 42, 47, 49, 52,
++- 57, 63, 68, 73, 74, 76, 80, 83, 86, 88,
++- 91, 95, 96, 104, 105, 107, 109, 112, 114, 116,
++- 119, 122, 126, 128, 131, 137, 138, 140, 142, 146,
++- 148, 150, 153, 155, 158, 160, 162, 164, 169, 173,
++- 177, 179, 181, 183, 187, 191, 195, 197, 199, 201,
++- 203, 207, 209, 213, 216, 219, 223, 225, 229, 231,
++- 238, 243, 248, 253, 259, 265, 267, 269, 272, 276,
++- 280, 284, 288, 292, 294, 298, 300, 304, 306, 310,
++- 312, 316, 318, 322, 325, 328, 331, 333, 335, 339,
++- 341, 345, 352, 354, 356, 359, 362, 367, 374, 376,
++- 383, 384, 386, 388, 391, 394, 397, 403, 409, 415,
++- 421, 423, 425, 428, 430, 432, 435, 438, 440, 442,
++- 444, 448, 451, 453, 456, 458, 460, 462, 464, 470,
++- 475, 478, 480, 482, 485, 493, 496, 501, 503, 507,
++- 509, 512, 517, 521, 527, 530, 532, 535, 539, 543,
++- 547, 549, 553, 555, 562, 566, 571, 578, 583, 589,
++- 599, 606, 608, 611, 615, 619, 622, 633, 635, 637,
++- 641, 647, 651, 656, 663, 671, 677, 685, 687, 689,
++- 693, 695, 697, 699, 705, 707, 711, 716, 718, 722,
++- 724, 728, 730, 734, 736, 740, 742, 746, 748, 753,
++- 758, 760, 764, 769, 773, 778, 780, 784, 788, 790,
++- 794, 798, 800, 804, 808, 812, 814, 817, 820, 823,
++- 826, 828, 831, 833, 836, 838, 840, 842, 844, 849,
++- 854, 859
++-};
++-
++-/* YYRHS -- A `-1'-separated list of the rules' RHS. */
++-static const yytype_int16 yyrhs[] =
++-{
++- 79, 0, -1, 80, -1, 81, -1, 80, 81, -1,
++- 94, -1, 82, -1, 87, -1, 18, 83, 84, 33,
++- -1, 35, -1, 85, -1, 84, 85, -1, 26, 86,
++- 52, -1, 51, 86, 52, -1, 34, 35, 52, -1,
++- 35, -1, 8, 35, 88, 49, -1, 89, -1, 88,
++- 89, -1, 35, 53, 7, 52, -1, 35, 53, 7,
++- 35, 52, -1, 35, 53, 11, 52, -1, 35, 53,
++- 35, 52, -1, -1, 91, -1, 48, 92, 40, -1,
++- 48, 20, -1, 48, 40, -1, 93, -1, 92, 93,
++- -1, 35, 53, 11, -1, -1, 90, 39, 35, 95,
++- 99, 96, 31, -1, -1, 103, -1, 97, -1, 103,
++- 97, -1, 143, -1, 98, -1, 98, 143, -1, 143,
++- 98, -1, 98, 143, 98, -1, 165, -1, 98, 165,
++- -1, 54, 100, 55, 90, 52, -1, -1, 101, -1,
++- 102, -1, 101, 56, 102, -1, 35, -1, 104, -1,
++- 103, 104, -1, 106, -1, 105, 106, -1, 91, -1,
++- 107, -1, 113, -1, 17, 127, 129, 128, -1, 17,
++- 129, 128, -1, 127, 130, 128, -1, 131, -1, 117,
++- -1, 52, -1, 108, 109, 52, -1, 30, 110, 52,
++- -1, 35, 110, 52, -1, 47, -1, 10, -1, 42,
++- -1, 111, -1, 109, 56, 111, -1, 112, -1, 110,
++- 56, 112, -1, 35, 90, -1, 35, 90, -1, 6,
++- 116, 52, -1, 115, -1, 114, 56, 115, -1, 35,
++- -1, 54, 35, 56, 35, 55, 114, -1, 54, 35,
++- 55, 114, -1, 118, 120, 147, 50, -1, 16, 46,
++- 119, 52, -1, 16, 46, 38, 119, 52, -1, 16,
++- 46, 23, 119, 52, -1, 35, -1, 121, -1, 120,
++- 121, -1, 47, 122, 52, -1, 10, 123, 52, -1,
++- 42, 124, 52, -1, 38, 125, 52, -1, 23, 126,
++- 52, -1, 35, -1, 122, 56, 35, -1, 35, -1,
++- 123, 56, 35, -1, 35, -1, 124, 56, 35, -1,
++- 35, -1, 125, 56, 35, -1, 35, -1, 126, 56,
++- 35, -1, 38, 90, -1, 23, 90, -1, 37, 90,
++- -1, 52, -1, 133, -1, 129, 56, 133, -1, 134,
++- -1, 130, 56, 134, -1, 132, 35, 53, 35, 90,
++- 52, -1, 9, -1, 14, -1, 135, 90, -1, 136,
++- 90, -1, 136, 53, 171, 137, -1, 136, 53, 57,
++- 145, 58, 137, -1, 35, -1, 35, 59, 7, 60,
++- 7, 61, -1, -1, 138, -1, 139, -1, 138, 139,
++- -1, 5, 140, -1, 29, 140, -1, 54, 141, 60,
++- 142, 55, -1, 54, 141, 60, 142, 61, -1, 59,
++- 141, 60, 142, 55, -1, 59, 141, 60, 142, 61,
++- -1, 171, -1, 171, -1, 62, 28, -1, 171, -1,
++- 28, -1, 63, 28, -1, 16, 144, -1, 146, -1,
++- 147, -1, 171, -1, 145, 56, 171, -1, 90, 154,
++- -1, 157, -1, 169, 52, -1, 170, -1, 160, -1,
++- 162, -1, 161, -1, 12, 54, 145, 55, 52, -1,
++- 12, 54, 55, 52, -1, 12, 52, -1, 52, -1,
++- 151, -1, 148, 151, -1, 64, 54, 35, 54, 149,
++- 55, 55, -1, 64, 35, -1, 64, 54, 35, 55,
++- -1, 150, -1, 149, 56, 150, -1, 11, -1, 152,
++- 41, -1, 152, 60, 35, 41, -1, 152, 153, 41,
++- -1, 152, 60, 35, 153, 41, -1, 90, 32, -1,
++- 144, -1, 153, 144, -1, 38, 155, 52, -1, 23,
++- 155, 52, -1, 37, 155, 52, -1, 156, -1, 155,
++- 56, 156, -1, 35, -1, 35, 59, 7, 60, 7,
++- 61, -1, 158, 90, 52, -1, 159, 65, 63, 171,
++- -1, 35, 54, 35, 56, 35, 55, -1, 35, 54,
++- 35, 55, -1, 22, 54, 171, 55, 144, -1, 21,
++- 54, 169, 52, 171, 52, 169, 55, 144, -1, 25,
++- 54, 171, 55, 163, 27, -1, 164, -1, 163, 164,
++- -1, 172, 60, 144, -1, 45, 60, 144, -1, 45,
++- 144, -1, 166, 66, 54, 167, 55, 35, 54, 110,
++- 55, 52, -1, 35, -1, 168, -1, 167, 56, 168,
++- -1, 67, 35, 54, 171, 55, -1, 35, 53, 171,
++- -1, 91, 35, 53, 171, -1, 35, 59, 174, 61,
++- 53, 171, -1, 91, 35, 59, 174, 61, 53, 171,
++- -1, 15, 54, 171, 55, 144, -1, 15, 54, 171,
++- 55, 144, 4, 144, -1, 174, -1, 173, -1, 172,
++- 56, 173, -1, 174, -1, 175, -1, 176, -1, 176,
++- 68, 176, 60, 176, -1, 177, -1, 176, 44, 177,
++- -1, 176, 69, 70, 177, -1, 178, -1, 177, 70,
++- 178, -1, 179, -1, 178, 71, 179, -1, 180, -1,
++- 179, 72, 180, -1, 181, -1, 180, 13, 181, -1,
++- 182, -1, 181, 43, 182, -1, 183, -1, 182, 53,
++- 53, 183, -1, 182, 73, 53, 183, -1, 184, -1,
++- 183, 65, 184, -1, 183, 65, 53, 184, -1, 183,
++- 74, 184, -1, 183, 74, 53, 184, -1, 185, -1,
++- 184, 24, 185, -1, 184, 36, 185, -1, 186, -1,
++- 185, 63, 186, -1, 185, 62, 186, -1, 187, -1,
++- 186, 75, 187, -1, 186, 76, 187, -1, 186, 77,
++- 187, -1, 188, -1, 63, 188, -1, 62, 188, -1,
++- 73, 188, -1, 69, 188, -1, 38, -1, 38, 35,
++- -1, 7, -1, 7, 35, -1, 19, -1, 11, -1,
++- 35, -1, 12, -1, 35, 59, 174, 61, -1, 12,
++- 54, 172, 55, -1, 35, 54, 172, 55, -1, 54,
++- 174, 55, -1
++-};
++-
++-/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
++-static const yytype_uint16 yyrline[] =
++-{
++- 0, 287, 287, 292, 295, 300, 303, 306, 311, 318,
++- 325, 328, 333, 337, 341, 353, 364, 389, 392, 397,
++- 408, 442, 454, 481, 483, 488, 491, 499, 504, 507,
++- 512, 524, 523, 546, 548, 551, 554, 559, 562, 565,
++- 568, 571, 576, 579, 584, 594, 596, 601, 604, 609,
++- 619, 622, 627, 630, 636, 643, 646, 649, 652, 655,
++- 658, 661, 664, 669, 676, 683, 695, 699, 703, 709,
++- 712, 717, 720, 725, 743, 757, 762, 765, 770, 777,
++- 802, 825, 833, 839, 847, 855, 866, 869, 874, 877,
++- 880, 883, 886, 891, 898, 907, 914, 923, 931, 941,
++- 953, 967, 979, 993, 999, 1005, 1013, 1022, 1025, 1030,
++- 1033, 1038, 1054, 1057, 1062, 1073, 1084, 1091, 1103, 1112,
++- 1127, 1129, 1134, 1137, 1142, 1150, 1160, 1168, 1176, 1184,
++- 1192, 1202, 1206, 1219, 1223, 1234, 1247, 1253, 1257, 1263,
++- 1270, 1279, 1289, 1293, 1297, 1301, 1305, 1309, 1313, 1324,
++- 1332, 1340, 1347, 1351, 1359, 1363, 1376, 1391, 1394, 1399,
++- 1404, 1410, 1417, 1423, 1432, 1446, 1450, 1456, 1469, 1482,
++- 1497, 1500, 1505, 1511, 1522, 1532, 1544, 1561, 1586, 1595,
++- 1604, 1614, 1621, 1630, 1638, 1645, 1654, 1677, 1686, 1689,
++- 1694, 1714, 1729, 1750, 1767, 1792, 1800, 1811, 1820, 1827,
++- 1836, 1842, 1848, 1852, 1863, 1867, 1875, 1885, 1889, 1899,
++- 1903, 1913, 1917, 1927, 1931, 1941, 1945, 1955, 1959, 1967,
++- 1977, 1981, 1989, 1997, 2005, 2015, 2019, 2027, 2037, 2041,
++- 2049, 2059, 2063, 2071, 2079, 2089, 2093, 2100, 2107, 2114,
++- 2123, 2130, 2160, 2165, 2194, 2198, 2204, 2231, 2237, 2245,
++- 2254, 2306
++-};
++-#endif
++-
++-#if VERILOGADEBUG || YYERROR_VERBOSE || 0
++-/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
++- First, the terminals, then, starting at YYNTOKENS, nonterminals. */
++-static const char *const yytname[] =
++-{
++- "$end", "error", "$undefined", "PREC_IF_THEN", "tk_else", "tk_from",
++- "tk_branch", "tk_number", "tk_nature", "tk_aliasparameter", "tk_output",
++- "tk_anystring", "tk_dollar_ident", "tk_or", "tk_aliasparam", "tk_if",
++- "tk_analog", "tk_parameter", "tk_discipline", "tk_char", "tk_anytext",
++- "tk_for", "tk_while", "tk_real", "tk_op_shr", "tk_case", "tk_potential",
++- "tk_endcase", "tk_inf", "tk_exclude", "tk_ground", "tk_endmodule",
++- "tk_begin", "tk_enddiscipline", "tk_domain", "tk_ident", "tk_op_shl",
++- "tk_string", "tk_integer", "tk_module", "tk_endattribute", "tk_end",
++- "tk_inout", "tk_and", "tk_bitwise_equr", "tk_default", "tk_function",
++- "tk_input", "tk_beginattribute", "tk_endnature", "tk_endfunction",
++- "tk_flow", "';'", "'='", "'('", "')'", "','", "'{'", "'}'", "'['", "':'",
++- "']'", "'-'", "'+'", "'@'", "'<'", "'#'", "'.'", "'?'", "'~'", "'^'",
++- "'|'", "'&'", "'!'", "'>'", "'*'", "'/'", "'%'", "$accept",
++- "R_admsParse", "R_l.admsParse", "R_s.admsParse", "R_discipline_member",
++- "R_discipline_name", "R_l.discipline_assignment",
++- "R_s.discipline_assignment", "R_discipline.naturename",
++- "R_nature_member", "R_l.nature_assignment", "R_s.nature_assignment",
++- "R_d.attribute.0", "R_d.attribute", "R_l.attribute", "R_s.attribute",
++- "R_d.module", "$@1", "R_modulebody", "R_netlist", "R_l.instance",
++- "R_d.terminal", "R_l.terminal.0", "R_l.terminal", "R_s.terminal",
++- "R_l.declaration", "R_s.declaration.withattribute",
++- "R_d.attribute.global", "R_s.declaration", "R_d.node", "R_node.type",
++- "R_l.terminalnode", "R_l.node", "R_s.terminalnode", "R_s.node",
++- "R_d.branch", "R_l.branchalias", "R_s.branchalias", "R_s.branch",
++- "R_d.analogfunction", "R_d.analogfunction.proto",
++- "R_d.analogfunction.name", "R_l.analogfunction.declaration",
++- "R_s.analogfunction.declaration", "R_l.analogfunction.input.variable",
++- "R_l.analogfunction.output.variable",
++- "R_l.analogfunction.inout.variable",
++- "R_l.analogfunction.integer.variable",
++- "R_l.analogfunction.real.variable", "R_variable.type",
++- "R_d.variable.end", "R_l.parameter", "R_l.variable",
++- "R_d.aliasparameter", "R_d.aliasparameter.token", "R_s.parameter",
++- "R_s.variable", "R_s.parameter.name", "R_s.variable.name",
++- "R_s.parameter.range", "R_l.interval", "R_s.interval", "R_d.interval",
++- "R_interval.inf", "R_interval.sup", "R_analog", "R_analogcode",
++- "R_l.expression", "R_analogcode.atomic", "R_analogcode.block",
++- "R_analogcode.block.atevent", "R_l.analysis", "R_s.analysis",
++- "R_d.block", "R_d.block.begin", "R_l.blockitem", "R_d.blockvariable",
++- "R_l.blockvariable", "R_s.blockvariable", "R_d.contribution",
++- "R_contribution", "R_source", "R_d.while", "R_d.for", "R_d.case",
++- "R_l.case.item", "R_s.case.item", "R_s.instance",
++- "R_instance.module.name", "R_l.instance.parameter",
++- "R_s.instance.parameter", "R_s.assignment", "R_d.conditional",
++- "R_s.expression", "R_l.enode", "R_s.function_expression", "R_expression",
++- "R_e.conditional", "R_e.bitwise_equ", "R_e.bitwise_xor",
++- "R_e.bitwise_or", "R_e.bitwise_and", "R_e.logical_or", "R_e.logical_and",
++- "R_e.comp_equ", "R_e.comp", "R_e.bitwise_shift", "R_e.arithm_add",
++- "R_e.arithm_mult", "R_e.unary", "R_e.atomic", YY_NULL
++-};
++-#endif
++-
++-# ifdef YYPRINT
++-/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
++- token YYLEX-NUM. */
++-static const yytype_uint16 yytoknum[] =
++-{
++- 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
++- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
++- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
++- 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
++- 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
++- 305, 306, 59, 61, 40, 41, 44, 123, 125, 91,
++- 58, 93, 45, 43, 64, 60, 35, 46, 63, 126,
++- 94, 124, 38, 33, 62, 42, 47, 37
++-};
++-# endif
++-
++-/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
++-static const yytype_uint8 yyr1[] =
++-{
++- 0, 78, 79, 80, 80, 81, 81, 81, 82, 83,
++- 84, 84, 85, 85, 85, 86, 87, 88, 88, 89,
++- 89, 89, 89, 90, 90, 91, 91, 91, 92, 92,
++- 93, 95, 94, 96, 96, 96, 96, 97, 97, 97,
++- 97, 97, 98, 98, 99, 100, 100, 101, 101, 102,
++- 103, 103, 104, 104, 105, 106, 106, 106, 106, 106,
++- 106, 106, 106, 107, 107, 107, 108, 108, 108, 109,
++- 109, 110, 110, 111, 112, 113, 114, 114, 115, 116,
++- 116, 117, 118, 118, 118, 119, 120, 120, 121, 121,
++- 121, 121, 121, 122, 122, 123, 123, 124, 124, 125,
++- 125, 126, 126, 127, 127, 127, 128, 129, 129, 130,
++- 130, 131, 132, 132, 133, 134, 135, 135, 136, 136,
++- 137, 137, 138, 138, 139, 139, 140, 140, 140, 140,
++- 140, 141, 141, 142, 142, 142, 143, 144, 144, 145,
++- 145, 146, 146, 146, 146, 146, 146, 146, 146, 146,
++- 146, 146, 147, 147, 148, 148, 148, 149, 149, 150,
++- 151, 151, 151, 151, 152, 153, 153, 154, 154, 154,
++- 155, 155, 156, 156, 157, 158, 159, 159, 160, 161,
++- 162, 163, 163, 164, 164, 164, 165, 166, 167, 167,
++- 168, 169, 169, 169, 169, 170, 170, 171, 172, 172,
++- 173, 174, 175, 175, 176, 176, 176, 177, 177, 178,
++- 178, 179, 179, 180, 180, 181, 181, 182, 182, 182,
++- 183, 183, 183, 183, 183, 184, 184, 184, 185, 185,
++- 185, 186, 186, 186, 186, 187, 187, 187, 187, 187,
++- 188, 188, 188, 188, 188, 188, 188, 188, 188, 188,
++- 188, 188
++-};
++-
++-/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
++-static const yytype_uint8 yyr2[] =
++-{
++- 0, 2, 1, 1, 2, 1, 1, 1, 4, 1,
++- 1, 2, 3, 3, 3, 1, 4, 1, 2, 4,
++- 5, 4, 4, 0, 1, 3, 2, 2, 1, 2,
++- 3, 0, 7, 0, 1, 1, 2, 1, 1, 2,
++- 2, 3, 1, 2, 5, 0, 1, 1, 3, 1,
++- 1, 2, 1, 2, 1, 1, 1, 4, 3, 3,
++- 1, 1, 1, 3, 3, 3, 1, 1, 1, 1,
++- 3, 1, 3, 2, 2, 3, 1, 3, 1, 6,
++- 4, 4, 4, 5, 5, 1, 1, 2, 3, 3,
++- 3, 3, 3, 1, 3, 1, 3, 1, 3, 1,
++- 3, 1, 3, 2, 2, 2, 1, 1, 3, 1,
++- 3, 6, 1, 1, 2, 2, 4, 6, 1, 6,
++- 0, 1, 1, 2, 2, 2, 5, 5, 5, 5,
++- 1, 1, 2, 1, 1, 2, 2, 1, 1, 1,
++- 3, 2, 1, 2, 1, 1, 1, 1, 5, 4,
++- 2, 1, 1, 2, 7, 2, 4, 1, 3, 1,
++- 2, 4, 3, 5, 2, 1, 2, 3, 3, 3,
++- 1, 3, 1, 6, 3, 4, 6, 4, 5, 9,
++- 6, 1, 2, 3, 3, 2, 10, 1, 1, 3,
++- 5, 3, 4, 6, 7, 5, 7, 1, 1, 3,
++- 1, 1, 1, 5, 1, 3, 4, 1, 3, 1,
++- 3, 1, 3, 1, 3, 1, 3, 1, 4, 4,
++- 1, 3, 4, 3, 4, 1, 3, 3, 1, 3,
++- 3, 1, 3, 3, 3, 1, 2, 2, 2, 2,
++- 1, 2, 1, 2, 1, 1, 1, 1, 4, 4,
++- 4, 3
++-};
++-
++-/* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM.
++- Performed when YYTABLE doesn't specify something else to do. Zero
++- means the default is an error. */
++-static const yytype_uint8 yydefact[] =
++-{
++- 23, 0, 0, 0, 0, 2, 3, 6, 7, 0,
++- 24, 5, 0, 9, 0, 26, 0, 27, 0, 28,
++- 1, 4, 0, 0, 0, 17, 0, 0, 0, 0,
++- 10, 0, 25, 29, 31, 0, 16, 18, 15, 0,
++- 0, 0, 8, 11, 30, 0, 0, 0, 0, 12,
++- 14, 13, 45, 33, 0, 19, 21, 22, 49, 0,
++- 46, 47, 0, 112, 67, 113, 23, 0, 23, 0,
++- 187, 23, 23, 68, 66, 62, 54, 0, 35, 38,
++- 34, 50, 0, 52, 55, 0, 56, 61, 0, 0,
++- 60, 0, 37, 42, 0, 20, 23, 0, 0, 0,
++- 0, 0, 0, 0, 0, 0, 0, 151, 0, 0,
++- 24, 136, 137, 138, 23, 152, 23, 142, 23, 0,
++- 145, 147, 146, 0, 144, 118, 0, 0, 107, 23,
++- 0, 104, 23, 0, 71, 0, 105, 103, 32, 23,
++- 187, 39, 43, 36, 51, 0, 0, 53, 23, 0,
++- 69, 0, 0, 0, 0, 0, 23, 86, 0, 109,
++- 23, 0, 40, 0, 0, 48, 0, 75, 150, 0,
++- 0, 0, 0, 0, 0, 0, 0, 0, 85, 0,
++- 0, 155, 0, 0, 164, 0, 0, 141, 0, 0,
++- 153, 160, 0, 165, 23, 0, 0, 143, 0, 0,
++- 106, 0, 58, 114, 0, 74, 64, 0, 65, 41,
++- 73, 63, 0, 95, 0, 101, 0, 99, 0, 97,
++- 0, 93, 0, 87, 0, 0, 59, 115, 0, 0,
++- 44, 0, 0, 242, 245, 247, 244, 246, 240, 0,
++- 0, 0, 0, 0, 0, 0, 139, 197, 201, 202,
++- 204, 207, 209, 211, 213, 215, 217, 220, 225, 228,
++- 231, 235, 0, 0, 0, 0, 0, 0, 191, 0,
++- 0, 0, 0, 82, 0, 172, 0, 170, 0, 0,
++- 0, 0, 23, 162, 166, 174, 0, 0, 57, 108,
++- 0, 120, 72, 70, 89, 0, 92, 0, 91, 0,
++- 90, 0, 88, 0, 81, 110, 23, 0, 0, 188,
++- 78, 80, 76, 0, 243, 0, 0, 0, 241, 0,
++- 149, 237, 236, 239, 238, 0, 0, 0, 0, 0,
++- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
++- 0, 0, 0, 0, 0, 0, 23, 0, 23, 0,
++- 177, 0, 0, 84, 83, 0, 156, 0, 168, 0,
++- 169, 167, 192, 0, 161, 23, 175, 0, 0, 0,
++- 0, 116, 121, 122, 96, 102, 100, 98, 94, 0,
++- 0, 0, 0, 0, 0, 0, 198, 200, 0, 0,
++- 251, 148, 140, 205, 0, 0, 208, 210, 212, 214,
++- 216, 0, 0, 0, 221, 0, 223, 226, 227, 230,
++- 229, 232, 233, 234, 195, 0, 178, 23, 0, 181,
++- 0, 0, 0, 159, 0, 157, 0, 171, 0, 163,
++- 0, 120, 0, 0, 124, 130, 125, 123, 111, 0,
++- 0, 189, 77, 79, 249, 0, 250, 248, 0, 206,
++- 218, 219, 222, 224, 23, 0, 23, 185, 180, 182,
++- 23, 176, 193, 0, 0, 0, 0, 119, 117, 0,
++- 0, 131, 197, 0, 0, 0, 199, 203, 196, 0,
++- 184, 183, 154, 158, 0, 194, 132, 0, 0, 190,
++- 0, 23, 173, 134, 0, 0, 133, 0, 0, 179,
++- 135, 126, 127, 128, 129, 186
++-};
++-
++-/* YYDEFGOTO[NTERM-NUM]. */
++-static const yytype_int16 yydefgoto[] =
++-{
++- -1, 4, 5, 6, 7, 14, 29, 30, 39, 8,
++- 24, 25, 109, 10, 18, 19, 11, 45, 77, 78,
++- 79, 53, 59, 60, 61, 80, 81, 82, 83, 84,
++- 85, 149, 135, 150, 134, 86, 311, 312, 99, 87,
++- 88, 180, 156, 157, 222, 214, 220, 218, 216, 89,
++- 202, 127, 158, 90, 91, 128, 159, 129, 130, 371,
++- 372, 373, 434, 470, 495, 92, 111, 245, 112, 113,
++- 114, 424, 425, 115, 116, 194, 187, 276, 277, 117,
++- 118, 119, 120, 121, 122, 418, 419, 93, 94, 308,
++- 309, 123, 124, 246, 420, 386, 247, 248, 249, 250,
++- 251, 252, 253, 254, 255, 256, 257, 258, 259, 260,
++- 261
++-};
++-
++-/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
++- STATE-NUM. */
++-#define YYPACT_NINF -320
++-static const yytype_int16 yypact[] =
++-{
++- 26, 67, 120, 116, 47, 23, -320, -320, -320, 60,
++- -320, -320, 128, -320, 160, -320, 122, -320, 29, -320,
++- -320, -320, 137, 142, 61, -320, 164, 177, 164, 127,
++- -320, 204, -320, -320, -320, 18, -320, -320, -320, 205,
++- 212, 215, -320, -320, -320, 224, 0, 229, 234, -320,
++- -320, -320, 259, 544, 237, -320, -320, -320, -320, 245,
++- 241, -320, 292, -320, -320, -320, 100, 182, 260, 325,
++- 325, 260, 260, -320, -320, -320, -320, 317, -320, 69,
++- 544, -320, 584, -320, -320, 330, -320, -320, 85, 335,
++- -320, 338, 349, -320, 334, -320, 260, 259, 362, 358,
++- 169, 367, 370, 374, 377, 115, 233, -320, 63, 253,
++- 381, -320, -320, -320, 260, -320, 405, -320, 260, 369,
++- -320, -320, -320, 387, -320, 389, 335, 64, -320, 260,
++- 396, -320, 260, 166, -320, 184, -320, -320, -320, 514,
++- -320, 349, -320, -320, -320, 404, 325, -320, 260, 207,
++- -320, 419, 421, 423, 425, 427, 13, -320, 227, -320,
++- 260, 410, 349, 412, 418, -320, 192, -320, -320, 38,
++- 342, 114, 342, 342, 342, 436, 342, 441, -320, 441,
++- 428, -320, 446, 448, -320, 448, 448, -320, 81, 453,
++- -320, -320, 451, -320, 420, 438, 432, -320, 484, 64,
++- -320, 335, -320, -320, 119, -320, -320, 325, -320, 349,
++- -320, -320, 330, -320, 232, -320, 251, -320, 254, -320,
++- 257, -320, 262, -320, 447, 335, -320, -320, 461, 431,
++- -320, 464, 466, 468, -320, 455, -320, 155, 470, 342,
++- 454, 440, 440, 440, 440, 272, -320, -320, -320, -30,
++- 437, 439, 445, 500, 469, -27, 40, 34, 281, 162,
++- -320, -320, 463, 112, 381, 471, 472, 473, -320, 296,
++- 476, 478, 480, -320, 304, 474, 277, -320, 278, 286,
++- 342, 342, 452, -320, -320, -320, 342, 462, -320, -320,
++- 342, 25, -320, -320, -320, 490, -320, 503, -320, 505,
++- -320, 506, -320, 507, -320, -320, 260, 508, 307, -320,
++- -320, 488, -320, 491, -320, 342, 342, 342, -320, 493,
++- -320, -320, -320, -320, -320, 504, 342, 342, 342, 475,
++- 342, 342, 342, 342, 342, 502, 511, 172, 189, 342,
++- 342, 342, 342, 342, 342, 342, 514, 342, 514, 242,
++- -320, 517, 512, -320, -320, 546, -320, 561, -320, 448,
++- -320, -320, -320, 509, -320, 467, -320, 562, 279, 263,
++- 263, -320, 25, -320, -320, -320, -320, -320, -320, 519,
++- 518, 538, 431, 464, 464, 313, -320, -320, 331, 515,
++- -320, -320, -320, 437, 28, 342, 439, 445, 500, 469,
++- -27, 342, 342, 342, 34, 342, 34, 281, 281, 162,
++- 162, -320, -320, -320, 571, 525, -320, 499, 21, -320,
++- 77, 528, 342, -320, 333, -320, 520, -320, 531, -320,
++- 524, 25, 360, 360, -320, -320, -320, -320, -320, 342,
++- 533, -320, -320, 488, -320, 342, -320, -320, 342, 437,
++- 40, 40, 34, 34, 514, 114, 514, -320, -320, -320,
++- 514, -320, -320, 534, 546, 581, 342, -320, -320, 178,
++- 535, -320, 493, 537, 547, 325, -320, -1, -320, 548,
++- -320, -320, -320, -320, 543, -320, -320, 312, 312, -320,
++- 336, 514, -320, -320, 371, 132, -320, 143, 553, -320,
++- -320, -320, -320, -320, -320, -320
++-};
++-
++-/* YYPGOTO[NTERM-NUM]. */
++-static const yytype_int16 yypgoto[] =
++-{
++- -320, -320, -320, 594, -320, -320, -320, 577, 580, -320,
++- -320, 585, 10, -53, -320, 592, -320, -320, -320, 532,
++- -50, -320, -320, -320, 516, -320, 536, -320, 529, -320,
++- -320, -320, -67, 403, 411, -320, 236, 240, -320, -320,
++- -320, 51, -320, 477, -320, -320, -320, -320, -320, 550,
++- -134, 498, -320, -320, -320, 424, 402, -320, -78, 197,
++- -320, 258, 264, 196, 144, 556, -115, 347, -320, 482,
++- -320, -320, 175, 526, -320, 359, -320, 208, 283, -320,
++- -320, -320, -320, -320, -320, -320, 225, -59, -320, -320,
++- 265, -163, -320, -167, 97, 199, -172, -320, -319, -315,
++- 315, 318, 314, 319, 316, 17, -316, 104, 95, 12,
++- -225
++-};
++-
++-/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
++- positive, shift that token. If negative, reduce the rule which
++- number is the opposite. If YYTABLE_NINF, syntax error. */
++-#define YYTABLE_NINF -24
++-static const yytype_int16 yytable[] =
++-{
++- 76, 193, 133, 262, 270, 266, 267, 268, 265, 394,
++- 9, 160, 393, 110, 327, 9, 321, 322, 323, 324,
++- 142, 404, 406, 151, 226, 46, 335, 76, 233, 47,
++- 369, 1, 234, 235, 1, 54, 152, 291, 328, 329,
++- 236, 2, 162, 327, 2, 233, 336, 20, 458, 234,
++- 235, 153, 55, 48, 370, 154, 237, 236, 339, 238,
++- 155, 3, -23, 110, 16, 288, 417, 319, 329, 32,
++- 340, 3, 327, 237, 3, 239, 238, 108, 131, 284,
++- 449, 136, 137, 241, 242, 139, 110, 452, 448, 453,
++- 243, 209, 239, 240, 244, 151, 23, 329, 181, 22,
++- 241, 242, 12, 142, 140, 337, 164, 243, 152, 363,
++- 36, 244, 100, 362, 338, 101, 200, 182, 264, 366,
++- 201, 102, 103, 153, 189, 104, 233, 154, 195, 477,
++- 234, 235, 155, 445, 280, 105, 15, 460, 236, 203,
++- 281, 110, 205, 387, 387, 389, 106, 160, 3, 263,
++- 142, 16, 107, 26, 237, 13, 17, 238, 210, 392,
++- 42, 27, 3, 23, 108, 174, 189, 193, 174, 175,
++- 227, 176, 34, 239, 176, 31, 290, 387, 28, 233,
++- 415, 241, 242, 234, 235, 233, 26, 501, 243, 234,
++- 235, 236, 244, 502, 27, 35, 233, 236, 503, 38,
++- 234, 235, 435, 435, 504, 68, 486, 237, 236, 316,
++- 238, 28, 40, 237, 317, 44, 238, 125, 206, 71,
++- 72, 168, 207, 169, 237, 403, 239, 238, 271, 110,
++- 272, 414, 239, 416, 241, 242, 208, 343, 344, 345,
++- 207, 243, 405, 239, 321, 244, 387, 231, 232, 233,
++- 284, 241, 242, 234, 235, 462, 177, 49, 243, 211,
++- 472, 236, 244, 212, 50, 471, 471, 51, 178, 322,
++- 233, 179, 474, 387, 234, 235, 183, 237, 52, 200,
++- 238, 56, 236, 225, 294, 184, 57, 417, 295, 95,
++- 185, 186, 479, 110, 58, 110, 239, 97, 237, 485,
++- 96, 238, 457, 296, 241, 242, 298, 297, 3, 300,
++- 299, 243, 110, 301, 302, 244, 379, 432, 303, 233,
++- 496, 496, 433, 234, 235, 241, 242, 325, 326, 358,
++- 360, 236, 243, 359, 359, 326, 244, 431, 361, 478,
++- 493, 480, 359, 341, 342, 481, 98, 237, 138, 233,
++- 238, 350, 351, 234, 235, 411, 412, 413, 355, 356,
++- 132, 236, 381, 382, 110, 148, 239, 233, 444, 445,
++- 125, 234, 235, 161, 241, 494, 499, 237, 233, 236,
++- 238, 243, 234, 235, 140, 244, 446, 445, 463, 464,
++- 236, 498, 207, 278, 279, 237, 239, 166, 238, 500,
++- 163, 110, 264, 110, 241, 242, 237, 110, 490, 238,
++- 167, 243, 385, 388, 239, 244, 188, 100, 450, 451,
++- 101, 170, 469, 242, 171, 239, 102, 103, 172, 243,
++- 104, 173, 100, 244, 196, 101, 409, 410, 110, 197,
++- 105, 102, 103, 407, 408, 104, 191, 233, 198, 204,
++- 106, 234, 235, 3, 213, 105, 215, 107, 217, 236,
++- 219, 283, 221, 228, 100, 192, 229, 101, 3, 108,
++- 230, 269, 107, 102, 103, 237, 178, 104, 238, 100,
++- 273, 274, 101, 275, 108, 184, 282, 105, 102, 103,
++- 285, 287, 104, 364, 239, 286, 306, 304, 307, 310,
++- 3, 313, 105, 314, 107, 318, 320, 330, 429, 315,
++- 331, 100, 334, 333, 101, 3, 108, 332, 346, 107,
++- 102, 103, 367, 347, 104, 374, 100, 348, 349, 101,
++- 353, 108, 354, 357, 105, 102, 103, 352, 375, 104,
++- 376, 377, 378, 380, 383, 395, 384, 3, 390, 105,
++- 62, 107, 421, 63, 64, 401, 391, 423, 65, 456,
++- 66, 67, 3, 108, 402, 422, 107, 68, 426, 430,
++- 428, 438, 439, 440, 69, 454, 447, 455, 108, 70,
++- 465, 71, 72, 461, 466, 467, 73, 475, 484, 482,
++- 62, 74, 3, 63, 64, 487, 75, 488, 65, 21,
++- 145, 67, 489, 491, 492, 505, 43, 68, 41, 37,
++- 33, 147, 143, 165, 69, 293, 144, 126, 292, 146,
++- 443, 71, 72, 442, 199, 289, 73, 305, 468, 473,
++- 437, 74, 497, 223, 436, 141, 75, 368, 224, 483,
++- 190, 365, 427, 459, 476, 396, 398, 441, 0, 397,
++- 400, 0, 399
++-};
++-
++-#define yypact_value_is_default(Yystate) \
++- (!!((Yystate) == (-320)))
++-
++-#define yytable_value_is_error(Yytable_value) \
++- YYID (0)
++-
++-static const yytype_int16 yycheck[] =
++-{
++- 53, 116, 69, 170, 176, 172, 173, 174, 171, 328,
++- 0, 89, 327, 66, 44, 5, 241, 242, 243, 244,
++- 79, 337, 338, 10, 158, 7, 53, 80, 7, 11,
++- 5, 8, 11, 12, 8, 35, 23, 204, 68, 69,
++- 19, 18, 92, 44, 18, 7, 73, 0, 27, 11,
++- 12, 38, 52, 35, 29, 42, 35, 19, 24, 38,
++- 47, 48, 39, 116, 35, 199, 45, 239, 69, 40,
++- 36, 48, 44, 35, 48, 54, 38, 64, 68, 194,
++- 395, 71, 72, 62, 63, 16, 139, 403, 60, 405,
++- 69, 141, 54, 55, 73, 10, 35, 69, 35, 39,
++- 62, 63, 35, 162, 35, 65, 96, 69, 23, 281,
++- 49, 73, 12, 280, 74, 15, 52, 54, 171, 286,
++- 56, 21, 22, 38, 114, 25, 7, 42, 118, 448,
++- 11, 12, 47, 56, 53, 35, 20, 60, 19, 129,
++- 59, 194, 132, 315, 316, 317, 46, 225, 48, 35,
++- 209, 35, 52, 26, 35, 35, 40, 38, 148, 326,
++- 33, 34, 48, 35, 64, 53, 156, 282, 53, 54,
++- 160, 59, 35, 54, 59, 53, 57, 349, 51, 7,
++- 347, 62, 63, 11, 12, 7, 26, 55, 69, 11,
++- 12, 19, 73, 61, 34, 53, 7, 19, 55, 35,
++- 11, 12, 369, 370, 61, 23, 28, 35, 19, 54,
++- 38, 51, 35, 35, 59, 11, 38, 35, 52, 37,
++- 38, 52, 56, 54, 35, 53, 54, 38, 177, 282,
++- 179, 346, 54, 348, 62, 63, 52, 75, 76, 77,
++- 56, 69, 53, 54, 469, 73, 418, 55, 56, 7,
++- 365, 62, 63, 11, 12, 422, 23, 52, 69, 52,
++- 432, 19, 73, 56, 52, 432, 433, 52, 35, 494,
++- 7, 38, 439, 445, 11, 12, 23, 35, 54, 52,
++- 38, 52, 19, 56, 52, 32, 52, 45, 56, 52,
++- 37, 38, 455, 346, 35, 348, 54, 56, 35, 466,
++- 55, 38, 417, 52, 62, 63, 52, 56, 48, 52,
++- 56, 69, 365, 56, 52, 73, 306, 54, 56, 7,
++- 487, 488, 59, 11, 12, 62, 63, 55, 56, 52,
++- 52, 19, 69, 56, 56, 56, 73, 58, 52, 454,
++- 28, 456, 56, 62, 63, 460, 54, 35, 31, 7,
++- 38, 55, 56, 11, 12, 343, 344, 345, 54, 55,
++- 35, 19, 55, 56, 417, 35, 54, 7, 55, 56,
++- 35, 11, 12, 35, 62, 63, 491, 35, 7, 19,
++- 38, 69, 11, 12, 35, 73, 55, 56, 55, 56,
++- 19, 55, 56, 185, 186, 35, 54, 35, 38, 28,
++- 66, 454, 455, 456, 62, 63, 35, 460, 475, 38,
++- 52, 69, 315, 316, 54, 73, 35, 12, 401, 402,
++- 15, 54, 62, 63, 54, 54, 21, 22, 54, 69,
++- 25, 54, 12, 73, 65, 15, 341, 342, 491, 52,
++- 35, 21, 22, 339, 340, 25, 41, 7, 59, 53,
++- 46, 11, 12, 48, 35, 35, 35, 52, 35, 19,
++- 35, 41, 35, 53, 12, 60, 54, 15, 48, 64,
++- 52, 35, 52, 21, 22, 35, 35, 25, 38, 12,
++- 52, 35, 15, 35, 64, 32, 35, 35, 21, 22,
++- 52, 7, 25, 41, 54, 63, 35, 50, 67, 35,
++- 48, 35, 35, 35, 52, 35, 52, 70, 41, 54,
++- 71, 12, 43, 13, 15, 48, 64, 72, 55, 52,
++- 21, 22, 60, 52, 25, 35, 12, 55, 55, 15,
++- 52, 64, 52, 59, 35, 21, 22, 61, 35, 25,
++- 35, 35, 35, 35, 56, 70, 55, 48, 55, 35,
++- 6, 52, 35, 9, 10, 53, 52, 11, 14, 60,
++- 16, 17, 48, 64, 53, 53, 52, 23, 7, 7,
++- 61, 52, 54, 35, 30, 4, 61, 52, 64, 35,
++- 60, 37, 38, 55, 53, 61, 42, 54, 7, 55,
++- 6, 47, 48, 9, 10, 60, 52, 60, 14, 5,
++- 16, 17, 55, 55, 61, 52, 29, 23, 28, 24,
++- 18, 82, 80, 97, 30, 212, 80, 67, 207, 35,
++- 384, 37, 38, 383, 126, 201, 42, 225, 431, 433,
++- 372, 47, 488, 156, 370, 79, 52, 290, 156, 464,
++- 114, 282, 359, 418, 445, 330, 332, 382, -1, 331,
++- 334, -1, 333
++-};
++-
++-/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
++- symbol of state STATE-NUM. */
++-static const yytype_uint8 yystos[] =
++-{
++- 0, 8, 18, 48, 79, 80, 81, 82, 87, 90,
++- 91, 94, 35, 35, 83, 20, 35, 40, 92, 93,
++- 0, 81, 39, 35, 88, 89, 26, 34, 51, 84,
++- 85, 53, 40, 93, 35, 53, 49, 89, 35, 86,
++- 35, 86, 33, 85, 11, 95, 7, 11, 35, 52,
++- 52, 52, 54, 99, 35, 52, 52, 52, 35, 100,
++- 101, 102, 6, 9, 10, 14, 16, 17, 23, 30,
++- 35, 37, 38, 42, 47, 52, 91, 96, 97, 98,
++- 103, 104, 105, 106, 107, 108, 113, 117, 118, 127,
++- 131, 132, 143, 165, 166, 52, 55, 56, 54, 116,
++- 12, 15, 21, 22, 25, 35, 46, 52, 64, 90,
++- 91, 144, 146, 147, 148, 151, 152, 157, 158, 159,
++- 160, 161, 162, 169, 170, 35, 127, 129, 133, 135,
++- 136, 90, 35, 110, 112, 110, 90, 90, 31, 16,
++- 35, 143, 165, 97, 104, 16, 35, 106, 35, 109,
++- 111, 10, 23, 38, 42, 47, 120, 121, 130, 134,
++- 136, 35, 98, 66, 90, 102, 35, 52, 52, 54,
++- 54, 54, 54, 54, 53, 54, 59, 23, 35, 38,
++- 119, 35, 54, 23, 32, 37, 38, 154, 35, 90,
++- 151, 41, 60, 144, 153, 90, 65, 52, 59, 129,
++- 52, 56, 128, 90, 53, 90, 52, 56, 52, 98,
++- 90, 52, 56, 35, 123, 35, 126, 35, 125, 35,
++- 124, 35, 122, 121, 147, 56, 128, 90, 53, 54,
++- 52, 55, 56, 7, 11, 12, 19, 35, 38, 54,
++- 55, 62, 63, 69, 73, 145, 171, 174, 175, 176,
++- 177, 178, 179, 180, 181, 182, 183, 184, 185, 186,
++- 187, 188, 171, 35, 91, 169, 171, 171, 171, 35,
++- 174, 119, 119, 52, 35, 35, 155, 156, 155, 155,
++- 53, 59, 35, 41, 144, 52, 63, 7, 128, 133,
++- 57, 171, 112, 111, 52, 56, 52, 56, 52, 56,
++- 52, 56, 52, 56, 50, 134, 35, 67, 167, 168,
++- 35, 114, 115, 35, 35, 54, 54, 59, 35, 174,
++- 52, 188, 188, 188, 188, 55, 56, 44, 68, 69,
++- 70, 71, 72, 13, 43, 53, 73, 65, 74, 24,
++- 36, 62, 63, 75, 76, 77, 55, 52, 55, 55,
++- 55, 56, 61, 52, 52, 54, 55, 59, 52, 56,
++- 52, 52, 171, 174, 41, 153, 171, 60, 145, 5,
++- 29, 137, 138, 139, 35, 35, 35, 35, 35, 90,
++- 35, 55, 56, 56, 55, 172, 173, 174, 172, 174,
++- 55, 52, 171, 177, 176, 70, 178, 179, 180, 181,
++- 182, 53, 53, 53, 184, 53, 184, 185, 185, 186,
++- 186, 187, 187, 187, 144, 171, 144, 45, 163, 164,
++- 172, 35, 53, 11, 149, 150, 7, 156, 61, 41,
++- 7, 58, 54, 59, 140, 171, 140, 139, 52, 54,
++- 35, 168, 115, 114, 55, 56, 55, 61, 60, 177,
++- 183, 183, 184, 184, 4, 52, 60, 144, 27, 164,
++- 60, 55, 171, 55, 56, 60, 53, 61, 137, 62,
++- 141, 171, 174, 141, 171, 54, 173, 176, 144, 169,
++- 144, 144, 55, 150, 7, 171, 28, 60, 60, 55,
++- 110, 55, 61, 28, 63, 142, 171, 142, 55, 144,
++- 28, 55, 61, 55, 61, 52
++-};
++-
++-#define yyerrok (yyerrstatus = 0)
++-#define yyclearin (yychar = YYEMPTY)
++-#define YYEMPTY (-2)
++-#define YYEOF 0
++-
++-#define YYACCEPT goto yyacceptlab
++-#define YYABORT goto yyabortlab
++-#define YYERROR goto yyerrorlab
++-
++-
++-/* Like YYERROR except do call yyerror. This remains here temporarily
++- to ease the transition to the new meaning of YYERROR, for GCC.
++- Once GCC version 2 has supplanted version 1, this can go. However,
++- YYFAIL appears to be in use. Nevertheless, it is formally deprecated
++- in Bison 2.4.2's NEWS entry, where a plan to phase it out is
++- discussed. */
++-
++-#define YYFAIL goto yyerrlab
++-#if defined YYFAIL
++- /* This is here to suppress warnings from the GCC cpp's
++- -Wunused-macros. Normally we don't worry about that warning, but
++- some users do, and we want to make it easy for users to remove
++- YYFAIL uses, which will produce warnings from Bison 2.5. */
++-#endif
++-
++-#define YYRECOVERING() (!!yyerrstatus)
++-
++-#define YYBACKUP(Token, Value) \
++-do \
++- if (yychar == YYEMPTY) \
++- { \
++- yychar = (Token); \
++- yylval = (Value); \
++- YYPOPSTACK (yylen); \
++- yystate = *yyssp; \
++- goto yybackup; \
++- } \
++- else \
++- { \
++- yyerror (YY_("syntax error: cannot back up")); \
++- YYERROR; \
++- } \
++-while (YYID (0))
++-
++-/* Error token number */
++-#define YYTERROR 1
++-#define YYERRCODE 256
++-
++-
++-/* This macro is provided for backward compatibility. */
++-#ifndef YY_LOCATION_PRINT
++-# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
++-#endif
++-
++-
++-/* YYLEX -- calling `yylex' with the right arguments. */
++-#ifdef YYLEX_PARAM
++-# define YYLEX yylex (YYLEX_PARAM)
++-#else
++-# define YYLEX yylex ()
++-#endif
++-
++-/* Enable debugging if requested. */
++-#if VERILOGADEBUG
++-
++-# ifndef YYFPRINTF
++-# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
++-# define YYFPRINTF fprintf
++-# endif
++-
++-# define YYDPRINTF(Args) \
++-do { \
++- if (yydebug) \
++- YYFPRINTF Args; \
++-} while (YYID (0))
++-
++-# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
++-do { \
++- if (yydebug) \
++- { \
++- YYFPRINTF (stderr, "%s ", Title); \
++- yy_symbol_print (stderr, \
++- Type, Value); \
++- YYFPRINTF (stderr, "\n"); \
++- } \
++-} while (YYID (0))
++-
++-
++-/*--------------------------------.
++-| Print this symbol on YYOUTPUT. |
++-`--------------------------------*/
++-
++-/*ARGSUSED*/
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
++-#else
++-static void
++-yy_symbol_value_print (yyoutput, yytype, yyvaluep)
++- FILE *yyoutput;
++- int yytype;
++- YYSTYPE const * const yyvaluep;
++-#endif
++-{
++- FILE *yyo = yyoutput;
++- YYUSE (yyo);
++- if (!yyvaluep)
++- return;
++-# ifdef YYPRINT
++- if (yytype < YYNTOKENS)
++- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
++-# else
++- YYUSE (yyoutput);
++-# endif
++- YYUSE (yytype);
++-}
++-
++-
++-/*--------------------------------.
++-| Print this symbol on YYOUTPUT. |
++-`--------------------------------*/
++-
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
++-#else
++-static void
++-yy_symbol_print (yyoutput, yytype, yyvaluep)
++- FILE *yyoutput;
++- int yytype;
++- YYSTYPE const * const yyvaluep;
++-#endif
++-{
++- if (yytype < YYNTOKENS)
++- YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
++- else
++- YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
++-
++- yy_symbol_value_print (yyoutput, yytype, yyvaluep);
++- YYFPRINTF (yyoutput, ")");
++-}
++-
++-/*------------------------------------------------------------------.
++-| yy_stack_print -- Print the state stack from its BOTTOM up to its |
++-| TOP (included). |
++-`------------------------------------------------------------------*/
++-
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
++-#else
++-static void
++-yy_stack_print (yybottom, yytop)
++- yytype_int16 *yybottom;
++- yytype_int16 *yytop;
++-#endif
++-{
++- YYFPRINTF (stderr, "Stack now");
++- for (; yybottom <= yytop; yybottom++)
++- {
++- int yybot = *yybottom;
++- YYFPRINTF (stderr, " %d", yybot);
++- }
++- YYFPRINTF (stderr, "\n");
++-}
++-
++-# define YY_STACK_PRINT(Bottom, Top) \
++-do { \
++- if (yydebug) \
++- yy_stack_print ((Bottom), (Top)); \
++-} while (YYID (0))
++-
++-
++-/*------------------------------------------------.
++-| Report that the YYRULE is going to be reduced. |
++-`------------------------------------------------*/
++-
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
++-#else
++-static void
++-yy_reduce_print (yyvsp, yyrule)
++- YYSTYPE *yyvsp;
++- int yyrule;
++-#endif
++-{
++- int yynrhs = yyr2[yyrule];
++- int yyi;
++- unsigned long int yylno = yyrline[yyrule];
++- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
++- yyrule - 1, yylno);
++- /* The symbols being reduced. */
++- for (yyi = 0; yyi < yynrhs; yyi++)
++- {
++- YYFPRINTF (stderr, " $%d = ", yyi + 1);
++- yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
++- &(yyvsp[(yyi + 1) - (yynrhs)])
++- );
++- YYFPRINTF (stderr, "\n");
++- }
++-}
++-
++-# define YY_REDUCE_PRINT(Rule) \
++-do { \
++- if (yydebug) \
++- yy_reduce_print (yyvsp, Rule); \
++-} while (YYID (0))
++-
++-/* Nonzero means print parse trace. It is left uninitialized so that
++- multiple parsers can coexist. */
++-int yydebug;
++-#else /* !VERILOGADEBUG */
++-# define YYDPRINTF(Args)
++-# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
++-# define YY_STACK_PRINT(Bottom, Top)
++-# define YY_REDUCE_PRINT(Rule)
++-#endif /* !VERILOGADEBUG */
++-
++-
++-/* YYINITDEPTH -- initial size of the parser's stacks. */
++-#ifndef YYINITDEPTH
++-# define YYINITDEPTH 200
++-#endif
++-
++-/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
++- if the built-in stack extension method is used).
++-
++- Do not make this value too large; the results are undefined if
++- YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
++- evaluated with infinite-precision integer arithmetic. */
++-
++-#ifndef YYMAXDEPTH
++-# define YYMAXDEPTH 10000
++-#endif
++-
++-
++-#if YYERROR_VERBOSE
++-
++-# ifndef yystrlen
++-# if defined __GLIBC__ && defined _STRING_H
++-# define yystrlen strlen
++-# else
++-/* Return the length of YYSTR. */
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static YYSIZE_T
++-yystrlen (const char *yystr)
++-#else
++-static YYSIZE_T
++-yystrlen (yystr)
++- const char *yystr;
++-#endif
++-{
++- YYSIZE_T yylen;
++- for (yylen = 0; yystr[yylen]; yylen++)
++- continue;
++- return yylen;
++-}
++-# endif
++-# endif
++-
++-# ifndef yystpcpy
++-# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
++-# define yystpcpy stpcpy
++-# else
++-/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
++- YYDEST. */
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static char *
++-yystpcpy (char *yydest, const char *yysrc)
++-#else
++-static char *
++-yystpcpy (yydest, yysrc)
++- char *yydest;
++- const char *yysrc;
++-#endif
++-{
++- char *yyd = yydest;
++- const char *yys = yysrc;
++-
++- while ((*yyd++ = *yys++) != '\0')
++- continue;
++-
++- return yyd - 1;
++-}
++-# endif
++-# endif
++-
++-# ifndef yytnamerr
++-/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
++- quotes and backslashes, so that it's suitable for yyerror. The
++- heuristic is that double-quoting is unnecessary unless the string
++- contains an apostrophe, a comma, or backslash (other than
++- backslash-backslash). YYSTR is taken from yytname. If YYRES is
++- null, do not copy; instead, return the length of what the result
++- would have been. */
++-static YYSIZE_T
++-yytnamerr (char *yyres, const char *yystr)
++-{
++- if (*yystr == '"')
++- {
++- YYSIZE_T yyn = 0;
++- char const *yyp = yystr;
++-
++- for (;;)
++- switch (*++yyp)
++- {
++- case '\'':
++- case ',':
++- goto do_not_strip_quotes;
++-
++- case '\\':
++- if (*++yyp != '\\')
++- goto do_not_strip_quotes;
++- /* Fall through. */
++- default:
++- if (yyres)
++- yyres[yyn] = *yyp;
++- yyn++;
++- break;
++-
++- case '"':
++- if (yyres)
++- yyres[yyn] = '\0';
++- return yyn;
++- }
++- do_not_strip_quotes: ;
++- }
++-
++- if (! yyres)
++- return yystrlen (yystr);
++-
++- return yystpcpy (yyres, yystr) - yyres;
++-}
++-# endif
++-
++-/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
++- about the unexpected token YYTOKEN for the state stack whose top is
++- YYSSP.
++-
++- Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
++- not large enough to hold the message. In that case, also set
++- *YYMSG_ALLOC to the required number of bytes. Return 2 if the
++- required number of bytes is too large to store. */
++-static int
++-yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
++- yytype_int16 *yyssp, int yytoken)
++-{
++- YYSIZE_T yysize0 = yytnamerr (YY_NULL, yytname[yytoken]);
++- YYSIZE_T yysize = yysize0;
++- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
++- /* Internationalized format string. */
++- const char *yyformat = YY_NULL;
++- /* Arguments of yyformat. */
++- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
++- /* Number of reported tokens (one for the "unexpected", one per
++- "expected"). */
++- int yycount = 0;
++-
++- /* There are many possibilities here to consider:
++- - Assume YYFAIL is not used. It's too flawed to consider. See
++- <http://lists.gnu.org/archive/html/bison-patches/2009-12/msg00024.html>
++- for details. YYERROR is fine as it does not invoke this
++- function.
++- - If this state is a consistent state with a default action, then
++- the only way this function was invoked is if the default action
++- is an error action. In that case, don't check for expected
++- tokens because there are none.
++- - The only way there can be no lookahead present (in yychar) is if
++- this state is a consistent state with a default action. Thus,
++- detecting the absence of a lookahead is sufficient to determine
++- that there is no unexpected or expected token to report. In that
++- case, just report a simple "syntax error".
++- - Don't assume there isn't a lookahead just because this state is a
++- consistent state with a default action. There might have been a
++- previous inconsistent state, consistent state with a non-default
++- action, or user semantic action that manipulated yychar.
++- - Of course, the expected token list depends on states to have
++- correct lookahead information, and it depends on the parser not
++- to perform extra reductions after fetching a lookahead from the
++- scanner and before detecting a syntax error. Thus, state merging
++- (from LALR or IELR) and default reductions corrupt the expected
++- token list. However, the list is correct for canonical LR with
++- one exception: it will still contain any token that will not be
++- accepted due to an error action in a later state.
++- */
++- if (yytoken != YYEMPTY)
++- {
++- int yyn = yypact[*yyssp];
++- yyarg[yycount++] = yytname[yytoken];
++- if (!yypact_value_is_default (yyn))
++- {
++- /* Start YYX at -YYN if negative to avoid negative indexes in
++- YYCHECK. In other words, skip the first -YYN actions for
++- this state because they are default actions. */
++- int yyxbegin = yyn < 0 ? -yyn : 0;
++- /* Stay within bounds of both yycheck and yytname. */
++- int yychecklim = YYLAST - yyn + 1;
++- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
++- int yyx;
++-
++- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
++- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
++- && !yytable_value_is_error (yytable[yyx + yyn]))
++- {
++- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
++- {
++- yycount = 1;
++- yysize = yysize0;
++- break;
++- }
++- yyarg[yycount++] = yytname[yyx];
++- {
++- YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULL, yytname[yyx]);
++- if (! (yysize <= yysize1
++- && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
++- return 2;
++- yysize = yysize1;
++- }
++- }
++- }
++- }
++-
++- switch (yycount)
++- {
++-# define YYCASE_(N, S) \
++- case N: \
++- yyformat = S; \
++- break
++- YYCASE_(0, YY_("syntax error"));
++- YYCASE_(1, YY_("syntax error, unexpected %s"));
++- YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
++- YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
++- YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
++- YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
++-# undef YYCASE_
++- }
++-
++- {
++- YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
++- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
++- return 2;
++- yysize = yysize1;
++- }
++-
++- if (*yymsg_alloc < yysize)
++- {
++- *yymsg_alloc = 2 * yysize;
++- if (! (yysize <= *yymsg_alloc
++- && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
++- *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
++- return 1;
++- }
++-
++- /* Avoid sprintf, as that infringes on the user's name space.
++- Don't have undefined behavior even if the translation
++- produced a string with the wrong number of "%s"s. */
++- {
++- char *yyp = *yymsg;
++- int yyi = 0;
++- while ((*yyp = *yyformat) != '\0')
++- if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
++- {
++- yyp += yytnamerr (yyp, yyarg[yyi++]);
++- yyformat += 2;
++- }
++- else
++- {
++- yyp++;
++- yyformat++;
++- }
++- }
++- return 0;
++-}
++-#endif /* YYERROR_VERBOSE */
++-
++-/*-----------------------------------------------.
++-| Release the memory associated to this symbol. |
++-`-----------------------------------------------*/
++-
++-/*ARGSUSED*/
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-static void
++-yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
++-#else
++-static void
++-yydestruct (yymsg, yytype, yyvaluep)
++- const char *yymsg;
++- int yytype;
++- YYSTYPE *yyvaluep;
++-#endif
++-{
++- YYUSE (yyvaluep);
++-
++- if (!yymsg)
++- yymsg = "Deleting";
++- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
++-
++- YYUSE (yytype);
++-}
++-
++-
++-
++-
++-/* The lookahead symbol. */
++-int yychar;
++-
++-
++-#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++-# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++-# define YY_IGNORE_MAYBE_UNINITIALIZED_END
++-#endif
++-#ifndef YY_INITIAL_VALUE
++-# define YY_INITIAL_VALUE(Value) /* Nothing. */
++-#endif
++-
++-/* The semantic value of the lookahead symbol. */
++-YYSTYPE yylval YY_INITIAL_VALUE(yyval_default);
++-
++-/* Number of syntax errors so far. */
++-int yynerrs;
++-
++-
++-/*----------.
++-| yyparse. |
++-`----------*/
++-
++-#ifdef YYPARSE_PARAM
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-int
++-yyparse (void *YYPARSE_PARAM)
++-#else
++-int
++-yyparse (YYPARSE_PARAM)
++- void *YYPARSE_PARAM;
++-#endif
++-#else /* ! YYPARSE_PARAM */
++-#if (defined __STDC__ || defined __C99__FUNC__ \
++- || defined __cplusplus || defined _MSC_VER)
++-int
++-yyparse (void)
++-#else
++-int
++-yyparse ()
++-
++-#endif
++-#endif
++-{
++- int yystate;
++- /* Number of tokens to shift before error messages enabled. */
++- int yyerrstatus;
++-
++- /* The stacks and their tools:
++- `yyss': related to states.
++- `yyvs': related to semantic values.
++-
++- Refer to the stacks through separate pointers, to allow yyoverflow
++- to reallocate them elsewhere. */
++-
++- /* The state stack. */
++- yytype_int16 yyssa[YYINITDEPTH];
++- yytype_int16 *yyss;
++- yytype_int16 *yyssp;
++-
++- /* The semantic value stack. */
++- YYSTYPE yyvsa[YYINITDEPTH];
++- YYSTYPE *yyvs;
++- YYSTYPE *yyvsp;
++-
++- YYSIZE_T yystacksize;
++-
++- int yyn;
++- int yyresult;
++- /* Lookahead token as an internal (translated) token number. */
++- int yytoken = 0;
++- /* The variables used to return semantic value and location from the
++- action routines. */
++- YYSTYPE yyval;
++-
++-#if YYERROR_VERBOSE
++- /* Buffer for error messages, and its allocated size. */
++- char yymsgbuf[128];
++- char *yymsg = yymsgbuf;
++- YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
++-#endif
++-
++-#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
++-
++- /* The number of symbols on the RHS of the reduced rule.
++- Keep to zero when no symbol should be popped. */
++- int yylen = 0;
++-
++- yyssp = yyss = yyssa;
++- yyvsp = yyvs = yyvsa;
++- yystacksize = YYINITDEPTH;
++-
++- YYDPRINTF ((stderr, "Starting parse\n"));
++-
++- yystate = 0;
++- yyerrstatus = 0;
++- yynerrs = 0;
++- yychar = YYEMPTY; /* Cause a token to be read. */
++- goto yysetstate;
++-
++-/*------------------------------------------------------------.
++-| yynewstate -- Push a new state, which is found in yystate. |
++-`------------------------------------------------------------*/
++- yynewstate:
++- /* In all cases, when you get here, the value and location stacks
++- have just been pushed. So pushing a state here evens the stacks. */
++- yyssp++;
++-
++- yysetstate:
++- *yyssp = yystate;
++-
++- if (yyss + yystacksize - 1 <= yyssp)
++- {
++- /* Get the current used size of the three stacks, in elements. */
++- YYSIZE_T yysize = yyssp - yyss + 1;
++-
++-#ifdef yyoverflow
++- {
++- /* Give user a chance to reallocate the stack. Use copies of
++- these so that the &'s don't force the real ones into
++- memory. */
++- YYSTYPE *yyvs1 = yyvs;
++- yytype_int16 *yyss1 = yyss;
++-
++- /* Each stack pointer address is followed by the size of the
++- data in use in that stack, in bytes. This used to be a
++- conditional around just the two extra args, but that might
++- be undefined if yyoverflow is a macro. */
++- yyoverflow (YY_("memory exhausted"),
++- &yyss1, yysize * sizeof (*yyssp),
++- &yyvs1, yysize * sizeof (*yyvsp),
++- &yystacksize);
++-
++- yyss = yyss1;
++- yyvs = yyvs1;
++- }
++-#else /* no yyoverflow */
++-# ifndef YYSTACK_RELOCATE
++- goto yyexhaustedlab;
++-# else
++- /* Extend the stack our own way. */
++- if (YYMAXDEPTH <= yystacksize)
++- goto yyexhaustedlab;
++- yystacksize *= 2;
++- if (YYMAXDEPTH < yystacksize)
++- yystacksize = YYMAXDEPTH;
++-
++- {
++- yytype_int16 *yyss1 = yyss;
++- union yyalloc *yyptr =
++- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
++- if (! yyptr)
++- goto yyexhaustedlab;
++- YYSTACK_RELOCATE (yyss_alloc, yyss);
++- YYSTACK_RELOCATE (yyvs_alloc, yyvs);
++-# undef YYSTACK_RELOCATE
++- if (yyss1 != yyssa)
++- YYSTACK_FREE (yyss1);
++- }
++-# endif
++-#endif /* no yyoverflow */
++-
++- yyssp = yyss + yysize - 1;
++- yyvsp = yyvs + yysize - 1;
++-
++- YYDPRINTF ((stderr, "Stack size increased to %lu\n",
++- (unsigned long int) yystacksize));
++-
++- if (yyss + yystacksize - 1 <= yyssp)
++- YYABORT;
++- }
++-
++- YYDPRINTF ((stderr, "Entering state %d\n", yystate));
++-
++- if (yystate == YYFINAL)
++- YYACCEPT;
++-
++- goto yybackup;
++-
++-/*-----------.
++-| yybackup. |
++-`-----------*/
++-yybackup:
++-
++- /* Do appropriate processing given the current state. Read a
++- lookahead token if we need one and don't already have one. */
++-
++- /* First try to decide what to do without reference to lookahead token. */
++- yyn = yypact[yystate];
++- if (yypact_value_is_default (yyn))
++- goto yydefault;
++-
++- /* Not known => get a lookahead token if don't already have one. */
++-
++- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
++- if (yychar == YYEMPTY)
++- {
++- YYDPRINTF ((stderr, "Reading a token: "));
++- yychar = YYLEX;
++- }
++-
++- if (yychar <= YYEOF)
++- {
++- yychar = yytoken = YYEOF;
++- YYDPRINTF ((stderr, "Now at end of input.\n"));
++- }
++- else
++- {
++- yytoken = YYTRANSLATE (yychar);
++- YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
++- }
++-
++- /* If the proper action on seeing token YYTOKEN is to reduce or to
++- detect an error, take that action. */
++- yyn += yytoken;
++- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
++- goto yydefault;
++- yyn = yytable[yyn];
++- if (yyn <= 0)
++- {
++- if (yytable_value_is_error (yyn))
++- goto yyerrlab;
++- yyn = -yyn;
++- goto yyreduce;
++- }
++-
++- /* Count tokens shifted since error; after three, turn off error
++- status. */
++- if (yyerrstatus)
++- yyerrstatus--;
++-
++- /* Shift the lookahead token. */
++- YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
++-
++- /* Discard the shifted token. */
++- yychar = YYEMPTY;
++-
++- yystate = yyn;
++- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++- *++yyvsp = yylval;
++- YY_IGNORE_MAYBE_UNINITIALIZED_END
++-
++- goto yynewstate;
++-
++-
++-/*-----------------------------------------------------------.
++-| yydefault -- do the default action for the current state. |
++-`-----------------------------------------------------------*/
++-yydefault:
++- yyn = yydefact[yystate];
++- if (yyn == 0)
++- goto yyerrlab;
++- goto yyreduce;
++-
++-
++-/*-----------------------------.
++-| yyreduce -- Do a reduction. |
++-`-----------------------------*/
++-yyreduce:
++- /* yyn is the number of a rule to reduce with. */
++- yylen = yyr2[yyn];
++-
++- /* If YYLEN is nonzero, implement the default value of the action:
++- `$$ = $1'.
++-
++- Otherwise, the following line sets YYVAL to garbage.
++- This behavior is undocumented and Bison
++- users should not rely upon it. Assigning to YYVAL
++- unconditionally makes the parser a bit smaller, and it avoids a
++- GCC warning that YYVAL may be used uninitialized. */
++- yyval = yyvsp[1-yylen];
++-
++-
++- YY_REDUCE_PRINT (yyn);
++- switch (yyn)
++- {
++- case 2:
++-/* Line 1802 of yacc.c */
++-#line 288 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 3:
++-/* Line 1802 of yacc.c */
++-#line 293 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 4:
++-/* Line 1802 of yacc.c */
++-#line 296 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 5:
++-/* Line 1802 of yacc.c */
++-#line 301 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 6:
++-/* Line 1802 of yacc.c */
++-#line 304 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 7:
++-/* Line 1802 of yacc.c */
++-#line 307 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 8:
++-/* Line 1802 of yacc.c */
++-#line 312 "verilogaYacc.y"
++- {
++- adms_admsmain_list_discipline_prepend_once_or_abort(root(),gDiscipline);
++- gDiscipline=NULL;
++- }
++- break;
++-
++- case 9:
++-/* Line 1802 of yacc.c */
++-#line 319 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- gDiscipline=adms_discipline_new(mylexval1);
++- }
++- break;
++-
++- case 10:
++-/* Line 1802 of yacc.c */
++-#line 326 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 11:
++-/* Line 1802 of yacc.c */
++-#line 329 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 12:
++-/* Line 1802 of yacc.c */
++-#line 334 "verilogaYacc.y"
++- {
++- gDiscipline->_potential=(p_nature)YY((yyvsp[(2) - (3)]._yaccval));
++- }
++- break;
++-
++- case 13:
++-/* Line 1802 of yacc.c */
++-#line 338 "verilogaYacc.y"
++- {
++- gDiscipline->_flow=(p_nature)YY((yyvsp[(2) - (3)]._yaccval));
++- }
++- break;
++-
++- case 14:
++-/* Line 1802 of yacc.c */
++-#line 342 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (3)]._lexval))->_string;
++- if(!strcmp(mylexval2,"discrete"))
++- gDiscipline->_domain=admse_discrete;
++- else if(!strcmp(mylexval2,"continuous"))
++- gDiscipline->_domain=admse_continuous;
++- else
++- adms_veriloga_message_fatal("domain: bad value given - should be either 'discrete' or 'continuous'\n",(yyvsp[(2) - (3)]._lexval));
++- }
++- break;
++-
++- case 15:
++-/* Line 1802 of yacc.c */
++-#line 354 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- p_nature mynature=lookup_nature(mylexval1);
++- if(!mynature)
++- adms_veriloga_message_fatal("can't find nature definition\n",(yyvsp[(1) - (1)]._lexval));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mynature);
++- }
++- break;
++-
++- case 16:
++-/* Line 1802 of yacc.c */
++-#line 365 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (4)]._lexval))->_string;
++- p_nature mynature=NULL;
++- if(gNatureAccess)
++- mynature=adms_admsmain_list_nature_prepend_by_id_once_or_abort(root(),gNatureAccess);
++- else
++- adms_veriloga_message_fatal("attribute 'access' in nature definition not found\n",(yyvsp[(2) - (4)]._lexval));
++- adms_nature_valueto_name(mynature,mylexval2);
++- if(gNatureidt)
++- adms_nature_valueto_idt_name(mynature,gNatureidt);
++- if(gNatureddt)
++- adms_nature_valueto_ddt_name(mynature,gNatureddt);
++- if(gNatureUnits)
++- mynature->_units=gNatureUnits;
++- if(gNatureAbsTol)
++- mynature->_abstol=gNatureAbsTol;
++- gNatureAccess=NULL;
++- gNatureAbsTol=NULL;
++- gNatureUnits=NULL;
++- gNatureidt=NULL;
++- gNatureddt=NULL;
++- }
++- break;
++-
++- case 17:
++-/* Line 1802 of yacc.c */
++-#line 390 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 18:
++-/* Line 1802 of yacc.c */
++-#line 393 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 19:
++-/* Line 1802 of yacc.c */
++-#line 398 "verilogaYacc.y"
++- {
++- if(!strcmp((yyvsp[(1) - (4)]._lexval)->_string,"abstol"))
++- {
++- if(gNatureAbsTol)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",(yyvsp[(1) - (4)]._lexval));
++- gNatureAbsTol=adms_number_new((yyvsp[(3) - (4)]._lexval));
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",(yyvsp[(1) - (4)]._lexval));
++- }
++- break;
++-
++- case 20:
++-/* Line 1802 of yacc.c */
++-#line 409 "verilogaYacc.y"
++- {
++- char* mylexval4=((p_lexval)(yyvsp[(4) - (5)]._lexval))->_string;
++- admse myunit=admse_1;
++- if(!strcmp((yyvsp[(1) - (5)]._lexval)->_string,"abstol"))
++- {
++- if(gNatureAbsTol)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",(yyvsp[(1) - (5)]._lexval));
++- gNatureAbsTol=adms_number_new((yyvsp[(3) - (5)]._lexval));
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",(yyvsp[(1) - (5)]._lexval));
++- if(0) {}
++- else if(!strcmp(mylexval4,"E")) myunit=admse_E;
++- else if(!strcmp(mylexval4,"P")) myunit=admse_P;
++- else if(!strcmp(mylexval4,"T")) myunit=admse_T;
++- else if(!strcmp(mylexval4,"G")) myunit=admse_G;
++- else if(!strcmp(mylexval4,"M")) myunit=admse_M;
++- else if(!strcmp(mylexval4,"k")) myunit=admse_k;
++- else if(!strcmp(mylexval4,"h")) myunit=admse_h;
++- else if(!strcmp(mylexval4,"D")) myunit=admse_D;
++- else if(!strcmp(mylexval4,"d")) myunit=admse_d;
++- else if(!strcmp(mylexval4,"c")) myunit=admse_c;
++- else if(!strcmp(mylexval4,"m")) myunit=admse_m;
++- else if(!strcmp(mylexval4,"u")) myunit=admse_u;
++- else if(!strcmp(mylexval4,"n")) myunit=admse_n;
++- else if(!strcmp(mylexval4,"A")) myunit=admse_A;
++- else if(!strcmp(mylexval4,"p")) myunit=admse_p;
++- else if(!strcmp(mylexval4,"f")) myunit=admse_f;
++- else if(!strcmp(mylexval4,"a")) myunit=admse_a;
++- else
++- adms_veriloga_message_fatal("can not convert symbol to valid unit\n",(yyvsp[(4) - (5)]._lexval));
++- gNatureAbsTol->_scalingunit=myunit;
++- }
++- break;
++-
++- case 21:
++-/* Line 1802 of yacc.c */
++-#line 443 "verilogaYacc.y"
++- {
++- char* mylexval3=((p_lexval)(yyvsp[(3) - (4)]._lexval))->_string;
++- if(!strcmp((yyvsp[(1) - (4)]._lexval)->_string,"units"))
++- {
++- if(gNatureUnits)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",(yyvsp[(1) - (4)]._lexval));
++- gNatureUnits=adms_kclone(mylexval3);
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",(yyvsp[(1) - (4)]._lexval));
++- }
++- break;
++-
++- case 22:
++-/* Line 1802 of yacc.c */
++-#line 455 "verilogaYacc.y"
++- {
++- char* mylexval3=((p_lexval)(yyvsp[(3) - (4)]._lexval))->_string;
++- if(!strcmp((yyvsp[(1) - (4)]._lexval)->_string,"access"))
++- {
++- if(gNatureAccess)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",(yyvsp[(1) - (4)]._lexval));
++- gNatureAccess=adms_kclone(mylexval3);
++- }
++- else if(!strcmp((yyvsp[(1) - (4)]._lexval)->_string,"idt_nature"))
++- {
++- if(gNatureidt)
++- adms_veriloga_message_fatal("idt_nature attribute defined more than once\n",(yyvsp[(1) - (4)]._lexval));
++- gNatureidt=adms_kclone(mylexval3);
++- }
++- else if(!strcmp((yyvsp[(1) - (4)]._lexval)->_string,"ddt_nature"))
++- {
++- if(gNatureddt)
++- adms_veriloga_message_fatal("ddt_nature attribute defined more than once\n",(yyvsp[(1) - (4)]._lexval));
++- gNatureddt=adms_kclone(mylexval3);
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",(yyvsp[(1) - (4)]._lexval));
++- }
++- break;
++-
++- case 23:
++-/* Line 1802 of yacc.c */
++-#line 481 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 24:
++-/* Line 1802 of yacc.c */
++-#line 484 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 25:
++-/* Line 1802 of yacc.c */
++-#line 489 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 26:
++-/* Line 1802 of yacc.c */
++-#line 492 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (2)]._lexval))->_string;
++- p_attribute myattribute=adms_attribute_new("ibm");
++- p_admst myconstant=adms_admst_newks(adms_kclone(mylexval2));
++- myattribute->_value=(p_adms)myconstant;
++- adms_slist_push(&gAttributeList,(p_adms)myattribute);
++- }
++- break;
++-
++- case 27:
++-/* Line 1802 of yacc.c */
++-#line 500 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 28:
++-/* Line 1802 of yacc.c */
++-#line 505 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 29:
++-/* Line 1802 of yacc.c */
++-#line 508 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 30:
++-/* Line 1802 of yacc.c */
++-#line 513 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (3)]._lexval))->_string;
++- char* mylexval3=((p_lexval)(yyvsp[(3) - (3)]._lexval))->_string;
++- p_attribute myattribute=adms_attribute_new(mylexval1);
++- p_admst myconstant=adms_admst_newks(adms_kclone(mylexval3));
++- myattribute->_value=(p_adms)myconstant;
++- adms_slist_push(&gAttributeList,(p_adms)myattribute);
++- }
++- break;
++-
++- case 31:
++-/* Line 1802 of yacc.c */
++-#line 524 "verilogaYacc.y"
++- {
++- char* mylexval3=((p_lexval)(yyvsp[(3) - (3)]._lexval))->_string;
++- p_slist l;
++- p_nodealias mynodealias;
++- gModule=adms_admsmain_list_module_prepend_by_id_once_or_abort(root(),mylexval3);
++- adms_slist_push(&gBlockList,(p_adms)gModule);
++- mynodealias=adms_module_list_nodealias_prepend_by_id_once_or_abort(gModule,gModule,"0");
++- gGND=adms_module_list_node_prepend_by_id_once_or_abort(gModule,gModule,"GND");
++- mynodealias->_node=gGND;
++- gGND->_location=admse_ground;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&gModule->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- }
++- break;
++-
++- case 32:
++-/* Line 1802 of yacc.c */
++-#line 539 "verilogaYacc.y"
++- {
++- adms_slist_pull(&gBlockList);
++- adms_slist_inreverse(&gModule->_assignment);
++- }
++- break;
++-
++- case 33:
++-/* Line 1802 of yacc.c */
++-#line 546 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 34:
++-/* Line 1802 of yacc.c */
++-#line 549 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 35:
++-/* Line 1802 of yacc.c */
++-#line 552 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 36:
++-/* Line 1802 of yacc.c */
++-#line 555 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 37:
++-/* Line 1802 of yacc.c */
++-#line 560 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 38:
++-/* Line 1802 of yacc.c */
++-#line 563 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 39:
++-/* Line 1802 of yacc.c */
++-#line 566 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 40:
++-/* Line 1802 of yacc.c */
++-#line 569 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 41:
++-/* Line 1802 of yacc.c */
++-#line 572 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 42:
++-/* Line 1802 of yacc.c */
++-#line 577 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 43:
++-/* Line 1802 of yacc.c */
++-#line 580 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 44:
++-/* Line 1802 of yacc.c */
++-#line 585 "verilogaYacc.y"
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&gModule->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- }
++- break;
++-
++- case 45:
++-/* Line 1802 of yacc.c */
++-#line 594 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 46:
++-/* Line 1802 of yacc.c */
++-#line 597 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 47:
++-/* Line 1802 of yacc.c */
++-#line 602 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 48:
++-/* Line 1802 of yacc.c */
++-#line 605 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 49:
++-/* Line 1802 of yacc.c */
++-#line 610 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- p_nodealias mynodealias=adms_module_list_nodealias_prepend_by_id_once_or_abort(gModule,gModule,mylexval1);
++- p_node mynode=adms_module_list_node_prepend_by_id_once_or_abort(gModule,gModule,mylexval1);
++- mynodealias->_node=mynode;
++- mynode->_location=admse_external;
++- }
++- break;
++-
++- case 50:
++-/* Line 1802 of yacc.c */
++-#line 620 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 51:
++-/* Line 1802 of yacc.c */
++-#line 623 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 52:
++-/* Line 1802 of yacc.c */
++-#line 628 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 53:
++-/* Line 1802 of yacc.c */
++-#line 631 "verilogaYacc.y"
++- {
++- adms_slist_free(gGlobalAttributeList); gGlobalAttributeList=NULL;
++- }
++- break;
++-
++- case 54:
++-/* Line 1802 of yacc.c */
++-#line 637 "verilogaYacc.y"
++- {
++- gGlobalAttributeList=gAttributeList;
++- gAttributeList=NULL;
++- }
++- break;
++-
++- case 55:
++-/* Line 1802 of yacc.c */
++-#line 644 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 56:
++-/* Line 1802 of yacc.c */
++-#line 647 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 57:
++-/* Line 1802 of yacc.c */
++-#line 650 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 58:
++-/* Line 1802 of yacc.c */
++-#line 653 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 59:
++-/* Line 1802 of yacc.c */
++-#line 656 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 60:
++-/* Line 1802 of yacc.c */
++-#line 659 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 61:
++-/* Line 1802 of yacc.c */
++-#line 662 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 62:
++-/* Line 1802 of yacc.c */
++-#line 665 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 63:
++-/* Line 1802 of yacc.c */
++-#line 670 "verilogaYacc.y"
++- {
++- p_slist l;
++- for(l=gTerminalList;l;l=l->next)
++- ((p_node)l->data)->_direction=gNodeDirection;
++- adms_slist_free(gTerminalList); gTerminalList=NULL;
++- }
++- break;
++-
++- case 64:
++-/* Line 1802 of yacc.c */
++-#line 677 "verilogaYacc.y"
++- {
++- p_slist l;
++- for(l=gNodeList;l;l=l->next)
++- ((p_node)l->data)->_location=admse_ground;
++- adms_slist_free(gNodeList); gNodeList=NULL;
++- }
++- break;
++-
++- case 65:
++-/* Line 1802 of yacc.c */
++-#line 684 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (3)]._lexval))->_string;
++- char* mydisciplinename=mylexval1;
++- p_discipline mydiscipline=adms_admsmain_list_discipline_lookup_by_id(root(),mydisciplinename);
++- p_slist l;
++- for(l=gNodeList;l;l=l->next)
++- ((p_node)l->data)->_discipline=mydiscipline;
++- adms_slist_free(gNodeList); gNodeList=NULL;
++- }
++- break;
++-
++- case 66:
++-/* Line 1802 of yacc.c */
++-#line 696 "verilogaYacc.y"
++- {
++- gNodeDirection=admse_input;
++- }
++- break;
++-
++- case 67:
++-/* Line 1802 of yacc.c */
++-#line 700 "verilogaYacc.y"
++- {
++- gNodeDirection=admse_output;
++- }
++- break;
++-
++- case 68:
++-/* Line 1802 of yacc.c */
++-#line 704 "verilogaYacc.y"
++- {
++- gNodeDirection=admse_inout;
++- }
++- break;
++-
++- case 69:
++-/* Line 1802 of yacc.c */
++-#line 710 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 70:
++-/* Line 1802 of yacc.c */
++-#line 713 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 71:
++-/* Line 1802 of yacc.c */
++-#line 718 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 72:
++-/* Line 1802 of yacc.c */
++-#line 721 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 73:
++-/* Line 1802 of yacc.c */
++-#line 726 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (2)]._lexval))->_string;
++- p_slist l;
++- p_node mynode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1);
++- if(!mynode)
++- adms_veriloga_message_fatal("terminal not found\n",(yyvsp[(1) - (2)]._lexval));
++- if(mynode->_location!=admse_external)
++- adms_veriloga_message_fatal("node not a terminal\n",(yyvsp[(1) - (2)]._lexval));
++- adms_slist_push(&gTerminalList,(p_adms)mynode);
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- }
++- break;
++-
++- case 74:
++-/* Line 1802 of yacc.c */
++-#line 744 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (2)]._lexval))->_string;
++- p_slist l;
++- p_node mynode=adms_module_list_node_prepend_by_id_once_or_ignore(gModule,gModule,mylexval1);
++- adms_slist_push(&gNodeList,(p_adms)mynode);
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- }
++- break;
++-
++- case 75:
++-/* Line 1802 of yacc.c */
++-#line 758 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 76:
++-/* Line 1802 of yacc.c */
++-#line 763 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 77:
++-/* Line 1802 of yacc.c */
++-#line 766 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 78:
++-/* Line 1802 of yacc.c */
++-#line 771 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- adms_slist_push(&gBranchAliasList,(p_adms)mylexval1);
++- }
++- break;
++-
++- case 79:
++-/* Line 1802 of yacc.c */
++-#line 778 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (6)]._lexval))->_string;
++- char* mylexval4=((p_lexval)(yyvsp[(4) - (6)]._lexval))->_string;
++- p_slist l;
++- p_branch mybranch;
++- p_node pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval2);
++- p_node nnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval4);
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,pnode,nnode);
++- if(!pnode)
++- adms_veriloga_message_fatal("node never declared\n",(yyvsp[(2) - (6)]._lexval));
++- if(!nnode)
++- adms_veriloga_message_fatal("node never declared\n",(yyvsp[(4) - (6)]._lexval));
++- for(l=gBranchAliasList;l;l=l->next)
++- {
++- char*aliasname=(char*)l->data;
++- p_branchalias mybranchalias;
++- mybranchalias=adms_module_list_branchalias_prepend_by_id_once_or_abort(gModule,gModule,aliasname);
++- if(mybranchalias) mybranchalias->_branch=mybranch;
++- }
++- adms_slist_free(gBranchAliasList);
++- gBranchAliasList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mybranch->_attribute,l->data);
++- }
++- break;
++-
++- case 80:
++-/* Line 1802 of yacc.c */
++-#line 803 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (4)]._lexval))->_string;
++- p_slist l;
++- p_branch mybranch;
++- p_node pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval2);
++- if(!pnode)
++- adms_veriloga_message_fatal("node never declared\n",(yyvsp[(2) - (4)]._lexval));
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,pnode,gGND);
++- for(l=gBranchAliasList;l;l=l->next)
++- {
++- char*aliasname=(char*)l->data;
++- p_branchalias mybranchalias;
++- mybranchalias=adms_module_list_branchalias_prepend_by_id_once_or_abort(gModule,gModule,aliasname);
++- if(mybranchalias) mybranchalias->_branch=mybranch;
++- }
++- adms_slist_free(gBranchAliasList);
++- gBranchAliasList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mybranch->_attribute,l->data);
++- }
++- break;
++-
++- case 81:
++-/* Line 1802 of yacc.c */
++-#line 826 "verilogaYacc.y"
++- {
++- adms_slist_pull(&gBlockList);
++- gAnalogfunction->_tree=YY((yyvsp[(3) - (4)]._yaccval));
++- gAnalogfunction=NULL;
++- }
++- break;
++-
++- case 82:
++-/* Line 1802 of yacc.c */
++-#line 834 "verilogaYacc.y"
++- {
++- NEWVARIABLE(gAnalogfunction->_lexval)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- }
++- break;
++-
++- case 83:
++-/* Line 1802 of yacc.c */
++-#line 840 "verilogaYacc.y"
++- {
++- NEWVARIABLE(gAnalogfunction->_lexval)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_type=admse_integer;
++- gAnalogfunction->_type=admse_integer;
++- }
++- break;
++-
++- case 84:
++-/* Line 1802 of yacc.c */
++-#line 848 "verilogaYacc.y"
++- {
++- NEWVARIABLE(gAnalogfunction->_lexval)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- }
++- break;
++-
++- case 85:
++-/* Line 1802 of yacc.c */
++-#line 856 "verilogaYacc.y"
++- {
++- p_slist l;
++- gAnalogfunction=adms_analogfunction_new(gModule,(yyvsp[(1) - (1)]._lexval));
++- adms_slist_push(&gBlockList,(p_adms)gAnalogfunction);
++- adms_module_list_analogfunction_prepend_once_or_abort(gModule,gAnalogfunction);
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&gAnalogfunction->_attribute,l->data);
++- }
++- break;
++-
++- case 86:
++-/* Line 1802 of yacc.c */
++-#line 867 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 87:
++-/* Line 1802 of yacc.c */
++-#line 870 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 88:
++-/* Line 1802 of yacc.c */
++-#line 875 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 89:
++-/* Line 1802 of yacc.c */
++-#line 878 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 90:
++-/* Line 1802 of yacc.c */
++-#line 881 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 91:
++-/* Line 1802 of yacc.c */
++-#line 884 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 92:
++-/* Line 1802 of yacc.c */
++-#line 887 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 93:
++-/* Line 1802 of yacc.c */
++-#line 892 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(1) - (1)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- break;
++-
++- case 94:
++-/* Line 1802 of yacc.c */
++-#line 899 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(3) - (3)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- break;
++-
++- case 95:
++-/* Line 1802 of yacc.c */
++-#line 908 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(1) - (1)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- break;
++-
++- case 96:
++-/* Line 1802 of yacc.c */
++-#line 915 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(3) - (3)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- break;
++-
++- case 97:
++-/* Line 1802 of yacc.c */
++-#line 924 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(1) - (1)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- break;
++-
++- case 98:
++-/* Line 1802 of yacc.c */
++-#line 932 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(3) - (3)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- break;
++-
++- case 99:
++-/* Line 1802 of yacc.c */
++-#line 942 "verilogaYacc.y"
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,(yyvsp[(1) - (1)]._lexval),(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_integer;
++- else
++- {
++- NEWVARIABLE((yyvsp[(1) - (1)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_integer;
++- }
++- }
++- break;
++-
++- case 100:
++-/* Line 1802 of yacc.c */
++-#line 954 "verilogaYacc.y"
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,(yyvsp[(3) - (3)]._lexval),(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_integer;
++- else
++- {
++- NEWVARIABLE((yyvsp[(3) - (3)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_integer;
++- }
++- }
++- break;
++-
++- case 101:
++-/* Line 1802 of yacc.c */
++-#line 968 "verilogaYacc.y"
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,(yyvsp[(1) - (1)]._lexval),(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_real;
++- else
++- {
++- NEWVARIABLE((yyvsp[(1) - (1)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_real;
++- }
++- }
++- break;
++-
++- case 102:
++-/* Line 1802 of yacc.c */
++-#line 980 "verilogaYacc.y"
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,(yyvsp[(3) - (3)]._lexval),(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_real;
++- else
++- {
++- NEWVARIABLE((yyvsp[(3) - (3)]._lexval))
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_real;
++- }
++- }
++- break;
++-
++- case 103:
++-/* Line 1802 of yacc.c */
++-#line 994 "verilogaYacc.y"
++- {
++- gVariableType=admse_integer;
++- adms_slist_concat(&gGlobalAttributeList,gAttributeList);
++- gAttributeList=NULL;
++- }
++- break;
++-
++- case 104:
++-/* Line 1802 of yacc.c */
++-#line 1000 "verilogaYacc.y"
++- {
++- gVariableType=admse_real;
++- adms_slist_concat(&gGlobalAttributeList,gAttributeList);
++- gAttributeList=NULL;
++- }
++- break;
++-
++- case 105:
++-/* Line 1802 of yacc.c */
++-#line 1006 "verilogaYacc.y"
++- {
++- gVariableType=admse_string;
++- adms_slist_concat(&gGlobalAttributeList,gAttributeList);
++- gAttributeList=NULL;
++- }
++- break;
++-
++- case 106:
++-/* Line 1802 of yacc.c */
++-#line 1014 "verilogaYacc.y"
++- {
++- p_slist l;
++- for(l=gVariableDeclarationList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=gVariableType;
++- adms_slist_free(gVariableDeclarationList); gVariableDeclarationList=NULL;
++- }
++- break;
++-
++- case 107:
++-/* Line 1802 of yacc.c */
++-#line 1023 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 108:
++-/* Line 1802 of yacc.c */
++-#line 1026 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 109:
++-/* Line 1802 of yacc.c */
++-#line 1031 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 110:
++-/* Line 1802 of yacc.c */
++-#line 1034 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 111:
++-/* Line 1802 of yacc.c */
++-#line 1039 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (6)]._lexval))->_string;
++- p_slist l;
++- p_variableprototype myvariableprototype=adms_module_list_variable_lookup_by_id(gModule,gModule,(yyvsp[(4) - (6)]._lexval),(p_adms)gModule);
++- if(!myvariableprototype)
++- adms_veriloga_message_fatal("variable never declared\n",(yyvsp[(4) - (6)]._lexval));
++- adms_variableprototype_list_alias_prepend_once_or_abort(myvariableprototype,adms_kclone(mylexval2));
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myvariableprototype->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&myvariableprototype->_attribute,l->data);
++- }
++- break;
++-
++- case 112:
++-/* Line 1802 of yacc.c */
++-#line 1055 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 113:
++-/* Line 1802 of yacc.c */
++-#line 1058 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 114:
++-/* Line 1802 of yacc.c */
++-#line 1063 "verilogaYacc.y"
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- }
++- break;
++-
++- case 115:
++-/* Line 1802 of yacc.c */
++-#line 1074 "verilogaYacc.y"
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- }
++- break;
++-
++- case 116:
++-/* Line 1802 of yacc.c */
++-#line 1085 "verilogaYacc.y"
++- {
++- ((p_variableprototype)gVariableDeclarationList->data)->_input=admse_yes;
++- ((p_variableprototype)gVariableDeclarationList->data)->_default=((p_expression)YY((yyvsp[(3) - (4)]._yaccval)));
++- ((p_variableprototype)gVariableDeclarationList->data)->_range=adms_slist_reverse(gRangeList);
++- gRangeList=NULL;
++- }
++- break;
++-
++- case 117:
++-/* Line 1802 of yacc.c */
++-#line 1092 "verilogaYacc.y"
++- {
++- p_slist myArgs=(p_slist)YY((yyvsp[(4) - (6)]._yaccval));
++- adms_slist_inreverse(&myArgs);
++- ((p_variableprototype)gVariableDeclarationList->data)->_input=admse_yes;
++- ((p_variableprototype)gVariableDeclarationList->data)->_default=((p_expression)myArgs->data);
++- ((p_variableprototype)gVariableDeclarationList->data)->_arraydefault=myArgs;
++- ((p_variableprototype)gVariableDeclarationList->data)->_range=adms_slist_reverse(gRangeList);
++- gRangeList=NULL;
++- }
++- break;
++-
++- case 118:
++-/* Line 1802 of yacc.c */
++-#line 1104 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- NEWVARIABLE((yyvsp[(1) - (1)]._lexval))
++- if(adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1))
++- adms_veriloga_message_fatal("variable already defined as node\n",(yyvsp[(1) - (1)]._lexval));
++- adms_module_list_variable_prepend_once_or_abort(gModule,myvariableprototype);
++- adms_slist_push(&gVariableDeclarationList,(p_adms)myvariableprototype);
++- }
++- break;
++-
++- case 119:
++-/* Line 1802 of yacc.c */
++-#line 1113 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (6)]._lexval))->_string;
++- NEWVARIABLE((yyvsp[(1) - (6)]._lexval))
++- if(adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1))
++- adms_veriloga_message_fatal("variable already defined as node\n",(yyvsp[(1) - (6)]._lexval));
++- adms_module_list_variable_prepend_once_or_abort(gModule,myvariableprototype);
++- adms_slist_push(&gVariableDeclarationList,(p_adms)myvariableprototype);
++- myvariableprototype->_sizetype=admse_array;
++- myvariableprototype->_minsize=adms_number_new((yyvsp[(3) - (6)]._lexval));
++- myvariableprototype->_maxsize=adms_number_new((yyvsp[(5) - (6)]._lexval));
++- }
++- break;
++-
++- case 120:
++-/* Line 1802 of yacc.c */
++-#line 1127 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 121:
++-/* Line 1802 of yacc.c */
++-#line 1130 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 122:
++-/* Line 1802 of yacc.c */
++-#line 1135 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 123:
++-/* Line 1802 of yacc.c */
++-#line 1138 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 124:
++-/* Line 1802 of yacc.c */
++-#line 1143 "verilogaYacc.y"
++- {
++- if(((p_range)YY((yyvsp[(2) - (2)]._yaccval)))->_infboundtype==admse_range_bound_value)
++- ((p_range)YY((yyvsp[(2) - (2)]._yaccval)))->_type=admse_include_value;
++- else
++- ((p_range)YY((yyvsp[(2) - (2)]._yaccval)))->_type=admse_include;
++- adms_slist_push(&gRangeList,YY((yyvsp[(2) - (2)]._yaccval)));
++- }
++- break;
++-
++- case 125:
++-/* Line 1802 of yacc.c */
++-#line 1151 "verilogaYacc.y"
++- {
++- if(((p_range)YY((yyvsp[(2) - (2)]._yaccval)))->_infboundtype==admse_range_bound_value)
++- ((p_range)YY((yyvsp[(2) - (2)]._yaccval)))->_type=admse_exclude_value;
++- else
++- ((p_range)YY((yyvsp[(2) - (2)]._yaccval)))->_type=admse_exclude;
++- adms_slist_push(&gRangeList,YY((yyvsp[(2) - (2)]._yaccval)));
++- }
++- break;
++-
++- case 126:
++-/* Line 1802 of yacc.c */
++-#line 1161 "verilogaYacc.y"
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY((yyvsp[(2) - (5)]._yaccval)),(p_expression)YY((yyvsp[(4) - (5)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_exclude;
++- myrange->_supboundtype=admse_range_bound_exclude;
++- Y((yyval._yaccval),(p_adms)myrange);
++- }
++- break;
++-
++- case 127:
++-/* Line 1802 of yacc.c */
++-#line 1169 "verilogaYacc.y"
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY((yyvsp[(2) - (5)]._yaccval)),(p_expression)YY((yyvsp[(4) - (5)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_exclude;
++- myrange->_supboundtype=admse_range_bound_include;
++- Y((yyval._yaccval),(p_adms)myrange);
++- }
++- break;
++-
++- case 128:
++-/* Line 1802 of yacc.c */
++-#line 1177 "verilogaYacc.y"
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY((yyvsp[(2) - (5)]._yaccval)),(p_expression)YY((yyvsp[(4) - (5)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_include;
++- myrange->_supboundtype=admse_range_bound_exclude;
++- Y((yyval._yaccval),(p_adms)myrange);
++- }
++- break;
++-
++- case 129:
++-/* Line 1802 of yacc.c */
++-#line 1185 "verilogaYacc.y"
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY((yyvsp[(2) - (5)]._yaccval)),(p_expression)YY((yyvsp[(4) - (5)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_include;
++- myrange->_supboundtype=admse_range_bound_include;
++- Y((yyval._yaccval),(p_adms)myrange);
++- }
++- break;
++-
++- case 130:
++-/* Line 1802 of yacc.c */
++-#line 1193 "verilogaYacc.y"
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY((yyvsp[(1) - (1)]._yaccval)),(p_expression)YY((yyvsp[(1) - (1)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_value;
++- myrange->_supboundtype=admse_range_bound_value;
++- Y((yyval._yaccval),(p_adms)myrange);
++- }
++- break;
++-
++- case 131:
++-/* Line 1802 of yacc.c */
++-#line 1203 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 132:
++-/* Line 1802 of yacc.c */
++-#line 1207 "verilogaYacc.y"
++- {
++- p_number mynumber=adms_number_new((yyvsp[(2) - (2)]._lexval));
++- p_expression myexpression=adms_expression_new(gModule,(p_adms)mynumber);
++- mynumber->_lexval->_string=adms_kclone("-inf");
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myexpression->_infinity=admse_minus;
++- myexpression->_hasspecialnumber=adms_kclone("YES");
++- Y((yyval._yaccval),(p_adms)myexpression);
++- }
++- break;
++-
++- case 133:
++-/* Line 1802 of yacc.c */
++-#line 1220 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 134:
++-/* Line 1802 of yacc.c */
++-#line 1224 "verilogaYacc.y"
++- {
++- p_number mynumber=adms_number_new((yyvsp[(1) - (1)]._lexval));
++- p_expression myexpression=adms_expression_new(gModule,(p_adms)mynumber);
++- mynumber->_lexval->_string=adms_kclone("+inf");
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myexpression->_infinity=admse_plus;
++- myexpression->_hasspecialnumber=adms_kclone("YES");
++- Y((yyval._yaccval),(p_adms)myexpression);
++- }
++- break;
++-
++- case 135:
++-/* Line 1802 of yacc.c */
++-#line 1235 "verilogaYacc.y"
++- {
++- p_number mynumber=adms_number_new((yyvsp[(2) - (2)]._lexval));
++- p_expression myexpression=adms_expression_new(gModule,(p_adms)mynumber);
++- mynumber->_lexval->_string=adms_kclone("+inf");
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myexpression->_infinity=admse_plus;
++- myexpression->_hasspecialnumber=adms_kclone("YES");
++- Y((yyval._yaccval),(p_adms)myexpression);
++- }
++- break;
++-
++- case 136:
++-/* Line 1802 of yacc.c */
++-#line 1248 "verilogaYacc.y"
++- {
++- gModule->_analog=adms_analog_new(YY((yyvsp[(2) - (2)]._yaccval)));
++- }
++- break;
++-
++- case 137:
++-/* Line 1802 of yacc.c */
++-#line 1254 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 138:
++-/* Line 1802 of yacc.c */
++-#line 1258 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 139:
++-/* Line 1802 of yacc.c */
++-#line 1264 "verilogaYacc.y"
++- {
++- p_slist myArgs=NULL;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_push(&myArgs,YY((yyvsp[(1) - (1)]._yaccval)));
++- Y((yyval._yaccval),(p_adms)myArgs);
++- }
++- break;
++-
++- case 140:
++-/* Line 1802 of yacc.c */
++-#line 1271 "verilogaYacc.y"
++- {
++- p_slist myArgs=(p_slist)YY((yyvsp[(1) - (3)]._yaccval));
++- (yyval._yaccval)=(yyvsp[(1) - (3)]._yaccval);
++- adms_slist_push(&myArgs,YY((yyvsp[(3) - (3)]._yaccval)));
++- Y((yyval._yaccval),(p_adms)myArgs);
++- }
++- break;
++-
++- case 141:
++-/* Line 1802 of yacc.c */
++-#line 1280 "verilogaYacc.y"
++- {
++- p_slist l;
++- p_slist lv;
++- for(l=gAttributeList;l;l=l->next)
++- for(lv=((p_blockvariable)YY((yyvsp[(2) - (2)]._yaccval)))->_variable;lv;lv=lv->next)
++- adms_slist_push(&((p_variableprototype)lv->data)->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- (yyval._yaccval)=(yyvsp[(2) - (2)]._yaccval);
++- }
++- break;
++-
++- case 142:
++-/* Line 1802 of yacc.c */
++-#line 1290 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 143:
++-/* Line 1802 of yacc.c */
++-#line 1294 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (2)]._yaccval);
++- }
++- break;
++-
++- case 144:
++-/* Line 1802 of yacc.c */
++-#line 1298 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 145:
++-/* Line 1802 of yacc.c */
++-#line 1302 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 146:
++-/* Line 1802 of yacc.c */
++-#line 1306 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 147:
++-/* Line 1802 of yacc.c */
++-#line 1310 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 148:
++-/* Line 1802 of yacc.c */
++-#line 1314 "verilogaYacc.y"
++- {
++- p_function myfunction=adms_function_new((yyvsp[(1) - (5)]._lexval),uid++);
++- p_slist myArgs=(p_slist)YY((yyvsp[(3) - (5)]._yaccval));
++- p_callfunction mycallfunction=adms_callfunction_new(gModule,myfunction);
++- adms_slist_push(&gModule->_callfunction,(p_adms)mycallfunction);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&myArgs);
++- myfunction->_arguments=myArgs;
++- Y((yyval._yaccval),(p_adms)mycallfunction);
++- }
++- break;
++-
++- case 149:
++-/* Line 1802 of yacc.c */
++-#line 1325 "verilogaYacc.y"
++- {
++- p_function myfunction=adms_function_new((yyvsp[(1) - (4)]._lexval),uid++);
++- p_callfunction mycallfunction=adms_callfunction_new(gModule,myfunction);
++- adms_slist_push(&gModule->_callfunction,(p_adms)mycallfunction);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mycallfunction);
++- }
++- break;
++-
++- case 150:
++-/* Line 1802 of yacc.c */
++-#line 1333 "verilogaYacc.y"
++- {
++- p_function myfunction=adms_function_new((yyvsp[(1) - (2)]._lexval),uid++);
++- p_callfunction mycallfunction=adms_callfunction_new(gModule,myfunction);
++- adms_slist_push(&gModule->_callfunction,(p_adms)mycallfunction);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mycallfunction);
++- }
++- break;
++-
++- case 151:
++-/* Line 1802 of yacc.c */
++-#line 1341 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)adms_nilled_new(gModule));
++- }
++- break;
++-
++- case 152:
++-/* Line 1802 of yacc.c */
++-#line 1348 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 153:
++-/* Line 1802 of yacc.c */
++-#line 1352 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(2) - (2)]._yaccval);
++- adms_lexval_free(((p_block)YY((yyval._yaccval)))->_lexval);
++- ((p_block)YY((yyval._yaccval)))->_lexval=(p_lexval)YY((yyvsp[(1) - (2)]._yaccval));
++- }
++- break;
++-
++- case 154:
++-/* Line 1802 of yacc.c */
++-#line 1360 "verilogaYacc.y"
++- {
++- adms_veriloga_message_fatal("@ control not supported\n",(yyvsp[(3) - (7)]._lexval));
++- }
++- break;
++-
++- case 155:
++-/* Line 1802 of yacc.c */
++-#line 1364 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (2)]._lexval))->_string;
++- char* mypartitionning=adms_kclone(mylexval2);
++- if(strcmp(mypartitionning,"initial_model")
++- && strcmp(mypartitionning,"initial_instance")
++- && strcmp(mypartitionning,"noise")
++- && strcmp(mypartitionning,"initial_step")
++- && strcmp(mypartitionning,"final_step"))
++- adms_veriloga_message_fatal(" @() control not supported\n",(yyvsp[(2) - (2)]._lexval));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)(yyvsp[(2) - (2)]._lexval));
++- }
++- break;
++-
++- case 156:
++-/* Line 1802 of yacc.c */
++-#line 1377 "verilogaYacc.y"
++- {
++- char* mylexval3=((p_lexval)(yyvsp[(3) - (4)]._lexval))->_string;
++- char* mypartitionning=adms_kclone(mylexval3);
++- if(strcmp(mypartitionning,"initial_model")
++- && strcmp(mypartitionning,"initial_instance")
++- && strcmp(mypartitionning,"noise")
++- && strcmp(mypartitionning,"initial_step")
++- && strcmp(mypartitionning,"final_step"))
++- adms_veriloga_message_fatal(" @() control not supported\n",(yyvsp[(3) - (4)]._lexval));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)(yyvsp[(3) - (4)]._lexval));
++- }
++- break;
++-
++- case 157:
++-/* Line 1802 of yacc.c */
++-#line 1392 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 158:
++-/* Line 1802 of yacc.c */
++-#line 1395 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 159:
++-/* Line 1802 of yacc.c */
++-#line 1400 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 160:
++-/* Line 1802 of yacc.c */
++-#line 1405 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- }
++- break;
++-
++- case 161:
++-/* Line 1802 of yacc.c */
++-#line 1411 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- ((p_block)YY((yyval._yaccval)))->_lexval->_string=(yyvsp[(3) - (4)]._lexval)->_string;
++- }
++- break;
++-
++- case 162:
++-/* Line 1802 of yacc.c */
++-#line 1418 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- }
++- break;
++-
++- case 163:
++-/* Line 1802 of yacc.c */
++-#line 1424 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- ((p_block)YY((yyval._yaccval)))->_lexval->_string=(yyvsp[(3) - (5)]._lexval)->_string;
++- }
++- break;
++-
++- case 164:
++-/* Line 1802 of yacc.c */
++-#line 1433 "verilogaYacc.y"
++- {
++- p_slist l;
++- p_block myblock=adms_block_new(gModule,(yyvsp[(2) - (2)]._lexval),gBlockList?((p_block)gBlockList->data):NULL,NULL);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- myblock->_lexval->_string=adms_kclone("");
++- adms_slist_push(&gBlockList,(p_adms)myblock);
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myblock->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- adms_slist_push(&gModule->_block,gBlockList->data);
++- }
++- break;
++-
++- case 165:
++-/* Line 1802 of yacc.c */
++-#line 1447 "verilogaYacc.y"
++- {
++- adms_slist_push(&((p_block)gBlockList->data)->_item,YY((yyvsp[(1) - (1)]._yaccval)));
++- }
++- break;
++-
++- case 166:
++-/* Line 1802 of yacc.c */
++-#line 1451 "verilogaYacc.y"
++- {
++- adms_slist_push(&((p_block)gBlockList->data)->_item,YY((yyvsp[(2) - (2)]._yaccval)));
++- }
++- break;
++-
++- case 167:
++-/* Line 1802 of yacc.c */
++-#line 1457 "verilogaYacc.y"
++- {
++- p_slist l;
++- p_blockvariable myblockvariable=adms_blockvariable_new(((p_block)gBlockList->data));
++- adms_slist_push(&gModule->_blockvariable,(p_adms)myblockvariable);
++- for(l=gBlockVariableList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=admse_integer;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&gBlockVariableList);
++- myblockvariable->_variable=gBlockVariableList;
++- gBlockVariableList=NULL;
++- Y((yyval._yaccval),(p_adms)myblockvariable);
++- }
++- break;
++-
++- case 168:
++-/* Line 1802 of yacc.c */
++-#line 1470 "verilogaYacc.y"
++- {
++- p_slist l;
++- p_blockvariable myblockvariable=adms_blockvariable_new(((p_block)gBlockList->data));
++- adms_slist_push(&gModule->_blockvariable,(p_adms)myblockvariable);
++- for(l=gBlockVariableList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=admse_real;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&gBlockVariableList);
++- myblockvariable->_variable=gBlockVariableList;
++- gBlockVariableList=NULL;
++- Y((yyval._yaccval),(p_adms)myblockvariable);
++- }
++- break;
++-
++- case 169:
++-/* Line 1802 of yacc.c */
++-#line 1483 "verilogaYacc.y"
++- {
++- p_slist l;
++- p_blockvariable myblockvariable=adms_blockvariable_new(((p_block)gBlockList->data));
++- adms_slist_push(&gModule->_blockvariable,(p_adms)myblockvariable);
++- for(l=gBlockVariableList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=admse_string;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&gBlockVariableList);
++- myblockvariable->_variable=gBlockVariableList;
++- gBlockVariableList=NULL;
++- Y((yyval._yaccval),(p_adms)myblockvariable);
++- }
++- break;
++-
++- case 170:
++-/* Line 1802 of yacc.c */
++-#line 1498 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 171:
++-/* Line 1802 of yacc.c */
++-#line 1501 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 172:
++-/* Line 1802 of yacc.c */
++-#line 1506 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(1) - (1)]._lexval))
++- adms_block_list_variable_prepend_once_or_abort(((p_block)gBlockList->data),myvariableprototype);
++- adms_slist_push(&gBlockVariableList,(p_adms)myvariableprototype);
++- }
++- break;
++-
++- case 173:
++-/* Line 1802 of yacc.c */
++-#line 1512 "verilogaYacc.y"
++- {
++- NEWVARIABLE((yyvsp[(1) - (6)]._lexval))
++- adms_block_list_variable_prepend_once_or_abort(((p_block)gBlockList->data),myvariableprototype);
++- adms_slist_push(&gVariableDeclarationList,(p_adms)myvariableprototype);
++- myvariableprototype->_sizetype=admse_array;
++- myvariableprototype->_minsize=adms_number_new((yyvsp[(3) - (6)]._lexval));
++- myvariableprototype->_maxsize=adms_number_new((yyvsp[(5) - (6)]._lexval));
++- }
++- break;
++-
++- case 174:
++-/* Line 1802 of yacc.c */
++-#line 1523 "verilogaYacc.y"
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&gContribution->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- gContribution=NULL;
++- }
++- break;
++-
++- case 175:
++-/* Line 1802 of yacc.c */
++-#line 1533 "verilogaYacc.y"
++- {
++- p_source mysource=(p_source)YY((yyvsp[(1) - (4)]._yaccval));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- gContribution=adms_contribution_new(gModule,mysource,(p_expression)YY((yyvsp[(4) - (4)]._yaccval)),gLexval);
++- adms_slist_push(&gModule->_contribution,(p_adms)gContribution);
++- Y((yyval._yaccval),(p_adms)gContribution);
++- gContribution->_branchalias=gBranchAlias;
++- gBranchAlias=NULL;
++- }
++- break;
++-
++- case 176:
++-/* Line 1802 of yacc.c */
++-#line 1545 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (6)]._lexval))->_string;
++- char* mylexval3=((p_lexval)(yyvsp[(3) - (6)]._lexval))->_string;
++- char* mylexval5=((p_lexval)(yyvsp[(5) - (6)]._lexval))->_string;
++- p_node Pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval3);
++- p_node Nnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval5);
++- char* natureID=mylexval1;
++- p_nature mynature=adms_admsmain_list_nature_lookup_by_id(root(),natureID);
++- p_branch mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,Pnode,Nnode);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- if(!mynature)
++- adms_message_fatal(("[source:error] there is no nature with access %s, missing discipline.h file?\n",natureID))
++- gSource=adms_module_list_source_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- gLexval=(yyvsp[(1) - (6)]._lexval);
++- Y((yyval._yaccval),(p_adms)gSource);
++- }
++- break;
++-
++- case 177:
++-/* Line 1802 of yacc.c */
++-#line 1562 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (4)]._lexval))->_string;
++- char* mylexval3=((p_lexval)(yyvsp[(3) - (4)]._lexval))->_string;
++- char* natureID=mylexval1;
++- p_nature mynature=adms_admsmain_list_nature_lookup_by_id(root(),natureID);
++- p_branchalias branchalias=adms_module_list_branchalias_lookup_by_id(gModule,gModule,mylexval3);
++- p_node pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval3);
++- p_branch mybranch=NULL;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- if(!mynature)
++- adms_message_fatal(("[source:error] there is no nature with access %s, please, include discipline.h file\n",natureID))
++- if(pnode)
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,pnode,gGND);
++- else if(branchalias)
++- mybranch=branchalias->_branch;
++- else
++- adms_veriloga_message_fatal("undefined branch or node\n",(yyvsp[(1) - (4)]._lexval));
++- gSource=adms_module_list_source_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- gLexval=(yyvsp[(1) - (4)]._lexval);
++- gBranchAlias=branchalias;
++- Y((yyval._yaccval),(p_adms)gSource);
++- }
++- break;
++-
++- case 178:
++-/* Line 1802 of yacc.c */
++-#line 1587 "verilogaYacc.y"
++- {
++- p_whileloop mywhileloop=adms_whileloop_new(gModule,(p_expression)YY((yyvsp[(3) - (5)]._yaccval)),YY((yyvsp[(5) - (5)]._yaccval)));
++- adms_slist_push(&gModule->_whileloop,(p_adms)mywhileloop);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mywhileloop);
++- }
++- break;
++-
++- case 179:
++-/* Line 1802 of yacc.c */
++-#line 1596 "verilogaYacc.y"
++- {
++- p_forloop myforloop=adms_forloop_new(gModule,(p_assignment)YY((yyvsp[(3) - (9)]._yaccval)),(p_expression)YY((yyvsp[(5) - (9)]._yaccval)),(p_assignment)YY((yyvsp[(7) - (9)]._yaccval)),YY((yyvsp[(9) - (9)]._yaccval)));
++- adms_slist_push(&gModule->_forloop,(p_adms)myforloop);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myforloop);
++- }
++- break;
++-
++- case 180:
++-/* Line 1802 of yacc.c */
++-#line 1605 "verilogaYacc.y"
++- {
++- p_case mycase=adms_case_new(gModule,(p_expression)YY((yyvsp[(3) - (6)]._yaccval)));
++- adms_slist_push(&gModule->_case,(p_adms)mycase);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- mycase->_caseitem=adms_slist_reverse((p_slist)YY((yyvsp[(5) - (6)]._yaccval)));
++- Y((yyval._yaccval),(p_adms)mycase);
++- }
++- break;
++-
++- case 181:
++-/* Line 1802 of yacc.c */
++-#line 1615 "verilogaYacc.y"
++- {
++- p_slist myArgs=NULL;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_push(&myArgs,YY((yyvsp[(1) - (1)]._yaccval)));
++- Y((yyval._yaccval),(p_adms)myArgs);
++- }
++- break;
++-
++- case 182:
++-/* Line 1802 of yacc.c */
++-#line 1622 "verilogaYacc.y"
++- {
++- p_slist myArgs=(p_slist)YY((yyvsp[(1) - (2)]._yaccval));
++- (yyval._yaccval)=(yyvsp[(1) - (2)]._yaccval);
++- adms_slist_push(&myArgs,YY((yyvsp[(2) - (2)]._yaccval)));
++- Y((yyval._yaccval),(p_adms)myArgs);
++- }
++- break;
++-
++- case 183:
++-/* Line 1802 of yacc.c */
++-#line 1631 "verilogaYacc.y"
++- {
++- p_slist myArgs=(p_slist)YY((yyvsp[(1) - (3)]._yaccval));
++- p_caseitem mycaseitem=adms_caseitem_new(YY((yyvsp[(3) - (3)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- mycaseitem->_condition=adms_slist_reverse(myArgs);
++- Y((yyval._yaccval),(p_adms)mycaseitem);
++- }
++- break;
++-
++- case 184:
++-/* Line 1802 of yacc.c */
++-#line 1639 "verilogaYacc.y"
++- {
++- p_caseitem mycaseitem=adms_caseitem_new(YY((yyvsp[(3) - (3)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- mycaseitem->_defaultcase=admse_yes;
++- Y((yyval._yaccval),(p_adms)mycaseitem);
++- }
++- break;
++-
++- case 185:
++-/* Line 1802 of yacc.c */
++-#line 1646 "verilogaYacc.y"
++- {
++- p_caseitem mycaseitem=adms_caseitem_new(YY((yyvsp[(2) - (2)]._yaccval)));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- mycaseitem->_defaultcase=admse_yes;
++- Y((yyval._yaccval),(p_adms)mycaseitem);
++- }
++- break;
++-
++- case 186:
++-/* Line 1802 of yacc.c */
++-#line 1655 "verilogaYacc.y"
++- {
++- char* mylexval6=((p_lexval)(yyvsp[(6) - (10)]._lexval))->_string;
++- p_instance myinstance;
++- p_slist l1;
++- p_slist l2;
++- myinstance=adms_module_list_instance_prepend_by_id_once_or_abort(gModule,gModule,gInstanceModule,mylexval6);
++- adms_slist_inreverse(&gInstanceModule->_node);
++- l2=gInstanceModule->_node;
++- l2=l2->next; /*GND ignored*/
++- for(l1=adms_slist_reverse(gNodeList);l1;l1=l1->next)
++- {
++- adms_instance_list_terminal_prepend_once_or_abort(myinstance,adms_instancenode_new(((p_node)l1->data),(p_node)l2->data));
++- l2=l2->next;
++- }
++- for(l1=gInstanceVariableList;l1;l1=l1->next)
++- adms_instance_list_parameterset_prepend_once_or_abort(myinstance,(p_instanceparameter)l1->data);
++- adms_slist_inreverse(&gInstanceModule->_node);
++- adms_slist_free(gNodeList);gNodeList=NULL;
++- adms_slist_free(gInstanceVariableList);gInstanceVariableList=NULL;
++- }
++- break;
++-
++- case 187:
++-/* Line 1802 of yacc.c */
++-#line 1678 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- gInstanceModule=adms_admsmain_list_module_lookup_by_id(root(),mylexval1);
++- if(!gInstanceModule)
++- adms_message_fatal(("module '%s' not found\n",mylexval1));
++- }
++- break;
++-
++- case 188:
++-/* Line 1802 of yacc.c */
++-#line 1687 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 189:
++-/* Line 1802 of yacc.c */
++-#line 1690 "verilogaYacc.y"
++- {
++- }
++- break;
++-
++- case 190:
++-/* Line 1802 of yacc.c */
++-#line 1695 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (5)]._lexval))->_string;
++- p_variableprototype myvariableprototype=adms_module_list_variable_lookup_by_id(gInstanceModule,gInstanceModule,(yyvsp[(2) - (5)]._lexval),(p_adms)gInstanceModule);
++- if(myvariableprototype)
++- {
++- p_instanceparameter myinstanceparameter;
++- myinstanceparameter=adms_instanceparameter_new(myvariableprototype);
++- adms_slist_push(&gInstanceVariableList,(p_adms)myinstanceparameter);
++- myinstanceparameter->_value=((p_expression)YY((yyvsp[(4) - (5)]._yaccval)));
++- }
++- else
++- {
++- adms_veriloga_message_fatal_continue((yyvsp[(2) - (5)]._lexval));
++- adms_message_fatal(("[%s.%s.%s]: undefined variable (instance declaration)",
++- adms_module_uid(gModule),adms_module_uid(gInstanceModule),mylexval2))
++- }
++- }
++- break;
++-
++- case 191:
++-/* Line 1802 of yacc.c */
++-#line 1715 "verilogaYacc.y"
++- {
++- p_assignment myassignment;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,(yyvsp[(1) - (3)]._lexval));
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",(yyvsp[(1) - (3)]._lexval));
++- myvariableprototype=myvariable->_prototype;
++- myassignment=adms_assignment_new(gModule,(p_adms)myvariable,(p_expression)YY((yyvsp[(3) - (3)]._yaccval)),(yyvsp[(1) - (3)]._lexval));
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myassignment);
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- break;
++-
++- case 192:
++-/* Line 1802 of yacc.c */
++-#line 1730 "verilogaYacc.y"
++- {
++- p_assignment myassignment;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,(yyvsp[(2) - (4)]._lexval));
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",(yyvsp[(2) - (4)]._lexval));
++- myvariableprototype=myvariable->_prototype;
++- myassignment=adms_assignment_new(gModule,(p_adms)myvariable,(p_expression)YY((yyvsp[(4) - (4)]._yaccval)),(yyvsp[(2) - (4)]._lexval));
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myassignment);
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myassignment->_attribute,l->data);
++- }
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- break;
++-
++- case 193:
++-/* Line 1802 of yacc.c */
++-#line 1751 "verilogaYacc.y"
++- {
++- p_assignment myassignment;
++- p_array myarray;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,(yyvsp[(1) - (6)]._lexval));
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",(yyvsp[(1) - (6)]._lexval));
++- myvariableprototype=myvariable->_prototype;
++- myarray=adms_array_new(myvariable,YY((yyvsp[(3) - (6)]._yaccval)));
++- myassignment=adms_assignment_new(gModule,(p_adms)myarray,(p_expression)YY((yyvsp[(6) - (6)]._yaccval)),(yyvsp[(1) - (6)]._lexval));
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myassignment);
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- break;
++-
++- case 194:
++-/* Line 1802 of yacc.c */
++-#line 1768 "verilogaYacc.y"
++- {
++- p_assignment myassignment;
++- p_array myarray;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,(yyvsp[(2) - (7)]._lexval));
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",(yyvsp[(2) - (7)]._lexval));
++- myvariableprototype=myvariable->_prototype;
++- myarray=adms_array_new(myvariable,YY((yyvsp[(4) - (7)]._yaccval)));
++- myassignment=adms_assignment_new(gModule,(p_adms)myarray,(p_expression)YY((yyvsp[(7) - (7)]._yaccval)),(yyvsp[(2) - (7)]._lexval));
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myassignment);
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myassignment->_attribute,l->data);
++- }
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- break;
++-
++- case 195:
++-/* Line 1802 of yacc.c */
++-#line 1793 "verilogaYacc.y"
++- {
++- p_expression myexpression=(p_expression)YY((yyvsp[(3) - (5)]._yaccval));
++- p_adms mythen=YY((yyvsp[(5) - (5)]._yaccval));
++- p_conditional myconditional=adms_conditional_new(gModule,myexpression,mythen,NULL);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myconditional);
++- }
++- break;
++-
++- case 196:
++-/* Line 1802 of yacc.c */
++-#line 1801 "verilogaYacc.y"
++- {
++- p_expression myexpression=(p_expression)YY((yyvsp[(3) - (7)]._yaccval));
++- p_adms mythen=YY((yyvsp[(5) - (7)]._yaccval));
++- p_adms myelse=YY((yyvsp[(7) - (7)]._yaccval));
++- p_conditional myconditional=adms_conditional_new(gModule,myexpression,mythen,myelse);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myconditional);
++- }
++- break;
++-
++- case 197:
++-/* Line 1802 of yacc.c */
++-#line 1812 "verilogaYacc.y"
++- {
++- p_expression myexpression=adms_expression_new(gModule,YY((yyvsp[(1) - (1)]._yaccval)));
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- Y((yyval._yaccval),(p_adms)myexpression);
++- }
++- break;
++-
++- case 198:
++-/* Line 1802 of yacc.c */
++-#line 1821 "verilogaYacc.y"
++- {
++- p_slist myArgs=NULL;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_push(&myArgs,YY((yyvsp[(1) - (1)]._yaccval)));
++- Y((yyval._yaccval),(p_adms)myArgs);
++- }
++- break;
++-
++- case 199:
++-/* Line 1802 of yacc.c */
++-#line 1828 "verilogaYacc.y"
++- {
++- p_slist myArgs=(p_slist)YY((yyvsp[(1) - (3)]._yaccval));
++- (yyval._yaccval)=(yyvsp[(1) - (3)]._yaccval);
++- adms_slist_push(&myArgs,YY((yyvsp[(3) - (3)]._yaccval)));
++- Y((yyval._yaccval),(p_adms)myArgs);
++- }
++- break;
++-
++- case 200:
++-/* Line 1802 of yacc.c */
++-#line 1837 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 201:
++-/* Line 1802 of yacc.c */
++-#line 1843 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 202:
++-/* Line 1802 of yacc.c */
++-#line 1849 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 203:
++-/* Line 1802 of yacc.c */
++-#line 1853 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (5)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (5)]._yaccval));
++- p_adms m3=YY((yyvsp[(5) - (5)]._yaccval));
++- p_mapply_ternary myop=adms_mapply_ternary_new(admse_conditional,m1,m2,m3);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 204:
++-/* Line 1802 of yacc.c */
++-#line 1864 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 205:
++-/* Line 1802 of yacc.c */
++-#line 1868 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_equr,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 206:
++-/* Line 1802 of yacc.c */
++-#line 1876 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (4)]._yaccval));
++- p_adms m2=YY((yyvsp[(4) - (4)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_equl,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 207:
++-/* Line 1802 of yacc.c */
++-#line 1886 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 208:
++-/* Line 1802 of yacc.c */
++-#line 1890 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_xor,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 209:
++-/* Line 1802 of yacc.c */
++-#line 1900 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 210:
++-/* Line 1802 of yacc.c */
++-#line 1904 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_or,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 211:
++-/* Line 1802 of yacc.c */
++-#line 1914 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 212:
++-/* Line 1802 of yacc.c */
++-#line 1918 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_and,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 213:
++-/* Line 1802 of yacc.c */
++-#line 1928 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 214:
++-/* Line 1802 of yacc.c */
++-#line 1932 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_or,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 215:
++-/* Line 1802 of yacc.c */
++-#line 1942 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 216:
++-/* Line 1802 of yacc.c */
++-#line 1946 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_and,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 217:
++-/* Line 1802 of yacc.c */
++-#line 1956 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 218:
++-/* Line 1802 of yacc.c */
++-#line 1960 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (4)]._yaccval));
++- p_adms m2=YY((yyvsp[(4) - (4)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_equ,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 219:
++-/* Line 1802 of yacc.c */
++-#line 1968 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (4)]._yaccval));
++- p_adms m2=YY((yyvsp[(4) - (4)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_notequ,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 220:
++-/* Line 1802 of yacc.c */
++-#line 1978 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 221:
++-/* Line 1802 of yacc.c */
++-#line 1982 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_lt,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 222:
++-/* Line 1802 of yacc.c */
++-#line 1990 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (4)]._yaccval));
++- p_adms m2=YY((yyvsp[(4) - (4)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_lt_equ,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 223:
++-/* Line 1802 of yacc.c */
++-#line 1998 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_gt,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 224:
++-/* Line 1802 of yacc.c */
++-#line 2006 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (4)]._yaccval));
++- p_adms m2=YY((yyvsp[(4) - (4)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_gt_equ,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 225:
++-/* Line 1802 of yacc.c */
++-#line 2016 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 226:
++-/* Line 1802 of yacc.c */
++-#line 2020 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_shiftr,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 227:
++-/* Line 1802 of yacc.c */
++-#line 2028 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_shiftl,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 228:
++-/* Line 1802 of yacc.c */
++-#line 2038 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 229:
++-/* Line 1802 of yacc.c */
++-#line 2042 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_addp,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 230:
++-/* Line 1802 of yacc.c */
++-#line 2050 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_addm,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 231:
++-/* Line 1802 of yacc.c */
++-#line 2060 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 232:
++-/* Line 1802 of yacc.c */
++-#line 2064 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_multtime,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 233:
++-/* Line 1802 of yacc.c */
++-#line 2072 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_multdiv,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 234:
++-/* Line 1802 of yacc.c */
++-#line 2080 "verilogaYacc.y"
++- {
++- p_adms m1=YY((yyvsp[(1) - (3)]._yaccval));
++- p_adms m2=YY((yyvsp[(3) - (3)]._yaccval));
++- p_mapply_binary myop=adms_mapply_binary_new(admse_multmod,m1,m2);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myop);
++- }
++- break;
++-
++- case 235:
++-/* Line 1802 of yacc.c */
++-#line 2090 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(1) - (1)]._yaccval);
++- }
++- break;
++-
++- case 236:
++-/* Line 1802 of yacc.c */
++-#line 2094 "verilogaYacc.y"
++- {
++- p_adms m=YY((yyvsp[(2) - (2)]._yaccval));
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_plus,m);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mymathapply);
++- }
++- break;
++-
++- case 237:
++-/* Line 1802 of yacc.c */
++-#line 2101 "verilogaYacc.y"
++- {
++- p_adms m=YY((yyvsp[(2) - (2)]._yaccval));
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_minus,m);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mymathapply);
++- }
++- break;
++-
++- case 238:
++-/* Line 1802 of yacc.c */
++-#line 2108 "verilogaYacc.y"
++- {
++- p_adms m=YY((yyvsp[(2) - (2)]._yaccval));
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_not,m);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mymathapply);
++- }
++- break;
++-
++- case 239:
++-/* Line 1802 of yacc.c */
++-#line 2115 "verilogaYacc.y"
++- {
++- p_adms m=YY((yyvsp[(2) - (2)]._yaccval));
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_bw_not,m);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)mymathapply);
++- }
++- break;
++-
++- case 240:
++-/* Line 1802 of yacc.c */
++-#line 2124 "verilogaYacc.y"
++- {
++- p_number mynumber=adms_number_new((yyvsp[(1) - (1)]._lexval));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- mynumber->_cast=admse_i;
++- Y((yyval._yaccval),(p_adms)mynumber);
++- }
++- break;
++-
++- case 241:
++-/* Line 1802 of yacc.c */
++-#line 2131 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (2)]._lexval))->_string;
++- p_number mynumber=adms_number_new((yyvsp[(1) - (2)]._lexval));
++- int myunit=admse_1;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- if(0) {}
++- else if(!strcmp(mylexval2,"E")) myunit=admse_E;
++- else if(!strcmp(mylexval2,"P")) myunit=admse_P;
++- else if(!strcmp(mylexval2,"T")) myunit=admse_T;
++- else if(!strcmp(mylexval2,"G")) myunit=admse_G;
++- else if(!strcmp(mylexval2,"M")) myunit=admse_M;
++- else if(!strcmp(mylexval2,"k")) myunit=admse_k;
++- else if(!strcmp(mylexval2,"h")) myunit=admse_h;
++- else if(!strcmp(mylexval2,"D")) myunit=admse_D;
++- else if(!strcmp(mylexval2,"d")) myunit=admse_d;
++- else if(!strcmp(mylexval2,"c")) myunit=admse_c;
++- else if(!strcmp(mylexval2,"m")) myunit=admse_m;
++- else if(!strcmp(mylexval2,"u")) myunit=admse_u;
++- else if(!strcmp(mylexval2,"n")) myunit=admse_n;
++- else if(!strcmp(mylexval2,"A")) myunit=admse_A;
++- else if(!strcmp(mylexval2,"p")) myunit=admse_p;
++- else if(!strcmp(mylexval2,"f")) myunit=admse_f;
++- else if(!strcmp(mylexval2,"a")) myunit=admse_a;
++- else
++- adms_veriloga_message_fatal(" can not convert symbol to valid unit\n",(yyvsp[(2) - (2)]._lexval));
++- mynumber->_scalingunit=myunit;
++- mynumber->_cast=admse_i;
++- Y((yyval._yaccval),(p_adms)mynumber);
++- }
++- break;
++-
++- case 242:
++-/* Line 1802 of yacc.c */
++-#line 2161 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)adms_number_new((yyvsp[(1) - (1)]._lexval)));
++- }
++- break;
++-
++- case 243:
++-/* Line 1802 of yacc.c */
++-#line 2166 "verilogaYacc.y"
++- {
++- char* mylexval2=((p_lexval)(yyvsp[(2) - (2)]._lexval))->_string;
++- p_number mynumber=adms_number_new((yyvsp[(1) - (2)]._lexval));
++- int myunit=admse_1;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- if(0) {}
++- else if(!strcmp(mylexval2,"E")) myunit=admse_E;
++- else if(!strcmp(mylexval2,"P")) myunit=admse_P;
++- else if(!strcmp(mylexval2,"T")) myunit=admse_T;
++- else if(!strcmp(mylexval2,"G")) myunit=admse_G;
++- else if(!strcmp(mylexval2,"M")) myunit=admse_M;
++- else if(!strcmp(mylexval2,"k")) myunit=admse_k;
++- else if(!strcmp(mylexval2,"h")) myunit=admse_h;
++- else if(!strcmp(mylexval2,"D")) myunit=admse_D;
++- else if(!strcmp(mylexval2,"d")) myunit=admse_d;
++- else if(!strcmp(mylexval2,"c")) myunit=admse_c;
++- else if(!strcmp(mylexval2,"m")) myunit=admse_m;
++- else if(!strcmp(mylexval2,"u")) myunit=admse_u;
++- else if(!strcmp(mylexval2,"n")) myunit=admse_n;
++- else if(!strcmp(mylexval2,"A")) myunit=admse_A;
++- else if(!strcmp(mylexval2,"p")) myunit=admse_p;
++- else if(!strcmp(mylexval2,"f")) myunit=admse_f;
++- else if(!strcmp(mylexval2,"a")) myunit=admse_a;
++- else
++- adms_veriloga_message_fatal(" can not convert symbol to valid unit\n",(yyvsp[(2) - (2)]._lexval));
++- mynumber->_scalingunit=myunit;
++- Y((yyval._yaccval),(p_adms)mynumber);
++- }
++- break;
++-
++- case 244:
++-/* Line 1802 of yacc.c */
++-#line 2195 "verilogaYacc.y"
++- {
++- adms_veriloga_message_fatal("%s: character are not handled\n",(yyvsp[(1) - (1)]._lexval));
++- }
++- break;
++-
++- case 245:
++-/* Line 1802 of yacc.c */
++-#line 2199 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)adms_string_new(mylexval1));
++- }
++- break;
++-
++- case 246:
++-/* Line 1802 of yacc.c */
++-#line 2205 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (1)]._lexval))->_string;
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- if(gAnalogfunction)
++- {
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,(yyvsp[(1) - (1)]._lexval));
++- if(myvariable)
++- Y((yyval._yaccval),(p_adms)myvariable);
++- }
++- else
++- {
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,(yyvsp[(1) - (1)]._lexval));
++- if(myvariable)
++- Y((yyval._yaccval),(p_adms)myvariable);
++- else
++- {
++- p_branchalias mybranchalias=adms_module_list_branchalias_lookup_by_id(gModule,gModule,mylexval1);
++- p_node mynode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1);
++- if(mynode) Y((yyval._yaccval),(p_adms)mynode);
++- if(mybranchalias)
++- Y((yyval._yaccval),(p_adms)mybranchalias->_branch);
++- }
++- }
++- if(!YY((yyval._yaccval)))
++- adms_veriloga_message_fatal("identifier never declared\n",(yyvsp[(1) - (1)]._lexval));
++- }
++- break;
++-
++- case 247:
++-/* Line 1802 of yacc.c */
++-#line 2232 "verilogaYacc.y"
++- {
++- p_function myfunction=adms_function_new((yyvsp[(1) - (1)]._lexval),uid++);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- Y((yyval._yaccval),(p_adms)myfunction);
++- }
++- break;
++-
++- case 248:
++-/* Line 1802 of yacc.c */
++-#line 2238 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,(yyvsp[(1) - (4)]._lexval));
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined array variable\n",(yyvsp[(1) - (4)]._lexval));
++- Y((yyval._yaccval),(p_adms)adms_array_new(myvariable,YY((yyvsp[(3) - (4)]._yaccval))));
++- }
++- break;
++-
++- case 249:
++-/* Line 1802 of yacc.c */
++-#line 2246 "verilogaYacc.y"
++- {
++- p_function myfunction=adms_function_new((yyvsp[(1) - (4)]._lexval),uid++);
++- p_slist myArgs=(p_slist)YY((yyvsp[(3) - (4)]._yaccval));
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&myArgs);
++- myfunction->_arguments=myArgs;
++- Y((yyval._yaccval),(p_adms)myfunction);
++- }
++- break;
++-
++- case 250:
++-/* Line 1802 of yacc.c */
++-#line 2255 "verilogaYacc.y"
++- {
++- char* mylexval1=((p_lexval)(yyvsp[(1) - (4)]._lexval))->_string;
++- char* myfunctionname=mylexval1;
++- p_slist myArgs=(p_slist)YY((yyvsp[(3) - (4)]._yaccval));
++- int narg=adms_slist_length(myArgs);
++- p_probe myprobe=NULL;
++- p_nature mynature=adms_admsmain_list_nature_lookup_by_id(root(),myfunctionname);
++- (yyval._yaccval)=adms_yaccval_new("unknown source file");
++- if(mynature && narg==1)
++- {
++- p_adms mychild0=(p_adms)adms_slist_nth_data(myArgs,0);
++- if(mychild0->_datatypename==admse_node)
++- {
++- p_branch mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,(p_node)mychild0,gGND);
++- myprobe=adms_module_list_probe_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- }
++- else if(mychild0->_datatypename==admse_branch)
++- {
++- myprobe=adms_module_list_probe_prepend_by_id_once_or_ignore(gModule,gModule,(p_branch)mychild0,mynature);
++- }
++- else
++- adms_veriloga_message_fatal("bad argument (expecting node or branch)\n",(yyvsp[(1) - (4)]._lexval));
++- }
++- else if(mynature && narg==2)
++- {
++- p_adms mychild0=(p_adms)adms_slist_nth_data(myArgs,0);
++- p_adms mychild1=(p_adms)adms_slist_nth_data(myArgs,1);
++- p_branch mybranch;
++- if(mychild0->_datatypename!=admse_node)
++- adms_veriloga_message_fatal("second argument of probe is not a node\n",(yyvsp[(1) - (4)]._lexval));
++- if(mychild1->_datatypename!=admse_node)
++- adms_veriloga_message_fatal("first argument of probe is not a node\n",(yyvsp[(1) - (4)]._lexval));
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,(p_node)mychild1,((p_node)mychild0));
++- myprobe=adms_module_list_probe_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- }
++- if(myprobe)
++- Y((yyval._yaccval),(p_adms)myprobe);
++- else
++- {
++- p_slist l;
++- p_function myfunction=adms_function_new((yyvsp[(1) - (4)]._lexval),uid++);
++- for(l=gModule->_analogfunction;l&&(myfunction->_definition==NULL);l=l->next)
++- {
++- p_analogfunction myanalogfunction=(p_analogfunction)l->data;
++- if(!strcmp((yyvsp[(1) - (4)]._lexval)->_string,myanalogfunction->_lexval->_string))
++- myfunction->_definition=myanalogfunction;
++- }
++- myfunction->_arguments=adms_slist_reverse(myArgs);
++- Y((yyval._yaccval),(p_adms)myfunction);
++- }
++- }
++- break;
++-
++- case 251:
++-/* Line 1802 of yacc.c */
++-#line 2307 "verilogaYacc.y"
++- {
++- (yyval._yaccval)=(yyvsp[(2) - (3)]._yaccval);
++- }
++- break;
++-
++-
++-/* Line 1802 of yacc.c */
++-#line 4852 "verilogaYacc.c"
++- default: break;
++- }
++- /* User semantic actions sometimes alter yychar, and that requires
++- that yytoken be updated with the new translation. We take the
++- approach of translating immediately before every use of yytoken.
++- One alternative is translating here after every semantic action,
++- but that translation would be missed if the semantic action invokes
++- YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
++- if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
++- incorrect destructor might then be invoked immediately. In the
++- case of YYERROR or YYBACKUP, subsequent parser actions might lead
++- to an incorrect destructor call or verbose syntax error message
++- before the lookahead is translated. */
++- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
++-
++- YYPOPSTACK (yylen);
++- yylen = 0;
++- YY_STACK_PRINT (yyss, yyssp);
++-
++- *++yyvsp = yyval;
++-
++- /* Now `shift' the result of the reduction. Determine what state
++- that goes to, based on the state we popped back to and the rule
++- number reduced by. */
++-
++- yyn = yyr1[yyn];
++-
++- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
++- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
++- yystate = yytable[yystate];
++- else
++- yystate = yydefgoto[yyn - YYNTOKENS];
++-
++- goto yynewstate;
++-
++-
++-/*------------------------------------.
++-| yyerrlab -- here on detecting error |
++-`------------------------------------*/
++-yyerrlab:
++- /* Make sure we have latest lookahead translation. See comments at
++- user semantic actions for why this is necessary. */
++- yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
++-
++- /* If not already recovering from an error, report this error. */
++- if (!yyerrstatus)
++- {
++- ++yynerrs;
++-#if ! YYERROR_VERBOSE
++- yyerror (YY_("syntax error"));
++-#else
++-# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
++- yyssp, yytoken)
++- {
++- char const *yymsgp = YY_("syntax error");
++- int yysyntax_error_status;
++- yysyntax_error_status = YYSYNTAX_ERROR;
++- if (yysyntax_error_status == 0)
++- yymsgp = yymsg;
++- else if (yysyntax_error_status == 1)
++- {
++- if (yymsg != yymsgbuf)
++- YYSTACK_FREE (yymsg);
++- yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
++- if (!yymsg)
++- {
++- yymsg = yymsgbuf;
++- yymsg_alloc = sizeof yymsgbuf;
++- yysyntax_error_status = 2;
++- }
++- else
++- {
++- yysyntax_error_status = YYSYNTAX_ERROR;
++- yymsgp = yymsg;
++- }
++- }
++- yyerror (yymsgp);
++- if (yysyntax_error_status == 2)
++- goto yyexhaustedlab;
++- }
++-# undef YYSYNTAX_ERROR
++-#endif
++- }
++-
++-
++-
++- if (yyerrstatus == 3)
++- {
++- /* If just tried and failed to reuse lookahead token after an
++- error, discard it. */
++-
++- if (yychar <= YYEOF)
++- {
++- /* Return failure if at end of input. */
++- if (yychar == YYEOF)
++- YYABORT;
++- }
++- else
++- {
++- yydestruct ("Error: discarding",
++- yytoken, &yylval);
++- yychar = YYEMPTY;
++- }
++- }
++-
++- /* Else will try to reuse lookahead token after shifting the error
++- token. */
++- goto yyerrlab1;
++-
++-
++-/*---------------------------------------------------.
++-| yyerrorlab -- error raised explicitly by YYERROR. |
++-`---------------------------------------------------*/
++-yyerrorlab:
++-
++- /* Pacify compilers like GCC when the user code never invokes
++- YYERROR and the label yyerrorlab therefore never appears in user
++- code. */
++- if (/*CONSTCOND*/ 0)
++- goto yyerrorlab;
++-
++- /* Do not reclaim the symbols of the rule which action triggered
++- this YYERROR. */
++- YYPOPSTACK (yylen);
++- yylen = 0;
++- YY_STACK_PRINT (yyss, yyssp);
++- yystate = *yyssp;
++- goto yyerrlab1;
++-
++-
++-/*-------------------------------------------------------------.
++-| yyerrlab1 -- common code for both syntax error and YYERROR. |
++-`-------------------------------------------------------------*/
++-yyerrlab1:
++- yyerrstatus = 3; /* Each real token shifted decrements this. */
++-
++- for (;;)
++- {
++- yyn = yypact[yystate];
++- if (!yypact_value_is_default (yyn))
++- {
++- yyn += YYTERROR;
++- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
++- {
++- yyn = yytable[yyn];
++- if (0 < yyn)
++- break;
++- }
++- }
++-
++- /* Pop the current state because it cannot handle the error token. */
++- if (yyssp == yyss)
++- YYABORT;
++-
++-
++- yydestruct ("Error: popping",
++- yystos[yystate], yyvsp);
++- YYPOPSTACK (1);
++- yystate = *yyssp;
++- YY_STACK_PRINT (yyss, yyssp);
++- }
++-
++- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
++- *++yyvsp = yylval;
++- YY_IGNORE_MAYBE_UNINITIALIZED_END
++-
++-
++- /* Shift the error token. */
++- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
++-
++- yystate = yyn;
++- goto yynewstate;
++-
++-
++-/*-------------------------------------.
++-| yyacceptlab -- YYACCEPT comes here. |
++-`-------------------------------------*/
++-yyacceptlab:
++- yyresult = 0;
++- goto yyreturn;
++-
++-/*-----------------------------------.
++-| yyabortlab -- YYABORT comes here. |
++-`-----------------------------------*/
++-yyabortlab:
++- yyresult = 1;
++- goto yyreturn;
++-
++-#if !defined yyoverflow || YYERROR_VERBOSE
++-/*-------------------------------------------------.
++-| yyexhaustedlab -- memory exhaustion comes here. |
++-`-------------------------------------------------*/
++-yyexhaustedlab:
++- yyerror (YY_("memory exhausted"));
++- yyresult = 2;
++- /* Fall through. */
++-#endif
++-
++-yyreturn:
++- if (yychar != YYEMPTY)
++- {
++- /* Make sure we have latest lookahead translation. See comments at
++- user semantic actions for why this is necessary. */
++- yytoken = YYTRANSLATE (yychar);
++- yydestruct ("Cleanup: discarding lookahead",
++- yytoken, &yylval);
++- }
++- /* Do not reclaim the symbols of the rule which action triggered
++- this YYABORT or YYACCEPT. */
++- YYPOPSTACK (yylen);
++- YY_STACK_PRINT (yyss, yyssp);
++- while (yyssp != yyss)
++- {
++- yydestruct ("Cleanup: popping",
++- yystos[*yyssp], yyvsp);
++- YYPOPSTACK (1);
++- }
++-#ifndef yyoverflow
++- if (yyss != yyssa)
++- YYSTACK_FREE (yyss);
++-#endif
++-#if YYERROR_VERBOSE
++- if (yymsg != yymsgbuf)
++- YYSTACK_FREE (yymsg);
++-#endif
++- /* Make sure YYID is used. */
++- return YYID (yyresult);
++-}
++-
++-
++-/* Line 2050 of yacc.c */
++-#line 2311 "verilogaYacc.y"
++-
++-void adms_veriloga_setint_yydebug(const int val)
++-{
++- yydebug=val;
++-}
++diff --git a/admsXml/verilogaYacc.h b/admsXml/verilogaYacc.h
++deleted file mode 100644
++index 152bcee..0000000
++--- a/admsXml/verilogaYacc.h
+++++ /dev/null
++@@ -1,144 +0,0 @@
++-/* A Bison parser, made by GNU Bison 2.7.12-4996. */
++-
++-/* Bison interface for Yacc-like parsers in C
++-
++- Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
++-
++- This program is free software: you can redistribute it and/or modify
++- it under the terms of the GNU General Public License as published by
++- the Free Software Foundation, either version 3 of the License, or
++- (at your option) any later version.
++-
++- This program is distributed in the hope that it will be useful,
++- but WITHOUT ANY WARRANTY; without even the implied warranty of
++- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
++- GNU General Public License for more details.
++-
++- You should have received a copy of the GNU General Public License
++- along with this program. If not, see <http://www.gnu.org/licenses/>. */
++-
++-/* As a special exception, you may create a larger work that contains
++- part or all of the Bison parser skeleton and distribute that work
++- under terms of your choice, so long as that work isn't itself a
++- parser generator using the skeleton or a modified version thereof
++- as a parser skeleton. Alternatively, if you modify or redistribute
++- the parser skeleton itself, you may (at your option) remove this
++- special exception, which will cause the skeleton and the resulting
++- Bison output files to be licensed under the GNU General Public
++- License without this special exception.
++-
++- This special exception was added by the Free Software Foundation in
++- version 2.2 of Bison. */
++-
++-#ifndef YY_VERILOGA_VERILOGAYACC_H_INCLUDED
++-# define YY_VERILOGA_VERILOGAYACC_H_INCLUDED
++-/* Enabling traces. */
++-#ifndef VERILOGADEBUG
++-# if defined YYDEBUG
++-# if YYDEBUG
++-# define VERILOGADEBUG 1
++-# else
++-# define VERILOGADEBUG 0
++-# endif
++-# else /* ! defined YYDEBUG */
++-# define VERILOGADEBUG 0
++-# endif /* ! defined YYDEBUG */
++-#endif /* ! defined VERILOGADEBUG */
++-#if VERILOGADEBUG
++-extern int verilogadebug;
++-#endif
++-
++-/* Tokens. */
++-#ifndef VERILOGATOKENTYPE
++-# define VERILOGATOKENTYPE
++- /* Put the tokens into the symbol table, so that GDB and other debuggers
++- know about them. */
++- enum verilogatokentype {
++- PREC_IF_THEN = 258,
++- tk_else = 259,
++- tk_from = 260,
++- tk_branch = 261,
++- tk_number = 262,
++- tk_nature = 263,
++- tk_aliasparameter = 264,
++- tk_output = 265,
++- tk_anystring = 266,
++- tk_dollar_ident = 267,
++- tk_or = 268,
++- tk_aliasparam = 269,
++- tk_if = 270,
++- tk_analog = 271,
++- tk_parameter = 272,
++- tk_discipline = 273,
++- tk_char = 274,
++- tk_anytext = 275,
++- tk_for = 276,
++- tk_while = 277,
++- tk_real = 278,
++- tk_op_shr = 279,
++- tk_case = 280,
++- tk_potential = 281,
++- tk_endcase = 282,
++- tk_inf = 283,
++- tk_exclude = 284,
++- tk_ground = 285,
++- tk_endmodule = 286,
++- tk_begin = 287,
++- tk_enddiscipline = 288,
++- tk_domain = 289,
++- tk_ident = 290,
++- tk_op_shl = 291,
++- tk_string = 292,
++- tk_integer = 293,
++- tk_module = 294,
++- tk_endattribute = 295,
++- tk_end = 296,
++- tk_inout = 297,
++- tk_and = 298,
++- tk_bitwise_equr = 299,
++- tk_default = 300,
++- tk_function = 301,
++- tk_input = 302,
++- tk_beginattribute = 303,
++- tk_endnature = 304,
++- tk_endfunction = 305,
++- tk_flow = 306
++- };
++-#endif
++-
++-
++-#if ! defined VERILOGASTYPE && ! defined VERILOGASTYPE_IS_DECLARED
++-typedef union VERILOGASTYPE
++-{
++-/* Line 2060 of yacc.c */
++-#line 121 "verilogaYacc.y"
++-
++- p_lexval _lexval;
++- p_yaccval _yaccval;
++-
++-
++-/* Line 2060 of yacc.c */
++-#line 122 "verilogaYacc.h"
++-} VERILOGASTYPE;
++-# define VERILOGASTYPE_IS_TRIVIAL 1
++-# define verilogastype VERILOGASTYPE /* obsolescent; will be withdrawn */
++-# define VERILOGASTYPE_IS_DECLARED 1
++-#endif
++-
++-extern VERILOGASTYPE verilogalval;
++-
++-#ifdef YYPARSE_PARAM
++-#if defined __STDC__ || defined __cplusplus
++-int verilogaparse (void *YYPARSE_PARAM);
++-#else
++-int verilogaparse ();
++-#endif
++-#else /* ! YYPARSE_PARAM */
++-#if defined __STDC__ || defined __cplusplus
++-int verilogaparse (void);
++-#else
++-int verilogaparse ();
++-#endif
++-#endif /* ! YYPARSE_PARAM */
++-
++-#endif /* !YY_VERILOGA_VERILOGAYACC_H_INCLUDED */
++diff --git a/admsXml/verilogaYacc.y b/admsXml/verilogaYacc.y
++deleted file mode 100644
++index 59eaf60..0000000
++--- a/admsXml/verilogaYacc.y
+++++ /dev/null
++@@ -1,2315 +0,0 @@
++-/* File automatically created by ./mkgrammar.pl */
++-
++-%define api.prefix "veriloga"
++-%defines
++-
++-%{
++-#define YYDEBUG 1
++-#include "admsVeriloga.h"
++-
++-#define NEWVARIABLE(l) p_variableprototype myvariableprototype=adms_variableprototype_new(gModule,l,(p_adms)gBlockList->data);
++-
++-inline static void Y (p_yaccval myyaccval,p_adms myusrdata) {myyaccval->_usrdata=myusrdata;}
++-inline static p_adms YY(p_yaccval myyaccval) {return myyaccval->_usrdata;}
++-static char* gNatureAccess=NULL;
++-static p_number gNatureAbsTol=NULL;
++-static char* gNatureUnits=NULL;
++-static char* gNatureidt=NULL;
++-static char* gNatureddt=NULL;
++-static p_discipline gDiscipline=NULL;
++-static p_module gModule=NULL;
++-static p_analogfunction gAnalogfunction=NULL;
++-static p_module gInstanceModule=NULL;
++-static p_node gGND=NULL;
++-static p_source gSource=NULL;
++-static p_lexval gLexval=NULL;
++-static p_contribution gContribution=NULL;
++-static admse gVariableType=admse_real;
++-static admse gNodeDirection;
++-int uid=0;
++-static p_slist gVariableDeclarationList=NULL;
++-static p_slist gInstanceVariableList=NULL;
++-static p_slist gTerminalList=NULL;
++-static p_slist gBranchAliasList=NULL;
++-static p_slist gRangeList=NULL;
++-static p_slist gNodeList=NULL;
++-static p_slist gAttributeList=NULL;
++-static p_slist gGlobalAttributeList=NULL;
++-static p_slist gBlockList=NULL;
++-static p_slist gBlockVariableList=NULL;
++-static p_branchalias gBranchAlias=NULL;
++-
++-static void adms_veriloga_message_fatal_continue(const p_lexval mytoken)
++-{
++- adms_message_fatal_continue(("[%s:%i:%i]: at '%s':\n",mytoken->_f,mytoken->_l,mytoken->_c,mytoken->_string))
++-}
++-static void adms_veriloga_message_fatal (const char* message,const p_lexval mytoken)
++-{
++- adms_veriloga_message_fatal_continue(mytoken);
++- adms_message_fatal((message))
++-}
++-/*
++-inline static p_variableprototype variableprototype_recursive_lookup_by_id (p_adms myadms,p_lexval mylexval)
++-{
++- if(myadms==(p_adms)gModule)
++- return adms_module_list_variable_lookup_by_id(gModule,gModule,mylexval,(p_adms)gModule);
++- else if(myadms==(p_adms)gAnalogfunction)
++- return adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,mylexval,(p_adms)gAnalogfunction);
++- else
++- {
++- p_slist l;
++- for(l=((p_block)myadms)->_variable;l;l=l->next)
++- if(!strcmp(((p_variableprototype)l->data)->_lexval->_string,mylexval->_string))
++- return (p_variableprototype)l->data;
++- return variableprototype_recursive_lookup_by_id((p_adms)((p_block)myadms)->_block,mylexval);
++- }
++-}
++-*/
++-inline static p_variable variable_recursive_lookup_by_id (p_adms myadms,p_lexval mylexval)
++-{
++- if(myadms==(p_adms)gModule)
++- {
++- p_variable myvariable=NULL;
++- p_variableprototype myvariableprototype;
++- if((myvariableprototype=adms_module_list_variable_lookup_by_id(gModule,gModule,mylexval,(p_adms)gModule)))
++- {
++- myvariable=adms_variable_new(myvariableprototype);
++- adms_slist_push(&myvariableprototype->_instance,(p_adms)myvariable);
++- }
++- return myvariable;
++- }
++- else if(myadms==(p_adms)gAnalogfunction)
++- {
++- p_variable myvariable=NULL;
++- p_variableprototype myvariableprototype;
++- if((myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,mylexval,(p_adms)gAnalogfunction)))
++- {
++- myvariable=adms_variable_new(myvariableprototype);
++- adms_slist_push(&myvariableprototype->_instance,(p_adms)myvariable);
++- }
++- return myvariable;
++- }
++- else
++- {
++- p_slist l;
++- for(l=((p_block)myadms)->_variable;l;l=l->next)
++- if(!strcmp(((p_variableprototype)l->data)->_lexval->_string,mylexval->_string))
++- {
++- p_variableprototype myvariableprototype=(p_variableprototype)l->data;
++- p_variable myvariable=adms_variable_new(myvariableprototype);
++- adms_slist_push(&myvariableprototype->_instance,(p_adms)myvariable);
++- return myvariable;
++- }
++- return variable_recursive_lookup_by_id((p_adms)((p_block)myadms)->_block,mylexval);
++- }
++-}
++-static p_nature lookup_nature(const char *myname)
++-{
++- p_slist l;
++- for(l=root()->_nature;l;l=l->next)
++- if(!strcmp(((p_nature)l->data)->_name,myname))
++- return (p_nature)l->data;
++- return NULL;
++-}
++-
++-%}
++-
++-%left PREC_IF_THEN
++-%left tk_else
++-
++-%union
++-{
++- p_lexval _lexval;
++- p_yaccval _yaccval;
++-}
++-
++-%token <_lexval> tk_from
++-%token <_lexval> tk_branch
++-%token <_lexval> tk_number
++-%token <_lexval> tk_nature
++-%token <_lexval> tk_aliasparameter
++-%token <_lexval> tk_output
++-%token <_lexval> tk_anystring
++-%token <_lexval> tk_dollar_ident
++-%token <_lexval> tk_or
++-%token <_lexval> tk_aliasparam
++-%token <_lexval> tk_if
++-%token <_lexval> tk_analog
++-%token <_lexval> tk_parameter
++-%token <_lexval> tk_discipline
++-%token <_lexval> tk_char
++-%token <_lexval> tk_anytext
++-%token <_lexval> tk_for
++-%token <_lexval> tk_while
++-%token <_lexval> tk_real
++-%token <_lexval> tk_op_shr
++-%token <_lexval> tk_case
++-%token <_lexval> tk_potential
++-%token <_lexval> tk_endcase
++-%token <_lexval> tk_inf
++-%token <_lexval> tk_exclude
++-%token <_lexval> tk_ground
++-%token <_lexval> tk_endmodule
++-%token <_lexval> tk_begin
++-%token <_lexval> tk_enddiscipline
++-%token <_lexval> tk_domain
++-%token <_lexval> tk_ident
++-%token <_lexval> tk_op_shl
++-%token <_lexval> tk_string
++-%token <_lexval> tk_integer
++-%token <_lexval> tk_module
++-%token <_lexval> tk_endattribute
++-%token <_lexval> tk_else
++-%token <_lexval> tk_end
++-%token <_lexval> tk_inout
++-%token <_lexval> tk_and
++-%token <_lexval> tk_bitwise_equr
++-%token <_lexval> tk_default
++-%token <_lexval> tk_function
++-%token <_lexval> tk_input
++-%token <_lexval> tk_beginattribute
++-%token <_lexval> tk_endnature
++-%token <_lexval> tk_endfunction
++-%token <_lexval> tk_flow
++-
++-%type <_yaccval> R_admsParse
++-%type <_yaccval> R_l.admsParse
++-%type <_yaccval> R_s.admsParse
++-%type <_yaccval> R_discipline_member
++-%type <_yaccval> R_discipline_name
++-%type <_yaccval> R_l.discipline_assignment
++-%type <_yaccval> R_s.discipline_assignment
++-%type <_yaccval> R_discipline.naturename
++-%type <_yaccval> R_nature_member
++-%type <_yaccval> R_l.nature_assignment
++-%type <_yaccval> R_s.nature_assignment
++-%type <_yaccval> R_d.attribute.0
++-%type <_yaccval> R_d.attribute
++-%type <_yaccval> R_l.attribute
++-%type <_yaccval> R_s.attribute
++-%type <_yaccval> R_d.module
++-%type <_yaccval> R_modulebody
++-%type <_yaccval> R_netlist
++-%type <_yaccval> R_l.instance
++-%type <_yaccval> R_d.terminal
++-%type <_yaccval> R_l.terminal.0
++-%type <_yaccval> R_l.terminal
++-%type <_yaccval> R_s.terminal
++-%type <_yaccval> R_l.declaration
++-%type <_yaccval> R_s.declaration.withattribute
++-%type <_yaccval> R_d.attribute.global
++-%type <_yaccval> R_s.declaration
++-%type <_yaccval> R_d.node
++-%type <_yaccval> R_node.type
++-%type <_yaccval> R_l.terminalnode
++-%type <_yaccval> R_l.node
++-%type <_yaccval> R_s.terminalnode
++-%type <_yaccval> R_s.node
++-%type <_yaccval> R_d.branch
++-%type <_yaccval> R_l.branchalias
++-%type <_yaccval> R_s.branchalias
++-%type <_yaccval> R_s.branch
++-%type <_yaccval> R_d.analogfunction
++-%type <_yaccval> R_d.analogfunction.proto
++-%type <_yaccval> R_d.analogfunction.name
++-%type <_yaccval> R_l.analogfunction.declaration
++-%type <_yaccval> R_s.analogfunction.declaration
++-%type <_yaccval> R_l.analogfunction.input.variable
++-%type <_yaccval> R_l.analogfunction.output.variable
++-%type <_yaccval> R_l.analogfunction.inout.variable
++-%type <_yaccval> R_l.analogfunction.integer.variable
++-%type <_yaccval> R_l.analogfunction.real.variable
++-%type <_yaccval> R_variable.type
++-%type <_yaccval> R_d.variable.end
++-%type <_yaccval> R_l.parameter
++-%type <_yaccval> R_l.variable
++-%type <_yaccval> R_d.aliasparameter
++-%type <_yaccval> R_d.aliasparameter.token
++-%type <_yaccval> R_s.parameter
++-%type <_yaccval> R_s.variable
++-%type <_yaccval> R_s.parameter.name
++-%type <_yaccval> R_s.variable.name
++-%type <_yaccval> R_s.parameter.range
++-%type <_yaccval> R_l.interval
++-%type <_yaccval> R_s.interval
++-%type <_yaccval> R_d.interval
++-%type <_yaccval> R_interval.inf
++-%type <_yaccval> R_interval.sup
++-%type <_yaccval> R_analog
++-%type <_yaccval> R_analogcode
++-%type <_yaccval> R_l.expression
++-%type <_yaccval> R_analogcode.atomic
++-%type <_yaccval> R_analogcode.block
++-%type <_yaccval> R_analogcode.block.atevent
++-%type <_yaccval> R_l.analysis
++-%type <_yaccval> R_s.analysis
++-%type <_yaccval> R_d.block
++-%type <_yaccval> R_d.block.begin
++-%type <_yaccval> R_l.blockitem
++-%type <_yaccval> R_d.blockvariable
++-%type <_yaccval> R_l.blockvariable
++-%type <_yaccval> R_s.blockvariable
++-%type <_yaccval> R_d.contribution
++-%type <_yaccval> R_contribution
++-%type <_yaccval> R_source
++-%type <_yaccval> R_d.while
++-%type <_yaccval> R_d.for
++-%type <_yaccval> R_d.case
++-%type <_yaccval> R_l.case.item
++-%type <_yaccval> R_s.case.item
++-%type <_yaccval> R_s.instance
++-%type <_yaccval> R_instance.module.name
++-%type <_yaccval> R_l.instance.parameter
++-%type <_yaccval> R_s.instance.parameter
++-%type <_yaccval> R_s.assignment
++-%type <_yaccval> R_d.conditional
++-%type <_yaccval> R_s.expression
++-%type <_yaccval> R_l.enode
++-%type <_yaccval> R_s.function_expression
++-%type <_yaccval> R_expression
++-%type <_yaccval> R_e.conditional
++-%type <_yaccval> R_e.bitwise_equ
++-%type <_yaccval> R_e.bitwise_xor
++-%type <_yaccval> R_e.bitwise_or
++-%type <_yaccval> R_e.bitwise_and
++-%type <_yaccval> R_e.logical_or
++-%type <_yaccval> R_e.logical_and
++-%type <_yaccval> R_e.comp_equ
++-%type <_yaccval> R_e.comp
++-%type <_yaccval> R_e.bitwise_shift
++-%type <_yaccval> R_e.arithm_add
++-%type <_yaccval> R_e.arithm_mult
++-%type <_yaccval> R_e.unary
++-%type <_yaccval> R_e.atomic
++-
++-%%
++-R_admsParse
++- : R_l.admsParse
++- {
++- }
++- ;
++-R_l.admsParse
++- : R_s.admsParse
++- {
++- }
++- | R_l.admsParse R_s.admsParse
++- {
++- }
++- ;
++-R_s.admsParse
++- : R_d.module
++- {
++- }
++- | R_discipline_member
++- {
++- }
++- | R_nature_member
++- {
++- }
++- ;
++-R_discipline_member
++- : tk_discipline R_discipline_name R_l.discipline_assignment tk_enddiscipline
++- {
++- adms_admsmain_list_discipline_prepend_once_or_abort(root(),gDiscipline);
++- gDiscipline=NULL;
++- }
++- ;
++-R_discipline_name
++- : tk_ident
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- gDiscipline=adms_discipline_new(mylexval1);
++- }
++- ;
++-R_l.discipline_assignment
++- : R_s.discipline_assignment
++- {
++- }
++- | R_l.discipline_assignment R_s.discipline_assignment
++- {
++- }
++- ;
++-R_s.discipline_assignment
++- : tk_potential R_discipline.naturename ';'
++- {
++- gDiscipline->_potential=(p_nature)YY($2);
++- }
++- | tk_flow R_discipline.naturename ';'
++- {
++- gDiscipline->_flow=(p_nature)YY($2);
++- }
++- | tk_domain tk_ident ';'
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- if(!strcmp(mylexval2,"discrete"))
++- gDiscipline->_domain=admse_discrete;
++- else if(!strcmp(mylexval2,"continuous"))
++- gDiscipline->_domain=admse_continuous;
++- else
++- adms_veriloga_message_fatal("domain: bad value given - should be either 'discrete' or 'continuous'\n",$2);
++- }
++- ;
++-R_discipline.naturename
++- : tk_ident
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- p_nature mynature=lookup_nature(mylexval1);
++- if(!mynature)
++- adms_veriloga_message_fatal("can't find nature definition\n",$1);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mynature);
++- }
++- ;
++-R_nature_member
++- : tk_nature tk_ident R_l.nature_assignment tk_endnature
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- p_nature mynature=NULL;
++- if(gNatureAccess)
++- mynature=adms_admsmain_list_nature_prepend_by_id_once_or_abort(root(),gNatureAccess);
++- else
++- adms_veriloga_message_fatal("attribute 'access' in nature definition not found\n",$2);
++- adms_nature_valueto_name(mynature,mylexval2);
++- if(gNatureidt)
++- adms_nature_valueto_idt_name(mynature,gNatureidt);
++- if(gNatureddt)
++- adms_nature_valueto_ddt_name(mynature,gNatureddt);
++- if(gNatureUnits)
++- mynature->_units=gNatureUnits;
++- if(gNatureAbsTol)
++- mynature->_abstol=gNatureAbsTol;
++- gNatureAccess=NULL;
++- gNatureAbsTol=NULL;
++- gNatureUnits=NULL;
++- gNatureidt=NULL;
++- gNatureddt=NULL;
++- }
++- ;
++-R_l.nature_assignment
++- : R_s.nature_assignment
++- {
++- }
++- | R_l.nature_assignment R_s.nature_assignment
++- {
++- }
++- ;
++-R_s.nature_assignment
++- : tk_ident '=' tk_number ';'
++- {
++- if(!strcmp($1->_string,"abstol"))
++- {
++- if(gNatureAbsTol)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",$1);
++- gNatureAbsTol=adms_number_new($3);
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",$1);
++- }
++- | tk_ident '=' tk_number tk_ident ';'
++- {
++- char* mylexval4=((p_lexval)$4)->_string;
++- admse myunit=admse_1;
++- if(!strcmp($1->_string,"abstol"))
++- {
++- if(gNatureAbsTol)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",$1);
++- gNatureAbsTol=adms_number_new($3);
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",$1);
++- if(0) {}
++- else if(!strcmp(mylexval4,"E")) myunit=admse_E;
++- else if(!strcmp(mylexval4,"P")) myunit=admse_P;
++- else if(!strcmp(mylexval4,"T")) myunit=admse_T;
++- else if(!strcmp(mylexval4,"G")) myunit=admse_G;
++- else if(!strcmp(mylexval4,"M")) myunit=admse_M;
++- else if(!strcmp(mylexval4,"k")) myunit=admse_k;
++- else if(!strcmp(mylexval4,"h")) myunit=admse_h;
++- else if(!strcmp(mylexval4,"D")) myunit=admse_D;
++- else if(!strcmp(mylexval4,"d")) myunit=admse_d;
++- else if(!strcmp(mylexval4,"c")) myunit=admse_c;
++- else if(!strcmp(mylexval4,"m")) myunit=admse_m;
++- else if(!strcmp(mylexval4,"u")) myunit=admse_u;
++- else if(!strcmp(mylexval4,"n")) myunit=admse_n;
++- else if(!strcmp(mylexval4,"A")) myunit=admse_A;
++- else if(!strcmp(mylexval4,"p")) myunit=admse_p;
++- else if(!strcmp(mylexval4,"f")) myunit=admse_f;
++- else if(!strcmp(mylexval4,"a")) myunit=admse_a;
++- else
++- adms_veriloga_message_fatal("can not convert symbol to valid unit\n",$4);
++- gNatureAbsTol->_scalingunit=myunit;
++- }
++- | tk_ident '=' tk_anystring ';'
++- {
++- char* mylexval3=((p_lexval)$3)->_string;
++- if(!strcmp($1->_string,"units"))
++- {
++- if(gNatureUnits)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",$1);
++- gNatureUnits=adms_kclone(mylexval3);
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",$1);
++- }
++- | tk_ident '=' tk_ident ';'
++- {
++- char* mylexval3=((p_lexval)$3)->_string;
++- if(!strcmp($1->_string,"access"))
++- {
++- if(gNatureAccess)
++- adms_veriloga_message_fatal("nature attribute defined more than once\n",$1);
++- gNatureAccess=adms_kclone(mylexval3);
++- }
++- else if(!strcmp($1->_string,"idt_nature"))
++- {
++- if(gNatureidt)
++- adms_veriloga_message_fatal("idt_nature attribute defined more than once\n",$1);
++- gNatureidt=adms_kclone(mylexval3);
++- }
++- else if(!strcmp($1->_string,"ddt_nature"))
++- {
++- if(gNatureddt)
++- adms_veriloga_message_fatal("ddt_nature attribute defined more than once\n",$1);
++- gNatureddt=adms_kclone(mylexval3);
++- }
++- else
++- adms_veriloga_message_fatal("unknown nature attribute\n",$1);
++- }
++- ;
++-R_d.attribute.0
++- :
++- {
++- }
++- | R_d.attribute
++- {
++- }
++- ;
++-R_d.attribute
++- : tk_beginattribute R_l.attribute tk_endattribute
++- {
++- }
++- | tk_beginattribute tk_anytext
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- p_attribute myattribute=adms_attribute_new("ibm");
++- p_admst myconstant=adms_admst_newks(adms_kclone(mylexval2));
++- myattribute->_value=(p_adms)myconstant;
++- adms_slist_push(&gAttributeList,(p_adms)myattribute);
++- }
++- | tk_beginattribute tk_endattribute
++- {
++- }
++- ;
++-R_l.attribute
++- : R_s.attribute
++- {
++- }
++- | R_l.attribute R_s.attribute
++- {
++- }
++- ;
++-R_s.attribute
++- : tk_ident '=' tk_anystring
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- char* mylexval3=((p_lexval)$3)->_string;
++- p_attribute myattribute=adms_attribute_new(mylexval1);
++- p_admst myconstant=adms_admst_newks(adms_kclone(mylexval3));
++- myattribute->_value=(p_adms)myconstant;
++- adms_slist_push(&gAttributeList,(p_adms)myattribute);
++- }
++- ;
++-R_d.module
++- : R_d.attribute.0 tk_module tk_ident
++- {
++- char* mylexval3=((p_lexval)$3)->_string;
++- p_slist l;
++- p_nodealias mynodealias;
++- gModule=adms_admsmain_list_module_prepend_by_id_once_or_abort(root(),mylexval3);
++- adms_slist_push(&gBlockList,(p_adms)gModule);
++- mynodealias=adms_module_list_nodealias_prepend_by_id_once_or_abort(gModule,gModule,"0");
++- gGND=adms_module_list_node_prepend_by_id_once_or_abort(gModule,gModule,"GND");
++- mynodealias->_node=gGND;
++- gGND->_location=admse_ground;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&gModule->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- }
++- R_d.terminal R_modulebody tk_endmodule
++- {
++- adms_slist_pull(&gBlockList);
++- adms_slist_inreverse(&gModule->_assignment);
++- }
++- ;
++-R_modulebody
++- :
++- {
++- }
++- | R_l.declaration
++- {
++- }
++- | R_netlist
++- {
++- }
++- | R_l.declaration R_netlist
++- {
++- }
++- ;
++-R_netlist
++- : R_analog
++- {
++- }
++- | R_l.instance
++- {
++- }
++- | R_l.instance R_analog
++- {
++- }
++- | R_analog R_l.instance
++- {
++- }
++- | R_l.instance R_analog R_l.instance
++- {
++- }
++- ;
++-R_l.instance
++- : R_s.instance
++- {
++- }
++- | R_l.instance R_s.instance
++- {
++- }
++- ;
++-R_d.terminal
++- : '(' R_l.terminal.0 ')' R_d.attribute.0 ';'
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&gModule->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- }
++- ;
++-R_l.terminal.0
++- :
++- {
++- }
++- | R_l.terminal
++- {
++- }
++- ;
++-R_l.terminal
++- : R_s.terminal
++- {
++- }
++- | R_l.terminal ',' R_s.terminal
++- {
++- }
++- ;
++-R_s.terminal
++- : tk_ident
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- p_nodealias mynodealias=adms_module_list_nodealias_prepend_by_id_once_or_abort(gModule,gModule,mylexval1);
++- p_node mynode=adms_module_list_node_prepend_by_id_once_or_abort(gModule,gModule,mylexval1);
++- mynodealias->_node=mynode;
++- mynode->_location=admse_external;
++- }
++- ;
++-R_l.declaration
++- : R_s.declaration.withattribute
++- {
++- }
++- | R_l.declaration R_s.declaration.withattribute
++- {
++- }
++- ;
++-R_s.declaration.withattribute
++- : R_s.declaration
++- {
++- }
++- | R_d.attribute.global R_s.declaration
++- {
++- adms_slist_free(gGlobalAttributeList); gGlobalAttributeList=NULL;
++- }
++- ;
++-R_d.attribute.global
++- : R_d.attribute
++- {
++- gGlobalAttributeList=gAttributeList;
++- gAttributeList=NULL;
++- }
++- ;
++-R_s.declaration
++- : R_d.node
++- {
++- }
++- | R_d.branch
++- {
++- }
++- | tk_parameter R_variable.type R_l.parameter R_d.variable.end
++- {
++- }
++- | tk_parameter R_l.parameter R_d.variable.end
++- {
++- }
++- | R_variable.type R_l.variable R_d.variable.end
++- {
++- }
++- | R_d.aliasparameter
++- {
++- }
++- | R_d.analogfunction
++- {
++- }
++- | ';'
++- {
++- }
++- ;
++-R_d.node
++- : R_node.type R_l.terminalnode ';'
++- {
++- p_slist l;
++- for(l=gTerminalList;l;l=l->next)
++- ((p_node)l->data)->_direction=gNodeDirection;
++- adms_slist_free(gTerminalList); gTerminalList=NULL;
++- }
++- | tk_ground R_l.node ';'
++- {
++- p_slist l;
++- for(l=gNodeList;l;l=l->next)
++- ((p_node)l->data)->_location=admse_ground;
++- adms_slist_free(gNodeList); gNodeList=NULL;
++- }
++- | tk_ident R_l.node ';'
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- char* mydisciplinename=mylexval1;
++- p_discipline mydiscipline=adms_admsmain_list_discipline_lookup_by_id(root(),mydisciplinename);
++- p_slist l;
++- for(l=gNodeList;l;l=l->next)
++- ((p_node)l->data)->_discipline=mydiscipline;
++- adms_slist_free(gNodeList); gNodeList=NULL;
++- }
++- ;
++-R_node.type
++- : tk_input
++- {
++- gNodeDirection=admse_input;
++- }
++- | tk_output
++- {
++- gNodeDirection=admse_output;
++- }
++- | tk_inout
++- {
++- gNodeDirection=admse_inout;
++- }
++- ;
++-R_l.terminalnode
++- : R_s.terminalnode
++- {
++- }
++- | R_l.terminalnode ',' R_s.terminalnode
++- {
++- }
++- ;
++-R_l.node
++- : R_s.node
++- {
++- }
++- | R_l.node ',' R_s.node
++- {
++- }
++- ;
++-R_s.terminalnode
++- : tk_ident R_d.attribute.0
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- p_slist l;
++- p_node mynode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1);
++- if(!mynode)
++- adms_veriloga_message_fatal("terminal not found\n",$1);
++- if(mynode->_location!=admse_external)
++- adms_veriloga_message_fatal("node not a terminal\n",$1);
++- adms_slist_push(&gTerminalList,(p_adms)mynode);
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- }
++- ;
++-R_s.node
++- : tk_ident R_d.attribute.0
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- p_slist l;
++- p_node mynode=adms_module_list_node_prepend_by_id_once_or_ignore(gModule,gModule,mylexval1);
++- adms_slist_push(&gNodeList,(p_adms)mynode);
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mynode->_attribute,l->data);
++- }
++- ;
++-R_d.branch
++- : tk_branch R_s.branch ';'
++- {
++- }
++- ;
++-R_l.branchalias
++- : R_s.branchalias
++- {
++- }
++- | R_l.branchalias ',' R_s.branchalias
++- {
++- }
++- ;
++-R_s.branchalias
++- : tk_ident
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- adms_slist_push(&gBranchAliasList,(p_adms)mylexval1);
++- }
++- ;
++-R_s.branch
++- : '(' tk_ident ',' tk_ident ')' R_l.branchalias
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- char* mylexval4=((p_lexval)$4)->_string;
++- p_slist l;
++- p_branch mybranch;
++- p_node pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval2);
++- p_node nnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval4);
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,pnode,nnode);
++- if(!pnode)
++- adms_veriloga_message_fatal("node never declared\n",$2);
++- if(!nnode)
++- adms_veriloga_message_fatal("node never declared\n",$4);
++- for(l=gBranchAliasList;l;l=l->next)
++- {
++- char*aliasname=(char*)l->data;
++- p_branchalias mybranchalias;
++- mybranchalias=adms_module_list_branchalias_prepend_by_id_once_or_abort(gModule,gModule,aliasname);
++- if(mybranchalias) mybranchalias->_branch=mybranch;
++- }
++- adms_slist_free(gBranchAliasList);
++- gBranchAliasList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mybranch->_attribute,l->data);
++- }
++- | '(' tk_ident ')' R_l.branchalias
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- p_slist l;
++- p_branch mybranch;
++- p_node pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval2);
++- if(!pnode)
++- adms_veriloga_message_fatal("node never declared\n",$2);
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,pnode,gGND);
++- for(l=gBranchAliasList;l;l=l->next)
++- {
++- char*aliasname=(char*)l->data;
++- p_branchalias mybranchalias;
++- mybranchalias=adms_module_list_branchalias_prepend_by_id_once_or_abort(gModule,gModule,aliasname);
++- if(mybranchalias) mybranchalias->_branch=mybranch;
++- }
++- adms_slist_free(gBranchAliasList);
++- gBranchAliasList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&mybranch->_attribute,l->data);
++- }
++- ;
++-R_d.analogfunction
++- : R_d.analogfunction.proto R_l.analogfunction.declaration R_analogcode.block tk_endfunction
++- {
++- adms_slist_pull(&gBlockList);
++- gAnalogfunction->_tree=YY($3);
++- gAnalogfunction=NULL;
++- }
++- ;
++-R_d.analogfunction.proto
++- : tk_analog tk_function R_d.analogfunction.name ';'
++- {
++- NEWVARIABLE(gAnalogfunction->_lexval)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- }
++- | tk_analog tk_function tk_integer R_d.analogfunction.name ';'
++- {
++- NEWVARIABLE(gAnalogfunction->_lexval)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_type=admse_integer;
++- gAnalogfunction->_type=admse_integer;
++- }
++- | tk_analog tk_function tk_real R_d.analogfunction.name ';'
++- {
++- NEWVARIABLE(gAnalogfunction->_lexval)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- }
++- ;
++-R_d.analogfunction.name
++- : tk_ident
++- {
++- p_slist l;
++- gAnalogfunction=adms_analogfunction_new(gModule,$1);
++- adms_slist_push(&gBlockList,(p_adms)gAnalogfunction);
++- adms_module_list_analogfunction_prepend_once_or_abort(gModule,gAnalogfunction);
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&gAnalogfunction->_attribute,l->data);
++- }
++- ;
++-R_l.analogfunction.declaration
++- : R_s.analogfunction.declaration
++- {
++- }
++- | R_l.analogfunction.declaration R_s.analogfunction.declaration
++- {
++- }
++- ;
++-R_s.analogfunction.declaration
++- : tk_input R_l.analogfunction.input.variable ';'
++- {
++- }
++- | tk_output R_l.analogfunction.output.variable ';'
++- {
++- }
++- | tk_inout R_l.analogfunction.inout.variable ';'
++- {
++- }
++- | tk_integer R_l.analogfunction.integer.variable ';'
++- {
++- }
++- | tk_real R_l.analogfunction.real.variable ';'
++- {
++- }
++- ;
++-R_l.analogfunction.input.variable
++- : tk_ident
++- {
++- NEWVARIABLE($1)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- | R_l.analogfunction.input.variable ',' tk_ident
++- {
++- NEWVARIABLE($3)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- ;
++-R_l.analogfunction.output.variable
++- : tk_ident
++- {
++- NEWVARIABLE($1)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- | R_l.analogfunction.output.variable ',' tk_ident
++- {
++- NEWVARIABLE($3)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- ;
++-R_l.analogfunction.inout.variable
++- : tk_ident
++- {
++- NEWVARIABLE($1)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- | R_l.analogfunction.inout.variable ',' tk_ident
++- {
++- NEWVARIABLE($3)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_input=admse_yes;
++- myvariableprototype->_output=admse_yes;
++- myvariableprototype->_parametertype=admse_analogfunction;
++- }
++- ;
++-R_l.analogfunction.integer.variable
++- : tk_ident
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,$1,(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_integer;
++- else
++- {
++- NEWVARIABLE($1)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_integer;
++- }
++- }
++- | R_l.analogfunction.integer.variable ',' tk_ident
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,$3,(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_integer;
++- else
++- {
++- NEWVARIABLE($3)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_integer;
++- }
++- }
++- ;
++-R_l.analogfunction.real.variable
++- : tk_ident
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,$1,(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_real;
++- else
++- {
++- NEWVARIABLE($1)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_real;
++- }
++- }
++- | R_l.analogfunction.real.variable ',' tk_ident
++- {
++- p_variableprototype myvariableprototype=adms_analogfunction_list_variable_lookup_by_id(gAnalogfunction,gModule,$3,(p_adms)gAnalogfunction);
++- if(myvariableprototype)
++- myvariableprototype->_type=admse_real;
++- else
++- {
++- NEWVARIABLE($3)
++- adms_analogfunction_list_variable_prepend_once_or_abort(gAnalogfunction,myvariableprototype);
++- myvariableprototype->_type=admse_real;
++- }
++- }
++- ;
++-R_variable.type
++- : tk_integer R_d.attribute.0
++- {
++- gVariableType=admse_integer;
++- adms_slist_concat(&gGlobalAttributeList,gAttributeList);
++- gAttributeList=NULL;
++- }
++- | tk_real R_d.attribute.0
++- {
++- gVariableType=admse_real;
++- adms_slist_concat(&gGlobalAttributeList,gAttributeList);
++- gAttributeList=NULL;
++- }
++- | tk_string R_d.attribute.0
++- {
++- gVariableType=admse_string;
++- adms_slist_concat(&gGlobalAttributeList,gAttributeList);
++- gAttributeList=NULL;
++- }
++- ;
++-R_d.variable.end
++- : ';'
++- {
++- p_slist l;
++- for(l=gVariableDeclarationList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=gVariableType;
++- adms_slist_free(gVariableDeclarationList); gVariableDeclarationList=NULL;
++- }
++- ;
++-R_l.parameter
++- : R_s.parameter
++- {
++- }
++- | R_l.parameter ',' R_s.parameter
++- {
++- }
++- ;
++-R_l.variable
++- : R_s.variable
++- {
++- }
++- | R_l.variable ',' R_s.variable
++- {
++- }
++- ;
++-R_d.aliasparameter
++- : R_d.aliasparameter.token tk_ident '=' tk_ident R_d.attribute.0 ';'
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- p_slist l;
++- p_variableprototype myvariableprototype=adms_module_list_variable_lookup_by_id(gModule,gModule,$4,(p_adms)gModule);
++- if(!myvariableprototype)
++- adms_veriloga_message_fatal("variable never declared\n",$4);
++- adms_variableprototype_list_alias_prepend_once_or_abort(myvariableprototype,adms_kclone(mylexval2));
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myvariableprototype->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&myvariableprototype->_attribute,l->data);
++- }
++- ;
++-R_d.aliasparameter.token
++- : tk_aliasparameter
++- {
++- }
++- | tk_aliasparam
++- {
++- }
++- ;
++-R_s.parameter
++- : R_s.parameter.name R_d.attribute.0
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- }
++- ;
++-R_s.variable
++- : R_s.variable.name R_d.attribute.0
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- for(l=gGlobalAttributeList;l;l=l->next)
++- adms_slist_push(&((p_variableprototype)gVariableDeclarationList->data)->_attribute,l->data);
++- }
++- ;
++-R_s.parameter.name
++- : R_s.variable.name '=' R_s.expression R_s.parameter.range
++- {
++- ((p_variableprototype)gVariableDeclarationList->data)->_input=admse_yes;
++- ((p_variableprototype)gVariableDeclarationList->data)->_default=((p_expression)YY($3));
++- ((p_variableprototype)gVariableDeclarationList->data)->_range=adms_slist_reverse(gRangeList);
++- gRangeList=NULL;
++- }
++- | R_s.variable.name '=' '{' R_l.expression '}' R_s.parameter.range
++- {
++- p_slist myArgs=(p_slist)YY($4);
++- adms_slist_inreverse(&myArgs);
++- ((p_variableprototype)gVariableDeclarationList->data)->_input=admse_yes;
++- ((p_variableprototype)gVariableDeclarationList->data)->_default=((p_expression)myArgs->data);
++- ((p_variableprototype)gVariableDeclarationList->data)->_arraydefault=myArgs;
++- ((p_variableprototype)gVariableDeclarationList->data)->_range=adms_slist_reverse(gRangeList);
++- gRangeList=NULL;
++- }
++- ;
++-R_s.variable.name
++- : tk_ident
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- NEWVARIABLE($1)
++- if(adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1))
++- adms_veriloga_message_fatal("variable already defined as node\n",$1);
++- adms_module_list_variable_prepend_once_or_abort(gModule,myvariableprototype);
++- adms_slist_push(&gVariableDeclarationList,(p_adms)myvariableprototype);
++- }
++- | tk_ident '[' tk_number ':' tk_number ']'
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- NEWVARIABLE($1)
++- if(adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1))
++- adms_veriloga_message_fatal("variable already defined as node\n",$1);
++- adms_module_list_variable_prepend_once_or_abort(gModule,myvariableprototype);
++- adms_slist_push(&gVariableDeclarationList,(p_adms)myvariableprototype);
++- myvariableprototype->_sizetype=admse_array;
++- myvariableprototype->_minsize=adms_number_new($3);
++- myvariableprototype->_maxsize=adms_number_new($5);
++- }
++- ;
++-R_s.parameter.range
++- :
++- {
++- }
++- | R_l.interval
++- {
++- }
++- ;
++-R_l.interval
++- : R_s.interval
++- {
++- }
++- | R_l.interval R_s.interval
++- {
++- }
++- ;
++-R_s.interval
++- : tk_from R_d.interval
++- {
++- if(((p_range)YY($2))->_infboundtype==admse_range_bound_value)
++- ((p_range)YY($2))->_type=admse_include_value;
++- else
++- ((p_range)YY($2))->_type=admse_include;
++- adms_slist_push(&gRangeList,YY($2));
++- }
++- | tk_exclude R_d.interval
++- {
++- if(((p_range)YY($2))->_infboundtype==admse_range_bound_value)
++- ((p_range)YY($2))->_type=admse_exclude_value;
++- else
++- ((p_range)YY($2))->_type=admse_exclude;
++- adms_slist_push(&gRangeList,YY($2));
++- }
++- ;
++-R_d.interval
++- : '(' R_interval.inf ':' R_interval.sup ')'
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY($2),(p_expression)YY($4));
++- $$=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_exclude;
++- myrange->_supboundtype=admse_range_bound_exclude;
++- Y($$,(p_adms)myrange);
++- }
++- | '(' R_interval.inf ':' R_interval.sup ']'
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY($2),(p_expression)YY($4));
++- $$=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_exclude;
++- myrange->_supboundtype=admse_range_bound_include;
++- Y($$,(p_adms)myrange);
++- }
++- | '[' R_interval.inf ':' R_interval.sup ')'
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY($2),(p_expression)YY($4));
++- $$=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_include;
++- myrange->_supboundtype=admse_range_bound_exclude;
++- Y($$,(p_adms)myrange);
++- }
++- | '[' R_interval.inf ':' R_interval.sup ']'
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY($2),(p_expression)YY($4));
++- $$=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_include;
++- myrange->_supboundtype=admse_range_bound_include;
++- Y($$,(p_adms)myrange);
++- }
++- | R_s.expression
++- {
++- p_range myrange=adms_module_list_range_prepend_by_id_once_or_abort(gModule,gModule,(p_expression)YY($1),(p_expression)YY($1));
++- $$=adms_yaccval_new("unknown source file");
++- myrange->_infboundtype=admse_range_bound_value;
++- myrange->_supboundtype=admse_range_bound_value;
++- Y($$,(p_adms)myrange);
++- }
++- ;
++-R_interval.inf
++- : R_s.expression
++- {
++- $$=$1;
++- }
++- | '-' tk_inf
++- {
++- p_number mynumber=adms_number_new($2);
++- p_expression myexpression=adms_expression_new(gModule,(p_adms)mynumber);
++- mynumber->_lexval->_string=adms_kclone("-inf");
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- $$=adms_yaccval_new("unknown source file");
++- myexpression->_infinity=admse_minus;
++- myexpression->_hasspecialnumber=adms_kclone("YES");
++- Y($$,(p_adms)myexpression);
++- }
++- ;
++-R_interval.sup
++- : R_s.expression
++- {
++- $$=$1;
++- }
++- | tk_inf
++- {
++- p_number mynumber=adms_number_new($1);
++- p_expression myexpression=adms_expression_new(gModule,(p_adms)mynumber);
++- mynumber->_lexval->_string=adms_kclone("+inf");
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- $$=adms_yaccval_new("unknown source file");
++- myexpression->_infinity=admse_plus;
++- myexpression->_hasspecialnumber=adms_kclone("YES");
++- Y($$,(p_adms)myexpression);
++- }
++- | '+' tk_inf
++- {
++- p_number mynumber=adms_number_new($2);
++- p_expression myexpression=adms_expression_new(gModule,(p_adms)mynumber);
++- mynumber->_lexval->_string=adms_kclone("+inf");
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- $$=adms_yaccval_new("unknown source file");
++- myexpression->_infinity=admse_plus;
++- myexpression->_hasspecialnumber=adms_kclone("YES");
++- Y($$,(p_adms)myexpression);
++- }
++- ;
++-R_analog
++- : tk_analog R_analogcode
++- {
++- gModule->_analog=adms_analog_new(YY($2));
++- }
++- ;
++-R_analogcode
++- : R_analogcode.atomic
++- {
++- $$=$1;
++- }
++- | R_analogcode.block
++- {
++- $$=$1;
++- }
++- ;
++-R_l.expression
++- : R_s.expression
++- {
++- p_slist myArgs=NULL;
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_push(&myArgs,YY($1));
++- Y($$,(p_adms)myArgs);
++- }
++- | R_l.expression ',' R_s.expression
++- {
++- p_slist myArgs=(p_slist)YY($1);
++- $$=$1;
++- adms_slist_push(&myArgs,YY($3));
++- Y($$,(p_adms)myArgs);
++- }
++- ;
++-R_analogcode.atomic
++- : R_d.attribute.0 R_d.blockvariable
++- {
++- p_slist l;
++- p_slist lv;
++- for(l=gAttributeList;l;l=l->next)
++- for(lv=((p_blockvariable)YY($2))->_variable;lv;lv=lv->next)
++- adms_slist_push(&((p_variableprototype)lv->data)->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- $$=$2;
++- }
++- | R_d.contribution
++- {
++- $$=$1;
++- }
++- | R_s.assignment ';'
++- {
++- $$=$1;
++- }
++- | R_d.conditional
++- {
++- $$=$1;
++- }
++- | R_d.while
++- {
++- $$=$1;
++- }
++- | R_d.case
++- {
++- $$=$1;
++- }
++- | R_d.for
++- {
++- $$=$1;
++- }
++- | tk_dollar_ident '(' R_l.expression ')' ';'
++- {
++- p_function myfunction=adms_function_new($1,uid++);
++- p_slist myArgs=(p_slist)YY($3);
++- p_callfunction mycallfunction=adms_callfunction_new(gModule,myfunction);
++- adms_slist_push(&gModule->_callfunction,(p_adms)mycallfunction);
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&myArgs);
++- myfunction->_arguments=myArgs;
++- Y($$,(p_adms)mycallfunction);
++- }
++- | tk_dollar_ident '(' ')' ';'
++- {
++- p_function myfunction=adms_function_new($1,uid++);
++- p_callfunction mycallfunction=adms_callfunction_new(gModule,myfunction);
++- adms_slist_push(&gModule->_callfunction,(p_adms)mycallfunction);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mycallfunction);
++- }
++- | tk_dollar_ident ';'
++- {
++- p_function myfunction=adms_function_new($1,uid++);
++- p_callfunction mycallfunction=adms_callfunction_new(gModule,myfunction);
++- adms_slist_push(&gModule->_callfunction,(p_adms)mycallfunction);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mycallfunction);
++- }
++- | ';'
++- {
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)adms_nilled_new(gModule));
++- }
++- ;
++-R_analogcode.block
++- : R_d.block
++- {
++- $$=$1;
++- }
++- | R_analogcode.block.atevent R_d.block
++- {
++- $$=$2;
++- adms_lexval_free(((p_block)YY($$))->_lexval);
++- ((p_block)YY($$))->_lexval=(p_lexval)YY($1);
++- }
++- ;
++-R_analogcode.block.atevent
++- : '@' '(' tk_ident '(' R_l.analysis ')' ')'
++- {
++- adms_veriloga_message_fatal("@ control not supported\n",$3);
++- }
++- | '@' tk_ident
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- char* mypartitionning=adms_kclone(mylexval2);
++- if(strcmp(mypartitionning,"initial_model")
++- && strcmp(mypartitionning,"initial_instance")
++- && strcmp(mypartitionning,"noise")
++- && strcmp(mypartitionning,"initial_step")
++- && strcmp(mypartitionning,"final_step"))
++- adms_veriloga_message_fatal(" @() control not supported\n",$2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)$2);
++- }
++- | '@' '(' tk_ident ')'
++- {
++- char* mylexval3=((p_lexval)$3)->_string;
++- char* mypartitionning=adms_kclone(mylexval3);
++- if(strcmp(mypartitionning,"initial_model")
++- && strcmp(mypartitionning,"initial_instance")
++- && strcmp(mypartitionning,"noise")
++- && strcmp(mypartitionning,"initial_step")
++- && strcmp(mypartitionning,"final_step"))
++- adms_veriloga_message_fatal(" @() control not supported\n",$3);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)$3);
++- }
++- ;
++-R_l.analysis
++- : R_s.analysis
++- {
++- }
++- | R_l.analysis ',' R_s.analysis
++- {
++- }
++- ;
++-R_s.analysis
++- : tk_anystring
++- {
++- }
++- ;
++-R_d.block
++- : R_d.block.begin tk_end
++- {
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- }
++- | R_d.block.begin ':' tk_ident tk_end
++- {
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- ((p_block)YY($$))->_lexval->_string=$3->_string;
++- }
++- | R_d.block.begin R_l.blockitem tk_end
++- {
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- }
++- | R_d.block.begin ':' tk_ident R_l.blockitem tk_end
++- {
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,gBlockList->data);
++- adms_slist_pull(&gBlockList);
++- ((p_block)YY($$))->_lexval->_string=$3->_string;
++- }
++- ;
++-R_d.block.begin
++- : R_d.attribute.0 tk_begin
++- {
++- p_slist l;
++- p_block myblock=adms_block_new(gModule,$2,gBlockList?((p_block)gBlockList->data):NULL,NULL);
++- $$=adms_yaccval_new("unknown source file");
++- myblock->_lexval->_string=adms_kclone("");
++- adms_slist_push(&gBlockList,(p_adms)myblock);
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myblock->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- adms_slist_push(&gModule->_block,gBlockList->data);
++- }
++- ;
++-R_l.blockitem
++- : R_analogcode
++- {
++- adms_slist_push(&((p_block)gBlockList->data)->_item,YY($1));
++- }
++- | R_l.blockitem R_analogcode
++- {
++- adms_slist_push(&((p_block)gBlockList->data)->_item,YY($2));
++- }
++- ;
++-R_d.blockvariable
++- : tk_integer R_l.blockvariable ';'
++- {
++- p_slist l;
++- p_blockvariable myblockvariable=adms_blockvariable_new(((p_block)gBlockList->data));
++- adms_slist_push(&gModule->_blockvariable,(p_adms)myblockvariable);
++- for(l=gBlockVariableList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=admse_integer;
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&gBlockVariableList);
++- myblockvariable->_variable=gBlockVariableList;
++- gBlockVariableList=NULL;
++- Y($$,(p_adms)myblockvariable);
++- }
++- | tk_real R_l.blockvariable ';'
++- {
++- p_slist l;
++- p_blockvariable myblockvariable=adms_blockvariable_new(((p_block)gBlockList->data));
++- adms_slist_push(&gModule->_blockvariable,(p_adms)myblockvariable);
++- for(l=gBlockVariableList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=admse_real;
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&gBlockVariableList);
++- myblockvariable->_variable=gBlockVariableList;
++- gBlockVariableList=NULL;
++- Y($$,(p_adms)myblockvariable);
++- }
++- | tk_string R_l.blockvariable ';'
++- {
++- p_slist l;
++- p_blockvariable myblockvariable=adms_blockvariable_new(((p_block)gBlockList->data));
++- adms_slist_push(&gModule->_blockvariable,(p_adms)myblockvariable);
++- for(l=gBlockVariableList;l;l=l->next)
++- ((p_variableprototype)l->data)->_type=admse_string;
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&gBlockVariableList);
++- myblockvariable->_variable=gBlockVariableList;
++- gBlockVariableList=NULL;
++- Y($$,(p_adms)myblockvariable);
++- }
++- ;
++-R_l.blockvariable
++- : R_s.blockvariable
++- {
++- }
++- | R_l.blockvariable ',' R_s.blockvariable
++- {
++- }
++- ;
++-R_s.blockvariable
++- : tk_ident
++- {
++- NEWVARIABLE($1)
++- adms_block_list_variable_prepend_once_or_abort(((p_block)gBlockList->data),myvariableprototype);
++- adms_slist_push(&gBlockVariableList,(p_adms)myvariableprototype);
++- }
++- | tk_ident '[' tk_number ':' tk_number ']'
++- {
++- NEWVARIABLE($1)
++- adms_block_list_variable_prepend_once_or_abort(((p_block)gBlockList->data),myvariableprototype);
++- adms_slist_push(&gVariableDeclarationList,(p_adms)myvariableprototype);
++- myvariableprototype->_sizetype=admse_array;
++- myvariableprototype->_minsize=adms_number_new($3);
++- myvariableprototype->_maxsize=adms_number_new($5);
++- }
++- ;
++-R_d.contribution
++- : R_contribution R_d.attribute.0 ';'
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&gContribution->_attribute,l->data);
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- gContribution=NULL;
++- }
++- ;
++-R_contribution
++- : R_source '<' '+' R_s.expression
++- {
++- p_source mysource=(p_source)YY($1);
++- $$=adms_yaccval_new("unknown source file");
++- gContribution=adms_contribution_new(gModule,mysource,(p_expression)YY($4),gLexval);
++- adms_slist_push(&gModule->_contribution,(p_adms)gContribution);
++- Y($$,(p_adms)gContribution);
++- gContribution->_branchalias=gBranchAlias;
++- gBranchAlias=NULL;
++- }
++- ;
++-R_source
++- : tk_ident '(' tk_ident ',' tk_ident ')'
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- char* mylexval3=((p_lexval)$3)->_string;
++- char* mylexval5=((p_lexval)$5)->_string;
++- p_node Pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval3);
++- p_node Nnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval5);
++- char* natureID=mylexval1;
++- p_nature mynature=adms_admsmain_list_nature_lookup_by_id(root(),natureID);
++- p_branch mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,Pnode,Nnode);
++- $$=adms_yaccval_new("unknown source file");
++- if(!mynature)
++- adms_message_fatal(("[source:error] there is no nature with access %s, missing discipline.h file?\n",natureID))
++- gSource=adms_module_list_source_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- gLexval=$1;
++- Y($$,(p_adms)gSource);
++- }
++- | tk_ident '(' tk_ident ')'
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- char* mylexval3=((p_lexval)$3)->_string;
++- char* natureID=mylexval1;
++- p_nature mynature=adms_admsmain_list_nature_lookup_by_id(root(),natureID);
++- p_branchalias branchalias=adms_module_list_branchalias_lookup_by_id(gModule,gModule,mylexval3);
++- p_node pnode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval3);
++- p_branch mybranch=NULL;
++- $$=adms_yaccval_new("unknown source file");
++- if(!mynature)
++- adms_message_fatal(("[source:error] there is no nature with access %s, please, include discipline.h file\n",natureID))
++- if(pnode)
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,pnode,gGND);
++- else if(branchalias)
++- mybranch=branchalias->_branch;
++- else
++- adms_veriloga_message_fatal("undefined branch or node\n",$1);
++- gSource=adms_module_list_source_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- gLexval=$1;
++- gBranchAlias=branchalias;
++- Y($$,(p_adms)gSource);
++- }
++- ;
++-R_d.while
++- : tk_while '(' R_s.expression ')' R_analogcode
++- {
++- p_whileloop mywhileloop=adms_whileloop_new(gModule,(p_expression)YY($3),YY($5));
++- adms_slist_push(&gModule->_whileloop,(p_adms)mywhileloop);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mywhileloop);
++- }
++- ;
++-R_d.for
++- : tk_for '(' R_s.assignment ';' R_s.expression ';' R_s.assignment ')' R_analogcode
++- {
++- p_forloop myforloop=adms_forloop_new(gModule,(p_assignment)YY($3),(p_expression)YY($5),(p_assignment)YY($7),YY($9));
++- adms_slist_push(&gModule->_forloop,(p_adms)myforloop);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myforloop);
++- }
++- ;
++-R_d.case
++- : tk_case '(' R_s.expression ')' R_l.case.item tk_endcase
++- {
++- p_case mycase=adms_case_new(gModule,(p_expression)YY($3));
++- adms_slist_push(&gModule->_case,(p_adms)mycase);
++- $$=adms_yaccval_new("unknown source file");
++- mycase->_caseitem=adms_slist_reverse((p_slist)YY($5));
++- Y($$,(p_adms)mycase);
++- }
++- ;
++-R_l.case.item
++- : R_s.case.item
++- {
++- p_slist myArgs=NULL;
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_push(&myArgs,YY($1));
++- Y($$,(p_adms)myArgs);
++- }
++- | R_l.case.item R_s.case.item
++- {
++- p_slist myArgs=(p_slist)YY($1);
++- $$=$1;
++- adms_slist_push(&myArgs,YY($2));
++- Y($$,(p_adms)myArgs);
++- }
++- ;
++-R_s.case.item
++- : R_l.enode ':' R_analogcode
++- {
++- p_slist myArgs=(p_slist)YY($1);
++- p_caseitem mycaseitem=adms_caseitem_new(YY($3));
++- $$=adms_yaccval_new("unknown source file");
++- mycaseitem->_condition=adms_slist_reverse(myArgs);
++- Y($$,(p_adms)mycaseitem);
++- }
++- | tk_default ':' R_analogcode
++- {
++- p_caseitem mycaseitem=adms_caseitem_new(YY($3));
++- $$=adms_yaccval_new("unknown source file");
++- mycaseitem->_defaultcase=admse_yes;
++- Y($$,(p_adms)mycaseitem);
++- }
++- | tk_default R_analogcode
++- {
++- p_caseitem mycaseitem=adms_caseitem_new(YY($2));
++- $$=adms_yaccval_new("unknown source file");
++- mycaseitem->_defaultcase=admse_yes;
++- Y($$,(p_adms)mycaseitem);
++- }
++- ;
++-R_s.instance
++- : R_instance.module.name '#' '(' R_l.instance.parameter ')' tk_ident '(' R_l.node ')' ';'
++- {
++- char* mylexval6=((p_lexval)$6)->_string;
++- p_instance myinstance;
++- p_slist l1;
++- p_slist l2;
++- myinstance=adms_module_list_instance_prepend_by_id_once_or_abort(gModule,gModule,gInstanceModule,mylexval6);
++- adms_slist_inreverse(&gInstanceModule->_node);
++- l2=gInstanceModule->_node;
++- l2=l2->next; /*GND ignored*/
++- for(l1=adms_slist_reverse(gNodeList);l1;l1=l1->next)
++- {
++- adms_instance_list_terminal_prepend_once_or_abort(myinstance,adms_instancenode_new(((p_node)l1->data),(p_node)l2->data));
++- l2=l2->next;
++- }
++- for(l1=gInstanceVariableList;l1;l1=l1->next)
++- adms_instance_list_parameterset_prepend_once_or_abort(myinstance,(p_instanceparameter)l1->data);
++- adms_slist_inreverse(&gInstanceModule->_node);
++- adms_slist_free(gNodeList);gNodeList=NULL;
++- adms_slist_free(gInstanceVariableList);gInstanceVariableList=NULL;
++- }
++- ;
++-R_instance.module.name
++- : tk_ident
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- gInstanceModule=adms_admsmain_list_module_lookup_by_id(root(),mylexval1);
++- if(!gInstanceModule)
++- adms_message_fatal(("module '%s' not found\n",mylexval1));
++- }
++- ;
++-R_l.instance.parameter
++- : R_s.instance.parameter
++- {
++- }
++- | R_l.instance.parameter ',' R_s.instance.parameter
++- {
++- }
++- ;
++-R_s.instance.parameter
++- : '.' tk_ident '(' R_s.expression ')'
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- p_variableprototype myvariableprototype=adms_module_list_variable_lookup_by_id(gInstanceModule,gInstanceModule,$2,(p_adms)gInstanceModule);
++- if(myvariableprototype)
++- {
++- p_instanceparameter myinstanceparameter;
++- myinstanceparameter=adms_instanceparameter_new(myvariableprototype);
++- adms_slist_push(&gInstanceVariableList,(p_adms)myinstanceparameter);
++- myinstanceparameter->_value=((p_expression)YY($4));
++- }
++- else
++- {
++- adms_veriloga_message_fatal_continue($2);
++- adms_message_fatal(("[%s.%s.%s]: undefined variable (instance declaration)",
++- adms_module_uid(gModule),adms_module_uid(gInstanceModule),mylexval2))
++- }
++- }
++- ;
++-R_s.assignment
++- : tk_ident '=' R_s.expression
++- {
++- p_assignment myassignment;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,$1);
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",$1);
++- myvariableprototype=myvariable->_prototype;
++- myassignment=adms_assignment_new(gModule,(p_adms)myvariable,(p_expression)YY($3),$1);
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myassignment);
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- | R_d.attribute tk_ident '=' R_s.expression
++- {
++- p_assignment myassignment;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,$2);
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",$2);
++- myvariableprototype=myvariable->_prototype;
++- myassignment=adms_assignment_new(gModule,(p_adms)myvariable,(p_expression)YY($4),$2);
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myassignment);
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myassignment->_attribute,l->data);
++- }
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- | tk_ident '[' R_expression ']' '=' R_s.expression
++- {
++- p_assignment myassignment;
++- p_array myarray;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,$1);
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",$1);
++- myvariableprototype=myvariable->_prototype;
++- myarray=adms_array_new(myvariable,YY($3));
++- myassignment=adms_assignment_new(gModule,(p_adms)myarray,(p_expression)YY($6),$1);
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myassignment);
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- | R_d.attribute tk_ident '[' R_expression ']' '=' R_s.expression
++- {
++- p_assignment myassignment;
++- p_array myarray;
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,$2);
++- p_variableprototype myvariableprototype;
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined variable\n",$2);
++- myvariableprototype=myvariable->_prototype;
++- myarray=adms_array_new(myvariable,YY($4));
++- myassignment=adms_assignment_new(gModule,(p_adms)myarray,(p_expression)YY($7),$2);
++- adms_slist_push(&gModule->_assignment,(p_adms)myassignment);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myassignment);
++- {
++- p_slist l;
++- for(l=gAttributeList;l;l=l->next)
++- adms_slist_push(&myassignment->_attribute,l->data);
++- }
++- adms_slist_free(gAttributeList); gAttributeList=NULL;
++- myvariableprototype->_vcount++;
++- myvariableprototype->_vlast=myassignment;
++- }
++- ;
++-R_d.conditional
++- : tk_if '(' R_s.expression ')' R_analogcode
++- {
++- p_expression myexpression=(p_expression)YY($3);
++- p_adms mythen=YY($5);
++- p_conditional myconditional=adms_conditional_new(gModule,myexpression,mythen,NULL);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myconditional);
++- } %prec PREC_IF_THEN
++- | tk_if '(' R_s.expression ')' R_analogcode tk_else R_analogcode
++- {
++- p_expression myexpression=(p_expression)YY($3);
++- p_adms mythen=YY($5);
++- p_adms myelse=YY($7);
++- p_conditional myconditional=adms_conditional_new(gModule,myexpression,mythen,myelse);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myconditional);
++- }
++- ;
++-R_s.expression
++- : R_expression
++- {
++- p_expression myexpression=adms_expression_new(gModule,YY($1));
++- adms_slist_push(&gModule->_expression,(p_adms)myexpression);
++- $$=$1;
++- Y($$,(p_adms)myexpression);
++- }
++- ;
++-R_l.enode
++- : R_s.function_expression
++- {
++- p_slist myArgs=NULL;
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_push(&myArgs,YY($1));
++- Y($$,(p_adms)myArgs);
++- }
++- | R_l.enode ',' R_s.function_expression
++- {
++- p_slist myArgs=(p_slist)YY($1);
++- $$=$1;
++- adms_slist_push(&myArgs,YY($3));
++- Y($$,(p_adms)myArgs);
++- }
++- ;
++-R_s.function_expression
++- : R_expression
++- {
++- $$=$1;
++- }
++- ;
++-R_expression
++- : R_e.conditional
++- {
++- $$=$1;
++- }
++- ;
++-R_e.conditional
++- : R_e.bitwise_equ
++- {
++- $$=$1;
++- }
++- | R_e.bitwise_equ '?' R_e.bitwise_equ ':' R_e.bitwise_equ
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_adms m3=YY($5);
++- p_mapply_ternary myop=adms_mapply_ternary_new(admse_conditional,m1,m2,m3);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.bitwise_equ
++- : R_e.bitwise_xor
++- {
++- $$=$1;
++- }
++- | R_e.bitwise_equ tk_bitwise_equr R_e.bitwise_xor
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_equr,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.bitwise_equ '~' '^' R_e.bitwise_xor
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($4);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_equl,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.bitwise_xor
++- : R_e.bitwise_or
++- {
++- $$=$1;
++- }
++- | R_e.bitwise_xor '^' R_e.bitwise_or
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_xor,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.bitwise_or
++- : R_e.bitwise_and
++- {
++- $$=$1;
++- }
++- | R_e.bitwise_or '|' R_e.bitwise_and
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_or,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.bitwise_and
++- : R_e.logical_or
++- {
++- $$=$1;
++- }
++- | R_e.bitwise_and '&' R_e.logical_or
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_bw_and,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.logical_or
++- : R_e.logical_and
++- {
++- $$=$1;
++- }
++- | R_e.logical_or tk_or R_e.logical_and
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_or,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.logical_and
++- : R_e.comp_equ
++- {
++- $$=$1;
++- }
++- | R_e.logical_and tk_and R_e.comp_equ
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_and,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.comp_equ
++- : R_e.comp
++- {
++- $$=$1;
++- }
++- | R_e.comp_equ '=' '=' R_e.comp
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($4);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_equ,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.comp_equ '!' '=' R_e.comp
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($4);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_notequ,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.comp
++- : R_e.bitwise_shift
++- {
++- $$=$1;
++- }
++- | R_e.comp '<' R_e.bitwise_shift
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_lt,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.comp '<' '=' R_e.bitwise_shift
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($4);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_lt_equ,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.comp '>' R_e.bitwise_shift
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_gt,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.comp '>' '=' R_e.bitwise_shift
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($4);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_gt_equ,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.bitwise_shift
++- : R_e.arithm_add
++- {
++- $$=$1;
++- }
++- | R_e.bitwise_shift tk_op_shr R_e.arithm_add
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_shiftr,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.bitwise_shift tk_op_shl R_e.arithm_add
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_shiftl,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.arithm_add
++- : R_e.arithm_mult
++- {
++- $$=$1;
++- }
++- | R_e.arithm_add '+' R_e.arithm_mult
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_addp,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.arithm_add '-' R_e.arithm_mult
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_addm,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.arithm_mult
++- : R_e.unary
++- {
++- $$=$1;
++- }
++- | R_e.arithm_mult '*' R_e.unary
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_multtime,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.arithm_mult '/' R_e.unary
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_multdiv,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- | R_e.arithm_mult '%' R_e.unary
++- {
++- p_adms m1=YY($1);
++- p_adms m2=YY($3);
++- p_mapply_binary myop=adms_mapply_binary_new(admse_multmod,m1,m2);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myop);
++- }
++- ;
++-R_e.unary
++- : R_e.atomic
++- {
++- $$=$1;
++- }
++- | '+' R_e.atomic
++- {
++- p_adms m=YY($2);
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_plus,m);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mymathapply);
++- }
++- | '-' R_e.atomic
++- {
++- p_adms m=YY($2);
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_minus,m);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mymathapply);
++- }
++- | '!' R_e.atomic
++- {
++- p_adms m=YY($2);
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_not,m);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mymathapply);
++- }
++- | '~' R_e.atomic
++- {
++- p_adms m=YY($2);
++- p_mapply_unary mymathapply=adms_mapply_unary_new(admse_bw_not,m);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)mymathapply);
++- }
++- ;
++-R_e.atomic
++- : tk_integer
++- {
++- p_number mynumber=adms_number_new($1);
++- $$=adms_yaccval_new("unknown source file");
++- mynumber->_cast=admse_i;
++- Y($$,(p_adms)mynumber);
++- }
++- | tk_integer tk_ident
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- p_number mynumber=adms_number_new($1);
++- int myunit=admse_1;
++- $$=adms_yaccval_new("unknown source file");
++- if(0) {}
++- else if(!strcmp(mylexval2,"E")) myunit=admse_E;
++- else if(!strcmp(mylexval2,"P")) myunit=admse_P;
++- else if(!strcmp(mylexval2,"T")) myunit=admse_T;
++- else if(!strcmp(mylexval2,"G")) myunit=admse_G;
++- else if(!strcmp(mylexval2,"M")) myunit=admse_M;
++- else if(!strcmp(mylexval2,"k")) myunit=admse_k;
++- else if(!strcmp(mylexval2,"h")) myunit=admse_h;
++- else if(!strcmp(mylexval2,"D")) myunit=admse_D;
++- else if(!strcmp(mylexval2,"d")) myunit=admse_d;
++- else if(!strcmp(mylexval2,"c")) myunit=admse_c;
++- else if(!strcmp(mylexval2,"m")) myunit=admse_m;
++- else if(!strcmp(mylexval2,"u")) myunit=admse_u;
++- else if(!strcmp(mylexval2,"n")) myunit=admse_n;
++- else if(!strcmp(mylexval2,"A")) myunit=admse_A;
++- else if(!strcmp(mylexval2,"p")) myunit=admse_p;
++- else if(!strcmp(mylexval2,"f")) myunit=admse_f;
++- else if(!strcmp(mylexval2,"a")) myunit=admse_a;
++- else
++- adms_veriloga_message_fatal(" can not convert symbol to valid unit\n",$2);
++- mynumber->_scalingunit=myunit;
++- mynumber->_cast=admse_i;
++- Y($$,(p_adms)mynumber);
++- }
++- | tk_number
++- {
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)adms_number_new($1));
++- }
++- | tk_number tk_ident
++- {
++- char* mylexval2=((p_lexval)$2)->_string;
++- p_number mynumber=adms_number_new($1);
++- int myunit=admse_1;
++- $$=adms_yaccval_new("unknown source file");
++- if(0) {}
++- else if(!strcmp(mylexval2,"E")) myunit=admse_E;
++- else if(!strcmp(mylexval2,"P")) myunit=admse_P;
++- else if(!strcmp(mylexval2,"T")) myunit=admse_T;
++- else if(!strcmp(mylexval2,"G")) myunit=admse_G;
++- else if(!strcmp(mylexval2,"M")) myunit=admse_M;
++- else if(!strcmp(mylexval2,"k")) myunit=admse_k;
++- else if(!strcmp(mylexval2,"h")) myunit=admse_h;
++- else if(!strcmp(mylexval2,"D")) myunit=admse_D;
++- else if(!strcmp(mylexval2,"d")) myunit=admse_d;
++- else if(!strcmp(mylexval2,"c")) myunit=admse_c;
++- else if(!strcmp(mylexval2,"m")) myunit=admse_m;
++- else if(!strcmp(mylexval2,"u")) myunit=admse_u;
++- else if(!strcmp(mylexval2,"n")) myunit=admse_n;
++- else if(!strcmp(mylexval2,"A")) myunit=admse_A;
++- else if(!strcmp(mylexval2,"p")) myunit=admse_p;
++- else if(!strcmp(mylexval2,"f")) myunit=admse_f;
++- else if(!strcmp(mylexval2,"a")) myunit=admse_a;
++- else
++- adms_veriloga_message_fatal(" can not convert symbol to valid unit\n",$2);
++- mynumber->_scalingunit=myunit;
++- Y($$,(p_adms)mynumber);
++- }
++- | tk_char
++- {
++- adms_veriloga_message_fatal("%s: character are not handled\n",$1);
++- }
++- | tk_anystring
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)adms_string_new(mylexval1));
++- }
++- | tk_ident
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- $$=adms_yaccval_new("unknown source file");
++- if(gAnalogfunction)
++- {
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,$1);
++- if(myvariable)
++- Y($$,(p_adms)myvariable);
++- }
++- else
++- {
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,$1);
++- if(myvariable)
++- Y($$,(p_adms)myvariable);
++- else
++- {
++- p_branchalias mybranchalias=adms_module_list_branchalias_lookup_by_id(gModule,gModule,mylexval1);
++- p_node mynode=adms_module_list_node_lookup_by_id(gModule,gModule,mylexval1);
++- if(mynode) Y($$,(p_adms)mynode);
++- if(mybranchalias)
++- Y($$,(p_adms)mybranchalias->_branch);
++- }
++- }
++- if(!YY($$))
++- adms_veriloga_message_fatal("identifier never declared\n",$1);
++- }
++- | tk_dollar_ident
++- {
++- p_function myfunction=adms_function_new($1,uid++);
++- $$=adms_yaccval_new("unknown source file");
++- Y($$,(p_adms)myfunction);
++- }
++- | tk_ident '[' R_expression ']'
++- {
++- $$=adms_yaccval_new("unknown source file");
++- p_variable myvariable=variable_recursive_lookup_by_id(gBlockList->data,$1);
++- if(!myvariable)
++- adms_veriloga_message_fatal("undefined array variable\n",$1);
++- Y($$,(p_adms)adms_array_new(myvariable,YY($3)));
++- }
++- | tk_dollar_ident '(' R_l.enode ')'
++- {
++- p_function myfunction=adms_function_new($1,uid++);
++- p_slist myArgs=(p_slist)YY($3);
++- $$=adms_yaccval_new("unknown source file");
++- adms_slist_inreverse(&myArgs);
++- myfunction->_arguments=myArgs;
++- Y($$,(p_adms)myfunction);
++- }
++- | tk_ident '(' R_l.enode ')'
++- {
++- char* mylexval1=((p_lexval)$1)->_string;
++- char* myfunctionname=mylexval1;
++- p_slist myArgs=(p_slist)YY($3);
++- int narg=adms_slist_length(myArgs);
++- p_probe myprobe=NULL;
++- p_nature mynature=adms_admsmain_list_nature_lookup_by_id(root(),myfunctionname);
++- $$=adms_yaccval_new("unknown source file");
++- if(mynature && narg==1)
++- {
++- p_adms mychild0=(p_adms)adms_slist_nth_data(myArgs,0);
++- if(mychild0->_datatypename==admse_node)
++- {
++- p_branch mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,(p_node)mychild0,gGND);
++- myprobe=adms_module_list_probe_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- }
++- else if(mychild0->_datatypename==admse_branch)
++- {
++- myprobe=adms_module_list_probe_prepend_by_id_once_or_ignore(gModule,gModule,(p_branch)mychild0,mynature);
++- }
++- else
++- adms_veriloga_message_fatal("bad argument (expecting node or branch)\n",$1);
++- }
++- else if(mynature && narg==2)
++- {
++- p_adms mychild0=(p_adms)adms_slist_nth_data(myArgs,0);
++- p_adms mychild1=(p_adms)adms_slist_nth_data(myArgs,1);
++- p_branch mybranch;
++- if(mychild0->_datatypename!=admse_node)
++- adms_veriloga_message_fatal("second argument of probe is not a node\n",$1);
++- if(mychild1->_datatypename!=admse_node)
++- adms_veriloga_message_fatal("first argument of probe is not a node\n",$1);
++- mybranch=adms_module_list_branch_prepend_by_id_once_or_ignore(gModule,gModule,(p_node)mychild1,((p_node)mychild0));
++- myprobe=adms_module_list_probe_prepend_by_id_once_or_ignore(gModule,gModule,mybranch,mynature);
++- }
++- if(myprobe)
++- Y($$,(p_adms)myprobe);
++- else
++- {
++- p_slist l;
++- p_function myfunction=adms_function_new($1,uid++);
++- for(l=gModule->_analogfunction;l&&(myfunction->_definition==NULL);l=l->next)
++- {
++- p_analogfunction myanalogfunction=(p_analogfunction)l->data;
++- if(!strcmp($1->_string,myanalogfunction->_lexval->_string))
++- myfunction->_definition=myanalogfunction;
++- }
++- myfunction->_arguments=adms_slist_reverse(myArgs);
++- Y($$,(p_adms)myfunction);
++- }
++- }
++- | '(' R_expression ')'
++- {
++- $$=$2;
++- }
++- ;
++-%%
++-void adms_veriloga_setint_yydebug(const int val)
++-{
++- yydebug=val;
++-}
diff --cc debian/patches/0004-move-readme-file.patch
index 0000000,0000000..0727406
new file mode 100644
--- /dev/null
+++ b/debian/patches/0004-move-readme-file.patch
@@@ -1,0 -1,0 +1,408 @@@
++From 37abe32f74f7bb9157ab7375c751a259566eac97 Mon Sep 17 00:00:00 2001
++From: Felix Salfelder <felix at em.cs.uni-frankfurt.de>
++Date: Thu, 15 May 2014 14:52:53 +0200
++Subject: move readme file
++
++---
++ README | 192 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++ README.md | 192 --------------------------------------------------------------
++ 2 files changed, 192 insertions(+), 192 deletions(-)
++ create mode 100644 README
++ delete mode 100644 README.md
++
++diff --git a/README b/README
++new file mode 100644
++index 0000000..3827418
++--- /dev/null
+++++ b/README
++@@ -0,0 +1,192 @@
+++
+++[](https://travis-ci.org/Qucs/ADMS)
+++
+++# ADMS - An automatic device model synthesizer
+++
+++ADMS is a code generator that converts electrical compact device models specified
+++in high-level description language into ready-to-compile C code for the API of spice
+++simulators. Based on transformations specified in XML language, ADMS transforms
+++Verilog-AMS code into other target languages.
+++
+++This version is forked from the code previously available at:
+++<http://sourceforge.net/projects/mot-adms/files/adms-source/2.3/>
+++
+++The original SVN repo is now password-protected, so here we are.
+++
+++This version is based on ADMS 2.3.0, the last version released by the original author.
+++
+++Currently only a subset of the Verilog-AMS language is supported.
+++
+++- Homepage (unmaintained): <http://vacomp.noovela.com/>
+++- Source code: <http://sourceforge.net/projects/mot-adms/>
+++
+++## Platforms
+++
+++ADMS is known to work on these platforms.
+++
+++- GNU/Linux
+++- Darwin/OS X
+++- FreeBSD
+++- Windows
+++
+++
+++## Dependencies
+++
+++- C compiler (gcc, clang)
+++- Autotools (autoconf, automake,...) or CMake
+++- GNU Flex
+++- GNU Bison 2.6+
+++- GNU Libtool
+++- Perl with XML::LibXml and GD modules (only for maintainers)
+++
+++
+++## Installation
+++
+++Autotools is the original build system and is more complete. Prefered for maintainance and packaging.
+++CMake was introduced more recently and is not as tested.
+++
+++
+++### Maintainers Install and Packaging from Git
+++
+++This section is relevant in case ADMS is compiled from the Git repository.
+++
+++#### Compilation Using Autotools
+++
+++The `--enable-maintainer` makes sure the required files are generated (using Perl and LibXml).
+++
+++ sh bootstrap.sh
+++ ./configure --enable-maintainer-mode
+++ make install
+++
+++Autotools it recommended for creating release packages, the `adms-x.x.x.tar.gz` source code archive.
+++
+++ sh bootstrap.sh
+++ ./configure --enable-maintainer-mode
+++ make clean
+++ make dist
+++
+++#### Compilation Using CMake
+++
+++The `create_files.sh` invokes Perl to generate required source files.
+++
+++ sh create_files.sh
+++ mkdir cmake; cd cmake
+++ cmake .. -DCMAKE_BUILD_TYPE=RELEASE -DCMAKE_INSTALL_PREFIX=/install/location/
+++ make install
+++
+++Packaging is not yet supported with CMake.
+++
+++
+++### Users Install from Tarball
+++
+++This section is relevant in case ADMS is compiled from a source code archive (`adms-x.x.x.tar.gz`).
+++Users should be able to build without Perl (and the required modules XML::LibXml and GD).
+++
+++#### Compilation Using Autotools
+++
+++ tar xvfz adms-x.x.x.tar.gz
+++ cd adms-x.x.x
+++ ./configure --prefix=[/install/location/]
+++ make install
+++
+++#### Compilation Using CMake
+++
+++ tar xvfz adms-x.x.x.tar.gz
+++ cd adms-x.x.x
+++ mkdir build; cd build
+++ cmake .. -DCMAKE_INSTALL_PREFIX=[/install/location/]
+++ make install
+++
+++
+++## Credits
+++
+++See AUTHORS file.
+++
+++## License
+++
+++ADMS is under LGPL-GNU Lesser General Public License, version 2.1. See COPYING file.
+++
+++
+++
+++---
+++
+++Original author's build instructions: (for posterity)
+++
+++```
+++
+++0- Prerequisites
+++ 0- gnu make is required (do not use other native make)
+++
+++1- Description
+++ ADMS is a code generator that converts electrical compact device models
+++ specified in high-level description language into ready-to-compile c code
+++ for the API of spice simulators.
+++
+++2- Installation - Unix or Linux
+++ 0- run: ./configure - see file INSTALLATION for more options
+++ 1- run: gmake
+++ 2- run: gmake install
+++ If the installation fails try:
+++ 0- run: autoheader
+++ 1- run: aclocal
+++ 2- run: automake
+++ 3- run: autoconf
+++ 4- run: ./configure - see file INSTALLATION for more options
+++ 5- run: gmake
+++ 6- run: gmake install
+++ In two shots:
+++ autoheader && aclocal && automake && autoconf && ./configure
+++ gmake && gmake install
+++
+++3- Installation - Windows with cygwin environment
+++ 0- run: ./configure - see file INSTALLATION for more options
+++ 1- run: gmake
+++ 2- run: gmake install
+++ If the installation fails try:
+++ 0- run: autoheader
+++ 1- run: aclocal
+++ 2- run: automake
+++ 3- run: autoconf
+++ 4- run: ./configure - see file INSTALLATION for more options
+++ 5- run: gmake
+++ 6- run: gmake install
+++ In two shots:
+++ autoheader && aclocal && automake && autoconf && ./configure
+++ gmake && gmake install
+++
+++4- Installation windows (no cygwin environment)
+++ 0- run:
+++ cl -DYY_NO_UNISTD_H -DPACKAGE_VERSION=\"msvc-229\" -DHAVE_CONFIG_H -DinsideElement -DinsidePreprocessor -DinsideVeriloga -I. -IadmsXml \
+++ admsXml/adms.c admsXml/preprocessorLex.c admsXml/preprocessorMain.c admsXml/preprocessorYacc.c admsXml/verilogaLex.c admsXml/verilogaYacc.c \
+++ admsXml/admsXml.c admsXml/admstpathYacc.c -o admsXml.exe
+++ If the installation fails send a message to r29173 at users.sourceforge.net
+++ (note that there is NO strong support for windows compilers.)
+++
+++5- Directory Structure
+++ adms
+++ - metaadms.dtd
+++ DTD of file adms.xml
+++ - adms.xml
+++ This file defines the data structure used by adms to save parsed hdl code.
+++ - auxconf
+++ set-up files created by automake -a -c
+++ - scripts:
+++ perl scripts
+++ - admsXml
+++ source code
+++
+++5- For developers (using the cygwin environment)
+++ Here is how I create the compilation environment after checking out adms from
+++ the CVS repository:
+++ 0- run: autoheader (create autom4te.cache/config-h.in from configure.in)
+++ 1- run: mkdir auxconf (create directory auxconf)
+++ 2- run: aclocal (create aclocal.m4 from configure.in)
+++ 3- run: libtoolize --force --ltdl -c (create libltdl and config.guess, config.sub, ltmain.sh in auxconf)
+++ 4- run: automake -a -c (create missing, mkinstalldirs, install-sh in auxconf and all Makefile.in)
+++ 5- run: autoconf (create configure)
+++ 6- run: ./configure --enable-maintainer-mode
+++ In three shots:
+++ rm -rf auxconf && autoheader && mkdir auxconf && aclocal && libtoolize --force --ltdl -c
+++ touch ChangeLog && automake -a -c && autoconf
+++ ./configure --enable-maintainer-mode
+++```
++diff --git a/README.md b/README.md
++deleted file mode 100644
++index 3827418..0000000
++--- a/README.md
+++++ /dev/null
++@@ -1,192 +0,0 @@
++-
++-[](https://travis-ci.org/Qucs/ADMS)
++-
++-# ADMS - An automatic device model synthesizer
++-
++-ADMS is a code generator that converts electrical compact device models specified
++-in high-level description language into ready-to-compile C code for the API of spice
++-simulators. Based on transformations specified in XML language, ADMS transforms
++-Verilog-AMS code into other target languages.
++-
++-This version is forked from the code previously available at:
++-<http://sourceforge.net/projects/mot-adms/files/adms-source/2.3/>
++-
++-The original SVN repo is now password-protected, so here we are.
++-
++-This version is based on ADMS 2.3.0, the last version released by the original author.
++-
++-Currently only a subset of the Verilog-AMS language is supported.
++-
++-- Homepage (unmaintained): <http://vacomp.noovela.com/>
++-- Source code: <http://sourceforge.net/projects/mot-adms/>
++-
++-## Platforms
++-
++-ADMS is known to work on these platforms.
++-
++-- GNU/Linux
++-- Darwin/OS X
++-- FreeBSD
++-- Windows
++-
++-
++-## Dependencies
++-
++-- C compiler (gcc, clang)
++-- Autotools (autoconf, automake,...) or CMake
++-- GNU Flex
++-- GNU Bison 2.6+
++-- GNU Libtool
++-- Perl with XML::LibXml and GD modules (only for maintainers)
++-
++-
++-## Installation
++-
++-Autotools is the original build system and is more complete. Prefered for maintainance and packaging.
++-CMake was introduced more recently and is not as tested.
++-
++-
++-### Maintainers Install and Packaging from Git
++-
++-This section is relevant in case ADMS is compiled from the Git repository.
++-
++-#### Compilation Using Autotools
++-
++-The `--enable-maintainer` makes sure the required files are generated (using Perl and LibXml).
++-
++- sh bootstrap.sh
++- ./configure --enable-maintainer-mode
++- make install
++-
++-Autotools it recommended for creating release packages, the `adms-x.x.x.tar.gz` source code archive.
++-
++- sh bootstrap.sh
++- ./configure --enable-maintainer-mode
++- make clean
++- make dist
++-
++-#### Compilation Using CMake
++-
++-The `create_files.sh` invokes Perl to generate required source files.
++-
++- sh create_files.sh
++- mkdir cmake; cd cmake
++- cmake .. -DCMAKE_BUILD_TYPE=RELEASE -DCMAKE_INSTALL_PREFIX=/install/location/
++- make install
++-
++-Packaging is not yet supported with CMake.
++-
++-
++-### Users Install from Tarball
++-
++-This section is relevant in case ADMS is compiled from a source code archive (`adms-x.x.x.tar.gz`).
++-Users should be able to build without Perl (and the required modules XML::LibXml and GD).
++-
++-#### Compilation Using Autotools
++-
++- tar xvfz adms-x.x.x.tar.gz
++- cd adms-x.x.x
++- ./configure --prefix=[/install/location/]
++- make install
++-
++-#### Compilation Using CMake
++-
++- tar xvfz adms-x.x.x.tar.gz
++- cd adms-x.x.x
++- mkdir build; cd build
++- cmake .. -DCMAKE_INSTALL_PREFIX=[/install/location/]
++- make install
++-
++-
++-## Credits
++-
++-See AUTHORS file.
++-
++-## License
++-
++-ADMS is under LGPL-GNU Lesser General Public License, version 2.1. See COPYING file.
++-
++-
++-
++----
++-
++-Original author's build instructions: (for posterity)
++-
++-```
++-
++-0- Prerequisites
++- 0- gnu make is required (do not use other native make)
++-
++-1- Description
++- ADMS is a code generator that converts electrical compact device models
++- specified in high-level description language into ready-to-compile c code
++- for the API of spice simulators.
++-
++-2- Installation - Unix or Linux
++- 0- run: ./configure - see file INSTALLATION for more options
++- 1- run: gmake
++- 2- run: gmake install
++- If the installation fails try:
++- 0- run: autoheader
++- 1- run: aclocal
++- 2- run: automake
++- 3- run: autoconf
++- 4- run: ./configure - see file INSTALLATION for more options
++- 5- run: gmake
++- 6- run: gmake install
++- In two shots:
++- autoheader && aclocal && automake && autoconf && ./configure
++- gmake && gmake install
++-
++-3- Installation - Windows with cygwin environment
++- 0- run: ./configure - see file INSTALLATION for more options
++- 1- run: gmake
++- 2- run: gmake install
++- If the installation fails try:
++- 0- run: autoheader
++- 1- run: aclocal
++- 2- run: automake
++- 3- run: autoconf
++- 4- run: ./configure - see file INSTALLATION for more options
++- 5- run: gmake
++- 6- run: gmake install
++- In two shots:
++- autoheader && aclocal && automake && autoconf && ./configure
++- gmake && gmake install
++-
++-4- Installation windows (no cygwin environment)
++- 0- run:
++- cl -DYY_NO_UNISTD_H -DPACKAGE_VERSION=\"msvc-229\" -DHAVE_CONFIG_H -DinsideElement -DinsidePreprocessor -DinsideVeriloga -I. -IadmsXml \
++- admsXml/adms.c admsXml/preprocessorLex.c admsXml/preprocessorMain.c admsXml/preprocessorYacc.c admsXml/verilogaLex.c admsXml/verilogaYacc.c \
++- admsXml/admsXml.c admsXml/admstpathYacc.c -o admsXml.exe
++- If the installation fails send a message to r29173 at users.sourceforge.net
++- (note that there is NO strong support for windows compilers.)
++-
++-5- Directory Structure
++- adms
++- - metaadms.dtd
++- DTD of file adms.xml
++- - adms.xml
++- This file defines the data structure used by adms to save parsed hdl code.
++- - auxconf
++- set-up files created by automake -a -c
++- - scripts:
++- perl scripts
++- - admsXml
++- source code
++-
++-5- For developers (using the cygwin environment)
++- Here is how I create the compilation environment after checking out adms from
++- the CVS repository:
++- 0- run: autoheader (create autom4te.cache/config-h.in from configure.in)
++- 1- run: mkdir auxconf (create directory auxconf)
++- 2- run: aclocal (create aclocal.m4 from configure.in)
++- 3- run: libtoolize --force --ltdl -c (create libltdl and config.guess, config.sub, ltmain.sh in auxconf)
++- 4- run: automake -a -c (create missing, mkinstalldirs, install-sh in auxconf and all Makefile.in)
++- 5- run: autoconf (create configure)
++- 6- run: ./configure --enable-maintainer-mode
++- In three shots:
++- rm -rf auxconf && autoheader && mkdir auxconf && aclocal && libtoolize --force --ltdl -c
++- touch ChangeLog && automake -a -c && autoconf
++- ./configure --enable-maintainer-mode
++-```
diff --cc debian/patches/0005-fix-Makefile.am.patch
index 0000000,0000000..b34ecd8
new file mode 100644
--- /dev/null
+++ b/debian/patches/0005-fix-Makefile.am.patch
@@@ -1,0 -1,0 +1,56 @@@
++From b57db5e23ff2c2fa698a8b10a3092f646417d5e5 Mon Sep 17 00:00:00 2001
++From: Felix Salfelder <felix at em.cs.uni-frankfurt.de>
++Date: Thu, 15 May 2014 16:05:41 +0200
++Subject: fix Makefile.am
++
++not removing weird stuff entirely. but it seems to work now.
++---
++ admsXml/Makefile.am | 14 ++++++--------
++ 1 file changed, 6 insertions(+), 8 deletions(-)
++
++diff --git a/admsXml/Makefile.am b/admsXml/Makefile.am
++index 0968c4a..3bb2524 100644
++--- a/admsXml/Makefile.am
+++++ b/admsXml/Makefile.am
++@@ -1,10 +1,6 @@
++ incfile=constants.vams disciplines.vams adms.implicit.xml dummy.va dummy.xml
++ incfilec=$(incfile:=.c)
++
++-generated_FILES=adms.h adms.c verilogaYacc.y admstpathYacc.y admstpathYacc.h $(incfilec) \
++- verilogaLex.c verilogaYacc.c verilogaYacc.h admstpathYacc.c \
++- preprocessorLex.c preprocessorYacc.c preprocessorYacc.h
++-
++ SUFFIXES=.vams .vams.c .va .va.c .xml .xml.c .y.in
++
++ # use mkctext.pl to create C files containing the contents of each input file
++@@ -25,6 +21,8 @@ verilogaYacc.y: ${srcdir}/verilogaYacc.y.in ${srcdir}/mkgrammar.pl
++
++ endif
++
+++BUILT_SOURCES=adms.h adms.c am-verilogaYacc.h
+++
++ dist_man_MANS = admsXml.1 admsCheck.1
++
++ lib_LTLIBRARIES=libadmsElement.la libadmsPreprocessor.la libadmsVeriloga.la libadmsAdmstpath.la
++@@ -35,17 +33,17 @@ libadmsElement_la_LDFLAGS=-no-undefined
++
++ preprocessorLex.l: $(incfilec) preprocessorYacc.c preprocessorYacc.h
++ preprocessorYacc.h: preprocessorYacc.c
++-libadmsPreprocessor_la_SOURCES=preprocessorLex.l preprocessorMain.c preprocessorYacc.h preprocessorYacc.y
+++libadmsPreprocessor_la_SOURCES=preprocessorLex.l preprocessorMain.c preprocessorYacc.y
++ libadmsPreprocessor_la_CPPFLAGS=-DinsidePreprocessor
++ libadmsPreprocessor_la_LDFLAGS=-no-undefined
++ libadmsPreprocessor_la_LIBADD=libadmsElement.la
++
++-verilogLex.l: $(incfilec) verilogaYacc.c verilogYacc.h
++-verilogYacc.h: verilogYacc.c
++-libadmsVeriloga_la_SOURCES=verilogaYacc.y verilogaLex.l verilogaYacc.h
+++libadmsVeriloga_la_SOURCES=verilogaYacc.y verilogaLex.l
++ libadmsVeriloga_la_CPPFLAGS=-DinsideVeriloga
++ libadmsVeriloga_la_LDFLAGS=-no-undefined
++ libadmsVeriloga_la_LIBADD=libadmsElement.la
+++libadmsVeriloga_la_YFLAGS=-d -v
+++libadmsVeriloga_la_SHORTNAME=am
++
++ admstpathYacc.y: admstpathYacc.h
++ libadmsAdmstpath_la_SOURCES= admstpathYacc.y admstpathYacc.h
diff --cc debian/patches/0006-add-am-prefix-to-header-created-from-verilogaYacc.y.patch
index 0000000,0000000..1fe2e3a
new file mode 100644
--- /dev/null
+++ b/debian/patches/0006-add-am-prefix-to-header-created-from-verilogaYacc.y.patch
@@@ -1,0 -1,0 +1,22 @@@
++From 4486eb2b90b4ec6d58ceba357563962f4f7b92bf Mon Sep 17 00:00:00 2001
++From: Felix Salfelder <felix at em.cs.uni-frankfurt.de>
++Date: Fri, 16 May 2014 11:50:48 +0200
++Subject: add -am prefix to header created from verilogaYacc.y
++
++---
++ admsXml/verilogaLex.l | 2 +-
++ 1 file changed, 1 insertion(+), 1 deletion(-)
++
++diff --git a/admsXml/verilogaLex.l b/admsXml/verilogaLex.l
++index e8a480a..6ba3042 100644
++--- a/admsXml/verilogaLex.l
+++++ b/admsXml/verilogaLex.l
++@@ -4,7 +4,7 @@
++ %{
++
++ #include "admsVeriloga.h"
++-#include "verilogaYacc.h"
+++#include "am-verilogaYacc.h"
++
++ static int adms_strtointeger (const char *mystr)
++ {
diff --cc debian/patches/0007-repair-syntax-in-yacc-input-files.patch
index 0000000,0000000..a6f00ab
new file mode 100644
--- /dev/null
+++ b/debian/patches/0007-repair-syntax-in-yacc-input-files.patch
@@@ -1,0 -1,0 +1,44 @@@
++From 88a755fc617c45ecaa6a634493a55ad799f563f8 Mon Sep 17 00:00:00 2001
++From: Felix Salfelder <felix at em.cs.uni-frankfurt.de>
++Date: Fri, 16 May 2014 11:51:56 +0200
++Subject: repair syntax in yacc input files
++
++---
++ admsXml/mkelements.pl | 2 +-
++ admsXml/preprocessorYacc.y | 2 +-
++ admsXml/verilogaYacc.y.in | 2 +-
++ 3 files changed, 3 insertions(+), 3 deletions(-)
++
++diff --git a/admsXml/mkelements.pl b/admsXml/mkelements.pl
++index 435b97e..ecd56cc 100644
++--- a/admsXml/mkelements.pl
+++++ b/admsXml/mkelements.pl
++@@ -1951,7 +1951,7 @@ print "$top_srcdir/admsXml/admstpathYacc.h: created\n";
++
++ open admstpathYacc_y,">$top_srcdir/admsXml/admstpathYacc.y";
++ print admstpathYacc_y "$BUILDER
++-%define api.prefix \"admstpath\"
+++%define api.prefix {admstpath}
++ %lex-param {p_pparse mypparse}
++ %parse-param {p_pparse mypparse}
++ \%{
++diff --git a/admsXml/preprocessorYacc.y b/admsXml/preprocessorYacc.y
++index 4203d8f..ac249d2 100644
++--- a/admsXml/preprocessorYacc.y
+++++ b/admsXml/preprocessorYacc.y
++@@ -1,4 +1,4 @@
++-%define api.prefix "preprocessor"
+++%define api.prefix {preprocessor}
++ %defines
++
++ %{
++diff --git a/admsXml/verilogaYacc.y.in b/admsXml/verilogaYacc.y.in
++index 654a059..e0750ba 100644
++--- a/admsXml/verilogaYacc.y.in
+++++ b/admsXml/verilogaYacc.y.in
++@@ -1,4 +1,4 @@
++-%define api.prefix "veriloga"
+++%define api.prefix {veriloga}
++ %defines
++
++ %{
diff --cc debian/patches/series
index 444cadf,0000000..c45c46e
mode 100644,000000..100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@@ -1,2 -1,0 +1,7 @@@
+0001-fix-instance-related-assertions.patch
+0002-fix-print-statement.patch
++0003-remove-autogenerated-files.patch
++0004-move-readme-file.patch
++0005-fix-Makefile.am.patch
++0006-add-am-prefix-to-header-created-from-verilogaYacc.y.patch
++0007-repair-syntax-in-yacc-input-files.patch
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/adms.git
More information about the debian-science-commits
mailing list