[adms] 02/09: remove autogenerated files
felix salfelder
felix-guest at moszumanska.debian.org
Fri May 16 13:52:50 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 cccb3dcdf010fbf00181cf4a15f3a33219a8445d
Author: Felix Salfelder <felix at em.cs.uni-frankfurt.de>
Date: Thu May 15 13:29:14 2014 +0200
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(-)
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;
-}
--
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